TBaseWebIDLToPas

type TBaseWebIDLToPas = class(TPascalCodeGenerator)

protected

  function CheckExistingSequence();

  function CheckExistingUnion();

  function GetAliasPascalType();

  procedure TrimList(); virtual;

  procedure AddOptionsToHeader;

  procedure Parse; virtual;

  procedure WritePascal; virtual;

  function CreateParser(); virtual;

  function CreateScanner(); virtual;

  function CreateContext; virtual;

  function CheckChromeOnly();

  function MarkUsed();

  procedure MarkUsedDefinitions();

  procedure PropagateChromeOnly();

  procedure AddFullMemberList();

  function GetFullMemberList();

  function GetParentsMemberList();

  procedure GetOptions(); virtual;

  procedure ProcessDefinitions; virtual;

  function CreatePasData(); virtual;

  function ClonePasData(); virtual;

  procedure AddGlobalJSIdentifier(); virtual;

  procedure ResolveParentInterfaces(); virtual;

  procedure ResolveParentInterface();

  procedure ResolveTypeDefs(); virtual;

  procedure ResolveTypeDef(); virtual;

  procedure RemoveInterfaceForwards(); virtual;

  function ConvertDef();

  function FindGlobalDef(); virtual;

  function GetDefPos(); virtual;

  function GetPasDataPos(); virtual;

  function AddSequenceDef(); virtual;

  function AddUnionDef(); virtual;

  procedure EnsureUniqueNames(); virtual;

  procedure EnsureUniqueArgNames(); virtual;

  procedure AllocatePasNames(); virtual;

  function AllocatePasName(); virtual;

  function AllocateArgumentPasName(); virtual;

  function AllocateAttributePasName(); virtual;

  function AllocateCallbackPasName(); virtual;

  function AllocateDefaultPasName(); virtual;

  function AllocateDictionaryMemberPasName(); virtual;

  function AllocateDictionaryPasName(); virtual;

  function AllocateFunctionPasName(); virtual;

  function AllocateInterfacePasName(); virtual;

  function AllocateNamespacePasName(); virtual;

  function AllocateSequencePasName(); virtual;

  function AllocatePromisePasName(); virtual;

  function AllocateUnionPasName(); virtual;

  function AllocateMapLikePasName(); virtual;

  function AllocateEnumeratedPasName(); virtual;

  function AllocateConstPasName(); virtual;

  function GetPasName(); virtual;

  function GetPasNativeType(); virtual;

  function GetPasNativeTypeAndName(); virtual;

  function GetPasClassName(); virtual; overload;

  function IDLToPascalNativeType(); virtual;

  function GetPascalTypeAndName(); virtual; overload;

  function GetPascalTypeName();

  function GetJSTypeName(); virtual; overload;

  function GetResolvedType(); virtual; overload;

  function ConstructSequenceTypeName(); virtual;

  function GetInterfaceDefHead(); virtual;

  function GetNamespaceDefHead(); virtual;

  function GetDictionaryDefHead(); virtual;

  function CheckUnionTypeDefinition(); virtual;

  function CloneArgument(); virtual;

  procedure AddArgumentToOverloads();

  procedure AddUnionOverloads(); virtual;

  procedure AddOverloads(); virtual;

  function CloneNonPartialArgumentList(); virtual;

  function GetOverloads(); virtual;

  function GetArguments(); virtual;

  function HaveConsts(); virtual;

  function WriteImplicitAutoType();

  function WriteFunctionImplicitTypes(); virtual;

  function WriteAttributeImplicitTypes(); virtual;

  function WriteDictionaryImplicitTypes(); virtual;

  function WriteOtherImplicitTypes(); virtual;

  function WriteDictionaryMemberImplicitTypes(); virtual;

  function WriteDictionaryDefs(); virtual;

  function WriteForwardClassDefs(); virtual;

  function WriteInterfaceDefs(); virtual;

  function WriteNamespaceDefs(); virtual;

  function WriteMethodDefs(); virtual;

  function WriteUtilityMethods(); virtual;

  function WriteTypeDefsAndCallbacks(); virtual;

  function WriteEnumDefs(); virtual;

  function WriteConsts(); virtual;

  function WriteProperties(); virtual;

  function WritePlainFields(); virtual;

  function WriteDictionaryFields(); virtual;

  function WritePrivateReadOnlyFields(); virtual;

  function WriteGetters(); virtual;

  function WriteSetters(); virtual;

  function WriteMapLikePrivateReadOnlyFields(); virtual;

  function WriteMapLikeMethodDefinitions(); virtual;

  function WriteMapLikeProperties(); virtual;

  function WriteMapLikeGetters(); virtual;

  procedure WriteDefinitionImplementation(); virtual;

  procedure WriteTypeDefsAndCallbackImplementations(); virtual;

  function WriteForwardClassDef(); virtual;

  function WriteFunctionTypeDefinition(); virtual;

  function WriteFunctionDefinition(); virtual;

  function WriteTypeDef(); virtual;

  function WriteRecordDef(); virtual;

  function WriteEnumDef(); virtual;

  function WriteDictionaryField(); virtual;

  function WriteField(); virtual;

  function WriteConst(); virtual;

  function WriteInterfaceDef(); virtual;

  function WriteNamespaceDef(); virtual;

  function WriteDictionaryDef(); virtual;

  procedure WriteAliasTypeDef(); virtual;

  procedure WritePromiseDef(); virtual;

  procedure WriteSequenceDef(); virtual;

  procedure WriteUnionDef(); virtual;

  procedure WriteGlobalVar(); virtual;

  procedure WriteNamespaceVars; virtual;

  procedure WriteGlobalVars;

  procedure WriteImplementation; virtual;

  procedure WriteIncludeInterfaceCode; virtual;

  property Context: TWebIDLContext; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute; virtual;

  procedure WriteOptions; virtual;

  procedure SetUsedList();

  function IsKeyWord(); override;

  property GeneratingImplementation: Boolean; [r]

  property InputFileName: string; [rw]

  property InputStream: TStream; [rw]

  property OutputFileName: string; [rw]

  property OutputStream: TStream; [rw]

  property Verbose: Boolean; [rw]

  property FieldPrefix: string; [rw]

  property ClassPrefix: string; [rw]

  property ClassSuffix: string; [rw]

  property ArrayPrefix: string; [rw]

  property ArraySuffix: string; [rw]

  property GetterPrefix: string; [rw]

  property SetterPrefix: string; [rw]

  property TypePrefix: string; [rw]

  property WebIDLVersion: TWebIDLVersion; [rw]

  property TypeAliases: TStrings; [rw]

  property GlobalVars: TStrings; [rw]

  property Banned: TStrings; [rw]

  property IncludeInterfaceCode: TStrings; [rw]

  property IncludeImplementationCode: TStrings; [rw]

  property DictionaryClassParent: string; [rw]

  property BaseOptions: TBaseConversionOptions; [rw]

  property PasDataClass: TPasDataClass; [rw]

end;

TBaseWebIDLToPas

TObject