File: testRules.pl

package info (click to toggle)
libxml-xql-perl 0.68-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, sarge
  • size: 624 kB
  • ctags: 535
  • sloc: perl: 5,842; xml: 4,007; makefile: 36
file content (29 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#
# For debugging the conversion of ELEMENT models to perl regular expressions
#

use XML::Checker;

@expr = 
(
 "(a|b)",
 "(a?|b+)",
 "(a|b|c|d|e)",
 "(a|b)+",
 "(a,b)",
 "(a?,b+)",
 "(a,b,c,d,e)",
 "(a,b)+",
 "(head, (p | list | note)*, div*)",
 "(#PCDATA|a)*",
 "(#PCDATA|a|b)*",
);

for my $expr (@expr)
{
    my $v = new XML::Checker;
    $v->Element ("bla", $expr);

    my $rule = $v->{ERule}->{bla};
    print "$expr : " . $rule->debug . "\n";
}