diff --git a/sc.all.sub.xml b/sc.all.sub.xml deleted file mode 100644 index dc072db..0000000 --- a/sc.all.sub.xml +++ /dev/null @@ -1,127 +0,0 @@ - - - - -Export different types of modules in different subfolders -sc.all -64245,54012 - - - /dfi/test.dfi -test.cls -> /cls/test.cls -etc]]> -1 -code - - - - - -import from workdir all files with ts newer than code ts in db -1 - -%Status - ", 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, "*.*" ) 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 { - - s sc = $system.OBJ.Load( filename, qspec, .err, .loaded) - - } - - if verbose $$$log - } - } - Q sc -]]> - - - - -presumable codename -1 - - - - - -1 -codename,ext - - - - diff --git a/sc.all.xml b/sc.all.xml deleted file mode 100644 index ba82964..0000000 --- a/sc.all.xml +++ /dev/null @@ -1,169 +0,0 @@ - - - - - -UDL export/import all for ISC Caché 2016.2 -Usage: -w ##class(sc.all).workdir( "c:\your\work\dir\") -d ##class(sc.all).export() -d ##class(sc.all).import() - -1 -64245,54012 - - - -export all available code -1 -generated=0,system=0,percent=0,mapped=1 - ", filename, " " - - #; classes - s rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary") - if rs.Execute() { - - while rs.%Next(){ - - s code = rs.Name _ ".cls", isSystem = rs.System - if ( 'system && isSystem ) continue - if ( 'generated && $$$isGenerated( code ) ) continue - if ( 'percent && $$$isPercented( code ) ) continue - if ( 'mapped && $$$isMapped( code ) ) continue - s filename = ..filename( code ) - $$$log - w $$$export( code, filename ) - - } s rs="" - } - - #; routines - s rs = ##class(%ResultSet).%New("%Routine:RoutineList") - if rs.Execute() { - - while rs.%Next() { - - s code = rs.Name - if ( 'generated && $$$isGenerated( code ) ) continue - if ( 'percent && $$$isPercented( code ) ) continue - if ( 'mapped && $$$isMapped( code ) ) continue - - s filename = ..filename( code ) - $$$log - w $$$export( code, filename ) - - } s rs="" - } - - - #; dfi - #define export(%code, %file) ##class(%DeepSee.UserLibrary.Utils).%Export( %code, %file, 0 ) - s sql = "Select fullName as Name From %DeepSee_UserLibrary.FolderItem" - s rs = ##class(%SQL.Statement).%ExecDirect( .stm, sql ) - while rs.%Next() { - s code = rs.Name, filename = ..filename( code_".dfi" ) - $$$log - w $$$export( code, filename ) - - } s rs="" - - Q -]]> - - - - -import all from workdir -1 - -%Status - - - - - -Translate ( codename ) into ( filename ) -1 -code - - - - - -get or set working directory for export/import source -1 -workdir - - - - - -gl[obal] n[ame] - storage for settings -1 -expression -1 - - - -