add extra error information for import

doublefint · doublefint · commit 8b658a9912c1 · 2017-01-31T18:05:36.000+03:00
diff --git a/sc.alles.cls b/sc.alles.cls
@@ -86,8 +86,8 @@ ClassMethod import(filemask = "*.*", qspec = "cku-d", ByRef err = "", recurse =
 	#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, " ", +sc
-
+	#define log w !, filename, " ", +sc, $S(sc=1:"",1: " "_$system.Status.GetOneErrorText(sc))
+	
 	s sc = 1, dirs = "", dir = ..workdir() $$$push(dir)
 
 	for { $$$next(i,dir) Q:i=""  Q:dir=""
@@ -253,3 +253,4 @@ ClassMethod codets(codename, ext)
 }
 
 }
+

Original file line number	Diff line number	Diff line change
`@@ -86,8 +86,8 @@ ClassMethod import(filemask = ".", qspec = "cku-d", ByRef err = "", recurse =`
`86`	`86`	`#define push(%dir) s dirs( $i( dirs ) ) = %dir`
`87`	`87`	`#define next(%i,%dir) s %i=$o( dirs( "" ), 1, %dir ) k:%i'="" dirs(%i)`
`88`	`88`	`#define isDirectory(%type) ( %type = "D" )`
`89`		`- #define log w !, filename, " ", +sc`
`90`		`-`
	`89`	`+ #define log w !, filename, " ", +sc, $S(sc=1:"",1: " "_$system.Status.GetOneErrorText(sc))`
	`90`	`+`
`91`	`91`	`s sc = 1, dirs = "", dir = ..workdir() $$$push(dir)`
`92`	`92`
`93`	`93`	`for { $$$next(i,dir) Q:i="" Q:dir=""`
`@@ -253,3 +253,4 @@ ClassMethod codets(codename, ext)`
`253`	`253`	`}`
`254`	`254`
`255`	`255`	`}`
	`256`	`+`