OrderedCollection variableSubclass: #CommandQueue
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: nil !

CommandQueue comment: 'I am an ordered command queue' !

!CommandQueue methodsFor: 'file input'!

fileIn: aFile
	| stream buf |

	stream := TokenStream onStream: ((aFile = '-') ifTrue: [ stdin ] ifFalse: [ (File name: aFile) readStream ]).
	[ stream atEnd ] whileFalse: [ 
		buf := stream next. 
		((buf = 'S') | (buf = 'T')) ifTrue:  [ self add: ( Message selector: ((buf,':') asSymbol) arguments: ( Array with: (stream next asInteger) ) ) ] 
					    ifFalse: [ self add: ( Message selector: ((buf,':A:') asSymbol) arguments: ( Array with: (stream next asInteger) with: (stream next asInteger) ) ) ].
	].
! !