From 68a13da648b558cadce4fc4c34cea079409eacd1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=94=D0=BC=D0=B8=D1=82=D1=80=D0=BE=D0=B2=D0=B8=D1=87=20?=
 =?UTF-8?q?=D0=9E=D0=BB=D0=B5=D0=B3?= <doublefint@gmail.com>
Date: Tue, 7 Feb 2017 21:36:14 +0300
Subject: [PATCH] remove duplication

---
 sc.all.sub.cls | 126 -------------------------------------------------
 1 file changed, 126 deletions(-)
 delete mode 100644 sc.all.sub.cls

diff --git a/sc.all.sub.cls b/sc.all.sub.cls
deleted file mode 100644
index 8f14103..0000000
--- a/sc.all.sub.cls
+++ /dev/null
@@ -1,126 +0,0 @@
-/// Export different types of modules in different subfolders
-Class sc.all.sub Extends sc.all
-{
-
-/// test.dfi -> /dfi/test.dfi
-/// test.cls -> /cls/test.cls
-/// etc
-ClassMethod filename(code)
-{
-	#define log(%dir,%sc) w !, "mkdir ", %dir, " ", sc
-	
-	s wd = ..workdir() 
-	
-	if '##class(%File).DirectoryExists( wd ) {
-		s sc = ##class(%File).CreateDirectoryChain( wd )
-		$$$log(wd,sc)
-	}
-	
-	s ext = $p( code, ".", * ), ext = $zcvt( ext, "l" )
-	#; for each type - different directory
-	
-	s:ext'="" wd = ##class(%File).NormalizeDirectory( ext, wd ) 
-	if '##class(%File).DirectoryExists( wd ) {
-		s sc = ##class(%File).CreateDirectoryChain( wd )
-		$$$log(wd,sc)
-	}
-	
-	s filename = ##class(%File).NormalizeFilename( code, wd )
-	#; for *.dfi filename can contain folders
-	if ext = "dfi" {
-		s path = ##class(%File).GetDirectory( filename ) 
-		if '##class(%File).DirectoryExists( path ) {
-			s sc = ##class(%File).CreateDirectoryChain( path )	
-			$$$log(path,sc)
-		} 
-	}
-	Q filename
-}
-
-/// import from workdir all files with ts newer than code ts in db
-ClassMethod importUpdated(filemask = "*.*", qspec = "cku-d", ByRef err = "", recurse = 1, ByRef loaded = "", verbose = 1) As %Status
-{
-	#define push(%dir) s dirs( $i( dirs ) ) = %dir
-	#define next(%i,%dir) s %i=$o( dirs( "" ), 1, %dir )  k:%i'="" dirs(%i)
-	#define isDirectory(%type) ( %type = "D" )
-	#define log w !, filename, " -> ", codename, " ", +sc
-	
-	s sc = 1, dirs = "", dir = ..workdir() $$$push(dir)
-		
-	s rs = ##class(%ResultSet).%New( "%Library.File:FileSet" )
-	for { $$$next(i,dir) Q:i=""  Q:dir=""
-		
-		s sc = rs.Execute( dir, filemask ) Q:'sc
-		
-		while rs.Next() {
-		   
-		   s filename = rs.Name 		   
-		   
-		   if $$$isDirectory( rs.Type ) {
-			 if ( recurse ) $$$push(filename) ;push directory 
-			 continue  
-		   }
-		   
-		   s filets = rs.DateModified
-		   s codename = ..codename( filename, .ext )      
-		   s codets = ..codets( codename, ext )
-		   
-		   if ( filets '] codets ) continue
-		   
-		   /*
-		   w !, " ************* import ************** "
-		   w !, "file: ", filets
-		   w !, "code: ", codets
-		   */
-		   
-		   if ext = "dfi" {
-			   
-			   s sc = ##class(%DeepSee.UserLibrary.Utils).%Import( filename, 1, 0, 0, "", .loaded )
-		   
-		   } else {
-			   
-			   #; drop existing code before import ( purge DateModified )
-			   s:codets'="" sc = ##class(%RoutineMgr).Delete( codename )
-			   s sc = $system.OBJ.Load( filename, qspec, .err, .loaded)
-			   
-		   }
-		   
-		   if verbose $$$log
-	    }
-	}
-	Q sc
-}
-
-/// presumable codename 
-ClassMethod codename(filename, ByRef ext = "")
-{
-	s ext = $p( filename, ".", * ), ext = $zcvt( ext, "l" )
-	s path = ##class(%File).NormalizeDirectory( ext, ..workdir() )
-	s codename = $p( filename, path, 2 )
-	if ext = "dfi" {
-		s fullname  = $tr( codename, "\", "/" ) ; return fullname for dfi in $$$IsWINDOWS
-		Q $p( fullname, ".", 1, *-1 ) ;remove extension 
-	}
-	Q codename
-}
-
-ClassMethod codets(codename, ext)
-{
-	s ts = ""
-	if ext'="dfi" {
-		s ts = ##class(%RoutineMgr).TS( codename )
-	} else {
-		s sql="Select timeModified From %DeepSee_UserLibrary.FolderItem Where fullname = ?"	
-		s rs = ##class(%SQL.Statement).%ExecDirect( , sql, codename )
-		if rs.%Next() { 
-			s utcts = rs.timeModified
-			s utch = $zdth( utcts, 3, , 3 ) ;utc internal format
-			s loch = $zdth( utch, -3 ) ; utc to local timezone
-			s ts = $zdt( loch, 3, ,0 ) ; local timestamp*/
-		}
-	}
-	Q $p( ts, "." ) ;remove ms
-}
-
-}
-