hg/stx-goodies-petitparser: tests/PPArithmeticParser.st@4751c407bb40 (annotated)

376 a2656b27cace Added monticelloName to package definition to ease export to .mcz Jan Vrany <jan.vrany@fit.cvut.cz> parents: 375 diff changeset	1	"{ Package: 'stx:goodies/petitparser/tests' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
427 a7f5e6de19d2 Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	3	"{ NameSpace: Smalltalk }"
a7f5e6de19d2 Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	4
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	PPCompositeParser subclass:#PPArithmeticParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'terms addition factors multiplication power primary parentheses
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	number'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10	category:'PetitTests-Examples'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	!PPArithmeticParser methodsFor:'accessing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	start
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	^ terms end
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	!PPArithmeticParser methodsFor:'grammar'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	addition
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	23	^ (factors separatedBy: ($+ asParser / $- asParser) trim)
553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	24	foldLeft: [ :a :op :b \| a perform: op asSymbol with: b ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	factors
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	^ multiplication / power
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	multiplication
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	32	^ (power separatedBy: ($* asParser / $/ asParser) trim)
553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	33	foldLeft: [ :a :op :b \| a perform: op asSymbol with: b ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	number
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	37	^ ($- asParser optional , #digit asParser plus , ($. asParser , #digit asParser plus) optional) flatten trim
553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	38	==> [ :value \| value asNumber ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	parentheses
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	42	^ $( asParser trim , terms , $) asParser trim
427 a7f5e6de19d2 Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	43	==> [ :nodes \| nodes at: 2 ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	power
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	47	^ (primary separatedBy: $^ asParser trim)
553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	48	foldRight: [ :a :op :b \| a raisedTo: b ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	primary
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	^ number / parentheses
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	terms
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56	^ addition / factors
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59	!PPArithmeticParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60
31 38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	61	version
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	62	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParser.st,v 1.4 2014-03-04 14:33:59 cg Exp $'
31 38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	63	!
38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	64
38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	version_CVS
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	66	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParser.st,v 1.4 2014-03-04 14:33:59 cg Exp $'
31 38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	67	!
38fde57e4ea0 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	68
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	version_SVN
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	70	^ '$Id: PPArithmeticParser.st,v 1.4 2014-03-04 14:33:59 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	! !
183 553dad635f6d update Claus Gittinger <cg@exept.de> parents: 31 diff changeset	72

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 12 May 2015 01:24:03 +0100
changeset 459	4751c407bb40
parent 427	a7f5e6de19d2
child 502	1e45d3c96ec5
permissions	-rw-r--r--