st_nv_ok.c

来自「NIST Handwriting OCR Testbed」· C语言 代码 · 共 156 行

/*
# proc: st_nv_ok - Given a supposed parmname-parmvalue pair, and the number
# proc:            of the specfile line from which it was read, this routine
# proc:            does a bunch of calls of mtch_pnm to find out if the parmname
# proc:            matches any of the legal parm names.
If there is a match, mtch_pnm sets the parm name
and parm value into the appropriate member of the parms structure
(unless it detects an error).  See the comment of mtch_pnm.

NOTE: It is essential, in the calls here of mtch_pnm, that the calls
that use MP_SWITCH have the last argument consistent with the defines
for that parm in parms.h.  For example, the call below for the
"purpose" parm uses MP_SWITCH and a last argument of "classifier 0
fitter 1", and this is consistent with the following lines in parms.h:
#define CLASSIFIER (char)0
#define FITTER     (char)1
It is essential that the numbers in the defines are the same as those
used in the last arg to mtch_pnm. */

/* [This should perhaps be changed so that the stopping-controlling
parms (e.g. gwgoal) do not all HAVE to be set: i.e., only the ones
that you set, are used.  The ones you omit can be set by the program
to huge values or whatever is appropriate, so as to nullify their
effects.  That would have the advantage that if there are some
stopping-parms that a user hardly ever wants to actually use, that
user can produce less-verbose specfiles by totally omitting to mention
these parms; but, they still exist, in case any user wants to use them
sometime.  Of course, if the short outfile and standard output are to
contain a stopping-conditions message, it should not waste lines on
any conditions whose parms were omitted.] */

#include <stdio.h>
#include <mlp/defs.h>
#include <mlp/parms.h>
#include <mlp/mtch_pnm.h>

char
st_nv_ok(namestr, valstr, linenum, parms, errstr)
char *namestr, *valstr, *errstr;
int linenum;
PARMS *parms;
{
  char errstr2[200];
  NVEOL nveol;
  char mtch_pnm();

  nveol.namestr = namestr;
  nveol.valstr = valstr;
  nveol.errstr = errstr;
  nveol.ok = FALSE;
  nveol.linenum = linenum;

  if(
     !mtch_pnm(&nveol,
      "long_outfile", &(parms->long_outfile), MP_FILENAME, NULL)
     && !mtch_pnm(&nveol,
       "short_outfile", &(parms->short_outfile), MP_FILENAME, NULL)
     && !mtch_pnm(&nveol,
       "errfunc", &(parms->errfunc), MP_SWITCH,
       "mse 0 type_1 1 pos_sum 2")
     && !mtch_pnm(&nveol,
       "regfac", &(parms->regfac), MP_FLOAT, "0. +inf")
     && !mtch_pnm(&nveol,
       "alpha", &(parms->alpha), MP_FLOAT, NULL)
     && !mtch_pnm(&nveol,
       "purpose", &(parms->purpose), MP_SWITCH,
       "classifier 0 fitter 1")
     && !mtch_pnm(&nveol,
       "boltzmann", &(parms->boltzmann), MP_SWITCH,
       "no_prune 0 abs_prune 2 square_prune 3")
     && !mtch_pnm(&nveol,
       "temperature", &(parms->temperature), MP_FLOAT, "0. +inf")
     && !mtch_pnm(&nveol,
       "patterns_infile", &(parms->patterns_infile), MP_FILENAME,
       NULL)
     && !mtch_pnm(&nveol,
       "wts_infile", &(parms->wts_infile), MP_FILENAME, NULL)
     && !mtch_pnm(&nveol,
       "wts_outfile", &(parms->wts_outfile), MP_FILENAME, NULL)
     && !mtch_pnm(&nveol,
       "npats", &(parms->npats), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "ninps", &(parms->ninps), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "nhids", &(parms->nhids), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "nouts", &(parms->nouts), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "seed", &(parms->seed), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "niter_max", &(parms->niter_max), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "egoal", &(parms->egoal), MP_FLOAT, NULL)
     && !mtch_pnm(&nveol,
       "gwgoal", &(parms->gwgoal), MP_FLOAT, NULL)
     && !mtch_pnm(&nveol,
       "nfreq", &(parms->nfreq), MP_INT, NULL)
     && !mtch_pnm(&nveol,
       "errdel", &(parms->errdel), MP_FLOAT, NULL)
     && !mtch_pnm(&nveol,
       "oklvl", &(parms->oklvl), MP_FLOAT, "0. 1.")
     && !mtch_pnm(&nveol,
       "nokdel", &(parms->nokdel), MP_INT, NULL)
     && !mtch_pnm(&nveol,
       "train_or_test", &(parms->train_or_test), MP_SWITCH,
       "train 0 test 1")
     && !mtch_pnm(&nveol,
       "acfunc_hids", &(parms->acfunc_hids), MP_SWITCH,
       "sinusoid 0 sigmoid 1 linear 2")
     && !mtch_pnm(&nveol,
       "acfunc_outs", &(parms->acfunc_outs), MP_SWITCH,
       "sinusoid 0 sigmoid 1 linear 2")
     && !mtch_pnm(&nveol,
       "priors", &(parms->priors), MP_SWITCH,
       "allsame 0 class 1 pattern 2 both 3")
     && !mtch_pnm(&nveol,
       "class_wts_infile", &(parms->class_wts_infile), MP_FILENAME,
       NULL)
     && !mtch_pnm(&nveol,
       "pattern_wts_infile", &(parms->pattern_wts_infile), MP_FILENAME,
       NULL)
     && !mtch_pnm(&nveol,
       "lcn_scn_infile", &(parms->lcn_scn_infile), MP_FILENAME, NULL)
     && !mtch_pnm(&nveol,
       "patsfile_ascii_or_binary", &(parms->patsfile_ascii_or_binary),
       MP_SWITCH, "ascii 0 binary 1")
     && !mtch_pnm(&nveol,
       "trgoff", &(parms->trgoff), MP_FLOAT, "0. 1.")
     && !mtch_pnm(&nveol,
       "lbfgs_mem", &(parms->lbfgs_mem), MP_INT, "1 +inf")
     && !mtch_pnm(&nveol,
       "scg_earlystop_pct", &(parms->scg_earlystop_pct), MP_FLOAT,
       "0. +inf")
     && !mtch_pnm(&nveol,
       "lbfgs_gtol", &(parms->lbfgs_gtol), MP_FLOAT, "1.e-04 +inf")
     && !mtch_pnm(&nveol,
       "do_confuse", &(parms->do_confuse), MP_SWITCH,
       "false 0 true 1")
     && !mtch_pnm(&nveol,
       "show_acs_times_1000", &(parms->show_acs_times_1000),
       MP_SWITCH, "false 0 true 1")
     && !mtch_pnm(&nveol,
       "do_cvr", &(parms->do_cvr), MP_SWITCH, "false 0 true 1")

     ) {

    /* supposed parm-name does not match any legal parm-name */
    sprintf(errstr2, "ERROR, line %d: illegal parm name %s",
      linenum, namestr);
    strm_fmt(errstr2, errstr);
    nveol.ok = FALSE;
  }

  return nveol.ok;
}