TWebIDLToPasWasmJob

type TWebIDLToPasWasmJob = class(TBaseWebIDLToPas)

protected

  FWritingPasInterface: Boolean;

  function BaseUnits; override;

  function GetPasClassName(); override; overload;

  function IntfToPasClassName(); virtual;

  function ComputeGUID(); virtual;

  procedure GetOptions(); override;

  function GetTypeName(); override;

  function GetPasIntfName();

  function GetResolvedType(); override; overload;

  function GetInterfaceDefHead(); override;

  function GetDictionaryDefHead(); override;

  function WriteOtherImplicitTypes(); override;

  function WritePrivateGetters(); override;

  function WritePrivateSetters(); override;

  function WriteProperties(); override;

  function WriteUtilityMethods(); override;

  function WriteEnumDef(); override;

  function WriteDictionaryField(); override;

  function WriteForwardClassDef(); override;

  function WriteFunctionDefinition(); override;

  function WriteFunctionTypeDefinition(); override;

  function WritePrivateGetter(); virtual;

  function WritePrivateSetter(); virtual;

  function WriteProperty(); virtual;

  function WriteRecordDef(); override;

  procedure WriteSequenceDef(); override;

  procedure WriteGlobalVars; override;

  procedure WriteImplementation; override;

public

  constructor Create(); override;

  function SplitGlobalVar(); virtual;

published

  property BaseOptions: TBaseConversionOptions;

  property ClassPrefix: string;

  property ClassSuffix: string;

  property PasInterfacePrefix: string; [rw]

  property PasInterfaceSuffix: string; [rw]

  property DictionaryClassParent: string;

  property FieldPrefix: string;

  property GetterPrefix: string;

  property SetterPrefix: string;

  property IncludeImplementationCode: TStrings;

  property IncludeInterfaceCode: TStrings;

  property InputFileName: string;

  property OutputFileName: string;

  property TypeAliases: TStrings;

  property Verbose: Boolean;

  property WebIDLVersion: TWebIDLVersion;

end;

TWebIDLToPasWasmJob

TBaseWebIDLToPas

TObject