'From Cuis 2.0 of 24 February 2010 [latest update: #440] on 18 March 2010 at 11:19 pm'!
!classDefinition: #Compiler category: #'Compiler-Kernel'!
Object subclass: #Compiler
	instanceVariableNames: 'sourceStream requestor class category context parser sourceStreamGetter '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Compiler-Kernel'!
!classDefinition: #Parser category: #'Compiler-Kernel'!
Scanner subclass: #Parser
	instanceVariableNames: 'here hereType hereMark hereEnd prevMark prevEnd encoder requestor parseNode failBlock requestorOffset tempsMark doitFlag properties category sourceStreamGetter '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Compiler-Kernel'!

!Compiler methodsFor: 'public access' stamp: 'jmv 3/18/2010 22:38'!
sourceStreamGetter: aSymbol
	sourceStreamGetter _ aSymbol! !


!Parser methodsFor: 'public access' stamp: 'jmv 3/18/2010 22:39'!
sourceStreamGetter: aSymbol
	sourceStreamGetter _ aSymbol! !


!TextEditor methodsFor: 'current selection' stamp: 'cao 3/16/2010 20:47'!
setViewSelection
	(morph respondsTo: #editView) 
		ifTrue: [morph editView selectionInterval: self selectionInterval]
! !

!classDefinition: #Parser category: #'Compiler-Kernel'!
Scanner subclass: #Parser
	instanceVariableNames: 'here hereType hereMark hereEnd prevMark prevEnd encoder requestor parseNode failBlock requestorOffset tempsMark doitFlag properties category sourceStreamGetter'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Compiler-Kernel'!
!classDefinition: #Compiler category: #'Compiler-Kernel'!
Object subclass: #Compiler
	instanceVariableNames: 'sourceStream requestor class category context parser sourceStreamGetter'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Compiler-Kernel'!
