TTypescriptToPas

type TTypescriptToPas = class(TPascalCodeGenerator)

protected

  function GetGenericParams(); virtual;

  procedure AddOptionsToHeader;

  procedure PushNameScope;

  procedure PopNameScope;

  function NameScopeHas();

  procedure AddToNameScope();

  procedure Parse; virtual;

  procedure WritePascal; virtual;

  function NeedsTypeMap();

  function CreateParser(); virtual;

  function CreateScanner(); virtual;

  function CreateContext; virtual;

  function BaseUnits; override;

  procedure WriteLinkStatements();

  procedure Getoptions(); virtual;

  procedure ProcessDefinitions; virtual;

  function ExportNode();

  function CheckUnionTypeDefinition();

  function CreatePasName(); virtual;

  function TypeNeedsTypeName();

  procedure AllocatePasNames();

  function AllocatePasName(); virtual;

  procedure EnsureUniqueNames(); virtual;

  function GetExternalMemberName();

  function GetName();

  function HaveConsts(); virtual;

  function GetTypeName();

  function GetOverloads();

  procedure AddOverloadParams();

  procedure AddUnionOverloads();

  procedure AddParameterToOverloads();

  function CloneNonPartialParameterList();

  function GetArguments();

  function WriteFunctionDefinition();

  function WriteFunctionDefs();

  function WritePrivateReadOnlyField();

  function WriteReadonlyProperty();

  function WritePropertyDef();

  function WriteReadOnlyPropFields();

  function WriteAmbientClassDef();

  function WriteClassDefs();

  function WriteForwardClass();

  function WriteForwardClassDef();

  function WriteForwardClassDefs();

  function WriteNamespaceDef();

  function WriteNamespaceDefs();

  function WriteModuleDef();

  function WriteModuleDefs();

  function WriteInterfaceDef();

  function WriteInterfaceDefs();

  procedure WritePropertyDeclaration();

  function WriteProperties();

  function WriteObjectMethods();

  procedure WriteIndexSignature();

  procedure WriteVariable();

  procedure WriteVariables(); virtual;

  function GetTypeAsString();

  function GetArrayTypeAsString();

  function GetAliasTypeAsString();

  function GetIntersectionTypeAsString();

  function GetUnionTypeAsString();

  function GetEnumTypeAsString();

  function GetFixedValueTypeAsString();

  function GetTupleTypeAsString();

  procedure WriteTypeDefs(); virtual;

  procedure WriteObjectTypeMembers();

  procedure WriteObjectTypedef(); virtual;

  procedure WriteAliasTypeDef(); virtual;

  procedure WriteUnionTypeDef(); virtual;

  procedure WriteTupleTypeDef(); virtual;

  procedure WriteIntersectionTypeDef(); virtual;

  procedure WriteArrayTypeDef(); virtual;

  procedure WriteEnumTypeDef(); virtual;

  function WriteFunctionTypeDef(); virtual;

  procedure WriteTypeDef(); virtual;

  function HasIndirectTypeDefs();

  function AllocateIndirectTypeDef();

  function AllocateIndirectTypeDefs();

  function AllocateTypeName();

  function WriteIndirectTypeDefs();

  function WriteClassIndirectTypeDefs();

  function WritePropertyTypeDefs();

  function WriteMethodParameterDefs();

  procedure WriteSourceElements();

  procedure WriteImports();

  procedure WriteImplementation; virtual;

  procedure WriteIncludeInterfaceCode; virtual;

  property Elements: TJSFunctionBody; [r]

  property Context: TTSContext; [r]

  property IsRaw: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute;

  property InputStream: TStream; [rw]

published

  property InputFileName: string; [rw]

  property OutputFileName: string; [rw]

  property Verbose: Boolean; [rw]

  property FieldPrefix: string; [rw]

  property ClassPrefix: string; [rw]

  property ClassSuffix: string; [rw]

  property Options: TConversionOptions; [rw]

  property ECMAVersion: TECMAVersion; [rw]

  property TypeAliases: TStrings; [rw]

  property IncludeInterfaceCode: TStrings; [rw]

  property IncludeImplementationCode: TStrings; [rw]

  property DictionaryClassParent: string; [rw]

  property DefaultClassParent: string; [rw]

  property LinkStatements: TStrings; [rw]

end;

TTypescriptToPas

TObject