TBaseWebIDLToPas

type TBaseWebIDLToPas = class(TPascalCodeGenerator)

protected

  procedure TrimList(); virtual;

  procedure AddOptionsToHeader;

  procedure Parse; virtual;

  procedure WritePascal; virtual;

  function CreateParser(); virtual;

  function CreateScanner(); virtual;

  function CreateContext; virtual;

  procedure GetOptions(); virtual;

  procedure ProcessDefinitions; virtual;

  function CreatePasData(); virtual;

  function ClonePasData(); virtual;

  procedure AllocatePasNames(); virtual;

  function AllocatePasName(); virtual;

  procedure AddJSIdentifier(); virtual;

  procedure ResolveParentInterfaces(); virtual;

  procedure ResolveParentInterface(); virtual;

  procedure ResolveTypeDefs(); virtual;

  procedure ResolveTypeDef(); virtual;

  procedure RemoveInterfaceForwards(); virtual;

  function FindGlobalDef(); virtual;

  function GetDefPos(); virtual;

  function GetPasDataPos(); virtual;

  procedure EnsureUniqueNames(); virtual;

  procedure EnsureUniqueArgNames(); virtual;

  function AddSequenceDef(); virtual;

  function GetName(); virtual;

  function GetPasClassName(); virtual; overload;

  function GetTypeName();

  function GetResolvedType(); virtual; overload;

  function GetSequenceTypeName(); virtual;

  function GetInterfaceDefHead(); 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 WriteFunctionImplicitTypes(); virtual;

  function WriteAttributeImplicitTypes(); virtual;

  function WriteOtherImplicitTypes(); virtual;

  function WriteDictionaryMemberImplicitTypes(); virtual;

  function WriteDictionaryDefs(); virtual;

  function WriteForwardClassDefs(); virtual;

  function WriteInterfaceDefs(); 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 WritePrivateGetters(); virtual;

  function WritePrivateSetters(); 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 WriteDictionaryDef(); virtual;

  procedure WriteAliasTypeDef(); virtual;

  procedure WritePromiseDef(); virtual;

  procedure WriteSequenceDef(); virtual;

  procedure WriteUnionDef(); virtual;

  procedure WriteGlobalVars; virtual;

  procedure WriteImplementation; virtual;

  procedure WriteIncludeInterfaceCode; virtual;

  property Context: TWebIDLContext; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute; virtual;

  procedure WriteOptions; virtual;

  function IsKeyWord(); override;

  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 IncludeInterfaceCode: TStrings; [rw]

  property IncludeImplementationCode: TStrings; [rw]

  property DictionaryClassParent: string; [rw]

  property BaseOptions: TBaseConversionOptions; [rw]

  property PasDataClass: TPasDataClass; [rw]

end;

TBaseWebIDLToPas

TObject