ACE/apps/gperf/tests/gpc.gperf

   1 %{
   2 /* ISO Pascal 7185 reserved words.
   3  *
   4  * For GNU Pascal compiler (GPC) by jtv@hut.fi
   5  *
   6  * run this through the Doug Schmidt's gperf program
   7  * with command
   8  * gperf  -g -o -j1 -t -p -N is_reserved_word
   9  *
  10  */
  11 %}
  12 struct resword { const char *name; short token; short iclass;};
  13 %%
  14 And,  AND,  PASCAL_ISO
  15 Array,  ARRAY,  PASCAL_ISO
  16 Begin,  BEGIN_, PASCAL_ISO
  17 Case, CASE, PASCAL_ISO
  18 Const,  CONST,  PASCAL_ISO
  19 Div,  DIV,  PASCAL_ISO
  20 Do, DO, PASCAL_ISO
  21 Downto, DOWNTO, PASCAL_ISO
  22 Else, ELSE, PASCAL_ISO
  23 End,  END,  PASCAL_ISO
  24 File, FILE_,  PASCAL_ISO
  25 For,  FOR,  PASCAL_ISO
  26 Function, FUNCTION, PASCAL_ISO
  27 Goto, GOTO, PASCAL_ISO
  28 If, IF, PASCAL_ISO
  29 In, IN, PASCAL_ISO
  30 Label,  LABEL,  PASCAL_ISO
  31 Mod,  MOD,  PASCAL_ISO
  32 Nil,  NIL,  PASCAL_ISO
  33 Not,  NOT,  PASCAL_ISO
  34 Of, OF, PASCAL_ISO
  35 Or, OR, PASCAL_ISO
  36 Packed, PACKED, PASCAL_ISO
  37 Procedure, PROCEDURE, PASCAL_ISO
  38 Program,PROGRAM,PASCAL_ISO
  39 Record, RECORD, PASCAL_ISO
  40 Repeat, REPEAT, PASCAL_ISO
  41 Set,  SET,  PASCAL_ISO
  42 Then, THEN, PASCAL_ISO
  43 To, TO, PASCAL_ISO
  44 Type, TYPE, PASCAL_ISO
  45 Until,  UNTIL,  PASCAL_ISO
  46 Var,  VAR,  PASCAL_ISO
  47 While,  WHILE,  PASCAL_ISO
  48 With, WITH, PASCAL_ISO