jashmenn-apriori 0.1.0

data/ext/util/src/params.h

@@ -0,0 +1,19 @@
+/*----------------------------------------------------------------------
+  File    : params.h
+  Contents: command line parameter retrieval
+  Author  : Christian Borgelt
+  History : 2003.06.05 file created
+----------------------------------------------------------------------*/
+#ifndef __PARAMS__
+#define __PARAMS__
+
+/*----------------------------------------------------------------------
+  Functions
+----------------------------------------------------------------------*/
+extern int getints   (char *s, char **end, int n, ...);
+extern int getdbls   (char *s, char **end, int n, ...);
+
+extern int getintvec (char *s, char **end, int n, int    *p);
+extern int getdblvec (char *s, char **end, int n, double *p);
+
+#endif

data/ext/util/src/parse.c

@@ -0,0 +1,133 @@
+/*----------------------------------------------------------------------
+  File    : parse.h
+  Contents: parser utilities
+  Author  : Christian Borgelt
+  History : 2004.08.12 file created
+            2006.02.02 error E_EDGE added
+            2007.01.16 error E_MSDCNT added
+----------------------------------------------------------------------*/
+#include <string.h>
+#include <assert.h>
+#include "parse.h"
+
+/*----------------------------------------------------------------------
+  Constants
+----------------------------------------------------------------------*/
+#ifdef GERMAN                     /* deutsche Texte */
+static const char *errmsgs[] = {  /* Fehlermeldungen */
+  /* E_CHREXP  -16 */  "\"%c\" erwartet statt %s",
+  /* E_STREXP  -17 */  "\"%s\" erwartet statt %s",
+  /* E_NUMEXP  -18 */  "Zahl erwartet statt %s",
+  /* E_NUMBER  -19 */  "ungültige Zahl %s",
+
+  /* E_ATTEXP  -20 */  "Attribut erwartet statt %s",
+  /* E_UNKATT  -21 */  "unbekanntes Attribut %s",
+  /* E_DUPATT  -22 */  "doppeltes Attribut %s",
+  /* E_MISATT  -23 */  "Attribut %s fehlt",
+  /* E_ATTRIB  -24 */  "ungültiges Attribut %s",
+  /* E_ATTYPE  -25 */  "Attribut %s hat falschen Typ",
+
+  /* E_VALEXP  -26 */  "Attributwert erwartet statt %s",
+  /* E_UNKVAL  -27 */  "unbekannter Attributwert %s",
+  /* E_DUPVAL  -28 */  "doppelter Attributwert %s",
+  /* E_MISVAL  -29 */  "fehlender Attributwert %s",
+
+  /* E_CLSEXP  -30 */  "Klassenattribut erwartet statt %s",
+  /* E_UNKCLS  -31 */  "unbekannte Klasse %s",
+  /* E_DUPCLS  -32 */  "doppelte Klasse %s",
+  /* E_MISCLS  -33 */  "Klasse %s fehlt",
+  /* E_CLSTYPE -34 */  "Klassenattribut %s hat falschen Typ",
+  /* E_CLSCNT  -35 */  "Klassenattribut %s hat zu wenige Werte",
+
+  /* E_DOMAIN  -36 */  "ungültiger Wertebereich %s",
+
+  /* E_PAREXP  -37 */  "Parameter erwartet statt %s",
+  /* E_CMPOP   -38 */  "ungültiger Vergleichsoperator %s",
+  /* E_COVMAT  -39 */  "ungültige Kovarianzmatrix",
+
+  /* E_DUPCDL  -40 */  "doppelte Kandidatenliste für Attribut %s\n",
+  /* E_RANGE   -41 */  "ungültiger Kandidatenbereich",
+  /* E_CAND    -42 */  "ungültiger Kandidat %s",
+  /* E_LINK    -43 */  "ungültiger Verweis",
+
+  /* E_LYRCNT  -44 */  "ungültige Anzahl Schichten",
+  /* E_UNITCNT -45 */  "ungültige Anzahl Einheiten",
+
+  /* E_EDGE    -46 */  "ungültiger Kantentyp %s",
+
+  /* E_MSDCNT  -47 */  "falsche Anzahl Zugehörigkeitsgrade",
+};
+#else                             /* English texts */
+static const char *errmsgs[] = {  /* error messages */
+  /* E_CHREXP  -16 */  "\"%c\" expected instead of %s",
+  /* E_STREXP  -17 */  "\"%s\" expected instead of %s",
+  /* E_NUMEXP  -18 */  "number expected instead of %s",
+  /* E_NUMBER  -19 */  "invalid number %s",
+
+  /* E_ATTEXP  -20 */  "attribute expected instead of %s",
+  /* E_UNKATT  -21 */  "unknown attribute %s",
+  /* E_DUPATT  -22 */  "duplicate attribute %s",
+  /* E_MISATT  -23 */  "missing attribute %s",
+  /* E_ATTRIB  -24 */  "invalid attribute %s",
+  /* E_ATTYPE  -25 */  "attribute %s has wrong type",
+
+  /* E_VALEXP  -26 */  "attribute value expected instead of %s",
+  /* E_UNKVAL  -27 */  "unknown attribute value %s",
+  /* E_DUPVAL  -28 */  "duplicate attribute value %s",
+  /* E_MISVAL  -29 */  "missing attribute value %s",
+
+  /* E_CLSEXP  -30 */  "class value expected instead of %s",
+  /* E_UNKCLS  -31 */  "unknown class value %s",
+  /* E_DUPCLS  -32 */  "duplicate class value %s",
+  /* E_MISCLS  -33 */  "missing class value %s",
+  /* E_CLSTYPE -34 */  "class attribute %s has wrong type",
+  /* E_CLSCNT  -35 */  "class attribute %s has too few values",
+
+  /* E_DOMAIN  -36 */  "invalid attribute domain %s",
+
+  /* E_PAREXP  -37 */  "parameter expected instead of %s",
+  /* E_CMPOP   -38 */  "invalid comparison operator %s",
+  /* E_COVMAT  -39 */  "invalid covariance matrix",
+
+  /* E_DUPCDL  -40 */  "duplicate candidate list for attribute %s\n",
+  /* E_RANGE   -41 */  "invalid candidate range",
+  /* E_CAND    -42 */  "invalid candidate %s",
+  /* E_LINK    -43 */  "invalid link",
+
+  /* E_LYRCNT  -44 */  "invalid number of layers",
+  /* E_UNITCNT -45 */  "invalid number of units",
+
+  /* E_EDGE    -46 */  "invalid edge type %s",
+
+  /* E_MSDCNT  -47 */  "wrong number of membership degrees",
+};
+#endif
+#define MSGCNT  (int)(sizeof(errmsgs)/sizeof(const char*))
+
+/*----------------------------------------------------------------------
+  Functions
+----------------------------------------------------------------------*/
+
+void pa_init (SCAN *scan)       /* --- initialize parsing */
+{ sc_errmsgs(scan, errmsgs, MSGCNT); }
+
+/*--------------------------------------------------------------------*/
+
+int pa_error (SCAN *scan, int code, int c, const char *s)
+{                               /* --- report a parse error */
+  char src[256], dst[1024];     /* buffers for string formating */
+
+  assert(scan);                 /* check the function arguments */
+  if (((code == E_DUPATT) || (code == E_MISATT)
+  ||   (code == E_DUPVAL) || (code == E_MISVAL)
+  ||   (code == E_DUPCLS) || (code == E_MISCLS)
+  ||   (code == E_CAND))  && s)
+    sc_format(dst, s,   1);     /* if "missing ..." error message, */
+  else {                        /* format the given name */
+    strncpy(src, sc_value(scan), 255); src[255] = '\0';
+    sc_format(dst, src, 1);     /* if normal error message, */
+  }                             /* copy and format the token value */
+  if      (code == E_CHREXP) return sc_error(scan, code, c, dst);
+  else if (code == E_STREXP) return sc_error(scan, code, s, dst);
+  else                       return sc_error(scan, code,    dst);
+}  /* _paerr() */               /* print an error message */

