revision: /pugs (Rev: 16169, via SVN::Web)

misc/pX/avar/Ook/lib/Ook/Grammar.pm


4	4	<[ 0..9 a..f A..F ]>
5	5	}
6	6
7		token tölustafur {
8		<[ 0 .. 9 ]>
9		}
	7	token tölustafur { <[ 0..9 ]> }
10	8
11	9	token staffasti {
12	10	'\''
…	…
19	17	}
20	18
21	19	token fjöldatala {
22		^^ [
23		\| \$ $<hextala> := ( <hexstafur>+ )
24		\| $<tala> := ( <tölustafur>+ )
25		]
26		$$
	20	[
	21	\| \$ $<hextala> := ( <hexstafur>+ )
	22	\| $<tala> := ( <tölustafur>+ )
	23	]
27	24	}
28	25
29		token heiltala { \-? <fjöldatala> }
	26	token heiltala {
	27	$<sigil> := [ \-? ]
	28	<fjöldatala>
	29	}
30	30
31		token fleytitala {
32		\-? <tölustafur>+ \. <tölustafur>* <[\e\E]> <[\+\-]>? <tölustafur>+
	31	regex fleytitala {
	32	\-?
	33	<tölustafur>+
	34	\.
	35	<tölustafur>*
	36	[
	37	\| <null>
	38	\| <[eE]> <[+-]>? <tölustafur>+
	39	]
33	40	}
34	41
35	42	=kwid


6	6	# rm -rf blib
7	7
8	8	test:
9		for test in t/.t t//*.t;\
10		do ../../../../pugs -I ../../../../ext/Test/lib -I lib $$test;\
	9	for test in t/.t t//*.t; do\
	10	echo $$test &&\
	11	../../../../pugs -I ../../../../ext/Test/lib -I lib $$test;\
11	12	done


1	1	use Test;
2	2	use Ook::Grammar;
3	3
4		plan 8;
	4	plan 16;
5	5
6		1 ~~ /<fjöldatala>/;
7		is($/<fjöldatala><tala>, 1);
	6	1 ~~ /<heiltala>/;
	7	is($/<heiltala><sigil>, undef);
	8	is($/<heiltala><fjöldatala><tala>, 1);
8	9
9		#-1 ~~ /<fjöldatala>/;
10		#is($/<fjöldatala><tala>, -1);
	10	'-1' ~~ /<heiltala>/;
	11	is($/<heiltala><sigil>, '-');
	12	is($/<heiltala><fjöldatala><tala>, '1');
11	13
12		1234 ~~ /<fjöldatala>/;
13		is($/<fjöldatala><tala>, 1234);
	14	1234 ~~ /<heiltala>/;
	15	is($/<heiltala><sigil>, undef);
	16	is($/<heiltala><fjöldatala><tala>, 1234);
14	17
15		'-1234' ~~ /<fjöldatala>/;
16		is($/<fjöldatala><tala>, '-1234');
	18	'-1234' ~~ /<heiltala>/;
	19	is($/<heiltala><sigil>, '-');
	20	is($/<heiltala><fjöldatala><tala>, '1234');
17	21
18		'$AB12' ~~ /<fjöldatala>/;
19		is($/<fjöldatala><hextala>, 'AB12');
	22	'$AB12' ~~ /<heiltala>/;
	23	is($/<heiltala><sigil>, undef);
	24	is($/<heiltala><fjöldatala><hextala>, 'AB12');
20	25
21		'-$AB12' ~~ /<fjöldatala>/;
22		is($/<fjöldatala><hextala>, '-AB12');
	26	'-$AB12' ~~ /<heiltala>/;
	27	is($/<heiltala><sigil>, '-');
	28	is($/<heiltala><fjöldatala><hextala>, 'AB12');
23	29
24		'$ab12' ~~ /<fjöldatala>/;
25		is($/<fjöldatala><hextala>, 'ab12');
	30	'$ab12' ~~ /<heiltala>/;
	31	is($/<heiltala><sigil>, undef);
	32	is($/<heiltala><fjöldatala><hextala>, 'ab12');
26	33
27		'-$ab12' ~~ /<fjöldatala>/;
28		is($/<fjöldatala><hextala>, '-ab12');
	34	'-$ab12' ~~ /<heiltala>/;
	35	is($/<heiltala><sigil>, '-');
	36	is($/<heiltala><fjöldatala><hextala>, 'ab12');