--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCDoItParser.st	Wed Nov 22 14:06:23 2006 +0100
@@ -0,0 +1,51 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+Object subclass:#MCDoItParser
+	instanceVariableNames:'source'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Chunk Format'
+!
+
+
+!MCDoItParser class methodsFor:'as yet unclassified'!
+
+concreteSubclasses
+	^ self allSubclasses reject: [:c | c isAbstract]
+!
+
+forDoit: aString
+	^ (self subclassForDoit: aString) ifNotNilDo: [:c | c new source: aString]
+!
+
+isAbstract
+	^ self pattern isNil
+!
+
+pattern
+	^ nil
+!
+
+subclassForDoit: aString
+	^ self concreteSubclasses detect: [:ea | ea pattern match: aString] ifNone: []
+! !
+
+!MCDoItParser methodsFor:'as yet unclassified'!
+
+addDefinitionsTo: aCollection
+	self subclassResponsibility 
+!
+
+source
+	^ source
+!
+
+source: aString
+	source _ aString
+! !
+
+!MCDoItParser class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDoItParser.st,v 1.1 2006-11-22 13:06:23 cg Exp $'
+! !