unit googleclouddebugger; {$MODE objfpc} {$H+} interface uses sysutils, classes, googleservice, restbase, googlebase; type //Top-level schema types TRegisterDebuggeeRequest = Class; TDebuggee = Class; TStatusMessage = Class; TFormatMessage = Class; TSourceContext = Class; TCloudRepoSourceContext = Class; TRepoId = Class; TProjectRepoId = Class; TAliasContext = Class; TCloudWorkspaceSourceContext = Class; TCloudWorkspaceId = Class; TGerritSourceContext = Class; TGitSourceContext = Class; TExtendedSourceContext = Class; TRegisterDebuggeeResponse = Class; TListActiveBreakpointsResponse = Class; TBreakpoint = Class; TSourceLocation = Class; TStackFrame = Class; TVariable = Class; TUpdateActiveBreakpointRequest = Class; TUpdateActiveBreakpointResponse = Class; TSetBreakpointResponse = Class; TGetBreakpointResponse = Class; TEmpty = Class; TListBreakpointsResponse = Class; TListDebuggeesResponse = Class; TRegisterDebuggeeRequestArray = Array of TRegisterDebuggeeRequest; TDebuggeeArray = Array of TDebuggee; TStatusMessageArray = Array of TStatusMessage; TFormatMessageArray = Array of TFormatMessage; TSourceContextArray = Array of TSourceContext; TCloudRepoSourceContextArray = Array of TCloudRepoSourceContext; TRepoIdArray = Array of TRepoId; TProjectRepoIdArray = Array of TProjectRepoId; TAliasContextArray = Array of TAliasContext; TCloudWorkspaceSourceContextArray = Array of TCloudWorkspaceSourceContext; TCloudWorkspaceIdArray = Array of TCloudWorkspaceId; TGerritSourceContextArray = Array of TGerritSourceContext; TGitSourceContextArray = Array of TGitSourceContext; TExtendedSourceContextArray = Array of TExtendedSourceContext; TRegisterDebuggeeResponseArray = Array of TRegisterDebuggeeResponse; TListActiveBreakpointsResponseArray = Array of TListActiveBreakpointsResponse; TBreakpointArray = Array of TBreakpoint; TSourceLocationArray = Array of TSourceLocation; TStackFrameArray = Array of TStackFrame; TVariableArray = Array of TVariable; TUpdateActiveBreakpointRequestArray = Array of TUpdateActiveBreakpointRequest; TUpdateActiveBreakpointResponseArray = Array of TUpdateActiveBreakpointResponse; TSetBreakpointResponseArray = Array of TSetBreakpointResponse; TGetBreakpointResponseArray = Array of TGetBreakpointResponse; TEmptyArray = Array of TEmpty; TListBreakpointsResponseArray = Array of TListBreakpointsResponse; TListDebuggeesResponseArray = Array of TListDebuggeesResponse; //Anonymous types, using auto-generated names TDebuggeeTypelabels = Class; TExtendedSourceContextTypelabels = Class; TBreakpointTypelabels = Class; TDebuggeeTypesourceContextsArray = Array of TSourceContext; TDebuggeeTypeextSourceContextsArray = Array of TExtendedSourceContext; TListActiveBreakpointsResponseTypebreakpointsArray = Array of TBreakpoint; TBreakpointTypestackFramesArray = Array of TStackFrame; TBreakpointTypeevaluatedExpressionsArray = Array of TVariable; TBreakpointTypevariableTableArray = Array of TVariable; TStackFrameTypeargumentsArray = Array of TVariable; TStackFrameTypelocalsArray = Array of TVariable; TVariableTypemembersArray = Array of TVariable; TListBreakpointsResponseTypebreakpointsArray = Array of TBreakpoint; TListDebuggeesResponseTypedebuggeesArray = Array of TDebuggee; { -------------------------------------------------------------------- TRegisterDebuggeeRequest --------------------------------------------------------------------} TRegisterDebuggeeRequest = Class(TGoogleBaseObject) Private Fdebuggee : TDebuggee; Protected //Property setters Procedure Setdebuggee(AIndex : Integer; const AValue : TDebuggee); virtual; Public Published Property debuggee : TDebuggee Index 0 Read Fdebuggee Write Setdebuggee; end; TRegisterDebuggeeRequestClass = Class of TRegisterDebuggeeRequest; { -------------------------------------------------------------------- TDebuggeeTypelabels --------------------------------------------------------------------} TDebuggeeTypelabels = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TDebuggeeTypelabelsClass = Class of TDebuggeeTypelabels; { -------------------------------------------------------------------- TDebuggee --------------------------------------------------------------------} TDebuggee = Class(TGoogleBaseObject) Private Fid : String; Fproject : String; Funiquifier : String; Fdescription : String; FisInactive : boolean; FagentVersion : String; FisDisabled : boolean; Fstatus : TStatusMessage; FsourceContexts : TDebuggeeTypesourceContextsArray; FextSourceContexts : TDebuggeeTypeextSourceContextsArray; Flabels : TDebuggeeTypelabels; Protected //Property setters Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setproject(AIndex : Integer; const AValue : String); virtual; Procedure Setuniquifier(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure SetisInactive(AIndex : Integer; const AValue : boolean); virtual; Procedure SetagentVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetisDisabled(AIndex : Integer; const AValue : boolean); virtual; Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual; Procedure SetsourceContexts(AIndex : Integer; const AValue : TDebuggeeTypesourceContextsArray); virtual; Procedure SetextSourceContexts(AIndex : Integer; const AValue : TDebuggeeTypeextSourceContextsArray); virtual; Procedure Setlabels(AIndex : Integer; const AValue : TDebuggeeTypelabels); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property id : String Index 0 Read Fid Write Setid; Property project : String Index 8 Read Fproject Write Setproject; Property uniquifier : String Index 16 Read Funiquifier Write Setuniquifier; Property description : String Index 24 Read Fdescription Write Setdescription; Property isInactive : boolean Index 32 Read FisInactive Write SetisInactive; Property agentVersion : String Index 40 Read FagentVersion Write SetagentVersion; Property isDisabled : boolean Index 48 Read FisDisabled Write SetisDisabled; Property status : TStatusMessage Index 56 Read Fstatus Write Setstatus; Property sourceContexts : TDebuggeeTypesourceContextsArray Index 64 Read FsourceContexts Write SetsourceContexts; Property extSourceContexts : TDebuggeeTypeextSourceContextsArray Index 72 Read FextSourceContexts Write SetextSourceContexts; Property labels : TDebuggeeTypelabels Index 80 Read Flabels Write Setlabels; end; TDebuggeeClass = Class of TDebuggee; { -------------------------------------------------------------------- TStatusMessage --------------------------------------------------------------------} TStatusMessage = Class(TGoogleBaseObject) Private FisError : boolean; FrefersTo : String; Fdescription : TFormatMessage; Protected //Property setters Procedure SetisError(AIndex : Integer; const AValue : boolean); virtual; Procedure SetrefersTo(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : TFormatMessage); virtual; Public Published Property isError : boolean Index 0 Read FisError Write SetisError; Property refersTo : String Index 8 Read FrefersTo Write SetrefersTo; Property description : TFormatMessage Index 16 Read Fdescription Write Setdescription; end; TStatusMessageClass = Class of TStatusMessage; { -------------------------------------------------------------------- TFormatMessage --------------------------------------------------------------------} TFormatMessage = Class(TGoogleBaseObject) Private Fformat : String; Fparameters : TStringArray; Protected //Property setters Procedure Setformat(AIndex : Integer; const AValue : String); virtual; Procedure Setparameters(AIndex : Integer; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property format : String Index 0 Read Fformat Write Setformat; Property parameters : TStringArray Index 8 Read Fparameters Write Setparameters; end; TFormatMessageClass = Class of TFormatMessage; { -------------------------------------------------------------------- TSourceContext --------------------------------------------------------------------} TSourceContext = Class(TGoogleBaseObject) Private FcloudRepo : TCloudRepoSourceContext; FcloudWorkspace : TCloudWorkspaceSourceContext; Fgerrit : TGerritSourceContext; Fgit : TGitSourceContext; Protected //Property setters Procedure SetcloudRepo(AIndex : Integer; const AValue : TCloudRepoSourceContext); virtual; Procedure SetcloudWorkspace(AIndex : Integer; const AValue : TCloudWorkspaceSourceContext); virtual; Procedure Setgerrit(AIndex : Integer; const AValue : TGerritSourceContext); virtual; Procedure Setgit(AIndex : Integer; const AValue : TGitSourceContext); virtual; Public Published Property cloudRepo : TCloudRepoSourceContext Index 0 Read FcloudRepo Write SetcloudRepo; Property cloudWorkspace : TCloudWorkspaceSourceContext Index 8 Read FcloudWorkspace Write SetcloudWorkspace; Property gerrit : TGerritSourceContext Index 16 Read Fgerrit Write Setgerrit; Property git : TGitSourceContext Index 24 Read Fgit Write Setgit; end; TSourceContextClass = Class of TSourceContext; { -------------------------------------------------------------------- TCloudRepoSourceContext --------------------------------------------------------------------} TCloudRepoSourceContext = Class(TGoogleBaseObject) Private FrepoId : TRepoId; FrevisionId : String; FaliasName : String; FaliasContext : TAliasContext; Protected //Property setters Procedure SetrepoId(AIndex : Integer; const AValue : TRepoId); virtual; Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual; Procedure SetaliasName(AIndex : Integer; const AValue : String); virtual; Procedure SetaliasContext(AIndex : Integer; const AValue : TAliasContext); virtual; Public Published Property repoId : TRepoId Index 0 Read FrepoId Write SetrepoId; Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId; Property aliasName : String Index 16 Read FaliasName Write SetaliasName; Property aliasContext : TAliasContext Index 24 Read FaliasContext Write SetaliasContext; end; TCloudRepoSourceContextClass = Class of TCloudRepoSourceContext; { -------------------------------------------------------------------- TRepoId --------------------------------------------------------------------} TRepoId = Class(TGoogleBaseObject) Private FprojectRepoId : TProjectRepoId; Fuid : String; Protected //Property setters Procedure SetprojectRepoId(AIndex : Integer; const AValue : TProjectRepoId); virtual; Procedure Setuid(AIndex : Integer; const AValue : String); virtual; Public Published Property projectRepoId : TProjectRepoId Index 0 Read FprojectRepoId Write SetprojectRepoId; Property uid : String Index 8 Read Fuid Write Setuid; end; TRepoIdClass = Class of TRepoId; { -------------------------------------------------------------------- TProjectRepoId --------------------------------------------------------------------} TProjectRepoId = Class(TGoogleBaseObject) Private FprojectId : String; FrepoName : String; Protected //Property setters Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual; Procedure SetrepoName(AIndex : Integer; const AValue : String); virtual; Public Published Property projectId : String Index 0 Read FprojectId Write SetprojectId; Property repoName : String Index 8 Read FrepoName Write SetrepoName; end; TProjectRepoIdClass = Class of TProjectRepoId; { -------------------------------------------------------------------- TAliasContext --------------------------------------------------------------------} TAliasContext = Class(TGoogleBaseObject) Private Fkind : String; Fname : String; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property name : String Index 8 Read Fname Write Setname; end; TAliasContextClass = Class of TAliasContext; { -------------------------------------------------------------------- TCloudWorkspaceSourceContext --------------------------------------------------------------------} TCloudWorkspaceSourceContext = Class(TGoogleBaseObject) Private FworkspaceId : TCloudWorkspaceId; FsnapshotId : String; Protected //Property setters Procedure SetworkspaceId(AIndex : Integer; const AValue : TCloudWorkspaceId); virtual; Procedure SetsnapshotId(AIndex : Integer; const AValue : String); virtual; Public Published Property workspaceId : TCloudWorkspaceId Index 0 Read FworkspaceId Write SetworkspaceId; Property snapshotId : String Index 8 Read FsnapshotId Write SetsnapshotId; end; TCloudWorkspaceSourceContextClass = Class of TCloudWorkspaceSourceContext; { -------------------------------------------------------------------- TCloudWorkspaceId --------------------------------------------------------------------} TCloudWorkspaceId = Class(TGoogleBaseObject) Private FrepoId : TRepoId; Fname : String; Protected //Property setters Procedure SetrepoId(AIndex : Integer; const AValue : TRepoId); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property repoId : TRepoId Index 0 Read FrepoId Write SetrepoId; Property name : String Index 8 Read Fname Write Setname; end; TCloudWorkspaceIdClass = Class of TCloudWorkspaceId; { -------------------------------------------------------------------- TGerritSourceContext --------------------------------------------------------------------} TGerritSourceContext = Class(TGoogleBaseObject) Private FhostUri : String; FgerritProject : String; FrevisionId : String; FaliasName : String; FaliasContext : TAliasContext; Protected //Property setters Procedure SethostUri(AIndex : Integer; const AValue : String); virtual; Procedure SetgerritProject(AIndex : Integer; const AValue : String); virtual; Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual; Procedure SetaliasName(AIndex : Integer; const AValue : String); virtual; Procedure SetaliasContext(AIndex : Integer; const AValue : TAliasContext); virtual; Public Published Property hostUri : String Index 0 Read FhostUri Write SethostUri; Property gerritProject : String Index 8 Read FgerritProject Write SetgerritProject; Property revisionId : String Index 16 Read FrevisionId Write SetrevisionId; Property aliasName : String Index 24 Read FaliasName Write SetaliasName; Property aliasContext : TAliasContext Index 32 Read FaliasContext Write SetaliasContext; end; TGerritSourceContextClass = Class of TGerritSourceContext; { -------------------------------------------------------------------- TGitSourceContext --------------------------------------------------------------------} TGitSourceContext = Class(TGoogleBaseObject) Private Furl : String; FrevisionId : String; Protected //Property setters Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual; Public Published Property url : String Index 0 Read Furl Write Seturl; Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId; end; TGitSourceContextClass = Class of TGitSourceContext; { -------------------------------------------------------------------- TExtendedSourceContextTypelabels --------------------------------------------------------------------} TExtendedSourceContextTypelabels = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TExtendedSourceContextTypelabelsClass = Class of TExtendedSourceContextTypelabels; { -------------------------------------------------------------------- TExtendedSourceContext --------------------------------------------------------------------} TExtendedSourceContext = Class(TGoogleBaseObject) Private Fcontext : TSourceContext; Flabels : TExtendedSourceContextTypelabels; Protected //Property setters Procedure Setcontext(AIndex : Integer; const AValue : TSourceContext); virtual; Procedure Setlabels(AIndex : Integer; const AValue : TExtendedSourceContextTypelabels); virtual; Public Published Property context : TSourceContext Index 0 Read Fcontext Write Setcontext; Property labels : TExtendedSourceContextTypelabels Index 8 Read Flabels Write Setlabels; end; TExtendedSourceContextClass = Class of TExtendedSourceContext; { -------------------------------------------------------------------- TRegisterDebuggeeResponse --------------------------------------------------------------------} TRegisterDebuggeeResponse = Class(TGoogleBaseObject) Private Fdebuggee : TDebuggee; Protected //Property setters Procedure Setdebuggee(AIndex : Integer; const AValue : TDebuggee); virtual; Public Published Property debuggee : TDebuggee Index 0 Read Fdebuggee Write Setdebuggee; end; TRegisterDebuggeeResponseClass = Class of TRegisterDebuggeeResponse; { -------------------------------------------------------------------- TListActiveBreakpointsResponse --------------------------------------------------------------------} TListActiveBreakpointsResponse = Class(TGoogleBaseObject) Private Fbreakpoints : TListActiveBreakpointsResponseTypebreakpointsArray; FnextWaitToken : String; FwaitExpired : boolean; Protected //Property setters Procedure Setbreakpoints(AIndex : Integer; const AValue : TListActiveBreakpointsResponseTypebreakpointsArray); virtual; Procedure SetnextWaitToken(AIndex : Integer; const AValue : String); virtual; Procedure SetwaitExpired(AIndex : Integer; const AValue : boolean); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property breakpoints : TListActiveBreakpointsResponseTypebreakpointsArray Index 0 Read Fbreakpoints Write Setbreakpoints; Property nextWaitToken : String Index 8 Read FnextWaitToken Write SetnextWaitToken; Property waitExpired : boolean Index 16 Read FwaitExpired Write SetwaitExpired; end; TListActiveBreakpointsResponseClass = Class of TListActiveBreakpointsResponse; { -------------------------------------------------------------------- TBreakpointTypelabels --------------------------------------------------------------------} TBreakpointTypelabels = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TBreakpointTypelabelsClass = Class of TBreakpointTypelabels; { -------------------------------------------------------------------- TBreakpoint --------------------------------------------------------------------} TBreakpoint = Class(TGoogleBaseObject) Private Fid : String; Faction : String; Flocation : TSourceLocation; Fcondition : String; Fexpressions : TStringArray; FlogMessageFormat : String; FlogLevel : String; FisFinalState : boolean; FcreateTime : String; FfinalTime : String; FuserEmail : String; Fstatus : TStatusMessage; FstackFrames : TBreakpointTypestackFramesArray; FevaluatedExpressions : TBreakpointTypeevaluatedExpressionsArray; FvariableTable : TBreakpointTypevariableTableArray; Flabels : TBreakpointTypelabels; Protected //Property setters Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setaction(AIndex : Integer; const AValue : String); virtual; Procedure Setlocation(AIndex : Integer; const AValue : TSourceLocation); virtual; Procedure Setcondition(AIndex : Integer; const AValue : String); virtual; Procedure Setexpressions(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetlogMessageFormat(AIndex : Integer; const AValue : String); virtual; Procedure SetlogLevel(AIndex : Integer; const AValue : String); virtual; Procedure SetisFinalState(AIndex : Integer; const AValue : boolean); virtual; Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual; Procedure SetfinalTime(AIndex : Integer; const AValue : String); virtual; Procedure SetuserEmail(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual; Procedure SetstackFrames(AIndex : Integer; const AValue : TBreakpointTypestackFramesArray); virtual; Procedure SetevaluatedExpressions(AIndex : Integer; const AValue : TBreakpointTypeevaluatedExpressionsArray); virtual; Procedure SetvariableTable(AIndex : Integer; const AValue : TBreakpointTypevariableTableArray); virtual; Procedure Setlabels(AIndex : Integer; const AValue : TBreakpointTypelabels); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property id : String Index 0 Read Fid Write Setid; Property action : String Index 8 Read Faction Write Setaction; Property location : TSourceLocation Index 16 Read Flocation Write Setlocation; Property condition : String Index 24 Read Fcondition Write Setcondition; Property expressions : TStringArray Index 32 Read Fexpressions Write Setexpressions; Property logMessageFormat : String Index 40 Read FlogMessageFormat Write SetlogMessageFormat; Property logLevel : String Index 48 Read FlogLevel Write SetlogLevel; Property isFinalState : boolean Index 56 Read FisFinalState Write SetisFinalState; Property createTime : String Index 64 Read FcreateTime Write SetcreateTime; Property finalTime : String Index 72 Read FfinalTime Write SetfinalTime; Property userEmail : String Index 80 Read FuserEmail Write SetuserEmail; Property status : TStatusMessage Index 88 Read Fstatus Write Setstatus; Property stackFrames : TBreakpointTypestackFramesArray Index 96 Read FstackFrames Write SetstackFrames; Property evaluatedExpressions : TBreakpointTypeevaluatedExpressionsArray Index 104 Read FevaluatedExpressions Write SetevaluatedExpressions; Property variableTable : TBreakpointTypevariableTableArray Index 112 Read FvariableTable Write SetvariableTable; Property labels : TBreakpointTypelabels Index 120 Read Flabels Write Setlabels; end; TBreakpointClass = Class of TBreakpoint; { -------------------------------------------------------------------- TSourceLocation --------------------------------------------------------------------} TSourceLocation = Class(TGoogleBaseObject) Private Fpath : String; Fline : integer; Protected //Property setters Procedure Setpath(AIndex : Integer; const AValue : String); virtual; Procedure Setline(AIndex : Integer; const AValue : integer); virtual; Public Published Property path : String Index 0 Read Fpath Write Setpath; Property line : integer Index 8 Read Fline Write Setline; end; TSourceLocationClass = Class of TSourceLocation; { -------------------------------------------------------------------- TStackFrame --------------------------------------------------------------------} TStackFrame = Class(TGoogleBaseObject) Private F_function : String; Flocation : TSourceLocation; Farguments : TStackFrameTypeargumentsArray; Flocals : TStackFrameTypelocalsArray; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_function(AIndex : Integer; const AValue : String); virtual; Procedure Setlocation(AIndex : Integer; const AValue : TSourceLocation); virtual; Procedure Setarguments(AIndex : Integer; const AValue : TStackFrameTypeargumentsArray); virtual; Procedure Setlocals(AIndex : Integer; const AValue : TStackFrameTypelocalsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property _function : String Index 0 Read F_function Write Set_function; Property location : TSourceLocation Index 8 Read Flocation Write Setlocation; Property arguments : TStackFrameTypeargumentsArray Index 16 Read Farguments Write Setarguments; Property locals : TStackFrameTypelocalsArray Index 24 Read Flocals Write Setlocals; end; TStackFrameClass = Class of TStackFrame; { -------------------------------------------------------------------- TVariable --------------------------------------------------------------------} TVariable = Class(TGoogleBaseObject) Private Fname : String; Fvalue : String; F_type : String; Fmembers : TVariableTypemembersArray; FvarTableIndex : integer; Fstatus : TStatusMessage; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setmembers(AIndex : Integer; const AValue : TVariableTypemembersArray); virtual; Procedure SetvarTableIndex(AIndex : Integer; const AValue : integer); virtual; Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property name : String Index 0 Read Fname Write Setname; Property value : String Index 8 Read Fvalue Write Setvalue; Property _type : String Index 16 Read F_type Write Set_type; Property members : TVariableTypemembersArray Index 24 Read Fmembers Write Setmembers; Property varTableIndex : integer Index 32 Read FvarTableIndex Write SetvarTableIndex; Property status : TStatusMessage Index 40 Read Fstatus Write Setstatus; end; TVariableClass = Class of TVariable; { -------------------------------------------------------------------- TUpdateActiveBreakpointRequest --------------------------------------------------------------------} TUpdateActiveBreakpointRequest = Class(TGoogleBaseObject) Private Fbreakpoint : TBreakpoint; Protected //Property setters Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual; Public Published Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint; end; TUpdateActiveBreakpointRequestClass = Class of TUpdateActiveBreakpointRequest; { -------------------------------------------------------------------- TUpdateActiveBreakpointResponse --------------------------------------------------------------------} TUpdateActiveBreakpointResponse = Class(TGoogleBaseObject) Private Protected //Property setters Public Published end; TUpdateActiveBreakpointResponseClass = Class of TUpdateActiveBreakpointResponse; { -------------------------------------------------------------------- TSetBreakpointResponse --------------------------------------------------------------------} TSetBreakpointResponse = Class(TGoogleBaseObject) Private Fbreakpoint : TBreakpoint; Protected //Property setters Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual; Public Published Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint; end; TSetBreakpointResponseClass = Class of TSetBreakpointResponse; { -------------------------------------------------------------------- TGetBreakpointResponse --------------------------------------------------------------------} TGetBreakpointResponse = Class(TGoogleBaseObject) Private Fbreakpoint : TBreakpoint; Protected //Property setters Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual; Public Published Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint; end; TGetBreakpointResponseClass = Class of TGetBreakpointResponse; { -------------------------------------------------------------------- TEmpty --------------------------------------------------------------------} TEmpty = Class(TGoogleBaseObject) Private Protected //Property setters Public Published end; TEmptyClass = Class of TEmpty; { -------------------------------------------------------------------- TListBreakpointsResponse --------------------------------------------------------------------} TListBreakpointsResponse = Class(TGoogleBaseObject) Private Fbreakpoints : TListBreakpointsResponseTypebreakpointsArray; FnextWaitToken : String; Protected //Property setters Procedure Setbreakpoints(AIndex : Integer; const AValue : TListBreakpointsResponseTypebreakpointsArray); virtual; Procedure SetnextWaitToken(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property breakpoints : TListBreakpointsResponseTypebreakpointsArray Index 0 Read Fbreakpoints Write Setbreakpoints; Property nextWaitToken : String Index 8 Read FnextWaitToken Write SetnextWaitToken; end; TListBreakpointsResponseClass = Class of TListBreakpointsResponse; { -------------------------------------------------------------------- TListDebuggeesResponse --------------------------------------------------------------------} TListDebuggeesResponse = Class(TGoogleBaseObject) Private Fdebuggees : TListDebuggeesResponseTypedebuggeesArray; Protected //Property setters Procedure Setdebuggees(AIndex : Integer; const AValue : TListDebuggeesResponseTypedebuggeesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property debuggees : TListDebuggeesResponseTypedebuggeesArray Index 0 Read Fdebuggees Write Setdebuggees; end; TListDebuggeesResponseClass = Class of TListDebuggeesResponse; { -------------------------------------------------------------------- TControllerDebuggeesBreakpointsResource --------------------------------------------------------------------} //Optional query Options for TControllerDebuggeesBreakpointsResource, method List TControllerDebuggeesBreakpointsListOptions = Record waitToken : String; successOnTimeout : boolean; end; TControllerDebuggeesBreakpointsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(debuggeeId: string; AQuery : string = '') : TListActiveBreakpointsResponse; Function List(debuggeeId: string; AQuery : TControllerDebuggeesBreakpointslistOptions) : TListActiveBreakpointsResponse; Function Update(debuggeeId: string; id: string; aUpdateActiveBreakpointRequest : TUpdateActiveBreakpointRequest) : TUpdateActiveBreakpointResponse; end; { -------------------------------------------------------------------- TControllerDebuggeesResource --------------------------------------------------------------------} TControllerDebuggeesResource = Class(TGoogleResource) Private FBreakpointsInstance : TControllerDebuggeesBreakpointsResource; Function GetBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Register(aRegisterDebuggeeRequest : TRegisterDebuggeeRequest) : TRegisterDebuggeeResponse; Function CreateBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload; Function CreateBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload; Property BreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetBreakpointsInstance; end; { -------------------------------------------------------------------- TControllerResource --------------------------------------------------------------------} TControllerResource = Class(TGoogleResource) Private FDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource; FDebuggeesInstance : TControllerDebuggeesResource; Function GetDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual; Function GetDebuggeesInstance : TControllerDebuggeesResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;virtual;overload; Function CreateDebuggeesResource : TControllerDebuggeesResource;virtual;overload; Property DebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetDebuggeesBreakpointsInstance; Property DebuggeesResource : TControllerDebuggeesResource Read GetDebuggeesInstance; end; { -------------------------------------------------------------------- TDebuggerDebuggeesBreakpointsResource --------------------------------------------------------------------} //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Set TDebuggerDebuggeesBreakpointsSetOptions = Record clientVersion : String; end; //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Get TDebuggerDebuggeesBreakpointsGetOptions = Record clientVersion : String; end; //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Delete TDebuggerDebuggeesBreakpointsDeleteOptions = Record clientVersion : String; end; //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method List TDebuggerDebuggeesBreakpointsListOptions = Record includeAllUsers : boolean; includeInactive : boolean; actionvalue : String; stripResults : boolean; waitToken : String; clientVersion : String; end; TDebuggerDebuggeesBreakpointsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function _set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : string = '') : TSetBreakpointResponse; Function _set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : TDebuggerDebuggeesBreakpointssetOptions) : TSetBreakpointResponse; Function Get(debuggeeId: string; breakpointId: string; AQuery : string = '') : TGetBreakpointResponse; Function Get(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsgetOptions) : TGetBreakpointResponse; Function Delete(debuggeeId: string; breakpointId: string; AQuery : string = '') : TEmpty; Function Delete(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsdeleteOptions) : TEmpty; Function List(debuggeeId: string; AQuery : string = '') : TListBreakpointsResponse; Function List(debuggeeId: string; AQuery : TDebuggerDebuggeesBreakpointslistOptions) : TListBreakpointsResponse; end; { -------------------------------------------------------------------- TDebuggerDebuggeesResource --------------------------------------------------------------------} //Optional query Options for TDebuggerDebuggeesResource, method List TDebuggerDebuggeesListOptions = Record project : String; includeInactive : boolean; clientVersion : String; end; TDebuggerDebuggeesResource = Class(TGoogleResource) Private FBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; Function GetBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TListDebuggeesResponse; Function List(AQuery : TDebuggerDebuggeeslistOptions) : TListDebuggeesResponse; Function CreateBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Function CreateBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Property BreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetBreakpointsInstance; end; { -------------------------------------------------------------------- TDebuggerResource --------------------------------------------------------------------} TDebuggerResource = Class(TGoogleResource) Private FDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; FDebuggeesInstance : TDebuggerDebuggeesResource; Function GetDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual; Function GetDebuggeesInstance : TDebuggerDebuggeesResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;virtual;overload; Function CreateDebuggeesResource : TDebuggerDebuggeesResource;virtual;overload; Property DebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetDebuggeesBreakpointsInstance; Property DebuggeesResource : TDebuggerDebuggeesResource Read GetDebuggeesInstance; end; { -------------------------------------------------------------------- TClouddebuggerAPI --------------------------------------------------------------------} TClouddebuggerAPI = Class(TGoogleAPI) Private FControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource; FControllerDebuggeesInstance : TControllerDebuggeesResource; FControllerInstance : TControllerResource; FDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; FDebuggerDebuggeesInstance : TDebuggerDebuggeesResource; FDebuggerInstance : TDebuggerResource; Function GetControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual; Function GetControllerDebuggeesInstance : TControllerDebuggeesResource;virtual; Function GetControllerInstance : TControllerResource;virtual; Function GetDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual; Function GetDebuggerDebuggeesInstance : TDebuggerDebuggeesResource;virtual; Function GetDebuggerInstance : TDebuggerResource;virtual; Public //Override class functions with API info Class Function APIName : String; override; Class Function APIVersion : String; override; Class Function APIRevision : String; override; Class Function APIID : String; override; Class Function APITitle : String; override; Class Function APIDescription : String; override; Class Function APIOwnerDomain : String; override; Class Function APIOwnerName : String; override; Class Function APIIcon16 : String; override; Class Function APIIcon32 : String; override; Class Function APIdocumentationLink : String; override; Class Function APIrootUrl : string; override; Class Function APIbasePath : string;override; Class Function APIbaseURL : String;override; Class Function APIProtocol : string;override; Class Function APIservicePath : string;override; Class Function APIbatchPath : String;override; Class Function APIAuthScopes : TScopeInfoArray;override; Class Function APINeedsAuth : Boolean;override; Class Procedure RegisterAPIResources; override; //Add create function for resources Function CreateControllerDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload; Function CreateControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload; Function CreateControllerDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;virtual;overload; Function CreateControllerDebuggeesResource : TControllerDebuggeesResource;virtual;overload; Function CreateControllerResource(AOwner : TComponent) : TControllerResource;virtual;overload; Function CreateControllerResource : TControllerResource;virtual;overload; Function CreateDebuggerDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload; Function CreateDebuggerDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;virtual;overload; Function CreateDebuggerDebuggeesResource : TDebuggerDebuggeesResource;virtual;overload; Function CreateDebuggerResource(AOwner : TComponent) : TDebuggerResource;virtual;overload; Function CreateDebuggerResource : TDebuggerResource;virtual;overload; //Add default on-demand instances for resources Property ControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetControllerDebuggeesBreakpointsInstance; Property ControllerDebuggeesResource : TControllerDebuggeesResource Read GetControllerDebuggeesInstance; Property ControllerResource : TControllerResource Read GetControllerInstance; Property DebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetDebuggerDebuggeesBreakpointsInstance; Property DebuggerDebuggeesResource : TDebuggerDebuggeesResource Read GetDebuggerDebuggeesInstance; Property DebuggerResource : TDebuggerResource Read GetDebuggerInstance; end; implementation { -------------------------------------------------------------------- TRegisterDebuggeeRequest --------------------------------------------------------------------} Procedure TRegisterDebuggeeRequest.Setdebuggee(AIndex : Integer; const AValue : TDebuggee); begin If (Fdebuggee=AValue) then exit; Fdebuggee:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDebuggeeTypelabels --------------------------------------------------------------------} Class Function TDebuggeeTypelabels.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TDebuggee --------------------------------------------------------------------} Procedure TDebuggee.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.Setproject(AIndex : Integer; const AValue : String); begin If (Fproject=AValue) then exit; Fproject:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.Setuniquifier(AIndex : Integer; const AValue : String); begin If (Funiquifier=AValue) then exit; Funiquifier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.SetisInactive(AIndex : Integer; const AValue : boolean); begin If (FisInactive=AValue) then exit; FisInactive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.SetagentVersion(AIndex : Integer; const AValue : String); begin If (FagentVersion=AValue) then exit; FagentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.SetisDisabled(AIndex : Integer; const AValue : boolean); begin If (FisDisabled=AValue) then exit; FisDisabled:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.Setstatus(AIndex : Integer; const AValue : TStatusMessage); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.SetsourceContexts(AIndex : Integer; const AValue : TDebuggeeTypesourceContextsArray); begin If (FsourceContexts=AValue) then exit; FsourceContexts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.SetextSourceContexts(AIndex : Integer; const AValue : TDebuggeeTypeextSourceContextsArray); begin If (FextSourceContexts=AValue) then exit; FextSourceContexts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDebuggee.Setlabels(AIndex : Integer; const AValue : TDebuggeeTypelabels); begin If (Flabels=AValue) then exit; Flabels:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDebuggee.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'sourcecontexts' : SetLength(FsourceContexts,ALength); 'extsourcecontexts' : SetLength(FextSourceContexts,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TStatusMessage --------------------------------------------------------------------} Procedure TStatusMessage.SetisError(AIndex : Integer; const AValue : boolean); begin If (FisError=AValue) then exit; FisError:=AValue; MarkPropertyChanged(AIndex); end; Procedure TStatusMessage.SetrefersTo(AIndex : Integer; const AValue : String); begin If (FrefersTo=AValue) then exit; FrefersTo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TStatusMessage.Setdescription(AIndex : Integer; const AValue : TFormatMessage); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFormatMessage --------------------------------------------------------------------} Procedure TFormatMessage.Setformat(AIndex : Integer; const AValue : String); begin If (Fformat=AValue) then exit; Fformat:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFormatMessage.Setparameters(AIndex : Integer; const AValue : TStringArray); begin If (Fparameters=AValue) then exit; Fparameters:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TFormatMessage.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'parameters' : SetLength(Fparameters,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TSourceContext --------------------------------------------------------------------} Procedure TSourceContext.SetcloudRepo(AIndex : Integer; const AValue : TCloudRepoSourceContext); begin If (FcloudRepo=AValue) then exit; FcloudRepo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSourceContext.SetcloudWorkspace(AIndex : Integer; const AValue : TCloudWorkspaceSourceContext); begin If (FcloudWorkspace=AValue) then exit; FcloudWorkspace:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSourceContext.Setgerrit(AIndex : Integer; const AValue : TGerritSourceContext); begin If (Fgerrit=AValue) then exit; Fgerrit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSourceContext.Setgit(AIndex : Integer; const AValue : TGitSourceContext); begin If (Fgit=AValue) then exit; Fgit:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCloudRepoSourceContext --------------------------------------------------------------------} Procedure TCloudRepoSourceContext.SetrepoId(AIndex : Integer; const AValue : TRepoId); begin If (FrepoId=AValue) then exit; FrepoId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCloudRepoSourceContext.SetrevisionId(AIndex : Integer; const AValue : String); begin If (FrevisionId=AValue) then exit; FrevisionId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCloudRepoSourceContext.SetaliasName(AIndex : Integer; const AValue : String); begin If (FaliasName=AValue) then exit; FaliasName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCloudRepoSourceContext.SetaliasContext(AIndex : Integer; const AValue : TAliasContext); begin If (FaliasContext=AValue) then exit; FaliasContext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TRepoId --------------------------------------------------------------------} Procedure TRepoId.SetprojectRepoId(AIndex : Integer; const AValue : TProjectRepoId); begin If (FprojectRepoId=AValue) then exit; FprojectRepoId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRepoId.Setuid(AIndex : Integer; const AValue : String); begin If (Fuid=AValue) then exit; Fuid:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProjectRepoId --------------------------------------------------------------------} Procedure TProjectRepoId.SetprojectId(AIndex : Integer; const AValue : String); begin If (FprojectId=AValue) then exit; FprojectId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProjectRepoId.SetrepoName(AIndex : Integer; const AValue : String); begin If (FrepoName=AValue) then exit; FrepoName:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAliasContext --------------------------------------------------------------------} Procedure TAliasContext.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAliasContext.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCloudWorkspaceSourceContext --------------------------------------------------------------------} Procedure TCloudWorkspaceSourceContext.SetworkspaceId(AIndex : Integer; const AValue : TCloudWorkspaceId); begin If (FworkspaceId=AValue) then exit; FworkspaceId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCloudWorkspaceSourceContext.SetsnapshotId(AIndex : Integer; const AValue : String); begin If (FsnapshotId=AValue) then exit; FsnapshotId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCloudWorkspaceId --------------------------------------------------------------------} Procedure TCloudWorkspaceId.SetrepoId(AIndex : Integer; const AValue : TRepoId); begin If (FrepoId=AValue) then exit; FrepoId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCloudWorkspaceId.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGerritSourceContext --------------------------------------------------------------------} Procedure TGerritSourceContext.SethostUri(AIndex : Integer; const AValue : String); begin If (FhostUri=AValue) then exit; FhostUri:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGerritSourceContext.SetgerritProject(AIndex : Integer; const AValue : String); begin If (FgerritProject=AValue) then exit; FgerritProject:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGerritSourceContext.SetrevisionId(AIndex : Integer; const AValue : String); begin If (FrevisionId=AValue) then exit; FrevisionId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGerritSourceContext.SetaliasName(AIndex : Integer; const AValue : String); begin If (FaliasName=AValue) then exit; FaliasName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGerritSourceContext.SetaliasContext(AIndex : Integer; const AValue : TAliasContext); begin If (FaliasContext=AValue) then exit; FaliasContext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGitSourceContext --------------------------------------------------------------------} Procedure TGitSourceContext.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGitSourceContext.SetrevisionId(AIndex : Integer; const AValue : String); begin If (FrevisionId=AValue) then exit; FrevisionId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TExtendedSourceContextTypelabels --------------------------------------------------------------------} Class Function TExtendedSourceContextTypelabels.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TExtendedSourceContext --------------------------------------------------------------------} Procedure TExtendedSourceContext.Setcontext(AIndex : Integer; const AValue : TSourceContext); begin If (Fcontext=AValue) then exit; Fcontext:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExtendedSourceContext.Setlabels(AIndex : Integer; const AValue : TExtendedSourceContextTypelabels); begin If (Flabels=AValue) then exit; Flabels:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TRegisterDebuggeeResponse --------------------------------------------------------------------} Procedure TRegisterDebuggeeResponse.Setdebuggee(AIndex : Integer; const AValue : TDebuggee); begin If (Fdebuggee=AValue) then exit; Fdebuggee:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TListActiveBreakpointsResponse --------------------------------------------------------------------} Procedure TListActiveBreakpointsResponse.Setbreakpoints(AIndex : Integer; const AValue : TListActiveBreakpointsResponseTypebreakpointsArray); begin If (Fbreakpoints=AValue) then exit; Fbreakpoints:=AValue; MarkPropertyChanged(AIndex); end; Procedure TListActiveBreakpointsResponse.SetnextWaitToken(AIndex : Integer; const AValue : String); begin If (FnextWaitToken=AValue) then exit; FnextWaitToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TListActiveBreakpointsResponse.SetwaitExpired(AIndex : Integer; const AValue : boolean); begin If (FwaitExpired=AValue) then exit; FwaitExpired:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TListActiveBreakpointsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'breakpoints' : SetLength(Fbreakpoints,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBreakpointTypelabels --------------------------------------------------------------------} Class Function TBreakpointTypelabels.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TBreakpoint --------------------------------------------------------------------} Procedure TBreakpoint.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setaction(AIndex : Integer; const AValue : String); begin If (Faction=AValue) then exit; Faction:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setlocation(AIndex : Integer; const AValue : TSourceLocation); begin If (Flocation=AValue) then exit; Flocation:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setcondition(AIndex : Integer; const AValue : String); begin If (Fcondition=AValue) then exit; Fcondition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setexpressions(AIndex : Integer; const AValue : TStringArray); begin If (Fexpressions=AValue) then exit; Fexpressions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetlogMessageFormat(AIndex : Integer; const AValue : String); begin If (FlogMessageFormat=AValue) then exit; FlogMessageFormat:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetlogLevel(AIndex : Integer; const AValue : String); begin If (FlogLevel=AValue) then exit; FlogLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetisFinalState(AIndex : Integer; const AValue : boolean); begin If (FisFinalState=AValue) then exit; FisFinalState:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetcreateTime(AIndex : Integer; const AValue : String); begin If (FcreateTime=AValue) then exit; FcreateTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetfinalTime(AIndex : Integer; const AValue : String); begin If (FfinalTime=AValue) then exit; FfinalTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetuserEmail(AIndex : Integer; const AValue : String); begin If (FuserEmail=AValue) then exit; FuserEmail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setstatus(AIndex : Integer; const AValue : TStatusMessage); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetstackFrames(AIndex : Integer; const AValue : TBreakpointTypestackFramesArray); begin If (FstackFrames=AValue) then exit; FstackFrames:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetevaluatedExpressions(AIndex : Integer; const AValue : TBreakpointTypeevaluatedExpressionsArray); begin If (FevaluatedExpressions=AValue) then exit; FevaluatedExpressions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.SetvariableTable(AIndex : Integer; const AValue : TBreakpointTypevariableTableArray); begin If (FvariableTable=AValue) then exit; FvariableTable:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBreakpoint.Setlabels(AIndex : Integer; const AValue : TBreakpointTypelabels); begin If (Flabels=AValue) then exit; Flabels:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TBreakpoint.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'expressions' : SetLength(Fexpressions,ALength); 'stackframes' : SetLength(FstackFrames,ALength); 'evaluatedexpressions' : SetLength(FevaluatedExpressions,ALength); 'variabletable' : SetLength(FvariableTable,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TSourceLocation --------------------------------------------------------------------} Procedure TSourceLocation.Setpath(AIndex : Integer; const AValue : String); begin If (Fpath=AValue) then exit; Fpath:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSourceLocation.Setline(AIndex : Integer; const AValue : integer); begin If (Fline=AValue) then exit; Fline:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TStackFrame --------------------------------------------------------------------} Procedure TStackFrame.Set_function(AIndex : Integer; const AValue : String); begin If (F_function=AValue) then exit; F_function:=AValue; MarkPropertyChanged(AIndex); end; Procedure TStackFrame.Setlocation(AIndex : Integer; const AValue : TSourceLocation); begin If (Flocation=AValue) then exit; Flocation:=AValue; MarkPropertyChanged(AIndex); end; Procedure TStackFrame.Setarguments(AIndex : Integer; const AValue : TStackFrameTypeargumentsArray); begin If (Farguments=AValue) then exit; Farguments:=AValue; MarkPropertyChanged(AIndex); end; Procedure TStackFrame.Setlocals(AIndex : Integer; const AValue : TStackFrameTypelocalsArray); begin If (Flocals=AValue) then exit; Flocals:=AValue; MarkPropertyChanged(AIndex); end; Class Function TStackFrame.ExportPropertyName(Const AName : String) :String; begin Case AName of '_function' : Result:='function'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TStackFrame.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'arguments' : SetLength(Farguments,ALength); 'locals' : SetLength(Flocals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVariable --------------------------------------------------------------------} Procedure TVariable.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVariable.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVariable.Setmembers(AIndex : Integer; const AValue : TVariableTypemembersArray); begin If (Fmembers=AValue) then exit; Fmembers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVariable.SetvarTableIndex(AIndex : Integer; const AValue : integer); begin If (FvarTableIndex=AValue) then exit; FvarTableIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVariable.Setstatus(AIndex : Integer; const AValue : TStatusMessage); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Class Function TVariable.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVariable.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'members' : SetLength(Fmembers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUpdateActiveBreakpointRequest --------------------------------------------------------------------} Procedure TUpdateActiveBreakpointRequest.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); begin If (Fbreakpoint=AValue) then exit; Fbreakpoint:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUpdateActiveBreakpointResponse --------------------------------------------------------------------} { -------------------------------------------------------------------- TSetBreakpointResponse --------------------------------------------------------------------} Procedure TSetBreakpointResponse.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); begin If (Fbreakpoint=AValue) then exit; Fbreakpoint:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGetBreakpointResponse --------------------------------------------------------------------} Procedure TGetBreakpointResponse.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); begin If (Fbreakpoint=AValue) then exit; Fbreakpoint:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEmpty --------------------------------------------------------------------} { -------------------------------------------------------------------- TListBreakpointsResponse --------------------------------------------------------------------} Procedure TListBreakpointsResponse.Setbreakpoints(AIndex : Integer; const AValue : TListBreakpointsResponseTypebreakpointsArray); begin If (Fbreakpoints=AValue) then exit; Fbreakpoints:=AValue; MarkPropertyChanged(AIndex); end; Procedure TListBreakpointsResponse.SetnextWaitToken(AIndex : Integer; const AValue : String); begin If (FnextWaitToken=AValue) then exit; FnextWaitToken:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TListBreakpointsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'breakpoints' : SetLength(Fbreakpoints,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TListDebuggeesResponse --------------------------------------------------------------------} Procedure TListDebuggeesResponse.Setdebuggees(AIndex : Integer; const AValue : TListDebuggeesResponseTypedebuggeesArray); begin If (Fdebuggees=AValue) then exit; Fdebuggees:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TListDebuggeesResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'debuggees' : SetLength(Fdebuggees,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TControllerDebuggeesBreakpointsResource --------------------------------------------------------------------} Class Function TControllerDebuggeesBreakpointsResource.ResourceName : String; begin Result:='breakpoints'; end; Class Function TControllerDebuggeesBreakpointsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TControllerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : string = '') : TListActiveBreakpointsResponse; Const _HTTPMethod = 'GET'; _Path = 'v2/controller/debuggees/{debuggeeId}/breakpoints'; _Methodid = 'clouddebugger.controller.debuggees.breakpoints.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListActiveBreakpointsResponse) as TListActiveBreakpointsResponse; end; Function TControllerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : TControllerDebuggeesBreakpointslistOptions) : TListActiveBreakpointsResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'waitToken',AQuery.waitToken); AddToQuery(_Q,'successOnTimeout',AQuery.successOnTimeout); Result:=List(debuggeeId,_Q); end; Function TControllerDebuggeesBreakpointsResource.Update(debuggeeId: string; id: string; aUpdateActiveBreakpointRequest : TUpdateActiveBreakpointRequest) : TUpdateActiveBreakpointResponse; Const _HTTPMethod = 'PUT'; _Path = 'v2/controller/debuggees/{debuggeeId}/breakpoints/{id}'; _Methodid = 'clouddebugger.controller.debuggees.breakpoints.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'id',id]); Result:=ServiceCall(_HTTPMethod,_P,'',aUpdateActiveBreakpointRequest,TUpdateActiveBreakpointResponse) as TUpdateActiveBreakpointResponse; end; { -------------------------------------------------------------------- TControllerDebuggeesResource --------------------------------------------------------------------} Class Function TControllerDebuggeesResource.ResourceName : String; begin Result:='debuggees'; end; Class Function TControllerDebuggeesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TControllerDebuggeesResource.Register(aRegisterDebuggeeRequest : TRegisterDebuggeeRequest) : TRegisterDebuggeeResponse; Const _HTTPMethod = 'POST'; _Path = 'v2/controller/debuggees/register'; _Methodid = 'clouddebugger.controller.debuggees.register'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aRegisterDebuggeeRequest,TRegisterDebuggeeResponse) as TRegisterDebuggeeResponse; end; Function TControllerDebuggeesResource.GetBreakpointsInstance : TControllerDebuggeesBreakpointsResource; begin if (FBreakpointsInstance=Nil) then FBreakpointsInstance:=CreateBreakpointsResource; Result:=FBreakpointsInstance; end; Function TControllerDebuggeesResource.CreateBreakpointsResource : TControllerDebuggeesBreakpointsResource; begin Result:=CreateBreakpointsResource(Self); end; Function TControllerDebuggeesResource.CreateBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource; begin Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TControllerResource --------------------------------------------------------------------} Class Function TControllerResource.ResourceName : String; begin Result:='controller'; end; Class Function TControllerResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TControllerResource.GetDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource; begin if (FDebuggeesBreakpointsInstance=Nil) then FDebuggeesBreakpointsInstance:=CreateDebuggeesBreakpointsResource; Result:=FDebuggeesBreakpointsInstance; end; Function TControllerResource.CreateDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource; begin Result:=CreateDebuggeesBreakpointsResource(Self); end; Function TControllerResource.CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource; begin Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; Function TControllerResource.GetDebuggeesInstance : TControllerDebuggeesResource; begin if (FDebuggeesInstance=Nil) then FDebuggeesInstance:=CreateDebuggeesResource; Result:=FDebuggeesInstance; end; Function TControllerResource.CreateDebuggeesResource : TControllerDebuggeesResource; begin Result:=CreateDebuggeesResource(Self); end; Function TControllerResource.CreateDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource; begin Result:=TControllerDebuggeesResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TDebuggerDebuggeesBreakpointsResource --------------------------------------------------------------------} Class Function TDebuggerDebuggeesBreakpointsResource.ResourceName : String; begin Result:='breakpoints'; end; Class Function TDebuggerDebuggeesBreakpointsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TDebuggerDebuggeesBreakpointsResource._set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : string = '') : TSetBreakpointResponse; Const _HTTPMethod = 'POST'; _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/set'; _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.set'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aBreakpoint,TSetBreakpointResponse) as TSetBreakpointResponse; end; Function TDebuggerDebuggeesBreakpointsResource._set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : TDebuggerDebuggeesBreakpointssetOptions) : TSetBreakpointResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'clientVersion',AQuery.clientVersion); Result:=_set(debuggeeId,aBreakpoint,_Q); end; Function TDebuggerDebuggeesBreakpointsResource.Get(debuggeeId: string; breakpointId: string; AQuery : string = '') : TGetBreakpointResponse; Const _HTTPMethod = 'GET'; _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/{breakpointId}'; _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'breakpointId',breakpointId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetBreakpointResponse) as TGetBreakpointResponse; end; Function TDebuggerDebuggeesBreakpointsResource.Get(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsgetOptions) : TGetBreakpointResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'clientVersion',AQuery.clientVersion); Result:=Get(debuggeeId,breakpointId,_Q); end; Function TDebuggerDebuggeesBreakpointsResource.Delete(debuggeeId: string; breakpointId: string; AQuery : string = '') : TEmpty; Const _HTTPMethod = 'DELETE'; _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/{breakpointId}'; _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'breakpointId',breakpointId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty; end; Function TDebuggerDebuggeesBreakpointsResource.Delete(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsdeleteOptions) : TEmpty; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'clientVersion',AQuery.clientVersion); Result:=Delete(debuggeeId,breakpointId,_Q); end; Function TDebuggerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : string = '') : TListBreakpointsResponse; Const _HTTPMethod = 'GET'; _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints'; _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListBreakpointsResponse) as TListBreakpointsResponse; end; Function TDebuggerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : TDebuggerDebuggeesBreakpointslistOptions) : TListBreakpointsResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'includeAllUsers',AQuery.includeAllUsers); AddToQuery(_Q,'includeInactive',AQuery.includeInactive); AddToQuery(_Q,'action.value',AQuery.actionvalue); AddToQuery(_Q,'stripResults',AQuery.stripResults); AddToQuery(_Q,'waitToken',AQuery.waitToken); AddToQuery(_Q,'clientVersion',AQuery.clientVersion); Result:=List(debuggeeId,_Q); end; { -------------------------------------------------------------------- TDebuggerDebuggeesResource --------------------------------------------------------------------} Class Function TDebuggerDebuggeesResource.ResourceName : String; begin Result:='debuggees'; end; Class Function TDebuggerDebuggeesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TDebuggerDebuggeesResource.List(AQuery : string = '') : TListDebuggeesResponse; Const _HTTPMethod = 'GET'; _Path = 'v2/debugger/debuggees'; _Methodid = 'clouddebugger.debugger.debuggees.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListDebuggeesResponse) as TListDebuggeesResponse; end; Function TDebuggerDebuggeesResource.List(AQuery : TDebuggerDebuggeeslistOptions) : TListDebuggeesResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'project',AQuery.project); AddToQuery(_Q,'includeInactive',AQuery.includeInactive); AddToQuery(_Q,'clientVersion',AQuery.clientVersion); Result:=List(_Q); end; Function TDebuggerDebuggeesResource.GetBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; begin if (FBreakpointsInstance=Nil) then FBreakpointsInstance:=CreateBreakpointsResource; Result:=FBreakpointsInstance; end; Function TDebuggerDebuggeesResource.CreateBreakpointsResource : TDebuggerDebuggeesBreakpointsResource; begin Result:=CreateBreakpointsResource(Self); end; Function TDebuggerDebuggeesResource.CreateBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource; begin Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TDebuggerResource --------------------------------------------------------------------} Class Function TDebuggerResource.ResourceName : String; begin Result:='debugger'; end; Class Function TDebuggerResource.DefaultAPI : TGoogleAPIClass; begin Result:=TclouddebuggerAPI; end; Function TDebuggerResource.GetDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; begin if (FDebuggeesBreakpointsInstance=Nil) then FDebuggeesBreakpointsInstance:=CreateDebuggeesBreakpointsResource; Result:=FDebuggeesBreakpointsInstance; end; Function TDebuggerResource.CreateDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource; begin Result:=CreateDebuggeesBreakpointsResource(Self); end; Function TDebuggerResource.CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource; begin Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; Function TDebuggerResource.GetDebuggeesInstance : TDebuggerDebuggeesResource; begin if (FDebuggeesInstance=Nil) then FDebuggeesInstance:=CreateDebuggeesResource; Result:=FDebuggeesInstance; end; Function TDebuggerResource.CreateDebuggeesResource : TDebuggerDebuggeesResource; begin Result:=CreateDebuggeesResource(Self); end; Function TDebuggerResource.CreateDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource; begin Result:=TDebuggerDebuggeesResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TClouddebuggerAPI --------------------------------------------------------------------} Class Function TClouddebuggerAPI.APIName : String; begin Result:='clouddebugger'; end; Class Function TClouddebuggerAPI.APIVersion : String; begin Result:='v2'; end; Class Function TClouddebuggerAPI.APIRevision : String; begin Result:='20160309'; end; Class Function TClouddebuggerAPI.APIID : String; begin Result:='clouddebugger:v2'; end; Class Function TClouddebuggerAPI.APITitle : String; begin Result:='Google Cloud Debugger API'; end; Class Function TClouddebuggerAPI.APIDescription : String; begin Result:='Examines the call stack and variables of a running application without stopping or slowing it down.'; end; Class Function TClouddebuggerAPI.APIOwnerDomain : String; begin Result:='google.com'; end; Class Function TClouddebuggerAPI.APIOwnerName : String; begin Result:='Google'; end; Class Function TClouddebuggerAPI.APIIcon16 : String; begin Result:='http://www.google.com/images/icons/product/search-16.gif'; end; Class Function TClouddebuggerAPI.APIIcon32 : String; begin Result:='http://www.google.com/images/icons/product/search-32.gif'; end; Class Function TClouddebuggerAPI.APIdocumentationLink : String; begin Result:='https://cloud.google.com/tools/cloud-debugger'; end; Class Function TClouddebuggerAPI.APIrootUrl : string; begin Result:='https://clouddebugger.googleapis.com/'; end; Class Function TClouddebuggerAPI.APIbasePath : string; begin Result:=''; end; Class Function TClouddebuggerAPI.APIbaseURL : String; begin Result:='https://clouddebugger.googleapis.com/'; end; Class Function TClouddebuggerAPI.APIProtocol : string; begin Result:='rest'; end; Class Function TClouddebuggerAPI.APIservicePath : string; begin Result:=''; end; Class Function TClouddebuggerAPI.APIbatchPath : String; begin Result:='batch'; end; Class Function TClouddebuggerAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,3); Result[0].Name:='https://www.googleapis.com/auth/cloud-platform'; Result[0].Description:='View and manage your data across Google Cloud Platform services'; Result[1].Name:='https://www.googleapis.com/auth/cloud_debugger'; Result[1].Description:='Manage cloud debugger'; Result[2].Name:='https://www.googleapis.com/auth/cloud_debugletcontroller'; Result[2].Description:='Manage active breakpoints in cloud debugger'; end; Class Function TClouddebuggerAPI.APINeedsAuth : Boolean; begin Result:=True; end; Class Procedure TClouddebuggerAPI.RegisterAPIResources; begin TRegisterDebuggeeRequest.RegisterObject; TDebuggeeTypelabels.RegisterObject; TDebuggee.RegisterObject; TStatusMessage.RegisterObject; TFormatMessage.RegisterObject; TSourceContext.RegisterObject; TCloudRepoSourceContext.RegisterObject; TRepoId.RegisterObject; TProjectRepoId.RegisterObject; TAliasContext.RegisterObject; TCloudWorkspaceSourceContext.RegisterObject; TCloudWorkspaceId.RegisterObject; TGerritSourceContext.RegisterObject; TGitSourceContext.RegisterObject; TExtendedSourceContextTypelabels.RegisterObject; TExtendedSourceContext.RegisterObject; TRegisterDebuggeeResponse.RegisterObject; TListActiveBreakpointsResponse.RegisterObject; TBreakpointTypelabels.RegisterObject; TBreakpoint.RegisterObject; TSourceLocation.RegisterObject; TStackFrame.RegisterObject; TVariable.RegisterObject; TUpdateActiveBreakpointRequest.RegisterObject; TUpdateActiveBreakpointResponse.RegisterObject; TSetBreakpointResponse.RegisterObject; TGetBreakpointResponse.RegisterObject; TEmpty.RegisterObject; TListBreakpointsResponse.RegisterObject; TListDebuggeesResponse.RegisterObject; end; Function TClouddebuggerAPI.GetControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource; begin if (FControllerDebuggeesBreakpointsInstance=Nil) then FControllerDebuggeesBreakpointsInstance:=CreateControllerDebuggeesBreakpointsResource; Result:=FControllerDebuggeesBreakpointsInstance; end; Function TClouddebuggerAPI.CreateControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource; begin Result:=CreateControllerDebuggeesBreakpointsResource(Self); end; Function TClouddebuggerAPI.CreateControllerDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource; begin Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; Function TClouddebuggerAPI.GetControllerDebuggeesInstance : TControllerDebuggeesResource; begin if (FControllerDebuggeesInstance=Nil) then FControllerDebuggeesInstance:=CreateControllerDebuggeesResource; Result:=FControllerDebuggeesInstance; end; Function TClouddebuggerAPI.CreateControllerDebuggeesResource : TControllerDebuggeesResource; begin Result:=CreateControllerDebuggeesResource(Self); end; Function TClouddebuggerAPI.CreateControllerDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource; begin Result:=TControllerDebuggeesResource.Create(AOwner); Result.API:=Self.API; end; Function TClouddebuggerAPI.GetControllerInstance : TControllerResource; begin if (FControllerInstance=Nil) then FControllerInstance:=CreateControllerResource; Result:=FControllerInstance; end; Function TClouddebuggerAPI.CreateControllerResource : TControllerResource; begin Result:=CreateControllerResource(Self); end; Function TClouddebuggerAPI.CreateControllerResource(AOwner : TComponent) : TControllerResource; begin Result:=TControllerResource.Create(AOwner); Result.API:=Self.API; end; Function TClouddebuggerAPI.GetDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource; begin if (FDebuggerDebuggeesBreakpointsInstance=Nil) then FDebuggerDebuggeesBreakpointsInstance:=CreateDebuggerDebuggeesBreakpointsResource; Result:=FDebuggerDebuggeesBreakpointsInstance; end; Function TClouddebuggerAPI.CreateDebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource; begin Result:=CreateDebuggerDebuggeesBreakpointsResource(Self); end; Function TClouddebuggerAPI.CreateDebuggerDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource; begin Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner); Result.API:=Self.API; end; Function TClouddebuggerAPI.GetDebuggerDebuggeesInstance : TDebuggerDebuggeesResource; begin if (FDebuggerDebuggeesInstance=Nil) then FDebuggerDebuggeesInstance:=CreateDebuggerDebuggeesResource; Result:=FDebuggerDebuggeesInstance; end; Function TClouddebuggerAPI.CreateDebuggerDebuggeesResource : TDebuggerDebuggeesResource; begin Result:=CreateDebuggerDebuggeesResource(Self); end; Function TClouddebuggerAPI.CreateDebuggerDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource; begin Result:=TDebuggerDebuggeesResource.Create(AOwner); Result.API:=Self.API; end; Function TClouddebuggerAPI.GetDebuggerInstance : TDebuggerResource; begin if (FDebuggerInstance=Nil) then FDebuggerInstance:=CreateDebuggerResource; Result:=FDebuggerInstance; end; Function TClouddebuggerAPI.CreateDebuggerResource : TDebuggerResource; begin Result:=CreateDebuggerResource(Self); end; Function TClouddebuggerAPI.CreateDebuggerResource(AOwner : TComponent) : TDebuggerResource; begin Result:=TDebuggerResource.Create(AOwner); Result.API:=Self.API; end; initialization TClouddebuggerAPI.RegisterAPI; end.