Mass trailing space removal for packages googleapi (part 2).

packages/googleapi/README.txt

@@ -27,8 +27,8 @@ following units:
 TGoogleClient - unit googleclient
 ---------------------------------
 
-This is a simple component that handles the transport and authorization, 
-it needs a TFPWebClient descendent (such as TFPHTTPWebClient) and a 
+This is a simple component that handles the transport and authorization,
+it needs a TFPWebClient descendent (such as TFPHTTPWebClient) and a
 TFPOauth2Handler descendent to communicate with Google servers.
 These 2 classes are part of fcl-web, a synapse-based TFPWebclient descendant is
 available separately.
@@ -36,9 +36,9 @@ available separately.
 TGoogleAPI - unit googleservice
 -------------------------------
 
-There is a descendent of this component for each Google service API, which 
-handles all calls to the service. It uses a TGoogleClient component to handle 
-actual communication. 
+There is a descendent of this component for each Google service API, which
+handles all calls to the service. It uses a TGoogleClient component to handle
+actual communication.
 
 This class contains a method called ServiceCall which is used by all
 resources in the API to execute service requests. It will use the client to
@@ -50,11 +50,11 @@ descends from the TGoogleAPI component.
 TGoogleResource - unit googleservice
 ------------------------------------
 
-For each resource exposed by the service, a descendent of this class is generated 
+For each resource exposed by the service, a descendent of this class is generated
 that has all the methods for that resource, as described in the REST service description.
 
-TGoogleResource uses an instance of the TGoogleAPI class to handle all calls to 
-the service. 
+TGoogleResource uses an instance of the TGoogleAPI class to handle all calls to
+the service.
 
 Each API unit google*.pp in this package contains one or more TGoogleResource
 descendents, used in the API of that unit.
@@ -62,7 +62,7 @@ descendents, used in the API of that unit.
 TGoogleBaseObject - unit googlebase
 -----------------------------------
 
-For each data type used in the API, a descendent of this class is used: it is a 
+For each data type used in the API, a descendent of this class is used: it is a
 descendent of TBaseObject (unit restbase, part of fcl-web) and handles
 loading from and saving to JSON.
 

packages/googleapi/src/bindings/googleacceleratedmobilepageurl.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TAmpUrl = Class;
   TAmpUrlError = Class;
@@ -26,11 +26,11 @@ type
   //Anonymous types, using auto-generated names
   TBatchGetAmpUrlsResponseTypeurlErrorsArray = Array of TAmpUrlError;
   TBatchGetAmpUrlsResponseTypeampUrlsArray = Array of TAmpUrl;
-  
+
   { --------------------------------------------------------------------
     TAmpUrl
     --------------------------------------------------------------------}
-  
+
   TAmpUrl = Class(TGoogleBaseObject)
   Private
     FampUrl : String;
@@ -48,11 +48,11 @@ type
     Property cdnAmpUrl : String Index 16 Read FcdnAmpUrl Write SetcdnAmpUrl;
   end;
   TAmpUrlClass = Class of TAmpUrl;
-  
+
   { --------------------------------------------------------------------
     TAmpUrlError
     --------------------------------------------------------------------}
-  
+
   TAmpUrlError = Class(TGoogleBaseObject)
   Private
     ForiginalUrl : String;
@@ -70,11 +70,11 @@ type
     Property errorMessage : String Index 16 Read FerrorMessage Write SeterrorMessage;
   end;
   TAmpUrlErrorClass = Class of TAmpUrlError;
-  
+
   { --------------------------------------------------------------------
     TBatchGetAmpUrlsRequest
     --------------------------------------------------------------------}
-  
+
   TBatchGetAmpUrlsRequest = Class(TGoogleBaseObject)
   Private
     Furls : TStringArray;
@@ -90,11 +90,11 @@ type
     Property urls : TStringArray Index 0 Read Furls Write Seturls;
   end;
   TBatchGetAmpUrlsRequestClass = Class of TBatchGetAmpUrlsRequest;
-  
+
   { --------------------------------------------------------------------
     TBatchGetAmpUrlsResponse
     --------------------------------------------------------------------}
-  
+
   TBatchGetAmpUrlsResponse = Class(TGoogleBaseObject)
   Private
     FurlErrors : TBatchGetAmpUrlsResponseTypeurlErrorsArray;
@@ -113,23 +113,23 @@ type
     Property ampUrls : TBatchGetAmpUrlsResponseTypeampUrlsArray Index 8 Read FampUrls Write SetampUrls;
   end;
   TBatchGetAmpUrlsResponseClass = Class of TBatchGetAmpUrlsResponse;
-  
+
   { --------------------------------------------------------------------
     TAmpUrlsResource
     --------------------------------------------------------------------}
-  
+
   TAmpUrlsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function BatchGet(aBatchGetAmpUrlsRequest : TBatchGetAmpUrlsRequest) : TBatchGetAmpUrlsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAcceleratedmobilepageurlAPI
     --------------------------------------------------------------------}
-  
+
   TAcceleratedmobilepageurlAPI = Class(TGoogleAPI)
   Private
     FAmpUrlsInstance : TAmpUrlsResource;
@@ -171,7 +171,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAmpUrl.SetampUrl(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrl.SetampUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FampUrl=AValue) then exit;
@@ -181,7 +181,7 @@ end;
 
 
 
-Procedure TAmpUrl.SetoriginalUrl(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrl.SetoriginalUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (ForiginalUrl=AValue) then exit;
@@ -191,7 +191,7 @@ end;
 
 
 
-Procedure TAmpUrl.SetcdnAmpUrl(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrl.SetcdnAmpUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FcdnAmpUrl=AValue) then exit;
@@ -208,7 +208,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAmpUrlError.SetoriginalUrl(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrlError.SetoriginalUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (ForiginalUrl=AValue) then exit;
@@ -218,7 +218,7 @@ end;
 
 
 
-Procedure TAmpUrlError.SeterrorCode(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrlError.SeterrorCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FerrorCode=AValue) then exit;
@@ -228,7 +228,7 @@ end;
 
 
 
-Procedure TAmpUrlError.SeterrorMessage(AIndex : Integer; const AValue : String); 
+Procedure TAmpUrlError.SeterrorMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FerrorMessage=AValue) then exit;
@@ -245,7 +245,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBatchGetAmpUrlsRequest.Seturls(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBatchGetAmpUrlsRequest.Seturls(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Furls=AValue) then exit;
@@ -256,7 +256,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBatchGetAmpUrlsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBatchGetAmpUrlsRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -275,7 +275,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBatchGetAmpUrlsResponse.SeturlErrors(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeurlErrorsArray); 
+Procedure TBatchGetAmpUrlsResponse.SeturlErrors(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeurlErrorsArray);
 
 begin
   If (FurlErrors=AValue) then exit;
@@ -285,7 +285,7 @@ end;
 
 
 
-Procedure TBatchGetAmpUrlsResponse.SetampUrls(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeampUrlsArray); 
+Procedure TBatchGetAmpUrlsResponse.SetampUrls(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeampUrlsArray);
 
 begin
   If (FampUrls=AValue) then exit;
@@ -296,7 +296,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBatchGetAmpUrlsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBatchGetAmpUrlsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -451,7 +451,7 @@ Class Function TAcceleratedmobilepageurlAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TAcceleratedmobilepageurlAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleadexchangebuyer2.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TClientUser = Class;
   TClientUserInvitation = Class;
@@ -31,11 +31,11 @@ type
   TListClientUserInvitationsResponseTypeinvitationsArray = Array of TClientUserInvitation;
   TListClientUsersResponseTypeusersArray = Array of TClientUser;
   TListClientsResponseTypeclientsArray = Array of TClient;
-  
+
   { --------------------------------------------------------------------
     TClientUser
     --------------------------------------------------------------------}
-  
+
   TClientUser = Class(TGoogleBaseObject)
   Private
     Femail : String;
@@ -56,11 +56,11 @@ type
     Property userId : String Index 24 Read FuserId Write SetuserId;
   end;
   TClientUserClass = Class of TClientUser;
-  
+
   { --------------------------------------------------------------------
     TClientUserInvitation
     --------------------------------------------------------------------}
-  
+
   TClientUserInvitation = Class(TGoogleBaseObject)
   Private
     Femail : String;
@@ -78,11 +78,11 @@ type
     Property invitationId : String Index 16 Read FinvitationId Write SetinvitationId;
   end;
   TClientUserInvitationClass = Class of TClientUserInvitation;
-  
+
   { --------------------------------------------------------------------
     TListClientUserInvitationsResponse
     --------------------------------------------------------------------}
-  
+
   TListClientUserInvitationsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -101,11 +101,11 @@ type
     Property invitations : TListClientUserInvitationsResponseTypeinvitationsArray Index 8 Read Finvitations Write Setinvitations;
   end;
   TListClientUserInvitationsResponseClass = Class of TListClientUserInvitationsResponse;
-  
+
   { --------------------------------------------------------------------
     TListClientUsersResponse
     --------------------------------------------------------------------}
-  
+
   TListClientUsersResponse = Class(TGoogleBaseObject)
   Private
     Fusers : TListClientUsersResponseTypeusersArray;
@@ -124,11 +124,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListClientUsersResponseClass = Class of TListClientUsersResponse;
-  
+
   { --------------------------------------------------------------------
     TClient
     --------------------------------------------------------------------}
-  
+
   TClient = Class(TGoogleBaseObject)
   Private
     FvisibleToSeller : boolean;
@@ -161,11 +161,11 @@ type
     Property entityName : String Index 56 Read FentityName Write SetentityName;
   end;
   TClientClass = Class of TClient;
-  
+
   { --------------------------------------------------------------------
     TListClientsResponse
     --------------------------------------------------------------------}
-  
+
   TListClientsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -184,19 +184,19 @@ type
     Property clients : TListClientsResponseTypeclientsArray Index 8 Read Fclients Write Setclients;
   end;
   TListClientsResponseClass = Class of TListClientsResponse;
-  
+
   { --------------------------------------------------------------------
     TAccountsClientsUsersResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TAccountsClientsUsersResource, method List
-  
+
   TAccountsClientsUsersListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TAccountsClientsUsersResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -206,20 +206,20 @@ type
     Function List(clientAccountId: string; accountId: string; AQuery : string  = '') : TListClientUsersResponse;
     Function List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsUserslistOptions) : TListClientUsersResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAccountsClientsInvitationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TAccountsClientsInvitationsResource, method List
-  
+
   TAccountsClientsInvitationsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TAccountsClientsInvitationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -229,20 +229,20 @@ type
     Function List(clientAccountId: string; accountId: string; AQuery : string  = '') : TListClientUserInvitationsResponse;
     Function List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsInvitationslistOptions) : TListClientUserInvitationsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAccountsClientsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TAccountsClientsResource, method List
-  
+
   TAccountsClientsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TAccountsClientsResource = Class(TGoogleResource)
   Private
     FUsersInstance : TAccountsClientsUsersResource;
@@ -264,12 +264,12 @@ type
     Property UsersResource : TAccountsClientsUsersResource Read GetUsersInstance;
     Property InvitationsResource : TAccountsClientsInvitationsResource Read GetInvitationsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAccountsResource
     --------------------------------------------------------------------}
-  
+
   TAccountsResource = Class(TGoogleResource)
   Private
     FClientsUsersInstance : TAccountsClientsUsersResource;
@@ -291,12 +291,12 @@ type
     Property ClientsInvitationsResource : TAccountsClientsInvitationsResource Read GetClientsInvitationsInstance;
     Property ClientsResource : TAccountsClientsResource Read GetClientsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAdexchangebuyer2API
     --------------------------------------------------------------------}
-  
+
   TAdexchangebuyer2API = Class(TGoogleAPI)
   Private
     FAccountsClientsUsersInstance : TAccountsClientsUsersResource;
@@ -353,7 +353,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TClientUser.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TClientUser.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -363,7 +363,7 @@ end;
 
 
 
-Procedure TClientUser.SetclientAccountId(AIndex : Integer; const AValue : String); 
+Procedure TClientUser.SetclientAccountId(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientAccountId=AValue) then exit;
@@ -373,7 +373,7 @@ end;
 
 
 
-Procedure TClientUser.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TClientUser.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -383,7 +383,7 @@ end;
 
 
 
-Procedure TClientUser.SetuserId(AIndex : Integer; const AValue : String); 
+Procedure TClientUser.SetuserId(AIndex : Integer; const AValue : String);
 
 begin
   If (FuserId=AValue) then exit;
@@ -400,7 +400,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TClientUserInvitation.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TClientUserInvitation.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -410,7 +410,7 @@ end;
 
 
 
-Procedure TClientUserInvitation.SetclientAccountId(AIndex : Integer; const AValue : String); 
+Procedure TClientUserInvitation.SetclientAccountId(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientAccountId=AValue) then exit;
@@ -420,7 +420,7 @@ end;
 
 
 
-Procedure TClientUserInvitation.SetinvitationId(AIndex : Integer; const AValue : String); 
+Procedure TClientUserInvitation.SetinvitationId(AIndex : Integer; const AValue : String);
 
 begin
   If (FinvitationId=AValue) then exit;
@@ -437,7 +437,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListClientUserInvitationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListClientUserInvitationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -447,7 +447,7 @@ end;
 
 
 
-Procedure TListClientUserInvitationsResponse.Setinvitations(AIndex : Integer; const AValue : TListClientUserInvitationsResponseTypeinvitationsArray); 
+Procedure TListClientUserInvitationsResponse.Setinvitations(AIndex : Integer; const AValue : TListClientUserInvitationsResponseTypeinvitationsArray);
 
 begin
   If (Finvitations=AValue) then exit;
@@ -458,7 +458,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListClientUserInvitationsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListClientUserInvitationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -477,7 +477,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListClientUsersResponse.Setusers(AIndex : Integer; const AValue : TListClientUsersResponseTypeusersArray); 
+Procedure TListClientUsersResponse.Setusers(AIndex : Integer; const AValue : TListClientUsersResponseTypeusersArray);
 
 begin
   If (Fusers=AValue) then exit;
@@ -487,7 +487,7 @@ end;
 
 
 
-Procedure TListClientUsersResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListClientUsersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -498,7 +498,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListClientUsersResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListClientUsersResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -517,7 +517,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TClient.SetvisibleToSeller(AIndex : Integer; const AValue : boolean); 
+Procedure TClient.SetvisibleToSeller(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FvisibleToSeller=AValue) then exit;
@@ -527,7 +527,7 @@ end;
 
 
 
-Procedure TClient.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TClient.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -537,7 +537,7 @@ end;
 
 
 
-Procedure TClient.SetentityType(AIndex : Integer; const AValue : String); 
+Procedure TClient.SetentityType(AIndex : Integer; const AValue : String);
 
 begin
   If (FentityType=AValue) then exit;
@@ -547,7 +547,7 @@ end;
 
 
 
-Procedure TClient.Setrole(AIndex : Integer; const AValue : String); 
+Procedure TClient.Setrole(AIndex : Integer; const AValue : String);
 
 begin
   If (Frole=AValue) then exit;
@@ -557,7 +557,7 @@ end;
 
 
 
-Procedure TClient.SetclientName(AIndex : Integer; const AValue : String); 
+Procedure TClient.SetclientName(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientName=AValue) then exit;
@@ -567,7 +567,7 @@ end;
 
 
 
-Procedure TClient.SetclientAccountId(AIndex : Integer; const AValue : String); 
+Procedure TClient.SetclientAccountId(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientAccountId=AValue) then exit;
@@ -577,7 +577,7 @@ end;
 
 
 
-Procedure TClient.SetentityId(AIndex : Integer; const AValue : String); 
+Procedure TClient.SetentityId(AIndex : Integer; const AValue : String);
 
 begin
   If (FentityId=AValue) then exit;
@@ -587,7 +587,7 @@ end;
 
 
 
-Procedure TClient.SetentityName(AIndex : Integer; const AValue : String); 
+Procedure TClient.SetentityName(AIndex : Integer; const AValue : String);
 
 begin
   If (FentityName=AValue) then exit;
@@ -604,7 +604,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListClientsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListClientsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -614,7 +614,7 @@ end;
 
 
 
-Procedure TListClientsResponse.Setclients(AIndex : Integer; const AValue : TListClientsResponseTypeclientsArray); 
+Procedure TListClientsResponse.Setclients(AIndex : Integer; const AValue : TListClientsResponseTypeclientsArray);
 
 begin
   If (Fclients=AValue) then exit;
@@ -625,7 +625,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListClientsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListClientsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1136,7 +1136,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/adexchange.buyer';
   Result[0].Description:='Manage your Ad Exchange buyer account configuration';
-  
+
 end;
 
 Class Function TAdexchangebuyer2API.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleadmin.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TActivities = Class;
   TActivity = Class;
@@ -44,11 +44,11 @@ type
   TUsageReportsTypeusageReportsArray = Array of TUsageReport;
   TUsageReportsTypewarningsItemTypedataArray = Array of TUsageReportsTypewarningsItemTypedataItem;
   TUsageReportsTypewarningsArray = Array of TUsageReportsTypewarningsItem;
-  
+
   { --------------------------------------------------------------------
     TActivities
     --------------------------------------------------------------------}
-  
+
   TActivities = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -73,11 +73,11 @@ type
     Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TActivitiesClass = Class of TActivities;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeactor
     --------------------------------------------------------------------}
-  
+
   TActivityTypeactor = Class(TGoogleBaseObject)
   Private
     FcallerType : String;
@@ -98,11 +98,11 @@ type
     Property profileId : String Index 24 Read FprofileId Write SetprofileId;
   end;
   TActivityTypeactorClass = Class of TActivityTypeactor;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeeventsItemTypeparametersItem
     --------------------------------------------------------------------}
-  
+
   TActivityTypeeventsItemTypeparametersItem = Class(TGoogleBaseObject)
   Private
     FboolValue : boolean;
@@ -133,11 +133,11 @@ type
     Property value : String Index 40 Read Fvalue Write Setvalue;
   end;
   TActivityTypeeventsItemTypeparametersItemClass = Class of TActivityTypeeventsItemTypeparametersItem;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeeventsItem
     --------------------------------------------------------------------}
-  
+
   TActivityTypeeventsItem = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -160,11 +160,11 @@ type
     Property _type : String Index 16 Read F_type Write Set_type;
   end;
   TActivityTypeeventsItemClass = Class of TActivityTypeeventsItem;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeid
     --------------------------------------------------------------------}
-  
+
   TActivityTypeid = Class(TGoogleBaseObject)
   Private
     FapplicationName : String;
@@ -185,11 +185,11 @@ type
     Property uniqueQualifier : String Index 24 Read FuniqueQualifier Write SetuniqueQualifier;
   end;
   TActivityTypeidClass = Class of TActivityTypeid;
-  
+
   { --------------------------------------------------------------------
     TActivity
     --------------------------------------------------------------------}
-  
+
   TActivity = Class(TGoogleBaseObject)
   Private
     Factor : TActivityTypeactor;
@@ -223,11 +223,11 @@ type
     Property ownerDomain : String Index 48 Read FownerDomain Write SetownerDomain;
   end;
   TActivityClass = Class of TActivity;
-  
+
   { --------------------------------------------------------------------
     TChannelTypeparams
     --------------------------------------------------------------------}
-  
+
   TChannelTypeparams = Class(TGoogleBaseObject)
   Private
   Protected
@@ -237,11 +237,11 @@ type
   Published
   end;
   TChannelTypeparamsClass = Class of TChannelTypeparams;
-  
+
   { --------------------------------------------------------------------
     TChannel
     --------------------------------------------------------------------}
-  
+
   TChannel = Class(TGoogleBaseObject)
   Private
     Faddress : String;
@@ -281,11 +281,11 @@ type
     Property _type : String Index 72 Read F_type Write Set_type;
   end;
   TChannelClass = Class of TChannel;
-  
+
   { --------------------------------------------------------------------
     TUsageReportTypeentity
     --------------------------------------------------------------------}
-  
+
   TUsageReportTypeentity = Class(TGoogleBaseObject)
   Private
     FcustomerId : String;
@@ -307,11 +307,11 @@ type
     Property userEmail : String Index 24 Read FuserEmail Write SetuserEmail;
   end;
   TUsageReportTypeentityClass = Class of TUsageReportTypeentity;
-  
+
   { --------------------------------------------------------------------
     TUsageReportTypeparametersItemTypemsgValueItem
     --------------------------------------------------------------------}
-  
+
   TUsageReportTypeparametersItemTypemsgValueItem = Class(TGoogleBaseObject)
   Private
   Protected
@@ -321,11 +321,11 @@ type
   Published
   end;
   TUsageReportTypeparametersItemTypemsgValueItemClass = Class of TUsageReportTypeparametersItemTypemsgValueItem;
-  
+
   { --------------------------------------------------------------------
     TUsageReportTypeparametersItem
     --------------------------------------------------------------------}
-  
+
   TUsageReportTypeparametersItem = Class(TGoogleBaseObject)
   Private
     FboolValue : boolean;
@@ -356,11 +356,11 @@ type
     Property stringValue : String Index 40 Read FstringValue Write SetstringValue;
   end;
   TUsageReportTypeparametersItemClass = Class of TUsageReportTypeparametersItem;
-  
+
   { --------------------------------------------------------------------
     TUsageReport
     --------------------------------------------------------------------}
-  
+
   TUsageReport = Class(TGoogleBaseObject)
   Private
     Fdate : String;
@@ -388,11 +388,11 @@ type
     Property parameters : TUsageReportTypeparametersArray Index 32 Read Fparameters Write Setparameters;
   end;
   TUsageReportClass = Class of TUsageReport;
-  
+
   { --------------------------------------------------------------------
     TUsageReportsTypewarningsItemTypedataItem
     --------------------------------------------------------------------}
-  
+
   TUsageReportsTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
   Private
     Fkey : String;
@@ -407,11 +407,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TUsageReportsTypewarningsItemTypedataItemClass = Class of TUsageReportsTypewarningsItemTypedataItem;
-  
+
   { --------------------------------------------------------------------
     TUsageReportsTypewarningsItem
     --------------------------------------------------------------------}
-  
+
   TUsageReportsTypewarningsItem = Class(TGoogleBaseObject)
   Private
     Fcode : String;
@@ -433,11 +433,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TUsageReportsTypewarningsItemClass = Class of TUsageReportsTypewarningsItem;
-  
+
   { --------------------------------------------------------------------
     TUsageReports
     --------------------------------------------------------------------}
-  
+
   TUsageReports = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -465,14 +465,14 @@ type
     Property warnings : TUsageReportsTypewarningsArray Index 32 Read Fwarnings Write Setwarnings;
   end;
   TUsageReportsClass = Class of TUsageReports;
-  
+
   { --------------------------------------------------------------------
     TActivitiesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TActivitiesResource, method List
-  
+
   TActivitiesListOptions = Record
     actorIpAddress : String;
     customerId : String;
@@ -483,10 +483,10 @@ type
     pageToken : String;
     startTime : String;
   end;
-  
-  
+
+
   //Optional query Options for TActivitiesResource, method Watch
-  
+
   TActivitiesWatchOptions = Record
     actorIpAddress : String;
     customerId : String;
@@ -497,7 +497,7 @@ type
     pageToken : String;
     startTime : String;
   end;
-  
+
   TActivitiesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -507,33 +507,33 @@ type
     Function Watch(applicationName: string; userKey: string; aChannel : TChannel; AQuery : string  = '') : TChannel;
     Function Watch(applicationName: string; userKey: string; aChannel : TChannel; AQuery : TActivitieswatchOptions) : TChannel;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TChannelsResource
     --------------------------------------------------------------------}
-  
+
   TChannelsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Procedure Stop(aChannel : TChannel);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCustomerUsageReportsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TCustomerUsageReportsResource, method Get
-  
+
   TCustomerUsageReportsGetOptions = Record
     customerId : String;
     pageToken : String;
     parameters : String;
   end;
-  
+
   TCustomerUsageReportsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -541,15 +541,15 @@ type
     Function Get(date: string; AQuery : string  = '') : TUsageReports;
     Function Get(date: string; AQuery : TCustomerUsageReportsgetOptions) : TUsageReports;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TUserUsageReportResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TUserUsageReportResource, method Get
-  
+
   TUserUsageReportGetOptions = Record
     customerId : String;
     filters : String;
@@ -557,7 +557,7 @@ type
     pageToken : String;
     parameters : String;
   end;
-  
+
   TUserUsageReportResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -565,12 +565,12 @@ type
     Function Get(date: string; userKey: string; AQuery : string  = '') : TUsageReports;
     Function Get(date: string; userKey: string; AQuery : TUserUsageReportgetOptions) : TUsageReports;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAdminAPI
     --------------------------------------------------------------------}
-  
+
   TAdminAPI = Class(TGoogleAPI)
   Private
     FActivitiesInstance : TActivitiesResource;
@@ -627,7 +627,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TActivities.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TActivities.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -637,7 +637,7 @@ end;
 
 
 
-Procedure TActivities.Setitems(AIndex : Integer; const AValue : TActivitiesTypeitemsArray); 
+Procedure TActivities.Setitems(AIndex : Integer; const AValue : TActivitiesTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -647,7 +647,7 @@ end;
 
 
 
-Procedure TActivities.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TActivities.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -657,7 +657,7 @@ end;
 
 
 
-Procedure TActivities.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TActivities.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -668,7 +668,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -687,7 +687,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String);
 
 begin
   If (FcallerType=AValue) then exit;
@@ -697,7 +697,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -707,7 +707,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -717,7 +717,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.SetprofileId(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.SetprofileId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprofileId=AValue) then exit;
@@ -734,7 +734,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FboolValue=AValue) then exit;
@@ -744,7 +744,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FintValue=AValue) then exit;
@@ -754,7 +754,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiIntValue(AIndex : Integer; const AValue : TStringArray); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiIntValue(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FmultiIntValue=AValue) then exit;
@@ -764,7 +764,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiValue(AIndex : Integer; const AValue : TStringArray); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiValue(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FmultiValue=AValue) then exit;
@@ -774,7 +774,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -784,7 +784,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -795,7 +795,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivityTypeeventsItemTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -815,7 +815,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -825,7 +825,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; const AValue : TActivityTypeeventsItemTypeparametersArray); 
+Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; const AValue : TActivityTypeeventsItemTypeparametersArray);
 
 begin
   If (Fparameters=AValue) then exit;
@@ -835,7 +835,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItem.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -857,7 +857,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -876,7 +876,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeid.SetapplicationName(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetapplicationName(AIndex : Integer; const AValue : String);
 
 begin
   If (FapplicationName=AValue) then exit;
@@ -886,7 +886,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -896,7 +896,7 @@ end;
 
 
 
-Procedure TActivityTypeid.Settime(AIndex : Integer; const AValue : TDatetime); 
+Procedure TActivityTypeid.Settime(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Ftime=AValue) then exit;
@@ -906,7 +906,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetuniqueQualifier(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetuniqueQualifier(AIndex : Integer; const AValue : String);
 
 begin
   If (FuniqueQualifier=AValue) then exit;
@@ -923,7 +923,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor); 
+Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
 
 begin
   If (Factor=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure TActivity.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TActivity.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -943,7 +943,7 @@ end;
 
 
 
-Procedure TActivity.Setevents(AIndex : Integer; const AValue : TActivityTypeeventsArray); 
+Procedure TActivity.Setevents(AIndex : Integer; const AValue : TActivityTypeeventsArray);
 
 begin
   If (Fevents=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TActivity.Setid(AIndex : Integer; const AValue : TActivityTypeid); 
+Procedure TActivity.Setid(AIndex : Integer; const AValue : TActivityTypeid);
 
 begin
   If (Fid=AValue) then exit;
@@ -963,7 +963,7 @@ end;
 
 
 
-Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String); 
+Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String);
 
 begin
   If (FipAddress=AValue) then exit;
@@ -973,7 +973,7 @@ end;
 
 
 
-Procedure TActivity.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TActivity.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String); 
+Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String);
 
 begin
   If (FownerDomain=AValue) then exit;
@@ -994,7 +994,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1026,7 +1026,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChannel.Setaddress(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Setaddress(AIndex : Integer; const AValue : String);
 
 begin
   If (Faddress=AValue) then exit;
@@ -1036,7 +1036,7 @@ end;
 
 
 
-Procedure TChannel.Setexpiration(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Setexpiration(AIndex : Integer; const AValue : String);
 
 begin
   If (Fexpiration=AValue) then exit;
@@ -1046,7 +1046,7 @@ end;
 
 
 
-Procedure TChannel.Setid(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -1056,7 +1056,7 @@ end;
 
 
 
-Procedure TChannel.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1066,7 +1066,7 @@ end;
 
 
 
-Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams); 
+Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams);
 
 begin
   If (Fparams=AValue) then exit;
@@ -1076,7 +1076,7 @@ end;
 
 
 
-Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean); 
+Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fpayload=AValue) then exit;
@@ -1086,7 +1086,7 @@ end;
 
 
 
-Procedure TChannel.SetresourceId(AIndex : Integer; const AValue : String); 
+Procedure TChannel.SetresourceId(AIndex : Integer; const AValue : String);
 
 begin
   If (FresourceId=AValue) then exit;
@@ -1096,7 +1096,7 @@ end;
 
 
 
-Procedure TChannel.SetresourceUri(AIndex : Integer; const AValue : String); 
+Procedure TChannel.SetresourceUri(AIndex : Integer; const AValue : String);
 
 begin
   If (FresourceUri=AValue) then exit;
@@ -1106,7 +1106,7 @@ end;
 
 
 
-Procedure TChannel.Settoken(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Settoken(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftoken=AValue) then exit;
@@ -1116,7 +1116,7 @@ end;
 
 
 
-Procedure TChannel.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TChannel.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -1144,7 +1144,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportTypeentity.SetcustomerId(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeentity.SetcustomerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -1154,7 +1154,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.SetprofileId(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeentity.SetprofileId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprofileId=AValue) then exit;
@@ -1164,7 +1164,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeentity.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -1174,7 +1174,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.SetuserEmail(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeentity.SetuserEmail(AIndex : Integer; const AValue : String);
 
 begin
   If (FuserEmail=AValue) then exit;
@@ -1215,7 +1215,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean); 
+Procedure TUsageReportTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FboolValue=AValue) then exit;
@@ -1225,7 +1225,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetdatetimeValue(AIndex : Integer; const AValue : TDatetime); 
+Procedure TUsageReportTypeparametersItem.SetdatetimeValue(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (FdatetimeValue=AValue) then exit;
@@ -1235,7 +1235,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FintValue=AValue) then exit;
@@ -1245,7 +1245,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetmsgValue(AIndex : Integer; const AValue : TUsageReportTypeparametersItemTypemsgValueArray); 
+Procedure TUsageReportTypeparametersItem.SetmsgValue(AIndex : Integer; const AValue : TUsageReportTypeparametersItemTypemsgValueArray);
 
 begin
   If (FmsgValue=AValue) then exit;
@@ -1255,7 +1255,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeparametersItem.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetstringValue(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportTypeparametersItem.SetstringValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FstringValue=AValue) then exit;
@@ -1276,7 +1276,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TUsageReportTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TUsageReportTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1295,7 +1295,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReport.Setdate(AIndex : Integer; const AValue : String); 
+Procedure TUsageReport.Setdate(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdate=AValue) then exit;
@@ -1305,7 +1305,7 @@ end;
 
 
 
-Procedure TUsageReport.Setentity(AIndex : Integer; const AValue : TUsageReportTypeentity); 
+Procedure TUsageReport.Setentity(AIndex : Integer; const AValue : TUsageReportTypeentity);
 
 begin
   If (Fentity=AValue) then exit;
@@ -1315,7 +1315,7 @@ end;
 
 
 
-Procedure TUsageReport.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TUsageReport.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -1325,7 +1325,7 @@ end;
 
 
 
-Procedure TUsageReport.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TUsageReport.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1335,7 +1335,7 @@ end;
 
 
 
-Procedure TUsageReport.Setparameters(AIndex : Integer; const AValue : TUsageReportTypeparametersArray); 
+Procedure TUsageReport.Setparameters(AIndex : Integer; const AValue : TUsageReportTypeparametersArray);
 
 begin
   If (Fparameters=AValue) then exit;
@@ -1346,7 +1346,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TUsageReport.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TUsageReport.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1365,7 +1365,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportsTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportsTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -1375,7 +1375,7 @@ end;
 
 
 
-Procedure TUsageReportsTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportsTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1392,7 +1392,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportsTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportsTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcode=AValue) then exit;
@@ -1402,7 +1402,7 @@ end;
 
 
 
-Procedure TUsageReportsTypewarningsItem.Setdata(AIndex : Integer; const AValue : TUsageReportsTypewarningsItemTypedataArray); 
+Procedure TUsageReportsTypewarningsItem.Setdata(AIndex : Integer; const AValue : TUsageReportsTypewarningsItemTypedataArray);
 
 begin
   If (Fdata=AValue) then exit;
@@ -1412,7 +1412,7 @@ end;
 
 
 
-Procedure TUsageReportsTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TUsageReportsTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1423,7 +1423,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TUsageReportsTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TUsageReportsTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1442,7 +1442,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReports.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TUsageReports.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -1452,7 +1452,7 @@ end;
 
 
 
-Procedure TUsageReports.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TUsageReports.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1462,7 +1462,7 @@ end;
 
 
 
-Procedure TUsageReports.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TUsageReports.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1472,7 +1472,7 @@ end;
 
 
 
-Procedure TUsageReports.SetusageReports(AIndex : Integer; const AValue : TUsageReportsTypeusageReportsArray); 
+Procedure TUsageReports.SetusageReports(AIndex : Integer; const AValue : TUsageReportsTypeusageReportsArray);
 
 begin
   If (FusageReports=AValue) then exit;
@@ -1482,7 +1482,7 @@ end;
 
 
 
-Procedure TUsageReports.Setwarnings(AIndex : Integer; const AValue : TUsageReportsTypewarningsArray); 
+Procedure TUsageReports.Setwarnings(AIndex : Integer; const AValue : TUsageReportsTypewarningsArray);
 
 begin
   If (Fwarnings=AValue) then exit;
@@ -1493,7 +1493,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TUsageReports.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TUsageReports.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1837,7 +1837,7 @@ begin
   Result[0].Description:='View audit reports of Google Apps for your domain';
   Result[1].Name:='https://www.googleapis.com/auth/admin.reports.usage.readonly';
   Result[1].Description:='View usage reports of Google Apps for your domain';
-  
+
 end;
 
 Class Function TAdminAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleappsactivity.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TActivity = Class;
   TEvent = Class;
@@ -45,11 +45,11 @@ type
   TMoveTyperemovedParentsArray = Array of TParent;
   TPermissionChangeTypeaddedPermissionsArray = Array of TPermission;
   TPermissionChangeTyperemovedPermissionsArray = Array of TPermission;
-  
+
   { --------------------------------------------------------------------
     TActivity
     --------------------------------------------------------------------}
-  
+
   TActivity = Class(TGoogleBaseObject)
   Private
     FcombinedEvent : TEvent;
@@ -68,11 +68,11 @@ type
     Property singleEvents : TActivityTypesingleEventsArray Index 8 Read FsingleEvents Write SetsingleEvents;
   end;
   TActivityClass = Class of TActivity;
-  
+
   { --------------------------------------------------------------------
     TEvent
     --------------------------------------------------------------------}
-  
+
   TEvent = Class(TGoogleBaseObject)
   Private
     FadditionalEventTypes : TStringArray;
@@ -112,11 +112,11 @@ type
     Property user : TUser Index 64 Read Fuser Write Setuser;
   end;
   TEventClass = Class of TEvent;
-  
+
   { --------------------------------------------------------------------
     TListActivitiesResponse
     --------------------------------------------------------------------}
-  
+
   TListActivitiesResponse = Class(TGoogleBaseObject)
   Private
     Factivities : TListActivitiesResponseTypeactivitiesArray;
@@ -135,11 +135,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListActivitiesResponseClass = Class of TListActivitiesResponse;
-  
+
   { --------------------------------------------------------------------
     TMove
     --------------------------------------------------------------------}
-  
+
   TMove = Class(TGoogleBaseObject)
   Private
     FaddedParents : TMoveTypeaddedParentsArray;
@@ -158,11 +158,11 @@ type
     Property removedParents : TMoveTyperemovedParentsArray Index 8 Read FremovedParents Write SetremovedParents;
   end;
   TMoveClass = Class of TMove;
-  
+
   { --------------------------------------------------------------------
     TParent
     --------------------------------------------------------------------}
-  
+
   TParent = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -180,11 +180,11 @@ type
     Property title : String Index 16 Read Ftitle Write Settitle;
   end;
   TParentClass = Class of TParent;
-  
+
   { --------------------------------------------------------------------
     TPermission
     --------------------------------------------------------------------}
-  
+
   TPermission = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -212,11 +212,11 @@ type
     Property withLink : boolean Index 40 Read FwithLink Write SetwithLink;
   end;
   TPermissionClass = Class of TPermission;
-  
+
   { --------------------------------------------------------------------
     TPermissionChange
     --------------------------------------------------------------------}
-  
+
   TPermissionChange = Class(TGoogleBaseObject)
   Private
     FaddedPermissions : TPermissionChangeTypeaddedPermissionsArray;
@@ -235,11 +235,11 @@ type
     Property removedPermissions : TPermissionChangeTyperemovedPermissionsArray Index 8 Read FremovedPermissions Write SetremovedPermissions;
   end;
   TPermissionChangeClass = Class of TPermissionChange;
-  
+
   { --------------------------------------------------------------------
     TPhoto
     --------------------------------------------------------------------}
-  
+
   TPhoto = Class(TGoogleBaseObject)
   Private
     Furl : String;
@@ -251,11 +251,11 @@ type
     Property url : String Index 0 Read Furl Write Seturl;
   end;
   TPhotoClass = Class of TPhoto;
-  
+
   { --------------------------------------------------------------------
     TRename
     --------------------------------------------------------------------}
-  
+
   TRename = Class(TGoogleBaseObject)
   Private
     FnewTitle : String;
@@ -270,11 +270,11 @@ type
     Property oldTitle : String Index 8 Read FoldTitle Write SetoldTitle;
   end;
   TRenameClass = Class of TRename;
-  
+
   { --------------------------------------------------------------------
     TTarget
     --------------------------------------------------------------------}
-  
+
   TTarget = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -292,11 +292,11 @@ type
     Property name : String Index 16 Read Fname Write Setname;
   end;
   TTargetClass = Class of TTarget;
-  
+
   { --------------------------------------------------------------------
     TUser
     --------------------------------------------------------------------}
-  
+
   TUser = Class(TGoogleBaseObject)
   Private
     FisDeleted : boolean;
@@ -317,14 +317,14 @@ type
     Property photo : TPhoto Index 24 Read Fphoto Write Setphoto;
   end;
   TUserClass = Class of TUser;
-  
+
   { --------------------------------------------------------------------
     TActivitiesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TActivitiesResource, method List
-  
+
   TActivitiesListOptions = Record
     driveancestorId : String;
     drivefileId : String;
@@ -334,7 +334,7 @@ type
     source : String;
     userId : String;
   end;
-  
+
   TActivitiesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -342,12 +342,12 @@ type
     Function List(AQuery : string  = '') : TListActivitiesResponse;
     Function List(AQuery : TActivitieslistOptions) : TListActivitiesResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAppsactivityAPI
     --------------------------------------------------------------------}
-  
+
   TAppsactivityAPI = Class(TGoogleAPI)
   Private
     FActivitiesInstance : TActivitiesResource;
@@ -389,7 +389,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TActivity.SetcombinedEvent(AIndex : Integer; const AValue : TEvent); 
+Procedure TActivity.SetcombinedEvent(AIndex : Integer; const AValue : TEvent);
 
 begin
   If (FcombinedEvent=AValue) then exit;
@@ -399,7 +399,7 @@ end;
 
 
 
-Procedure TActivity.SetsingleEvents(AIndex : Integer; const AValue : TActivityTypesingleEventsArray); 
+Procedure TActivity.SetsingleEvents(AIndex : Integer; const AValue : TActivityTypesingleEventsArray);
 
 begin
   If (FsingleEvents=AValue) then exit;
@@ -410,7 +410,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -429,7 +429,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; const AValue : TStringArray); 
+Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FadditionalEventTypes=AValue) then exit;
@@ -439,7 +439,7 @@ end;
 
 
 
-Procedure TEvent.SeteventTimeMillis(AIndex : Integer; const AValue : String); 
+Procedure TEvent.SeteventTimeMillis(AIndex : Integer; const AValue : String);
 
 begin
   If (FeventTimeMillis=AValue) then exit;
@@ -449,7 +449,7 @@ end;
 
 
 
-Procedure TEvent.SetfromUserDeletion(AIndex : Integer; const AValue : boolean); 
+Procedure TEvent.SetfromUserDeletion(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FfromUserDeletion=AValue) then exit;
@@ -459,7 +459,7 @@ end;
 
 
 
-Procedure TEvent.Setmove(AIndex : Integer; const AValue : TMove); 
+Procedure TEvent.Setmove(AIndex : Integer; const AValue : TMove);
 
 begin
   If (Fmove=AValue) then exit;
@@ -469,7 +469,7 @@ end;
 
 
 
-Procedure TEvent.SetpermissionChanges(AIndex : Integer; const AValue : TEventTypepermissionChangesArray); 
+Procedure TEvent.SetpermissionChanges(AIndex : Integer; const AValue : TEventTypepermissionChangesArray);
 
 begin
   If (FpermissionChanges=AValue) then exit;
@@ -479,7 +479,7 @@ end;
 
 
 
-Procedure TEvent.SetprimaryEventType(AIndex : Integer; const AValue : String); 
+Procedure TEvent.SetprimaryEventType(AIndex : Integer; const AValue : String);
 
 begin
   If (FprimaryEventType=AValue) then exit;
@@ -489,7 +489,7 @@ end;
 
 
 
-Procedure TEvent.Setrename(AIndex : Integer; const AValue : TRename); 
+Procedure TEvent.Setrename(AIndex : Integer; const AValue : TRename);
 
 begin
   If (Frename=AValue) then exit;
@@ -499,7 +499,7 @@ end;
 
 
 
-Procedure TEvent.Settarget(AIndex : Integer; const AValue : TTarget); 
+Procedure TEvent.Settarget(AIndex : Integer; const AValue : TTarget);
 
 begin
   If (Ftarget=AValue) then exit;
@@ -509,7 +509,7 @@ end;
 
 
 
-Procedure TEvent.Setuser(AIndex : Integer; const AValue : TUser); 
+Procedure TEvent.Setuser(AIndex : Integer; const AValue : TUser);
 
 begin
   If (Fuser=AValue) then exit;
@@ -520,7 +520,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -540,7 +540,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; const AValue : TListActivitiesResponseTypeactivitiesArray); 
+Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; const AValue : TListActivitiesResponseTypeactivitiesArray);
 
 begin
   If (Factivities=AValue) then exit;
@@ -550,7 +550,7 @@ end;
 
 
 
-Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -561,7 +561,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListActivitiesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListActivitiesResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -580,7 +580,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMove.SetaddedParents(AIndex : Integer; const AValue : TMoveTypeaddedParentsArray); 
+Procedure TMove.SetaddedParents(AIndex : Integer; const AValue : TMoveTypeaddedParentsArray);
 
 begin
   If (FaddedParents=AValue) then exit;
@@ -590,7 +590,7 @@ end;
 
 
 
-Procedure TMove.SetremovedParents(AIndex : Integer; const AValue : TMoveTyperemovedParentsArray); 
+Procedure TMove.SetremovedParents(AIndex : Integer; const AValue : TMoveTyperemovedParentsArray);
 
 begin
   If (FremovedParents=AValue) then exit;
@@ -601,7 +601,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TMove.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TMove.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -621,7 +621,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TParent.Setid(AIndex : Integer; const AValue : String); 
+Procedure TParent.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -631,7 +631,7 @@ end;
 
 
 
-Procedure TParent.SetisRoot(AIndex : Integer; const AValue : boolean); 
+Procedure TParent.SetisRoot(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FisRoot=AValue) then exit;
@@ -641,7 +641,7 @@ end;
 
 
 
-Procedure TParent.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TParent.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -658,7 +658,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermission.Setname(AIndex : Integer; const AValue : String); 
+Procedure TPermission.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -668,7 +668,7 @@ end;
 
 
 
-Procedure TPermission.SetpermissionId(AIndex : Integer; const AValue : String); 
+Procedure TPermission.SetpermissionId(AIndex : Integer; const AValue : String);
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -678,7 +678,7 @@ end;
 
 
 
-Procedure TPermission.Setrole(AIndex : Integer; const AValue : String); 
+Procedure TPermission.Setrole(AIndex : Integer; const AValue : String);
 
 begin
   If (Frole=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 
 
-Procedure TPermission.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TPermission.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -698,7 +698,7 @@ end;
 
 
 
-Procedure TPermission.Setuser(AIndex : Integer; const AValue : TUser); 
+Procedure TPermission.Setuser(AIndex : Integer; const AValue : TUser);
 
 begin
   If (Fuser=AValue) then exit;
@@ -708,7 +708,7 @@ end;
 
 
 
-Procedure TPermission.SetwithLink(AIndex : Integer; const AValue : boolean); 
+Procedure TPermission.SetwithLink(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FwithLink=AValue) then exit;
@@ -736,7 +736,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; const AValue : TPermissionChangeTypeaddedPermissionsArray); 
+Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; const AValue : TPermissionChangeTypeaddedPermissionsArray);
 
 begin
   If (FaddedPermissions=AValue) then exit;
@@ -746,7 +746,7 @@ end;
 
 
 
-Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; const AValue : TPermissionChangeTyperemovedPermissionsArray); 
+Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; const AValue : TPermissionChangeTyperemovedPermissionsArray);
 
 begin
   If (FremovedPermissions=AValue) then exit;
@@ -757,7 +757,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPermissionChange.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPermissionChange.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -777,7 +777,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPhoto.Seturl(AIndex : Integer; const AValue : String); 
+Procedure TPhoto.Seturl(AIndex : Integer; const AValue : String);
 
 begin
   If (Furl=AValue) then exit;
@@ -794,7 +794,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRename.SetnewTitle(AIndex : Integer; const AValue : String); 
+Procedure TRename.SetnewTitle(AIndex : Integer; const AValue : String);
 
 begin
   If (FnewTitle=AValue) then exit;
@@ -804,7 +804,7 @@ end;
 
 
 
-Procedure TRename.SetoldTitle(AIndex : Integer; const AValue : String); 
+Procedure TRename.SetoldTitle(AIndex : Integer; const AValue : String);
 
 begin
   If (FoldTitle=AValue) then exit;
@@ -821,7 +821,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTarget.Setid(AIndex : Integer; const AValue : String); 
+Procedure TTarget.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -831,7 +831,7 @@ end;
 
 
 
-Procedure TTarget.SetmimeType(AIndex : Integer; const AValue : String); 
+Procedure TTarget.SetmimeType(AIndex : Integer; const AValue : String);
 
 begin
   If (FmimeType=AValue) then exit;
@@ -841,7 +841,7 @@ end;
 
 
 
-Procedure TTarget.Setname(AIndex : Integer; const AValue : String); 
+Procedure TTarget.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -858,7 +858,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUser.SetisDeleted(AIndex : Integer; const AValue : boolean); 
+Procedure TUser.SetisDeleted(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FisDeleted=AValue) then exit;
@@ -868,7 +868,7 @@ end;
 
 
 
-Procedure TUser.Setname(AIndex : Integer; const AValue : String); 
+Procedure TUser.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -878,7 +878,7 @@ end;
 
 
 
-Procedure TUser.SetpermissionId(AIndex : Integer; const AValue : String); 
+Procedure TUser.SetpermissionId(AIndex : Integer; const AValue : String);
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -888,7 +888,7 @@ end;
 
 
 
-Procedure TUser.Setphoto(AIndex : Integer; const AValue : TPhoto); 
+Procedure TUser.Setphoto(AIndex : Integer; const AValue : TPhoto);
 
 begin
   If (Fphoto=AValue) then exit;
@@ -1068,7 +1068,7 @@ begin
   Result[3].Description:='View metadata for files in your Google Drive';
   Result[4].Name:='https://www.googleapis.com/auth/drive.readonly';
   Result[4].Description:='View the files in your Google Drive';
-  
+
 end;
 
 Class Function TAppsactivityAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleappstate.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TGetResponse = Class;
   TListResponse = Class;
@@ -25,11 +25,11 @@ type
   TWriteResultArray = Array of TWriteResult;
   //Anonymous types, using auto-generated names
   TListResponseTypeitemsArray = Array of TGetResponse;
-  
+
   { --------------------------------------------------------------------
     TGetResponse
     --------------------------------------------------------------------}
-  
+
   TGetResponse = Class(TGoogleBaseObject)
   Private
     FcurrentStateVersion : String;
@@ -50,11 +50,11 @@ type
     Property stateKey : integer Index 24 Read FstateKey Write SetstateKey;
   end;
   TGetResponseClass = Class of TGetResponse;
-  
+
   { --------------------------------------------------------------------
     TListResponse
     --------------------------------------------------------------------}
-  
+
   TListResponse = Class(TGoogleBaseObject)
   Private
     Fitems : TListResponseTypeitemsArray;
@@ -76,11 +76,11 @@ type
     Property maximumKeyCount : integer Index 16 Read FmaximumKeyCount Write SetmaximumKeyCount;
   end;
   TListResponseClass = Class of TListResponse;
-  
+
   { --------------------------------------------------------------------
     TUpdateRequest
     --------------------------------------------------------------------}
-  
+
   TUpdateRequest = Class(TGoogleBaseObject)
   Private
     Fdata : String;
@@ -95,11 +95,11 @@ type
     Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TUpdateRequestClass = Class of TUpdateRequest;
-  
+
   { --------------------------------------------------------------------
     TWriteResult
     --------------------------------------------------------------------}
-  
+
   TWriteResult = Class(TGoogleBaseObject)
   Private
     FcurrentStateVersion : String;
@@ -117,32 +117,32 @@ type
     Property stateKey : integer Index 16 Read FstateKey Write SetstateKey;
   end;
   TWriteResultClass = Class of TWriteResult;
-  
+
   { --------------------------------------------------------------------
     TStatesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TStatesResource, method Clear
-  
+
   TStatesClearOptions = Record
     currentDataVersion : String;
   end;
-  
-  
+
+
   //Optional query Options for TStatesResource, method List
-  
+
   TStatesListOptions = Record
     includeData : boolean;
   end;
-  
-  
+
+
   //Optional query Options for TStatesResource, method Update
-  
+
   TStatesUpdateOptions = Record
     currentStateVersion : String;
   end;
-  
+
   TStatesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -156,12 +156,12 @@ type
     Function Update(stateKey: integer; aUpdateRequest : TUpdateRequest; AQuery : string  = '') : TWriteResult;
     Function Update(stateKey: integer; aUpdateRequest : TUpdateRequest; AQuery : TStatesupdateOptions) : TWriteResult;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAppstateAPI
     --------------------------------------------------------------------}
-  
+
   TAppstateAPI = Class(TGoogleAPI)
   Private
     FStatesInstance : TStatesResource;
@@ -203,7 +203,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; const AValue : String); 
+Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -213,7 +213,7 @@ end;
 
 
 
-Procedure TGetResponse.Setdata(AIndex : Integer; const AValue : String); 
+Procedure TGetResponse.Setdata(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdata=AValue) then exit;
@@ -223,7 +223,7 @@ end;
 
 
 
-Procedure TGetResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TGetResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -233,7 +233,7 @@ end;
 
 
 
-Procedure TGetResponse.SetstateKey(AIndex : Integer; const AValue : integer); 
+Procedure TGetResponse.SetstateKey(AIndex : Integer; const AValue : integer);
 
 begin
   If (FstateKey=AValue) then exit;
@@ -250,7 +250,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListResponse.Setitems(AIndex : Integer; const AValue : TListResponseTypeitemsArray); 
+Procedure TListResponse.Setitems(AIndex : Integer; const AValue : TListResponseTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -260,7 +260,7 @@ end;
 
 
 
-Procedure TListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -270,7 +270,7 @@ end;
 
 
 
-Procedure TListResponse.SetmaximumKeyCount(AIndex : Integer; const AValue : integer); 
+Procedure TListResponse.SetmaximumKeyCount(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmaximumKeyCount=AValue) then exit;
@@ -281,7 +281,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -300,7 +300,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUpdateRequest.Setdata(AIndex : Integer; const AValue : String); 
+Procedure TUpdateRequest.Setdata(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdata=AValue) then exit;
@@ -310,7 +310,7 @@ end;
 
 
 
-Procedure TUpdateRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TUpdateRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -327,7 +327,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; const AValue : String); 
+Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -337,7 +337,7 @@ end;
 
 
 
-Procedure TWriteResult.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TWriteResult.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -347,7 +347,7 @@ end;
 
 
 
-Procedure TWriteResult.SetstateKey(AIndex : Integer; const AValue : integer); 
+Procedure TWriteResult.SetstateKey(AIndex : Integer; const AValue : integer);
 
 begin
   If (FstateKey=AValue) then exit;
@@ -597,7 +597,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/appstate';
   Result[0].Description:='View and manage your data for this application';
-  
+
 end;
 
 Class Function TAppstateAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleaudit.pp

@@ -5,14 +5,14 @@ unit googleaudit;
    **********************************************************************
       This file is part of the Free Component Library (FCL)
       Copyright (c) 2015 The free pascal team.
-  
+
       See the file COPYING.FPC, included in this distribution,
       for details about the copyright.
-  
+
       This program is distributed in the hope that it will be useful,
       but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-  
+
    **********************************************************************
 }
 //Generated on: 16-5-15 08:52:58
@@ -28,7 +28,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TActivities = Class;
   TActivity = Class;
@@ -42,11 +42,11 @@ type
   TActivitiesTypeitemsArray = Array of TActivity;
   TActivityTypeeventsItemTypeparametersArray = Array of TActivityTypeeventsItemTypeparametersItem;
   TActivityTypeeventsArray = Array of TActivityTypeeventsItem;
-  
+
   { --------------------------------------------------------------------
     TActivities
     --------------------------------------------------------------------}
-  
+
   TActivities = Class(TGoogleBaseObject)
   Private
     Fitems : TActivitiesTypeitemsArray;
@@ -68,11 +68,11 @@ type
     Property next : String Index 16 Read Fnext Write Setnext;
   end;
   TActivitiesClass = Class of TActivities;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeactor
     --------------------------------------------------------------------}
-  
+
   TActivityTypeactor = Class(TGoogleBaseObject)
   Private
     FapplicationId : String;
@@ -93,11 +93,11 @@ type
     Property key : String Index 24 Read Fkey Write Setkey;
   end;
   TActivityTypeactorClass = Class of TActivityTypeactor;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeeventsItemTypeparametersItem
     --------------------------------------------------------------------}
-  
+
   TActivityTypeeventsItemTypeparametersItem = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -112,11 +112,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TActivityTypeeventsItemTypeparametersItemClass = Class of TActivityTypeeventsItemTypeparametersItem;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeeventsItem
     --------------------------------------------------------------------}
-  
+
   TActivityTypeeventsItem = Class(TGoogleBaseObject)
   Private
     FeventType : String;
@@ -138,11 +138,11 @@ type
     Property parameters : TActivityTypeeventsItemTypeparametersArray Index 16 Read Fparameters Write Setparameters;
   end;
   TActivityTypeeventsItemClass = Class of TActivityTypeeventsItem;
-  
+
   { --------------------------------------------------------------------
     TActivityTypeid
     --------------------------------------------------------------------}
-  
+
   TActivityTypeid = Class(TGoogleBaseObject)
   Private
     FapplicationId : String;
@@ -163,11 +163,11 @@ type
     Property uniqQualifier : String Index 24 Read FuniqQualifier Write SetuniqQualifier;
   end;
   TActivityTypeidClass = Class of TActivityTypeid;
-  
+
   { --------------------------------------------------------------------
     TActivity
     --------------------------------------------------------------------}
-  
+
   TActivity = Class(TGoogleBaseObject)
   Private
     Factor : TActivityTypeactor;
@@ -198,14 +198,14 @@ type
     Property ownerDomain : String Index 40 Read FownerDomain Write SetownerDomain;
   end;
   TActivityClass = Class of TActivity;
-  
+
   { --------------------------------------------------------------------
     TActivitiesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TActivitiesResource, method List
-  
+
   TActivitiesListOptions = Record
     actorApplicationId : int64;
     actorEmail : String;
@@ -217,7 +217,7 @@ type
     maxResults : integer;
     startTime : String;
   end;
-  
+
   TActivitiesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -225,12 +225,12 @@ type
     Function List(applicationId: string; customerId: string; AQuery : string  = '') : TActivities;
     Function List(applicationId: string; customerId: string; AQuery : TActivitieslistOptions) : TActivities;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TAuditAPI
     --------------------------------------------------------------------}
-  
+
   TAuditAPI = Class(TGoogleAPI)
   Private
     FActivitiesInstance : TActivitiesResource;
@@ -272,7 +272,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TActivities.Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); 
+Procedure TActivities.Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -282,7 +282,7 @@ end;
 
 
 
-Procedure TActivities.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TActivities.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -292,7 +292,7 @@ end;
 
 
 
-Procedure TActivities.Setnext(AIndex : Integer; const AValue : String); 
+Procedure TActivities.Setnext(AIndex : Integer; const AValue : String);
 
 begin
   If (Fnext=AValue) then exit;
@@ -303,7 +303,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -322,7 +322,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeactor.SetapplicationId(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.SetapplicationId(AIndex : Integer; const AValue : String);
 
 begin
   If (FapplicationId=AValue) then exit;
@@ -332,7 +332,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String);
 
 begin
   If (FcallerType=AValue) then exit;
@@ -342,7 +342,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -352,7 +352,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -369,7 +369,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -379,7 +379,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -396,7 +396,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItem.SeteventType(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItem.SeteventType(AIndex : Integer; const AValue : String);
 
 begin
   If (FeventType=AValue) then exit;
@@ -406,7 +406,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -416,7 +416,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); 
+Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray);
 
 begin
   If (Fparameters=AValue) then exit;
@@ -427,7 +427,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -446,7 +446,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeid.SetapplicationId(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetapplicationId(AIndex : Integer; const AValue : String);
 
 begin
   If (FapplicationId=AValue) then exit;
@@ -456,7 +456,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -466,7 +466,7 @@ end;
 
 
 
-Procedure TActivityTypeid.Settime(AIndex : Integer; AValue : TDatetime); 
+Procedure TActivityTypeid.Settime(AIndex : Integer; AValue : TDatetime);
 
 begin
   If (Ftime=AValue) then exit;
@@ -476,7 +476,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetuniqQualifier(AIndex : Integer; const AValue : String); 
+Procedure TActivityTypeid.SetuniqQualifier(AIndex : Integer; const AValue : String);
 
 begin
   If (FuniqQualifier=AValue) then exit;
@@ -493,7 +493,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor); 
+Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor);
 
 begin
   If (Factor=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TActivity.Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); 
+Procedure TActivity.Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray);
 
 begin
   If (Fevents=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TActivity.Setid(AIndex : Integer; AValue : TActivityTypeid); 
+Procedure TActivity.Setid(AIndex : Integer; AValue : TActivityTypeid);
 
 begin
   If (Fid=AValue) then exit;
@@ -523,7 +523,7 @@ end;
 
 
 
-Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String); 
+Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String);
 
 begin
   If (FipAddress=AValue) then exit;
@@ -533,7 +533,7 @@ end;
 
 
 
-Procedure TActivity.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TActivity.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -543,7 +543,7 @@ end;
 
 
 
-Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String); 
+Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String);
 
 begin
   If (FownerDomain=AValue) then exit;
@@ -554,7 +554,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -732,7 +732,7 @@ Class Function TAuditAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TAuditAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudbilling.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TBillingAccount = Class;
   TListBillingAccountsResponse = Class;
@@ -26,11 +26,11 @@ type
   //Anonymous types, using auto-generated names
   TListBillingAccountsResponseTypebillingAccountsArray = Array of TBillingAccount;
   TListProjectBillingInfoResponseTypeprojectBillingInfoArray = Array of TProjectBillingInfo;
-  
+
   { --------------------------------------------------------------------
     TBillingAccount
     --------------------------------------------------------------------}
-  
+
   TBillingAccount = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -48,11 +48,11 @@ type
     Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
   end;
   TBillingAccountClass = Class of TBillingAccount;
-  
+
   { --------------------------------------------------------------------
     TListBillingAccountsResponse
     --------------------------------------------------------------------}
-  
+
   TListBillingAccountsResponse = Class(TGoogleBaseObject)
   Private
     FbillingAccounts : TListBillingAccountsResponseTypebillingAccountsArray;
@@ -71,11 +71,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListBillingAccountsResponseClass = Class of TListBillingAccountsResponse;
-  
+
   { --------------------------------------------------------------------
     TListProjectBillingInfoResponse
     --------------------------------------------------------------------}
-  
+
   TListProjectBillingInfoResponse = Class(TGoogleBaseObject)
   Private
     FprojectBillingInfo : TListProjectBillingInfoResponseTypeprojectBillingInfoArray;
@@ -94,11 +94,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListProjectBillingInfoResponseClass = Class of TListProjectBillingInfoResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectBillingInfo
     --------------------------------------------------------------------}
-  
+
   TProjectBillingInfo = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -119,19 +119,19 @@ type
     Property billingEnabled : boolean Index 24 Read FbillingEnabled Write SetbillingEnabled;
   end;
   TProjectBillingInfoClass = Class of TProjectBillingInfo;
-  
+
   { --------------------------------------------------------------------
     TBillingAccountsProjectsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TBillingAccountsProjectsResource, method List
-  
+
   TBillingAccountsProjectsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TBillingAccountsProjectsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -139,20 +139,20 @@ type
     Function List(_name: string; AQuery : string  = '') : TListProjectBillingInfoResponse;
     Function List(_name: string; AQuery : TBillingAccountsProjectslistOptions) : TListProjectBillingInfoResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TBillingAccountsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TBillingAccountsResource, method List
-  
+
   TBillingAccountsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TBillingAccountsResource = Class(TGoogleResource)
   Private
     FProjectsInstance : TBillingAccountsProjectsResource;
@@ -167,12 +167,12 @@ type
     Function CreateProjectsResource : TBillingAccountsProjectsResource;virtual;overload;
     Property ProjectsResource : TBillingAccountsProjectsResource Read GetProjectsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -180,12 +180,12 @@ type
     Function GetBillingInfo(_name: string) : TProjectBillingInfo;
     Function UpdateBillingInfo(_name: string; aProjectBillingInfo : TProjectBillingInfo) : TProjectBillingInfo;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudbillingAPI
     --------------------------------------------------------------------}
-  
+
   TCloudbillingAPI = Class(TGoogleAPI)
   Private
     FBillingAccountsProjectsInstance : TBillingAccountsProjectsResource;
@@ -237,7 +237,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TBillingAccount.Setname(AIndex : Integer; const AValue : String); 
+Procedure TBillingAccount.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -247,7 +247,7 @@ end;
 
 
 
-Procedure TBillingAccount.Setopen(AIndex : Integer; const AValue : boolean); 
+Procedure TBillingAccount.Setopen(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fopen=AValue) then exit;
@@ -257,7 +257,7 @@ end;
 
 
 
-Procedure TBillingAccount.SetdisplayName(AIndex : Integer; const AValue : String); 
+Procedure TBillingAccount.SetdisplayName(AIndex : Integer; const AValue : String);
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -274,7 +274,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListBillingAccountsResponse.SetbillingAccounts(AIndex : Integer; const AValue : TListBillingAccountsResponseTypebillingAccountsArray); 
+Procedure TListBillingAccountsResponse.SetbillingAccounts(AIndex : Integer; const AValue : TListBillingAccountsResponseTypebillingAccountsArray);
 
 begin
   If (FbillingAccounts=AValue) then exit;
@@ -284,7 +284,7 @@ end;
 
 
 
-Procedure TListBillingAccountsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListBillingAccountsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -295,7 +295,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListBillingAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListBillingAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -314,7 +314,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListProjectBillingInfoResponse.SetprojectBillingInfo(AIndex : Integer; const AValue : TListProjectBillingInfoResponseTypeprojectBillingInfoArray); 
+Procedure TListProjectBillingInfoResponse.SetprojectBillingInfo(AIndex : Integer; const AValue : TListProjectBillingInfoResponseTypeprojectBillingInfoArray);
 
 begin
   If (FprojectBillingInfo=AValue) then exit;
@@ -324,7 +324,7 @@ end;
 
 
 
-Procedure TListProjectBillingInfoResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListProjectBillingInfoResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -335,7 +335,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListProjectBillingInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListProjectBillingInfoResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -354,7 +354,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProjectBillingInfo.Setname(AIndex : Integer; const AValue : String); 
+Procedure TProjectBillingInfo.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -364,7 +364,7 @@ end;
 
 
 
-Procedure TProjectBillingInfo.SetprojectId(AIndex : Integer; const AValue : String); 
+Procedure TProjectBillingInfo.SetprojectId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectId=AValue) then exit;
@@ -374,7 +374,7 @@ end;
 
 
 
-Procedure TProjectBillingInfo.SetbillingAccountName(AIndex : Integer; const AValue : String); 
+Procedure TProjectBillingInfo.SetbillingAccountName(AIndex : Integer; const AValue : String);
 
 begin
   If (FbillingAccountName=AValue) then exit;
@@ -384,7 +384,7 @@ end;
 
 
 
-Procedure TProjectBillingInfo.SetbillingEnabled(AIndex : Integer; const AValue : boolean); 
+Procedure TProjectBillingInfo.SetbillingEnabled(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FbillingEnabled=AValue) then exit;
@@ -686,7 +686,7 @@ 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 TCloudbillingAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudbuild.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TStatus = Class;
   TBuildOperationMetadata = Class;
@@ -48,11 +48,11 @@ type
   TBuildTypestepsArray = Array of TBuildStep;
   TListOperationsResponseTypeoperationsArray = Array of TOperation;
   TListBuildsResponseTypebuildsArray = Array of TBuild;
-  
+
   { --------------------------------------------------------------------
     TStatusTypedetailsItem
     --------------------------------------------------------------------}
-  
+
   TStatusTypedetailsItem = Class(TGoogleBaseObject)
   Private
   Protected
@@ -62,11 +62,11 @@ type
   Published
   end;
   TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
-  
+
   { --------------------------------------------------------------------
     TStatus
     --------------------------------------------------------------------}
-  
+
   TStatus = Class(TGoogleBaseObject)
   Private
     Fcode : integer;
@@ -88,11 +88,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TStatusClass = Class of TStatus;
-  
+
   { --------------------------------------------------------------------
     TBuildOperationMetadata
     --------------------------------------------------------------------}
-  
+
   TBuildOperationMetadata = Class(TGoogleBaseObject)
   Private
     Fbuild : TBuild;
@@ -104,11 +104,11 @@ type
     Property build : TBuild Index 0 Read Fbuild Write Setbuild;
   end;
   TBuildOperationMetadataClass = Class of TBuildOperationMetadata;
-  
+
   { --------------------------------------------------------------------
     TSource
     --------------------------------------------------------------------}
-  
+
   TSource = Class(TGoogleBaseObject)
   Private
     FstorageSource : TStorageSource;
@@ -120,11 +120,11 @@ type
     Property storageSource : TStorageSource Index 0 Read FstorageSource Write SetstorageSource;
   end;
   TSourceClass = Class of TSource;
-  
+
   { --------------------------------------------------------------------
     TOperationTypemetadata
     --------------------------------------------------------------------}
-  
+
   TOperationTypemetadata = Class(TGoogleBaseObject)
   Private
   Protected
@@ -134,11 +134,11 @@ type
   Published
   end;
   TOperationTypemetadataClass = Class of TOperationTypemetadata;
-  
+
   { --------------------------------------------------------------------
     TOperationTyperesponse
     --------------------------------------------------------------------}
-  
+
   TOperationTyperesponse = Class(TGoogleBaseObject)
   Private
   Protected
@@ -148,11 +148,11 @@ type
   Published
   end;
   TOperationTyperesponseClass = Class of TOperationTyperesponse;
-  
+
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
-  
+
   TOperation = Class(TGoogleBaseObject)
   Private
     Ferror : TStatus;
@@ -176,11 +176,11 @@ type
     Property name : String Index 32 Read Fname Write Setname;
   end;
   TOperationClass = Class of TOperation;
-  
+
   { --------------------------------------------------------------------
     TBuiltImage
     --------------------------------------------------------------------}
-  
+
   TBuiltImage = Class(TGoogleBaseObject)
   Private
     Fdigest : String;
@@ -195,11 +195,11 @@ type
     Property name : String Index 8 Read Fname Write Setname;
   end;
   TBuiltImageClass = Class of TBuiltImage;
-  
+
   { --------------------------------------------------------------------
     TStorageSource
     --------------------------------------------------------------------}
-  
+
   TStorageSource = Class(TGoogleBaseObject)
   Private
     Fbucket : String;
@@ -218,11 +218,11 @@ type
     Property _object : String Index 16 Read F_object Write Set_object;
   end;
   TStorageSourceClass = Class of TStorageSource;
-  
+
   { --------------------------------------------------------------------
     TResults
     --------------------------------------------------------------------}
-  
+
   TResults = Class(TGoogleBaseObject)
   Private
     Fimages : TResultsTypeimagesArray;
@@ -238,11 +238,11 @@ type
     Property images : TResultsTypeimagesArray Index 0 Read Fimages Write Setimages;
   end;
   TResultsClass = Class of TResults;
-  
+
   { --------------------------------------------------------------------
     TBuild
     --------------------------------------------------------------------}
-  
+
   TBuild = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -294,11 +294,11 @@ type
     Property projectId : String Index 96 Read FprojectId Write SetprojectId;
   end;
   TBuildClass = Class of TBuild;
-  
+
   { --------------------------------------------------------------------
     TCancelBuildRequest
     --------------------------------------------------------------------}
-  
+
   TCancelBuildRequest = Class(TGoogleBaseObject)
   Private
   Protected
@@ -307,11 +307,11 @@ type
   Published
   end;
   TCancelBuildRequestClass = Class of TCancelBuildRequest;
-  
+
   { --------------------------------------------------------------------
     TListOperationsResponse
     --------------------------------------------------------------------}
-  
+
   TListOperationsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -330,11 +330,11 @@ type
     Property operations : TListOperationsResponseTypeoperationsArray Index 8 Read Foperations Write Setoperations;
   end;
   TListOperationsResponseClass = Class of TListOperationsResponse;
-  
+
   { --------------------------------------------------------------------
     TBuildStep
     --------------------------------------------------------------------}
-  
+
   TBuildStep = Class(TGoogleBaseObject)
   Private
     Fargs : TStringArray;
@@ -359,11 +359,11 @@ type
     Property env : TStringArray Index 24 Read Fenv Write Setenv;
   end;
   TBuildStepClass = Class of TBuildStep;
-  
+
   { --------------------------------------------------------------------
     TListBuildsResponse
     --------------------------------------------------------------------}
-  
+
   TListBuildsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -382,19 +382,19 @@ type
     Property builds : TListBuildsResponseTypebuildsArray Index 8 Read Fbuilds Write Setbuilds;
   end;
   TListBuildsResponseClass = Class of TListBuildsResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectsBuildsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsBuildsResource, method List
-  
+
   TProjectsBuildsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsBuildsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -405,12 +405,12 @@ type
     Function List(projectId: string; AQuery : TProjectsBuildslistOptions) : TListBuildsResponse;
     Function Cancel(projectId: string; id: string; aCancelBuildRequest : TCancelBuildRequest) : TBuild;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FBuildsInstance : TProjectsBuildsResource;
@@ -422,21 +422,21 @@ type
     Function CreateBuildsResource : TProjectsBuildsResource;virtual;overload;
     Property BuildsResource : TProjectsBuildsResource Read GetBuildsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TOperationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TOperationsResource, method List
-  
+
   TOperationsListOptions = Record
     pageSize : integer;
     filter : String;
     pageToken : String;
   end;
-  
+
   TOperationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -445,12 +445,12 @@ type
     Function List(_name: string; AQuery : string  = '') : TListOperationsResponse;
     Function List(_name: string; AQuery : TOperationslistOptions) : TListOperationsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudbuildAPI
     --------------------------------------------------------------------}
-  
+
   TCloudbuildAPI = Class(TGoogleAPI)
   Private
     FProjectsBuildsInstance : TProjectsBuildsResource;
@@ -515,7 +515,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer); 
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fcode=AValue) then exit;
@@ -525,7 +525,7 @@ end;
 
 
 
-Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); 
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
 
 begin
   If (Fdetails=AValue) then exit;
@@ -535,7 +535,7 @@ end;
 
 
 
-Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -546,7 +546,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -565,7 +565,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBuildOperationMetadata.Setbuild(AIndex : Integer; const AValue : TBuild); 
+Procedure TBuildOperationMetadata.Setbuild(AIndex : Integer; const AValue : TBuild);
 
 begin
   If (Fbuild=AValue) then exit;
@@ -582,7 +582,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSource.SetstorageSource(AIndex : Integer; const AValue : TStorageSource); 
+Procedure TSource.SetstorageSource(AIndex : Integer; const AValue : TStorageSource);
 
 begin
   If (FstorageSource=AValue) then exit;
@@ -625,7 +625,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus); 
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
 
 begin
   If (Ferror=AValue) then exit;
@@ -635,7 +635,7 @@ end;
 
 
 
-Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean); 
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fdone=AValue) then exit;
@@ -645,7 +645,7 @@ end;
 
 
 
-Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); 
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
 
 begin
   If (Fmetadata=AValue) then exit;
@@ -655,7 +655,7 @@ end;
 
 
 
-Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); 
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
 
 begin
   If (Fresponse=AValue) then exit;
@@ -665,7 +665,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -682,7 +682,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBuiltImage.Setdigest(AIndex : Integer; const AValue : String); 
+Procedure TBuiltImage.Setdigest(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdigest=AValue) then exit;
@@ -692,7 +692,7 @@ end;
 
 
 
-Procedure TBuiltImage.Setname(AIndex : Integer; const AValue : String); 
+Procedure TBuiltImage.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -709,7 +709,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStorageSource.Setbucket(AIndex : Integer; const AValue : String); 
+Procedure TStorageSource.Setbucket(AIndex : Integer; const AValue : String);
 
 begin
   If (Fbucket=AValue) then exit;
@@ -719,7 +719,7 @@ end;
 
 
 
-Procedure TStorageSource.Setgeneration(AIndex : Integer; const AValue : String); 
+Procedure TStorageSource.Setgeneration(AIndex : Integer; const AValue : String);
 
 begin
   If (Fgeneration=AValue) then exit;
@@ -729,7 +729,7 @@ end;
 
 
 
-Procedure TStorageSource.Set_object(AIndex : Integer; const AValue : String); 
+Procedure TStorageSource.Set_object(AIndex : Integer; const AValue : String);
 
 begin
   If (F_object=AValue) then exit;
@@ -757,7 +757,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResults.Setimages(AIndex : Integer; const AValue : TResultsTypeimagesArray); 
+Procedure TResults.Setimages(AIndex : Integer; const AValue : TResultsTypeimagesArray);
 
 begin
   If (Fimages=AValue) then exit;
@@ -768,7 +768,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TResults.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TResults.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -787,7 +787,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBuild.Setid(AIndex : Integer; const AValue : String); 
+Procedure TBuild.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -797,7 +797,7 @@ end;
 
 
 
-Procedure TBuild.Setresults(AIndex : Integer; const AValue : TResults); 
+Procedure TBuild.Setresults(AIndex : Integer; const AValue : TResults);
 
 begin
   If (Fresults=AValue) then exit;
@@ -807,7 +807,7 @@ end;
 
 
 
-Procedure TBuild.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TBuild.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -817,7 +817,7 @@ end;
 
 
 
-Procedure TBuild.SetfinishTime(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetfinishTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FfinishTime=AValue) then exit;
@@ -827,7 +827,7 @@ end;
 
 
 
-Procedure TBuild.Settimeout(AIndex : Integer; const AValue : String); 
+Procedure TBuild.Settimeout(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftimeout=AValue) then exit;
@@ -837,7 +837,7 @@ end;
 
 
 
-Procedure TBuild.Setsteps(AIndex : Integer; const AValue : TBuildTypestepsArray); 
+Procedure TBuild.Setsteps(AIndex : Integer; const AValue : TBuildTypestepsArray);
 
 begin
   If (Fsteps=AValue) then exit;
@@ -847,7 +847,7 @@ end;
 
 
 
-Procedure TBuild.Setsource(AIndex : Integer; const AValue : TSource); 
+Procedure TBuild.Setsource(AIndex : Integer; const AValue : TSource);
 
 begin
   If (Fsource=AValue) then exit;
@@ -857,7 +857,7 @@ end;
 
 
 
-Procedure TBuild.SetcreateTime(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetcreateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreateTime=AValue) then exit;
@@ -867,7 +867,7 @@ end;
 
 
 
-Procedure TBuild.SetstatusDetail(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetstatusDetail(AIndex : Integer; const AValue : String);
 
 begin
   If (FstatusDetail=AValue) then exit;
@@ -877,7 +877,7 @@ end;
 
 
 
-Procedure TBuild.Setimages(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBuild.Setimages(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fimages=AValue) then exit;
@@ -887,7 +887,7 @@ end;
 
 
 
-Procedure TBuild.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -897,7 +897,7 @@ end;
 
 
 
-Procedure TBuild.SetlogsBucket(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetlogsBucket(AIndex : Integer; const AValue : String);
 
 begin
   If (FlogsBucket=AValue) then exit;
@@ -907,7 +907,7 @@ end;
 
 
 
-Procedure TBuild.SetprojectId(AIndex : Integer; const AValue : String); 
+Procedure TBuild.SetprojectId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectId=AValue) then exit;
@@ -918,7 +918,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBuild.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBuild.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -945,7 +945,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListOperationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListOperationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -955,7 +955,7 @@ end;
 
 
 
-Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
 
 begin
   If (Foperations=AValue) then exit;
@@ -966,7 +966,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -985,7 +985,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBuildStep.Setargs(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBuildStep.Setargs(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fargs=AValue) then exit;
@@ -995,7 +995,7 @@ end;
 
 
 
-Procedure TBuildStep.Setdir(AIndex : Integer; const AValue : String); 
+Procedure TBuildStep.Setdir(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdir=AValue) then exit;
@@ -1005,7 +1005,7 @@ end;
 
 
 
-Procedure TBuildStep.Setname(AIndex : Integer; const AValue : String); 
+Procedure TBuildStep.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -1015,7 +1015,7 @@ end;
 
 
 
-Procedure TBuildStep.Setenv(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBuildStep.Setenv(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fenv=AValue) then exit;
@@ -1026,7 +1026,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBuildStep.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBuildStep.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1046,7 +1046,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListBuildsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListBuildsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1056,7 +1056,7 @@ end;
 
 
 
-Procedure TListBuildsResponse.Setbuilds(AIndex : Integer; const AValue : TListBuildsResponseTypebuildsArray); 
+Procedure TListBuildsResponse.Setbuilds(AIndex : Integer; const AValue : TListBuildsResponseTypebuildsArray);
 
 begin
   If (Fbuilds=AValue) then exit;
@@ -1067,7 +1067,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListBuildsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListBuildsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1391,7 +1391,7 @@ 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 TCloudbuildAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleclouderrorreporting.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TSourceLocation = Class;
   TErrorGroupStats = Class;
@@ -45,11 +45,11 @@ type
   TErrorGroupTypetrackingIssuesArray = Array of TTrackingIssue;
   TListEventsResponseTypeerrorEventsArray = Array of TErrorEvent;
   TListGroupStatsResponseTypeerrorGroupStatsArray = Array of TErrorGroupStats;
-  
+
   { --------------------------------------------------------------------
     TSourceLocation
     --------------------------------------------------------------------}
-  
+
   TSourceLocation = Class(TGoogleBaseObject)
   Private
     FfilePath : String;
@@ -67,11 +67,11 @@ type
     Property lineNumber : integer Index 16 Read FlineNumber Write SetlineNumber;
   end;
   TSourceLocationClass = Class of TSourceLocation;
-  
+
   { --------------------------------------------------------------------
     TErrorGroupStats
     --------------------------------------------------------------------}
-  
+
   TErrorGroupStats = Class(TGoogleBaseObject)
   Private
     Frepresentative : TErrorEvent;
@@ -111,11 +111,11 @@ type
     Property timedCounts : TErrorGroupStatsTypetimedCountsArray Index 64 Read FtimedCounts Write SettimedCounts;
   end;
   TErrorGroupStatsClass = Class of TErrorGroupStats;
-  
+
   { --------------------------------------------------------------------
     TErrorContext
     --------------------------------------------------------------------}
-  
+
   TErrorContext = Class(TGoogleBaseObject)
   Private
     FhttpRequest : THttpRequestContext;
@@ -133,11 +133,11 @@ type
     Property user : String Index 16 Read Fuser Write Setuser;
   end;
   TErrorContextClass = Class of TErrorContext;
-  
+
   { --------------------------------------------------------------------
     TServiceContext
     --------------------------------------------------------------------}
-  
+
   TServiceContext = Class(TGoogleBaseObject)
   Private
     Fservice : String;
@@ -152,11 +152,11 @@ type
     Property version : String Index 8 Read Fversion Write Setversion;
   end;
   TServiceContextClass = Class of TServiceContext;
-  
+
   { --------------------------------------------------------------------
     TErrorGroup
     --------------------------------------------------------------------}
-  
+
   TErrorGroup = Class(TGoogleBaseObject)
   Private
     FgroupId : String;
@@ -178,11 +178,11 @@ type
     Property trackingIssues : TErrorGroupTypetrackingIssuesArray Index 16 Read FtrackingIssues Write SettrackingIssues;
   end;
   TErrorGroupClass = Class of TErrorGroup;
-  
+
   { --------------------------------------------------------------------
     TTrackingIssue
     --------------------------------------------------------------------}
-  
+
   TTrackingIssue = Class(TGoogleBaseObject)
   Private
     Furl : String;
@@ -194,11 +194,11 @@ type
     Property url : String Index 0 Read Furl Write Seturl;
   end;
   TTrackingIssueClass = Class of TTrackingIssue;
-  
+
   { --------------------------------------------------------------------
     TDeleteEventsResponse
     --------------------------------------------------------------------}
-  
+
   TDeleteEventsResponse = Class(TGoogleBaseObject)
   Private
   Protected
@@ -207,11 +207,11 @@ type
   Published
   end;
   TDeleteEventsResponseClass = Class of TDeleteEventsResponse;
-  
+
   { --------------------------------------------------------------------
     TErrorEvent
     --------------------------------------------------------------------}
-  
+
   TErrorEvent = Class(TGoogleBaseObject)
   Private
     FserviceContext : TServiceContext;
@@ -232,11 +232,11 @@ type
     Property message : String Index 24 Read Fmessage Write Setmessage;
   end;
   TErrorEventClass = Class of TErrorEvent;
-  
+
   { --------------------------------------------------------------------
     TListEventsResponse
     --------------------------------------------------------------------}
-  
+
   TListEventsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -255,11 +255,11 @@ type
     Property errorEvents : TListEventsResponseTypeerrorEventsArray Index 8 Read FerrorEvents Write SeterrorEvents;
   end;
   TListEventsResponseClass = Class of TListEventsResponse;
-  
+
   { --------------------------------------------------------------------
     TTimedCount
     --------------------------------------------------------------------}
-  
+
   TTimedCount = Class(TGoogleBaseObject)
   Private
     FstartTime : String;
@@ -277,11 +277,11 @@ type
     Property count : String Index 16 Read Fcount Write Setcount;
   end;
   TTimedCountClass = Class of TTimedCount;
-  
+
   { --------------------------------------------------------------------
     THttpRequestContext
     --------------------------------------------------------------------}
-  
+
   THttpRequestContext = Class(TGoogleBaseObject)
   Private
     Fmethod : String;
@@ -308,11 +308,11 @@ type
     Property userAgent : String Index 40 Read FuserAgent Write SetuserAgent;
   end;
   THttpRequestContextClass = Class of THttpRequestContext;
-  
+
   { --------------------------------------------------------------------
     TListGroupStatsResponse
     --------------------------------------------------------------------}
-  
+
   TListGroupStatsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -331,14 +331,14 @@ type
     Property errorGroupStats : TListGroupStatsResponseTypeerrorGroupStatsArray Index 8 Read FerrorGroupStats Write SeterrorGroupStats;
   end;
   TListGroupStatsResponseClass = Class of TListGroupStatsResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectsEventsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsEventsResource, method List
-  
+
   TProjectsEventsListOptions = Record
     timeRangeperiod : String;
     serviceFilterservice : String;
@@ -347,7 +347,7 @@ type
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsEventsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -355,12 +355,12 @@ type
     Function List(projectName: string; AQuery : string  = '') : TListEventsResponse;
     Function List(projectName: string; AQuery : TProjectsEventslistOptions) : TListEventsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsGroupsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsGroupsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -368,15 +368,15 @@ type
     Function Update(_name: string; aErrorGroup : TErrorGroup) : TErrorGroup;
     Function Get(groupName: string) : TErrorGroup;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsGroupStatsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsGroupStatsResource, method List
-  
+
   TProjectsGroupStatsListOptions = Record
     alignment : String;
     timeRangeperiod : String;
@@ -389,7 +389,7 @@ type
     timedCountDuration : String;
     pageToken : String;
   end;
-  
+
   TProjectsGroupStatsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -397,12 +397,12 @@ type
     Function List(projectName: string; AQuery : string  = '') : TListGroupStatsResponse;
     Function List(projectName: string; AQuery : TProjectsGroupStatslistOptions) : TListGroupStatsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FEventsInstance : TProjectsEventsResource;
@@ -425,12 +425,12 @@ type
     Property GroupsResource : TProjectsGroupsResource Read GetGroupsInstance;
     Property GroupStatsResource : TProjectsGroupStatsResource Read GetGroupStatsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TClouderrorreportingAPI
     --------------------------------------------------------------------}
-  
+
   TClouderrorreportingAPI = Class(TGoogleAPI)
   Private
     FProjectsEventsInstance : TProjectsEventsResource;
@@ -487,7 +487,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSourceLocation.SetfilePath(AIndex : Integer; const AValue : String); 
+Procedure TSourceLocation.SetfilePath(AIndex : Integer; const AValue : String);
 
 begin
   If (FfilePath=AValue) then exit;
@@ -497,7 +497,7 @@ end;
 
 
 
-Procedure TSourceLocation.SetfunctionName(AIndex : Integer; const AValue : String); 
+Procedure TSourceLocation.SetfunctionName(AIndex : Integer; const AValue : String);
 
 begin
   If (FfunctionName=AValue) then exit;
@@ -507,7 +507,7 @@ end;
 
 
 
-Procedure TSourceLocation.SetlineNumber(AIndex : Integer; const AValue : integer); 
+Procedure TSourceLocation.SetlineNumber(AIndex : Integer; const AValue : integer);
 
 begin
   If (FlineNumber=AValue) then exit;
@@ -524,7 +524,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TErrorGroupStats.Setrepresentative(AIndex : Integer; const AValue : TErrorEvent); 
+Procedure TErrorGroupStats.Setrepresentative(AIndex : Integer; const AValue : TErrorEvent);
 
 begin
   If (Frepresentative=AValue) then exit;
@@ -534,7 +534,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SetnumAffectedServices(AIndex : Integer; const AValue : integer); 
+Procedure TErrorGroupStats.SetnumAffectedServices(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumAffectedServices=AValue) then exit;
@@ -544,7 +544,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SetaffectedUsersCount(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroupStats.SetaffectedUsersCount(AIndex : Integer; const AValue : String);
 
 begin
   If (FaffectedUsersCount=AValue) then exit;
@@ -554,7 +554,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.Setcount(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroupStats.Setcount(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcount=AValue) then exit;
@@ -564,7 +564,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SetfirstSeenTime(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroupStats.SetfirstSeenTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FfirstSeenTime=AValue) then exit;
@@ -574,7 +574,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SetlastSeenTime(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroupStats.SetlastSeenTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FlastSeenTime=AValue) then exit;
@@ -584,7 +584,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.Setgroup(AIndex : Integer; const AValue : TErrorGroup); 
+Procedure TErrorGroupStats.Setgroup(AIndex : Integer; const AValue : TErrorGroup);
 
 begin
   If (Fgroup=AValue) then exit;
@@ -594,7 +594,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SetaffectedServices(AIndex : Integer; const AValue : TErrorGroupStatsTypeaffectedServicesArray); 
+Procedure TErrorGroupStats.SetaffectedServices(AIndex : Integer; const AValue : TErrorGroupStatsTypeaffectedServicesArray);
 
 begin
   If (FaffectedServices=AValue) then exit;
@@ -604,7 +604,7 @@ end;
 
 
 
-Procedure TErrorGroupStats.SettimedCounts(AIndex : Integer; const AValue : TErrorGroupStatsTypetimedCountsArray); 
+Procedure TErrorGroupStats.SettimedCounts(AIndex : Integer; const AValue : TErrorGroupStatsTypetimedCountsArray);
 
 begin
   If (FtimedCounts=AValue) then exit;
@@ -615,7 +615,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TErrorGroupStats.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TErrorGroupStats.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -635,7 +635,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TErrorContext.SethttpRequest(AIndex : Integer; const AValue : THttpRequestContext); 
+Procedure TErrorContext.SethttpRequest(AIndex : Integer; const AValue : THttpRequestContext);
 
 begin
   If (FhttpRequest=AValue) then exit;
@@ -645,7 +645,7 @@ end;
 
 
 
-Procedure TErrorContext.SetreportLocation(AIndex : Integer; const AValue : TSourceLocation); 
+Procedure TErrorContext.SetreportLocation(AIndex : Integer; const AValue : TSourceLocation);
 
 begin
   If (FreportLocation=AValue) then exit;
@@ -655,7 +655,7 @@ end;
 
 
 
-Procedure TErrorContext.Setuser(AIndex : Integer; const AValue : String); 
+Procedure TErrorContext.Setuser(AIndex : Integer; const AValue : String);
 
 begin
   If (Fuser=AValue) then exit;
@@ -672,7 +672,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceContext.Setservice(AIndex : Integer; const AValue : String); 
+Procedure TServiceContext.Setservice(AIndex : Integer; const AValue : String);
 
 begin
   If (Fservice=AValue) then exit;
@@ -682,7 +682,7 @@ end;
 
 
 
-Procedure TServiceContext.Setversion(AIndex : Integer; const AValue : String); 
+Procedure TServiceContext.Setversion(AIndex : Integer; const AValue : String);
 
 begin
   If (Fversion=AValue) then exit;
@@ -699,7 +699,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TErrorGroup.SetgroupId(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroup.SetgroupId(AIndex : Integer; const AValue : String);
 
 begin
   If (FgroupId=AValue) then exit;
@@ -709,7 +709,7 @@ end;
 
 
 
-Procedure TErrorGroup.Setname(AIndex : Integer; const AValue : String); 
+Procedure TErrorGroup.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -719,7 +719,7 @@ end;
 
 
 
-Procedure TErrorGroup.SettrackingIssues(AIndex : Integer; const AValue : TErrorGroupTypetrackingIssuesArray); 
+Procedure TErrorGroup.SettrackingIssues(AIndex : Integer; const AValue : TErrorGroupTypetrackingIssuesArray);
 
 begin
   If (FtrackingIssues=AValue) then exit;
@@ -730,7 +730,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TErrorGroup.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TErrorGroup.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -749,7 +749,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTrackingIssue.Seturl(AIndex : Integer; const AValue : String); 
+Procedure TTrackingIssue.Seturl(AIndex : Integer; const AValue : String);
 
 begin
   If (Furl=AValue) then exit;
@@ -773,7 +773,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TErrorEvent.SetserviceContext(AIndex : Integer; const AValue : TServiceContext); 
+Procedure TErrorEvent.SetserviceContext(AIndex : Integer; const AValue : TServiceContext);
 
 begin
   If (FserviceContext=AValue) then exit;
@@ -783,7 +783,7 @@ end;
 
 
 
-Procedure TErrorEvent.Setcontext(AIndex : Integer; const AValue : TErrorContext); 
+Procedure TErrorEvent.Setcontext(AIndex : Integer; const AValue : TErrorContext);
 
 begin
   If (Fcontext=AValue) then exit;
@@ -793,7 +793,7 @@ end;
 
 
 
-Procedure TErrorEvent.SeteventTime(AIndex : Integer; const AValue : String); 
+Procedure TErrorEvent.SeteventTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FeventTime=AValue) then exit;
@@ -803,7 +803,7 @@ end;
 
 
 
-Procedure TErrorEvent.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TErrorEvent.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -820,7 +820,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListEventsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListEventsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -830,7 +830,7 @@ end;
 
 
 
-Procedure TListEventsResponse.SeterrorEvents(AIndex : Integer; const AValue : TListEventsResponseTypeerrorEventsArray); 
+Procedure TListEventsResponse.SeterrorEvents(AIndex : Integer; const AValue : TListEventsResponseTypeerrorEventsArray);
 
 begin
   If (FerrorEvents=AValue) then exit;
@@ -841,7 +841,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListEventsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListEventsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -860,7 +860,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimedCount.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TTimedCount.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TTimedCount.SetendTime(AIndex : Integer; const AValue : String); 
+Procedure TTimedCount.SetendTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FendTime=AValue) then exit;
@@ -880,7 +880,7 @@ end;
 
 
 
-Procedure TTimedCount.Setcount(AIndex : Integer; const AValue : String); 
+Procedure TTimedCount.Setcount(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcount=AValue) then exit;
@@ -897,7 +897,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THttpRequestContext.Setmethod(AIndex : Integer; const AValue : String); 
+Procedure THttpRequestContext.Setmethod(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmethod=AValue) then exit;
@@ -907,7 +907,7 @@ end;
 
 
 
-Procedure THttpRequestContext.SetresponseStatusCode(AIndex : Integer; const AValue : integer); 
+Procedure THttpRequestContext.SetresponseStatusCode(AIndex : Integer; const AValue : integer);
 
 begin
   If (FresponseStatusCode=AValue) then exit;
@@ -917,7 +917,7 @@ end;
 
 
 
-Procedure THttpRequestContext.SetremoteIp(AIndex : Integer; const AValue : String); 
+Procedure THttpRequestContext.SetremoteIp(AIndex : Integer; const AValue : String);
 
 begin
   If (FremoteIp=AValue) then exit;
@@ -927,7 +927,7 @@ end;
 
 
 
-Procedure THttpRequestContext.Seturl(AIndex : Integer; const AValue : String); 
+Procedure THttpRequestContext.Seturl(AIndex : Integer; const AValue : String);
 
 begin
   If (Furl=AValue) then exit;
@@ -937,7 +937,7 @@ end;
 
 
 
-Procedure THttpRequestContext.Setreferrer(AIndex : Integer; const AValue : String); 
+Procedure THttpRequestContext.Setreferrer(AIndex : Integer; const AValue : String);
 
 begin
   If (Freferrer=AValue) then exit;
@@ -947,7 +947,7 @@ end;
 
 
 
-Procedure THttpRequestContext.SetuserAgent(AIndex : Integer; const AValue : String); 
+Procedure THttpRequestContext.SetuserAgent(AIndex : Integer; const AValue : String);
 
 begin
   If (FuserAgent=AValue) then exit;
@@ -964,7 +964,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListGroupStatsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListGroupStatsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -974,7 +974,7 @@ end;
 
 
 
-Procedure TListGroupStatsResponse.SeterrorGroupStats(AIndex : Integer; const AValue : TListGroupStatsResponseTypeerrorGroupStatsArray); 
+Procedure TListGroupStatsResponse.SeterrorGroupStats(AIndex : Integer; const AValue : TListGroupStatsResponseTypeerrorGroupStatsArray);
 
 begin
   If (FerrorGroupStats=AValue) then exit;
@@ -985,7 +985,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListGroupStatsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListGroupStatsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1372,7 +1372,7 @@ 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 TClouderrorreportingAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudlatencytest.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TAggregatedStats = Class;
   TAggregatedStatsReply = Class;
@@ -34,11 +34,11 @@ type
   TStatsTypedoubleValuesArray = Array of TDoubleValue;
   TStatsTypeintValuesArray = Array of TIntValue;
   TStatsTypestringValuesArray = Array of TStringValue;
-  
+
   { --------------------------------------------------------------------
     TAggregatedStats
     --------------------------------------------------------------------}
-  
+
   TAggregatedStats = Class(TGoogleBaseObject)
   Private
     Fstats : TAggregatedStatsTypestatsArray;
@@ -54,11 +54,11 @@ type
     Property stats : TAggregatedStatsTypestatsArray Index 0 Read Fstats Write Setstats;
   end;
   TAggregatedStatsClass = Class of TAggregatedStats;
-  
+
   { --------------------------------------------------------------------
     TAggregatedStatsReply
     --------------------------------------------------------------------}
-  
+
   TAggregatedStatsReply = Class(TGoogleBaseObject)
   Private
     FtestValue : String;
@@ -70,11 +70,11 @@ type
     Property testValue : String Index 0 Read FtestValue Write SettestValue;
   end;
   TAggregatedStatsReplyClass = Class of TAggregatedStatsReply;
-  
+
   { --------------------------------------------------------------------
     TDoubleValue
     --------------------------------------------------------------------}
-  
+
   TDoubleValue = Class(TGoogleBaseObject)
   Private
     F_label : String;
@@ -90,11 +90,11 @@ type
     Property value : integer Index 8 Read Fvalue Write Setvalue;
   end;
   TDoubleValueClass = Class of TDoubleValue;
-  
+
   { --------------------------------------------------------------------
     TIntValue
     --------------------------------------------------------------------}
-  
+
   TIntValue = Class(TGoogleBaseObject)
   Private
     F_label : String;
@@ -110,11 +110,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TIntValueClass = Class of TIntValue;
-  
+
   { --------------------------------------------------------------------
     TStats
     --------------------------------------------------------------------}
-  
+
   TStats = Class(TGoogleBaseObject)
   Private
     FdoubleValues : TStatsTypedoubleValuesArray;
@@ -139,11 +139,11 @@ type
     Property time : double Index 24 Read Ftime Write Settime;
   end;
   TStatsClass = Class of TStats;
-  
+
   { --------------------------------------------------------------------
     TStatsReply
     --------------------------------------------------------------------}
-  
+
   TStatsReply = Class(TGoogleBaseObject)
   Private
     FtestValue : String;
@@ -155,11 +155,11 @@ type
     Property testValue : String Index 0 Read FtestValue Write SettestValue;
   end;
   TStatsReplyClass = Class of TStatsReply;
-  
+
   { --------------------------------------------------------------------
     TStringValue
     --------------------------------------------------------------------}
-  
+
   TStringValue = Class(TGoogleBaseObject)
   Private
     F_label : String;
@@ -175,11 +175,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TStringValueClass = Class of TStringValue;
-  
+
   { --------------------------------------------------------------------
     TStatscollectionResource
     --------------------------------------------------------------------}
-  
+
   TStatscollectionResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -187,12 +187,12 @@ type
     Function Updateaggregatedstats(aAggregatedStats : TAggregatedStats) : TAggregatedStatsReply;
     Function Updatestats(aStats : TStats) : TStatsReply;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudlatencytestAPI
     --------------------------------------------------------------------}
-  
+
   TCloudlatencytestAPI = Class(TGoogleAPI)
   Private
     FStatscollectionInstance : TStatscollectionResource;
@@ -234,7 +234,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAggregatedStats.Setstats(AIndex : Integer; const AValue : TAggregatedStatsTypestatsArray); 
+Procedure TAggregatedStats.Setstats(AIndex : Integer; const AValue : TAggregatedStatsTypestatsArray);
 
 begin
   If (Fstats=AValue) then exit;
@@ -245,7 +245,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TAggregatedStats.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TAggregatedStats.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -264,7 +264,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; const AValue : String); 
+Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FtestValue=AValue) then exit;
@@ -281,7 +281,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDoubleValue.Set_label(AIndex : Integer; const AValue : String); 
+Procedure TDoubleValue.Set_label(AIndex : Integer; const AValue : String);
 
 begin
   If (F_label=AValue) then exit;
@@ -291,7 +291,7 @@ end;
 
 
 
-Procedure TDoubleValue.Setvalue(AIndex : Integer; const AValue : integer); 
+Procedure TDoubleValue.Setvalue(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -319,7 +319,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TIntValue.Set_label(AIndex : Integer; const AValue : String); 
+Procedure TIntValue.Set_label(AIndex : Integer; const AValue : String);
 
 begin
   If (F_label=AValue) then exit;
@@ -329,7 +329,7 @@ end;
 
 
 
-Procedure TIntValue.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TIntValue.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -357,7 +357,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStats.SetdoubleValues(AIndex : Integer; const AValue : TStatsTypedoubleValuesArray); 
+Procedure TStats.SetdoubleValues(AIndex : Integer; const AValue : TStatsTypedoubleValuesArray);
 
 begin
   If (FdoubleValues=AValue) then exit;
@@ -367,7 +367,7 @@ end;
 
 
 
-Procedure TStats.SetintValues(AIndex : Integer; const AValue : TStatsTypeintValuesArray); 
+Procedure TStats.SetintValues(AIndex : Integer; const AValue : TStatsTypeintValuesArray);
 
 begin
   If (FintValues=AValue) then exit;
@@ -377,7 +377,7 @@ end;
 
 
 
-Procedure TStats.SetstringValues(AIndex : Integer; const AValue : TStatsTypestringValuesArray); 
+Procedure TStats.SetstringValues(AIndex : Integer; const AValue : TStatsTypestringValuesArray);
 
 begin
   If (FstringValues=AValue) then exit;
@@ -387,7 +387,7 @@ end;
 
 
 
-Procedure TStats.Settime(AIndex : Integer; const AValue : double); 
+Procedure TStats.Settime(AIndex : Integer; const AValue : double);
 
 begin
   If (Ftime=AValue) then exit;
@@ -398,7 +398,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TStats.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TStats.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -419,7 +419,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStatsReply.SettestValue(AIndex : Integer; const AValue : String); 
+Procedure TStatsReply.SettestValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FtestValue=AValue) then exit;
@@ -436,7 +436,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStringValue.Set_label(AIndex : Integer; const AValue : String); 
+Procedure TStringValue.Set_label(AIndex : Integer; const AValue : String);
 
 begin
   If (F_label=AValue) then exit;
@@ -446,7 +446,7 @@ end;
 
 
 
-Procedure TStringValue.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TStringValue.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -622,7 +622,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/monitoring.readonly';
   Result[0].Description:='View monitoring data for all of your Google Cloud and API projects';
-  
+
 end;
 
 Class Function TCloudlatencytestAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudmonitoring.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TDeleteMetricDescriptorResponse = Class;
   TListMetricDescriptorsRequest = Class;
@@ -67,11 +67,11 @@ type
   TPointDistributionTypebucketsArray = Array of TPointDistributionBucket;
   TTimeseriesTypepointsArray = Array of TPoint;
   TWriteTimeseriesRequestTypetimeseriesArray = Array of TTimeseriesPoint;
-  
+
   { --------------------------------------------------------------------
     TDeleteMetricDescriptorResponse
     --------------------------------------------------------------------}
-  
+
   TDeleteMetricDescriptorResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -83,11 +83,11 @@ type
     Property kind : String Index 0 Read Fkind Write Setkind;
   end;
   TDeleteMetricDescriptorResponseClass = Class of TDeleteMetricDescriptorResponse;
-  
+
   { --------------------------------------------------------------------
     TListMetricDescriptorsRequest
     --------------------------------------------------------------------}
-  
+
   TListMetricDescriptorsRequest = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -99,11 +99,11 @@ type
     Property kind : String Index 0 Read Fkind Write Setkind;
   end;
   TListMetricDescriptorsRequestClass = Class of TListMetricDescriptorsRequest;
-  
+
   { --------------------------------------------------------------------
     TListMetricDescriptorsResponse
     --------------------------------------------------------------------}
-  
+
   TListMetricDescriptorsResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -125,11 +125,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TListMetricDescriptorsResponseClass = Class of TListMetricDescriptorsResponse;
-  
+
   { --------------------------------------------------------------------
     TListTimeseriesDescriptorsRequest
     --------------------------------------------------------------------}
-  
+
   TListTimeseriesDescriptorsRequest = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -141,11 +141,11 @@ type
     Property kind : String Index 0 Read Fkind Write Setkind;
   end;
   TListTimeseriesDescriptorsRequestClass = Class of TListTimeseriesDescriptorsRequest;
-  
+
   { --------------------------------------------------------------------
     TListTimeseriesDescriptorsResponse
     --------------------------------------------------------------------}
-  
+
   TListTimeseriesDescriptorsResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -173,11 +173,11 @@ type
     Property youngest : TDatetime Index 32 Read Fyoungest Write Setyoungest;
   end;
   TListTimeseriesDescriptorsResponseClass = Class of TListTimeseriesDescriptorsResponse;
-  
+
   { --------------------------------------------------------------------
     TListTimeseriesRequest
     --------------------------------------------------------------------}
-  
+
   TListTimeseriesRequest = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -189,11 +189,11 @@ type
     Property kind : String Index 0 Read Fkind Write Setkind;
   end;
   TListTimeseriesRequestClass = Class of TListTimeseriesRequest;
-  
+
   { --------------------------------------------------------------------
     TListTimeseriesResponse
     --------------------------------------------------------------------}
-  
+
   TListTimeseriesResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -221,11 +221,11 @@ type
     Property youngest : TDatetime Index 32 Read Fyoungest Write Setyoungest;
   end;
   TListTimeseriesResponseClass = Class of TListTimeseriesResponse;
-  
+
   { --------------------------------------------------------------------
     TMetricDescriptor
     --------------------------------------------------------------------}
-  
+
   TMetricDescriptor = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -253,11 +253,11 @@ type
     Property typeDescriptor : TMetricDescriptorTypeDescriptor Index 32 Read FtypeDescriptor Write SettypeDescriptor;
   end;
   TMetricDescriptorClass = Class of TMetricDescriptor;
-  
+
   { --------------------------------------------------------------------
     TMetricDescriptorLabelDescriptor
     --------------------------------------------------------------------}
-  
+
   TMetricDescriptorLabelDescriptor = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -272,11 +272,11 @@ type
     Property key : String Index 8 Read Fkey Write Setkey;
   end;
   TMetricDescriptorLabelDescriptorClass = Class of TMetricDescriptorLabelDescriptor;
-  
+
   { --------------------------------------------------------------------
     TMetricDescriptorTypeDescriptor
     --------------------------------------------------------------------}
-  
+
   TMetricDescriptorTypeDescriptor = Class(TGoogleBaseObject)
   Private
     FmetricType : String;
@@ -291,11 +291,11 @@ type
     Property valueType : String Index 8 Read FvalueType Write SetvalueType;
   end;
   TMetricDescriptorTypeDescriptorClass = Class of TMetricDescriptorTypeDescriptor;
-  
+
   { --------------------------------------------------------------------
     TPoint
     --------------------------------------------------------------------}
-  
+
   TPoint = Class(TGoogleBaseObject)
   Private
     FboolValue : boolean;
@@ -326,11 +326,11 @@ type
     Property stringValue : String Index 48 Read FstringValue Write SetstringValue;
   end;
   TPointClass = Class of TPoint;
-  
+
   { --------------------------------------------------------------------
     TPointDistribution
     --------------------------------------------------------------------}
-  
+
   TPointDistribution = Class(TGoogleBaseObject)
   Private
     Fbuckets : TPointDistributionTypebucketsArray;
@@ -352,11 +352,11 @@ type
     Property underflowBucket : TPointDistributionUnderflowBucket Index 16 Read FunderflowBucket Write SetunderflowBucket;
   end;
   TPointDistributionClass = Class of TPointDistribution;
-  
+
   { --------------------------------------------------------------------
     TPointDistributionBucket
     --------------------------------------------------------------------}
-  
+
   TPointDistributionBucket = Class(TGoogleBaseObject)
   Private
     Fcount : String;
@@ -374,11 +374,11 @@ type
     Property upperBound : double Index 16 Read FupperBound Write SetupperBound;
   end;
   TPointDistributionBucketClass = Class of TPointDistributionBucket;
-  
+
   { --------------------------------------------------------------------
     TPointDistributionOverflowBucket
     --------------------------------------------------------------------}
-  
+
   TPointDistributionOverflowBucket = Class(TGoogleBaseObject)
   Private
     Fcount : String;
@@ -393,11 +393,11 @@ type
     Property lowerBound : double Index 8 Read FlowerBound Write SetlowerBound;
   end;
   TPointDistributionOverflowBucketClass = Class of TPointDistributionOverflowBucket;
-  
+
   { --------------------------------------------------------------------
     TPointDistributionUnderflowBucket
     --------------------------------------------------------------------}
-  
+
   TPointDistributionUnderflowBucket = Class(TGoogleBaseObject)
   Private
     Fcount : String;
@@ -412,11 +412,11 @@ type
     Property upperBound : double Index 8 Read FupperBound Write SetupperBound;
   end;
   TPointDistributionUnderflowBucketClass = Class of TPointDistributionUnderflowBucket;
-  
+
   { --------------------------------------------------------------------
     TTimeseries
     --------------------------------------------------------------------}
-  
+
   TTimeseries = Class(TGoogleBaseObject)
   Private
     Fpoints : TTimeseriesTypepointsArray;
@@ -435,11 +435,11 @@ type
     Property timeseriesDesc : TTimeseriesDescriptor Index 8 Read FtimeseriesDesc Write SettimeseriesDesc;
   end;
   TTimeseriesClass = Class of TTimeseries;
-  
+
   { --------------------------------------------------------------------
     TTimeseriesDescriptorTypelabels
     --------------------------------------------------------------------}
-  
+
   TTimeseriesDescriptorTypelabels = Class(TGoogleBaseObject)
   Private
   Protected
@@ -449,11 +449,11 @@ type
   Published
   end;
   TTimeseriesDescriptorTypelabelsClass = Class of TTimeseriesDescriptorTypelabels;
-  
+
   { --------------------------------------------------------------------
     TTimeseriesDescriptor
     --------------------------------------------------------------------}
-  
+
   TTimeseriesDescriptor = Class(TGoogleBaseObject)
   Private
     Flabels : TTimeseriesDescriptorTypelabels;
@@ -471,11 +471,11 @@ type
     Property project : String Index 16 Read Fproject Write Setproject;
   end;
   TTimeseriesDescriptorClass = Class of TTimeseriesDescriptor;
-  
+
   { --------------------------------------------------------------------
     TTimeseriesDescriptorLabel
     --------------------------------------------------------------------}
-  
+
   TTimeseriesDescriptorLabel = Class(TGoogleBaseObject)
   Private
     Fkey : String;
@@ -490,11 +490,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TTimeseriesDescriptorLabelClass = Class of TTimeseriesDescriptorLabel;
-  
+
   { --------------------------------------------------------------------
     TTimeseriesPoint
     --------------------------------------------------------------------}
-  
+
   TTimeseriesPoint = Class(TGoogleBaseObject)
   Private
     Fpoint : TPoint;
@@ -509,11 +509,11 @@ type
     Property timeseriesDesc : TTimeseriesDescriptor Index 8 Read FtimeseriesDesc Write SettimeseriesDesc;
   end;
   TTimeseriesPointClass = Class of TTimeseriesPoint;
-  
+
   { --------------------------------------------------------------------
     TWriteTimeseriesRequestTypecommonLabels
     --------------------------------------------------------------------}
-  
+
   TWriteTimeseriesRequestTypecommonLabels = Class(TGoogleBaseObject)
   Private
   Protected
@@ -523,11 +523,11 @@ type
   Published
   end;
   TWriteTimeseriesRequestTypecommonLabelsClass = Class of TWriteTimeseriesRequestTypecommonLabels;
-  
+
   { --------------------------------------------------------------------
     TWriteTimeseriesRequest
     --------------------------------------------------------------------}
-  
+
   TWriteTimeseriesRequest = Class(TGoogleBaseObject)
   Private
     FcommonLabels : TWriteTimeseriesRequestTypecommonLabels;
@@ -546,11 +546,11 @@ type
     Property timeseries : TWriteTimeseriesRequestTypetimeseriesArray Index 8 Read Ftimeseries Write Settimeseries;
   end;
   TWriteTimeseriesRequestClass = Class of TWriteTimeseriesRequest;
-  
+
   { --------------------------------------------------------------------
     TWriteTimeseriesResponse
     --------------------------------------------------------------------}
-  
+
   TWriteTimeseriesResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -562,20 +562,20 @@ type
     Property kind : String Index 0 Read Fkind Write Setkind;
   end;
   TWriteTimeseriesResponseClass = Class of TWriteTimeseriesResponse;
-  
+
   { --------------------------------------------------------------------
     TMetricDescriptorsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TMetricDescriptorsResource, method List
-  
+
   TMetricDescriptorsListOptions = Record
     count : integer;
     pageToken : String;
     query : String;
   end;
-  
+
   TMetricDescriptorsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -585,15 +585,15 @@ type
     Function List(project: string; aListMetricDescriptorsRequest : TListMetricDescriptorsRequest; AQuery : string  = '') : TListMetricDescriptorsResponse;
     Function List(project: string; aListMetricDescriptorsRequest : TListMetricDescriptorsRequest; AQuery : TMetricDescriptorslistOptions) : TListMetricDescriptorsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTimeseriesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTimeseriesResource, method List
-  
+
   TTimeseriesListOptions = Record
     aggregator : String;
     count : integer;
@@ -604,7 +604,7 @@ type
     window : String;
     youngest : String;
   end;
-  
+
   TTimeseriesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -613,15 +613,15 @@ type
     Function List(metric: string; project: string; aListTimeseriesRequest : TListTimeseriesRequest; AQuery : TTimeserieslistOptions) : TListTimeseriesResponse;
     Function Write(project: string; aWriteTimeseriesRequest : TWriteTimeseriesRequest) : TWriteTimeseriesResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTimeseriesDescriptorsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTimeseriesDescriptorsResource, method List
-  
+
   TTimeseriesDescriptorsListOptions = Record
     aggregator : String;
     count : integer;
@@ -632,7 +632,7 @@ type
     window : String;
     youngest : String;
   end;
-  
+
   TTimeseriesDescriptorsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -640,12 +640,12 @@ type
     Function List(metric: string; project: string; aListTimeseriesDescriptorsRequest : TListTimeseriesDescriptorsRequest; AQuery : string  = '') : TListTimeseriesDescriptorsResponse;
     Function List(metric: string; project: string; aListTimeseriesDescriptorsRequest : TListTimeseriesDescriptorsRequest; AQuery : TTimeseriesDescriptorslistOptions) : TListTimeseriesDescriptorsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudmonitoringAPI
     --------------------------------------------------------------------}
-  
+
   TCloudmonitoringAPI = Class(TGoogleAPI)
   Private
     FMetricDescriptorsInstance : TMetricDescriptorsResource;
@@ -697,7 +697,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDeleteMetricDescriptorResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TDeleteMetricDescriptorResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -714,7 +714,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListMetricDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListMetricDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -731,7 +731,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListMetricDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListMetricDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -741,7 +741,7 @@ end;
 
 
 
-Procedure TListMetricDescriptorsResponse.Setmetrics(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricsArray); 
+Procedure TListMetricDescriptorsResponse.Setmetrics(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricsArray);
 
 begin
   If (Fmetrics=AValue) then exit;
@@ -751,7 +751,7 @@ end;
 
 
 
-Procedure TListMetricDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListMetricDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -762,7 +762,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListMetricDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListMetricDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -781,7 +781,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -798,7 +798,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -808,7 +808,7 @@ end;
 
 
 
-Procedure TListTimeseriesDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -818,7 +818,7 @@ end;
 
 
 
-Procedure TListTimeseriesDescriptorsResponse.Setoldest(AIndex : Integer; const AValue : TDatetime); 
+Procedure TListTimeseriesDescriptorsResponse.Setoldest(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Foldest=AValue) then exit;
@@ -828,7 +828,7 @@ end;
 
 
 
-Procedure TListTimeseriesDescriptorsResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray); 
+Procedure TListTimeseriesDescriptorsResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray);
 
 begin
   If (Ftimeseries=AValue) then exit;
@@ -838,7 +838,7 @@ end;
 
 
 
-Procedure TListTimeseriesDescriptorsResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime); 
+Procedure TListTimeseriesDescriptorsResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fyoungest=AValue) then exit;
@@ -849,7 +849,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListTimeseriesDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListTimeseriesDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -868,7 +868,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -885,7 +885,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -895,7 +895,7 @@ end;
 
 
 
-Procedure TListTimeseriesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListTimeseriesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -905,7 +905,7 @@ end;
 
 
 
-Procedure TListTimeseriesResponse.Setoldest(AIndex : Integer; const AValue : TDatetime); 
+Procedure TListTimeseriesResponse.Setoldest(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Foldest=AValue) then exit;
@@ -915,7 +915,7 @@ end;
 
 
 
-Procedure TListTimeseriesResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesResponseTypetimeseriesArray); 
+Procedure TListTimeseriesResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesResponseTypetimeseriesArray);
 
 begin
   If (Ftimeseries=AValue) then exit;
@@ -925,7 +925,7 @@ end;
 
 
 
-Procedure TListTimeseriesResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime); 
+Procedure TListTimeseriesResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fyoungest=AValue) then exit;
@@ -936,7 +936,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListTimeseriesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListTimeseriesResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -955,7 +955,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptor.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptor.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -965,7 +965,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray); 
+Procedure TMetricDescriptor.Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray);
 
 begin
   If (Flabels=AValue) then exit;
@@ -975,7 +975,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.Setname(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptor.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -985,7 +985,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.Setproject(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptor.Setproject(AIndex : Integer; const AValue : String);
 
 begin
   If (Fproject=AValue) then exit;
@@ -995,7 +995,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.SettypeDescriptor(AIndex : Integer; const AValue : TMetricDescriptorTypeDescriptor); 
+Procedure TMetricDescriptor.SettypeDescriptor(AIndex : Integer; const AValue : TMetricDescriptorTypeDescriptor);
 
 begin
   If (FtypeDescriptor=AValue) then exit;
@@ -1006,7 +1006,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TMetricDescriptor.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TMetricDescriptor.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1025,7 +1025,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptorLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptorLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1035,7 +1035,7 @@ end;
 
 
 
-Procedure TMetricDescriptorLabelDescriptor.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptorLabelDescriptor.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -1052,7 +1052,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptorTypeDescriptor.SetmetricType(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptorTypeDescriptor.SetmetricType(AIndex : Integer; const AValue : String);
 
 begin
   If (FmetricType=AValue) then exit;
@@ -1062,7 +1062,7 @@ end;
 
 
 
-Procedure TMetricDescriptorTypeDescriptor.SetvalueType(AIndex : Integer; const AValue : String); 
+Procedure TMetricDescriptorTypeDescriptor.SetvalueType(AIndex : Integer; const AValue : String);
 
 begin
   If (FvalueType=AValue) then exit;
@@ -1079,7 +1079,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPoint.SetboolValue(AIndex : Integer; const AValue : boolean); 
+Procedure TPoint.SetboolValue(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FboolValue=AValue) then exit;
@@ -1089,7 +1089,7 @@ end;
 
 
 
-Procedure TPoint.SetdistributionValue(AIndex : Integer; const AValue : TPointDistribution); 
+Procedure TPoint.SetdistributionValue(AIndex : Integer; const AValue : TPointDistribution);
 
 begin
   If (FdistributionValue=AValue) then exit;
@@ -1099,7 +1099,7 @@ end;
 
 
 
-Procedure TPoint.SetdoubleValue(AIndex : Integer; const AValue : double); 
+Procedure TPoint.SetdoubleValue(AIndex : Integer; const AValue : double);
 
 begin
   If (FdoubleValue=AValue) then exit;
@@ -1109,7 +1109,7 @@ end;
 
 
 
-Procedure TPoint.Set_end(AIndex : Integer; const AValue : TDatetime); 
+Procedure TPoint.Set_end(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (F_end=AValue) then exit;
@@ -1119,7 +1119,7 @@ end;
 
 
 
-Procedure TPoint.Setint64Value(AIndex : Integer; const AValue : String); 
+Procedure TPoint.Setint64Value(AIndex : Integer; const AValue : String);
 
 begin
   If (Fint64Value=AValue) then exit;
@@ -1129,7 +1129,7 @@ end;
 
 
 
-Procedure TPoint.Setstart(AIndex : Integer; const AValue : TDatetime); 
+Procedure TPoint.Setstart(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fstart=AValue) then exit;
@@ -1139,7 +1139,7 @@ end;
 
 
 
-Procedure TPoint.SetstringValue(AIndex : Integer; const AValue : String); 
+Procedure TPoint.SetstringValue(AIndex : Integer; const AValue : String);
 
 begin
   If (FstringValue=AValue) then exit;
@@ -1167,7 +1167,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistribution.Setbuckets(AIndex : Integer; const AValue : TPointDistributionTypebucketsArray); 
+Procedure TPointDistribution.Setbuckets(AIndex : Integer; const AValue : TPointDistributionTypebucketsArray);
 
 begin
   If (Fbuckets=AValue) then exit;
@@ -1177,7 +1177,7 @@ end;
 
 
 
-Procedure TPointDistribution.SetoverflowBucket(AIndex : Integer; const AValue : TPointDistributionOverflowBucket); 
+Procedure TPointDistribution.SetoverflowBucket(AIndex : Integer; const AValue : TPointDistributionOverflowBucket);
 
 begin
   If (FoverflowBucket=AValue) then exit;
@@ -1187,7 +1187,7 @@ end;
 
 
 
-Procedure TPointDistribution.SetunderflowBucket(AIndex : Integer; const AValue : TPointDistributionUnderflowBucket); 
+Procedure TPointDistribution.SetunderflowBucket(AIndex : Integer; const AValue : TPointDistributionUnderflowBucket);
 
 begin
   If (FunderflowBucket=AValue) then exit;
@@ -1198,7 +1198,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPointDistribution.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPointDistribution.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1217,7 +1217,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionBucket.Setcount(AIndex : Integer; const AValue : String); 
+Procedure TPointDistributionBucket.Setcount(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcount=AValue) then exit;
@@ -1227,7 +1227,7 @@ end;
 
 
 
-Procedure TPointDistributionBucket.SetlowerBound(AIndex : Integer; const AValue : double); 
+Procedure TPointDistributionBucket.SetlowerBound(AIndex : Integer; const AValue : double);
 
 begin
   If (FlowerBound=AValue) then exit;
@@ -1237,7 +1237,7 @@ end;
 
 
 
-Procedure TPointDistributionBucket.SetupperBound(AIndex : Integer; const AValue : double); 
+Procedure TPointDistributionBucket.SetupperBound(AIndex : Integer; const AValue : double);
 
 begin
   If (FupperBound=AValue) then exit;
@@ -1254,7 +1254,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionOverflowBucket.Setcount(AIndex : Integer; const AValue : String); 
+Procedure TPointDistributionOverflowBucket.Setcount(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcount=AValue) then exit;
@@ -1264,7 +1264,7 @@ end;
 
 
 
-Procedure TPointDistributionOverflowBucket.SetlowerBound(AIndex : Integer; const AValue : double); 
+Procedure TPointDistributionOverflowBucket.SetlowerBound(AIndex : Integer; const AValue : double);
 
 begin
   If (FlowerBound=AValue) then exit;
@@ -1281,7 +1281,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionUnderflowBucket.Setcount(AIndex : Integer; const AValue : String); 
+Procedure TPointDistributionUnderflowBucket.Setcount(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcount=AValue) then exit;
@@ -1291,7 +1291,7 @@ end;
 
 
 
-Procedure TPointDistributionUnderflowBucket.SetupperBound(AIndex : Integer; const AValue : double); 
+Procedure TPointDistributionUnderflowBucket.SetupperBound(AIndex : Integer; const AValue : double);
 
 begin
   If (FupperBound=AValue) then exit;
@@ -1308,7 +1308,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimeseries.Setpoints(AIndex : Integer; const AValue : TTimeseriesTypepointsArray); 
+Procedure TTimeseries.Setpoints(AIndex : Integer; const AValue : TTimeseriesTypepointsArray);
 
 begin
   If (Fpoints=AValue) then exit;
@@ -1318,7 +1318,7 @@ end;
 
 
 
-Procedure TTimeseries.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor); 
+Procedure TTimeseries.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor);
 
 begin
   If (FtimeseriesDesc=AValue) then exit;
@@ -1329,7 +1329,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTimeseries.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTimeseries.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1361,7 +1361,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimeseriesDescriptor.Setlabels(AIndex : Integer; const AValue : TTimeseriesDescriptorTypelabels); 
+Procedure TTimeseriesDescriptor.Setlabels(AIndex : Integer; const AValue : TTimeseriesDescriptorTypelabels);
 
 begin
   If (Flabels=AValue) then exit;
@@ -1371,7 +1371,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptor.Setmetric(AIndex : Integer; const AValue : String); 
+Procedure TTimeseriesDescriptor.Setmetric(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmetric=AValue) then exit;
@@ -1381,7 +1381,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptor.Setproject(AIndex : Integer; const AValue : String); 
+Procedure TTimeseriesDescriptor.Setproject(AIndex : Integer; const AValue : String);
 
 begin
   If (Fproject=AValue) then exit;
@@ -1398,7 +1398,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimeseriesDescriptorLabel.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TTimeseriesDescriptorLabel.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -1408,7 +1408,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptorLabel.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TTimeseriesDescriptorLabel.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1425,7 +1425,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimeseriesPoint.Setpoint(AIndex : Integer; const AValue : TPoint); 
+Procedure TTimeseriesPoint.Setpoint(AIndex : Integer; const AValue : TPoint);
 
 begin
   If (Fpoint=AValue) then exit;
@@ -1435,7 +1435,7 @@ end;
 
 
 
-Procedure TTimeseriesPoint.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor); 
+Procedure TTimeseriesPoint.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor);
 
 begin
   If (FtimeseriesDesc=AValue) then exit;
@@ -1465,7 +1465,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteTimeseriesRequest.SetcommonLabels(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypecommonLabels); 
+Procedure TWriteTimeseriesRequest.SetcommonLabels(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypecommonLabels);
 
 begin
   If (FcommonLabels=AValue) then exit;
@@ -1475,7 +1475,7 @@ end;
 
 
 
-Procedure TWriteTimeseriesRequest.Settimeseries(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypetimeseriesArray); 
+Procedure TWriteTimeseriesRequest.Settimeseries(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypetimeseriesArray);
 
 begin
   If (Ftimeseries=AValue) then exit;
@@ -1486,7 +1486,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TWriteTimeseriesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TWriteTimeseriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1505,7 +1505,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TWriteTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1830,7 +1830,7 @@ begin
   Result[0].Description:='View and manage your data across Google Cloud Platform services';
   Result[1].Name:='https://www.googleapis.com/auth/monitoring';
   Result[1].Description:='View and write monitoring data for all of your Google and third-party Cloud and API projects';
-  
+
 end;
 
 Class Function TCloudmonitoringAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudresourcemanager.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TProject = Class;
   TResourceId = Class;
@@ -41,11 +41,11 @@ type
   TProjectTypelabels = Class;
   TListProjectsResponseTypeprojectsArray = Array of TProject;
   TPolicyTypebindingsArray = Array of TBinding;
-  
+
   { --------------------------------------------------------------------
     TProjectTypelabels
     --------------------------------------------------------------------}
-  
+
   TProjectTypelabels = Class(TGoogleBaseObject)
   Private
   Protected
@@ -55,11 +55,11 @@ type
   Published
   end;
   TProjectTypelabelsClass = Class of TProjectTypelabels;
-  
+
   { --------------------------------------------------------------------
     TProject
     --------------------------------------------------------------------}
-  
+
   TProject = Class(TGoogleBaseObject)
   Private
     FprojectNumber : String;
@@ -89,11 +89,11 @@ type
     Property parent : TResourceId Index 48 Read Fparent Write Setparent;
   end;
   TProjectClass = Class of TProject;
-  
+
   { --------------------------------------------------------------------
     TResourceId
     --------------------------------------------------------------------}
-  
+
   TResourceId = Class(TGoogleBaseObject)
   Private
     F_type : String;
@@ -109,11 +109,11 @@ type
     Property id : String Index 8 Read Fid Write Setid;
   end;
   TResourceIdClass = Class of TResourceId;
-  
+
   { --------------------------------------------------------------------
     TListProjectsResponse
     --------------------------------------------------------------------}
-  
+
   TListProjectsResponse = Class(TGoogleBaseObject)
   Private
     Fprojects : TListProjectsResponseTypeprojectsArray;
@@ -132,11 +132,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListProjectsResponseClass = Class of TListProjectsResponse;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -145,11 +145,11 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TUndeleteProjectRequest
     --------------------------------------------------------------------}
-  
+
   TUndeleteProjectRequest = Class(TGoogleBaseObject)
   Private
   Protected
@@ -158,11 +158,11 @@ type
   Published
   end;
   TUndeleteProjectRequestClass = Class of TUndeleteProjectRequest;
-  
+
   { --------------------------------------------------------------------
     TGetIamPolicyRequest
     --------------------------------------------------------------------}
-  
+
   TGetIamPolicyRequest = Class(TGoogleBaseObject)
   Private
   Protected
@@ -171,11 +171,11 @@ type
   Published
   end;
   TGetIamPolicyRequestClass = Class of TGetIamPolicyRequest;
-  
+
   { --------------------------------------------------------------------
     TPolicy
     --------------------------------------------------------------------}
-  
+
   TPolicy = Class(TGoogleBaseObject)
   Private
     Fversion : integer;
@@ -197,11 +197,11 @@ type
     Property etag : String Index 16 Read Fetag Write Setetag;
   end;
   TPolicyClass = Class of TPolicy;
-  
+
   { --------------------------------------------------------------------
     TBinding
     --------------------------------------------------------------------}
-  
+
   TBinding = Class(TGoogleBaseObject)
   Private
     Frole : String;
@@ -220,11 +220,11 @@ type
     Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
   end;
   TBindingClass = Class of TBinding;
-  
+
   { --------------------------------------------------------------------
     TSetIamPolicyRequest
     --------------------------------------------------------------------}
-  
+
   TSetIamPolicyRequest = Class(TGoogleBaseObject)
   Private
     Fpolicy : TPolicy;
@@ -236,11 +236,11 @@ type
     Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
   end;
   TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsRequest
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsRequest = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -256,11 +256,11 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsResponse
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsResponse = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -276,20 +276,20 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsResource, method List
-  
+
   TProjectsListOptions = Record
     pageToken : String;
     pageSize : integer;
     filter : String;
   end;
-  
+
   TProjectsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -304,12 +304,12 @@ type
     Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
     Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudresourcemanagerAPI
     --------------------------------------------------------------------}
-  
+
   TCloudresourcemanagerAPI = Class(TGoogleAPI)
   Private
     FProjectsInstance : TProjectsResource;
@@ -364,7 +364,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProject.SetprojectNumber(AIndex : Integer; const AValue : String); 
+Procedure TProject.SetprojectNumber(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectNumber=AValue) then exit;
@@ -374,7 +374,7 @@ end;
 
 
 
-Procedure TProject.SetprojectId(AIndex : Integer; const AValue : String); 
+Procedure TProject.SetprojectId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectId=AValue) then exit;
@@ -384,7 +384,7 @@ end;
 
 
 
-Procedure TProject.SetlifecycleState(AIndex : Integer; const AValue : String); 
+Procedure TProject.SetlifecycleState(AIndex : Integer; const AValue : String);
 
 begin
   If (FlifecycleState=AValue) then exit;
@@ -394,7 +394,7 @@ end;
 
 
 
-Procedure TProject.Setname(AIndex : Integer; const AValue : String); 
+Procedure TProject.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -404,7 +404,7 @@ end;
 
 
 
-Procedure TProject.SetcreateTime(AIndex : Integer; const AValue : String); 
+Procedure TProject.SetcreateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreateTime=AValue) then exit;
@@ -414,7 +414,7 @@ end;
 
 
 
-Procedure TProject.Setlabels(AIndex : Integer; const AValue : TProjectTypelabels); 
+Procedure TProject.Setlabels(AIndex : Integer; const AValue : TProjectTypelabels);
 
 begin
   If (Flabels=AValue) then exit;
@@ -424,7 +424,7 @@ end;
 
 
 
-Procedure TProject.Setparent(AIndex : Integer; const AValue : TResourceId); 
+Procedure TProject.Setparent(AIndex : Integer; const AValue : TResourceId);
 
 begin
   If (Fparent=AValue) then exit;
@@ -441,7 +441,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceId.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TResourceId.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -451,7 +451,7 @@ end;
 
 
 
-Procedure TResourceId.Setid(AIndex : Integer; const AValue : String); 
+Procedure TResourceId.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -479,7 +479,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListProjectsResponse.Setprojects(AIndex : Integer; const AValue : TListProjectsResponseTypeprojectsArray); 
+Procedure TListProjectsResponse.Setprojects(AIndex : Integer; const AValue : TListProjectsResponseTypeprojectsArray);
 
 begin
   If (Fprojects=AValue) then exit;
@@ -489,7 +489,7 @@ end;
 
 
 
-Procedure TListProjectsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListProjectsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -500,7 +500,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListProjectsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListProjectsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -540,7 +540,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer); 
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fversion=AValue) then exit;
@@ -550,7 +550,7 @@ end;
 
 
 
-Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); 
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
 
 begin
   If (Fbindings=AValue) then exit;
@@ -560,7 +560,7 @@ end;
 
 
 
-Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -571,7 +571,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -590,7 +590,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBinding.Setrole(AIndex : Integer; const AValue : String); 
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
 
 begin
   If (Frole=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fmembers=AValue) then exit;
@@ -611,7 +611,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -630,7 +630,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy); 
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
 
 begin
   If (Fpolicy=AValue) then exit;
@@ -647,7 +647,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -658,7 +658,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -677,7 +677,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -965,7 +965,7 @@ begin
   Result[0].Description:='View and manage your data across Google Cloud Platform services';
   Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
   Result[1].Description:='View your data across Google Cloud Platform services';
-  
+
 end;
 
 Class Function TCloudresourcemanagerAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudsearch.pp

@@ -2,14 +2,14 @@
 unit googlecloudsearch;
 {$ENDIF FPC_DOTTEDUNITS}
 {
-  This is the file COPYING.FPC, it applies to the Free Pascal Run-Time Library 
-  (RTL) and packages (packages) distributed by members of the Free Pascal 
+  This is the file COPYING.FPC, it applies to the Free Pascal Run-Time Library
+  (RTL) and packages (packages) distributed by members of the Free Pascal
   Development Team.
-  
-  The source code of the Free Pascal Runtime Libraries and packages are 
-  distributed under the Library GNU General Public License 
+
+  The source code of the Free Pascal Runtime Libraries and packages are
+  distributed under the Library GNU General Public License
   (see the file COPYING) with the following modification:
-  
+
   As a special exception, the copyright holders of this library give you
   permission to link this library with independent modules to produce an
   executable, regardless of the license terms of these independent modules,
@@ -20,13 +20,13 @@ unit googlecloudsearch;
   library, you may extend this exception to your version of the library, but you are
   not obligated to do so. If you do not wish to do so, delete this exception
   statement from your version.
-  
+
   If you didn't receive a copy of the file COPYING, contact:
         Free Software Foundation
         675 Mass Ave
         Cambridge, MA  02139
         USA
-  
+
 }
 {$MODE objfpc}
 {$H+}
@@ -41,11 +41,11 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
   //
-  
+
   { --------------------------------------------------------------------
     TCloudsearchAPI
     --------------------------------------------------------------------}
-  
+
   TCloudsearchAPI = Class(TGoogleAPI)
   Private
   Public
@@ -187,7 +187,7 @@ Class Function TCloudsearchAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TCloudsearchAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlecloudtrace.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TListTracesResponse = Class;
   TTrace = Class;
@@ -30,11 +30,11 @@ type
   TListTracesResponseTypetracesArray = Array of TTrace;
   TTraceTypespansArray = Array of TTraceSpan;
   TTracesTypetracesArray = Array of TTrace;
-  
+
   { --------------------------------------------------------------------
     TListTracesResponse
     --------------------------------------------------------------------}
-  
+
   TListTracesResponse = Class(TGoogleBaseObject)
   Private
     Ftraces : TListTracesResponseTypetracesArray;
@@ -53,11 +53,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListTracesResponseClass = Class of TListTracesResponse;
-  
+
   { --------------------------------------------------------------------
     TTrace
     --------------------------------------------------------------------}
-  
+
   TTrace = Class(TGoogleBaseObject)
   Private
     FprojectId : String;
@@ -79,11 +79,11 @@ type
     Property spans : TTraceTypespansArray Index 16 Read Fspans Write Setspans;
   end;
   TTraceClass = Class of TTrace;
-  
+
   { --------------------------------------------------------------------
     TTraceSpanTypelabels
     --------------------------------------------------------------------}
-  
+
   TTraceSpanTypelabels = Class(TGoogleBaseObject)
   Private
   Protected
@@ -93,11 +93,11 @@ type
   Published
   end;
   TTraceSpanTypelabelsClass = Class of TTraceSpanTypelabels;
-  
+
   { --------------------------------------------------------------------
     TTraceSpan
     --------------------------------------------------------------------}
-  
+
   TTraceSpan = Class(TGoogleBaseObject)
   Private
     FspanId : String;
@@ -127,11 +127,11 @@ type
     Property labels : TTraceSpanTypelabels Index 48 Read Flabels Write Setlabels;
   end;
   TTraceSpanClass = Class of TTraceSpan;
-  
+
   { --------------------------------------------------------------------
     TTraces
     --------------------------------------------------------------------}
-  
+
   TTraces = Class(TGoogleBaseObject)
   Private
     Ftraces : TTracesTypetracesArray;
@@ -147,11 +147,11 @@ type
     Property traces : TTracesTypetracesArray Index 0 Read Ftraces Write Settraces;
   end;
   TTracesClass = Class of TTraces;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -160,14 +160,14 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TProjectsTracesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsTracesResource, method List
-  
+
   TProjectsTracesListOptions = Record
     view : String;
     pageSize : integer;
@@ -177,7 +177,7 @@ type
     filter : String;
     orderBy : String;
   end;
-  
+
   TProjectsTracesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -186,12 +186,12 @@ type
     Function List(projectId: string; AQuery : TProjectsTraceslistOptions) : TListTracesResponse;
     Function Get(projectId: string; traceId: string) : TTrace;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FTracesInstance : TProjectsTracesResource;
@@ -204,12 +204,12 @@ type
     Function CreateTracesResource : TProjectsTracesResource;virtual;overload;
     Property TracesResource : TProjectsTracesResource Read GetTracesInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TCloudtraceAPI
     --------------------------------------------------------------------}
-  
+
   TCloudtraceAPI = Class(TGoogleAPI)
   Private
     FProjectsTracesInstance : TProjectsTracesResource;
@@ -256,7 +256,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TListTracesResponse.Settraces(AIndex : Integer; const AValue : TListTracesResponseTypetracesArray); 
+Procedure TListTracesResponse.Settraces(AIndex : Integer; const AValue : TListTracesResponseTypetracesArray);
 
 begin
   If (Ftraces=AValue) then exit;
@@ -266,7 +266,7 @@ end;
 
 
 
-Procedure TListTracesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListTracesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -277,7 +277,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListTracesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListTracesResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -296,7 +296,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTrace.SetprojectId(AIndex : Integer; const AValue : String); 
+Procedure TTrace.SetprojectId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectId=AValue) then exit;
@@ -306,7 +306,7 @@ end;
 
 
 
-Procedure TTrace.SettraceId(AIndex : Integer; const AValue : String); 
+Procedure TTrace.SettraceId(AIndex : Integer; const AValue : String);
 
 begin
   If (FtraceId=AValue) then exit;
@@ -316,7 +316,7 @@ end;
 
 
 
-Procedure TTrace.Setspans(AIndex : Integer; const AValue : TTraceTypespansArray); 
+Procedure TTrace.Setspans(AIndex : Integer; const AValue : TTraceTypespansArray);
 
 begin
   If (Fspans=AValue) then exit;
@@ -327,7 +327,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTrace.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTrace.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -359,7 +359,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTraceSpan.SetspanId(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.SetspanId(AIndex : Integer; const AValue : String);
 
 begin
   If (FspanId=AValue) then exit;
@@ -369,7 +369,7 @@ end;
 
 
 
-Procedure TTraceSpan.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -379,7 +379,7 @@ end;
 
 
 
-Procedure TTraceSpan.Setname(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -389,7 +389,7 @@ end;
 
 
 
-Procedure TTraceSpan.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -399,7 +399,7 @@ end;
 
 
 
-Procedure TTraceSpan.SetendTime(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.SetendTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FendTime=AValue) then exit;
@@ -409,7 +409,7 @@ end;
 
 
 
-Procedure TTraceSpan.SetparentSpanId(AIndex : Integer; const AValue : String); 
+Procedure TTraceSpan.SetparentSpanId(AIndex : Integer; const AValue : String);
 
 begin
   If (FparentSpanId=AValue) then exit;
@@ -419,7 +419,7 @@ end;
 
 
 
-Procedure TTraceSpan.Setlabels(AIndex : Integer; const AValue : TTraceSpanTypelabels); 
+Procedure TTraceSpan.Setlabels(AIndex : Integer; const AValue : TTraceSpanTypelabels);
 
 begin
   If (Flabels=AValue) then exit;
@@ -436,7 +436,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTraces.Settraces(AIndex : Integer; const AValue : TTracesTypetracesArray); 
+Procedure TTraces.Settraces(AIndex : Integer; const AValue : TTracesTypetracesArray);
 
 begin
   If (Ftraces=AValue) then exit;
@@ -447,7 +447,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTraces.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTraces.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -709,7 +709,7 @@ begin
   Result[1].Description:='Write Trace data for a project or application';
   Result[2].Name:='https://www.googleapis.com/auth/trace.readonly';
   Result[2].Description:='Read Trace data for a project or application';
-  
+
 end;
 
 Class Function TCloudtraceAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleconsumersurveys.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TFieldMask = Class;
   TPageInfo = Class;
@@ -51,11 +51,11 @@ type
   TSurveyTypequestionsArray = Array of TSurveyQuestion;
   TSurveyQuestionTypeimagesArray = Array of TSurveyQuestionImage;
   TSurveysListResponseTyperesourcesArray = Array of TSurvey;
-  
+
   { --------------------------------------------------------------------
     TFieldMask
     --------------------------------------------------------------------}
-  
+
   TFieldMask = Class(TGoogleBaseObject)
   Private
     Ffields : TFieldMaskTypefieldsArray;
@@ -74,11 +74,11 @@ type
     Property id : integer Index 8 Read Fid Write Setid;
   end;
   TFieldMaskClass = Class of TFieldMask;
-  
+
   { --------------------------------------------------------------------
     TPageInfo
     --------------------------------------------------------------------}
-  
+
   TPageInfo = Class(TGoogleBaseObject)
   Private
     FresultPerPage : integer;
@@ -96,11 +96,11 @@ type
     Property totalResults : integer Index 16 Read FtotalResults Write SettotalResults;
   end;
   TPageInfoClass = Class of TPageInfo;
-  
+
   { --------------------------------------------------------------------
     TResultsGetRequest
     --------------------------------------------------------------------}
-  
+
   TResultsGetRequest = Class(TGoogleBaseObject)
   Private
     FresultMask : TResultsMask;
@@ -112,11 +112,11 @@ type
     Property resultMask : TResultsMask Index 0 Read FresultMask Write SetresultMask;
   end;
   TResultsGetRequestClass = Class of TResultsGetRequest;
-  
+
   { --------------------------------------------------------------------
     TResultsMask
     --------------------------------------------------------------------}
-  
+
   TResultsMask = Class(TGoogleBaseObject)
   Private
     Ffields : TResultsMaskTypefieldsArray;
@@ -135,11 +135,11 @@ type
     Property projection : String Index 8 Read Fprojection Write Setprojection;
   end;
   TResultsMaskClass = Class of TResultsMask;
-  
+
   { --------------------------------------------------------------------
     TSurvey
     --------------------------------------------------------------------}
-  
+
   TSurvey = Class(TGoogleBaseObject)
   Private
     Faudience : TSurveyAudience;
@@ -182,11 +182,11 @@ type
     Property wantedResponseCount : integer Index 72 Read FwantedResponseCount Write SetwantedResponseCount;
   end;
   TSurveyClass = Class of TSurvey;
-  
+
   { --------------------------------------------------------------------
     TSurveyAudience
     --------------------------------------------------------------------}
-  
+
   TSurveyAudience = Class(TGoogleBaseObject)
   Private
     Fages : TStringArray;
@@ -220,11 +220,11 @@ type
     Property populationSource : String Index 48 Read FpopulationSource Write SetpopulationSource;
   end;
   TSurveyAudienceClass = Class of TSurveyAudience;
-  
+
   { --------------------------------------------------------------------
     TSurveyCost
     --------------------------------------------------------------------}
-  
+
   TSurveyCost = Class(TGoogleBaseObject)
   Private
     FcostPerResponseNanos : String;
@@ -245,11 +245,11 @@ type
     Property nanos : String Index 24 Read Fnanos Write Setnanos;
   end;
   TSurveyCostClass = Class of TSurveyCost;
-  
+
   { --------------------------------------------------------------------
     TSurveyQuestion
     --------------------------------------------------------------------}
-  
+
   TSurveyQuestion = Class(TGoogleBaseObject)
   Private
     FanswerOrder : String;
@@ -317,11 +317,11 @@ type
     Property videoId : String Index 136 Read FvideoId Write SetvideoId;
   end;
   TSurveyQuestionClass = Class of TSurveyQuestion;
-  
+
   { --------------------------------------------------------------------
     TSurveyQuestionImage
     --------------------------------------------------------------------}
-  
+
   TSurveyQuestionImage = Class(TGoogleBaseObject)
   Private
     FaltText : String;
@@ -339,11 +339,11 @@ type
     Property url : String Index 16 Read Furl Write Seturl;
   end;
   TSurveyQuestionImageClass = Class of TSurveyQuestionImage;
-  
+
   { --------------------------------------------------------------------
     TSurveyResults
     --------------------------------------------------------------------}
-  
+
   TSurveyResults = Class(TGoogleBaseObject)
   Private
     Fstatus : String;
@@ -358,11 +358,11 @@ type
     Property surveyUrlId : String Index 8 Read FsurveyUrlId Write SetsurveyUrlId;
   end;
   TSurveyResultsClass = Class of TSurveyResults;
-  
+
   { --------------------------------------------------------------------
     TSurveysListResponse
     --------------------------------------------------------------------}
-  
+
   TSurveysListResponse = Class(TGoogleBaseObject)
   Private
     FpageInfo : TPageInfo;
@@ -387,11 +387,11 @@ type
     Property tokenPagination : TTokenPagination Index 24 Read FtokenPagination Write SettokenPagination;
   end;
   TSurveysListResponseClass = Class of TSurveysListResponse;
-  
+
   { --------------------------------------------------------------------
     TSurveysStartRequest
     --------------------------------------------------------------------}
-  
+
   TSurveysStartRequest = Class(TGoogleBaseObject)
   Private
     FmaxCostPerResponseNanos : String;
@@ -403,11 +403,11 @@ type
     Property maxCostPerResponseNanos : String Index 0 Read FmaxCostPerResponseNanos Write SetmaxCostPerResponseNanos;
   end;
   TSurveysStartRequestClass = Class of TSurveysStartRequest;
-  
+
   { --------------------------------------------------------------------
     TSurveysStartResponse
     --------------------------------------------------------------------}
-  
+
   TSurveysStartResponse = Class(TGoogleBaseObject)
   Private
     FrequestId : String;
@@ -422,11 +422,11 @@ type
     Property resource : TSurvey Index 8 Read Fresource Write Setresource;
   end;
   TSurveysStartResponseClass = Class of TSurveysStartResponse;
-  
+
   { --------------------------------------------------------------------
     TSurveysStopResponse
     --------------------------------------------------------------------}
-  
+
   TSurveysStopResponse = Class(TGoogleBaseObject)
   Private
     FrequestId : String;
@@ -441,11 +441,11 @@ type
     Property resource : TSurvey Index 8 Read Fresource Write Setresource;
   end;
   TSurveysStopResponseClass = Class of TSurveysStopResponse;
-  
+
   { --------------------------------------------------------------------
     TTokenPagination
     --------------------------------------------------------------------}
-  
+
   TTokenPagination = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -460,32 +460,32 @@ type
     Property previousPageToken : String Index 8 Read FpreviousPageToken Write SetpreviousPageToken;
   end;
   TTokenPaginationClass = Class of TTokenPagination;
-  
+
   { --------------------------------------------------------------------
     TResultsResource
     --------------------------------------------------------------------}
-  
+
   TResultsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get(surveyUrlId: string; aResultsGetRequest : TResultsGetRequest) : TSurveyResults;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TSurveysResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TSurveysResource, method List
-  
+
   TSurveysListOptions = Record
     maxResults : integer;
     startIndex : integer;
     token : String;
   end;
-  
+
   TSurveysResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -498,12 +498,12 @@ type
     Function Stop(resourceId: string) : TSurveysStopResponse;
     Function Update(surveyUrlId: string; aSurvey : TSurvey) : TSurvey;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TConsumersurveysAPI
     --------------------------------------------------------------------}
-  
+
   TConsumersurveysAPI = Class(TGoogleAPI)
   Private
     FResultsInstance : TResultsResource;
@@ -550,7 +550,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TFieldMask.Setfields(AIndex : Integer; const AValue : TFieldMaskTypefieldsArray); 
+Procedure TFieldMask.Setfields(AIndex : Integer; const AValue : TFieldMaskTypefieldsArray);
 
 begin
   If (Ffields=AValue) then exit;
@@ -560,7 +560,7 @@ end;
 
 
 
-Procedure TFieldMask.Setid(AIndex : Integer; const AValue : integer); 
+Procedure TFieldMask.Setid(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fid=AValue) then exit;
@@ -571,7 +571,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TFieldMask.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TFieldMask.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -590,7 +590,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer); 
+Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer);
 
 begin
   If (FresultPerPage=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer); 
+Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer);
 
 begin
   If (FstartIndex=AValue) then exit;
@@ -610,7 +610,7 @@ end;
 
 
 
-Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer); 
+Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
 
 begin
   If (FtotalResults=AValue) then exit;
@@ -627,7 +627,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultsGetRequest.SetresultMask(AIndex : Integer; const AValue : TResultsMask); 
+Procedure TResultsGetRequest.SetresultMask(AIndex : Integer; const AValue : TResultsMask);
 
 begin
   If (FresultMask=AValue) then exit;
@@ -644,7 +644,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultsMask.Setfields(AIndex : Integer; const AValue : TResultsMaskTypefieldsArray); 
+Procedure TResultsMask.Setfields(AIndex : Integer; const AValue : TResultsMaskTypefieldsArray);
 
 begin
   If (Ffields=AValue) then exit;
@@ -654,7 +654,7 @@ end;
 
 
 
-Procedure TResultsMask.Setprojection(AIndex : Integer; const AValue : String); 
+Procedure TResultsMask.Setprojection(AIndex : Integer; const AValue : String);
 
 begin
   If (Fprojection=AValue) then exit;
@@ -665,7 +665,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TResultsMask.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TResultsMask.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -684,7 +684,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurvey.Setaudience(AIndex : Integer; const AValue : TSurveyAudience); 
+Procedure TSurvey.Setaudience(AIndex : Integer; const AValue : TSurveyAudience);
 
 begin
   If (Faudience=AValue) then exit;
@@ -694,7 +694,7 @@ end;
 
 
 
-Procedure TSurvey.Setcost(AIndex : Integer; const AValue : TSurveyCost); 
+Procedure TSurvey.Setcost(AIndex : Integer; const AValue : TSurveyCost);
 
 begin
   If (Fcost=AValue) then exit;
@@ -704,7 +704,7 @@ end;
 
 
 
-Procedure TSurvey.SetcustomerData(AIndex : Integer; const AValue : String); 
+Procedure TSurvey.SetcustomerData(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerData=AValue) then exit;
@@ -714,7 +714,7 @@ end;
 
 
 
-Procedure TSurvey.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TSurvey.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -724,7 +724,7 @@ end;
 
 
 
-Procedure TSurvey.Setowners(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurvey.Setowners(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fowners=AValue) then exit;
@@ -734,7 +734,7 @@ end;
 
 
 
-Procedure TSurvey.Setquestions(AIndex : Integer; const AValue : TSurveyTypequestionsArray); 
+Procedure TSurvey.Setquestions(AIndex : Integer; const AValue : TSurveyTypequestionsArray);
 
 begin
   If (Fquestions=AValue) then exit;
@@ -744,7 +744,7 @@ end;
 
 
 
-Procedure TSurvey.Setstate(AIndex : Integer; const AValue : String); 
+Procedure TSurvey.Setstate(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstate=AValue) then exit;
@@ -754,7 +754,7 @@ end;
 
 
 
-Procedure TSurvey.SetsurveyUrlId(AIndex : Integer; const AValue : String); 
+Procedure TSurvey.SetsurveyUrlId(AIndex : Integer; const AValue : String);
 
 begin
   If (FsurveyUrlId=AValue) then exit;
@@ -764,7 +764,7 @@ end;
 
 
 
-Procedure TSurvey.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TSurvey.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -774,7 +774,7 @@ end;
 
 
 
-Procedure TSurvey.SetwantedResponseCount(AIndex : Integer; const AValue : integer); 
+Procedure TSurvey.SetwantedResponseCount(AIndex : Integer; const AValue : integer);
 
 begin
   If (FwantedResponseCount=AValue) then exit;
@@ -785,7 +785,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSurvey.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSurvey.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -805,7 +805,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveyAudience.Setages(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurveyAudience.Setages(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fages=AValue) then exit;
@@ -815,7 +815,7 @@ end;
 
 
 
-Procedure TSurveyAudience.Setcountry(AIndex : Integer; const AValue : String); 
+Procedure TSurveyAudience.Setcountry(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcountry=AValue) then exit;
@@ -825,7 +825,7 @@ end;
 
 
 
-Procedure TSurveyAudience.SetcountrySubdivision(AIndex : Integer; const AValue : String); 
+Procedure TSurveyAudience.SetcountrySubdivision(AIndex : Integer; const AValue : String);
 
 begin
   If (FcountrySubdivision=AValue) then exit;
@@ -835,7 +835,7 @@ end;
 
 
 
-Procedure TSurveyAudience.Setgender(AIndex : Integer; const AValue : String); 
+Procedure TSurveyAudience.Setgender(AIndex : Integer; const AValue : String);
 
 begin
   If (Fgender=AValue) then exit;
@@ -845,7 +845,7 @@ end;
 
 
 
-Procedure TSurveyAudience.Setlanguages(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurveyAudience.Setlanguages(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Flanguages=AValue) then exit;
@@ -855,7 +855,7 @@ end;
 
 
 
-Procedure TSurveyAudience.SetmobileAppPanelId(AIndex : Integer; const AValue : String); 
+Procedure TSurveyAudience.SetmobileAppPanelId(AIndex : Integer; const AValue : String);
 
 begin
   If (FmobileAppPanelId=AValue) then exit;
@@ -865,7 +865,7 @@ end;
 
 
 
-Procedure TSurveyAudience.SetpopulationSource(AIndex : Integer; const AValue : String); 
+Procedure TSurveyAudience.SetpopulationSource(AIndex : Integer; const AValue : String);
 
 begin
   If (FpopulationSource=AValue) then exit;
@@ -876,7 +876,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSurveyAudience.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSurveyAudience.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -896,7 +896,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveyCost.SetcostPerResponseNanos(AIndex : Integer; const AValue : String); 
+Procedure TSurveyCost.SetcostPerResponseNanos(AIndex : Integer; const AValue : String);
 
 begin
   If (FcostPerResponseNanos=AValue) then exit;
@@ -906,7 +906,7 @@ end;
 
 
 
-Procedure TSurveyCost.SetcurrencyCode(AIndex : Integer; const AValue : String); 
+Procedure TSurveyCost.SetcurrencyCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -916,7 +916,7 @@ end;
 
 
 
-Procedure TSurveyCost.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String); 
+Procedure TSurveyCost.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String);
 
 begin
   If (FmaxCostPerResponseNanos=AValue) then exit;
@@ -926,7 +926,7 @@ end;
 
 
 
-Procedure TSurveyCost.Setnanos(AIndex : Integer; const AValue : String); 
+Procedure TSurveyCost.Setnanos(AIndex : Integer; const AValue : String);
 
 begin
   If (Fnanos=AValue) then exit;
@@ -943,7 +943,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveyQuestion.SetanswerOrder(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetanswerOrder(AIndex : Integer; const AValue : String);
 
 begin
   If (FanswerOrder=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.Setanswers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurveyQuestion.Setanswers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fanswers=AValue) then exit;
@@ -963,7 +963,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SethasOther(AIndex : Integer; const AValue : boolean); 
+Procedure TSurveyQuestion.SethasOther(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FhasOther=AValue) then exit;
@@ -973,7 +973,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SethighValueLabel(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SethighValueLabel(AIndex : Integer; const AValue : String);
 
 begin
   If (FhighValueLabel=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.Setimages(AIndex : Integer; const AValue : TSurveyQuestionTypeimagesArray); 
+Procedure TSurveyQuestion.Setimages(AIndex : Integer; const AValue : TSurveyQuestionTypeimagesArray);
 
 begin
   If (Fimages=AValue) then exit;
@@ -993,7 +993,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetlastAnswerPositionPinned(AIndex : Integer; const AValue : boolean); 
+Procedure TSurveyQuestion.SetlastAnswerPositionPinned(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FlastAnswerPositionPinned=AValue) then exit;
@@ -1003,7 +1003,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetlowValueLabel(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetlowValueLabel(AIndex : Integer; const AValue : String);
 
 begin
   If (FlowValueLabel=AValue) then exit;
@@ -1013,7 +1013,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetmustPickSuggestion(AIndex : Integer; const AValue : boolean); 
+Procedure TSurveyQuestion.SetmustPickSuggestion(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FmustPickSuggestion=AValue) then exit;
@@ -1023,7 +1023,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetnumStars(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetnumStars(AIndex : Integer; const AValue : String);
 
 begin
   If (FnumStars=AValue) then exit;
@@ -1033,7 +1033,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetopenTextPlaceholder(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetopenTextPlaceholder(AIndex : Integer; const AValue : String);
 
 begin
   If (FopenTextPlaceholder=AValue) then exit;
@@ -1043,7 +1043,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetopenTextSuggestions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurveyQuestion.SetopenTextSuggestions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FopenTextSuggestions=AValue) then exit;
@@ -1053,7 +1053,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.Setquestion(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.Setquestion(AIndex : Integer; const AValue : String);
 
 begin
   If (Fquestion=AValue) then exit;
@@ -1063,7 +1063,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetsentimentText(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetsentimentText(AIndex : Integer; const AValue : String);
 
 begin
   If (FsentimentText=AValue) then exit;
@@ -1073,7 +1073,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetsingleLineResponse(AIndex : Integer; const AValue : boolean); 
+Procedure TSurveyQuestion.SetsingleLineResponse(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FsingleLineResponse=AValue) then exit;
@@ -1083,7 +1083,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetthresholdAnswers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSurveyQuestion.SetthresholdAnswers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FthresholdAnswers=AValue) then exit;
@@ -1093,7 +1093,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -1103,7 +1103,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetunitOfMeasurementLabel(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetunitOfMeasurementLabel(AIndex : Integer; const AValue : String);
 
 begin
   If (FunitOfMeasurementLabel=AValue) then exit;
@@ -1113,7 +1113,7 @@ end;
 
 
 
-Procedure TSurveyQuestion.SetvideoId(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestion.SetvideoId(AIndex : Integer; const AValue : String);
 
 begin
   If (FvideoId=AValue) then exit;
@@ -1135,7 +1135,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSurveyQuestion.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSurveyQuestion.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1157,7 +1157,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveyQuestionImage.SetaltText(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestionImage.SetaltText(AIndex : Integer; const AValue : String);
 
 begin
   If (FaltText=AValue) then exit;
@@ -1167,7 +1167,7 @@ end;
 
 
 
-Procedure TSurveyQuestionImage.Setdata(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestionImage.Setdata(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdata=AValue) then exit;
@@ -1177,7 +1177,7 @@ end;
 
 
 
-Procedure TSurveyQuestionImage.Seturl(AIndex : Integer; const AValue : String); 
+Procedure TSurveyQuestionImage.Seturl(AIndex : Integer; const AValue : String);
 
 begin
   If (Furl=AValue) then exit;
@@ -1194,7 +1194,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveyResults.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TSurveyResults.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1204,7 +1204,7 @@ end;
 
 
 
-Procedure TSurveyResults.SetsurveyUrlId(AIndex : Integer; const AValue : String); 
+Procedure TSurveyResults.SetsurveyUrlId(AIndex : Integer; const AValue : String);
 
 begin
   If (FsurveyUrlId=AValue) then exit;
@@ -1221,7 +1221,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveysListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo); 
+Procedure TSurveysListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
 
 begin
   If (FpageInfo=AValue) then exit;
@@ -1231,7 +1231,7 @@ end;
 
 
 
-Procedure TSurveysListResponse.SetrequestId(AIndex : Integer; const AValue : String); 
+Procedure TSurveysListResponse.SetrequestId(AIndex : Integer; const AValue : String);
 
 begin
   If (FrequestId=AValue) then exit;
@@ -1241,7 +1241,7 @@ end;
 
 
 
-Procedure TSurveysListResponse.Setresources(AIndex : Integer; const AValue : TSurveysListResponseTyperesourcesArray); 
+Procedure TSurveysListResponse.Setresources(AIndex : Integer; const AValue : TSurveysListResponseTyperesourcesArray);
 
 begin
   If (Fresources=AValue) then exit;
@@ -1251,7 +1251,7 @@ end;
 
 
 
-Procedure TSurveysListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); 
+Procedure TSurveysListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
 
 begin
   If (FtokenPagination=AValue) then exit;
@@ -1262,7 +1262,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSurveysListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSurveysListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1281,7 +1281,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveysStartRequest.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String); 
+Procedure TSurveysStartRequest.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String);
 
 begin
   If (FmaxCostPerResponseNanos=AValue) then exit;
@@ -1298,7 +1298,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveysStartResponse.SetrequestId(AIndex : Integer; const AValue : String); 
+Procedure TSurveysStartResponse.SetrequestId(AIndex : Integer; const AValue : String);
 
 begin
   If (FrequestId=AValue) then exit;
@@ -1308,7 +1308,7 @@ end;
 
 
 
-Procedure TSurveysStartResponse.Setresource(AIndex : Integer; const AValue : TSurvey); 
+Procedure TSurveysStartResponse.Setresource(AIndex : Integer; const AValue : TSurvey);
 
 begin
   If (Fresource=AValue) then exit;
@@ -1325,7 +1325,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSurveysStopResponse.SetrequestId(AIndex : Integer; const AValue : String); 
+Procedure TSurveysStopResponse.SetrequestId(AIndex : Integer; const AValue : String);
 
 begin
   If (FrequestId=AValue) then exit;
@@ -1335,7 +1335,7 @@ end;
 
 
 
-Procedure TSurveysStopResponse.Setresource(AIndex : Integer; const AValue : TSurvey); 
+Procedure TSurveysStopResponse.Setresource(AIndex : Integer; const AValue : TSurvey);
 
 begin
   If (Fresource=AValue) then exit;
@@ -1352,7 +1352,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1362,7 +1362,7 @@ end;
 
 
 
-Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String); 
+Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FpreviousPageToken=AValue) then exit;
@@ -1639,7 +1639,7 @@ begin
   Result[1].Description:='View the results for your surveys';
   Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
   Result[2].Description:='View your email address';
-  
+
 end;
 
 Class Function TConsumersurveysAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googledns.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TChange = Class;
   TChangesListResponse = Class;
@@ -37,11 +37,11 @@ type
   TChangesListResponseTypechangesArray = Array of TChange;
   TManagedZonesListResponseTypemanagedZonesArray = Array of TManagedZone;
   TResourceRecordSetsListResponseTyperrsetsArray = Array of TResourceRecordSet;
-  
+
   { --------------------------------------------------------------------
     TChange
     --------------------------------------------------------------------}
-  
+
   TChange = Class(TGoogleBaseObject)
   Private
     Fadditions : TChangeTypeadditionsArray;
@@ -72,11 +72,11 @@ type
     Property status : String Index 40 Read Fstatus Write Setstatus;
   end;
   TChangeClass = Class of TChange;
-  
+
   { --------------------------------------------------------------------
     TChangesListResponse
     --------------------------------------------------------------------}
-  
+
   TChangesListResponse = Class(TGoogleBaseObject)
   Private
     Fchanges : TChangesListResponseTypechangesArray;
@@ -98,11 +98,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TChangesListResponseClass = Class of TChangesListResponse;
-  
+
   { --------------------------------------------------------------------
     TManagedZone
     --------------------------------------------------------------------}
-  
+
   TManagedZone = Class(TGoogleBaseObject)
   Private
     FcreationTime : String;
@@ -139,11 +139,11 @@ type
     Property nameServers : TStringArray Index 56 Read FnameServers Write SetnameServers;
   end;
   TManagedZoneClass = Class of TManagedZone;
-  
+
   { --------------------------------------------------------------------
     TManagedZonesListResponse
     --------------------------------------------------------------------}
-  
+
   TManagedZonesListResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -165,11 +165,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TManagedZonesListResponseClass = Class of TManagedZonesListResponse;
-  
+
   { --------------------------------------------------------------------
     TProject
     --------------------------------------------------------------------}
-  
+
   TProject = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -190,11 +190,11 @@ type
     Property quota : TQuota Index 24 Read Fquota Write Setquota;
   end;
   TProjectClass = Class of TProject;
-  
+
   { --------------------------------------------------------------------
     TQuota
     --------------------------------------------------------------------}
-  
+
   TQuota = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -224,11 +224,11 @@ type
     Property totalRrdataSizePerChange : integer Index 48 Read FtotalRrdataSizePerChange Write SettotalRrdataSizePerChange;
   end;
   TQuotaClass = Class of TQuota;
-  
+
   { --------------------------------------------------------------------
     TResourceRecordSet
     --------------------------------------------------------------------}
-  
+
   TResourceRecordSet = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -257,11 +257,11 @@ type
     Property _type : String Index 32 Read F_type Write Set_type;
   end;
   TResourceRecordSetClass = Class of TResourceRecordSet;
-  
+
   { --------------------------------------------------------------------
     TResourceRecordSetsListResponse
     --------------------------------------------------------------------}
-  
+
   TResourceRecordSetsListResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -283,21 +283,21 @@ type
     Property rrsets : TResourceRecordSetsListResponseTyperrsetsArray Index 16 Read Frrsets Write Setrrsets;
   end;
   TResourceRecordSetsListResponseClass = Class of TResourceRecordSetsListResponse;
-  
+
   { --------------------------------------------------------------------
     TChangesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TChangesResource, method List
-  
+
   TChangesListOptions = Record
     maxResults : integer;
     pageToken : String;
     sortBy : String;
     sortOrder : String;
   end;
-  
+
   TChangesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -307,21 +307,21 @@ type
     Function List(managedZone: string; project: string; AQuery : string  = '') : TChangesListResponse;
     Function List(managedZone: string; project: string; AQuery : TChangeslistOptions) : TChangesListResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TManagedZonesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TManagedZonesResource, method List
-  
+
   TManagedZonesListOptions = Record
     dnsName : String;
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TManagedZonesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -332,34 +332,34 @@ type
     Function List(project: string; AQuery : string  = '') : TManagedZonesListResponse;
     Function List(project: string; AQuery : TManagedZoneslistOptions) : TManagedZonesListResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get(project: string) : TProject;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TResourceRecordSetsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TResourceRecordSetsResource, method List
-  
+
   TResourceRecordSetsListOptions = Record
     maxResults : integer;
     _name : String;
     pageToken : String;
     _type : String;
   end;
-  
+
   TResourceRecordSetsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -367,12 +367,12 @@ type
     Function List(managedZone: string; project: string; AQuery : string  = '') : TResourceRecordSetsListResponse;
     Function List(managedZone: string; project: string; AQuery : TResourceRecordSetslistOptions) : TResourceRecordSetsListResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TDnsAPI
     --------------------------------------------------------------------}
-  
+
   TDnsAPI = Class(TGoogleAPI)
   Private
     FChangesInstance : TChangesResource;
@@ -429,7 +429,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TChange.Setadditions(AIndex : Integer; const AValue : TChangeTypeadditionsArray); 
+Procedure TChange.Setadditions(AIndex : Integer; const AValue : TChangeTypeadditionsArray);
 
 begin
   If (Fadditions=AValue) then exit;
@@ -439,7 +439,7 @@ end;
 
 
 
-Procedure TChange.Setdeletions(AIndex : Integer; const AValue : TChangeTypedeletionsArray); 
+Procedure TChange.Setdeletions(AIndex : Integer; const AValue : TChangeTypedeletionsArray);
 
 begin
   If (Fdeletions=AValue) then exit;
@@ -449,7 +449,7 @@ end;
 
 
 
-Procedure TChange.Setid(AIndex : Integer; const AValue : String); 
+Procedure TChange.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -459,7 +459,7 @@ end;
 
 
 
-Procedure TChange.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TChange.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -469,7 +469,7 @@ end;
 
 
 
-Procedure TChange.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TChange.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -479,7 +479,7 @@ end;
 
 
 
-Procedure TChange.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TChange.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -490,7 +490,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TChange.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TChange.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -510,7 +510,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChangesListResponse.Setchanges(AIndex : Integer; const AValue : TChangesListResponseTypechangesArray); 
+Procedure TChangesListResponse.Setchanges(AIndex : Integer; const AValue : TChangesListResponseTypechangesArray);
 
 begin
   If (Fchanges=AValue) then exit;
@@ -520,7 +520,7 @@ end;
 
 
 
-Procedure TChangesListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TChangesListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -530,7 +530,7 @@ end;
 
 
 
-Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -541,7 +541,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TChangesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TChangesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -560,7 +560,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZone.SetcreationTime(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.SetcreationTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTime=AValue) then exit;
@@ -570,7 +570,7 @@ end;
 
 
 
-Procedure TManagedZone.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -580,7 +580,7 @@ end;
 
 
 
-Procedure TManagedZone.SetdnsName(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.SetdnsName(AIndex : Integer; const AValue : String);
 
 begin
   If (FdnsName=AValue) then exit;
@@ -590,7 +590,7 @@ end;
 
 
 
-Procedure TManagedZone.Setid(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TManagedZone.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -610,7 +610,7 @@ end;
 
 
 
-Procedure TManagedZone.Setname(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -620,7 +620,7 @@ end;
 
 
 
-Procedure TManagedZone.SetnameServerSet(AIndex : Integer; const AValue : String); 
+Procedure TManagedZone.SetnameServerSet(AIndex : Integer; const AValue : String);
 
 begin
   If (FnameServerSet=AValue) then exit;
@@ -630,7 +630,7 @@ end;
 
 
 
-Procedure TManagedZone.SetnameServers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TManagedZone.SetnameServers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FnameServers=AValue) then exit;
@@ -641,7 +641,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TManagedZone.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TManagedZone.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -660,7 +660,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -670,7 +670,7 @@ end;
 
 
 
-Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; const AValue : TManagedZonesListResponseTypemanagedZonesArray); 
+Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; const AValue : TManagedZonesListResponseTypemanagedZonesArray);
 
 begin
   If (FmanagedZones=AValue) then exit;
@@ -680,7 +680,7 @@ end;
 
 
 
-Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -691,7 +691,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TManagedZonesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TManagedZonesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -710,7 +710,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProject.Setid(AIndex : Integer; const AValue : String); 
+Procedure TProject.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -720,7 +720,7 @@ end;
 
 
 
-Procedure TProject.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TProject.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -730,7 +730,7 @@ end;
 
 
 
-Procedure TProject.Setnumber(AIndex : Integer; const AValue : String); 
+Procedure TProject.Setnumber(AIndex : Integer; const AValue : String);
 
 begin
   If (Fnumber=AValue) then exit;
@@ -740,7 +740,7 @@ end;
 
 
 
-Procedure TProject.Setquota(AIndex : Integer; const AValue : TQuota); 
+Procedure TProject.Setquota(AIndex : Integer; const AValue : TQuota);
 
 begin
   If (Fquota=AValue) then exit;
@@ -757,7 +757,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuota.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TQuota.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -767,7 +767,7 @@ end;
 
 
 
-Procedure TQuota.SetmanagedZones(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SetmanagedZones(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmanagedZones=AValue) then exit;
@@ -777,7 +777,7 @@ end;
 
 
 
-Procedure TQuota.SetresourceRecordsPerRrset(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SetresourceRecordsPerRrset(AIndex : Integer; const AValue : integer);
 
 begin
   If (FresourceRecordsPerRrset=AValue) then exit;
@@ -787,7 +787,7 @@ end;
 
 
 
-Procedure TQuota.SetrrsetAdditionsPerChange(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SetrrsetAdditionsPerChange(AIndex : Integer; const AValue : integer);
 
 begin
   If (FrrsetAdditionsPerChange=AValue) then exit;
@@ -797,7 +797,7 @@ end;
 
 
 
-Procedure TQuota.SetrrsetDeletionsPerChange(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SetrrsetDeletionsPerChange(AIndex : Integer; const AValue : integer);
 
 begin
   If (FrrsetDeletionsPerChange=AValue) then exit;
@@ -807,7 +807,7 @@ end;
 
 
 
-Procedure TQuota.SetrrsetsPerManagedZone(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SetrrsetsPerManagedZone(AIndex : Integer; const AValue : integer);
 
 begin
   If (FrrsetsPerManagedZone=AValue) then exit;
@@ -817,7 +817,7 @@ end;
 
 
 
-Procedure TQuota.SettotalRrdataSizePerChange(AIndex : Integer; const AValue : integer); 
+Procedure TQuota.SettotalRrdataSizePerChange(AIndex : Integer; const AValue : integer);
 
 begin
   If (FtotalRrdataSizePerChange=AValue) then exit;
@@ -834,7 +834,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSet.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TResourceRecordSet.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setname(AIndex : Integer; const AValue : String); 
+Procedure TResourceRecordSet.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -854,7 +854,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; const AValue : TStringArray); 
+Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Frrdatas=AValue) then exit;
@@ -864,7 +864,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setttl(AIndex : Integer; const AValue : integer); 
+Procedure TResourceRecordSet.Setttl(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fttl=AValue) then exit;
@@ -874,7 +874,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TResourceRecordSet.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -896,7 +896,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TResourceRecordSet.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TResourceRecordSet.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -915,7 +915,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -925,7 +925,7 @@ end;
 
 
 
-Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -935,7 +935,7 @@ end;
 
 
 
-Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; const AValue : TResourceRecordSetsListResponseTyperrsetsArray); 
+Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; const AValue : TResourceRecordSetsListResponseTyperrsetsArray);
 
 begin
   If (Frrsets=AValue) then exit;
@@ -946,7 +946,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TResourceRecordSetsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TResourceRecordSetsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1333,7 +1333,7 @@ begin
   Result[2].Description:='View your DNS records hosted by Google Cloud DNS';
   Result[3].Name:='https://www.googleapis.com/auth/ndev.clouddns.readwrite';
   Result[3].Description:='View and manage your DNS records hosted by Google Cloud DNS';
-  
+
 end;
 
 Class Function TDnsAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlefirebaserules.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TRelease = Class;
   TSource = Class;
@@ -42,11 +42,11 @@ type
   TTestRulesetResponseTypeissuesArray = Array of TIssue;
   TListReleasesResponseTypereleasesArray = Array of TRelease;
   TListRulesetsResponseTyperulesetsArray = Array of TRuleset;
-  
+
   { --------------------------------------------------------------------
     TRelease
     --------------------------------------------------------------------}
-  
+
   TRelease = Class(TGoogleBaseObject)
   Private
     FupdateTime : String;
@@ -67,11 +67,11 @@ type
     Property rulesetName : String Index 24 Read FrulesetName Write SetrulesetName;
   end;
   TReleaseClass = Class of TRelease;
-  
+
   { --------------------------------------------------------------------
     TSource
     --------------------------------------------------------------------}
-  
+
   TSource = Class(TGoogleBaseObject)
   Private
     Ffiles : TSourceTypefilesArray;
@@ -87,11 +87,11 @@ type
     Property files : TSourceTypefilesArray Index 0 Read Ffiles Write Setfiles;
   end;
   TSourceClass = Class of TSource;
-  
+
   { --------------------------------------------------------------------
     TSourcePosition
     --------------------------------------------------------------------}
-  
+
   TSourcePosition = Class(TGoogleBaseObject)
   Private
     FfileName : String;
@@ -109,11 +109,11 @@ type
     Property line : integer Index 16 Read Fline Write Setline;
   end;
   TSourcePositionClass = Class of TSourcePosition;
-  
+
   { --------------------------------------------------------------------
     TTestRulesetResponse
     --------------------------------------------------------------------}
-  
+
   TTestRulesetResponse = Class(TGoogleBaseObject)
   Private
     Fissues : TTestRulesetResponseTypeissuesArray;
@@ -129,11 +129,11 @@ type
     Property issues : TTestRulesetResponseTypeissuesArray Index 0 Read Fissues Write Setissues;
   end;
   TTestRulesetResponseClass = Class of TTestRulesetResponse;
-  
+
   { --------------------------------------------------------------------
     TRuleset
     --------------------------------------------------------------------}
-  
+
   TRuleset = Class(TGoogleBaseObject)
   Private
     Fsource : TSource;
@@ -151,11 +151,11 @@ type
     Property name : String Index 16 Read Fname Write Setname;
   end;
   TRulesetClass = Class of TRuleset;
-  
+
   { --------------------------------------------------------------------
     TListReleasesResponse
     --------------------------------------------------------------------}
-  
+
   TListReleasesResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -174,11 +174,11 @@ type
     Property releases : TListReleasesResponseTypereleasesArray Index 8 Read Freleases Write Setreleases;
   end;
   TListReleasesResponseClass = Class of TListReleasesResponse;
-  
+
   { --------------------------------------------------------------------
     TListRulesetsResponse
     --------------------------------------------------------------------}
-  
+
   TListRulesetsResponse = Class(TGoogleBaseObject)
   Private
     Frulesets : TListRulesetsResponseTyperulesetsArray;
@@ -197,11 +197,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListRulesetsResponseClass = Class of TListRulesetsResponse;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -210,11 +210,11 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TFile
     --------------------------------------------------------------------}
-  
+
   TFile = Class(TGoogleBaseObject)
   Private
     Fcontent : String;
@@ -232,11 +232,11 @@ type
     Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
   end;
   TFileClass = Class of TFile;
-  
+
   { --------------------------------------------------------------------
     TTestRulesetRequest
     --------------------------------------------------------------------}
-  
+
   TTestRulesetRequest = Class(TGoogleBaseObject)
   Private
     Fsource : TSource;
@@ -248,11 +248,11 @@ type
     Property source : TSource Index 0 Read Fsource Write Setsource;
   end;
   TTestRulesetRequestClass = Class of TTestRulesetRequest;
-  
+
   { --------------------------------------------------------------------
     TIssue
     --------------------------------------------------------------------}
-  
+
   TIssue = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -270,19 +270,19 @@ type
     Property sourcePosition : TSourcePosition Index 16 Read FsourcePosition Write SetsourcePosition;
   end;
   TIssueClass = Class of TIssue;
-  
+
   { --------------------------------------------------------------------
     TProjectsRulesetsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsRulesetsResource, method List
-  
+
   TProjectsRulesetsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsRulesetsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -293,21 +293,21 @@ type
     Function List(_name: string; AQuery : TProjectsRulesetslistOptions) : TListRulesetsResponse;
     Function Delete(_name: string) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsReleasesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsReleasesResource, method List
-  
+
   TProjectsReleasesListOptions = Record
     pageSize : integer;
     filter : String;
     pageToken : String;
   end;
-  
+
   TProjectsReleasesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -319,12 +319,12 @@ type
     Function List(_name: string; AQuery : TProjectsReleaseslistOptions) : TListReleasesResponse;
     Function Delete(_name: string) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FRulesetsInstance : TProjectsRulesetsResource;
@@ -342,12 +342,12 @@ type
     Property RulesetsResource : TProjectsRulesetsResource Read GetRulesetsInstance;
     Property ReleasesResource : TProjectsReleasesResource Read GetReleasesInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TFirebaserulesAPI
     --------------------------------------------------------------------}
-  
+
   TFirebaserulesAPI = Class(TGoogleAPI)
   Private
     FProjectsRulesetsInstance : TProjectsRulesetsResource;
@@ -399,7 +399,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TRelease.SetupdateTime(AIndex : Integer; const AValue : String); 
+Procedure TRelease.SetupdateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FupdateTime=AValue) then exit;
@@ -409,7 +409,7 @@ end;
 
 
 
-Procedure TRelease.SetcreateTime(AIndex : Integer; const AValue : String); 
+Procedure TRelease.SetcreateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreateTime=AValue) then exit;
@@ -419,7 +419,7 @@ end;
 
 
 
-Procedure TRelease.Setname(AIndex : Integer; const AValue : String); 
+Procedure TRelease.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -429,7 +429,7 @@ end;
 
 
 
-Procedure TRelease.SetrulesetName(AIndex : Integer; const AValue : String); 
+Procedure TRelease.SetrulesetName(AIndex : Integer; const AValue : String);
 
 begin
   If (FrulesetName=AValue) then exit;
@@ -446,7 +446,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSource.Setfiles(AIndex : Integer; const AValue : TSourceTypefilesArray); 
+Procedure TSource.Setfiles(AIndex : Integer; const AValue : TSourceTypefilesArray);
 
 begin
   If (Ffiles=AValue) then exit;
@@ -457,7 +457,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSource.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSource.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -476,7 +476,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSourcePosition.SetfileName(AIndex : Integer; const AValue : String); 
+Procedure TSourcePosition.SetfileName(AIndex : Integer; const AValue : String);
 
 begin
   If (FfileName=AValue) then exit;
@@ -486,7 +486,7 @@ end;
 
 
 
-Procedure TSourcePosition.Setcolumn(AIndex : Integer; const AValue : integer); 
+Procedure TSourcePosition.Setcolumn(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fcolumn=AValue) then exit;
@@ -496,7 +496,7 @@ end;
 
 
 
-Procedure TSourcePosition.Setline(AIndex : Integer; const AValue : integer); 
+Procedure TSourcePosition.Setline(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fline=AValue) then exit;
@@ -513,7 +513,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestRulesetResponse.Setissues(AIndex : Integer; const AValue : TTestRulesetResponseTypeissuesArray); 
+Procedure TTestRulesetResponse.Setissues(AIndex : Integer; const AValue : TTestRulesetResponseTypeissuesArray);
 
 begin
   If (Fissues=AValue) then exit;
@@ -524,7 +524,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestRulesetResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestRulesetResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -543,7 +543,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRuleset.Setsource(AIndex : Integer; const AValue : TSource); 
+Procedure TRuleset.Setsource(AIndex : Integer; const AValue : TSource);
 
 begin
   If (Fsource=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TRuleset.SetcreateTime(AIndex : Integer; const AValue : String); 
+Procedure TRuleset.SetcreateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreateTime=AValue) then exit;
@@ -563,7 +563,7 @@ end;
 
 
 
-Procedure TRuleset.Setname(AIndex : Integer; const AValue : String); 
+Procedure TRuleset.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -580,7 +580,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListReleasesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListReleasesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -590,7 +590,7 @@ end;
 
 
 
-Procedure TListReleasesResponse.Setreleases(AIndex : Integer; const AValue : TListReleasesResponseTypereleasesArray); 
+Procedure TListReleasesResponse.Setreleases(AIndex : Integer; const AValue : TListReleasesResponseTypereleasesArray);
 
 begin
   If (Freleases=AValue) then exit;
@@ -601,7 +601,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListReleasesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListReleasesResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -620,7 +620,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListRulesetsResponse.Setrulesets(AIndex : Integer; const AValue : TListRulesetsResponseTyperulesetsArray); 
+Procedure TListRulesetsResponse.Setrulesets(AIndex : Integer; const AValue : TListRulesetsResponseTyperulesetsArray);
 
 begin
   If (Frulesets=AValue) then exit;
@@ -630,7 +630,7 @@ end;
 
 
 
-Procedure TListRulesetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListRulesetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -641,7 +641,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListRulesetsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListRulesetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -667,7 +667,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TFile.Setcontent(AIndex : Integer; const AValue : String); 
+Procedure TFile.Setcontent(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcontent=AValue) then exit;
@@ -677,7 +677,7 @@ end;
 
 
 
-Procedure TFile.Setname(AIndex : Integer; const AValue : String); 
+Procedure TFile.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -687,7 +687,7 @@ end;
 
 
 
-Procedure TFile.Setfingerprint(AIndex : Integer; const AValue : String); 
+Procedure TFile.Setfingerprint(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -704,7 +704,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestRulesetRequest.Setsource(AIndex : Integer; const AValue : TSource); 
+Procedure TTestRulesetRequest.Setsource(AIndex : Integer; const AValue : TSource);
 
 begin
   If (Fsource=AValue) then exit;
@@ -721,7 +721,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TIssue.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TIssue.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -731,7 +731,7 @@ end;
 
 
 
-Procedure TIssue.Setseverity(AIndex : Integer; const AValue : String); 
+Procedure TIssue.Setseverity(AIndex : Integer; const AValue : String);
 
 begin
   If (Fseverity=AValue) then exit;
@@ -741,7 +741,7 @@ end;
 
 
 
-Procedure TIssue.SetsourcePosition(AIndex : Integer; const AValue : TSourcePosition); 
+Procedure TIssue.SetsourcePosition(AIndex : Integer; const AValue : TSourcePosition);
 
 begin
   If (FsourcePosition=AValue) then exit;
@@ -1147,7 +1147,7 @@ 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 TFirebaserulesAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlefreebase.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TReconcileCandidate = Class;
   TReconcileGet = Class;
@@ -25,11 +25,11 @@ type
   TReconcileGetTypewarningItem = Class;
   TReconcileGetTypecandidateArray = Array of TReconcileCandidate;
   TReconcileGetTypewarningArray = Array of TReconcileGetTypewarningItem;
-  
+
   { --------------------------------------------------------------------
     TReconcileCandidateTypenotable
     --------------------------------------------------------------------}
-  
+
   TReconcileCandidateTypenotable = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -44,11 +44,11 @@ type
     Property name : String Index 8 Read Fname Write Setname;
   end;
   TReconcileCandidateTypenotableClass = Class of TReconcileCandidateTypenotable;
-  
+
   { --------------------------------------------------------------------
     TReconcileCandidate
     --------------------------------------------------------------------}
-  
+
   TReconcileCandidate = Class(TGoogleBaseObject)
   Private
     Fconfidence : integer;
@@ -72,11 +72,11 @@ type
     Property notable : TReconcileCandidateTypenotable Index 32 Read Fnotable Write Setnotable;
   end;
   TReconcileCandidateClass = Class of TReconcileCandidate;
-  
+
   { --------------------------------------------------------------------
     TReconcileGetTypecosts
     --------------------------------------------------------------------}
-  
+
   TReconcileGetTypecosts = Class(TGoogleBaseObject)
   Private
     Fhits : integer;
@@ -91,11 +91,11 @@ type
     Property ms : integer Index 8 Read Fms Write Setms;
   end;
   TReconcileGetTypecostsClass = Class of TReconcileGetTypecosts;
-  
+
   { --------------------------------------------------------------------
     TReconcileGetTypewarningItem
     --------------------------------------------------------------------}
-  
+
   TReconcileGetTypewarningItem = Class(TGoogleBaseObject)
   Private
     Flocation : String;
@@ -113,11 +113,11 @@ type
     Property reason : String Index 16 Read Freason Write Setreason;
   end;
   TReconcileGetTypewarningItemClass = Class of TReconcileGetTypewarningItem;
-  
+
   { --------------------------------------------------------------------
     TReconcileGet
     --------------------------------------------------------------------}
-  
+
   TReconcileGet = Class(TGoogleBaseObject)
   Private
     Fcandidate : TReconcileGetTypecandidateArray;
@@ -142,11 +142,11 @@ type
     Property warning : TReconcileGetTypewarningArray Index 24 Read Fwarning Write Setwarning;
   end;
   TReconcileGetClass = Class of TReconcileGet;
-  
+
   { --------------------------------------------------------------------
     TFreebaseAPI
     --------------------------------------------------------------------}
-  
+
   TFreebaseAPI = Class(TGoogleAPI)
   Private
   Public
@@ -183,7 +183,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileCandidateTypenotable.Setid(AIndex : Integer; const AValue : String); 
+Procedure TReconcileCandidateTypenotable.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -193,7 +193,7 @@ end;
 
 
 
-Procedure TReconcileCandidateTypenotable.Setname(AIndex : Integer; const AValue : String); 
+Procedure TReconcileCandidateTypenotable.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -210,7 +210,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileCandidate.Setconfidence(AIndex : Integer; const AValue : integer); 
+Procedure TReconcileCandidate.Setconfidence(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fconfidence=AValue) then exit;
@@ -220,7 +220,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setlang(AIndex : Integer; const AValue : String); 
+Procedure TReconcileCandidate.Setlang(AIndex : Integer; const AValue : String);
 
 begin
   If (Flang=AValue) then exit;
@@ -230,7 +230,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setmid(AIndex : Integer; const AValue : String); 
+Procedure TReconcileCandidate.Setmid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmid=AValue) then exit;
@@ -240,7 +240,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setname(AIndex : Integer; const AValue : String); 
+Procedure TReconcileCandidate.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -250,7 +250,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setnotable(AIndex : Integer; const AValue : TReconcileCandidateTypenotable); 
+Procedure TReconcileCandidate.Setnotable(AIndex : Integer; const AValue : TReconcileCandidateTypenotable);
 
 begin
   If (Fnotable=AValue) then exit;
@@ -267,7 +267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGetTypecosts.Sethits(AIndex : Integer; const AValue : integer); 
+Procedure TReconcileGetTypecosts.Sethits(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fhits=AValue) then exit;
@@ -277,7 +277,7 @@ end;
 
 
 
-Procedure TReconcileGetTypecosts.Setms(AIndex : Integer; const AValue : integer); 
+Procedure TReconcileGetTypecosts.Setms(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fms=AValue) then exit;
@@ -294,7 +294,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGetTypewarningItem.Setlocation(AIndex : Integer; const AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setlocation(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocation=AValue) then exit;
@@ -304,7 +304,7 @@ end;
 
 
 
-Procedure TReconcileGetTypewarningItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -314,7 +314,7 @@ end;
 
 
 
-Procedure TReconcileGetTypewarningItem.Setreason(AIndex : Integer; const AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setreason(AIndex : Integer; const AValue : String);
 
 begin
   If (Freason=AValue) then exit;
@@ -331,7 +331,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGet.Setcandidate(AIndex : Integer; const AValue : TReconcileGetTypecandidateArray); 
+Procedure TReconcileGet.Setcandidate(AIndex : Integer; const AValue : TReconcileGetTypecandidateArray);
 
 begin
   If (Fcandidate=AValue) then exit;
@@ -341,7 +341,7 @@ end;
 
 
 
-Procedure TReconcileGet.Setcosts(AIndex : Integer; const AValue : TReconcileGetTypecosts); 
+Procedure TReconcileGet.Setcosts(AIndex : Integer; const AValue : TReconcileGetTypecosts);
 
 begin
   If (Fcosts=AValue) then exit;
@@ -351,7 +351,7 @@ end;
 
 
 
-Procedure TReconcileGet.Setmatch(AIndex : Integer; const AValue : TReconcileCandidate); 
+Procedure TReconcileGet.Setmatch(AIndex : Integer; const AValue : TReconcileCandidate);
 
 begin
   If (Fmatch=AValue) then exit;
@@ -361,7 +361,7 @@ end;
 
 
 
-Procedure TReconcileGet.Setwarning(AIndex : Integer; const AValue : TReconcileGetTypewarningArray); 
+Procedure TReconcileGet.Setwarning(AIndex : Integer; const AValue : TReconcileGetTypewarningArray);
 
 begin
   If (Fwarning=AValue) then exit;
@@ -372,7 +372,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TReconcileGet.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TReconcileGet.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -497,7 +497,7 @@ Class Function TFreebaseAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TFreebaseAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlegamesconfiguration.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TAchievementConfiguration = Class;
   TAchievementConfigurationDetail = Class;
@@ -41,11 +41,11 @@ type
   TAchievementConfigurationListResponseTypeitemsArray = Array of TAchievementConfiguration;
   TLeaderboardConfigurationListResponseTypeitemsArray = Array of TLeaderboardConfiguration;
   TLocalizedStringBundleTypetranslationsArray = Array of TLocalizedString;
-  
+
   { --------------------------------------------------------------------
     TAchievementConfiguration
     --------------------------------------------------------------------}
-  
+
   TAchievementConfiguration = Class(TGoogleBaseObject)
   Private
     FachievementType : String;
@@ -79,11 +79,11 @@ type
     Property token : String Index 56 Read Ftoken Write Settoken;
   end;
   TAchievementConfigurationClass = Class of TAchievementConfiguration;
-  
+
   { --------------------------------------------------------------------
     TAchievementConfigurationDetail
     --------------------------------------------------------------------}
-  
+
   TAchievementConfigurationDetail = Class(TGoogleBaseObject)
   Private
     Fdescription : TLocalizedStringBundle;
@@ -110,11 +110,11 @@ type
     Property sortRank : integer Index 40 Read FsortRank Write SetsortRank;
   end;
   TAchievementConfigurationDetailClass = Class of TAchievementConfigurationDetail;
-  
+
   { --------------------------------------------------------------------
     TAchievementConfigurationListResponse
     --------------------------------------------------------------------}
-  
+
   TAchievementConfigurationListResponse = Class(TGoogleBaseObject)
   Private
     Fitems : TAchievementConfigurationListResponseTypeitemsArray;
@@ -136,11 +136,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TAchievementConfigurationListResponseClass = Class of TAchievementConfigurationListResponse;
-  
+
   { --------------------------------------------------------------------
     TGamesNumberAffixConfiguration
     --------------------------------------------------------------------}
-  
+
   TGamesNumberAffixConfiguration = Class(TGoogleBaseObject)
   Private
     Ffew : TLocalizedStringBundle;
@@ -167,11 +167,11 @@ type
     Property zero : TLocalizedStringBundle Index 40 Read Fzero Write Setzero;
   end;
   TGamesNumberAffixConfigurationClass = Class of TGamesNumberAffixConfiguration;
-  
+
   { --------------------------------------------------------------------
     TGamesNumberFormatConfiguration
     --------------------------------------------------------------------}
-  
+
   TGamesNumberFormatConfiguration = Class(TGoogleBaseObject)
   Private
     FcurrencyCode : String;
@@ -192,11 +192,11 @@ type
     Property suffix : TGamesNumberAffixConfiguration Index 24 Read Fsuffix Write Setsuffix;
   end;
   TGamesNumberFormatConfigurationClass = Class of TGamesNumberFormatConfiguration;
-  
+
   { --------------------------------------------------------------------
     TImageConfiguration
     --------------------------------------------------------------------}
-  
+
   TImageConfiguration = Class(TGoogleBaseObject)
   Private
     FimageType : String;
@@ -217,11 +217,11 @@ type
     Property url : String Index 24 Read Furl Write Seturl;
   end;
   TImageConfigurationClass = Class of TImageConfiguration;
-  
+
   { --------------------------------------------------------------------
     TLeaderboardConfiguration
     --------------------------------------------------------------------}
-  
+
   TLeaderboardConfiguration = Class(TGoogleBaseObject)
   Private
     Fdraft : TLeaderboardConfigurationDetail;
@@ -255,11 +255,11 @@ type
     Property token : String Index 56 Read Ftoken Write Settoken;
   end;
   TLeaderboardConfigurationClass = Class of TLeaderboardConfiguration;
-  
+
   { --------------------------------------------------------------------
     TLeaderboardConfigurationDetail
     --------------------------------------------------------------------}
-  
+
   TLeaderboardConfigurationDetail = Class(TGoogleBaseObject)
   Private
     FiconUrl : String;
@@ -283,11 +283,11 @@ type
     Property sortRank : integer Index 32 Read FsortRank Write SetsortRank;
   end;
   TLeaderboardConfigurationDetailClass = Class of TLeaderboardConfigurationDetail;
-  
+
   { --------------------------------------------------------------------
     TLeaderboardConfigurationListResponse
     --------------------------------------------------------------------}
-  
+
   TLeaderboardConfigurationListResponse = Class(TGoogleBaseObject)
   Private
     Fitems : TLeaderboardConfigurationListResponseTypeitemsArray;
@@ -309,11 +309,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TLeaderboardConfigurationListResponseClass = Class of TLeaderboardConfigurationListResponse;
-  
+
   { --------------------------------------------------------------------
     TLocalizedString
     --------------------------------------------------------------------}
-  
+
   TLocalizedString = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -331,11 +331,11 @@ type
     Property value : String Index 16 Read Fvalue Write Setvalue;
   end;
   TLocalizedStringClass = Class of TLocalizedString;
-  
+
   { --------------------------------------------------------------------
     TLocalizedStringBundle
     --------------------------------------------------------------------}
-  
+
   TLocalizedStringBundle = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -354,19 +354,19 @@ type
     Property translations : TLocalizedStringBundleTypetranslationsArray Index 8 Read Ftranslations Write Settranslations;
   end;
   TLocalizedStringBundleClass = Class of TLocalizedStringBundle;
-  
+
   { --------------------------------------------------------------------
     TAchievementConfigurationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TAchievementConfigurationsResource, method List
-  
+
   TAchievementConfigurationsListOptions = Record
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TAchievementConfigurationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -379,32 +379,32 @@ type
     Function Patch(achievementId: string; aAchievementConfiguration : TAchievementConfiguration) : TAchievementConfiguration;
     Function Update(achievementId: string; aAchievementConfiguration : TAchievementConfiguration) : TAchievementConfiguration;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TImageConfigurationsResource
     --------------------------------------------------------------------}
-  
+
   TImageConfigurationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Upload(imageType: string; resourceId: string) : TImageConfiguration;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TLeaderboardConfigurationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TLeaderboardConfigurationsResource, method List
-  
+
   TLeaderboardConfigurationsListOptions = Record
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TLeaderboardConfigurationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -417,12 +417,12 @@ type
     Function Patch(leaderboardId: string; aLeaderboardConfiguration : TLeaderboardConfiguration) : TLeaderboardConfiguration;
     Function Update(leaderboardId: string; aLeaderboardConfiguration : TLeaderboardConfiguration) : TLeaderboardConfiguration;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TGamesConfigurationAPI
     --------------------------------------------------------------------}
-  
+
   TGamesConfigurationAPI = Class(TGoogleAPI)
   Private
     FAchievementConfigurationsInstance : TAchievementConfigurationsResource;
@@ -474,7 +474,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; const AValue : String);
 
 begin
   If (FachievementType=AValue) then exit;
@@ -484,7 +484,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setdraft(AIndex : Integer; const AValue : TAchievementConfigurationDetail); 
+Procedure TAchievementConfiguration.Setdraft(AIndex : Integer; const AValue : TAchievementConfigurationDetail);
 
 begin
   If (Fdraft=AValue) then exit;
@@ -494,7 +494,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setid(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfiguration.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -504,7 +504,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; const AValue : String);
 
 begin
   If (FinitialState=AValue) then exit;
@@ -514,7 +514,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfiguration.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -524,7 +524,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Set_published(AIndex : Integer; const AValue : TAchievementConfigurationDetail); 
+Procedure TAchievementConfiguration.Set_published(AIndex : Integer; const AValue : TAchievementConfigurationDetail);
 
 begin
   If (F_published=AValue) then exit;
@@ -534,7 +534,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.SetstepsToUnlock(AIndex : Integer; const AValue : integer); 
+Procedure TAchievementConfiguration.SetstepsToUnlock(AIndex : Integer; const AValue : integer);
 
 begin
   If (FstepsToUnlock=AValue) then exit;
@@ -544,7 +544,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Settoken(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfiguration.Settoken(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftoken=AValue) then exit;
@@ -572,7 +572,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfigurationDetail.Setdescription(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TAchievementConfigurationDetail.Setdescription(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -582,7 +582,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -592,7 +592,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -602,7 +602,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TAchievementConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fname=AValue) then exit;
@@ -612,7 +612,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.SetpointValue(AIndex : Integer; const AValue : integer); 
+Procedure TAchievementConfigurationDetail.SetpointValue(AIndex : Integer; const AValue : integer);
 
 begin
   If (FpointValue=AValue) then exit;
@@ -622,7 +622,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer); 
+Procedure TAchievementConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer);
 
 begin
   If (FsortRank=AValue) then exit;
@@ -639,7 +639,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TAchievementConfigurationListResponseTypeitemsArray); 
+Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TAchievementConfigurationListResponseTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -649,7 +649,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -659,7 +659,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -670,7 +670,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TAchievementConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TAchievementConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -689,7 +689,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesNumberAffixConfiguration.Setfew(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Setfew(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Ffew=AValue) then exit;
@@ -699,7 +699,7 @@ end;
 
 
 
-Procedure TGamesNumberAffixConfiguration.Setmany(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Setmany(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fmany=AValue) then exit;
@@ -709,7 +709,7 @@ end;
 
 
 
-Procedure TGamesNumberAffixConfiguration.Setone(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Setone(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fone=AValue) then exit;
@@ -719,7 +719,7 @@ end;
 
 
 
-Procedure TGamesNumberAffixConfiguration.Setother(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Setother(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fother=AValue) then exit;
@@ -729,7 +729,7 @@ end;
 
 
 
-Procedure TGamesNumberAffixConfiguration.Settwo(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Settwo(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Ftwo=AValue) then exit;
@@ -739,7 +739,7 @@ end;
 
 
 
-Procedure TGamesNumberAffixConfiguration.Setzero(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TGamesNumberAffixConfiguration.Setzero(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fzero=AValue) then exit;
@@ -756,7 +756,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; const AValue : String); 
+Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -766,7 +766,7 @@ end;
 
 
 
-Procedure TGamesNumberFormatConfiguration.SetnumDecimalPlaces(AIndex : Integer; const AValue : integer); 
+Procedure TGamesNumberFormatConfiguration.SetnumDecimalPlaces(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumDecimalPlaces=AValue) then exit;
@@ -776,7 +776,7 @@ end;
 
 
 
-Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; const AValue : String); 
+Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; const AValue : String);
 
 begin
   If (FnumberFormatType=AValue) then exit;
@@ -786,7 +786,7 @@ end;
 
 
 
-Procedure TGamesNumberFormatConfiguration.Setsuffix(AIndex : Integer; const AValue : TGamesNumberAffixConfiguration); 
+Procedure TGamesNumberFormatConfiguration.Setsuffix(AIndex : Integer; const AValue : TGamesNumberAffixConfiguration);
 
 begin
   If (Fsuffix=AValue) then exit;
@@ -803,7 +803,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImageConfiguration.SetimageType(AIndex : Integer; const AValue : String); 
+Procedure TImageConfiguration.SetimageType(AIndex : Integer; const AValue : String);
 
 begin
   If (FimageType=AValue) then exit;
@@ -813,7 +813,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TImageConfiguration.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -823,7 +823,7 @@ end;
 
 
 
-Procedure TImageConfiguration.SetresourceId(AIndex : Integer; const AValue : String); 
+Procedure TImageConfiguration.SetresourceId(AIndex : Integer; const AValue : String);
 
 begin
   If (FresourceId=AValue) then exit;
@@ -833,7 +833,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Seturl(AIndex : Integer; const AValue : String); 
+Procedure TImageConfiguration.Seturl(AIndex : Integer; const AValue : String);
 
 begin
   If (Furl=AValue) then exit;
@@ -850,7 +850,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfiguration.Setdraft(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail); 
+Procedure TLeaderboardConfiguration.Setdraft(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail);
 
 begin
   If (Fdraft=AValue) then exit;
@@ -860,7 +860,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -880,7 +880,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Set_published(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail); 
+Procedure TLeaderboardConfiguration.Set_published(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail);
 
 begin
   If (F_published=AValue) then exit;
@@ -890,7 +890,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; const AValue : String);
 
 begin
   If (FscoreMax=AValue) then exit;
@@ -900,7 +900,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; const AValue : String);
 
 begin
   If (FscoreMin=AValue) then exit;
@@ -910,7 +910,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; const AValue : String);
 
 begin
   If (FscoreOrder=AValue) then exit;
@@ -920,7 +920,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftoken=AValue) then exit;
@@ -948,7 +948,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -958,7 +958,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle); 
+Procedure TLeaderboardConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle);
 
 begin
   If (Fname=AValue) then exit;
@@ -978,7 +978,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.SetscoreFormat(AIndex : Integer; const AValue : TGamesNumberFormatConfiguration); 
+Procedure TLeaderboardConfigurationDetail.SetscoreFormat(AIndex : Integer; const AValue : TGamesNumberFormatConfiguration);
 
 begin
   If (FscoreFormat=AValue) then exit;
@@ -988,7 +988,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer); 
+Procedure TLeaderboardConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer);
 
 begin
   If (FsortRank=AValue) then exit;
@@ -1005,7 +1005,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TLeaderboardConfigurationListResponseTypeitemsArray); 
+Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TLeaderboardConfigurationListResponseTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -1015,7 +1015,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1025,7 +1025,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1036,7 +1036,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TLeaderboardConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TLeaderboardConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1055,7 +1055,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedString.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLocalizedString.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1065,7 +1065,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setlocale(AIndex : Integer; const AValue : String); 
+Procedure TLocalizedString.Setlocale(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocale=AValue) then exit;
@@ -1075,7 +1075,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TLocalizedString.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1092,7 +1092,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1102,7 +1102,7 @@ end;
 
 
 
-Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; const AValue : TLocalizedStringBundleTypetranslationsArray); 
+Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; const AValue : TLocalizedStringBundleTypetranslationsArray);
 
 begin
   If (Ftranslations=AValue) then exit;
@@ -1113,7 +1113,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TLocalizedStringBundle.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TLocalizedStringBundle.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1517,7 +1517,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/androidpublisher';
   Result[0].Description:='View and manage your Google Play Developer account';
-  
+
 end;
 
 Class Function TGamesConfigurationAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlegamesmanagement.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TAchievementResetAllResponse = Class;
   TAchievementResetMultipleForAllRequest = Class;
@@ -50,11 +50,11 @@ type
   TAchievementResetAllResponseTyperesultsArray = Array of TAchievementResetResponse;
   THiddenPlayerListTypeitemsArray = Array of THiddenPlayer;
   TPlayerScoreResetAllResponseTyperesultsArray = Array of TPlayerScoreResetResponse;
-  
+
   { --------------------------------------------------------------------
     TAchievementResetAllResponse
     --------------------------------------------------------------------}
-  
+
   TAchievementResetAllResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -73,11 +73,11 @@ type
     Property results : TAchievementResetAllResponseTyperesultsArray Index 8 Read Fresults Write Setresults;
   end;
   TAchievementResetAllResponseClass = Class of TAchievementResetAllResponse;
-  
+
   { --------------------------------------------------------------------
     TAchievementResetMultipleForAllRequest
     --------------------------------------------------------------------}
-  
+
   TAchievementResetMultipleForAllRequest = Class(TGoogleBaseObject)
   Private
     Fachievement_ids : TStringArray;
@@ -96,11 +96,11 @@ type
     Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TAchievementResetMultipleForAllRequestClass = Class of TAchievementResetMultipleForAllRequest;
-  
+
   { --------------------------------------------------------------------
     TAchievementResetResponse
     --------------------------------------------------------------------}
-  
+
   TAchievementResetResponse = Class(TGoogleBaseObject)
   Private
     FcurrentState : String;
@@ -121,11 +121,11 @@ type
     Property updateOccurred : boolean Index 24 Read FupdateOccurred Write SetupdateOccurred;
   end;
   TAchievementResetResponseClass = Class of TAchievementResetResponse;
-  
+
   { --------------------------------------------------------------------
     TEventsResetMultipleForAllRequest
     --------------------------------------------------------------------}
-  
+
   TEventsResetMultipleForAllRequest = Class(TGoogleBaseObject)
   Private
     Fevent_ids : TStringArray;
@@ -144,11 +144,11 @@ type
     Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TEventsResetMultipleForAllRequestClass = Class of TEventsResetMultipleForAllRequest;
-  
+
   { --------------------------------------------------------------------
     TGamesPlayedResource
     --------------------------------------------------------------------}
-  
+
   TGamesPlayedResource = Class(TGoogleBaseObject)
   Private
     FautoMatched : boolean;
@@ -163,11 +163,11 @@ type
     Property timeMillis : String Index 8 Read FtimeMillis Write SettimeMillis;
   end;
   TGamesPlayedResourceClass = Class of TGamesPlayedResource;
-  
+
   { --------------------------------------------------------------------
     TGamesPlayerExperienceInfoResource
     --------------------------------------------------------------------}
-  
+
   TGamesPlayerExperienceInfoResource = Class(TGoogleBaseObject)
   Private
     FcurrentExperiencePoints : String;
@@ -188,11 +188,11 @@ type
     Property nextLevel : TGamesPlayerLevelResource Index 24 Read FnextLevel Write SetnextLevel;
   end;
   TGamesPlayerExperienceInfoResourceClass = Class of TGamesPlayerExperienceInfoResource;
-  
+
   { --------------------------------------------------------------------
     TGamesPlayerLevelResource
     --------------------------------------------------------------------}
-  
+
   TGamesPlayerLevelResource = Class(TGoogleBaseObject)
   Private
     Flevel : integer;
@@ -210,11 +210,11 @@ type
     Property minExperiencePoints : String Index 16 Read FminExperiencePoints Write SetminExperiencePoints;
   end;
   TGamesPlayerLevelResourceClass = Class of TGamesPlayerLevelResource;
-  
+
   { --------------------------------------------------------------------
     THiddenPlayer
     --------------------------------------------------------------------}
-  
+
   THiddenPlayer = Class(TGoogleBaseObject)
   Private
     FhiddenTimeMillis : String;
@@ -232,11 +232,11 @@ type
     Property player : TPlayer Index 16 Read Fplayer Write Setplayer;
   end;
   THiddenPlayerClass = Class of THiddenPlayer;
-  
+
   { --------------------------------------------------------------------
     THiddenPlayerList
     --------------------------------------------------------------------}
-  
+
   THiddenPlayerList = Class(TGoogleBaseObject)
   Private
     Fitems : THiddenPlayerListTypeitemsArray;
@@ -258,11 +258,11 @@ type
     Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   THiddenPlayerListClass = Class of THiddenPlayerList;
-  
+
   { --------------------------------------------------------------------
     TPlayerTypename
     --------------------------------------------------------------------}
-  
+
   TPlayerTypename = Class(TGoogleBaseObject)
   Private
     FfamilyName : String;
@@ -277,11 +277,11 @@ type
     Property givenName : String Index 8 Read FgivenName Write SetgivenName;
   end;
   TPlayerTypenameClass = Class of TPlayerTypename;
-  
+
   { --------------------------------------------------------------------
     TPlayer
     --------------------------------------------------------------------}
-  
+
   TPlayer = Class(TGoogleBaseObject)
   Private
     FavatarImageUrl : String;
@@ -326,11 +326,11 @@ type
     Property title : String Index 88 Read Ftitle Write Settitle;
   end;
   TPlayerClass = Class of TPlayer;
-  
+
   { --------------------------------------------------------------------
     TPlayerScoreResetAllResponse
     --------------------------------------------------------------------}
-  
+
   TPlayerScoreResetAllResponse = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -349,11 +349,11 @@ type
     Property results : TPlayerScoreResetAllResponseTyperesultsArray Index 8 Read Fresults Write Setresults;
   end;
   TPlayerScoreResetAllResponseClass = Class of TPlayerScoreResetAllResponse;
-  
+
   { --------------------------------------------------------------------
     TPlayerScoreResetResponse
     --------------------------------------------------------------------}
-  
+
   TPlayerScoreResetResponse = Class(TGoogleBaseObject)
   Private
     FdefinitionId : String;
@@ -375,11 +375,11 @@ type
     Property resetScoreTimeSpans : TStringArray Index 16 Read FresetScoreTimeSpans Write SetresetScoreTimeSpans;
   end;
   TPlayerScoreResetResponseClass = Class of TPlayerScoreResetResponse;
-  
+
   { --------------------------------------------------------------------
     TProfileSettings
     --------------------------------------------------------------------}
-  
+
   TProfileSettings = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -394,11 +394,11 @@ type
     Property profileVisible : boolean Index 8 Read FprofileVisible Write SetprofileVisible;
   end;
   TProfileSettingsClass = Class of TProfileSettings;
-  
+
   { --------------------------------------------------------------------
     TQuestsResetMultipleForAllRequest
     --------------------------------------------------------------------}
-  
+
   TQuestsResetMultipleForAllRequest = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -417,11 +417,11 @@ type
     Property quest_ids : TStringArray Index 8 Read Fquest_ids Write Setquest_ids;
   end;
   TQuestsResetMultipleForAllRequestClass = Class of TQuestsResetMultipleForAllRequest;
-  
+
   { --------------------------------------------------------------------
     TScoresResetMultipleForAllRequest
     --------------------------------------------------------------------}
-  
+
   TScoresResetMultipleForAllRequest = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -440,11 +440,11 @@ type
     Property leaderboard_ids : TStringArray Index 8 Read Fleaderboard_ids Write Setleaderboard_ids;
   end;
   TScoresResetMultipleForAllRequestClass = Class of TScoresResetMultipleForAllRequest;
-  
+
   { --------------------------------------------------------------------
     TAchievementsResource
     --------------------------------------------------------------------}
-  
+
   TAchievementsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -455,20 +455,20 @@ type
     Procedure ResetForAllPlayers(achievementId: string);
     Procedure ResetMultipleForAllPlayers(aAchievementResetMultipleForAllRequest : TAchievementResetMultipleForAllRequest);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TApplicationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TApplicationsResource, method ListHidden
-  
+
   TApplicationsListHiddenOptions = Record
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TApplicationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -476,12 +476,12 @@ type
     Function ListHidden(applicationId: string; AQuery : string  = '') : THiddenPlayerList;
     Function ListHidden(applicationId: string; AQuery : TApplicationslistHiddenOptions) : THiddenPlayerList;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TEventsResource
     --------------------------------------------------------------------}
-  
+
   TEventsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -492,12 +492,12 @@ type
     Procedure ResetForAllPlayers(eventId: string);
     Procedure ResetMultipleForAllPlayers(aEventsResetMultipleForAllRequest : TEventsResetMultipleForAllRequest);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TPlayersResource
     --------------------------------------------------------------------}
-  
+
   TPlayersResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -505,12 +505,12 @@ type
     Procedure Hide(applicationId: string; playerId: string);
     Procedure Unhide(applicationId: string; playerId: string);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TQuestsResource
     --------------------------------------------------------------------}
-  
+
   TQuestsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -521,12 +521,12 @@ type
     Procedure ResetForAllPlayers(questId: string);
     Procedure ResetMultipleForAllPlayers(aQuestsResetMultipleForAllRequest : TQuestsResetMultipleForAllRequest);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TRoomsResource
     --------------------------------------------------------------------}
-  
+
   TRoomsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -534,12 +534,12 @@ type
     Procedure Reset;
     Procedure ResetForAllPlayers;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TScoresResource
     --------------------------------------------------------------------}
-  
+
   TScoresResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -550,12 +550,12 @@ type
     Procedure ResetForAllPlayers(leaderboardId: string);
     Procedure ResetMultipleForAllPlayers(aScoresResetMultipleForAllRequest : TScoresResetMultipleForAllRequest);
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTurnBasedMatchesResource
     --------------------------------------------------------------------}
-  
+
   TTurnBasedMatchesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -563,12 +563,12 @@ type
     Procedure Reset;
     Procedure ResetForAllPlayers;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TGamesManagementAPI
     --------------------------------------------------------------------}
-  
+
   TGamesManagementAPI = Class(TGoogleAPI)
   Private
     FAchievementsInstance : TAchievementsResource;
@@ -645,7 +645,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementResetAllResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementResetAllResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -655,7 +655,7 @@ end;
 
 
 
-Procedure TAchievementResetAllResponse.Setresults(AIndex : Integer; const AValue : TAchievementResetAllResponseTyperesultsArray); 
+Procedure TAchievementResetAllResponse.Setresults(AIndex : Integer; const AValue : TAchievementResetAllResponseTyperesultsArray);
 
 begin
   If (Fresults=AValue) then exit;
@@ -666,7 +666,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TAchievementResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TAchievementResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -685,7 +685,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementResetMultipleForAllRequest.Setachievement_ids(AIndex : Integer; const AValue : TStringArray); 
+Procedure TAchievementResetMultipleForAllRequest.Setachievement_ids(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fachievement_ids=AValue) then exit;
@@ -695,7 +695,7 @@ end;
 
 
 
-Procedure TAchievementResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -706,7 +706,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TAchievementResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TAchievementResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -725,7 +725,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementResetResponse.SetcurrentState(AIndex : Integer; const AValue : String); 
+Procedure TAchievementResetResponse.SetcurrentState(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrentState=AValue) then exit;
@@ -735,7 +735,7 @@ end;
 
 
 
-Procedure TAchievementResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String); 
+Procedure TAchievementResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String);
 
 begin
   If (FdefinitionId=AValue) then exit;
@@ -745,7 +745,7 @@ end;
 
 
 
-Procedure TAchievementResetResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAchievementResetResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -755,7 +755,7 @@ end;
 
 
 
-Procedure TAchievementResetResponse.SetupdateOccurred(AIndex : Integer; const AValue : boolean); 
+Procedure TAchievementResetResponse.SetupdateOccurred(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FupdateOccurred=AValue) then exit;
@@ -772,7 +772,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEventsResetMultipleForAllRequest.Setevent_ids(AIndex : Integer; const AValue : TStringArray); 
+Procedure TEventsResetMultipleForAllRequest.Setevent_ids(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fevent_ids=AValue) then exit;
@@ -782,7 +782,7 @@ end;
 
 
 
-Procedure TEventsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TEventsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -793,7 +793,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TEventsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TEventsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -812,7 +812,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesPlayedResource.SetautoMatched(AIndex : Integer; const AValue : boolean); 
+Procedure TGamesPlayedResource.SetautoMatched(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FautoMatched=AValue) then exit;
@@ -822,7 +822,7 @@ end;
 
 
 
-Procedure TGamesPlayedResource.SettimeMillis(AIndex : Integer; const AValue : String); 
+Procedure TGamesPlayedResource.SettimeMillis(AIndex : Integer; const AValue : String);
 
 begin
   If (FtimeMillis=AValue) then exit;
@@ -839,7 +839,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); 
+Procedure TGamesPlayerExperienceInfoResource.SetcurrentExperiencePoints(AIndex : Integer; const AValue : String);
 
 begin
   If (FcurrentExperiencePoints=AValue) then exit;
@@ -849,7 +849,7 @@ end;
 
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetcurrentLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource); 
+Procedure TGamesPlayerExperienceInfoResource.SetcurrentLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource);
 
 begin
   If (FcurrentLevel=AValue) then exit;
@@ -859,7 +859,7 @@ end;
 
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); 
+Procedure TGamesPlayerExperienceInfoResource.SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String);
 
 begin
   If (FlastLevelUpTimestampMillis=AValue) then exit;
@@ -869,7 +869,7 @@ end;
 
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetnextLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource); 
+Procedure TGamesPlayerExperienceInfoResource.SetnextLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource);
 
 begin
   If (FnextLevel=AValue) then exit;
@@ -886,7 +886,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesPlayerLevelResource.Setlevel(AIndex : Integer; const AValue : integer); 
+Procedure TGamesPlayerLevelResource.Setlevel(AIndex : Integer; const AValue : integer);
 
 begin
   If (Flevel=AValue) then exit;
@@ -896,7 +896,7 @@ end;
 
 
 
-Procedure TGamesPlayerLevelResource.SetmaxExperiencePoints(AIndex : Integer; const AValue : String); 
+Procedure TGamesPlayerLevelResource.SetmaxExperiencePoints(AIndex : Integer; const AValue : String);
 
 begin
   If (FmaxExperiencePoints=AValue) then exit;
@@ -906,7 +906,7 @@ end;
 
 
 
-Procedure TGamesPlayerLevelResource.SetminExperiencePoints(AIndex : Integer; const AValue : String); 
+Procedure TGamesPlayerLevelResource.SetminExperiencePoints(AIndex : Integer; const AValue : String);
 
 begin
   If (FminExperiencePoints=AValue) then exit;
@@ -923,7 +923,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THiddenPlayer.SethiddenTimeMillis(AIndex : Integer; const AValue : String); 
+Procedure THiddenPlayer.SethiddenTimeMillis(AIndex : Integer; const AValue : String);
 
 begin
   If (FhiddenTimeMillis=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure THiddenPlayer.Setkind(AIndex : Integer; const AValue : String); 
+Procedure THiddenPlayer.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -943,7 +943,7 @@ end;
 
 
 
-Procedure THiddenPlayer.Setplayer(AIndex : Integer; const AValue : TPlayer); 
+Procedure THiddenPlayer.Setplayer(AIndex : Integer; const AValue : TPlayer);
 
 begin
   If (Fplayer=AValue) then exit;
@@ -960,7 +960,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THiddenPlayerList.Setitems(AIndex : Integer; const AValue : THiddenPlayerListTypeitemsArray); 
+Procedure THiddenPlayerList.Setitems(AIndex : Integer; const AValue : THiddenPlayerListTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -970,7 +970,7 @@ end;
 
 
 
-Procedure THiddenPlayerList.Setkind(AIndex : Integer; const AValue : String); 
+Procedure THiddenPlayerList.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -980,7 +980,7 @@ end;
 
 
 
-Procedure THiddenPlayerList.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure THiddenPlayerList.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -991,7 +991,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure THiddenPlayerList.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure THiddenPlayerList.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1010,7 +1010,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerTypename.SetfamilyName(AIndex : Integer; const AValue : String); 
+Procedure TPlayerTypename.SetfamilyName(AIndex : Integer; const AValue : String);
 
 begin
   If (FfamilyName=AValue) then exit;
@@ -1020,7 +1020,7 @@ end;
 
 
 
-Procedure TPlayerTypename.SetgivenName(AIndex : Integer; const AValue : String); 
+Procedure TPlayerTypename.SetgivenName(AIndex : Integer; const AValue : String);
 
 begin
   If (FgivenName=AValue) then exit;
@@ -1037,7 +1037,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayer.SetavatarImageUrl(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetavatarImageUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FavatarImageUrl=AValue) then exit;
@@ -1047,7 +1047,7 @@ end;
 
 
 
-Procedure TPlayer.SetbannerUrlLandscape(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetbannerUrlLandscape(AIndex : Integer; const AValue : String);
 
 begin
   If (FbannerUrlLandscape=AValue) then exit;
@@ -1057,7 +1057,7 @@ end;
 
 
 
-Procedure TPlayer.SetbannerUrlPortrait(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetbannerUrlPortrait(AIndex : Integer; const AValue : String);
 
 begin
   If (FbannerUrlPortrait=AValue) then exit;
@@ -1067,7 +1067,7 @@ end;
 
 
 
-Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String);
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1077,7 +1077,7 @@ end;
 
 
 
-Procedure TPlayer.SetexperienceInfo(AIndex : Integer; const AValue : TGamesPlayerExperienceInfoResource); 
+Procedure TPlayer.SetexperienceInfo(AIndex : Integer; const AValue : TGamesPlayerExperienceInfoResource);
 
 begin
   If (FexperienceInfo=AValue) then exit;
@@ -1087,7 +1087,7 @@ end;
 
 
 
-Procedure TPlayer.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1097,7 +1097,7 @@ end;
 
 
 
-Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; const AValue : TGamesPlayedResource); 
+Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; const AValue : TGamesPlayedResource);
 
 begin
   If (FlastPlayedWith=AValue) then exit;
@@ -1107,7 +1107,7 @@ end;
 
 
 
-Procedure TPlayer.Setname(AIndex : Integer; const AValue : TPlayerTypename); 
+Procedure TPlayer.Setname(AIndex : Integer; const AValue : TPlayerTypename);
 
 begin
   If (Fname=AValue) then exit;
@@ -1117,7 +1117,7 @@ end;
 
 
 
-Procedure TPlayer.SetoriginalPlayerId(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetoriginalPlayerId(AIndex : Integer; const AValue : String);
 
 begin
   If (ForiginalPlayerId=AValue) then exit;
@@ -1127,7 +1127,7 @@ end;
 
 
 
-Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FplayerId=AValue) then exit;
@@ -1137,7 +1137,7 @@ end;
 
 
 
-Procedure TPlayer.SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings); 
+Procedure TPlayer.SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings);
 
 begin
   If (FprofileSettings=AValue) then exit;
@@ -1147,7 +1147,7 @@ end;
 
 
 
-Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1164,7 +1164,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerScoreResetAllResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TPlayerScoreResetAllResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1174,7 +1174,7 @@ end;
 
 
 
-Procedure TPlayerScoreResetAllResponse.Setresults(AIndex : Integer; const AValue : TPlayerScoreResetAllResponseTyperesultsArray); 
+Procedure TPlayerScoreResetAllResponse.Setresults(AIndex : Integer; const AValue : TPlayerScoreResetAllResponseTyperesultsArray);
 
 begin
   If (Fresults=AValue) then exit;
@@ -1185,7 +1185,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPlayerScoreResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPlayerScoreResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1204,7 +1204,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerScoreResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String); 
+Procedure TPlayerScoreResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String);
 
 begin
   If (FdefinitionId=AValue) then exit;
@@ -1214,7 +1214,7 @@ end;
 
 
 
-Procedure TPlayerScoreResetResponse.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TPlayerScoreResetResponse.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1224,7 +1224,7 @@ end;
 
 
 
-Procedure TPlayerScoreResetResponse.SetresetScoreTimeSpans(AIndex : Integer; const AValue : TStringArray); 
+Procedure TPlayerScoreResetResponse.SetresetScoreTimeSpans(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FresetScoreTimeSpans=AValue) then exit;
@@ -1235,7 +1235,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPlayerScoreResetResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPlayerScoreResetResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1254,7 +1254,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProfileSettings.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TProfileSettings.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1264,7 +1264,7 @@ end;
 
 
 
-Procedure TProfileSettings.SetprofileVisible(AIndex : Integer; const AValue : boolean); 
+Procedure TProfileSettings.SetprofileVisible(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FprofileVisible=AValue) then exit;
@@ -1281,7 +1281,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuestsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TQuestsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1291,7 +1291,7 @@ end;
 
 
 
-Procedure TQuestsResetMultipleForAllRequest.Setquest_ids(AIndex : Integer; const AValue : TStringArray); 
+Procedure TQuestsResetMultipleForAllRequest.Setquest_ids(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fquest_ids=AValue) then exit;
@@ -1302,7 +1302,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TQuestsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TQuestsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1321,7 +1321,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TScoresResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TScoresResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1331,7 +1331,7 @@ end;
 
 
 
-Procedure TScoresResetMultipleForAllRequest.Setleaderboard_ids(AIndex : Integer; const AValue : TStringArray); 
+Procedure TScoresResetMultipleForAllRequest.Setleaderboard_ids(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fleaderboard_ids=AValue) then exit;
@@ -1342,7 +1342,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TScoresResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TScoresResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1976,7 +1976,7 @@ begin
   Result[0].Description:='Share your Google+ profile information and view and manage your game activity';
   Result[1].Name:='https://www.googleapis.com/auth/plus.login';
   Result[1].Description:='Know the list of people in your circles, your age range, and language';
-  
+
 end;
 
 Class Function TGamesManagementAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlegroupsmigration.pp

@@ -13,16 +13,16 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TGroups = Class;
   TGroupsArray = Array of TGroups;
   //Anonymous types, using auto-generated names
-  
+
   { --------------------------------------------------------------------
     TGroups
     --------------------------------------------------------------------}
-  
+
   TGroups = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -37,23 +37,23 @@ type
     Property responseCode : String Index 8 Read FresponseCode Write SetresponseCode;
   end;
   TGroupsClass = Class of TGroups;
-  
+
   { --------------------------------------------------------------------
     TArchiveResource
     --------------------------------------------------------------------}
-  
+
   TArchiveResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Insert(groupId: string) : TGroups;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TGroupsmigrationAPI
     --------------------------------------------------------------------}
-  
+
   TGroupsmigrationAPI = Class(TGoogleAPI)
   Private
     FArchiveInstance : TArchiveResource;
@@ -95,7 +95,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TGroups.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -105,7 +105,7 @@ end;
 
 
 
-Procedure TGroups.SetresponseCode(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetresponseCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FresponseCode=AValue) then exit;
@@ -263,7 +263,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/apps.groups.migration';
   Result[0].Description:='Manage messages in groups on your domain';
-  
+
 end;
 
 Class Function TGroupsmigrationAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlegroupssettings.pp

@@ -13,16 +13,16 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TGroups = Class;
   TGroupsArray = Array of TGroups;
   //Anonymous types, using auto-generated names
-  
+
   { --------------------------------------------------------------------
     TGroups
     --------------------------------------------------------------------}
-  
+
   TGroups = Class(TGoogleBaseObject)
   Private
     FallowExternalMembers : String;
@@ -118,11 +118,11 @@ type
     Property whoCanViewMembership : String Index 224 Read FwhoCanViewMembership Write SetwhoCanViewMembership;
   end;
   TGroupsClass = Class of TGroups;
-  
+
   { --------------------------------------------------------------------
     TGroupsResource
     --------------------------------------------------------------------}
-  
+
   TGroupsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -131,12 +131,12 @@ type
     Function Patch(groupUniqueId: string; aGroups : TGroups) : TGroups;
     Function Update(groupUniqueId: string; aGroups : TGroups) : TGroups;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TGroupssettingsAPI
     --------------------------------------------------------------------}
-  
+
   TGroupssettingsAPI = Class(TGoogleAPI)
   Private
     FGroupsInstance : TGroupsResource;
@@ -178,7 +178,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.SetallowExternalMembers(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetallowExternalMembers(AIndex : Integer; const AValue : String);
 
 begin
   If (FallowExternalMembers=AValue) then exit;
@@ -188,7 +188,7 @@ end;
 
 
 
-Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; const AValue : String);
 
 begin
   If (FallowGoogleCommunication=AValue) then exit;
@@ -198,7 +198,7 @@ end;
 
 
 
-Procedure TGroups.SetallowWebPosting(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetallowWebPosting(AIndex : Integer; const AValue : String);
 
 begin
   If (FallowWebPosting=AValue) then exit;
@@ -208,7 +208,7 @@ end;
 
 
 
-Procedure TGroups.SetarchiveOnly(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetarchiveOnly(AIndex : Integer; const AValue : String);
 
 begin
   If (FarchiveOnly=AValue) then exit;
@@ -218,7 +218,7 @@ end;
 
 
 
-Procedure TGroups.SetcustomReplyTo(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetcustomReplyTo(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomReplyTo=AValue) then exit;
@@ -228,7 +228,7 @@ end;
 
 
 
-Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; const AValue : String);
 
 begin
   If (FdefaultMessageDenyNotificationText=AValue) then exit;
@@ -238,7 +238,7 @@ end;
 
 
 
-Procedure TGroups.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TGroups.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -248,7 +248,7 @@ end;
 
 
 
-Procedure TGroups.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TGroups.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -258,7 +258,7 @@ end;
 
 
 
-Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; const AValue : String);
 
 begin
   If (FincludeInGlobalAddressList=AValue) then exit;
@@ -268,7 +268,7 @@ end;
 
 
 
-Procedure TGroups.SetisArchived(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetisArchived(AIndex : Integer; const AValue : String);
 
 begin
   If (FisArchived=AValue) then exit;
@@ -278,7 +278,7 @@ end;
 
 
 
-Procedure TGroups.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TGroups.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -288,7 +288,7 @@ end;
 
 
 
-Procedure TGroups.SetmaxMessageBytes(AIndex : Integer; const AValue : integer); 
+Procedure TGroups.SetmaxMessageBytes(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmaxMessageBytes=AValue) then exit;
@@ -298,7 +298,7 @@ end;
 
 
 
-Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; const AValue : String);
 
 begin
   If (FmembersCanPostAsTheGroup=AValue) then exit;
@@ -308,7 +308,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; const AValue : String);
 
 begin
   If (FmessageDisplayFont=AValue) then exit;
@@ -318,7 +318,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; const AValue : String);
 
 begin
   If (FmessageModerationLevel=AValue) then exit;
@@ -328,7 +328,7 @@ end;
 
 
 
-Procedure TGroups.Setname(AIndex : Integer; const AValue : String); 
+Procedure TGroups.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -338,7 +338,7 @@ end;
 
 
 
-Procedure TGroups.SetprimaryLanguage(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetprimaryLanguage(AIndex : Integer; const AValue : String);
 
 begin
   If (FprimaryLanguage=AValue) then exit;
@@ -348,7 +348,7 @@ end;
 
 
 
-Procedure TGroups.SetreplyTo(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetreplyTo(AIndex : Integer; const AValue : String);
 
 begin
   If (FreplyTo=AValue) then exit;
@@ -358,7 +358,7 @@ end;
 
 
 
-Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; const AValue : String);
 
 begin
   If (FsendMessageDenyNotification=AValue) then exit;
@@ -368,7 +368,7 @@ end;
 
 
 
-Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; const AValue : String);
 
 begin
   If (FshowInGroupDirectory=AValue) then exit;
@@ -378,7 +378,7 @@ end;
 
 
 
-Procedure TGroups.SetspamModerationLevel(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetspamModerationLevel(AIndex : Integer; const AValue : String);
 
 begin
   If (FspamModerationLevel=AValue) then exit;
@@ -388,7 +388,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanAdd(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanAdd(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanAdd=AValue) then exit;
@@ -398,7 +398,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanContactOwner=AValue) then exit;
@@ -408,7 +408,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanInvite(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanInvite(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanInvite=AValue) then exit;
@@ -418,7 +418,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanJoin(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanJoin(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanJoin=AValue) then exit;
@@ -428,7 +428,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanLeaveGroup=AValue) then exit;
@@ -438,7 +438,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanPostMessage=AValue) then exit;
@@ -448,7 +448,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanViewGroup=AValue) then exit;
@@ -458,7 +458,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; const AValue : String); 
+Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; const AValue : String);
 
 begin
   If (FwhoCanViewMembership=AValue) then exit;
@@ -646,7 +646,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/apps.groups.settings';
   Result[0].Description:='View and manage the settings of a Google Apps Group';
-  
+
 end;
 
 Class Function TGroupssettingsAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleiam.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TListServiceAccountsResponse = Class;
   TServiceAccount = Class;
@@ -62,11 +62,11 @@ type
   TPolicyTyperulesArray = Array of TRule;
   TRuleTypeconditionsArray = Array of TCondition;
   TRuleTypelogConfigArray = Array of TLogConfig;
-  
+
   { --------------------------------------------------------------------
     TListServiceAccountsResponse
     --------------------------------------------------------------------}
-  
+
   TListServiceAccountsResponse = Class(TGoogleBaseObject)
   Private
     Faccounts : TListServiceAccountsResponseTypeaccountsArray;
@@ -85,11 +85,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListServiceAccountsResponseClass = Class of TListServiceAccountsResponse;
-  
+
   { --------------------------------------------------------------------
     TServiceAccount
     --------------------------------------------------------------------}
-  
+
   TServiceAccount = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -119,11 +119,11 @@ type
     Property oauth2ClientId : String Index 48 Read Foauth2ClientId Write Setoauth2ClientId;
   end;
   TServiceAccountClass = Class of TServiceAccount;
-  
+
   { --------------------------------------------------------------------
     TCreateServiceAccountRequest
     --------------------------------------------------------------------}
-  
+
   TCreateServiceAccountRequest = Class(TGoogleBaseObject)
   Private
     FaccountId : String;
@@ -138,11 +138,11 @@ type
     Property serviceAccount : TServiceAccount Index 8 Read FserviceAccount Write SetserviceAccount;
   end;
   TCreateServiceAccountRequestClass = Class of TCreateServiceAccountRequest;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -151,11 +151,11 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TListServiceAccountKeysResponse
     --------------------------------------------------------------------}
-  
+
   TListServiceAccountKeysResponse = Class(TGoogleBaseObject)
   Private
     Fkeys : TListServiceAccountKeysResponseTypekeysArray;
@@ -171,11 +171,11 @@ type
     Property keys : TListServiceAccountKeysResponseTypekeysArray Index 0 Read Fkeys Write Setkeys;
   end;
   TListServiceAccountKeysResponseClass = Class of TListServiceAccountKeysResponse;
-  
+
   { --------------------------------------------------------------------
     TServiceAccountKey
     --------------------------------------------------------------------}
-  
+
   TServiceAccountKey = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -199,11 +199,11 @@ type
     Property validBeforeTime : String Index 32 Read FvalidBeforeTime Write SetvalidBeforeTime;
   end;
   TServiceAccountKeyClass = Class of TServiceAccountKey;
-  
+
   { --------------------------------------------------------------------
     TCreateServiceAccountKeyRequest
     --------------------------------------------------------------------}
-  
+
   TCreateServiceAccountKeyRequest = Class(TGoogleBaseObject)
   Private
     FprivateKeyType : String;
@@ -215,11 +215,11 @@ type
     Property privateKeyType : String Index 0 Read FprivateKeyType Write SetprivateKeyType;
   end;
   TCreateServiceAccountKeyRequestClass = Class of TCreateServiceAccountKeyRequest;
-  
+
   { --------------------------------------------------------------------
     TSignBlobRequest
     --------------------------------------------------------------------}
-  
+
   TSignBlobRequest = Class(TGoogleBaseObject)
   Private
     FbytesToSign : String;
@@ -231,11 +231,11 @@ type
     Property bytesToSign : String Index 0 Read FbytesToSign Write SetbytesToSign;
   end;
   TSignBlobRequestClass = Class of TSignBlobRequest;
-  
+
   { --------------------------------------------------------------------
     TSignBlobResponse
     --------------------------------------------------------------------}
-  
+
   TSignBlobResponse = Class(TGoogleBaseObject)
   Private
     FkeyId : String;
@@ -250,11 +250,11 @@ type
     Property signature : String Index 8 Read Fsignature Write Setsignature;
   end;
   TSignBlobResponseClass = Class of TSignBlobResponse;
-  
+
   { --------------------------------------------------------------------
     TPolicy
     --------------------------------------------------------------------}
-  
+
   TPolicy = Class(TGoogleBaseObject)
   Private
     Fversion : integer;
@@ -279,11 +279,11 @@ type
     Property etag : String Index 24 Read Fetag Write Setetag;
   end;
   TPolicyClass = Class of TPolicy;
-  
+
   { --------------------------------------------------------------------
     TBinding
     --------------------------------------------------------------------}
-  
+
   TBinding = Class(TGoogleBaseObject)
   Private
     Frole : String;
@@ -302,11 +302,11 @@ type
     Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
   end;
   TBindingClass = Class of TBinding;
-  
+
   { --------------------------------------------------------------------
     TRule
     --------------------------------------------------------------------}
-  
+
   TRule = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -341,11 +341,11 @@ type
     Property logConfig : TRuleTypelogConfigArray Index 48 Read FlogConfig Write SetlogConfig;
   end;
   TRuleClass = Class of TRule;
-  
+
   { --------------------------------------------------------------------
     TCondition
     --------------------------------------------------------------------}
-  
+
   TCondition = Class(TGoogleBaseObject)
   Private
     Fiam : String;
@@ -376,11 +376,11 @@ type
     Property values : TStringArray Index 40 Read Fvalues Write Setvalues;
   end;
   TConditionClass = Class of TCondition;
-  
+
   { --------------------------------------------------------------------
     TLogConfig
     --------------------------------------------------------------------}
-  
+
   TLogConfig = Class(TGoogleBaseObject)
   Private
     Fcounter : TCounterOptions;
@@ -398,11 +398,11 @@ type
     Property cloudAudit : TCloudAuditOptions Index 16 Read FcloudAudit Write SetcloudAudit;
   end;
   TLogConfigClass = Class of TLogConfig;
-  
+
   { --------------------------------------------------------------------
     TCounterOptions
     --------------------------------------------------------------------}
-  
+
   TCounterOptions = Class(TGoogleBaseObject)
   Private
     Fmetric : String;
@@ -417,11 +417,11 @@ type
     Property field : String Index 8 Read Ffield Write Setfield;
   end;
   TCounterOptionsClass = Class of TCounterOptions;
-  
+
   { --------------------------------------------------------------------
     TDataAccessOptions
     --------------------------------------------------------------------}
-  
+
   TDataAccessOptions = Class(TGoogleBaseObject)
   Private
   Protected
@@ -430,11 +430,11 @@ type
   Published
   end;
   TDataAccessOptionsClass = Class of TDataAccessOptions;
-  
+
   { --------------------------------------------------------------------
     TCloudAuditOptions
     --------------------------------------------------------------------}
-  
+
   TCloudAuditOptions = Class(TGoogleBaseObject)
   Private
   Protected
@@ -443,11 +443,11 @@ type
   Published
   end;
   TCloudAuditOptionsClass = Class of TCloudAuditOptions;
-  
+
   { --------------------------------------------------------------------
     TSetIamPolicyRequest
     --------------------------------------------------------------------}
-  
+
   TSetIamPolicyRequest = Class(TGoogleBaseObject)
   Private
     Fpolicy : TPolicy;
@@ -459,11 +459,11 @@ type
     Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
   end;
   TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsRequest
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsRequest = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -479,11 +479,11 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsResponse
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsResponse = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -499,18 +499,18 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectsServiceAccountsKeysResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsServiceAccountsKeysResource, method List
-  
+
   TProjectsServiceAccountsKeysListOptions = Record
     keyTypes : String;
   end;
-  
+
   TProjectsServiceAccountsKeysResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -521,20 +521,20 @@ type
     Function Create(_name: string; aCreateServiceAccountKeyRequest : TCreateServiceAccountKeyRequest) : TServiceAccountKey;overload;
     Function Delete(_name: string) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsServiceAccountsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsServiceAccountsResource, method List
-  
+
   TProjectsServiceAccountsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsServiceAccountsResource = Class(TGoogleResource)
   Private
     FKeysInstance : TProjectsServiceAccountsKeysResource;
@@ -556,12 +556,12 @@ type
     Function CreateKeysResource : TProjectsServiceAccountsKeysResource;virtual;overload;
     Property KeysResource : TProjectsServiceAccountsKeysResource Read GetKeysInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
@@ -578,12 +578,12 @@ type
     Property ServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource Read GetServiceAccountsKeysInstance;
     Property ServiceAccountsResource : TProjectsServiceAccountsResource Read GetServiceAccountsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TIamAPI
     --------------------------------------------------------------------}
-  
+
   TIamAPI = Class(TGoogleAPI)
   Private
     FProjectsServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
@@ -635,7 +635,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TListServiceAccountsResponse.Setaccounts(AIndex : Integer; const AValue : TListServiceAccountsResponseTypeaccountsArray); 
+Procedure TListServiceAccountsResponse.Setaccounts(AIndex : Integer; const AValue : TListServiceAccountsResponseTypeaccountsArray);
 
 begin
   If (Faccounts=AValue) then exit;
@@ -645,7 +645,7 @@ end;
 
 
 
-Procedure TListServiceAccountsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListServiceAccountsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -656,7 +656,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListServiceAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListServiceAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -675,7 +675,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceAccount.Setname(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -685,7 +685,7 @@ end;
 
 
 
-Procedure TServiceAccount.SetprojectId(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.SetprojectId(AIndex : Integer; const AValue : String);
 
 begin
   If (FprojectId=AValue) then exit;
@@ -695,7 +695,7 @@ end;
 
 
 
-Procedure TServiceAccount.SetuniqueId(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.SetuniqueId(AIndex : Integer; const AValue : String);
 
 begin
   If (FuniqueId=AValue) then exit;
@@ -705,7 +705,7 @@ end;
 
 
 
-Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -715,7 +715,7 @@ end;
 
 
 
-Procedure TServiceAccount.SetdisplayName(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.SetdisplayName(AIndex : Integer; const AValue : String);
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -725,7 +725,7 @@ end;
 
 
 
-Procedure TServiceAccount.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -735,7 +735,7 @@ end;
 
 
 
-Procedure TServiceAccount.Setoauth2ClientId(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccount.Setoauth2ClientId(AIndex : Integer; const AValue : String);
 
 begin
   If (Foauth2ClientId=AValue) then exit;
@@ -752,7 +752,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreateServiceAccountRequest.SetaccountId(AIndex : Integer; const AValue : String); 
+Procedure TCreateServiceAccountRequest.SetaccountId(AIndex : Integer; const AValue : String);
 
 begin
   If (FaccountId=AValue) then exit;
@@ -762,7 +762,7 @@ end;
 
 
 
-Procedure TCreateServiceAccountRequest.SetserviceAccount(AIndex : Integer; const AValue : TServiceAccount); 
+Procedure TCreateServiceAccountRequest.SetserviceAccount(AIndex : Integer; const AValue : TServiceAccount);
 
 begin
   If (FserviceAccount=AValue) then exit;
@@ -786,7 +786,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListServiceAccountKeysResponse.Setkeys(AIndex : Integer; const AValue : TListServiceAccountKeysResponseTypekeysArray); 
+Procedure TListServiceAccountKeysResponse.Setkeys(AIndex : Integer; const AValue : TListServiceAccountKeysResponseTypekeysArray);
 
 begin
   If (Fkeys=AValue) then exit;
@@ -797,7 +797,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListServiceAccountKeysResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListServiceAccountKeysResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -816,7 +816,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceAccountKey.Setname(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccountKey.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -826,7 +826,7 @@ end;
 
 
 
-Procedure TServiceAccountKey.SetprivateKeyType(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccountKey.SetprivateKeyType(AIndex : Integer; const AValue : String);
 
 begin
   If (FprivateKeyType=AValue) then exit;
@@ -836,7 +836,7 @@ end;
 
 
 
-Procedure TServiceAccountKey.SetprivateKeyData(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccountKey.SetprivateKeyData(AIndex : Integer; const AValue : String);
 
 begin
   If (FprivateKeyData=AValue) then exit;
@@ -846,7 +846,7 @@ end;
 
 
 
-Procedure TServiceAccountKey.SetvalidAfterTime(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccountKey.SetvalidAfterTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FvalidAfterTime=AValue) then exit;
@@ -856,7 +856,7 @@ end;
 
 
 
-Procedure TServiceAccountKey.SetvalidBeforeTime(AIndex : Integer; const AValue : String); 
+Procedure TServiceAccountKey.SetvalidBeforeTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FvalidBeforeTime=AValue) then exit;
@@ -873,7 +873,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreateServiceAccountKeyRequest.SetprivateKeyType(AIndex : Integer; const AValue : String); 
+Procedure TCreateServiceAccountKeyRequest.SetprivateKeyType(AIndex : Integer; const AValue : String);
 
 begin
   If (FprivateKeyType=AValue) then exit;
@@ -890,7 +890,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSignBlobRequest.SetbytesToSign(AIndex : Integer; const AValue : String); 
+Procedure TSignBlobRequest.SetbytesToSign(AIndex : Integer; const AValue : String);
 
 begin
   If (FbytesToSign=AValue) then exit;
@@ -907,7 +907,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSignBlobResponse.SetkeyId(AIndex : Integer; const AValue : String); 
+Procedure TSignBlobResponse.SetkeyId(AIndex : Integer; const AValue : String);
 
 begin
   If (FkeyId=AValue) then exit;
@@ -917,7 +917,7 @@ end;
 
 
 
-Procedure TSignBlobResponse.Setsignature(AIndex : Integer; const AValue : String); 
+Procedure TSignBlobResponse.Setsignature(AIndex : Integer; const AValue : String);
 
 begin
   If (Fsignature=AValue) then exit;
@@ -934,7 +934,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer); 
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fversion=AValue) then exit;
@@ -944,7 +944,7 @@ end;
 
 
 
-Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); 
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
 
 begin
   If (Fbindings=AValue) then exit;
@@ -954,7 +954,7 @@ end;
 
 
 
-Procedure TPolicy.Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray); 
+Procedure TPolicy.Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray);
 
 begin
   If (Frules=AValue) then exit;
@@ -964,7 +964,7 @@ end;
 
 
 
-Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -975,7 +975,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -995,7 +995,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBinding.Setrole(AIndex : Integer; const AValue : String); 
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
 
 begin
   If (Frole=AValue) then exit;
@@ -1005,7 +1005,7 @@ end;
 
 
 
-Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fmembers=AValue) then exit;
@@ -1016,7 +1016,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1035,7 +1035,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRule.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TRule.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1045,7 +1045,7 @@ end;
 
 
 
-Procedure TRule.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TRule.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -1055,7 +1055,7 @@ end;
 
 
 
-Procedure TRule.Setaction(AIndex : Integer; const AValue : String); 
+Procedure TRule.Setaction(AIndex : Integer; const AValue : String);
 
 begin
   If (Faction=AValue) then exit;
@@ -1065,7 +1065,7 @@ end;
 
 
 
-Procedure TRule.Set_in(AIndex : Integer; const AValue : TStringArray); 
+Procedure TRule.Set_in(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (F_in=AValue) then exit;
@@ -1075,7 +1075,7 @@ end;
 
 
 
-Procedure TRule.SetnotIn(AIndex : Integer; const AValue : TStringArray); 
+Procedure TRule.SetnotIn(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FnotIn=AValue) then exit;
@@ -1085,7 +1085,7 @@ end;
 
 
 
-Procedure TRule.Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray); 
+Procedure TRule.Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray);
 
 begin
   If (Fconditions=AValue) then exit;
@@ -1095,7 +1095,7 @@ end;
 
 
 
-Procedure TRule.SetlogConfig(AIndex : Integer; const AValue : TRuleTypelogConfigArray); 
+Procedure TRule.SetlogConfig(AIndex : Integer; const AValue : TRuleTypelogConfigArray);
 
 begin
   If (FlogConfig=AValue) then exit;
@@ -1117,7 +1117,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TRule.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TRule.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1140,7 +1140,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCondition.Setiam(AIndex : Integer; const AValue : String); 
+Procedure TCondition.Setiam(AIndex : Integer; const AValue : String);
 
 begin
   If (Fiam=AValue) then exit;
@@ -1150,7 +1150,7 @@ end;
 
 
 
-Procedure TCondition.Setsys(AIndex : Integer; const AValue : String); 
+Procedure TCondition.Setsys(AIndex : Integer; const AValue : String);
 
 begin
   If (Fsys=AValue) then exit;
@@ -1160,7 +1160,7 @@ end;
 
 
 
-Procedure TCondition.Setsvc(AIndex : Integer; const AValue : String); 
+Procedure TCondition.Setsvc(AIndex : Integer; const AValue : String);
 
 begin
   If (Fsvc=AValue) then exit;
@@ -1170,7 +1170,7 @@ end;
 
 
 
-Procedure TCondition.Setop(AIndex : Integer; const AValue : String); 
+Procedure TCondition.Setop(AIndex : Integer; const AValue : String);
 
 begin
   If (Fop=AValue) then exit;
@@ -1180,7 +1180,7 @@ end;
 
 
 
-Procedure TCondition.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TCondition.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1190,7 +1190,7 @@ end;
 
 
 
-Procedure TCondition.Setvalues(AIndex : Integer; const AValue : TStringArray); 
+Procedure TCondition.Setvalues(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fvalues=AValue) then exit;
@@ -1201,7 +1201,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TCondition.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TCondition.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1220,7 +1220,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLogConfig.Setcounter(AIndex : Integer; const AValue : TCounterOptions); 
+Procedure TLogConfig.Setcounter(AIndex : Integer; const AValue : TCounterOptions);
 
 begin
   If (Fcounter=AValue) then exit;
@@ -1230,7 +1230,7 @@ end;
 
 
 
-Procedure TLogConfig.SetdataAccess(AIndex : Integer; const AValue : TDataAccessOptions); 
+Procedure TLogConfig.SetdataAccess(AIndex : Integer; const AValue : TDataAccessOptions);
 
 begin
   If (FdataAccess=AValue) then exit;
@@ -1240,7 +1240,7 @@ end;
 
 
 
-Procedure TLogConfig.SetcloudAudit(AIndex : Integer; const AValue : TCloudAuditOptions); 
+Procedure TLogConfig.SetcloudAudit(AIndex : Integer; const AValue : TCloudAuditOptions);
 
 begin
   If (FcloudAudit=AValue) then exit;
@@ -1257,7 +1257,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCounterOptions.Setmetric(AIndex : Integer; const AValue : String); 
+Procedure TCounterOptions.Setmetric(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmetric=AValue) then exit;
@@ -1267,7 +1267,7 @@ end;
 
 
 
-Procedure TCounterOptions.Setfield(AIndex : Integer; const AValue : String); 
+Procedure TCounterOptions.Setfield(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffield=AValue) then exit;
@@ -1298,7 +1298,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy); 
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
 
 begin
   If (Fpolicy=AValue) then exit;
@@ -1315,7 +1315,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -1326,7 +1326,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1345,7 +1345,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -1356,7 +1356,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1831,7 +1831,7 @@ 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 TIamAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlekgsearch.pp

@@ -13,16 +13,16 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TSearchResponse = Class;
   TSearchResponseArray = Array of TSearchResponse;
   //Anonymous types, using auto-generated names
-  
+
   { --------------------------------------------------------------------
     TSearchResponse
     --------------------------------------------------------------------}
-  
+
   TSearchResponse = Class(TGoogleBaseObject)
   Private
     Fcontext : TJSONSchema;
@@ -45,14 +45,14 @@ type
     Property itemListElement : TTJSONSchemaArray Index 16 Read FitemListElement Write SetitemListElement;
   end;
   TSearchResponseClass = Class of TSearchResponse;
-  
+
   { --------------------------------------------------------------------
     TEntitiesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TEntitiesResource, method Search
-  
+
   TEntitiesSearchOptions = Record
     query : String;
     ids : String;
@@ -62,7 +62,7 @@ type
     prefix : boolean;
     limit : integer;
   end;
-  
+
   TEntitiesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -70,12 +70,12 @@ type
     Function Search(AQuery : string  = '') : TSearchResponse;
     Function Search(AQuery : TEntitiessearchOptions) : TSearchResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TKgsearchAPI
     --------------------------------------------------------------------}
-  
+
   TKgsearchAPI = Class(TGoogleAPI)
   Private
     FEntitiesInstance : TEntitiesResource;
@@ -117,7 +117,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSearchResponse.Setcontext(AIndex : Integer; const AValue : TJSONSchema); 
+Procedure TSearchResponse.Setcontext(AIndex : Integer; const AValue : TJSONSchema);
 
 begin
   If (Fcontext=AValue) then exit;
@@ -127,7 +127,7 @@ end;
 
 
 
-Procedure TSearchResponse.Set_type(AIndex : Integer; const AValue : TJSONSchema); 
+Procedure TSearchResponse.Set_type(AIndex : Integer; const AValue : TJSONSchema);
 
 begin
   If (F_type=AValue) then exit;
@@ -137,7 +137,7 @@ end;
 
 
 
-Procedure TSearchResponse.SetitemListElement(AIndex : Integer; const AValue : TTJSONSchemaArray); 
+Procedure TSearchResponse.SetitemListElement(AIndex : Integer; const AValue : TTJSONSchemaArray);
 
 begin
   If (FitemListElement=AValue) then exit;
@@ -159,7 +159,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSearchResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSearchResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -331,7 +331,7 @@ Class Function TKgsearchAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TKgsearchAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlelicensing.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TLicenseAssignment = Class;
   TLicenseAssignmentInsert = Class;
@@ -23,11 +23,11 @@ type
   TLicenseAssignmentListArray = Array of TLicenseAssignmentList;
   //Anonymous types, using auto-generated names
   TLicenseAssignmentListTypeitemsArray = Array of TLicenseAssignment;
-  
+
   { --------------------------------------------------------------------
     TLicenseAssignment
     --------------------------------------------------------------------}
-  
+
   TLicenseAssignment = Class(TGoogleBaseObject)
   Private
     Fetags : String;
@@ -54,11 +54,11 @@ type
     Property userId : String Index 40 Read FuserId Write SetuserId;
   end;
   TLicenseAssignmentClass = Class of TLicenseAssignment;
-  
+
   { --------------------------------------------------------------------
     TLicenseAssignmentInsert
     --------------------------------------------------------------------}
-  
+
   TLicenseAssignmentInsert = Class(TGoogleBaseObject)
   Private
     FuserId : String;
@@ -70,11 +70,11 @@ type
     Property userId : String Index 0 Read FuserId Write SetuserId;
   end;
   TLicenseAssignmentInsertClass = Class of TLicenseAssignmentInsert;
-  
+
   { --------------------------------------------------------------------
     TLicenseAssignmentList
     --------------------------------------------------------------------}
-  
+
   TLicenseAssignmentList = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -99,29 +99,29 @@ type
     Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TLicenseAssignmentListClass = Class of TLicenseAssignmentList;
-  
+
   { --------------------------------------------------------------------
     TLicenseAssignmentsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TLicenseAssignmentsResource, method ListForProduct
-  
+
   TLicenseAssignmentsListForProductOptions = Record
     customerId : String;
     maxResults : integer;
     pageToken : String;
   end;
-  
-  
+
+
   //Optional query Options for TLicenseAssignmentsResource, method ListForProductAndSku
-  
+
   TLicenseAssignmentsListForProductAndSkuOptions = Record
     customerId : String;
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TLicenseAssignmentsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -136,12 +136,12 @@ type
     Function Patch(productId: string; skuId: string; userId: string; aLicenseAssignment : TLicenseAssignment) : TLicenseAssignment;
     Function Update(productId: string; skuId: string; userId: string; aLicenseAssignment : TLicenseAssignment) : TLicenseAssignment;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TLicensingAPI
     --------------------------------------------------------------------}
-  
+
   TLicensingAPI = Class(TGoogleAPI)
   Private
     FLicenseAssignmentsInstance : TLicenseAssignmentsResource;
@@ -183,7 +183,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignment.Setetags(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.Setetags(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetags=AValue) then exit;
@@ -193,7 +193,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -203,7 +203,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetproductId(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.SetproductId(AIndex : Integer; const AValue : String);
 
 begin
   If (FproductId=AValue) then exit;
@@ -213,7 +213,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -223,7 +223,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetskuId(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.SetskuId(AIndex : Integer; const AValue : String);
 
 begin
   If (FskuId=AValue) then exit;
@@ -233,7 +233,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetuserId(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignment.SetuserId(AIndex : Integer; const AValue : String);
 
 begin
   If (FuserId=AValue) then exit;
@@ -250,7 +250,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; const AValue : String);
 
 begin
   If (FuserId=AValue) then exit;
@@ -267,7 +267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -277,7 +277,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; const AValue : TLicenseAssignmentListTypeitemsArray); 
+Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; const AValue : TLicenseAssignmentListTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -287,7 +287,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -297,7 +297,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -308,7 +308,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TLicenseAssignmentList.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TLicenseAssignmentList.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -586,7 +586,7 @@ begin
   SetLength(Result,1);
   Result[0].Name:='https://www.googleapis.com/auth/apps.licensing';
   Result[0].Description:='View and manage Google Apps licenses for your domain';
-  
+
 end;
 
 Class Function TLicensingAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleoauth2.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TJwk = Class;
   TTokeninfo = Class;
@@ -24,11 +24,11 @@ type
   //Anonymous types, using auto-generated names
   TJwkTypekeysItem = Class;
   TJwkTypekeysArray = Array of TJwkTypekeysItem;
-  
+
   { --------------------------------------------------------------------
     TJwkTypekeysItem
     --------------------------------------------------------------------}
-  
+
   TJwkTypekeysItem = Class(TGoogleBaseObject)
   Private
     Falg : String;
@@ -55,11 +55,11 @@ type
     Property use : String Index 40 Read Fuse Write Setuse;
   end;
   TJwkTypekeysItemClass = Class of TJwkTypekeysItem;
-  
+
   { --------------------------------------------------------------------
     TJwk
     --------------------------------------------------------------------}
-  
+
   TJwk = Class(TGoogleBaseObject)
   Private
     Fkeys : TJwkTypekeysArray;
@@ -75,11 +75,11 @@ type
     Property keys : TJwkTypekeysArray Index 0 Read Fkeys Write Setkeys;
   end;
   TJwkClass = Class of TJwk;
-  
+
   { --------------------------------------------------------------------
     TTokeninfo
     --------------------------------------------------------------------}
-  
+
   TTokeninfo = Class(TGoogleBaseObject)
   Private
     Faccess_type : String;
@@ -115,11 +115,11 @@ type
     Property verified_email : boolean Index 64 Read Fverified_email Write Setverified_email;
   end;
   TTokeninfoClass = Class of TTokeninfo;
-  
+
   { --------------------------------------------------------------------
     TUserinfoplus
     --------------------------------------------------------------------}
-  
+
   TUserinfoplus = Class(TGoogleBaseObject)
   Private
     Femail : String;
@@ -161,23 +161,23 @@ type
     Property verified_email : boolean Index 80 Read Fverified_email Write Setverified_email;
   end;
   TUserinfoplusClass = Class of TUserinfoplus;
-  
+
   { --------------------------------------------------------------------
     TUserinfoV2MeResource
     --------------------------------------------------------------------}
-  
+
   TUserinfoV2MeResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get : TUserinfoplus;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TUserinfoV2Resource
     --------------------------------------------------------------------}
-  
+
   TUserinfoV2Resource = Class(TGoogleResource)
   Private
     FMeInstance : TUserinfoV2MeResource;
@@ -189,12 +189,12 @@ type
     Function CreateMeResource : TUserinfoV2MeResource;virtual;overload;
     Property MeResource : TUserinfoV2MeResource Read GetMeInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TUserinfoResource
     --------------------------------------------------------------------}
-  
+
   TUserinfoResource = Class(TGoogleResource)
   Private
     FV2MeInstance : TUserinfoV2MeResource;
@@ -212,12 +212,12 @@ type
     Property V2MeResource : TUserinfoV2MeResource Read GetV2MeInstance;
     Property V2Resource : TUserinfoV2Resource Read GetV2Instance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TOauth2API
     --------------------------------------------------------------------}
-  
+
   TOauth2API = Class(TGoogleAPI)
   Private
     FUserinfoV2MeInstance : TUserinfoV2MeResource;
@@ -269,7 +269,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; const AValue : String);
 
 begin
   If (Falg=AValue) then exit;
@@ -279,7 +279,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Sete(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Sete(AIndex : Integer; const AValue : String);
 
 begin
   If (Fe=AValue) then exit;
@@ -289,7 +289,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkid=AValue) then exit;
@@ -299,7 +299,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkty=AValue) then exit;
@@ -309,7 +309,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setn(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Setn(AIndex : Integer; const AValue : String);
 
 begin
   If (Fn=AValue) then exit;
@@ -319,7 +319,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; const AValue : String); 
+Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; const AValue : String);
 
 begin
   If (Fuse=AValue) then exit;
@@ -336,7 +336,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJwk.Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray); 
+Procedure TJwk.Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray);
 
 begin
   If (Fkeys=AValue) then exit;
@@ -347,7 +347,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TJwk.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TJwk.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -366,7 +366,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTokeninfo.Setaccess_type(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setaccess_type(AIndex : Integer; const AValue : String);
 
 begin
   If (Faccess_type=AValue) then exit;
@@ -376,7 +376,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setaudience(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setaudience(AIndex : Integer; const AValue : String);
 
 begin
   If (Faudience=AValue) then exit;
@@ -386,7 +386,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -396,7 +396,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setexpires_in(AIndex : Integer; const AValue : integer); 
+Procedure TTokeninfo.Setexpires_in(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fexpires_in=AValue) then exit;
@@ -406,7 +406,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setissued_to(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setissued_to(AIndex : Integer; const AValue : String);
 
 begin
   If (Fissued_to=AValue) then exit;
@@ -416,7 +416,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setscope(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setscope(AIndex : Integer; const AValue : String);
 
 begin
   If (Fscope=AValue) then exit;
@@ -426,7 +426,7 @@ end;
 
 
 
-Procedure TTokeninfo.Settoken_handle(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Settoken_handle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftoken_handle=AValue) then exit;
@@ -436,7 +436,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setuser_id(AIndex : Integer; const AValue : String); 
+Procedure TTokeninfo.Setuser_id(AIndex : Integer; const AValue : String);
 
 begin
   If (Fuser_id=AValue) then exit;
@@ -446,7 +446,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setverified_email(AIndex : Integer; const AValue : boolean); 
+Procedure TTokeninfo.Setverified_email(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fverified_email=AValue) then exit;
@@ -463,7 +463,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserinfoplus.Setemail(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setemail(AIndex : Integer; const AValue : String);
 
 begin
   If (Femail=AValue) then exit;
@@ -473,7 +473,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffamily_name=AValue) then exit;
@@ -483,7 +483,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgender(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setgender(AIndex : Integer; const AValue : String);
 
 begin
   If (Fgender=AValue) then exit;
@@ -493,7 +493,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; const AValue : String);
 
 begin
   If (Fgiven_name=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Sethd(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Sethd(AIndex : Integer; const AValue : String);
 
 begin
   If (Fhd=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setid(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -523,7 +523,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlink(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setlink(AIndex : Integer; const AValue : String);
 
 begin
   If (Flink=AValue) then exit;
@@ -533,7 +533,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlocale(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setlocale(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocale=AValue) then exit;
@@ -543,7 +543,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setname(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setpicture(AIndex : Integer; const AValue : String); 
+Procedure TUserinfoplus.Setpicture(AIndex : Integer; const AValue : String);
 
 begin
   If (Fpicture=AValue) then exit;
@@ -563,7 +563,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setverified_email(AIndex : Integer; const AValue : boolean); 
+Procedure TUserinfoplus.Setverified_email(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fverified_email=AValue) then exit;
@@ -844,7 +844,7 @@ begin
   Result[2].Description:='View your email address';
   Result[3].Name:='https://www.googleapis.com/auth/userinfo.profile';
   Result[3].Description:='View your basic profile info';
-  
+
 end;
 
 Class Function TOauth2API.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlepagespeedonline.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TPagespeedApiFormatStringV2 = Class;
   TPagespeedApiImageV2 = Class;
@@ -34,11 +34,11 @@ type
   TPagespeedApiFormatStringV2TypeargsItemTyperectsArray = Array of TPagespeedApiFormatStringV2TypeargsItemTyperectsItem;
   TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray = Array of TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem;
   TPagespeedApiFormatStringV2TypeargsArray = Array of TPagespeedApiFormatStringV2TypeargsItem;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiFormatStringV2TypeargsItemTyperectsItem
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiFormatStringV2TypeargsItemTyperectsItem = Class(TGoogleBaseObject)
   Private
     Fheight : integer;
@@ -59,11 +59,11 @@ type
     Property width : integer Index 24 Read Fwidth Write Setwidth;
   end;
   TPagespeedApiFormatStringV2TypeargsItemTyperectsItemClass = Class of TPagespeedApiFormatStringV2TypeargsItemTyperectsItem;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem = Class(TGoogleBaseObject)
   Private
     Fheight : integer;
@@ -84,11 +84,11 @@ type
     Property width : integer Index 24 Read Fwidth Write Setwidth;
   end;
   TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItemClass = Class of TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiFormatStringV2TypeargsItem
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiFormatStringV2TypeargsItem = Class(TGoogleBaseObject)
   Private
     Fkey : String;
@@ -117,11 +117,11 @@ type
     Property value : String Index 32 Read Fvalue Write Setvalue;
   end;
   TPagespeedApiFormatStringV2TypeargsItemClass = Class of TPagespeedApiFormatStringV2TypeargsItem;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiFormatStringV2
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiFormatStringV2 = Class(TGoogleBaseObject)
   Private
     Fargs : TPagespeedApiFormatStringV2TypeargsArray;
@@ -140,11 +140,11 @@ type
     Property format : String Index 8 Read Fformat Write Setformat;
   end;
   TPagespeedApiFormatStringV2Class = Class of TPagespeedApiFormatStringV2;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiImageV2Typepage_rect
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiImageV2Typepage_rect = Class(TGoogleBaseObject)
   Private
     Fheight : integer;
@@ -165,11 +165,11 @@ type
     Property width : integer Index 24 Read Fwidth Write Setwidth;
   end;
   TPagespeedApiImageV2Typepage_rectClass = Class of TPagespeedApiImageV2Typepage_rect;
-  
+
   { --------------------------------------------------------------------
     TPagespeedApiImageV2
     --------------------------------------------------------------------}
-  
+
   TPagespeedApiImageV2 = Class(TGoogleBaseObject)
   Private
     Fdata : String;
@@ -196,11 +196,11 @@ type
     Property width : integer Index 40 Read Fwidth Write Setwidth;
   end;
   TPagespeedApiImageV2Class = Class of TPagespeedApiImageV2;
-  
+
   { --------------------------------------------------------------------
     TResultTypeformattedResultsTyperuleResults
     --------------------------------------------------------------------}
-  
+
   TResultTypeformattedResultsTyperuleResults = Class(TGoogleBaseObject)
   Private
   Protected
@@ -210,11 +210,11 @@ type
   Published
   end;
   TResultTypeformattedResultsTyperuleResultsClass = Class of TResultTypeformattedResultsTyperuleResults;
-  
+
   { --------------------------------------------------------------------
     TResultTypeformattedResults
     --------------------------------------------------------------------}
-  
+
   TResultTypeformattedResults = Class(TGoogleBaseObject)
   Private
     Flocale : String;
@@ -229,11 +229,11 @@ type
     Property ruleResults : TResultTypeformattedResultsTyperuleResults Index 8 Read FruleResults Write SetruleResults;
   end;
   TResultTypeformattedResultsClass = Class of TResultTypeformattedResults;
-  
+
   { --------------------------------------------------------------------
     TResultTypepageStats
     --------------------------------------------------------------------}
-  
+
   TResultTypepageStats = Class(TGoogleBaseObject)
   Private
     FcssResponseBytes : String;
@@ -281,11 +281,11 @@ type
     Property totalRequestBytes : String Index 96 Read FtotalRequestBytes Write SettotalRequestBytes;
   end;
   TResultTypepageStatsClass = Class of TResultTypepageStats;
-  
+
   { --------------------------------------------------------------------
     TResultTyperuleGroups
     --------------------------------------------------------------------}
-  
+
   TResultTyperuleGroups = Class(TGoogleBaseObject)
   Private
   Protected
@@ -295,11 +295,11 @@ type
   Published
   end;
   TResultTyperuleGroupsClass = Class of TResultTyperuleGroups;
-  
+
   { --------------------------------------------------------------------
     TResultTypeversion
     --------------------------------------------------------------------}
-  
+
   TResultTypeversion = Class(TGoogleBaseObject)
   Private
     Fmajor : integer;
@@ -314,11 +314,11 @@ type
     Property minor : integer Index 8 Read Fminor Write Setminor;
   end;
   TResultTypeversionClass = Class of TResultTypeversion;
-  
+
   { --------------------------------------------------------------------
     TResult
     --------------------------------------------------------------------}
-  
+
   TResult = Class(TGoogleBaseObject)
   Private
     FformattedResults : TResultTypeformattedResults;
@@ -361,14 +361,14 @@ type
     Property version : TResultTypeversion Index 72 Read Fversion Write Setversion;
   end;
   TResultClass = Class of TResult;
-  
+
   { --------------------------------------------------------------------
     TPagespeedapiResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TPagespeedapiResource, method Runpagespeed
-  
+
   TPagespeedapiRunpagespeedOptions = Record
     filter_third_party_resources : boolean;
     locale : String;
@@ -377,7 +377,7 @@ type
     strategy : String;
     url : String;
   end;
-  
+
   TPagespeedapiResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -385,12 +385,12 @@ type
     Function Runpagespeed(AQuery : string  = '') : TResult;
     Function Runpagespeed(AQuery : TPagespeedapirunpagespeedOptions) : TResult;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TPagespeedonlineAPI
     --------------------------------------------------------------------}
-  
+
   TPagespeedonlineAPI = Class(TGoogleAPI)
   Private
     FPagespeedapiInstance : TPagespeedapiResource;
@@ -432,7 +432,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setheight(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setheight(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fheight=AValue) then exit;
@@ -442,7 +442,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setleft(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setleft(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fleft=AValue) then exit;
@@ -452,7 +452,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Settop(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Settop(AIndex : Integer; const AValue : integer);
 
 begin
   If (Ftop=AValue) then exit;
@@ -462,7 +462,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setwidth(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setwidth(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fwidth=AValue) then exit;
@@ -479,7 +479,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setheight(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setheight(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fheight=AValue) then exit;
@@ -489,7 +489,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setleft(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setleft(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fleft=AValue) then exit;
@@ -499,7 +499,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Settop(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Settop(AIndex : Integer; const AValue : integer);
 
 begin
   If (Ftop=AValue) then exit;
@@ -509,7 +509,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setwidth(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setwidth(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fwidth=AValue) then exit;
@@ -526,7 +526,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -536,7 +536,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setrects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setrects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray);
 
 begin
   If (Frects=AValue) then exit;
@@ -546,7 +546,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setsecondary_rects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setsecondary_rects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray);
 
 begin
   If (Fsecondary_rects=AValue) then exit;
@@ -556,7 +556,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -566,7 +566,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -588,7 +588,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPagespeedApiFormatStringV2TypeargsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -608,7 +608,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiFormatStringV2.Setargs(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsArray); 
+Procedure TPagespeedApiFormatStringV2.Setargs(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsArray);
 
 begin
   If (Fargs=AValue) then exit;
@@ -618,7 +618,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2.Setformat(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiFormatStringV2.Setformat(AIndex : Integer; const AValue : String);
 
 begin
   If (Fformat=AValue) then exit;
@@ -629,7 +629,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPagespeedApiFormatStringV2.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPagespeedApiFormatStringV2.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -648,7 +648,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiImageV2Typepage_rect.Setheight(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2Typepage_rect.Setheight(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fheight=AValue) then exit;
@@ -658,7 +658,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2Typepage_rect.Setleft(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2Typepage_rect.Setleft(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fleft=AValue) then exit;
@@ -668,7 +668,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2Typepage_rect.Settop(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2Typepage_rect.Settop(AIndex : Integer; const AValue : integer);
 
 begin
   If (Ftop=AValue) then exit;
@@ -678,7 +678,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2Typepage_rect.Setwidth(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2Typepage_rect.Setwidth(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fwidth=AValue) then exit;
@@ -695,7 +695,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiImageV2.Setdata(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiImageV2.Setdata(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdata=AValue) then exit;
@@ -705,7 +705,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setheight(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2.Setheight(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fheight=AValue) then exit;
@@ -715,7 +715,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiImageV2.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -725,7 +725,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setmime_type(AIndex : Integer; const AValue : String); 
+Procedure TPagespeedApiImageV2.Setmime_type(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmime_type=AValue) then exit;
@@ -735,7 +735,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setpage_rect(AIndex : Integer; const AValue : TPagespeedApiImageV2Typepage_rect); 
+Procedure TPagespeedApiImageV2.Setpage_rect(AIndex : Integer; const AValue : TPagespeedApiImageV2Typepage_rect);
 
 begin
   If (Fpage_rect=AValue) then exit;
@@ -745,7 +745,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setwidth(AIndex : Integer; const AValue : integer); 
+Procedure TPagespeedApiImageV2.Setwidth(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fwidth=AValue) then exit;
@@ -775,7 +775,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypeformattedResults.Setlocale(AIndex : Integer; const AValue : String); 
+Procedure TResultTypeformattedResults.Setlocale(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocale=AValue) then exit;
@@ -785,7 +785,7 @@ end;
 
 
 
-Procedure TResultTypeformattedResults.SetruleResults(AIndex : Integer; const AValue : TResultTypeformattedResultsTyperuleResults); 
+Procedure TResultTypeformattedResults.SetruleResults(AIndex : Integer; const AValue : TResultTypeformattedResultsTyperuleResults);
 
 begin
   If (FruleResults=AValue) then exit;
@@ -802,7 +802,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypepageStats.SetcssResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SetcssResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FcssResponseBytes=AValue) then exit;
@@ -812,7 +812,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetflashResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SetflashResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FflashResponseBytes=AValue) then exit;
@@ -822,7 +822,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SethtmlResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SethtmlResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FhtmlResponseBytes=AValue) then exit;
@@ -832,7 +832,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetimageResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SetimageResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FimageResponseBytes=AValue) then exit;
@@ -842,7 +842,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetjavascriptResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SetjavascriptResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FjavascriptResponseBytes=AValue) then exit;
@@ -852,7 +852,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetnumberCssResources(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypepageStats.SetnumberCssResources(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberCssResources=AValue) then exit;
@@ -862,7 +862,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetnumberHosts(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypepageStats.SetnumberHosts(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberHosts=AValue) then exit;
@@ -872,7 +872,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetnumberJsResources(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypepageStats.SetnumberJsResources(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberJsResources=AValue) then exit;
@@ -882,7 +882,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetnumberResources(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypepageStats.SetnumberResources(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberResources=AValue) then exit;
@@ -892,7 +892,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetnumberStaticResources(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypepageStats.SetnumberStaticResources(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberStaticResources=AValue) then exit;
@@ -902,7 +902,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetotherResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SetotherResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FotherResponseBytes=AValue) then exit;
@@ -912,7 +912,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SettextResponseBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SettextResponseBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FtextResponseBytes=AValue) then exit;
@@ -922,7 +922,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SettotalRequestBytes(AIndex : Integer; const AValue : String); 
+Procedure TResultTypepageStats.SettotalRequestBytes(AIndex : Integer; const AValue : String);
 
 begin
   If (FtotalRequestBytes=AValue) then exit;
@@ -952,7 +952,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypeversion.Setmajor(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypeversion.Setmajor(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fmajor=AValue) then exit;
@@ -962,7 +962,7 @@ end;
 
 
 
-Procedure TResultTypeversion.Setminor(AIndex : Integer; const AValue : integer); 
+Procedure TResultTypeversion.Setminor(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fminor=AValue) then exit;
@@ -979,7 +979,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResult.SetformattedResults(AIndex : Integer; const AValue : TResultTypeformattedResults); 
+Procedure TResult.SetformattedResults(AIndex : Integer; const AValue : TResultTypeformattedResults);
 
 begin
   If (FformattedResults=AValue) then exit;
@@ -989,7 +989,7 @@ end;
 
 
 
-Procedure TResult.Setid(AIndex : Integer; const AValue : String); 
+Procedure TResult.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -999,7 +999,7 @@ end;
 
 
 
-Procedure TResult.SetinvalidRules(AIndex : Integer; const AValue : TStringArray); 
+Procedure TResult.SetinvalidRules(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FinvalidRules=AValue) then exit;
@@ -1009,7 +1009,7 @@ end;
 
 
 
-Procedure TResult.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TResult.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1019,7 +1019,7 @@ end;
 
 
 
-Procedure TResult.SetpageStats(AIndex : Integer; const AValue : TResultTypepageStats); 
+Procedure TResult.SetpageStats(AIndex : Integer; const AValue : TResultTypepageStats);
 
 begin
   If (FpageStats=AValue) then exit;
@@ -1029,7 +1029,7 @@ end;
 
 
 
-Procedure TResult.SetresponseCode(AIndex : Integer; const AValue : integer); 
+Procedure TResult.SetresponseCode(AIndex : Integer; const AValue : integer);
 
 begin
   If (FresponseCode=AValue) then exit;
@@ -1039,7 +1039,7 @@ end;
 
 
 
-Procedure TResult.SetruleGroups(AIndex : Integer; const AValue : TResultTyperuleGroups); 
+Procedure TResult.SetruleGroups(AIndex : Integer; const AValue : TResultTyperuleGroups);
 
 begin
   If (FruleGroups=AValue) then exit;
@@ -1049,7 +1049,7 @@ end;
 
 
 
-Procedure TResult.Setscreenshot(AIndex : Integer; const AValue : TPagespeedApiImageV2); 
+Procedure TResult.Setscreenshot(AIndex : Integer; const AValue : TPagespeedApiImageV2);
 
 begin
   If (Fscreenshot=AValue) then exit;
@@ -1059,7 +1059,7 @@ end;
 
 
 
-Procedure TResult.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TResult.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1069,7 +1069,7 @@ end;
 
 
 
-Procedure TResult.Setversion(AIndex : Integer; const AValue : TResultTypeversion); 
+Procedure TResult.Setversion(AIndex : Integer; const AValue : TResultTypeversion);
 
 begin
   If (Fversion=AValue) then exit;
@@ -1080,7 +1080,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TResult.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TResult.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1251,7 +1251,7 @@ Class Function TPagespeedonlineAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
   SetLength(Result,0);
-  
+
 end;
 
 Class Function TPagespeedonlineAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlepubsub.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TSetIamPolicyRequest = Class;
   TPolicy = Class;
@@ -65,11 +65,11 @@ type
   TListTopicsResponseTypetopicsArray = Array of TTopic;
   TListSubscriptionsResponseTypesubscriptionsArray = Array of TSubscription;
   TPullResponseTypereceivedMessagesArray = Array of TReceivedMessage;
-  
+
   { --------------------------------------------------------------------
     TSetIamPolicyRequest
     --------------------------------------------------------------------}
-  
+
   TSetIamPolicyRequest = Class(TGoogleBaseObject)
   Private
     Fpolicy : TPolicy;
@@ -81,11 +81,11 @@ type
     Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
   end;
   TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
-  
+
   { --------------------------------------------------------------------
     TPolicy
     --------------------------------------------------------------------}
-  
+
   TPolicy = Class(TGoogleBaseObject)
   Private
     Fversion : integer;
@@ -107,11 +107,11 @@ type
     Property etag : String Index 16 Read Fetag Write Setetag;
   end;
   TPolicyClass = Class of TPolicy;
-  
+
   { --------------------------------------------------------------------
     TBinding
     --------------------------------------------------------------------}
-  
+
   TBinding = Class(TGoogleBaseObject)
   Private
     Frole : String;
@@ -130,11 +130,11 @@ type
     Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
   end;
   TBindingClass = Class of TBinding;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsRequest
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsRequest = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -150,11 +150,11 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
-  
+
   { --------------------------------------------------------------------
     TTestIamPermissionsResponse
     --------------------------------------------------------------------}
-  
+
   TTestIamPermissionsResponse = Class(TGoogleBaseObject)
   Private
     Fpermissions : TStringArray;
@@ -170,11 +170,11 @@ type
     Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
   end;
   TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
-  
+
   { --------------------------------------------------------------------
     TTopic
     --------------------------------------------------------------------}
-  
+
   TTopic = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -186,11 +186,11 @@ type
     Property name : String Index 0 Read Fname Write Setname;
   end;
   TTopicClass = Class of TTopic;
-  
+
   { --------------------------------------------------------------------
     TPublishRequest
     --------------------------------------------------------------------}
-  
+
   TPublishRequest = Class(TGoogleBaseObject)
   Private
     Fmessages : TPublishRequestTypemessagesArray;
@@ -206,11 +206,11 @@ type
     Property messages : TPublishRequestTypemessagesArray Index 0 Read Fmessages Write Setmessages;
   end;
   TPublishRequestClass = Class of TPublishRequest;
-  
+
   { --------------------------------------------------------------------
     TPubsubMessageTypeattributes
     --------------------------------------------------------------------}
-  
+
   TPubsubMessageTypeattributes = Class(TGoogleBaseObject)
   Private
   Protected
@@ -220,11 +220,11 @@ type
   Published
   end;
   TPubsubMessageTypeattributesClass = Class of TPubsubMessageTypeattributes;
-  
+
   { --------------------------------------------------------------------
     TPubsubMessage
     --------------------------------------------------------------------}
-  
+
   TPubsubMessage = Class(TGoogleBaseObject)
   Private
     Fdata : String;
@@ -245,11 +245,11 @@ type
     Property publishTime : String Index 24 Read FpublishTime Write SetpublishTime;
   end;
   TPubsubMessageClass = Class of TPubsubMessage;
-  
+
   { --------------------------------------------------------------------
     TPublishResponse
     --------------------------------------------------------------------}
-  
+
   TPublishResponse = Class(TGoogleBaseObject)
   Private
     FmessageIds : TStringArray;
@@ -265,11 +265,11 @@ type
     Property messageIds : TStringArray Index 0 Read FmessageIds Write SetmessageIds;
   end;
   TPublishResponseClass = Class of TPublishResponse;
-  
+
   { --------------------------------------------------------------------
     TListTopicsResponse
     --------------------------------------------------------------------}
-  
+
   TListTopicsResponse = Class(TGoogleBaseObject)
   Private
     Ftopics : TListTopicsResponseTypetopicsArray;
@@ -288,11 +288,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListTopicsResponseClass = Class of TListTopicsResponse;
-  
+
   { --------------------------------------------------------------------
     TListTopicSubscriptionsResponse
     --------------------------------------------------------------------}
-  
+
   TListTopicSubscriptionsResponse = Class(TGoogleBaseObject)
   Private
     Fsubscriptions : TStringArray;
@@ -311,11 +311,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListTopicSubscriptionsResponseClass = Class of TListTopicSubscriptionsResponse;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -324,11 +324,11 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TSubscription
     --------------------------------------------------------------------}
-  
+
   TSubscription = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -349,11 +349,11 @@ type
     Property ackDeadlineSeconds : integer Index 24 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
   end;
   TSubscriptionClass = Class of TSubscription;
-  
+
   { --------------------------------------------------------------------
     TPushConfigTypeattributes
     --------------------------------------------------------------------}
-  
+
   TPushConfigTypeattributes = Class(TGoogleBaseObject)
   Private
   Protected
@@ -363,11 +363,11 @@ type
   Published
   end;
   TPushConfigTypeattributesClass = Class of TPushConfigTypeattributes;
-  
+
   { --------------------------------------------------------------------
     TPushConfig
     --------------------------------------------------------------------}
-  
+
   TPushConfig = Class(TGoogleBaseObject)
   Private
     FpushEndpoint : String;
@@ -382,11 +382,11 @@ type
     Property attributes : TPushConfigTypeattributes Index 8 Read Fattributes Write Setattributes;
   end;
   TPushConfigClass = Class of TPushConfig;
-  
+
   { --------------------------------------------------------------------
     TListSubscriptionsResponse
     --------------------------------------------------------------------}
-  
+
   TListSubscriptionsResponse = Class(TGoogleBaseObject)
   Private
     Fsubscriptions : TListSubscriptionsResponseTypesubscriptionsArray;
@@ -405,11 +405,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListSubscriptionsResponseClass = Class of TListSubscriptionsResponse;
-  
+
   { --------------------------------------------------------------------
     TModifyAckDeadlineRequest
     --------------------------------------------------------------------}
-  
+
   TModifyAckDeadlineRequest = Class(TGoogleBaseObject)
   Private
     FackIds : TStringArray;
@@ -428,11 +428,11 @@ type
     Property ackDeadlineSeconds : integer Index 8 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
   end;
   TModifyAckDeadlineRequestClass = Class of TModifyAckDeadlineRequest;
-  
+
   { --------------------------------------------------------------------
     TAcknowledgeRequest
     --------------------------------------------------------------------}
-  
+
   TAcknowledgeRequest = Class(TGoogleBaseObject)
   Private
     FackIds : TStringArray;
@@ -448,11 +448,11 @@ type
     Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
   end;
   TAcknowledgeRequestClass = Class of TAcknowledgeRequest;
-  
+
   { --------------------------------------------------------------------
     TPullRequest
     --------------------------------------------------------------------}
-  
+
   TPullRequest = Class(TGoogleBaseObject)
   Private
     FreturnImmediately : boolean;
@@ -467,11 +467,11 @@ type
     Property maxMessages : integer Index 8 Read FmaxMessages Write SetmaxMessages;
   end;
   TPullRequestClass = Class of TPullRequest;
-  
+
   { --------------------------------------------------------------------
     TPullResponse
     --------------------------------------------------------------------}
-  
+
   TPullResponse = Class(TGoogleBaseObject)
   Private
     FreceivedMessages : TPullResponseTypereceivedMessagesArray;
@@ -487,11 +487,11 @@ type
     Property receivedMessages : TPullResponseTypereceivedMessagesArray Index 0 Read FreceivedMessages Write SetreceivedMessages;
   end;
   TPullResponseClass = Class of TPullResponse;
-  
+
   { --------------------------------------------------------------------
     TReceivedMessage
     --------------------------------------------------------------------}
-  
+
   TReceivedMessage = Class(TGoogleBaseObject)
   Private
     FackId : String;
@@ -506,11 +506,11 @@ type
     Property message : TPubsubMessage Index 8 Read Fmessage Write Setmessage;
   end;
   TReceivedMessageClass = Class of TReceivedMessage;
-  
+
   { --------------------------------------------------------------------
     TModifyPushConfigRequest
     --------------------------------------------------------------------}
-  
+
   TModifyPushConfigRequest = Class(TGoogleBaseObject)
   Private
     FpushConfig : TPushConfig;
@@ -522,19 +522,19 @@ type
     Property pushConfig : TPushConfig Index 0 Read FpushConfig Write SetpushConfig;
   end;
   TModifyPushConfigRequestClass = Class of TModifyPushConfigRequest;
-  
+
   { --------------------------------------------------------------------
     TProjectsTopicsSubscriptionsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsTopicsSubscriptionsResource, method List
-  
+
   TProjectsTopicsSubscriptionsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsTopicsSubscriptionsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -542,20 +542,20 @@ type
     Function List(topic: string; AQuery : string  = '') : TListTopicSubscriptionsResponse;
     Function List(topic: string; AQuery : TProjectsTopicsSubscriptionslistOptions) : TListTopicSubscriptionsResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsTopicsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsTopicsResource, method List
-  
+
   TProjectsTopicsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsTopicsResource = Class(TGoogleResource)
   Private
     FSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
@@ -576,20 +576,20 @@ type
     Function CreateSubscriptionsResource : TProjectsTopicsSubscriptionsResource;virtual;overload;
     Property SubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetSubscriptionsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsSubscriptionsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsSubscriptionsResource, method List
-  
+
   TProjectsSubscriptionsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsSubscriptionsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -607,12 +607,12 @@ type
     Function Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
     Function ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
@@ -634,12 +634,12 @@ type
     Property TopicsResource : TProjectsTopicsResource Read GetTopicsInstance;
     Property SubscriptionsResource : TProjectsSubscriptionsResource Read GetSubscriptionsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TPubsubAPI
     --------------------------------------------------------------------}
-  
+
   TPubsubAPI = Class(TGoogleAPI)
   Private
     FProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
@@ -696,7 +696,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy); 
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
 
 begin
   If (Fpolicy=AValue) then exit;
@@ -713,7 +713,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer); 
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fversion=AValue) then exit;
@@ -723,7 +723,7 @@ end;
 
 
 
-Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); 
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
 
 begin
   If (Fbindings=AValue) then exit;
@@ -733,7 +733,7 @@ end;
 
 
 
-Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -744,7 +744,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -763,7 +763,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBinding.Setrole(AIndex : Integer; const AValue : String); 
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
 
 begin
   If (Frole=AValue) then exit;
@@ -773,7 +773,7 @@ end;
 
 
 
-Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray); 
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fmembers=AValue) then exit;
@@ -784,7 +784,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -803,7 +803,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -814,7 +814,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -833,7 +833,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fpermissions=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -863,7 +863,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTopic.Setname(AIndex : Integer; const AValue : String); 
+Procedure TTopic.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -880,7 +880,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPublishRequest.Setmessages(AIndex : Integer; const AValue : TPublishRequestTypemessagesArray); 
+Procedure TPublishRequest.Setmessages(AIndex : Integer; const AValue : TPublishRequestTypemessagesArray);
 
 begin
   If (Fmessages=AValue) then exit;
@@ -891,7 +891,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPublishRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPublishRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -923,7 +923,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPubsubMessage.Setdata(AIndex : Integer; const AValue : String); 
+Procedure TPubsubMessage.Setdata(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdata=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure TPubsubMessage.Setattributes(AIndex : Integer; const AValue : TPubsubMessageTypeattributes); 
+Procedure TPubsubMessage.Setattributes(AIndex : Integer; const AValue : TPubsubMessageTypeattributes);
 
 begin
   If (Fattributes=AValue) then exit;
@@ -943,7 +943,7 @@ end;
 
 
 
-Procedure TPubsubMessage.SetmessageId(AIndex : Integer; const AValue : String); 
+Procedure TPubsubMessage.SetmessageId(AIndex : Integer; const AValue : String);
 
 begin
   If (FmessageId=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TPubsubMessage.SetpublishTime(AIndex : Integer; const AValue : String); 
+Procedure TPubsubMessage.SetpublishTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FpublishTime=AValue) then exit;
@@ -970,7 +970,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPublishResponse.SetmessageIds(AIndex : Integer; const AValue : TStringArray); 
+Procedure TPublishResponse.SetmessageIds(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FmessageIds=AValue) then exit;
@@ -981,7 +981,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPublishResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPublishResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1000,7 +1000,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicsResponse.Settopics(AIndex : Integer; const AValue : TListTopicsResponseTypetopicsArray); 
+Procedure TListTopicsResponse.Settopics(AIndex : Integer; const AValue : TListTopicsResponseTypetopicsArray);
 
 begin
   If (Ftopics=AValue) then exit;
@@ -1010,7 +1010,7 @@ end;
 
 
 
-Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1021,7 +1021,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListTopicsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListTopicsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1040,7 +1040,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TStringArray); 
+Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fsubscriptions=AValue) then exit;
@@ -1050,7 +1050,7 @@ end;
 
 
 
-Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1061,7 +1061,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListTopicSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListTopicSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1087,7 +1087,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscription.Setname(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -1097,7 +1097,7 @@ end;
 
 
 
-Procedure TSubscription.Settopic(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.Settopic(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftopic=AValue) then exit;
@@ -1107,7 +1107,7 @@ end;
 
 
 
-Procedure TSubscription.SetpushConfig(AIndex : Integer; const AValue : TPushConfig); 
+Procedure TSubscription.SetpushConfig(AIndex : Integer; const AValue : TPushConfig);
 
 begin
   If (FpushConfig=AValue) then exit;
@@ -1117,7 +1117,7 @@ end;
 
 
 
-Procedure TSubscription.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer); 
+Procedure TSubscription.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer);
 
 begin
   If (FackDeadlineSeconds=AValue) then exit;
@@ -1147,7 +1147,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; const AValue : String); 
+Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; const AValue : String);
 
 begin
   If (FpushEndpoint=AValue) then exit;
@@ -1157,7 +1157,7 @@ end;
 
 
 
-Procedure TPushConfig.Setattributes(AIndex : Integer; const AValue : TPushConfigTypeattributes); 
+Procedure TPushConfig.Setattributes(AIndex : Integer; const AValue : TPushConfigTypeattributes);
 
 begin
   If (Fattributes=AValue) then exit;
@@ -1174,7 +1174,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TListSubscriptionsResponseTypesubscriptionsArray); 
+Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TListSubscriptionsResponseTypesubscriptionsArray);
 
 begin
   If (Fsubscriptions=AValue) then exit;
@@ -1184,7 +1184,7 @@ end;
 
 
 
-Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1195,7 +1195,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1214,7 +1214,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TModifyAckDeadlineRequest.SetackIds(AIndex : Integer; const AValue : TStringArray); 
+Procedure TModifyAckDeadlineRequest.SetackIds(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FackIds=AValue) then exit;
@@ -1224,7 +1224,7 @@ end;
 
 
 
-Procedure TModifyAckDeadlineRequest.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer); 
+Procedure TModifyAckDeadlineRequest.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer);
 
 begin
   If (FackDeadlineSeconds=AValue) then exit;
@@ -1235,7 +1235,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TModifyAckDeadlineRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TModifyAckDeadlineRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1254,7 +1254,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; const AValue : TStringArray); 
+Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FackIds=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TAcknowledgeRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TAcknowledgeRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1284,7 +1284,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPullRequest.SetreturnImmediately(AIndex : Integer; const AValue : boolean); 
+Procedure TPullRequest.SetreturnImmediately(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FreturnImmediately=AValue) then exit;
@@ -1294,7 +1294,7 @@ end;
 
 
 
-Procedure TPullRequest.SetmaxMessages(AIndex : Integer; const AValue : integer); 
+Procedure TPullRequest.SetmaxMessages(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmaxMessages=AValue) then exit;
@@ -1311,7 +1311,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; const AValue : TPullResponseTypereceivedMessagesArray); 
+Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; const AValue : TPullResponseTypereceivedMessagesArray);
 
 begin
   If (FreceivedMessages=AValue) then exit;
@@ -1322,7 +1322,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TPullResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TPullResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1341,7 +1341,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReceivedMessage.SetackId(AIndex : Integer; const AValue : String); 
+Procedure TReceivedMessage.SetackId(AIndex : Integer; const AValue : String);
 
 begin
   If (FackId=AValue) then exit;
@@ -1351,7 +1351,7 @@ end;
 
 
 
-Procedure TReceivedMessage.Setmessage(AIndex : Integer; const AValue : TPubsubMessage); 
+Procedure TReceivedMessage.Setmessage(AIndex : Integer; const AValue : TPubsubMessage);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1368,7 +1368,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TModifyPushConfigRequest.SetpushConfig(AIndex : Integer; const AValue : TPushConfig); 
+Procedure TModifyPushConfigRequest.SetpushConfig(AIndex : Integer; const AValue : TPushConfig);
 
 begin
   If (FpushConfig=AValue) then exit;
@@ -2005,7 +2005,7 @@ begin
   Result[0].Description:='View and manage your data across Google Cloud Platform services';
   Result[1].Name:='https://www.googleapis.com/auth/pubsub';
   Result[1].Description:='View and manage Pub/Sub topics and subscriptions';
-  
+
 end;
 
 Class Function TPubsubAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlereplicapool.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TInstanceGroupManager = Class;
   TInstanceGroupManagerList = Class;
@@ -46,11 +46,11 @@ type
   TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
   TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
   TOperationListTypeitemsArray = Array of TOperation;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManager
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManager = Class(TGoogleBaseObject)
   Private
     FautoHealingPolicies : TInstanceGroupManagerTypeautoHealingPoliciesArray;
@@ -105,11 +105,11 @@ type
     Property targetSize : integer Index 104 Read FtargetSize Write SettargetSize;
   end;
   TInstanceGroupManagerClass = Class of TInstanceGroupManager;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagerList
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagerList = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -137,11 +137,11 @@ type
     Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
   end;
   TInstanceGroupManagerListClass = Class of TInstanceGroupManagerList;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersAbandonInstancesRequest
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagersAbandonInstancesRequest = Class(TGoogleBaseObject)
   Private
     Finstances : TStringArray;
@@ -157,11 +157,11 @@ type
     Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
   end;
   TInstanceGroupManagersAbandonInstancesRequestClass = Class of TInstanceGroupManagersAbandonInstancesRequest;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersDeleteInstancesRequest
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagersDeleteInstancesRequest = Class(TGoogleBaseObject)
   Private
     Finstances : TStringArray;
@@ -177,11 +177,11 @@ type
     Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
   end;
   TInstanceGroupManagersDeleteInstancesRequestClass = Class of TInstanceGroupManagersDeleteInstancesRequest;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersRecreateInstancesRequest
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagersRecreateInstancesRequest = Class(TGoogleBaseObject)
   Private
     Finstances : TStringArray;
@@ -197,11 +197,11 @@ type
     Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
   end;
   TInstanceGroupManagersRecreateInstancesRequestClass = Class of TInstanceGroupManagersRecreateInstancesRequest;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersSetInstanceTemplateRequest
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagersSetInstanceTemplateRequest = Class(TGoogleBaseObject)
   Private
     FinstanceTemplate : String;
@@ -213,11 +213,11 @@ type
     Property instanceTemplate : String Index 0 Read FinstanceTemplate Write SetinstanceTemplate;
   end;
   TInstanceGroupManagersSetInstanceTemplateRequestClass = Class of TInstanceGroupManagersSetInstanceTemplateRequest;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersSetTargetPoolsRequest
     --------------------------------------------------------------------}
-  
+
   TInstanceGroupManagersSetTargetPoolsRequest = Class(TGoogleBaseObject)
   Private
     Ffingerprint : String;
@@ -236,11 +236,11 @@ type
     Property targetPools : TStringArray Index 8 Read FtargetPools Write SettargetPools;
   end;
   TInstanceGroupManagersSetTargetPoolsRequestClass = Class of TInstanceGroupManagersSetTargetPoolsRequest;
-  
+
   { --------------------------------------------------------------------
     TOperationTypeerrorTypeerrorsItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
   Private
     Fcode : String;
@@ -258,11 +258,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
-  
+
   { --------------------------------------------------------------------
     TOperationTypeerror
     --------------------------------------------------------------------}
-  
+
   TOperationTypeerror = Class(TGoogleBaseObject)
   Private
     Ferrors : TOperationTypeerrorTypeerrorsArray;
@@ -278,11 +278,11 @@ type
     Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
   end;
   TOperationTypeerrorClass = Class of TOperationTypeerror;
-  
+
   { --------------------------------------------------------------------
     TOperationTypewarningsItemTypedataItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
   Private
     Fkey : String;
@@ -297,11 +297,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
-  
+
   { --------------------------------------------------------------------
     TOperationTypewarningsItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypewarningsItem = Class(TGoogleBaseObject)
   Private
     Fcode : String;
@@ -323,11 +323,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
-  
+
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
-  
+
   TOperation = Class(TGoogleBaseObject)
   Private
     FclientOperationId : String;
@@ -406,11 +406,11 @@ type
     Property zone : String Index 168 Read Fzone Write Setzone;
   end;
   TOperationClass = Class of TOperation;
-  
+
   { --------------------------------------------------------------------
     TOperationList
     --------------------------------------------------------------------}
-  
+
   TOperationList = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -438,11 +438,11 @@ type
     Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
   end;
   TOperationListClass = Class of TOperationList;
-  
+
   { --------------------------------------------------------------------
     TReplicaPoolAutoHealingPolicy
     --------------------------------------------------------------------}
-  
+
   TReplicaPoolAutoHealingPolicy = Class(TGoogleBaseObject)
   Private
     FactionType : String;
@@ -457,34 +457,34 @@ type
     Property healthCheck : String Index 8 Read FhealthCheck Write SethealthCheck;
   end;
   TReplicaPoolAutoHealingPolicyClass = Class of TReplicaPoolAutoHealingPolicy;
-  
+
   { --------------------------------------------------------------------
     TInstanceGroupManagersResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TInstanceGroupManagersResource, method Insert
-  
+
   TInstanceGroupManagersInsertOptions = Record
     size : integer;
   end;
-  
-  
+
+
   //Optional query Options for TInstanceGroupManagersResource, method List
-  
+
   TInstanceGroupManagersListOptions = Record
     filter : String;
     maxResults : integer;
     pageToken : String;
   end;
-  
-  
+
+
   //Optional query Options for TInstanceGroupManagersResource, method Resize
-  
+
   TInstanceGroupManagersResizeOptions = Record
     size : integer;
   end;
-  
+
   TInstanceGroupManagersResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -503,21 +503,21 @@ type
     Function SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
     Function SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TZoneOperationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TZoneOperationsResource, method List
-  
+
   TZoneOperationsListOptions = Record
     filter : String;
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TZoneOperationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -526,12 +526,12 @@ type
     Function List(project: string; zone: string; AQuery : string  = '') : TOperationList;
     Function List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TReplicapoolAPI
     --------------------------------------------------------------------}
-  
+
   TReplicapoolAPI = Class(TGoogleAPI)
   Private
     FInstanceGroupManagersInstance : TInstanceGroupManagersResource;
@@ -578,7 +578,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManager.SetautoHealingPolicies(AIndex : Integer; const AValue : TInstanceGroupManagerTypeautoHealingPoliciesArray); 
+Procedure TInstanceGroupManager.SetautoHealingPolicies(AIndex : Integer; const AValue : TInstanceGroupManagerTypeautoHealingPoliciesArray);
 
 begin
   If (FautoHealingPolicies=AValue) then exit;
@@ -588,7 +588,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String);
 
 begin
   If (FbaseInstanceName=AValue) then exit;
@@ -598,7 +598,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -608,7 +608,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetcurrentSize(AIndex : Integer; const AValue : integer); 
+Procedure TInstanceGroupManager.SetcurrentSize(AIndex : Integer; const AValue : integer);
 
 begin
   If (FcurrentSize=AValue) then exit;
@@ -618,7 +618,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -628,7 +628,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -638,7 +638,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setgroup(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setgroup(AIndex : Integer; const AValue : String);
 
 begin
   If (Fgroup=AValue) then exit;
@@ -648,7 +648,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -658,7 +658,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String);
 
 begin
   If (FinstanceTemplate=AValue) then exit;
@@ -668,7 +668,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -678,7 +678,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -698,7 +698,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray); 
+Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FtargetPools=AValue) then exit;
@@ -708,7 +708,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer); 
+Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer);
 
 begin
   If (FtargetSize=AValue) then exit;
@@ -719,7 +719,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -739,7 +739,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -749,7 +749,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); 
+Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -759,7 +759,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -769,7 +769,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -779,7 +779,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -790,7 +790,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManagerList.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManagerList.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -809,7 +809,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 
+Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Finstances=AValue) then exit;
@@ -820,7 +820,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManagersAbandonInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManagersAbandonInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -839,7 +839,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 
+Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Finstances=AValue) then exit;
@@ -850,7 +850,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManagersDeleteInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManagersDeleteInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -869,7 +869,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 
+Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Finstances=AValue) then exit;
@@ -880,7 +880,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManagersRecreateInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManagersRecreateInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -899,7 +899,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String);
 
 begin
   If (FinstanceTemplate=AValue) then exit;
@@ -916,7 +916,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String); 
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -926,7 +926,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray); 
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FtargetPools=AValue) then exit;
@@ -937,7 +937,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TInstanceGroupManagersSetTargetPoolsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -956,7 +956,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcode=AValue) then exit;
@@ -966,7 +966,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocation=AValue) then exit;
@@ -976,7 +976,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -993,7 +993,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); 
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
 
 begin
   If (Ferrors=AValue) then exit;
@@ -1004,7 +1004,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1023,7 +1023,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -1033,7 +1033,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1050,7 +1050,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcode=AValue) then exit;
@@ -1060,7 +1060,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); 
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
 
 begin
   If (Fdata=AValue) then exit;
@@ -1070,7 +1070,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1081,7 +1081,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1100,7 +1100,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -1110,7 +1110,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1120,7 +1120,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FendTime=AValue) then exit;
@@ -1130,7 +1130,7 @@ end;
 
 
 
-Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror); 
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
 
 begin
   If (Ferror=AValue) then exit;
@@ -1140,7 +1140,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -1150,7 +1150,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); 
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
 
 begin
   If (FhttpErrorStatusCode=AValue) then exit;
@@ -1160,7 +1160,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -1170,7 +1170,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -1180,7 +1180,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1190,7 +1190,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -1200,7 +1200,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1210,7 +1210,7 @@ end;
 
 
 
-Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer); 
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fprogress=AValue) then exit;
@@ -1220,7 +1220,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String);
 
 begin
   If (Fregion=AValue) then exit;
@@ -1230,7 +1230,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1240,7 +1240,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1250,7 +1250,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1260,7 +1260,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1270,7 +1270,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String);
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1280,7 +1280,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1290,7 +1290,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String);
 
 begin
   If (Fuser=AValue) then exit;
@@ -1300,7 +1300,7 @@ end;
 
 
 
-Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); 
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
 
 begin
   If (Fwarnings=AValue) then exit;
@@ -1310,7 +1310,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
 
 begin
   If (Fzone=AValue) then exit;
@@ -1321,7 +1321,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1340,7 +1340,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -1350,7 +1350,7 @@ end;
 
 
 
-Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); 
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -1360,7 +1360,7 @@ end;
 
 
 
-Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1370,7 +1370,7 @@ end;
 
 
 
-Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1380,7 +1380,7 @@ end;
 
 
 
-Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1391,7 +1391,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1410,7 +1410,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReplicaPoolAutoHealingPolicy.SetactionType(AIndex : Integer; const AValue : String); 
+Procedure TReplicaPoolAutoHealingPolicy.SetactionType(AIndex : Integer; const AValue : String);
 
 begin
   If (FactionType=AValue) then exit;
@@ -1420,7 +1420,7 @@ end;
 
 
 
-Procedure TReplicaPoolAutoHealingPolicy.SethealthCheck(AIndex : Integer; const AValue : String); 
+Procedure TReplicaPoolAutoHealingPolicy.SethealthCheck(AIndex : Integer; const AValue : String);
 
 begin
   If (FhealthCheck=AValue) then exit;
@@ -1820,7 +1820,7 @@ begin
   Result[2].Description:='View and manage your Google Compute Engine resources';
   Result[3].Name:='https://www.googleapis.com/auth/compute.readonly';
   Result[3].Description:='View your Google Compute Engine resources';
-  
+
 end;
 
 Class Function TReplicapoolAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlereseller.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TAddress = Class;
   TChangePlanRequest = Class;
@@ -35,11 +35,11 @@ type
   TSubscriptionTypetransferInfo = Class;
   TSubscriptionTypetrialSettings = Class;
   TSubscriptionsTypesubscriptionsArray = Array of TSubscription;
-  
+
   { --------------------------------------------------------------------
     TAddress
     --------------------------------------------------------------------}
-  
+
   TAddress = Class(TGoogleBaseObject)
   Private
     FaddressLine1 : String;
@@ -78,11 +78,11 @@ type
     Property region : String Index 72 Read Fregion Write Setregion;
   end;
   TAddressClass = Class of TAddress;
-  
+
   { --------------------------------------------------------------------
     TChangePlanRequest
     --------------------------------------------------------------------}
-  
+
   TChangePlanRequest = Class(TGoogleBaseObject)
   Private
     FdealCode : String;
@@ -106,11 +106,11 @@ type
     Property seats : TSeats Index 32 Read Fseats Write Setseats;
   end;
   TChangePlanRequestClass = Class of TChangePlanRequest;
-  
+
   { --------------------------------------------------------------------
     TCustomer
     --------------------------------------------------------------------}
-  
+
   TCustomer = Class(TGoogleBaseObject)
   Private
     FalternateEmail : String;
@@ -143,11 +143,11 @@ type
     Property resourceUiUrl : String Index 56 Read FresourceUiUrl Write SetresourceUiUrl;
   end;
   TCustomerClass = Class of TCustomer;
-  
+
   { --------------------------------------------------------------------
     TRenewalSettings
     --------------------------------------------------------------------}
-  
+
   TRenewalSettings = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -162,11 +162,11 @@ type
     Property renewalType : String Index 8 Read FrenewalType Write SetrenewalType;
   end;
   TRenewalSettingsClass = Class of TRenewalSettings;
-  
+
   { --------------------------------------------------------------------
     TSeats
     --------------------------------------------------------------------}
-  
+
   TSeats = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -187,11 +187,11 @@ type
     Property numberOfSeats : integer Index 24 Read FnumberOfSeats Write SetnumberOfSeats;
   end;
   TSeatsClass = Class of TSeats;
-  
+
   { --------------------------------------------------------------------
     TSubscriptionTypeplanTypecommitmentInterval
     --------------------------------------------------------------------}
-  
+
   TSubscriptionTypeplanTypecommitmentInterval = Class(TGoogleBaseObject)
   Private
     FendTime : String;
@@ -206,11 +206,11 @@ type
     Property startTime : String Index 8 Read FstartTime Write SetstartTime;
   end;
   TSubscriptionTypeplanTypecommitmentIntervalClass = Class of TSubscriptionTypeplanTypecommitmentInterval;
-  
+
   { --------------------------------------------------------------------
     TSubscriptionTypeplan
     --------------------------------------------------------------------}
-  
+
   TSubscriptionTypeplan = Class(TGoogleBaseObject)
   Private
     FcommitmentInterval : TSubscriptionTypeplanTypecommitmentInterval;
@@ -228,11 +228,11 @@ type
     Property planName : String Index 16 Read FplanName Write SetplanName;
   end;
   TSubscriptionTypeplanClass = Class of TSubscriptionTypeplan;
-  
+
   { --------------------------------------------------------------------
     TSubscriptionTypetransferInfo
     --------------------------------------------------------------------}
-  
+
   TSubscriptionTypetransferInfo = Class(TGoogleBaseObject)
   Private
     FminimumTransferableSeats : integer;
@@ -247,11 +247,11 @@ type
     Property transferabilityExpirationTime : String Index 8 Read FtransferabilityExpirationTime Write SettransferabilityExpirationTime;
   end;
   TSubscriptionTypetransferInfoClass = Class of TSubscriptionTypetransferInfo;
-  
+
   { --------------------------------------------------------------------
     TSubscriptionTypetrialSettings
     --------------------------------------------------------------------}
-  
+
   TSubscriptionTypetrialSettings = Class(TGoogleBaseObject)
   Private
     FisInTrial : boolean;
@@ -266,11 +266,11 @@ type
     Property trialEndTime : String Index 8 Read FtrialEndTime Write SettrialEndTime;
   end;
   TSubscriptionTypetrialSettingsClass = Class of TSubscriptionTypetrialSettings;
-  
+
   { --------------------------------------------------------------------
     TSubscription
     --------------------------------------------------------------------}
-  
+
   TSubscription = Class(TGoogleBaseObject)
   Private
     FbillingMethod : String;
@@ -334,11 +334,11 @@ type
     Property trialSettings : TSubscriptionTypetrialSettings Index 128 Read FtrialSettings Write SettrialSettings;
   end;
   TSubscriptionClass = Class of TSubscription;
-  
+
   { --------------------------------------------------------------------
     TSubscriptions
     --------------------------------------------------------------------}
-  
+
   TSubscriptions = Class(TGoogleBaseObject)
   Private
     Fkind : String;
@@ -360,18 +360,18 @@ type
     Property subscriptions : TSubscriptionsTypesubscriptionsArray Index 16 Read Fsubscriptions Write Setsubscriptions;
   end;
   TSubscriptionsClass = Class of TSubscriptions;
-  
+
   { --------------------------------------------------------------------
     TCustomersResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TCustomersResource, method Insert
-  
+
   TCustomersInsertOptions = Record
     customerAuthToken : String;
   end;
-  
+
   TCustomersResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -382,29 +382,29 @@ type
     Function Patch(customerId: string; aCustomer : TCustomer) : TCustomer;
     Function Update(customerId: string; aCustomer : TCustomer) : TCustomer;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TSubscriptionsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TSubscriptionsResource, method Delete
-  
+
   TSubscriptionsDeleteOptions = Record
     deletionType : String;
   end;
-  
-  
+
+
   //Optional query Options for TSubscriptionsResource, method Insert
-  
+
   TSubscriptionsInsertOptions = Record
     customerAuthToken : String;
   end;
-  
-  
+
+
   //Optional query Options for TSubscriptionsResource, method List
-  
+
   TSubscriptionsListOptions = Record
     customerAuthToken : String;
     customerId : String;
@@ -412,7 +412,7 @@ type
     maxResults : integer;
     pageToken : String;
   end;
-  
+
   TSubscriptionsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -431,12 +431,12 @@ type
     Function StartPaidService(customerId: string; subscriptionId: string) : TSubscription;
     Function Suspend(customerId: string; subscriptionId: string) : TSubscription;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TResellerAPI
     --------------------------------------------------------------------}
-  
+
   TResellerAPI = Class(TGoogleAPI)
   Private
     FCustomersInstance : TCustomersResource;
@@ -483,7 +483,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAddress.SetaddressLine1(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetaddressLine1(AIndex : Integer; const AValue : String);
 
 begin
   If (FaddressLine1=AValue) then exit;
@@ -493,7 +493,7 @@ end;
 
 
 
-Procedure TAddress.SetaddressLine2(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetaddressLine2(AIndex : Integer; const AValue : String);
 
 begin
   If (FaddressLine2=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TAddress.SetaddressLine3(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetaddressLine3(AIndex : Integer; const AValue : String);
 
 begin
   If (FaddressLine3=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TAddress.SetcontactName(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetcontactName(AIndex : Integer; const AValue : String);
 
 begin
   If (FcontactName=AValue) then exit;
@@ -523,7 +523,7 @@ end;
 
 
 
-Procedure TAddress.SetcountryCode(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetcountryCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FcountryCode=AValue) then exit;
@@ -533,7 +533,7 @@ end;
 
 
 
-Procedure TAddress.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TAddress.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -543,7 +543,7 @@ end;
 
 
 
-Procedure TAddress.Setlocality(AIndex : Integer; const AValue : String); 
+Procedure TAddress.Setlocality(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocality=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TAddress.SetorganizationName(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetorganizationName(AIndex : Integer; const AValue : String);
 
 begin
   If (ForganizationName=AValue) then exit;
@@ -563,7 +563,7 @@ end;
 
 
 
-Procedure TAddress.SetpostalCode(AIndex : Integer; const AValue : String); 
+Procedure TAddress.SetpostalCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FpostalCode=AValue) then exit;
@@ -573,7 +573,7 @@ end;
 
 
 
-Procedure TAddress.Setregion(AIndex : Integer; const AValue : String); 
+Procedure TAddress.Setregion(AIndex : Integer; const AValue : String);
 
 begin
   If (Fregion=AValue) then exit;
@@ -590,7 +590,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChangePlanRequest.SetdealCode(AIndex : Integer; const AValue : String); 
+Procedure TChangePlanRequest.SetdealCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FdealCode=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TChangePlanRequest.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -610,7 +610,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.SetplanName(AIndex : Integer; const AValue : String); 
+Procedure TChangePlanRequest.SetplanName(AIndex : Integer; const AValue : String);
 
 begin
   If (FplanName=AValue) then exit;
@@ -620,7 +620,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.SetpurchaseOrderId(AIndex : Integer; const AValue : String); 
+Procedure TChangePlanRequest.SetpurchaseOrderId(AIndex : Integer; const AValue : String);
 
 begin
   If (FpurchaseOrderId=AValue) then exit;
@@ -630,7 +630,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.Setseats(AIndex : Integer; const AValue : TSeats); 
+Procedure TChangePlanRequest.Setseats(AIndex : Integer; const AValue : TSeats);
 
 begin
   If (Fseats=AValue) then exit;
@@ -647,7 +647,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomer.SetalternateEmail(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.SetalternateEmail(AIndex : Integer; const AValue : String);
 
 begin
   If (FalternateEmail=AValue) then exit;
@@ -657,7 +657,7 @@ end;
 
 
 
-Procedure TCustomer.SetcustomerDomain(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.SetcustomerDomain(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerDomain=AValue) then exit;
@@ -667,7 +667,7 @@ end;
 
 
 
-Procedure TCustomer.SetcustomerDomainVerified(AIndex : Integer; const AValue : boolean); 
+Procedure TCustomer.SetcustomerDomainVerified(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FcustomerDomainVerified=AValue) then exit;
@@ -677,7 +677,7 @@ end;
 
 
 
-Procedure TCustomer.SetcustomerId(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.SetcustomerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -687,7 +687,7 @@ end;
 
 
 
-Procedure TCustomer.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -697,7 +697,7 @@ end;
 
 
 
-Procedure TCustomer.SetphoneNumber(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.SetphoneNumber(AIndex : Integer; const AValue : String);
 
 begin
   If (FphoneNumber=AValue) then exit;
@@ -707,7 +707,7 @@ end;
 
 
 
-Procedure TCustomer.SetpostalAddress(AIndex : Integer; const AValue : TAddress); 
+Procedure TCustomer.SetpostalAddress(AIndex : Integer; const AValue : TAddress);
 
 begin
   If (FpostalAddress=AValue) then exit;
@@ -717,7 +717,7 @@ end;
 
 
 
-Procedure TCustomer.SetresourceUiUrl(AIndex : Integer; const AValue : String); 
+Procedure TCustomer.SetresourceUiUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FresourceUiUrl=AValue) then exit;
@@ -734,7 +734,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRenewalSettings.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TRenewalSettings.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -744,7 +744,7 @@ end;
 
 
 
-Procedure TRenewalSettings.SetrenewalType(AIndex : Integer; const AValue : String); 
+Procedure TRenewalSettings.SetrenewalType(AIndex : Integer; const AValue : String);
 
 begin
   If (FrenewalType=AValue) then exit;
@@ -761,7 +761,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSeats.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TSeats.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -771,7 +771,7 @@ end;
 
 
 
-Procedure TSeats.SetlicensedNumberOfSeats(AIndex : Integer; const AValue : integer); 
+Procedure TSeats.SetlicensedNumberOfSeats(AIndex : Integer; const AValue : integer);
 
 begin
   If (FlicensedNumberOfSeats=AValue) then exit;
@@ -781,7 +781,7 @@ end;
 
 
 
-Procedure TSeats.SetmaximumNumberOfSeats(AIndex : Integer; const AValue : integer); 
+Procedure TSeats.SetmaximumNumberOfSeats(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmaximumNumberOfSeats=AValue) then exit;
@@ -791,7 +791,7 @@ end;
 
 
 
-Procedure TSeats.SetnumberOfSeats(AIndex : Integer; const AValue : integer); 
+Procedure TSeats.SetnumberOfSeats(AIndex : Integer; const AValue : integer);
 
 begin
   If (FnumberOfSeats=AValue) then exit;
@@ -808,7 +808,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionTypeplanTypecommitmentInterval.SetendTime(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptionTypeplanTypecommitmentInterval.SetendTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FendTime=AValue) then exit;
@@ -818,7 +818,7 @@ end;
 
 
 
-Procedure TSubscriptionTypeplanTypecommitmentInterval.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptionTypeplanTypecommitmentInterval.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -835,7 +835,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionTypeplan.SetcommitmentInterval(AIndex : Integer; const AValue : TSubscriptionTypeplanTypecommitmentInterval); 
+Procedure TSubscriptionTypeplan.SetcommitmentInterval(AIndex : Integer; const AValue : TSubscriptionTypeplanTypecommitmentInterval);
 
 begin
   If (FcommitmentInterval=AValue) then exit;
@@ -845,7 +845,7 @@ end;
 
 
 
-Procedure TSubscriptionTypeplan.SetisCommitmentPlan(AIndex : Integer; const AValue : boolean); 
+Procedure TSubscriptionTypeplan.SetisCommitmentPlan(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FisCommitmentPlan=AValue) then exit;
@@ -855,7 +855,7 @@ end;
 
 
 
-Procedure TSubscriptionTypeplan.SetplanName(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptionTypeplan.SetplanName(AIndex : Integer; const AValue : String);
 
 begin
   If (FplanName=AValue) then exit;
@@ -872,7 +872,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionTypetransferInfo.SetminimumTransferableSeats(AIndex : Integer; const AValue : integer); 
+Procedure TSubscriptionTypetransferInfo.SetminimumTransferableSeats(AIndex : Integer; const AValue : integer);
 
 begin
   If (FminimumTransferableSeats=AValue) then exit;
@@ -882,7 +882,7 @@ end;
 
 
 
-Procedure TSubscriptionTypetransferInfo.SettransferabilityExpirationTime(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptionTypetransferInfo.SettransferabilityExpirationTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FtransferabilityExpirationTime=AValue) then exit;
@@ -899,7 +899,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionTypetrialSettings.SetisInTrial(AIndex : Integer; const AValue : boolean); 
+Procedure TSubscriptionTypetrialSettings.SetisInTrial(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FisInTrial=AValue) then exit;
@@ -909,7 +909,7 @@ end;
 
 
 
-Procedure TSubscriptionTypetrialSettings.SettrialEndTime(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptionTypetrialSettings.SettrialEndTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FtrialEndTime=AValue) then exit;
@@ -926,7 +926,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscription.SetbillingMethod(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetbillingMethod(AIndex : Integer; const AValue : String);
 
 begin
   If (FbillingMethod=AValue) then exit;
@@ -936,7 +936,7 @@ end;
 
 
 
-Procedure TSubscription.SetcreationTime(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetcreationTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTime=AValue) then exit;
@@ -946,7 +946,7 @@ end;
 
 
 
-Procedure TSubscription.SetcustomerDomain(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetcustomerDomain(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerDomain=AValue) then exit;
@@ -956,7 +956,7 @@ end;
 
 
 
-Procedure TSubscription.SetcustomerId(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetcustomerId(AIndex : Integer; const AValue : String);
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -966,7 +966,7 @@ end;
 
 
 
-Procedure TSubscription.SetdealCode(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetdealCode(AIndex : Integer; const AValue : String);
 
 begin
   If (FdealCode=AValue) then exit;
@@ -976,7 +976,7 @@ end;
 
 
 
-Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -986,7 +986,7 @@ end;
 
 
 
-Procedure TSubscription.Setplan(AIndex : Integer; const AValue : TSubscriptionTypeplan); 
+Procedure TSubscription.Setplan(AIndex : Integer; const AValue : TSubscriptionTypeplan);
 
 begin
   If (Fplan=AValue) then exit;
@@ -996,7 +996,7 @@ end;
 
 
 
-Procedure TSubscription.SetpurchaseOrderId(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetpurchaseOrderId(AIndex : Integer; const AValue : String);
 
 begin
   If (FpurchaseOrderId=AValue) then exit;
@@ -1006,7 +1006,7 @@ end;
 
 
 
-Procedure TSubscription.SetrenewalSettings(AIndex : Integer; const AValue : TRenewalSettings); 
+Procedure TSubscription.SetrenewalSettings(AIndex : Integer; const AValue : TRenewalSettings);
 
 begin
   If (FrenewalSettings=AValue) then exit;
@@ -1016,7 +1016,7 @@ end;
 
 
 
-Procedure TSubscription.SetresourceUiUrl(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetresourceUiUrl(AIndex : Integer; const AValue : String);
 
 begin
   If (FresourceUiUrl=AValue) then exit;
@@ -1026,7 +1026,7 @@ end;
 
 
 
-Procedure TSubscription.Setseats(AIndex : Integer; const AValue : TSeats); 
+Procedure TSubscription.Setseats(AIndex : Integer; const AValue : TSeats);
 
 begin
   If (Fseats=AValue) then exit;
@@ -1036,7 +1036,7 @@ end;
 
 
 
-Procedure TSubscription.SetskuId(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetskuId(AIndex : Integer; const AValue : String);
 
 begin
   If (FskuId=AValue) then exit;
@@ -1046,7 +1046,7 @@ end;
 
 
 
-Procedure TSubscription.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1056,7 +1056,7 @@ end;
 
 
 
-Procedure TSubscription.SetsubscriptionId(AIndex : Integer; const AValue : String); 
+Procedure TSubscription.SetsubscriptionId(AIndex : Integer; const AValue : String);
 
 begin
   If (FsubscriptionId=AValue) then exit;
@@ -1066,7 +1066,7 @@ end;
 
 
 
-Procedure TSubscription.SetsuspensionReasons(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSubscription.SetsuspensionReasons(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FsuspensionReasons=AValue) then exit;
@@ -1076,7 +1076,7 @@ end;
 
 
 
-Procedure TSubscription.SettransferInfo(AIndex : Integer; const AValue : TSubscriptionTypetransferInfo); 
+Procedure TSubscription.SettransferInfo(AIndex : Integer; const AValue : TSubscriptionTypetransferInfo);
 
 begin
   If (FtransferInfo=AValue) then exit;
@@ -1086,7 +1086,7 @@ end;
 
 
 
-Procedure TSubscription.SettrialSettings(AIndex : Integer; const AValue : TSubscriptionTypetrialSettings); 
+Procedure TSubscription.SettrialSettings(AIndex : Integer; const AValue : TSubscriptionTypetrialSettings);
 
 begin
   If (FtrialSettings=AValue) then exit;
@@ -1097,7 +1097,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSubscription.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSubscription.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1116,7 +1116,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptions.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptions.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -1126,7 +1126,7 @@ end;
 
 
 
-Procedure TSubscriptions.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TSubscriptions.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1136,7 +1136,7 @@ end;
 
 
 
-Procedure TSubscriptions.Setsubscriptions(AIndex : Integer; const AValue : TSubscriptionsTypesubscriptionsArray); 
+Procedure TSubscriptions.Setsubscriptions(AIndex : Integer; const AValue : TSubscriptionsTypesubscriptionsArray);
 
 begin
   If (Fsubscriptions=AValue) then exit;
@@ -1147,7 +1147,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSubscriptions.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSubscriptions.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1567,7 +1567,7 @@ begin
   Result[0].Description:='Manage users on your domain';
   Result[1].Name:='https://www.googleapis.com/auth/apps.order.readonly';
   Result[1].Description:='Manage users on your domain';
-  
+
 end;
 
 Class Function TResellerAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleruntimeconfig.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TStatus = Class;
   TListConfigsResponse = Class;
@@ -47,11 +47,11 @@ type
   TListConfigsResponseTypeconfigsArray = Array of TRuntimeConfig;
   TListWaitersResponseTypewaitersArray = Array of TWaiter;
   TListVariablesResponseTypevariablesArray = Array of TVariable;
-  
+
   { --------------------------------------------------------------------
     TStatusTypedetailsItem
     --------------------------------------------------------------------}
-  
+
   TStatusTypedetailsItem = Class(TGoogleBaseObject)
   Private
   Protected
@@ -61,11 +61,11 @@ type
   Published
   end;
   TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
-  
+
   { --------------------------------------------------------------------
     TStatus
     --------------------------------------------------------------------}
-  
+
   TStatus = Class(TGoogleBaseObject)
   Private
     Fcode : integer;
@@ -87,11 +87,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TStatusClass = Class of TStatus;
-  
+
   { --------------------------------------------------------------------
     TListConfigsResponse
     --------------------------------------------------------------------}
-  
+
   TListConfigsResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -110,11 +110,11 @@ type
     Property configs : TListConfigsResponseTypeconfigsArray Index 8 Read Fconfigs Write Setconfigs;
   end;
   TListConfigsResponseClass = Class of TListConfigsResponse;
-  
+
   { --------------------------------------------------------------------
     TVariable
     --------------------------------------------------------------------}
-  
+
   TVariable = Class(TGoogleBaseObject)
   Private
     Fvalue : String;
@@ -135,11 +135,11 @@ type
     Property name : String Index 24 Read Fname Write Setname;
   end;
   TVariableClass = Class of TVariable;
-  
+
   { --------------------------------------------------------------------
     TOperationTypemetadata
     --------------------------------------------------------------------}
-  
+
   TOperationTypemetadata = Class(TGoogleBaseObject)
   Private
   Protected
@@ -149,11 +149,11 @@ type
   Published
   end;
   TOperationTypemetadataClass = Class of TOperationTypemetadata;
-  
+
   { --------------------------------------------------------------------
     TOperationTyperesponse
     --------------------------------------------------------------------}
-  
+
   TOperationTyperesponse = Class(TGoogleBaseObject)
   Private
   Protected
@@ -163,11 +163,11 @@ type
   Published
   end;
   TOperationTyperesponseClass = Class of TOperationTyperesponse;
-  
+
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
-  
+
   TOperation = Class(TGoogleBaseObject)
   Private
     Ferror : TStatus;
@@ -191,11 +191,11 @@ type
     Property name : String Index 32 Read Fname Write Setname;
   end;
   TOperationClass = Class of TOperation;
-  
+
   { --------------------------------------------------------------------
     TWaiter
     --------------------------------------------------------------------}
-  
+
   TWaiter = Class(TGoogleBaseObject)
   Private
     Ftimeout : String;
@@ -225,11 +225,11 @@ type
     Property done : boolean Index 48 Read Fdone Write Setdone;
   end;
   TWaiterClass = Class of TWaiter;
-  
+
   { --------------------------------------------------------------------
     TRuntimeConfig
     --------------------------------------------------------------------}
-  
+
   TRuntimeConfig = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -244,11 +244,11 @@ type
     Property name : String Index 8 Read Fname Write Setname;
   end;
   TRuntimeConfigClass = Class of TRuntimeConfig;
-  
+
   { --------------------------------------------------------------------
     TListWaitersResponse
     --------------------------------------------------------------------}
-  
+
   TListWaitersResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -267,11 +267,11 @@ type
     Property waiters : TListWaitersResponseTypewaitersArray Index 8 Read Fwaiters Write Setwaiters;
   end;
   TListWaitersResponseClass = Class of TListWaitersResponse;
-  
+
   { --------------------------------------------------------------------
     TEndCondition
     --------------------------------------------------------------------}
-  
+
   TEndCondition = Class(TGoogleBaseObject)
   Private
     Fcardinality : TCardinality;
@@ -283,11 +283,11 @@ type
     Property cardinality : TCardinality Index 0 Read Fcardinality Write Setcardinality;
   end;
   TEndConditionClass = Class of TEndCondition;
-  
+
   { --------------------------------------------------------------------
     TCardinality
     --------------------------------------------------------------------}
-  
+
   TCardinality = Class(TGoogleBaseObject)
   Private
     Fpath : String;
@@ -302,11 +302,11 @@ type
     Property number : integer Index 8 Read Fnumber Write Setnumber;
   end;
   TCardinalityClass = Class of TCardinality;
-  
+
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
-  
+
   TEmpty = Class(TGoogleBaseObject)
   Private
   Protected
@@ -315,11 +315,11 @@ type
   Published
   end;
   TEmptyClass = Class of TEmpty;
-  
+
   { --------------------------------------------------------------------
     TWatchVariableRequest
     --------------------------------------------------------------------}
-  
+
   TWatchVariableRequest = Class(TGoogleBaseObject)
   Private
     FnewerThan : String;
@@ -331,11 +331,11 @@ type
     Property newerThan : String Index 0 Read FnewerThan Write SetnewerThan;
   end;
   TWatchVariableRequestClass = Class of TWatchVariableRequest;
-  
+
   { --------------------------------------------------------------------
     TListVariablesResponse
     --------------------------------------------------------------------}
-  
+
   TListVariablesResponse = Class(TGoogleBaseObject)
   Private
     Fvariables : TListVariablesResponseTypevariablesArray;
@@ -354,27 +354,27 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListVariablesResponseClass = Class of TListVariablesResponse;
-  
+
   { --------------------------------------------------------------------
     TProjectsConfigsVariablesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsConfigsVariablesResource, method List
-  
+
   TProjectsConfigsVariablesListOptions = Record
     pageSize : integer;
     filter : String;
     pageToken : String;
   end;
-  
-  
+
+
   //Optional query Options for TProjectsConfigsVariablesResource, method Delete
-  
+
   TProjectsConfigsVariablesDeleteOptions = Record
     recursive : boolean;
   end;
-  
+
   TProjectsConfigsVariablesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -388,20 +388,20 @@ type
     Function Delete(_name: string; AQuery : string  = '') : TEmpty;
     Function Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsConfigsWaitersResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsConfigsWaitersResource, method List
-  
+
   TProjectsConfigsWaitersListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsConfigsWaitersResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -412,32 +412,32 @@ type
     Function List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
     Function Delete(_name: string) : TEmpty;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsConfigsOperationsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsConfigsOperationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get(_name: string) : TOperation;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsConfigsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TProjectsConfigsResource, method List
-  
+
   TProjectsConfigsListOptions = Record
     pageSize : integer;
     pageToken : String;
   end;
-  
+
   TProjectsConfigsResource = Class(TGoogleResource)
   Private
     FVariablesInstance : TProjectsConfigsVariablesResource;
@@ -465,12 +465,12 @@ type
     Property WaitersResource : TProjectsConfigsWaitersResource Read GetWaitersInstance;
     Property OperationsResource : TProjectsConfigsOperationsResource Read GetOperationsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
-  
+
   TProjectsResource = Class(TGoogleResource)
   Private
     FConfigsVariablesInstance : TProjectsConfigsVariablesResource;
@@ -497,12 +497,12 @@ type
     Property ConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetConfigsOperationsInstance;
     Property ConfigsResource : TProjectsConfigsResource Read GetConfigsInstance;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TRuntimeconfigAPI
     --------------------------------------------------------------------}
-  
+
   TRuntimeconfigAPI = Class(TGoogleAPI)
   Private
     FProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
@@ -577,7 +577,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer); 
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fcode=AValue) then exit;
@@ -587,7 +587,7 @@ end;
 
 
 
-Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); 
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
 
 begin
   If (Fdetails=AValue) then exit;
@@ -597,7 +597,7 @@ end;
 
 
 
-Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -608,7 +608,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -627,7 +627,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListConfigsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListConfigsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -637,7 +637,7 @@ end;
 
 
 
-Procedure TListConfigsResponse.Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray); 
+Procedure TListConfigsResponse.Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray);
 
 begin
   If (Fconfigs=AValue) then exit;
@@ -648,7 +648,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListConfigsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListConfigsResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -667,7 +667,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -677,7 +677,7 @@ end;
 
 
 
-Procedure TVariable.SetupdateTime(AIndex : Integer; const AValue : String); 
+Procedure TVariable.SetupdateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FupdateTime=AValue) then exit;
@@ -687,7 +687,7 @@ end;
 
 
 
-Procedure TVariable.Setstate(AIndex : Integer; const AValue : String); 
+Procedure TVariable.Setstate(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstate=AValue) then exit;
@@ -697,7 +697,7 @@ end;
 
 
 
-Procedure TVariable.Setname(AIndex : Integer; const AValue : String); 
+Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -740,7 +740,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus); 
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
 
 begin
   If (Ferror=AValue) then exit;
@@ -750,7 +750,7 @@ end;
 
 
 
-Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean); 
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fdone=AValue) then exit;
@@ -760,7 +760,7 @@ end;
 
 
 
-Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); 
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
 
 begin
   If (Fmetadata=AValue) then exit;
@@ -770,7 +770,7 @@ end;
 
 
 
-Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); 
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
 
 begin
   If (Fresponse=AValue) then exit;
@@ -780,7 +780,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -797,7 +797,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWaiter.Settimeout(AIndex : Integer; const AValue : String); 
+Procedure TWaiter.Settimeout(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftimeout=AValue) then exit;
@@ -807,7 +807,7 @@ end;
 
 
 
-Procedure TWaiter.Setsuccess(AIndex : Integer; const AValue : TEndCondition); 
+Procedure TWaiter.Setsuccess(AIndex : Integer; const AValue : TEndCondition);
 
 begin
   If (Fsuccess=AValue) then exit;
@@ -817,7 +817,7 @@ end;
 
 
 
-Procedure TWaiter.Setfailure(AIndex : Integer; const AValue : TEndCondition); 
+Procedure TWaiter.Setfailure(AIndex : Integer; const AValue : TEndCondition);
 
 begin
   If (Ffailure=AValue) then exit;
@@ -827,7 +827,7 @@ end;
 
 
 
-Procedure TWaiter.SetcreateTime(AIndex : Integer; const AValue : String); 
+Procedure TWaiter.SetcreateTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreateTime=AValue) then exit;
@@ -837,7 +837,7 @@ end;
 
 
 
-Procedure TWaiter.Setname(AIndex : Integer; const AValue : String); 
+Procedure TWaiter.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -847,7 +847,7 @@ end;
 
 
 
-Procedure TWaiter.Seterror(AIndex : Integer; const AValue : TStatus); 
+Procedure TWaiter.Seterror(AIndex : Integer; const AValue : TStatus);
 
 begin
   If (Ferror=AValue) then exit;
@@ -857,7 +857,7 @@ end;
 
 
 
-Procedure TWaiter.Setdone(AIndex : Integer; const AValue : boolean); 
+Procedure TWaiter.Setdone(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fdone=AValue) then exit;
@@ -874,7 +874,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRuntimeConfig.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TRuntimeConfig.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -884,7 +884,7 @@ end;
 
 
 
-Procedure TRuntimeConfig.Setname(AIndex : Integer; const AValue : String); 
+Procedure TRuntimeConfig.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -901,7 +901,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListWaitersResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListWaitersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -911,7 +911,7 @@ end;
 
 
 
-Procedure TListWaitersResponse.Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray); 
+Procedure TListWaitersResponse.Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray);
 
 begin
   If (Fwaiters=AValue) then exit;
@@ -922,7 +922,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListWaitersResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListWaitersResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -941,7 +941,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEndCondition.Setcardinality(AIndex : Integer; const AValue : TCardinality); 
+Procedure TEndCondition.Setcardinality(AIndex : Integer; const AValue : TCardinality);
 
 begin
   If (Fcardinality=AValue) then exit;
@@ -958,7 +958,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCardinality.Setpath(AIndex : Integer; const AValue : String); 
+Procedure TCardinality.Setpath(AIndex : Integer; const AValue : String);
 
 begin
   If (Fpath=AValue) then exit;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TCardinality.Setnumber(AIndex : Integer; const AValue : integer); 
+Procedure TCardinality.Setnumber(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fnumber=AValue) then exit;
@@ -992,7 +992,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWatchVariableRequest.SetnewerThan(AIndex : Integer; const AValue : String); 
+Procedure TWatchVariableRequest.SetnewerThan(AIndex : Integer; const AValue : String);
 
 begin
   If (FnewerThan=AValue) then exit;
@@ -1009,7 +1009,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); 
+Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
 
 begin
   If (Fvariables=AValue) then exit;
@@ -1019,7 +1019,7 @@ end;
 
 
 
-Procedure TListVariablesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TListVariablesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1030,7 +1030,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1713,7 +1713,7 @@ begin
   Result[0].Description:='View and manage your data across Google Cloud Platform services';
   Result[1].Name:='https://www.googleapis.com/auth/cloudruntimeconfig';
   Result[1].Description:='Manage your Google Cloud Platform services'' runtime configuration';
-  
+
 end;
 
 Class Function TRuntimeconfigAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlescript.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TExecutionRequest = Class;
   TOperation = Class;
@@ -33,11 +33,11 @@ type
   TStatusTypedetailsItem = Class;
   TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
   TExecutionErrorTypescriptStackTraceElementsArray = Array of TScriptStackTraceElement;
-  
+
   { --------------------------------------------------------------------
     TExecutionRequest
     --------------------------------------------------------------------}
-  
+
   TExecutionRequest = Class(TGoogleBaseObject)
   Private
     F_function : String;
@@ -63,11 +63,11 @@ type
     Property devMode : boolean Index 24 Read FdevMode Write SetdevMode;
   end;
   TExecutionRequestClass = Class of TExecutionRequest;
-  
+
   { --------------------------------------------------------------------
     TOperationTypemetadata
     --------------------------------------------------------------------}
-  
+
   TOperationTypemetadata = Class(TGoogleBaseObject)
   Private
   Protected
@@ -77,11 +77,11 @@ type
   Published
   end;
   TOperationTypemetadataClass = Class of TOperationTypemetadata;
-  
+
   { --------------------------------------------------------------------
     TOperationTyperesponse
     --------------------------------------------------------------------}
-  
+
   TOperationTyperesponse = Class(TGoogleBaseObject)
   Private
   Protected
@@ -91,11 +91,11 @@ type
   Published
   end;
   TOperationTyperesponseClass = Class of TOperationTyperesponse;
-  
+
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
-  
+
   TOperation = Class(TGoogleBaseObject)
   Private
     Fname : String;
@@ -119,11 +119,11 @@ type
     Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
   end;
   TOperationClass = Class of TOperation;
-  
+
   { --------------------------------------------------------------------
     TStatusTypedetailsItem
     --------------------------------------------------------------------}
-  
+
   TStatusTypedetailsItem = Class(TGoogleBaseObject)
   Private
   Protected
@@ -133,11 +133,11 @@ type
   Published
   end;
   TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
-  
+
   { --------------------------------------------------------------------
     TStatus
     --------------------------------------------------------------------}
-  
+
   TStatus = Class(TGoogleBaseObject)
   Private
     Fcode : integer;
@@ -159,11 +159,11 @@ type
     Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
   end;
   TStatusClass = Class of TStatus;
-  
+
   { --------------------------------------------------------------------
     TExecutionError
     --------------------------------------------------------------------}
-  
+
   TExecutionError = Class(TGoogleBaseObject)
   Private
     FscriptStackTraceElements : TExecutionErrorTypescriptStackTraceElementsArray;
@@ -185,11 +185,11 @@ type
     Property errorType : String Index 16 Read FerrorType Write SeterrorType;
   end;
   TExecutionErrorClass = Class of TExecutionError;
-  
+
   { --------------------------------------------------------------------
     TScriptStackTraceElement
     --------------------------------------------------------------------}
-  
+
   TScriptStackTraceElement = Class(TGoogleBaseObject)
   Private
     F_function : String;
@@ -205,11 +205,11 @@ type
     Property lineNumber : integer Index 8 Read FlineNumber Write SetlineNumber;
   end;
   TScriptStackTraceElementClass = Class of TScriptStackTraceElement;
-  
+
   { --------------------------------------------------------------------
     TExecutionResponse
     --------------------------------------------------------------------}
-  
+
   TExecutionResponse = Class(TGoogleBaseObject)
   Private
     Fresult : TJSONSchema;
@@ -221,23 +221,23 @@ type
     Property result : TJSONSchema Index 0 Read Fresult Write Setresult;
   end;
   TExecutionResponseClass = Class of TExecutionResponse;
-  
+
   { --------------------------------------------------------------------
     TScriptsResource
     --------------------------------------------------------------------}
-  
+
   TScriptsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Run(scriptId: string; aExecutionRequest : TExecutionRequest) : TOperation;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TScriptAPI
     --------------------------------------------------------------------}
-  
+
   TScriptAPI = Class(TGoogleAPI)
   Private
     FScriptsInstance : TScriptsResource;
@@ -279,7 +279,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TExecutionRequest.Set_function(AIndex : Integer; const AValue : String); 
+Procedure TExecutionRequest.Set_function(AIndex : Integer; const AValue : String);
 
 begin
   If (F_function=AValue) then exit;
@@ -289,7 +289,7 @@ end;
 
 
 
-Procedure TExecutionRequest.Setparameters(AIndex : Integer; const AValue : TTJSONSchemaArray); 
+Procedure TExecutionRequest.Setparameters(AIndex : Integer; const AValue : TTJSONSchemaArray);
 
 begin
   If (Fparameters=AValue) then exit;
@@ -299,7 +299,7 @@ end;
 
 
 
-Procedure TExecutionRequest.SetsessionState(AIndex : Integer; const AValue : String); 
+Procedure TExecutionRequest.SetsessionState(AIndex : Integer; const AValue : String);
 
 begin
   If (FsessionState=AValue) then exit;
@@ -309,7 +309,7 @@ end;
 
 
 
-Procedure TExecutionRequest.SetdevMode(AIndex : Integer; const AValue : boolean); 
+Procedure TExecutionRequest.SetdevMode(AIndex : Integer; const AValue : boolean);
 
 begin
   If (FdevMode=AValue) then exit;
@@ -331,7 +331,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TExecutionRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TExecutionRequest.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -376,7 +376,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -386,7 +386,7 @@ end;
 
 
 
-Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); 
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
 
 begin
   If (Fmetadata=AValue) then exit;
@@ -396,7 +396,7 @@ end;
 
 
 
-Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean); 
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fdone=AValue) then exit;
@@ -406,7 +406,7 @@ end;
 
 
 
-Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus); 
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
 
 begin
   If (Ferror=AValue) then exit;
@@ -416,7 +416,7 @@ end;
 
 
 
-Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); 
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
 
 begin
   If (Fresponse=AValue) then exit;
@@ -446,7 +446,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer); 
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fcode=AValue) then exit;
@@ -456,7 +456,7 @@ end;
 
 
 
-Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -466,7 +466,7 @@ end;
 
 
 
-Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); 
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
 
 begin
   If (Fdetails=AValue) then exit;
@@ -477,7 +477,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -496,7 +496,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TExecutionError.SetscriptStackTraceElements(AIndex : Integer; const AValue : TExecutionErrorTypescriptStackTraceElementsArray); 
+Procedure TExecutionError.SetscriptStackTraceElements(AIndex : Integer; const AValue : TExecutionErrorTypescriptStackTraceElementsArray);
 
 begin
   If (FscriptStackTraceElements=AValue) then exit;
@@ -506,7 +506,7 @@ end;
 
 
 
-Procedure TExecutionError.SeterrorMessage(AIndex : Integer; const AValue : String); 
+Procedure TExecutionError.SeterrorMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FerrorMessage=AValue) then exit;
@@ -516,7 +516,7 @@ end;
 
 
 
-Procedure TExecutionError.SeterrorType(AIndex : Integer; const AValue : String); 
+Procedure TExecutionError.SeterrorType(AIndex : Integer; const AValue : String);
 
 begin
   If (FerrorType=AValue) then exit;
@@ -527,7 +527,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TExecutionError.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TExecutionError.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -546,7 +546,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TScriptStackTraceElement.Set_function(AIndex : Integer; const AValue : String); 
+Procedure TScriptStackTraceElement.Set_function(AIndex : Integer; const AValue : String);
 
 begin
   If (F_function=AValue) then exit;
@@ -556,7 +556,7 @@ end;
 
 
 
-Procedure TScriptStackTraceElement.SetlineNumber(AIndex : Integer; const AValue : integer); 
+Procedure TScriptStackTraceElement.SetlineNumber(AIndex : Integer; const AValue : integer);
 
 begin
   If (FlineNumber=AValue) then exit;
@@ -584,7 +584,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TExecutionResponse.Setresult(AIndex : Integer; const AValue : TJSONSchema); 
+Procedure TExecutionResponse.Setresult(AIndex : Integer; const AValue : TJSONSchema);
 
 begin
   If (Fresult=AValue) then exit;
@@ -762,7 +762,7 @@ begin
   Result[9].Description:='View and manage your spreadsheets in Google Drive';
   Result[10].Name:='https://www.googleapis.com/auth/userinfo.email';
   Result[10].Description:='View your email address';
-  
+
 end;
 
 Class Function TScriptAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googleserviceregistry.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TEndpoint = Class;
   TEndpointEndpointVisibility = Class;
@@ -35,11 +35,11 @@ type
   TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
   TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
   TOperationsListResponseTypeoperationsArray = Array of TOperation;
-  
+
   { --------------------------------------------------------------------
     TEndpoint
     --------------------------------------------------------------------}
-  
+
   TEndpoint = Class(TGoogleBaseObject)
   Private
     Faddress : String;
@@ -78,11 +78,11 @@ type
     Property visibility : TEndpointEndpointVisibility Index 72 Read Fvisibility Write Setvisibility;
   end;
   TEndpointClass = Class of TEndpoint;
-  
+
   { --------------------------------------------------------------------
     TEndpointEndpointVisibility
     --------------------------------------------------------------------}
-  
+
   TEndpointEndpointVisibility = Class(TGoogleBaseObject)
   Private
     FinternalDnsName : String;
@@ -101,11 +101,11 @@ type
     Property networks : TStringArray Index 8 Read Fnetworks Write Setnetworks;
   end;
   TEndpointEndpointVisibilityClass = Class of TEndpointEndpointVisibility;
-  
+
   { --------------------------------------------------------------------
     TEndpointsListResponse
     --------------------------------------------------------------------}
-  
+
   TEndpointsListResponse = Class(TGoogleBaseObject)
   Private
     Fendpoints : TEndpointsListResponseTypeendpointsArray;
@@ -124,11 +124,11 @@ type
     Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TEndpointsListResponseClass = Class of TEndpointsListResponse;
-  
+
   { --------------------------------------------------------------------
     TOperationTypeerrorTypeerrorsItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
   Private
     Fcode : String;
@@ -146,11 +146,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
-  
+
   { --------------------------------------------------------------------
     TOperationTypeerror
     --------------------------------------------------------------------}
-  
+
   TOperationTypeerror = Class(TGoogleBaseObject)
   Private
     Ferrors : TOperationTypeerrorTypeerrorsArray;
@@ -166,11 +166,11 @@ type
     Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
   end;
   TOperationTypeerrorClass = Class of TOperationTypeerror;
-  
+
   { --------------------------------------------------------------------
     TOperationTypewarningsItemTypedataItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
   Private
     Fkey : String;
@@ -185,11 +185,11 @@ type
     Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
-  
+
   { --------------------------------------------------------------------
     TOperationTypewarningsItem
     --------------------------------------------------------------------}
-  
+
   TOperationTypewarningsItem = Class(TGoogleBaseObject)
   Private
     Fcode : String;
@@ -211,11 +211,11 @@ type
     Property message : String Index 16 Read Fmessage Write Setmessage;
   end;
   TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
-  
+
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
-  
+
   TOperation = Class(TGoogleBaseObject)
   Private
     FclientOperationId : String;
@@ -297,11 +297,11 @@ type
     Property zone : String Index 176 Read Fzone Write Setzone;
   end;
   TOperationClass = Class of TOperation;
-  
+
   { --------------------------------------------------------------------
     TOperationsListResponse
     --------------------------------------------------------------------}
-  
+
   TOperationsListResponse = Class(TGoogleBaseObject)
   Private
     FnextPageToken : String;
@@ -320,21 +320,21 @@ type
     Property operations : TOperationsListResponseTypeoperationsArray Index 8 Read Foperations Write Setoperations;
   end;
   TOperationsListResponseClass = Class of TOperationsListResponse;
-  
+
   { --------------------------------------------------------------------
     TEndpointsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TEndpointsResource, method List
-  
+
   TEndpointsListOptions = Record
     filter : String;
     maxResults : integer;
     orderBy : String;
     pageToken : String;
   end;
-  
+
   TEndpointsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -347,22 +347,22 @@ type
     Function Patch(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
     Function Update(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TOperationsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TOperationsResource, method List
-  
+
   TOperationsListOptions = Record
     filter : String;
     maxResults : integer;
     orderBy : String;
     pageToken : String;
   end;
-  
+
   TOperationsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -371,12 +371,12 @@ type
     Function List(project: string; AQuery : string  = '') : TOperationsListResponse;
     Function List(project: string; AQuery : TOperationslistOptions) : TOperationsListResponse;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TServiceregistryAPI
     --------------------------------------------------------------------}
-  
+
   TServiceregistryAPI = Class(TGoogleAPI)
   Private
     FEndpointsInstance : TEndpointsResource;
@@ -423,7 +423,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TEndpoint.Setaddress(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setaddress(AIndex : Integer; const AValue : String);
 
 begin
   If (Faddress=AValue) then exit;
@@ -433,7 +433,7 @@ end;
 
 
 
-Procedure TEndpoint.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.SetcreationTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -443,7 +443,7 @@ end;
 
 
 
-Procedure TEndpoint.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -453,7 +453,7 @@ end;
 
 
 
-Procedure TEndpoint.Setfingerprint(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setfingerprint(AIndex : Integer; const AValue : String);
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -463,7 +463,7 @@ end;
 
 
 
-Procedure TEndpoint.Setid(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -473,7 +473,7 @@ end;
 
 
 
-Procedure TEndpoint.Setname(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -483,7 +483,7 @@ end;
 
 
 
-Procedure TEndpoint.Setport(AIndex : Integer; const AValue : integer); 
+Procedure TEndpoint.Setport(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fport=AValue) then exit;
@@ -493,7 +493,7 @@ end;
 
 
 
-Procedure TEndpoint.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TEndpoint.Setstate(AIndex : Integer; const AValue : String); 
+Procedure TEndpoint.Setstate(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstate=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TEndpoint.Setvisibility(AIndex : Integer; const AValue : TEndpointEndpointVisibility); 
+Procedure TEndpoint.Setvisibility(AIndex : Integer; const AValue : TEndpointEndpointVisibility);
 
 begin
   If (Fvisibility=AValue) then exit;
@@ -530,7 +530,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEndpointEndpointVisibility.SetinternalDnsName(AIndex : Integer; const AValue : String); 
+Procedure TEndpointEndpointVisibility.SetinternalDnsName(AIndex : Integer; const AValue : String);
 
 begin
   If (FinternalDnsName=AValue) then exit;
@@ -540,7 +540,7 @@ end;
 
 
 
-Procedure TEndpointEndpointVisibility.Setnetworks(AIndex : Integer; const AValue : TStringArray); 
+Procedure TEndpointEndpointVisibility.Setnetworks(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fnetworks=AValue) then exit;
@@ -551,7 +551,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TEndpointEndpointVisibility.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TEndpointEndpointVisibility.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -570,7 +570,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEndpointsListResponse.Setendpoints(AIndex : Integer; const AValue : TEndpointsListResponseTypeendpointsArray); 
+Procedure TEndpointsListResponse.Setendpoints(AIndex : Integer; const AValue : TEndpointsListResponseTypeendpointsArray);
 
 begin
   If (Fendpoints=AValue) then exit;
@@ -580,7 +580,7 @@ end;
 
 
 
-Procedure TEndpointsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TEndpointsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -591,7 +591,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TEndpointsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TEndpointsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -610,7 +610,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcode=AValue) then exit;
@@ -620,7 +620,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
 
 begin
   If (Flocation=AValue) then exit;
@@ -630,7 +630,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -647,7 +647,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); 
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
 
 begin
   If (Ferrors=AValue) then exit;
@@ -658,7 +658,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -677,7 +677,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkey=AValue) then exit;
@@ -687,7 +687,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
 
 begin
   If (Fvalue=AValue) then exit;
@@ -704,7 +704,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
 
 begin
   If (Fcode=AValue) then exit;
@@ -714,7 +714,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); 
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
 
 begin
   If (Fdata=AValue) then exit;
@@ -724,7 +724,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmessage=AValue) then exit;
@@ -735,7 +735,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -754,7 +754,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String);
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -764,7 +764,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -774,7 +774,7 @@ end;
 
 
 
-Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -784,7 +784,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FendTime=AValue) then exit;
@@ -794,7 +794,7 @@ end;
 
 
 
-Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror); 
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
 
 begin
   If (Ferror=AValue) then exit;
@@ -804,7 +804,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -814,7 +814,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); 
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
 
 begin
   If (FhttpErrorStatusCode=AValue) then exit;
@@ -824,7 +824,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -834,7 +834,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -854,7 +854,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
 
 begin
   If (Fname=AValue) then exit;
@@ -864,7 +864,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
 
 begin
   If (FoperationType=AValue) then exit;
@@ -874,7 +874,7 @@ end;
 
 
 
-Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer); 
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fprogress=AValue) then exit;
@@ -884,7 +884,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String);
 
 begin
   If (Fregion=AValue) then exit;
@@ -894,7 +894,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -904,7 +904,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String);
 
 begin
   If (FstartTime=AValue) then exit;
@@ -914,7 +914,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -924,7 +924,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -934,7 +934,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String);
 
 begin
   If (FtargetId=AValue) then exit;
@@ -944,7 +944,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -954,7 +954,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String);
 
 begin
   If (Fuser=AValue) then exit;
@@ -964,7 +964,7 @@ end;
 
 
 
-Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); 
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
 
 begin
   If (Fwarnings=AValue) then exit;
@@ -974,7 +974,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
 
 begin
   If (Fzone=AValue) then exit;
@@ -985,7 +985,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1004,7 +1004,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1014,7 +1014,7 @@ end;
 
 
 
-Procedure TOperationsListResponse.Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray); 
+Procedure TOperationsListResponse.Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray);
 
 begin
   If (Foperations=AValue) then exit;
@@ -1025,7 +1025,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TOperationsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TOperationsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1345,7 +1345,7 @@ begin
   Result[2].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
   Result[3].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
   Result[3].Description:='View your Google Cloud Platform management resources and deployment status information';
-  
+
 end;
 
 Class Function TServiceregistryAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googlesiteverification.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TSiteVerificationWebResourceGettokenRequest = Class;
   TSiteVerificationWebResourceGettokenResponse = Class;
@@ -27,11 +27,11 @@ type
   TSiteVerificationWebResourceGettokenRequestTypesite = Class;
   TSiteVerificationWebResourceResourceTypesite = Class;
   TSiteVerificationWebResourceListResponseTypeitemsArray = Array of TSiteVerificationWebResourceResource;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceGettokenRequestTypesite
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceGettokenRequestTypesite = Class(TGoogleBaseObject)
   Private
     Fidentifier : String;
@@ -47,11 +47,11 @@ type
     Property _type : String Index 8 Read F_type Write Set_type;
   end;
   TSiteVerificationWebResourceGettokenRequestTypesiteClass = Class of TSiteVerificationWebResourceGettokenRequestTypesite;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceGettokenRequest
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceGettokenRequest = Class(TGoogleBaseObject)
   Private
     Fsite : TSiteVerificationWebResourceGettokenRequestTypesite;
@@ -66,11 +66,11 @@ type
     Property verificationMethod : String Index 8 Read FverificationMethod Write SetverificationMethod;
   end;
   TSiteVerificationWebResourceGettokenRequestClass = Class of TSiteVerificationWebResourceGettokenRequest;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceGettokenResponse
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceGettokenResponse = Class(TGoogleBaseObject)
   Private
     Fmethod : String;
@@ -85,11 +85,11 @@ type
     Property token : String Index 8 Read Ftoken Write Settoken;
   end;
   TSiteVerificationWebResourceGettokenResponseClass = Class of TSiteVerificationWebResourceGettokenResponse;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceListResponse
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceListResponse = Class(TGoogleBaseObject)
   Private
     Fitems : TSiteVerificationWebResourceListResponseTypeitemsArray;
@@ -105,11 +105,11 @@ type
     Property items : TSiteVerificationWebResourceListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
   end;
   TSiteVerificationWebResourceListResponseClass = Class of TSiteVerificationWebResourceListResponse;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceResourceTypesite
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceResourceTypesite = Class(TGoogleBaseObject)
   Private
     Fidentifier : String;
@@ -125,11 +125,11 @@ type
     Property _type : String Index 8 Read F_type Write Set_type;
   end;
   TSiteVerificationWebResourceResourceTypesiteClass = Class of TSiteVerificationWebResourceResourceTypesite;
-  
+
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceResource
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationWebResourceResource = Class(TGoogleBaseObject)
   Private
     Fid : String;
@@ -151,18 +151,18 @@ type
     Property site : TSiteVerificationWebResourceResourceTypesite Index 16 Read Fsite Write Setsite;
   end;
   TSiteVerificationWebResourceResourceClass = Class of TSiteVerificationWebResourceResource;
-  
+
   { --------------------------------------------------------------------
     TWebResourceResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TWebResourceResource, method Insert
-  
+
   TWebResourceInsertOptions = Record
     verificationMethod : String;
   end;
-  
+
   TWebResourceResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -176,12 +176,12 @@ type
     Function Patch(id: string; aSiteVerificationWebResourceResource : TSiteVerificationWebResourceResource) : TSiteVerificationWebResourceResource;
     Function Update(id: string; aSiteVerificationWebResourceResource : TSiteVerificationWebResourceResource) : TSiteVerificationWebResourceResource;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TSiteVerificationAPI
     --------------------------------------------------------------------}
-  
+
   TSiteVerificationAPI = Class(TGoogleAPI)
   Private
     FWebResourceInstance : TWebResourceResource;
@@ -223,7 +223,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Setidentifier(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Setidentifier(AIndex : Integer; const AValue : String);
 
 begin
   If (Fidentifier=AValue) then exit;
@@ -233,7 +233,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -261,7 +261,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceGettokenRequestTypesite); 
+Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceGettokenRequestTypesite);
 
 begin
   If (Fsite=AValue) then exit;
@@ -271,7 +271,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; const AValue : String);
 
 begin
   If (FverificationMethod=AValue) then exit;
@@ -288,7 +288,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; const AValue : String);
 
 begin
   If (Fmethod=AValue) then exit;
@@ -298,7 +298,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftoken=AValue) then exit;
@@ -315,7 +315,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; const AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); 
+Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; const AValue : TSiteVerificationWebResourceListResponseTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -326,7 +326,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSiteVerificationWebResourceListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSiteVerificationWebResourceListResponse.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -345,7 +345,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceResourceTypesite.Setidentifier(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Setidentifier(AIndex : Integer; const AValue : String);
 
 begin
   If (Fidentifier=AValue) then exit;
@@ -355,7 +355,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceResourceTypesite.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -383,7 +383,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; const AValue : String); 
+Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -393,7 +393,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; const AValue : TStringArray); 
+Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (Fowners=AValue) then exit;
@@ -403,7 +403,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceResourceTypesite); 
+Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceResourceTypesite);
 
 begin
   If (Fsite=AValue) then exit;
@@ -414,7 +414,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TSiteVerificationWebResourceResource.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TSiteVerificationWebResourceResource.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -666,7 +666,7 @@ begin
   Result[0].Description:='Manage the list of sites and domains you control';
   Result[1].Name:='https://www.googleapis.com/auth/siteverification.verify_only';
   Result[1].Description:='Manage your new site verifications with Google';
-  
+
 end;
 
 Class Function TSiteVerificationAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googletaskqueue.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TTask = Class;
   TTaskQueue = Class;
@@ -28,11 +28,11 @@ type
   TTaskQueueTypestats = Class;
   TTasksTypeitemsArray = Array of TTask;
   TTasks2TypeitemsArray = Array of TTask;
-  
+
   { --------------------------------------------------------------------
     TTask
     --------------------------------------------------------------------}
-  
+
   TTask = Class(TGoogleBaseObject)
   Private
     FenqueueTimestamp : String;
@@ -65,11 +65,11 @@ type
     Property tag : String Index 56 Read Ftag Write Settag;
   end;
   TTaskClass = Class of TTask;
-  
+
   { --------------------------------------------------------------------
     TTaskQueueTypeacl
     --------------------------------------------------------------------}
-  
+
   TTaskQueueTypeacl = Class(TGoogleBaseObject)
   Private
     FadminEmails : TStringArray;
@@ -91,11 +91,11 @@ type
     Property producerEmails : TStringArray Index 16 Read FproducerEmails Write SetproducerEmails;
   end;
   TTaskQueueTypeaclClass = Class of TTaskQueueTypeacl;
-  
+
   { --------------------------------------------------------------------
     TTaskQueueTypestats
     --------------------------------------------------------------------}
-  
+
   TTaskQueueTypestats = Class(TGoogleBaseObject)
   Private
     FleasedLastHour : String;
@@ -116,11 +116,11 @@ type
     Property totalTasks : integer Index 24 Read FtotalTasks Write SettotalTasks;
   end;
   TTaskQueueTypestatsClass = Class of TTaskQueueTypestats;
-  
+
   { --------------------------------------------------------------------
     TTaskQueue
     --------------------------------------------------------------------}
-  
+
   TTaskQueue = Class(TGoogleBaseObject)
   Private
     Facl : TTaskQueueTypeacl;
@@ -144,11 +144,11 @@ type
     Property stats : TTaskQueueTypestats Index 32 Read Fstats Write Setstats;
   end;
   TTaskQueueClass = Class of TTaskQueue;
-  
+
   { --------------------------------------------------------------------
     TTasks
     --------------------------------------------------------------------}
-  
+
   TTasks = Class(TGoogleBaseObject)
   Private
     Fitems : TTasksTypeitemsArray;
@@ -167,11 +167,11 @@ type
     Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TTasksClass = Class of TTasks;
-  
+
   { --------------------------------------------------------------------
     TTasks2
     --------------------------------------------------------------------}
-  
+
   TTasks2 = Class(TGoogleBaseObject)
   Private
     Fitems : TTasks2TypeitemsArray;
@@ -190,18 +190,18 @@ type
     Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TTasks2Class = Class of TTasks2;
-  
+
   { --------------------------------------------------------------------
     TTaskqueuesResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTaskqueuesResource, method Get
-  
+
   TTaskqueuesGetOptions = Record
     getStats : boolean;
   end;
-  
+
   TTaskqueuesResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -209,36 +209,36 @@ type
     Function Get(project: string; taskqueue: string; AQuery : string  = '') : TTaskQueue;
     Function Get(project: string; taskqueue: string; AQuery : TTaskqueuesgetOptions) : TTaskQueue;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTasksResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTasksResource, method Lease
-  
+
   TTasksLeaseOptions = Record
     groupByTag : boolean;
     leaseSecs : integer;
     numTasks : integer;
     tag : String;
   end;
-  
-  
+
+
   //Optional query Options for TTasksResource, method Patch
-  
+
   TTasksPatchOptions = Record
     newLeaseSeconds : integer;
   end;
-  
-  
+
+
   //Optional query Options for TTasksResource, method Update
-  
+
   TTasksUpdateOptions = Record
     newLeaseSeconds : integer;
   end;
-  
+
   TTasksResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -254,12 +254,12 @@ type
     Function Update(project: string; task: string; taskqueue: string; aTask : TTask; AQuery : string  = '') : TTask;
     Function Update(project: string; task: string; taskqueue: string; aTask : TTask; AQuery : TTasksupdateOptions) : TTask;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTaskqueueAPI
     --------------------------------------------------------------------}
-  
+
   TTaskqueueAPI = Class(TGoogleAPI)
   Private
     FTaskqueuesInstance : TTaskqueuesResource;
@@ -306,7 +306,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TTask.SetenqueueTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TTask.SetenqueueTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FenqueueTimestamp=AValue) then exit;
@@ -316,7 +316,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -326,7 +326,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -336,7 +336,7 @@ end;
 
 
 
-Procedure TTask.SetleaseTimestamp(AIndex : Integer; const AValue : String); 
+Procedure TTask.SetleaseTimestamp(AIndex : Integer; const AValue : String);
 
 begin
   If (FleaseTimestamp=AValue) then exit;
@@ -346,7 +346,7 @@ end;
 
 
 
-Procedure TTask.SetpayloadBase64(AIndex : Integer; const AValue : String); 
+Procedure TTask.SetpayloadBase64(AIndex : Integer; const AValue : String);
 
 begin
   If (FpayloadBase64=AValue) then exit;
@@ -356,7 +356,7 @@ end;
 
 
 
-Procedure TTask.SetqueueName(AIndex : Integer; const AValue : String); 
+Procedure TTask.SetqueueName(AIndex : Integer; const AValue : String);
 
 begin
   If (FqueueName=AValue) then exit;
@@ -366,7 +366,7 @@ end;
 
 
 
-Procedure TTask.Setretry_count(AIndex : Integer; const AValue : integer); 
+Procedure TTask.Setretry_count(AIndex : Integer; const AValue : integer);
 
 begin
   If (Fretry_count=AValue) then exit;
@@ -376,7 +376,7 @@ end;
 
 
 
-Procedure TTask.Settag(AIndex : Integer; const AValue : String); 
+Procedure TTask.Settag(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftag=AValue) then exit;
@@ -393,7 +393,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskQueueTypeacl.SetadminEmails(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTaskQueueTypeacl.SetadminEmails(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FadminEmails=AValue) then exit;
@@ -403,7 +403,7 @@ end;
 
 
 
-Procedure TTaskQueueTypeacl.SetconsumerEmails(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTaskQueueTypeacl.SetconsumerEmails(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FconsumerEmails=AValue) then exit;
@@ -413,7 +413,7 @@ end;
 
 
 
-Procedure TTaskQueueTypeacl.SetproducerEmails(AIndex : Integer; const AValue : TStringArray); 
+Procedure TTaskQueueTypeacl.SetproducerEmails(AIndex : Integer; const AValue : TStringArray);
 
 begin
   If (FproducerEmails=AValue) then exit;
@@ -424,7 +424,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTaskQueueTypeacl.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTaskQueueTypeacl.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -445,7 +445,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskQueueTypestats.SetleasedLastHour(AIndex : Integer; const AValue : String); 
+Procedure TTaskQueueTypestats.SetleasedLastHour(AIndex : Integer; const AValue : String);
 
 begin
   If (FleasedLastHour=AValue) then exit;
@@ -455,7 +455,7 @@ end;
 
 
 
-Procedure TTaskQueueTypestats.SetleasedLastMinute(AIndex : Integer; const AValue : String); 
+Procedure TTaskQueueTypestats.SetleasedLastMinute(AIndex : Integer; const AValue : String);
 
 begin
   If (FleasedLastMinute=AValue) then exit;
@@ -465,7 +465,7 @@ end;
 
 
 
-Procedure TTaskQueueTypestats.SetoldestTask(AIndex : Integer; const AValue : String); 
+Procedure TTaskQueueTypestats.SetoldestTask(AIndex : Integer; const AValue : String);
 
 begin
   If (FoldestTask=AValue) then exit;
@@ -475,7 +475,7 @@ end;
 
 
 
-Procedure TTaskQueueTypestats.SettotalTasks(AIndex : Integer; const AValue : integer); 
+Procedure TTaskQueueTypestats.SettotalTasks(AIndex : Integer; const AValue : integer);
 
 begin
   If (FtotalTasks=AValue) then exit;
@@ -492,7 +492,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskQueue.Setacl(AIndex : Integer; const AValue : TTaskQueueTypeacl); 
+Procedure TTaskQueue.Setacl(AIndex : Integer; const AValue : TTaskQueueTypeacl);
 
 begin
   If (Facl=AValue) then exit;
@@ -502,7 +502,7 @@ end;
 
 
 
-Procedure TTaskQueue.Setid(AIndex : Integer; const AValue : String); 
+Procedure TTaskQueue.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -512,7 +512,7 @@ end;
 
 
 
-Procedure TTaskQueue.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTaskQueue.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -522,7 +522,7 @@ end;
 
 
 
-Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; const AValue : integer); 
+Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; const AValue : integer);
 
 begin
   If (FmaxLeases=AValue) then exit;
@@ -532,7 +532,7 @@ end;
 
 
 
-Procedure TTaskQueue.Setstats(AIndex : Integer; const AValue : TTaskQueueTypestats); 
+Procedure TTaskQueue.Setstats(AIndex : Integer; const AValue : TTaskQueueTypestats);
 
 begin
   If (Fstats=AValue) then exit;
@@ -549,7 +549,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray); 
+Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -559,7 +559,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTasks.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -570,7 +570,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -589,7 +589,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTasks2.Setitems(AIndex : Integer; const AValue : TTasks2TypeitemsArray); 
+Procedure TTasks2.Setitems(AIndex : Integer; const AValue : TTasks2TypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -599,7 +599,7 @@ end;
 
 
 
-Procedure TTasks2.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTasks2.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -610,7 +610,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTasks2.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTasks2.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -947,7 +947,7 @@ begin
   Result[0].Description:='Manage your Tasks and Taskqueues';
   Result[1].Name:='https://www.googleapis.com/auth/taskqueue.consumer';
   Result[1].Description:='Consume Tasks from your Taskqueues';
-  
+
 end;
 
 Class Function TTaskqueueAPI.APINeedsAuth : Boolean;

packages/googleapi/src/bindings/googletasks.pp

@@ -13,7 +13,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-  
+
   //Top-level schema types
   TTask = Class;
   TTaskList = Class;
@@ -28,11 +28,11 @@ type
   TTaskTypelinksArray = Array of TTaskTypelinksItem;
   TTaskListsTypeitemsArray = Array of TTaskList;
   TTasksTypeitemsArray = Array of TTask;
-  
+
   { --------------------------------------------------------------------
     TTaskTypelinksItem
     --------------------------------------------------------------------}
-  
+
   TTaskTypelinksItem = Class(TGoogleBaseObject)
   Private
     Fdescription : String;
@@ -51,11 +51,11 @@ type
     Property _type : String Index 16 Read F_type Write Set_type;
   end;
   TTaskTypelinksItemClass = Class of TTaskTypelinksItem;
-  
+
   { --------------------------------------------------------------------
     TTask
     --------------------------------------------------------------------}
-  
+
   TTask = Class(TGoogleBaseObject)
   Private
     Fcompleted : TDatetime;
@@ -113,11 +113,11 @@ type
     Property updated : TDatetime Index 112 Read Fupdated Write Setupdated;
   end;
   TTaskClass = Class of TTask;
-  
+
   { --------------------------------------------------------------------
     TTaskList
     --------------------------------------------------------------------}
-  
+
   TTaskList = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -144,11 +144,11 @@ type
     Property updated : TDatetime Index 40 Read Fupdated Write Setupdated;
   end;
   TTaskListClass = Class of TTaskList;
-  
+
   { --------------------------------------------------------------------
     TTaskLists
     --------------------------------------------------------------------}
-  
+
   TTaskLists = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -173,11 +173,11 @@ type
     Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TTaskListsClass = Class of TTaskLists;
-  
+
   { --------------------------------------------------------------------
     TTasks
     --------------------------------------------------------------------}
-  
+
   TTasks = Class(TGoogleBaseObject)
   Private
     Fetag : String;
@@ -202,19 +202,19 @@ type
     Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TTasksClass = Class of TTasks;
-  
+
   { --------------------------------------------------------------------
     TTasklistsResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTasklistsResource, method List
-  
+
   TTasklistsListOptions = Record
     maxResults : int64;
     pageToken : String;
   end;
-  
+
   TTasklistsResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -227,23 +227,23 @@ type
     Function Patch(tasklist: string; aTaskList : TTaskList) : TTaskList;
     Function Update(tasklist: string; aTaskList : TTaskList) : TTaskList;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTasksResource
     --------------------------------------------------------------------}
-  
-  
+
+
   //Optional query Options for TTasksResource, method Insert
-  
+
   TTasksInsertOptions = Record
     parent : String;
     previous : String;
   end;
-  
-  
+
+
   //Optional query Options for TTasksResource, method List
-  
+
   TTasksListOptions = Record
     completedMax : String;
     completedMin : String;
@@ -256,15 +256,15 @@ type
     showHidden : boolean;
     updatedMin : String;
   end;
-  
-  
+
+
   //Optional query Options for TTasksResource, method Move
-  
+
   TTasksMoveOptions = Record
     parent : String;
     previous : String;
   end;
-  
+
   TTasksResource = Class(TGoogleResource)
   Public
     Class Function ResourceName : String; override;
@@ -281,12 +281,12 @@ type
     Function Patch(task: string; tasklist: string; aTask : TTask) : TTask;
     Function Update(task: string; tasklist: string; aTask : TTask) : TTask;
   end;
-  
-  
+
+
   { --------------------------------------------------------------------
     TTasksAPI
     --------------------------------------------------------------------}
-  
+
   TTasksAPI = Class(TGoogleAPI)
   Private
     FTasklistsInstance : TTasklistsResource;
@@ -333,7 +333,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TTaskTypelinksItem.Setdescription(AIndex : Integer; const AValue : String); 
+Procedure TTaskTypelinksItem.Setdescription(AIndex : Integer; const AValue : String);
 
 begin
   If (Fdescription=AValue) then exit;
@@ -343,7 +343,7 @@ end;
 
 
 
-Procedure TTaskTypelinksItem.Setlink(AIndex : Integer; const AValue : String); 
+Procedure TTaskTypelinksItem.Setlink(AIndex : Integer; const AValue : String);
 
 begin
   If (Flink=AValue) then exit;
@@ -353,7 +353,7 @@ end;
 
 
 
-Procedure TTaskTypelinksItem.Set_type(AIndex : Integer; const AValue : String); 
+Procedure TTaskTypelinksItem.Set_type(AIndex : Integer; const AValue : String);
 
 begin
   If (F_type=AValue) then exit;
@@ -381,7 +381,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTask.Setcompleted(AIndex : Integer; const AValue : TDatetime); 
+Procedure TTask.Setcompleted(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fcompleted=AValue) then exit;
@@ -391,7 +391,7 @@ end;
 
 
 
-Procedure TTask.Setdeleted(AIndex : Integer; const AValue : boolean); 
+Procedure TTask.Setdeleted(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fdeleted=AValue) then exit;
@@ -401,7 +401,7 @@ end;
 
 
 
-Procedure TTask.Setdue(AIndex : Integer; const AValue : TDatetime); 
+Procedure TTask.Setdue(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fdue=AValue) then exit;
@@ -411,7 +411,7 @@ end;
 
 
 
-Procedure TTask.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -421,7 +421,7 @@ end;
 
 
 
-Procedure TTask.Sethidden(AIndex : Integer; const AValue : boolean); 
+Procedure TTask.Sethidden(AIndex : Integer; const AValue : boolean);
 
 begin
   If (Fhidden=AValue) then exit;
@@ -431,7 +431,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -441,7 +441,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -451,7 +451,7 @@ end;
 
 
 
-Procedure TTask.Setlinks(AIndex : Integer; const AValue : TTaskTypelinksArray); 
+Procedure TTask.Setlinks(AIndex : Integer; const AValue : TTaskTypelinksArray);
 
 begin
   If (Flinks=AValue) then exit;
@@ -461,7 +461,7 @@ end;
 
 
 
-Procedure TTask.Setnotes(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setnotes(AIndex : Integer; const AValue : String);
 
 begin
   If (Fnotes=AValue) then exit;
@@ -471,7 +471,7 @@ end;
 
 
 
-Procedure TTask.Setparent(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setparent(AIndex : Integer; const AValue : String);
 
 begin
   If (Fparent=AValue) then exit;
@@ -481,7 +481,7 @@ end;
 
 
 
-Procedure TTask.Setposition(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setposition(AIndex : Integer; const AValue : String);
 
 begin
   If (Fposition=AValue) then exit;
@@ -491,7 +491,7 @@ end;
 
 
 
-Procedure TTask.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TTask.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -501,7 +501,7 @@ end;
 
 
 
-Procedure TTask.Setstatus(AIndex : Integer; const AValue : String); 
+Procedure TTask.Setstatus(AIndex : Integer; const AValue : String);
 
 begin
   If (Fstatus=AValue) then exit;
@@ -511,7 +511,7 @@ end;
 
 
 
-Procedure TTask.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TTask.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -521,7 +521,7 @@ end;
 
 
 
-Procedure TTask.Setupdated(AIndex : Integer; const AValue : TDatetime); 
+Procedure TTask.Setupdated(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fupdated=AValue) then exit;
@@ -532,7 +532,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTask.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTask.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -551,7 +551,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskList.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TTaskList.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -561,7 +561,7 @@ end;
 
 
 
-Procedure TTaskList.Setid(AIndex : Integer; const AValue : String); 
+Procedure TTaskList.Setid(AIndex : Integer; const AValue : String);
 
 begin
   If (Fid=AValue) then exit;
@@ -571,7 +571,7 @@ end;
 
 
 
-Procedure TTaskList.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTaskList.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -581,7 +581,7 @@ end;
 
 
 
-Procedure TTaskList.SetselfLink(AIndex : Integer; const AValue : String); 
+Procedure TTaskList.SetselfLink(AIndex : Integer; const AValue : String);
 
 begin
   If (FselfLink=AValue) then exit;
@@ -591,7 +591,7 @@ end;
 
 
 
-Procedure TTaskList.Settitle(AIndex : Integer; const AValue : String); 
+Procedure TTaskList.Settitle(AIndex : Integer; const AValue : String);
 
 begin
   If (Ftitle=AValue) then exit;
@@ -601,7 +601,7 @@ end;
 
 
 
-Procedure TTaskList.Setupdated(AIndex : Integer; const AValue : TDatetime); 
+Procedure TTaskList.Setupdated(AIndex : Integer; const AValue : TDatetime);
 
 begin
   If (Fupdated=AValue) then exit;
@@ -618,7 +618,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskLists.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TTaskLists.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -628,7 +628,7 @@ end;
 
 
 
-Procedure TTaskLists.Setitems(AIndex : Integer; const AValue : TTaskListsTypeitemsArray); 
+Procedure TTaskLists.Setitems(AIndex : Integer; const AValue : TTaskListsTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -638,7 +638,7 @@ end;
 
 
 
-Procedure TTaskLists.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTaskLists.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -648,7 +648,7 @@ end;
 
 
 
-Procedure TTaskLists.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TTaskLists.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -659,7 +659,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTaskLists.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTaskLists.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -678,7 +678,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTasks.Setetag(AIndex : Integer; const AValue : String); 
+Procedure TTasks.Setetag(AIndex : Integer; const AValue : String);
 
 begin
   If (Fetag=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 
 
-Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray); 
+Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray);
 
 begin
   If (Fitems=AValue) then exit;
@@ -698,7 +698,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; const AValue : String); 
+Procedure TTasks.Setkind(AIndex : Integer; const AValue : String);
 
 begin
   If (Fkind=AValue) then exit;
@@ -708,7 +708,7 @@ end;
 
 
 
-Procedure TTasks.SetnextPageToken(AIndex : Integer; const AValue : String); 
+Procedure TTasks.SetnextPageToken(AIndex : Integer; const AValue : String);
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -719,7 +719,7 @@ end;
 
 //2.6.4. bug workaround
 {$IFDEF VER2_6}
-Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint); 
+Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint);
 
 begin
   Case AName of
@@ -1147,7 +1147,7 @@ begin
   Result[0].Description:='Manage your tasks';
   Result[1].Name:='https://www.googleapis.com/auth/tasks.readonly';
   Result[1].Description:='View your tasks';
-  
+
 end;
 
 Class Function TTasksAPI.APINeedsAuth : Boolean;