home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / m6 / m67.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-07-17  |  1.3 KB  |  67 lines
  1. #define PSIZE 1000
  2. #define GSIZE 2000
  3. #define DSIZE 5000
  4.  
  5. int pmax PSIZE;
  6. char p0[PSIZE];
  7.  
  8. int gmax GSIZE;
  9. char g0[GSIZE];
  10.  
  11. int dmax DSIZE;
  12. char d0[DSIZE] {
  13.     0,0,
  14.     8,0,  0,0,  6,0,  0,0,    /*null*/
  15.     12,0, 35,0, 11,0, 't','r','a','c','e',0,
  16.     12,0, 23,0, 10,0, 'w','a','r','n',0,0,
  17.     12,0, 22,0, 10,0, 'c','o','p','y',0,0,
  18.     12,0, 32,0, 11,0, 'q','u','o','t','e',0,
  19.     14,0, 33,0, 12,0, 's','e','r','i','a','l',0,0,
  20.     12,0, 34,0, 10,0, 'l','i','s','t',0,0,
  21.     12,0, 24,0, 10,0, 's','i','z','e',0,0,
  22.     14,0, 25,0, 12,0, 's','u','b','s','t','r',0,0,
  23.     10,0, 26,0, 8,0,  'g','o',0,0,
  24.     12,0, 27,0, 10,0, 'g','o','b','k',0,0,
  25.     10,0, 28,0, 9,0,  'd','e','l',0,
  26.     10,0, 29,0, 9,0,  'd','n','l',0,
  27.     10,0, 7,0,  9,0,  's','e','q',0,
  28.     10,0, 8,0,  9,0,  's','n','e',0,
  29.     10,0, 9,0,  9,0,  'a','d','d',0,
  30.     10,0, 10,0, 9,0,  's','u','b',0,
  31.     10,0, 11,0, 9,0,  'm','p','y',0,
  32.     10,0, 12,0, 9,0,  'd','i','v',0,
  33.     10,0, 13,0, 9,0,  'e','x','p',0,
  34.     10,0, 1,0,  8,0,  'g','t',0,0,
  35.     10,0, 2,0,  8,0,  'e','q',0,0,
  36.     10,0, 3,0,  8,0,  'g','e',0,0,
  37.     10,0, 4,0,  8,0,  'l','t',0,0,
  38.     10,0, 5,0,  8,0,  'n','e',0,0,
  39.     10,0, 6,0,  8,0,  'l', 'e',0,0,
  40.     10,0, 21,0, 9,0,  'd','e','f',0,
  41.     10,0, 20,0, 8,0,  'i','f',0,
  42.     0,0
  43. };
  44.  
  45. int dummy[] {
  46.     0,
  47.     0,
  48.     6,
  49.     '$0',
  50.     0
  51. };
  52. char metas[] {
  53.     '<',
  54.     '>',
  55.     '#',
  56.     ':',
  57.     ';',
  58.     ',',
  59.     '$'
  60. };
  61.  
  62. int rescan 1;
  63. int traceflag 0;
  64. int trashflag 0;
  65. char one[] { 
  66.     '1',0 };
  67.