开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 人工智能/神经网络 > 查看源码
parse.c
资源名称：apriori(c).zip　[点击查看]
上传用户：lengbin
上传日期：2010-03-31
资源大小：121k
文件大小：5k
源码类别：

人工智能/神经网络

开发平台：

C/C++

parse.c：源码内容
  1. /*----------------------------------------------------------------------
  2.   File    : parse.h
  3.   Contents: parser utilities
  4.   Author  : Christian Borgelt
  5.   History : 12.08.2004 file created
  6. ----------------------------------------------------------------------*/
  7. #include <string.h>
  8. #include <assert.h>
  9. #include "parse.h"
  11. /*----------------------------------------------------------------------
  12.   Constants
  13. ----------------------------------------------------------------------*/
  14. #ifdef GERMAN                     /* deutsche Texte */
  15. static const char *errmsgs[] = {  /* Fehlermeldungen */
  16.   /* E_CHREXP  -16 */  ""%c" erwartet statt %s",
  17.   /* E_STREXP  -17 */  ""%s" erwartet statt %s",
  18.   /* E_NUMEXP  -18 */  "Zahl erwartet statt %s",
  19.   /* E_ILLNUM  -19 */  "ungültige Zahl %s",
  21.   /* E_ATTEXP  -20 */  "Attribut erwartet statt %s",
  22.   /* E_UNKATT  -21 */  "unbekanntes Attribut %s",
  23.   /* E_DUPATT  -22 */  "doppeltes Attribut %s",
  24.   /* E_MISATT  -23 */  "Attribut %s fehlt",
  25.   /* E_ILLATT  -24 */  "ungültiges Attribut %s",
  26.   /* E_ATTYPE  -25 */  "Attribut %s hat falschen Typ",
  28.   /* E_VALEXP  -26 */  "Attributwert erwartet statt %s",
  29.   /* E_UNKVAL  -27 */  "unbekannter Attributwert %s",
  30.   /* E_DUPVAL  -28 */  "doppelter Attributwert %s",
  31.   /* E_MISVAL  -29 */  "fehlender Attributwert %s",
  33.   /* E_CLSEXP  -30 */  "Klassenattribut erwartet statt %s",
  34.   /* E_UNKCLS  -31 */  "unbekannte Klasse %s",
  35.   /* E_DUPCLS  -32 */  "doppelte Klasse %s",
  36.   /* E_MISCLS  -33 */  "Klasse %s fehlt",
  37.   /* E_CLSTYPE -34 */  "Klassenattribut %s hat falschen Typ",
  38.   /* E_CLSCNT  -35 */  "Klassenattribut %s hat zu wenige Werte",
  40.   /* E_DOMAIN  -36 */  "ungültiger Wertebereich %s",
  42.   /* E_PAREXP  -37 */  "Parameter erwartet statt %s",
  43.   /* E_ILLOP   -38 */  "ungültiger Vergleichsoperator %s",
  44.   /* E_ILLMAT  -39 */  "ungültige Kovarianzmatrix",
  46.   /* E_DUPCDL  -40 */  "doppelte Kandidatenliste für Attribut %sn",
  47.   /* E_RANGE   -41 */  "ungültiger Kandidatenbereich",
  48.   /* E_ILLCDD  -42 */  "ungültiger Kandidat %s",
  49.   /* E_ILLINK  -43 */  "ungültiger Verweis",
  51.   /* E_LYRCNT  -44 */  "ungültige Anzahl Schichten",
  52.   /* E_UNITCNT -45 */  "ungültige Anzahl Einheiten",
  53. };
  54. #else                             /* English texts */
  55. static const char *errmsgs[] = {  /* error messages */
  56.   /* E_CHREXP  -16 */  ""%c" expected instead of %s",
  57.   /* E_STREXP  -17 */  ""%s" expected instead of %s",
  58.   /* E_NUMEXP  -18 */  "number expected instead of %s",
  59.   /* E_ILLNUM  -19 */  "illegal number %s",
  61.   /* E_ATTEXP  -20 */  "attribute expected instead of %s",
  62.   /* E_UNKATT  -21 */  "unknown attribute %s",
  63.   /* E_DUPATT  -22 */  "duplicate attribute %s",
  64.   /* E_MISATT  -23 */  "missing attribute %s",
  65.   /* E_ILLATT  -24 */  "illegal attribute %s",
  66.   /* E_ATTYPE  -25 */  "attribute %s has wrong type",
  68.   /* E_VALEXP  -26 */  "attribute value expected instead of %s",
  69.   /* E_UNKVAL  -27 */  "unknown attribute value %s",
  70.   /* E_DUPVAL  -28 */  "duplicate attribute value %s",
  71.   /* E_MISVAL  -29 */  "missing attribute value %s",
  73.   /* E_CLSEXP  -30 */  "class value expected instead of %s",
  74.   /* E_UNKCLS  -31 */  "unknown class value %s",
  75.   /* E_DUPCLS  -32 */  "duplicate class value %s",
  76.   /* E_MISCLS  -33 */  "missing class value %s",
  77.   /* E_CLSTYPE -34 */  "class attribute %s has wrong type",
  78.   /* E_CLSCNT  -35 */  "class attribute %s has too few values",
  80.   /* E_DOMAIN  -36 */  "illegal attribute domain %s",
  82.   /* E_PAREXP  -37 */  "parameter expected instead of %s",
  83.   /* E_ILLOP   -38 */  "illegal comparison operator %s",
  84.   /* E_ILLMAT  -39 */  "illegal covariance matrix",
  86.   /* E_DUPCDL  -40 */  "duplicate candidate list for attribute %sn",
  87.   /* E_RANGE   -41 */  "illegal candidate range",
  88.   /* E_ILLCDD  -42 */  "illegal candidate %s",
  89.   /* E_ILLINK  -43 */  "illegal link",
  91.   /* E_LYRCNT  -44 */  "illegal number of layers",
  92.   /* E_UNITCNT -45 */  "illegal number of units",
  93. };
  94. #endif
  95. #define MSGCNT  (int)(sizeof(errmsgs)/sizeof(const char*))
  97. /*----------------------------------------------------------------------
  98.   Functions
  99. ----------------------------------------------------------------------*/
  101. void pa_init (SCAN *scan)       /* --- initialize parsing */
  102. { sc_errmsgs(scan, errmsgs, MSGCNT); }
  104. /*--------------------------------------------------------------------*/
  106. int pa_error (SCAN *scan, int code, int c, const char *s)
  107. {                               /* --- report a parse error */
  108.   char src[256], dst[1024];     /* buffers for string formating */
  110.   assert(scan);                 /* check the function arguments */
  111.   if (((code == E_DUPATT) || (code == E_MISATT)
  112.   ||   (code == E_DUPVAL) || (code == E_MISVAL)
  113.   ||   (code == E_DUPCLS) || (code == E_MISCLS)
  114.   ||   (code == E_ILLCDD)) && s)
  115.     sc_format(dst, s,   1);     /* if "missing ..." error message, */
  116.   else {                        /* format the given name */
  117.     strncpy(src, sc_value(scan), 255); src[255] = '';
  118.     sc_format(dst, src, 1);     /* if normal error message, */
  119.   }                             /* copy and format the token value */
  120.   if      (code == E_CHREXP) return sc_error(scan, code, c, dst);
  121.   else if (code == E_STREXP) return sc_error(scan, code, s, dst);
  122.   else                       return sc_error(scan, code,    dst);
  123. }  /* _paerr() */               /* print an error message */