Fixed export bug for classes with sub packages

evshvarov · evshvarov · commit 79f48b6994ea · 2017-01-26T14:05:59.000+03:00
diff --git a/sc.alles.cls b/sc.alles.cls
@@ -160,9 +160,10 @@ ClassMethod filename(code)
 	}
 
 	s filename = ##class(%File).NormalizeFilename( code, wd )
+  //B:code="DPRep.Rest.JSON.cls" "L"
 	#; for *.cls Package.Subpackage.ClassName.cls -> Folder/Subfolder/ClassName.cls
 	if ext ="cls" {
-		s dirs = $piece( code, ".", *-2 ), dirs = $translate( dirs, ".", "/" )
+		s dirs = $piece( code, ".",1, *-2 ), dirs = $translate( dirs, ".", "/" )
 		s relpath = dirs _ "/" _ $piece( code, ".", *-1, * ) ;
 		s filename = ##class(%File).NormalizeFilename( relpath, wd )
 	}

Original file line number	Diff line number	Diff line change
`@@ -160,9 +160,10 @@ ClassMethod filename(code)`
`160`	`160`	`}`
`161`	`161`
`162`	`162`	`s filename = ##class(%File).NormalizeFilename( code, wd )`
	`163`	`+ //B:code="DPRep.Rest.JSON.cls" "L"`
`163`	`164`	`#; for *.cls Package.Subpackage.ClassName.cls -> Folder/Subfolder/ClassName.cls`
`164`	`165`	`if ext ="cls" {`
`165`		`- s dirs = $piece( code, ".", *-2 ), dirs = $translate( dirs, ".", "/" )`
	`166`	`+ s dirs = $piece( code, ".",1, *-2 ), dirs = $translate( dirs, ".", "/" )`
`166`	`167`	`s relpath = dirs _ "/" _ $piece( code, ".", -1, ) ;`
`167`	`168`	`s filename = ##class(%File).NormalizeFilename( relpath, wd )`
`168`	`169`	`}`