* Correct license header

* Regenerated using clean type generation approach
* Added timestamp in comment

git-svn-id: trunk@30829 -

packages/googleapi/src/googleappsactivity.pp

@@ -1,31 +1,19 @@
 unit googleappsactivity;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:48
 {$MODE objfpc}
 {$H+}
 
@@ -34,45 +22,38 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TActivity = class;
-  TActivityArray = Array of TActivity;
-  TActivitysingleEvents = class;
-  TActivitysingleEventsArray = Array of TActivitysingleEvents;
   TEvent = class;
-  TEventArray = Array of TEvent;
-  TEventadditionalEventTypes = class;
-  TEventadditionalEventTypesArray = Array of TEventadditionalEventTypes;
-  TEventpermissionChanges = class;
-  TEventpermissionChangesArray = Array of TEventpermissionChanges;
   TListActivitiesResponse = class;
-  TListActivitiesResponseArray = Array of TListActivitiesResponse;
-  TListActivitiesResponseactivities = class;
-  TListActivitiesResponseactivitiesArray = Array of TListActivitiesResponseactivities;
   TMove = class;
-  TMoveArray = Array of TMove;
-  TMoveaddedParents = class;
-  TMoveaddedParentsArray = Array of TMoveaddedParents;
-  TMoveremovedParents = class;
-  TMoveremovedParentsArray = Array of TMoveremovedParents;
   TParent = class;
-  TParentArray = Array of TParent;
   TPermission = class;
-  TPermissionArray = Array of TPermission;
   TPermissionChange = class;
-  TPermissionChangeArray = Array of TPermissionChange;
-  TPermissionChangeaddedPermissions = class;
-  TPermissionChangeaddedPermissionsArray = Array of TPermissionChangeaddedPermissions;
-  TPermissionChangeremovedPermissions = class;
-  TPermissionChangeremovedPermissionsArray = Array of TPermissionChangeremovedPermissions;
   TPhoto = class;
-  TPhotoArray = Array of TPhoto;
   TRename = class;
-  TRenameArray = Array of TRename;
   TTarget = class;
-  TTargetArray = Array of TTarget;
   TUser = class;
+  TActivityArray = Array of TActivity;
+  TEventArray = Array of TEvent;
+  TListActivitiesResponseArray = Array of TListActivitiesResponse;
+  TMoveArray = Array of TMove;
+  TParentArray = Array of TParent;
+  TPermissionArray = Array of TPermission;
+  TPermissionChangeArray = Array of TPermissionChange;
+  TPhotoArray = Array of TPhoto;
+  TRenameArray = Array of TRename;
+  TTargetArray = Array of TTarget;
   TUserArray = Array of TUser;
+  //Anonymous types, using auto-generated names
+  TActivityTypesingleEventsArray = Array of TEvent;
+  TEventTypepermissionChangesArray = Array of TPermissionChange;
+  TListActivitiesResponseTypeactivitiesArray = Array of TActivity;
+  TMoveTypeaddedParentsArray = Array of TParent;
+  TMoveTyperemovedParentsArray = Array of TParent;
+  TPermissionChangeTypeaddedPermissionsArray = Array of TPermission;
+  TPermissionChangeTyperemovedPermissionsArray = Array of TPermission;
   
   { --------------------------------------------------------------------
     TActivity
@@ -81,193 +62,115 @@ type
   TActivity = Class(TGoogleBaseObject)
   Private
     FcombinedEvent : TEvent;
-    FsingleEvents : TActivitysingleEvents;
+    FsingleEvents : TActivityTypesingleEventsArray;
   Protected
     //Property setters
     Procedure SetcombinedEvent(AIndex : Integer; AValue : TEvent); virtual;
-    Procedure SetsingleEvents(AIndex : Integer; AValue : TActivitysingleEvents); virtual;
+    Procedure SetsingleEvents(AIndex : Integer; AValue : TActivityTypesingleEventsArray); virtual;
   Public
   Published
     Property combinedEvent : TEvent Index 0 Read FcombinedEvent Write SetcombinedEvent;
-    Property singleEvents : TActivitysingleEvents Index 8 Read FsingleEvents Write SetsingleEvents;
+    Property singleEvents : TActivityTypesingleEventsArray Index 8 Read FsingleEvents Write SetsingleEvents;
   end;
   TActivityClass = Class of TActivity;
   
-  { --------------------------------------------------------------------
-    TActivitysingleEvents
-    --------------------------------------------------------------------}
-  
-  TActivitysingleEvents = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TActivitysingleEventsClass = Class of TActivitysingleEvents;
-  
   { --------------------------------------------------------------------
     TEvent
     --------------------------------------------------------------------}
   
   TEvent = Class(TGoogleBaseObject)
   Private
-    FadditionalEventTypes : TEventadditionalEventTypes;
-    FeventTimeMillis : string;
+    FadditionalEventTypes : TStringArray;
+    FeventTimeMillis : String;
     FfromUserDeletion : boolean;
     Fmove : TMove;
-    FpermissionChanges : TEventpermissionChanges;
-    FprimaryEventType : string;
+    FpermissionChanges : TEventTypepermissionChangesArray;
+    FprimaryEventType : String;
     Frename : TRename;
     Ftarget : TTarget;
     Fuser : TUser;
   Protected
     //Property setters
-    Procedure SetadditionalEventTypes(AIndex : Integer; AValue : TEventadditionalEventTypes); virtual;
-    Procedure SeteventTimeMillis(AIndex : Integer; AValue : string); virtual;
+    Procedure SetadditionalEventTypes(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure SeteventTimeMillis(AIndex : Integer; AValue : String); virtual;
     Procedure SetfromUserDeletion(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setmove(AIndex : Integer; AValue : TMove); virtual;
-    Procedure SetpermissionChanges(AIndex : Integer; AValue : TEventpermissionChanges); virtual;
-    Procedure SetprimaryEventType(AIndex : Integer; AValue : string); virtual;
+    Procedure SetpermissionChanges(AIndex : Integer; AValue : TEventTypepermissionChangesArray); virtual;
+    Procedure SetprimaryEventType(AIndex : Integer; AValue : String); virtual;
     Procedure Setrename(AIndex : Integer; AValue : TRename); virtual;
     Procedure Settarget(AIndex : Integer; AValue : TTarget); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
   Public
   Published
-    Property additionalEventTypes : TEventadditionalEventTypes Index 0 Read FadditionalEventTypes Write SetadditionalEventTypes;
-    Property eventTimeMillis : string Index 8 Read FeventTimeMillis Write SeteventTimeMillis;
+    Property additionalEventTypes : TStringArray Index 0 Read FadditionalEventTypes Write SetadditionalEventTypes;
+    Property eventTimeMillis : String Index 8 Read FeventTimeMillis Write SeteventTimeMillis;
     Property fromUserDeletion : boolean Index 16 Read FfromUserDeletion Write SetfromUserDeletion;
     Property move : TMove Index 24 Read Fmove Write Setmove;
-    Property permissionChanges : TEventpermissionChanges Index 32 Read FpermissionChanges Write SetpermissionChanges;
-    Property primaryEventType : string Index 40 Read FprimaryEventType Write SetprimaryEventType;
+    Property permissionChanges : TEventTypepermissionChangesArray Index 32 Read FpermissionChanges Write SetpermissionChanges;
+    Property primaryEventType : String Index 40 Read FprimaryEventType Write SetprimaryEventType;
     Property rename : TRename Index 48 Read Frename Write Setrename;
     Property target : TTarget Index 56 Read Ftarget Write Settarget;
     Property user : TUser Index 64 Read Fuser Write Setuser;
   end;
   TEventClass = Class of TEvent;
   
-  { --------------------------------------------------------------------
-    TEventadditionalEventTypes
-    --------------------------------------------------------------------}
-  
-  TEventadditionalEventTypes = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TEventadditionalEventTypesClass = Class of TEventadditionalEventTypes;
-  
-  { --------------------------------------------------------------------
-    TEventpermissionChanges
-    --------------------------------------------------------------------}
-  
-  TEventpermissionChanges = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TEventpermissionChangesClass = Class of TEventpermissionChanges;
-  
   { --------------------------------------------------------------------
     TListActivitiesResponse
     --------------------------------------------------------------------}
   
   TListActivitiesResponse = Class(TGoogleBaseObject)
   Private
-    Factivities : TListActivitiesResponseactivities;
-    FnextPageToken : string;
+    Factivities : TListActivitiesResponseTypeactivitiesArray;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setactivities(AIndex : Integer; AValue : TListActivitiesResponseactivities); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property activities : TListActivitiesResponseactivities Index 0 Read Factivities Write Setactivities;
-    Property nextPageToken : string Index 8 Read FnextPageToken Write SetnextPageToken;
+    Property activities : TListActivitiesResponseTypeactivitiesArray Index 0 Read Factivities Write Setactivities;
+    Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
   end;
   TListActivitiesResponseClass = Class of TListActivitiesResponse;
   
-  { --------------------------------------------------------------------
-    TListActivitiesResponseactivities
-    --------------------------------------------------------------------}
-  
-  TListActivitiesResponseactivities = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListActivitiesResponseactivitiesClass = Class of TListActivitiesResponseactivities;
-  
   { --------------------------------------------------------------------
     TMove
     --------------------------------------------------------------------}
   
   TMove = Class(TGoogleBaseObject)
   Private
-    FaddedParents : TMoveaddedParents;
-    FremovedParents : TMoveremovedParents;
+    FaddedParents : TMoveTypeaddedParentsArray;
+    FremovedParents : TMoveTyperemovedParentsArray;
   Protected
     //Property setters
-    Procedure SetaddedParents(AIndex : Integer; AValue : TMoveaddedParents); virtual;
-    Procedure SetremovedParents(AIndex : Integer; AValue : TMoveremovedParents); virtual;
+    Procedure SetaddedParents(AIndex : Integer; AValue : TMoveTypeaddedParentsArray); virtual;
+    Procedure SetremovedParents(AIndex : Integer; AValue : TMoveTyperemovedParentsArray); virtual;
   Public
   Published
-    Property addedParents : TMoveaddedParents Index 0 Read FaddedParents Write SetaddedParents;
-    Property removedParents : TMoveremovedParents Index 8 Read FremovedParents Write SetremovedParents;
+    Property addedParents : TMoveTypeaddedParentsArray Index 0 Read FaddedParents Write SetaddedParents;
+    Property removedParents : TMoveTyperemovedParentsArray Index 8 Read FremovedParents Write SetremovedParents;
   end;
   TMoveClass = Class of TMove;
   
-  { --------------------------------------------------------------------
-    TMoveaddedParents
-    --------------------------------------------------------------------}
-  
-  TMoveaddedParents = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TMoveaddedParentsClass = Class of TMoveaddedParents;
-  
-  { --------------------------------------------------------------------
-    TMoveremovedParents
-    --------------------------------------------------------------------}
-  
-  TMoveremovedParents = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TMoveremovedParentsClass = Class of TMoveremovedParents;
-  
   { --------------------------------------------------------------------
     TParent
     --------------------------------------------------------------------}
   
   TParent = Class(TGoogleBaseObject)
   Private
-    Fid : string;
+    Fid : String;
     FisRoot : boolean;
-    Ftitle : string;
+    Ftitle : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
     Procedure SetisRoot(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : string); virtual;
+    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property id : string Index 0 Read Fid Write Setid;
+    Property id : String Index 0 Read Fid Write Setid;
     Property isRoot : boolean Index 8 Read FisRoot Write SetisRoot;
-    Property title : string Index 16 Read Ftitle Write Settitle;
+    Property title : String Index 16 Read Ftitle Write Settitle;
   end;
   TParentClass = Class of TParent;
   
@@ -277,27 +180,27 @@ type
   
   TPermission = Class(TGoogleBaseObject)
   Private
-    Fname : string;
-    FpermissionId : string;
-    Frole : string;
-    F_type : string;
+    Fname : String;
+    FpermissionId : String;
+    Frole : String;
+    F_type : String;
     Fuser : TUser;
     FwithLink : boolean;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure SetpermissionId(AIndex : Integer; AValue : string); virtual;
-    Procedure Setrole(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpermissionId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setrole(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
     Procedure SetwithLink(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
-    Property name : string Index 0 Read Fname Write Setname;
-    Property permissionId : string Index 8 Read FpermissionId Write SetpermissionId;
-    Property role : string Index 16 Read Frole Write Setrole;
-    Property _type : string Index 24 Read F_type Write Set_type;
+    Property name : String Index 0 Read Fname Write Setname;
+    Property permissionId : String Index 8 Read FpermissionId Write SetpermissionId;
+    Property role : String Index 16 Read Frole Write Setrole;
+    Property _type : String Index 24 Read F_type Write Set_type;
     Property user : TUser Index 32 Read Fuser Write Setuser;
     Property withLink : boolean Index 40 Read FwithLink Write SetwithLink;
   end;
@@ -309,58 +212,32 @@ type
   
   TPermissionChange = Class(TGoogleBaseObject)
   Private
-    FaddedPermissions : TPermissionChangeaddedPermissions;
-    FremovedPermissions : TPermissionChangeremovedPermissions;
+    FaddedPermissions : TPermissionChangeTypeaddedPermissionsArray;
+    FremovedPermissions : TPermissionChangeTyperemovedPermissionsArray;
   Protected
     //Property setters
-    Procedure SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeaddedPermissions); virtual;
-    Procedure SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeremovedPermissions); virtual;
+    Procedure SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeTypeaddedPermissionsArray); virtual;
+    Procedure SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeTyperemovedPermissionsArray); virtual;
   Public
   Published
-    Property addedPermissions : TPermissionChangeaddedPermissions Index 0 Read FaddedPermissions Write SetaddedPermissions;
-    Property removedPermissions : TPermissionChangeremovedPermissions Index 8 Read FremovedPermissions Write SetremovedPermissions;
+    Property addedPermissions : TPermissionChangeTypeaddedPermissionsArray Index 0 Read FaddedPermissions Write SetaddedPermissions;
+    Property removedPermissions : TPermissionChangeTyperemovedPermissionsArray Index 8 Read FremovedPermissions Write SetremovedPermissions;
   end;
   TPermissionChangeClass = Class of TPermissionChange;
   
-  { --------------------------------------------------------------------
-    TPermissionChangeaddedPermissions
-    --------------------------------------------------------------------}
-  
-  TPermissionChangeaddedPermissions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TPermissionChangeaddedPermissionsClass = Class of TPermissionChangeaddedPermissions;
-  
-  { --------------------------------------------------------------------
-    TPermissionChangeremovedPermissions
-    --------------------------------------------------------------------}
-  
-  TPermissionChangeremovedPermissions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TPermissionChangeremovedPermissionsClass = Class of TPermissionChangeremovedPermissions;
-  
   { --------------------------------------------------------------------
     TPhoto
     --------------------------------------------------------------------}
   
   TPhoto = Class(TGoogleBaseObject)
   Private
-    Furl : string;
+    Furl : String;
   Protected
     //Property setters
-    Procedure Seturl(AIndex : Integer; AValue : string); virtual;
+    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property url : string Index 0 Read Furl Write Seturl;
+    Property url : String Index 0 Read Furl Write Seturl;
   end;
   TPhotoClass = Class of TPhoto;
   
@@ -370,16 +247,16 @@ type
   
   TRename = Class(TGoogleBaseObject)
   Private
-    FnewTitle : string;
-    FoldTitle : string;
+    FnewTitle : String;
+    FoldTitle : String;
   Protected
     //Property setters
-    Procedure SetnewTitle(AIndex : Integer; AValue : string); virtual;
-    Procedure SetoldTitle(AIndex : Integer; AValue : string); virtual;
+    Procedure SetnewTitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetoldTitle(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property newTitle : string Index 0 Read FnewTitle Write SetnewTitle;
-    Property oldTitle : string Index 8 Read FoldTitle Write SetoldTitle;
+    Property newTitle : String Index 0 Read FnewTitle Write SetnewTitle;
+    Property oldTitle : String Index 8 Read FoldTitle Write SetoldTitle;
   end;
   TRenameClass = Class of TRename;
   
@@ -389,19 +266,19 @@ type
   
   TTarget = Class(TGoogleBaseObject)
   Private
-    Fid : string;
-    FmimeType : string;
-    Fname : string;
+    Fid : String;
+    FmimeType : String;
+    Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmimeType(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmimeType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property id : string Index 0 Read Fid Write Setid;
-    Property mimeType : string Index 8 Read FmimeType Write SetmimeType;
-    Property name : string Index 16 Read Fname Write Setname;
+    Property id : String Index 0 Read Fid Write Setid;
+    Property mimeType : String Index 8 Read FmimeType Write SetmimeType;
+    Property name : String Index 16 Read Fname Write Setname;
   end;
   TTargetClass = Class of TTarget;
   
@@ -411,15 +288,15 @@ type
   
   TUser = Class(TGoogleBaseObject)
   Private
-    Fname : string;
+    Fname : String;
     Fphoto : TPhoto;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setphoto(AIndex : Integer; AValue : TPhoto); virtual;
   Public
   Published
-    Property name : string Index 0 Read Fname Write Setname;
+    Property name : String Index 0 Read Fname Write Setname;
     Property photo : TPhoto Index 8 Read Fphoto Write Setphoto;
   end;
   TUserClass = Class of TUser;
@@ -432,13 +309,13 @@ type
   //Optional query Options for TActivitiesResource, method List
   
   TActivitiesListOptions = Record
-    driveancestorId : string;
-    drivefileId : string;
-    groupingStrategy : string;
+    driveancestorId : String;
+    drivefileId : String;
+    groupingStrategy : String;
     pageSize : integer;
-    pageToken : string;
-    source : string;
-    userId : string;
+    pageToken : String;
+    source : String;
+    userId : String;
   end;
   
   TActivitiesResource = Class(TGoogleResource)
@@ -505,7 +382,7 @@ end;
 
 
 
-Procedure TActivity.SetsingleEvents(AIndex : Integer; AValue : TActivitysingleEvents); 
+Procedure TActivity.SetsingleEvents(AIndex : Integer; AValue : TActivityTypesingleEventsArray); 
 
 begin
   If (FsingleEvents=AValue) then exit;
@@ -517,19 +394,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TActivitysingleEvents
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TEvent
   --------------------------------------------------------------------}
 
 
-Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; AValue : TEventadditionalEventTypes); 
+Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FadditionalEventTypes=AValue) then exit;
@@ -539,7 +409,7 @@ end;
 
 
 
-Procedure TEvent.SeteventTimeMillis(AIndex : Integer; AValue : string); 
+Procedure TEvent.SeteventTimeMillis(AIndex : Integer; AValue : String); 
 
 begin
   If (FeventTimeMillis=AValue) then exit;
@@ -569,7 +439,7 @@ end;
 
 
 
-Procedure TEvent.SetpermissionChanges(AIndex : Integer; AValue : TEventpermissionChanges); 
+Procedure TEvent.SetpermissionChanges(AIndex : Integer; AValue : TEventTypepermissionChangesArray); 
 
 begin
   If (FpermissionChanges=AValue) then exit;
@@ -579,7 +449,7 @@ end;
 
 
 
-Procedure TEvent.SetprimaryEventType(AIndex : Integer; AValue : string); 
+Procedure TEvent.SetprimaryEventType(AIndex : Integer; AValue : String); 
 
 begin
   If (FprimaryEventType=AValue) then exit;
@@ -621,26 +491,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TEventadditionalEventTypes
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TEventpermissionChanges
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListActivitiesResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; AValue : TListActivitiesResponseactivities); 
+Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray); 
 
 begin
   If (Factivities=AValue) then exit;
@@ -650,7 +506,7 @@ end;
 
 
 
-Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -662,19 +518,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListActivitiesResponseactivities
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TMove
   --------------------------------------------------------------------}
 
 
-Procedure TMove.SetaddedParents(AIndex : Integer; AValue : TMoveaddedParents); 
+Procedure TMove.SetaddedParents(AIndex : Integer; AValue : TMoveTypeaddedParentsArray); 
 
 begin
   If (FaddedParents=AValue) then exit;
@@ -684,7 +533,7 @@ end;
 
 
 
-Procedure TMove.SetremovedParents(AIndex : Integer; AValue : TMoveremovedParents); 
+Procedure TMove.SetremovedParents(AIndex : Integer; AValue : TMoveTyperemovedParentsArray); 
 
 begin
   If (FremovedParents=AValue) then exit;
@@ -696,26 +545,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TMoveaddedParents
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TMoveremovedParents
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TParent
   --------------------------------------------------------------------}
 
 
-Procedure TParent.Setid(AIndex : Integer; AValue : string); 
+Procedure TParent.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -735,7 +570,7 @@ end;
 
 
 
-Procedure TParent.Settitle(AIndex : Integer; AValue : string); 
+Procedure TParent.Settitle(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -752,7 +587,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermission.Setname(AIndex : Integer; AValue : string); 
+Procedure TPermission.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -762,7 +597,7 @@ end;
 
 
 
-Procedure TPermission.SetpermissionId(AIndex : Integer; AValue : string); 
+Procedure TPermission.SetpermissionId(AIndex : Integer; AValue : String); 
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -772,7 +607,7 @@ end;
 
 
 
-Procedure TPermission.Setrole(AIndex : Integer; AValue : string); 
+Procedure TPermission.Setrole(AIndex : Integer; AValue : String); 
 
 begin
   If (Frole=AValue) then exit;
@@ -782,7 +617,7 @@ end;
 
 
 
-Procedure TPermission.Set_type(AIndex : Integer; AValue : string); 
+Procedure TPermission.Set_type(AIndex : Integer; AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -830,7 +665,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeaddedPermissions); 
+Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeTypeaddedPermissionsArray); 
 
 begin
   If (FaddedPermissions=AValue) then exit;
@@ -840,7 +675,7 @@ end;
 
 
 
-Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeremovedPermissions); 
+Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeTyperemovedPermissionsArray); 
 
 begin
   If (FremovedPermissions=AValue) then exit;
@@ -852,26 +687,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TPermissionChangeaddedPermissions
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TPermissionChangeremovedPermissions
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TPhoto
   --------------------------------------------------------------------}
 
 
-Procedure TPhoto.Seturl(AIndex : Integer; AValue : string); 
+Procedure TPhoto.Seturl(AIndex : Integer; AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -888,7 +709,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRename.SetnewTitle(AIndex : Integer; AValue : string); 
+Procedure TRename.SetnewTitle(AIndex : Integer; AValue : String); 
 
 begin
   If (FnewTitle=AValue) then exit;
@@ -898,7 +719,7 @@ end;
 
 
 
-Procedure TRename.SetoldTitle(AIndex : Integer; AValue : string); 
+Procedure TRename.SetoldTitle(AIndex : Integer; AValue : String); 
 
 begin
   If (FoldTitle=AValue) then exit;
@@ -915,7 +736,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTarget.Setid(AIndex : Integer; AValue : string); 
+Procedure TTarget.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -925,7 +746,7 @@ end;
 
 
 
-Procedure TTarget.SetmimeType(AIndex : Integer; AValue : string); 
+Procedure TTarget.SetmimeType(AIndex : Integer; AValue : String); 
 
 begin
   If (FmimeType=AValue) then exit;
@@ -935,7 +756,7 @@ end;
 
 
 
-Procedure TTarget.Setname(AIndex : Integer; AValue : string); 
+Procedure TTarget.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -952,7 +773,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUser.Setname(AIndex : Integer; AValue : string); 
+Procedure TUser.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1153,20 +974,12 @@ Class Procedure TAppsactivityAPI.RegisterAPIResources;
 
 begin
   TActivity.RegisterObject;
-  TActivitysingleEvents.RegisterObject;
   TEvent.RegisterObject;
-  TEventadditionalEventTypes.RegisterObject;
-  TEventpermissionChanges.RegisterObject;
   TListActivitiesResponse.RegisterObject;
-  TListActivitiesResponseactivities.RegisterObject;
   TMove.RegisterObject;
-  TMoveaddedParents.RegisterObject;
-  TMoveremovedParents.RegisterObject;
   TParent.RegisterObject;
   TPermission.RegisterObject;
   TPermissionChange.RegisterObject;
-  TPermissionChangeaddedPermissions.RegisterObject;
-  TPermissionChangeremovedPermissions.RegisterObject;
   TPhoto.RegisterObject;
   TRename.RegisterObject;
   TTarget.RegisterObject;

packages/googleapi/src/googleappstate.pp

@@ -1,31 +1,19 @@
 unit googleappstate;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:48
 {$MODE objfpc}
 {$H+}
 
@@ -34,17 +22,18 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TGetResponse = class;
-  TGetResponseArray = Array of TGetResponse;
   TListResponse = class;
-  TListResponseArray = Array of TListResponse;
-  TListResponseitems = class;
-  TListResponseitemsArray = Array of TListResponseitems;
   TUpdateRequest = class;
-  TUpdateRequestArray = Array of TUpdateRequest;
   TWriteResult = class;
+  TGetResponseArray = Array of TGetResponse;
+  TListResponseArray = Array of TListResponse;
+  TUpdateRequestArray = Array of TUpdateRequest;
   TWriteResultArray = Array of TWriteResult;
+  //Anonymous types, using auto-generated names
+  TListResponseTypeitemsArray = Array of TGetResponse;
   
   { --------------------------------------------------------------------
     TGetResponse
@@ -52,21 +41,21 @@ type
   
   TGetResponse = Class(TGoogleBaseObject)
   Private
-    FcurrentStateVersion : string;
-    Fdata : string;
-    Fkind : string;
+    FcurrentStateVersion : String;
+    Fdata : String;
+    Fkind : String;
     FstateKey : integer;
   Protected
     //Property setters
-    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : string); virtual;
-    Procedure Setdata(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property currentStateVersion : string Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
-    Property data : string Index 8 Read Fdata Write Setdata;
-    Property kind : string Index 16 Read Fkind Write Setkind;
+    Property currentStateVersion : String Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
+    Property data : String Index 8 Read Fdata Write Setdata;
+    Property kind : String Index 16 Read Fkind Write Setkind;
     Property stateKey : integer Index 24 Read FstateKey Write SetstateKey;
   end;
   TGetResponseClass = Class of TGetResponse;
@@ -77,51 +66,38 @@ type
   
   TListResponse = Class(TGoogleBaseObject)
   Private
-    Fitems : TListResponseitems;
-    Fkind : string;
+    Fitems : TListResponseTypeitemsArray;
+    Fkind : String;
     FmaximumKeyCount : integer;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TListResponseitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmaximumKeyCount(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property items : TListResponseitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property items : TListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
     Property maximumKeyCount : integer Index 16 Read FmaximumKeyCount Write SetmaximumKeyCount;
   end;
   TListResponseClass = Class of TListResponse;
   
-  { --------------------------------------------------------------------
-    TListResponseitems
-    --------------------------------------------------------------------}
-  
-  TListResponseitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListResponseitemsClass = Class of TListResponseitems;
-  
   { --------------------------------------------------------------------
     TUpdateRequest
     --------------------------------------------------------------------}
   
   TUpdateRequest = Class(TGoogleBaseObject)
   Private
-    Fdata : string;
-    Fkind : string;
+    Fdata : String;
+    Fkind : String;
   Protected
     //Property setters
-    Procedure Setdata(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property data : string Index 0 Read Fdata Write Setdata;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property data : String Index 0 Read Fdata Write Setdata;
+    Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TUpdateRequestClass = Class of TUpdateRequest;
   
@@ -131,18 +107,18 @@ type
   
   TWriteResult = Class(TGoogleBaseObject)
   Private
-    FcurrentStateVersion : string;
-    Fkind : string;
+    FcurrentStateVersion : String;
+    Fkind : String;
     FstateKey : integer;
   Protected
     //Property setters
-    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property currentStateVersion : string Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property currentStateVersion : String Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
+    Property kind : String Index 8 Read Fkind Write Setkind;
     Property stateKey : integer Index 16 Read FstateKey Write SetstateKey;
   end;
   TWriteResultClass = Class of TWriteResult;
@@ -155,7 +131,7 @@ type
   //Optional query Options for TStatesResource, method Clear
   
   TStatesClearOptions = Record
-    currentDataVersion : string;
+    currentDataVersion : String;
   end;
   
   
@@ -169,7 +145,7 @@ type
   //Optional query Options for TStatesResource, method Update
   
   TStatesUpdateOptions = Record
-    currentStateVersion : string;
+    currentStateVersion : String;
   end;
   
   TStatesResource = Class(TGoogleResource)
@@ -232,7 +208,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; AValue : string); 
+Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; AValue : String); 
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -242,7 +218,7 @@ end;
 
 
 
-Procedure TGetResponse.Setdata(AIndex : Integer; AValue : string); 
+Procedure TGetResponse.Setdata(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -252,7 +228,7 @@ end;
 
 
 
-Procedure TGetResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TGetResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -279,7 +255,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListResponse.Setitems(AIndex : Integer; AValue : TListResponseitems); 
+Procedure TListResponse.Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -289,7 +265,7 @@ end;
 
 
 
-Procedure TListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -311,19 +287,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListResponseitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUpdateRequest
   --------------------------------------------------------------------}
 
 
-Procedure TUpdateRequest.Setdata(AIndex : Integer; AValue : string); 
+Procedure TUpdateRequest.Setdata(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -333,7 +302,7 @@ end;
 
 
 
-Procedure TUpdateRequest.Setkind(AIndex : Integer; AValue : string); 
+Procedure TUpdateRequest.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -350,7 +319,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; AValue : string); 
+Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; AValue : String); 
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -360,7 +329,7 @@ end;
 
 
 
-Procedure TWriteResult.Setkind(AIndex : Integer; AValue : string); 
+Procedure TWriteResult.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -527,7 +496,7 @@ end;
 Class Function TAppstateAPI.APIRevision : String;
 
 begin
-  Result:='20150428';
+  Result:='20150429';
 end;
 
 Class Function TAppstateAPI.APIID : String;
@@ -634,7 +603,6 @@ Class Procedure TAppstateAPI.RegisterAPIResources;
 begin
   TGetResponse.RegisterObject;
   TListResponse.RegisterObject;
-  TListResponseitems.RegisterObject;
   TUpdateRequest.RegisterObject;
   TWriteResult.RegisterObject;
 end;

packages/googleapi/src/googleaudit.pp

@@ -1,31 +1,19 @@
 unit googleaudit;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:49
 {$MODE objfpc}
 {$H+}
 
@@ -34,21 +22,20 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TActivities = class;
-  TActivitiesArray = Array of TActivities;
-  TActivitiesitems = class;
-  TActivitiesitemsArray = Array of TActivitiesitems;
   TActivity = class;
+  TActivitiesArray = Array of TActivities;
   TActivityArray = Array of TActivity;
-  TActivityactor = class;
-  TActivityactorArray = Array of TActivityactor;
-  TActivityevents = class;
-  TActivityeventsArray = Array of TActivityevents;
-  TActivityeventsparameters = class;
-  TActivityeventsparametersArray = Array of TActivityeventsparameters;
-  TActivityid = class;
-  TActivityidArray = Array of TActivityid;
+  //Anonymous types, using auto-generated names
+  TActivityTypeactor = class;
+  TActivityTypeeventsItemTypeparametersItem = class;
+  TActivityTypeeventsItem = class;
+  TActivityTypeid = class;
+  TActivitiesTypeitemsArray = Array of TActivity;
+  TActivityTypeeventsItemTypeparametersArray = Array of TActivityTypeeventsItemTypeparametersItem;
+  TActivityTypeeventsArray = Array of TActivityTypeeventsItem;
   
   { --------------------------------------------------------------------
     TActivities
@@ -56,156 +43,143 @@ type
   
   TActivities = Class(TGoogleBaseObject)
   Private
-    Fitems : TActivitiesitems;
-    Fkind : string;
-    Fnext : string;
+    Fitems : TActivitiesTypeitemsArray;
+    Fkind : String;
+    Fnext : String;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TActivitiesitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setnext(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnext(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property items : TActivitiesitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property next : string Index 16 Read Fnext Write Setnext;
+    Property items : TActivitiesTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property next : String Index 16 Read Fnext Write Setnext;
   end;
   TActivitiesClass = Class of TActivities;
   
   { --------------------------------------------------------------------
-    TActivitiesitems
+    TActivityTypeactor
     --------------------------------------------------------------------}
   
-  TActivitiesitems = Class(TGoogleBaseObject)
+  TActivityTypeactor = Class(TGoogleBaseObject)
   Private
+    FapplicationId : String;
+    FcallerType : String;
+    Femail : String;
+    Fkey : String;
   Protected
     //Property setters
+    Procedure SetapplicationId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcallerType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
   Public
   Published
+    Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
+    Property callerType : String Index 8 Read FcallerType Write SetcallerType;
+    Property email : String Index 16 Read Femail Write Setemail;
+    Property key : String Index 24 Read Fkey Write Setkey;
   end;
-  TActivitiesitemsClass = Class of TActivitiesitems;
-  
-  { --------------------------------------------------------------------
-    TActivity
-    --------------------------------------------------------------------}
-  
-  TActivity = Class(TGoogleBaseObject)
-  Private
-    Factor : TActivityactor;
-    Fevents : TActivityevents;
-    Fid : TActivityid;
-    FipAddress : string;
-    Fkind : string;
-    FownerDomain : string;
-  Protected
-    //Property setters
-    Procedure Setactor(AIndex : Integer; AValue : TActivityactor); virtual;
-    Procedure Setevents(AIndex : Integer; AValue : TActivityevents); virtual;
-    Procedure Setid(AIndex : Integer; AValue : TActivityid); virtual;
-    Procedure SetipAddress(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetownerDomain(AIndex : Integer; AValue : string); virtual;
-  Public
-  Published
-    Property actor : TActivityactor Index 0 Read Factor Write Setactor;
-    Property events : TActivityevents Index 8 Read Fevents Write Setevents;
-    Property id : TActivityid Index 16 Read Fid Write Setid;
-    Property ipAddress : string Index 24 Read FipAddress Write SetipAddress;
-    Property kind : string Index 32 Read Fkind Write Setkind;
-    Property ownerDomain : string Index 40 Read FownerDomain Write SetownerDomain;
-  end;
-  TActivityClass = Class of TActivity;
+  TActivityTypeactorClass = Class of TActivityTypeactor;
   
   { --------------------------------------------------------------------
-    TActivityactor
+    TActivityTypeeventsItemTypeparametersItem
     --------------------------------------------------------------------}
   
-  TActivityactor = Class(TGoogleBaseObject)
+  TActivityTypeeventsItemTypeparametersItem = Class(TGoogleBaseObject)
   Private
-    FapplicationId : string;
-    FcallerType : string;
-    Femail : string;
-    Fkey : string;
+    Fname : String;
+    Fvalue : String;
   Protected
     //Property setters
-    Procedure SetapplicationId(AIndex : Integer; AValue : string); virtual;
-    Procedure SetcallerType(AIndex : Integer; AValue : string); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property applicationId : string Index 0 Read FapplicationId Write SetapplicationId;
-    Property callerType : string Index 8 Read FcallerType Write SetcallerType;
-    Property email : string Index 16 Read Femail Write Setemail;
-    Property key : string Index 24 Read Fkey Write Setkey;
+    Property name : String Index 0 Read Fname Write Setname;
+    Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
-  TActivityactorClass = Class of TActivityactor;
+  TActivityTypeeventsItemTypeparametersItemClass = Class of TActivityTypeeventsItemTypeparametersItem;
   
   { --------------------------------------------------------------------
-    TActivityevents
+    TActivityTypeeventsItem
     --------------------------------------------------------------------}
   
-  TActivityevents = Class(TGoogleBaseObject)
+  TActivityTypeeventsItem = Class(TGoogleBaseObject)
   Private
-    FeventType : string;
-    Fname : string;
-    Fparameters : TActivityeventsparameters;
+    FeventType : String;
+    Fname : String;
+    Fparameters : TActivityTypeeventsItemTypeparametersArray;
   Protected
     //Property setters
-    Procedure SeteventType(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setparameters(AIndex : Integer; AValue : TActivityeventsparameters); virtual;
+    Procedure SeteventType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
   Public
   Published
-    Property eventType : string Index 0 Read FeventType Write SeteventType;
-    Property name : string Index 8 Read Fname Write Setname;
-    Property parameters : TActivityeventsparameters Index 16 Read Fparameters Write Setparameters;
+    Property eventType : String Index 0 Read FeventType Write SeteventType;
+    Property name : String Index 8 Read Fname Write Setname;
+    Property parameters : TActivityTypeeventsItemTypeparametersArray Index 16 Read Fparameters Write Setparameters;
   end;
-  TActivityeventsClass = Class of TActivityevents;
+  TActivityTypeeventsItemClass = Class of TActivityTypeeventsItem;
   
   { --------------------------------------------------------------------
-    TActivityeventsparameters
+    TActivityTypeid
     --------------------------------------------------------------------}
   
-  TActivityeventsparameters = Class(TGoogleBaseObject)
+  TActivityTypeid = Class(TGoogleBaseObject)
   Private
-    Fname : string;
-    Fvalue : string;
+    FapplicationId : String;
+    FcustomerId : String;
+    Ftime : TDatetime;
+    FuniqQualifier : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : string); virtual;
+    Procedure SetapplicationId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
+    Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
+    Procedure SetuniqQualifier(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property name : string Index 0 Read Fname Write Setname;
-    Property value : string Index 8 Read Fvalue Write Setvalue;
+    Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
+    Property customerId : String Index 8 Read FcustomerId Write SetcustomerId;
+    Property time : TDatetime Index 16 Read Ftime Write Settime;
+    Property uniqQualifier : String Index 24 Read FuniqQualifier Write SetuniqQualifier;
   end;
-  TActivityeventsparametersClass = Class of TActivityeventsparameters;
+  TActivityTypeidClass = Class of TActivityTypeid;
   
   { --------------------------------------------------------------------
-    TActivityid
+    TActivity
     --------------------------------------------------------------------}
   
-  TActivityid = Class(TGoogleBaseObject)
+  TActivity = Class(TGoogleBaseObject)
   Private
-    FapplicationId : string;
-    FcustomerId : string;
-    Ftime : TDatetime;
-    FuniqQualifier : string;
+    Factor : TActivityTypeactor;
+    Fevents : TActivityTypeeventsArray;
+    Fid : TActivityTypeid;
+    FipAddress : String;
+    Fkind : String;
+    FownerDomain : String;
   Protected
     //Property setters
-    Procedure SetapplicationId(AIndex : Integer; AValue : string); virtual;
-    Procedure SetcustomerId(AIndex : Integer; AValue : string); virtual;
-    Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetuniqQualifier(AIndex : Integer; AValue : string); virtual;
+    Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
+    Procedure Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); virtual;
+    Procedure Setid(AIndex : Integer; AValue : TActivityTypeid); virtual;
+    Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property applicationId : string Index 0 Read FapplicationId Write SetapplicationId;
-    Property customerId : string Index 8 Read FcustomerId Write SetcustomerId;
-    Property time : TDatetime Index 16 Read Ftime Write Settime;
-    Property uniqQualifier : string Index 24 Read FuniqQualifier Write SetuniqQualifier;
+    Property actor : TActivityTypeactor Index 0 Read Factor Write Setactor;
+    Property events : TActivityTypeeventsArray Index 8 Read Fevents Write Setevents;
+    Property id : TActivityTypeid Index 16 Read Fid Write Setid;
+    Property ipAddress : String Index 24 Read FipAddress Write SetipAddress;
+    Property kind : String Index 32 Read Fkind Write Setkind;
+    Property ownerDomain : String Index 40 Read FownerDomain Write SetownerDomain;
   end;
-  TActivityidClass = Class of TActivityid;
+  TActivityClass = Class of TActivity;
   
   { --------------------------------------------------------------------
     TActivitiesResource
@@ -216,14 +190,14 @@ type
   
   TActivitiesListOptions = Record
     actorApplicationId : int64;
-    actorEmail : string;
-    actorIpAddress : string;
-    caller : string;
-    continuationToken : string;
-    endTime : string;
-    eventName : string;
+    actorEmail : String;
+    actorIpAddress : String;
+    caller : String;
+    continuationToken : String;
+    endTime : String;
+    eventName : String;
     maxResults : integer;
-    startTime : string;
+    startTime : String;
   end;
   
   TActivitiesResource = Class(TGoogleResource)
@@ -280,7 +254,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TActivities.Setitems(AIndex : Integer; AValue : TActivitiesitems); 
+Procedure TActivities.Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -290,7 +264,7 @@ end;
 
 
 
-Procedure TActivities.Setkind(AIndex : Integer; AValue : string); 
+Procedure TActivities.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -300,7 +274,7 @@ end;
 
 
 
-Procedure TActivities.Setnext(AIndex : Integer; AValue : string); 
+Procedure TActivities.Setnext(AIndex : Integer; AValue : String); 
 
 begin
   If (Fnext=AValue) then exit;
@@ -313,72 +287,72 @@ end;
 
 
 { --------------------------------------------------------------------
-  TActivitiesitems
+  TActivityTypeactor
   --------------------------------------------------------------------}
 
 
+Procedure TActivityTypeactor.SetapplicationId(AIndex : Integer; AValue : String); 
 
+begin
+  If (FapplicationId=AValue) then exit;
+  FapplicationId:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
 
-{ --------------------------------------------------------------------
-  TActivity
-  --------------------------------------------------------------------}
 
 
-Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityactor); 
+Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; AValue : String); 
 
 begin
-  If (Factor=AValue) then exit;
-  Factor:=AValue;
+  If (FcallerType=AValue) then exit;
+  FcallerType:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivity.Setevents(AIndex : Integer; AValue : TActivityevents); 
+Procedure TActivityTypeactor.Setemail(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fevents=AValue) then exit;
-  Fevents:=AValue;
+  If (Femail=AValue) then exit;
+  Femail:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivity.Setid(AIndex : Integer; AValue : TActivityid); 
+Procedure TActivityTypeactor.Setkey(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fid=AValue) then exit;
-  Fid:=AValue;
+  If (Fkey=AValue) then exit;
+  Fkey:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivity.SetipAddress(AIndex : Integer; AValue : string); 
 
-begin
-  If (FipAddress=AValue) then exit;
-  FipAddress:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
 
+{ --------------------------------------------------------------------
+  TActivityTypeeventsItemTypeparametersItem
+  --------------------------------------------------------------------}
 
 
-Procedure TActivity.Setkind(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fkind=AValue) then exit;
-  Fkind:=AValue;
+  If (Fname=AValue) then exit;
+  Fname:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivity.SetownerDomain(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; AValue : String); 
 
 begin
-  If (FownerDomain=AValue) then exit;
-  FownerDomain:=AValue;
+  If (Fvalue=AValue) then exit;
+  Fvalue:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -387,82 +361,82 @@ end;
 
 
 { --------------------------------------------------------------------
-  TActivityactor
+  TActivityTypeeventsItem
   --------------------------------------------------------------------}
 
 
-Procedure TActivityactor.SetapplicationId(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeeventsItem.SeteventType(AIndex : Integer; AValue : String); 
 
 begin
-  If (FapplicationId=AValue) then exit;
-  FapplicationId:=AValue;
+  If (FeventType=AValue) then exit;
+  FeventType:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityactor.SetcallerType(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; AValue : String); 
 
 begin
-  If (FcallerType=AValue) then exit;
-  FcallerType:=AValue;
+  If (Fname=AValue) then exit;
+  Fname:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityactor.Setemail(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); 
 
 begin
-  If (Femail=AValue) then exit;
-  Femail:=AValue;
+  If (Fparameters=AValue) then exit;
+  Fparameters:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityactor.Setkey(AIndex : Integer; AValue : string); 
 
-begin
-  If (Fkey=AValue) then exit;
-  Fkey:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
 
+{ --------------------------------------------------------------------
+  TActivityTypeid
+  --------------------------------------------------------------------}
 
 
+Procedure TActivityTypeid.SetapplicationId(AIndex : Integer; AValue : String); 
 
+begin
+  If (FapplicationId=AValue) then exit;
+  FapplicationId:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
 
-{ --------------------------------------------------------------------
-  TActivityevents
-  --------------------------------------------------------------------}
 
 
-Procedure TActivityevents.SeteventType(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; AValue : String); 
 
 begin
-  If (FeventType=AValue) then exit;
-  FeventType:=AValue;
+  If (FcustomerId=AValue) then exit;
+  FcustomerId:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityevents.Setname(AIndex : Integer; AValue : string); 
+Procedure TActivityTypeid.Settime(AIndex : Integer; AValue : TDatetime); 
 
 begin
-  If (Fname=AValue) then exit;
-  Fname:=AValue;
+  If (Ftime=AValue) then exit;
+  Ftime:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityevents.Setparameters(AIndex : Integer; AValue : TActivityeventsparameters); 
+Procedure TActivityTypeid.SetuniqQualifier(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fparameters=AValue) then exit;
-  Fparameters:=AValue;
+  If (FuniqQualifier=AValue) then exit;
+  FuniqQualifier:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -471,72 +445,65 @@ end;
 
 
 { --------------------------------------------------------------------
-  TActivityeventsparameters
+  TActivity
   --------------------------------------------------------------------}
 
 
-Procedure TActivityeventsparameters.Setname(AIndex : Integer; AValue : string); 
+Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor); 
 
 begin
-  If (Fname=AValue) then exit;
-  Fname:=AValue;
+  If (Factor=AValue) then exit;
+  Factor:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityeventsparameters.Setvalue(AIndex : Integer; AValue : string); 
+Procedure TActivity.Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); 
 
 begin
-  If (Fvalue=AValue) then exit;
-  Fvalue:=AValue;
+  If (Fevents=AValue) then exit;
+  Fevents:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-
-
-{ --------------------------------------------------------------------
-  TActivityid
-  --------------------------------------------------------------------}
-
-
-Procedure TActivityid.SetapplicationId(AIndex : Integer; AValue : string); 
+Procedure TActivity.Setid(AIndex : Integer; AValue : TActivityTypeid); 
 
 begin
-  If (FapplicationId=AValue) then exit;
-  FapplicationId:=AValue;
+  If (Fid=AValue) then exit;
+  Fid:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityid.SetcustomerId(AIndex : Integer; AValue : string); 
+Procedure TActivity.SetipAddress(AIndex : Integer; AValue : String); 
 
 begin
-  If (FcustomerId=AValue) then exit;
-  FcustomerId:=AValue;
+  If (FipAddress=AValue) then exit;
+  FipAddress:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityid.Settime(AIndex : Integer; AValue : TDatetime); 
+Procedure TActivity.Setkind(AIndex : Integer; AValue : String); 
 
 begin
-  If (Ftime=AValue) then exit;
-  Ftime:=AValue;
+  If (Fkind=AValue) then exit;
+  Fkind:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TActivityid.SetuniqQualifier(AIndex : Integer; AValue : string); 
+Procedure TActivity.SetownerDomain(AIndex : Integer; AValue : String); 
 
 begin
-  If (FuniqQualifier=AValue) then exit;
-  FuniqQualifier:=AValue;
+  If (FownerDomain=AValue) then exit;
+  FownerDomain:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -721,12 +688,11 @@ Class Procedure TAuditAPI.RegisterAPIResources;
 
 begin
   TActivities.RegisterObject;
-  TActivitiesitems.RegisterObject;
+  TActivityTypeactor.RegisterObject;
+  TActivityTypeeventsItemTypeparametersItem.RegisterObject;
+  TActivityTypeeventsItem.RegisterObject;
+  TActivityTypeid.RegisterObject;
   TActivity.RegisterObject;
-  TActivityactor.RegisterObject;
-  TActivityevents.RegisterObject;
-  TActivityeventsparameters.RegisterObject;
-  TActivityid.RegisterObject;
 end;
 
 

packages/googleapi/src/googlecloudlatencytest.pp

@@ -1,31 +1,19 @@
 unit googlecloudlatencytest;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:50
 {$MODE objfpc}
 {$H+}
 
@@ -34,29 +22,27 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TAggregatedStats = class;
-  TAggregatedStatsArray = Array of TAggregatedStats;
-  TAggregatedStatsstats = class;
-  TAggregatedStatsstatsArray = Array of TAggregatedStatsstats;
   TAggregatedStatsReply = class;
-  TAggregatedStatsReplyArray = Array of TAggregatedStatsReply;
   TDoubleValue = class;
-  TDoubleValueArray = Array of TDoubleValue;
   TIntValue = class;
-  TIntValueArray = Array of TIntValue;
   TStats = class;
-  TStatsArray = Array of TStats;
-  TStatsdoubleValues = class;
-  TStatsdoubleValuesArray = Array of TStatsdoubleValues;
-  TStatsintValues = class;
-  TStatsintValuesArray = Array of TStatsintValues;
-  TStatsstringValues = class;
-  TStatsstringValuesArray = Array of TStatsstringValues;
   TStatsReply = class;
-  TStatsReplyArray = Array of TStatsReply;
   TStringValue = class;
+  TAggregatedStatsArray = Array of TAggregatedStats;
+  TAggregatedStatsReplyArray = Array of TAggregatedStatsReply;
+  TDoubleValueArray = Array of TDoubleValue;
+  TIntValueArray = Array of TIntValue;
+  TStatsArray = Array of TStats;
+  TStatsReplyArray = Array of TStatsReply;
   TStringValueArray = Array of TStringValue;
+  //Anonymous types, using auto-generated names
+  TAggregatedStatsTypestatsArray = Array of TStats;
+  TStatsTypedoubleValuesArray = Array of TDoubleValue;
+  TStatsTypeintValuesArray = Array of TIntValue;
+  TStatsTypestringValuesArray = Array of TStringValue;
   
   { --------------------------------------------------------------------
     TAggregatedStats
@@ -64,42 +50,29 @@ type
   
   TAggregatedStats = Class(TGoogleBaseObject)
   Private
-    Fstats : TAggregatedStatsstats;
+    Fstats : TAggregatedStatsTypestatsArray;
   Protected
     //Property setters
-    Procedure Setstats(AIndex : Integer; AValue : TAggregatedStatsstats); virtual;
+    Procedure Setstats(AIndex : Integer; AValue : TAggregatedStatsTypestatsArray); virtual;
   Public
   Published
-    Property stats : TAggregatedStatsstats Index 0 Read Fstats Write Setstats;
+    Property stats : TAggregatedStatsTypestatsArray Index 0 Read Fstats Write Setstats;
   end;
   TAggregatedStatsClass = Class of TAggregatedStats;
   
-  { --------------------------------------------------------------------
-    TAggregatedStatsstats
-    --------------------------------------------------------------------}
-  
-  TAggregatedStatsstats = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAggregatedStatsstatsClass = Class of TAggregatedStatsstats;
-  
   { --------------------------------------------------------------------
     TAggregatedStatsReply
     --------------------------------------------------------------------}
   
   TAggregatedStatsReply = Class(TGoogleBaseObject)
   Private
-    FtestValue : string;
+    FtestValue : String;
   Protected
     //Property setters
-    Procedure SettestValue(AIndex : Integer; AValue : string); virtual;
+    Procedure SettestValue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property testValue : string Index 0 Read FtestValue Write SettestValue;
+    Property testValue : String Index 0 Read FtestValue Write SettestValue;
   end;
   TAggregatedStatsReplyClass = Class of TAggregatedStatsReply;
   
@@ -109,16 +82,16 @@ type
   
   TDoubleValue = Class(TGoogleBaseObject)
   Private
-    F_label : string;
+    F_label : String;
     Fvalue : integer;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : string); virtual;
+    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property _label : string Index 0 Read F_label Write Set_label;
+    Property _label : String Index 0 Read F_label Write Set_label;
     Property value : integer Index 8 Read Fvalue Write Setvalue;
   end;
   TDoubleValueClass = Class of TDoubleValue;
@@ -129,17 +102,17 @@ type
   
   TIntValue = Class(TGoogleBaseObject)
   Private
-    F_label : string;
-    Fvalue : string;
+    F_label : String;
+    Fvalue : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : string); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : string); virtual;
+    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property _label : string Index 0 Read F_label Write Set_label;
-    Property value : string Index 8 Read Fvalue Write Setvalue;
+    Property _label : String Index 0 Read F_label Write Set_label;
+    Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TIntValueClass = Class of TIntValue;
   
@@ -149,77 +122,38 @@ type
   
   TStats = Class(TGoogleBaseObject)
   Private
-    FdoubleValues : TStatsdoubleValues;
-    FintValues : TStatsintValues;
-    FstringValues : TStatsstringValues;
+    FdoubleValues : TStatsTypedoubleValuesArray;
+    FintValues : TStatsTypeintValuesArray;
+    FstringValues : TStatsTypestringValuesArray;
     Ftime : double;
   Protected
     //Property setters
-    Procedure SetdoubleValues(AIndex : Integer; AValue : TStatsdoubleValues); virtual;
-    Procedure SetintValues(AIndex : Integer; AValue : TStatsintValues); virtual;
-    Procedure SetstringValues(AIndex : Integer; AValue : TStatsstringValues); virtual;
+    Procedure SetdoubleValues(AIndex : Integer; AValue : TStatsTypedoubleValuesArray); virtual;
+    Procedure SetintValues(AIndex : Integer; AValue : TStatsTypeintValuesArray); virtual;
+    Procedure SetstringValues(AIndex : Integer; AValue : TStatsTypestringValuesArray); virtual;
     Procedure Settime(AIndex : Integer; AValue : double); virtual;
   Public
   Published
-    Property doubleValues : TStatsdoubleValues Index 0 Read FdoubleValues Write SetdoubleValues;
-    Property intValues : TStatsintValues Index 8 Read FintValues Write SetintValues;
-    Property stringValues : TStatsstringValues Index 16 Read FstringValues Write SetstringValues;
+    Property doubleValues : TStatsTypedoubleValuesArray Index 0 Read FdoubleValues Write SetdoubleValues;
+    Property intValues : TStatsTypeintValuesArray Index 8 Read FintValues Write SetintValues;
+    Property stringValues : TStatsTypestringValuesArray Index 16 Read FstringValues Write SetstringValues;
     Property time : double Index 24 Read Ftime Write Settime;
   end;
   TStatsClass = Class of TStats;
   
-  { --------------------------------------------------------------------
-    TStatsdoubleValues
-    --------------------------------------------------------------------}
-  
-  TStatsdoubleValues = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TStatsdoubleValuesClass = Class of TStatsdoubleValues;
-  
-  { --------------------------------------------------------------------
-    TStatsintValues
-    --------------------------------------------------------------------}
-  
-  TStatsintValues = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TStatsintValuesClass = Class of TStatsintValues;
-  
-  { --------------------------------------------------------------------
-    TStatsstringValues
-    --------------------------------------------------------------------}
-  
-  TStatsstringValues = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TStatsstringValuesClass = Class of TStatsstringValues;
-  
   { --------------------------------------------------------------------
     TStatsReply
     --------------------------------------------------------------------}
   
   TStatsReply = Class(TGoogleBaseObject)
   Private
-    FtestValue : string;
+    FtestValue : String;
   Protected
     //Property setters
-    Procedure SettestValue(AIndex : Integer; AValue : string); virtual;
+    Procedure SettestValue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property testValue : string Index 0 Read FtestValue Write SettestValue;
+    Property testValue : String Index 0 Read FtestValue Write SettestValue;
   end;
   TStatsReplyClass = Class of TStatsReply;
   
@@ -229,17 +163,17 @@ type
   
   TStringValue = Class(TGoogleBaseObject)
   Private
-    F_label : string;
-    Fvalue : string;
+    F_label : String;
+    Fvalue : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : string); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : string); virtual;
+    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property _label : string Index 0 Read F_label Write Set_label;
-    Property value : string Index 8 Read Fvalue Write Setvalue;
+    Property _label : String Index 0 Read F_label Write Set_label;
+    Property value : String Index 8 Read Fvalue Write Setvalue;
   end;
   TStringValueClass = Class of TStringValue;
   
@@ -301,7 +235,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAggregatedStats.Setstats(AIndex : Integer; AValue : TAggregatedStatsstats); 
+Procedure TAggregatedStats.Setstats(AIndex : Integer; AValue : TAggregatedStatsTypestatsArray); 
 
 begin
   If (Fstats=AValue) then exit;
@@ -313,19 +247,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TAggregatedStatsstats
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TAggregatedStatsReply
   --------------------------------------------------------------------}
 
 
-Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; AValue : string); 
+Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; AValue : String); 
 
 begin
   If (FtestValue=AValue) then exit;
@@ -342,7 +269,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDoubleValue.Set_label(AIndex : Integer; AValue : string); 
+Procedure TDoubleValue.Set_label(AIndex : Integer; AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -380,7 +307,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TIntValue.Set_label(AIndex : Integer; AValue : string); 
+Procedure TIntValue.Set_label(AIndex : Integer; AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -390,7 +317,7 @@ end;
 
 
 
-Procedure TIntValue.Setvalue(AIndex : Integer; AValue : string); 
+Procedure TIntValue.Setvalue(AIndex : Integer; AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -418,7 +345,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStats.SetdoubleValues(AIndex : Integer; AValue : TStatsdoubleValues); 
+Procedure TStats.SetdoubleValues(AIndex : Integer; AValue : TStatsTypedoubleValuesArray); 
 
 begin
   If (FdoubleValues=AValue) then exit;
@@ -428,7 +355,7 @@ end;
 
 
 
-Procedure TStats.SetintValues(AIndex : Integer; AValue : TStatsintValues); 
+Procedure TStats.SetintValues(AIndex : Integer; AValue : TStatsTypeintValuesArray); 
 
 begin
   If (FintValues=AValue) then exit;
@@ -438,7 +365,7 @@ end;
 
 
 
-Procedure TStats.SetstringValues(AIndex : Integer; AValue : TStatsstringValues); 
+Procedure TStats.SetstringValues(AIndex : Integer; AValue : TStatsTypestringValuesArray); 
 
 begin
   If (FstringValues=AValue) then exit;
@@ -460,33 +387,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TStatsdoubleValues
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TStatsintValues
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TStatsstringValues
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TStatsReply
   --------------------------------------------------------------------}
 
 
-Procedure TStatsReply.SettestValue(AIndex : Integer; AValue : string); 
+Procedure TStatsReply.SettestValue(AIndex : Integer; AValue : String); 
 
 begin
   If (FtestValue=AValue) then exit;
@@ -503,7 +409,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStringValue.Set_label(AIndex : Integer; AValue : string); 
+Procedure TStringValue.Set_label(AIndex : Integer; AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -513,7 +419,7 @@ end;
 
 
 
-Procedure TStringValue.Setvalue(AIndex : Integer; AValue : string); 
+Procedure TStringValue.Setvalue(AIndex : Integer; AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -702,14 +608,10 @@ Class Procedure TCloudlatencytestAPI.RegisterAPIResources;
 
 begin
   TAggregatedStats.RegisterObject;
-  TAggregatedStatsstats.RegisterObject;
   TAggregatedStatsReply.RegisterObject;
   TDoubleValue.RegisterObject;
   TIntValue.RegisterObject;
   TStats.RegisterObject;
-  TStatsdoubleValues.RegisterObject;
-  TStatsintValues.RegisterObject;
-  TStatsstringValues.RegisterObject;
   TStatsReply.RegisterObject;
   TStringValue.RegisterObject;
 end;

packages/googleapi/src/googlecontainer.pp

@@ -1,31 +1,19 @@
 unit googlecontainer;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:51
 {$MODE objfpc}
 {$H+}
 
@@ -34,41 +22,36 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TCluster = class;
-  TClusterArray = Array of TCluster;
   TCreateClusterRequest = class;
-  TCreateClusterRequestArray = Array of TCreateClusterRequest;
   TListAggregatedClustersResponse = class;
-  TListAggregatedClustersResponseArray = Array of TListAggregatedClustersResponse;
-  TListAggregatedClustersResponseclusters = class;
-  TListAggregatedClustersResponseclustersArray = Array of TListAggregatedClustersResponseclusters;
   TListAggregatedOperationsResponse = class;
-  TListAggregatedOperationsResponseArray = Array of TListAggregatedOperationsResponse;
-  TListAggregatedOperationsResponseoperations = class;
-  TListAggregatedOperationsResponseoperationsArray = Array of TListAggregatedOperationsResponseoperations;
   TListClustersResponse = class;
-  TListClustersResponseArray = Array of TListClustersResponse;
-  TListClustersResponseclusters = class;
-  TListClustersResponseclustersArray = Array of TListClustersResponseclusters;
   TListOperationsResponse = class;
-  TListOperationsResponseArray = Array of TListOperationsResponse;
-  TListOperationsResponseoperations = class;
-  TListOperationsResponseoperationsArray = Array of TListOperationsResponseoperations;
   TMasterAuth = class;
-  TMasterAuthArray = Array of TMasterAuth;
   TNodeConfig = class;
-  TNodeConfigArray = Array of TNodeConfig;
-  TNodeConfigserviceAccounts = class;
-  TNodeConfigserviceAccountsArray = Array of TNodeConfigserviceAccounts;
   TOperation = class;
-  TOperationArray = Array of TOperation;
   TServiceAccount = class;
-  TServiceAccountArray = Array of TServiceAccount;
-  TServiceAccountscopes = class;
-  TServiceAccountscopesArray = Array of TServiceAccountscopes;
   TToken = class;
+  TClusterArray = Array of TCluster;
+  TCreateClusterRequestArray = Array of TCreateClusterRequest;
+  TListAggregatedClustersResponseArray = Array of TListAggregatedClustersResponse;
+  TListAggregatedOperationsResponseArray = Array of TListAggregatedOperationsResponse;
+  TListClustersResponseArray = Array of TListClustersResponse;
+  TListOperationsResponseArray = Array of TListOperationsResponse;
+  TMasterAuthArray = Array of TMasterAuth;
+  TNodeConfigArray = Array of TNodeConfig;
+  TOperationArray = Array of TOperation;
+  TServiceAccountArray = Array of TServiceAccount;
   TTokenArray = Array of TToken;
+  //Anonymous types, using auto-generated names
+  TListAggregatedClustersResponseTypeclustersArray = Array of TCluster;
+  TListAggregatedOperationsResponseTypeoperationsArray = Array of TOperation;
+  TListClustersResponseTypeclustersArray = Array of TCluster;
+  TListOperationsResponseTypeoperationsArray = Array of TOperation;
+  TNodeConfigTypeserviceAccountsArray = Array of TServiceAccount;
   
   { --------------------------------------------------------------------
     TCluster
@@ -76,61 +59,61 @@ type
   
   TCluster = Class(TGoogleBaseObject)
   Private
-    FclusterApiVersion : string;
-    FcontainerIpv4Cidr : string;
-    FcreationTimestamp : string;
-    Fdescription : string;
+    FclusterApiVersion : String;
+    FcontainerIpv4Cidr : String;
+    FcreationTimestamp : String;
+    Fdescription : String;
     FenableCloudLogging : boolean;
-    Fendpoint : string;
+    Fendpoint : String;
     FmasterAuth : TMasterAuth;
-    Fname : string;
-    Fnetwork : string;
+    Fname : String;
+    Fnetwork : String;
     FnodeConfig : TNodeConfig;
     FnodeRoutingPrefixSize : integer;
     FnumNodes : integer;
-    FselfLink : string;
-    FservicesIpv4Cidr : string;
-    Fstatus : string;
-    FstatusMessage : string;
-    Fzone : string;
+    FselfLink : String;
+    FservicesIpv4Cidr : String;
+    Fstatus : String;
+    FstatusMessage : String;
+    Fzone : String;
   Protected
     //Property setters
-    Procedure SetclusterApiVersion(AIndex : Integer; AValue : string); virtual;
-    Procedure SetcontainerIpv4Cidr(AIndex : Integer; AValue : string); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : string); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : string); virtual;
+    Procedure SetclusterApiVersion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerIpv4Cidr(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
     Procedure SetenableCloudLogging(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setendpoint(AIndex : Integer; AValue : string); virtual;
+    Procedure Setendpoint(AIndex : Integer; AValue : String); virtual;
     Procedure SetmasterAuth(AIndex : Integer; AValue : TMasterAuth); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
     Procedure SetnodeConfig(AIndex : Integer; AValue : TNodeConfig); virtual;
     Procedure SetnodeRoutingPrefixSize(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumNodes(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : string); virtual;
-    Procedure SetservicesIpv4Cidr(AIndex : Integer; AValue : string); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : string); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : string); virtual;
-    Procedure Setzone(AIndex : Integer; AValue : string); virtual;
+    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetservicesIpv4Cidr(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setzone(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property clusterApiVersion : string Index 0 Read FclusterApiVersion Write SetclusterApiVersion;
-    Property containerIpv4Cidr : string Index 8 Read FcontainerIpv4Cidr Write SetcontainerIpv4Cidr;
-    Property creationTimestamp : string Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
-    Property description : string Index 24 Read Fdescription Write Setdescription;
+    Property clusterApiVersion : String Index 0 Read FclusterApiVersion Write SetclusterApiVersion;
+    Property containerIpv4Cidr : String Index 8 Read FcontainerIpv4Cidr Write SetcontainerIpv4Cidr;
+    Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
+    Property description : String Index 24 Read Fdescription Write Setdescription;
     Property enableCloudLogging : boolean Index 32 Read FenableCloudLogging Write SetenableCloudLogging;
-    Property endpoint : string Index 40 Read Fendpoint Write Setendpoint;
+    Property endpoint : String Index 40 Read Fendpoint Write Setendpoint;
     Property masterAuth : TMasterAuth Index 48 Read FmasterAuth Write SetmasterAuth;
-    Property name : string Index 56 Read Fname Write Setname;
-    Property network : string Index 64 Read Fnetwork Write Setnetwork;
+    Property name : String Index 56 Read Fname Write Setname;
+    Property network : String Index 64 Read Fnetwork Write Setnetwork;
     Property nodeConfig : TNodeConfig Index 72 Read FnodeConfig Write SetnodeConfig;
     Property nodeRoutingPrefixSize : integer Index 80 Read FnodeRoutingPrefixSize Write SetnodeRoutingPrefixSize;
     Property numNodes : integer Index 88 Read FnumNodes Write SetnumNodes;
-    Property selfLink : string Index 96 Read FselfLink Write SetselfLink;
-    Property servicesIpv4Cidr : string Index 104 Read FservicesIpv4Cidr Write SetservicesIpv4Cidr;
-    Property status : string Index 112 Read Fstatus Write Setstatus;
-    Property statusMessage : string Index 120 Read FstatusMessage Write SetstatusMessage;
-    Property zone : string Index 128 Read Fzone Write Setzone;
+    Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
+    Property servicesIpv4Cidr : String Index 104 Read FservicesIpv4Cidr Write SetservicesIpv4Cidr;
+    Property status : String Index 112 Read Fstatus Write Setstatus;
+    Property statusMessage : String Index 120 Read FstatusMessage Write SetstatusMessage;
+    Property zone : String Index 128 Read Fzone Write Setzone;
   end;
   TClusterClass = Class of TCluster;
   
@@ -156,135 +139,83 @@ type
   
   TListAggregatedClustersResponse = Class(TGoogleBaseObject)
   Private
-    Fclusters : TListAggregatedClustersResponseclusters;
+    Fclusters : TListAggregatedClustersResponseTypeclustersArray;
   Protected
     //Property setters
-    Procedure Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseclusters); virtual;
+    Procedure Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseTypeclustersArray); virtual;
   Public
   Published
-    Property clusters : TListAggregatedClustersResponseclusters Index 0 Read Fclusters Write Setclusters;
+    Property clusters : TListAggregatedClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
   end;
   TListAggregatedClustersResponseClass = Class of TListAggregatedClustersResponse;
   
-  { --------------------------------------------------------------------
-    TListAggregatedClustersResponseclusters
-    --------------------------------------------------------------------}
-  
-  TListAggregatedClustersResponseclusters = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListAggregatedClustersResponseclustersClass = Class of TListAggregatedClustersResponseclusters;
-  
   { --------------------------------------------------------------------
     TListAggregatedOperationsResponse
     --------------------------------------------------------------------}
   
   TListAggregatedOperationsResponse = Class(TGoogleBaseObject)
   Private
-    Foperations : TListAggregatedOperationsResponseoperations;
+    Foperations : TListAggregatedOperationsResponseTypeoperationsArray;
   Protected
     //Property setters
-    Procedure Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseoperations); virtual;
+    Procedure Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseTypeoperationsArray); virtual;
   Public
   Published
-    Property operations : TListAggregatedOperationsResponseoperations Index 0 Read Foperations Write Setoperations;
+    Property operations : TListAggregatedOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
   end;
   TListAggregatedOperationsResponseClass = Class of TListAggregatedOperationsResponse;
   
-  { --------------------------------------------------------------------
-    TListAggregatedOperationsResponseoperations
-    --------------------------------------------------------------------}
-  
-  TListAggregatedOperationsResponseoperations = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListAggregatedOperationsResponseoperationsClass = Class of TListAggregatedOperationsResponseoperations;
-  
   { --------------------------------------------------------------------
     TListClustersResponse
     --------------------------------------------------------------------}
   
   TListClustersResponse = Class(TGoogleBaseObject)
   Private
-    Fclusters : TListClustersResponseclusters;
+    Fclusters : TListClustersResponseTypeclustersArray;
   Protected
     //Property setters
-    Procedure Setclusters(AIndex : Integer; AValue : TListClustersResponseclusters); virtual;
+    Procedure Setclusters(AIndex : Integer; AValue : TListClustersResponseTypeclustersArray); virtual;
   Public
   Published
-    Property clusters : TListClustersResponseclusters Index 0 Read Fclusters Write Setclusters;
+    Property clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
   end;
   TListClustersResponseClass = Class of TListClustersResponse;
   
-  { --------------------------------------------------------------------
-    TListClustersResponseclusters
-    --------------------------------------------------------------------}
-  
-  TListClustersResponseclusters = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListClustersResponseclustersClass = Class of TListClustersResponseclusters;
-  
   { --------------------------------------------------------------------
     TListOperationsResponse
     --------------------------------------------------------------------}
   
   TListOperationsResponse = Class(TGoogleBaseObject)
   Private
-    Foperations : TListOperationsResponseoperations;
+    Foperations : TListOperationsResponseTypeoperationsArray;
   Protected
     //Property setters
-    Procedure Setoperations(AIndex : Integer; AValue : TListOperationsResponseoperations); virtual;
+    Procedure Setoperations(AIndex : Integer; AValue : TListOperationsResponseTypeoperationsArray); virtual;
   Public
   Published
-    Property operations : TListOperationsResponseoperations Index 0 Read Foperations Write Setoperations;
+    Property operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
   end;
   TListOperationsResponseClass = Class of TListOperationsResponse;
   
-  { --------------------------------------------------------------------
-    TListOperationsResponseoperations
-    --------------------------------------------------------------------}
-  
-  TListOperationsResponseoperations = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListOperationsResponseoperationsClass = Class of TListOperationsResponseoperations;
-  
   { --------------------------------------------------------------------
     TMasterAuth
     --------------------------------------------------------------------}
   
   TMasterAuth = Class(TGoogleBaseObject)
   Private
-    FbearerToken : string;
-    Fpassword : string;
-    Fuser : string;
+    FbearerToken : String;
+    Fpassword : String;
+    Fuser : String;
   Protected
     //Property setters
-    Procedure SetbearerToken(AIndex : Integer; AValue : string); virtual;
-    Procedure Setpassword(AIndex : Integer; AValue : string); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : string); virtual;
+    Procedure SetbearerToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpassword(AIndex : Integer; AValue : String); virtual;
+    Procedure Setuser(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property bearerToken : string Index 0 Read FbearerToken Write SetbearerToken;
-    Property password : string Index 8 Read Fpassword Write Setpassword;
-    Property user : string Index 16 Read Fuser Write Setuser;
+    Property bearerToken : String Index 0 Read FbearerToken Write SetbearerToken;
+    Property password : String Index 8 Read Fpassword Write Setpassword;
+    Property user : String Index 16 Read Fuser Write Setuser;
   end;
   TMasterAuthClass = Class of TMasterAuth;
   
@@ -294,69 +225,56 @@ type
   
   TNodeConfig = Class(TGoogleBaseObject)
   Private
-    FmachineType : string;
-    FserviceAccounts : TNodeConfigserviceAccounts;
-    FsourceImage : string;
+    FmachineType : String;
+    FserviceAccounts : TNodeConfigTypeserviceAccountsArray;
+    FsourceImage : String;
   Protected
     //Property setters
-    Procedure SetmachineType(AIndex : Integer; AValue : string); virtual;
-    Procedure SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigserviceAccounts); virtual;
-    Procedure SetsourceImage(AIndex : Integer; AValue : string); virtual;
+    Procedure SetmachineType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray); virtual;
+    Procedure SetsourceImage(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property machineType : string Index 0 Read FmachineType Write SetmachineType;
-    Property serviceAccounts : TNodeConfigserviceAccounts Index 8 Read FserviceAccounts Write SetserviceAccounts;
-    Property sourceImage : string Index 16 Read FsourceImage Write SetsourceImage;
+    Property machineType : String Index 0 Read FmachineType Write SetmachineType;
+    Property serviceAccounts : TNodeConfigTypeserviceAccountsArray Index 8 Read FserviceAccounts Write SetserviceAccounts;
+    Property sourceImage : String Index 16 Read FsourceImage Write SetsourceImage;
   end;
   TNodeConfigClass = Class of TNodeConfig;
   
-  { --------------------------------------------------------------------
-    TNodeConfigserviceAccounts
-    --------------------------------------------------------------------}
-  
-  TNodeConfigserviceAccounts = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TNodeConfigserviceAccountsClass = Class of TNodeConfigserviceAccounts;
-  
   { --------------------------------------------------------------------
     TOperation
     --------------------------------------------------------------------}
   
   TOperation = Class(TGoogleBaseObject)
   Private
-    FerrorMessage : string;
-    Fname : string;
-    FoperationType : string;
-    FselfLink : string;
-    Fstatus : string;
-    Ftarget : string;
-    FtargetLink : string;
-    Fzone : string;
+    FerrorMessage : String;
+    Fname : String;
+    FoperationType : String;
+    FselfLink : String;
+    Fstatus : String;
+    Ftarget : String;
+    FtargetLink : String;
+    Fzone : String;
   Protected
     //Property setters
-    Procedure SeterrorMessage(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : string); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : string); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : string); virtual;
-    Procedure Settarget(AIndex : Integer; AValue : string); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : string); virtual;
-    Procedure Setzone(AIndex : Integer; AValue : string); virtual;
+    Procedure SeterrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetoperationType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Settarget(AIndex : Integer; AValue : String); virtual;
+    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setzone(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property errorMessage : string Index 0 Read FerrorMessage Write SeterrorMessage;
-    Property name : string Index 8 Read Fname Write Setname;
-    Property operationType : string Index 16 Read FoperationType Write SetoperationType;
-    Property selfLink : string Index 24 Read FselfLink Write SetselfLink;
-    Property status : string Index 32 Read Fstatus Write Setstatus;
-    Property target : string Index 40 Read Ftarget Write Settarget;
-    Property targetLink : string Index 48 Read FtargetLink Write SettargetLink;
-    Property zone : string Index 56 Read Fzone Write Setzone;
+    Property errorMessage : String Index 0 Read FerrorMessage Write SeterrorMessage;
+    Property name : String Index 8 Read Fname Write Setname;
+    Property operationType : String Index 16 Read FoperationType Write SetoperationType;
+    Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+    Property status : String Index 32 Read Fstatus Write Setstatus;
+    Property target : String Index 40 Read Ftarget Write Settarget;
+    Property targetLink : String Index 48 Read FtargetLink Write SettargetLink;
+    Property zone : String Index 56 Read Fzone Write Setzone;
   end;
   TOperationClass = Class of TOperation;
   
@@ -366,48 +284,35 @@ type
   
   TServiceAccount = Class(TGoogleBaseObject)
   Private
-    Femail : string;
-    Fscopes : TServiceAccountscopes;
+    Femail : String;
+    Fscopes : TStringArray;
   Protected
     //Property setters
-    Procedure Setemail(AIndex : Integer; AValue : string); virtual;
-    Procedure Setscopes(AIndex : Integer; AValue : TServiceAccountscopes); virtual;
+    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property email : string Index 0 Read Femail Write Setemail;
-    Property scopes : TServiceAccountscopes Index 8 Read Fscopes Write Setscopes;
+    Property email : String Index 0 Read Femail Write Setemail;
+    Property scopes : TStringArray Index 8 Read Fscopes Write Setscopes;
   end;
   TServiceAccountClass = Class of TServiceAccount;
   
-  { --------------------------------------------------------------------
-    TServiceAccountscopes
-    --------------------------------------------------------------------}
-  
-  TServiceAccountscopes = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TServiceAccountscopesClass = Class of TServiceAccountscopes;
-  
   { --------------------------------------------------------------------
     TToken
     --------------------------------------------------------------------}
   
   TToken = Class(TGoogleBaseObject)
   Private
-    FaccessToken : string;
-    FexpiryTimeSeconds : string;
+    FaccessToken : String;
+    FexpiryTimeSeconds : String;
   Protected
     //Property setters
-    Procedure SetaccessToken(AIndex : Integer; AValue : string); virtual;
-    Procedure SetexpiryTimeSeconds(AIndex : Integer; AValue : string); virtual;
+    Procedure SetaccessToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetexpiryTimeSeconds(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property accessToken : string Index 0 Read FaccessToken Write SetaccessToken;
-    Property expiryTimeSeconds : string Index 8 Read FexpiryTimeSeconds Write SetexpiryTimeSeconds;
+    Property accessToken : String Index 0 Read FaccessToken Write SetaccessToken;
+    Property expiryTimeSeconds : String Index 8 Read FexpiryTimeSeconds Write SetexpiryTimeSeconds;
   end;
   TTokenClass = Class of TToken;
   
@@ -467,7 +372,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TCluster.SetclusterApiVersion(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetclusterApiVersion(AIndex : Integer; AValue : String); 
 
 begin
   If (FclusterApiVersion=AValue) then exit;
@@ -477,7 +382,7 @@ end;
 
 
 
-Procedure TCluster.SetcontainerIpv4Cidr(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetcontainerIpv4Cidr(AIndex : Integer; AValue : String); 
 
 begin
   If (FcontainerIpv4Cidr=AValue) then exit;
@@ -487,7 +392,7 @@ end;
 
 
 
-Procedure TCluster.SetcreationTimestamp(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetcreationTimestamp(AIndex : Integer; AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -497,7 +402,7 @@ end;
 
 
 
-Procedure TCluster.Setdescription(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setdescription(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -517,7 +422,7 @@ end;
 
 
 
-Procedure TCluster.Setendpoint(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setendpoint(AIndex : Integer; AValue : String); 
 
 begin
   If (Fendpoint=AValue) then exit;
@@ -537,7 +442,7 @@ end;
 
 
 
-Procedure TCluster.Setname(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -547,7 +452,7 @@ end;
 
 
 
-Procedure TCluster.Setnetwork(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setnetwork(AIndex : Integer; AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -587,7 +492,7 @@ end;
 
 
 
-Procedure TCluster.SetselfLink(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetselfLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -597,7 +502,7 @@ end;
 
 
 
-Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; AValue : String); 
 
 begin
   If (FservicesIpv4Cidr=AValue) then exit;
@@ -607,7 +512,7 @@ end;
 
 
 
-Procedure TCluster.Setstatus(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setstatus(AIndex : Integer; AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -617,7 +522,7 @@ end;
 
 
 
-Procedure TCluster.SetstatusMessage(AIndex : Integer; AValue : string); 
+Procedure TCluster.SetstatusMessage(AIndex : Integer; AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -627,7 +532,7 @@ end;
 
 
 
-Procedure TCluster.Setzone(AIndex : Integer; AValue : string); 
+Procedure TCluster.Setzone(AIndex : Integer; AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -661,7 +566,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListAggregatedClustersResponse.Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseclusters); 
+Procedure TListAggregatedClustersResponse.Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseTypeclustersArray); 
 
 begin
   If (Fclusters=AValue) then exit;
@@ -673,19 +578,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListAggregatedClustersResponseclusters
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListAggregatedOperationsResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListAggregatedOperationsResponse.Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseoperations); 
+Procedure TListAggregatedOperationsResponse.Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseTypeoperationsArray); 
 
 begin
   If (Foperations=AValue) then exit;
@@ -697,19 +595,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListAggregatedOperationsResponseoperations
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListClustersResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListClustersResponse.Setclusters(AIndex : Integer; AValue : TListClustersResponseclusters); 
+Procedure TListClustersResponse.Setclusters(AIndex : Integer; AValue : TListClustersResponseTypeclustersArray); 
 
 begin
   If (Fclusters=AValue) then exit;
@@ -721,19 +612,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListClustersResponseclusters
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListOperationsResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListOperationsResponse.Setoperations(AIndex : Integer; AValue : TListOperationsResponseoperations); 
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; AValue : TListOperationsResponseTypeoperationsArray); 
 
 begin
   If (Foperations=AValue) then exit;
@@ -745,19 +629,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListOperationsResponseoperations
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TMasterAuth
   --------------------------------------------------------------------}
 
 
-Procedure TMasterAuth.SetbearerToken(AIndex : Integer; AValue : string); 
+Procedure TMasterAuth.SetbearerToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FbearerToken=AValue) then exit;
@@ -767,7 +644,7 @@ end;
 
 
 
-Procedure TMasterAuth.Setpassword(AIndex : Integer; AValue : string); 
+Procedure TMasterAuth.Setpassword(AIndex : Integer; AValue : String); 
 
 begin
   If (Fpassword=AValue) then exit;
@@ -777,7 +654,7 @@ end;
 
 
 
-Procedure TMasterAuth.Setuser(AIndex : Integer; AValue : string); 
+Procedure TMasterAuth.Setuser(AIndex : Integer; AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -794,7 +671,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNodeConfig.SetmachineType(AIndex : Integer; AValue : string); 
+Procedure TNodeConfig.SetmachineType(AIndex : Integer; AValue : String); 
 
 begin
   If (FmachineType=AValue) then exit;
@@ -804,7 +681,7 @@ end;
 
 
 
-Procedure TNodeConfig.SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigserviceAccounts); 
+Procedure TNodeConfig.SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray); 
 
 begin
   If (FserviceAccounts=AValue) then exit;
@@ -814,7 +691,7 @@ end;
 
 
 
-Procedure TNodeConfig.SetsourceImage(AIndex : Integer; AValue : string); 
+Procedure TNodeConfig.SetsourceImage(AIndex : Integer; AValue : String); 
 
 begin
   If (FsourceImage=AValue) then exit;
@@ -826,19 +703,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TNodeConfigserviceAccounts
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TOperation
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SeterrorMessage(AIndex : Integer; AValue : string); 
+Procedure TOperation.SeterrorMessage(AIndex : Integer; AValue : String); 
 
 begin
   If (FerrorMessage=AValue) then exit;
@@ -848,7 +718,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : string); 
+Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -858,7 +728,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : string); 
+Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -868,7 +738,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : string); 
+Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -878,7 +748,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : string); 
+Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -888,7 +758,7 @@ end;
 
 
 
-Procedure TOperation.Settarget(AIndex : Integer; AValue : string); 
+Procedure TOperation.Settarget(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftarget=AValue) then exit;
@@ -898,7 +768,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : string); 
+Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -908,7 +778,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : string); 
+Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -925,7 +795,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceAccount.Setemail(AIndex : Integer; AValue : string); 
+Procedure TServiceAccount.Setemail(AIndex : Integer; AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -935,7 +805,7 @@ end;
 
 
 
-Procedure TServiceAccount.Setscopes(AIndex : Integer; AValue : TServiceAccountscopes); 
+Procedure TServiceAccount.Setscopes(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (Fscopes=AValue) then exit;
@@ -947,19 +817,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TServiceAccountscopes
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TToken
   --------------------------------------------------------------------}
 
 
-Procedure TToken.SetaccessToken(AIndex : Integer; AValue : string); 
+Procedure TToken.SetaccessToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FaccessToken=AValue) then exit;
@@ -969,7 +832,7 @@ end;
 
 
 
-Procedure TToken.SetexpiryTimeSeconds(AIndex : Integer; AValue : string); 
+Procedure TToken.SetexpiryTimeSeconds(AIndex : Integer; AValue : String); 
 
 begin
   If (FexpiryTimeSeconds=AValue) then exit;
@@ -1127,19 +990,13 @@ begin
   TCluster.RegisterObject;
   TCreateClusterRequest.RegisterObject;
   TListAggregatedClustersResponse.RegisterObject;
-  TListAggregatedClustersResponseclusters.RegisterObject;
   TListAggregatedOperationsResponse.RegisterObject;
-  TListAggregatedOperationsResponseoperations.RegisterObject;
   TListClustersResponse.RegisterObject;
-  TListClustersResponseclusters.RegisterObject;
   TListOperationsResponse.RegisterObject;
-  TListOperationsResponseoperations.RegisterObject;
   TMasterAuth.RegisterObject;
   TNodeConfig.RegisterObject;
-  TNodeConfigserviceAccounts.RegisterObject;
   TOperation.RegisterObject;
   TServiceAccount.RegisterObject;
-  TServiceAccountscopes.RegisterObject;
   TToken.RegisterObject;
 end;
 

packages/googleapi/src/googledns.pp

@@ -1,31 +1,19 @@
 unit googledns;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:53
 {$MODE objfpc}
 {$H+}
 
@@ -34,37 +22,30 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TChange = class;
-  TChangeArray = Array of TChange;
-  TChangeadditions = class;
-  TChangeadditionsArray = Array of TChangeadditions;
-  TChangedeletions = class;
-  TChangedeletionsArray = Array of TChangedeletions;
   TChangesListResponse = class;
-  TChangesListResponseArray = Array of TChangesListResponse;
-  TChangesListResponsechanges = class;
-  TChangesListResponsechangesArray = Array of TChangesListResponsechanges;
   TManagedZone = class;
-  TManagedZoneArray = Array of TManagedZone;
-  TManagedZonenameServers = class;
-  TManagedZonenameServersArray = Array of TManagedZonenameServers;
   TManagedZonesListResponse = class;
-  TManagedZonesListResponseArray = Array of TManagedZonesListResponse;
-  TManagedZonesListResponsemanagedZones = class;
-  TManagedZonesListResponsemanagedZonesArray = Array of TManagedZonesListResponsemanagedZones;
   TProject = class;
-  TProjectArray = Array of TProject;
   TQuota = class;
-  TQuotaArray = Array of TQuota;
   TResourceRecordSet = class;
-  TResourceRecordSetArray = Array of TResourceRecordSet;
-  TResourceRecordSetrrdatas = class;
-  TResourceRecordSetrrdatasArray = Array of TResourceRecordSetrrdatas;
   TResourceRecordSetsListResponse = class;
+  TChangeArray = Array of TChange;
+  TChangesListResponseArray = Array of TChangesListResponse;
+  TManagedZoneArray = Array of TManagedZone;
+  TManagedZonesListResponseArray = Array of TManagedZonesListResponse;
+  TProjectArray = Array of TProject;
+  TQuotaArray = Array of TQuota;
+  TResourceRecordSetArray = Array of TResourceRecordSet;
   TResourceRecordSetsListResponseArray = Array of TResourceRecordSetsListResponse;
-  TResourceRecordSetsListResponserrsets = class;
-  TResourceRecordSetsListResponserrsetsArray = Array of TResourceRecordSetsListResponserrsets;
+  //Anonymous types, using auto-generated names
+  TChangeTypeadditionsArray = Array of TResourceRecordSet;
+  TChangeTypedeletionsArray = Array of TResourceRecordSet;
+  TChangesListResponseTypechangesArray = Array of TChange;
+  TManagedZonesListResponseTypemanagedZonesArray = Array of TManagedZone;
+  TResourceRecordSetsListResponseTyperrsetsArray = Array of TResourceRecordSet;
   
   { --------------------------------------------------------------------
     TChange
@@ -72,198 +53,133 @@ type
   
   TChange = Class(TGoogleBaseObject)
   Private
-    Fadditions : TChangeadditions;
-    Fdeletions : TChangedeletions;
-    Fid : string;
-    Fkind : string;
-    FstartTime : string;
-    Fstatus : string;
+    Fadditions : TChangeTypeadditionsArray;
+    Fdeletions : TChangeTypedeletionsArray;
+    Fid : String;
+    Fkind : String;
+    FstartTime : String;
+    Fstatus : String;
   Protected
     //Property setters
-    Procedure Setadditions(AIndex : Integer; AValue : TChangeadditions); virtual;
-    Procedure Setdeletions(AIndex : Integer; AValue : TChangedeletions); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : string); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : string); virtual;
+    Procedure Setadditions(AIndex : Integer; AValue : TChangeTypeadditionsArray); virtual;
+    Procedure Setdeletions(AIndex : Integer; AValue : TChangeTypedeletionsArray); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property additions : TChangeadditions Index 0 Read Fadditions Write Setadditions;
-    Property deletions : TChangedeletions Index 8 Read Fdeletions Write Setdeletions;
-    Property id : string Index 16 Read Fid Write Setid;
-    Property kind : string Index 24 Read Fkind Write Setkind;
-    Property startTime : string Index 32 Read FstartTime Write SetstartTime;
-    Property status : string Index 40 Read Fstatus Write Setstatus;
+    Property additions : TChangeTypeadditionsArray Index 0 Read Fadditions Write Setadditions;
+    Property deletions : TChangeTypedeletionsArray Index 8 Read Fdeletions Write Setdeletions;
+    Property id : String Index 16 Read Fid Write Setid;
+    Property kind : String Index 24 Read Fkind Write Setkind;
+    Property startTime : String Index 32 Read FstartTime Write SetstartTime;
+    Property status : String Index 40 Read Fstatus Write Setstatus;
   end;
   TChangeClass = Class of TChange;
   
-  { --------------------------------------------------------------------
-    TChangeadditions
-    --------------------------------------------------------------------}
-  
-  TChangeadditions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TChangeadditionsClass = Class of TChangeadditions;
-  
-  { --------------------------------------------------------------------
-    TChangedeletions
-    --------------------------------------------------------------------}
-  
-  TChangedeletions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TChangedeletionsClass = Class of TChangedeletions;
-  
   { --------------------------------------------------------------------
     TChangesListResponse
     --------------------------------------------------------------------}
   
   TChangesListResponse = Class(TGoogleBaseObject)
   Private
-    Fchanges : TChangesListResponsechanges;
-    Fkind : string;
-    FnextPageToken : string;
+    Fchanges : TChangesListResponseTypechangesArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setchanges(AIndex : Integer; AValue : TChangesListResponsechanges); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property changes : TChangesListResponsechanges Index 0 Read Fchanges Write Setchanges;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 16 Read FnextPageToken Write SetnextPageToken;
+    Property changes : TChangesListResponseTypechangesArray Index 0 Read Fchanges Write Setchanges;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TChangesListResponseClass = Class of TChangesListResponse;
   
-  { --------------------------------------------------------------------
-    TChangesListResponsechanges
-    --------------------------------------------------------------------}
-  
-  TChangesListResponsechanges = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TChangesListResponsechangesClass = Class of TChangesListResponsechanges;
-  
   { --------------------------------------------------------------------
     TManagedZone
     --------------------------------------------------------------------}
   
   TManagedZone = Class(TGoogleBaseObject)
   Private
-    FcreationTime : string;
-    Fdescription : string;
-    FdnsName : string;
-    Fid : string;
-    Fkind : string;
-    Fname : string;
-    FnameServerSet : string;
-    FnameServers : TManagedZonenameServers;
+    FcreationTime : String;
+    Fdescription : String;
+    FdnsName : String;
+    Fid : String;
+    Fkind : String;
+    Fname : String;
+    FnameServerSet : String;
+    FnameServers : TStringArray;
   Protected
     //Property setters
-    Procedure SetcreationTime(AIndex : Integer; AValue : string); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : string); virtual;
-    Procedure SetdnsName(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnameServerSet(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnameServers(AIndex : Integer; AValue : TManagedZonenameServers); virtual;
+    Procedure SetcreationTime(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdnsName(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnameServerSet(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnameServers(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property creationTime : string Index 0 Read FcreationTime Write SetcreationTime;
-    Property description : string Index 8 Read Fdescription Write Setdescription;
-    Property dnsName : string Index 16 Read FdnsName Write SetdnsName;
-    Property id : string Index 24 Read Fid Write Setid;
-    Property kind : string Index 32 Read Fkind Write Setkind;
-    Property name : string Index 40 Read Fname Write Setname;
-    Property nameServerSet : string Index 48 Read FnameServerSet Write SetnameServerSet;
-    Property nameServers : TManagedZonenameServers Index 56 Read FnameServers Write SetnameServers;
+    Property creationTime : String Index 0 Read FcreationTime Write SetcreationTime;
+    Property description : String Index 8 Read Fdescription Write Setdescription;
+    Property dnsName : String Index 16 Read FdnsName Write SetdnsName;
+    Property id : String Index 24 Read Fid Write Setid;
+    Property kind : String Index 32 Read Fkind Write Setkind;
+    Property name : String Index 40 Read Fname Write Setname;
+    Property nameServerSet : String Index 48 Read FnameServerSet Write SetnameServerSet;
+    Property nameServers : TStringArray Index 56 Read FnameServers Write SetnameServers;
   end;
   TManagedZoneClass = Class of TManagedZone;
   
-  { --------------------------------------------------------------------
-    TManagedZonenameServers
-    --------------------------------------------------------------------}
-  
-  TManagedZonenameServers = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TManagedZonenameServersClass = Class of TManagedZonenameServers;
-  
   { --------------------------------------------------------------------
     TManagedZonesListResponse
     --------------------------------------------------------------------}
   
   TManagedZonesListResponse = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    FmanagedZones : TManagedZonesListResponsemanagedZones;
-    FnextPageToken : string;
+    Fkind : String;
+    FmanagedZones : TManagedZonesListResponseTypemanagedZonesArray;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponsemanagedZones); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property managedZones : TManagedZonesListResponsemanagedZones Index 8 Read FmanagedZones Write SetmanagedZones;
-    Property nextPageToken : string Index 16 Read FnextPageToken Write SetnextPageToken;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property managedZones : TManagedZonesListResponseTypemanagedZonesArray Index 8 Read FmanagedZones Write SetmanagedZones;
+    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TManagedZonesListResponseClass = Class of TManagedZonesListResponse;
   
-  { --------------------------------------------------------------------
-    TManagedZonesListResponsemanagedZones
-    --------------------------------------------------------------------}
-  
-  TManagedZonesListResponsemanagedZones = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TManagedZonesListResponsemanagedZonesClass = Class of TManagedZonesListResponsemanagedZones;
-  
   { --------------------------------------------------------------------
     TProject
     --------------------------------------------------------------------}
   
   TProject = Class(TGoogleBaseObject)
   Private
-    Fid : string;
-    Fkind : string;
-    Fnumber : string;
+    Fid : String;
+    Fkind : String;
+    Fnumber : String;
     Fquota : TQuota;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setnumber(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnumber(AIndex : Integer; AValue : String); virtual;
     Procedure Setquota(AIndex : Integer; AValue : TQuota); virtual;
   Public
   Published
-    Property id : string Index 0 Read Fid Write Setid;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property number : string Index 16 Read Fnumber Write Setnumber;
+    Property id : String Index 0 Read Fid Write Setid;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property number : String Index 16 Read Fnumber Write Setnumber;
     Property quota : TQuota Index 24 Read Fquota Write Setquota;
   end;
   TProjectClass = Class of TProject;
@@ -274,7 +190,7 @@ type
   
   TQuota = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
+    Fkind : String;
     FmanagedZones : integer;
     FresourceRecordsPerRrset : integer;
     FrrsetAdditionsPerChange : integer;
@@ -283,7 +199,7 @@ type
     FtotalRrdataSizePerChange : integer;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmanagedZones(AIndex : Integer; AValue : integer); virtual;
     Procedure SetresourceRecordsPerRrset(AIndex : Integer; AValue : integer); virtual;
     Procedure SetrrsetAdditionsPerChange(AIndex : Integer; AValue : integer); virtual;
@@ -292,7 +208,7 @@ type
     Procedure SettotalRrdataSizePerChange(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
+    Property kind : String Index 0 Read Fkind Write Setkind;
     Property managedZones : integer Index 8 Read FmanagedZones Write SetmanagedZones;
     Property resourceRecordsPerRrset : integer Index 16 Read FresourceRecordsPerRrset Write SetresourceRecordsPerRrset;
     Property rrsetAdditionsPerChange : integer Index 24 Read FrrsetAdditionsPerChange Write SetrrsetAdditionsPerChange;
@@ -308,77 +224,51 @@ type
   
   TResourceRecordSet = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    Fname : string;
-    Frrdatas : TResourceRecordSetrrdatas;
+    Fkind : String;
+    Fname : String;
+    Frrdatas : TStringArray;
     Fttl : integer;
-    F_type : string;
+    F_type : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setrrdatas(AIndex : Integer; AValue : TResourceRecordSetrrdatas); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setrrdatas(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setttl(AIndex : Integer; AValue : integer); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property name : string Index 8 Read Fname Write Setname;
-    Property rrdatas : TResourceRecordSetrrdatas Index 16 Read Frrdatas Write Setrrdatas;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property name : String Index 8 Read Fname Write Setname;
+    Property rrdatas : TStringArray Index 16 Read Frrdatas Write Setrrdatas;
     Property ttl : integer Index 24 Read Fttl Write Setttl;
-    Property _type : string Index 32 Read F_type Write Set_type;
+    Property _type : String Index 32 Read F_type Write Set_type;
   end;
   TResourceRecordSetClass = Class of TResourceRecordSet;
   
-  { --------------------------------------------------------------------
-    TResourceRecordSetrrdatas
-    --------------------------------------------------------------------}
-  
-  TResourceRecordSetrrdatas = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TResourceRecordSetrrdatasClass = Class of TResourceRecordSetrrdatas;
-  
   { --------------------------------------------------------------------
     TResourceRecordSetsListResponse
     --------------------------------------------------------------------}
   
   TResourceRecordSetsListResponse = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    FnextPageToken : string;
-    Frrsets : TResourceRecordSetsListResponserrsets;
+    Fkind : String;
+    FnextPageToken : String;
+    Frrsets : TResourceRecordSetsListResponseTyperrsetsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
-    Procedure Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponserrsets); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 8 Read FnextPageToken Write SetnextPageToken;
-    Property rrsets : TResourceRecordSetsListResponserrsets Index 16 Read Frrsets Write Setrrsets;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+    Property rrsets : TResourceRecordSetsListResponseTyperrsetsArray Index 16 Read Frrsets Write Setrrsets;
   end;
   TResourceRecordSetsListResponseClass = Class of TResourceRecordSetsListResponse;
   
-  { --------------------------------------------------------------------
-    TResourceRecordSetsListResponserrsets
-    --------------------------------------------------------------------}
-  
-  TResourceRecordSetsListResponserrsets = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TResourceRecordSetsListResponserrsetsClass = Class of TResourceRecordSetsListResponserrsets;
-  
   { --------------------------------------------------------------------
     TChangesResource
     --------------------------------------------------------------------}
@@ -388,9 +278,9 @@ type
   
   TChangesListOptions = Record
     maxResults : integer;
-    pageToken : string;
-    sortBy : string;
-    sortOrder : string;
+    pageToken : String;
+    sortBy : String;
+    sortOrder : String;
   end;
   
   TChangesResource = Class(TGoogleResource)
@@ -413,7 +303,7 @@ type
   
   TManagedZonesListOptions = Record
     maxResults : integer;
-    pageToken : string;
+    pageToken : String;
   end;
   
   TManagedZonesResource = Class(TGoogleResource)
@@ -449,9 +339,9 @@ type
   
   TResourceRecordSetsListOptions = Record
     maxResults : integer;
-    _name : string;
-    pageToken : string;
-    _type : string;
+    _name : String;
+    pageToken : String;
+    _type : String;
   end;
   
   TResourceRecordSetsResource = Class(TGoogleResource)
@@ -523,7 +413,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TChange.Setadditions(AIndex : Integer; AValue : TChangeadditions); 
+Procedure TChange.Setadditions(AIndex : Integer; AValue : TChangeTypeadditionsArray); 
 
 begin
   If (Fadditions=AValue) then exit;
@@ -533,7 +423,7 @@ end;
 
 
 
-Procedure TChange.Setdeletions(AIndex : Integer; AValue : TChangedeletions); 
+Procedure TChange.Setdeletions(AIndex : Integer; AValue : TChangeTypedeletionsArray); 
 
 begin
   If (Fdeletions=AValue) then exit;
@@ -543,7 +433,7 @@ end;
 
 
 
-Procedure TChange.Setid(AIndex : Integer; AValue : string); 
+Procedure TChange.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -553,7 +443,7 @@ end;
 
 
 
-Procedure TChange.Setkind(AIndex : Integer; AValue : string); 
+Procedure TChange.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -563,7 +453,7 @@ end;
 
 
 
-Procedure TChange.SetstartTime(AIndex : Integer; AValue : string); 
+Procedure TChange.SetstartTime(AIndex : Integer; AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -573,7 +463,7 @@ end;
 
 
 
-Procedure TChange.Setstatus(AIndex : Integer; AValue : string); 
+Procedure TChange.Setstatus(AIndex : Integer; AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -585,26 +475,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TChangeadditions
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TChangedeletions
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TChangesListResponse
   --------------------------------------------------------------------}
 
 
-Procedure TChangesListResponse.Setchanges(AIndex : Integer; AValue : TChangesListResponsechanges); 
+Procedure TChangesListResponse.Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray); 
 
 begin
   If (Fchanges=AValue) then exit;
@@ -614,7 +490,7 @@ end;
 
 
 
-Procedure TChangesListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TChangesListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -624,7 +500,7 @@ end;
 
 
 
-Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -636,19 +512,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TChangesListResponsechanges
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TManagedZone
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZone.SetcreationTime(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.SetcreationTime(AIndex : Integer; AValue : String); 
 
 begin
   If (FcreationTime=AValue) then exit;
@@ -658,7 +527,7 @@ end;
 
 
 
-Procedure TManagedZone.Setdescription(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.Setdescription(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -668,7 +537,7 @@ end;
 
 
 
-Procedure TManagedZone.SetdnsName(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.SetdnsName(AIndex : Integer; AValue : String); 
 
 begin
   If (FdnsName=AValue) then exit;
@@ -678,7 +547,7 @@ end;
 
 
 
-Procedure TManagedZone.Setid(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -688,7 +557,7 @@ end;
 
 
 
-Procedure TManagedZone.Setkind(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -698,7 +567,7 @@ end;
 
 
 
-Procedure TManagedZone.Setname(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -708,7 +577,7 @@ end;
 
 
 
-Procedure TManagedZone.SetnameServerSet(AIndex : Integer; AValue : string); 
+Procedure TManagedZone.SetnameServerSet(AIndex : Integer; AValue : String); 
 
 begin
   If (FnameServerSet=AValue) then exit;
@@ -718,7 +587,7 @@ end;
 
 
 
-Procedure TManagedZone.SetnameServers(AIndex : Integer; AValue : TManagedZonenameServers); 
+Procedure TManagedZone.SetnameServers(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FnameServers=AValue) then exit;
@@ -730,19 +599,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TManagedZonenameServers
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TManagedZonesListResponse
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -752,7 +614,7 @@ end;
 
 
 
-Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponsemanagedZones); 
+Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray); 
 
 begin
   If (FmanagedZones=AValue) then exit;
@@ -762,7 +624,7 @@ end;
 
 
 
-Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -774,19 +636,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TManagedZonesListResponsemanagedZones
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TProject
   --------------------------------------------------------------------}
 
 
-Procedure TProject.Setid(AIndex : Integer; AValue : string); 
+Procedure TProject.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -796,7 +651,7 @@ end;
 
 
 
-Procedure TProject.Setkind(AIndex : Integer; AValue : string); 
+Procedure TProject.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -806,7 +661,7 @@ end;
 
 
 
-Procedure TProject.Setnumber(AIndex : Integer; AValue : string); 
+Procedure TProject.Setnumber(AIndex : Integer; AValue : String); 
 
 begin
   If (Fnumber=AValue) then exit;
@@ -833,7 +688,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuota.Setkind(AIndex : Integer; AValue : string); 
+Procedure TQuota.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -910,7 +765,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSet.Setkind(AIndex : Integer; AValue : string); 
+Procedure TResourceRecordSet.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -920,7 +775,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setname(AIndex : Integer; AValue : string); 
+Procedure TResourceRecordSet.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -930,7 +785,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; AValue : TResourceRecordSetrrdatas); 
+Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (Frrdatas=AValue) then exit;
@@ -950,7 +805,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Set_type(AIndex : Integer; AValue : string); 
+Procedure TResourceRecordSet.Set_type(AIndex : Integer; AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -973,19 +828,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TResourceRecordSetrrdatas
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TResourceRecordSetsListResponse
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -995,7 +843,7 @@ end;
 
 
 
-Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1005,7 +853,7 @@ end;
 
 
 
-Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponserrsets); 
+Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray); 
 
 begin
   If (Frrsets=AValue) then exit;
@@ -1017,13 +865,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TResourceRecordSetsListResponserrsets
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TChangesResource
   --------------------------------------------------------------------}
@@ -1407,20 +1248,13 @@ Class Procedure TDnsAPI.RegisterAPIResources;
 
 begin
   TChange.RegisterObject;
-  TChangeadditions.RegisterObject;
-  TChangedeletions.RegisterObject;
   TChangesListResponse.RegisterObject;
-  TChangesListResponsechanges.RegisterObject;
   TManagedZone.RegisterObject;
-  TManagedZonenameServers.RegisterObject;
   TManagedZonesListResponse.RegisterObject;
-  TManagedZonesListResponsemanagedZones.RegisterObject;
   TProject.RegisterObject;
   TQuota.RegisterObject;
   TResourceRecordSet.RegisterObject;
-  TResourceRecordSetrrdatas.RegisterObject;
   TResourceRecordSetsListResponse.RegisterObject;
-  TResourceRecordSetsListResponserrsets.RegisterObject;
 end;
 
 

packages/googleapi/src/googlefreebase.pp

@@ -1,31 +1,19 @@
 unit googlefreebase;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:53
 {$MODE objfpc}
 {$H+}
 
@@ -34,145 +22,131 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TReconcileCandidate = class;
-  TReconcileCandidateArray = Array of TReconcileCandidate;
-  TReconcileCandidatenotable = class;
-  TReconcileCandidatenotableArray = Array of TReconcileCandidatenotable;
   TReconcileGet = class;
+  TReconcileCandidateArray = Array of TReconcileCandidate;
   TReconcileGetArray = Array of TReconcileGet;
-  TReconcileGetcandidate = class;
-  TReconcileGetcandidateArray = Array of TReconcileGetcandidate;
-  TReconcileGetcosts = class;
-  TReconcileGetcostsArray = Array of TReconcileGetcosts;
-  TReconcileGetwarning = class;
-  TReconcileGetwarningArray = Array of TReconcileGetwarning;
-  
-  { --------------------------------------------------------------------
-    TReconcileCandidate
-    --------------------------------------------------------------------}
-  
-  TReconcileCandidate = Class(TGoogleBaseObject)
-  Private
-    Fconfidence : integer;
-    Flang : string;
-    Fmid : string;
-    Fname : string;
-    Fnotable : TReconcileCandidatenotable;
-  Protected
-    //Property setters
-    Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setlang(AIndex : Integer; AValue : string); virtual;
-    Procedure Setmid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setnotable(AIndex : Integer; AValue : TReconcileCandidatenotable); virtual;
-  Public
-  Published
-    Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
-    Property lang : string Index 8 Read Flang Write Setlang;
-    Property mid : string Index 16 Read Fmid Write Setmid;
-    Property name : string Index 24 Read Fname Write Setname;
-    Property notable : TReconcileCandidatenotable Index 32 Read Fnotable Write Setnotable;
-  end;
-  TReconcileCandidateClass = Class of TReconcileCandidate;
+  //Anonymous types, using auto-generated names
+  TReconcileCandidateTypenotable = class;
+  TReconcileGetTypecosts = class;
+  TReconcileGetTypewarningItem = class;
+  TReconcileGetTypecandidateArray = Array of TReconcileCandidate;
+  TReconcileGetTypewarningArray = Array of TReconcileGetTypewarningItem;
   
   { --------------------------------------------------------------------
-    TReconcileCandidatenotable
+    TReconcileCandidateTypenotable
     --------------------------------------------------------------------}
   
-  TReconcileCandidatenotable = Class(TGoogleBaseObject)
+  TReconcileCandidateTypenotable = Class(TGoogleBaseObject)
   Private
-    Fid : string;
-    Fname : string;
+    Fid : String;
+    Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property id : string Index 0 Read Fid Write Setid;
-    Property name : string Index 8 Read Fname Write Setname;
+    Property id : String Index 0 Read Fid Write Setid;
+    Property name : String Index 8 Read Fname Write Setname;
   end;
-  TReconcileCandidatenotableClass = Class of TReconcileCandidatenotable;
+  TReconcileCandidateTypenotableClass = Class of TReconcileCandidateTypenotable;
   
   { --------------------------------------------------------------------
-    TReconcileGet
+    TReconcileCandidate
     --------------------------------------------------------------------}
   
-  TReconcileGet = Class(TGoogleBaseObject)
+  TReconcileCandidate = Class(TGoogleBaseObject)
   Private
-    Fcandidate : TReconcileGetcandidate;
-    Fcosts : TReconcileGetcosts;
-    Fmatch : TReconcileCandidate;
-    Fwarning : TReconcileGetwarning;
+    Fconfidence : integer;
+    Flang : String;
+    Fmid : String;
+    Fname : String;
+    Fnotable : TReconcileCandidateTypenotable;
   Protected
     //Property setters
-    Procedure Setcandidate(AIndex : Integer; AValue : TReconcileGetcandidate); virtual;
-    Procedure Setcosts(AIndex : Integer; AValue : TReconcileGetcosts); virtual;
-    Procedure Setmatch(AIndex : Integer; AValue : TReconcileCandidate); virtual;
-    Procedure Setwarning(AIndex : Integer; AValue : TReconcileGetwarning); virtual;
+    Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
+    Procedure Setlang(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnotable(AIndex : Integer; AValue : TReconcileCandidateTypenotable); virtual;
   Public
   Published
-    Property candidate : TReconcileGetcandidate Index 0 Read Fcandidate Write Setcandidate;
-    Property costs : TReconcileGetcosts Index 8 Read Fcosts Write Setcosts;
-    Property match : TReconcileCandidate Index 16 Read Fmatch Write Setmatch;
-    Property warning : TReconcileGetwarning Index 24 Read Fwarning Write Setwarning;
+    Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
+    Property lang : String Index 8 Read Flang Write Setlang;
+    Property mid : String Index 16 Read Fmid Write Setmid;
+    Property name : String Index 24 Read Fname Write Setname;
+    Property notable : TReconcileCandidateTypenotable Index 32 Read Fnotable Write Setnotable;
   end;
-  TReconcileGetClass = Class of TReconcileGet;
+  TReconcileCandidateClass = Class of TReconcileCandidate;
   
   { --------------------------------------------------------------------
-    TReconcileGetcandidate
+    TReconcileGetTypecosts
     --------------------------------------------------------------------}
   
-  TReconcileGetcandidate = Class(TGoogleBaseObject)
+  TReconcileGetTypecosts = Class(TGoogleBaseObject)
   Private
+    Fhits : integer;
+    Fms : integer;
   Protected
     //Property setters
+    Procedure Sethits(AIndex : Integer; AValue : integer); virtual;
+    Procedure Setms(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
+    Property hits : integer Index 0 Read Fhits Write Sethits;
+    Property ms : integer Index 8 Read Fms Write Setms;
   end;
-  TReconcileGetcandidateClass = Class of TReconcileGetcandidate;
+  TReconcileGetTypecostsClass = Class of TReconcileGetTypecosts;
   
   { --------------------------------------------------------------------
-    TReconcileGetcosts
+    TReconcileGetTypewarningItem
     --------------------------------------------------------------------}
   
-  TReconcileGetcosts = Class(TGoogleBaseObject)
+  TReconcileGetTypewarningItem = Class(TGoogleBaseObject)
   Private
-    Fhits : integer;
-    Fms : integer;
+    Flocation : String;
+    Fmessage : String;
+    Freason : String;
   Protected
     //Property setters
-    Procedure Sethits(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setms(AIndex : Integer; AValue : integer); virtual;
+    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property hits : integer Index 0 Read Fhits Write Sethits;
-    Property ms : integer Index 8 Read Fms Write Setms;
+    Property location : String Index 0 Read Flocation Write Setlocation;
+    Property message : String Index 8 Read Fmessage Write Setmessage;
+    Property reason : String Index 16 Read Freason Write Setreason;
   end;
-  TReconcileGetcostsClass = Class of TReconcileGetcosts;
+  TReconcileGetTypewarningItemClass = Class of TReconcileGetTypewarningItem;
   
   { --------------------------------------------------------------------
-    TReconcileGetwarning
+    TReconcileGet
     --------------------------------------------------------------------}
   
-  TReconcileGetwarning = Class(TGoogleBaseObject)
+  TReconcileGet = Class(TGoogleBaseObject)
   Private
-    Flocation : string;
-    Fmessage : string;
-    Freason : string;
+    Fcandidate : TReconcileGetTypecandidateArray;
+    Fcosts : TReconcileGetTypecosts;
+    Fmatch : TReconcileCandidate;
+    Fwarning : TReconcileGetTypewarningArray;
   Protected
     //Property setters
-    Procedure Setlocation(AIndex : Integer; AValue : string); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : string); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcandidate(AIndex : Integer; AValue : TReconcileGetTypecandidateArray); virtual;
+    Procedure Setcosts(AIndex : Integer; AValue : TReconcileGetTypecosts); virtual;
+    Procedure Setmatch(AIndex : Integer; AValue : TReconcileCandidate); virtual;
+    Procedure Setwarning(AIndex : Integer; AValue : TReconcileGetTypewarningArray); virtual;
   Public
   Published
-    Property location : string Index 0 Read Flocation Write Setlocation;
-    Property message : string Index 8 Read Fmessage Write Setmessage;
-    Property reason : string Index 16 Read Freason Write Setreason;
+    Property candidate : TReconcileGetTypecandidateArray Index 0 Read Fcandidate Write Setcandidate;
+    Property costs : TReconcileGetTypecosts Index 8 Read Fcosts Write Setcosts;
+    Property match : TReconcileCandidate Index 16 Read Fmatch Write Setmatch;
+    Property warning : TReconcileGetTypewarningArray Index 24 Read Fwarning Write Setwarning;
   end;
-  TReconcileGetwarningClass = Class of TReconcileGetwarning;
+  TReconcileGetClass = Class of TReconcileGet;
   
   { --------------------------------------------------------------------
     TFreebaseAPI
@@ -209,6 +183,33 @@ type
 implementation
 
 
+{ --------------------------------------------------------------------
+  TReconcileCandidateTypenotable
+  --------------------------------------------------------------------}
+
+
+Procedure TReconcileCandidateTypenotable.Setid(AIndex : Integer; AValue : String); 
+
+begin
+  If (Fid=AValue) then exit;
+  Fid:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReconcileCandidateTypenotable.Setname(AIndex : Integer; AValue : String); 
+
+begin
+  If (Fname=AValue) then exit;
+  Fname:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
 { --------------------------------------------------------------------
   TReconcileCandidate
   --------------------------------------------------------------------}
@@ -224,7 +225,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setlang(AIndex : Integer; AValue : string); 
+Procedure TReconcileCandidate.Setlang(AIndex : Integer; AValue : String); 
 
 begin
   If (Flang=AValue) then exit;
@@ -234,7 +235,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setmid(AIndex : Integer; AValue : string); 
+Procedure TReconcileCandidate.Setmid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fmid=AValue) then exit;
@@ -244,7 +245,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setname(AIndex : Integer; AValue : string); 
+Procedure TReconcileCandidate.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -254,7 +255,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setnotable(AIndex : Integer; AValue : TReconcileCandidatenotable); 
+Procedure TReconcileCandidate.Setnotable(AIndex : Integer; AValue : TReconcileCandidateTypenotable); 
 
 begin
   If (Fnotable=AValue) then exit;
@@ -267,25 +268,25 @@ end;
 
 
 { --------------------------------------------------------------------
-  TReconcileCandidatenotable
+  TReconcileGetTypecosts
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileCandidatenotable.Setid(AIndex : Integer; AValue : string); 
+Procedure TReconcileGetTypecosts.Sethits(AIndex : Integer; AValue : integer); 
 
 begin
-  If (Fid=AValue) then exit;
-  Fid:=AValue;
+  If (Fhits=AValue) then exit;
+  Fhits:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TReconcileCandidatenotable.Setname(AIndex : Integer; AValue : string); 
+Procedure TReconcileGetTypecosts.Setms(AIndex : Integer; AValue : integer); 
 
 begin
-  If (Fname=AValue) then exit;
-  Fname:=AValue;
+  If (Fms=AValue) then exit;
+  Fms:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -294,45 +295,35 @@ end;
 
 
 { --------------------------------------------------------------------
-  TReconcileGet
+  TReconcileGetTypewarningItem
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGet.Setcandidate(AIndex : Integer; AValue : TReconcileGetcandidate); 
-
-begin
-  If (Fcandidate=AValue) then exit;
-  Fcandidate:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TReconcileGet.Setcosts(AIndex : Integer; AValue : TReconcileGetcosts); 
+Procedure TReconcileGetTypewarningItem.Setlocation(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fcosts=AValue) then exit;
-  Fcosts:=AValue;
+  If (Flocation=AValue) then exit;
+  Flocation:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TReconcileGet.Setmatch(AIndex : Integer; AValue : TReconcileCandidate); 
+Procedure TReconcileGetTypewarningItem.Setmessage(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fmatch=AValue) then exit;
-  Fmatch:=AValue;
+  If (Fmessage=AValue) then exit;
+  Fmessage:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TReconcileGet.Setwarning(AIndex : Integer; AValue : TReconcileGetwarning); 
+Procedure TReconcileGetTypewarningItem.Setreason(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fwarning=AValue) then exit;
-  Fwarning:=AValue;
+  If (Freason=AValue) then exit;
+  Freason:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -341,69 +332,45 @@ end;
 
 
 { --------------------------------------------------------------------
-  TReconcileGetcandidate
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TReconcileGetcosts
+  TReconcileGet
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGetcosts.Sethits(AIndex : Integer; AValue : integer); 
-
-begin
-  If (Fhits=AValue) then exit;
-  Fhits:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TReconcileGetcosts.Setms(AIndex : Integer; AValue : integer); 
+Procedure TReconcileGet.Setcandidate(AIndex : Integer; AValue : TReconcileGetTypecandidateArray); 
 
 begin
-  If (Fms=AValue) then exit;
-  Fms:=AValue;
+  If (Fcandidate=AValue) then exit;
+  Fcandidate:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-
-
-{ --------------------------------------------------------------------
-  TReconcileGetwarning
-  --------------------------------------------------------------------}
-
-
-Procedure TReconcileGetwarning.Setlocation(AIndex : Integer; AValue : string); 
+Procedure TReconcileGet.Setcosts(AIndex : Integer; AValue : TReconcileGetTypecosts); 
 
 begin
-  If (Flocation=AValue) then exit;
-  Flocation:=AValue;
+  If (Fcosts=AValue) then exit;
+  Fcosts:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TReconcileGetwarning.Setmessage(AIndex : Integer; AValue : string); 
+Procedure TReconcileGet.Setmatch(AIndex : Integer; AValue : TReconcileCandidate); 
 
 begin
-  If (Fmessage=AValue) then exit;
-  Fmessage:=AValue;
+  If (Fmatch=AValue) then exit;
+  Fmatch:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TReconcileGetwarning.Setreason(AIndex : Integer; AValue : string); 
+Procedure TReconcileGet.Setwarning(AIndex : Integer; AValue : TReconcileGetTypewarningArray); 
 
 begin
-  If (Freason=AValue) then exit;
-  Freason:=AValue;
+  If (Fwarning=AValue) then exit;
+  Fwarning:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -533,12 +500,11 @@ end;
 Class Procedure TFreebaseAPI.RegisterAPIResources;
 
 begin
+  TReconcileCandidateTypenotable.RegisterObject;
   TReconcileCandidate.RegisterObject;
-  TReconcileCandidatenotable.RegisterObject;
+  TReconcileGetTypecosts.RegisterObject;
+  TReconcileGetTypewarningItem.RegisterObject;
   TReconcileGet.RegisterObject;
-  TReconcileGetcandidate.RegisterObject;
-  TReconcileGetcosts.RegisterObject;
-  TReconcileGetwarning.RegisterObject;
 end;
 
 

packages/googleapi/src/googlegamesConfiguration.pp

@@ -1,31 +1,19 @@
 unit googlegamesConfiguration;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:54
 {$MODE objfpc}
 {$H+}
 
@@ -34,35 +22,34 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TAchievementConfiguration = class;
-  TAchievementConfigurationArray = Array of TAchievementConfiguration;
   TAchievementConfigurationDetail = class;
-  TAchievementConfigurationDetailArray = Array of TAchievementConfigurationDetail;
   TAchievementConfigurationListResponse = class;
-  TAchievementConfigurationListResponseArray = Array of TAchievementConfigurationListResponse;
-  TAchievementConfigurationListResponseitems = class;
-  TAchievementConfigurationListResponseitemsArray = Array of TAchievementConfigurationListResponseitems;
   TGamesNumberAffixConfiguration = class;
-  TGamesNumberAffixConfigurationArray = Array of TGamesNumberAffixConfiguration;
   TGamesNumberFormatConfiguration = class;
-  TGamesNumberFormatConfigurationArray = Array of TGamesNumberFormatConfiguration;
   TImageConfiguration = class;
-  TImageConfigurationArray = Array of TImageConfiguration;
   TLeaderboardConfiguration = class;
-  TLeaderboardConfigurationArray = Array of TLeaderboardConfiguration;
   TLeaderboardConfigurationDetail = class;
-  TLeaderboardConfigurationDetailArray = Array of TLeaderboardConfigurationDetail;
   TLeaderboardConfigurationListResponse = class;
-  TLeaderboardConfigurationListResponseArray = Array of TLeaderboardConfigurationListResponse;
-  TLeaderboardConfigurationListResponseitems = class;
-  TLeaderboardConfigurationListResponseitemsArray = Array of TLeaderboardConfigurationListResponseitems;
   TLocalizedString = class;
-  TLocalizedStringArray = Array of TLocalizedString;
   TLocalizedStringBundle = class;
+  TAchievementConfigurationArray = Array of TAchievementConfiguration;
+  TAchievementConfigurationDetailArray = Array of TAchievementConfigurationDetail;
+  TAchievementConfigurationListResponseArray = Array of TAchievementConfigurationListResponse;
+  TGamesNumberAffixConfigurationArray = Array of TGamesNumberAffixConfiguration;
+  TGamesNumberFormatConfigurationArray = Array of TGamesNumberFormatConfiguration;
+  TImageConfigurationArray = Array of TImageConfiguration;
+  TLeaderboardConfigurationArray = Array of TLeaderboardConfiguration;
+  TLeaderboardConfigurationDetailArray = Array of TLeaderboardConfigurationDetail;
+  TLeaderboardConfigurationListResponseArray = Array of TLeaderboardConfigurationListResponse;
+  TLocalizedStringArray = Array of TLocalizedString;
   TLocalizedStringBundleArray = Array of TLocalizedStringBundle;
-  TLocalizedStringBundletranslations = class;
-  TLocalizedStringBundletranslationsArray = Array of TLocalizedStringBundletranslations;
+  //Anonymous types, using auto-generated names
+  TAchievementConfigurationListResponseTypeitemsArray = Array of TAchievementConfiguration;
+  TLeaderboardConfigurationListResponseTypeitemsArray = Array of TLeaderboardConfiguration;
+  TLocalizedStringBundleTypetranslationsArray = Array of TLocalizedString;
   
   { --------------------------------------------------------------------
     TAchievementConfiguration
@@ -70,35 +57,35 @@ type
   
   TAchievementConfiguration = Class(TGoogleBaseObject)
   Private
-    FachievementType : string;
+    FachievementType : String;
     Fdraft : TAchievementConfigurationDetail;
-    Fid : string;
-    FinitialState : string;
-    Fkind : string;
+    Fid : String;
+    FinitialState : String;
+    Fkind : String;
     F_published : TAchievementConfigurationDetail;
     FstepsToUnlock : integer;
-    Ftoken : string;
+    Ftoken : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetachievementType(AIndex : Integer; AValue : string); virtual;
+    Procedure SetachievementType(AIndex : Integer; AValue : String); virtual;
     Procedure Setdraft(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure SetinitialState(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetinitialState(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Set_published(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
     Procedure SetstepsToUnlock(AIndex : Integer; AValue : integer); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : string); virtual;
+    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property achievementType : string Index 0 Read FachievementType Write SetachievementType;
+    Property achievementType : String Index 0 Read FachievementType Write SetachievementType;
     Property draft : TAchievementConfigurationDetail Index 8 Read Fdraft Write Setdraft;
-    Property id : string Index 16 Read Fid Write Setid;
-    Property initialState : string Index 24 Read FinitialState Write SetinitialState;
-    Property kind : string Index 32 Read Fkind Write Setkind;
+    Property id : String Index 16 Read Fid Write Setid;
+    Property initialState : String Index 24 Read FinitialState Write SetinitialState;
+    Property kind : String Index 32 Read Fkind Write Setkind;
     Property _published : TAchievementConfigurationDetail Index 40 Read F_published Write Set_published;
     Property stepsToUnlock : integer Index 48 Read FstepsToUnlock Write SetstepsToUnlock;
-    Property token : string Index 56 Read Ftoken Write Settoken;
+    Property token : String Index 56 Read Ftoken Write Settoken;
   end;
   TAchievementConfigurationClass = Class of TAchievementConfiguration;
   
@@ -109,24 +96,24 @@ type
   TAchievementConfigurationDetail = Class(TGoogleBaseObject)
   Private
     Fdescription : TLocalizedStringBundle;
-    FiconUrl : string;
-    Fkind : string;
+    FiconUrl : String;
+    Fkind : String;
     Fname : TLocalizedStringBundle;
     FpointValue : integer;
     FsortRank : integer;
   Protected
     //Property setters
     Procedure Setdescription(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
-    Procedure SeticonUrl(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
     Procedure SetpointValue(AIndex : Integer; AValue : integer); virtual;
     Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
     Property description : TLocalizedStringBundle Index 0 Read Fdescription Write Setdescription;
-    Property iconUrl : string Index 8 Read FiconUrl Write SeticonUrl;
-    Property kind : string Index 16 Read Fkind Write Setkind;
+    Property iconUrl : String Index 8 Read FiconUrl Write SeticonUrl;
+    Property kind : String Index 16 Read Fkind Write Setkind;
     Property name : TLocalizedStringBundle Index 24 Read Fname Write Setname;
     Property pointValue : integer Index 32 Read FpointValue Write SetpointValue;
     Property sortRank : integer Index 40 Read FsortRank Write SetsortRank;
@@ -139,35 +126,22 @@ type
   
   TAchievementConfigurationListResponse = Class(TGoogleBaseObject)
   Private
-    Fitems : TAchievementConfigurationListResponseitems;
-    Fkind : string;
-    FnextPageToken : string;
+    Fitems : TAchievementConfigurationListResponseTypeitemsArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property items : TAchievementConfigurationListResponseitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 16 Read FnextPageToken Write SetnextPageToken;
+    Property items : TAchievementConfigurationListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TAchievementConfigurationListResponseClass = Class of TAchievementConfigurationListResponse;
   
-  { --------------------------------------------------------------------
-    TAchievementConfigurationListResponseitems
-    --------------------------------------------------------------------}
-  
-  TAchievementConfigurationListResponseitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAchievementConfigurationListResponseitemsClass = Class of TAchievementConfigurationListResponseitems;
-  
   { --------------------------------------------------------------------
     TGamesNumberAffixConfiguration
     --------------------------------------------------------------------}
@@ -205,21 +179,21 @@ type
   
   TGamesNumberFormatConfiguration = Class(TGoogleBaseObject)
   Private
-    FcurrencyCode : string;
+    FcurrencyCode : String;
     FnumDecimalPlaces : integer;
-    FnumberFormatType : string;
+    FnumberFormatType : String;
     Fsuffix : TGamesNumberAffixConfiguration;
   Protected
     //Property setters
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : string); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
     Procedure SetnumDecimalPlaces(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetnumberFormatType(AIndex : Integer; AValue : string); virtual;
+    Procedure SetnumberFormatType(AIndex : Integer; AValue : String); virtual;
     Procedure Setsuffix(AIndex : Integer; AValue : TGamesNumberAffixConfiguration); virtual;
   Public
   Published
-    Property currencyCode : string Index 0 Read FcurrencyCode Write SetcurrencyCode;
+    Property currencyCode : String Index 0 Read FcurrencyCode Write SetcurrencyCode;
     Property numDecimalPlaces : integer Index 8 Read FnumDecimalPlaces Write SetnumDecimalPlaces;
-    Property numberFormatType : string Index 16 Read FnumberFormatType Write SetnumberFormatType;
+    Property numberFormatType : String Index 16 Read FnumberFormatType Write SetnumberFormatType;
     Property suffix : TGamesNumberAffixConfiguration Index 24 Read Fsuffix Write Setsuffix;
   end;
   TGamesNumberFormatConfigurationClass = Class of TGamesNumberFormatConfiguration;
@@ -230,22 +204,22 @@ type
   
   TImageConfiguration = Class(TGoogleBaseObject)
   Private
-    FimageType : string;
-    Fkind : string;
-    FresourceId : string;
-    Furl : string;
+    FimageType : String;
+    Fkind : String;
+    FresourceId : String;
+    Furl : String;
   Protected
     //Property setters
-    Procedure SetimageType(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetresourceId(AIndex : Integer; AValue : string); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : string); virtual;
+    Procedure SetimageType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresourceId(AIndex : Integer; AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property imageType : string Index 0 Read FimageType Write SetimageType;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property resourceId : string Index 16 Read FresourceId Write SetresourceId;
-    Property url : string Index 24 Read Furl Write Seturl;
+    Property imageType : String Index 0 Read FimageType Write SetimageType;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property resourceId : String Index 16 Read FresourceId Write SetresourceId;
+    Property url : String Index 24 Read Furl Write Seturl;
   end;
   TImageConfigurationClass = Class of TImageConfiguration;
   
@@ -256,34 +230,34 @@ type
   TLeaderboardConfiguration = Class(TGoogleBaseObject)
   Private
     Fdraft : TLeaderboardConfigurationDetail;
-    Fid : string;
-    Fkind : string;
+    Fid : String;
+    Fkind : String;
     F_published : TLeaderboardConfigurationDetail;
-    FscoreMax : string;
-    FscoreMin : string;
-    FscoreOrder : string;
-    Ftoken : string;
+    FscoreMax : String;
+    FscoreMin : String;
+    FscoreOrder : String;
+    Ftoken : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setdraft(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Set_published(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
-    Procedure SetscoreMax(AIndex : Integer; AValue : string); virtual;
-    Procedure SetscoreMin(AIndex : Integer; AValue : string); virtual;
-    Procedure SetscoreOrder(AIndex : Integer; AValue : string); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : string); virtual;
+    Procedure SetscoreMax(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscoreMin(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscoreOrder(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
     Property draft : TLeaderboardConfigurationDetail Index 0 Read Fdraft Write Setdraft;
-    Property id : string Index 8 Read Fid Write Setid;
-    Property kind : string Index 16 Read Fkind Write Setkind;
+    Property id : String Index 8 Read Fid Write Setid;
+    Property kind : String Index 16 Read Fkind Write Setkind;
     Property _published : TLeaderboardConfigurationDetail Index 24 Read F_published Write Set_published;
-    Property scoreMax : string Index 32 Read FscoreMax Write SetscoreMax;
-    Property scoreMin : string Index 40 Read FscoreMin Write SetscoreMin;
-    Property scoreOrder : string Index 48 Read FscoreOrder Write SetscoreOrder;
-    Property token : string Index 56 Read Ftoken Write Settoken;
+    Property scoreMax : String Index 32 Read FscoreMax Write SetscoreMax;
+    Property scoreMin : String Index 40 Read FscoreMin Write SetscoreMin;
+    Property scoreOrder : String Index 48 Read FscoreOrder Write SetscoreOrder;
+    Property token : String Index 56 Read Ftoken Write Settoken;
   end;
   TLeaderboardConfigurationClass = Class of TLeaderboardConfiguration;
   
@@ -293,22 +267,22 @@ type
   
   TLeaderboardConfigurationDetail = Class(TGoogleBaseObject)
   Private
-    FiconUrl : string;
-    Fkind : string;
+    FiconUrl : String;
+    Fkind : String;
     Fname : TLocalizedStringBundle;
     FscoreFormat : TGamesNumberFormatConfiguration;
     FsortRank : integer;
   Protected
     //Property setters
-    Procedure SeticonUrl(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
     Procedure SetscoreFormat(AIndex : Integer; AValue : TGamesNumberFormatConfiguration); virtual;
     Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property iconUrl : string Index 0 Read FiconUrl Write SeticonUrl;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property iconUrl : String Index 0 Read FiconUrl Write SeticonUrl;
+    Property kind : String Index 8 Read Fkind Write Setkind;
     Property name : TLocalizedStringBundle Index 16 Read Fname Write Setname;
     Property scoreFormat : TGamesNumberFormatConfiguration Index 24 Read FscoreFormat Write SetscoreFormat;
     Property sortRank : integer Index 32 Read FsortRank Write SetsortRank;
@@ -321,54 +295,41 @@ type
   
   TLeaderboardConfigurationListResponse = Class(TGoogleBaseObject)
   Private
-    Fitems : TLeaderboardConfigurationListResponseitems;
-    Fkind : string;
-    FnextPageToken : string;
+    Fitems : TLeaderboardConfigurationListResponseTypeitemsArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property items : TLeaderboardConfigurationListResponseitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 16 Read FnextPageToken Write SetnextPageToken;
+    Property items : TLeaderboardConfigurationListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
   end;
   TLeaderboardConfigurationListResponseClass = Class of TLeaderboardConfigurationListResponse;
   
-  { --------------------------------------------------------------------
-    TLeaderboardConfigurationListResponseitems
-    --------------------------------------------------------------------}
-  
-  TLeaderboardConfigurationListResponseitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TLeaderboardConfigurationListResponseitemsClass = Class of TLeaderboardConfigurationListResponseitems;
-  
   { --------------------------------------------------------------------
     TLocalizedString
     --------------------------------------------------------------------}
   
   TLocalizedString = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    Flocale : string;
-    Fvalue : string;
+    Fkind : String;
+    Flocale : String;
+    Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setlocale(AIndex : Integer; AValue : string); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property locale : string Index 8 Read Flocale Write Setlocale;
-    Property value : string Index 16 Read Fvalue Write Setvalue;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property locale : String Index 8 Read Flocale Write Setlocale;
+    Property value : String Index 16 Read Fvalue Write Setvalue;
   end;
   TLocalizedStringClass = Class of TLocalizedString;
   
@@ -378,32 +339,19 @@ type
   
   TLocalizedStringBundle = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    Ftranslations : TLocalizedStringBundletranslations;
+    Fkind : String;
+    Ftranslations : TLocalizedStringBundleTypetranslationsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Settranslations(AIndex : Integer; AValue : TLocalizedStringBundletranslations); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property translations : TLocalizedStringBundletranslations Index 8 Read Ftranslations Write Settranslations;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property translations : TLocalizedStringBundleTypetranslationsArray Index 8 Read Ftranslations Write Settranslations;
   end;
   TLocalizedStringBundleClass = Class of TLocalizedStringBundle;
   
-  { --------------------------------------------------------------------
-    TLocalizedStringBundletranslations
-    --------------------------------------------------------------------}
-  
-  TLocalizedStringBundletranslations = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TLocalizedStringBundletranslationsClass = Class of TLocalizedStringBundletranslations;
-  
   { --------------------------------------------------------------------
     TAchievementConfigurationsResource
     --------------------------------------------------------------------}
@@ -413,7 +361,7 @@ type
   
   TAchievementConfigurationsListOptions = Record
     maxResults : integer;
-    pageToken : string;
+    pageToken : String;
   end;
   
   TAchievementConfigurationsResource = Class(TGoogleResource)
@@ -451,7 +399,7 @@ type
   
   TLeaderboardConfigurationsListOptions = Record
     maxResults : integer;
-    pageToken : string;
+    pageToken : String;
   end;
   
   TLeaderboardConfigurationsResource = Class(TGoogleResource)
@@ -523,7 +471,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; AValue : String); 
 
 begin
   If (FachievementType=AValue) then exit;
@@ -543,7 +491,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setid(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfiguration.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -553,7 +501,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; AValue : String); 
 
 begin
   If (FinitialState=AValue) then exit;
@@ -563,7 +511,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setkind(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfiguration.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -593,7 +541,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Settoken(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfiguration.Settoken(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -631,7 +579,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -641,7 +589,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -688,7 +636,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseitems); 
+Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -698,7 +646,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -708,7 +656,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -720,13 +668,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TAchievementConfigurationListResponseitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TGamesNumberAffixConfiguration
   --------------------------------------------------------------------}
@@ -799,7 +740,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; AValue : string); 
+Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -819,7 +760,7 @@ end;
 
 
 
-Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; AValue : string); 
+Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; AValue : String); 
 
 begin
   If (FnumberFormatType=AValue) then exit;
@@ -846,7 +787,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImageConfiguration.SetimageType(AIndex : Integer; AValue : string); 
+Procedure TImageConfiguration.SetimageType(AIndex : Integer; AValue : String); 
 
 begin
   If (FimageType=AValue) then exit;
@@ -856,7 +797,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Setkind(AIndex : Integer; AValue : string); 
+Procedure TImageConfiguration.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -866,7 +807,7 @@ end;
 
 
 
-Procedure TImageConfiguration.SetresourceId(AIndex : Integer; AValue : string); 
+Procedure TImageConfiguration.SetresourceId(AIndex : Integer; AValue : String); 
 
 begin
   If (FresourceId=AValue) then exit;
@@ -876,7 +817,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Seturl(AIndex : Integer; AValue : string); 
+Procedure TImageConfiguration.Seturl(AIndex : Integer; AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -903,7 +844,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -913,7 +854,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -933,7 +874,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; AValue : String); 
 
 begin
   If (FscoreMax=AValue) then exit;
@@ -943,7 +884,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; AValue : String); 
 
 begin
   If (FscoreMin=AValue) then exit;
@@ -953,7 +894,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; AValue : String); 
 
 begin
   If (FscoreOrder=AValue) then exit;
@@ -963,7 +904,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -991,7 +932,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -1001,7 +942,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1048,7 +989,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseitems); 
+Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -1058,7 +999,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1068,7 +1009,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1080,19 +1021,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TLeaderboardConfigurationListResponseitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TLocalizedString
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedString.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLocalizedString.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1102,7 +1036,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setlocale(AIndex : Integer; AValue : string); 
+Procedure TLocalizedString.Setlocale(AIndex : Integer; AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -1112,7 +1046,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setvalue(AIndex : Integer; AValue : string); 
+Procedure TLocalizedString.Setvalue(AIndex : Integer; AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1129,7 +1063,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1139,7 +1073,7 @@ end;
 
 
 
-Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; AValue : TLocalizedStringBundletranslations); 
+Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray); 
 
 begin
   If (Ftranslations=AValue) then exit;
@@ -1151,13 +1085,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TLocalizedStringBundletranslations
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TAchievementConfigurationsResource
   --------------------------------------------------------------------}
@@ -1563,17 +1490,14 @@ begin
   TAchievementConfiguration.RegisterObject;
   TAchievementConfigurationDetail.RegisterObject;
   TAchievementConfigurationListResponse.RegisterObject;
-  TAchievementConfigurationListResponseitems.RegisterObject;
   TGamesNumberAffixConfiguration.RegisterObject;
   TGamesNumberFormatConfiguration.RegisterObject;
   TImageConfiguration.RegisterObject;
   TLeaderboardConfiguration.RegisterObject;
   TLeaderboardConfigurationDetail.RegisterObject;
   TLeaderboardConfigurationListResponse.RegisterObject;
-  TLeaderboardConfigurationListResponseitems.RegisterObject;
   TLocalizedString.RegisterObject;
   TLocalizedStringBundle.RegisterObject;
-  TLocalizedStringBundletranslations.RegisterObject;
 end;
 
 

packages/googleapi/src/googlegroupsmigration.pp

@@ -1,31 +1,19 @@
 unit googlegroupsmigration;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:55
 {$MODE objfpc}
 {$H+}
 
@@ -34,9 +22,11 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TGroups = class;
   TGroupsArray = Array of TGroups;
+  //Anonymous types, using auto-generated names
   
   { --------------------------------------------------------------------
     TGroups
@@ -44,16 +34,16 @@ type
   
   TGroups = Class(TGoogleBaseObject)
   Private
-    Fkind : string;
-    FresponseCode : string;
+    Fkind : String;
+    FresponseCode : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetresponseCode(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresponseCode(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property kind : string Index 0 Read Fkind Write Setkind;
-    Property responseCode : string Index 8 Read FresponseCode Write SetresponseCode;
+    Property kind : String Index 0 Read Fkind Write Setkind;
+    Property responseCode : String Index 8 Read FresponseCode Write SetresponseCode;
   end;
   TGroupsClass = Class of TGroups;
   
@@ -114,7 +104,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.Setkind(AIndex : Integer; AValue : string); 
+Procedure TGroups.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -124,7 +114,7 @@ end;
 
 
 
-Procedure TGroups.SetresponseCode(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetresponseCode(AIndex : Integer; AValue : String); 
 
 begin
   If (FresponseCode=AValue) then exit;

packages/googleapi/src/googlegroupssettings.pp

@@ -1,31 +1,19 @@
 unit googlegroupssettings;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:55
 {$MODE objfpc}
 {$H+}
 
@@ -34,9 +22,11 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TGroups = class;
   TGroupsArray = Array of TGroups;
+  //Anonymous types, using auto-generated names
   
   { --------------------------------------------------------------------
     TGroups
@@ -44,94 +34,94 @@ type
   
   TGroups = Class(TGoogleBaseObject)
   Private
-    FallowExternalMembers : string;
-    FallowGoogleCommunication : string;
-    FallowWebPosting : string;
-    FarchiveOnly : string;
-    FcustomReplyTo : string;
-    FdefaultMessageDenyNotificationText : string;
-    Fdescription : string;
-    Femail : string;
-    FincludeInGlobalAddressList : string;
-    FisArchived : string;
-    Fkind : string;
+    FallowExternalMembers : String;
+    FallowGoogleCommunication : String;
+    FallowWebPosting : String;
+    FarchiveOnly : String;
+    FcustomReplyTo : String;
+    FdefaultMessageDenyNotificationText : String;
+    Fdescription : String;
+    Femail : String;
+    FincludeInGlobalAddressList : String;
+    FisArchived : String;
+    Fkind : String;
     FmaxMessageBytes : integer;
-    FmembersCanPostAsTheGroup : string;
-    FmessageDisplayFont : string;
-    FmessageModerationLevel : string;
-    Fname : string;
-    FprimaryLanguage : string;
-    FreplyTo : string;
-    FsendMessageDenyNotification : string;
-    FshowInGroupDirectory : string;
-    FspamModerationLevel : string;
-    FwhoCanContactOwner : string;
-    FwhoCanInvite : string;
-    FwhoCanJoin : string;
-    FwhoCanLeaveGroup : string;
-    FwhoCanPostMessage : string;
-    FwhoCanViewGroup : string;
-    FwhoCanViewMembership : string;
+    FmembersCanPostAsTheGroup : String;
+    FmessageDisplayFont : String;
+    FmessageModerationLevel : String;
+    Fname : String;
+    FprimaryLanguage : String;
+    FreplyTo : String;
+    FsendMessageDenyNotification : String;
+    FshowInGroupDirectory : String;
+    FspamModerationLevel : String;
+    FwhoCanContactOwner : String;
+    FwhoCanInvite : String;
+    FwhoCanJoin : String;
+    FwhoCanLeaveGroup : String;
+    FwhoCanPostMessage : String;
+    FwhoCanViewGroup : String;
+    FwhoCanViewMembership : String;
   Protected
     //Property setters
-    Procedure SetallowExternalMembers(AIndex : Integer; AValue : string); virtual;
-    Procedure SetallowGoogleCommunication(AIndex : Integer; AValue : string); virtual;
-    Procedure SetallowWebPosting(AIndex : Integer; AValue : string); virtual;
-    Procedure SetarchiveOnly(AIndex : Integer; AValue : string); virtual;
-    Procedure SetcustomReplyTo(AIndex : Integer; AValue : string); virtual;
-    Procedure SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : string); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : string); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : string); virtual;
-    Procedure SetincludeInGlobalAddressList(AIndex : Integer; AValue : string); virtual;
-    Procedure SetisArchived(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure SetallowExternalMembers(AIndex : Integer; AValue : String); virtual;
+    Procedure SetallowGoogleCommunication(AIndex : Integer; AValue : String); virtual;
+    Procedure SetallowWebPosting(AIndex : Integer; AValue : String); virtual;
+    Procedure SetarchiveOnly(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcustomReplyTo(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure SetincludeInGlobalAddressList(AIndex : Integer; AValue : String); virtual;
+    Procedure SetisArchived(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmaxMessageBytes(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmessageDisplayFont(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmessageModerationLevel(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure SetprimaryLanguage(AIndex : Integer; AValue : string); virtual;
-    Procedure SetreplyTo(AIndex : Integer; AValue : string); virtual;
-    Procedure SetsendMessageDenyNotification(AIndex : Integer; AValue : string); virtual;
-    Procedure SetshowInGroupDirectory(AIndex : Integer; AValue : string); virtual;
-    Procedure SetspamModerationLevel(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanContactOwner(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanInvite(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanJoin(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanLeaveGroup(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanPostMessage(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanViewGroup(AIndex : Integer; AValue : string); virtual;
-    Procedure SetwhoCanViewMembership(AIndex : Integer; AValue : string); virtual;
+    Procedure SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmessageDisplayFont(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmessageModerationLevel(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetprimaryLanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetreplyTo(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsendMessageDenyNotification(AIndex : Integer; AValue : String); virtual;
+    Procedure SetshowInGroupDirectory(AIndex : Integer; AValue : String); virtual;
+    Procedure SetspamModerationLevel(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanContactOwner(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanInvite(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanJoin(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanLeaveGroup(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanPostMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanViewGroup(AIndex : Integer; AValue : String); virtual;
+    Procedure SetwhoCanViewMembership(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property allowExternalMembers : string Index 0 Read FallowExternalMembers Write SetallowExternalMembers;
-    Property allowGoogleCommunication : string Index 8 Read FallowGoogleCommunication Write SetallowGoogleCommunication;
-    Property allowWebPosting : string Index 16 Read FallowWebPosting Write SetallowWebPosting;
-    Property archiveOnly : string Index 24 Read FarchiveOnly Write SetarchiveOnly;
-    Property customReplyTo : string Index 32 Read FcustomReplyTo Write SetcustomReplyTo;
-    Property defaultMessageDenyNotificationText : string Index 40 Read FdefaultMessageDenyNotificationText Write SetdefaultMessageDenyNotificationText;
-    Property description : string Index 48 Read Fdescription Write Setdescription;
-    Property email : string Index 56 Read Femail Write Setemail;
-    Property includeInGlobalAddressList : string Index 64 Read FincludeInGlobalAddressList Write SetincludeInGlobalAddressList;
-    Property isArchived : string Index 72 Read FisArchived Write SetisArchived;
-    Property kind : string Index 80 Read Fkind Write Setkind;
+    Property allowExternalMembers : String Index 0 Read FallowExternalMembers Write SetallowExternalMembers;
+    Property allowGoogleCommunication : String Index 8 Read FallowGoogleCommunication Write SetallowGoogleCommunication;
+    Property allowWebPosting : String Index 16 Read FallowWebPosting Write SetallowWebPosting;
+    Property archiveOnly : String Index 24 Read FarchiveOnly Write SetarchiveOnly;
+    Property customReplyTo : String Index 32 Read FcustomReplyTo Write SetcustomReplyTo;
+    Property defaultMessageDenyNotificationText : String Index 40 Read FdefaultMessageDenyNotificationText Write SetdefaultMessageDenyNotificationText;
+    Property description : String Index 48 Read Fdescription Write Setdescription;
+    Property email : String Index 56 Read Femail Write Setemail;
+    Property includeInGlobalAddressList : String Index 64 Read FincludeInGlobalAddressList Write SetincludeInGlobalAddressList;
+    Property isArchived : String Index 72 Read FisArchived Write SetisArchived;
+    Property kind : String Index 80 Read Fkind Write Setkind;
     Property maxMessageBytes : integer Index 88 Read FmaxMessageBytes Write SetmaxMessageBytes;
-    Property membersCanPostAsTheGroup : string Index 96 Read FmembersCanPostAsTheGroup Write SetmembersCanPostAsTheGroup;
-    Property messageDisplayFont : string Index 104 Read FmessageDisplayFont Write SetmessageDisplayFont;
-    Property messageModerationLevel : string Index 112 Read FmessageModerationLevel Write SetmessageModerationLevel;
-    Property name : string Index 120 Read Fname Write Setname;
-    Property primaryLanguage : string Index 128 Read FprimaryLanguage Write SetprimaryLanguage;
-    Property replyTo : string Index 136 Read FreplyTo Write SetreplyTo;
-    Property sendMessageDenyNotification : string Index 144 Read FsendMessageDenyNotification Write SetsendMessageDenyNotification;
-    Property showInGroupDirectory : string Index 152 Read FshowInGroupDirectory Write SetshowInGroupDirectory;
-    Property spamModerationLevel : string Index 160 Read FspamModerationLevel Write SetspamModerationLevel;
-    Property whoCanContactOwner : string Index 168 Read FwhoCanContactOwner Write SetwhoCanContactOwner;
-    Property whoCanInvite : string Index 176 Read FwhoCanInvite Write SetwhoCanInvite;
-    Property whoCanJoin : string Index 184 Read FwhoCanJoin Write SetwhoCanJoin;
-    Property whoCanLeaveGroup : string Index 192 Read FwhoCanLeaveGroup Write SetwhoCanLeaveGroup;
-    Property whoCanPostMessage : string Index 200 Read FwhoCanPostMessage Write SetwhoCanPostMessage;
-    Property whoCanViewGroup : string Index 208 Read FwhoCanViewGroup Write SetwhoCanViewGroup;
-    Property whoCanViewMembership : string Index 216 Read FwhoCanViewMembership Write SetwhoCanViewMembership;
+    Property membersCanPostAsTheGroup : String Index 96 Read FmembersCanPostAsTheGroup Write SetmembersCanPostAsTheGroup;
+    Property messageDisplayFont : String Index 104 Read FmessageDisplayFont Write SetmessageDisplayFont;
+    Property messageModerationLevel : String Index 112 Read FmessageModerationLevel Write SetmessageModerationLevel;
+    Property name : String Index 120 Read Fname Write Setname;
+    Property primaryLanguage : String Index 128 Read FprimaryLanguage Write SetprimaryLanguage;
+    Property replyTo : String Index 136 Read FreplyTo Write SetreplyTo;
+    Property sendMessageDenyNotification : String Index 144 Read FsendMessageDenyNotification Write SetsendMessageDenyNotification;
+    Property showInGroupDirectory : String Index 152 Read FshowInGroupDirectory Write SetshowInGroupDirectory;
+    Property spamModerationLevel : String Index 160 Read FspamModerationLevel Write SetspamModerationLevel;
+    Property whoCanContactOwner : String Index 168 Read FwhoCanContactOwner Write SetwhoCanContactOwner;
+    Property whoCanInvite : String Index 176 Read FwhoCanInvite Write SetwhoCanInvite;
+    Property whoCanJoin : String Index 184 Read FwhoCanJoin Write SetwhoCanJoin;
+    Property whoCanLeaveGroup : String Index 192 Read FwhoCanLeaveGroup Write SetwhoCanLeaveGroup;
+    Property whoCanPostMessage : String Index 200 Read FwhoCanPostMessage Write SetwhoCanPostMessage;
+    Property whoCanViewGroup : String Index 208 Read FwhoCanViewGroup Write SetwhoCanViewGroup;
+    Property whoCanViewMembership : String Index 216 Read FwhoCanViewMembership Write SetwhoCanViewMembership;
   end;
   TGroupsClass = Class of TGroups;
   
@@ -194,7 +184,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.SetallowExternalMembers(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetallowExternalMembers(AIndex : Integer; AValue : String); 
 
 begin
   If (FallowExternalMembers=AValue) then exit;
@@ -204,7 +194,7 @@ end;
 
 
 
-Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; AValue : String); 
 
 begin
   If (FallowGoogleCommunication=AValue) then exit;
@@ -214,7 +204,7 @@ end;
 
 
 
-Procedure TGroups.SetallowWebPosting(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetallowWebPosting(AIndex : Integer; AValue : String); 
 
 begin
   If (FallowWebPosting=AValue) then exit;
@@ -224,7 +214,7 @@ end;
 
 
 
-Procedure TGroups.SetarchiveOnly(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetarchiveOnly(AIndex : Integer; AValue : String); 
 
 begin
   If (FarchiveOnly=AValue) then exit;
@@ -234,7 +224,7 @@ end;
 
 
 
-Procedure TGroups.SetcustomReplyTo(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetcustomReplyTo(AIndex : Integer; AValue : String); 
 
 begin
   If (FcustomReplyTo=AValue) then exit;
@@ -244,7 +234,7 @@ end;
 
 
 
-Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : String); 
 
 begin
   If (FdefaultMessageDenyNotificationText=AValue) then exit;
@@ -254,7 +244,7 @@ end;
 
 
 
-Procedure TGroups.Setdescription(AIndex : Integer; AValue : string); 
+Procedure TGroups.Setdescription(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -264,7 +254,7 @@ end;
 
 
 
-Procedure TGroups.Setemail(AIndex : Integer; AValue : string); 
+Procedure TGroups.Setemail(AIndex : Integer; AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -274,7 +264,7 @@ end;
 
 
 
-Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; AValue : String); 
 
 begin
   If (FincludeInGlobalAddressList=AValue) then exit;
@@ -284,7 +274,7 @@ end;
 
 
 
-Procedure TGroups.SetisArchived(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetisArchived(AIndex : Integer; AValue : String); 
 
 begin
   If (FisArchived=AValue) then exit;
@@ -294,7 +284,7 @@ end;
 
 
 
-Procedure TGroups.Setkind(AIndex : Integer; AValue : string); 
+Procedure TGroups.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -314,7 +304,7 @@ end;
 
 
 
-Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : String); 
 
 begin
   If (FmembersCanPostAsTheGroup=AValue) then exit;
@@ -324,7 +314,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; AValue : String); 
 
 begin
   If (FmessageDisplayFont=AValue) then exit;
@@ -334,7 +324,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; AValue : String); 
 
 begin
   If (FmessageModerationLevel=AValue) then exit;
@@ -344,7 +334,7 @@ end;
 
 
 
-Procedure TGroups.Setname(AIndex : Integer; AValue : string); 
+Procedure TGroups.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -354,7 +344,7 @@ end;
 
 
 
-Procedure TGroups.SetprimaryLanguage(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetprimaryLanguage(AIndex : Integer; AValue : String); 
 
 begin
   If (FprimaryLanguage=AValue) then exit;
@@ -364,7 +354,7 @@ end;
 
 
 
-Procedure TGroups.SetreplyTo(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetreplyTo(AIndex : Integer; AValue : String); 
 
 begin
   If (FreplyTo=AValue) then exit;
@@ -374,7 +364,7 @@ end;
 
 
 
-Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; AValue : String); 
 
 begin
   If (FsendMessageDenyNotification=AValue) then exit;
@@ -384,7 +374,7 @@ end;
 
 
 
-Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; AValue : String); 
 
 begin
   If (FshowInGroupDirectory=AValue) then exit;
@@ -394,7 +384,7 @@ end;
 
 
 
-Procedure TGroups.SetspamModerationLevel(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetspamModerationLevel(AIndex : Integer; AValue : String); 
 
 begin
   If (FspamModerationLevel=AValue) then exit;
@@ -404,7 +394,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanContactOwner=AValue) then exit;
@@ -414,7 +404,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanInvite(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanInvite(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanInvite=AValue) then exit;
@@ -424,7 +414,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanJoin(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanJoin(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanJoin=AValue) then exit;
@@ -434,7 +424,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanLeaveGroup=AValue) then exit;
@@ -444,7 +434,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanPostMessage=AValue) then exit;
@@ -454,7 +444,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanViewGroup=AValue) then exit;
@@ -464,7 +454,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; AValue : string); 
+Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; AValue : String); 
 
 begin
   If (FwhoCanViewMembership=AValue) then exit;

packages/googleapi/src/googlelicensing.pp

@@ -1,31 +1,19 @@
 unit googlelicensing;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:55
 {$MODE objfpc}
 {$H+}
 
@@ -34,15 +22,16 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TLicenseAssignment = class;
-  TLicenseAssignmentArray = Array of TLicenseAssignment;
   TLicenseAssignmentInsert = class;
-  TLicenseAssignmentInsertArray = Array of TLicenseAssignmentInsert;
   TLicenseAssignmentList = class;
+  TLicenseAssignmentArray = Array of TLicenseAssignment;
+  TLicenseAssignmentInsertArray = Array of TLicenseAssignmentInsert;
   TLicenseAssignmentListArray = Array of TLicenseAssignmentList;
-  TLicenseAssignmentListitems = class;
-  TLicenseAssignmentListitemsArray = Array of TLicenseAssignmentListitems;
+  //Anonymous types, using auto-generated names
+  TLicenseAssignmentListTypeitemsArray = Array of TLicenseAssignment;
   
   { --------------------------------------------------------------------
     TLicenseAssignment
@@ -50,28 +39,28 @@ type
   
   TLicenseAssignment = Class(TGoogleBaseObject)
   Private
-    Fetags : string;
-    Fkind : string;
-    FproductId : string;
-    FselfLink : string;
-    FskuId : string;
-    FuserId : string;
+    Fetags : String;
+    Fkind : String;
+    FproductId : String;
+    FselfLink : String;
+    FskuId : String;
+    FuserId : String;
   Protected
     //Property setters
-    Procedure Setetags(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : string); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : string); virtual;
-    Procedure SetskuId(AIndex : Integer; AValue : string); virtual;
-    Procedure SetuserId(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetags(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetskuId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property etags : string Index 0 Read Fetags Write Setetags;
-    Property kind : string Index 8 Read Fkind Write Setkind;
-    Property productId : string Index 16 Read FproductId Write SetproductId;
-    Property selfLink : string Index 24 Read FselfLink Write SetselfLink;
-    Property skuId : string Index 32 Read FskuId Write SetskuId;
-    Property userId : string Index 40 Read FuserId Write SetuserId;
+    Property etags : String Index 0 Read Fetags Write Setetags;
+    Property kind : String Index 8 Read Fkind Write Setkind;
+    Property productId : String Index 16 Read FproductId Write SetproductId;
+    Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+    Property skuId : String Index 32 Read FskuId Write SetskuId;
+    Property userId : String Index 40 Read FuserId Write SetuserId;
   end;
   TLicenseAssignmentClass = Class of TLicenseAssignment;
   
@@ -81,13 +70,13 @@ type
   
   TLicenseAssignmentInsert = Class(TGoogleBaseObject)
   Private
-    FuserId : string;
+    FuserId : String;
   Protected
     //Property setters
-    Procedure SetuserId(AIndex : Integer; AValue : string); virtual;
+    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property userId : string Index 0 Read FuserId Write SetuserId;
+    Property userId : String Index 0 Read FuserId Write SetuserId;
   end;
   TLicenseAssignmentInsertClass = Class of TLicenseAssignmentInsert;
   
@@ -97,38 +86,25 @@ type
   
   TLicenseAssignmentList = Class(TGoogleBaseObject)
   Private
-    Fetag : string;
-    Fitems : TLicenseAssignmentListitems;
-    Fkind : string;
-    FnextPageToken : string;
+    Fetag : String;
+    Fitems : TLicenseAssignmentListTypeitemsArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : string); virtual;
-    Procedure Setitems(AIndex : Integer; AValue : TLicenseAssignmentListitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property etag : string Index 0 Read Fetag Write Setetag;
-    Property items : TLicenseAssignmentListitems Index 8 Read Fitems Write Setitems;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 24 Read FnextPageToken Write SetnextPageToken;
+    Property etag : String Index 0 Read Fetag Write Setetag;
+    Property items : TLicenseAssignmentListTypeitemsArray Index 8 Read Fitems Write Setitems;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TLicenseAssignmentListClass = Class of TLicenseAssignmentList;
   
-  { --------------------------------------------------------------------
-    TLicenseAssignmentListitems
-    --------------------------------------------------------------------}
-  
-  TLicenseAssignmentListitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TLicenseAssignmentListitemsClass = Class of TLicenseAssignmentListitems;
-  
   { --------------------------------------------------------------------
     TLicenseAssignmentsResource
     --------------------------------------------------------------------}
@@ -137,18 +113,18 @@ type
   //Optional query Options for TLicenseAssignmentsResource, method ListForProduct
   
   TLicenseAssignmentsListForProductOptions = Record
-    customerId : string;
+    customerId : String;
     maxResults : integer;
-    pageToken : string;
+    pageToken : String;
   end;
   
   
   //Optional query Options for TLicenseAssignmentsResource, method ListForProductAndSku
   
   TLicenseAssignmentsListForProductAndSkuOptions = Record
-    customerId : string;
+    customerId : String;
     maxResults : integer;
-    pageToken : string;
+    pageToken : String;
   end;
   
   TLicenseAssignmentsResource = Class(TGoogleResource)
@@ -212,7 +188,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignment.Setetags(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.Setetags(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetags=AValue) then exit;
@@ -222,7 +198,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -232,7 +208,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetproductId(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.SetproductId(AIndex : Integer; AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -242,7 +218,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -252,7 +228,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetskuId(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.SetskuId(AIndex : Integer; AValue : String); 
 
 begin
   If (FskuId=AValue) then exit;
@@ -262,7 +238,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetuserId(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignment.SetuserId(AIndex : Integer; AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -279,7 +255,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -296,7 +272,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -306,7 +282,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; AValue : TLicenseAssignmentListitems); 
+Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -316,7 +292,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -326,7 +302,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -338,13 +314,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TLicenseAssignmentListitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TLicenseAssignmentsResource
   --------------------------------------------------------------------}
@@ -624,7 +593,6 @@ begin
   TLicenseAssignment.RegisterObject;
   TLicenseAssignmentInsert.RegisterObject;
   TLicenseAssignmentList.RegisterObject;
-  TLicenseAssignmentListitems.RegisterObject;
 end;
 
 

packages/googleapi/src/googleoauth2.pp

@@ -1,31 +1,19 @@
 unit googleoauth2;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:56
 {$MODE objfpc}
 {$H+}
 
@@ -34,62 +22,64 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TJwk = class;
-  TJwkArray = Array of TJwk;
-  TJwkkeys = class;
-  TJwkkeysArray = Array of TJwkkeys;
   TTokeninfo = class;
-  TTokeninfoArray = Array of TTokeninfo;
   TUserinfoplus = class;
+  TJwkArray = Array of TJwk;
+  TTokeninfoArray = Array of TTokeninfo;
   TUserinfoplusArray = Array of TUserinfoplus;
+  //Anonymous types, using auto-generated names
+  TJwkTypekeysItem = class;
+  TJwkTypekeysArray = Array of TJwkTypekeysItem;
   
   { --------------------------------------------------------------------
-    TJwk
+    TJwkTypekeysItem
     --------------------------------------------------------------------}
   
-  TJwk = Class(TGoogleBaseObject)
+  TJwkTypekeysItem = Class(TGoogleBaseObject)
   Private
-    Fkeys : TJwkkeys;
+    Falg : String;
+    Fe : String;
+    Fkid : String;
+    Fkty : String;
+    Fn : String;
+    Fuse : String;
   Protected
     //Property setters
-    Procedure Setkeys(AIndex : Integer; AValue : TJwkkeys); virtual;
+    Procedure Setalg(AIndex : Integer; AValue : String); virtual;
+    Procedure Sete(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkty(AIndex : Integer; AValue : String); virtual;
+    Procedure Setn(AIndex : Integer; AValue : String); virtual;
+    Procedure Setuse(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property keys : TJwkkeys Index 0 Read Fkeys Write Setkeys;
+    Property alg : String Index 0 Read Falg Write Setalg;
+    Property e : String Index 8 Read Fe Write Sete;
+    Property kid : String Index 16 Read Fkid Write Setkid;
+    Property kty : String Index 24 Read Fkty Write Setkty;
+    Property n : String Index 32 Read Fn Write Setn;
+    Property use : String Index 40 Read Fuse Write Setuse;
   end;
-  TJwkClass = Class of TJwk;
+  TJwkTypekeysItemClass = Class of TJwkTypekeysItem;
   
   { --------------------------------------------------------------------
-    TJwkkeys
+    TJwk
     --------------------------------------------------------------------}
   
-  TJwkkeys = Class(TGoogleBaseObject)
+  TJwk = Class(TGoogleBaseObject)
   Private
-    Falg : string;
-    Fe : string;
-    Fkid : string;
-    Fkty : string;
-    Fn : string;
-    Fuse : string;
+    Fkeys : TJwkTypekeysArray;
   Protected
     //Property setters
-    Procedure Setalg(AIndex : Integer; AValue : string); virtual;
-    Procedure Sete(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkty(AIndex : Integer; AValue : string); virtual;
-    Procedure Setn(AIndex : Integer; AValue : string); virtual;
-    Procedure Setuse(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkeys(AIndex : Integer; AValue : TJwkTypekeysArray); virtual;
   Public
   Published
-    Property alg : string Index 0 Read Falg Write Setalg;
-    Property e : string Index 8 Read Fe Write Sete;
-    Property kid : string Index 16 Read Fkid Write Setkid;
-    Property kty : string Index 24 Read Fkty Write Setkty;
-    Property n : string Index 32 Read Fn Write Setn;
-    Property use : string Index 40 Read Fuse Write Setuse;
+    Property keys : TJwkTypekeysArray Index 0 Read Fkeys Write Setkeys;
   end;
-  TJwkkeysClass = Class of TJwkkeys;
+  TJwkClass = Class of TJwk;
   
   { --------------------------------------------------------------------
     TTokeninfo
@@ -97,36 +87,36 @@ type
   
   TTokeninfo = Class(TGoogleBaseObject)
   Private
-    Faccess_type : string;
-    Faudience : string;
-    Femail : string;
+    Faccess_type : String;
+    Faudience : String;
+    Femail : String;
     Fexpires_in : integer;
-    Fissued_to : string;
-    Fscope : string;
-    Ftoken_handle : string;
-    Fuser_id : string;
+    Fissued_to : String;
+    Fscope : String;
+    Ftoken_handle : String;
+    Fuser_id : String;
     Fverified_email : boolean;
   Protected
     //Property setters
-    Procedure Setaccess_type(AIndex : Integer; AValue : string); virtual;
-    Procedure Setaudience(AIndex : Integer; AValue : string); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : string); virtual;
+    Procedure Setaccess_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setaudience(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
     Procedure Setexpires_in(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setissued_to(AIndex : Integer; AValue : string); virtual;
-    Procedure Setscope(AIndex : Integer; AValue : string); virtual;
-    Procedure Settoken_handle(AIndex : Integer; AValue : string); virtual;
-    Procedure Setuser_id(AIndex : Integer; AValue : string); virtual;
+    Procedure Setissued_to(AIndex : Integer; AValue : String); virtual;
+    Procedure Setscope(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken_handle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setuser_id(AIndex : Integer; AValue : String); virtual;
     Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
-    Property access_type : string Index 0 Read Faccess_type Write Setaccess_type;
-    Property audience : string Index 8 Read Faudience Write Setaudience;
-    Property email : string Index 16 Read Femail Write Setemail;
+    Property access_type : String Index 0 Read Faccess_type Write Setaccess_type;
+    Property audience : String Index 8 Read Faudience Write Setaudience;
+    Property email : String Index 16 Read Femail Write Setemail;
     Property expires_in : integer Index 24 Read Fexpires_in Write Setexpires_in;
-    Property issued_to : string Index 32 Read Fissued_to Write Setissued_to;
-    Property scope : string Index 40 Read Fscope Write Setscope;
-    Property token_handle : string Index 48 Read Ftoken_handle Write Settoken_handle;
-    Property user_id : string Index 56 Read Fuser_id Write Setuser_id;
+    Property issued_to : String Index 32 Read Fissued_to Write Setissued_to;
+    Property scope : String Index 40 Read Fscope Write Setscope;
+    Property token_handle : String Index 48 Read Ftoken_handle Write Settoken_handle;
+    Property user_id : String Index 56 Read Fuser_id Write Setuser_id;
     Property verified_email : boolean Index 64 Read Fverified_email Write Setverified_email;
   end;
   TTokeninfoClass = Class of TTokeninfo;
@@ -137,42 +127,42 @@ type
   
   TUserinfoplus = Class(TGoogleBaseObject)
   Private
-    Femail : string;
-    Ffamily_name : string;
-    Fgender : string;
-    Fgiven_name : string;
-    Fhd : string;
-    Fid : string;
-    Flink : string;
-    Flocale : string;
-    Fname : string;
-    Fpicture : string;
+    Femail : String;
+    Ffamily_name : String;
+    Fgender : String;
+    Fgiven_name : String;
+    Fhd : String;
+    Fid : String;
+    Flink : String;
+    Flocale : String;
+    Fname : String;
+    Fpicture : String;
     Fverified_email : boolean;
   Protected
     //Property setters
-    Procedure Setemail(AIndex : Integer; AValue : string); virtual;
-    Procedure Setfamily_name(AIndex : Integer; AValue : string); virtual;
-    Procedure Setgender(AIndex : Integer; AValue : string); virtual;
-    Procedure Setgiven_name(AIndex : Integer; AValue : string); virtual;
-    Procedure Sethd(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : string); virtual;
-    Procedure Setlocale(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
-    Procedure Setpicture(AIndex : Integer; AValue : string); virtual;
+    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfamily_name(AIndex : Integer; AValue : String); virtual;
+    Procedure Setgender(AIndex : Integer; AValue : String); virtual;
+    Procedure Setgiven_name(AIndex : Integer; AValue : String); virtual;
+    Procedure Sethd(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpicture(AIndex : Integer; AValue : String); virtual;
     Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
-    Property email : string Index 0 Read Femail Write Setemail;
-    Property family_name : string Index 8 Read Ffamily_name Write Setfamily_name;
-    Property gender : string Index 16 Read Fgender Write Setgender;
-    Property given_name : string Index 24 Read Fgiven_name Write Setgiven_name;
-    Property hd : string Index 32 Read Fhd Write Sethd;
-    Property id : string Index 40 Read Fid Write Setid;
-    Property link : string Index 48 Read Flink Write Setlink;
-    Property locale : string Index 56 Read Flocale Write Setlocale;
-    Property name : string Index 64 Read Fname Write Setname;
-    Property picture : string Index 72 Read Fpicture Write Setpicture;
+    Property email : String Index 0 Read Femail Write Setemail;
+    Property family_name : String Index 8 Read Ffamily_name Write Setfamily_name;
+    Property gender : String Index 16 Read Fgender Write Setgender;
+    Property given_name : String Index 24 Read Fgiven_name Write Setgiven_name;
+    Property hd : String Index 32 Read Fhd Write Sethd;
+    Property id : String Index 40 Read Fid Write Setid;
+    Property link : String Index 48 Read Flink Write Setlink;
+    Property locale : String Index 56 Read Flocale Write Setlocale;
+    Property name : String Index 64 Read Fname Write Setname;
+    Property picture : String Index 72 Read Fpicture Write Setpicture;
     Property verified_email : boolean Index 80 Read Fverified_email Write Setverified_email;
   end;
   TUserinfoplusClass = Class of TUserinfoplus;
@@ -230,28 +220,11 @@ implementation
 
 
 { --------------------------------------------------------------------
-  TJwk
-  --------------------------------------------------------------------}
-
-
-Procedure TJwk.Setkeys(AIndex : Integer; AValue : TJwkkeys); 
-
-begin
-  If (Fkeys=AValue) then exit;
-  Fkeys:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
-  TJwkkeys
+  TJwkTypekeysItem
   --------------------------------------------------------------------}
 
 
-Procedure TJwkkeys.Setalg(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; AValue : String); 
 
 begin
   If (Falg=AValue) then exit;
@@ -261,7 +234,7 @@ end;
 
 
 
-Procedure TJwkkeys.Sete(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Sete(AIndex : Integer; AValue : String); 
 
 begin
   If (Fe=AValue) then exit;
@@ -271,7 +244,7 @@ end;
 
 
 
-Procedure TJwkkeys.Setkid(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkid=AValue) then exit;
@@ -281,7 +254,7 @@ end;
 
 
 
-Procedure TJwkkeys.Setkty(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkty=AValue) then exit;
@@ -291,7 +264,7 @@ end;
 
 
 
-Procedure TJwkkeys.Setn(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Setn(AIndex : Integer; AValue : String); 
 
 begin
   If (Fn=AValue) then exit;
@@ -301,7 +274,7 @@ end;
 
 
 
-Procedure TJwkkeys.Setuse(AIndex : Integer; AValue : string); 
+Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; AValue : String); 
 
 begin
   If (Fuse=AValue) then exit;
@@ -313,12 +286,29 @@ end;
 
 
 
+{ --------------------------------------------------------------------
+  TJwk
+  --------------------------------------------------------------------}
+
+
+Procedure TJwk.Setkeys(AIndex : Integer; AValue : TJwkTypekeysArray); 
+
+begin
+  If (Fkeys=AValue) then exit;
+  Fkeys:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
 { --------------------------------------------------------------------
   TTokeninfo
   --------------------------------------------------------------------}
 
 
-Procedure TTokeninfo.Setaccess_type(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setaccess_type(AIndex : Integer; AValue : String); 
 
 begin
   If (Faccess_type=AValue) then exit;
@@ -328,7 +318,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setaudience(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setaudience(AIndex : Integer; AValue : String); 
 
 begin
   If (Faudience=AValue) then exit;
@@ -338,7 +328,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setemail(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setemail(AIndex : Integer; AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -358,7 +348,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setissued_to(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setissued_to(AIndex : Integer; AValue : String); 
 
 begin
   If (Fissued_to=AValue) then exit;
@@ -368,7 +358,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setscope(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setscope(AIndex : Integer; AValue : String); 
 
 begin
   If (Fscope=AValue) then exit;
@@ -378,7 +368,7 @@ end;
 
 
 
-Procedure TTokeninfo.Settoken_handle(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Settoken_handle(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftoken_handle=AValue) then exit;
@@ -388,7 +378,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setuser_id(AIndex : Integer; AValue : string); 
+Procedure TTokeninfo.Setuser_id(AIndex : Integer; AValue : String); 
 
 begin
   If (Fuser_id=AValue) then exit;
@@ -415,7 +405,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserinfoplus.Setemail(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setemail(AIndex : Integer; AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -425,7 +415,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; AValue : String); 
 
 begin
   If (Ffamily_name=AValue) then exit;
@@ -435,7 +425,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgender(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setgender(AIndex : Integer; AValue : String); 
 
 begin
   If (Fgender=AValue) then exit;
@@ -445,7 +435,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; AValue : String); 
 
 begin
   If (Fgiven_name=AValue) then exit;
@@ -455,7 +445,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Sethd(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Sethd(AIndex : Integer; AValue : String); 
 
 begin
   If (Fhd=AValue) then exit;
@@ -465,7 +455,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setid(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -475,7 +465,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlink(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setlink(AIndex : Integer; AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -485,7 +475,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlocale(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setlocale(AIndex : Integer; AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -495,7 +485,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setname(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -505,7 +495,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setpicture(AIndex : Integer; AValue : string); 
+Procedure TUserinfoplus.Setpicture(AIndex : Integer; AValue : String); 
 
 begin
   If (Fpicture=AValue) then exit;
@@ -687,8 +677,8 @@ end;
 Class Procedure TOauth2API.RegisterAPIResources;
 
 begin
+  TJwkTypekeysItem.RegisterObject;
   TJwk.RegisterObject;
-  TJwkkeys.RegisterObject;
   TTokeninfo.RegisterObject;
   TUserinfoplus.RegisterObject;
 end;

packages/googleapi/src/googlepubsub.pp

@@ -1,31 +1,19 @@
 unit googlepubsub;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:57
 {$MODE objfpc}
 {$H+}
 
@@ -34,57 +22,47 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TAcknowledgeRequest = class;
-  TAcknowledgeRequestArray = Array of TAcknowledgeRequest;
-  TAcknowledgeRequestackIds = class;
-  TAcknowledgeRequestackIdsArray = Array of TAcknowledgeRequestackIds;
   TEmpty = class;
-  TEmptyArray = Array of TEmpty;
   TListSubscriptionsResponse = class;
-  TListSubscriptionsResponseArray = Array of TListSubscriptionsResponse;
-  TListSubscriptionsResponsesubscriptions = class;
-  TListSubscriptionsResponsesubscriptionsArray = Array of TListSubscriptionsResponsesubscriptions;
   TListTopicSubscriptionsResponse = class;
-  TListTopicSubscriptionsResponseArray = Array of TListTopicSubscriptionsResponse;
-  TListTopicSubscriptionsResponsesubscriptions = class;
-  TListTopicSubscriptionsResponsesubscriptionsArray = Array of TListTopicSubscriptionsResponsesubscriptions;
   TListTopicsResponse = class;
-  TListTopicsResponseArray = Array of TListTopicsResponse;
-  TListTopicsResponsetopics = class;
-  TListTopicsResponsetopicsArray = Array of TListTopicsResponsetopics;
   TModifyAckDeadlineRequest = class;
-  TModifyAckDeadlineRequestArray = Array of TModifyAckDeadlineRequest;
   TModifyPushConfigRequest = class;
-  TModifyPushConfigRequestArray = Array of TModifyPushConfigRequest;
   TPublishRequest = class;
-  TPublishRequestArray = Array of TPublishRequest;
-  TPublishRequestmessages = class;
-  TPublishRequestmessagesArray = Array of TPublishRequestmessages;
   TPublishResponse = class;
-  TPublishResponseArray = Array of TPublishResponse;
-  TPublishResponsemessageIds = class;
-  TPublishResponsemessageIdsArray = Array of TPublishResponsemessageIds;
   TPubsubMessage = class;
-  TPubsubMessageArray = Array of TPubsubMessage;
-  TPubsubMessageattributes = class;
-  TPubsubMessageattributesArray = Array of TPubsubMessageattributes;
   TPullRequest = class;
-  TPullRequestArray = Array of TPullRequest;
   TPullResponse = class;
-  TPullResponseArray = Array of TPullResponse;
-  TPullResponsereceivedMessages = class;
-  TPullResponsereceivedMessagesArray = Array of TPullResponsereceivedMessages;
   TPushConfig = class;
-  TPushConfigArray = Array of TPushConfig;
-  TPushConfigattributes = class;
-  TPushConfigattributesArray = Array of TPushConfigattributes;
   TReceivedMessage = class;
-  TReceivedMessageArray = Array of TReceivedMessage;
   TSubscription = class;
-  TSubscriptionArray = Array of TSubscription;
   TTopic = class;
+  TAcknowledgeRequestArray = Array of TAcknowledgeRequest;
+  TEmptyArray = Array of TEmpty;
+  TListSubscriptionsResponseArray = Array of TListSubscriptionsResponse;
+  TListTopicSubscriptionsResponseArray = Array of TListTopicSubscriptionsResponse;
+  TListTopicsResponseArray = Array of TListTopicsResponse;
+  TModifyAckDeadlineRequestArray = Array of TModifyAckDeadlineRequest;
+  TModifyPushConfigRequestArray = Array of TModifyPushConfigRequest;
+  TPublishRequestArray = Array of TPublishRequest;
+  TPublishResponseArray = Array of TPublishResponse;
+  TPubsubMessageArray = Array of TPubsubMessage;
+  TPullRequestArray = Array of TPullRequest;
+  TPullResponseArray = Array of TPullResponse;
+  TPushConfigArray = Array of TPushConfig;
+  TReceivedMessageArray = Array of TReceivedMessage;
+  TSubscriptionArray = Array of TSubscription;
   TTopicArray = Array of TTopic;
+  //Anonymous types, using auto-generated names
+  TPubsubMessageTypeattributes = class;
+  TPushConfigTypeattributes = class;
+  TListSubscriptionsResponseTypesubscriptionsArray = Array of TSubscription;
+  TListTopicsResponseTypetopicsArray = Array of TTopic;
+  TPublishRequestTypemessagesArray = Array of TPubsubMessage;
+  TPullResponseTypereceivedMessagesArray = Array of TReceivedMessage;
   
   { --------------------------------------------------------------------
     TAcknowledgeRequest
@@ -92,29 +70,16 @@ type
   
   TAcknowledgeRequest = Class(TGoogleBaseObject)
   Private
-    FackIds : TAcknowledgeRequestackIds;
+    FackIds : TStringArray;
   Protected
     //Property setters
-    Procedure SetackIds(AIndex : Integer; AValue : TAcknowledgeRequestackIds); virtual;
+    Procedure SetackIds(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property ackIds : TAcknowledgeRequestackIds Index 0 Read FackIds Write SetackIds;
+    Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
   end;
   TAcknowledgeRequestClass = Class of TAcknowledgeRequest;
   
-  { --------------------------------------------------------------------
-    TAcknowledgeRequestackIds
-    --------------------------------------------------------------------}
-  
-  TAcknowledgeRequestackIds = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAcknowledgeRequestackIdsClass = Class of TAcknowledgeRequestackIds;
-  
   { --------------------------------------------------------------------
     TEmpty
     --------------------------------------------------------------------}
@@ -134,96 +99,57 @@ type
   
   TListSubscriptionsResponse = Class(TGoogleBaseObject)
   Private
-    FnextPageToken : string;
-    Fsubscriptions : TListSubscriptionsResponsesubscriptions;
+    FnextPageToken : String;
+    Fsubscriptions : TListSubscriptionsResponseTypesubscriptionsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
-    Procedure Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponsesubscriptions); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray); virtual;
   Public
   Published
-    Property nextPageToken : string Index 0 Read FnextPageToken Write SetnextPageToken;
-    Property subscriptions : TListSubscriptionsResponsesubscriptions Index 8 Read Fsubscriptions Write Setsubscriptions;
+    Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+    Property subscriptions : TListSubscriptionsResponseTypesubscriptionsArray Index 8 Read Fsubscriptions Write Setsubscriptions;
   end;
   TListSubscriptionsResponseClass = Class of TListSubscriptionsResponse;
   
-  { --------------------------------------------------------------------
-    TListSubscriptionsResponsesubscriptions
-    --------------------------------------------------------------------}
-  
-  TListSubscriptionsResponsesubscriptions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListSubscriptionsResponsesubscriptionsClass = Class of TListSubscriptionsResponsesubscriptions;
-  
   { --------------------------------------------------------------------
     TListTopicSubscriptionsResponse
     --------------------------------------------------------------------}
   
   TListTopicSubscriptionsResponse = Class(TGoogleBaseObject)
   Private
-    FnextPageToken : string;
-    Fsubscriptions : TListTopicSubscriptionsResponsesubscriptions;
+    FnextPageToken : String;
+    Fsubscriptions : TStringArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
-    Procedure Setsubscriptions(AIndex : Integer; AValue : TListTopicSubscriptionsResponsesubscriptions); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsubscriptions(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property nextPageToken : string Index 0 Read FnextPageToken Write SetnextPageToken;
-    Property subscriptions : TListTopicSubscriptionsResponsesubscriptions Index 8 Read Fsubscriptions Write Setsubscriptions;
+    Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+    Property subscriptions : TStringArray Index 8 Read Fsubscriptions Write Setsubscriptions;
   end;
   TListTopicSubscriptionsResponseClass = Class of TListTopicSubscriptionsResponse;
   
-  { --------------------------------------------------------------------
-    TListTopicSubscriptionsResponsesubscriptions
-    --------------------------------------------------------------------}
-  
-  TListTopicSubscriptionsResponsesubscriptions = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListTopicSubscriptionsResponsesubscriptionsClass = Class of TListTopicSubscriptionsResponsesubscriptions;
-  
   { --------------------------------------------------------------------
     TListTopicsResponse
     --------------------------------------------------------------------}
   
   TListTopicsResponse = Class(TGoogleBaseObject)
   Private
-    FnextPageToken : string;
-    Ftopics : TListTopicsResponsetopics;
+    FnextPageToken : String;
+    Ftopics : TListTopicsResponseTypetopicsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
-    Procedure Settopics(AIndex : Integer; AValue : TListTopicsResponsetopics); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray); virtual;
   Public
   Published
-    Property nextPageToken : string Index 0 Read FnextPageToken Write SetnextPageToken;
-    Property topics : TListTopicsResponsetopics Index 8 Read Ftopics Write Settopics;
+    Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+    Property topics : TListTopicsResponseTypetopicsArray Index 8 Read Ftopics Write Settopics;
   end;
   TListTopicsResponseClass = Class of TListTopicsResponse;
   
-  { --------------------------------------------------------------------
-    TListTopicsResponsetopics
-    --------------------------------------------------------------------}
-  
-  TListTopicsResponsetopics = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TListTopicsResponsetopicsClass = Class of TListTopicsResponsetopics;
-  
   { --------------------------------------------------------------------
     TModifyAckDeadlineRequest
     --------------------------------------------------------------------}
@@ -231,15 +157,15 @@ type
   TModifyAckDeadlineRequest = Class(TGoogleBaseObject)
   Private
     FackDeadlineSeconds : integer;
-    FackId : string;
+    FackId : String;
   Protected
     //Property setters
     Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetackId(AIndex : Integer; AValue : string); virtual;
+    Procedure SetackId(AIndex : Integer; AValue : String); virtual;
   Public
   Published
     Property ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
-    Property ackId : string Index 8 Read FackId Write SetackId;
+    Property ackId : String Index 8 Read FackId Write SetackId;
   end;
   TModifyAckDeadlineRequestClass = Class of TModifyAckDeadlineRequest;
   
@@ -265,57 +191,45 @@ type
   
   TPublishRequest = Class(TGoogleBaseObject)
   Private
-    Fmessages : TPublishRequestmessages;
+    Fmessages : TPublishRequestTypemessagesArray;
   Protected
     //Property setters
-    Procedure Setmessages(AIndex : Integer; AValue : TPublishRequestmessages); virtual;
+    Procedure Setmessages(AIndex : Integer; AValue : TPublishRequestTypemessagesArray); virtual;
   Public
   Published
-    Property messages : TPublishRequestmessages Index 0 Read Fmessages Write Setmessages;
+    Property messages : TPublishRequestTypemessagesArray Index 0 Read Fmessages Write Setmessages;
   end;
   TPublishRequestClass = Class of TPublishRequest;
   
-  { --------------------------------------------------------------------
-    TPublishRequestmessages
-    --------------------------------------------------------------------}
-  
-  TPublishRequestmessages = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TPublishRequestmessagesClass = Class of TPublishRequestmessages;
-  
   { --------------------------------------------------------------------
     TPublishResponse
     --------------------------------------------------------------------}
   
   TPublishResponse = Class(TGoogleBaseObject)
   Private
-    FmessageIds : TPublishResponsemessageIds;
+    FmessageIds : TStringArray;
   Protected
     //Property setters
-    Procedure SetmessageIds(AIndex : Integer; AValue : TPublishResponsemessageIds); virtual;
+    Procedure SetmessageIds(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property messageIds : TPublishResponsemessageIds Index 0 Read FmessageIds Write SetmessageIds;
+    Property messageIds : TStringArray Index 0 Read FmessageIds Write SetmessageIds;
   end;
   TPublishResponseClass = Class of TPublishResponse;
   
   { --------------------------------------------------------------------
-    TPublishResponsemessageIds
+    TPubsubMessageTypeattributes
     --------------------------------------------------------------------}
   
-  TPublishResponsemessageIds = Class(TGoogleBaseObject)
+  TPubsubMessageTypeattributes = Class(TGoogleBaseObject)
   Private
   Protected
     //Property setters
   Public
+    Class Function AllowAdditionalProperties : Boolean; override;
   Published
   end;
-  TPublishResponsemessageIdsClass = Class of TPublishResponsemessageIds;
+  TPubsubMessageTypeattributesClass = Class of TPubsubMessageTypeattributes;
   
   { --------------------------------------------------------------------
     TPubsubMessage
@@ -323,36 +237,22 @@ type
   
   TPubsubMessage = Class(TGoogleBaseObject)
   Private
-    Fattributes : TPubsubMessageattributes;
-    Fdata : string;
-    FmessageId : string;
+    Fattributes : TPubsubMessageTypeattributes;
+    Fdata : String;
+    FmessageId : String;
   Protected
     //Property setters
-    Procedure Setattributes(AIndex : Integer; AValue : TPubsubMessageattributes); virtual;
-    Procedure Setdata(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmessageId(AIndex : Integer; AValue : string); virtual;
+    Procedure Setattributes(AIndex : Integer; AValue : TPubsubMessageTypeattributes); virtual;
+    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmessageId(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property attributes : TPubsubMessageattributes Index 0 Read Fattributes Write Setattributes;
-    Property data : string Index 8 Read Fdata Write Setdata;
-    Property messageId : string Index 16 Read FmessageId Write SetmessageId;
+    Property attributes : TPubsubMessageTypeattributes Index 0 Read Fattributes Write Setattributes;
+    Property data : String Index 8 Read Fdata Write Setdata;
+    Property messageId : String Index 16 Read FmessageId Write SetmessageId;
   end;
   TPubsubMessageClass = Class of TPubsubMessage;
   
-  { --------------------------------------------------------------------
-    TPubsubMessageattributes
-    --------------------------------------------------------------------}
-  
-  TPubsubMessageattributes = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-    Class Function AllowAdditionalProperties : Boolean; override;
-  Published
-  end;
-  TPubsubMessageattributesClass = Class of TPubsubMessageattributes;
-  
   { --------------------------------------------------------------------
     TPullRequest
     --------------------------------------------------------------------}
@@ -378,28 +278,29 @@ type
   
   TPullResponse = Class(TGoogleBaseObject)
   Private
-    FreceivedMessages : TPullResponsereceivedMessages;
+    FreceivedMessages : TPullResponseTypereceivedMessagesArray;
   Protected
     //Property setters
-    Procedure SetreceivedMessages(AIndex : Integer; AValue : TPullResponsereceivedMessages); virtual;
+    Procedure SetreceivedMessages(AIndex : Integer; AValue : TPullResponseTypereceivedMessagesArray); virtual;
   Public
   Published
-    Property receivedMessages : TPullResponsereceivedMessages Index 0 Read FreceivedMessages Write SetreceivedMessages;
+    Property receivedMessages : TPullResponseTypereceivedMessagesArray Index 0 Read FreceivedMessages Write SetreceivedMessages;
   end;
   TPullResponseClass = Class of TPullResponse;
   
   { --------------------------------------------------------------------
-    TPullResponsereceivedMessages
+    TPushConfigTypeattributes
     --------------------------------------------------------------------}
   
-  TPullResponsereceivedMessages = Class(TGoogleBaseObject)
+  TPushConfigTypeattributes = Class(TGoogleBaseObject)
   Private
   Protected
     //Property setters
   Public
+    Class Function AllowAdditionalProperties : Boolean; override;
   Published
   end;
-  TPullResponsereceivedMessagesClass = Class of TPullResponsereceivedMessages;
+  TPushConfigTypeattributesClass = Class of TPushConfigTypeattributes;
   
   { --------------------------------------------------------------------
     TPushConfig
@@ -407,48 +308,34 @@ type
   
   TPushConfig = Class(TGoogleBaseObject)
   Private
-    Fattributes : TPushConfigattributes;
-    FpushEndpoint : string;
+    Fattributes : TPushConfigTypeattributes;
+    FpushEndpoint : String;
   Protected
     //Property setters
-    Procedure Setattributes(AIndex : Integer; AValue : TPushConfigattributes); virtual;
-    Procedure SetpushEndpoint(AIndex : Integer; AValue : string); virtual;
+    Procedure Setattributes(AIndex : Integer; AValue : TPushConfigTypeattributes); virtual;
+    Procedure SetpushEndpoint(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property attributes : TPushConfigattributes Index 0 Read Fattributes Write Setattributes;
-    Property pushEndpoint : string Index 8 Read FpushEndpoint Write SetpushEndpoint;
+    Property attributes : TPushConfigTypeattributes Index 0 Read Fattributes Write Setattributes;
+    Property pushEndpoint : String Index 8 Read FpushEndpoint Write SetpushEndpoint;
   end;
   TPushConfigClass = Class of TPushConfig;
   
-  { --------------------------------------------------------------------
-    TPushConfigattributes
-    --------------------------------------------------------------------}
-  
-  TPushConfigattributes = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-    Class Function AllowAdditionalProperties : Boolean; override;
-  Published
-  end;
-  TPushConfigattributesClass = Class of TPushConfigattributes;
-  
   { --------------------------------------------------------------------
     TReceivedMessage
     --------------------------------------------------------------------}
   
   TReceivedMessage = Class(TGoogleBaseObject)
   Private
-    FackId : string;
+    FackId : String;
     Fmessage : TPubsubMessage;
   Protected
     //Property setters
-    Procedure SetackId(AIndex : Integer; AValue : string); virtual;
+    Procedure SetackId(AIndex : Integer; AValue : String); virtual;
     Procedure Setmessage(AIndex : Integer; AValue : TPubsubMessage); virtual;
   Public
   Published
-    Property ackId : string Index 0 Read FackId Write SetackId;
+    Property ackId : String Index 0 Read FackId Write SetackId;
     Property message : TPubsubMessage Index 8 Read Fmessage Write Setmessage;
   end;
   TReceivedMessageClass = Class of TReceivedMessage;
@@ -460,21 +347,21 @@ type
   TSubscription = Class(TGoogleBaseObject)
   Private
     FackDeadlineSeconds : integer;
-    Fname : string;
+    Fname : String;
     FpushConfig : TPushConfig;
-    Ftopic : string;
+    Ftopic : String;
   Protected
     //Property setters
     Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetpushConfig(AIndex : Integer; AValue : TPushConfig); virtual;
-    Procedure Settopic(AIndex : Integer; AValue : string); virtual;
+    Procedure Settopic(AIndex : Integer; AValue : String); virtual;
   Public
   Published
     Property ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
-    Property name : string Index 8 Read Fname Write Setname;
+    Property name : String Index 8 Read Fname Write Setname;
     Property pushConfig : TPushConfig Index 16 Read FpushConfig Write SetpushConfig;
-    Property topic : string Index 24 Read Ftopic Write Settopic;
+    Property topic : String Index 24 Read Ftopic Write Settopic;
   end;
   TSubscriptionClass = Class of TSubscription;
   
@@ -484,13 +371,13 @@ type
   
   TTopic = Class(TGoogleBaseObject)
   Private
-    Fname : string;
+    Fname : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property name : string Index 0 Read Fname Write Setname;
+    Property name : String Index 0 Read Fname Write Setname;
   end;
   TTopicClass = Class of TTopic;
   
@@ -550,7 +437,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; AValue : TAcknowledgeRequestackIds); 
+Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FackIds=AValue) then exit;
@@ -562,13 +449,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TAcknowledgeRequestackIds
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TEmpty
   --------------------------------------------------------------------}
@@ -581,7 +461,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -591,7 +471,7 @@ end;
 
 
 
-Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponsesubscriptions); 
+Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray); 
 
 begin
   If (Fsubscriptions=AValue) then exit;
@@ -603,19 +483,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListSubscriptionsResponsesubscriptions
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListTopicSubscriptionsResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -625,7 +498,7 @@ end;
 
 
 
-Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TListTopicSubscriptionsResponsesubscriptions); 
+Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (Fsubscriptions=AValue) then exit;
@@ -637,19 +510,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListTopicSubscriptionsResponsesubscriptions
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TListTopicsResponse
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -659,7 +525,7 @@ end;
 
 
 
-Procedure TListTopicsResponse.Settopics(AIndex : Integer; AValue : TListTopicsResponsetopics); 
+Procedure TListTopicsResponse.Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray); 
 
 begin
   If (Ftopics=AValue) then exit;
@@ -671,13 +537,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TListTopicsResponsetopics
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TModifyAckDeadlineRequest
   --------------------------------------------------------------------}
@@ -693,7 +552,7 @@ end;
 
 
 
-Procedure TModifyAckDeadlineRequest.SetackId(AIndex : Integer; AValue : string); 
+Procedure TModifyAckDeadlineRequest.SetackId(AIndex : Integer; AValue : String); 
 
 begin
   If (FackId=AValue) then exit;
@@ -727,7 +586,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPublishRequest.Setmessages(AIndex : Integer; AValue : TPublishRequestmessages); 
+Procedure TPublishRequest.Setmessages(AIndex : Integer; AValue : TPublishRequestTypemessagesArray); 
 
 begin
   If (Fmessages=AValue) then exit;
@@ -739,19 +598,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TPublishRequestmessages
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TPublishResponse
   --------------------------------------------------------------------}
 
 
-Procedure TPublishResponse.SetmessageIds(AIndex : Integer; AValue : TPublishResponsemessageIds); 
+Procedure TPublishResponse.SetmessageIds(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FmessageIds=AValue) then exit;
@@ -764,10 +616,16 @@ end;
 
 
 { --------------------------------------------------------------------
-  TPublishResponsemessageIds
+  TPubsubMessageTypeattributes
   --------------------------------------------------------------------}
 
 
+Class Function TPubsubMessageTypeattributes.AllowAdditionalProperties : Boolean;
+
+begin
+  Result:=True;
+end;
+
 
 
 { --------------------------------------------------------------------
@@ -775,7 +633,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPubsubMessage.Setattributes(AIndex : Integer; AValue : TPubsubMessageattributes); 
+Procedure TPubsubMessage.Setattributes(AIndex : Integer; AValue : TPubsubMessageTypeattributes); 
 
 begin
   If (Fattributes=AValue) then exit;
@@ -785,7 +643,7 @@ end;
 
 
 
-Procedure TPubsubMessage.Setdata(AIndex : Integer; AValue : string); 
+Procedure TPubsubMessage.Setdata(AIndex : Integer; AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -795,7 +653,7 @@ end;
 
 
 
-Procedure TPubsubMessage.SetmessageId(AIndex : Integer; AValue : string); 
+Procedure TPubsubMessage.SetmessageId(AIndex : Integer; AValue : String); 
 
 begin
   If (FmessageId=AValue) then exit;
@@ -807,19 +665,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TPubsubMessageattributes
-  --------------------------------------------------------------------}
-
-
-Class Function TPubsubMessageattributes.AllowAdditionalProperties : Boolean;
-
-begin
-  Result:=True;
-end;
-
-
-
 { --------------------------------------------------------------------
   TPullRequest
   --------------------------------------------------------------------}
@@ -852,7 +697,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; AValue : TPullResponsereceivedMessages); 
+Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; AValue : TPullResponseTypereceivedMessagesArray); 
 
 begin
   If (FreceivedMessages=AValue) then exit;
@@ -865,10 +710,16 @@ end;
 
 
 { --------------------------------------------------------------------
-  TPullResponsereceivedMessages
+  TPushConfigTypeattributes
   --------------------------------------------------------------------}
 
 
+Class Function TPushConfigTypeattributes.AllowAdditionalProperties : Boolean;
+
+begin
+  Result:=True;
+end;
+
 
 
 { --------------------------------------------------------------------
@@ -876,7 +727,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPushConfig.Setattributes(AIndex : Integer; AValue : TPushConfigattributes); 
+Procedure TPushConfig.Setattributes(AIndex : Integer; AValue : TPushConfigTypeattributes); 
 
 begin
   If (Fattributes=AValue) then exit;
@@ -886,7 +737,7 @@ end;
 
 
 
-Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; AValue : string); 
+Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; AValue : String); 
 
 begin
   If (FpushEndpoint=AValue) then exit;
@@ -898,25 +749,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TPushConfigattributes
-  --------------------------------------------------------------------}
-
-
-Class Function TPushConfigattributes.AllowAdditionalProperties : Boolean;
-
-begin
-  Result:=True;
-end;
-
-
-
 { --------------------------------------------------------------------
   TReceivedMessage
   --------------------------------------------------------------------}
 
 
-Procedure TReceivedMessage.SetackId(AIndex : Integer; AValue : string); 
+Procedure TReceivedMessage.SetackId(AIndex : Integer; AValue : String); 
 
 begin
   If (FackId=AValue) then exit;
@@ -953,7 +791,7 @@ end;
 
 
 
-Procedure TSubscription.Setname(AIndex : Integer; AValue : string); 
+Procedure TSubscription.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -973,7 +811,7 @@ end;
 
 
 
-Procedure TSubscription.Settopic(AIndex : Integer; AValue : string); 
+Procedure TSubscription.Settopic(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftopic=AValue) then exit;
@@ -990,7 +828,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTopic.Setname(AIndex : Integer; AValue : string); 
+Procedure TTopic.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1040,7 +878,7 @@ end;
 Class Function TPubsubAPI.APIRevision : String;
 
 begin
-  Result:='20150326';
+  Result:='20150427';
 end;
 
 Class Function TPubsubAPI.APIID : String;
@@ -1148,27 +986,20 @@ Class Procedure TPubsubAPI.RegisterAPIResources;
 
 begin
   TAcknowledgeRequest.RegisterObject;
-  TAcknowledgeRequestackIds.RegisterObject;
   TEmpty.RegisterObject;
   TListSubscriptionsResponse.RegisterObject;
-  TListSubscriptionsResponsesubscriptions.RegisterObject;
   TListTopicSubscriptionsResponse.RegisterObject;
-  TListTopicSubscriptionsResponsesubscriptions.RegisterObject;
   TListTopicsResponse.RegisterObject;
-  TListTopicsResponsetopics.RegisterObject;
   TModifyAckDeadlineRequest.RegisterObject;
   TModifyPushConfigRequest.RegisterObject;
   TPublishRequest.RegisterObject;
-  TPublishRequestmessages.RegisterObject;
   TPublishResponse.RegisterObject;
-  TPublishResponsemessageIds.RegisterObject;
+  TPubsubMessageTypeattributes.RegisterObject;
   TPubsubMessage.RegisterObject;
-  TPubsubMessageattributes.RegisterObject;
   TPullRequest.RegisterObject;
   TPullResponse.RegisterObject;
-  TPullResponsereceivedMessages.RegisterObject;
+  TPushConfigTypeattributes.RegisterObject;
   TPushConfig.RegisterObject;
-  TPushConfigattributes.RegisterObject;
   TReceivedMessage.RegisterObject;
   TSubscription.RegisterObject;
   TTopic.RegisterObject;

packages/googleapi/src/googlesiteVerification.pp

@@ -1,31 +1,19 @@
 unit googlesiteVerification;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:58
 {$MODE objfpc}
 {$H+}
 
@@ -34,62 +22,59 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TSiteVerificationWebResourceGettokenRequest = class;
-  TSiteVerificationWebResourceGettokenRequestArray = Array of TSiteVerificationWebResourceGettokenRequest;
-  TSiteVerificationWebResourceGettokenRequestsite = class;
-  TSiteVerificationWebResourceGettokenRequestsiteArray = Array of TSiteVerificationWebResourceGettokenRequestsite;
   TSiteVerificationWebResourceGettokenResponse = class;
-  TSiteVerificationWebResourceGettokenResponseArray = Array of TSiteVerificationWebResourceGettokenResponse;
   TSiteVerificationWebResourceListResponse = class;
-  TSiteVerificationWebResourceListResponseArray = Array of TSiteVerificationWebResourceListResponse;
-  TSiteVerificationWebResourceListResponseitems = class;
-  TSiteVerificationWebResourceListResponseitemsArray = Array of TSiteVerificationWebResourceListResponseitems;
   TSiteVerificationWebResourceResource = class;
+  TSiteVerificationWebResourceGettokenRequestArray = Array of TSiteVerificationWebResourceGettokenRequest;
+  TSiteVerificationWebResourceGettokenResponseArray = Array of TSiteVerificationWebResourceGettokenResponse;
+  TSiteVerificationWebResourceListResponseArray = Array of TSiteVerificationWebResourceListResponse;
   TSiteVerificationWebResourceResourceArray = Array of TSiteVerificationWebResourceResource;
-  TSiteVerificationWebResourceResourceowners = class;
-  TSiteVerificationWebResourceResourceownersArray = Array of TSiteVerificationWebResourceResourceowners;
-  TSiteVerificationWebResourceResourcesite = class;
-  TSiteVerificationWebResourceResourcesiteArray = Array of TSiteVerificationWebResourceResourcesite;
+  //Anonymous types, using auto-generated names
+  TSiteVerificationWebResourceGettokenRequestTypesite = class;
+  TSiteVerificationWebResourceResourceTypesite = class;
+  TSiteVerificationWebResourceListResponseTypeitemsArray = Array of TSiteVerificationWebResourceResource;
   
   { --------------------------------------------------------------------
-    TSiteVerificationWebResourceGettokenRequest
+    TSiteVerificationWebResourceGettokenRequestTypesite
     --------------------------------------------------------------------}
   
-  TSiteVerificationWebResourceGettokenRequest = Class(TGoogleBaseObject)
+  TSiteVerificationWebResourceGettokenRequestTypesite = Class(TGoogleBaseObject)
   Private
-    Fsite : TSiteVerificationWebResourceGettokenRequestsite;
-    FverificationMethod : string;
+    Fidentifier : String;
+    F_type : String;
   Protected
+    Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestsite); virtual;
-    Procedure SetverificationMethod(AIndex : Integer; AValue : string); virtual;
+    Procedure Setidentifier(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property site : TSiteVerificationWebResourceGettokenRequestsite Index 0 Read Fsite Write Setsite;
-    Property verificationMethod : string Index 8 Read FverificationMethod Write SetverificationMethod;
+    Property identifier : String Index 0 Read Fidentifier Write Setidentifier;
+    Property _type : String Index 8 Read F_type Write Set_type;
   end;
-  TSiteVerificationWebResourceGettokenRequestClass = Class of TSiteVerificationWebResourceGettokenRequest;
+  TSiteVerificationWebResourceGettokenRequestTypesiteClass = Class of TSiteVerificationWebResourceGettokenRequestTypesite;
   
   { --------------------------------------------------------------------
-    TSiteVerificationWebResourceGettokenRequestsite
+    TSiteVerificationWebResourceGettokenRequest
     --------------------------------------------------------------------}
   
-  TSiteVerificationWebResourceGettokenRequestsite = Class(TGoogleBaseObject)
+  TSiteVerificationWebResourceGettokenRequest = Class(TGoogleBaseObject)
   Private
-    Fidentifier : string;
-    F_type : string;
+    Fsite : TSiteVerificationWebResourceGettokenRequestTypesite;
+    FverificationMethod : String;
   Protected
-    Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setidentifier(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
+    Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestTypesite); virtual;
+    Procedure SetverificationMethod(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property identifier : string Index 0 Read Fidentifier Write Setidentifier;
-    Property _type : string Index 8 Read F_type Write Set_type;
+    Property site : TSiteVerificationWebResourceGettokenRequestTypesite Index 0 Read Fsite Write Setsite;
+    Property verificationMethod : String Index 8 Read FverificationMethod Write SetverificationMethod;
   end;
-  TSiteVerificationWebResourceGettokenRequestsiteClass = Class of TSiteVerificationWebResourceGettokenRequestsite;
+  TSiteVerificationWebResourceGettokenRequestClass = Class of TSiteVerificationWebResourceGettokenRequest;
   
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceGettokenResponse
@@ -97,16 +82,16 @@ type
   
   TSiteVerificationWebResourceGettokenResponse = Class(TGoogleBaseObject)
   Private
-    Fmethod : string;
-    Ftoken : string;
+    Fmethod : String;
+    Ftoken : String;
   Protected
     //Property setters
-    Procedure Setmethod(AIndex : Integer; AValue : string); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setmethod(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property method : string Index 0 Read Fmethod Write Setmethod;
-    Property token : string Index 8 Read Ftoken Write Settoken;
+    Property method : String Index 0 Read Fmethod Write Setmethod;
+    Property token : String Index 8 Read Ftoken Write Settoken;
   end;
   TSiteVerificationWebResourceGettokenResponseClass = Class of TSiteVerificationWebResourceGettokenResponse;
   
@@ -116,28 +101,35 @@ type
   
   TSiteVerificationWebResourceListResponse = Class(TGoogleBaseObject)
   Private
-    Fitems : TSiteVerificationWebResourceListResponseitems;
+    Fitems : TSiteVerificationWebResourceListResponseTypeitemsArray;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseitems); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); virtual;
   Public
   Published
-    Property items : TSiteVerificationWebResourceListResponseitems Index 0 Read Fitems Write Setitems;
+    Property items : TSiteVerificationWebResourceListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
   end;
   TSiteVerificationWebResourceListResponseClass = Class of TSiteVerificationWebResourceListResponse;
   
   { --------------------------------------------------------------------
-    TSiteVerificationWebResourceListResponseitems
+    TSiteVerificationWebResourceResourceTypesite
     --------------------------------------------------------------------}
   
-  TSiteVerificationWebResourceListResponseitems = Class(TGoogleBaseObject)
+  TSiteVerificationWebResourceResourceTypesite = Class(TGoogleBaseObject)
   Private
+    Fidentifier : String;
+    F_type : String;
   Protected
+    Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
+    Procedure Setidentifier(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
   Public
   Published
+    Property identifier : String Index 0 Read Fidentifier Write Setidentifier;
+    Property _type : String Index 8 Read F_type Write Set_type;
   end;
-  TSiteVerificationWebResourceListResponseitemsClass = Class of TSiteVerificationWebResourceListResponseitems;
+  TSiteVerificationWebResourceResourceTypesiteClass = Class of TSiteVerificationWebResourceResourceTypesite;
   
   { --------------------------------------------------------------------
     TSiteVerificationWebResourceResource
@@ -145,55 +137,22 @@ type
   
   TSiteVerificationWebResourceResource = Class(TGoogleBaseObject)
   Private
-    Fid : string;
-    Fowners : TSiteVerificationWebResourceResourceowners;
-    Fsite : TSiteVerificationWebResourceResourcesite;
+    Fid : String;
+    Fowners : TStringArray;
+    Fsite : TSiteVerificationWebResourceResourceTypesite;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setowners(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceowners); virtual;
-    Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourcesite); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setowners(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite); virtual;
   Public
   Published
-    Property id : string Index 0 Read Fid Write Setid;
-    Property owners : TSiteVerificationWebResourceResourceowners Index 8 Read Fowners Write Setowners;
-    Property site : TSiteVerificationWebResourceResourcesite Index 16 Read Fsite Write Setsite;
+    Property id : String Index 0 Read Fid Write Setid;
+    Property owners : TStringArray Index 8 Read Fowners Write Setowners;
+    Property site : TSiteVerificationWebResourceResourceTypesite Index 16 Read Fsite Write Setsite;
   end;
   TSiteVerificationWebResourceResourceClass = Class of TSiteVerificationWebResourceResource;
   
-  { --------------------------------------------------------------------
-    TSiteVerificationWebResourceResourceowners
-    --------------------------------------------------------------------}
-  
-  TSiteVerificationWebResourceResourceowners = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TSiteVerificationWebResourceResourceownersClass = Class of TSiteVerificationWebResourceResourceowners;
-  
-  { --------------------------------------------------------------------
-    TSiteVerificationWebResourceResourcesite
-    --------------------------------------------------------------------}
-  
-  TSiteVerificationWebResourceResourcesite = Class(TGoogleBaseObject)
-  Private
-    Fidentifier : string;
-    F_type : string;
-  Protected
-    Class Function ExportPropertyName(Const AName : String) : string; override;
-    //Property setters
-    Procedure Setidentifier(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
-  Public
-  Published
-    Property identifier : string Index 0 Read Fidentifier Write Setidentifier;
-    Property _type : string Index 8 Read F_type Write Set_type;
-  end;
-  TSiteVerificationWebResourceResourcesiteClass = Class of TSiteVerificationWebResourceResourcesite;
-  
   { --------------------------------------------------------------------
     TWebResourceResource
     --------------------------------------------------------------------}
@@ -202,7 +161,7 @@ type
   //Optional query Options for TWebResourceResource, method Insert
   
   TWebResourceInsertOptions = Record
-    verificationMethod : string;
+    verificationMethod : String;
   end;
   
   TWebResourceResource = Class(TGoogleResource)
@@ -261,68 +220,68 @@ implementation
 
 
 { --------------------------------------------------------------------
-  TSiteVerificationWebResourceGettokenRequest
+  TSiteVerificationWebResourceGettokenRequestTypesite
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestsite); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Setidentifier(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fsite=AValue) then exit;
-  Fsite:=AValue;
+  If (Fidentifier=AValue) then exit;
+  Fidentifier:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Set_type(AIndex : Integer; AValue : String); 
 
 begin
-  If (FverificationMethod=AValue) then exit;
-  FverificationMethod:=AValue;
+  If (F_type=AValue) then exit;
+  F_type:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
+Class Function TSiteVerificationWebResourceGettokenRequestTypesite.ExportPropertyName(Const AName : String) :String;
+
+begin
+  Case AName of
+  '_type' : Result:='type';
+  else
+    Result:=Inherited ExportPropertyName(AName);
+  end;
+end;
+
+
 
 
 { --------------------------------------------------------------------
-  TSiteVerificationWebResourceGettokenRequestsite
+  TSiteVerificationWebResourceGettokenRequest
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestsite.Setidentifier(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestTypesite); 
 
 begin
-  If (Fidentifier=AValue) then exit;
-  Fidentifier:=AValue;
+  If (Fsite=AValue) then exit;
+  Fsite:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestsite.Set_type(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; AValue : String); 
 
 begin
-  If (F_type=AValue) then exit;
-  F_type:=AValue;
+  If (FverificationMethod=AValue) then exit;
+  FverificationMethod:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Class Function TSiteVerificationWebResourceGettokenRequestsite.ExportPropertyName(Const AName : String) :String;
-
-begin
-  Case AName of
-  '_type' : Result:='type';
-  else
-    Result:=Inherited ExportPropertyName(AName);
-  end;
-end;
-
-
 
 
 { --------------------------------------------------------------------
@@ -330,7 +289,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; AValue : String); 
 
 begin
   If (Fmethod=AValue) then exit;
@@ -340,7 +299,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -357,7 +316,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseitems); 
+Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -370,94 +329,80 @@ end;
 
 
 { --------------------------------------------------------------------
-  TSiteVerificationWebResourceListResponseitems
+  TSiteVerificationWebResourceResourceTypesite
   --------------------------------------------------------------------}
 
 
-
-
-{ --------------------------------------------------------------------
-  TSiteVerificationWebResourceResource
-  --------------------------------------------------------------------}
-
-
-Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Setidentifier(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fid=AValue) then exit;
-  Fid:=AValue;
+  If (Fidentifier=AValue) then exit;
+  Fidentifier:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceowners); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Set_type(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fowners=AValue) then exit;
-  Fowners:=AValue;
+  If (F_type=AValue) then exit;
+  F_type:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourcesite); 
+Class Function TSiteVerificationWebResourceResourceTypesite.ExportPropertyName(Const AName : String) :String;
 
 begin
-  If (Fsite=AValue) then exit;
-  Fsite:=AValue;
-  MarkPropertyChanged(AIndex);
+  Case AName of
+  '_type' : Result:='type';
+  else
+    Result:=Inherited ExportPropertyName(AName);
+  end;
 end;
 
 
 
 
-
-{ --------------------------------------------------------------------
-  TSiteVerificationWebResourceResourceowners
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
-  TSiteVerificationWebResourceResourcesite
+  TSiteVerificationWebResourceResource
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceResourcesite.Setidentifier(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fidentifier=AValue) then exit;
-  Fidentifier:=AValue;
+  If (Fid=AValue) then exit;
+  Fid:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TSiteVerificationWebResourceResourcesite.Set_type(AIndex : Integer; AValue : string); 
+Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; AValue : TStringArray); 
 
 begin
-  If (F_type=AValue) then exit;
-  F_type:=AValue;
+  If (Fowners=AValue) then exit;
+  Fowners:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Class Function TSiteVerificationWebResourceResourcesite.ExportPropertyName(Const AName : String) :String;
+Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite); 
 
 begin
-  Case AName of
-  '_type' : Result:='type';
-  else
-    Result:=Inherited ExportPropertyName(AName);
-  end;
+  If (Fsite=AValue) then exit;
+  Fsite:=AValue;
+  MarkPropertyChanged(AIndex);
 end;
 
 
 
 
+
 { --------------------------------------------------------------------
   TWebResourceResource
   --------------------------------------------------------------------}
@@ -708,14 +653,12 @@ end;
 Class Procedure TSiteVerificationAPI.RegisterAPIResources;
 
 begin
+  TSiteVerificationWebResourceGettokenRequestTypesite.RegisterObject;
   TSiteVerificationWebResourceGettokenRequest.RegisterObject;
-  TSiteVerificationWebResourceGettokenRequestsite.RegisterObject;
   TSiteVerificationWebResourceGettokenResponse.RegisterObject;
   TSiteVerificationWebResourceListResponse.RegisterObject;
-  TSiteVerificationWebResourceListResponseitems.RegisterObject;
+  TSiteVerificationWebResourceResourceTypesite.RegisterObject;
   TSiteVerificationWebResourceResource.RegisterObject;
-  TSiteVerificationWebResourceResourceowners.RegisterObject;
-  TSiteVerificationWebResourceResourcesite.RegisterObject;
 end;
 
 

packages/googleapi/src/googletaskqueue.pp

@@ -1,31 +1,19 @@
 unit googletaskqueue;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,29 +22,21 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TTask = class;
-  TTaskArray = Array of TTask;
   TTaskQueue = class;
-  TTaskQueueArray = Array of TTaskQueue;
-  TTaskQueueacl = class;
-  TTaskQueueaclArray = Array of TTaskQueueacl;
-  TTaskQueueacladminEmails = class;
-  TTaskQueueacladminEmailsArray = Array of TTaskQueueacladminEmails;
-  TTaskQueueaclconsumerEmails = class;
-  TTaskQueueaclconsumerEmailsArray = Array of TTaskQueueaclconsumerEmails;
-  TTaskQueueaclproducerEmails = class;
-  TTaskQueueaclproducerEmailsArray = Array of TTaskQueueaclproducerEmails;
-  TTaskQueuestats = class;
-  TTaskQueuestatsArray = Array of TTaskQueuestats;
   TTasks = class;
-  TTasksArray = Array of TTasks;
-  TTasksitems = class;
-  TTasksitemsArray = Array of TTasksitems;
   TTasks2 = class;
+  TTaskArray = Array of TTask;
+  TTaskQueueArray = Array of TTaskQueue;
+  TTasksArray = Array of TTasks;
   TTasks2Array = Array of TTasks2;
-  TTasks2items = class;
-  TTasks2itemsArray = Array of TTasks2items;
+  //Anonymous types, using auto-generated names
+  TTaskQueueTypeacl = class;
+  TTaskQueueTypestats = class;
+  TTasksTypeitemsArray = Array of TTask;
+  TTasks2TypeitemsArray = Array of TTask;
   
   { --------------------------------------------------------------------
     TTask
@@ -64,182 +44,130 @@ type
   
   TTask = Class(TGoogleBaseObject)
   Private
-    FenqueueTimestamp : string;
-    Fid : string;
-    Fkind : string;
-    FleaseTimestamp : string;
-    FpayloadBase64 : string;
-    FqueueName : string;
+    FenqueueTimestamp : String;
+    Fid : String;
+    Fkind : String;
+    FleaseTimestamp : String;
+    FpayloadBase64 : String;
+    FqueueName : String;
     Fretry_count : integer;
-    Ftag : string;
+    Ftag : String;
   Protected
     //Property setters
-    Procedure SetenqueueTimestamp(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetleaseTimestamp(AIndex : Integer; AValue : string); virtual;
-    Procedure SetpayloadBase64(AIndex : Integer; AValue : string); virtual;
-    Procedure SetqueueName(AIndex : Integer; AValue : string); virtual;
+    Procedure SetenqueueTimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetleaseTimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpayloadBase64(AIndex : Integer; AValue : String); virtual;
+    Procedure SetqueueName(AIndex : Integer; AValue : String); virtual;
     Procedure Setretry_count(AIndex : Integer; AValue : integer); virtual;
-    Procedure Settag(AIndex : Integer; AValue : string); virtual;
+    Procedure Settag(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property enqueueTimestamp : string Index 0 Read FenqueueTimestamp Write SetenqueueTimestamp;
-    Property id : string Index 8 Read Fid Write Setid;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property leaseTimestamp : string Index 24 Read FleaseTimestamp Write SetleaseTimestamp;
-    Property payloadBase64 : string Index 32 Read FpayloadBase64 Write SetpayloadBase64;
-    Property queueName : string Index 40 Read FqueueName Write SetqueueName;
+    Property enqueueTimestamp : String Index 0 Read FenqueueTimestamp Write SetenqueueTimestamp;
+    Property id : String Index 8 Read Fid Write Setid;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property leaseTimestamp : String Index 24 Read FleaseTimestamp Write SetleaseTimestamp;
+    Property payloadBase64 : String Index 32 Read FpayloadBase64 Write SetpayloadBase64;
+    Property queueName : String Index 40 Read FqueueName Write SetqueueName;
     Property retry_count : integer Index 48 Read Fretry_count Write Setretry_count;
-    Property tag : string Index 56 Read Ftag Write Settag;
+    Property tag : String Index 56 Read Ftag Write Settag;
   end;
   TTaskClass = Class of TTask;
   
   { --------------------------------------------------------------------
-    TTaskQueue
-    --------------------------------------------------------------------}
-  
-  TTaskQueue = Class(TGoogleBaseObject)
-  Private
-    Facl : TTaskQueueacl;
-    Fid : string;
-    Fkind : string;
-    FmaxLeases : integer;
-    Fstats : TTaskQueuestats;
-  Protected
-    //Property setters
-    Procedure Setacl(AIndex : Integer; AValue : TTaskQueueacl); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetmaxLeases(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setstats(AIndex : Integer; AValue : TTaskQueuestats); virtual;
-  Public
-  Published
-    Property acl : TTaskQueueacl Index 0 Read Facl Write Setacl;
-    Property id : string Index 8 Read Fid Write Setid;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property maxLeases : integer Index 24 Read FmaxLeases Write SetmaxLeases;
-    Property stats : TTaskQueuestats Index 32 Read Fstats Write Setstats;
-  end;
-  TTaskQueueClass = Class of TTaskQueue;
-  
-  { --------------------------------------------------------------------
-    TTaskQueueacl
-    --------------------------------------------------------------------}
-  
-  TTaskQueueacl = Class(TGoogleBaseObject)
-  Private
-    FadminEmails : TTaskQueueacladminEmails;
-    FconsumerEmails : TTaskQueueaclconsumerEmails;
-    FproducerEmails : TTaskQueueaclproducerEmails;
-  Protected
-    //Property setters
-    Procedure SetadminEmails(AIndex : Integer; AValue : TTaskQueueacladminEmails); virtual;
-    Procedure SetconsumerEmails(AIndex : Integer; AValue : TTaskQueueaclconsumerEmails); virtual;
-    Procedure SetproducerEmails(AIndex : Integer; AValue : TTaskQueueaclproducerEmails); virtual;
-  Public
-  Published
-    Property adminEmails : TTaskQueueacladminEmails Index 0 Read FadminEmails Write SetadminEmails;
-    Property consumerEmails : TTaskQueueaclconsumerEmails Index 8 Read FconsumerEmails Write SetconsumerEmails;
-    Property producerEmails : TTaskQueueaclproducerEmails Index 16 Read FproducerEmails Write SetproducerEmails;
-  end;
-  TTaskQueueaclClass = Class of TTaskQueueacl;
-  
-  { --------------------------------------------------------------------
-    TTaskQueueacladminEmails
-    --------------------------------------------------------------------}
-  
-  TTaskQueueacladminEmails = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTaskQueueacladminEmailsClass = Class of TTaskQueueacladminEmails;
-  
-  { --------------------------------------------------------------------
-    TTaskQueueaclconsumerEmails
+    TTaskQueueTypeacl
     --------------------------------------------------------------------}
   
-  TTaskQueueaclconsumerEmails = Class(TGoogleBaseObject)
+  TTaskQueueTypeacl = Class(TGoogleBaseObject)
   Private
+    FadminEmails : TStringArray;
+    FconsumerEmails : TStringArray;
+    FproducerEmails : TStringArray;
   Protected
     //Property setters
+    Procedure SetadminEmails(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure SetconsumerEmails(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure SetproducerEmails(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
+    Property adminEmails : TStringArray Index 0 Read FadminEmails Write SetadminEmails;
+    Property consumerEmails : TStringArray Index 8 Read FconsumerEmails Write SetconsumerEmails;
+    Property producerEmails : TStringArray Index 16 Read FproducerEmails Write SetproducerEmails;
   end;
-  TTaskQueueaclconsumerEmailsClass = Class of TTaskQueueaclconsumerEmails;
+  TTaskQueueTypeaclClass = Class of TTaskQueueTypeacl;
   
   { --------------------------------------------------------------------
-    TTaskQueueaclproducerEmails
+    TTaskQueueTypestats
     --------------------------------------------------------------------}
   
-  TTaskQueueaclproducerEmails = Class(TGoogleBaseObject)
+  TTaskQueueTypestats = Class(TGoogleBaseObject)
   Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTaskQueueaclproducerEmailsClass = Class of TTaskQueueaclproducerEmails;
-  
-  { --------------------------------------------------------------------
-    TTaskQueuestats
-    --------------------------------------------------------------------}
-  
-  TTaskQueuestats = Class(TGoogleBaseObject)
-  Private
-    FleasedLastHour : string;
-    FleasedLastMinute : string;
-    FoldestTask : string;
+    FleasedLastHour : String;
+    FleasedLastMinute : String;
+    FoldestTask : String;
     FtotalTasks : integer;
   Protected
     //Property setters
-    Procedure SetleasedLastHour(AIndex : Integer; AValue : string); virtual;
-    Procedure SetleasedLastMinute(AIndex : Integer; AValue : string); virtual;
-    Procedure SetoldestTask(AIndex : Integer; AValue : string); virtual;
+    Procedure SetleasedLastHour(AIndex : Integer; AValue : String); virtual;
+    Procedure SetleasedLastMinute(AIndex : Integer; AValue : String); virtual;
+    Procedure SetoldestTask(AIndex : Integer; AValue : String); virtual;
     Procedure SettotalTasks(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property leasedLastHour : string Index 0 Read FleasedLastHour Write SetleasedLastHour;
-    Property leasedLastMinute : string Index 8 Read FleasedLastMinute Write SetleasedLastMinute;
-    Property oldestTask : string Index 16 Read FoldestTask Write SetoldestTask;
+    Property leasedLastHour : String Index 0 Read FleasedLastHour Write SetleasedLastHour;
+    Property leasedLastMinute : String Index 8 Read FleasedLastMinute Write SetleasedLastMinute;
+    Property oldestTask : String Index 16 Read FoldestTask Write SetoldestTask;
     Property totalTasks : integer Index 24 Read FtotalTasks Write SettotalTasks;
   end;
-  TTaskQueuestatsClass = Class of TTaskQueuestats;
+  TTaskQueueTypestatsClass = Class of TTaskQueueTypestats;
   
   { --------------------------------------------------------------------
-    TTasks
+    TTaskQueue
     --------------------------------------------------------------------}
   
-  TTasks = Class(TGoogleBaseObject)
+  TTaskQueue = Class(TGoogleBaseObject)
   Private
-    Fitems : TTasksitems;
-    Fkind : string;
+    Facl : TTaskQueueTypeacl;
+    Fid : String;
+    Fkind : String;
+    FmaxLeases : integer;
+    Fstats : TTaskQueueTypestats;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TTasksitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setacl(AIndex : Integer; AValue : TTaskQueueTypeacl); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmaxLeases(AIndex : Integer; AValue : integer); virtual;
+    Procedure Setstats(AIndex : Integer; AValue : TTaskQueueTypestats); virtual;
   Public
   Published
-    Property items : TTasksitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property acl : TTaskQueueTypeacl Index 0 Read Facl Write Setacl;
+    Property id : String Index 8 Read Fid Write Setid;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property maxLeases : integer Index 24 Read FmaxLeases Write SetmaxLeases;
+    Property stats : TTaskQueueTypestats Index 32 Read Fstats Write Setstats;
   end;
-  TTasksClass = Class of TTasks;
+  TTaskQueueClass = Class of TTaskQueue;
   
   { --------------------------------------------------------------------
-    TTasksitems
+    TTasks
     --------------------------------------------------------------------}
   
-  TTasksitems = Class(TGoogleBaseObject)
+  TTasks = Class(TGoogleBaseObject)
   Private
+    Fitems : TTasksTypeitemsArray;
+    Fkind : String;
   Protected
     //Property setters
+    Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
   Public
   Published
+    Property items : TTasksTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
   end;
-  TTasksitemsClass = Class of TTasksitems;
+  TTasksClass = Class of TTasks;
   
   { --------------------------------------------------------------------
     TTasks2
@@ -247,32 +175,19 @@ type
   
   TTasks2 = Class(TGoogleBaseObject)
   Private
-    Fitems : TTasks2items;
-    Fkind : string;
+    Fitems : TTasks2TypeitemsArray;
+    Fkind : String;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TTasks2items); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property items : TTasks2items Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property items : TTasks2TypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TTasks2Class = Class of TTasks2;
   
-  { --------------------------------------------------------------------
-    TTasks2items
-    --------------------------------------------------------------------}
-  
-  TTasks2items = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTasks2itemsClass = Class of TTasks2items;
-  
   { --------------------------------------------------------------------
     TTaskqueuesResource
     --------------------------------------------------------------------}
@@ -304,7 +219,7 @@ type
     groupByTag : boolean;
     leaseSecs : integer;
     numTasks : integer;
-    tag : string;
+    tag : String;
   end;
   
   
@@ -388,7 +303,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TTask.SetenqueueTimestamp(AIndex : Integer; AValue : string); 
+Procedure TTask.SetenqueueTimestamp(AIndex : Integer; AValue : String); 
 
 begin
   If (FenqueueTimestamp=AValue) then exit;
@@ -398,7 +313,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; AValue : string); 
+Procedure TTask.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -408,7 +323,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTask.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -418,7 +333,7 @@ end;
 
 
 
-Procedure TTask.SetleaseTimestamp(AIndex : Integer; AValue : string); 
+Procedure TTask.SetleaseTimestamp(AIndex : Integer; AValue : String); 
 
 begin
   If (FleaseTimestamp=AValue) then exit;
@@ -428,7 +343,7 @@ end;
 
 
 
-Procedure TTask.SetpayloadBase64(AIndex : Integer; AValue : string); 
+Procedure TTask.SetpayloadBase64(AIndex : Integer; AValue : String); 
 
 begin
   If (FpayloadBase64=AValue) then exit;
@@ -438,7 +353,7 @@ end;
 
 
 
-Procedure TTask.SetqueueName(AIndex : Integer; AValue : string); 
+Procedure TTask.SetqueueName(AIndex : Integer; AValue : String); 
 
 begin
   If (FqueueName=AValue) then exit;
@@ -458,7 +373,7 @@ end;
 
 
 
-Procedure TTask.Settag(AIndex : Integer; AValue : string); 
+Procedure TTask.Settag(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftag=AValue) then exit;
@@ -471,92 +386,82 @@ end;
 
 
 { --------------------------------------------------------------------
-  TTaskQueue
+  TTaskQueueTypeacl
   --------------------------------------------------------------------}
 
 
-Procedure TTaskQueue.Setacl(AIndex : Integer; AValue : TTaskQueueacl); 
+Procedure TTaskQueueTypeacl.SetadminEmails(AIndex : Integer; AValue : TStringArray); 
 
 begin
-  If (Facl=AValue) then exit;
-  Facl:=AValue;
+  If (FadminEmails=AValue) then exit;
+  FadminEmails:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueue.Setid(AIndex : Integer; AValue : string); 
+Procedure TTaskQueueTypeacl.SetconsumerEmails(AIndex : Integer; AValue : TStringArray); 
 
 begin
-  If (Fid=AValue) then exit;
-  Fid:=AValue;
+  If (FconsumerEmails=AValue) then exit;
+  FconsumerEmails:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueue.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTaskQueueTypeacl.SetproducerEmails(AIndex : Integer; AValue : TStringArray); 
 
 begin
-  If (Fkind=AValue) then exit;
-  Fkind:=AValue;
+  If (FproducerEmails=AValue) then exit;
+  FproducerEmails:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; AValue : integer); 
 
-begin
-  If (FmaxLeases=AValue) then exit;
-  FmaxLeases:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
 
+{ --------------------------------------------------------------------
+  TTaskQueueTypestats
+  --------------------------------------------------------------------}
 
 
-Procedure TTaskQueue.Setstats(AIndex : Integer; AValue : TTaskQueuestats); 
+Procedure TTaskQueueTypestats.SetleasedLastHour(AIndex : Integer; AValue : String); 
 
 begin
-  If (Fstats=AValue) then exit;
-  Fstats:=AValue;
+  If (FleasedLastHour=AValue) then exit;
+  FleasedLastHour:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-
-
-{ --------------------------------------------------------------------
-  TTaskQueueacl
-  --------------------------------------------------------------------}
-
-
-Procedure TTaskQueueacl.SetadminEmails(AIndex : Integer; AValue : TTaskQueueacladminEmails); 
+Procedure TTaskQueueTypestats.SetleasedLastMinute(AIndex : Integer; AValue : String); 
 
 begin
-  If (FadminEmails=AValue) then exit;
-  FadminEmails:=AValue;
+  If (FleasedLastMinute=AValue) then exit;
+  FleasedLastMinute:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueueacl.SetconsumerEmails(AIndex : Integer; AValue : TTaskQueueaclconsumerEmails); 
+Procedure TTaskQueueTypestats.SetoldestTask(AIndex : Integer; AValue : String); 
 
 begin
-  If (FconsumerEmails=AValue) then exit;
-  FconsumerEmails:=AValue;
+  If (FoldestTask=AValue) then exit;
+  FoldestTask:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueueacl.SetproducerEmails(AIndex : Integer; AValue : TTaskQueueaclproducerEmails); 
+Procedure TTaskQueueTypestats.SettotalTasks(AIndex : Integer; AValue : integer); 
 
 begin
-  If (FproducerEmails=AValue) then exit;
-  FproducerEmails:=AValue;
+  If (FtotalTasks=AValue) then exit;
+  FtotalTasks:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -565,66 +470,55 @@ end;
 
 
 { --------------------------------------------------------------------
-  TTaskQueueacladminEmails
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TTaskQueueaclconsumerEmails
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TTaskQueueaclproducerEmails
+  TTaskQueue
   --------------------------------------------------------------------}
 
 
+Procedure TTaskQueue.Setacl(AIndex : Integer; AValue : TTaskQueueTypeacl); 
 
+begin
+  If (Facl=AValue) then exit;
+  Facl:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
 
-{ --------------------------------------------------------------------
-  TTaskQueuestats
-  --------------------------------------------------------------------}
 
 
-Procedure TTaskQueuestats.SetleasedLastHour(AIndex : Integer; AValue : string); 
+Procedure TTaskQueue.Setid(AIndex : Integer; AValue : String); 
 
 begin
-  If (FleasedLastHour=AValue) then exit;
-  FleasedLastHour:=AValue;
+  If (Fid=AValue) then exit;
+  Fid:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueuestats.SetleasedLastMinute(AIndex : Integer; AValue : string); 
+Procedure TTaskQueue.Setkind(AIndex : Integer; AValue : String); 
 
 begin
-  If (FleasedLastMinute=AValue) then exit;
-  FleasedLastMinute:=AValue;
+  If (Fkind=AValue) then exit;
+  Fkind:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueuestats.SetoldestTask(AIndex : Integer; AValue : string); 
+Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; AValue : integer); 
 
 begin
-  If (FoldestTask=AValue) then exit;
-  FoldestTask:=AValue;
+  If (FmaxLeases=AValue) then exit;
+  FmaxLeases:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
 
 
-Procedure TTaskQueuestats.SettotalTasks(AIndex : Integer; AValue : integer); 
+Procedure TTaskQueue.Setstats(AIndex : Integer; AValue : TTaskQueueTypestats); 
 
 begin
-  If (FtotalTasks=AValue) then exit;
-  FtotalTasks:=AValue;
+  If (Fstats=AValue) then exit;
+  Fstats:=AValue;
   MarkPropertyChanged(AIndex);
 end;
 
@@ -637,7 +531,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksitems); 
+Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -647,7 +541,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTasks.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -659,19 +553,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTasksitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TTasks2
   --------------------------------------------------------------------}
 
 
-Procedure TTasks2.Setitems(AIndex : Integer; AValue : TTasks2items); 
+Procedure TTasks2.Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -681,7 +568,7 @@ end;
 
 
 
-Procedure TTasks2.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTasks2.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -693,13 +580,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTasks2items
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TTaskqueuesResource
   --------------------------------------------------------------------}
@@ -1036,16 +916,11 @@ Class Procedure TTaskqueueAPI.RegisterAPIResources;
 
 begin
   TTask.RegisterObject;
+  TTaskQueueTypeacl.RegisterObject;
+  TTaskQueueTypestats.RegisterObject;
   TTaskQueue.RegisterObject;
-  TTaskQueueacl.RegisterObject;
-  TTaskQueueacladminEmails.RegisterObject;
-  TTaskQueueaclconsumerEmails.RegisterObject;
-  TTaskQueueaclproducerEmails.RegisterObject;
-  TTaskQueuestats.RegisterObject;
   TTasks.RegisterObject;
-  TTasksitems.RegisterObject;
   TTasks2.RegisterObject;
-  TTasks2items.RegisterObject;
 end;
 
 

packages/googleapi/src/googletasks.pp

@@ -1,31 +1,19 @@
 unit googletasks;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,21 +22,44 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TTask = class;
-  TTaskArray = Array of TTask;
-  TTasklinks = class;
-  TTasklinksArray = Array of TTasklinks;
   TTaskList = class;
-  TTaskListArray = Array of TTaskList;
   TTaskLists = class;
-  TTaskListsArray = Array of TTaskLists;
-  TTaskListsitems = class;
-  TTaskListsitemsArray = Array of TTaskListsitems;
   TTasks = class;
+  TTaskArray = Array of TTask;
+  TTaskListArray = Array of TTaskList;
+  TTaskListsArray = Array of TTaskLists;
   TTasksArray = Array of TTasks;
-  TTasksitems = class;
-  TTasksitemsArray = Array of TTasksitems;
+  //Anonymous types, using auto-generated names
+  TTaskTypelinksItem = class;
+  TTaskTypelinksArray = Array of TTaskTypelinksItem;
+  TTaskListsTypeitemsArray = Array of TTaskList;
+  TTasksTypeitemsArray = Array of TTask;
+  
+  { --------------------------------------------------------------------
+    TTaskTypelinksItem
+    --------------------------------------------------------------------}
+  
+  TTaskTypelinksItem = Class(TGoogleBaseObject)
+  Private
+    Fdescription : String;
+    Flink : String;
+    F_type : String;
+  Protected
+    Class Function ExportPropertyName(Const AName : String) : string; override;
+    //Property setters
+    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+  Public
+  Published
+    Property description : String Index 0 Read Fdescription Write Setdescription;
+    Property link : String Index 8 Read Flink Write Setlink;
+    Property _type : String Index 16 Read F_type Write Set_type;
+  end;
+  TTaskTypelinksItemClass = Class of TTaskTypelinksItem;
   
   { --------------------------------------------------------------------
     TTask
@@ -59,105 +70,82 @@ type
     Fcompleted : TDatetime;
     Fdeleted : boolean;
     Fdue : TDatetime;
-    Fetag : string;
+    Fetag : String;
     Fhidden : boolean;
-    Fid : string;
-    Fkind : string;
-    Flinks : TTasklinks;
-    Fnotes : string;
-    Fparent : string;
-    Fposition : string;
-    FselfLink : string;
-    Fstatus : string;
-    Ftitle : string;
+    Fid : String;
+    Fkind : String;
+    Flinks : TTaskTypelinksArray;
+    Fnotes : String;
+    Fparent : String;
+    Fposition : String;
+    FselfLink : String;
+    Fstatus : String;
+    Ftitle : String;
     Fupdated : TDatetime;
   Protected
     //Property setters
     Procedure Setcompleted(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setdue(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure Setlinks(AIndex : Integer; AValue : TTasklinks); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : string); virtual;
-    Procedure Setparent(AIndex : Integer; AValue : string); virtual;
-    Procedure Setposition(AIndex : Integer; AValue : string); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : string); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : string); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : string); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlinks(AIndex : Integer; AValue : TTaskTypelinksArray); virtual;
+    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setparent(AIndex : Integer; AValue : String); virtual;
+    Procedure Setposition(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
   Public
   Published
     Property completed : TDatetime Index 0 Read Fcompleted Write Setcompleted;
     Property deleted : boolean Index 8 Read Fdeleted Write Setdeleted;
     Property due : TDatetime Index 16 Read Fdue Write Setdue;
-    Property etag : string Index 24 Read Fetag Write Setetag;
+    Property etag : String Index 24 Read Fetag Write Setetag;
     Property hidden : boolean Index 32 Read Fhidden Write Sethidden;
-    Property id : string Index 40 Read Fid Write Setid;
-    Property kind : string Index 48 Read Fkind Write Setkind;
-    Property links : TTasklinks Index 56 Read Flinks Write Setlinks;
-    Property notes : string Index 64 Read Fnotes Write Setnotes;
-    Property parent : string Index 72 Read Fparent Write Setparent;
-    Property position : string Index 80 Read Fposition Write Setposition;
-    Property selfLink : string Index 88 Read FselfLink Write SetselfLink;
-    Property status : string Index 96 Read Fstatus Write Setstatus;
-    Property title : string Index 104 Read Ftitle Write Settitle;
+    Property id : String Index 40 Read Fid Write Setid;
+    Property kind : String Index 48 Read Fkind Write Setkind;
+    Property links : TTaskTypelinksArray Index 56 Read Flinks Write Setlinks;
+    Property notes : String Index 64 Read Fnotes Write Setnotes;
+    Property parent : String Index 72 Read Fparent Write Setparent;
+    Property position : String Index 80 Read Fposition Write Setposition;
+    Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
+    Property status : String Index 96 Read Fstatus Write Setstatus;
+    Property title : String Index 104 Read Ftitle Write Settitle;
     Property updated : TDatetime Index 112 Read Fupdated Write Setupdated;
   end;
   TTaskClass = Class of TTask;
   
-  { --------------------------------------------------------------------
-    TTasklinks
-    --------------------------------------------------------------------}
-  
-  TTasklinks = Class(TGoogleBaseObject)
-  Private
-    Fdescription : string;
-    Flink : string;
-    F_type : string;
-  Protected
-    Class Function ExportPropertyName(Const AName : String) : string; override;
-    //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : string); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
-  Public
-  Published
-    Property description : string Index 0 Read Fdescription Write Setdescription;
-    Property link : string Index 8 Read Flink Write Setlink;
-    Property _type : string Index 16 Read F_type Write Set_type;
-  end;
-  TTasklinksClass = Class of TTasklinks;
-  
   { --------------------------------------------------------------------
     TTaskList
     --------------------------------------------------------------------}
   
   TTaskList = Class(TGoogleBaseObject)
   Private
-    Fetag : string;
-    Fid : string;
-    Fkind : string;
-    FselfLink : string;
-    Ftitle : string;
+    Fetag : String;
+    Fid : String;
+    Fkind : String;
+    FselfLink : String;
+    Ftitle : String;
     Fupdated : TDatetime;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : string); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
   Public
   Published
-    Property etag : string Index 0 Read Fetag Write Setetag;
-    Property id : string Index 8 Read Fid Write Setid;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property selfLink : string Index 24 Read FselfLink Write SetselfLink;
-    Property title : string Index 32 Read Ftitle Write Settitle;
+    Property etag : String Index 0 Read Fetag Write Setetag;
+    Property id : String Index 8 Read Fid Write Setid;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+    Property title : String Index 32 Read Ftitle Write Settitle;
     Property updated : TDatetime Index 40 Read Fupdated Write Setupdated;
   end;
   TTaskListClass = Class of TTaskList;
@@ -168,76 +156,50 @@ type
   
   TTaskLists = Class(TGoogleBaseObject)
   Private
-    Fetag : string;
-    Fitems : TTaskListsitems;
-    Fkind : string;
-    FnextPageToken : string;
+    Fetag : String;
+    Fitems : TTaskListsTypeitemsArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : string); virtual;
-    Procedure Setitems(AIndex : Integer; AValue : TTaskListsitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property etag : string Index 0 Read Fetag Write Setetag;
-    Property items : TTaskListsitems Index 8 Read Fitems Write Setitems;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 24 Read FnextPageToken Write SetnextPageToken;
+    Property etag : String Index 0 Read Fetag Write Setetag;
+    Property items : TTaskListsTypeitemsArray Index 8 Read Fitems Write Setitems;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TTaskListsClass = Class of TTaskLists;
   
-  { --------------------------------------------------------------------
-    TTaskListsitems
-    --------------------------------------------------------------------}
-  
-  TTaskListsitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTaskListsitemsClass = Class of TTaskListsitems;
-  
   { --------------------------------------------------------------------
     TTasks
     --------------------------------------------------------------------}
   
   TTasks = Class(TGoogleBaseObject)
   Private
-    Fetag : string;
-    Fitems : TTasksitems;
-    Fkind : string;
-    FnextPageToken : string;
+    Fetag : String;
+    Fitems : TTasksTypeitemsArray;
+    Fkind : String;
+    FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : string); virtual;
-    Procedure Setitems(AIndex : Integer; AValue : TTasksitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property etag : string Index 0 Read Fetag Write Setetag;
-    Property items : TTasksitems Index 8 Read Fitems Write Setitems;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 24 Read FnextPageToken Write SetnextPageToken;
+    Property etag : String Index 0 Read Fetag Write Setetag;
+    Property items : TTasksTypeitemsArray Index 8 Read Fitems Write Setitems;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
   end;
   TTasksClass = Class of TTasks;
   
-  { --------------------------------------------------------------------
-    TTasksitems
-    --------------------------------------------------------------------}
-  
-  TTasksitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTasksitemsClass = Class of TTasksitems;
-  
   { --------------------------------------------------------------------
     TTasklistsResource
     --------------------------------------------------------------------}
@@ -247,7 +209,7 @@ type
   
   TTasklistsListOptions = Record
     maxResults : int64;
-    pageToken : string;
+    pageToken : String;
   end;
   
   TTasklistsResource = Class(TGoogleResource)
@@ -272,32 +234,32 @@ type
   //Optional query Options for TTasksResource, method Insert
   
   TTasksInsertOptions = Record
-    parent : string;
-    previous : string;
+    parent : String;
+    previous : String;
   end;
   
   
   //Optional query Options for TTasksResource, method List
   
   TTasksListOptions = Record
-    completedMax : string;
-    completedMin : string;
-    dueMax : string;
-    dueMin : string;
+    completedMax : String;
+    completedMin : String;
+    dueMax : String;
+    dueMin : String;
     maxResults : int64;
-    pageToken : string;
+    pageToken : String;
     showCompleted : boolean;
     showDeleted : boolean;
     showHidden : boolean;
-    updatedMin : string;
+    updatedMin : String;
   end;
   
   
   //Optional query Options for TTasksResource, method Move
   
   TTasksMoveOptions = Record
-    parent : string;
-    previous : string;
+    parent : String;
+    previous : String;
   end;
   
   TTasksResource = Class(TGoogleResource)
@@ -363,6 +325,54 @@ type
 implementation
 
 
+{ --------------------------------------------------------------------
+  TTaskTypelinksItem
+  --------------------------------------------------------------------}
+
+
+Procedure TTaskTypelinksItem.Setdescription(AIndex : Integer; AValue : String); 
+
+begin
+  If (Fdescription=AValue) then exit;
+  Fdescription:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTaskTypelinksItem.Setlink(AIndex : Integer; AValue : String); 
+
+begin
+  If (Flink=AValue) then exit;
+  Flink:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTaskTypelinksItem.Set_type(AIndex : Integer; AValue : String); 
+
+begin
+  If (F_type=AValue) then exit;
+  F_type:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TTaskTypelinksItem.ExportPropertyName(Const AName : String) :String;
+
+begin
+  Case AName of
+  '_type' : Result:='type';
+  else
+    Result:=Inherited ExportPropertyName(AName);
+  end;
+end;
+
+
+
+
 { --------------------------------------------------------------------
   TTask
   --------------------------------------------------------------------}
@@ -398,7 +408,7 @@ end;
 
 
 
-Procedure TTask.Setetag(AIndex : Integer; AValue : string); 
+Procedure TTask.Setetag(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -418,7 +428,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; AValue : string); 
+Procedure TTask.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -428,7 +438,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTask.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -438,7 +448,7 @@ end;
 
 
 
-Procedure TTask.Setlinks(AIndex : Integer; AValue : TTasklinks); 
+Procedure TTask.Setlinks(AIndex : Integer; AValue : TTaskTypelinksArray); 
 
 begin
   If (Flinks=AValue) then exit;
@@ -448,7 +458,7 @@ end;
 
 
 
-Procedure TTask.Setnotes(AIndex : Integer; AValue : string); 
+Procedure TTask.Setnotes(AIndex : Integer; AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -458,7 +468,7 @@ end;
 
 
 
-Procedure TTask.Setparent(AIndex : Integer; AValue : string); 
+Procedure TTask.Setparent(AIndex : Integer; AValue : String); 
 
 begin
   If (Fparent=AValue) then exit;
@@ -468,7 +478,7 @@ end;
 
 
 
-Procedure TTask.Setposition(AIndex : Integer; AValue : string); 
+Procedure TTask.Setposition(AIndex : Integer; AValue : String); 
 
 begin
   If (Fposition=AValue) then exit;
@@ -478,7 +488,7 @@ end;
 
 
 
-Procedure TTask.SetselfLink(AIndex : Integer; AValue : string); 
+Procedure TTask.SetselfLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -488,7 +498,7 @@ end;
 
 
 
-Procedure TTask.Setstatus(AIndex : Integer; AValue : string); 
+Procedure TTask.Setstatus(AIndex : Integer; AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -498,7 +508,7 @@ end;
 
 
 
-Procedure TTask.Settitle(AIndex : Integer; AValue : string); 
+Procedure TTask.Settitle(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -520,60 +530,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTasklinks
-  --------------------------------------------------------------------}
-
-
-Procedure TTasklinks.Setdescription(AIndex : Integer; AValue : string); 
-
-begin
-  If (Fdescription=AValue) then exit;
-  Fdescription:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TTasklinks.Setlink(AIndex : Integer; AValue : string); 
-
-begin
-  If (Flink=AValue) then exit;
-  Flink:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TTasklinks.Set_type(AIndex : Integer; AValue : string); 
-
-begin
-  If (F_type=AValue) then exit;
-  F_type:=AValue;
-  MarkPropertyChanged(AIndex);
-end;
-
-
-
-Class Function TTasklinks.ExportPropertyName(Const AName : String) :String;
-
-begin
-  Case AName of
-  '_type' : Result:='type';
-  else
-    Result:=Inherited ExportPropertyName(AName);
-  end;
-end;
-
-
-
-
 { --------------------------------------------------------------------
   TTaskList
   --------------------------------------------------------------------}
 
 
-Procedure TTaskList.Setetag(AIndex : Integer; AValue : string); 
+Procedure TTaskList.Setetag(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -583,7 +545,7 @@ end;
 
 
 
-Procedure TTaskList.Setid(AIndex : Integer; AValue : string); 
+Procedure TTaskList.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -593,7 +555,7 @@ end;
 
 
 
-Procedure TTaskList.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTaskList.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -603,7 +565,7 @@ end;
 
 
 
-Procedure TTaskList.SetselfLink(AIndex : Integer; AValue : string); 
+Procedure TTaskList.SetselfLink(AIndex : Integer; AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -613,7 +575,7 @@ end;
 
 
 
-Procedure TTaskList.Settitle(AIndex : Integer; AValue : string); 
+Procedure TTaskList.Settitle(AIndex : Integer; AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -640,7 +602,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskLists.Setetag(AIndex : Integer; AValue : string); 
+Procedure TTaskLists.Setetag(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -650,7 +612,7 @@ end;
 
 
 
-Procedure TTaskLists.Setitems(AIndex : Integer; AValue : TTaskListsitems); 
+Procedure TTaskLists.Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -660,7 +622,7 @@ end;
 
 
 
-Procedure TTaskLists.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTaskLists.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -670,7 +632,7 @@ end;
 
 
 
-Procedure TTaskLists.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TTaskLists.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -682,19 +644,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTaskListsitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TTasks
   --------------------------------------------------------------------}
 
 
-Procedure TTasks.Setetag(AIndex : Integer; AValue : string); 
+Procedure TTasks.Setetag(AIndex : Integer; AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -704,7 +659,7 @@ end;
 
 
 
-Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksitems); 
+Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -714,7 +669,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; AValue : string); 
+Procedure TTasks.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -724,7 +679,7 @@ end;
 
 
 
-Procedure TTasks.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TTasks.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -736,13 +691,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTasksitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TTasklistsResource
   --------------------------------------------------------------------}
@@ -1169,13 +1117,11 @@ end;
 Class Procedure TTasksAPI.RegisterAPIResources;
 
 begin
+  TTaskTypelinksItem.RegisterObject;
   TTask.RegisterObject;
-  TTasklinks.RegisterObject;
   TTaskList.RegisterObject;
   TTaskLists.RegisterObject;
-  TTaskListsitems.RegisterObject;
   TTasks.RegisterObject;
-  TTasksitems.RegisterObject;
 end;
 
 

packages/googleapi/src/googletranslate.pp

@@ -1,31 +1,19 @@
 unit googletranslate;
 {
-  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 
-  (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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+   **********************************************************************
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,25 +22,25 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TDetectionsListResponse = class;
-  TDetectionsListResponseArray = Array of TDetectionsListResponse;
-  TDetectionsListResponsedetections = class;
-  TDetectionsListResponsedetectionsArray = Array of TDetectionsListResponsedetections;
-  TDetectionsResource = class;
-  TDetectionsResourceArray = Array of TDetectionsResource;
+  TDetectionsResourceItem = class;
   TLanguagesListResponse = class;
-  TLanguagesListResponseArray = Array of TLanguagesListResponse;
-  TLanguagesListResponselanguages = class;
-  TLanguagesListResponselanguagesArray = Array of TLanguagesListResponselanguages;
   TLanguagesResource = class;
-  TLanguagesResourceArray = Array of TLanguagesResource;
   TTranslationsListResponse = class;
-  TTranslationsListResponseArray = Array of TTranslationsListResponse;
-  TTranslationsListResponsetranslations = class;
-  TTranslationsListResponsetranslationsArray = Array of TTranslationsListResponsetranslations;
   TTranslationsResource = class;
+  TDetectionsListResponseArray = Array of TDetectionsListResponse;
+  TDetectionsResourceItemArray = Array of TDetectionsResourceItem;
+  TDetectionsResource = Array of TDetectionsResourceItem;
+  TLanguagesListResponseArray = Array of TLanguagesListResponse;
+  TLanguagesResourceArray = Array of TLanguagesResource;
+  TTranslationsListResponseArray = Array of TTranslationsListResponse;
   TTranslationsResourceArray = Array of TTranslationsResource;
+  //Anonymous types, using auto-generated names
+  TDetectionsListResponseTypedetectionsArray = Array of TDetectionsResource;
+  TLanguagesListResponseTypelanguagesArray = Array of TLanguagesResource;
+  TTranslationsListResponseTypetranslationsArray = Array of TTranslationsResource;
   
   { --------------------------------------------------------------------
     TDetectionsListResponse
@@ -60,50 +48,37 @@ type
   
   TDetectionsListResponse = Class(TGoogleBaseObject)
   Private
-    Fdetections : TDetectionsListResponsedetections;
+    Fdetections : TDetectionsListResponseTypedetectionsArray;
   Protected
     //Property setters
-    Procedure Setdetections(AIndex : Integer; AValue : TDetectionsListResponsedetections); virtual;
+    Procedure Setdetections(AIndex : Integer; AValue : TDetectionsListResponseTypedetectionsArray); virtual;
   Public
   Published
-    Property detections : TDetectionsListResponsedetections Index 0 Read Fdetections Write Setdetections;
+    Property detections : TDetectionsListResponseTypedetectionsArray Index 0 Read Fdetections Write Setdetections;
   end;
   TDetectionsListResponseClass = Class of TDetectionsListResponse;
   
   { --------------------------------------------------------------------
-    TDetectionsListResponsedetections
-    --------------------------------------------------------------------}
-  
-  TDetectionsListResponsedetections = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TDetectionsListResponsedetectionsClass = Class of TDetectionsListResponsedetections;
-  
-  { --------------------------------------------------------------------
-    TDetectionsResource
+    TDetectionsResourceItem
     --------------------------------------------------------------------}
   
-  TDetectionsResource = Class(TGoogleBaseObject)
+  TDetectionsResourceItem = Class(TGoogleBaseObject)
   Private
     Fconfidence : integer;
     FisReliable : boolean;
-    Flanguage : string;
+    Flanguage : String;
   Protected
     //Property setters
     Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
     Procedure SetisReliable(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setlanguage(AIndex : Integer; AValue : string); virtual;
+    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
   Public
   Published
     Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
     Property isReliable : boolean Index 8 Read FisReliable Write SetisReliable;
-    Property language : string Index 16 Read Flanguage Write Setlanguage;
+    Property language : String Index 16 Read Flanguage Write Setlanguage;
   end;
-  TDetectionsResourceClass = Class of TDetectionsResource;
+  TDetectionsResourceItemClass = Class of TDetectionsResourceItem;
   
   { --------------------------------------------------------------------
     TLanguagesListResponse
@@ -111,45 +86,32 @@ type
   
   TLanguagesListResponse = Class(TGoogleBaseObject)
   Private
-    Flanguages : TLanguagesListResponselanguages;
+    Flanguages : TLanguagesListResponseTypelanguagesArray;
   Protected
     //Property setters
-    Procedure Setlanguages(AIndex : Integer; AValue : TLanguagesListResponselanguages); virtual;
+    Procedure Setlanguages(AIndex : Integer; AValue : TLanguagesListResponseTypelanguagesArray); virtual;
   Public
   Published
-    Property languages : TLanguagesListResponselanguages Index 0 Read Flanguages Write Setlanguages;
+    Property languages : TLanguagesListResponseTypelanguagesArray Index 0 Read Flanguages Write Setlanguages;
   end;
   TLanguagesListResponseClass = Class of TLanguagesListResponse;
   
-  { --------------------------------------------------------------------
-    TLanguagesListResponselanguages
-    --------------------------------------------------------------------}
-  
-  TLanguagesListResponselanguages = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TLanguagesListResponselanguagesClass = Class of TLanguagesListResponselanguages;
-  
   { --------------------------------------------------------------------
     TLanguagesResource
     --------------------------------------------------------------------}
   
   TLanguagesResource = Class(TGoogleBaseObject)
   Private
-    Flanguage : string;
-    Fname : string;
+    Flanguage : String;
+    Fname : String;
   Protected
     //Property setters
-    Procedure Setlanguage(AIndex : Integer; AValue : string); virtual;
-    Procedure Setname(AIndex : Integer; AValue : string); virtual;
+    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property language : string Index 0 Read Flanguage Write Setlanguage;
-    Property name : string Index 8 Read Fname Write Setname;
+    Property language : String Index 0 Read Flanguage Write Setlanguage;
+    Property name : String Index 8 Read Fname Write Setname;
   end;
   TLanguagesResourceClass = Class of TLanguagesResource;
   
@@ -159,45 +121,32 @@ type
   
   TTranslationsListResponse = Class(TGoogleBaseObject)
   Private
-    Ftranslations : TTranslationsListResponsetranslations;
+    Ftranslations : TTranslationsListResponseTypetranslationsArray;
   Protected
     //Property setters
-    Procedure Settranslations(AIndex : Integer; AValue : TTranslationsListResponsetranslations); virtual;
+    Procedure Settranslations(AIndex : Integer; AValue : TTranslationsListResponseTypetranslationsArray); virtual;
   Public
   Published
-    Property translations : TTranslationsListResponsetranslations Index 0 Read Ftranslations Write Settranslations;
+    Property translations : TTranslationsListResponseTypetranslationsArray Index 0 Read Ftranslations Write Settranslations;
   end;
   TTranslationsListResponseClass = Class of TTranslationsListResponse;
   
-  { --------------------------------------------------------------------
-    TTranslationsListResponsetranslations
-    --------------------------------------------------------------------}
-  
-  TTranslationsListResponsetranslations = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TTranslationsListResponsetranslationsClass = Class of TTranslationsListResponsetranslations;
-  
   { --------------------------------------------------------------------
     TTranslationsResource
     --------------------------------------------------------------------}
   
   TTranslationsResource = Class(TGoogleBaseObject)
   Private
-    FdetectedSourceLanguage : string;
-    FtranslatedText : string;
+    FdetectedSourceLanguage : String;
+    FtranslatedText : String;
   Protected
     //Property setters
-    Procedure SetdetectedSourceLanguage(AIndex : Integer; AValue : string); virtual;
-    Procedure SettranslatedText(AIndex : Integer; AValue : string); virtual;
+    Procedure SetdetectedSourceLanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure SettranslatedText(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property detectedSourceLanguage : string Index 0 Read FdetectedSourceLanguage Write SetdetectedSourceLanguage;
-    Property translatedText : string Index 8 Read FtranslatedText Write SettranslatedText;
+    Property detectedSourceLanguage : String Index 0 Read FdetectedSourceLanguage Write SetdetectedSourceLanguage;
+    Property translatedText : String Index 8 Read FtranslatedText Write SettranslatedText;
   end;
   TTranslationsResourceClass = Class of TTranslationsResource;
   
@@ -209,7 +158,7 @@ type
   //Optional query Options for TDetections_Resource, method List
   
   TDetectionsListOptions = Record
-    q : string;
+    q : String;
   end;
   
   TDetections_Resource = Class(TGoogleResource)
@@ -229,7 +178,7 @@ type
   //Optional query Options for TLanguages_Resource, method List
   
   TLanguagesListOptions = Record
-    target : string;
+    target : String;
   end;
   
   TLanguages_Resource = Class(TGoogleResource)
@@ -249,11 +198,11 @@ type
   //Optional query Options for TTranslations_Resource, method List
   
   TTranslationsListOptions = Record
-    cid : string;
-    format : string;
-    q : string;
-    source : string;
-    target : string;
+    cid : String;
+    format : String;
+    q : String;
+    source : String;
+    target : String;
   end;
   
   TTranslations_Resource = Class(TGoogleResource)
@@ -320,7 +269,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDetectionsListResponse.Setdetections(AIndex : Integer; AValue : TDetectionsListResponsedetections); 
+Procedure TDetectionsListResponse.Setdetections(AIndex : Integer; AValue : TDetectionsListResponseTypedetectionsArray); 
 
 begin
   If (Fdetections=AValue) then exit;
@@ -333,18 +282,11 @@ end;
 
 
 { --------------------------------------------------------------------
-  TDetectionsListResponsedetections
+  TDetectionsResourceItem
   --------------------------------------------------------------------}
 
 
-
-
-{ --------------------------------------------------------------------
-  TDetectionsResource
-  --------------------------------------------------------------------}
-
-
-Procedure TDetectionsResource.Setconfidence(AIndex : Integer; AValue : integer); 
+Procedure TDetectionsResourceItem.Setconfidence(AIndex : Integer; AValue : integer); 
 
 begin
   If (Fconfidence=AValue) then exit;
@@ -354,7 +296,7 @@ end;
 
 
 
-Procedure TDetectionsResource.SetisReliable(AIndex : Integer; AValue : boolean); 
+Procedure TDetectionsResourceItem.SetisReliable(AIndex : Integer; AValue : boolean); 
 
 begin
   If (FisReliable=AValue) then exit;
@@ -364,7 +306,7 @@ end;
 
 
 
-Procedure TDetectionsResource.Setlanguage(AIndex : Integer; AValue : string); 
+Procedure TDetectionsResourceItem.Setlanguage(AIndex : Integer; AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -381,7 +323,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLanguagesListResponse.Setlanguages(AIndex : Integer; AValue : TLanguagesListResponselanguages); 
+Procedure TLanguagesListResponse.Setlanguages(AIndex : Integer; AValue : TLanguagesListResponseTypelanguagesArray); 
 
 begin
   If (Flanguages=AValue) then exit;
@@ -393,19 +335,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TLanguagesListResponselanguages
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TLanguagesResource
   --------------------------------------------------------------------}
 
 
-Procedure TLanguagesResource.Setlanguage(AIndex : Integer; AValue : string); 
+Procedure TLanguagesResource.Setlanguage(AIndex : Integer; AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -415,7 +350,7 @@ end;
 
 
 
-Procedure TLanguagesResource.Setname(AIndex : Integer; AValue : string); 
+Procedure TLanguagesResource.Setname(AIndex : Integer; AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -432,7 +367,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTranslationsListResponse.Settranslations(AIndex : Integer; AValue : TTranslationsListResponsetranslations); 
+Procedure TTranslationsListResponse.Settranslations(AIndex : Integer; AValue : TTranslationsListResponseTypetranslationsArray); 
 
 begin
   If (Ftranslations=AValue) then exit;
@@ -444,19 +379,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TTranslationsListResponsetranslations
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TTranslationsResource
   --------------------------------------------------------------------}
 
 
-Procedure TTranslationsResource.SetdetectedSourceLanguage(AIndex : Integer; AValue : string); 
+Procedure TTranslationsResource.SetdetectedSourceLanguage(AIndex : Integer; AValue : String); 
 
 begin
   If (FdetectedSourceLanguage=AValue) then exit;
@@ -466,7 +394,7 @@ end;
 
 
 
-Procedure TTranslationsResource.SettranslatedText(AIndex : Integer; AValue : string); 
+Procedure TTranslationsResource.SettranslatedText(AIndex : Integer; AValue : String); 
 
 begin
   If (FtranslatedText=AValue) then exit;
@@ -731,13 +659,10 @@ Class Procedure TTranslateAPI.RegisterAPIResources;
 
 begin
   TDetectionsListResponse.RegisterObject;
-  TDetectionsListResponsedetections.RegisterObject;
-  TDetectionsResource.RegisterObject;
+  TDetectionsResourceItem.RegisterObject;
   TLanguagesListResponse.RegisterObject;
-  TLanguagesListResponselanguages.RegisterObject;
   TLanguagesResource.RegisterObject;
   TTranslationsListResponse.RegisterObject;
-  TTranslationsListResponsetranslations.RegisterObject;
   TTranslationsResource.RegisterObject;
 end;
 

packages/googleapi/src/googleurlshortener.pp

@@ -1,31 +1,19 @@
 unit googleurlshortener;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,27 +22,24 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TAnalyticsSnapshot = class;
-  TAnalyticsSnapshotArray = Array of TAnalyticsSnapshot;
-  TAnalyticsSnapshotbrowsers = class;
-  TAnalyticsSnapshotbrowsersArray = Array of TAnalyticsSnapshotbrowsers;
-  TAnalyticsSnapshotcountries = class;
-  TAnalyticsSnapshotcountriesArray = Array of TAnalyticsSnapshotcountries;
-  TAnalyticsSnapshotplatforms = class;
-  TAnalyticsSnapshotplatformsArray = Array of TAnalyticsSnapshotplatforms;
-  TAnalyticsSnapshotreferrers = class;
-  TAnalyticsSnapshotreferrersArray = Array of TAnalyticsSnapshotreferrers;
   TAnalyticsSummary = class;
-  TAnalyticsSummaryArray = Array of TAnalyticsSummary;
   TStringCount = class;
-  TStringCountArray = Array of TStringCount;
   TUrl = class;
-  TUrlArray = Array of TUrl;
   TUrlHistory = class;
+  TAnalyticsSnapshotArray = Array of TAnalyticsSnapshot;
+  TAnalyticsSummaryArray = Array of TAnalyticsSummary;
+  TStringCountArray = Array of TStringCount;
+  TUrlArray = Array of TUrl;
   TUrlHistoryArray = Array of TUrlHistory;
-  TUrlHistoryitems = class;
-  TUrlHistoryitemsArray = Array of TUrlHistoryitems;
+  //Anonymous types, using auto-generated names
+  TAnalyticsSnapshotTypebrowsersArray = Array of TStringCount;
+  TAnalyticsSnapshotTypecountriesArray = Array of TStringCount;
+  TAnalyticsSnapshotTypeplatformsArray = Array of TStringCount;
+  TAnalyticsSnapshotTypereferrersArray = Array of TStringCount;
+  TUrlHistoryTypeitemsArray = Array of TUrl;
   
   { --------------------------------------------------------------------
     TAnalyticsSnapshot
@@ -62,83 +47,31 @@ type
   
   TAnalyticsSnapshot = Class(TGoogleBaseObject)
   Private
-    Fbrowsers : TAnalyticsSnapshotbrowsers;
-    Fcountries : TAnalyticsSnapshotcountries;
-    FlongUrlClicks : string;
-    Fplatforms : TAnalyticsSnapshotplatforms;
-    Freferrers : TAnalyticsSnapshotreferrers;
-    FshortUrlClicks : string;
+    Fbrowsers : TAnalyticsSnapshotTypebrowsersArray;
+    Fcountries : TAnalyticsSnapshotTypecountriesArray;
+    FlongUrlClicks : String;
+    Fplatforms : TAnalyticsSnapshotTypeplatformsArray;
+    Freferrers : TAnalyticsSnapshotTypereferrersArray;
+    FshortUrlClicks : String;
   Protected
     //Property setters
-    Procedure Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotbrowsers); virtual;
-    Procedure Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotcountries); virtual;
-    Procedure SetlongUrlClicks(AIndex : Integer; AValue : string); virtual;
-    Procedure Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotplatforms); virtual;
-    Procedure Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotreferrers); virtual;
-    Procedure SetshortUrlClicks(AIndex : Integer; AValue : string); virtual;
+    Procedure Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotTypebrowsersArray); virtual;
+    Procedure Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotTypecountriesArray); virtual;
+    Procedure SetlongUrlClicks(AIndex : Integer; AValue : String); virtual;
+    Procedure Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray); virtual;
+    Procedure Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray); virtual;
+    Procedure SetshortUrlClicks(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property browsers : TAnalyticsSnapshotbrowsers Index 0 Read Fbrowsers Write Setbrowsers;
-    Property countries : TAnalyticsSnapshotcountries Index 8 Read Fcountries Write Setcountries;
-    Property longUrlClicks : string Index 16 Read FlongUrlClicks Write SetlongUrlClicks;
-    Property platforms : TAnalyticsSnapshotplatforms Index 24 Read Fplatforms Write Setplatforms;
-    Property referrers : TAnalyticsSnapshotreferrers Index 32 Read Freferrers Write Setreferrers;
-    Property shortUrlClicks : string Index 40 Read FshortUrlClicks Write SetshortUrlClicks;
+    Property browsers : TAnalyticsSnapshotTypebrowsersArray Index 0 Read Fbrowsers Write Setbrowsers;
+    Property countries : TAnalyticsSnapshotTypecountriesArray Index 8 Read Fcountries Write Setcountries;
+    Property longUrlClicks : String Index 16 Read FlongUrlClicks Write SetlongUrlClicks;
+    Property platforms : TAnalyticsSnapshotTypeplatformsArray Index 24 Read Fplatforms Write Setplatforms;
+    Property referrers : TAnalyticsSnapshotTypereferrersArray Index 32 Read Freferrers Write Setreferrers;
+    Property shortUrlClicks : String Index 40 Read FshortUrlClicks Write SetshortUrlClicks;
   end;
   TAnalyticsSnapshotClass = Class of TAnalyticsSnapshot;
   
-  { --------------------------------------------------------------------
-    TAnalyticsSnapshotbrowsers
-    --------------------------------------------------------------------}
-  
-  TAnalyticsSnapshotbrowsers = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAnalyticsSnapshotbrowsersClass = Class of TAnalyticsSnapshotbrowsers;
-  
-  { --------------------------------------------------------------------
-    TAnalyticsSnapshotcountries
-    --------------------------------------------------------------------}
-  
-  TAnalyticsSnapshotcountries = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAnalyticsSnapshotcountriesClass = Class of TAnalyticsSnapshotcountries;
-  
-  { --------------------------------------------------------------------
-    TAnalyticsSnapshotplatforms
-    --------------------------------------------------------------------}
-  
-  TAnalyticsSnapshotplatforms = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAnalyticsSnapshotplatformsClass = Class of TAnalyticsSnapshotplatforms;
-  
-  { --------------------------------------------------------------------
-    TAnalyticsSnapshotreferrers
-    --------------------------------------------------------------------}
-  
-  TAnalyticsSnapshotreferrers = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TAnalyticsSnapshotreferrersClass = Class of TAnalyticsSnapshotreferrers;
-  
   { --------------------------------------------------------------------
     TAnalyticsSummary
     --------------------------------------------------------------------}
@@ -173,16 +106,16 @@ type
   
   TStringCount = Class(TGoogleBaseObject)
   Private
-    Fcount : string;
-    Fid : string;
+    Fcount : String;
+    Fid : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property count : string Index 0 Read Fcount Write Setcount;
-    Property id : string Index 8 Read Fid Write Setid;
+    Property count : String Index 0 Read Fcount Write Setcount;
+    Property id : String Index 8 Read Fid Write Setid;
   end;
   TStringCountClass = Class of TStringCount;
   
@@ -193,27 +126,27 @@ type
   TUrl = Class(TGoogleBaseObject)
   Private
     Fanalytics : TAnalyticsSummary;
-    Fcreated : string;
-    Fid : string;
-    Fkind : string;
-    FlongUrl : string;
-    Fstatus : string;
+    Fcreated : String;
+    Fid : String;
+    Fkind : String;
+    FlongUrl : String;
+    Fstatus : String;
   Protected
     //Property setters
     Procedure Setanalytics(AIndex : Integer; AValue : TAnalyticsSummary); virtual;
-    Procedure Setcreated(AIndex : Integer; AValue : string); virtual;
-    Procedure Setid(AIndex : Integer; AValue : string); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetlongUrl(AIndex : Integer; AValue : string); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcreated(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetlongUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
   Public
   Published
     Property analytics : TAnalyticsSummary Index 0 Read Fanalytics Write Setanalytics;
-    Property created : string Index 8 Read Fcreated Write Setcreated;
-    Property id : string Index 16 Read Fid Write Setid;
-    Property kind : string Index 24 Read Fkind Write Setkind;
-    Property longUrl : string Index 32 Read FlongUrl Write SetlongUrl;
-    Property status : string Index 40 Read Fstatus Write Setstatus;
+    Property created : String Index 8 Read Fcreated Write Setcreated;
+    Property id : String Index 16 Read Fid Write Setid;
+    Property kind : String Index 24 Read Fkind Write Setkind;
+    Property longUrl : String Index 32 Read FlongUrl Write SetlongUrl;
+    Property status : String Index 40 Read Fstatus Write Setstatus;
   end;
   TUrlClass = Class of TUrl;
   
@@ -223,41 +156,28 @@ type
   
   TUrlHistory = Class(TGoogleBaseObject)
   Private
-    Fitems : TUrlHistoryitems;
+    Fitems : TUrlHistoryTypeitemsArray;
     FitemsPerPage : integer;
-    Fkind : string;
-    FnextPageToken : string;
+    Fkind : String;
+    FnextPageToken : String;
     FtotalItems : integer;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TUrlHistoryitems); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TUrlHistoryTypeitemsArray); virtual;
     Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : string); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
-    Property items : TUrlHistoryitems Index 0 Read Fitems Write Setitems;
+    Property items : TUrlHistoryTypeitemsArray Index 0 Read Fitems Write Setitems;
     Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage;
-    Property kind : string Index 16 Read Fkind Write Setkind;
-    Property nextPageToken : string Index 24 Read FnextPageToken Write SetnextPageToken;
+    Property kind : String Index 16 Read Fkind Write Setkind;
+    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
     Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
   end;
   TUrlHistoryClass = Class of TUrlHistory;
   
-  { --------------------------------------------------------------------
-    TUrlHistoryitems
-    --------------------------------------------------------------------}
-  
-  TUrlHistoryitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlHistoryitemsClass = Class of TUrlHistoryitems;
-  
   { --------------------------------------------------------------------
     TUrlResource
     --------------------------------------------------------------------}
@@ -266,16 +186,16 @@ type
   //Optional query Options for TUrlResource, method Get
   
   TUrlGetOptions = Record
-    projection : string;
-    shortUrl : string;
+    projection : String;
+    shortUrl : String;
   end;
   
   
   //Optional query Options for TUrlResource, method List
   
   TUrlListOptions = Record
-    projection : string;
-    starttoken : string;
+    projection : String;
+    starttoken : String;
   end;
   
   TUrlResource = Class(TGoogleResource)
@@ -335,7 +255,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyticsSnapshot.Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotbrowsers); 
+Procedure TAnalyticsSnapshot.Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotTypebrowsersArray); 
 
 begin
   If (Fbrowsers=AValue) then exit;
@@ -345,7 +265,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotcountries); 
+Procedure TAnalyticsSnapshot.Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotTypecountriesArray); 
 
 begin
   If (Fcountries=AValue) then exit;
@@ -355,7 +275,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.SetlongUrlClicks(AIndex : Integer; AValue : string); 
+Procedure TAnalyticsSnapshot.SetlongUrlClicks(AIndex : Integer; AValue : String); 
 
 begin
   If (FlongUrlClicks=AValue) then exit;
@@ -365,7 +285,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotplatforms); 
+Procedure TAnalyticsSnapshot.Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray); 
 
 begin
   If (Fplatforms=AValue) then exit;
@@ -375,7 +295,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotreferrers); 
+Procedure TAnalyticsSnapshot.Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray); 
 
 begin
   If (Freferrers=AValue) then exit;
@@ -385,7 +305,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.SetshortUrlClicks(AIndex : Integer; AValue : string); 
+Procedure TAnalyticsSnapshot.SetshortUrlClicks(AIndex : Integer; AValue : String); 
 
 begin
   If (FshortUrlClicks=AValue) then exit;
@@ -397,34 +317,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TAnalyticsSnapshotbrowsers
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TAnalyticsSnapshotcountries
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TAnalyticsSnapshotplatforms
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TAnalyticsSnapshotreferrers
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TAnalyticsSummary
   --------------------------------------------------------------------}
@@ -487,7 +379,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStringCount.Setcount(AIndex : Integer; AValue : string); 
+Procedure TStringCount.Setcount(AIndex : Integer; AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -497,7 +389,7 @@ end;
 
 
 
-Procedure TStringCount.Setid(AIndex : Integer; AValue : string); 
+Procedure TStringCount.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -524,7 +416,7 @@ end;
 
 
 
-Procedure TUrl.Setcreated(AIndex : Integer; AValue : string); 
+Procedure TUrl.Setcreated(AIndex : Integer; AValue : String); 
 
 begin
   If (Fcreated=AValue) then exit;
@@ -534,7 +426,7 @@ end;
 
 
 
-Procedure TUrl.Setid(AIndex : Integer; AValue : string); 
+Procedure TUrl.Setid(AIndex : Integer; AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -544,7 +436,7 @@ end;
 
 
 
-Procedure TUrl.Setkind(AIndex : Integer; AValue : string); 
+Procedure TUrl.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -554,7 +446,7 @@ end;
 
 
 
-Procedure TUrl.SetlongUrl(AIndex : Integer; AValue : string); 
+Procedure TUrl.SetlongUrl(AIndex : Integer; AValue : String); 
 
 begin
   If (FlongUrl=AValue) then exit;
@@ -564,7 +456,7 @@ end;
 
 
 
-Procedure TUrl.Setstatus(AIndex : Integer; AValue : string); 
+Procedure TUrl.Setstatus(AIndex : Integer; AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -581,7 +473,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlHistory.Setitems(AIndex : Integer; AValue : TUrlHistoryitems); 
+Procedure TUrlHistory.Setitems(AIndex : Integer; AValue : TUrlHistoryTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -601,7 +493,7 @@ end;
 
 
 
-Procedure TUrlHistory.Setkind(AIndex : Integer; AValue : string); 
+Procedure TUrlHistory.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -611,7 +503,7 @@ end;
 
 
 
-Procedure TUrlHistory.SetnextPageToken(AIndex : Integer; AValue : string); 
+Procedure TUrlHistory.SetnextPageToken(AIndex : Integer; AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -633,13 +525,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TUrlHistoryitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUrlResource
   --------------------------------------------------------------------}
@@ -843,15 +728,10 @@ Class Procedure TUrlshortenerAPI.RegisterAPIResources;
 
 begin
   TAnalyticsSnapshot.RegisterObject;
-  TAnalyticsSnapshotbrowsers.RegisterObject;
-  TAnalyticsSnapshotcountries.RegisterObject;
-  TAnalyticsSnapshotplatforms.RegisterObject;
-  TAnalyticsSnapshotreferrers.RegisterObject;
   TAnalyticsSummary.RegisterObject;
   TStringCount.RegisterObject;
   TUrl.RegisterObject;
   TUrlHistory.RegisterObject;
-  TUrlHistoryitems.RegisterObject;
 end;
 
 

packages/googleapi/src/googlewebfonts.pp

@@ -1,31 +1,19 @@
 unit googlewebfonts;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,62 +22,21 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TWebfont = class;
-  TWebfontArray = Array of TWebfont;
-  TWebfontfiles = class;
-  TWebfontfilesArray = Array of TWebfontfiles;
-  TWebfontsubsets = class;
-  TWebfontsubsetsArray = Array of TWebfontsubsets;
-  TWebfontvariants = class;
-  TWebfontvariantsArray = Array of TWebfontvariants;
   TWebfontList = class;
+  TWebfontArray = Array of TWebfont;
   TWebfontListArray = Array of TWebfontList;
-  TWebfontListitems = class;
-  TWebfontListitemsArray = Array of TWebfontListitems;
-  
-  { --------------------------------------------------------------------
-    TWebfont
-    --------------------------------------------------------------------}
-  
-  TWebfont = Class(TGoogleBaseObject)
-  Private
-    Fcategory : string;
-    Ffamily : string;
-    Ffiles : TWebfontfiles;
-    Fkind : string;
-    FlastModified : TDate;
-    Fsubsets : TWebfontsubsets;
-    Fvariants : TWebfontvariants;
-    Fversion : string;
-  Protected
-    //Property setters
-    Procedure Setcategory(AIndex : Integer; AValue : string); virtual;
-    Procedure Setfamily(AIndex : Integer; AValue : string); virtual;
-    Procedure Setfiles(AIndex : Integer; AValue : TWebfontfiles); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
-    Procedure SetlastModified(AIndex : Integer; AValue : TDate); virtual;
-    Procedure Setsubsets(AIndex : Integer; AValue : TWebfontsubsets); virtual;
-    Procedure Setvariants(AIndex : Integer; AValue : TWebfontvariants); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : string); virtual;
-  Public
-  Published
-    Property category : string Index 0 Read Fcategory Write Setcategory;
-    Property family : string Index 8 Read Ffamily Write Setfamily;
-    Property files : TWebfontfiles Index 16 Read Ffiles Write Setfiles;
-    Property kind : string Index 24 Read Fkind Write Setkind;
-    Property lastModified : TDate Index 32 Read FlastModified Write SetlastModified;
-    Property subsets : TWebfontsubsets Index 40 Read Fsubsets Write Setsubsets;
-    Property variants : TWebfontvariants Index 48 Read Fvariants Write Setvariants;
-    Property version : string Index 56 Read Fversion Write Setversion;
-  end;
-  TWebfontClass = Class of TWebfont;
+  //Anonymous types, using auto-generated names
+  TWebfontTypefiles = class;
+  TWebfontListTypeitemsArray = Array of TWebfont;
   
   { --------------------------------------------------------------------
-    TWebfontfiles
+    TWebfontTypefiles
     --------------------------------------------------------------------}
   
-  TWebfontfiles = Class(TGoogleBaseObject)
+  TWebfontTypefiles = Class(TGoogleBaseObject)
   Private
   Protected
     //Property setters
@@ -97,33 +44,44 @@ type
     Class Function AllowAdditionalProperties : Boolean; override;
   Published
   end;
-  TWebfontfilesClass = Class of TWebfontfiles;
+  TWebfontTypefilesClass = Class of TWebfontTypefiles;
   
   { --------------------------------------------------------------------
-    TWebfontsubsets
-    --------------------------------------------------------------------}
-  
-  TWebfontsubsets = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TWebfontsubsetsClass = Class of TWebfontsubsets;
-  
-  { --------------------------------------------------------------------
-    TWebfontvariants
+    TWebfont
     --------------------------------------------------------------------}
   
-  TWebfontvariants = Class(TGoogleBaseObject)
+  TWebfont = Class(TGoogleBaseObject)
   Private
+    Fcategory : String;
+    Ffamily : String;
+    Ffiles : TWebfontTypefiles;
+    Fkind : String;
+    FlastModified : TDate;
+    Fsubsets : TStringArray;
+    Fvariants : TStringArray;
+    Fversion : String;
   Protected
     //Property setters
+    Procedure Setcategory(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfamily(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfiles(AIndex : Integer; AValue : TWebfontTypefiles); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetlastModified(AIndex : Integer; AValue : TDate); virtual;
+    Procedure Setsubsets(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure Setvariants(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
   Public
   Published
+    Property category : String Index 0 Read Fcategory Write Setcategory;
+    Property family : String Index 8 Read Ffamily Write Setfamily;
+    Property files : TWebfontTypefiles Index 16 Read Ffiles Write Setfiles;
+    Property kind : String Index 24 Read Fkind Write Setkind;
+    Property lastModified : TDate Index 32 Read FlastModified Write SetlastModified;
+    Property subsets : TStringArray Index 40 Read Fsubsets Write Setsubsets;
+    Property variants : TStringArray Index 48 Read Fvariants Write Setvariants;
+    Property version : String Index 56 Read Fversion Write Setversion;
   end;
-  TWebfontvariantsClass = Class of TWebfontvariants;
+  TWebfontClass = Class of TWebfont;
   
   { --------------------------------------------------------------------
     TWebfontList
@@ -131,32 +89,19 @@ type
   
   TWebfontList = Class(TGoogleBaseObject)
   Private
-    Fitems : TWebfontListitems;
-    Fkind : string;
+    Fitems : TWebfontListTypeitemsArray;
+    Fkind : String;
   Protected
     //Property setters
-    Procedure Setitems(AIndex : Integer; AValue : TWebfontListitems); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : string); virtual;
+    Procedure Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray); virtual;
+    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property items : TWebfontListitems Index 0 Read Fitems Write Setitems;
-    Property kind : string Index 8 Read Fkind Write Setkind;
+    Property items : TWebfontListTypeitemsArray Index 0 Read Fitems Write Setitems;
+    Property kind : String Index 8 Read Fkind Write Setkind;
   end;
   TWebfontListClass = Class of TWebfontList;
   
-  { --------------------------------------------------------------------
-    TWebfontListitems
-    --------------------------------------------------------------------}
-  
-  TWebfontListitems = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TWebfontListitemsClass = Class of TWebfontListitems;
-  
   { --------------------------------------------------------------------
     TWebfontsResource
     --------------------------------------------------------------------}
@@ -165,7 +110,7 @@ type
   //Optional query Options for TWebfontsResource, method List
   
   TWebfontsListOptions = Record
-    sort : string;
+    sort : String;
   end;
   
   TWebfontsResource = Class(TGoogleResource)
@@ -217,12 +162,25 @@ type
 implementation
 
 
+{ --------------------------------------------------------------------
+  TWebfontTypefiles
+  --------------------------------------------------------------------}
+
+
+Class Function TWebfontTypefiles.AllowAdditionalProperties : Boolean;
+
+begin
+  Result:=True;
+end;
+
+
+
 { --------------------------------------------------------------------
   TWebfont
   --------------------------------------------------------------------}
 
 
-Procedure TWebfont.Setcategory(AIndex : Integer; AValue : string); 
+Procedure TWebfont.Setcategory(AIndex : Integer; AValue : String); 
 
 begin
   If (Fcategory=AValue) then exit;
@@ -232,7 +190,7 @@ end;
 
 
 
-Procedure TWebfont.Setfamily(AIndex : Integer; AValue : string); 
+Procedure TWebfont.Setfamily(AIndex : Integer; AValue : String); 
 
 begin
   If (Ffamily=AValue) then exit;
@@ -242,7 +200,7 @@ end;
 
 
 
-Procedure TWebfont.Setfiles(AIndex : Integer; AValue : TWebfontfiles); 
+Procedure TWebfont.Setfiles(AIndex : Integer; AValue : TWebfontTypefiles); 
 
 begin
   If (Ffiles=AValue) then exit;
@@ -252,7 +210,7 @@ end;
 
 
 
-Procedure TWebfont.Setkind(AIndex : Integer; AValue : string); 
+Procedure TWebfont.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -272,7 +230,7 @@ end;
 
 
 
-Procedure TWebfont.Setsubsets(AIndex : Integer; AValue : TWebfontsubsets); 
+Procedure TWebfont.Setsubsets(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (Fsubsets=AValue) then exit;
@@ -282,7 +240,7 @@ end;
 
 
 
-Procedure TWebfont.Setvariants(AIndex : Integer; AValue : TWebfontvariants); 
+Procedure TWebfont.Setvariants(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (Fvariants=AValue) then exit;
@@ -292,7 +250,7 @@ end;
 
 
 
-Procedure TWebfont.Setversion(AIndex : Integer; AValue : string); 
+Procedure TWebfont.Setversion(AIndex : Integer; AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -304,39 +262,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TWebfontfiles
-  --------------------------------------------------------------------}
-
-
-Class Function TWebfontfiles.AllowAdditionalProperties : Boolean;
-
-begin
-  Result:=True;
-end;
-
-
-
-{ --------------------------------------------------------------------
-  TWebfontsubsets
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TWebfontvariants
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TWebfontList
   --------------------------------------------------------------------}
 
 
-Procedure TWebfontList.Setitems(AIndex : Integer; AValue : TWebfontListitems); 
+Procedure TWebfontList.Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray); 
 
 begin
   If (Fitems=AValue) then exit;
@@ -346,7 +277,7 @@ end;
 
 
 
-Procedure TWebfontList.Setkind(AIndex : Integer; AValue : string); 
+Procedure TWebfontList.Setkind(AIndex : Integer; AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -358,13 +289,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TWebfontListitems
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TWebfontsResource
   --------------------------------------------------------------------}
@@ -529,12 +453,9 @@ end;
 Class Procedure TWebfontsAPI.RegisterAPIResources;
 
 begin
+  TWebfontTypefiles.RegisterObject;
   TWebfont.RegisterObject;
-  TWebfontfiles.RegisterObject;
-  TWebfontsubsets.RegisterObject;
-  TWebfontvariants.RegisterObject;
   TWebfontList.RegisterObject;
-  TWebfontListitems.RegisterObject;
 end;
 
 

packages/googleapi/src/googlewebmasters.pp

@@ -1,31 +1,19 @@
 unit googlewebmasters;
 {
-  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.
+   **********************************************************************
+      This file is part of the Free Component Library (FCL)
+      Copyright (c) 2015 The free pascal team.
   
-  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:
+      See the file COPYING.FPC, included in this distribution,
+      for details about the copyright.
   
-  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,
-  and to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a module
-  which is not derived from or based on this library. If you modify this
-  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
+      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: 9-5-15 13:22:59
 {$MODE objfpc}
 {$H+}
 
@@ -34,45 +22,37 @@ interface
 uses sysutils, classes, googleservice, restbase, googlebase;
 
 type
-  //
+  
+  //Top-level schema types
   TSitemapsListResponse = class;
-  TSitemapsListResponseArray = Array of TSitemapsListResponse;
-  TSitemapsListResponsesitemap = class;
-  TSitemapsListResponsesitemapArray = Array of TSitemapsListResponsesitemap;
   TSitesListResponse = class;
-  TSitesListResponseArray = Array of TSitesListResponse;
-  TSitesListResponsesiteEntry = class;
-  TSitesListResponsesiteEntryArray = Array of TSitesListResponsesiteEntry;
   TUrlCrawlErrorCount = class;
-  TUrlCrawlErrorCountArray = Array of TUrlCrawlErrorCount;
   TUrlCrawlErrorCountsPerType = class;
-  TUrlCrawlErrorCountsPerTypeArray = Array of TUrlCrawlErrorCountsPerType;
-  TUrlCrawlErrorCountsPerTypeentries = class;
-  TUrlCrawlErrorCountsPerTypeentriesArray = Array of TUrlCrawlErrorCountsPerTypeentries;
   TUrlCrawlErrorsCountsQueryResponse = class;
-  TUrlCrawlErrorsCountsQueryResponseArray = Array of TUrlCrawlErrorsCountsQueryResponse;
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypes = class;
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypesArray = Array of TUrlCrawlErrorsCountsQueryResponsecountPerTypes;
   TUrlCrawlErrorsSample = class;
-  TUrlCrawlErrorsSampleArray = Array of TUrlCrawlErrorsSample;
   TUrlCrawlErrorsSamplesListResponse = class;
-  TUrlCrawlErrorsSamplesListResponseArray = Array of TUrlCrawlErrorsSamplesListResponse;
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample = class;
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSampleArray = Array of TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample;
   TUrlSampleDetails = class;
-  TUrlSampleDetailsArray = Array of TUrlSampleDetails;
-  TUrlSampleDetailscontainingSitemaps = class;
-  TUrlSampleDetailscontainingSitemapsArray = Array of TUrlSampleDetailscontainingSitemaps;
-  TUrlSampleDetailslinkedFromUrls = class;
-  TUrlSampleDetailslinkedFromUrlsArray = Array of TUrlSampleDetailslinkedFromUrls;
   TWmxSite = class;
-  TWmxSiteArray = Array of TWmxSite;
   TWmxSitemap = class;
-  TWmxSitemapArray = Array of TWmxSitemap;
-  TWmxSitemapcontents = class;
-  TWmxSitemapcontentsArray = Array of TWmxSitemapcontents;
   TWmxSitemapContent = class;
+  TSitemapsListResponseArray = Array of TSitemapsListResponse;
+  TSitesListResponseArray = Array of TSitesListResponse;
+  TUrlCrawlErrorCountArray = Array of TUrlCrawlErrorCount;
+  TUrlCrawlErrorCountsPerTypeArray = Array of TUrlCrawlErrorCountsPerType;
+  TUrlCrawlErrorsCountsQueryResponseArray = Array of TUrlCrawlErrorsCountsQueryResponse;
+  TUrlCrawlErrorsSampleArray = Array of TUrlCrawlErrorsSample;
+  TUrlCrawlErrorsSamplesListResponseArray = Array of TUrlCrawlErrorsSamplesListResponse;
+  TUrlSampleDetailsArray = Array of TUrlSampleDetails;
+  TWmxSiteArray = Array of TWmxSite;
+  TWmxSitemapArray = Array of TWmxSitemap;
   TWmxSitemapContentArray = Array of TWmxSitemapContent;
+  //Anonymous types, using auto-generated names
+  TSitemapsListResponseTypesitemapArray = Array of TWmxSitemap;
+  TSitesListResponseTypesiteEntryArray = Array of TWmxSite;
+  TUrlCrawlErrorCountsPerTypeTypeentriesArray = Array of TUrlCrawlErrorCount;
+  TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray = Array of TUrlCrawlErrorCountsPerType;
+  TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray = Array of TUrlCrawlErrorsSample;
+  TWmxSitemapTypecontentsArray = Array of TWmxSitemapContent;
   
   { --------------------------------------------------------------------
     TSitemapsListResponse
@@ -80,73 +60,47 @@ type
   
   TSitemapsListResponse = Class(TGoogleBaseObject)
   Private
-    Fsitemap : TSitemapsListResponsesitemap;
+    Fsitemap : TSitemapsListResponseTypesitemapArray;
   Protected
     //Property setters
-    Procedure Setsitemap(AIndex : Integer; AValue : TSitemapsListResponsesitemap); virtual;
+    Procedure Setsitemap(AIndex : Integer; AValue : TSitemapsListResponseTypesitemapArray); virtual;
   Public
   Published
-    Property sitemap : TSitemapsListResponsesitemap Index 0 Read Fsitemap Write Setsitemap;
+    Property sitemap : TSitemapsListResponseTypesitemapArray Index 0 Read Fsitemap Write Setsitemap;
   end;
   TSitemapsListResponseClass = Class of TSitemapsListResponse;
   
-  { --------------------------------------------------------------------
-    TSitemapsListResponsesitemap
-    --------------------------------------------------------------------}
-  
-  TSitemapsListResponsesitemap = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TSitemapsListResponsesitemapClass = Class of TSitemapsListResponsesitemap;
-  
   { --------------------------------------------------------------------
     TSitesListResponse
     --------------------------------------------------------------------}
   
   TSitesListResponse = Class(TGoogleBaseObject)
   Private
-    FsiteEntry : TSitesListResponsesiteEntry;
+    FsiteEntry : TSitesListResponseTypesiteEntryArray;
   Protected
     //Property setters
-    Procedure SetsiteEntry(AIndex : Integer; AValue : TSitesListResponsesiteEntry); virtual;
+    Procedure SetsiteEntry(AIndex : Integer; AValue : TSitesListResponseTypesiteEntryArray); virtual;
   Public
   Published
-    Property siteEntry : TSitesListResponsesiteEntry Index 0 Read FsiteEntry Write SetsiteEntry;
+    Property siteEntry : TSitesListResponseTypesiteEntryArray Index 0 Read FsiteEntry Write SetsiteEntry;
   end;
   TSitesListResponseClass = Class of TSitesListResponse;
   
-  { --------------------------------------------------------------------
-    TSitesListResponsesiteEntry
-    --------------------------------------------------------------------}
-  
-  TSitesListResponsesiteEntry = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TSitesListResponsesiteEntryClass = Class of TSitesListResponsesiteEntry;
-  
   { --------------------------------------------------------------------
     TUrlCrawlErrorCount
     --------------------------------------------------------------------}
   
   TUrlCrawlErrorCount = Class(TGoogleBaseObject)
   Private
-    Fcount : string;
+    Fcount : String;
     Ftimestamp : TDatetime;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
     Procedure Settimestamp(AIndex : Integer; AValue : TDatetime); virtual;
   Public
   Published
-    Property count : string Index 0 Read Fcount Write Setcount;
+    Property count : String Index 0 Read Fcount Write Setcount;
     Property timestamp : TDatetime Index 8 Read Ftimestamp Write Settimestamp;
   end;
   TUrlCrawlErrorCountClass = Class of TUrlCrawlErrorCount;
@@ -157,64 +111,38 @@ type
   
   TUrlCrawlErrorCountsPerType = Class(TGoogleBaseObject)
   Private
-    Fcategory : string;
-    Fentries : TUrlCrawlErrorCountsPerTypeentries;
-    Fplatform : string;
+    Fcategory : String;
+    Fentries : TUrlCrawlErrorCountsPerTypeTypeentriesArray;
+    Fplatform : String;
   Protected
     //Property setters
-    Procedure Setcategory(AIndex : Integer; AValue : string); virtual;
-    Procedure Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeentries); virtual;
-    Procedure Setplatform(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcategory(AIndex : Integer; AValue : String); virtual;
+    Procedure Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); virtual;
+    Procedure Setplatform(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property category : string Index 0 Read Fcategory Write Setcategory;
-    Property entries : TUrlCrawlErrorCountsPerTypeentries Index 8 Read Fentries Write Setentries;
-    Property platform : string Index 16 Read Fplatform Write Setplatform;
+    Property category : String Index 0 Read Fcategory Write Setcategory;
+    Property entries : TUrlCrawlErrorCountsPerTypeTypeentriesArray Index 8 Read Fentries Write Setentries;
+    Property platform : String Index 16 Read Fplatform Write Setplatform;
   end;
   TUrlCrawlErrorCountsPerTypeClass = Class of TUrlCrawlErrorCountsPerType;
   
-  { --------------------------------------------------------------------
-    TUrlCrawlErrorCountsPerTypeentries
-    --------------------------------------------------------------------}
-  
-  TUrlCrawlErrorCountsPerTypeentries = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlCrawlErrorCountsPerTypeentriesClass = Class of TUrlCrawlErrorCountsPerTypeentries;
-  
   { --------------------------------------------------------------------
     TUrlCrawlErrorsCountsQueryResponse
     --------------------------------------------------------------------}
   
   TUrlCrawlErrorsCountsQueryResponse = Class(TGoogleBaseObject)
   Private
-    FcountPerTypes : TUrlCrawlErrorsCountsQueryResponsecountPerTypes;
+    FcountPerTypes : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray;
   Protected
     //Property setters
-    Procedure SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponsecountPerTypes); virtual;
+    Procedure SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray); virtual;
   Public
   Published
-    Property countPerTypes : TUrlCrawlErrorsCountsQueryResponsecountPerTypes Index 0 Read FcountPerTypes Write SetcountPerTypes;
+    Property countPerTypes : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray Index 0 Read FcountPerTypes Write SetcountPerTypes;
   end;
   TUrlCrawlErrorsCountsQueryResponseClass = Class of TUrlCrawlErrorsCountsQueryResponse;
   
-  { --------------------------------------------------------------------
-    TUrlCrawlErrorsCountsQueryResponsecountPerTypes
-    --------------------------------------------------------------------}
-  
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypes = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypesClass = Class of TUrlCrawlErrorsCountsQueryResponsecountPerTypes;
-  
   { --------------------------------------------------------------------
     TUrlCrawlErrorsSample
     --------------------------------------------------------------------}
@@ -223,21 +151,21 @@ type
   Private
     Ffirst_detected : TDatetime;
     Flast_crawled : TDatetime;
-    FpageUrl : string;
+    FpageUrl : String;
     FresponseCode : integer;
     FurlDetails : TUrlSampleDetails;
   Protected
     //Property setters
     Procedure Setfirst_detected(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setlast_crawled(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetpageUrl(AIndex : Integer; AValue : string); virtual;
+    Procedure SetpageUrl(AIndex : Integer; AValue : String); virtual;
     Procedure SetresponseCode(AIndex : Integer; AValue : integer); virtual;
     Procedure SeturlDetails(AIndex : Integer; AValue : TUrlSampleDetails); virtual;
   Public
   Published
     Property first_detected : TDatetime Index 0 Read Ffirst_detected Write Setfirst_detected;
     Property last_crawled : TDatetime Index 8 Read Flast_crawled Write Setlast_crawled;
-    Property pageUrl : string Index 16 Read FpageUrl Write SetpageUrl;
+    Property pageUrl : String Index 16 Read FpageUrl Write SetpageUrl;
     Property responseCode : integer Index 24 Read FresponseCode Write SetresponseCode;
     Property urlDetails : TUrlSampleDetails Index 32 Read FurlDetails Write SeturlDetails;
   end;
@@ -249,90 +177,51 @@ type
   
   TUrlCrawlErrorsSamplesListResponse = Class(TGoogleBaseObject)
   Private
-    FurlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample;
+    FurlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray;
   Protected
     //Property setters
-    Procedure SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample); virtual;
+    Procedure SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray); virtual;
   Public
   Published
-    Property urlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample Index 0 Read FurlCrawlErrorSample Write SeturlCrawlErrorSample;
+    Property urlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray Index 0 Read FurlCrawlErrorSample Write SeturlCrawlErrorSample;
   end;
   TUrlCrawlErrorsSamplesListResponseClass = Class of TUrlCrawlErrorsSamplesListResponse;
   
-  { --------------------------------------------------------------------
-    TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample
-    --------------------------------------------------------------------}
-  
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSampleClass = Class of TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample;
-  
   { --------------------------------------------------------------------
     TUrlSampleDetails
     --------------------------------------------------------------------}
   
   TUrlSampleDetails = Class(TGoogleBaseObject)
   Private
-    FcontainingSitemaps : TUrlSampleDetailscontainingSitemaps;
-    FlinkedFromUrls : TUrlSampleDetailslinkedFromUrls;
+    FcontainingSitemaps : TStringArray;
+    FlinkedFromUrls : TStringArray;
   Protected
     //Property setters
-    Procedure SetcontainingSitemaps(AIndex : Integer; AValue : TUrlSampleDetailscontainingSitemaps); virtual;
-    Procedure SetlinkedFromUrls(AIndex : Integer; AValue : TUrlSampleDetailslinkedFromUrls); virtual;
+    Procedure SetcontainingSitemaps(AIndex : Integer; AValue : TStringArray); virtual;
+    Procedure SetlinkedFromUrls(AIndex : Integer; AValue : TStringArray); virtual;
   Public
   Published
-    Property containingSitemaps : TUrlSampleDetailscontainingSitemaps Index 0 Read FcontainingSitemaps Write SetcontainingSitemaps;
-    Property linkedFromUrls : TUrlSampleDetailslinkedFromUrls Index 8 Read FlinkedFromUrls Write SetlinkedFromUrls;
+    Property containingSitemaps : TStringArray Index 0 Read FcontainingSitemaps Write SetcontainingSitemaps;
+    Property linkedFromUrls : TStringArray Index 8 Read FlinkedFromUrls Write SetlinkedFromUrls;
   end;
   TUrlSampleDetailsClass = Class of TUrlSampleDetails;
   
-  { --------------------------------------------------------------------
-    TUrlSampleDetailscontainingSitemaps
-    --------------------------------------------------------------------}
-  
-  TUrlSampleDetailscontainingSitemaps = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlSampleDetailscontainingSitemapsClass = Class of TUrlSampleDetailscontainingSitemaps;
-  
-  { --------------------------------------------------------------------
-    TUrlSampleDetailslinkedFromUrls
-    --------------------------------------------------------------------}
-  
-  TUrlSampleDetailslinkedFromUrls = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TUrlSampleDetailslinkedFromUrlsClass = Class of TUrlSampleDetailslinkedFromUrls;
-  
   { --------------------------------------------------------------------
     TWmxSite
     --------------------------------------------------------------------}
   
   TWmxSite = Class(TGoogleBaseObject)
   Private
-    FpermissionLevel : string;
-    FsiteUrl : string;
+    FpermissionLevel : String;
+    FsiteUrl : String;
   Protected
     //Property setters
-    Procedure SetpermissionLevel(AIndex : Integer; AValue : string); virtual;
-    Procedure SetsiteUrl(AIndex : Integer; AValue : string); virtual;
+    Procedure SetpermissionLevel(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsiteUrl(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property permissionLevel : string Index 0 Read FpermissionLevel Write SetpermissionLevel;
-    Property siteUrl : string Index 8 Read FsiteUrl Write SetsiteUrl;
+    Property permissionLevel : String Index 0 Read FpermissionLevel Write SetpermissionLevel;
+    Property siteUrl : String Index 8 Read FsiteUrl Write SetsiteUrl;
   end;
   TWmxSiteClass = Class of TWmxSite;
   
@@ -342,74 +231,61 @@ type
   
   TWmxSitemap = Class(TGoogleBaseObject)
   Private
-    Fcontents : TWmxSitemapcontents;
-    Ferrors : string;
+    Fcontents : TWmxSitemapTypecontentsArray;
+    Ferrors : String;
     FisPending : boolean;
     FisSitemapsIndex : boolean;
     FlastDownloaded : TDatetime;
     FlastSubmitted : TDatetime;
-    Fpath : string;
-    F_type : string;
-    Fwarnings : string;
+    Fpath : String;
+    F_type : String;
+    Fwarnings : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setcontents(AIndex : Integer; AValue : TWmxSitemapcontents); virtual;
-    Procedure Seterrors(AIndex : Integer; AValue : string); virtual;
+    Procedure Setcontents(AIndex : Integer; AValue : TWmxSitemapTypecontentsArray); virtual;
+    Procedure Seterrors(AIndex : Integer; AValue : String); virtual;
     Procedure SetisPending(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetisSitemapsIndex(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetlastDownloaded(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetlastSubmitted(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
-    Procedure Setwarnings(AIndex : Integer; AValue : string); virtual;
+    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setwarnings(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property contents : TWmxSitemapcontents Index 0 Read Fcontents Write Setcontents;
-    Property errors : string Index 8 Read Ferrors Write Seterrors;
+    Property contents : TWmxSitemapTypecontentsArray Index 0 Read Fcontents Write Setcontents;
+    Property errors : String Index 8 Read Ferrors Write Seterrors;
     Property isPending : boolean Index 16 Read FisPending Write SetisPending;
     Property isSitemapsIndex : boolean Index 24 Read FisSitemapsIndex Write SetisSitemapsIndex;
     Property lastDownloaded : TDatetime Index 32 Read FlastDownloaded Write SetlastDownloaded;
     Property lastSubmitted : TDatetime Index 40 Read FlastSubmitted Write SetlastSubmitted;
-    Property path : string Index 48 Read Fpath Write Setpath;
-    Property _type : string Index 56 Read F_type Write Set_type;
-    Property warnings : string Index 64 Read Fwarnings Write Setwarnings;
+    Property path : String Index 48 Read Fpath Write Setpath;
+    Property _type : String Index 56 Read F_type Write Set_type;
+    Property warnings : String Index 64 Read Fwarnings Write Setwarnings;
   end;
   TWmxSitemapClass = Class of TWmxSitemap;
   
-  { --------------------------------------------------------------------
-    TWmxSitemapcontents
-    --------------------------------------------------------------------}
-  
-  TWmxSitemapcontents = Class(TGoogleBaseObject)
-  Private
-  Protected
-    //Property setters
-  Public
-  Published
-  end;
-  TWmxSitemapcontentsClass = Class of TWmxSitemapcontents;
-  
   { --------------------------------------------------------------------
     TWmxSitemapContent
     --------------------------------------------------------------------}
   
   TWmxSitemapContent = Class(TGoogleBaseObject)
   Private
-    Findexed : string;
-    Fsubmitted : string;
-    F_type : string;
+    Findexed : String;
+    Fsubmitted : String;
+    F_type : String;
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setindexed(AIndex : Integer; AValue : string); virtual;
-    Procedure Setsubmitted(AIndex : Integer; AValue : string); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : string); virtual;
+    Procedure Setindexed(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsubmitted(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
   Public
   Published
-    Property indexed : string Index 0 Read Findexed Write Setindexed;
-    Property submitted : string Index 8 Read Fsubmitted Write Setsubmitted;
-    Property _type : string Index 16 Read F_type Write Set_type;
+    Property indexed : String Index 0 Read Findexed Write Setindexed;
+    Property submitted : String Index 8 Read Fsubmitted Write Setsubmitted;
+    Property _type : String Index 16 Read F_type Write Set_type;
   end;
   TWmxSitemapContentClass = Class of TWmxSitemapContent;
   
@@ -421,7 +297,7 @@ type
   //Optional query Options for TSitemapsResource, method List
   
   TSitemapsListOptions = Record
-    sitemapIndex : string;
+    sitemapIndex : String;
   end;
   
   TSitemapsResource = Class(TGoogleResource)
@@ -459,9 +335,9 @@ type
   //Optional query Options for TUrlcrawlerrorscountsResource, method Query
   
   TUrlcrawlerrorscountsQueryOptions = Record
-    category : string;
+    category : String;
     latestCountsOnly : boolean;
-    platform : string;
+    platform : String;
   end;
   
   TUrlcrawlerrorscountsResource = Class(TGoogleResource)
@@ -481,24 +357,24 @@ type
   //Optional query Options for TUrlcrawlerrorssamplesResource, method Get
   
   TUrlcrawlerrorssamplesGetOptions = Record
-    category : string;
-    platform : string;
+    category : String;
+    platform : String;
   end;
   
   
   //Optional query Options for TUrlcrawlerrorssamplesResource, method List
   
   TUrlcrawlerrorssamplesListOptions = Record
-    category : string;
-    platform : string;
+    category : String;
+    platform : String;
   end;
   
   
   //Optional query Options for TUrlcrawlerrorssamplesResource, method MarkAsFixed
   
   TUrlcrawlerrorssamplesMarkAsFixedOptions = Record
-    category : string;
-    platform : string;
+    category : String;
+    platform : String;
   end;
   
   TUrlcrawlerrorssamplesResource = Class(TGoogleResource)
@@ -574,7 +450,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSitemapsListResponse.Setsitemap(AIndex : Integer; AValue : TSitemapsListResponsesitemap); 
+Procedure TSitemapsListResponse.Setsitemap(AIndex : Integer; AValue : TSitemapsListResponseTypesitemapArray); 
 
 begin
   If (Fsitemap=AValue) then exit;
@@ -586,19 +462,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TSitemapsListResponsesitemap
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TSitesListResponse
   --------------------------------------------------------------------}
 
 
-Procedure TSitesListResponse.SetsiteEntry(AIndex : Integer; AValue : TSitesListResponsesiteEntry); 
+Procedure TSitesListResponse.SetsiteEntry(AIndex : Integer; AValue : TSitesListResponseTypesiteEntryArray); 
 
 begin
   If (FsiteEntry=AValue) then exit;
@@ -610,19 +479,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TSitesListResponsesiteEntry
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUrlCrawlErrorCount
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorCount.Setcount(AIndex : Integer; AValue : string); 
+Procedure TUrlCrawlErrorCount.Setcount(AIndex : Integer; AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -649,7 +511,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorCountsPerType.Setcategory(AIndex : Integer; AValue : string); 
+Procedure TUrlCrawlErrorCountsPerType.Setcategory(AIndex : Integer; AValue : String); 
 
 begin
   If (Fcategory=AValue) then exit;
@@ -659,7 +521,7 @@ end;
 
 
 
-Procedure TUrlCrawlErrorCountsPerType.Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeentries); 
+Procedure TUrlCrawlErrorCountsPerType.Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); 
 
 begin
   If (Fentries=AValue) then exit;
@@ -669,7 +531,7 @@ end;
 
 
 
-Procedure TUrlCrawlErrorCountsPerType.Setplatform(AIndex : Integer; AValue : string); 
+Procedure TUrlCrawlErrorCountsPerType.Setplatform(AIndex : Integer; AValue : String); 
 
 begin
   If (Fplatform=AValue) then exit;
@@ -681,19 +543,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TUrlCrawlErrorCountsPerTypeentries
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUrlCrawlErrorsCountsQueryResponse
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorsCountsQueryResponse.SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponsecountPerTypes); 
+Procedure TUrlCrawlErrorsCountsQueryResponse.SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray); 
 
 begin
   If (FcountPerTypes=AValue) then exit;
@@ -705,13 +560,6 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypes
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUrlCrawlErrorsSample
   --------------------------------------------------------------------}
@@ -737,7 +585,7 @@ end;
 
 
 
-Procedure TUrlCrawlErrorsSample.SetpageUrl(AIndex : Integer; AValue : string); 
+Procedure TUrlCrawlErrorsSample.SetpageUrl(AIndex : Integer; AValue : String); 
 
 begin
   If (FpageUrl=AValue) then exit;
@@ -774,7 +622,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorsSamplesListResponse.SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample); 
+Procedure TUrlCrawlErrorsSamplesListResponse.SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray); 
 
 begin
   If (FurlCrawlErrorSample=AValue) then exit;
@@ -786,19 +634,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TUrlSampleDetails
   --------------------------------------------------------------------}
 
 
-Procedure TUrlSampleDetails.SetcontainingSitemaps(AIndex : Integer; AValue : TUrlSampleDetailscontainingSitemaps); 
+Procedure TUrlSampleDetails.SetcontainingSitemaps(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FcontainingSitemaps=AValue) then exit;
@@ -808,7 +649,7 @@ end;
 
 
 
-Procedure TUrlSampleDetails.SetlinkedFromUrls(AIndex : Integer; AValue : TUrlSampleDetailslinkedFromUrls); 
+Procedure TUrlSampleDetails.SetlinkedFromUrls(AIndex : Integer; AValue : TStringArray); 
 
 begin
   If (FlinkedFromUrls=AValue) then exit;
@@ -820,26 +661,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TUrlSampleDetailscontainingSitemaps
-  --------------------------------------------------------------------}
-
-
-
-
-{ --------------------------------------------------------------------
-  TUrlSampleDetailslinkedFromUrls
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TWmxSite
   --------------------------------------------------------------------}
 
 
-Procedure TWmxSite.SetpermissionLevel(AIndex : Integer; AValue : string); 
+Procedure TWmxSite.SetpermissionLevel(AIndex : Integer; AValue : String); 
 
 begin
   If (FpermissionLevel=AValue) then exit;
@@ -849,7 +676,7 @@ end;
 
 
 
-Procedure TWmxSite.SetsiteUrl(AIndex : Integer; AValue : string); 
+Procedure TWmxSite.SetsiteUrl(AIndex : Integer; AValue : String); 
 
 begin
   If (FsiteUrl=AValue) then exit;
@@ -866,7 +693,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWmxSitemap.Setcontents(AIndex : Integer; AValue : TWmxSitemapcontents); 
+Procedure TWmxSitemap.Setcontents(AIndex : Integer; AValue : TWmxSitemapTypecontentsArray); 
 
 begin
   If (Fcontents=AValue) then exit;
@@ -876,7 +703,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Seterrors(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemap.Seterrors(AIndex : Integer; AValue : String); 
 
 begin
   If (Ferrors=AValue) then exit;
@@ -926,7 +753,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Setpath(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemap.Setpath(AIndex : Integer; AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -936,7 +763,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Set_type(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemap.Set_type(AIndex : Integer; AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -946,7 +773,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Setwarnings(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemap.Setwarnings(AIndex : Integer; AValue : String); 
 
 begin
   If (Fwarnings=AValue) then exit;
@@ -969,19 +796,12 @@ end;
 
 
 
-{ --------------------------------------------------------------------
-  TWmxSitemapcontents
-  --------------------------------------------------------------------}
-
-
-
-
 { --------------------------------------------------------------------
   TWmxSitemapContent
   --------------------------------------------------------------------}
 
 
-Procedure TWmxSitemapContent.Setindexed(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemapContent.Setindexed(AIndex : Integer; AValue : String); 
 
 begin
   If (Findexed=AValue) then exit;
@@ -991,7 +811,7 @@ end;
 
 
 
-Procedure TWmxSitemapContent.Setsubmitted(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemapContent.Setsubmitted(AIndex : Integer; AValue : String); 
 
 begin
   If (Fsubmitted=AValue) then exit;
@@ -1001,7 +821,7 @@ end;
 
 
 
-Procedure TWmxSitemapContent.Set_type(AIndex : Integer; AValue : string); 
+Procedure TWmxSitemapContent.Set_type(AIndex : Integer; AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1468,23 +1288,15 @@ Class Procedure TWebmastersAPI.RegisterAPIResources;
 
 begin
   TSitemapsListResponse.RegisterObject;
-  TSitemapsListResponsesitemap.RegisterObject;
   TSitesListResponse.RegisterObject;
-  TSitesListResponsesiteEntry.RegisterObject;
   TUrlCrawlErrorCount.RegisterObject;
   TUrlCrawlErrorCountsPerType.RegisterObject;
-  TUrlCrawlErrorCountsPerTypeentries.RegisterObject;
   TUrlCrawlErrorsCountsQueryResponse.RegisterObject;
-  TUrlCrawlErrorsCountsQueryResponsecountPerTypes.RegisterObject;
   TUrlCrawlErrorsSample.RegisterObject;
   TUrlCrawlErrorsSamplesListResponse.RegisterObject;
-  TUrlCrawlErrorsSamplesListResponseurlCrawlErrorSample.RegisterObject;
   TUrlSampleDetails.RegisterObject;
-  TUrlSampleDetailscontainingSitemaps.RegisterObject;
-  TUrlSampleDetailslinkedFromUrls.RegisterObject;
   TWmxSite.RegisterObject;
   TWmxSitemap.RegisterObject;
-  TWmxSitemapcontents.RegisterObject;
   TWmxSitemapContent.RegisterObject;
 end;