TTitanParser

type TTitanParser = class

public

  Scripter: Pointer;

  ModuleID: Integer;

  SymbolTable: TTitanSymbolTable;

  Scanner: TTitanScanner;

  ClassList: TTitanClassList;

  Code: TTitanCode;

  CurrToken: TTitanToken;

  UpCase: Boolean;

  Keywords: TKeywordList;

  LevelStack: TTitanLevelStack;

  WithStack: TTitanWithStack;

  EntryStack: TTitanEntryStack;

  UsingList: TTitanUsingList;

  TempObjectList: TTitanIds;

  ArrayArgumentList: TTitanIds;

  LocalVars: TTitanIds;

  StatementLabel: string;

  TempCount: Integer;

  DeclareSwitch: Boolean;

  FieldSwitch: Boolean;

  DirectiveSwitch: Boolean;

  OptionExplicit: Boolean;

  ShortEvalSwitch: Boolean;

  NewID: Boolean;

  ArgumentListSwitch: Boolean;

  LanguageName: string;

  FileExt: string;

  IncludeFileExt: string;

  _Language: TTitanBaseLanguage;

  DefaultCallConv: Integer;

  NamespaceAsModule: Boolean;

  SyntaxCheckOnly: Boolean;

  JavaScriptOperators: Boolean;

  DeclareVariables: Boolean;

  IsArrayInitialization: Boolean;

  VBArrays: Boolean;

  ZeroBasedStrings: Boolean;

  Backslash: Boolean;

  BlockCount: Integer;

  IsImplementationSection: Boolean;

  IsExecutable: Boolean;

  DuplicateVars: Boolean;

  WithCount: Integer;

  constructor Create; virtual;

  destructor Destroy; override;

  procedure BeginBlock;

  procedure EndBlock;

  procedure SetScripter();

  procedure Reset; virtual;

  procedure AddExtraCode();

  function NewLabel;

  function NewField();

  function NewVar();

  function NewConst();

  function NewRef;

  function IsCurrText();

  function IsNextText();

  function IsNext2Text();

  function NextToken;

  function Next2Text;

  procedure Match(); virtual;

  procedure Call_SCANNER; virtual;

  function Gen(); virtual;

  procedure GenAt();

  procedure LinkVariables();

  procedure GenRef();

  function GenEvalWith();

  function InUsing();

  function GenBeginWith();

  procedure GenEndWith();

  procedure GenHtml;

  procedure SetLabelHere();

  function IsConstant; virtual;

  function IsKeyword();

  function CurrLevel;

  function IsNestedSub();

  function GetOuterSubID();

  function LookUpID();

  function LookUpLocalID();

  function IsLabelId;

  function LA();

  function CurrClassID;

  function CurrMethodID;

  function CurrThisID;

  function CurrResultID;

  function CurrSubID;

  function CurrClassRec;

  function ToInteger();

  function ToBoolean();

  function ToString();

  function IsCallOperator();

  function UndefinedID;

  procedure RemoveLastOperator;

  function LastCodeLine;

  procedure InsertCode();

  procedure SetVars();

  function Parse_ArgumentList(); virtual;

  function Parse_ArrayLiteral; virtual;

  procedure Parse_ObjectInitializer();

  procedure GenDestroyTempObjects;

  procedure GenDestroyArrayArgumentList;

  procedure GenDestroyLocalVars; virtual;

  function OpResultType();

  procedure Parse_Program; virtual; abstract;

  procedure Parse_ImportsStmt;

  function Parse_Rank;

  function Parse_ByRef;

  function Parse_SetLabel;

  function Parse_UseLabel;

  function Parse_Constant;

  function Parse_Ident;

  function Parse_OverloadableOperator; virtual;

  procedure Parse_GoToStmt;

  procedure Parse_PrintList;

  procedure Parse_PrintlnList;

  function Parse_StringLiteral;

  function Parse_CallConv;

  procedure Parse_ReducedAssignment();

  function Parse_ShortEvalAND();

  function Parse_ShortEvalOR();

  function BinOp();

  function IsOperator();

  procedure MoveUpSourceLine;

  function IsBaseType(); virtual;

  procedure TestDupLocalVars();

  function Parse_RegExpr();

  function Parse_EvalExpression; virtual; abstract;

  function Parse_ArgumentExpression; virtual; abstract;

  procedure Parse_StmtList; virtual; abstract;

  property Name []: string; [rw]

  property NameIndex []: Integer; [rw]

  property Kind []: Integer; [rw]

  property Value []: Variant; [rw]

  property Address []: Pointer; [rw]

  property TypeID []: Integer; [rw]

  property Count []: Integer; [rw]

  property Next []: Integer; [rw]

  property TypeSub []: TTitanTypeSub; [rw]

end;

TTitanParser

TObject