TGScanner

type TGScanner = object

  user_data: gpointer;

  max_parse_errors: guint;

  parse_errors: guint;

  input_name: Pgchar;

  qdata: PGData;

  config: PGScannerConfig;

  token: TGTokenType;

  value: TGTokenValue;

  line: guint;

  position: guint;

  next_token: TGTokenType;

  next_value: TGTokenValue;

  next_line: guint;

  next_position: guint;

  symbol_table: PGHashTable;

  input_fd: gint;

  text: Pgchar;

  text_end: Pgchar;

  buffer: Pgchar;

  scope_id: guint;

  msg_handler: TGScannerMsgFunc;

  function cur_line;

  function cur_position;

  function cur_token;

  function cur_value;

  procedure destroy_;

  function eof;

  function get_next_token;

  procedure input_file();

  procedure input_text();

  function lookup_symbol();

  function peek_next_token;

  procedure scope_add_symbol();

  procedure scope_foreach_symbol();

  function scope_lookup_symbol();

  procedure scope_remove_symbol();

  function set_scope();

  procedure sync_file_offset;

  procedure unexp_token();

  function new();

end;

TGScanner