Commit 288af99 1 parent e5aa151 commit 288af99 Copy full SHA for 288af99
File tree 9 files changed +126
-10
lines changed
repos/GsDevKit_SuperDoit/rowan
9 files changed +126
-10
lines changed Original file line number Diff line number Diff line change @@ -16,6 +16,23 @@ EXAMPLES
16
16
$basename myStoneName
17
17
-----
18
18
%
19
+ projectshome
20
+ $GS_HOME/shared/gemstone/repos
21
+ %
22
+ specs
23
+ [
24
+ RwLoadSpecificationV2 {
25
+ #specName : 'GsDevKit_SuperDoit',
26
+ #projectName : 'GsDevKit_SuperDoit',
27
+ #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
28
+ #projectSpecFile : 'rowan/project.ston',
29
+ #componentNames : [
30
+ 'GsDevKit'
31
+ ],
32
+ #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
33
+ }
34
+ ]
35
+ %
19
36
method
20
37
restartNetldi
21
38
"If GemStone version if >= 3.3 netldi supports restarting with -r.
@@ -86,7 +103,7 @@ sessionDescriptionFor: aStoneName ifAbsent: absentBlock
86
103
sessionDescriptionReference := self sessionDescriptionHome / aStoneName.
87
104
sessionDescriptionReference exists
88
105
ifFalse: [ ^ absentBlock value: sessionDescriptionReference ].
89
- ^ TDSessionDescription importFrom: sessionDescriptionReference pathString
106
+ ^ (self globalNamed: ' TDSessionDescription') importFrom: sessionDescriptionReference pathString
90
107
%
91
108
method
92
109
sessionDescriptionHome
@@ -114,7 +131,7 @@ gs_stoneDirectory
114
131
%
115
132
method
116
133
stoneInfoClass
117
- ^ GsDevKitStoneInfo
134
+ ^ (self globalNamed: ' GsDevKitStoneInfo')
118
135
%
119
136
method
120
137
stoneInfoFilename
144
161
withStatus: 1 "does not return" ].
145
162
%
146
163
doit
147
- self restartNetldi.
148
- ^ self noResult
164
+ self preDoitSpecLoad. "load the GsDevKit_SuperDoit project from spec"
165
+ self restartNetldi.
166
+ ^ self noResult
149
167
%
Original file line number Diff line number Diff line change @@ -40,6 +40,23 @@ EXAMPLES
40
40
$basename -g myStoneName -A
41
41
-----
42
42
%
43
+ projectshome
44
+ $GS_HOME/shared/gemstone/repos
45
+ %
46
+ specs
47
+ [
48
+ RwLoadSpecificationV2 {
49
+ #specName : 'GsDevKit_SuperDoit',
50
+ #projectName : 'GsDevKit_SuperDoit',
51
+ #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
52
+ #projectSpecFile : 'rowan/project.ston',
53
+ #componentNames : [
54
+ 'GsDevKit'
55
+ ],
56
+ #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
57
+ }
58
+ ]
59
+ %
43
60
method
44
61
startNetldi
45
62
| netldiArgs result |
@@ -107,7 +124,7 @@ sessionDescriptionFor: aStoneName ifAbsent: absentBlock
107
124
sessionDescriptionReference := self sessionDescriptionHome / aStoneName.
108
125
sessionDescriptionReference exists
109
126
ifFalse: [ ^ absentBlock value: sessionDescriptionReference ].
110
- ^ TDSessionDescription importFrom: sessionDescriptionReference pathString
127
+ ^ (self globalNamed: ' TDSessionDescription') importFrom: sessionDescriptionReference pathString
111
128
%
112
129
method
113
130
sessionDescriptionHome
@@ -131,7 +148,7 @@ gs_stoneDirectory
131
148
%
132
149
method
133
150
stoneInfoClass
134
- ^ GsDevKitStoneInfo
151
+ ^ (self globalNamed: ' GsDevKitStoneInfo')
135
152
%
136
153
method
137
154
stoneInfoFilename
Original file line number Diff line number Diff line change @@ -40,6 +40,23 @@ EXAMPLES
40
40
$basename -w myStoneName
41
41
-----
42
42
%
43
+ projectshome
44
+ $GS_HOME/shared/gemstone/repos
45
+ %
46
+ specs
47
+ [
48
+ RwLoadSpecificationV2 {
49
+ #specName : 'GsDevKit_SuperDoit',
50
+ #projectName : 'GsDevKit_SuperDoit',
51
+ #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
52
+ #projectSpecFile : 'rowan/project.ston',
53
+ #componentNames : [
54
+ 'GsDevKit'
55
+ ],
56
+ #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
57
+ }
58
+ ]
59
+ %
43
60
method
44
61
startStone
45
62
| result |
@@ -79,7 +96,7 @@ gs_stoneDirectory
79
96
%
80
97
method
81
98
stoneInfoClass
82
- ^ GsDevKitStoneInfo
99
+ ^ (self globalNamed: ' GsDevKitStoneInfo')
83
100
%
84
101
method
85
102
stoneInfoFilename
Original file line number Diff line number Diff line change @@ -16,6 +16,23 @@ EXAMPLES
16
16
$basename myStoneName
17
17
-----
18
18
%
19
+ projectshome
20
+ $GS_HOME/shared/gemstone/repos
21
+ %
22
+ specs
23
+ [
24
+ RwLoadSpecificationV2 {
25
+ #specName : 'GsDevKit_SuperDoit',
26
+ #projectName : 'GsDevKit_SuperDoit',
27
+ #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
28
+ #projectSpecFile : 'rowan/project.ston',
29
+ #componentNames : [
30
+ 'GsDevKit'
31
+ ],
32
+ #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
33
+ }
34
+ ]
35
+ %
19
36
method
20
37
stopNetldi
21
38
| sess stoneInfo netldiArgs result |
@@ -54,7 +71,7 @@ sessionDescriptionFor: aStoneName ifAbsent: absentBlock
54
71
sessionDescriptionReference := self sessionDescriptionHome / aStoneName.
55
72
sessionDescriptionReference exists
56
73
ifFalse: [ ^ absentBlock value: sessionDescriptionReference ].
57
- ^ TDSessionDescription importFrom: sessionDescriptionReference pathString
74
+ ^ (self globalNamed: ' TDSessionDescription') importFrom: sessionDescriptionReference pathString
58
75
%
59
76
method
60
77
sessionDescriptionHome
@@ -74,7 +91,7 @@ gs_stoneDirectory
74
91
%
75
92
method
76
93
stoneInfoClass
77
- ^ GsDevKitStoneInfo
94
+ ^ (self globalNamed: ' GsDevKitStoneInfo')
78
95
%
79
96
method
80
97
stoneInfoFilename
Original file line number Diff line number Diff line change @@ -26,6 +26,23 @@ EXAMPLES
26
26
$basename -b myStoneName
27
27
-----
28
28
%
29
+ projectshome
30
+ $GS_HOME/shared/gemstone/repos
31
+ %
32
+ specs
33
+ [
34
+ RwLoadSpecificationV2 {
35
+ #specName : 'GsDevKit_SuperDoit',
36
+ #projectName : 'GsDevKit_SuperDoit',
37
+ #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit',
38
+ #projectSpecFile : 'rowan/project.ston',
39
+ #componentNames : [
40
+ 'GsDevKit'
41
+ ],
42
+ #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
43
+ }
44
+ ]
45
+ %
29
46
method
30
47
stopStone
31
48
| result |
@@ -77,7 +94,7 @@ stoneName
77
94
%
78
95
method
79
96
stoneInfoClass
80
- ^ GsDevKitStoneInfo
97
+ ^ (self globalNamed: ' GsDevKitStoneInfo')
81
98
%
82
99
method
83
100
stoneInfoFilename
Original file line number Diff line number Diff line change
1
+ RwSimpleProjectLoadComponentV2 {
2
+ #name : ' GsDevKit' ,
3
+ #condition : ' common' ,
4
+ #projectNames : [ ],
5
+ #componentNames : [ ],
6
+ #packageNames : [
7
+ ' GsDevKit-Core'
8
+ ],
9
+ #comment : ' '
10
+ }
Original file line number Diff line number Diff line change
1
+ RwProjectSpecificationV2 {
2
+ #specName : ' project' ,
3
+ #projectSpecPath : ' rowan' ,
4
+ #componentsPath : ' rowan/components' ,
5
+ #packagesPath : ' rowan/src' ,
6
+ #projectsPath : ' rowan/projects' ,
7
+ #specsPath : ' rowan/specs' ,
8
+ #packageFormat : ' filetree' ,
9
+ #comment : ' '
10
+ }
Original file line number Diff line number Diff line change
1
+ RwLoadSpecificationV2 {
2
+ #specName : ' GsDevKit_SuperDoit' ,
3
+ #projectName : ' GsDevKit_SuperDoit' ,
4
+ #diskUrl : ' file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit' ,
5
+ #projectSpecFile : ' rowan/project.ston' ,
6
+ #componentNames : [
7
+ ' GsDevKit'
8
+ ],
9
+ #comment : ' loads GsDevKit support code in support of GsDevKit_home superDoit scripts'
10
+ }
You can’t perform that action at this time.
0 commit comments