mirror of
https://github.com/lxsang/DiyaSDK.git
synced 2024-07-01 09:19:47 +02:00
150 lines
4.0 KiB
Smalltalk
150 lines
4.0 KiB
Smalltalk
|pkgn dest pkg fileReference fileName writer core hePackage ignoresClasses|
|
|
FFIMethodRegistry resetAll.
|
|
Smalltalk garbageCollect.
|
|
dest := Smalltalk arguments first.
|
|
pkgn := Smalltalk arguments at:2.
|
|
|
|
core := HEPackage new.
|
|
core classes: OrderedCollection new.
|
|
core traits: OrderedCollection new.
|
|
core extensionMethods: OrderedCollection new.
|
|
core packageName: pkgn.
|
|
|
|
packages := #(
|
|
'Kernel-Chronology-Extras'
|
|
'Jobs'
|
|
'Collections-Arithmetic'
|
|
'Ring-Deprecated-Core-Kernel'
|
|
'Ring-Deprecated-Core-Containers'
|
|
'Math-Operations-Extensions'
|
|
'Collections-Atomic'
|
|
'Collections-DoubleLinkedList'
|
|
'DeprecatedFileStream'
|
|
'Zinc-Resource-Meta-Core'
|
|
'Zinc-Character-Encoding-Core'
|
|
'FileSystem-Core'
|
|
'FileSystem-Disk'
|
|
'FileSystem-Memory'
|
|
'Compression'
|
|
'FileSystem-Zip'
|
|
'Multilingual-Encodings'
|
|
'Multilingual-Languages'
|
|
'Multilingual-TextConversion'
|
|
'Text-Core'
|
|
'AST-Core'
|
|
'Debugging-Core'
|
|
'OpalCompiler-Core'
|
|
'Kernel-Traits'
|
|
'AST-Core-Traits'
|
|
'Collections-Abstract-Traits'
|
|
'Transcript-Core-Traits'
|
|
'TraitsV2-Compatibility'
|
|
'Alien-Core'
|
|
'System-Model'
|
|
'PragmaCollector'
|
|
'UnifiedFFI'
|
|
'UnifiedFFI-Legacy'
|
|
'Slot-Core'
|
|
'System-Localization'
|
|
'STON-Core'
|
|
'Colors'
|
|
'Diya'
|
|
).
|
|
|
|
ignoresClasses := {
|
|
"RGCommentDefinition.
|
|
RGMethodDefinition."
|
|
ChangeRecord.
|
|
PluggableListMorph.
|
|
TextLine.
|
|
TransformMorph.
|
|
StringMorph.
|
|
AthensCairoSDLSurface.
|
|
SourceFileArray.
|
|
GlyphForm.
|
|
ManifestGraphicsPrimitives.
|
|
EllipseMidpointTracer.
|
|
GrafPort.
|
|
Form
|
|
}.
|
|
"remove some unused meothods"
|
|
AbstractFileReference
|
|
removeSelector: #fileIn.
|
|
FileStream
|
|
removeSelector: #fileIn.
|
|
GZipReadStream class
|
|
removeSelector: #fileIn:.
|
|
STCommandLineHandler
|
|
removeSelector: #installSourceFile:;
|
|
compile: 'installSourceFiles
|
|
';
|
|
removeSelector: #loadSourceFiles:;
|
|
compile: 'selectSourceFiles
|
|
'.
|
|
PharoCommandLineHandler
|
|
compile: 'changePreferences
|
|
';
|
|
compile: 'runPreferences
|
|
'.
|
|
|
|
Rectangle class
|
|
removeSelector: #fromUser:;
|
|
removeSelector: #fromUser.
|
|
|
|
CompositeTransform removeSelector:#asMorphicTransform.
|
|
|
|
packages do:[:name | |pkg trait classes extensionMethods|
|
|
Transcript show: 'Processing package ',name;cr.
|
|
FFIMethodRegistry resetAll.
|
|
Smalltalk garbageCollect.
|
|
pkg := RPackageOrganizer default packageNamed: name asSymbol.
|
|
traits := (pkg definedClasses select: #isTrait) do: [ :e | core traits add:(HETrait for: e) ].
|
|
(pkg definedClasses reject: #isTrait) do: [ :e |
|
|
(ignoresClasses includes:e) ifFalse:[
|
|
core addClass: (HEClass for: e) ].
|
|
].
|
|
pkg extensionMethods do: [ :e |
|
|
(ignoresClasses includes:e classBinding value) ifFalse:[
|
|
core extensionMethods add:(HEMethod for: e)
|
|
]
|
|
].
|
|
].
|
|
|
|
"SDL binding class"
|
|
pkg := RPackageOrganizer default packageNamed: 'OSWindow-SDL2' asSymbol.
|
|
(pkg classNamesForClassTag: 'Bindings') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
|
|
"FreeType binding class"
|
|
pkg := RPackageOrganizer default packageNamed: 'FreeType' asSymbol.
|
|
(pkg classNamesForClassTag: 'Base') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
(pkg classNamesForClassTag: 'Bindings') do:[:e|
|
|
(ignoresClasses includes:e asClass) ifFalse:[
|
|
core addClass:(HEClass for:e asClass) ]].
|
|
|
|
"fixing some missing classes"
|
|
core addClass: (HEClass for:OSWindowPlatformSpecificHandle);
|
|
addClass: (HEClass for:ChunkWriteStream);
|
|
addClass: (HEClass for:ChunkReadStream);
|
|
addClass: (HEClass for: PharoCommandLineHandler);
|
|
addClass: (HEClass for:STCommandLineHandler);
|
|
addClass: (HEClass for:FreeTypeFace);
|
|
"form object support"
|
|
addClass: (HEClass for: ShortIntegerArray);
|
|
addClass: (HEClass for:DisplayTransform);
|
|
addClass: (HEClass for:MatrixTransform2x3);
|
|
addClass: (HEClass for:CompositeTransform)
|
|
.
|
|
|
|
fileReference := (dest,'/',(pkgn replaceAll: Character space with: $-),'.hermes') asFileReference.
|
|
fileName := fileReference fullName.
|
|
writer := HEBinaryReaderWriter new
|
|
stream: (File openForWriteFileNamed:fileName);
|
|
yourself.
|
|
core writeInto: writer.
|
|
|
|
writer stream flush.
|
|
Transcript show: 'File exported to ', dest, '/', pkgn, '.hermes'; cr. |