home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / X_PROLOG.LZH / X_PROLOG / SOURCES / CHARSET.H < prev    next >
Text File  |  1990-08-13  |  2KB  |  46 lines
  1. /*
  2.  *        X PROLOG  Vers. 2.0
  3.  *
  4.  *
  5.  *    Written by :     Andreas Toenne
  6.  *            CS Dept. , IRB
  7.  *            University of Dortmund, W-Germany
  8.  *            <at@unido.uucp>
  9.  *            <....!seismo!unido!at>
  10.  *            <at@unido.bitnet>
  11.  *
  12.  *    Copyright :    This software is copyrighted by Andreas Toenne.
  13.  *            Permission is granted hereby to copy the entire
  14.  *            package including this copyright notice without fee.
  15.  *
  16.  */
  17.  
  18. /*    character set for the parser    */
  19.  
  20. short ctype[] = {
  21. /* the first 32 characters are control character and should be blank */
  22. BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK,
  23. BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK,
  24. BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK, BLANK,
  25. BLANK, BLANK,
  26. /* space, !,     "       #       $      %       &      '       (        )       */
  27. BLANK, SINGLE, STRING, SYMBOL, LOWER, SINGLE, SYMBOL, QUOTE, BRACKET, BRACKET,
  28. /* *      +        ,        -       .      /       0      1      2      3   */
  29. SYMBOL, SYMBOL, BRACKET, SYMBOL, SYMBOL, SYMBOL, DIGIT, DIGIT, DIGIT, DIGIT,
  30. /* 4     5      6      7      8      9      :       ;       <        =    */
  31. DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, SYMBOL, SINGLE, SYMBOL, SYMBOL,
  32. /* >       ?       @      A      B      C      D      E      F      G     */
  33. SYMBOL, SYMBOL, SYMBOL, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER,
  34. /* H     I      J      K      L      M      N      O      P      Q      R    */
  35. UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER,
  36. /* S     T      U      V      W      X      Y      Z       [       \     */
  37. UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, UPPER, BRACKET, SYMBOL,
  38. /* ]        ^      _      `       a      b      c      d      e      f      */
  39. BRACKET, SYMBOL, UPPER, SYMBOL, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER,
  40. /*g      h      i      j      k      l      m      n      o      p      q   */
  41. LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER,
  42. /*r      s      t      u      v      w      x      y      z      {    */
  43. LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, LOWER, BRACKET,
  44. /* |        }       ~       delete */
  45. BRACKET, BRACKET, SYMBOL, BLANK };
  46.