diff options
Diffstat (limited to 'packages/googleapi/src/googledataproc.pp')
| -rw-r--r-- | packages/googleapi/src/googledataproc.pp | 4471 |
1 files changed, 4471 insertions, 0 deletions
diff --git a/packages/googleapi/src/googledataproc.pp b/packages/googleapi/src/googledataproc.pp new file mode 100644 index 0000000000..8906e743b3 --- /dev/null +++ b/packages/googleapi/src/googledataproc.pp @@ -0,0 +1,4471 @@ +unit googledataproc; +{$MODE objfpc} +{$H+} + +interface + +uses sysutils, classes, googleservice, restbase, googlebase; + +type + + //Top-level schema types + TCluster = Class; + TClusterConfig = Class; + TGceClusterConfig = Class; + TInstanceGroupConfig = Class; + TDiskConfig = Class; + TManagedGroupConfig = Class; + TSoftwareConfig = Class; + TNodeInitializationAction = Class; + TClusterStatus = Class; + TOperation = Class; + TStatus = Class; + TListClustersResponse = Class; + TDiagnoseClusterRequest = Class; + TSubmitJobRequest = Class; + TJob = Class; + TJobReference = Class; + TJobPlacement = Class; + THadoopJob = Class; + TLoggingConfig = Class; + TSparkJob = Class; + TPySparkJob = Class; + THiveJob = Class; + TQueryList = Class; + TPigJob = Class; + TSparkSqlJob = Class; + TJobStatus = Class; + TListJobsResponse = Class; + TCancelJobRequest = Class; + TEmpty = Class; + TListOperationsResponse = Class; + TDiagnoseClusterResults = Class; + TClusterOperationMetadata = Class; + TClusterOperationStatus = Class; + TDiagnoseClusterOutputLocation = Class; + TOperationMetadata = Class; + TOperationStatus = Class; + TClusterArray = Array of TCluster; + TClusterConfigArray = Array of TClusterConfig; + TGceClusterConfigArray = Array of TGceClusterConfig; + TInstanceGroupConfigArray = Array of TInstanceGroupConfig; + TDiskConfigArray = Array of TDiskConfig; + TManagedGroupConfigArray = Array of TManagedGroupConfig; + TSoftwareConfigArray = Array of TSoftwareConfig; + TNodeInitializationActionArray = Array of TNodeInitializationAction; + TClusterStatusArray = Array of TClusterStatus; + TOperationArray = Array of TOperation; + TStatusArray = Array of TStatus; + TListClustersResponseArray = Array of TListClustersResponse; + TDiagnoseClusterRequestArray = Array of TDiagnoseClusterRequest; + TSubmitJobRequestArray = Array of TSubmitJobRequest; + TJobArray = Array of TJob; + TJobReferenceArray = Array of TJobReference; + TJobPlacementArray = Array of TJobPlacement; + THadoopJobArray = Array of THadoopJob; + TLoggingConfigArray = Array of TLoggingConfig; + TSparkJobArray = Array of TSparkJob; + TPySparkJobArray = Array of TPySparkJob; + THiveJobArray = Array of THiveJob; + TQueryListArray = Array of TQueryList; + TPigJobArray = Array of TPigJob; + TSparkSqlJobArray = Array of TSparkSqlJob; + TJobStatusArray = Array of TJobStatus; + TListJobsResponseArray = Array of TListJobsResponse; + TCancelJobRequestArray = Array of TCancelJobRequest; + TEmptyArray = Array of TEmpty; + TListOperationsResponseArray = Array of TListOperationsResponse; + TDiagnoseClusterResultsArray = Array of TDiagnoseClusterResults; + TClusterOperationMetadataArray = Array of TClusterOperationMetadata; + TClusterOperationStatusArray = Array of TClusterOperationStatus; + TDiagnoseClusterOutputLocationArray = Array of TDiagnoseClusterOutputLocation; + TOperationMetadataArray = Array of TOperationMetadata; + TOperationStatusArray = Array of TOperationStatus; + //Anonymous types, using auto-generated names + TGceClusterConfigTypemetadata = Class; + TSoftwareConfigTypeproperties = Class; + TOperationTypemetadata = Class; + TOperationTyperesponse = Class; + TStatusTypedetailsItem = Class; + THadoopJobTypeproperties = Class; + TLoggingConfigTypedriverLogLevels = Class; + TSparkJobTypeproperties = Class; + TPySparkJobTypeproperties = Class; + THiveJobTypescriptVariables = Class; + THiveJobTypeproperties = Class; + TPigJobTypescriptVariables = Class; + TPigJobTypeproperties = Class; + TSparkSqlJobTypescriptVariables = Class; + TSparkSqlJobTypeproperties = Class; + TClusterTypestatusHistoryArray = Array of TClusterStatus; + TClusterConfigTypeinitializationActionsArray = Array of TNodeInitializationAction; + TStatusTypedetailsArray = Array of TStatusTypedetailsItem; + TListClustersResponseTypeclustersArray = Array of TCluster; + TJobTypestatusHistoryArray = Array of TJobStatus; + TListJobsResponseTypejobsArray = Array of TJob; + TListOperationsResponseTypeoperationsArray = Array of TOperation; + TClusterOperationMetadataTypestatusHistoryArray = Array of TClusterOperationStatus; + TOperationMetadataTypestatusHistoryArray = Array of TOperationStatus; + + { -------------------------------------------------------------------- + TCluster + --------------------------------------------------------------------} + + TCluster = Class(TGoogleBaseObject) + Private + FprojectId : String; + FclusterName : String; + Fconfig : TClusterConfig; + Fstatus : TClusterStatus; + FstatusHistory : TClusterTypestatusHistoryArray; + FclusterUuid : String; + Protected + //Property setters + Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual; + Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual; + Procedure Setconfig(AIndex : Integer; const AValue : TClusterConfig); virtual; + Procedure Setstatus(AIndex : Integer; const AValue : TClusterStatus); virtual; + Procedure SetstatusHistory(AIndex : Integer; const AValue : TClusterTypestatusHistoryArray); virtual; + Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property projectId : String Index 0 Read FprojectId Write SetprojectId; + Property clusterName : String Index 8 Read FclusterName Write SetclusterName; + Property config : TClusterConfig Index 16 Read Fconfig Write Setconfig; + Property status : TClusterStatus Index 24 Read Fstatus Write Setstatus; + Property statusHistory : TClusterTypestatusHistoryArray Index 32 Read FstatusHistory Write SetstatusHistory; + Property clusterUuid : String Index 40 Read FclusterUuid Write SetclusterUuid; + end; + TClusterClass = Class of TCluster; + + { -------------------------------------------------------------------- + TClusterConfig + --------------------------------------------------------------------} + + TClusterConfig = Class(TGoogleBaseObject) + Private + FconfigBucket : String; + FgceClusterConfig : TGceClusterConfig; + FmasterConfig : TInstanceGroupConfig; + FworkerConfig : TInstanceGroupConfig; + FsecondaryWorkerConfig : TInstanceGroupConfig; + FsoftwareConfig : TSoftwareConfig; + FinitializationActions : TClusterConfigTypeinitializationActionsArray; + Protected + //Property setters + Procedure SetconfigBucket(AIndex : Integer; const AValue : String); virtual; + Procedure SetgceClusterConfig(AIndex : Integer; const AValue : TGceClusterConfig); virtual; + Procedure SetmasterConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual; + Procedure SetworkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual; + Procedure SetsecondaryWorkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual; + Procedure SetsoftwareConfig(AIndex : Integer; const AValue : TSoftwareConfig); virtual; + Procedure SetinitializationActions(AIndex : Integer; const AValue : TClusterConfigTypeinitializationActionsArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property configBucket : String Index 0 Read FconfigBucket Write SetconfigBucket; + Property gceClusterConfig : TGceClusterConfig Index 8 Read FgceClusterConfig Write SetgceClusterConfig; + Property masterConfig : TInstanceGroupConfig Index 16 Read FmasterConfig Write SetmasterConfig; + Property workerConfig : TInstanceGroupConfig Index 24 Read FworkerConfig Write SetworkerConfig; + Property secondaryWorkerConfig : TInstanceGroupConfig Index 32 Read FsecondaryWorkerConfig Write SetsecondaryWorkerConfig; + Property softwareConfig : TSoftwareConfig Index 40 Read FsoftwareConfig Write SetsoftwareConfig; + Property initializationActions : TClusterConfigTypeinitializationActionsArray Index 48 Read FinitializationActions Write SetinitializationActions; + end; + TClusterConfigClass = Class of TClusterConfig; + + { -------------------------------------------------------------------- + TGceClusterConfigTypemetadata + --------------------------------------------------------------------} + + TGceClusterConfigTypemetadata = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TGceClusterConfigTypemetadataClass = Class of TGceClusterConfigTypemetadata; + + { -------------------------------------------------------------------- + TGceClusterConfig + --------------------------------------------------------------------} + + TGceClusterConfig = Class(TGoogleBaseObject) + Private + FzoneUri : String; + FnetworkUri : String; + FsubnetworkUri : String; + FserviceAccountScopes : TStringArray; + Ftags : TStringArray; + Fmetadata : TGceClusterConfigTypemetadata; + Protected + //Property setters + Procedure SetzoneUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetnetworkUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetsubnetworkUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetserviceAccountScopes(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Setmetadata(AIndex : Integer; const AValue : TGceClusterConfigTypemetadata); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property zoneUri : String Index 0 Read FzoneUri Write SetzoneUri; + Property networkUri : String Index 8 Read FnetworkUri Write SetnetworkUri; + Property subnetworkUri : String Index 16 Read FsubnetworkUri Write SetsubnetworkUri; + Property serviceAccountScopes : TStringArray Index 24 Read FserviceAccountScopes Write SetserviceAccountScopes; + Property tags : TStringArray Index 32 Read Ftags Write Settags; + Property metadata : TGceClusterConfigTypemetadata Index 40 Read Fmetadata Write Setmetadata; + end; + TGceClusterConfigClass = Class of TGceClusterConfig; + + { -------------------------------------------------------------------- + TInstanceGroupConfig + --------------------------------------------------------------------} + + TInstanceGroupConfig = Class(TGoogleBaseObject) + Private + FnumInstances : integer; + FinstanceNames : TStringArray; + FimageUri : String; + FmachineTypeUri : String; + FdiskConfig : TDiskConfig; + FisPreemptible : boolean; + FmanagedGroupConfig : TManagedGroupConfig; + Protected + //Property setters + Procedure SetnumInstances(AIndex : Integer; const AValue : integer); virtual; + Procedure SetinstanceNames(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetimageUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetmachineTypeUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetdiskConfig(AIndex : Integer; const AValue : TDiskConfig); virtual; + Procedure SetisPreemptible(AIndex : Integer; const AValue : boolean); virtual; + Procedure SetmanagedGroupConfig(AIndex : Integer; const AValue : TManagedGroupConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property numInstances : integer Index 0 Read FnumInstances Write SetnumInstances; + Property instanceNames : TStringArray Index 8 Read FinstanceNames Write SetinstanceNames; + Property imageUri : String Index 16 Read FimageUri Write SetimageUri; + Property machineTypeUri : String Index 24 Read FmachineTypeUri Write SetmachineTypeUri; + Property diskConfig : TDiskConfig Index 32 Read FdiskConfig Write SetdiskConfig; + Property isPreemptible : boolean Index 40 Read FisPreemptible Write SetisPreemptible; + Property managedGroupConfig : TManagedGroupConfig Index 48 Read FmanagedGroupConfig Write SetmanagedGroupConfig; + end; + TInstanceGroupConfigClass = Class of TInstanceGroupConfig; + + { -------------------------------------------------------------------- + TDiskConfig + --------------------------------------------------------------------} + + TDiskConfig = Class(TGoogleBaseObject) + Private + FbootDiskSizeGb : integer; + FnumLocalSsds : integer; + Protected + //Property setters + Procedure SetbootDiskSizeGb(AIndex : Integer; const AValue : integer); virtual; + Procedure SetnumLocalSsds(AIndex : Integer; const AValue : integer); virtual; + Public + Published + Property bootDiskSizeGb : integer Index 0 Read FbootDiskSizeGb Write SetbootDiskSizeGb; + Property numLocalSsds : integer Index 8 Read FnumLocalSsds Write SetnumLocalSsds; + end; + TDiskConfigClass = Class of TDiskConfig; + + { -------------------------------------------------------------------- + TManagedGroupConfig + --------------------------------------------------------------------} + + TManagedGroupConfig = Class(TGoogleBaseObject) + Private + FinstanceTemplateName : String; + FinstanceGroupManagerName : String; + Protected + //Property setters + Procedure SetinstanceTemplateName(AIndex : Integer; const AValue : String); virtual; + Procedure SetinstanceGroupManagerName(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property instanceTemplateName : String Index 0 Read FinstanceTemplateName Write SetinstanceTemplateName; + Property instanceGroupManagerName : String Index 8 Read FinstanceGroupManagerName Write SetinstanceGroupManagerName; + end; + TManagedGroupConfigClass = Class of TManagedGroupConfig; + + { -------------------------------------------------------------------- + TSoftwareConfigTypeproperties + --------------------------------------------------------------------} + + TSoftwareConfigTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TSoftwareConfigTypepropertiesClass = Class of TSoftwareConfigTypeproperties; + + { -------------------------------------------------------------------- + TSoftwareConfig + --------------------------------------------------------------------} + + TSoftwareConfig = Class(TGoogleBaseObject) + Private + FimageVersion : String; + Fproperties : TSoftwareConfigTypeproperties; + Protected + //Property setters + Procedure SetimageVersion(AIndex : Integer; const AValue : String); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : TSoftwareConfigTypeproperties); virtual; + Public + Published + Property imageVersion : String Index 0 Read FimageVersion Write SetimageVersion; + Property properties : TSoftwareConfigTypeproperties Index 8 Read Fproperties Write Setproperties; + end; + TSoftwareConfigClass = Class of TSoftwareConfig; + + { -------------------------------------------------------------------- + TNodeInitializationAction + --------------------------------------------------------------------} + + TNodeInitializationAction = Class(TGoogleBaseObject) + Private + FexecutableFile : String; + FexecutionTimeout : String; + Protected + //Property setters + Procedure SetexecutableFile(AIndex : Integer; const AValue : String); virtual; + Procedure SetexecutionTimeout(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property executableFile : String Index 0 Read FexecutableFile Write SetexecutableFile; + Property executionTimeout : String Index 8 Read FexecutionTimeout Write SetexecutionTimeout; + end; + TNodeInitializationActionClass = Class of TNodeInitializationAction; + + { -------------------------------------------------------------------- + TClusterStatus + --------------------------------------------------------------------} + + TClusterStatus = Class(TGoogleBaseObject) + Private + Fstate : String; + Fdetail : String; + FstateStartTime : String; + Protected + //Property setters + Procedure Setstate(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetail(AIndex : Integer; const AValue : String); virtual; + Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property state : String Index 0 Read Fstate Write Setstate; + Property detail : String Index 8 Read Fdetail Write Setdetail; + Property stateStartTime : String Index 16 Read FstateStartTime Write SetstateStartTime; + end; + TClusterStatusClass = Class of TClusterStatus; + + { -------------------------------------------------------------------- + TOperationTypemetadata + --------------------------------------------------------------------} + + TOperationTypemetadata = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TOperationTypemetadataClass = Class of TOperationTypemetadata; + + { -------------------------------------------------------------------- + TOperationTyperesponse + --------------------------------------------------------------------} + + TOperationTyperesponse = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TOperationTyperesponseClass = Class of TOperationTyperesponse; + + { -------------------------------------------------------------------- + TOperation + --------------------------------------------------------------------} + + TOperation = Class(TGoogleBaseObject) + Private + Fname : String; + Fmetadata : TOperationTypemetadata; + Fdone : boolean; + Ferror : TStatus; + Fresponse : TOperationTyperesponse; + Protected + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual; + Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual; + Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual; + Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual; + Public + Published + Property name : String Index 0 Read Fname Write Setname; + Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata; + Property done : boolean Index 16 Read Fdone Write Setdone; + Property error : TStatus Index 24 Read Ferror Write Seterror; + Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse; + end; + TOperationClass = Class of TOperation; + + { -------------------------------------------------------------------- + TStatusTypedetailsItem + --------------------------------------------------------------------} + + TStatusTypedetailsItem = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem; + + { -------------------------------------------------------------------- + TStatus + --------------------------------------------------------------------} + + TStatus = Class(TGoogleBaseObject) + Private + Fcode : integer; + Fmessage : String; + Fdetails : TStatusTypedetailsArray; + Protected + //Property setters + Procedure Setcode(AIndex : Integer; const AValue : integer); virtual; + Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property code : integer Index 0 Read Fcode Write Setcode; + Property message : String Index 8 Read Fmessage Write Setmessage; + Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails; + end; + TStatusClass = Class of TStatus; + + { -------------------------------------------------------------------- + TListClustersResponse + --------------------------------------------------------------------} + + TListClustersResponse = Class(TGoogleBaseObject) + Private + Fclusters : TListClustersResponseTypeclustersArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListClustersResponseClass = Class of TListClustersResponse; + + { -------------------------------------------------------------------- + TDiagnoseClusterRequest + --------------------------------------------------------------------} + + TDiagnoseClusterRequest = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Published + end; + TDiagnoseClusterRequestClass = Class of TDiagnoseClusterRequest; + + { -------------------------------------------------------------------- + TSubmitJobRequest + --------------------------------------------------------------------} + + TSubmitJobRequest = Class(TGoogleBaseObject) + Private + Fjob : TJob; + Protected + //Property setters + Procedure Setjob(AIndex : Integer; const AValue : TJob); virtual; + Public + Published + Property job : TJob Index 0 Read Fjob Write Setjob; + end; + TSubmitJobRequestClass = Class of TSubmitJobRequest; + + { -------------------------------------------------------------------- + TJob + --------------------------------------------------------------------} + + TJob = Class(TGoogleBaseObject) + Private + Freference : TJobReference; + Fplacement : TJobPlacement; + FhadoopJob : THadoopJob; + FsparkJob : TSparkJob; + FpysparkJob : TPySparkJob; + FhiveJob : THiveJob; + FpigJob : TPigJob; + FsparkSqlJob : TSparkSqlJob; + Fstatus : TJobStatus; + FstatusHistory : TJobTypestatusHistoryArray; + FdriverOutputResourceUri : String; + FdriverControlFilesUri : String; + Protected + //Property setters + Procedure Setreference(AIndex : Integer; const AValue : TJobReference); virtual; + Procedure Setplacement(AIndex : Integer; const AValue : TJobPlacement); virtual; + Procedure SethadoopJob(AIndex : Integer; const AValue : THadoopJob); virtual; + Procedure SetsparkJob(AIndex : Integer; const AValue : TSparkJob); virtual; + Procedure SetpysparkJob(AIndex : Integer; const AValue : TPySparkJob); virtual; + Procedure SethiveJob(AIndex : Integer; const AValue : THiveJob); virtual; + Procedure SetpigJob(AIndex : Integer; const AValue : TPigJob); virtual; + Procedure SetsparkSqlJob(AIndex : Integer; const AValue : TSparkSqlJob); virtual; + Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual; + Procedure SetstatusHistory(AIndex : Integer; const AValue : TJobTypestatusHistoryArray); virtual; + Procedure SetdriverOutputResourceUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetdriverControlFilesUri(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property reference : TJobReference Index 0 Read Freference Write Setreference; + Property placement : TJobPlacement Index 8 Read Fplacement Write Setplacement; + Property hadoopJob : THadoopJob Index 16 Read FhadoopJob Write SethadoopJob; + Property sparkJob : TSparkJob Index 24 Read FsparkJob Write SetsparkJob; + Property pysparkJob : TPySparkJob Index 32 Read FpysparkJob Write SetpysparkJob; + Property hiveJob : THiveJob Index 40 Read FhiveJob Write SethiveJob; + Property pigJob : TPigJob Index 48 Read FpigJob Write SetpigJob; + Property sparkSqlJob : TSparkSqlJob Index 56 Read FsparkSqlJob Write SetsparkSqlJob; + Property status : TJobStatus Index 64 Read Fstatus Write Setstatus; + Property statusHistory : TJobTypestatusHistoryArray Index 72 Read FstatusHistory Write SetstatusHistory; + Property driverOutputResourceUri : String Index 80 Read FdriverOutputResourceUri Write SetdriverOutputResourceUri; + Property driverControlFilesUri : String Index 88 Read FdriverControlFilesUri Write SetdriverControlFilesUri; + end; + TJobClass = Class of TJob; + + { -------------------------------------------------------------------- + TJobReference + --------------------------------------------------------------------} + + TJobReference = Class(TGoogleBaseObject) + Private + FprojectId : String; + FjobId : String; + Protected + //Property setters + Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual; + Procedure SetjobId(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property projectId : String Index 0 Read FprojectId Write SetprojectId; + Property jobId : String Index 8 Read FjobId Write SetjobId; + end; + TJobReferenceClass = Class of TJobReference; + + { -------------------------------------------------------------------- + TJobPlacement + --------------------------------------------------------------------} + + TJobPlacement = Class(TGoogleBaseObject) + Private + FclusterName : String; + FclusterUuid : String; + Protected + //Property setters + Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual; + Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property clusterName : String Index 0 Read FclusterName Write SetclusterName; + Property clusterUuid : String Index 8 Read FclusterUuid Write SetclusterUuid; + end; + TJobPlacementClass = Class of TJobPlacement; + + { -------------------------------------------------------------------- + THadoopJobTypeproperties + --------------------------------------------------------------------} + + THadoopJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + THadoopJobTypepropertiesClass = Class of THadoopJobTypeproperties; + + { -------------------------------------------------------------------- + THadoopJob + --------------------------------------------------------------------} + + THadoopJob = Class(TGoogleBaseObject) + Private + FmainJarFileUri : String; + FmainClass : String; + Fargs : TStringArray; + FjarFileUris : TStringArray; + FfileUris : TStringArray; + FarchiveUris : TStringArray; + Fproperties : THadoopJobTypeproperties; + FloggingConfig : TLoggingConfig; + Protected + //Property setters + Procedure SetmainJarFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetmainClass(AIndex : Integer; const AValue : String); virtual; + Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : THadoopJobTypeproperties); virtual; + Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property mainJarFileUri : String Index 0 Read FmainJarFileUri Write SetmainJarFileUri; + Property mainClass : String Index 8 Read FmainClass Write SetmainClass; + Property args : TStringArray Index 16 Read Fargs Write Setargs; + Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris; + Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris; + Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris; + Property properties : THadoopJobTypeproperties Index 48 Read Fproperties Write Setproperties; + Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig; + end; + THadoopJobClass = Class of THadoopJob; + + { -------------------------------------------------------------------- + TLoggingConfigTypedriverLogLevels + --------------------------------------------------------------------} + + TLoggingConfigTypedriverLogLevels = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TLoggingConfigTypedriverLogLevelsClass = Class of TLoggingConfigTypedriverLogLevels; + + { -------------------------------------------------------------------- + TLoggingConfig + --------------------------------------------------------------------} + + TLoggingConfig = Class(TGoogleBaseObject) + Private + FdriverLogLevels : TLoggingConfigTypedriverLogLevels; + Protected + //Property setters + Procedure SetdriverLogLevels(AIndex : Integer; const AValue : TLoggingConfigTypedriverLogLevels); virtual; + Public + Published + Property driverLogLevels : TLoggingConfigTypedriverLogLevels Index 0 Read FdriverLogLevels Write SetdriverLogLevels; + end; + TLoggingConfigClass = Class of TLoggingConfig; + + { -------------------------------------------------------------------- + TSparkJobTypeproperties + --------------------------------------------------------------------} + + TSparkJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TSparkJobTypepropertiesClass = Class of TSparkJobTypeproperties; + + { -------------------------------------------------------------------- + TSparkJob + --------------------------------------------------------------------} + + TSparkJob = Class(TGoogleBaseObject) + Private + FmainJarFileUri : String; + FmainClass : String; + Fargs : TStringArray; + FjarFileUris : TStringArray; + FfileUris : TStringArray; + FarchiveUris : TStringArray; + Fproperties : TSparkJobTypeproperties; + FloggingConfig : TLoggingConfig; + Protected + //Property setters + Procedure SetmainJarFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetmainClass(AIndex : Integer; const AValue : String); virtual; + Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : TSparkJobTypeproperties); virtual; + Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property mainJarFileUri : String Index 0 Read FmainJarFileUri Write SetmainJarFileUri; + Property mainClass : String Index 8 Read FmainClass Write SetmainClass; + Property args : TStringArray Index 16 Read Fargs Write Setargs; + Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris; + Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris; + Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris; + Property properties : TSparkJobTypeproperties Index 48 Read Fproperties Write Setproperties; + Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig; + end; + TSparkJobClass = Class of TSparkJob; + + { -------------------------------------------------------------------- + TPySparkJobTypeproperties + --------------------------------------------------------------------} + + TPySparkJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TPySparkJobTypepropertiesClass = Class of TPySparkJobTypeproperties; + + { -------------------------------------------------------------------- + TPySparkJob + --------------------------------------------------------------------} + + TPySparkJob = Class(TGoogleBaseObject) + Private + FmainPythonFileUri : String; + Fargs : TStringArray; + FpythonFileUris : TStringArray; + FjarFileUris : TStringArray; + FfileUris : TStringArray; + FarchiveUris : TStringArray; + Fproperties : TPySparkJobTypeproperties; + FloggingConfig : TLoggingConfig; + Protected + //Property setters + Procedure SetmainPythonFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetpythonFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : TPySparkJobTypeproperties); virtual; + Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property mainPythonFileUri : String Index 0 Read FmainPythonFileUri Write SetmainPythonFileUri; + Property args : TStringArray Index 8 Read Fargs Write Setargs; + Property pythonFileUris : TStringArray Index 16 Read FpythonFileUris Write SetpythonFileUris; + Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris; + Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris; + Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris; + Property properties : TPySparkJobTypeproperties Index 48 Read Fproperties Write Setproperties; + Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig; + end; + TPySparkJobClass = Class of TPySparkJob; + + { -------------------------------------------------------------------- + THiveJobTypescriptVariables + --------------------------------------------------------------------} + + THiveJobTypescriptVariables = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + THiveJobTypescriptVariablesClass = Class of THiveJobTypescriptVariables; + + { -------------------------------------------------------------------- + THiveJobTypeproperties + --------------------------------------------------------------------} + + THiveJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + THiveJobTypepropertiesClass = Class of THiveJobTypeproperties; + + { -------------------------------------------------------------------- + THiveJob + --------------------------------------------------------------------} + + THiveJob = Class(TGoogleBaseObject) + Private + FqueryFileUri : String; + FqueryList : TQueryList; + FcontinueOnFailure : boolean; + FscriptVariables : THiveJobTypescriptVariables; + Fproperties : THiveJobTypeproperties; + FjarFileUris : TStringArray; + Protected + //Property setters + Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual; + Procedure SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); virtual; + Procedure SetscriptVariables(AIndex : Integer; const AValue : THiveJobTypescriptVariables); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : THiveJobTypeproperties); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri; + Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList; + Property continueOnFailure : boolean Index 16 Read FcontinueOnFailure Write SetcontinueOnFailure; + Property scriptVariables : THiveJobTypescriptVariables Index 24 Read FscriptVariables Write SetscriptVariables; + Property properties : THiveJobTypeproperties Index 32 Read Fproperties Write Setproperties; + Property jarFileUris : TStringArray Index 40 Read FjarFileUris Write SetjarFileUris; + end; + THiveJobClass = Class of THiveJob; + + { -------------------------------------------------------------------- + TQueryList + --------------------------------------------------------------------} + + TQueryList = Class(TGoogleBaseObject) + Private + Fqueries : TStringArray; + Protected + //Property setters + Procedure Setqueries(AIndex : Integer; const AValue : TStringArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property queries : TStringArray Index 0 Read Fqueries Write Setqueries; + end; + TQueryListClass = Class of TQueryList; + + { -------------------------------------------------------------------- + TPigJobTypescriptVariables + --------------------------------------------------------------------} + + TPigJobTypescriptVariables = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TPigJobTypescriptVariablesClass = Class of TPigJobTypescriptVariables; + + { -------------------------------------------------------------------- + TPigJobTypeproperties + --------------------------------------------------------------------} + + TPigJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TPigJobTypepropertiesClass = Class of TPigJobTypeproperties; + + { -------------------------------------------------------------------- + TPigJob + --------------------------------------------------------------------} + + TPigJob = Class(TGoogleBaseObject) + Private + FqueryFileUri : String; + FqueryList : TQueryList; + FcontinueOnFailure : boolean; + FscriptVariables : TPigJobTypescriptVariables; + Fproperties : TPigJobTypeproperties; + FjarFileUris : TStringArray; + FloggingConfig : TLoggingConfig; + Protected + //Property setters + Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual; + Procedure SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); virtual; + Procedure SetscriptVariables(AIndex : Integer; const AValue : TPigJobTypescriptVariables); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : TPigJobTypeproperties); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri; + Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList; + Property continueOnFailure : boolean Index 16 Read FcontinueOnFailure Write SetcontinueOnFailure; + Property scriptVariables : TPigJobTypescriptVariables Index 24 Read FscriptVariables Write SetscriptVariables; + Property properties : TPigJobTypeproperties Index 32 Read Fproperties Write Setproperties; + Property jarFileUris : TStringArray Index 40 Read FjarFileUris Write SetjarFileUris; + Property loggingConfig : TLoggingConfig Index 48 Read FloggingConfig Write SetloggingConfig; + end; + TPigJobClass = Class of TPigJob; + + { -------------------------------------------------------------------- + TSparkSqlJobTypescriptVariables + --------------------------------------------------------------------} + + TSparkSqlJobTypescriptVariables = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TSparkSqlJobTypescriptVariablesClass = Class of TSparkSqlJobTypescriptVariables; + + { -------------------------------------------------------------------- + TSparkSqlJobTypeproperties + --------------------------------------------------------------------} + + TSparkSqlJobTypeproperties = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TSparkSqlJobTypepropertiesClass = Class of TSparkSqlJobTypeproperties; + + { -------------------------------------------------------------------- + TSparkSqlJob + --------------------------------------------------------------------} + + TSparkSqlJob = Class(TGoogleBaseObject) + Private + FqueryFileUri : String; + FqueryList : TQueryList; + FscriptVariables : TSparkSqlJobTypescriptVariables; + Fproperties : TSparkSqlJobTypeproperties; + FjarFileUris : TStringArray; + FloggingConfig : TLoggingConfig; + Protected + //Property setters + Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual; + Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual; + Procedure SetscriptVariables(AIndex : Integer; const AValue : TSparkSqlJobTypescriptVariables); virtual; + Procedure Setproperties(AIndex : Integer; const AValue : TSparkSqlJobTypeproperties); virtual; + Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri; + Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList; + Property scriptVariables : TSparkSqlJobTypescriptVariables Index 16 Read FscriptVariables Write SetscriptVariables; + Property properties : TSparkSqlJobTypeproperties Index 24 Read Fproperties Write Setproperties; + Property jarFileUris : TStringArray Index 32 Read FjarFileUris Write SetjarFileUris; + Property loggingConfig : TLoggingConfig Index 40 Read FloggingConfig Write SetloggingConfig; + end; + TSparkSqlJobClass = Class of TSparkSqlJob; + + { -------------------------------------------------------------------- + TJobStatus + --------------------------------------------------------------------} + + TJobStatus = Class(TGoogleBaseObject) + Private + Fstate : String; + Fdetails : String; + FstateStartTime : String; + Protected + //Property setters + Procedure Setstate(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetails(AIndex : Integer; const AValue : String); virtual; + Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property state : String Index 0 Read Fstate Write Setstate; + Property details : String Index 8 Read Fdetails Write Setdetails; + Property stateStartTime : String Index 16 Read FstateStartTime Write SetstateStartTime; + end; + TJobStatusClass = Class of TJobStatus; + + { -------------------------------------------------------------------- + TListJobsResponse + --------------------------------------------------------------------} + + TListJobsResponse = Class(TGoogleBaseObject) + Private + Fjobs : TListJobsResponseTypejobsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListJobsResponseClass = Class of TListJobsResponse; + + { -------------------------------------------------------------------- + TCancelJobRequest + --------------------------------------------------------------------} + + TCancelJobRequest = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Published + end; + TCancelJobRequestClass = Class of TCancelJobRequest; + + { -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + TEmpty = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Published + end; + TEmptyClass = Class of TEmpty; + + { -------------------------------------------------------------------- + TListOperationsResponse + --------------------------------------------------------------------} + + TListOperationsResponse = Class(TGoogleBaseObject) + Private + Foperations : TListOperationsResponseTypeoperationsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListOperationsResponseClass = Class of TListOperationsResponse; + + { -------------------------------------------------------------------- + TDiagnoseClusterResults + --------------------------------------------------------------------} + + TDiagnoseClusterResults = Class(TGoogleBaseObject) + Private + FoutputUri : String; + Protected + //Property setters + Procedure SetoutputUri(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property outputUri : String Index 0 Read FoutputUri Write SetoutputUri; + end; + TDiagnoseClusterResultsClass = Class of TDiagnoseClusterResults; + + { -------------------------------------------------------------------- + TClusterOperationMetadata + --------------------------------------------------------------------} + + TClusterOperationMetadata = Class(TGoogleBaseObject) + Private + FclusterName : String; + FclusterUuid : String; + Fstatus : TClusterOperationStatus; + FstatusHistory : TClusterOperationMetadataTypestatusHistoryArray; + FoperationType : String; + Fdescription : String; + Protected + //Property setters + Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual; + Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual; + Procedure Setstatus(AIndex : Integer; const AValue : TClusterOperationStatus); virtual; + Procedure SetstatusHistory(AIndex : Integer; const AValue : TClusterOperationMetadataTypestatusHistoryArray); virtual; + Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual; + Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property clusterName : String Index 0 Read FclusterName Write SetclusterName; + Property clusterUuid : String Index 8 Read FclusterUuid Write SetclusterUuid; + Property status : TClusterOperationStatus Index 16 Read Fstatus Write Setstatus; + Property statusHistory : TClusterOperationMetadataTypestatusHistoryArray Index 24 Read FstatusHistory Write SetstatusHistory; + Property operationType : String Index 32 Read FoperationType Write SetoperationType; + Property description : String Index 40 Read Fdescription Write Setdescription; + end; + TClusterOperationMetadataClass = Class of TClusterOperationMetadata; + + { -------------------------------------------------------------------- + TClusterOperationStatus + --------------------------------------------------------------------} + + TClusterOperationStatus = Class(TGoogleBaseObject) + Private + Fstate : String; + FinnerState : String; + Fdetails : String; + FstateStartTime : String; + Protected + //Property setters + Procedure Setstate(AIndex : Integer; const AValue : String); virtual; + Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetails(AIndex : Integer; const AValue : String); virtual; + Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property state : String Index 0 Read Fstate Write Setstate; + Property innerState : String Index 8 Read FinnerState Write SetinnerState; + Property details : String Index 16 Read Fdetails Write Setdetails; + Property stateStartTime : String Index 24 Read FstateStartTime Write SetstateStartTime; + end; + TClusterOperationStatusClass = Class of TClusterOperationStatus; + + { -------------------------------------------------------------------- + TDiagnoseClusterOutputLocation + --------------------------------------------------------------------} + + TDiagnoseClusterOutputLocation = Class(TGoogleBaseObject) + Private + FoutputUri : String; + Protected + //Property setters + Procedure SetoutputUri(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property outputUri : String Index 0 Read FoutputUri Write SetoutputUri; + end; + TDiagnoseClusterOutputLocationClass = Class of TDiagnoseClusterOutputLocation; + + { -------------------------------------------------------------------- + TOperationMetadata + --------------------------------------------------------------------} + + TOperationMetadata = Class(TGoogleBaseObject) + Private + Fstate : String; + FinnerState : String; + Fdetails : String; + FinsertTime : String; + FstartTime : String; + FendTime : String; + FclusterName : String; + FclusterUuid : String; + Fstatus : TOperationStatus; + FstatusHistory : TOperationMetadataTypestatusHistoryArray; + FoperationType : String; + Fdescription : String; + Protected + //Property setters + Procedure Setstate(AIndex : Integer; const AValue : String); virtual; + Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetails(AIndex : Integer; const AValue : String); virtual; + Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetendTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual; + Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual; + Procedure Setstatus(AIndex : Integer; const AValue : TOperationStatus); virtual; + Procedure SetstatusHistory(AIndex : Integer; const AValue : TOperationMetadataTypestatusHistoryArray); virtual; + Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual; + Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property state : String Index 0 Read Fstate Write Setstate; + Property innerState : String Index 8 Read FinnerState Write SetinnerState; + Property details : String Index 16 Read Fdetails Write Setdetails; + Property insertTime : String Index 24 Read FinsertTime Write SetinsertTime; + Property startTime : String Index 32 Read FstartTime Write SetstartTime; + Property endTime : String Index 40 Read FendTime Write SetendTime; + Property clusterName : String Index 48 Read FclusterName Write SetclusterName; + Property clusterUuid : String Index 56 Read FclusterUuid Write SetclusterUuid; + Property status : TOperationStatus Index 64 Read Fstatus Write Setstatus; + Property statusHistory : TOperationMetadataTypestatusHistoryArray Index 72 Read FstatusHistory Write SetstatusHistory; + Property operationType : String Index 80 Read FoperationType Write SetoperationType; + Property description : String Index 88 Read Fdescription Write Setdescription; + end; + TOperationMetadataClass = Class of TOperationMetadata; + + { -------------------------------------------------------------------- + TOperationStatus + --------------------------------------------------------------------} + + TOperationStatus = Class(TGoogleBaseObject) + Private + Fstate : String; + FinnerState : String; + Fdetails : String; + FstateStartTime : String; + Protected + //Property setters + Procedure Setstate(AIndex : Integer; const AValue : String); virtual; + Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual; + Procedure Setdetails(AIndex : Integer; const AValue : String); virtual; + Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property state : String Index 0 Read Fstate Write Setstate; + Property innerState : String Index 8 Read FinnerState Write SetinnerState; + Property details : String Index 16 Read Fdetails Write Setdetails; + Property stateStartTime : String Index 24 Read FstateStartTime Write SetstateStartTime; + end; + TOperationStatusClass = Class of TOperationStatus; + + { -------------------------------------------------------------------- + TProjectsRegionsClustersResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsRegionsClustersResource, method Patch + + TProjectsRegionsClustersPatchOptions = Record + updateMask : String; + end; + + + //Optional query Options for TProjectsRegionsClustersResource, method List + + TProjectsRegionsClustersListOptions = Record + pageSize : integer; + pageToken : String; + end; + + TProjectsRegionsClustersResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Create(projectId: string; region: string; aCluster : TCluster) : TOperation;overload; + Function Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : string = '') : TOperation; + Function Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : TProjectsRegionsClusterspatchOptions) : TOperation; + Function Delete(projectId: string; region: string; clusterName: string) : TOperation; + Function Get(projectId: string; region: string; clusterName: string) : TCluster; + Function List(projectId: string; region: string; AQuery : string = '') : TListClustersResponse; + Function List(projectId: string; region: string; AQuery : TProjectsRegionsClusterslistOptions) : TListClustersResponse; + Function Diagnose(projectId: string; region: string; clusterName: string; aDiagnoseClusterRequest : TDiagnoseClusterRequest) : TOperation; + end; + + + { -------------------------------------------------------------------- + TProjectsRegionsJobsResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsRegionsJobsResource, method List + + TProjectsRegionsJobsListOptions = Record + pageSize : integer; + pageToken : String; + clusterName : String; + jobStateMatcher : String; + end; + + TProjectsRegionsJobsResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Submit(projectId: string; region: string; aSubmitJobRequest : TSubmitJobRequest) : TJob; + Function Get(projectId: string; region: string; jobId: string) : TJob; + Function List(projectId: string; region: string; AQuery : string = '') : TListJobsResponse; + Function List(projectId: string; region: string; AQuery : TProjectsRegionsJobslistOptions) : TListJobsResponse; + Function Cancel(projectId: string; region: string; jobId: string; aCancelJobRequest : TCancelJobRequest) : TJob; + Function Delete(projectId: string; region: string; jobId: string) : TEmpty; + end; + + + { -------------------------------------------------------------------- + TProjectsRegionsOperationsResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsRegionsOperationsResource, method List + + TProjectsRegionsOperationsListOptions = Record + filter : String; + pageSize : integer; + pageToken : String; + end; + + TProjectsRegionsOperationsResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Get(_name: string) : TOperation; + Function List(_name: string; AQuery : string = '') : TListOperationsResponse; + Function List(_name: string; AQuery : TProjectsRegionsOperationslistOptions) : TListOperationsResponse; + Function Cancel(_name: string) : TEmpty; + Function Delete(_name: string) : TEmpty; + end; + + + { -------------------------------------------------------------------- + TProjectsRegionsResource + --------------------------------------------------------------------} + + TProjectsRegionsResource = Class(TGoogleResource) + Private + FClustersInstance : TProjectsRegionsClustersResource; + FJobsInstance : TProjectsRegionsJobsResource; + FOperationsInstance : TProjectsRegionsOperationsResource; + Function GetClustersInstance : TProjectsRegionsClustersResource;virtual; + Function GetJobsInstance : TProjectsRegionsJobsResource;virtual; + Function GetOperationsInstance : TProjectsRegionsOperationsResource;virtual; + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function CreateClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload; + Function CreateClustersResource : TProjectsRegionsClustersResource;virtual;overload; + Function CreateJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload; + Function CreateJobsResource : TProjectsRegionsJobsResource;virtual;overload; + Function CreateOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload; + Function CreateOperationsResource : TProjectsRegionsOperationsResource;virtual;overload; + Property ClustersResource : TProjectsRegionsClustersResource Read GetClustersInstance; + Property JobsResource : TProjectsRegionsJobsResource Read GetJobsInstance; + Property OperationsResource : TProjectsRegionsOperationsResource Read GetOperationsInstance; + end; + + + { -------------------------------------------------------------------- + TProjectsResource + --------------------------------------------------------------------} + + TProjectsResource = Class(TGoogleResource) + Private + FRegionsClustersInstance : TProjectsRegionsClustersResource; + FRegionsJobsInstance : TProjectsRegionsJobsResource; + FRegionsOperationsInstance : TProjectsRegionsOperationsResource; + FRegionsInstance : TProjectsRegionsResource; + Function GetRegionsClustersInstance : TProjectsRegionsClustersResource;virtual; + Function GetRegionsJobsInstance : TProjectsRegionsJobsResource;virtual; + Function GetRegionsOperationsInstance : TProjectsRegionsOperationsResource;virtual; + Function GetRegionsInstance : TProjectsRegionsResource;virtual; + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function CreateRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload; + Function CreateRegionsClustersResource : TProjectsRegionsClustersResource;virtual;overload; + Function CreateRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload; + Function CreateRegionsJobsResource : TProjectsRegionsJobsResource;virtual;overload; + Function CreateRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload; + Function CreateRegionsOperationsResource : TProjectsRegionsOperationsResource;virtual;overload; + Function CreateRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;virtual;overload; + Function CreateRegionsResource : TProjectsRegionsResource;virtual;overload; + Property RegionsClustersResource : TProjectsRegionsClustersResource Read GetRegionsClustersInstance; + Property RegionsJobsResource : TProjectsRegionsJobsResource Read GetRegionsJobsInstance; + Property RegionsOperationsResource : TProjectsRegionsOperationsResource Read GetRegionsOperationsInstance; + Property RegionsResource : TProjectsRegionsResource Read GetRegionsInstance; + end; + + + { -------------------------------------------------------------------- + TDataprocAPI + --------------------------------------------------------------------} + + TDataprocAPI = Class(TGoogleAPI) + Private + FProjectsRegionsClustersInstance : TProjectsRegionsClustersResource; + FProjectsRegionsJobsInstance : TProjectsRegionsJobsResource; + FProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource; + FProjectsRegionsInstance : TProjectsRegionsResource; + FProjectsInstance : TProjectsResource; + Function GetProjectsRegionsClustersInstance : TProjectsRegionsClustersResource;virtual; + Function GetProjectsRegionsJobsInstance : TProjectsRegionsJobsResource;virtual; + Function GetProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource;virtual; + Function GetProjectsRegionsInstance : TProjectsRegionsResource;virtual; + Function GetProjectsInstance : TProjectsResource;virtual; + Public + //Override class functions with API info + Class Function APIName : String; override; + Class Function APIVersion : String; override; + Class Function APIRevision : String; override; + Class Function APIID : String; override; + Class Function APITitle : String; override; + Class Function APIDescription : String; override; + Class Function APIOwnerDomain : String; override; + Class Function APIOwnerName : String; override; + Class Function APIIcon16 : String; override; + Class Function APIIcon32 : String; override; + Class Function APIdocumentationLink : String; override; + Class Function APIrootUrl : string; override; + Class Function APIbasePath : string;override; + Class Function APIbaseURL : String;override; + Class Function APIProtocol : string;override; + Class Function APIservicePath : string;override; + Class Function APIbatchPath : String;override; + Class Function APIAuthScopes : TScopeInfoArray;override; + Class Function APINeedsAuth : Boolean;override; + Class Procedure RegisterAPIResources; override; + //Add create function for resources + Function CreateProjectsRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload; + Function CreateProjectsRegionsClustersResource : TProjectsRegionsClustersResource;virtual;overload; + Function CreateProjectsRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload; + Function CreateProjectsRegionsJobsResource : TProjectsRegionsJobsResource;virtual;overload; + Function CreateProjectsRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload; + Function CreateProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource;virtual;overload; + Function CreateProjectsRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;virtual;overload; + Function CreateProjectsRegionsResource : TProjectsRegionsResource;virtual;overload; + Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload; + Function CreateProjectsResource : TProjectsResource;virtual;overload; + //Add default on-demand instances for resources + Property ProjectsRegionsClustersResource : TProjectsRegionsClustersResource Read GetProjectsRegionsClustersInstance; + Property ProjectsRegionsJobsResource : TProjectsRegionsJobsResource Read GetProjectsRegionsJobsInstance; + Property ProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource Read GetProjectsRegionsOperationsInstance; + Property ProjectsRegionsResource : TProjectsRegionsResource Read GetProjectsRegionsInstance; + Property ProjectsResource : TProjectsResource Read GetProjectsInstance; + end; + +implementation + + +{ -------------------------------------------------------------------- + TCluster + --------------------------------------------------------------------} + + +Procedure TCluster.SetprojectId(AIndex : Integer; const AValue : String); + +begin + If (FprojectId=AValue) then exit; + FprojectId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCluster.SetclusterName(AIndex : Integer; const AValue : String); + +begin + If (FclusterName=AValue) then exit; + FclusterName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCluster.Setconfig(AIndex : Integer; const AValue : TClusterConfig); + +begin + If (Fconfig=AValue) then exit; + Fconfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCluster.Setstatus(AIndex : Integer; const AValue : TClusterStatus); + +begin + If (Fstatus=AValue) then exit; + Fstatus:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCluster.SetstatusHistory(AIndex : Integer; const AValue : TClusterTypestatusHistoryArray); + +begin + If (FstatusHistory=AValue) then exit; + FstatusHistory:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCluster.SetclusterUuid(AIndex : Integer; const AValue : String); + +begin + If (FclusterUuid=AValue) then exit; + FclusterUuid:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TCluster.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'statushistory' : SetLength(FstatusHistory,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TClusterConfig + --------------------------------------------------------------------} + + +Procedure TClusterConfig.SetconfigBucket(AIndex : Integer; const AValue : String); + +begin + If (FconfigBucket=AValue) then exit; + FconfigBucket:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetgceClusterConfig(AIndex : Integer; const AValue : TGceClusterConfig); + +begin + If (FgceClusterConfig=AValue) then exit; + FgceClusterConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetmasterConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); + +begin + If (FmasterConfig=AValue) then exit; + FmasterConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetworkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); + +begin + If (FworkerConfig=AValue) then exit; + FworkerConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetsecondaryWorkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); + +begin + If (FsecondaryWorkerConfig=AValue) then exit; + FsecondaryWorkerConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetsoftwareConfig(AIndex : Integer; const AValue : TSoftwareConfig); + +begin + If (FsoftwareConfig=AValue) then exit; + FsoftwareConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterConfig.SetinitializationActions(AIndex : Integer; const AValue : TClusterConfigTypeinitializationActionsArray); + +begin + If (FinitializationActions=AValue) then exit; + FinitializationActions:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TClusterConfig.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'initializationactions' : SetLength(FinitializationActions,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TGceClusterConfigTypemetadata + --------------------------------------------------------------------} + + +Class Function TGceClusterConfigTypemetadata.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TGceClusterConfig + --------------------------------------------------------------------} + + +Procedure TGceClusterConfig.SetzoneUri(AIndex : Integer; const AValue : String); + +begin + If (FzoneUri=AValue) then exit; + FzoneUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGceClusterConfig.SetnetworkUri(AIndex : Integer; const AValue : String); + +begin + If (FnetworkUri=AValue) then exit; + FnetworkUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGceClusterConfig.SetsubnetworkUri(AIndex : Integer; const AValue : String); + +begin + If (FsubnetworkUri=AValue) then exit; + FsubnetworkUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGceClusterConfig.SetserviceAccountScopes(AIndex : Integer; const AValue : TStringArray); + +begin + If (FserviceAccountScopes=AValue) then exit; + FserviceAccountScopes:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGceClusterConfig.Settags(AIndex : Integer; const AValue : TStringArray); + +begin + If (Ftags=AValue) then exit; + Ftags:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGceClusterConfig.Setmetadata(AIndex : Integer; const AValue : TGceClusterConfigTypemetadata); + +begin + If (Fmetadata=AValue) then exit; + Fmetadata:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TGceClusterConfig.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'serviceaccountscopes' : SetLength(FserviceAccountScopes,ALength); + 'tags' : SetLength(Ftags,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TInstanceGroupConfig + --------------------------------------------------------------------} + + +Procedure TInstanceGroupConfig.SetnumInstances(AIndex : Integer; const AValue : integer); + +begin + If (FnumInstances=AValue) then exit; + FnumInstances:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetinstanceNames(AIndex : Integer; const AValue : TStringArray); + +begin + If (FinstanceNames=AValue) then exit; + FinstanceNames:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetimageUri(AIndex : Integer; const AValue : String); + +begin + If (FimageUri=AValue) then exit; + FimageUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetmachineTypeUri(AIndex : Integer; const AValue : String); + +begin + If (FmachineTypeUri=AValue) then exit; + FmachineTypeUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetdiskConfig(AIndex : Integer; const AValue : TDiskConfig); + +begin + If (FdiskConfig=AValue) then exit; + FdiskConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetisPreemptible(AIndex : Integer; const AValue : boolean); + +begin + If (FisPreemptible=AValue) then exit; + FisPreemptible:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TInstanceGroupConfig.SetmanagedGroupConfig(AIndex : Integer; const AValue : TManagedGroupConfig); + +begin + If (FmanagedGroupConfig=AValue) then exit; + FmanagedGroupConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TInstanceGroupConfig.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'instancenames' : SetLength(FinstanceNames,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TDiskConfig + --------------------------------------------------------------------} + + +Procedure TDiskConfig.SetbootDiskSizeGb(AIndex : Integer; const AValue : integer); + +begin + If (FbootDiskSizeGb=AValue) then exit; + FbootDiskSizeGb:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDiskConfig.SetnumLocalSsds(AIndex : Integer; const AValue : integer); + +begin + If (FnumLocalSsds=AValue) then exit; + FnumLocalSsds:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TManagedGroupConfig + --------------------------------------------------------------------} + + +Procedure TManagedGroupConfig.SetinstanceTemplateName(AIndex : Integer; const AValue : String); + +begin + If (FinstanceTemplateName=AValue) then exit; + FinstanceTemplateName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TManagedGroupConfig.SetinstanceGroupManagerName(AIndex : Integer; const AValue : String); + +begin + If (FinstanceGroupManagerName=AValue) then exit; + FinstanceGroupManagerName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TSoftwareConfigTypeproperties + --------------------------------------------------------------------} + + +Class Function TSoftwareConfigTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TSoftwareConfig + --------------------------------------------------------------------} + + +Procedure TSoftwareConfig.SetimageVersion(AIndex : Integer; const AValue : String); + +begin + If (FimageVersion=AValue) then exit; + FimageVersion:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSoftwareConfig.Setproperties(AIndex : Integer; const AValue : TSoftwareConfigTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TNodeInitializationAction + --------------------------------------------------------------------} + + +Procedure TNodeInitializationAction.SetexecutableFile(AIndex : Integer; const AValue : String); + +begin + If (FexecutableFile=AValue) then exit; + FexecutableFile:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TNodeInitializationAction.SetexecutionTimeout(AIndex : Integer; const AValue : String); + +begin + If (FexecutionTimeout=AValue) then exit; + FexecutionTimeout:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TClusterStatus + --------------------------------------------------------------------} + + +Procedure TClusterStatus.Setstate(AIndex : Integer; const AValue : String); + +begin + If (Fstate=AValue) then exit; + Fstate:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterStatus.Setdetail(AIndex : Integer; const AValue : String); + +begin + If (Fdetail=AValue) then exit; + Fdetail:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterStatus.SetstateStartTime(AIndex : Integer; const AValue : String); + +begin + If (FstateStartTime=AValue) then exit; + FstateStartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TOperationTypemetadata + --------------------------------------------------------------------} + + +Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TOperationTyperesponse + --------------------------------------------------------------------} + + +Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TOperation + --------------------------------------------------------------------} + + +Procedure TOperation.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); + +begin + If (Fmetadata=AValue) then exit; + Fmetadata:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean); + +begin + If (Fdone=AValue) then exit; + Fdone:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus); + +begin + If (Ferror=AValue) then exit; + Ferror:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); + +begin + If (Fresponse=AValue) then exit; + Fresponse:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TStatusTypedetailsItem + --------------------------------------------------------------------} + + +Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TStatus + --------------------------------------------------------------------} + + +Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer); + +begin + If (Fcode=AValue) then exit; + Fcode:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String); + +begin + If (Fmessage=AValue) then exit; + Fmessage:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); + +begin + If (Fdetails=AValue) then exit; + Fdetails:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'details' : SetLength(Fdetails,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TListClustersResponse + --------------------------------------------------------------------} + + +Procedure TListClustersResponse.Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray); + +begin + If (Fclusters=AValue) then exit; + Fclusters:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListClustersResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListClustersResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'clusters' : SetLength(Fclusters,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TDiagnoseClusterRequest + --------------------------------------------------------------------} + + + + +{ -------------------------------------------------------------------- + TSubmitJobRequest + --------------------------------------------------------------------} + + +Procedure TSubmitJobRequest.Setjob(AIndex : Integer; const AValue : TJob); + +begin + If (Fjob=AValue) then exit; + Fjob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TJob + --------------------------------------------------------------------} + + +Procedure TJob.Setreference(AIndex : Integer; const AValue : TJobReference); + +begin + If (Freference=AValue) then exit; + Freference:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.Setplacement(AIndex : Integer; const AValue : TJobPlacement); + +begin + If (Fplacement=AValue) then exit; + Fplacement:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SethadoopJob(AIndex : Integer; const AValue : THadoopJob); + +begin + If (FhadoopJob=AValue) then exit; + FhadoopJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetsparkJob(AIndex : Integer; const AValue : TSparkJob); + +begin + If (FsparkJob=AValue) then exit; + FsparkJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetpysparkJob(AIndex : Integer; const AValue : TPySparkJob); + +begin + If (FpysparkJob=AValue) then exit; + FpysparkJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SethiveJob(AIndex : Integer; const AValue : THiveJob); + +begin + If (FhiveJob=AValue) then exit; + FhiveJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetpigJob(AIndex : Integer; const AValue : TPigJob); + +begin + If (FpigJob=AValue) then exit; + FpigJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetsparkSqlJob(AIndex : Integer; const AValue : TSparkSqlJob); + +begin + If (FsparkSqlJob=AValue) then exit; + FsparkSqlJob:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.Setstatus(AIndex : Integer; const AValue : TJobStatus); + +begin + If (Fstatus=AValue) then exit; + Fstatus:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetstatusHistory(AIndex : Integer; const AValue : TJobTypestatusHistoryArray); + +begin + If (FstatusHistory=AValue) then exit; + FstatusHistory:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetdriverOutputResourceUri(AIndex : Integer; const AValue : String); + +begin + If (FdriverOutputResourceUri=AValue) then exit; + FdriverOutputResourceUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetdriverControlFilesUri(AIndex : Integer; const AValue : String); + +begin + If (FdriverControlFilesUri=AValue) then exit; + FdriverControlFilesUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'statushistory' : SetLength(FstatusHistory,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TJobReference + --------------------------------------------------------------------} + + +Procedure TJobReference.SetprojectId(AIndex : Integer; const AValue : String); + +begin + If (FprojectId=AValue) then exit; + FprojectId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJobReference.SetjobId(AIndex : Integer; const AValue : String); + +begin + If (FjobId=AValue) then exit; + FjobId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TJobPlacement + --------------------------------------------------------------------} + + +Procedure TJobPlacement.SetclusterName(AIndex : Integer; const AValue : String); + +begin + If (FclusterName=AValue) then exit; + FclusterName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJobPlacement.SetclusterUuid(AIndex : Integer; const AValue : String); + +begin + If (FclusterUuid=AValue) then exit; + FclusterUuid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + THadoopJobTypeproperties + --------------------------------------------------------------------} + + +Class Function THadoopJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + THadoopJob + --------------------------------------------------------------------} + + +Procedure THadoopJob.SetmainJarFileUri(AIndex : Integer; const AValue : String); + +begin + If (FmainJarFileUri=AValue) then exit; + FmainJarFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.SetmainClass(AIndex : Integer; const AValue : String); + +begin + If (FmainClass=AValue) then exit; + FmainClass:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.Setargs(AIndex : Integer; const AValue : TStringArray); + +begin + If (Fargs=AValue) then exit; + Fargs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.SetfileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FfileUris=AValue) then exit; + FfileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FarchiveUris=AValue) then exit; + FarchiveUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.Setproperties(AIndex : Integer; const AValue : THadoopJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THadoopJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); + +begin + If (FloggingConfig=AValue) then exit; + FloggingConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure THadoopJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'args' : SetLength(Fargs,ALength); + 'jarfileuris' : SetLength(FjarFileUris,ALength); + 'fileuris' : SetLength(FfileUris,ALength); + 'archiveuris' : SetLength(FarchiveUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TLoggingConfigTypedriverLogLevels + --------------------------------------------------------------------} + + +Class Function TLoggingConfigTypedriverLogLevels.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TLoggingConfig + --------------------------------------------------------------------} + + +Procedure TLoggingConfig.SetdriverLogLevels(AIndex : Integer; const AValue : TLoggingConfigTypedriverLogLevels); + +begin + If (FdriverLogLevels=AValue) then exit; + FdriverLogLevels:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TSparkJobTypeproperties + --------------------------------------------------------------------} + + +Class Function TSparkJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TSparkJob + --------------------------------------------------------------------} + + +Procedure TSparkJob.SetmainJarFileUri(AIndex : Integer; const AValue : String); + +begin + If (FmainJarFileUri=AValue) then exit; + FmainJarFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.SetmainClass(AIndex : Integer; const AValue : String); + +begin + If (FmainClass=AValue) then exit; + FmainClass:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.Setargs(AIndex : Integer; const AValue : TStringArray); + +begin + If (Fargs=AValue) then exit; + Fargs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.SetfileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FfileUris=AValue) then exit; + FfileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FarchiveUris=AValue) then exit; + FarchiveUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.Setproperties(AIndex : Integer; const AValue : TSparkJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); + +begin + If (FloggingConfig=AValue) then exit; + FloggingConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TSparkJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'args' : SetLength(Fargs,ALength); + 'jarfileuris' : SetLength(FjarFileUris,ALength); + 'fileuris' : SetLength(FfileUris,ALength); + 'archiveuris' : SetLength(FarchiveUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TPySparkJobTypeproperties + --------------------------------------------------------------------} + + +Class Function TPySparkJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TPySparkJob + --------------------------------------------------------------------} + + +Procedure TPySparkJob.SetmainPythonFileUri(AIndex : Integer; const AValue : String); + +begin + If (FmainPythonFileUri=AValue) then exit; + FmainPythonFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.Setargs(AIndex : Integer; const AValue : TStringArray); + +begin + If (Fargs=AValue) then exit; + Fargs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.SetpythonFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FpythonFileUris=AValue) then exit; + FpythonFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.SetfileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FfileUris=AValue) then exit; + FfileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FarchiveUris=AValue) then exit; + FarchiveUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.Setproperties(AIndex : Integer; const AValue : TPySparkJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPySparkJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); + +begin + If (FloggingConfig=AValue) then exit; + FloggingConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TPySparkJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'args' : SetLength(Fargs,ALength); + 'pythonfileuris' : SetLength(FpythonFileUris,ALength); + 'jarfileuris' : SetLength(FjarFileUris,ALength); + 'fileuris' : SetLength(FfileUris,ALength); + 'archiveuris' : SetLength(FarchiveUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + THiveJobTypescriptVariables + --------------------------------------------------------------------} + + +Class Function THiveJobTypescriptVariables.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + THiveJobTypeproperties + --------------------------------------------------------------------} + + +Class Function THiveJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + THiveJob + --------------------------------------------------------------------} + + +Procedure THiveJob.SetqueryFileUri(AIndex : Integer; const AValue : String); + +begin + If (FqueryFileUri=AValue) then exit; + FqueryFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THiveJob.SetqueryList(AIndex : Integer; const AValue : TQueryList); + +begin + If (FqueryList=AValue) then exit; + FqueryList:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THiveJob.SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); + +begin + If (FcontinueOnFailure=AValue) then exit; + FcontinueOnFailure:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THiveJob.SetscriptVariables(AIndex : Integer; const AValue : THiveJobTypescriptVariables); + +begin + If (FscriptVariables=AValue) then exit; + FscriptVariables:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THiveJob.Setproperties(AIndex : Integer; const AValue : THiveJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure THiveJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure THiveJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'jarfileuris' : SetLength(FjarFileUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TQueryList + --------------------------------------------------------------------} + + +Procedure TQueryList.Setqueries(AIndex : Integer; const AValue : TStringArray); + +begin + If (Fqueries=AValue) then exit; + Fqueries:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TQueryList.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'queries' : SetLength(Fqueries,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TPigJobTypescriptVariables + --------------------------------------------------------------------} + + +Class Function TPigJobTypescriptVariables.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TPigJobTypeproperties + --------------------------------------------------------------------} + + +Class Function TPigJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TPigJob + --------------------------------------------------------------------} + + +Procedure TPigJob.SetqueryFileUri(AIndex : Integer; const AValue : String); + +begin + If (FqueryFileUri=AValue) then exit; + FqueryFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.SetqueryList(AIndex : Integer; const AValue : TQueryList); + +begin + If (FqueryList=AValue) then exit; + FqueryList:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); + +begin + If (FcontinueOnFailure=AValue) then exit; + FcontinueOnFailure:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.SetscriptVariables(AIndex : Integer; const AValue : TPigJobTypescriptVariables); + +begin + If (FscriptVariables=AValue) then exit; + FscriptVariables:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.Setproperties(AIndex : Integer; const AValue : TPigJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPigJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); + +begin + If (FloggingConfig=AValue) then exit; + FloggingConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TPigJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'jarfileuris' : SetLength(FjarFileUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TSparkSqlJobTypescriptVariables + --------------------------------------------------------------------} + + +Class Function TSparkSqlJobTypescriptVariables.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TSparkSqlJobTypeproperties + --------------------------------------------------------------------} + + +Class Function TSparkSqlJobTypeproperties.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TSparkSqlJob + --------------------------------------------------------------------} + + +Procedure TSparkSqlJob.SetqueryFileUri(AIndex : Integer; const AValue : String); + +begin + If (FqueryFileUri=AValue) then exit; + FqueryFileUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkSqlJob.SetqueryList(AIndex : Integer; const AValue : TQueryList); + +begin + If (FqueryList=AValue) then exit; + FqueryList:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkSqlJob.SetscriptVariables(AIndex : Integer; const AValue : TSparkSqlJobTypescriptVariables); + +begin + If (FscriptVariables=AValue) then exit; + FscriptVariables:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkSqlJob.Setproperties(AIndex : Integer; const AValue : TSparkSqlJobTypeproperties); + +begin + If (Fproperties=AValue) then exit; + Fproperties:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkSqlJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray); + +begin + If (FjarFileUris=AValue) then exit; + FjarFileUris:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TSparkSqlJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); + +begin + If (FloggingConfig=AValue) then exit; + FloggingConfig:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TSparkSqlJob.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'jarfileuris' : SetLength(FjarFileUris,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TJobStatus + --------------------------------------------------------------------} + + +Procedure TJobStatus.Setstate(AIndex : Integer; const AValue : String); + +begin + If (Fstate=AValue) then exit; + Fstate:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJobStatus.Setdetails(AIndex : Integer; const AValue : String); + +begin + If (Fdetails=AValue) then exit; + Fdetails:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJobStatus.SetstateStartTime(AIndex : Integer; const AValue : String); + +begin + If (FstateStartTime=AValue) then exit; + FstateStartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TListJobsResponse + --------------------------------------------------------------------} + + +Procedure TListJobsResponse.Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); + +begin + If (Fjobs=AValue) then exit; + Fjobs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListJobsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListJobsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'jobs' : SetLength(Fjobs,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TCancelJobRequest + --------------------------------------------------------------------} + + + + +{ -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + + + +{ -------------------------------------------------------------------- + TListOperationsResponse + --------------------------------------------------------------------} + + +Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); + +begin + If (Foperations=AValue) then exit; + Foperations:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListOperationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'operations' : SetLength(Foperations,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TDiagnoseClusterResults + --------------------------------------------------------------------} + + +Procedure TDiagnoseClusterResults.SetoutputUri(AIndex : Integer; const AValue : String); + +begin + If (FoutputUri=AValue) then exit; + FoutputUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TClusterOperationMetadata + --------------------------------------------------------------------} + + +Procedure TClusterOperationMetadata.SetclusterName(AIndex : Integer; const AValue : String); + +begin + If (FclusterName=AValue) then exit; + FclusterName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationMetadata.SetclusterUuid(AIndex : Integer; const AValue : String); + +begin + If (FclusterUuid=AValue) then exit; + FclusterUuid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationMetadata.Setstatus(AIndex : Integer; const AValue : TClusterOperationStatus); + +begin + If (Fstatus=AValue) then exit; + Fstatus:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationMetadata.SetstatusHistory(AIndex : Integer; const AValue : TClusterOperationMetadataTypestatusHistoryArray); + +begin + If (FstatusHistory=AValue) then exit; + FstatusHistory:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String); + +begin + If (FoperationType=AValue) then exit; + FoperationType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationMetadata.Setdescription(AIndex : Integer; const AValue : String); + +begin + If (Fdescription=AValue) then exit; + Fdescription:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TClusterOperationMetadata.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'statushistory' : SetLength(FstatusHistory,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TClusterOperationStatus + --------------------------------------------------------------------} + + +Procedure TClusterOperationStatus.Setstate(AIndex : Integer; const AValue : String); + +begin + If (Fstate=AValue) then exit; + Fstate:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationStatus.SetinnerState(AIndex : Integer; const AValue : String); + +begin + If (FinnerState=AValue) then exit; + FinnerState:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationStatus.Setdetails(AIndex : Integer; const AValue : String); + +begin + If (Fdetails=AValue) then exit; + Fdetails:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TClusterOperationStatus.SetstateStartTime(AIndex : Integer; const AValue : String); + +begin + If (FstateStartTime=AValue) then exit; + FstateStartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TDiagnoseClusterOutputLocation + --------------------------------------------------------------------} + + +Procedure TDiagnoseClusterOutputLocation.SetoutputUri(AIndex : Integer; const AValue : String); + +begin + If (FoutputUri=AValue) then exit; + FoutputUri:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TOperationMetadata + --------------------------------------------------------------------} + + +Procedure TOperationMetadata.Setstate(AIndex : Integer; const AValue : String); + +begin + If (Fstate=AValue) then exit; + Fstate:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetinnerState(AIndex : Integer; const AValue : String); + +begin + If (FinnerState=AValue) then exit; + FinnerState:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.Setdetails(AIndex : Integer; const AValue : String); + +begin + If (Fdetails=AValue) then exit; + Fdetails:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetinsertTime(AIndex : Integer; const AValue : String); + +begin + If (FinsertTime=AValue) then exit; + FinsertTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetstartTime(AIndex : Integer; const AValue : String); + +begin + If (FstartTime=AValue) then exit; + FstartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetendTime(AIndex : Integer; const AValue : String); + +begin + If (FendTime=AValue) then exit; + FendTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetclusterName(AIndex : Integer; const AValue : String); + +begin + If (FclusterName=AValue) then exit; + FclusterName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetclusterUuid(AIndex : Integer; const AValue : String); + +begin + If (FclusterUuid=AValue) then exit; + FclusterUuid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.Setstatus(AIndex : Integer; const AValue : TOperationStatus); + +begin + If (Fstatus=AValue) then exit; + Fstatus:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetstatusHistory(AIndex : Integer; const AValue : TOperationMetadataTypestatusHistoryArray); + +begin + If (FstatusHistory=AValue) then exit; + FstatusHistory:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String); + +begin + If (FoperationType=AValue) then exit; + FoperationType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationMetadata.Setdescription(AIndex : Integer; const AValue : String); + +begin + If (Fdescription=AValue) then exit; + Fdescription:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TOperationMetadata.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'statushistory' : SetLength(FstatusHistory,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TOperationStatus + --------------------------------------------------------------------} + + +Procedure TOperationStatus.Setstate(AIndex : Integer; const AValue : String); + +begin + If (Fstate=AValue) then exit; + Fstate:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationStatus.SetinnerState(AIndex : Integer; const AValue : String); + +begin + If (FinnerState=AValue) then exit; + FinnerState:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationStatus.Setdetails(AIndex : Integer; const AValue : String); + +begin + If (Fdetails=AValue) then exit; + Fdetails:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOperationStatus.SetstateStartTime(AIndex : Integer; const AValue : String); + +begin + If (FstateStartTime=AValue) then exit; + FstateStartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TProjectsRegionsClustersResource + --------------------------------------------------------------------} + + +Class Function TProjectsRegionsClustersResource.ResourceName : String; + +begin + Result:='clusters'; +end; + +Class Function TProjectsRegionsClustersResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TdataprocAPI; +end; + +Function TProjectsRegionsClustersResource.Create(projectId: string; region: string; aCluster : TCluster) : TOperation; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters'; + _Methodid = 'dataproc.projects.regions.clusters.create'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]); + Result:=ServiceCall(_HTTPMethod,_P,'',aCluster,TOperation) as TOperation; +end; + +Function TProjectsRegionsClustersResource.Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : string = '') : TOperation; + +Const + _HTTPMethod = 'PATCH'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}'; + _Methodid = 'dataproc.projects.regions.clusters.patch'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCluster,TOperation) as TOperation; +end; + + +Function TProjectsRegionsClustersResource.Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : TProjectsRegionsClusterspatchOptions) : TOperation; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'updateMask',AQuery.updateMask); + Result:=Patch(projectId,region,clusterName,aCluster,_Q); +end; + +Function TProjectsRegionsClustersResource.Delete(projectId: string; region: string; clusterName: string) : TOperation; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}'; + _Methodid = 'dataproc.projects.regions.clusters.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation; +end; + +Function TProjectsRegionsClustersResource.Get(projectId: string; region: string; clusterName: string) : TCluster; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}'; + _Methodid = 'dataproc.projects.regions.clusters.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCluster) as TCluster; +end; + +Function TProjectsRegionsClustersResource.List(projectId: string; region: string; AQuery : string = '') : TListClustersResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters'; + _Methodid = 'dataproc.projects.regions.clusters.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListClustersResponse) as TListClustersResponse; +end; + + +Function TProjectsRegionsClustersResource.List(projectId: string; region: string; AQuery : TProjectsRegionsClusterslistOptions) : TListClustersResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(projectId,region,_Q); +end; + +Function TProjectsRegionsClustersResource.Diagnose(projectId: string; region: string; clusterName: string; aDiagnoseClusterRequest : TDiagnoseClusterRequest) : TOperation; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}:diagnose'; + _Methodid = 'dataproc.projects.regions.clusters.diagnose'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]); + Result:=ServiceCall(_HTTPMethod,_P,'',aDiagnoseClusterRequest,TOperation) as TOperation; +end; + + + +{ -------------------------------------------------------------------- + TProjectsRegionsJobsResource + --------------------------------------------------------------------} + + +Class Function TProjectsRegionsJobsResource.ResourceName : String; + +begin + Result:='jobs'; +end; + +Class Function TProjectsRegionsJobsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TdataprocAPI; +end; + +Function TProjectsRegionsJobsResource.Submit(projectId: string; region: string; aSubmitJobRequest : TSubmitJobRequest) : TJob; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/projects/{projectId}/regions/{region}/jobs:submit'; + _Methodid = 'dataproc.projects.regions.jobs.submit'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]); + Result:=ServiceCall(_HTTPMethod,_P,'',aSubmitJobRequest,TJob) as TJob; +end; + +Function TProjectsRegionsJobsResource.Get(projectId: string; region: string; jobId: string) : TJob; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}'; + _Methodid = 'dataproc.projects.regions.jobs.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJob) as TJob; +end; + +Function TProjectsRegionsJobsResource.List(projectId: string; region: string; AQuery : string = '') : TListJobsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/projects/{projectId}/regions/{region}/jobs'; + _Methodid = 'dataproc.projects.regions.jobs.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListJobsResponse) as TListJobsResponse; +end; + + +Function TProjectsRegionsJobsResource.List(projectId: string; region: string; AQuery : TProjectsRegionsJobslistOptions) : TListJobsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + AddToQuery(_Q,'clusterName',AQuery.clusterName); + AddToQuery(_Q,'jobStateMatcher',AQuery.jobStateMatcher); + Result:=List(projectId,region,_Q); +end; + +Function TProjectsRegionsJobsResource.Cancel(projectId: string; region: string; jobId: string; aCancelJobRequest : TCancelJobRequest) : TJob; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}:cancel'; + _Methodid = 'dataproc.projects.regions.jobs.cancel'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,'',aCancelJobRequest,TJob) as TJob; +end; + +Function TProjectsRegionsJobsResource.Delete(projectId: string; region: string; jobId: string) : TEmpty; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}'; + _Methodid = 'dataproc.projects.regions.jobs.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty; +end; + + + +{ -------------------------------------------------------------------- + TProjectsRegionsOperationsResource + --------------------------------------------------------------------} + + +Class Function TProjectsRegionsOperationsResource.ResourceName : String; + +begin + Result:='operations'; +end; + +Class Function TProjectsRegionsOperationsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TdataprocAPI; +end; + +Function TProjectsRegionsOperationsResource.Get(_name: string) : TOperation; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/{+name}'; + _Methodid = 'dataproc.projects.regions.operations.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation; +end; + +Function TProjectsRegionsOperationsResource.List(_name: string; AQuery : string = '') : TListOperationsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/{+name}'; + _Methodid = 'dataproc.projects.regions.operations.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse; +end; + + +Function TProjectsRegionsOperationsResource.List(_name: string; AQuery : TProjectsRegionsOperationslistOptions) : TListOperationsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'filter',AQuery.filter); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(_name,_Q); +end; + +Function TProjectsRegionsOperationsResource.Cancel(_name: string) : TEmpty; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/{+name}:cancel'; + _Methodid = 'dataproc.projects.regions.operations.cancel'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty; +end; + +Function TProjectsRegionsOperationsResource.Delete(_name: string) : TEmpty; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v1/{+name}'; + _Methodid = 'dataproc.projects.regions.operations.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty; +end; + + + +{ -------------------------------------------------------------------- + TProjectsRegionsResource + --------------------------------------------------------------------} + + +Class Function TProjectsRegionsResource.ResourceName : String; + +begin + Result:='regions'; +end; + +Class Function TProjectsRegionsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TdataprocAPI; +end; + + + +Function TProjectsRegionsResource.GetClustersInstance : TProjectsRegionsClustersResource; + +begin + if (FClustersInstance=Nil) then + FClustersInstance:=CreateClustersResource; + Result:=FClustersInstance; +end; + +Function TProjectsRegionsResource.CreateClustersResource : TProjectsRegionsClustersResource; + +begin + Result:=CreateClustersResource(Self); +end; + + +Function TProjectsRegionsResource.CreateClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource; + +begin + Result:=TProjectsRegionsClustersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsRegionsResource.GetJobsInstance : TProjectsRegionsJobsResource; + +begin + if (FJobsInstance=Nil) then + FJobsInstance:=CreateJobsResource; + Result:=FJobsInstance; +end; + +Function TProjectsRegionsResource.CreateJobsResource : TProjectsRegionsJobsResource; + +begin + Result:=CreateJobsResource(Self); +end; + + +Function TProjectsRegionsResource.CreateJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource; + +begin + Result:=TProjectsRegionsJobsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsRegionsResource.GetOperationsInstance : TProjectsRegionsOperationsResource; + +begin + if (FOperationsInstance=Nil) then + FOperationsInstance:=CreateOperationsResource; + Result:=FOperationsInstance; +end; + +Function TProjectsRegionsResource.CreateOperationsResource : TProjectsRegionsOperationsResource; + +begin + Result:=CreateOperationsResource(Self); +end; + + +Function TProjectsRegionsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource; + +begin + Result:=TProjectsRegionsOperationsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +{ -------------------------------------------------------------------- + TProjectsResource + --------------------------------------------------------------------} + + +Class Function TProjectsResource.ResourceName : String; + +begin + Result:='projects'; +end; + +Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TdataprocAPI; +end; + + + +Function TProjectsResource.GetRegionsClustersInstance : TProjectsRegionsClustersResource; + +begin + if (FRegionsClustersInstance=Nil) then + FRegionsClustersInstance:=CreateRegionsClustersResource; + Result:=FRegionsClustersInstance; +end; + +Function TProjectsResource.CreateRegionsClustersResource : TProjectsRegionsClustersResource; + +begin + Result:=CreateRegionsClustersResource(Self); +end; + + +Function TProjectsResource.CreateRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource; + +begin + Result:=TProjectsRegionsClustersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetRegionsJobsInstance : TProjectsRegionsJobsResource; + +begin + if (FRegionsJobsInstance=Nil) then + FRegionsJobsInstance:=CreateRegionsJobsResource; + Result:=FRegionsJobsInstance; +end; + +Function TProjectsResource.CreateRegionsJobsResource : TProjectsRegionsJobsResource; + +begin + Result:=CreateRegionsJobsResource(Self); +end; + + +Function TProjectsResource.CreateRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource; + +begin + Result:=TProjectsRegionsJobsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetRegionsOperationsInstance : TProjectsRegionsOperationsResource; + +begin + if (FRegionsOperationsInstance=Nil) then + FRegionsOperationsInstance:=CreateRegionsOperationsResource; + Result:=FRegionsOperationsInstance; +end; + +Function TProjectsResource.CreateRegionsOperationsResource : TProjectsRegionsOperationsResource; + +begin + Result:=CreateRegionsOperationsResource(Self); +end; + + +Function TProjectsResource.CreateRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource; + +begin + Result:=TProjectsRegionsOperationsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetRegionsInstance : TProjectsRegionsResource; + +begin + if (FRegionsInstance=Nil) then + FRegionsInstance:=CreateRegionsResource; + Result:=FRegionsInstance; +end; + +Function TProjectsResource.CreateRegionsResource : TProjectsRegionsResource; + +begin + Result:=CreateRegionsResource(Self); +end; + + +Function TProjectsResource.CreateRegionsResource(AOwner : TComponent) : TProjectsRegionsResource; + +begin + Result:=TProjectsRegionsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +{ -------------------------------------------------------------------- + TDataprocAPI + --------------------------------------------------------------------} + +Class Function TDataprocAPI.APIName : String; + +begin + Result:='dataproc'; +end; + +Class Function TDataprocAPI.APIVersion : String; + +begin + Result:='v1'; +end; + +Class Function TDataprocAPI.APIRevision : String; + +begin + Result:='20160503'; +end; + +Class Function TDataprocAPI.APIID : String; + +begin + Result:='dataproc:v1'; +end; + +Class Function TDataprocAPI.APITitle : String; + +begin + Result:='Google Cloud Dataproc API'; +end; + +Class Function TDataprocAPI.APIDescription : String; + +begin + Result:='Manages Hadoop-based clusters and jobs on Google Cloud Platform.'; +end; + +Class Function TDataprocAPI.APIOwnerDomain : String; + +begin + Result:='google.com'; +end; + +Class Function TDataprocAPI.APIOwnerName : String; + +begin + Result:='Google'; +end; + +Class Function TDataprocAPI.APIIcon16 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-16.gif'; +end; + +Class Function TDataprocAPI.APIIcon32 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-32.gif'; +end; + +Class Function TDataprocAPI.APIdocumentationLink : String; + +begin + Result:='https://cloud.google.com/dataproc/'; +end; + +Class Function TDataprocAPI.APIrootUrl : string; + +begin + Result:='https://dataproc.googleapis.com/'; +end; + +Class Function TDataprocAPI.APIbasePath : string; + +begin + Result:=''; +end; + +Class Function TDataprocAPI.APIbaseURL : String; + +begin + Result:='https://dataproc.googleapis.com/'; +end; + +Class Function TDataprocAPI.APIProtocol : string; + +begin + Result:='rest'; +end; + +Class Function TDataprocAPI.APIservicePath : string; + +begin + Result:=''; +end; + +Class Function TDataprocAPI.APIbatchPath : String; + +begin + Result:='batch'; +end; + +Class Function TDataprocAPI.APIAuthScopes : TScopeInfoArray; + +begin + SetLength(Result,1); + Result[0].Name:='https://www.googleapis.com/auth/cloud-platform'; + Result[0].Description:='View and manage your data across Google Cloud Platform services'; + +end; + +Class Function TDataprocAPI.APINeedsAuth : Boolean; + +begin + Result:=True; +end; + +Class Procedure TDataprocAPI.RegisterAPIResources; + +begin + TCluster.RegisterObject; + TClusterConfig.RegisterObject; + TGceClusterConfigTypemetadata.RegisterObject; + TGceClusterConfig.RegisterObject; + TInstanceGroupConfig.RegisterObject; + TDiskConfig.RegisterObject; + TManagedGroupConfig.RegisterObject; + TSoftwareConfigTypeproperties.RegisterObject; + TSoftwareConfig.RegisterObject; + TNodeInitializationAction.RegisterObject; + TClusterStatus.RegisterObject; + TOperationTypemetadata.RegisterObject; + TOperationTyperesponse.RegisterObject; + TOperation.RegisterObject; + TStatusTypedetailsItem.RegisterObject; + TStatus.RegisterObject; + TListClustersResponse.RegisterObject; + TDiagnoseClusterRequest.RegisterObject; + TSubmitJobRequest.RegisterObject; + TJob.RegisterObject; + TJobReference.RegisterObject; + TJobPlacement.RegisterObject; + THadoopJobTypeproperties.RegisterObject; + THadoopJob.RegisterObject; + TLoggingConfigTypedriverLogLevels.RegisterObject; + TLoggingConfig.RegisterObject; + TSparkJobTypeproperties.RegisterObject; + TSparkJob.RegisterObject; + TPySparkJobTypeproperties.RegisterObject; + TPySparkJob.RegisterObject; + THiveJobTypescriptVariables.RegisterObject; + THiveJobTypeproperties.RegisterObject; + THiveJob.RegisterObject; + TQueryList.RegisterObject; + TPigJobTypescriptVariables.RegisterObject; + TPigJobTypeproperties.RegisterObject; + TPigJob.RegisterObject; + TSparkSqlJobTypescriptVariables.RegisterObject; + TSparkSqlJobTypeproperties.RegisterObject; + TSparkSqlJob.RegisterObject; + TJobStatus.RegisterObject; + TListJobsResponse.RegisterObject; + TCancelJobRequest.RegisterObject; + TEmpty.RegisterObject; + TListOperationsResponse.RegisterObject; + TDiagnoseClusterResults.RegisterObject; + TClusterOperationMetadata.RegisterObject; + TClusterOperationStatus.RegisterObject; + TDiagnoseClusterOutputLocation.RegisterObject; + TOperationMetadata.RegisterObject; + TOperationStatus.RegisterObject; +end; + + +Function TDataprocAPI.GetProjectsRegionsClustersInstance : TProjectsRegionsClustersResource; + +begin + if (FProjectsRegionsClustersInstance=Nil) then + FProjectsRegionsClustersInstance:=CreateProjectsRegionsClustersResource; + Result:=FProjectsRegionsClustersInstance; +end; + +Function TDataprocAPI.CreateProjectsRegionsClustersResource : TProjectsRegionsClustersResource; + +begin + Result:=CreateProjectsRegionsClustersResource(Self); +end; + + +Function TDataprocAPI.CreateProjectsRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource; + +begin + Result:=TProjectsRegionsClustersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TDataprocAPI.GetProjectsRegionsJobsInstance : TProjectsRegionsJobsResource; + +begin + if (FProjectsRegionsJobsInstance=Nil) then + FProjectsRegionsJobsInstance:=CreateProjectsRegionsJobsResource; + Result:=FProjectsRegionsJobsInstance; +end; + +Function TDataprocAPI.CreateProjectsRegionsJobsResource : TProjectsRegionsJobsResource; + +begin + Result:=CreateProjectsRegionsJobsResource(Self); +end; + + +Function TDataprocAPI.CreateProjectsRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource; + +begin + Result:=TProjectsRegionsJobsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TDataprocAPI.GetProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource; + +begin + if (FProjectsRegionsOperationsInstance=Nil) then + FProjectsRegionsOperationsInstance:=CreateProjectsRegionsOperationsResource; + Result:=FProjectsRegionsOperationsInstance; +end; + +Function TDataprocAPI.CreateProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource; + +begin + Result:=CreateProjectsRegionsOperationsResource(Self); +end; + + +Function TDataprocAPI.CreateProjectsRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource; + +begin + Result:=TProjectsRegionsOperationsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TDataprocAPI.GetProjectsRegionsInstance : TProjectsRegionsResource; + +begin + if (FProjectsRegionsInstance=Nil) then + FProjectsRegionsInstance:=CreateProjectsRegionsResource; + Result:=FProjectsRegionsInstance; +end; + +Function TDataprocAPI.CreateProjectsRegionsResource : TProjectsRegionsResource; + +begin + Result:=CreateProjectsRegionsResource(Self); +end; + + +Function TDataprocAPI.CreateProjectsRegionsResource(AOwner : TComponent) : TProjectsRegionsResource; + +begin + Result:=TProjectsRegionsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TDataprocAPI.GetProjectsInstance : TProjectsResource; + +begin + if (FProjectsInstance=Nil) then + FProjectsInstance:=CreateProjectsResource; + Result:=FProjectsInstance; +end; + +Function TDataprocAPI.CreateProjectsResource : TProjectsResource; + +begin + Result:=CreateProjectsResource(Self); +end; + + +Function TDataprocAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource; + +begin + Result:=TProjectsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +initialization + TDataprocAPI.RegisterAPI; +end. |