--- parser3/tests/059.html 2007/08/17 13:13:37 1.3
+++ parser3/tests/059.html 2010/07/25 06:23:41 1.5
@@ -1,10 +1,11 @@
@main[]
+^windows-1251[]
+
...^oneOf[a;a,b,c]...
...^oneOf[a;ax,b,c]...
...^oneWord[Word]...
...^oneWord[wo rd]...
-
@oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
$t[^list.lsplit[,]]
^try{
@@ -19,7 +20,6 @@ $t[^list.lsplit[,]]
}
}
-
@oneWord[s]
^try{
^if(^s.match[\W]){
@@ -32,4 +32,3 @@ $t[^list.lsplit[,]]
$result['$s' not a word]
}
}
-