12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862 |
- unit googleruntimeconfig;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TStatus = Class;
- TListConfigsResponse = Class;
- TVariable = Class;
- TOperation = Class;
- TWaiter = Class;
- TRuntimeConfig = Class;
- TListWaitersResponse = Class;
- TEndCondition = Class;
- TCardinality = Class;
- TEmpty = Class;
- TWatchVariableRequest = Class;
- TListVariablesResponse = Class;
- TStatusArray = Array of TStatus;
- TListConfigsResponseArray = Array of TListConfigsResponse;
- TVariableArray = Array of TVariable;
- TOperationArray = Array of TOperation;
- TWaiterArray = Array of TWaiter;
- TRuntimeConfigArray = Array of TRuntimeConfig;
- TListWaitersResponseArray = Array of TListWaitersResponse;
- TEndConditionArray = Array of TEndCondition;
- TCardinalityArray = Array of TCardinality;
- TEmptyArray = Array of TEmpty;
- TWatchVariableRequestArray = Array of TWatchVariableRequest;
- TListVariablesResponseArray = Array of TListVariablesResponse;
- //Anonymous types, using auto-generated names
- TStatusTypedetailsItem = Class;
- TOperationTypemetadata = Class;
- TOperationTyperesponse = Class;
- TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
- TListConfigsResponseTypeconfigsArray = Array of TRuntimeConfig;
- TListWaitersResponseTypewaitersArray = Array of TWaiter;
- TListVariablesResponseTypevariablesArray = Array of TVariable;
-
- { --------------------------------------------------------------------
- TStatusTypedetailsItem
- --------------------------------------------------------------------}
-
- TStatusTypedetailsItem = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
-
- { --------------------------------------------------------------------
- TStatus
- --------------------------------------------------------------------}
-
- TStatus = Class(TGoogleBaseObject)
- Private
- Fcode : integer;
- Fdetails : TStatusTypedetailsArray;
- Fmessage : String;
- Protected
- //Property setters
- Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
- Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property code : integer Index 0 Read Fcode Write Setcode;
- Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
- Property message : String Index 16 Read Fmessage Write Setmessage;
- end;
- TStatusClass = Class of TStatus;
-
- { --------------------------------------------------------------------
- TListConfigsResponse
- --------------------------------------------------------------------}
-
- TListConfigsResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Fconfigs : TListConfigsResponseTypeconfigsArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property configs : TListConfigsResponseTypeconfigsArray Index 8 Read Fconfigs Write Setconfigs;
- end;
- TListConfigsResponseClass = Class of TListConfigsResponse;
-
- { --------------------------------------------------------------------
- TVariable
- --------------------------------------------------------------------}
-
- TVariable = Class(TGoogleBaseObject)
- Private
- Fvalue : String;
- FupdateTime : String;
- Fstate : String;
- Fname : String;
- Protected
- //Property setters
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property value : String Index 0 Read Fvalue Write Setvalue;
- Property updateTime : String Index 8 Read FupdateTime Write SetupdateTime;
- Property state : String Index 16 Read Fstate Write Setstate;
- Property name : String Index 24 Read Fname Write Setname;
- end;
- TVariableClass = Class of TVariable;
-
- { --------------------------------------------------------------------
- TOperationTypemetadata
- --------------------------------------------------------------------}
-
- TOperationTypemetadata = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TOperationTypemetadataClass = Class of TOperationTypemetadata;
-
- { --------------------------------------------------------------------
- TOperationTyperesponse
- --------------------------------------------------------------------}
-
- TOperationTyperesponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TOperationTyperesponseClass = Class of TOperationTyperesponse;
-
- { --------------------------------------------------------------------
- TOperation
- --------------------------------------------------------------------}
-
- TOperation = Class(TGoogleBaseObject)
- Private
- Ferror : TStatus;
- Fdone : boolean;
- Fmetadata : TOperationTypemetadata;
- Fresponse : TOperationTyperesponse;
- Fname : String;
- Protected
- //Property setters
- Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
- Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
- Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property error : TStatus Index 0 Read Ferror Write Seterror;
- Property done : boolean Index 8 Read Fdone Write Setdone;
- Property metadata : TOperationTypemetadata Index 16 Read Fmetadata Write Setmetadata;
- Property response : TOperationTyperesponse Index 24 Read Fresponse Write Setresponse;
- Property name : String Index 32 Read Fname Write Setname;
- end;
- TOperationClass = Class of TOperation;
-
- { --------------------------------------------------------------------
- TWaiter
- --------------------------------------------------------------------}
-
- TWaiter = Class(TGoogleBaseObject)
- Private
- Ftimeout : String;
- Fsuccess : TEndCondition;
- Ffailure : TEndCondition;
- FcreateTime : String;
- Fname : String;
- Ferror : TStatus;
- Fdone : boolean;
- Protected
- //Property setters
- Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsuccess(AIndex : Integer; const AValue : TEndCondition); virtual;
- Procedure Setfailure(AIndex : Integer; const AValue : TEndCondition); virtual;
- Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
- Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property timeout : String Index 0 Read Ftimeout Write Settimeout;
- Property success : TEndCondition Index 8 Read Fsuccess Write Setsuccess;
- Property failure : TEndCondition Index 16 Read Ffailure Write Setfailure;
- Property createTime : String Index 24 Read FcreateTime Write SetcreateTime;
- Property name : String Index 32 Read Fname Write Setname;
- Property error : TStatus Index 40 Read Ferror Write Seterror;
- Property done : boolean Index 48 Read Fdone Write Setdone;
- end;
- TWaiterClass = Class of TWaiter;
-
- { --------------------------------------------------------------------
- TRuntimeConfig
- --------------------------------------------------------------------}
-
- TRuntimeConfig = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- Fname : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property name : String Index 8 Read Fname Write Setname;
- end;
- TRuntimeConfigClass = Class of TRuntimeConfig;
-
- { --------------------------------------------------------------------
- TListWaitersResponse
- --------------------------------------------------------------------}
-
- TListWaitersResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Fwaiters : TListWaitersResponseTypewaitersArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property waiters : TListWaitersResponseTypewaitersArray Index 8 Read Fwaiters Write Setwaiters;
- end;
- TListWaitersResponseClass = Class of TListWaitersResponse;
-
- { --------------------------------------------------------------------
- TEndCondition
- --------------------------------------------------------------------}
-
- TEndCondition = Class(TGoogleBaseObject)
- Private
- Fcardinality : TCardinality;
- Protected
- //Property setters
- Procedure Setcardinality(AIndex : Integer; const AValue : TCardinality); virtual;
- Public
- Published
- Property cardinality : TCardinality Index 0 Read Fcardinality Write Setcardinality;
- end;
- TEndConditionClass = Class of TEndCondition;
-
- { --------------------------------------------------------------------
- TCardinality
- --------------------------------------------------------------------}
-
- TCardinality = Class(TGoogleBaseObject)
- Private
- Fpath : String;
- Fnumber : integer;
- Protected
- //Property setters
- Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property path : String Index 0 Read Fpath Write Setpath;
- Property number : integer Index 8 Read Fnumber Write Setnumber;
- end;
- TCardinalityClass = Class of TCardinality;
-
- { --------------------------------------------------------------------
- TEmpty
- --------------------------------------------------------------------}
-
- TEmpty = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TEmptyClass = Class of TEmpty;
-
- { --------------------------------------------------------------------
- TWatchVariableRequest
- --------------------------------------------------------------------}
-
- TWatchVariableRequest = Class(TGoogleBaseObject)
- Private
- FnewerThan : String;
- Protected
- //Property setters
- Procedure SetnewerThan(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property newerThan : String Index 0 Read FnewerThan Write SetnewerThan;
- end;
- TWatchVariableRequestClass = Class of TWatchVariableRequest;
-
- { --------------------------------------------------------------------
- TListVariablesResponse
- --------------------------------------------------------------------}
-
- TListVariablesResponse = Class(TGoogleBaseObject)
- Private
- Fvariables : TListVariablesResponseTypevariablesArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property variables : TListVariablesResponseTypevariablesArray Index 0 Read Fvariables Write Setvariables;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TListVariablesResponseClass = Class of TListVariablesResponse;
-
- { --------------------------------------------------------------------
- TProjectsConfigsVariablesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TProjectsConfigsVariablesResource, method List
-
- TProjectsConfigsVariablesListOptions = Record
- pageSize : integer;
- filter : String;
- pageToken : String;
- end;
-
-
- //Optional query Options for TProjectsConfigsVariablesResource, method Delete
-
- TProjectsConfigsVariablesDeleteOptions = Record
- recursive : boolean;
- end;
-
- TProjectsConfigsVariablesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
- Function List(parent: string; AQuery : string = '') : TListVariablesResponse;
- Function List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
- Function Get(_name: string) : TVariable;
- Function Create(parent: string; aVariable : TVariable) : TVariable;overload;
- Function Update(_name: string; aVariable : TVariable) : TVariable;
- Function Delete(_name: string; AQuery : string = '') : TEmpty;
- Function Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsConfigsWaitersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TProjectsConfigsWaitersResource, method List
-
- TProjectsConfigsWaitersListOptions = Record
- pageSize : integer;
- pageToken : String;
- end;
-
- TProjectsConfigsWaitersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(_name: string) : TWaiter;
- Function Create(parent: string; aWaiter : TWaiter) : TOperation;overload;
- Function List(parent: string; AQuery : string = '') : TListWaitersResponse;
- Function List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
- Function Delete(_name: string) : TEmpty;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsConfigsOperationsResource
- --------------------------------------------------------------------}
-
- TProjectsConfigsOperationsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(_name: string) : TOperation;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsConfigsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TProjectsConfigsResource, method List
-
- TProjectsConfigsListOptions = Record
- pageSize : integer;
- pageToken : String;
- end;
-
- TProjectsConfigsResource = Class(TGoogleResource)
- Private
- FVariablesInstance : TProjectsConfigsVariablesResource;
- FWaitersInstance : TProjectsConfigsWaitersResource;
- FOperationsInstance : TProjectsConfigsOperationsResource;
- Function GetVariablesInstance : TProjectsConfigsVariablesResource;virtual;
- Function GetWaitersInstance : TProjectsConfigsWaitersResource;virtual;
- Function GetOperationsInstance : TProjectsConfigsOperationsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
- Function Get(_name: string) : TRuntimeConfig;
- Function Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;overload;
- Function List(parent: string; AQuery : string = '') : TListConfigsResponse;
- Function List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
- Function Delete(_name: string) : TEmpty;
- Function CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
- Function CreateOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
- Property VariablesResource : TProjectsConfigsVariablesResource Read GetVariablesInstance;
- Property WaitersResource : TProjectsConfigsWaitersResource Read GetWaitersInstance;
- Property OperationsResource : TProjectsConfigsOperationsResource Read GetOperationsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
-
- TProjectsResource = Class(TGoogleResource)
- Private
- FConfigsVariablesInstance : TProjectsConfigsVariablesResource;
- FConfigsWaitersInstance : TProjectsConfigsWaitersResource;
- FConfigsOperationsInstance : TProjectsConfigsOperationsResource;
- FConfigsInstance : TProjectsConfigsResource;
- Function GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
- Function GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
- Function GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
- Function GetConfigsInstance : TProjectsConfigsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
- Function CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
- Function CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
- Function CreateConfigsResource : TProjectsConfigsResource;virtual;overload;
- Property ConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetConfigsVariablesInstance;
- Property ConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetConfigsWaitersInstance;
- Property ConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetConfigsOperationsInstance;
- Property ConfigsResource : TProjectsConfigsResource Read GetConfigsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TRuntimeconfigAPI
- --------------------------------------------------------------------}
-
- TRuntimeconfigAPI = Class(TGoogleAPI)
- Private
- FProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
- FProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
- FProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
- FProjectsConfigsInstance : TProjectsConfigsResource;
- FProjectsInstance : TProjectsResource;
- Function GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
- Function GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
- Function GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
- Function GetProjectsConfigsInstance : TProjectsConfigsResource;virtual;
- Function GetProjectsInstance : TProjectsResource;virtual;
- Public
- //Override class functions with API info
- Class Function APIName : String; override;
- Class Function APIVersion : String; override;
- Class Function APIRevision : String; override;
- Class Function APIID : String; override;
- Class Function APITitle : String; override;
- Class Function APIDescription : String; override;
- Class Function APIOwnerDomain : String; override;
- Class Function APIOwnerName : String; override;
- Class Function APIIcon16 : String; override;
- Class Function APIIcon32 : String; override;
- Class Function APIdocumentationLink : String; override;
- Class Function APIrootUrl : string; override;
- Class Function APIbasePath : string;override;
- Class Function APIbaseURL : String;override;
- Class Function APIProtocol : string;override;
- Class Function APIservicePath : string;override;
- Class Function APIbatchPath : String;override;
- Class Function APIAuthScopes : TScopeInfoArray;override;
- Class Function APINeedsAuth : Boolean;override;
- Class Procedure RegisterAPIResources; override;
- //Add create function for resources
- Function CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
- Function CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
- Function CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
- Function CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
- Function CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
- Function CreateProjectsConfigsResource : TProjectsConfigsResource;virtual;overload;
- Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
- Function CreateProjectsResource : TProjectsResource;virtual;overload;
- //Add default on-demand instances for resources
- Property ProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetProjectsConfigsVariablesInstance;
- Property ProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetProjectsConfigsWaitersInstance;
- Property ProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetProjectsConfigsOperationsInstance;
- Property ProjectsConfigsResource : TProjectsConfigsResource Read GetProjectsConfigsInstance;
- Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TStatusTypedetailsItem
- --------------------------------------------------------------------}
- Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TStatus
- --------------------------------------------------------------------}
- Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
- begin
- If (Fcode=AValue) then exit;
- Fcode:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
- begin
- If (Fdetails=AValue) then exit;
- Fdetails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
- begin
- If (Fmessage=AValue) then exit;
- Fmessage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'details' : SetLength(Fdetails,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListConfigsResponse
- --------------------------------------------------------------------}
- Procedure TListConfigsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListConfigsResponse.Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray);
- begin
- If (Fconfigs=AValue) then exit;
- Fconfigs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListConfigsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'configs' : SetLength(Fconfigs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TVariable
- --------------------------------------------------------------------}
- Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetupdateTime(AIndex : Integer; const AValue : String);
- begin
- If (FupdateTime=AValue) then exit;
- FupdateTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setstate(AIndex : Integer; const AValue : String);
- begin
- If (Fstate=AValue) then exit;
- Fstate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TOperationTypemetadata
- --------------------------------------------------------------------}
- Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TOperationTyperesponse
- --------------------------------------------------------------------}
- Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TOperation
- --------------------------------------------------------------------}
- Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
- begin
- If (Ferror=AValue) then exit;
- Ferror:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdone=AValue) then exit;
- Fdone:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
- begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
- begin
- If (Fresponse=AValue) then exit;
- Fresponse:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TWaiter
- --------------------------------------------------------------------}
- Procedure TWaiter.Settimeout(AIndex : Integer; const AValue : String);
- begin
- If (Ftimeout=AValue) then exit;
- Ftimeout:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.Setsuccess(AIndex : Integer; const AValue : TEndCondition);
- begin
- If (Fsuccess=AValue) then exit;
- Fsuccess:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.Setfailure(AIndex : Integer; const AValue : TEndCondition);
- begin
- If (Ffailure=AValue) then exit;
- Ffailure:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.SetcreateTime(AIndex : Integer; const AValue : String);
- begin
- If (FcreateTime=AValue) then exit;
- FcreateTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.Seterror(AIndex : Integer; const AValue : TStatus);
- begin
- If (Ferror=AValue) then exit;
- Ferror:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TWaiter.Setdone(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdone=AValue) then exit;
- Fdone:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TRuntimeConfig
- --------------------------------------------------------------------}
- Procedure TRuntimeConfig.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRuntimeConfig.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListWaitersResponse
- --------------------------------------------------------------------}
- Procedure TListWaitersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListWaitersResponse.Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray);
- begin
- If (Fwaiters=AValue) then exit;
- Fwaiters:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListWaitersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'waiters' : SetLength(Fwaiters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TEndCondition
- --------------------------------------------------------------------}
- Procedure TEndCondition.Setcardinality(AIndex : Integer; const AValue : TCardinality);
- begin
- If (Fcardinality=AValue) then exit;
- Fcardinality:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCardinality
- --------------------------------------------------------------------}
- Procedure TCardinality.Setpath(AIndex : Integer; const AValue : String);
- begin
- If (Fpath=AValue) then exit;
- Fpath:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCardinality.Setnumber(AIndex : Integer; const AValue : integer);
- begin
- If (Fnumber=AValue) then exit;
- Fnumber:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEmpty
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TWatchVariableRequest
- --------------------------------------------------------------------}
- Procedure TWatchVariableRequest.SetnewerThan(AIndex : Integer; const AValue : String);
- begin
- If (FnewerThan=AValue) then exit;
- FnewerThan:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListVariablesResponse
- --------------------------------------------------------------------}
- Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
- begin
- If (Fvariables=AValue) then exit;
- Fvariables:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListVariablesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'variables' : SetLength(Fvariables,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TProjectsConfigsVariablesResource
- --------------------------------------------------------------------}
- Class Function TProjectsConfigsVariablesResource.ResourceName : String;
- begin
- Result:='variables';
- end;
- Class Function TProjectsConfigsVariablesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TruntimeconfigAPI;
- end;
- Function TProjectsConfigsVariablesResource.Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+name}:watch';
- _Methodid = 'runtimeconfig.projects.configs.variables.watch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aWatchVariableRequest,TVariable) as TVariable;
- end;
- Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : string = '') : TListVariablesResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+parent}/variables';
- _Methodid = 'runtimeconfig.projects.configs.variables.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListVariablesResponse) as TListVariablesResponse;
- end;
- Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'filter',AQuery.filter);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(parent,_Q);
- end;
- Function TProjectsConfigsVariablesResource.Get(_name: string) : TVariable;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.variables.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariable) as TVariable;
- end;
- Function TProjectsConfigsVariablesResource.Create(parent: string; aVariable : TVariable) : TVariable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+parent}/variables';
- _Methodid = 'runtimeconfig.projects.configs.variables.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
- end;
- Function TProjectsConfigsVariablesResource.Update(_name: string; aVariable : TVariable) : TVariable;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.variables.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
- end;
- Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : string = '') : TEmpty;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.variables.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
- end;
- Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'recursive',AQuery.recursive);
- Result:=Delete(_name,_Q);
- end;
- { --------------------------------------------------------------------
- TProjectsConfigsWaitersResource
- --------------------------------------------------------------------}
- Class Function TProjectsConfigsWaitersResource.ResourceName : String;
- begin
- Result:='waiters';
- end;
- Class Function TProjectsConfigsWaitersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TruntimeconfigAPI;
- end;
- Function TProjectsConfigsWaitersResource.Get(_name: string) : TWaiter;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.waiters.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TWaiter) as TWaiter;
- end;
- Function TProjectsConfigsWaitersResource.Create(parent: string; aWaiter : TWaiter) : TOperation;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+parent}/waiters';
- _Methodid = 'runtimeconfig.projects.configs.waiters.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aWaiter,TOperation) as TOperation;
- end;
- Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : string = '') : TListWaitersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+parent}/waiters';
- _Methodid = 'runtimeconfig.projects.configs.waiters.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListWaitersResponse) as TListWaitersResponse;
- end;
- Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(parent,_Q);
- end;
- Function TProjectsConfigsWaitersResource.Delete(_name: string) : TEmpty;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.waiters.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
- end;
- { --------------------------------------------------------------------
- TProjectsConfigsOperationsResource
- --------------------------------------------------------------------}
- Class Function TProjectsConfigsOperationsResource.ResourceName : String;
- begin
- Result:='operations';
- end;
- Class Function TProjectsConfigsOperationsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TruntimeconfigAPI;
- end;
- Function TProjectsConfigsOperationsResource.Get(_name: string) : TOperation;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.operations.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
- end;
- { --------------------------------------------------------------------
- TProjectsConfigsResource
- --------------------------------------------------------------------}
- Class Function TProjectsConfigsResource.ResourceName : String;
- begin
- Result:='configs';
- end;
- Class Function TProjectsConfigsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TruntimeconfigAPI;
- end;
- Function TProjectsConfigsResource.Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
- end;
- Function TProjectsConfigsResource.Get(_name: string) : TRuntimeConfig;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRuntimeConfig) as TRuntimeConfig;
- end;
- Function TProjectsConfigsResource.Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+parent}/configs';
- _Methodid = 'runtimeconfig.projects.configs.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
- end;
- Function TProjectsConfigsResource.List(parent: string; AQuery : string = '') : TListConfigsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+parent}/configs';
- _Methodid = 'runtimeconfig.projects.configs.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['parent',parent]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListConfigsResponse) as TListConfigsResponse;
- end;
- Function TProjectsConfigsResource.List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(parent,_Q);
- end;
- Function TProjectsConfigsResource.Delete(_name: string) : TEmpty;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta1/{+name}';
- _Methodid = 'runtimeconfig.projects.configs.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
- end;
- Function TProjectsConfigsResource.GetVariablesInstance : TProjectsConfigsVariablesResource;
- begin
- if (FVariablesInstance=Nil) then
- FVariablesInstance:=CreateVariablesResource;
- Result:=FVariablesInstance;
- end;
- Function TProjectsConfigsResource.CreateVariablesResource : TProjectsConfigsVariablesResource;
- begin
- Result:=CreateVariablesResource(Self);
- end;
- Function TProjectsConfigsResource.CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
- begin
- Result:=TProjectsConfigsVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsConfigsResource.GetWaitersInstance : TProjectsConfigsWaitersResource;
- begin
- if (FWaitersInstance=Nil) then
- FWaitersInstance:=CreateWaitersResource;
- Result:=FWaitersInstance;
- end;
- Function TProjectsConfigsResource.CreateWaitersResource : TProjectsConfigsWaitersResource;
- begin
- Result:=CreateWaitersResource(Self);
- end;
- Function TProjectsConfigsResource.CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
- begin
- Result:=TProjectsConfigsWaitersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsConfigsResource.GetOperationsInstance : TProjectsConfigsOperationsResource;
- begin
- if (FOperationsInstance=Nil) then
- FOperationsInstance:=CreateOperationsResource;
- Result:=FOperationsInstance;
- end;
- Function TProjectsConfigsResource.CreateOperationsResource : TProjectsConfigsOperationsResource;
- begin
- Result:=CreateOperationsResource(Self);
- end;
- Function TProjectsConfigsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
- begin
- Result:=TProjectsConfigsOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
- Class Function TProjectsResource.ResourceName : String;
- begin
- Result:='projects';
- end;
- Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TruntimeconfigAPI;
- end;
- Function TProjectsResource.GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;
- begin
- if (FConfigsVariablesInstance=Nil) then
- FConfigsVariablesInstance:=CreateConfigsVariablesResource;
- Result:=FConfigsVariablesInstance;
- end;
- Function TProjectsResource.CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;
- begin
- Result:=CreateConfigsVariablesResource(Self);
- end;
- Function TProjectsResource.CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
- begin
- Result:=TProjectsConfigsVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;
- begin
- if (FConfigsWaitersInstance=Nil) then
- FConfigsWaitersInstance:=CreateConfigsWaitersResource;
- Result:=FConfigsWaitersInstance;
- end;
- Function TProjectsResource.CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;
- begin
- Result:=CreateConfigsWaitersResource(Self);
- end;
- Function TProjectsResource.CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
- begin
- Result:=TProjectsConfigsWaitersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;
- begin
- if (FConfigsOperationsInstance=Nil) then
- FConfigsOperationsInstance:=CreateConfigsOperationsResource;
- Result:=FConfigsOperationsInstance;
- end;
- Function TProjectsResource.CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;
- begin
- Result:=CreateConfigsOperationsResource(Self);
- end;
- Function TProjectsResource.CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
- begin
- Result:=TProjectsConfigsOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetConfigsInstance : TProjectsConfigsResource;
- begin
- if (FConfigsInstance=Nil) then
- FConfigsInstance:=CreateConfigsResource;
- Result:=FConfigsInstance;
- end;
- Function TProjectsResource.CreateConfigsResource : TProjectsConfigsResource;
- begin
- Result:=CreateConfigsResource(Self);
- end;
- Function TProjectsResource.CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
- begin
- Result:=TProjectsConfigsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TRuntimeconfigAPI
- --------------------------------------------------------------------}
- Class Function TRuntimeconfigAPI.APIName : String;
- begin
- Result:='runtimeconfig';
- end;
- Class Function TRuntimeconfigAPI.APIVersion : String;
- begin
- Result:='v1beta1';
- end;
- Class Function TRuntimeconfigAPI.APIRevision : String;
- begin
- Result:='20160518';
- end;
- Class Function TRuntimeconfigAPI.APIID : String;
- begin
- Result:='runtimeconfig:v1beta1';
- end;
- Class Function TRuntimeconfigAPI.APITitle : String;
- begin
- Result:='Google Cloud RuntimeConfig API';
- end;
- Class Function TRuntimeconfigAPI.APIDescription : String;
- begin
- Result:='Provides capabilities for dynamic configuration and coordination for applications running on Google Cloud Platform.';
- end;
- Class Function TRuntimeconfigAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TRuntimeconfigAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TRuntimeconfigAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-16.gif';
- end;
- Class Function TRuntimeconfigAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-32.gif';
- end;
- Class Function TRuntimeconfigAPI.APIdocumentationLink : String;
- begin
- Result:='https://cloud.google.com/deployment-manager/docs/';
- end;
- Class Function TRuntimeconfigAPI.APIrootUrl : string;
- begin
- Result:='https://runtimeconfig.googleapis.com/';
- end;
- Class Function TRuntimeconfigAPI.APIbasePath : string;
- begin
- Result:='';
- end;
- Class Function TRuntimeconfigAPI.APIbaseURL : String;
- begin
- Result:='https://runtimeconfig.googleapis.com/';
- end;
- Class Function TRuntimeconfigAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TRuntimeconfigAPI.APIservicePath : string;
- begin
- Result:='';
- end;
- Class Function TRuntimeconfigAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TRuntimeconfigAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,2);
- Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
- Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/cloudruntimeconfig';
- Result[1].Description:='Manage your Google Cloud Platform services'' runtime configuration';
-
- end;
- Class Function TRuntimeconfigAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TRuntimeconfigAPI.RegisterAPIResources;
- begin
- TStatusTypedetailsItem.RegisterObject;
- TStatus.RegisterObject;
- TListConfigsResponse.RegisterObject;
- TVariable.RegisterObject;
- TOperationTypemetadata.RegisterObject;
- TOperationTyperesponse.RegisterObject;
- TOperation.RegisterObject;
- TWaiter.RegisterObject;
- TRuntimeConfig.RegisterObject;
- TListWaitersResponse.RegisterObject;
- TEndCondition.RegisterObject;
- TCardinality.RegisterObject;
- TEmpty.RegisterObject;
- TWatchVariableRequest.RegisterObject;
- TListVariablesResponse.RegisterObject;
- end;
- Function TRuntimeconfigAPI.GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
- begin
- if (FProjectsConfigsVariablesInstance=Nil) then
- FProjectsConfigsVariablesInstance:=CreateProjectsConfigsVariablesResource;
- Result:=FProjectsConfigsVariablesInstance;
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;
- begin
- Result:=CreateProjectsConfigsVariablesResource(Self);
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
- begin
- Result:=TProjectsConfigsVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRuntimeconfigAPI.GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
- begin
- if (FProjectsConfigsWaitersInstance=Nil) then
- FProjectsConfigsWaitersInstance:=CreateProjectsConfigsWaitersResource;
- Result:=FProjectsConfigsWaitersInstance;
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;
- begin
- Result:=CreateProjectsConfigsWaitersResource(Self);
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
- begin
- Result:=TProjectsConfigsWaitersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRuntimeconfigAPI.GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
- begin
- if (FProjectsConfigsOperationsInstance=Nil) then
- FProjectsConfigsOperationsInstance:=CreateProjectsConfigsOperationsResource;
- Result:=FProjectsConfigsOperationsInstance;
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;
- begin
- Result:=CreateProjectsConfigsOperationsResource(Self);
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
- begin
- Result:=TProjectsConfigsOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRuntimeconfigAPI.GetProjectsConfigsInstance : TProjectsConfigsResource;
- begin
- if (FProjectsConfigsInstance=Nil) then
- FProjectsConfigsInstance:=CreateProjectsConfigsResource;
- Result:=FProjectsConfigsInstance;
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsResource : TProjectsConfigsResource;
- begin
- Result:=CreateProjectsConfigsResource(Self);
- end;
- Function TRuntimeconfigAPI.CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
- begin
- Result:=TProjectsConfigsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRuntimeconfigAPI.GetProjectsInstance : TProjectsResource;
- begin
- if (FProjectsInstance=Nil) then
- FProjectsInstance:=CreateProjectsResource;
- Result:=FProjectsInstance;
- end;
- Function TRuntimeconfigAPI.CreateProjectsResource : TProjectsResource;
- begin
- Result:=CreateProjectsResource(Self);
- end;
- Function TRuntimeconfigAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
- begin
- Result:=TProjectsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TRuntimeconfigAPI.RegisterAPI;
- end.
|