tokenty

type tokenty = record

  value: lstringty;

  state: tokenstatesty;

  case kind: tokenkindty of

    tk_operator: (

        op: Char;

      );

    tk_newline: (

        linenr: Integer;

      );

    tk_include: (

        filenr: Integer;

      );

end;