45 lines
1.4 KiB
Plaintext
45 lines
1.4 KiB
Plaintext
#!/usr/local/bin/a68g --script #
|
|
############################
|
|
# some simple test cases: #
|
|
############################
|
|
|
|
MODE SCALAR = INT;
|
|
PR READ "Template_Range_extraction_Iterative.a68" PR
|
|
#PR READ "Template_Range_extraction_Generative.a68" PR#
|
|
MODE RANGEINT = UNIRANGE;
|
|
|
|
test: BEGIN
|
|
[]INT int list = ( # unnormalised #
|
|
0, 1, 2, 4, 6, 7, 8, 11, 12, 14,
|
|
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
25, 27, 28, 29, 30, 31, 32, 33, 35, 36,
|
|
37, 38, 39);
|
|
|
|
[]RANGE range list = ( # unnormalised #
|
|
(0,0), (1,1), (2,2), (4,4), (6,6), (7,7), (8,8), (11,11), (12,12), (14,14),
|
|
(15,15), (16,16), (17,17), (18,18), (19,19), (20,20), (21,21), (22,22), (23,23), (24,24),
|
|
(25,25), (27,27), (28,28), (29,29), (30,30), (31,31), (32,32), (33,33), (35,35), (36,36),
|
|
(37,37), (38,38), (39,39));
|
|
|
|
[]RANGEINT list a = ( # unnormalised #
|
|
RANGE(0,2), 4, RANGE(6,8), RANGE(11,12),
|
|
RANGE(14,25), RANGE(27,33), RANGE(35,39));
|
|
|
|
[]RANGEINT list b = ( # unnormalised #
|
|
0, 1, 2, 4, 6, 7, 8, 11, 12, 14,
|
|
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
25, 27, 28, 29, 30, 31, 32, 33, 35, 36,
|
|
37, 38, 39);
|
|
|
|
[]RANGEINT list c = INITUNIRANGE(list b); # normalised #
|
|
|
|
# compare manipulation of various types of argument lists #
|
|
printf(($gl$,
|
|
REPR INITUNIRANGE int list,
|
|
REPR INITUNIRANGE range list,
|
|
REPR INITUNIRANGE list a,
|
|
REPR INITUNIRANGE list b,
|
|
REPR list c
|
|
))
|
|
END
|