http://www.parser.ru/forum/?id=8403 - 2002 год однако =)

Misha v.3 17.06.2005 20:25 / 17.06.2005 20:50

а усовершенствовать почти всегда можно:

@load[] -> @auto[]

@format[text;table;string][type]
$type[^switch[$table]{
	^case[GOST]{$gost}
	^case[DEFAULT]{$eng}
}]
$result[^text.replace[$type]]

^if(def $string){
	$result[^result.match[^if($string eq "s"){'}{\s}][g]{_}]
}

Использование:

^translit:format[Вася Петров Шьявлев Эмолъволяновь;GOST]

---