"/ Encoding: iso8859-1

"/

"/ $Header$

"/

"/ MIMEType: application/x-smalltalk-source

"/

"/ ST/X startup command file:

"/

"/ bytecode compiler frontend for smalltalk

"/ usage: stbc file.st

"/

"/ creates file.cls, which can be binary loaded.

"/

"/ Notice:

"/   this is an experiment to provide a tool which looks like javac;

"/   stbc is actually not used in the current system.

"/   (the same functionality is provided by the browsers fileOut-binary function)

"/

"/ By the way - this is an example for a headless application.

"/ load the files, save binary versions

|args readOnly|

ObjectMemory infoPrinting: false.

"/ObjectMemory debugPrinting: true.

Object infoPrinting: false.

Smalltalk silentLoading:true.

Compiler stcCompilation:#never.

Compiler warnSTXSpecials:false.

Compiler warnings:false.

[

    readOnly := false.

    args := Smalltalk commandLineArguments.

    args do:[:arg |

	|inFile outFile baseName className class|

	arg = '-r' ifTrue:[

	    readOnly := true

	].

	(arg startsWith:'-') ifFalse:[

	    inFile := arg asFilename.

	    ('stbc [info]: loading ' , inFile name , ' ...') errorPrintCR.

	    Object errorSignal handle:[:ex |

		'stbc [error]: error while loading: ' errorPrint. ex errorString errorPrintCR.

	    ] do:[

		Smalltalk fileIn:inFile name.

	    ].

	    ('stbc [info]: loaded ' , inFile name) errorPrintCR.

	    readOnly ifFalse:[

		baseName := inFile withoutSuffix.

		className := baseName baseName.

		outFile := baseName withSuffix:'cls'.

		className := Smalltalk classNameForFile:className.

		class := Smalltalk classNamed:className.

		class notNil ifTrue:[

		    ('stbc [info]: saving ' , class name , ' into ', outFile pathName, ' ...') errorPrintCR.

		    class binaryFileOutWithSourceMode:#reference as:outFile.

		] ifFalse:[

		    ('stbc [error]: no class for ' , className) errorPrintCR

		].

	    ].

	    readOnly := false.

	]

    ].

] on:UserInterruptSignal do:[:ex|

    ('stbc [error]: aborted by user') errorPrintCR.

    Smalltalk exit.

].

!

('stbc [info]: done') errorPrintCR.

Smalltalk exit.

!