freepascal.compiler/packages/googleapi/src/googledataproc.pp

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.