SystemOrganization addCategory: #'QuasiQuote-Core'!
SystemOrganization addCategory: #'QuasiQuote-Nodes'!
SystemOrganization addCategory: #'QuasiQuote-Tests'!

!RBFormatter methodsFor: '*quasiquote' stamp: 'lr 2/28/2008 17:02'!
acceptQuasiQuoteNode: aNode 
	codeStream nextPutAll: '`['.
	self visitNode: aNode value.
	codeStream nextPutAll: ']'! !

!RBProgramNodeVisitor methodsFor: '*quasiquote' stamp: 'lr 2/28/2008 17:02'!
acceptQuasiQuoteNode: aNode 
	! !

!Parser2 methodsFor: '*quasiquote-override' stamp: 'lr 2/28/2008 15:04'!
realParserClass
	^ QQParser! !

RBLiteralNode subclass: #QQQuasiQuoteNode
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'QuasiQuote-Nodes'!

!QQQuasiQuoteNode class methodsFor: 'instance creation' stamp: 'lr 2/28/2008 15:41'!
value: aNode
	^ self new value: aNode! !

!QQQuasiQuoteNode methodsFor: 'visitor' stamp: 'lr 2/28/2008 17:02'!
acceptVisitor: aVisitor
	^ aVisitor acceptQuasiQuoteNode: self! !

!QQQuasiQuoteNode methodsFor: 'accessing' stamp: 'lr 2/28/2008 15:37'!
value
	^ value! !

SqueakScanner subclass: #QQScanner
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'QuasiQuote-Core'!

!QQScanner class methodsFor: 'generated-initialization' stamp: 'lr 2/28/2008 17:09'!
initializeKeywordMap
	keywordMap := Dictionary new.
	#(
		#(25 'false' 20 )
		#(25 'nil' 21 )
		#(25 'true' 19 )
		#(26 'apicall:' 12 )
		#(26 'cdecl:' 13 )
		#(26 'module:' 15 )
		#(26 'primitive:' 3 )
		#(#binarySymbol '||' 11 )
	) do: 
		[ : each | 
		(keywordMap 
			at: each first
			ifAbsentPut: [ Dictionary new ]) 
			at: (each at: 2)
			put: each last ].
	^ keywordMap! !

!QQScanner class methodsFor: 'generated-comments' stamp: 'lr 2/28/2008 17:09'!
scannerDefinitionComment

	"<decimalNumber>:	[0-9]+ (\. [0-9]+)? ;
<radixNumber>:		[0-9]+ r [0-9A-Z]+ (\. [0-9A-Z]+)? ;
<scaledNumber>:		<decimalNumber> s [0-9]+ ;
<exponentNumber>:	(<decimalNumber> | <radixNumber>) e \-? [0-9]+ ;
<number>:			<decimalNumber> | <radixNumber> | <exponentNumber> | <scaledNumber> ;
<negativeNumber>:	\- <number> ;
<string>:				\'  [^\']* \' (\' [^\']* \')* ;
<name>:				[a-zA-Z] [a-zA-Z0-9]* ;
<keyword>:			<name> \: ;
<multikeyword>:		<name> \: (<name> \: )+ ;
<binarySymbol>:		[\~\!!\@\%\&\*\-\+\=\\\|\?\/\>\<\,] [\~\!!\@\%\&\*\-\+\=\\\|\?\/\>\<\,]* ;
<assignment>:		\: \= | \_ ;
<alternateKeyword>:	\: <name> \: (<name> \:)* ;
<whitespace>:		\s+ ;
<comment>:			\"" [^\""]* \"" ;
<character>:			\$ . ;
<period>:				\. ;
<variableAssignment>:	<name> \: \= ;
<rightBoxBrackets>:	];
<rightCurlyBrackets>:	};
<rightParentheses>:	\);
<colon>:				\:;
<semicolon>:			\;;
<anyChar>:			. ; # For VW literal arrays that handle #(;) -> #(#';');"! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
assignmentId
	^29! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
binarySymbolId
	^28! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
characterId
	^33! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
colonId
	^39! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
emptySymbolTokenId
	^83! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
errorTokenId
	^84! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
keywordId
	^26! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
multikeywordId
	^27! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
nameId
	^25! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
negativeNumberId
	^23! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
numberId
	^22! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
periodId
	^34! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
rightBoxBracketsId
	^36! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
rightCurlyBracketsId
	^37! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
