Guest User

Untitled

a guest
Jan 31st, 2018
54
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. -- transcript --
  3.  
  4. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup: (System is Undeclared)
  5.  
  6. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup: (System is Undeclared)
  7.  
  8. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup: (MethodVersionHistory is Undeclared)
  9.  
  10. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup: (MethodVersionHistory is Undeclared)
  11.  
  12. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup: (System is Undeclared)
  13. *** Loading WonkaProjects
  14. From: filetree:///home/wonka/development-squeak/wonka/monticello
  15. Modes: #()
  16.  
  17. Fetched -> BaselineOfWonkaProjects-WillyWonka.9400 --- filetree:///home/wonka/development-squeak/wonka/monticello [:] --- filetree:///home/wonka/development-squeak/wonka/monticello
  18. Loaded -> BaselineOfWonkaProjects-WillyWonka.9400 --- filetree:///home/wonka/development-squeak/wonka/monticello [:] --- filetree:///home/wonka/development-squeak/wonka/monticello
  19. Loading baseline of BaselineOfWonkaProjects...
  20.  
  21. -- stack --
  22.  
  23. Author: Anonymous
  24.  
  25. MetacelloPackagesSpec(Object)>>error:
  26. MetacelloPackagesSpec>>packageSpecsInLoadOrderFor:
  27. MetacelloMCVersionSpec(MetacelloVersionSpec)>>packageSpecsInLoadOrder
  28. MetacelloMCVersionSpec(MetacelloVersionSpec)>>projectDo:packageDo:groupDo:
  29. MetacelloMCVersion>>packages
  30. MetacelloMCVersion>>packageAndProjectNamesToLoad:loader:
  31. MetacelloMCVersion>>defaultPackageNamesToLoad:
  32. [ | fetchLoader |
  33. fetchLoader := self
  34. fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray).
  35. MetacelloPlatform current
  36. do: [ fetchLoader doLoad ]
  37. displaying: 'Loading ' , displayString.
  38. Transcript
  39. cr;
  40. show: '...finished ' , self versionNumber printString.
  41. ^ fetchLoader ] in MetacelloMCVersion>>doLoadRequiredFromArray:
  42. BlockClosure>>ensure:
  43. MetacelloMCVersion>>doLoadRequiredFromArray:
  44. ByteString(String)>>loadRequiredForMetacelloMCVersion:
  45. MetacelloMCVersion>>load:
  46. [ | version loadedSpec |
  47. self setDefaultsAndValidateProjectSpec.
  48. [ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ]
  49. on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  50. do:
  51. [ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ].
  52. version := loadedSpec versionForScriptEngine: self.
  53. self
  54. root:
  55. (required isEmpty
  56. ifTrue: [ version load ]
  57. ifFalse: [ version load: required ]) loadDirective.
  58. loadedSpec loads: required.
  59. MetacelloProjectRegistration
  60. registrationForProjectSpec: loadedSpec
  61. ifAbsent: [ :new |
  62. new
  63. loadedInImage: true;
  64. registerProject ]
  65. ifPresent: [ :existing :new |
  66. existing
  67. copyOnWrite: [ :existingCopy |
  68. existingCopy
  69. loadedInImage: true;
  70. merge: new ] ] ] in [ self
  71. handleNotificationsForAction: [ | version loadedSpec |
  72. self setDefaultsAndValidateProjectSpec.
  73. [ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ]
  74. on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  75. do:
  76. [ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ].
  77. version := loadedSpec versionForScriptEngine: self.
  78. self
  79. root:
  80. (required isEmpty
  81. ifTrue: [ version load ]
  82. ifFalse: [ version load: required ]) loadDirective.
  83. loadedSpec loads: required.
  84. MetacelloProjectRegistration
  85. registrationForProjectSpec: loadedSpec
  86. ifAbsent: [ :new |
  87. new
  88. loadedInImage: true;
  89. registerProject ]
  90. ifPresent: [ :existing :new |
  91. existing
  92. copyOnWrite: [ :existingCopy |
  93. existingCopy
  94. loadedInImage: true;
  95. merge: new ] ] ] ] in MetacelloScriptEngine>>load:onProjectDownGrade:onProjectUpgrade:
  96. BlockClosure>>on:do:
  97. [ actionBlock
  98. on:
  99. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  100. , MetacelloProjectSpecLoadedNotification
  101. , MetacelloScriptEnsureProjectLoadedForDevelopment
  102. , MetacelloLookupBaselineSpecForEnsureLoad
  103. do:
  104. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
  105. on:
  106. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  107. , MetacelloProjectSpecLoadedNotification
  108. , MetacelloScriptEnsureProjectLoadedForDevelopment
  109. , MetacelloLookupBaselineSpecForEnsureLoad
  110. do:
  111. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
  112. on:
  113. MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  114. , MetacelloAllowConflictingProjectUpgrade
  115. do:
  116. [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
  117. on:
  118. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  119. , MetacelloProjectSpecLoadedNotification
  120. , MetacelloScriptEnsureProjectLoadedForDevelopment
  121. , MetacelloLookupBaselineSpecForEnsureLoad
  122. do:
  123. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
  124. on:
  125. MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  126. , MetacelloAllowConflictingProjectUpgrade
  127. do:
  128. [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
  129. on: MetacelloAllowLockedProjectChange
  130. do:
  131. [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction:
  132. BlockClosure>>on:do:
  133. [ [ actionBlock
  134. on:
  135. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  136. , MetacelloProjectSpecLoadedNotification
  137. , MetacelloScriptEnsureProjectLoadedForDevelopment
  138. , MetacelloLookupBaselineSpecForEnsureLoad
  139. do:
  140. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
  141. on:
  142. MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  143. , MetacelloAllowConflictingProjectUpgrade
  144. do:
  145. [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
  146. on:
  147. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  148. , MetacelloProjectSpecLoadedNotification
  149. , MetacelloScriptEnsureProjectLoadedForDevelopment
  150. , MetacelloLookupBaselineSpecForEnsureLoad
  151. do:
  152. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
  153. on:
  154. MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  155. , MetacelloAllowConflictingProjectUpgrade
  156. do:
  157. [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
  158. on: MetacelloAllowLockedProjectChange
  159. do:
  160. [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction:
  161. BlockClosure>>on:do:
  162. [ [ [ actionBlock
  163. on:
  164. MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
  165. , MetacelloProjectSpecLoadedNotification
  166. , MetacelloScriptEnsureProjectLoadedForDevelopment
  167. , MetacelloLookupBaselineSpecForEnsureLoad
  168. do:
  169. [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
  170. on:
  171. MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  172. , MetacelloAllowConflictingProjectUpgrade
  173. do:
  174. [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
  175. on: MetacelloAllowLockedProjectChange
  176. do:
  177. [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction:
  178. BlockClosure>>on:do:
  179. MetacelloScriptEngine>>handleNotificationsForAction:
  180. [ self
  181. handleNotificationsForAction: [ | version loadedSpec |
  182. self setDefaultsAndValidateProjectSpec.
  183. [ loadedSpec := (self lookupProjectSpecFor: self projectSpec) copy ]
  184. on: MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
  185. do:
  186. [ :ex | ex handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock ].
  187. version := loadedSpec versionForScriptEngine: self.
  188. self
  189. root:
  190. (required isEmpty
  191. ifTrue: [ version load ]
  192. ifFalse: [ version load: required ]) loadDirective.
  193. loadedSpec loads: required.
  194. MetacelloProjectRegistration
  195. registrationForProjectSpec: loadedSpec
  196. ifAbsent: [ :new |
  197. new
  198. loadedInImage: true;
  199. registerProject ]
  200. ifPresent: [ :existing :new |
  201. existing
  202. copyOnWrite: [ :existingCopy |
  203. existingCopy
  204. loadedInImage: true;
  205. merge: new ] ] ] ] in MetacelloScriptEngine>>load:onProjectDownGrade:onProjectUpgrade:
  206. BlockClosure>>ensure:
  207. MetacelloProjectRegistration class>>copyRegistryRestoreOnErrorWhile:
  208. MetacelloScriptEngine>>load:onProjectDownGrade:onProjectUpgrade:
  209. MetacelloScriptEngine>>load:
  210. [ :projectSpec |
  211. | engine |
  212. engine := MetacelloScriptEngine new
  213. options: self options copy;
  214. projectSpec: projectSpec;
  215. yourself.
  216. engine perform: actionArg key withArguments: actionArg value.
  217. engine root ifNotNil: [ :root | self roots add: root ] ] in MetacelloScriptApiExecutor(MetacelloScriptExecutor)>>execute:
  218. [ :projectSpec |
  219. projectSpec
  220. ifNotNil: [ projectSpecBlock
  221. value: (self applyArgsToProjectSpec: projectSpec copy) ] ] in MetacelloScriptApiExecutor>>executeString:do:
  222. Array(SequenceableCollection)>>do:
  223. MetacelloScriptApiExecutor>>executeString:do:
  224. ByteString(String)>>execute:against:
  225. MetacelloScriptApiExecutor(MetacelloScriptExecutor)>>execute:
  226. Metacello>>execute:args:
  227. Metacello>>load:
  228. [ self metacelloForLoading load: aGroup asString ] in [ self
  229. doNotSkipOverDirtyPackagesDuring: [ self metacelloForLoading load: aGroup asString ] ] in WonkaLoader>>loadGroup:
  230. BlockClosure>>on:do:
  231. WonkaLoader>>doNotSkipOverDirtyPackagesDuring:
  232. [ self
  233. doNotSkipOverDirtyPackagesDuring: [ self metacelloForLoading load: aGroup asString ] ] in WonkaLoader>>loadGroup:
  234. WonkaLoader>>doWithPlatformModes:
  235. WonkaLoader>>loadGroup:
  236. BaselineOfWonkaProjects class>>loadWonkaProjectsGroup:
  237. UndefinedObject>>DoIt
  238. OpalCompiler>>evaluate
  239. RubSmalltalkEditor>>evaluate:andDo:
  240. RubSmalltalkEditor>>highlightEvaluateAndDo:
  241. GLMMorphicPharoScriptRenderer(GLMMorphicPharoCodeRenderer)>>popupPrint
  242. MorphicAlarm(MessageSend)>>value
  243. MorphicAlarm>>value:
  244. WorldState>>triggerAlarmsBefore:
  245. WorldState>>runLocalStepMethodsIn:
  246. WorldState>>runStepMethodsIn:
  247. WorldMorph>>runStepMethods
  248. WorldState>>doOneCycleNowFor:
  249. WorldState>>doOneCycleFor:
  250. WorldMorph>>doOneCycle
  251. WorldMorph class>>doOneCycle
  252. [ [ WorldMorph doOneCycle.
  253. Processor yield.
  254. false ] whileFalse: [ ] ] in MorphicUIManager>>spawnNewProcess
  255. [ self value.
  256. Processor terminateActive ] in BlockClosure>>newProcess
RAW Paste Data