From d39bbbf1a02ee5476694f48e3536be77e343fa31 Mon Sep 17 00:00:00 2001
From: Sam Gamgee <smakalist@gmail.com>
Date: Wed, 19 Jul 2017 14:05:44 +0300
Subject: [PATCH] [UPD] Version checking is added. UDL works since version
 2015.2.

---
 %SourceControl.Git.inc.xml       |  7 ++++++
 %SourceControl/Git.cls.xml       |  2 ++
 %SourceControl/Git/UDL.cls.xml   | 42 +++++++++++++++++++++++++++++---
 %SourceControl/Git/Utils.cls.xml |  5 ++--
 sc-list.txt                      |  1 +
 5 files changed, 52 insertions(+), 5 deletions(-)
 create mode 100644 %SourceControl.Git.inc.xml

diff --git a/%SourceControl.Git.inc.xml b/%SourceControl.Git.inc.xml
new file mode 100644
index 0000000..4f515ee
--- /dev/null
+++ b/%SourceControl.Git.inc.xml
@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Routine name="%SourceControl.Git" type="INC"><![CDATA[
+#define CacheVer ($system.Version.GetMajor()_"."_$system.Version.GetMinor())
+#define WorkInThisVersion ##Expression($$$CacheVer >= 2015.2)
+]]></Routine>
+</Export>
diff --git a/%SourceControl/Git.cls.xml b/%SourceControl/Git.cls.xml
index 0541a49..f2af417 100644
--- a/%SourceControl/Git.cls.xml
+++ b/%SourceControl/Git.cls.xml
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="25">
 <Class name="%SourceControl.Git">
 <Import>%SourceControl.Git</Import>
+<IncludeCode>%SourceControl.Git</IncludeCode>
 <Super>%Studio.Extension.Base</Super>
 <TimeCreated>62655,58027.787011</TimeCreated>
 
@@ -93,6 +94,7 @@
 			set DisplayName = "Open Repo Folder"
 		}elseif name = "%Sources" {
 			set DisplayName = "Sources: "_$case(##class(Utils).GetTypeOfSources(), 1:"XML", 0:"UDL", :"")
+			if '$$$WorkInThisVersion set Enabled = 0
 		}
 		elseif ##class(Utils).IsMenuGitCommand(name) && ##class(Utils).GitBinExists() {
 			set DisplayName = $case(name,"%StashSave":"Stash save",
diff --git a/%SourceControl/Git/UDL.cls.xml b/%SourceControl/Git/UDL.cls.xml
index 0ebfbfb..c4401dd 100644
--- a/%SourceControl/Git/UDL.cls.xml
+++ b/%SourceControl/Git/UDL.cls.xml
@@ -1,15 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="25">
 <Class name="%SourceControl.Git.UDL">
-<IncludeCode>%occStatus,%occErrors</IncludeCode>
+<IncludeCode>%occStatus,%occErrors,%SourceControl.Git</IncludeCode>
 <TimeCreated>64476,66997.781615</TimeCreated>
 
+<Method name="test">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit $$$WorkInThisVersion
+]]></Implementation>
+</Method>
+
 <Method name="Export">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName,filename</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set ext = ##class(Utils).Type(InternalName)
+	#if $$$WorkInThisVersion
 	
 	if ext = "cls" {
 		quit ..exportCls(InternalName, filename)
@@ -26,6 +33,8 @@
 	else {
 		quit ..exportOther(InternalName, filename)
 	}
+	
+	#endif
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,6 +45,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
 	set namespace = $namespace
 	
@@ -52,6 +62,7 @@
 	
 	set sc = fileStream.SaveStream()
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -62,6 +73,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
+	
 	set rtn = ##class(%RoutineMgr).%OpenId(InternalName)
  	
  	// write content to file
@@ -84,7 +97,8 @@
 	}
 	
 	set sc = fileStream.%Save()
-		
+	
+	#endif	
 	quit sc
 ]]></Implementation>
 </Method>
@@ -95,6 +109,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
+	
 	set rtn = ##class(%RoutineMgr).%OpenId(InternalName)
  	
  	// write content to file
