[BACK]Return to 059.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / tests
File:  [parser3project] / parser3 / tests / 059.html
Revision 1.5: download - view: text, annotated - select for diffs - revision graph
Sun Jul 25 06:23:41 2010 UTC (15 years, 10 months ago) by misha
Branches: MAIN
CVS tags: release_3_5_1, release_3_5_0, release_3_4_6, release_3_4_5, release_3_4_4, release_3_4_3, release_3_4_2, release_3_4_1, HEAD
- prepare tests to trim trailing methods' EOLs

@main[]
^windows-1251[]

...^oneOf[a;a,b,c]...<br />
...^oneOf[a;ax,b,c]...<br />
...^oneWord[Word]...<br />
...^oneWord[wo rd]...<br />

@oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
$t[^list.lsplit[,]]
^try{
	^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]
^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: