Issue #4: implement startNetldi.solo

bin/startNetldi.solo

@@ -0,0 +1,92 @@
+#!/usr/bin/env superdoit_solo
+options
+{
+SuperDoitOptionalOptionWithRequiredArg long: 'registry'.
+SuperDoitOptionalOptionWithNoArg long: 'verbose' short: 'v'.
+}
+%
+Usage
+-----
+USAGE $basename [--help | -h] [--debug | -D]  [--debugGem] [-v | --verbose] \
+                --registry=<registry-name> <stone-name>
+
+DESCRIPTION
+  Start netldi for named stone.
+
+OPTIONS
+  -h, --help    display usage message
+  -D, --debug   bring up topaz debugger in the event of a script error
+  --debugGem    If terminal is connected to stdout, bring up debugger. If not,
+                dump stack to stdout and wait for topaz to attach using topaz
+                DEBUGGEM command.
+  -v, --verbose Verbose logging enabled.
+
+
+EXAMPLES
+  $basename --help
+  $basename -D
+  $basename --debugGem
+  $basename --registry=bosch bosch_370 
+-----
+%
+specs
+[
+RwLoadSpecificationV2 {
+	#projectName : 'GsDevKit_stones',
+	#projectSpecFile : 'rowan/project.ston',
+	#componentNames : [
+		'Core',
+		'Solo'
+	],
+	#platformProperties : {
+		'gemstone' : {
+			'allusers' : {
+				#defaultSymbolDictName : 'Globals'
+			}
+		}
+	},
+	#comment : ''
+},
+RwLoadSpecificationV2 {
+	#projectName : 'GsCommands',
+	#projectSpecFile : 'rowan/project.ston',
+	#diskUrl : '$GEMSTONE/examples/GsCommands/projectsHome/GsCommands',
+	#componentNames : [
+		'Commands'
+	],
+	#platformProperties : {
+		'gemstone' : {
+			'allusers' : {
+				#defaultSymbolDictName : 'UserGlobals'
+			}
+		}
+	},
+	#comment : ''
+}
+]
+%
+doit
+	| registryClass stonesRegistry stoneName stoneSpec |
+	self preDoitSpecLoad: [:spec | 
+		spec projectName = 'GsCommands'
+			ifTrue: [ spec projectsHome: '$GEMSTONE/examples/GsCommands/projectsHome' ]
+			ifFalse: [ spec projectsHome: self dirname asFileReference parent parent ] ].
+	registryClass := (self globalNamed: 'GDKRegistry').	
+	self verbose
+		ifTrue: [ (self globalNamed: 'GDKGsDevKit_stonesBase') verbose: true ].
+	self positionalArgs size = 0
+		ifTrue: [
+			| specFile |
+			specFile := FileLocator workingDirectory asFileReference / '.GDKStoneSpec.ston'.
+			stoneSpec := (self globalNamed: 'GDKAbstractRegistryStore') fromPath: specFile ifAbsent: [] ]
+		ifFalse: [
+			self positionalArgs size > 1 
+				ifTrue: [ self error: 'Expected a single positional argument: <stone-name>, not ', self positionalArgs size printString, ' positional arguments' ].
+			stoneName := self positionalArgs at: 1.
+			self registry
+				ifNil: [ self error: '--registry option must be specified when <stone-name> is specified' ].
+			stonesRegistry := registryClass stonesRegistryNamed: self registry.
+			stoneSpec := stonesRegistry stoneNamed: stoneName ].
+	stoneSpec startNetldi: self.
+	^ self noResult
+%

src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/createStoneStructure..st

@@ -44,6 +44,15 @@ createStoneStructure: stoneSpec
 					stoneRoot / 'extent0.dbf' moveTo: stoneRoot / value ].
 			key = #'logs'
 				ifTrue: [ (stoneRoot / value) ensureCreateDirectory ].
+			key = #'netldiPort'
+				ifTrue: [ 
+					value = 0
+						ifTrue: [ 
+							| socket status |
+							socket := GsSocket new.
+							status := socket bindTo: value.
+							netldiPort := socket port.
+							socket close ] ].
 			key = #'stats'
 				ifTrue: [ (stoneRoot / value) ensureCreateDirectory ].
 			key = #'tranlogs'

src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/netldiPort..st

@@ -0,0 +1,3 @@
+accessing
+netldiPort: object
+	netldiPort := object

src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/netldiPort.st

@@ -0,0 +1,3 @@
+accessing
+netldiPort
+	^netldiPort

src/GsDevKit_stones-Core.package/GDKStoneDirectorySpec.class/properties.json

@@ -11,6 +11,7 @@
 		"bin",
 		"extents",
 		"logs",
+		"netldiPort",
 		"stats",
 		"tranlogs",
 		"snapshots",

src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/logsDir.st

@@ -0,0 +1,6 @@
+accessing
+logsDir
+	| dir |
+	dir := self rootDir / self stoneDirectorySpec logs.
+	dir ensureCreateDirectory.
+	^ dir

src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/startNetldi..st