@@ -104,6 +120,7 @@
 	set sc = fileStream.CopyFromAndSave(rtn.Code)
 	quit:$$$ISERR(sc) sc
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -114,6 +131,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
 	set serverFileName = $system.CSP.GetFileName(InternalName)
 	
@@ -124,6 +142,7 @@
 	set fileStream.Filename = filename
 	set sc = fileStream.CopyFromAndSave(serverFileStream)
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -134,6 +153,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
+	
 	set ext = ##class(Utils).Type(InternalName)
 	
 	if ext = "cls" {
@@ -152,6 +173,7 @@
 		quit ..importOther(InternalName, filename)
 	}
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -161,6 +183,7 @@
 <FormalSpec>InternalName,filename</FormalSpec>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
 	set name = $replace(InternalName, ".cls", "")
 	if '##class(%Dictionary.ClassDefinition).%ExistsId(name) {
@@ -172,6 +195,7 @@
 	
 	set sc = ##class(%Compiler.UDL.TextServices).SetTextFromFile($namespace, InternalName, filename)
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -181,6 +205,8 @@
 <FormalSpec>InternalName,filename</FormalSpec>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
+	
 	set $piece(InternalName, ".", *) = $zconvert($piece(InternalName, ".", *), "U")
 	
 	
@@ -201,6 +227,7 @@
 		set sc = rtn.Save()
 	}
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -210,6 +237,7 @@
 <FormalSpec>InternalName,filename</FormalSpec>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
 	set $piece(InternalName, ".", *) = $zconvert($piece(InternalName, ".", *), "U")
 	
@@ -231,6 +259,7 @@
 		set sc = tDoc.Save()
 	}
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -240,6 +269,7 @@
 <FormalSpec>InternalName,filename</FormalSpec>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
 	set serverFileName = $system.CSP.GetFileName(InternalName)
 	
@@ -250,6 +280,7 @@
 	set fileStream.Filename = filename
 	set sc = serverFileStream.CopyFromAndSave(fileStream)
 	
+	#endif
 	quit sc
 ]]></Implementation>
 </Method>
@@ -259,7 +290,9 @@
 <FormalSpec><![CDATA[&fileList,dir]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set sc = $$$OK 
+	set sc = $$$OK
+	#if $$$WorkInThisVersion
+	 
 	set trs = ##class(%ResultSet).%New("%Library.File:FileSet")
  	set sc = trs.Execute(dir, "*")
 	while trs.Next() {
@@ -275,6 +308,7 @@
  		}
  	}
  	
+ 	#endif
  	quit sc
 ]]></Implementation>
 </Method>
@@ -285,6 +319,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set sc = $$$OK
+	#if $$$WorkInThisVersion
 	
     set slash = ##class(Utils).#Slash
 	set tempPath = ##class(Utils).NormalizeFolder(##class(Utils).TempFolder())
@@ -347,6 +382,7 @@
 	    set itemList(newItem_extensionSuffix) = ""
     }
     
+    #endif
     quit sc
 ]]></Implementation>
 </Method>
diff --git a/%SourceControl/Git/Utils.cls.xml b/%SourceControl/Git/Utils.cls.xml
index 65ad195..10c5fc3 100644
--- a/%SourceControl/Git/Utils.cls.xml
+++ b/%SourceControl/Git/Utils.cls.xml
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="25">
 <Class name="%SourceControl.Git.Utils">
 <Abstract>1</Abstract>
-<IncludeCode>%occStatus,%occErrors</IncludeCode>
+<IncludeCode>%occStatus,%occErrors,%SourceControl.Git</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <TimeCreated>62657,53384.637236</TimeCreated>
 
@@ -225,7 +225,8 @@ Type:
 <FormalSpec>menuItemName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	if $data(@..#Storage@("settings","typeOfSources"), res) { 
+	if ('$$$WorkInThisVersion) quit 1
+	if $data(@..#Storage@("settings","typeOfSources"), res) {  
 		quit res
 	} else { 
 		quit 1 
diff --git a/sc-list.txt b/sc-list.txt
index d5dc5b6..78dc2b6 100644
--- a/sc-list.txt
+++ b/sc-list.txt
@@ -1,3 +1,4 @@
+%SourceControl.Git.inc
 %SourceControl.pkg
 <cspapp>/gitprojectsettings.csp
 cache-tort-git.prj