DiyaSDK/export.st

|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.

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)
	.

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.