Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
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.