UNIX Free Pascal


.. lex - 2


goto begin yydone:=true; yyretval:=_GOTO; end;

if begin yydone:=true; yyretval:=_IF; end;

implementation begin yydone:=true; yyretval:=_IMPLEMENTATION; end;

in begin yydone:=true; yyretval:=_IN; end;

inherited begin yydone:=true; yyretval:=_INHERITED; end;

inline begin yydone:=true; yyretval:=_INLINE; end;

interface begin yydone:=true; yyretval:=_INTERFACE; end;

label begin yydone:=true; yyretval:=_LABEL; end;

library begin yydone:=true; yyretval:=_LIBRARY; end;

mod begin yydone:=true; yyretval:=_MOD; end;

nil begin yydone:=true; yyretval:=_NIL; end;

not begin yydone:=true; yyretval:=_NOT; end;

object begin yydone:=true; yyretval:=_OBJECT; end;

of begin yydone:=true; yyretval:=_OF; end;

or begin yydone:=true; yyretval:=_OR; end;

packed begin yydone:=true; yyretval:=_PACKED; end;

procedure begin yydone:=true; yyretval:=_PROCEDURE; end;

[pP][rR][oO][gG][rR][aA][mM] begin yydone:=true; yyretval:=_PROGRAM; end;

record begin yydone:=true; yyretval:=_RECORD; end;

repeat begin yydone:=true; yyretval:=_REPEAT; end;

set begin yydone:=true; yyretval:=_SET; end;

shl begin yydone:=true; yyretval:=_SHL; end;

shr begin yydone:=true; yyretval:=_SHR; end;

string begin yydone:=true; yyretval:=_STRING; end;

then begin yydone:=true; yyretval:=_THEN; end;

to begin yydone:=true; yyretval:=_TO; end;

type begin yydone:=true; yyretval:=_TYPE; end;

unit begin yydone:=true; yyretval:=_UNIT; end;

until begin yydone:=true; yyretval:=_UNTIL; end;

uses begin yydone:=true; yyretval:=_USES; end;

var begin yydone:=true; yyretval:=_VAR; end;

while begin yydone:=true; yyretval:=_WHILE; end;

with begin yydone:=true; yyretval:=_WITH; end;

xor begin yydone:=true; yyretval:=_XOR; end;




- -  - -  - -