rightParenthesesId
	^38! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan1
	
	[ self step.
	currentCharacter ~= $' ] whileTrue.
	currentCharacter = $' ifTrue: [ ^ self scan2 ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan10
	self step.
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ 
		[ self recordMatch: #(23 ).
		self step.
		currentCharacter 
			between: $0
			and: $9 ] whileTrue.
		^ self reportLastMatch ].
	currentCharacter = $- ifTrue: [ ^ self scan11 ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan11
	self step.
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ 
		[ self recordMatch: #(23 ).
		self step.
		currentCharacter 
			between: $0
			and: $9 ] whileTrue.
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan2
	self recordMatch: #(24 ).
	self step.
	currentCharacter = $' ifTrue: [ ^ self scan1 ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan3
	self step.
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ 
		[ self recordMatch: #(22 ).
		self step.
		currentCharacter 
			between: $0
			and: $9 ] whileTrue.
		currentCharacter = $e ifTrue: [ ^ self scan4 ].
		currentCharacter = $s ifTrue: [ ^ self scan5 ].
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan4
	self step.
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ 
		[ self recordMatch: #(22 ).
		self step.
		currentCharacter 
			between: $0
			and: $9 ] whileTrue.
		^ self reportLastMatch ].
	currentCharacter = $- ifTrue: [ ^ self scan5 ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan5
	self step.
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ 
		[ self recordMatch: #(22 ).
		self step.
		currentCharacter 
			between: $0
			and: $9 ] whileTrue.
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan6
	self step.
	((currentCharacter 
		between: $0
		and: $9) or: 
		[ currentCharacter 
			between: $A
			and: $Z ]) ifTrue: 
		[ 
		[ self recordMatch: #(22 ).
		self step.
		(currentCharacter 
			between: $0
			and: $9) or: 
			[ currentCharacter 
				between: $A
				and: $Z ] ] whileTrue.
		currentCharacter = $. ifTrue: 
			[ self step.
			((currentCharacter 
				between: $0
				and: $9) or: 
				[ currentCharacter 
					between: $A
					and: $Z ]) ifTrue: 
				[ 
				[ self recordMatch: #(22 ).
				self step.
				(currentCharacter 
					between: $0
					and: $9) or: 
					[ currentCharacter 
						between: $A
						and: $Z ] ] whileTrue.
				currentCharacter = $e ifTrue: [ ^ self scan4 ].
				^ self reportLastMatch ].
			^ self reportLastMatch ].
		currentCharacter = $e ifTrue: [ ^ self scan4 ].
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan7
	
	[ self step.
	(currentCharacter 
		between: $0
		and: $9) or: 
		[ (currentCharacter 
			between: $A
			and: $Z) or: 
			[ currentCharacter 
				between: $a
				and: $z ] ] ] whileTrue.
	currentCharacter = $: ifTrue: 
		[ self recordMatch: #(30 ).
		self step.
		((currentCharacter 
			between: $A
			and: $Z) or: 
			[ currentCharacter 
				between: $a
				and: $z ]) ifTrue: [ ^ self scan7 ].
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan8
	self recordMatch: #(26 ).
	self step.
	((currentCharacter 
		between: $A
		and: $Z) or: 
		[ currentCharacter 
			between: $a
			and: $z ]) ifTrue: [ ^ self scan9 ].
	currentCharacter = $= ifTrue: [ ^ self recordAndReportMatch: #variableAssignment ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scan9
	
	[ self step.
	(currentCharacter 
		between: $0
		and: $9) or: 
		[ (currentCharacter 
			between: $A
			and: $Z) or: 
			[ currentCharacter 
				between: $a
				and: $z ] ] ] whileTrue.
	currentCharacter = $: ifTrue: 
		[ self recordMatch: #(27 ).
		self step.
		((currentCharacter 
			between: $A
			and: $Z) or: 
			[ currentCharacter 
				between: $a
				and: $z ]) ifTrue: [ ^ self scan9 ].
		^ self reportLastMatch ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-scanner' stamp: 'lr 2/28/2008 17:09'!
scanForToken
	self step.
	(currentCharacter <= Character backspace or: 
		[ (currentCharacter 
			between: (Character value: 14)
			and: (Character value: 31)) or: [ currentCharacter >= $ ] ]) ifTrue: [ ^ self recordAndReportMatch: #(41 ) ].
	((currentCharacter 
		between: $A
		and: $Z) or: 
		[ currentCharacter 
			between: $a
			and: $z ]) ifTrue: 
		[ self recordMatch: #(25 41 ).
		self step.
		((currentCharacter 
			between: $0
			and: $9) or: 
			[ (currentCharacter 
				between: $A
				and: $Z) or: 
				[ currentCharacter 
					between: $a
					and: $z ] ]) ifTrue: 
			[ 
			[ self recordMatch: #(25 ).
			self step.
			(currentCharacter 
				between: $0
				and: $9) or: 
				[ (currentCharacter 
					between: $A
					and: $Z) or: 
					[ currentCharacter 
						between: $a
						and: $z ] ] ] whileTrue.
			currentCharacter = $: ifTrue: [ ^ self scan8 ].
			^ self reportLastMatch ].
		currentCharacter = $: ifTrue: [ ^ self scan8 ].
		^ self reportLastMatch ].
	(currentCharacter = $!! or: 
		[ (currentCharacter 
			between: $%
			and: $&) or: 
			[ (currentCharacter 
				between: $+
				and: $,) or: 
				[ currentCharacter = $/ or: 
					[ currentCharacter = $= or: 
						[ (currentCharacter 
							between: $?
							and: $@) or: [ currentCharacter = $\ or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
		[ self recordMatch: #binarySymbol.
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	(currentCharacter 
		between: $0
		and: $9) ifTrue: 
		[ self recordMatch: #(22 41 ).
		self step.
		(currentCharacter 
			between: $0
			and: $9) ifTrue: 
			[ 
			[ self recordMatch: #(22 ).
			self step.
			currentCharacter 
				between: $0
				and: $9 ] whileTrue.
			currentCharacter = $. ifTrue: [ ^ self scan3 ].
			currentCharacter = $e ifTrue: [ ^ self scan4 ].
			currentCharacter = $r ifTrue: [ ^ self scan6 ].
			currentCharacter = $s ifTrue: [ ^ self scan5 ].
			^ self reportLastMatch ].
		currentCharacter = $. ifTrue: [ ^ self scan3 ].
		currentCharacter = $e ifTrue: [ ^ self scan4 ].
		currentCharacter = $r ifTrue: [ ^ self scan6 ].
		currentCharacter = $s ifTrue: [ ^ self scan5 ].
		^ self reportLastMatch ].
	((currentCharacter 
		between: Character tab
		and: Character cr) or: [ currentCharacter = Character space ]) ifTrue: 
		[ self recordMatch: #whitespace.
		self step.
		((currentCharacter 
			between: Character tab
			and: Character cr) or: [ currentCharacter = Character space ]) ifTrue: 
			[ 
			[ self recordMatch: #whitespace.
			self step.
			(currentCharacter 
				between: Character tab
				and: Character cr) or: [ currentCharacter = Character space ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $" ifTrue: 
		[ self recordMatch: #(41 ).
		self step.
		currentCharacter ~= $" ifTrue: 
			[ 
			[ self step.
			currentCharacter ~= $" ] whileTrue.
			currentCharacter = $" ifTrue: [ ^ self recordAndReportMatch: #comment ].
			^ self reportLastMatch ].
		currentCharacter = $" ifTrue: [ ^ self recordAndReportMatch: #comment ].
		^ self reportLastMatch ].
	currentCharacter = $# ifTrue: 
		[ self recordMatch: #(18 41 ).
		self step.
		currentCharacter = $: ifTrue: [ ^ self recordAndReportMatch: #(17 ) ].
		^ self reportLastMatch ].
	currentCharacter = $$ ifTrue: 
		[ self recordMatch: #(41 ).
		self step.
		currentCharacter <= $ÿ ifTrue: [ ^ self recordAndReportMatch: #(33 ) ].
		^ self reportLastMatch ].
	currentCharacter = $' ifTrue: 
		[ self recordMatch: #(41 ).
		self step.
		currentCharacter ~= $' ifTrue: [ ^ self scan1 ].
		currentCharacter = $' ifTrue: [ ^ self scan2 ].
		^ self reportLastMatch ].
	currentCharacter = $( ifTrue: [ ^ self recordAndReportMatch: #(6 41 ) ].
	currentCharacter = $) ifTrue: [ ^ self recordAndReportMatch: #(38 41 ) ].
	currentCharacter = $* ifTrue: 
		[ self recordMatch: #(16 28 41 ).
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $- ifTrue: 
		[ self recordMatch: #binarySymbol.
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		(currentCharacter 
			between: $0
			and: $9) ifTrue: 
			[ 
			[ self recordMatch: #(23 ).
			self step.
			currentCharacter 
				between: $0
				and: $9 ] whileTrue.
			currentCharacter = $. ifTrue: 
				[ self step.
				(currentCharacter 
					between: $0
					and: $9) ifTrue: 
					[ 
					[ self recordMatch: #(23 ).
					self step.
					currentCharacter 
						between: $0
						and: $9 ] whileTrue.
					currentCharacter = $e ifTrue: [ ^ self scan10 ].
					currentCharacter = $s ifTrue: [ ^ self scan11 ].
					^ self reportLastMatch ].
				^ self reportLastMatch ].
			currentCharacter = $e ifTrue: [ ^ self scan10 ].
			currentCharacter = $r ifTrue: 
				[ self step.
				((currentCharacter 
					between: $0
					and: $9) or: 
					[ currentCharacter 
						between: $A
						and: $Z ]) ifTrue: 
					[ 
					[ self recordMatch: #(23 ).
					self step.
					(currentCharacter 
						between: $0
						and: $9) or: 
						[ currentCharacter 
							between: $A
							and: $Z ] ] whileTrue.
					currentCharacter = $. ifTrue: 
						[ self step.
						((currentCharacter 
							between: $0
							and: $9) or: 
							[ currentCharacter 
								between: $A
								and: $Z ]) ifTrue: 
							[ 
							[ self recordMatch: #(23 ).
							self step.
							(currentCharacter 
								between: $0
								and: $9) or: 
								[ currentCharacter 
									between: $A
									and: $Z ] ] whileTrue.
							currentCharacter = $e ifTrue: [ ^ self scan10 ].
							^ self reportLastMatch ].
						^ self reportLastMatch ].
					currentCharacter = $e ifTrue: [ ^ self scan10 ].
					^ self reportLastMatch ].
				^ self reportLastMatch ].
			currentCharacter = $s ifTrue: [ ^ self scan11 ].
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $. ifTrue: [ ^ self recordAndReportMatch: #(34 41 ) ].
	currentCharacter = $: ifTrue: 
		[ self recordMatch: #(39 41 ).
		self step.
		((currentCharacter 
			between: $A
			and: $Z) or: 
			[ currentCharacter 
				between: $a
				and: $z ]) ifTrue: [ ^ self scan7 ].
		currentCharacter = $= ifTrue: [ ^ self recordAndReportMatch: #(29 ) ].
		^ self reportLastMatch ].
	currentCharacter = $; ifTrue: [ ^ self recordAndReportMatch: #(40 41 ) ].
	currentCharacter = $< ifTrue: 
		[ self recordMatch: #(7 28 41 ).
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $> ifTrue: 
		[ self recordMatch: #(8 28 41 ).
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $[ ifTrue: [ ^ self recordAndReportMatch: #(9 41 ) ].
	currentCharacter = $] ifTrue: [ ^ self recordAndReportMatch: #(36 41 ) ].
	currentCharacter = $^ ifTrue: [ ^ self recordAndReportMatch: #(4 41 ) ].
	currentCharacter = $_ ifTrue: [ ^ self recordAndReportMatch: #(29 41 ) ].
	currentCharacter = $` ifTrue: 
		[ self recordMatch: #(41 ).
		self step.
		currentCharacter = $( ifTrue: [ ^ self recordAndReportMatch: #(1 ) ].
		currentCharacter = $[ ifTrue: [ ^ self recordAndReportMatch: #(5 ) ].
		currentCharacter = $c ifTrue: 
			[ self step.
			currentCharacter = $( ifTrue: [ ^ self recordAndReportMatch: #(2 ) ].
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = ${ ifTrue: [ ^ self recordAndReportMatch: #(14 41 ) ].
	currentCharacter = $| ifTrue: 
		[ self recordMatch: #(10 28 41 ).
		self step.
		(currentCharacter = $!! or: 
			[ (currentCharacter 
				between: $%
				and: $&) or: 
				[ (currentCharacter 
					between: $*
					and: $-) or: 
					[ currentCharacter = $/ or: 
						[ (currentCharacter 
							between: $<
							and: $@) or: 
							[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ]) ifTrue: 
			[ 
			[ self recordMatch: #binarySymbol.
			self step.
			currentCharacter = $!! or: 
				[ (currentCharacter 
					between: $%
					and: $&) or: 
					[ (currentCharacter 
						between: $*
						and: $-) or: 
						[ currentCharacter = $/ or: 
							[ (currentCharacter 
								between: $<
								and: $@) or: 
								[ currentCharacter = $\ or: [ currentCharacter = $| or: [ currentCharacter = $~ ] ] ] ] ] ] ] ] whileTrue.
			^ self reportLastMatch ].
		^ self reportLastMatch ].
	currentCharacter = $} ifTrue: [ ^ self recordAndReportMatch: #(37 41 ) ].
	^ self reportLastMatch! !

!QQScanner methodsFor: 'generated-tokens' stamp: 'lr 2/28/2008 17:09'!
stringId
	^24! !

SqueakParser subclass: #QQParser
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'QuasiQuote-Core'!

!QQParser class methodsFor: 'generated-comments' stamp: 'lr 2/28/2008 17:09'!
parserDefinitionComment

	"%id <name> <number> <negativeNumber> <binarySymbol> <period> <colon> <rightParentheses> <rightCurlyBrackets> <rightBoxBrackets> <string> <keyword> <multikeyword> <assignment> <character>;
%start Sequence MethodPattern;

Method:
	MethodPattern Sequence						{#method:}
|	MethodPattern Pragmas Sequence			{#methodPragma:}
|	MethodPattern Pragmas Temporaries Pragmas Statements {#methodPragmaTempsPragma:}
|	MethodPattern Temporaries Pragmas Statements {#methodTempsPragma:};

MethodPattern:
	<name>										{#unaryMessage:}
|	<binarySymbol> Variable						{#messagePart:}
|	<binarySymbol> error						{#argumentNameMissing:}
|	KeywordMethodPattern						{#first:};

KeywordMethodPattern:
	<keyword> Variable							{#messagePart:}
|	<keyword> error								{#argumentNameMissing:}
|	KeywordMethodPattern <keyword> Variable	{#addMessagePart:}
|	KeywordMethodPattern <keyword> error		{#argumentNameMissing:};

Pragmas:
	""<"" PragmaMessage "">""							{#pragma:}
|	""<"" PragmaMessage error							{#pragmaEndMissing:}
|	""<"" error											{#pragmaMissing:}
|	Pragmas ""<"" PragmaMessage "">""					{#pragmas:}
|	Pragmas ""<"" PragmaMessage error				{#pragmaEndMissing:}
|	Pragmas ""<"" error								{#pragmaMissing:};

Sequence:
	Statements									{#sequence:}
|	Temporaries Statements						{#sequenceWithTemps:};

Temporaries:
	""||""											{#arrayAddToken:}
|	""|"" TemporaryVariables ""|""					{#secondAddToken:}
| 	""|"" TemporaryVariables error					{#verticalBarMissing:};

TemporaryVariables:
												{#array}
|	TemporaryVariables Variable				{#add:};

Statements:
												{#array}
|	StatementList <period>?						{#first:}
|	StatementList <period> ""^"" Expression <period>?	{#returnAdd:}
|	""^"" Expression <period>?						{#return:};

StatementList:
	Expression									{#firstIn:}
|	StatementList <period> Expression				{#add3:};

Block:
	""["" BlockArgs ""|"" Sequence <rightBoxBrackets>	{#blockWithArgs:}
|	""["" Sequence <rightBoxBrackets>				{#blockNoArgs:}
|	""["" BlockArgs <rightBoxBrackets>				{#blockArgs:}
|	""["" BlockArgs ""||"" TemporaryVariables ""|"" Statements <rightBoxBrackets> {#blockWithTemps:};

BlockArgs:
	<colon> Variable									{#secondIn:}
|	<colon>	error									{#argumentNameMissing:}
|	BlockArgs <colon> Variable						{#add3:}
|	BlockArgs <colon> error							{#argumentNameMissing:};

Expression:
	""`("" Expression <rightParentheses>				{#splice:}
|	""`c("" Expression <rightParentheses>			{#spliceCapture:}
|	""`["" Expression <rightBoxBrackets>				{#quasiQuote:}
|	Assignment									{#first:}
|	Cascade										{#first:}
|	Primary									{#first:};

Primary:
	""("" Expression <rightParentheses>				{#secondWithParenthesis:}
|	Array										{#first:}
|	Block										{#first:}
|	Literal										{#first:}
|	Variable									{#first:};

Assignment:
	Variable <assignment> Expression				{#assignment:}
|	Variable <assignment> error					{#expressionMissing:};

Cascade:
	MessageSend								{#first:}
|	Cascade <semicolon> Message					{#cascade:}
|	Cascade <semicolon> error 					{#cascadeMMissing:};

MessageSend:
	KeywordMessageSend						{#first:}
|	BinaryMessageSend							{#first:}
|	UnaryMessageSend							{#first:};

Message:
	UnaryMessage								{#first:}
|	BinaryMessage								{#first:}
|	KeywordMessage							{#first:};

KeywordMessageSend:
	BinaryMessageSend KeywordMessage			{#messageSend:}
|	UnaryMessageSend KeywordMessage			{#messageSend:}
|	Primary KeywordMessage					{#messageSend:};

KeywordMessage:
	<keyword> KeywordArgument				{#messagePart:}
|	<keyword> error 							{#argumentMissing:}
|	KeywordMessage <keyword> KeywordArgument {#addMessagePart:}
|	KeywordMessage <keyword> error 			{#argumentMissing:};

KeywordArgument:
	BinaryMessageSend							{#first:}
|	UnaryMessageSend							{#first:}
|	Primary									{#first:};

BinaryMessageSend:
	BinaryMessageSend BinaryMessage			{#messageSend:}
|	UnaryMessageSend BinaryMessage			{#messageSend:}
|	Primary BinaryMessage						{#messageSend:};

BinaryMessage :
	<binarySymbol> BinaryArgument				{#messagePart:}
|	<binarySymbol> error 						{#argumentMissing:};
 
BinaryArgument:
	UnaryMessageSend							{#first:}
|	Primary									{#first:};

UnaryMessageSend :
	UnaryMessageSend UnaryMessage			{#messageSend:}
|	Primary UnaryMessage						{#messageSend:};

UnaryMessage :
	<name>										{#unaryMessage:};

Array:
	""{"" Statements <rightCurlyBrackets>			{#array:};

Variable:
	<name>										{#variable:};

Literal:
	""true""										{#litTrue:}
|	""false""										{#litFalse:}
|	""nil""										{#litNil:}
|	<number>									{#litNumber:}
|	<negativeNumber>							{#litNumber:} 
|	<character>									{#litChar:}
|	<string>										{#litString:}
|	""#"" <string>									{#litStringSymbol:}
|	""#"" <name>									{#litSymbol:}
|	""#"" <binarySymbol>							{#litSymbol:}
|	""#"" <keyword>								{#litSymbol:}
|	""#"" <multikeyword>							{#litSymbol:}
|	""#"" <alternateKeyword>						{#litSymbol:}
|	""#"" ""["" ByteArray <rightBoxBrackets>			{#litArray:}
|	""#"" ""("" LiteralArray <rightParentheses>		{#litArray:}
|	""#:""											{#litString:};

ByteArray:
												{#byteStream}
|	ByteArray <number>							{#byteStreamPut:};

LiteralArray:
												{#stream}
|	LiteralArray ArrayLiteral					{#streamPut:};

ArrayLiteral:
	Literal										{#value:}
|	<name>										{#valueSymbol:}
|	<binarySymbol>								{#valueSymbol:}
|	<keyword>									{#valueSymbol:}
|	<multikeyword>								{#valueSymbol:}
|	<alternateKeyword>							{#valueSymbol:}
|	""("" LiteralArray <rightParentheses>			{#contents2:}
|	""["" ByteArray <rightBoxBrackets>				{#contents2:}
|	<anyChar>									{#valueSymbol:};

PragmaMessage:
	Apicall										{#messagePragma:}
| 	Primitive 									{#messagePragma:} 
|	MessagePragma 								{#messagePragma:};

MessagePragma:
	KeyWordMessagePragma						{#pragmaMessage:}
|	BinaryMessagePragma						{#pragmaMessage:}
|	UnaryMessage 								{#pragmaUnaryMessage:};
									
BinaryMessagePragma:
	<binarySymbol> PrimaryPragma				{#messagePart:}
|	<binarySymbol> error 						{#argumentMissing:};
										
KeyWordMessagePragma:
	<keyword> PrimaryPragma					{#messagePart:}
|	<keyword> error 							{#literalMissing:}
|	KeywordMessage <keyword> PrimaryPragma	{#addMessagePart:}
|	KeywordMessage <keyword> error 			{#literalMissing:};

PrimaryPragma:
	Array										{#first:}
|	Block										{#first:}
|	Literal										{#first:}
|	Variable									{#first:};

Apicall:
	TypeCall ExternalType IndexName ""("" ParameterApicall <rightParentheses>	{#externalCall:}
|	TypeCall ExternalType IndexName ""("" ParameterApicall <rightParentheses> ""module:"" <string>	{#externalModuleCall:};

IndexName:
	<string>										{#externalFunction:}
|	<number>									{#externalIndex:};

TypeCall:
	""apicall:""									{#callConvention:}
|	""cdecl:""										{#callConvention:};

ParameterApicall:
	ExternalType 								{#parameterExtCall:}
|	ParameterApicall ExternalType 				{#parametersExtCall:};

ExternalType:
	<name>										{#externalType:}	
|	<name> ""*""									{#externalTypePointer:};

Primitive:
	""primitive:"" <string>							{#primitiveString:}
|	""primitive:"" <number>						{#primitiveNumber:}
|	""primitive:"" error 							{#primitiveArgMissing:}
|	""primitive:"" <string> ""module:"" <string>		{#primitiveModule:}
|	""primitive:"" <string> ""module:"" error 			{#moduleArgMissing:};"! !

!QQParser class methodsFor: 'generated-accessing' stamp: 'lr 2/28/2008 17:09'!
scannerClass
	^QQScanner! !

!QQParser class methodsFor: 'generated-starting states' stamp: 'lr 2/28/2008 17:09'!
startingStateForMethod
	^1! !

!QQParser class methodsFor: 'generated-starting states' stamp: 'lr 2/28/2008 17:09'!
startingStateForMethodPattern
	^3! !

!QQParser class methodsFor: 'generated-starting states' stamp: 'lr 2/28/2008 17:09'!
startingStateForSequence
	^2! !

!QQParser methodsFor: 'parsing' stamp: 'lr 2/28/2008 17:01'!
quasiQuote: nodes
	"A quasi quoted node returns the parse-tree of the expression inside."
	
	^ QQQuasiQuoteNode value: nodes second! !

!QQParser methodsFor: 'generated-reduction actions' stamp: 'lr 2/28/2008 17:09'!
reduceActionForOptionalXXXperiodX1: nodes 
	^ nil! !

!QQParser methodsFor: 'generated-reduction actions' stamp: 'lr 2/28/2008 17:09'!
reduceActionForOptionalXXXperiodX2: nodes 
	^ nodes at: 1! !

!QQParser methodsFor: 'generated-tables' stamp: 'lr 2/28/2008 17:09'!
reduceTable
	^#(
#(42 1 #reduceFor:)
#(43 1 #variable:)
#(44 2 #method:)
#(44 3 #methodPragma:)
#(44 5 #methodPragmaTempsPragma:)
#(44 4 #methodTempsPragma:)
#(45 1 #messagePragma:)
#(45 1 #messagePragma:)
#(45 1 #messagePragma:)
#(46 0 #array)
#(46 2 #add:)
#(47 1 #firstIn:)
#(47 3 #add3:)
#(48 0 #reduceActionForOptionalXXXperiodX1:)
#(48 1 #reduceActionForOptionalXXXperiodX2:)
#(49 3 #splice:)
#(49 3 #spliceCapture:)
#(49 3 #quasiQuote:)
#(49 1 #first:)
#(49 1 #first:)
#(49 1 #first:)
#(50 2 #secondIn:)
#(50 2 #argumentNameMissing:)
#(50 3 #add3:)
#(50 3 #argumentNameMissing:)
#(51 5 #blockWithArgs:)
#(51 3 #blockNoArgs:)
#(51 3 #blockArgs:)
#(51 7 #blockWithTemps:)
#(52 3 #assignment:)
#(52 3 #expressionMissing:)
#(53 1 #first:)
#(53 3 #cascade:)
#(53 3 #cascadeMMissing:)
#(54 0 #array)
#(54 2 #first:)
#(54 5 #returnAdd:)
#(54 3 #return:)
#(55 3 #array:)
#(56 1 #litTrue:)
#(56 1 #litFalse:)
#(56 1 #litNil:)
#(56 1 #litNumber:)
#(56 1 #litNumber:)
#(56 1 #litChar:)
#(56 1 #litString:)
#(56 2 #litStringSymbol:)
#(56 2 #litSymbol:)
#(56 2 #litSymbol:)
#(56 2 #litSymbol:)
#(56 2 #litSymbol:)
#(56 2 #litSymbol:)
#(56 4 #litArray:)
#(56 4 #litArray:)
#(56 1 #litString:)
#(57 1 #first:)
#(57 1 #first:)
#(57 1 #first:)
#(58 1 #arrayAddToken:)
#(58 3 #secondAddToken:)
#(58 3 #verticalBarMissing:)
#(59 1 #sequence:)
#(59 2 #sequenceWithTemps:)
#(60 2 #messageSend:)
#(60 2 #messageSend:)
#(60 2 #messageSend:)
#(61 2 #messageSend:)
#(61 2 #messageSend:)
#(61 2 #messageSend:)
#(62 2 #messageSend:)
#(62 2 #messageSend:)
#(63 1 #unaryMessage:)
#(64 2 #messagePart:)
#(64 2 #argumentMissing:)
#(65 2 #messagePart:)
#(65 2 #argumentMissing:)
#(65 3 #addMessagePart:)
#(65 3 #argumentMissing:)
#(66 1 #first:)
#(66 1 #first:)
#(66 1 #first:)
#(67 1 #first:)
#(67 1 #first:)
#(68 3 #pragma:)
#(68 3 #pragmaEndMissing:)
#(68 2 #pragmaMissing:)
#(68 4 #pragmas:)
#(68 4 #pragmaEndMissing:)
#(68 3 #pragmaMissing:)
#(69 0 #byteStream)
#(69 2 #byteStreamPut:)
#(70 0 #stream)
#(70 2 #streamPut:)
#(71 1 #value:)
#(71 1 #valueSymbol:)
#(71 1 #valueSymbol:)
#(71 1 #valueSymbol:)
#(71 1 #valueSymbol:)
#(71 1 #valueSymbol:)
#(71 3 #contents2:)
#(71 3 #contents2:)
#(71 1 #valueSymbol:)
#(72 3 #secondWithParenthesis:)
#(72 1 #first:)
#(72 1 #first:)
#(72 1 #first:)
#(72 1 #first:)
#(73 6 #externalCall:)
#(73 8 #externalModuleCall:)
#(74 2 #primitiveString:)
#(74 2 #primitiveNumber:)
#(74 2 #primitiveArgMissing:)
#(74 4 #primitiveModule:)
#(74 4 #moduleArgMissing:)
#(75 1 #pragmaMessage:)
#(75 1 #pragmaMessage:)
#(75 1 #pragmaUnaryMessage:)
#(76 2 #messagePart:)
#(76 2 #literalMissing:)
#(76 3 #addMessagePart:)
#(76 3 #literalMissing:)
#(77 2 #messagePart:)
#(77 2 #argumentMissing:)
#(78 1 #first:)
#(78 1 #first:)
#(78 1 #first:)
#(78 1 #first:)
#(79 1 #callConvention:)
#(79 1 #callConvention:)
#(80 1 #externalType:)
#(80 2 #externalTypePointer:)
#(81 1 #externalFunction:)
#(81 1 #externalIndex:)
#(82 1 #parameterExtCall:)
#(82 2 #parametersExtCall:)
#(85 1 #unaryMessage:)
#(85 2 #messagePart:)
#(85 2 #argumentNameMissing:)
#(85 1 #first:)
#(86 1 #first:)
#(86 1 #first:)
#(86 1 #first:)
#(87 2 #messagePart:)
#(87 2 #argumentNameMissing:)
#(87 3 #addMessagePart:)
#(87 3 #argumentNameMissing:)
)! !

!QQParser methodsFor: 'parsing' stamp: 'lr 2/28/2008 17:09'!
splice: nodes
	"A splice is evaluated at compile-time replacing the splice annotation itself with the AST resulting from its evaluation."

	^ self class compilerClass evaluate: nodes second formattedCode! !

!QQParser methodsFor: 'parsing' stamp: 'lr 2/28/2008 17:09'!
spliceCapture: nodes
	"A splice is evaluated at compile-time replacing the splice annotation itself with the AST resulting from its evaluation."

	^ self splice: nodes! !

!QQParser methodsFor: 'generated-tables' stamp: 'lr 2/28/2008 17:09'!
transitionTable
	^#(
#(3 17 25 21 26 25 28 29 44 33 85 37 87)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 65 10 69 11 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 141 54 145 55 149 56 153 57 157 58 161 59 165 60 169 61 173 62 177 72 142 83)
#(3 17 25 21 26 25 28 181 85 37 87)
#(2 546 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(3 109 25 185 43 189 84)
#(3 109 25 193 43 197 84)
#(2 0 83)
#(3 41 1 45 2 49 4 53 5 57 6 201 7 61 9 65 10 69 11 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 141 54 145 55 149 56 153 57 205 58 209 59 165 60 169 61 173 62 213 68 177 72 142 83)
#(3 558 1 558 2 558 4 558 5 558 6 558 7 558 9 558 10 558 11 558 14 558 17 558 18 558 19 558 20 558 21 558 22 558 23 558 24 558 25 217 26 558 33 558 83)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 221 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 225 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 229 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 233 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 237 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 65 10 69 11 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 142 36 241 39 117 43 121 47 125 49 245 50 129 51 133 52 137 53 141 54 145 55 149 56 153 57 157 58 249 59 165 60 169 61 173 62 177 72)
#(3 42 10 42 25 253 46 42 84)
#(2 238 1 2 4 5 6 7 9 14 17 18 19 20 21 22 23 24 25 33 36 83)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 142 37 117 43 121 47 125 49 129 51 133 52 137 53 257 54 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(2 222 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(3 261 6 265 9 269 24 273 25 277 26 281 27 285 28 289 30)
#(2 162 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 166 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 170 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 174 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 178 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 186 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 10 1 2 4 5 6 7 8 9 10 11 14 17 18 19 20 21 22 23 24 25 26 28 29 33 34 36 37 38 39 40 83 84)
#(2 182 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(3 430 25 430 26 430 28 293 29 430 34 430 36 430 37 430 38 430 83)
#(3 297 34 58 36 58 37 301 48 58 83)
#(2 50 34 36 37 83)
#(2 422 25 26 28 34 36 37 38 40 83)
#(2 78 34 36 37 38 83)
#(3 82 34 82 36 82 37 82 38 305 40 82 83)
#(2 250 36 83)
#(2 418 25 26 28 34 36 37 38 40 83)
#(2 426 25 26 28 34 36 37 38 40 83)
#(2 130 34 36 37 38 40 83)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 142 36 117 43 121 47 125 49 129 51 133 52 137 53 309 54 145 55 149 56 153 57 165 60 169 61 173 62 177 72 142 83)
#(2 0 83)
#(2 226 34 36 37 38 40 83)
#(3 313 26 317 28 230 34 230 36 230 37 230 38 230 40 321 64 325 65 230 83)
#(3 329 25 313 26 317 28 234 34 234 36 234 37 234 38 234 40 333 63 337 64 341 65 234 83)
#(3 329 25 313 26 317 28 86 34 86 36 86 37 86 38 345 63 349 64 353 65 86 83)
#(2 0 83)
#(2 574 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 26 33 83)
#(2 578 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 26 33 83)
#(2 550 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(2 554 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(3 357 3 361 12 365 13 329 25 369 26 373 28 377 45 381 63 385 65 389 73 393 74 397 75 401 76 405 77 409 79 413 84)
#(3 41 1 45 2 49 4 53 5 57 6 201 7 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 309 54 145 55 149 56 153 57 165 60 169 61 173 62 417 68 177 72 142 83)
#(2 14 83)
#(3 41 1 45 2 49 4 53 5 57 6 421 7 61 9 65 10 69 11 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 141 54 145 55 149 56 153 57 425 58 429 59 165 60 169 61 173 62 177 72 142 83)
#(3 109 25 433 43 437 84)
#(2 441 38)
#(2 445 38)
#(3 449 34 58 36 58 37 453 48 58 83)
#(2 457 36)
#(2 461 38)
#(3 109 25 465 43 469 84)
#(3 473 10 477 11 481 36 485 39)
#(2 489 36)
#(3 493 10 109 25 497 43 501 84)
#(2 505 37)
#(3 370 6 370 9 370 17 370 18 370 19 370 20 370 21 370 22 370 23 370 24 370 25 370 26 370 27 370 28 370 30 370 33 370 38 370 41 509 70)
#(3 362 22 362 36 513 69)
#(2 190 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 194 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 202 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 206 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 198 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 210 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 517 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72 521 84)
#(3 41 1 45 2 525 4 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 62 36 62 37 117 43 529 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72 62 83)
#(2 146 36 37 83)
#(3 329 25 313 26 317 28 533 63 537 64 541 65 545 84 549 86)
#(2 254 36 83)
#(3 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 553 43 129 51 145 55 149 56 557 61 561 62 565 66 569 72 573 84)
#(3 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 553 43 129 51 145 55 149 56 577 62 581 67 585 72 589 84)
#(2 270 26 28 34 36 37 38 40 83)
#(3 593 26 258 34 258 36 258 37 258 38 258 40 258 83)
#(2 290 8 25 26 28 34 36 37 38 40 83 84)
#(2 282 25 26 28 34 36 37 38 40 83)
#(2 274 26 28 34 36 37 38 40 83)
#(3 593 26 262 34 262 36 262 37 262 38 262 40 262 83)
#(2 286 25 26 28 34 36 37 38 40 83)
#(2 278 26 28 34 36 37 38 40 83)
#(3 593 26 266 34 266 36 266 37 266 38 266 40 266 83)
#(3 597 22 601 24 605 84)
#(2 514 25)
#(2 518 25)
#(3 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 609 43 613 51 617 55 621 56 557 61 561 62 565 66 569 72 625 78 629 84)
#(3 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 633 43 637 51 641 55 645 56 649 78 653 84)
#(3 657 8 661 84)
#(2 470 8 84)
#(2 665 26)
#(2 30 8 84)
#(2 34 8 84)
#(2 38 8 84)
#(2 462 8 84)
#(2 466 8 84)
#(3 669 25 673 80)
#(2 346 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(3 41 1 45 2 49 4 53 5 57 6 421 7 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 677 54 145 55 149 56 153 57 165 60 169 61 173 62 177 72 142 83)
#(3 357 3 361 12 365 13 329 25 369 26 373 28 681 45 381 63 385 65 389 73 393 74 397 75 401 76 405 77 409 79 685 84)
#(3 41 1 45 2 49 4 53 5 57 6 201 7 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 309 54 145 55 149 56 153 57 165 60 169 61 173 62 689 68 177 72 142 83)
#(2 18 83)
#(2 582 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 26 33 83)
#(2 586 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 26 33 83)
#(2 66 34 36 37 38 83)
#(2 70 34 36 37 38 83)
#(2 62 36 37 83)
#(2 154 36 37 83)
#(2 74 34 36 37 38 83)
#(2 414 25 26 28 34 36 37 38 40 83)
#(2 90 10 11 36 39)
#(2 94 10 11 36 39)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 65 10 69 11 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 142 36 117 43 121 47 125 49 129 51 133 52 137 53 141 54 145 55 149 56 153 57 157 58 693 59 165 60 169 61 173 62 177 72)
#(3 42 10 42 25 697 46)
#(2 114 8 25 26 28 34 36 37 38 40 83 84)
#(3 109 25 701 43 705 84)
#(2 110 8 25 26 28 34 36 37 38 40 83 84)
#(2 242 1 2 4 5 6 7 9 14 17 18 19 20 21 22 23 24 25 33 36 83)
#(2 46 10 25 84)
#(2 246 1 2 4 5 6 7 9 14 17 18 19 20 21 22 23 24 25 33 36 83)
#(2 158 8 25 26 28 34 36 37 38 40 83 84)
#(3 709 6 713 9 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 717 25 721 26 725 27 729 28 733 30 113 33 737 38 741 41 745 56 749 71)
#(3 753 22 757 36)
#(2 122 34 36 37 38 83)
#(2 126 34 36 37 38 83)
#(3 41 1 45 2 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 761 49 129 51 133 52 137 53 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(2 54 34 36 37 83)
#(2 562 34 36 37 38 40 83)
#(2 566 34 36 37 38 40 83)
#(3 593 26 570 34 570 36 570 37 570 38 570 40 570 83)
#(2 138 34 36 37 38 40 83)
#(2 134 34 36 37 38 40 83)
#(2 430 25 26 28 34 36 37 38 40 83)
#(3 318 26 317 28 318 34 318 36 318 37 318 38 318 40 321 64 318 83)
#(3 329 25 322 26 317 28 322 34 322 36 322 37 322 38 322 40 333 63 337 64 322 83)
#(2 302 26 34 36 37 38 40 83)
#(3 329 25 326 26 317 28 326 34 326 36 326 37 326 38 326 40 345 63 349 64 326 83)
#(2 306 26 34 36 37 38 40 83)
#(3 329 25 330 26 330 28 330 34 330 36 330 37 330 38 330 40 333 63 330 83)
#(2 294 26 28 34 36 37 38 40 83)
#(3 329 25 334 26 334 28 334 34 334 36 334 37 334 38 334 40 345 63 334 83)
#(2 298 26 28 34 36 37 38 40 83)
#(3 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 553 43 129 51 145 55 149 56 557 61 561 62 765 66 569 72 769 84)
#(2 446 8 84)
#(3 442 8 773 15 442 84)
#(2 450 8 84)
#(3 510 8 430 25 430 26 430 28 510 84)
#(3 502 8 422 25 422 26 422 28 502 84)
#(3 498 8 418 25 418 26 418 28 498 84)
#(3 506 8 426 25 426 26 426 28 506 84)
#(2 474 8 84)
#(3 478 8 306 26 478 84)
#(2 510 8 84)
#(2 502 8 84)
#(2 498 8 84)
#(2 506 8 84)
#(2 490 8 84)
#(2 494 8 84)
#(2 338 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(2 342 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(3 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 609 43 613 51 617 55 621 56 557 61 561 62 765 66 569 72 777 78 781 84)
#(3 785 16 522 22 522 24 522 25 522 38)
#(3 789 22 793 24 797 81)
#(2 26 83)
#(3 801 8 805 84)
#(2 358 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(3 41 1 45 2 49 4 53 5 57 6 421 7 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 117 43 121 47 125 49 129 51 133 52 137 53 809 54 145 55 149 56 153 57 165 60 169 61 173 62 177 72 142 83)
#(2 813 36)
#(3 817 10 109 25 497 43)
#(2 98 10 11 36 39)
#(2 102 10 11 36 39)
#(3 370 6 370 9 370 17 370 18 370 19 370 20 370 21 370 22 370 23 370 24 370 25 370 26 370 27 370 28 370 30 370 33 370 38 370 41 821 70)
#(3 362 22 362 36 825 69)
#(2 382 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 390 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 394 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 386 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 398 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 218 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(2 410 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 378 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 374 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 366 22 36)
#(2 214 6 8 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 34 36 37 38 40 41 83 84)
#(3 449 34 58 36 58 37 829 48 58 83)
#(2 310 26 34 36 37 38 40 83)
#(2 314 26 34 36 37 38 40 83)
#(3 833 24 837 84)
#(2 482 8 84)
#(3 486 8 314 26 486 84)
#(2 526 22 24 25 38)
#(2 534 6)
#(2 530 6)
#(2 841 6)
#(2 350 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(2 354 1 2 4 5 6 7 9 10 11 14 17 18 19 20 21 22 23 24 25 33 83)
#(2 22 83)
#(2 106 8 25 26 28 34 36 37 38 40 83 84)
#(3 41 1 45 2 49 4 53 5 57 6 61 9 73 14 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 109 25 113 33 142 36 117 43 121 47 125 49 129 51 133 52 137 53 845 54 145 55 149 56 153 57 165 60 169 61 173 62 177 72)
#(3 709 6 713 9 77 17 81 18 85 19 89 20 93 21 97 22 101 23 105 24 717 25 721 26 725 27 729 28 733 30 113 33 849 38 741 41 745 56 749 71)
#(3 753 22 853 36)
#(2 150 36 37 83)
#(2 454 8 84)
#(2 458 8 84)
#(3 669 25 857 80 861 82)
#(2 865 36)
#(2 402 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 406 6 9 17 18 19 20 21 22 23 24 25 26 27 28 30 33 38 41)
#(2 538 25 38)
#(3 669 25 869 38 873 80)
#(2 118 8 25 26 28 34 36 37 38 40 83 84)
#(3 434 8 877 15 434 84)
#(2 542 25 38)
#(2 881 24)
#(2 438 8 84)
)! !

TestCase subclass: #QQExample
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'QuasiQuote-Tests'!

!QQExample class methodsFor: 'raised' stamp: 'lr 2/28/2008 16:32'!
raised: n to: x
	^ n isZero
		ifTrue: [ `( 1 ) ]
		ifFalse: [ `( x * (QQExample raised: n - 1 to: x)) ]! !

TestCase subclass: #QQTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'QuasiQuote-Tests'!

!QQTest class methodsFor: 'as yet unclassified' stamp: 'lr 2/28/2008 15:06'!
exampleQuasiQuote
	"self exampleQuasiQuote"

	^ `(10 factorial)! !

!QQTest class methodsFor: 'as yet unclassified' stamp: 'lr 2/28/2008 15:06'!
exampleQuote
	"self exampleQuote"

	^ `(10 factorial)! !

!QQTest methodsFor: 'testing' stamp: 'lr 2/28/2008 17:03'!
testQuasiQuote
	| tree |
	tree := QQParser parseExpression: '`[1+2]'.
	self assert: (tree children first isKindOf: RBLiteralNode).
	self assert: (tree children first value isKindOf: RBMessageNode)! !

!QQTest methodsFor: 'testing' stamp: 'lr 2/28/2008 17:10'!
testSplice
	| tree |
	tree := QQParser parseExpression: '`(RBLiteralNode value: 0)'.
	self assert: (tree children first isKindOf: RBLiteralNode).
	self assert: (tree children first value = 0)! !

!QQTest methodsFor: 'testing' stamp: 'lr 2/28/2008 17:11'!
testSpliceCapture
	| tree |
	tree := QQParser parseExpression: '`c(RBLiteralNode value: 0)'.
	self assert: (tree children first isKindOf: RBLiteralNode).
	self assert: (tree children first value = 0)! !