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