data/ext/util/src/parse.h

@@ -0,0 +1,81 @@
+/*----------------------------------------------------------------------
+  File    : parse.h
+  Contents: parser utilities
+  Author  : Christian Borgelt
+  History : 2004.08.12 file created
+            2006.02.02 error E_EDGE   added
+            2007.01.16 error E_MSDCNT added
+----------------------------------------------------------------------*/
+#ifndef __PARSE__
+#define __PARSE__
+#ifndef SC_SCAN
+#define SC_SCAN
+#endif
+#include "scan.h"
+
+/*----------------------------------------------------------------------
+  Preprocessor Definitions
+----------------------------------------------------------------------*/
+/* --- error codes --- */
+#define E_CHREXP    (-16)       /* character expected */
+#define E_STREXP    (-17)       /* string expected */
+#define E_NUMEXP    (-18)       /* number expected */
+#define E_NUMBER    (-19)       /* invalid number */
+
+#define E_ATTEXP    (-20)       /* attribute expected */
+#define E_UNKATT    (-21)       /* unknown attribute */
+#define E_DUPATT    (-22)       /* duplicate attribute value */
+#define E_MISATT    (-23)       /* missing attribute */
+#define E_ATTRIB    (-24)       /* invalid attribute */
+#define E_ATTYPE    (-25)       /* wrong attribute type */
+
+#define E_VALEXP    (-26)       /* attribute value expected */
+#define E_UNKVAL    (-27)       /* unknown attribute value */
+#define E_DUPVAL    (-28)       /* duplicate attribute value */
+#define E_MISVAL    (-29)       /* missing attribute value */
+
+#define E_CLSEXP    (-30)       /* class value expected */
+#define E_UNKCLS    (-31)       /* unknown class value */
+#define E_DUPCLS    (-32)       /* duplicate class value */
+#define E_MISCLS    (-33)       /* missing class value */
+#define E_CLSTYPE   (-34)       /* class attribute must be nominal */
+#define E_CLSCNT    (-35)       /* class attribute has too few values */
+
+#define E_DOMAIN    (-36)       /* invalid attribute domain */
+
+#define E_PAREXP    (-37)       /* parameter expected */
+#define E_CMPOP     (-38)       /* invalid comparison operator */
+#define E_COVMAT    (-39)       /* invalid covariance matrix */
+
+#define E_DUPCDL    (-40)       /* duplicate candidate list */
+#define E_RANGE     (-41)       /* invalid candidate range */
+#define E_CAND      (-42)       /* invalid candidate */
+#define E_LINK      (-43)       /* invalid link */
+
+#define E_LYRCNT    (-44)       /* invalid number of layers */
+#define E_UNITCNT   (-45)       /* invalid number of units */
+
+#define E_EDGE      (-46)       /* invalid edge type */
+
+#define E_MSDCNT    (-47)       /* wrong number of membership degrees */
+
+/*----------------------------------------------------------------------
+  Functions
+----------------------------------------------------------------------*/
+extern void pa_init  (SCAN *scan);
+extern int  pa_error (SCAN *scan, int code, int c, const char *s);
+
+/*----------------------------------------------------------------------
+  Preprocessor Definitions
+----------------------------------------------------------------------*/
+#define ERROR(c)    return pa_error(scan, c,        -1, NULL)
+#define XERROR(c,s) return pa_error(scan, c,        -1, s)
+#define ERR_CHR(c)  return pa_error(scan, E_CHREXP,  c, NULL)
+#define ERR_STR(s)  return pa_error(scan, E_STREXP, -1, s)
+#define GET_TOK()   if (sc_next(scan) < 0) \
+                      return sc_error(scan, sc_token(scan))
+#define GET_CHR(c)  if (sc_token(scan) != (c)) ERR_CHR(c); \
+                      else GET_TOK()
+#define RECOVER()   if (sc_recover(scan, ';', '{', '}', 0) == T_EOF) \
+                      return 1
+#endif