parser3/tests/059.html - diff

Return to 059.html CVS log

Up to [parser3project] / parser3 / tests

-version 1.2, 2003/07/24 11:25:57
+version 1.4, 2008/07/25 12:57:09
  Line 1
  @main[]
- ...^oneOf[a;a,b,c]...<br>
+ ^windows-1251[]
- #...^oneOf[a;ax,b,c]...<br>
- ...^oneWord[word]...<br>
+ ...^oneOf[a;a,b,c]...<br />
- #...^oneWord[wo rd]...<br>
+ ...^oneOf[a;ax,b,c]...<br />
+ ...^oneWord[Word]...<br />
+ ...^oneWord[wo rd]...<br />
  @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
  $t[^list.lsplit[,]]
- ^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]}
+ ^try{
- $result[$s]
+         ^if(!^t.locate[piece;$s]){
+                 ^throw[user;$s;unknown]
+         }
+         $result[$s]
+ }{
+         ^if($exception.type eq "user"){
+                 $exception.handled(1)
+                 $result['$s' not in list '$list']
+         }
+ }
  @oneWord[s]
- ^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}
+ ^try{
+         ^if(^s.match[\W]){
+                 ^throw[user;$s;not word]
+         }
+         $result[$s]
+ }{
+         ^if($exception.type eq "user"){
+                 $exception.handled(1)
+                 $result['$s' not a word]
+         }
+ }

E-mail: