Return to 059.html CVS log

Up to [parser3project] / parser3 / tests

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

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: 
                     10: @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
                     11: $t[^list.lsplit[,]]
1.3       misha      12: ^try{
                     13:        ^if(!^t.locate[piece;$s]){
                     14:                ^throw[user;$s;unknown]
                     15:        }
                     16:        $result[$s]
                     17: }{
                     18:        ^if($exception.type eq "user"){
                     19:                $exception.handled(1)
                     20:                $result['$s' not in list '$list']
                     21:        }
                     22: }
                     23: 
1.2       paf        24: 
                     25: @oneWord[s]
1.3       misha      26: ^try{
                     27:        ^if(^s.match[\W]){
                     28:                ^throw[user;$s;not word]
                     29:        }
                     30:        $result[$s]
                     31: }{
                     32:        ^if($exception.type eq "user"){
                     33:                $exception.handled(1)
                     34:                $result['$s' not a word]
                     35:        }
                     36: }
                     37: