hg/stx-goodies-petitparser: compiler/tests/PEGFsaScannerIntegrationTest.st@439c4057517f (annotated)

502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#PEGFsaScannerIntegrationTest
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	6	instanceVariableNames:'fsa fsaGenerator parser scanner result compiled parser1 parser2'
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitCompiler-Tests-Scanner'
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!PEGFsaScannerIntegrationTest methodsFor:'as yet unclassified'!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	testAAA_Aplusnot
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	parser := 'aaa' asParser not, $a asParser plus.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	self scan: 'a' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	self scan: 'aa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	self failScan: 'aaa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	self failScan: 'aaaa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	self failScan: 'aaaaa'.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	28	! !
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	29
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	30	!PEGFsaScannerIntegrationTest methodsFor:'distinct'!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	31
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	32	testAAAnot_Aplus
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	33	parser := 'aaa' asParser not, $a asParser plus.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	34	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	35
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	36	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	37	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	38	self assert: fsa hasDistinctRetvals.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	39
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	40	self scan: 'a' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	41	self scan: 'aa' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	42
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	43	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	44	self failScan: 'aaa'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	45	self failScan: 'aaaa'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	46	self failScan: 'aaaaa'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	47	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	48
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	49	testAAAstar_AA
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	50	parser := 'aaa' asParser star, 'aa' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	51
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	52	self scan: 'aa' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	53	self scan: 'aaaaa' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	54	self scan: 'aaaaaaaa' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	55
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	56
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	57	self failScan: 'a'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	58	self failScan: 'aaa'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	59	self failScan: 'aaaa'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	60	self failScan: 'aaaaaaa'.
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	testAAplus_A
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	parser := 'aa' asParser plus, $a asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	self scan: 'aaa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	self scan: 'aaaaa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	self failScan: 'aa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	self failScan: 'aaaa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	testAAplus_B
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	parser := 'aa' asParser plus, $b asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	self scan: 'aab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	self scan: 'aaaab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	self failScan: 'ab'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self failScan: 'aaab'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	self failScan: 'aac'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	testAAstar_A
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	parser := 'aa' asParser star, $a asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self scan: 'a' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self scan: 'aaa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	self scan: 'aaaaa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	self scan: 'aaaaaaa' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	self failScan: 'aa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self failScan: 'aaaa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	testAAstar_B
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	parser := 'aa' asParser star, $b asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self scan: 'b' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	self scan: 'aab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	self scan: 'aaaab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	self scan: 'aaaaaab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	self failScan: 'ab'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	self failScan: 'aaa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	testAB
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	parser := 'ab' asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	self failScan: 'b'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	self scan: 'ab' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	self scan: 'aba' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	126	testAXorAXXstar_X
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	127	parser := ('ax' asParser / 'axx' asParser) plus, 'x' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	128
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	129	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	130
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	131	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	132	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	133
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	134	self failScan: 'x'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	135	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	136
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	137	self scan: 'axx' token: #token position: 3.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	138	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	139
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	140	testAXorA_X
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	141	parser := ('ax' asParser / 'a' asParser), $x asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	142	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	143
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	144	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	145	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	146
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	147	self scan: 'axx' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	148
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	149	self failScan: 'ax'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	150	self failScan: 'ab'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	151	self failScan: 'x'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	152	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	153	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	154
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	testA_BCorCD_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	parser := $a asParser, ('bc' asParser / 'cd' asParser), $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self scan: 'abcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	self scan: 'acdd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	self failScan: 'abdd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	self failScan: 'ad'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	self failScan: 'aacd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	testA_BCorCDplus_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	parser := $a asParser, ('bc' asParser / 'cd' asParser) plus, $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	self scan: 'abcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	self scan: 'acdd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	self scan: 'abcbccdd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	self scan: 'acdcdbcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	self failScan: 'abdd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	self failScan: 'ad'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	self failScan: 'abcccd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	testA_BCorCDstar_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	parser := $a asParser, ('bc' asParser / 'cd' asParser) star, $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	self scan: 'ad' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	self scan: 'abcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self scan: 'acdd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	self scan: 'abcbccdd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	self scan: 'acdcdbcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	self failScan: 'abdd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	self failScan: 'abcccd'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	testA_Bnot
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	parser := 'a' asParser, $b asParser not.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	self assert: fsa isWithoutEpsilons.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	199	self assert: fsa hasDistinctRetvals.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	200
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	self failScan: 'ab'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	self failScan: 'bb'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	self scan: 'a' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	self scan: 'ac' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	testA_Boptional
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	parser := $a asParser, $b asParser optional.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	self failScan: 'b'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	self scan: 'ab' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	self scan: 'ac' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	self scan: 'a' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	testA_BorC_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	parser := $a asParser, ($b asParser / $c asParser), $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	self scan: 'abd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	self scan: 'acd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	self failScan: 'abc'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	self failScan: 'add'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	testA_BorCplus_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	parser := $a asParser, ($b asParser / $c asParser) plus, $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	self scan: 'abd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	self scan: 'acd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self scan: 'abcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	self scan: 'acbcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self failScan: 'ad'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	self failScan: 'abc'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	self failScan: 'aad'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	testA_BorCstar_D
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	parser := $a asParser, ($b asParser / $c asParser) star, $d asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	self scan: 'ad' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	self scan: 'abd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	self scan: 'acd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	self scan: 'abcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	self scan: 'acbcbcd' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self failScan: 'abc'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	self failScan: 'aad'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	testAorAA
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	parser := 'a' asParser / 'aa' asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	self failScan: 'b'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	self scan: 'aa' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	self scan: 'a' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	testAorAX_X
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	parser := ('a' asParser / 'ax' asParser), $x asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	self scan: 'ax' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	self scan: 'axx' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	self failScan: 'x'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	testAorB
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	parser := $a asParser / $b asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	self failScan: 'c'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	self scan: 'aa' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	self scan: 'bb' token: #token position: 1.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	307	testAorEOF
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	308	parser := $a asParser / #eof asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	309
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	310	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	311
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	312	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	313	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	314
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	315	self scan: 'a' token: #token position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	316	self scan: '' token: #token position: 0.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	317
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	318	self failScan: 'b'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	319	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	320
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	testAplus_B
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	parser := $a asParser plus, $b asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	self scan: 'ab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	self scan: 'aab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	self scan: 'aaab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	self failScan: 'b'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	self failScan: 'ac'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	testAstar_A
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	parser := $a asParser star, $a asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self failScan: 'a'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self failScan: 'aa'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	self failScan: 'ac'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	testAstar_B
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	parser := $a asParser star, $b asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	self scan: 'b' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	self scan: 'ab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	self scan: 'aab' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	self failScan: 'ac'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	testAstar_Bnot
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	parser := 'a' asParser star, $b asParser not.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	self assert: fsa isWithoutEpsilons.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	358	self assert: fsa hasDistinctRetvals.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	359
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	360	self failScan: 'b'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	361	self failScan: 'ab'.
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	self failScan: 'aaab'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	364	self scan: '' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	365	self scan: 'a' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	366	self scan: 'aaa' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	367	self scan: 'c' token: #token position: 0.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	368	self scan: 'ac' token: #token position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	369	self scan: 'aaac' token: #token position: 3.
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	testFoo
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	parser := 'foo' asParser.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	self scan: 'foo' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	self scan: 'foobar' token: #token position: 3.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	self failScan: 'bar'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	self failScan: 'fo'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	testNumber
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	parser := #digit asParser plus.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	self failScan: 'b'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	self scan: '12' token: #token position: 2.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	self scan: '2312' token: #token position: 4.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	397	testRecursive
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	398	parser := PPDelegateParser new.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	399
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	400	parser setParser: ($a asParser, parser) / $b asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	401
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	402	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	403
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	404	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	405	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	406
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	407	self failScan: 'c'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	408
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	409	self scan: 'b' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	410	self scan: 'ab' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	411	self scan: 'aaaaab' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	412	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	413
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	testSmalltalkIdentifier
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	parser := #letter asParser, #word asParser star, $: asParser not.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	self compile.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	self assert: fsa isDeterministic.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self assert: fsa isWithoutEpsilons.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	self scan: 'a' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	self scan: 'hithere' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	self scan: 'hi123' token: #token.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	self failScan: ''.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	self failScan: 'aaa:'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	self failScan: '123'.
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	! !
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	429	!PEGFsaScannerIntegrationTest methodsFor:'multivalues'!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	430
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	431	testA
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	432	parser1 := 'a' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	433	parser2 := 'a' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	434
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	435	self compileMerge.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	436
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	437	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	438	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	439	self assert: fsa hasDistinctRetvals not.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	440
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	441	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	442	self failScan: 'b'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	443
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	444	self scan: 'a' token: #token1 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	445	self scan: 'a' token: #token2 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	446	self scan: 'aaa' token: #token1 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	447	self scan: 'aaa' token: #token2 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	448	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	449
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	450	testAplus_BOrAplus_Bnot
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	451	parser1 := $a asParser plus, $b asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	452	parser2 := $a asParser plus, $b asParser not.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	453
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	454	self compileMerge.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	455
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	456	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	457	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	458
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	459	self failScan: 'aaa' token: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	460	self scan: 'aaa' token: #token2 position: 3.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	461
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	462	self scan: 'aaab' token: #token1 position: 4.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	463	self failScan: 'aaab' token: #token2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	464	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	465
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	466	testAuorAplus
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	467	parser1 := 'a' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	468	parser2 := 'a' asParser plus.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	469
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	470	self compileMerge.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	471
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	472	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	473	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	474	self assert: fsa hasDistinctRetvals not.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	475
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	476	self failScan: 'b' token: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	477	self failScan: 'b' token: #token2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	478
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	479	self failScan: '' token: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	480	self failScan: '' token: #token2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	481
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	482	self scan: 'a' token: #token1 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	483	self scan: 'a' token: #token2 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	484
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	485	self scan: 'aaa' token: #token1 position: 1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	486	self scan: 'aaa' token: #token2 position: 3.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	487	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	488
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	489	testKeywordOrUnary
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	490	parser1 := #letter asParser plus, $: asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	491	parser2 := #letter asParser plus, $: asParser not.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	492
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	493	self compileMerge.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	494
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	495	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	496	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	497
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	498	self failScan: 'false' token: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	499	self scan: 'false' token: #token2 position: 5.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	500
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	501	self scan: 'false:' token: #token1 position: 6.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	502	self failScan: 'false:' token: #token2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	503	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	504
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	505	testTrueOrId
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	506	parser1 := 'true' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	507	parser2 := #letter asParser plus.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	508
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	509	self compileMerge.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	510
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	511	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	512	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	513	self assert: fsa hasDistinctRetvals not.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	514
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	515	self failScan: 'false' token: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	516	self scan: 'false' token: #token2 position: 5.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	517
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	518	self scan: 'true' token: #token1 position: 4.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	519	self scan: 'true' token: #token2 position: 4.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	520
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	521	self scan: 'truecrypt' token: #token1 position: 4.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	522	self scan: 'truecrypt' token: #token2 position: 9.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	523
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	524	! !
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	525
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	526	!PEGFsaScannerIntegrationTest methodsFor:'smalltalk'!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	527
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	528	testStIdentifier
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	529	parser := (PPPredicateObjectParser
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	530	on: [ :each \| each isLetter or: [ each = $_ ] ]
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	531	message: 'letter expected') ,
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	532	(PPPredicateObjectParser
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	533	on: [ :each \| each isAlphaNumeric or: [ each = $_ ] ]
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	534	message: 'letter or digit expected') star.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	535
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	536	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	537
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	538	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	539	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	540
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	541	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	542	self failScan: '23ab'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	543
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	544	self scan: 'fooBar' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	545	self scan: 'foo_bar' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	546	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	547
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	548	testStKeyword
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	549	\| identifier \|
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	550	identifier := (PPPredicateObjectParser
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	551	on: [ :each \| each isLetter or: [ each = $_ ] ]
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	552	message: 'letter expected') ,
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	553	(PPPredicateObjectParser
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	554	on: [ :each \| each isAlphaNumeric or: [ each = $_ ] ]
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	555	message: 'letter or digit expected') star.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	556	parser := identifier, $: asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	557
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	558	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	559
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	560	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	561	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	562
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	563	self failScan: 'fooBar'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	564
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	565
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	566	self scan: 'fooBar:' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	567	self scan: 'foo_bar:' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	568	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	569
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	570	testStString
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	571	parser := $' asParser , ('''''' asParser / $' asParser negate) star , $' asParser.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	572
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	573	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	574
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	575	self assert: fsa isDeterministic.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	576	self assert: fsa isWithoutEpsilons.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	577
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	578	self failScan: ''.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	579	self failScan: 'b'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	580
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	581	self scan: '''hi there''' token: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	582	! !
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	583
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	584	!PEGFsaScannerIntegrationTest methodsFor:'support'!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	585
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	586	compile
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	587	\| ppcTree \|
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	588	compiled ifTrue: [ ^ self ].
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	589
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	590	ppcTree := parser asCompilerTree.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	591	fsa := ppcTree asFsa.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	592	fsa retval: #token.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	593	fsa determinize.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	594
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	595	self generate
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	596	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	597
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	598	compileMerge
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	599	\| ppcTree1 ppcTree2 fsa1 fsa2 \|
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	600	compiled ifTrue: [ ^ self ].
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	601
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	602	ppcTree1 := parser1 asCompilerTree.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	603	ppcTree2 := parser2 asCompilerTree.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	604
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	605	fsa1 := ppcTree1 asFsa.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	606	fsa1 retval: #token1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	607	fsa2 := ppcTree2 asFsa.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	608	fsa2 retval: #token2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	609
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	610	fsa := self mergeFsa: fsa1 and: fsa2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	611
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	612	self generate.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	613	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	614
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	615	failScan: stream
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	616	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	617
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	618	scanner initialize.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	619	scanner stream: stream asPetitStream.
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	620	scanner scan_nextToken.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	621
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	622	result := scanner polyResult.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	623
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	624
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	625	self assert: result isEmpty
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	626	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	627
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	628	failScan: stream token: token
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	629	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	630
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	631	scanner initialize.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	632	scanner stream: stream asPetitStream.
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	633	scanner scan_nextToken.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	634
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	635	result := scanner polyResult.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	636
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	637
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	638	self assert: ((result includesKey: token) not)
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	639	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	640
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	641	generate
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	642	\| codeGenerator \|
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	643	fsa name: #nextToken.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	644
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	645	codeGenerator := PPCScannerCodeGenerator new.
529 439c4057517f PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions Jan Vrany <jan.vrany@fit.cvut.cz> parents: 524 diff changeset	646	codeGenerator options scannerSuperclass: PPCScanner.
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	647
f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	648	scanner := codeGenerator
f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	649	generateAndCompile: fsa.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	650
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	651	compiled := true
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	652	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	653
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	654	mergeFsa: fsa1 and: fsa2
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	655	\| startState \|
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	656	fsa := PEGFsa new.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	657	startState := PEGFsaState new.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	658
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	659	fsa addState: startState.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	660	fsa startState: startState.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	661
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	662	fsa adopt: fsa1.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	663	fsa addTransitionFrom: startState to: fsa1 startState.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	664
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	665	fsa adopt: fsa2.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	666	fsa addTransitionFrom: startState to: fsa2 startState.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	667
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	668	fsa determinizeStandard.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	669	^ fsa
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	670	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	671
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	672	scan: stream token: token
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	673	self scan: stream token: token position: stream size.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	674	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	675
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	676	scan: stream token: token position: position
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	677	self compile.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	678
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	679	scanner stream: stream asPetitStream.
524 f6f68d32de73 Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 515 diff changeset	680	scanner scan_nextToken.
515 b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	681
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	682	result := scanner polyResult.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	683
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	684	self assert: result isCollection description: 'no collection returned as a result!!'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	685	self assert: (result isEmpty not) description: 'no token found'.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	686	self assert: (result at: token) = position.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	687	!
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	688
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	689	setUp
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	690	compiled := false.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	691	fsaGenerator := PEGFsaGenerator new.
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	692	! !
b5316ef15274 Updated to PetitCompiler-JanKurs.160, PetitCompiler-Tests-JanKurs.112, PetitCompiler-Extras-Tests-JanKurs.25, PetitCompiler-Benchmarks-JanKurs.17 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 502 diff changeset	693

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 24 Aug 2015 23:42:53 +0100
changeset 529	439c4057517f
parent 524	f6f68d32de73
child 534	a949c4fe44df
permissions	-rw-r--r--