added sysprog entities
This commit is contained in:
Infineon\StieberD
756
SYSPROG/STPROC/SRP_GIT_SERVICES.txt
Normal file
756
SYSPROG/STPROC/SRP_GIT_SERVICES.txt
Normal file
@ -0,0 +1,756 @@
|
||||
Compile function SRP_Git_Services(@Service, @Params)
|
||||
/************************************************************************************************
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
||||
be copied without written permission from SRP Computer Solutions, Inc.
|
||||
|
||||
Name : SRP_GIT_SERVICES
|
||||
Test
|
||||
Description : Service module for the SRP GIT system.
|
||||
|
||||
Parameters:
|
||||
Service [IN] - The service to execute
|
||||
Params [IN] - Service specific parameters
|
||||
|
||||
History (Date, Initials, Notes)
|
||||
02/25/19 DJS Original programmer
|
||||
07/29/19 KRF Ported from Git_Services
|
||||
03/04/24 KRF Fixed bug in PullEntities where For Loop iterator was getting reset
|
||||
by gosubs
|
||||
************************************************************************************************/
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
Common /SRP_Git_Services/ SRPGitServices_UserSettings@
|
||||
Common /SRP_Git_Listener/ SRPGitListener_Suppress@
|
||||
|
||||
$insert LOGICAL
|
||||
$insert MESSAGE_BOX_EQUATES
|
||||
$insert RLIST_EQUATES
|
||||
|
||||
Equ CRLF$ to \0D0A\
|
||||
|
||||
Equ SrpGitEnabled$ To 1
|
||||
Equ SrpGitRepoLoc$ To 2
|
||||
Equ SrpGitExePath$ To 3
|
||||
Equ SrpGitGUICommand$ To 4
|
||||
Equ SrpGitCommitCommand$ To 5
|
||||
Equ SrpGitPullCommand$ To 6
|
||||
Equ SrpGitPushCommand$ To 7
|
||||
Equ SrpGitHistCommand$ To 8
|
||||
Equ SrpGitDiffCommand$ To 9
|
||||
Equ SrpGitWarning$ To 10
|
||||
|
||||
Declare function SRP_Git_Services, SRP_Git_Serializer, Get_Repos_Entities, Repository, SRP_Editor_Parse, SRP_RevErrorMsg, SRP_Array, Min, DateTime
|
||||
Declare subroutine SRP_Git_Serializer, Utility, Get_Status, Set_Status, Repository, Msg, Set_Property, Send_Message, Yield, SRP_Git_Services
|
||||
|
||||
// load the settings on the first call
|
||||
If Len(SRPGitServices_UserSettings@) else
|
||||
SRPGitServices_UserSettings@ = Xlate("SYSENV", "SRP_GIT_SETTINGS", "", "X")
|
||||
If Len(SRPGitServices_UserSettings@) else
|
||||
SRPGitServices_UserSettings@ = Xlate("SYSENV", "SRP_GIT_SETTINGS*":@APPID<1>:"*":@Username, "", "X")
|
||||
end
|
||||
end
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Service HasSettings()
|
||||
Response = Len(SRPGitServices_UserSettings@<SrpGitRepoLoc$>) GT 0 AND Len(SRPGitServices_UserSettings@<SrpGitExePath$>) GT 0
|
||||
end service
|
||||
|
||||
Service IsEnabled()
|
||||
Response = If Len(SRPGitServices_UserSettings@<SrpGitEnabled$>) then SRPGitServices_UserSettings@<SrpGitEnabled$> else 0
|
||||
end service
|
||||
|
||||
Service GetRepoPath()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
end service
|
||||
|
||||
Service GetGitPath()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitExePath$>
|
||||
end service
|
||||
|
||||
Service GetGuiCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitGUICommand$>
|
||||
end service
|
||||
|
||||
Service GetCommitCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitCommitCommand$>
|
||||
end service
|
||||
|
||||
Service GetPullCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitPullCommand$>
|
||||
end service
|
||||
|
||||
Service GetPushCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitPushCommand$>
|
||||
end service
|
||||
|
||||
Service GetHistCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitHistCommand$>
|
||||
end service
|
||||
|
||||
Service GetDiffCommand()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitDiffCommand$>
|
||||
end service
|
||||
|
||||
Service GetWarning()
|
||||
Response = SRPGitServices_UserSettings@<SrpGitWarning$>
|
||||
end service
|
||||
|
||||
Service GetCurrentCommit()
|
||||
|
||||
If Len(SRPGitServices_UserSettings@<SrpGitExePath$>) then
|
||||
Root = SRPGitServices_UserSettings@<SrpGitExePath$>:' -C "':SRPGitServices_UserSettings@<SrpGitRepoLoc$>:'"'
|
||||
Cmd = Root:" for-each-ref --count=1 --sort=-committerdate refs/heads --format=%(HEAD)":\0D\:"%(objectname:short=8)":\0D\:"%(refname:short)":\0D\:"%(committerdate:relative)":\0D\:"%(authorname)":\0D\:"%(subject)":\0D\:"[%(refname:short)]":\0B\:"%(subject)":\0B\:"(%(authorname))"
|
||||
Output = "VAR"
|
||||
Call SRP_Run_Command(Cmd, Output)
|
||||
Convert \0D0B\ to @FM:" " in Output
|
||||
Response = Field(Output, @FM, 1, 7)
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Service GetBranchHeads()
|
||||
|
||||
If Len(SRPGitServices_UserSettings@<SrpGitExePath$>) then
|
||||
Root = SRPGitServices_UserSettings@<SrpGitExePath$>:' -C "':SRPGitServices_UserSettings@<SrpGitRepoLoc$>:'"'
|
||||
Cmd = Root:" for-each-ref --sort=-committerdate refs/heads --format=%(HEAD)":\0D\:"%(objectname:short=8)":\0D\:"%(refname:short)":\0D\:"%(committerdate:relative)":\0D\:"%(authorname)":\0D\:"%(subject)":\0D\:"[%(refname:short)]":\0B\:"%(subject)":\0B\:"(%(authorname))"
|
||||
Response = "VAR"
|
||||
Call SRP_Run_Command(Cmd, Response)
|
||||
Convert \0A0D0B\ to @FM:@VM:" " in Response
|
||||
If Response[-1, 1] EQ @FM then Response[-1, 1] = ""
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Service GetCommits()
|
||||
|
||||
If Len(SRPGitServices_UserSettings@<SrpGitExePath$>) then
|
||||
Root = SRPGitServices_UserSettings@<SrpGitExePath$>:' -C "':SRPGitServices_UserSettings@<SrpGitRepoLoc$>:'"'
|
||||
Cmd = Root:" for-each-ref --sort=-committerdate refs --format=%(HEAD)":\0D\:"%(objectname:short=8)":\0D\:"%(refname:short)":\0D\:"%(committerdate:relative)":\0D\:"%(authorname)":\0D\:"%(subject)":\0D\:"[%(refname:short)]":\0B\:"%(subject)":\0B\:"(%(authorname))"
|
||||
Response = "VAR"
|
||||
Call SRP_Run_Command(Cmd, Response)
|
||||
Convert \0A0D0B\ to @FM:@VM:" " in Response
|
||||
If Response[-1, 1] EQ @FM then Response[-1, 1] = ""
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Service LoadLastCommit()
|
||||
Response = Xlate("SYSENV", "SRP_GIT_LASTCOMMIT", "", "X")
|
||||
end service
|
||||
|
||||
Service SaveLastCommit(CommitId, CommitDesc, CommitBranch, CommitAuthor)
|
||||
Open "SYSENV" to hSYSENV then
|
||||
Rec = ""
|
||||
Rec<-1> = CommitId
|
||||
Rec<-1> = CommitDesc
|
||||
Rec<-1> = CommitBranch
|
||||
Rec<-1> = CommitAuthor
|
||||
Write Rec to hSYSENV, "SRP_GIT_LASTCOMMIT" then NULL
|
||||
end
|
||||
end service
|
||||
|
||||
Service GetFileChanges(StartCommit, EndCommit)
|
||||
|
||||
Equ StatusName$ to "Added,Deleted,Modified"
|
||||
Response = ""
|
||||
ExePath = SRPGitServices_UserSettings@<SrpGitExePath$>
|
||||
RepoPath = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
If Len(ExePath) then
|
||||
Cmd = ExePath:' -C "':RepoPath:'" diff --name-status --no-renames --diff-filter=crtuxb ':StartCommit:' ':EndCommit
|
||||
Output = "VAR"
|
||||
Call SRP_Run_Command(Cmd, Output)
|
||||
If RepoPath[-1, 1] NE '\' then RepoPath := '\'
|
||||
For Each Line in Output using \0A\
|
||||
Status = Line[1, \09\]
|
||||
File = Line[Col2() + 1, \09\]
|
||||
If IndexC(File, ".gitignore", 1) EQ 0 then
|
||||
Pos = Index("ADM", Status[1, 1], 1)
|
||||
If Pos GT 0 then Status = Field(StatusName$, ",", Pos, 1) else Status = "Unknown"
|
||||
EntId = SRP_Git_Serializer("PathToEntityId", RepoPath, RepoPath:File)
|
||||
Response<-1> = Status:@VM:EntId
|
||||
end
|
||||
Next Line
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Service SaveUserSettings(GitEnabled, GitRepoLoc, GitExePath, GitGUICommand, GitWarning, GitCommitCommand, GitPullCommand, GitPushCommand, GitHistCommand, GitDiffCommand)
|
||||
|
||||
// Update the settings
|
||||
SRPGitServices_UserSettings@<SrpGitEnabled$> = GitEnabled
|
||||
SRPGitServices_UserSettings@<SrpGitRepoLoc$> = GitRepoLoc
|
||||
SRPGitServices_UserSettings@<SrpGitExePath$> = GitExePath
|
||||
SRPGitServices_UserSettings@<SrpGitGUICommand$> = GitGUICommand
|
||||
SRPGitServices_UserSettings@<SrpGitWarning$> = GitWarning
|
||||
SRPGitServices_UserSettings@<SrpGitCommitCommand$> = GitCommitCommand
|
||||
SRPGitServices_UserSettings@<SrpGitPullCommand$> = GitPullCommand
|
||||
SRPGitServices_UserSettings@<SrpGitPushCommand$> = GitPushCommand
|
||||
SRPGitServices_UserSettings@<SrpGitHistCommand$> = GitHistCommand
|
||||
SRPGitServices_UserSettings@<SrpGitDiffCommand$> = GitDiffCommand
|
||||
|
||||
// Write the settings to disk
|
||||
Open 'SYSENV' to hSYSENV then
|
||||
Write SRPGitServices_UserSettings@ on hSYSENV, "SRP_GIT_SETTINGS" else
|
||||
Response = "Failed to save user Git settings. OpenInsight error code: ":Status()
|
||||
end
|
||||
end
|
||||
|
||||
// Update the MD table base on whether or not things are enabled
|
||||
Open "MD" to hMD then
|
||||
If GitEnabled then
|
||||
Read Rec from hMD, "REPOSITORY" else
|
||||
Rec = 'P':@FM:@FM:@FM:@FM:'SYSOBJ':@FM:'SRP_GIT_LISTENER'
|
||||
Write Rec to hMD, "REPOSITORY" then null
|
||||
end
|
||||
end else
|
||||
Delete hMD, "REPOSITORY" then null
|
||||
end
|
||||
GarbageCollect
|
||||
Flush
|
||||
Call Set_Property("SYSTEM", "IDLEPROC", "RTP27":@FM:"REPOSITORY")
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Options ENTITY_TYPES = "ALL", "OIWIN", "STPROC", "STPROCINS"
|
||||
|
||||
Service GetSupportedEntityTypes()
|
||||
|
||||
Response = SRP_Git_Serializer("GetSupportedEntityTypes")
|
||||
|
||||
end service
|
||||
|
||||
Service GetOIEntities(EntityTypes=ENTITY_TYPES, Apps)
|
||||
|
||||
Response = ""
|
||||
If EntityTypes EQ "" OR EntityTypes EQ "ALL" then EntityTypes = SRP_Git_Services("GetSupportedEntityTypes")
|
||||
If Apps EQ "" then Apps = @APPID
|
||||
For each EntityType in EntityTypes using @FM
|
||||
For each App in Apps
|
||||
EntList = Get_Repos_Entities(App, EntityType, '')
|
||||
If Len(EntList) then
|
||||
For each EntID in EntList using @FM
|
||||
Parts = EntID
|
||||
Convert '*' to @VM in Parts
|
||||
Response := EntID:@VM:Parts:@FM ; *:@VM:LastChanged:@FM
|
||||
Next EntID
|
||||
end
|
||||
Next App
|
||||
Next EntityType
|
||||
Response[-1, 1] = ""
|
||||
|
||||
end service
|
||||
|
||||
Service GetRepoEntities(EntityTypes=ENTITY_TYPES, Apps, CommitStart, CommitEnd)
|
||||
|
||||
// get the repo path
|
||||
RepoPath = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
If RepoPath[-1, 1] NE '\' then RepoPath := '\'
|
||||
|
||||
Response = ""
|
||||
If EntityTypes EQ "" OR EntityTypes EQ "ALL" then EntityTypes = SRP_Git_Services("GetSupportedEntityTypes")
|
||||
If Apps EQ "" then Apps = @APPID
|
||||
|
||||
If Len(CommitStart) AND Len(CommitEnd) then
|
||||
FileChanges = SRP_Git_Services("GetFileChanges", CommitStart, CommitEnd)
|
||||
For Each FileChange in FileChanges
|
||||
Status = FileChange<1, 1>
|
||||
EntId = FileChange<1, 2>
|
||||
Parts = EntId
|
||||
Convert '*' to @VM in Parts
|
||||
Locate Parts<1, 1> in Apps using @FM setting AppPos then
|
||||
Locate Parts<1, 2> in EntityTypes using @FM setting TypePos then
|
||||
Response := EntId:@VM:Parts:@VM:Status:@FM
|
||||
end
|
||||
end
|
||||
Next FileChange
|
||||
end else
|
||||
For each EntityType in EntityTypes using @FM
|
||||
For each App in Apps
|
||||
ErrCode = ''
|
||||
Type = EntityType[1, '*']
|
||||
Class = EntityType[Col2() + 1, '*']
|
||||
WinDir = If Len(Class) then RepoPath:App:'\':Type:'\':Class else RepoPath:App:'\':Type
|
||||
Call SetInitDirOptions("D")
|
||||
InitDir WinDir:'\*.*'
|
||||
DirList = DirList()
|
||||
NumDirs = DCount(DirList, @FM)
|
||||
For iDir = 1 to NumDirs
|
||||
Dir = DirList<iDir>
|
||||
If Dir NE ".." then
|
||||
CurrPath = If Dir EQ "." then WinDir else WinDir:"\":Dir
|
||||
InitDir CurrPath:'\*.*'
|
||||
FileList = DirList()
|
||||
If Len(FileList) then
|
||||
For each Filename in FileList using @FM setting fPos
|
||||
EntID = SRP_Git_Serializer("PathToEntityId", RepoPath, CurrPath:'\':Filename)
|
||||
Parts = EntID
|
||||
Convert '*' to @VM in Parts
|
||||
Response := EntID:@VM:Parts:@FM
|
||||
Next Filename
|
||||
end
|
||||
end
|
||||
Next iDir
|
||||
Next App
|
||||
Next EntityType
|
||||
end
|
||||
Response[-1, 1] = ""
|
||||
|
||||
return
|
||||
|
||||
Service PushEntities(EntityList, StatusCtrl)
|
||||
|
||||
OSWrite "" to "SRPGitLog.txt"
|
||||
LogPos = 0
|
||||
SRPGitListener_Suppress@ = 1
|
||||
RepoPath = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
|
||||
NumEntities = DCount(EntityList, @FM)
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, "Pushing ":NumEntities:" entities.\n", "", LogPos)
|
||||
For i = 1 to NumEntities
|
||||
EntityId = EntityList<i>
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, EntityId, "", LogPos)
|
||||
If Field(EntityId, "*", 2, 1) EQ "APPROW" then
|
||||
Name = EntityId[-1, "B*"]
|
||||
Table = Name[1, ":"]
|
||||
Open Table to hTable then
|
||||
Key = Xlate("SYSREPOS", EntityId, 4, "X")
|
||||
If Len(Key) else Key = Name[Col2() + 1, Len(Name)]
|
||||
Read Record from hTable, Key then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Pushed\n", "", LogPos)
|
||||
SRP_Git_Serializer("WriteSync", EntityId, Record, RepoPath, Key)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Push Failed\n Unable to read SYSREPOS, ":Key:".\n", "", LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Push Failed\n Unable to open SYSREPOS.\n", "", LogPos)
|
||||
end
|
||||
end else
|
||||
Set_Status(0)
|
||||
Record = Repository("ACCESS", EntityId)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Push Failed\n", ErrCode, LogPos)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Pushed\n", "", LogPos)
|
||||
SRP_Git_Serializer("WriteSync", EntityId, Record, RepoPath)
|
||||
end
|
||||
end
|
||||
Next i
|
||||
|
||||
SRPGitListener_Suppress@ = ""
|
||||
|
||||
end service
|
||||
|
||||
Service PullEntities(EntityList, StatusList, StatusCtrl, CommitId)
|
||||
|
||||
OSWrite "" to "SRPGitLog.txt"
|
||||
LogPos = 0
|
||||
SRPGitListener_Suppress@ = 1
|
||||
ExePath = SRPGitServices_UserSettings@<SrpGitExePath$>
|
||||
RepoPath = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
|
||||
EntitiesToCompile = ''
|
||||
NumEntities = DCount(EntityList, @FM)
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, "Pulling ":NumEntities:" entities.\n", "", LogPos)
|
||||
For iEntityToPull = 1 to NumEntities
|
||||
EntityId = EntityList<iEntityToPull>
|
||||
Status = StatusList<iEntityToPull>
|
||||
App = EntityId[1, "*"]
|
||||
Type = EntityId[Col2() + 1, "*"]
|
||||
Class = EntityId[Col2() + 1, "*"]
|
||||
Name = EntityId[Col2() + 1, "*"]
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, EntityId, "", LogPos)
|
||||
If Status _EQC "Deleted" then
|
||||
If Type EQ "APPROW" then
|
||||
Table = Name[1, ":"]
|
||||
Key = Xlate("SYSREPOS", EntityId, 4, "X")
|
||||
If Len(Key) else Key = Name[Col2() + 1, Len(Name)]
|
||||
Open Table to hTable then
|
||||
Lock hTable, Key then
|
||||
Unlock hTable, Key
|
||||
Delete hTable, Key then
|
||||
Open "SYSREPOS" to hTable then
|
||||
Delete hTable, EntityID then null
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Delete Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Delete Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Delete Failed\n Locked or Doesn't Exist!\n", "", LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Delete Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
If App EQ @APPID<1> then
|
||||
Set_Status(0)
|
||||
Repository("DESTROY", EntityId)
|
||||
end else
|
||||
GoSub DeleteInherited
|
||||
end
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Deleted\n", "", LogPos)
|
||||
end
|
||||
end else
|
||||
|
||||
// Get the file from git
|
||||
Path = SRP_Git_Serializer("EntityIdToRelativePath", EntityId)
|
||||
Convert "\" to "/" in Path
|
||||
Cmd = ExePath:' -C "':RepoPath:'" show ':CommitId:':':Path
|
||||
FileData = "VAR"
|
||||
Call SRP_Run_Command(Cmd, FileData)
|
||||
|
||||
// If it didn't work, just read it if possible
|
||||
ErrCode = 0
|
||||
If FileData[1, 7] EQ "fatal: " then
|
||||
Convert "/" to "\" in Path
|
||||
OSRead FileData from RepoPath:"\":Path else
|
||||
ErrCode = Status()
|
||||
end
|
||||
end
|
||||
|
||||
If ErrCode EQ 0 then
|
||||
|
||||
Metadata = ""
|
||||
Record = SRP_Git_Serializer("Deserialize", EntityId, FileData, Metadata)
|
||||
|
||||
If Len(Record) else Record = " "
|
||||
If Type EQ "APPROW" then
|
||||
Table = Name[1, ":"]
|
||||
Key = If Len(Metadata) then Metadata else Key = Name[Col2() + 1, Len(Name)]
|
||||
Open Table to hTable then
|
||||
Write Record to hTable, Key then
|
||||
Open "SYSREPOS" to hSYSREPOS then
|
||||
Read RepoRec from hSYSREPOS, EntityId else
|
||||
RepoRec = App
|
||||
RepoRec<2> = "$PUBLIC"
|
||||
RepoRec<3> = "$PUBLIC"
|
||||
RepoRec<4> = Key
|
||||
RepoRec<18> = "0"
|
||||
RepoRec<20> = "0"
|
||||
RepoRec<21> = "1"
|
||||
RepoRec<22> = "0"
|
||||
RepoRec<23> = "0"
|
||||
RepoRec<26> = App
|
||||
RepoRec<27> = Key
|
||||
end
|
||||
RepoRec<25> = DateTime()
|
||||
Write RepoRec to hSYSREPOS, EntityId then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", Status(), LogPos)
|
||||
end
|
||||
end else
|
||||
If App EQ @APPID<1> then
|
||||
Set_Status(0)
|
||||
Repository("LOCK", EntityId)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n Locked!\n", "", LogPos)
|
||||
end else
|
||||
Set_Status(0)
|
||||
Repository("WRITE", EntityId, "", 1, 1, "", "", "", "", "", EntityId[-1, "B*"], Record)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", ErrCode, LogPos)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
|
||||
Get_Status(ErrCode)
|
||||
If Type EQ "STPROC" OR Type EQ "OIWIN" OR Type EQ "OIEVENT" then EntitiesToCompile := EntityId:@FM
|
||||
end
|
||||
Set_Status(0)
|
||||
Repository("UNLOCK", EntityId)
|
||||
end
|
||||
end else
|
||||
GoSub WriteInherited
|
||||
end
|
||||
end
|
||||
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", ErrCode, LogPos)
|
||||
end
|
||||
end
|
||||
Next iEntityToPull
|
||||
EntitiesToCompile[-1, 1] = ""
|
||||
|
||||
NumEntities = DCount(EntitiesToCompile, @FM)
|
||||
If NumEntities GT 0 then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, "\nCompiling ":NumEntities:" entities.\n", "", LogPos)
|
||||
For Each EntityId in EntitiesToCompile
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, EntityId, "", LogPos)
|
||||
App = EntityId[1, "*"]
|
||||
If App EQ @APPID<1> then
|
||||
Set_Status(0)
|
||||
Repository("COMPILE", EntityId, 1)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Compile Errors\n", ErrCode, LogPos)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Compile Successful\n", "", LogPos)
|
||||
end
|
||||
end else
|
||||
GoSub CompileInherited
|
||||
end
|
||||
Next EntityId
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, "\nNo entities to compile.\n", "", LogPos)
|
||||
end
|
||||
SRPGitListener_Suppress@ = ""
|
||||
|
||||
end service
|
||||
|
||||
Service OpenRepo()
|
||||
|
||||
Name = "GUI"
|
||||
CmdPos = SrpGitGUICommand$
|
||||
GoSub RunGitCommand
|
||||
If Assigned(ErrorMsg) then
|
||||
If Len(ErrorMsg) then Msg(@Window, ErrorMsg:@FM:@FM:@FM:"!")
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
Service Commit()
|
||||
|
||||
Name = "Commit"
|
||||
CmdPos = SrpGitCommitCommand$
|
||||
GoSub RunGitCommand
|
||||
|
||||
end service
|
||||
|
||||
Service Pull()
|
||||
|
||||
Name = "Pull"
|
||||
CmdPos = SrpGitPullCommand$
|
||||
GoSub RunGitCommand
|
||||
|
||||
end service
|
||||
|
||||
Service Push()
|
||||
|
||||
Name = "Push"
|
||||
CmdPos = SrpGitPushCommand$
|
||||
GoSub RunGitCommand
|
||||
|
||||
end service
|
||||
|
||||
Service ViewHist()
|
||||
|
||||
Name = "ViewHist"
|
||||
CmdPos = SrpGitHistCommand$
|
||||
GoSub RunGitCommand
|
||||
|
||||
end service
|
||||
|
||||
Service Diff()
|
||||
|
||||
Name = "Diff"
|
||||
CmdPos = SrpGitDiffCommand$
|
||||
GoSub RunGitCommand
|
||||
|
||||
end service
|
||||
|
||||
Service SendStatus(StatusCtrl, Text, ErrCode, Ref Pos)
|
||||
|
||||
Swap "\n" with CRLF$ in Text
|
||||
|
||||
OSOpen "SRPGitLog.txt" to hFile else hFile = ""
|
||||
|
||||
If Len(StatusCtrl) then
|
||||
Send_Message(StatusCtrl, "INSERT", -1, Text)
|
||||
If Len(hFile) then
|
||||
OSBWrite text on hFile at Pos
|
||||
Pos += Len(Text)
|
||||
end
|
||||
If Len(ErrCode) then
|
||||
For Each ErrorInfo in ErrCode using @FM
|
||||
Text = " ":SRP_RevErrorMsg(ErrorInfo[1, @VM], ErrorInfo[Col2() + 1, Len(ErrorInfo)]):CRLF$
|
||||
Swap "__SRP_GIT_TEMP" with "" in Text
|
||||
Send_Message(StatusCtrl, "INSERT", -1, Text)
|
||||
If Len(hFile) then
|
||||
OSBWrite text on hFile at Pos
|
||||
Pos += Len(Text)
|
||||
end
|
||||
Next ErrorCode
|
||||
end
|
||||
Yield()
|
||||
end
|
||||
|
||||
If Len(hFile) then OSClose hFile
|
||||
|
||||
end service
|
||||
|
||||
RunGitCommand:
|
||||
|
||||
ErrorList = ''
|
||||
If SRPGitServices_UserSettings@<SrpGitEnabled$> EQ True$ then
|
||||
Command = SRPGitServices_UserSettings@<CmdPos>
|
||||
RepoPath = SRPGitServices_UserSettings@<SrpGitRepoLoc$>
|
||||
If Command NE '' then
|
||||
If RepoPath NE '' then
|
||||
Utility("RUNWIN", Command, 1)
|
||||
end else
|
||||
// User has not set the Git repository location
|
||||
ErrorMsg = "Git repository location has not been defined within Git Settings"
|
||||
ErrorList<-1> = ErrorMsg
|
||||
end
|
||||
end else
|
||||
// User has not set the Git open repo command (Git GUI command)
|
||||
ErrorMsg = "Git ":Name:" command has not been configured within Git Settings"
|
||||
ErrorList<-1> = ErrorMsg
|
||||
end
|
||||
end else
|
||||
// User has Git disabled
|
||||
ErrorMsg = "Git must first be enabled within Git Settings"
|
||||
ErrorList<-1> = ErrorMsg
|
||||
end
|
||||
Response = ErrorList
|
||||
|
||||
return
|
||||
|
||||
CompileInherited:
|
||||
// IN: EntityId
|
||||
|
||||
// Read the original source record
|
||||
DestList = SRP_Git_Serializer("EntityIdToKeys", EntityId)
|
||||
Record = Xlate(DestList<1, 1>, DestList<1, 2>, "", "X")
|
||||
|
||||
// Build a temporary entity in the current app
|
||||
TempId = @APPID<1>:"*":Field(EntityID, "*", 2, 3):"__SRP_GIT_TEMP"
|
||||
Type = Field(EntityId, "*", 2, 1)
|
||||
|
||||
// If this is a stored procedure or insert, we need to rename it temporarily IN THE CODE
|
||||
FirstLine = Record<1>
|
||||
If Type[1, 6] _EQC "STPROC" AND Len(Xlate("SYSOBJ", "$SRP_EDITOR_PARSE", "", "X")) then
|
||||
ProcType = If Type _EQC "STPROCINS" then "Insert" else "Procedure"
|
||||
OrigProcName = ""
|
||||
If SRP_Editor_Parse(FirstLine, "", ProcType, OrigProcName, "") then
|
||||
TempName = Field(TempId, "*", 4)
|
||||
TempFirstLine = FirstLine[1, "("]
|
||||
Swap OrigProcName with TempName in TempFirstLine
|
||||
If ProcType EQ "Insert" then
|
||||
Record<1> = TempFirstLine
|
||||
end else
|
||||
Record<1> = TempFirstLine:"(":FirstLine[-1, "B("]
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
// Update it and compile it
|
||||
SRPGitListener_Suppress@ = 1
|
||||
Set_Status(0)
|
||||
Repository("WRITE", TempID, "", 1, 1, "", "", "", "", "", TempID[-1, "F*"], Record)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Failed to create Temprorary Entity.\n", ErrCode, LogPos)
|
||||
end else
|
||||
Set_Status(0)
|
||||
Repository("COMPILE", TempId)
|
||||
If Get_Status(ErrCode) then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Compile Errors\n", ErrCode, LogPos)
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Compile Successful\n", "", LogPos)
|
||||
// Copy the temporary records back to the entity records
|
||||
SourceList = SRP_Git_Serializer("EntityIdToKeys", TempId)
|
||||
NumItems = DCount(SourceList, @FM)
|
||||
For i = 1 to NumItems
|
||||
Table = SourceList<i, 1>
|
||||
SourceKey = SourceList<i, 2>
|
||||
DestKey = DestList<i, 2>
|
||||
If SourceKey NE DestKey then
|
||||
Open Table to hTable then
|
||||
Read Rec from hTable, SourceKey then
|
||||
If Table EQ "SYSPROCS" then Rec<1> = FirstLine
|
||||
Swap TempID with EntityID in Rec
|
||||
Write Rec to hTable, DestKey then null
|
||||
end
|
||||
end
|
||||
end
|
||||
Next i
|
||||
end
|
||||
end
|
||||
|
||||
// Delete the local copy
|
||||
Set_Status(0)
|
||||
Repository("DESTROY", TempId)
|
||||
SRPGitListener_Suppress@ = ""
|
||||
|
||||
return
|
||||
|
||||
WriteInherited:
|
||||
// IN: EntityId, Record
|
||||
|
||||
// Delete the actual records
|
||||
DestList = SRP_Git_Serializer("EntityIdToKeys", EntityId)
|
||||
Table = DestList<1, 1>
|
||||
DestKey = DestList<1, 2>
|
||||
Open Table to hTable then
|
||||
Lock hTable, DestKey then
|
||||
Write Record to hTable, DestKey then
|
||||
|
||||
// Update or create the SYSREPOS record at the correct app level
|
||||
Open "SYSREPOS" to hSYSREPOS then
|
||||
RepoKey = DestList[-1, "B":@VM]
|
||||
Read RepoRec from hSYSREPOS, RepoKey else
|
||||
RepoRec = App
|
||||
RepoRec<2> = "$PUBLIC"
|
||||
RepoRec<3> = "$PUBLIC"
|
||||
RepoRec<18> = "0"
|
||||
RepoRec<20> = "1"
|
||||
RepoRec<21> = "1"
|
||||
RepoRec<22> = "0"
|
||||
RepoRec<23> = "1"
|
||||
RepoRec<26> = App
|
||||
RepoRec<27> = "Y"
|
||||
end
|
||||
RepoRec<24> = EntityId:"*":DateTime()
|
||||
RepoRec<25> = DateTime()
|
||||
Write RepoRec to hSYSREPOS, RepoKey then null
|
||||
end
|
||||
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
|
||||
If Type EQ "STPROC" OR Type EQ "OIWIN" OR Type EQ "OIEVENT" then EntitiesToCompile := EntityId:@FM
|
||||
end
|
||||
Unlock hTable, DestKey
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n Locked!\n", "", LogPos)
|
||||
end
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
DeleteInherited:
|
||||
// IN: EntityId, Record
|
||||
|
||||
// Delete the actual records
|
||||
DestList = SRP_Git_Serializer("EntityIdToKeys", EntityId)
|
||||
NumItems = DCount(DestList, @FM)
|
||||
For i = 1 to NumItems
|
||||
Table = DestList<i, 1>
|
||||
DestKey = DestList<i, 2>
|
||||
Open Table to hTable then
|
||||
Lock hTable, DestKey then
|
||||
Delete hTable, DestKey then
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Deleted\n", "", LogPos)
|
||||
end
|
||||
Unlock hTable, DestKey
|
||||
end else
|
||||
SRP_Git_Services("SendStatus", StatusCtrl, " -- Delete Failed\n Locked!\n", "", LogPos)
|
||||
end
|
||||
end
|
||||
Next i
|
||||
|
||||
return
|
||||
Reference in New Issue
Block a user