Issue #261: cleaning up the help code ...

shared/repos/GsDevKit_launcher/bootstrapping/gemstone/bin/bootstrap_install_tode.tpz

@@ -10,18 +10,21 @@
 	set u SystemUser p swordfish
 	login
 
-	run
-	"Need to patch AbstractDictionary>>at:ifPresent: to use cull:"
-	AbstractDictionary
-		compileMethod: 'at: key ifPresent: aBlock
-	"Lookup the given key in the receiver. If it is present, answer the value of evaluating the given
-		block with the value associated with the key. Otherwise, answer nil."
-
-	| v |
-	v := self at: key ifAbsent: [ ^ nil ].
-	^ aBlock cull: v'
-%
-	commit
+#
+#	Already implemented in GLASS (tODE)
+#
+#	run
+#	"Need to patch AbstractDictionary>>at:ifPresent: to use cull:"
+#	AbstractDictionary
+#		compileMethod: 'at: key ifPresent: aBlock
+#	"Lookup the given key in the receiver. If it is present, answer the value of evaluating the given
+#		block with the value associated with the key. Otherwise, answer nil."
+#
+#	| v |
+#	v := self at: key ifAbsent: [ ^ nil ].
+#	^ aBlock cull: v'
+#%
+#	commit
 
 #
 #	installation using Rowan gsdevkit_launcher rereqs 

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

@@ -43,3 +43,27 @@ self halt.
 	projectDefinition_filetree export.
 	projectDefinition_tonel export.
 ]
+
+{ #category : 'options' }
+GdkL_CopyScriptClasses >> scriptMethodOptions [
+	^ super scriptMethodOptions, 
+	{
+			#('write' nil #required #write:).
+	}
+]
+
+{ #category : 'usage' }
+GdkL_CopyScriptClasses >> usageExamples: scriptName [
+
+	^	scriptName, '
+	', scriptName, ' --write=filetree GdkL_Error GdkL_Hello
+
+	', scriptName, ' -D -- --write=tonel GdkL_Error
+'
+]
+
+{ #category : 'usage' }
+GdkL_CopyScriptClasses >> usageSynopsis: scriptName [
+
+	^	(super usageSynopsis: scriptName), ' --write=[filetree|tonel] <script-class-names>'
+]

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/instance/usage.shortDescription.description..st

@@ -0,0 +1,49 @@
+usage
+usage: scriptName shortDescription: shortDescription description: description
+  self stdout
+    nextPutAll:
+      (self manPageClass
+        fromString:
+          'NAME
+	' , scriptName , ' - ' , shortDescription
+            ,
+              '.
+
+SYNOPSIS
+	' , scriptName
+            ,
+              ' [ [-H] [-D] [-V] [ <st-vm-args> ] -- ]  <script options>
+----------
+	'
+            , (self usageSynopsis: scriptName)
+            ,
+              '
+
+DESCRIPTION
+	' , description
+            ,
+              '
+' , self usageDescription
+            ,
+              '
+
+	-H
+		help. st_launcher script interpreter help message
+
+	-D
+		debug. bring up debugger if an error occurs while running script
+
+	-V
+		verbose. display more detail about script interpreter execution
+
+	<st-vm-args>
+		smalltalk vm specific arguments passed directly to vm when launching script
+
+EXAMPLES
+	'
+            , (self usageStandardExamples: scriptName)
+            , (self usageExamples: scriptName)
+            ,
+              '
+')
+        printString

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/instance/usageDescription.st

@@ -0,0 +1,6 @@
+usage
+usageDescription
+  ^ '
+	--help
+		display this message
+'

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/instance/usageStandardExamples..st

@@ -0,0 +1,10 @@
+usage
+usageStandardExamples: scriptName
+  ^ scriptName
+    ,
+      ' -h
+	' , scriptName
+    ,
+      ' --help
+
+	'

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/instance/usageSynopsis..st

@@ -0,0 +1,3 @@
+usage
+usageSynopsis: scriptName
+  ^ scriptName , ' [ -h | --help ] '

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #'gsdevkit_launcher-Core'!

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Core.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'gsdevkit_launcher-Core')