>>>
>>> currently it is possible to load and successfully initialize Morphic
>>> with all packages present in the Core image at once. I already sent to
>>> Marcus necessary scripts for Hudson.
>>
>> I will set it up tonight...
>>
https://ci.lille.inria.fr/pharo/job/Pharo%20Kernel%201.4/lastSuccessfulBuild/artifact/Pharo-ReloadedFromKernel-1.4.zip
but something is strange:
-> 25MB
-> not loading
error message in _report.txt attached
info.st
Error:
MessageNotUnderstood: receiver of "asVmPathName" is nil
1131 [:t1 |
| t2 |
t2 := FileStream forceNewFileNamed: '__report.txt'.
t2 nextPutAll: 'info.st';
cr.
t2 nextPutAll: 'Error:';
cr.
t2 nextPutAll: t1 asString;
cr.
t2 nextPutAll: thisContext stack size asString.
thisContext stack copy
withIndexDo: [:t3 :t4 | [t2 nextPutAll: t4 asString;
space;
nextPutAll: t3 asString;
cr]
ifError: []].
t2 close.
Smalltalk quitPrimitive] in UndefinedObject>>DoIt
2 BlockClosure>>cull:
3 BlockClosure>>cull:cull:
4 [:ex | errorHandlerBlock cull: ex description cull: ex receiver] in
BlockClosure>>ifError:
5 BlockClosure>>cull:
6 [(self tempAt: 2)
cull: exception] in MethodContext(ContextPart)>>handleSignal:
7 BlockClosure>>ensure:
8 MethodContext(ContextPart)>>handleSignal:
9 MessageNotUnderstood(Exception)>>signal
10 UndefinedObject(Object)>>doesNotUnderstand: #asVmPathName
11 MultiByteFileStream(StandardFileStream)>>open:forWrite:
12 MultiByteFileStream>>open:forWrite:
13 MultiByteFileStream class(StandardFileStream class)>>readOnlyFileNamed:
14 FileStream class>>readOnlyFileNamed:
15 [| t1 t2 t3 |
t1 := Compiler evaluate: (FileStream
readOnlyFileNamed: (SmalltalkImage
current getSystemAttribute: 3)) contentsOfEntireFile.
TextConstants TextSharedInformation at: #DefaultTextStyle put: t1.
TextConstants TextSharedInformation at: #Accuny put: t1.
TextConstants TextSharedInformation at: #DefaultMultiStyle put: t1.
TextConstants TextSharedInformation at: #DefaultFixedTextStyle put: t1.
Smalltalk allClasses
select: [:t4 | t4 sharedPools includes: TextConstants]
thenDo: [:t4 |
t4 compileAll.
t4 class compileAll].
CommnadLine initialize.
StrikeFontFixer initialize.
TextStyle initialize.
BalloonBezierSimulation initialize.
BalloonEngineConstants initialize.
BalloonEngine initialize.
Browser initialize.
CommandHistory initialize.
CornerRounder initialize.
CPUWatcher initialize.
Debugger initialize.
DigitalSignatureAlgorithm initialize.
DummySoundSystem initialize.
FileContentsBrowser initialize.
FileList initialize.
FixUnderscores initialize.
FreeTypeCacheConstants initialize.
FreeTypeCache initialize.
FreeTypeSettings initialize.
FreeTypeSubPixelAntiAliasedGlyphRenderer initialize.
FT2Constants initialize.
FT2Handle initialize.
GIFReadWriter initialize.
HaloMorph initialize.
HandMorph initialize.
HostSystemMenus initialize.
ChangeList initialize.
ChangeSorter initialize.
CharacterScanner initialize.
ImageMorph initialize.
JPEGHuffmanTable initialize.
JPEGReadStream initialize.
JPEGReadWriter initialize.
LogicalFont initialize.
LongTestCase initialize.
MailAddressTokenizer initialize.
MailComposition initialize.
MczInstaller initialize.
MD5NonPrimitive initialize.
MenuItemMorph initialize.
MenuMorph initialize.
MidiPrimTester initialize.
Morph initialize.
MultiCharacterScanner initialize.
ParagraphEditor initialize.
PNGReadWriter initialize.
PrettyPrinting initialize.
ProcessBrowser initialize.
RealEstateAgent initialize.
RecentMessageSet initialize.
RxMatcher initialize.
RxParser initialize.
RxsPredicate initialize.
SARInstaller initialize.
ScriptLoader initialize.
ScrollBar initialize.
SecureHashAlgorithm initialize.
ServerDirectory initialize.
SHA1 initialize.
ShortIntegerArray initialize.
ShortRunArray initialize.
SimpleEditor initialize.
StandardToolSet initialize.
StrikeFontFixer initialize.
SystemProgressMorph initialize.
SystemWindow initialize.
TestCase initialize.
TextContainer initialize.
TextDiffBuilder initialize.
TextPrinter initialize.
ThemeIcons initialize.
ThumbnailMorph initialize.
TransferMorph initialize.
TTCFontDescription initialize.
TTCFont initialize.
TTCFontSet initialize.
TTFontDescription initialize.
TTFontReader initialize.
UITheme initialize.
VistaryThemeIcons initialize.
WorldState initialize.
ZnByteEncoder initialize.
ZnConstants initialize.
ZnMimeType initialize.
ZnNetworkingUtils initialize.
ZnServer initialize.
ZnSingleThreadedServer initialize.
Cursor initTarget.
Cursor initialize.
DataStream initialize.
BalloonMorph setBalloonColorTo: Color yellow.
t2 := Project new.
Project classPool at: #CurrentProject put: t2.
t3 := PasteUpMorph new.
t3 instVarNamed: #worldState put: WorldState new.
t3 world addHand: HandMorph new.
t3 activeHand.
Smalltalk at: #World put: t3.
Smalltalk at: #ActiveWorld put: t3.
Smalltalk at: #ActiveHand put: t3 activeHand.
Smalltalk at: #ActiveEvent put: nil.
t3 viewBox: Display boundingBox.
Sensor flushAllButDandDEvents.
t3 world
handsDo: [:t4 | t4 initForEvents].
t3 borderWidth: 0.
Project spawnNewProcess.
SystemWindow noteTopWindowIn: t3.
Display newDepth: 32.
t3 displayWorldSafely.
UIManager default: MorphicUIManager new.
t3 displayWorldSafely.
Project uiProcess resume.
MorphicTextEditor register: PluggableTextMorph.
HelpBrowser initialize.
LogoImageMorph initialize.
TaskbarMorph initialize.
TextEditor initialize.
GLMUITheme beCurrent.
TestRunnerBrowser register: TestRunner.
(t3
windowsSatisfying: [:t4 | t4 model canDiscardEdits])
do: [:t4 | t4 delete].
ScriptLoader new cleanUpAfterMorphicInitialization.
Display newDepth: 32.
(World instVarNamed: #worldState)
canvas: nil.
SmalltalkEditor initialize.
FreeTypeFontProvider initialize.
SmalltalkImage current snapshot: true andQuit: false.
SmalltalkImage current snapshot: true andQuit: true.
UIManager default restoreDisplay] in UndefinedObject>>DoIt
16 BlockClosure>>on:do:
17 BlockClosure>>ifError:
18 UndefinedObject>>DoIt
19 Compiler>>evaluate:in:to:notifying:ifFail:logged:
20 Compiler class>>evaluate:for:notifying:logged:
21 Compiler class>>evaluate:for:logged:
22 Compiler class>>evaluate:logged:
23 [val := (self peekFor: $!)
ifTrue: [(Compiler evaluate: self nextChunk
logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
Compiler evaluate: chunk logged: true]]
in ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
24 BlockClosure>>on:do:
25 ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
26 ReadStream(PositionableStream)>>fileInSilently
27 [(scriptName asLowercase beginsWith: prefix)
ifTrue: [scriptName := scriptName allButFirst: prefix size].
((FileStream readOnlyFileNamed: scriptName) converter:
UTF8TextConverter new;
contentsOfEntireFile) readStream fileInSilently] in
SimpleCodeLoader class>>commandLineHandlerAction:
28 BlockClosure>>cull:
29 ByteString(Collection)>>ifNotEmpty:
30 SimpleCodeLoader class>>commandLineHandlerAction:
31 [:t1 | SimpleCodeLoader commandLineHandlerAction: t1] in SimpleCodeLoader
class>>register
32 [:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine
class(AbstractUserInput class)>>dispatch:
33 [:association | aBlock value: association value] in Dictionary>>valuesDo:
34 [:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
35 Array(SequenceableCollection)>>do:
36 Dictionary>>associationsDo:
37 Dictionary>>valuesDo:
38 Dictionary>>do:
39 CommandLine class(AbstractUserInput class)>>dispatch:
40 [self dispatch: singleton] in CommandLine class>>dispatch
41 BlockClosure>>cull:
42 [:each | each cull: resuming] in
SmalltalkImage>>executeDeferredStartupActions:
43 OrderedCollection>>do:
44 SmalltalkImage>>executeDeferredStartupActions:
45 SmalltalkImage>>snapshot:andQuit:
46 [| t1 t2 t3 |
UIManager default progressBarEnabled: true.
MCMethodDefinition initializersEnabled: false.
t1 := 'Announcements-Core
Collections-Abstract
Collections-Arrayed
Collections-Sequenceable
Collections-Stack
Collections-Streams
Collections-Strings
Collections-Support
Collections-Text
Collections-Unordered
Collections-Weak
Collections-Native
Collections-Atomic
Compiler
Files
Graphics-Display Objects
Graphics-Primitives
Graphics-Transformations
Kernel
Multilingual-Encodings
Multilingual-ImmPlugin
Multilingual-Languages
Multilingual-TextConversion
System-BreakPoints
System-Change Notification
System-Changes
System-Clipboard
System-Debugging
System-FileRegistry
System-Finalization
System-Localization
System-Object Events
System-Object Storage
System-Platforms
System-Support
Traits
UIManager
Compression
Network-Kernel
Network-MIME
Network-UUID
Network-Url
Network-URI
Network-Protocols
PackageInfo
System-FileRegistry
Monticello
MonticelloConfigurations
Zinc-HTTP
Zinc-Patch-HTTPSocket
Gofer-Core' lines.
t1
do: [:t4 | MCWorkingCopy
forPackage: (MCPackage new name: t4)].
t2 := 'Announcements-View
Announcements-Help
Announcements-Tests-Core
Balloon
Collections-Traits
CollectionsTests
CompilerTests
CompressionTests
Deprecated12
EmergencyEvaluator
FixUnderscores
FreeType
FreeTypeTests
Gofer-Tests
Graphics-External
Graphics-Files
Graphics-Fonts
Graphics-Resources
Graphics-Support
Graphics-Tests
Graphics-Text
HelpSystem-Core
HelpSystem-Tests
HostMenus
KernelTests
MenuRegistration
MonticelloGUI
Morphic
MorphicTests
Multilingual-Display
Multilingual-Scanning
Multilingual-Tests
Network-MailSending
Network-RFC822
Network-RemoteDirectory
NetworkTests
PackageInfo
Polymorph-EventEnhancements
Polymorph-Geometry
Polymorph-TaskbarIcons
Polymorph-ToolBuilder
Polymorph-Tools-Diff
Polymorph-Widgets
SUnit
Settings-Compiler
Settings-Display
Settings-FreeType
Settings-Graphics
Settings-Kernel
Settings-Polymorph
Settings-System
Settings-Tools
System-Applications
System-Download
System-FilePackage
System-Hashing
System-Installers
System-Serial Port
System-Settings
System-Sound
System-Text
System-Tools
Tests
ToolBuilder-Kernel
ToolBuilder-Morphic
Tools
ToolsTest
TrueType
DialogItemsChooser
Finder
MonticelloMocks
RecentSubmissions
Regex-Core
Regex-Help
Regex-Tests-Core
System-History
StratifiedProxy
Zinc-HTTP
Zinc-Patch-HTTPSocket
Zinc-Tests
ScriptLoader13
UI-Basic
Deprecated13
' lines.
t3 := Gofer it squeaksource: 'Pharo'.
t2
do: [:t4 | t3 package: t4].
t3 load.
MCMethodDefinition initializersEnabled: true.
SmalltalkImage current snapshot: true andQuit: true] in
UndefinedObject>>DoIt
47 BlockClosure>>on:do:
48 BlockClosure>>ifError:
49 UndefinedObject>>DoIt
50 Compiler>>evaluate:in:to:notifying:ifFail:logged:
51 Compiler class>>evaluate:for:notifying:logged:
52 Compiler class>>evaluate:for:logged:
53 Compiler class>>evaluate:logged:
54 [val := (self peekFor: $!)
ifTrue: [(Compiler evaluate: self nextChunk
logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
Compiler evaluate: chunk logged: true]]
in ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
55 BlockClosure>>on:do:
56 ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
57 ReadStream(PositionableStream)>>fileInSilently
58 [(scriptName asLowercase beginsWith: prefix)
ifTrue: [scriptName := scriptName allButFirst: prefix size].
((FileStream readOnlyFileNamed: scriptName) converter:
UTF8TextConverter new;
contentsOfEntireFile) readStream fileInSilently] in
SimpleCodeLoader class>>commandLineHandlerAction:
59 BlockClosure>>cull:
60 ByteString(Collection)>>ifNotEmpty:
61 SimpleCodeLoader class>>commandLineHandlerAction:
62 [:t1 | SimpleCodeLoader commandLineHandlerAction: t1] in SimpleCodeLoader
class>>register
63 [:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine
class(AbstractUserInput class)>>dispatch:
64 [:association | aBlock value: association value] in Dictionary>>valuesDo:
65 [:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
66 Array(SequenceableCollection)>>do:
67 Dictionary>>associationsDo:
68 Dictionary>>valuesDo:
69 Dictionary>>do:
70 CommandLine class(AbstractUserInput class)>>dispatch:
71 [self dispatch: singleton] in CommandLine class>>dispatch
72 BlockClosure>>cull:
73 [:each | each cull: resuming] in
SmalltalkImage>>executeDeferredStartupActions:
74 OrderedCollection>>do:
75 SmalltalkImage>>executeDeferredStartupActions:
76 SmalltalkImage>>snapshot:andQuit:
77 [log := ((SmalltalkImage current getSystemAttribute: 3)
ifNil: [FileDirectory default]
ifNotNilDo: [:t1 | FileDirectory on: t1])
forceNewFileNamed: 'info_loadGopher.txt'.
packagesDir := (SmalltalkImage current getSystemAttribute: 4)
ifNil: [FileDirectory default]
ifNotNilDo: [:t1 | FileDirectory on: t1].
old := Undeclared copy.
oldCalls := SystemNavigation default allUnimplementedCalls.
lastCalls := oldCalls.
#('Network-Kernel' 'Network-MIME' 'Network-UUID' 'Network-Url'
'Network-URI' 'Network-Protocols' 'PackageInfo' 'System-FileRegistry'
'Monticello' 'MonticelloConfigurations' 'Zinc-HTTP' 'Zinc-Patch-HTTPSocket'
'Settings-Network' 'Settings-Monticello' 'Gofer-Core' )
do: [:t1 |
log nextPutAll: 'loading ' , t1 , '...';
cr.
packagesDir
readOnlyFileNamed: t1 , '.st'
do: [:t2 | t2 fileInSilently].
log nextPutAll: t1 , ' loaded';
cr.
log nextPutAll: 'New Undeclared:';
cr.
log nextPutAll: (Undeclared copyWithoutAll: old)
asString;
cr.
log nextPutAll: 'New unimplemented calls:';
cr.
unimplemented := SystemNavigation default
allUnimplementedCalls.
log nextPutAll: (unimplemented copyWithoutAll:
lastCalls) asString;
cr.
lastCalls := unimplemented.
log nextPutAll: 'Unimplemented calls:';
cr.
log nextPutAll: (unimplemented copyWithoutAll:
oldCalls) asString;
cr;
cr].
log close.
SmalltalkImage current snapshot: true andQuit: true] in
UndefinedObject>>DoIt
78 BlockClosure>>on:do:
79 BlockClosure>>ifError:
80 UndefinedObject>>DoIt
81 Compiler>>evaluate:in:to:notifying:ifFail:logged:
82 Compiler class>>evaluate:for:notifying:logged:
83 Compiler class>>evaluate:for:logged:
84 Compiler class>>evaluate:logged:
85 [val := (self peekFor: $!)
ifTrue: [(Compiler evaluate: self nextChunk
logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
Compiler evaluate: chunk logged: true]]
in ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
86 BlockClosure>>on:do:
87 ReadStream(PositionableStream)>>fileInSilentlyAnnouncing:
88 ReadStream(PositionableStream)>>fileInSilently
89 [(scriptName asLowercase beginsWith: prefix)
ifTrue: [scriptName := scriptName allButFirst: prefix size].
((FileStream readOnlyFileNamed: scriptName) converter:
UTF8TextConverter new;
contentsOfEntireFile) readStream fileInSilently] in
SimpleCodeLoader class>>commandLineHandlerAction:
90 BlockClosure>>cull:
91 ByteString(Collection)>>ifNotEmpty:
92 SimpleCodeLoader class>>commandLineHandlerAction:
93 [:t1 | SimpleCodeLoader commandLineHandlerAction: t1] in SimpleCodeLoader
class>>register
94 [:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine
class(AbstractUserInput class)>>dispatch:
95 [:association | aBlock value: association value] in Dictionary>>valuesDo:
96 [:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
97 Array(SequenceableCollection)>>do:
98 Dictionary>>associationsDo:
99 Dictionary>>valuesDo:
100 Dictionary>>do:
101 CommandLine class(AbstractUserInput class)>>dispatch:
102 [self dispatch: singleton] in CommandLine class>>dispatch
103 BlockClosure>>cull:
104 [:each | each cull: resuming] in
SmalltalkImage>>executeDeferredStartupActions:
105 OrderedCollection>>do:
106 SmalltalkImage>>executeDeferredStartupActions:
107 SmalltalkImage>>snapshot:andQuit:
108 [SmalltalkImage current snapshot: true andQuit: true] in
SmalltalkImage>>privSaveImageWithCleanup
109 BlockClosure>>on:do:
110 BlockClosure>>ifError:
111 SmalltalkImage>>privSaveImageWithCleanup
112 [self privSaveImageWithCleanup] in SmalltalkImage>>saveImageInNewContext
113 [self value.
Processor terminateActive] in BlockClosure>>newProcess
--
Marcus Denker -- http://www.marcusdenker.de
INRIA Lille -- Nord Europe. Team RMoD.
