TDiscoveryJSONToPas

type TDiscoveryJSONToPas = class(TRestCodeGenerator)

protected

  procedure AssignParamNames(); virtual;

  function BaseUnits; override;

  function GetPropertyType();

  procedure CollectTypes();

  procedure ResolveRefs;

  procedure CreateInterface;

  procedure CreateImplementation;

  procedure CreateSetArrayLength();

  procedure CreateExportPropertyName();

  procedure CreateClassDeclaration();

  procedure CreateArrayClassDeclaration();

  procedure CreateClassImplementation();

  procedure CreateArrayClassImplementation();

  procedure CreateArrayClassEnumeratorImplementation();

  function GetAPIClassName;

  procedure CreateAPIClassDeclaration;

  procedure CreateAPIClassImplementation;

  function ConstructResourcePrefix();

  procedure CreateResourceClassImplementations();

  procedure CreateResourceAPIFunctionImplementations(); virtual;

  procedure CreateResourceInstanceFields();

  procedure CreateResourceInstanceGetters();

  procedure CreateResourceAPI();

  procedure CreateResourceProperties();

  function GetResourceClassName();

  procedure CreateResourceDeclarations();

  procedure CreateResourceClassDeclaration();

  procedure CreateResourceClassImplementation();

  procedure CreateResourceClassMethodsImplementation();

  procedure CreateResourceMethodImplementation();

  procedure CreateResourceMethodImplementationOptions();

  function GetResourceMethodSignature();

  function DescribeMethodParams();

  function HavePathParams();

  function HaveQueryParams();

  procedure CreateResourceMethodQueryParams();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure LoadFromJSON(); virtual;

  procedure Execute; override;

  class procedure RegisterAllObjects;

  property APIClassName: string; [r]

  property UseListForArray: Boolean; [r]

  property FlatResources: Boolean; [r]

published

  property Description: TGoogleRestDescription; [r]

  property ResourceSuffix: string; [rw]

  property ArrayItemSuffix: string; [rw]

  property PropertyTypeSuffix: string; [rw]

  property CodeOptions: TGoogleCodeOptions; [rw]

end;

TDiscoveryJSONToPas

TObject