hg/jv-tea: compiler/TParser.st@0c806a7f1888 (annotated)

1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:tea/compiler' }"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	RBParser subclass:#TParser
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	6	instanceVariableNames:'parsingInlineAssembly'
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
2 2a3e47c13905 Removed classes meant for hosting Tea within Smalltalk/X. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	9	category:'Languages-Tea-Compiler-AST'
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!TParser class methodsFor:'parsing'!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	parseMethod: aString
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	^ self parseMethod: aString onError: [:msg :pos \| self error: msg , ' at ', pos printString ]
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	"Created: / 20-08-2015 / 17:04:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	! !
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	20	!TParser methodsFor:'accessing'!
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	21
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	22	initializeParserWith: aString type: aSymbol
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	23	\|stream\|
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	24
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	25	stream := ReadStream on: aString.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	26	source := aString.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	27	self scanner: (TScanner
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	28	perform: aSymbol
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	29	with: stream
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	30	with: self errorBlock)
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	31
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	32	"Created: / 02-09-2015 / 05:57:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	33	! !
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	34
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	35	!TParser methodsFor:'initialization & release'!
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	36
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	37	scanner: aScanner
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	38	parsingInlineAssembly := false.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	39	super scanner: aScanner.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	40
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	41	"Created: / 02-09-2015 / 06:34:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	42	! !
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	43
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	!TParser methodsFor:'private-parsing'!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	parseArgOrLocal
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	"Parse either method/block argument or a local (inside \| \| )"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	\| variable \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	variable := self parseVariableNode.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	variable typeSpec: (self parseTypeSpec: false).
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	^ variable
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	"Created: / 20-08-2015 / 16:57:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	"Modified: / 21-08-2015 / 21:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	parseBinaryPattern
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	\| method \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	method := super parseBinaryPattern.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	method returnTypeSpec: (self parseTypeSpec: true).
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	^ method
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	"Created: / 21-08-2015 / 22:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	69	parseInlineAssembly
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	70	\| position blockNode firstLine prevScope\|
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	71
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	72	position := currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	73	firstLine := currentToken lineNumber.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	74	parsingInlineAssembly := true.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	75	self step. "/ To eat %[ token
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	76	blockNode := self parseBlockArgsInto: TInlineAssemblyNode new.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	77	"/ node arguments do:[:eachArg \| eachArg parent:self].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	78	blockNode left: position.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	79	blockNode firstLineNumber:firstLine.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	80	prevScope := currentScope.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	81	currentScope := blockNode.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	82	self rememberLastNode:blockNode.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	83	blockNode body: (self parseStatements: false).
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	84	RBParser isSmalltalkX ifTrue:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	85	self addComments:(scanner getCommentsBeforeToken) afterNode:blockNode body.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	86	].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	87	"/ ensure that right is set, even if parse aborted due to an error
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	88	blockNode right: currentToken start-1.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	89
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	90	(currentToken isTInlineAssemblyEnd )
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	91	ifFalse: [self parserError: '''$]'' expected'].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	92	"/ fix right
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	93	blockNode right: currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	94	blockNode lastLineNumber:currentToken lineNumber.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	95	parsingInlineAssembly := false.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	96
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	97	self step.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	98	self addComments:(scanner getCommentsBeforeToken) afterNode:blockNode.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	99	currentScope := prevScope.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	100	^ blockNode
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	101
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	102	"Created: / 02-09-2015 / 06:25:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	103	!
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	104
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	parseKeywordPattern
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	\| method \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	method := super parseKeywordPattern.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	method returnTypeSpec: (self parseTypeSpec: true).
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	^ method
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	"Created: / 20-08-2015 / 17:33:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	"Modified: / 21-08-2015 / 22:50:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	116	parseStatementList: tagBoolean into: sequenceNode
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	117	\| statements return periods returnPosition returnLineNumber node valueNode\|
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	118	return := false.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	119	statements := OrderedCollection new.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	120	periods := OrderedCollection new.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	121	self addComments:(scanner getCommentsBeforeToken) beforeNode:sequenceNode.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	122	tagBoolean ifTrue: [self parseResourceTag].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	123
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	124	[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	125	"skip empty statements"
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	126	emptyStatements ifTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	127	[[currentToken isSpecial and: [currentToken value == $.]] whileTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	128	[periods add: currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	129	self step]].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	130
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	131	self atEnd
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	132	or: [(currentToken isSpecial and: ['])}' includes: currentToken value ])
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	133	or: [(currentToken isTInlineAssemblyEnd)]]
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	134	] whileFalse:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	135	self addComments:(scanner getCommentsBeforeToken) beforeNode:node "value".
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	136
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	137	return ifTrue: [
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	138	self class isSmalltalkX
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	139	ifTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	140	["could output a warning"]
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	141	ifFalse:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	142	[self
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	143	parserError: 'End of statement list encounted (statements after return)'
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	144	lastNode:node]].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	145	(currentToken isTInlineAssemblyBegin) ifTrue:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	146	node := self parseInlineAssembly.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	147	statements add: node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	148	] ifFalse:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	149	(currentToken isSTXPrimitiveCode)
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	150	ifTrue:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	151	" primPosition := currentToken start. "
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	152	node := RBSTXPrimitiveCCodeNode new codeToken: currentToken.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	153	self addComments:(scanner getCommentsBeforeToken) afterNode:node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	154	statements add: node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	155	self step.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	156	] ifFalse:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	157	(currentToken isSpecial and: [currentToken value == $^])
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	158	ifTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	159	[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	160	returnPosition := currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	161	returnLineNumber := currentToken lineNumber.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	162	self step.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	163
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	164	valueNode := self parseAssignment.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	165	node := RBReturnNode return: returnPosition value: valueNode.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	166	node lineNumber:returnLineNumber.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	167	scanner atEnd ifFalse:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	168	self addComments:(scanner getCommentsBeforeToken) afterNode:node value.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	169	].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	170
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	171	statements add: node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	172	return := true]
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	173	ifFalse:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	174	[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	175	node := self parseAssignment.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	176	node notNil ifTrue:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	177	self addComments:(scanner getCommentsAfterTokenIfInLine:node lastLineNumber) afterNode:node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	178	scanner atEnd ifFalse:[
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	179	self addComments:(scanner getCommentsAfterToken) afterNode:node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	180	self addComments:(scanner getCommentsBeforeToken) afterNode:node.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	181	].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	182
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	183	statements add: node
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	184	]].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	185	].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	186	].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	187
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	188	(currentToken isSpecial and: [currentToken value == $.])
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	189	ifTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	190	[periods add: currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	191	self step]
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	192	ifFalse:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	193	[return := true].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	194	emptyStatements
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	195	ifTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	196	[[currentToken isSpecial and: [currentToken value == $.]] whileTrue:
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	197	[periods add: currentToken start.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	198	self step]]].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	199
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	200	sequenceNode
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	201	statements: statements;
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	202	periods: periods.
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	203
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	204	self addComments:(scanner getCommentsBeforeToken) afterNode:node "value".
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	205	^sequenceNode
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	206
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	207	"Created: / 02-09-2015 / 06:23:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	208	!
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	209
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	parseType
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	type ::= type_simple ( '\|' type )*
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	\| types \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	types := OrderedCollection with: self parseTypeSimple.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	[ currentToken isBinary and:[ currentToken value == #\| ] ] whileTrue:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	self step. "/ eat bar.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	types add: self parseTypeSimple.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	^ types size == 1 ifTrue:[ types anElement ] ifFalse:[ TUnionTypeNode new types: types ]
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	"Created: / 20-08-2015 / 17:18:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	"Modified: / 21-08-2015 / 21:12:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	parseTypeSimple
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	type_simple::= identifier ('[' type_parameters ']')?
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	\| type \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	currentToken isIdentifier ifTrue:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	type := TSimpleTypeNode new.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	type name: currentToken value.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	] ifFalse:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	(currentToken isLiteral and:[ currentToken value isNil ]) ifFalse:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	self parserError: 'type identifier expected'.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	type := TSimpleTypeNode new.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	type name: 'nil'.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	type
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	start: currentToken start;
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	stop: currentToken stop;
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	lineNumber: currentToken lineNumber.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	self step. "/ eat identifier.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	^ type
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	"Created: / 20-08-2015 / 17:20:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	"Modified: / 21-08-2015 / 21:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	parseTypeSpec: forReturn
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	256	parsingInlineAssembly ifTrue:[ ^ nil ].
0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	257
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	(currentToken isBinary and: [currentToken value == #<]) ifTrue: [
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	\| start stop type \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	start := currentToken start.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	self step.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	forReturn ifTrue:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	(currentToken isSpecial and:[ currentToken value == $^ ]) ifFalse:[
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	self parserError: '''^'' expected'.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	self step.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	type := self parseType.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	(currentToken isBinary and: [currentToken value == #>])
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	ifFalse: [self parserError: '''>'' expected'].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	stop := currentToken stop.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	self step.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	^ TTypeSpecNode new
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	type: type;
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	start: start;
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	stop: stop.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	] ifFalse:[
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	280	self parserError: 'type annotation expected'
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	].
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	"Created: / 20-08-2015 / 17:13:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6 0c806a7f1888 Initial support for inline assembly Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	284	"Modified: / 02-09-2015 / 07:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1 18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	!
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	parseUnaryPattern
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	\| method \|
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	method := super parseUnaryPattern.
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	method returnTypeSpec: (self parseTypeSpec: true).
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	^ method
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	"Created: / 21-08-2015 / 22:54:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	! !
18b4a3b98e96 Creates subpackage jv:tea/compiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 02 Sep 2015 09:18:00 +0100
changeset 6	0c806a7f1888
parent 2	2a3e47c13905
child 7	7556e3d41d80
permissions	-rw-r--r--