|
| 1 | +#!/usr/bin/env superdoit_solo |
| 2 | +instvars |
| 3 | +% |
| 4 | +usage |
| 5 | +----- |
| 6 | +USAGE: restartnetldi [-h] <stone-name> |
| 7 | + |
| 8 | +DESCRIPTION |
| 9 | +Restart a running netldi process. |
| 10 | + |
| 11 | +OPTIONS |
| 12 | + -h, --help display usage message |
| 13 | + |
| 14 | +EXAMPLES |
| 15 | + $basename -h |
| 16 | + $basename myStoneName |
| 17 | +----- |
| 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 | +% |
| 36 | +method |
| 37 | +globalNamed: aString |
| 38 | + ^ self |
| 39 | + globalNamed: aString |
| 40 | + ifAbsent: [ self error: 'The global named ', aString printString, ' cannot be found.']. |
| 41 | +% |
| 42 | +method |
| 43 | +restartNetldi |
| 44 | + "If GemStone version if >= 3.3 netldi supports restarting with -r. |
| 45 | + Older version need to be stopped and then started using the same arguments used to start it the first time" |
| 46 | + |
| 47 | + | result netldiArgs | |
| 48 | + self stderr nextPutAll: 'SESS_HOME: ', (System gemEnvironmentVariable: 'GS_SYS_SESSIONS'). |
| 49 | + self stoneInfo gsVers >= '3.3.0' ifTrue: [ |
| 50 | + result := GsHostProcess execute: (self gs_binDirectory / 'startnetldi ') fullPath asString, ' -r ', self sessionDescription netLDI. |
| 51 | + self stderr nextPutAll: result. |
| 52 | + ] ifFalse: [ |
| 53 | + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'stopNetldi ') fullPath asString, ' ', self stoneName. |
| 54 | + self stderr nextPutAll: result. |
| 55 | + netldiArgs := self netldiArgsStringFromArray: self netldiArgs. |
| 56 | + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'startNetldi ') fullPath asString, ' ', netldiArgs. |
| 57 | + self stderr nextPutAll: result. |
| 58 | + ]. |
| 59 | +% |
| 60 | +method |
| 61 | +netldiArgs |
| 62 | + | sess netldiArgs | |
| 63 | + sess := self sessionDescription. |
| 64 | + netldiArgs := OrderedCollection new. |
| 65 | + self netldiArgsOn: netldiArgs. |
| 66 | + (self scriptArgs size = 1 or: [ self scriptArgs size = 2 and: [ self privateRestart ] ]) |
| 67 | + ifTrue: [ |
| 68 | + self privateRestart ifTrue: [ netldiArgs add: '-r' ]. |
| 69 | + sess netldiArgsOn: netldiArgs. |
| 70 | + ] |
| 71 | + ifFalse: [ |
| 72 | + netldiArgs |
| 73 | + addAll: (self scriptArgs copyFrom: 3 to: self scriptArgs size); |
| 74 | + add: sess netLDI |
| 75 | + ]. |
| 76 | + ^ netldiArgs |
| 77 | +% |
| 78 | +method |
| 79 | +netldiArgsOn: netldiArgs |
| 80 | + | logDir | |
| 81 | + logDir := self gs_logDirectory. |
| 82 | + netldiArgs |
| 83 | + add: '-l'; |
| 84 | + add: (logDir / 'netldi.log') fullPath asString |
| 85 | +% |
| 86 | +method |
| 87 | +netldiArgsStringFromArray: netldiArgsArray |
| 88 | + ^ String streamContents: [ :stream | |
| 89 | + netldiArgsArray |
| 90 | + do: [ :item | stream nextPutAll: item asString ] |
| 91 | + separatedBy: [ stream space ] |
| 92 | + ] |
| 93 | +% |
| 94 | +method |
| 95 | +sessionDescription |
| 96 | + ^ self |
| 97 | + sessionDescriptionIfAbsent: [ :sessionDescriptionReference | |
| 98 | + Error signal: |
| 99 | + 'Session description file ' , sessionDescriptionReference pathString printString , ' for ' , self stoneName printString |
| 100 | + , ' not found.' ] |
| 101 | +% |
| 102 | +method |
| 103 | +sessionDescriptionIfAbsent: absentBlock |
| 104 | + ^self sessionDescriptionFor: self stoneName ifAbsent: absentBlock |
| 105 | +% |
| 106 | +method |
| 107 | +sessionDescriptionFor: aStoneName ifAbsent: absentBlock |
| 108 | + | sessionDescriptionReference | |
| 109 | + sessionDescriptionReference := self sessionDescriptionHome / aStoneName. |
| 110 | + sessionDescriptionReference exists |
| 111 | + ifFalse: [ ^ absentBlock value: sessionDescriptionReference ]. |
| 112 | + ^ (self globalNamed: 'TDSessionDescription') importFrom: sessionDescriptionReference pathString |
| 113 | +% |
| 114 | +method |
| 115 | +sessionDescriptionHome |
| 116 | + ^ (System gemEnvironmentVariable: 'GS_SYS_SESSIONS') asFileReference |
| 117 | +% |
| 118 | +method |
| 119 | +gs_binDirectory |
| 120 | + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference |
| 121 | +% |
| 122 | +method |
| 123 | +gs_logDirectory |
| 124 | + ^ (System gemEnvironmentVariable: 'GEMSTONE_LOGDIR') asFileReference |
| 125 | +% |
| 126 | +method |
| 127 | +gs_stonesDirectory |
| 128 | + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference |
| 129 | +% |
| 130 | +method |
| 131 | +gs_devKitBinDirectory |
| 132 | + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/bin') asFileReference |
| 133 | +% |
| 134 | +method |
| 135 | +gs_stoneDirectory |
| 136 | + ^ self gs_stonesDirectory / self stoneName |
| 137 | +% |
| 138 | +method |
| 139 | +stoneInfoClass |
| 140 | + ^ (self globalNamed: 'GsDevKitStoneInfo') |
| 141 | +% |
| 142 | +method |
| 143 | +stoneInfoFilename |
| 144 | + ^ 'info.ston' |
| 145 | +% |
| 146 | +method |
| 147 | +stoneInfo |
| 148 | + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename |
| 149 | +% |
| 150 | +method |
| 151 | +stoneName |
| 152 | + ^ self positionalArgs at: 1 |
| 153 | +% |
| 154 | +method |
| 155 | +doit |
| 156 | + "override doit method, because ChildError does not exist in 3.6.0" |
| 157 | + [ |
| 158 | + self getAndVerifyOptions == self noResult |
| 159 | + ifTrue: [ ^ self noResult ]. |
| 160 | + ^ self theDoit |
| 161 | + ] on: Error do: [:ex | |
| 162 | + self debug ifTrue: [ ex pass ]. |
| 163 | + self |
| 164 | + exit: ((ex respondsTo: #stderr) |
| 165 | + ifTrue: [ ex stderr asString trimBoth ] |
| 166 | + ifFalse: [ ex messageText ]) |
| 167 | + withStatus: 1 "does not return" ]. |
| 168 | +% |
| 169 | +doit |
| 170 | + self preDoitSpecLoad. "load the GsDevKit_SuperDoit project from spec" |
| 171 | + self restartNetldi. |
| 172 | + ^ self noResult |
| 173 | +% |
0 commit comments