--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCScanner.st	Wed Nov 22 14:06:28 2006 +0100
@@ -0,0 +1,63 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+Object subclass:#MCScanner
+	instanceVariableNames:'stream'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Chunk Format'
+!
+
+
+!MCScanner class methodsFor:'as yet unclassified'!
+
+scan: aStream
+	^ (self new stream: aStream) next
+!
+
+scanTokens: aString
+	"compatibility"
+	^ Array with: (self scan: aString readStream)
+! !
+
+!MCScanner methodsFor:'as yet unclassified'!
+
+next
+	| c |
+	stream skipSeparators.
+	c _ stream peek.
+	c = $# ifTrue: [c _ stream next; peek].
+	c = $' ifTrue: [^ self nextString].
+	c = $( ifTrue: [^ self nextArray].
+	c isAlphaNumeric ifTrue: [^ self nextSymbol].
+	self error: 'Unknown token type'.	
+!
+
+nextArray
+	stream next. "("
+	^ Array streamContents:
+		[:s |
+		[stream skipSeparators.
+		(stream peek = $)) or: [stream atEnd]] whileFalse: [s nextPut: self next].
+		stream next = $) ifFalse: [self error: 'Unclosed array']]
+!
+
+nextString
+	^ stream nextDelimited: $'
+!
+
+nextSymbol
+	^ (String streamContents:
+		[:s |
+		[stream peek isAlphaNumeric] whileTrue: [s nextPut: stream next]]) asSymbol
+			
+!
+
+stream: aStream
+	stream _ aStream
+! !
+
+!MCScanner class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.1 2006-11-22 13:06:28 cg Exp $'
+! !