Issue #261: take care of shebang when writing out tonel format classes

Author: dalehenrich

shared/repos/GsDevKit_launcher/rowan/scripts/gsdevkit_launcher-Scripts/GdkL_CopyScriptClasses.class.st

@@ -35,29 +35,35 @@ GdkL_CopyScriptClasses >> _projectDefinitionForUrl: rowanSpecUrl [
 
 { #category : 'main' }
 GdkL_CopyScriptClasses >> main [
-	|  projectDefinition_filetree projectDefinition_tonel packageName sourcePackageDef targetPackageDef |
+	| shebang needsShebangProperty projectDefinition_filetree projectDefinition_tonel packageName sourcePackageDef targetPackageDef |
 
 	args isEmpty ifTrue: [ self error: 'Expected to find at least one class name on command line ' ].
 
 	projectDefinition_filetree := self _projectDefinitionForUrl: 'file:$GS_HOME/shared/repos/GsDevKit_launcher/rowan/specs/gsdevkit_launcher_filetree.ston'.
 	projectDefinition_tonel := self _projectDefinitionForUrl: 'file:$GS_HOME/shared/repos/GsDevKit_launcher/rowan/specs/gsdevkit_launcher_tonel.ston'.
 
-self halt. 
-
 	packageName := 'gsdevkit_launcher-Scripts'.
+	needsShebangProperty := false.
+	shebang := '/usr/bin/env gsdevkit_launcher'.
+
 	write = 'filetree'
 		ifTrue: [ 
 			sourcePackageDef := projectDefinition_tonel packageNamed: packageName.
 			targetPackageDef := projectDefinition_filetree packageNamed: packageName ]
 		ifFalse: [ 
 			targetPackageDef := projectDefinition_tonel packageNamed: packageName.
-			sourcePackageDef := projectDefinition_filetree packageNamed: packageName ].
+			sourcePackageDef := projectDefinition_filetree packageNamed: packageName.
+			needsShebangProperty := true ].
 
 	args do: [:className |
+		| classDef |
 		targetPackageDef 
 			removeClassNamed: className 
 			ifAbsent: [ "No need to remove the class definition if is not present" ].
-		targetPackageDef addClassDefinition: (sourcePackageDef classDefinitionNamed: className) ].
+		classDef := sourcePackageDef classDefinitionNamed: className.
+		needsShebangProperty
+			ifTrue: [ classDef shebang: shebang ].
+		targetPackageDef addClassDefinition: classDef ].
 
 	write = 'filetree'
 		ifTrue: [ projectDefinition_filetree exportPackages ].

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/instance/main.st

@@ -1,28 +1,34 @@
 main
 main
-	|  projectDefinition_filetree projectDefinition_tonel packageName sourcePackageDef targetPackageDef |
+	| shebang needsShebangProperty projectDefinition_filetree projectDefinition_tonel packageName sourcePackageDef targetPackageDef |
 
 	args isEmpty ifTrue: [ self error: 'Expected to find at least one class name on command line ' ].
 
 	projectDefinition_filetree := self _projectDefinitionForUrl: 'file:$GS_HOME/shared/repos/GsDevKit_launcher/rowan/specs/gsdevkit_launcher_filetree.ston'.
 	projectDefinition_tonel := self _projectDefinitionForUrl: 'file:$GS_HOME/shared/repos/GsDevKit_launcher/rowan/specs/gsdevkit_launcher_tonel.ston'.
 
-self halt. 
-
 	packageName := 'gsdevkit_launcher-Scripts'.
+	needsShebangProperty := false.
+	shebang := '/usr/bin/env gsdevkit_launcher'.
+
 	write = 'filetree'
 		ifTrue: [ 
 			sourcePackageDef := projectDefinition_tonel packageNamed: packageName.
 			targetPackageDef := projectDefinition_filetree packageNamed: packageName ]
 		ifFalse: [ 
 			targetPackageDef := projectDefinition_tonel packageNamed: packageName.
-			sourcePackageDef := projectDefinition_filetree packageNamed: packageName ].
+			sourcePackageDef := projectDefinition_filetree packageNamed: packageName.
+			needsShebangProperty := true ].
 
 	args do: [:className |
+		| classDef |
 		targetPackageDef 
 			removeClassNamed: className 
 			ifAbsent: [ "No need to remove the class definition if is not present" ].
-		targetPackageDef addClassDefinition: (sourcePackageDef classDefinitionNamed: className) ].
+		classDef := sourcePackageDef classDefinitionNamed: className.
+		needsShebangProperty
+			ifTrue: [ classDef shebang: shebang ].
+		targetPackageDef addClassDefinition: classDef ].
 
 	write = 'filetree'
 		ifTrue: [ projectDefinition_filetree exportPackages ].