Skip to content

Commit ef5a5c7

Browse files
committed
stones.solo functional with new structure (and switch to filetree)
1 parent 4d66564 commit ef5a5c7

File tree

2 files changed

+21
-2
lines changed

2 files changed

+21
-2
lines changed

shared/gemstone/bin/stones.solo

+19-1
Original file line numberDiff line numberDiff line change
@@ -30,11 +30,28 @@ EXAMPLES
3030
$basename
3131
-----
3232
%
33+
projectshome
34+
$GS_HOME/shared/gemstone/repos
35+
%
36+
specs
37+
[
38+
RwLoadSpecificationV2 {
39+
#specName : 'GsDevKit_SuperDoit',
40+
#projectName : 'GsDevKit_SuperDoit',
41+
#diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
42+
#projectSpecFile : 'rowan/project.ston',
43+
#componentNames : [
44+
'GsDevKit'
45+
],
46+
#comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
47+
}
48+
]
49+
%
3350
method
3451
produceStonesReport
3552
| stream |
3653
stream := self stderr.
37-
self scriptArgs size == 0 ifTrue: [ self all: true ].
54+
(self all or: [ self installed or: [ self running ] ]) ifFalse: [ self all: true ].
3855
(self all or: [self installed]) ifTrue: [
3956
self installedStoneReportOn: stream
4057
].
@@ -124,5 +141,6 @@ gsListResult
124141
^ gsListResult ifNil: [ gsListResult := GsHostProcess execute: self gs_binDirectory, 'gslist -lc' ]
125142
%
126143
doit
144+
self preDoitSpecLoad. "load the GsDevKit_SuperDoit project from spec"
127145
^ self produceStonesReport
128146
%
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
{
2-
"MetaData" : false,
2+
"packageExtension" : ".package",
3+
"Metadata" : false,
34
"noMethodMetaData" : true,
45
"separateMethodMetaAndSource" : false,
56
"useCypressPropertiesFile" : true }

0 commit comments

Comments
 (0)