1unit googleruntimeconfig;
2{$MODE objfpc}
3{$H+}
4
5interface
6
7uses sysutils, classes, googleservice, restbase, googlebase;
8
9type
10
11  //Top-level schema types
12  TStatus = Class;
13  TListConfigsResponse = Class;
14  TVariable = Class;
15  TOperation = Class;
16  TWaiter = Class;
17  TRuntimeConfig = Class;
18  TListWaitersResponse = Class;
19  TEndCondition = Class;
20  TCardinality = Class;
21  TEmpty = Class;
22  TWatchVariableRequest = Class;
23  TListVariablesResponse = Class;
24  TStatusArray = Array of TStatus;
25  TListConfigsResponseArray = Array of TListConfigsResponse;
26  TVariableArray = Array of TVariable;
27  TOperationArray = Array of TOperation;
28  TWaiterArray = Array of TWaiter;
29  TRuntimeConfigArray = Array of TRuntimeConfig;
30  TListWaitersResponseArray = Array of TListWaitersResponse;
31  TEndConditionArray = Array of TEndCondition;
32  TCardinalityArray = Array of TCardinality;
33  TEmptyArray = Array of TEmpty;
34  TWatchVariableRequestArray = Array of TWatchVariableRequest;
35  TListVariablesResponseArray = Array of TListVariablesResponse;
36  //Anonymous types, using auto-generated names
37  TStatusTypedetailsItem = Class;
38  TOperationTypemetadata = Class;
39  TOperationTyperesponse = Class;
40  TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
41  TListConfigsResponseTypeconfigsArray = Array of TRuntimeConfig;
42  TListWaitersResponseTypewaitersArray = Array of TWaiter;
43  TListVariablesResponseTypevariablesArray = Array of TVariable;
44
45  { --------------------------------------------------------------------
46    TStatusTypedetailsItem
47    --------------------------------------------------------------------}
48
49  TStatusTypedetailsItem = Class(TGoogleBaseObject)
50  Private
51  Protected
52    //Property setters
53  Public
54    Class Function AllowAdditionalProperties : Boolean; override;
55  Published
56  end;
57  TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
58
59  { --------------------------------------------------------------------
60    TStatus
61    --------------------------------------------------------------------}
62
63  TStatus = Class(TGoogleBaseObject)
64  Private
65    Fcode : integer;
66    Fdetails : TStatusTypedetailsArray;
67    Fmessage : String;
68  Protected
69    //Property setters
70    Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
71    Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
72    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
73    //2.6.4. bug workaround
74    {$IFDEF VER2_6}
75    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
76    {$ENDIF VER2_6}
77  Public
78  Published
79    Property code : integer Index 0 Read Fcode Write Setcode;
80    Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
81    Property message : String Index 16 Read Fmessage Write Setmessage;
82  end;
83  TStatusClass = Class of TStatus;
84
85  { --------------------------------------------------------------------
86    TListConfigsResponse
87    --------------------------------------------------------------------}
88
89  TListConfigsResponse = Class(TGoogleBaseObject)
90  Private
91    FnextPageToken : String;
92    Fconfigs : TListConfigsResponseTypeconfigsArray;
93  Protected
94    //Property setters
95    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
96    Procedure Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray); virtual;
97    //2.6.4. bug workaround
98    {$IFDEF VER2_6}
99    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
100    {$ENDIF VER2_6}
101  Public
102  Published
103    Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
104    Property configs : TListConfigsResponseTypeconfigsArray Index 8 Read Fconfigs Write Setconfigs;
105  end;
106  TListConfigsResponseClass = Class of TListConfigsResponse;
107
108  { --------------------------------------------------------------------
109    TVariable
110    --------------------------------------------------------------------}
111
112  TVariable = Class(TGoogleBaseObject)
113  Private
114    Fvalue : String;
115    FupdateTime : String;
116    Fstate : String;
117    Fname : String;
118  Protected
119    //Property setters
120    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
121    Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
122    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
123    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
124  Public
125  Published
126    Property value : String Index 0 Read Fvalue Write Setvalue;
127    Property updateTime : String Index 8 Read FupdateTime Write SetupdateTime;
128    Property state : String Index 16 Read Fstate Write Setstate;
129    Property name : String Index 24 Read Fname Write Setname;
130  end;
131  TVariableClass = Class of TVariable;
132
133  { --------------------------------------------------------------------
134    TOperationTypemetadata
135    --------------------------------------------------------------------}
136
137  TOperationTypemetadata = Class(TGoogleBaseObject)
138  Private
139  Protected
140    //Property setters
141  Public
142    Class Function AllowAdditionalProperties : Boolean; override;
143  Published
144  end;
145  TOperationTypemetadataClass = Class of TOperationTypemetadata;
146
147  { --------------------------------------------------------------------
148    TOperationTyperesponse
149    --------------------------------------------------------------------}
150
151  TOperationTyperesponse = Class(TGoogleBaseObject)
152  Private
153  Protected
154    //Property setters
155  Public
156    Class Function AllowAdditionalProperties : Boolean; override;
157  Published
158  end;
159  TOperationTyperesponseClass = Class of TOperationTyperesponse;
160
161  { --------------------------------------------------------------------
162    TOperation
163    --------------------------------------------------------------------}
164
165  TOperation = Class(TGoogleBaseObject)
166  Private
167    Ferror : TStatus;
168    Fdone : boolean;
169    Fmetadata : TOperationTypemetadata;
170    Fresponse : TOperationTyperesponse;
171    Fname : String;
172  Protected
173    //Property setters
174    Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
175    Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
176    Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
177    Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
178    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
179  Public
180  Published
181    Property error : TStatus Index 0 Read Ferror Write Seterror;
182    Property done : boolean Index 8 Read Fdone Write Setdone;
183    Property metadata : TOperationTypemetadata Index 16 Read Fmetadata Write Setmetadata;
184    Property response : TOperationTyperesponse Index 24 Read Fresponse Write Setresponse;
185    Property name : String Index 32 Read Fname Write Setname;
186  end;
187  TOperationClass = Class of TOperation;
188
189  { --------------------------------------------------------------------
190    TWaiter
191    --------------------------------------------------------------------}
192
193  TWaiter = Class(TGoogleBaseObject)
194  Private
195    Ftimeout : String;
196    Fsuccess : TEndCondition;
197    Ffailure : TEndCondition;
198    FcreateTime : String;
199    Fname : String;
200    Ferror : TStatus;
201    Fdone : boolean;
202  Protected
203    //Property setters
204    Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
205    Procedure Setsuccess(AIndex : Integer; const AValue : TEndCondition); virtual;
206    Procedure Setfailure(AIndex : Integer; const AValue : TEndCondition); virtual;
207    Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
208    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
209    Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
210    Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
211  Public
212  Published
213    Property timeout : String Index 0 Read Ftimeout Write Settimeout;
214    Property success : TEndCondition Index 8 Read Fsuccess Write Setsuccess;
215    Property failure : TEndCondition Index 16 Read Ffailure Write Setfailure;
216    Property createTime : String Index 24 Read FcreateTime Write SetcreateTime;
217    Property name : String Index 32 Read Fname Write Setname;
218    Property error : TStatus Index 40 Read Ferror Write Seterror;
219    Property done : boolean Index 48 Read Fdone Write Setdone;
220  end;
221  TWaiterClass = Class of TWaiter;
222
223  { --------------------------------------------------------------------
224    TRuntimeConfig
225    --------------------------------------------------------------------}
226
227  TRuntimeConfig = Class(TGoogleBaseObject)
228  Private
229    Fdescription : String;
230    Fname : String;
231  Protected
232    //Property setters
233    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
234    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
235  Public
236  Published
237    Property description : String Index 0 Read Fdescription Write Setdescription;
238    Property name : String Index 8 Read Fname Write Setname;
239  end;
240  TRuntimeConfigClass = Class of TRuntimeConfig;
241
242  { --------------------------------------------------------------------
243    TListWaitersResponse
244    --------------------------------------------------------------------}
245
246  TListWaitersResponse = Class(TGoogleBaseObject)
247  Private
248    FnextPageToken : String;
249    Fwaiters : TListWaitersResponseTypewaitersArray;
250  Protected
251    //Property setters
252    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
253    Procedure Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray); virtual;
254    //2.6.4. bug workaround
255    {$IFDEF VER2_6}
256    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
257    {$ENDIF VER2_6}
258  Public
259  Published
260    Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
261    Property waiters : TListWaitersResponseTypewaitersArray Index 8 Read Fwaiters Write Setwaiters;
262  end;
263  TListWaitersResponseClass = Class of TListWaitersResponse;
264
265  { --------------------------------------------------------------------
266    TEndCondition
267    --------------------------------------------------------------------}
268
269  TEndCondition = Class(TGoogleBaseObject)
270  Private
271    Fcardinality : TCardinality;
272  Protected
273    //Property setters
274    Procedure Setcardinality(AIndex : Integer; const AValue : TCardinality); virtual;
275  Public
276  Published
277    Property cardinality : TCardinality Index 0 Read Fcardinality Write Setcardinality;
278  end;
279  TEndConditionClass = Class of TEndCondition;
280
281  { --------------------------------------------------------------------
282    TCardinality
283    --------------------------------------------------------------------}
284
285  TCardinality = Class(TGoogleBaseObject)
286  Private
287    Fpath : String;
288    Fnumber : integer;
289  Protected
290    //Property setters
291    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
292    Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
293  Public
294  Published
295    Property path : String Index 0 Read Fpath Write Setpath;
296    Property number : integer Index 8 Read Fnumber Write Setnumber;
297  end;
298  TCardinalityClass = Class of TCardinality;
299
300  { --------------------------------------------------------------------
301    TEmpty
302    --------------------------------------------------------------------}
303
304  TEmpty = Class(TGoogleBaseObject)
305  Private
306  Protected
307    //Property setters
308  Public
309  Published
310  end;
311  TEmptyClass = Class of TEmpty;
312
313  { --------------------------------------------------------------------
314    TWatchVariableRequest
315    --------------------------------------------------------------------}
316
317  TWatchVariableRequest = Class(TGoogleBaseObject)
318  Private
319    FnewerThan : String;
320  Protected
321    //Property setters
322    Procedure SetnewerThan(AIndex : Integer; const AValue : String); virtual;
323  Public
324  Published
325    Property newerThan : String Index 0 Read FnewerThan Write SetnewerThan;
326  end;
327  TWatchVariableRequestClass = Class of TWatchVariableRequest;
328
329  { --------------------------------------------------------------------
330    TListVariablesResponse
331    --------------------------------------------------------------------}
332
333  TListVariablesResponse = Class(TGoogleBaseObject)
334  Private
335    Fvariables : TListVariablesResponseTypevariablesArray;
336    FnextPageToken : String;
337  Protected
338    //Property setters
339    Procedure Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); virtual;
340    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
341    //2.6.4. bug workaround
342    {$IFDEF VER2_6}
343    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
344    {$ENDIF VER2_6}
345  Public
346  Published
347    Property variables : TListVariablesResponseTypevariablesArray Index 0 Read Fvariables Write Setvariables;
348    Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
349  end;
350  TListVariablesResponseClass = Class of TListVariablesResponse;
351
352  { --------------------------------------------------------------------
353    TProjectsConfigsVariablesResource
354    --------------------------------------------------------------------}
355
356
357  //Optional query Options for TProjectsConfigsVariablesResource, method List
358
359  TProjectsConfigsVariablesListOptions = Record
360    pageSize : integer;
361    filter : String;
362    pageToken : String;
363  end;
364
365
366  //Optional query Options for TProjectsConfigsVariablesResource, method Delete
367
368  TProjectsConfigsVariablesDeleteOptions = Record
369    recursive : boolean;
370  end;
371
372  TProjectsConfigsVariablesResource = Class(TGoogleResource)
373  Public
374    Class Function ResourceName : String; override;
375    Class Function DefaultAPI : TGoogleAPIClass; override;
376    Function Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
377    Function List(parent: string; AQuery : string  = '') : TListVariablesResponse;
378    Function List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
379    Function Get(_name: string) : TVariable;
380    Function Create(parent: string; aVariable : TVariable) : TVariable;overload;
381    Function Update(_name: string; aVariable : TVariable) : TVariable;
382    Function Delete(_name: string; AQuery : string  = '') : TEmpty;
383    Function Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
384  end;
385
386
387  { --------------------------------------------------------------------
388    TProjectsConfigsWaitersResource
389    --------------------------------------------------------------------}
390
391
392  //Optional query Options for TProjectsConfigsWaitersResource, method List
393
394  TProjectsConfigsWaitersListOptions = Record
395    pageSize : integer;
396    pageToken : String;
397  end;
398
399  TProjectsConfigsWaitersResource = Class(TGoogleResource)
400  Public
401    Class Function ResourceName : String; override;
402    Class Function DefaultAPI : TGoogleAPIClass; override;
403    Function Get(_name: string) : TWaiter;
404    Function Create(parent: string; aWaiter : TWaiter) : TOperation;overload;
405    Function List(parent: string; AQuery : string  = '') : TListWaitersResponse;
406    Function List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
407    Function Delete(_name: string) : TEmpty;
408  end;
409
410
411  { --------------------------------------------------------------------
412    TProjectsConfigsOperationsResource
413    --------------------------------------------------------------------}
414
415  TProjectsConfigsOperationsResource = Class(TGoogleResource)
416  Public
417    Class Function ResourceName : String; override;
418    Class Function DefaultAPI : TGoogleAPIClass; override;
419    Function Get(_name: string) : TOperation;
420  end;
421
422
423  { --------------------------------------------------------------------
424    TProjectsConfigsResource
425    --------------------------------------------------------------------}
426
427
428  //Optional query Options for TProjectsConfigsResource, method List
429
430  TProjectsConfigsListOptions = Record
431    pageSize : integer;
432    pageToken : String;
433  end;
434
435  TProjectsConfigsResource = Class(TGoogleResource)
436  Private
437    FVariablesInstance : TProjectsConfigsVariablesResource;
438    FWaitersInstance : TProjectsConfigsWaitersResource;
439    FOperationsInstance : TProjectsConfigsOperationsResource;
440    Function GetVariablesInstance : TProjectsConfigsVariablesResource;virtual;
441    Function GetWaitersInstance : TProjectsConfigsWaitersResource;virtual;
442    Function GetOperationsInstance : TProjectsConfigsOperationsResource;virtual;
443  Public
444    Class Function ResourceName : String; override;
445    Class Function DefaultAPI : TGoogleAPIClass; override;
446    Function Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
447    Function Get(_name: string) : TRuntimeConfig;
448    Function Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;overload;
449    Function List(parent: string; AQuery : string  = '') : TListConfigsResponse;
450    Function List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
451    Function Delete(_name: string) : TEmpty;
452    Function CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
453    Function CreateVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
454    Function CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
455    Function CreateWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
456    Function CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
457    Function CreateOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
458    Property VariablesResource : TProjectsConfigsVariablesResource Read GetVariablesInstance;
459    Property WaitersResource : TProjectsConfigsWaitersResource Read GetWaitersInstance;
460    Property OperationsResource : TProjectsConfigsOperationsResource Read GetOperationsInstance;
461  end;
462
463
464  { --------------------------------------------------------------------
465    TProjectsResource
466    --------------------------------------------------------------------}
467
468  TProjectsResource = Class(TGoogleResource)
469  Private
470    FConfigsVariablesInstance : TProjectsConfigsVariablesResource;
471    FConfigsWaitersInstance : TProjectsConfigsWaitersResource;
472    FConfigsOperationsInstance : TProjectsConfigsOperationsResource;
473    FConfigsInstance : TProjectsConfigsResource;
474    Function GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
475    Function GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
476    Function GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
477    Function GetConfigsInstance : TProjectsConfigsResource;virtual;
478  Public
479    Class Function ResourceName : String; override;
480    Class Function DefaultAPI : TGoogleAPIClass; override;
481    Function CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
482    Function CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
483    Function CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
484    Function CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
485    Function CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
486    Function CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
487    Function CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
488    Function CreateConfigsResource : TProjectsConfigsResource;virtual;overload;
489    Property ConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetConfigsVariablesInstance;
490    Property ConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetConfigsWaitersInstance;
491    Property ConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetConfigsOperationsInstance;
492    Property ConfigsResource : TProjectsConfigsResource Read GetConfigsInstance;
493  end;
494
495
496  { --------------------------------------------------------------------
497    TRuntimeconfigAPI
498    --------------------------------------------------------------------}
499
500  TRuntimeconfigAPI = Class(TGoogleAPI)
501  Private
502    FProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
503    FProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
504    FProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
505    FProjectsConfigsInstance : TProjectsConfigsResource;
506    FProjectsInstance : TProjectsResource;
507    Function GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
508    Function GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
509    Function GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
510    Function GetProjectsConfigsInstance : TProjectsConfigsResource;virtual;
511    Function GetProjectsInstance : TProjectsResource;virtual;
512  Public
513    //Override class functions with API info
514    Class Function APIName : String; override;
515    Class Function APIVersion : String; override;
516    Class Function APIRevision : String; override;
517    Class Function APIID : String; override;
518    Class Function APITitle : String; override;
519    Class Function APIDescription : String; override;
520    Class Function APIOwnerDomain : String; override;
521    Class Function APIOwnerName : String; override;
522    Class Function APIIcon16 : String; override;
523    Class Function APIIcon32 : String; override;
524    Class Function APIdocumentationLink : String; override;
525    Class Function APIrootUrl : string; override;
526    Class Function APIbasePath : string;override;
527    Class Function APIbaseURL : String;override;
528    Class Function APIProtocol : string;override;
529    Class Function APIservicePath : string;override;
530    Class Function APIbatchPath : String;override;
531    Class Function APIAuthScopes : TScopeInfoArray;override;
532    Class Function APINeedsAuth : Boolean;override;
533    Class Procedure RegisterAPIResources; override;
534    //Add create function for resources
535    Function CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
536    Function CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
537    Function CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
538    Function CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
539    Function CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
540    Function CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
541    Function CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
542    Function CreateProjectsConfigsResource : TProjectsConfigsResource;virtual;overload;
543    Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
544    Function CreateProjectsResource : TProjectsResource;virtual;overload;
545    //Add default on-demand instances for resources
546    Property ProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetProjectsConfigsVariablesInstance;
547    Property ProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetProjectsConfigsWaitersInstance;
548    Property ProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetProjectsConfigsOperationsInstance;
549    Property ProjectsConfigsResource : TProjectsConfigsResource Read GetProjectsConfigsInstance;
550    Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
551  end;
552
553implementation
554
555
556{ --------------------------------------------------------------------
557  TStatusTypedetailsItem
558  --------------------------------------------------------------------}
559
560
561Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
562
563begin
564  Result:=True;
565end;
566
567
568
569{ --------------------------------------------------------------------
570  TStatus
571  --------------------------------------------------------------------}
572
573
574Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
575
576begin
577  If (Fcode=AValue) then exit;
578  Fcode:=AValue;
579  MarkPropertyChanged(AIndex);
580end;
581
582
583
584Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
585
586begin
587  If (Fdetails=AValue) then exit;
588  Fdetails:=AValue;
589  MarkPropertyChanged(AIndex);
590end;
591
592
593
594Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
595
596begin
597  If (Fmessage=AValue) then exit;
598  Fmessage:=AValue;
599  MarkPropertyChanged(AIndex);
600end;
601
602
603//2.6.4. bug workaround
604{$IFDEF VER2_6}
605Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
606
607begin
608  Case AName of
609  'details' : SetLength(Fdetails,ALength);
610  else
611    Inherited SetArrayLength(AName,ALength);
612  end;
613end;
614{$ENDIF VER2_6}
615
616
617
618
619{ --------------------------------------------------------------------
620  TListConfigsResponse
621  --------------------------------------------------------------------}
622
623
624Procedure TListConfigsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
625
626begin
627  If (FnextPageToken=AValue) then exit;
628  FnextPageToken:=AValue;
629  MarkPropertyChanged(AIndex);
630end;
631
632
633
634Procedure TListConfigsResponse.Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray);
635
636begin
637  If (Fconfigs=AValue) then exit;
638  Fconfigs:=AValue;
639  MarkPropertyChanged(AIndex);
640end;
641
642
643//2.6.4. bug workaround
644{$IFDEF VER2_6}
645Procedure TListConfigsResponse.SetArrayLength(Const AName : String; ALength : Longint);
646
647begin
648  Case AName of
649  'configs' : SetLength(Fconfigs,ALength);
650  else
651    Inherited SetArrayLength(AName,ALength);
652  end;
653end;
654{$ENDIF VER2_6}
655
656
657
658
659{ --------------------------------------------------------------------
660  TVariable
661  --------------------------------------------------------------------}
662
663
664Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String);
665
666begin
667  If (Fvalue=AValue) then exit;
668  Fvalue:=AValue;
669  MarkPropertyChanged(AIndex);
670end;
671
672
673
674Procedure TVariable.SetupdateTime(AIndex : Integer; const AValue : String);
675
676begin
677  If (FupdateTime=AValue) then exit;
678  FupdateTime:=AValue;
679  MarkPropertyChanged(AIndex);
680end;
681
682
683
684Procedure TVariable.Setstate(AIndex : Integer; const AValue : String);
685
686begin
687  If (Fstate=AValue) then exit;
688  Fstate:=AValue;
689  MarkPropertyChanged(AIndex);
690end;
691
692
693
694Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
695
696begin
697  If (Fname=AValue) then exit;
698  Fname:=AValue;
699  MarkPropertyChanged(AIndex);
700end;
701
702
703
704
705
706{ --------------------------------------------------------------------
707  TOperationTypemetadata
708  --------------------------------------------------------------------}
709
710
711Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
712
713begin
714  Result:=True;
715end;
716
717
718
719{ --------------------------------------------------------------------
720  TOperationTyperesponse
721  --------------------------------------------------------------------}
722
723
724Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
725
726begin
727  Result:=True;
728end;
729
730
731
732{ --------------------------------------------------------------------
733  TOperation
734  --------------------------------------------------------------------}
735
736
737Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
738
739begin
740  If (Ferror=AValue) then exit;
741  Ferror:=AValue;
742  MarkPropertyChanged(AIndex);
743end;
744
745
746
747Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
748
749begin
750  If (Fdone=AValue) then exit;
751  Fdone:=AValue;
752  MarkPropertyChanged(AIndex);
753end;
754
755
756
757Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
758
759begin
760  If (Fmetadata=AValue) then exit;
761  Fmetadata:=AValue;
762  MarkPropertyChanged(AIndex);
763end;
764
765
766
767Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
768
769begin
770  If (Fresponse=AValue) then exit;
771  Fresponse:=AValue;
772  MarkPropertyChanged(AIndex);
773end;
774
775
776
777Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
778
779begin
780  If (Fname=AValue) then exit;
781  Fname:=AValue;
782  MarkPropertyChanged(AIndex);
783end;
784
785
786
787
788
789{ --------------------------------------------------------------------
790  TWaiter
791  --------------------------------------------------------------------}
792
793
794Procedure TWaiter.Settimeout(AIndex : Integer; const AValue : String);
795
796begin
797  If (Ftimeout=AValue) then exit;
798  Ftimeout:=AValue;
799  MarkPropertyChanged(AIndex);
800end;
801
802
803
804Procedure TWaiter.Setsuccess(AIndex : Integer; const AValue : TEndCondition);
805
806begin
807  If (Fsuccess=AValue) then exit;
808  Fsuccess:=AValue;
809  MarkPropertyChanged(AIndex);
810end;
811
812
813
814Procedure TWaiter.Setfailure(AIndex : Integer; const AValue : TEndCondition);
815
816begin
817  If (Ffailure=AValue) then exit;
818  Ffailure:=AValue;
819  MarkPropertyChanged(AIndex);
820end;
821
822
823
824Procedure TWaiter.SetcreateTime(AIndex : Integer; const AValue : String);
825
826begin
827  If (FcreateTime=AValue) then exit;
828  FcreateTime:=AValue;
829  MarkPropertyChanged(AIndex);
830end;
831
832
833
834Procedure TWaiter.Setname(AIndex : Integer; const AValue : String);
835
836begin
837  If (Fname=AValue) then exit;
838  Fname:=AValue;
839  MarkPropertyChanged(AIndex);
840end;
841
842
843
844Procedure TWaiter.Seterror(AIndex : Integer; const AValue : TStatus);
845
846begin
847  If (Ferror=AValue) then exit;
848  Ferror:=AValue;
849  MarkPropertyChanged(AIndex);
850end;
851
852
853
854Procedure TWaiter.Setdone(AIndex : Integer; const AValue : boolean);
855
856begin
857  If (Fdone=AValue) then exit;
858  Fdone:=AValue;
859  MarkPropertyChanged(AIndex);
860end;
861
862
863
864
865
866{ --------------------------------------------------------------------
867  TRuntimeConfig
868  --------------------------------------------------------------------}
869
870
871Procedure TRuntimeConfig.Setdescription(AIndex : Integer; const AValue : String);
872
873begin
874  If (Fdescription=AValue) then exit;
875  Fdescription:=AValue;
876  MarkPropertyChanged(AIndex);
877end;
878
879
880
881Procedure TRuntimeConfig.Setname(AIndex : Integer; const AValue : String);
882
883begin
884  If (Fname=AValue) then exit;
885  Fname:=AValue;
886  MarkPropertyChanged(AIndex);
887end;
888
889
890
891
892
893{ --------------------------------------------------------------------
894  TListWaitersResponse
895  --------------------------------------------------------------------}
896
897
898Procedure TListWaitersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
899
900begin
901  If (FnextPageToken=AValue) then exit;
902  FnextPageToken:=AValue;
903  MarkPropertyChanged(AIndex);
904end;
905
906
907
908Procedure TListWaitersResponse.Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray);
909
910begin
911  If (Fwaiters=AValue) then exit;
912  Fwaiters:=AValue;
913  MarkPropertyChanged(AIndex);
914end;
915
916
917//2.6.4. bug workaround
918{$IFDEF VER2_6}
919Procedure TListWaitersResponse.SetArrayLength(Const AName : String; ALength : Longint);
920
921begin
922  Case AName of
923  'waiters' : SetLength(Fwaiters,ALength);
924  else
925    Inherited SetArrayLength(AName,ALength);
926  end;
927end;
928{$ENDIF VER2_6}
929
930
931
932
933{ --------------------------------------------------------------------
934  TEndCondition
935  --------------------------------------------------------------------}
936
937
938Procedure TEndCondition.Setcardinality(AIndex : Integer; const AValue : TCardinality);
939
940begin
941  If (Fcardinality=AValue) then exit;
942  Fcardinality:=AValue;
943  MarkPropertyChanged(AIndex);
944end;
945
946
947
948
949
950{ --------------------------------------------------------------------
951  TCardinality
952  --------------------------------------------------------------------}
953
954
955Procedure TCardinality.Setpath(AIndex : Integer; const AValue : String);
956
957begin
958  If (Fpath=AValue) then exit;
959  Fpath:=AValue;
960  MarkPropertyChanged(AIndex);
961end;
962
963
964
965Procedure TCardinality.Setnumber(AIndex : Integer; const AValue : integer);
966
967begin
968  If (Fnumber=AValue) then exit;
969  Fnumber:=AValue;
970  MarkPropertyChanged(AIndex);
971end;
972
973
974
975
976
977{ --------------------------------------------------------------------
978  TEmpty
979  --------------------------------------------------------------------}
980
981
982
983
984{ --------------------------------------------------------------------
985  TWatchVariableRequest
986  --------------------------------------------------------------------}
987
988
989Procedure TWatchVariableRequest.SetnewerThan(AIndex : Integer; const AValue : String);
990
991begin
992  If (FnewerThan=AValue) then exit;
993  FnewerThan:=AValue;
994  MarkPropertyChanged(AIndex);
995end;
996
997
998
999
1000
1001{ --------------------------------------------------------------------
1002  TListVariablesResponse
1003  --------------------------------------------------------------------}
1004
1005
1006Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
1007
1008begin
1009  If (Fvariables=AValue) then exit;
1010  Fvariables:=AValue;
1011  MarkPropertyChanged(AIndex);
1012end;
1013
1014
1015
1016Procedure TListVariablesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
1017
1018begin
1019  If (FnextPageToken=AValue) then exit;
1020  FnextPageToken:=AValue;
1021  MarkPropertyChanged(AIndex);
1022end;
1023
1024
1025//2.6.4. bug workaround
1026{$IFDEF VER2_6}
1027Procedure TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint);
1028
1029begin
1030  Case AName of
1031  'variables' : SetLength(Fvariables,ALength);
1032  else
1033    Inherited SetArrayLength(AName,ALength);
1034  end;
1035end;
1036{$ENDIF VER2_6}
1037
1038
1039
1040
1041{ --------------------------------------------------------------------
1042  TProjectsConfigsVariablesResource
1043  --------------------------------------------------------------------}
1044
1045
1046Class Function TProjectsConfigsVariablesResource.ResourceName : String;
1047
1048begin
1049  Result:='variables';
1050end;
1051
1052Class Function TProjectsConfigsVariablesResource.DefaultAPI : TGoogleAPIClass;
1053
1054begin
1055  Result:=TruntimeconfigAPI;
1056end;
1057
1058Function TProjectsConfigsVariablesResource.Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
1059
1060Const
1061  _HTTPMethod = 'POST';
1062  _Path       = 'v1beta1/{+name}:watch';
1063  _Methodid   = 'runtimeconfig.projects.configs.variables.watch';
1064
1065Var
1066  _P : String;
1067
1068begin
1069  _P:=SubstitutePath(_Path,['name',_name]);
1070  Result:=ServiceCall(_HTTPMethod,_P,'',aWatchVariableRequest,TVariable) as TVariable;
1071end;
1072
1073Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : string = '') : TListVariablesResponse;
1074
1075Const
1076  _HTTPMethod = 'GET';
1077  _Path       = 'v1beta1/{+parent}/variables';
1078  _Methodid   = 'runtimeconfig.projects.configs.variables.list';
1079
1080Var
1081  _P : String;
1082
1083begin
1084  _P:=SubstitutePath(_Path,['parent',parent]);
1085  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListVariablesResponse) as TListVariablesResponse;
1086end;
1087
1088
1089Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
1090
1091Var
1092  _Q : String;
1093
1094begin
1095  _Q:='';
1096  AddToQuery(_Q,'pageSize',AQuery.pageSize);
1097  AddToQuery(_Q,'filter',AQuery.filter);
1098  AddToQuery(_Q,'pageToken',AQuery.pageToken);
1099  Result:=List(parent,_Q);
1100end;
1101
1102Function TProjectsConfigsVariablesResource.Get(_name: string) : TVariable;
1103
1104Const
1105  _HTTPMethod = 'GET';
1106  _Path       = 'v1beta1/{+name}';
1107  _Methodid   = 'runtimeconfig.projects.configs.variables.get';
1108
1109Var
1110  _P : String;
1111
1112begin
1113  _P:=SubstitutePath(_Path,['name',_name]);
1114  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariable) as TVariable;
1115end;
1116
1117Function TProjectsConfigsVariablesResource.Create(parent: string; aVariable : TVariable) : TVariable;
1118
1119Const
1120  _HTTPMethod = 'POST';
1121  _Path       = 'v1beta1/{+parent}/variables';
1122  _Methodid   = 'runtimeconfig.projects.configs.variables.create';
1123
1124Var
1125  _P : String;
1126
1127begin
1128  _P:=SubstitutePath(_Path,['parent',parent]);
1129  Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
1130end;
1131
1132Function TProjectsConfigsVariablesResource.Update(_name: string; aVariable : TVariable) : TVariable;
1133
1134Const
1135  _HTTPMethod = 'PUT';
1136  _Path       = 'v1beta1/{+name}';
1137  _Methodid   = 'runtimeconfig.projects.configs.variables.update';
1138
1139Var
1140  _P : String;
1141
1142begin
1143  _P:=SubstitutePath(_Path,['name',_name]);
1144  Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
1145end;
1146
1147Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : string = '') : TEmpty;
1148
1149Const
1150  _HTTPMethod = 'DELETE';
1151  _Path       = 'v1beta1/{+name}';
1152  _Methodid   = 'runtimeconfig.projects.configs.variables.delete';
1153
1154Var
1155  _P : String;
1156
1157begin
1158  _P:=SubstitutePath(_Path,['name',_name]);
1159  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
1160end;
1161
1162
1163Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
1164
1165Var
1166  _Q : String;
1167
1168begin
1169  _Q:='';
1170  AddToQuery(_Q,'recursive',AQuery.recursive);
1171  Result:=Delete(_name,_Q);
1172end;
1173
1174
1175
1176{ --------------------------------------------------------------------
1177  TProjectsConfigsWaitersResource
1178  --------------------------------------------------------------------}
1179
1180
1181Class Function TProjectsConfigsWaitersResource.ResourceName : String;
1182
1183begin
1184  Result:='waiters';
1185end;
1186
1187Class Function TProjectsConfigsWaitersResource.DefaultAPI : TGoogleAPIClass;
1188
1189begin
1190  Result:=TruntimeconfigAPI;
1191end;
1192
1193Function TProjectsConfigsWaitersResource.Get(_name: string) : TWaiter;
1194
1195Const
1196  _HTTPMethod = 'GET';
1197  _Path       = 'v1beta1/{+name}';
1198  _Methodid   = 'runtimeconfig.projects.configs.waiters.get';
1199
1200Var
1201  _P : String;
1202
1203begin
1204  _P:=SubstitutePath(_Path,['name',_name]);
1205  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TWaiter) as TWaiter;
1206end;
1207
1208Function TProjectsConfigsWaitersResource.Create(parent: string; aWaiter : TWaiter) : TOperation;
1209
1210Const
1211  _HTTPMethod = 'POST';
1212  _Path       = 'v1beta1/{+parent}/waiters';
1213  _Methodid   = 'runtimeconfig.projects.configs.waiters.create';
1214
1215Var
1216  _P : String;
1217
1218begin
1219  _P:=SubstitutePath(_Path,['parent',parent]);
1220  Result:=ServiceCall(_HTTPMethod,_P,'',aWaiter,TOperation) as TOperation;
1221end;
1222
1223Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : string = '') : TListWaitersResponse;
1224
1225Const
1226  _HTTPMethod = 'GET';
1227  _Path       = 'v1beta1/{+parent}/waiters';
1228  _Methodid   = 'runtimeconfig.projects.configs.waiters.list';
1229
1230Var
1231  _P : String;
1232
1233begin
1234  _P:=SubstitutePath(_Path,['parent',parent]);
1235  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListWaitersResponse) as TListWaitersResponse;
1236end;
1237
1238
1239Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
1240
1241Var
1242  _Q : String;
1243
1244begin
1245  _Q:='';
1246  AddToQuery(_Q,'pageSize',AQuery.pageSize);
1247  AddToQuery(_Q,'pageToken',AQuery.pageToken);
1248  Result:=List(parent,_Q);
1249end;
1250
1251Function TProjectsConfigsWaitersResource.Delete(_name: string) : TEmpty;
1252
1253Const
1254  _HTTPMethod = 'DELETE';
1255  _Path       = 'v1beta1/{+name}';
1256  _Methodid   = 'runtimeconfig.projects.configs.waiters.delete';
1257
1258Var
1259  _P : String;
1260
1261begin
1262  _P:=SubstitutePath(_Path,['name',_name]);
1263  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
1264end;
1265
1266
1267
1268{ --------------------------------------------------------------------
1269  TProjectsConfigsOperationsResource
1270  --------------------------------------------------------------------}
1271
1272
1273Class Function TProjectsConfigsOperationsResource.ResourceName : String;
1274
1275begin
1276  Result:='operations';
1277end;
1278
1279Class Function TProjectsConfigsOperationsResource.DefaultAPI : TGoogleAPIClass;
1280
1281begin
1282  Result:=TruntimeconfigAPI;
1283end;
1284
1285Function TProjectsConfigsOperationsResource.Get(_name: string) : TOperation;
1286
1287Const
1288  _HTTPMethod = 'GET';
1289  _Path       = 'v1beta1/{+name}';
1290  _Methodid   = 'runtimeconfig.projects.configs.operations.get';
1291
1292Var
1293  _P : String;
1294
1295begin
1296  _P:=SubstitutePath(_Path,['name',_name]);
1297  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
1298end;
1299
1300
1301
1302{ --------------------------------------------------------------------
1303  TProjectsConfigsResource
1304  --------------------------------------------------------------------}
1305
1306
1307Class Function TProjectsConfigsResource.ResourceName : String;
1308
1309begin
1310  Result:='configs';
1311end;
1312
1313Class Function TProjectsConfigsResource.DefaultAPI : TGoogleAPIClass;
1314
1315begin
1316  Result:=TruntimeconfigAPI;
1317end;
1318
1319Function TProjectsConfigsResource.Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
1320
1321Const
1322  _HTTPMethod = 'PUT';
1323  _Path       = 'v1beta1/{+name}';
1324  _Methodid   = 'runtimeconfig.projects.configs.update';
1325
1326Var
1327  _P : String;
1328
1329begin
1330  _P:=SubstitutePath(_Path,['name',_name]);
1331  Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
1332end;
1333
1334Function TProjectsConfigsResource.Get(_name: string) : TRuntimeConfig;
1335
1336Const
1337  _HTTPMethod = 'GET';
1338  _Path       = 'v1beta1/{+name}';
1339  _Methodid   = 'runtimeconfig.projects.configs.get';
1340
1341Var
1342  _P : String;
1343
1344begin
1345  _P:=SubstitutePath(_Path,['name',_name]);
1346  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRuntimeConfig) as TRuntimeConfig;
1347end;
1348
1349Function TProjectsConfigsResource.Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
1350
1351Const
1352  _HTTPMethod = 'POST';
1353  _Path       = 'v1beta1/{+parent}/configs';
1354  _Methodid   = 'runtimeconfig.projects.configs.create';
1355
1356Var
1357  _P : String;
1358
1359begin
1360  _P:=SubstitutePath(_Path,['parent',parent]);
1361  Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
1362end;
1363
1364Function TProjectsConfigsResource.List(parent: string; AQuery : string = '') : TListConfigsResponse;
1365
1366Const
1367  _HTTPMethod = 'GET';
1368  _Path       = 'v1beta1/{+parent}/configs';
1369  _Methodid   = 'runtimeconfig.projects.configs.list';
1370
1371Var
1372  _P : String;
1373
1374begin
1375  _P:=SubstitutePath(_Path,['parent',parent]);
1376  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListConfigsResponse) as TListConfigsResponse;
1377end;
1378
1379
1380Function TProjectsConfigsResource.List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
1381
1382Var
1383  _Q : String;
1384
1385begin
1386  _Q:='';
1387  AddToQuery(_Q,'pageSize',AQuery.pageSize);
1388  AddToQuery(_Q,'pageToken',AQuery.pageToken);
1389  Result:=List(parent,_Q);
1390end;
1391
1392Function TProjectsConfigsResource.Delete(_name: string) : TEmpty;
1393
1394Const
1395  _HTTPMethod = 'DELETE';
1396  _Path       = 'v1beta1/{+name}';
1397  _Methodid   = 'runtimeconfig.projects.configs.delete';
1398
1399Var
1400  _P : String;
1401
1402begin
1403  _P:=SubstitutePath(_Path,['name',_name]);
1404  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
1405end;
1406
1407
1408
1409Function TProjectsConfigsResource.GetVariablesInstance : TProjectsConfigsVariablesResource;
1410
1411begin
1412  if (FVariablesInstance=Nil) then
1413    FVariablesInstance:=CreateVariablesResource;
1414  Result:=FVariablesInstance;
1415end;
1416
1417Function TProjectsConfigsResource.CreateVariablesResource : TProjectsConfigsVariablesResource;
1418
1419begin
1420  Result:=CreateVariablesResource(Self);
1421end;
1422
1423
1424Function TProjectsConfigsResource.CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
1425
1426begin
1427  Result:=TProjectsConfigsVariablesResource.Create(AOwner);
1428  Result.API:=Self.API;
1429end;
1430
1431
1432
1433Function TProjectsConfigsResource.GetWaitersInstance : TProjectsConfigsWaitersResource;
1434
1435begin
1436  if (FWaitersInstance=Nil) then
1437    FWaitersInstance:=CreateWaitersResource;
1438  Result:=FWaitersInstance;
1439end;
1440
1441Function TProjectsConfigsResource.CreateWaitersResource : TProjectsConfigsWaitersResource;
1442
1443begin
1444  Result:=CreateWaitersResource(Self);
1445end;
1446
1447
1448Function TProjectsConfigsResource.CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
1449
1450begin
1451  Result:=TProjectsConfigsWaitersResource.Create(AOwner);
1452  Result.API:=Self.API;
1453end;
1454
1455
1456
1457Function TProjectsConfigsResource.GetOperationsInstance : TProjectsConfigsOperationsResource;
1458
1459begin
1460  if (FOperationsInstance=Nil) then
1461    FOperationsInstance:=CreateOperationsResource;
1462  Result:=FOperationsInstance;
1463end;
1464
1465Function TProjectsConfigsResource.CreateOperationsResource : TProjectsConfigsOperationsResource;
1466
1467begin
1468  Result:=CreateOperationsResource(Self);
1469end;
1470
1471
1472Function TProjectsConfigsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
1473
1474begin
1475  Result:=TProjectsConfigsOperationsResource.Create(AOwner);
1476  Result.API:=Self.API;
1477end;
1478
1479
1480
1481{ --------------------------------------------------------------------
1482  TProjectsResource
1483  --------------------------------------------------------------------}
1484
1485
1486Class Function TProjectsResource.ResourceName : String;
1487
1488begin
1489  Result:='projects';
1490end;
1491
1492Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
1493
1494begin
1495  Result:=TruntimeconfigAPI;
1496end;
1497
1498
1499
1500Function TProjectsResource.GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;
1501
1502begin
1503  if (FConfigsVariablesInstance=Nil) then
1504    FConfigsVariablesInstance:=CreateConfigsVariablesResource;
1505  Result:=FConfigsVariablesInstance;
1506end;
1507
1508Function TProjectsResource.CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;
1509
1510begin
1511  Result:=CreateConfigsVariablesResource(Self);
1512end;
1513
1514
1515Function TProjectsResource.CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
1516
1517begin
1518  Result:=TProjectsConfigsVariablesResource.Create(AOwner);
1519  Result.API:=Self.API;
1520end;
1521
1522
1523
1524Function TProjectsResource.GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;
1525
1526begin
1527  if (FConfigsWaitersInstance=Nil) then
1528    FConfigsWaitersInstance:=CreateConfigsWaitersResource;
1529  Result:=FConfigsWaitersInstance;
1530end;
1531
1532Function TProjectsResource.CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;
1533
1534begin
1535  Result:=CreateConfigsWaitersResource(Self);
1536end;
1537
1538
1539Function TProjectsResource.CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
1540
1541begin
1542  Result:=TProjectsConfigsWaitersResource.Create(AOwner);
1543  Result.API:=Self.API;
1544end;
1545
1546
1547
1548Function TProjectsResource.GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;
1549
1550begin
1551  if (FConfigsOperationsInstance=Nil) then
1552    FConfigsOperationsInstance:=CreateConfigsOperationsResource;
1553  Result:=FConfigsOperationsInstance;
1554end;
1555
1556Function TProjectsResource.CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;
1557
1558begin
1559  Result:=CreateConfigsOperationsResource(Self);
1560end;
1561
1562
1563Function TProjectsResource.CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
1564
1565begin
1566  Result:=TProjectsConfigsOperationsResource.Create(AOwner);
1567  Result.API:=Self.API;
1568end;
1569
1570
1571
1572Function TProjectsResource.GetConfigsInstance : TProjectsConfigsResource;
1573
1574begin
1575  if (FConfigsInstance=Nil) then
1576    FConfigsInstance:=CreateConfigsResource;
1577  Result:=FConfigsInstance;
1578end;
1579
1580Function TProjectsResource.CreateConfigsResource : TProjectsConfigsResource;
1581
1582begin
1583  Result:=CreateConfigsResource(Self);
1584end;
1585
1586
1587Function TProjectsResource.CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
1588
1589begin
1590  Result:=TProjectsConfigsResource.Create(AOwner);
1591  Result.API:=Self.API;
1592end;
1593
1594
1595
1596{ --------------------------------------------------------------------
1597  TRuntimeconfigAPI
1598  --------------------------------------------------------------------}
1599
1600Class Function TRuntimeconfigAPI.APIName : String;
1601
1602begin
1603  Result:='runtimeconfig';
1604end;
1605
1606Class Function TRuntimeconfigAPI.APIVersion : String;
1607
1608begin
1609  Result:='v1beta1';
1610end;
1611
1612Class Function TRuntimeconfigAPI.APIRevision : String;
1613
1614begin
1615  Result:='20160518';
1616end;
1617
1618Class Function TRuntimeconfigAPI.APIID : String;
1619
1620begin
1621  Result:='runtimeconfig:v1beta1';
1622end;
1623
1624Class Function TRuntimeconfigAPI.APITitle : String;
1625
1626begin
1627  Result:='Google Cloud RuntimeConfig API';
1628end;
1629
1630Class Function TRuntimeconfigAPI.APIDescription : String;
1631
1632begin
1633  Result:='Provides capabilities for dynamic configuration and coordination for applications running on Google Cloud Platform.';
1634end;
1635
1636Class Function TRuntimeconfigAPI.APIOwnerDomain : String;
1637
1638begin
1639  Result:='google.com';
1640end;
1641
1642Class Function TRuntimeconfigAPI.APIOwnerName : String;
1643
1644begin
1645  Result:='Google';
1646end;
1647
1648Class Function TRuntimeconfigAPI.APIIcon16 : String;
1649
1650begin
1651  Result:='http://www.google.com/images/icons/product/search-16.gif';
1652end;
1653
1654Class Function TRuntimeconfigAPI.APIIcon32 : String;
1655
1656begin
1657  Result:='http://www.google.com/images/icons/product/search-32.gif';
1658end;
1659
1660Class Function TRuntimeconfigAPI.APIdocumentationLink : String;
1661
1662begin
1663  Result:='https://cloud.google.com/deployment-manager/docs/';
1664end;
1665
1666Class Function TRuntimeconfigAPI.APIrootUrl : string;
1667
1668begin
1669  Result:='https://runtimeconfig.googleapis.com/';
1670end;
1671
1672Class Function TRuntimeconfigAPI.APIbasePath : string;
1673
1674begin
1675  Result:='';
1676end;
1677
1678Class Function TRuntimeconfigAPI.APIbaseURL : String;
1679
1680begin
1681  Result:='https://runtimeconfig.googleapis.com/';
1682end;
1683
1684Class Function TRuntimeconfigAPI.APIProtocol : string;
1685
1686begin
1687  Result:='rest';
1688end;
1689
1690Class Function TRuntimeconfigAPI.APIservicePath : string;
1691
1692begin
1693  Result:='';
1694end;
1695
1696Class Function TRuntimeconfigAPI.APIbatchPath : String;
1697
1698begin
1699  Result:='batch';
1700end;
1701
1702Class Function TRuntimeconfigAPI.APIAuthScopes : TScopeInfoArray;
1703
1704begin
1705  SetLength(Result,2);
1706  Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
1707  Result[0].Description:='View and manage your data across Google Cloud Platform services';
1708  Result[1].Name:='https://www.googleapis.com/auth/cloudruntimeconfig';
1709  Result[1].Description:='Manage your Google Cloud Platform services'' runtime configuration';
1710
1711end;
1712
1713Class Function TRuntimeconfigAPI.APINeedsAuth : Boolean;
1714
1715begin
1716  Result:=True;
1717end;
1718
1719Class Procedure TRuntimeconfigAPI.RegisterAPIResources;
1720
1721begin
1722  TStatusTypedetailsItem.RegisterObject;
1723  TStatus.RegisterObject;
1724  TListConfigsResponse.RegisterObject;
1725  TVariable.RegisterObject;
1726  TOperationTypemetadata.RegisterObject;
1727  TOperationTyperesponse.RegisterObject;
1728  TOperation.RegisterObject;
1729  TWaiter.RegisterObject;
1730  TRuntimeConfig.RegisterObject;
1731  TListWaitersResponse.RegisterObject;
1732  TEndCondition.RegisterObject;
1733  TCardinality.RegisterObject;
1734  TEmpty.RegisterObject;
1735  TWatchVariableRequest.RegisterObject;
1736  TListVariablesResponse.RegisterObject;
1737end;
1738
1739
1740Function TRuntimeconfigAPI.GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
1741
1742begin
1743  if (FProjectsConfigsVariablesInstance=Nil) then
1744    FProjectsConfigsVariablesInstance:=CreateProjectsConfigsVariablesResource;
1745  Result:=FProjectsConfigsVariablesInstance;
1746end;
1747
1748Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;
1749
1750begin
1751  Result:=CreateProjectsConfigsVariablesResource(Self);
1752end;
1753
1754
1755Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
1756
1757begin
1758  Result:=TProjectsConfigsVariablesResource.Create(AOwner);
1759  Result.API:=Self.API;
1760end;
1761
1762
1763
1764Function TRuntimeconfigAPI.GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
1765
1766begin
1767  if (FProjectsConfigsWaitersInstance=Nil) then
1768    FProjectsConfigsWaitersInstance:=CreateProjectsConfigsWaitersResource;
1769  Result:=FProjectsConfigsWaitersInstance;
1770end;
1771
1772Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;
1773
1774begin
1775  Result:=CreateProjectsConfigsWaitersResource(Self);
1776end;
1777
1778
1779Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
1780
1781begin
1782  Result:=TProjectsConfigsWaitersResource.Create(AOwner);
1783  Result.API:=Self.API;
1784end;
1785
1786
1787
1788Function TRuntimeconfigAPI.GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
1789
1790begin
1791  if (FProjectsConfigsOperationsInstance=Nil) then
1792    FProjectsConfigsOperationsInstance:=CreateProjectsConfigsOperationsResource;
1793  Result:=FProjectsConfigsOperationsInstance;
1794end;
1795
1796Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;
1797
1798begin
1799  Result:=CreateProjectsConfigsOperationsResource(Self);
1800end;
1801
1802
1803Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
1804
1805begin
1806  Result:=TProjectsConfigsOperationsResource.Create(AOwner);
1807  Result.API:=Self.API;
1808end;
1809
1810
1811
1812Function TRuntimeconfigAPI.GetProjectsConfigsInstance : TProjectsConfigsResource;
1813
1814begin
1815  if (FProjectsConfigsInstance=Nil) then
1816    FProjectsConfigsInstance:=CreateProjectsConfigsResource;
1817  Result:=FProjectsConfigsInstance;
1818end;
1819
1820Function TRuntimeconfigAPI.CreateProjectsConfigsResource : TProjectsConfigsResource;
1821
1822begin
1823  Result:=CreateProjectsConfigsResource(Self);
1824end;
1825
1826
1827Function TRuntimeconfigAPI.CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
1828
1829begin
1830  Result:=TProjectsConfigsResource.Create(AOwner);
1831  Result.API:=Self.API;
1832end;
1833
1834
1835
1836Function TRuntimeconfigAPI.GetProjectsInstance : TProjectsResource;
1837
1838begin
1839  if (FProjectsInstance=Nil) then
1840    FProjectsInstance:=CreateProjectsResource;
1841  Result:=FProjectsInstance;
1842end;
1843
1844Function TRuntimeconfigAPI.CreateProjectsResource : TProjectsResource;
1845
1846begin
1847  Result:=CreateProjectsResource(Self);
1848end;
1849
1850
1851Function TRuntimeconfigAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
1852
1853begin
1854  Result:=TProjectsResource.Create(AOwner);
1855  Result.API:=Self.API;
1856end;
1857
1858
1859
1860initialization
1861  TRuntimeconfigAPI.RegisterAPI;
1862end.
1863