@@ -0,0 +1,3 @@
+runtime
+startNetldi: superDoitScriptOrNil
+	self startNetldi: superDoitScriptOrNil withSuperDoitOptions: false

src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/startNetldi.withSuperDoitOptions..st

@@ -0,0 +1,46 @@
+runtime
+startNetldi: superDoitScriptOrNil withSuperDoitOptions: superDoitOptions
+	"nothing special with regards to options at the present time"
+
+	| scriptPath stdout exitStatus commandLine arrayOfOutputs |
+	scriptPath := ''.
+	stdout := superDoitScriptOrNil
+		ifNotNil: [ 
+			scriptPath := superDoitScriptOrNil scriptPath.
+			superDoitScriptOrNil stdout ]
+		ifNil: [ GsFile stdout ].
+	stdout
+		lf;
+		nextPutAll: '======  starting netldi at ' , DateAndTime now printString;
+		lf.
+	exitStatus := 0.
+	self defineCustomEnvVars.
+	commandLine := '$GEMSTONE/bin/startnetldi' asFileReference pathString.
+	commandLine
+		add: ' -g';
+		add: ' -a ' , (System gemEnvironmentVariable: 'USER');
+		add: ' -P ' , self stoneDirectorySpec netldiPort asString;
+		add: ' -l ' , (self logsDir / 'netldi.log') pathString;
+		add: ' ' , self stoneName , '_ldi';
+		yourself.
+	[ arrayOfOutputs := GsHostProcess execute: commandLine ]
+		on: ChildError
+		do: [ :ex | 
+			"exit status:
+				0 on successful start
+				1 if the specified netldi is already running
+				2 if already running but the executable have been deleted
+				3 or above, an error occurred and the specified netldi was not started"
+			exitStatus := ex status ].
+	exitStatus = 0
+		ifTrue: [ stdout nextPutAll: (arrayOfOutputs at: 1)	"stdout" ]
+		ifFalse: [ 
+			(exitStatus = 1 or: [ exitStatus = 2 ])
+				ifTrue: [ stdout nextPutAll: 'netldi is already running' ]
+				ifFalse: [ 
+					exitStatus >= 3
+						ifTrue: [ stdout nextPutAll: 'netldi failed to start' ] ] ].
+	stdout
+		lf;
+		nextPutAll: '****************************************';
+		lf

src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/stopStone.withSuperDoitOptions..st

@@ -1,6 +1,7 @@
 runtime
 stopStone: superDoitScriptOrNil withSuperDoitOptions: superDoitOptionsBoolean
 	"if superDoitOptionsBoolean is true, then superDoitScriptOrNil is expected to respond to the following messages:
+		scriptPath
 		immediate
 		timeout"
 
@@ -10,6 +11,7 @@ stopStone: superDoitScriptOrNil withSuperDoitOptions: superDoitOptionsBoolean
 	immediate := false.
 	stdout := superDoitScriptOrNil
 		ifNotNil: [ 
+			scriptPath := superDoitScriptOrNil scriptPath.
 			superDoitScriptOrNil timeout ifNotNil: [ :value | timeout := value asNumber ].
 			immediate := superDoitScriptOrNil immediate.
 			superDoitScriptOrNil stdout ]

templates/default.ston

@@ -5,6 +5,7 @@ GDKhomeStoneDirectorySpec{
 	#customenv: 'customenv',
 	#extents : 'extents',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#stats : 'stats',
 	#tranlogs : 'tranlogs',
 	#snapshots : 'snapshots',

templates/default_rowan.ston

@@ -6,6 +6,7 @@ GDKstonesStoneDirectorySpec {
 	#dbfSource : '$GEMSTONE/bin/extent0.rowan.dbf',
 	#extents : 'extents',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#stats : 'stats',
 	#tranlogs : 'tranlogs',
 	#snapshots : 'snapshots',

templates/default_seaside.ston

@@ -6,6 +6,7 @@ GDKhomeStoneDirectorySpec {
 	#dbfSource : '$GEMSTONE/bin/extent0.seaside.dbf',
 	#extents : 'extents',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#stats : 'stats',
 	#tranlogs : 'tranlogs',
 	#snapshots : 'snapshots',

templates/minimal.ston

@@ -3,5 +3,6 @@ GDKstonesStoneDirectorySpec {
 	#customenv: 'customenv',
 	#bin : 'bin',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#userId : 'SystemUser'
 }

templates/minimal_rowan.ston

@@ -4,5 +4,6 @@ GDKstonesStoneDirectorySpec {
 	#dbfSource : '$GEMSTONE/bin/extent0.rowan.dbf',
 	#bin : 'bin',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#userId : 'SystemUser'
 }

templates/minimal_seaside.ston

@@ -4,5 +4,6 @@ GDKstonesStoneDirectorySpec {
 	#dbfSource : '$GEMSTONE/bin/extent0.seaside.dbf',
 	#bin : 'bin',
 	#logs : 'logs',
+	#netldiPort : 0,
 	#userId : 'DataCurator'
 }