ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/MAGAZINE/MISC/PCTV2N4.ZIP/TOKDEMO.PAS

Pascal/Delphi Source File | 1990-11-23 | 378 b | 18 lines

PROGRAM TokDemo;
  { Demonstrates tokenizer by reading a file }
  { one token at a time and writing it out. }

USES Tokenizer;

VAR s: string; f: text;

BEGIN
  write('File to read: ');  readln(s);
  assign(f,s);  reset(f);
  WHILE NOT eof(f) DO
    BEGIN
      readtoken(f,s);
      writeln(KindName[KindOfToken]:15,' "',s,'"')
    END;
  writeln('Done.')
END.