RPA Toolkit
added rpaparse
[rpatk.git] / phpext / prpa / tests / 010.phpt
1 --TEST--
2 rpaparse($bnf, $input, $records, $error);
3 --SKIPIF--
4 <?php if (!extension_loaded("prpa")) echo "skip\n"; ?>
5 --FILE--
6 <?php 
7         $records = 0;
8         $error = 0;
9         $bnf = "#!emitid first 1\n" .
10         "#!emitid last 2\n" .
11         "#!emitid name 3\n" .
12         "first ::= [a-z]+\n" .
13         "last ::= [a-z]+\n" .
14         "name ::= <first> ' '+ <last>\n";
15         $myname = "Kosko Stoilov";      
16         $ret = rpaparse($bnf, RPA_ENCODING_ICASE_UTF8, $myname, $records);
17         $matched = "matched: " . substr($myname, 0, $ret) . "\n";
18         echo($matched);
19         
20         foreach ($records as $record) {
21                 if ($record['type'] & RPA_RECORD_START)
22                         echo("START ");
23                 else if ($record['type'] & RPA_RECORD_END)
24                         echo("END   ");
25                 else
26                         echo("UNKNOWN");
27                 echo ($record['uid'] . ", " . $record['rule'] . ": " . $record['input'] . "\n");
28         }
29       
30 ?>
31 --EXPECT--
32 matched: Martin Stoilov