test/iftoken.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl

@list = ('1', '+1', '1 2', '1,2', 'foo', 'foo bar', '%', '+foo', '<<');

foreach $t (@list) {
    print "\tdb 'N \"$t\": '\n";
    print "%iftoken $t\n";
    print "\tdb 'Yes', 10\n";
    print "%else\n";
    print "\tdb 'No', 10\n";
    print "%endif\n";

    print "\tdb 'C \"$t\": '\n";
    print "%iftoken $t ; With a comment!\n";
    print "\tdb 'Yes', 10\n";
    print "%else\n";
    print "\tdb 'No', 10\n";
    print "%endif\n";
}