%{
/* ISO Pascal 7185 reserved words.
 *
 * For GNU Pascal compiler (GPC) by jtv@hut.fi
 *
 * run this through the Doug Schmidt's gperf program
 * with command
 * gperf  -g -o -j1 -t -p -N is_reserved_word
 *
 */
%}
struct resword { const char *name; short token; short iclass;};
%%
And,  AND,  PASCAL_ISO
Array,  ARRAY,  PASCAL_ISO
Begin,  BEGIN_, PASCAL_ISO
Case, CASE, PASCAL_ISO
Const,  CONST,  PASCAL_ISO
Div,  DIV,  PASCAL_ISO
Do, DO, PASCAL_ISO
Downto, DOWNTO, PASCAL_ISO
Else, ELSE, PASCAL_ISO
End,  END,  PASCAL_ISO
File, FILE_,  PASCAL_ISO
For,  FOR,  PASCAL_ISO
Function, FUNCTION, PASCAL_ISO
Goto, GOTO, PASCAL_ISO
If, IF, PASCAL_ISO
In, IN, PASCAL_ISO
Label,  LABEL,  PASCAL_ISO
Mod,  MOD,  PASCAL_ISO
Nil,  NIL,  PASCAL_ISO
Not,  NOT,  PASCAL_ISO
Of, OF, PASCAL_ISO
Or, OR, PASCAL_ISO
Packed, PACKED, PASCAL_ISO
Procedure, PROCEDURE, PASCAL_ISO
Program,PROGRAM,PASCAL_ISO
Record, RECORD, PASCAL_ISO
Repeat, REPEAT, PASCAL_ISO
Set,  SET,  PASCAL_ISO
Then, THEN, PASCAL_ISO
To, TO, PASCAL_ISO
Type, TYPE, PASCAL_ISO
Until,  UNTIL,  PASCAL_ISO
Var,  VAR,  PASCAL_ISO
While,  WHILE,  PASCAL_ISO
With, WITH, PASCAL_ISO