Return to 059.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/059.html, revision 1.5

1.2       paf         1: @main[]
1.4       misha       2: ^windows-1251[]
                      3: 
1.3       misha       4: ...^oneOf[a;a,b,c]...<br />
                      5: ...^oneOf[a;ax,b,c]...<br />
                      6: ...^oneWord[Word]...<br />
                      7: ...^oneWord[wo rd]...<br />
1.2       paf         8: 
                      9: @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
                     10: $t[^list.lsplit[,]]
1.3       misha      11: ^try{
                     12:        ^if(!^t.locate[piece;$s]){
                     13:                ^throw[user;$s;unknown]
                     14:        }
                     15:        $result[$s]
                     16: }{
                     17:        ^if($exception.type eq "user"){
                     18:                $exception.handled(1)
                     19:                $result['$s' not in list '$list']
                     20:        }
                     21: }
                     22: 
1.2       paf        23: @oneWord[s]
1.3       misha      24: ^try{
                     25:        ^if(^s.match[\W]){
                     26:                ^throw[user;$s;not word]
                     27:        }
                     28:        $result[$s]
                     29: }{
                     30:        ^if($exception.type eq "user"){
                     31:                $exception.handled(1)
                     32:                $result['$s' not a word]
                     33:        }
                     34: }