А зачем так сложно? ...

Sumo 21.10.2002 12:52

Есть в Парсере функция replace. И тогда ...

@rus_to_lat[str]
  $result[^str.replace[$rtr]]
  
@lat_to_rus[str][temp]
  $temp[^str.replace[$rtl_l]]
  $result[^temp.replace[$rtl_s]]

@auto[]
  $rtl_s[^table::create[nameless]{а	а	
b	б	
v	в	
g	г	
d	д	
e	е	
z	з	
i	и	
j	й	
k	к	
l	л	
m	м	
n	н	
o	о	
p	п	
r	р	
s	с	
t	т	
u	у	
f	ф	
h	х	
c	ц	
y	ы
А	А	
B	Б	
V	В	
G	Г	
D	Д	
E	Е	
Z	З	
I	И	
J	Й	
K	К	
L	Л	
M	М	
N	Н	
O	О	
P	П	
R	Р	
S	С	
T	Т	
U	У	
F	Ф	
H	Х	
C	Ц	
Y	Ы}]

  $rtl_l[^table::create[nameless]{shch	щ	
sh	ш	
ch	ч	
yu	ю	
ya	я	
yo	ё	
zh	ж	
SHCH	Щ	
SH	Ш	
CH	Ч	
YU	Ю	
YA	Я	
YO	Ё	
ZH	Ж}]
  
  $rtr[^table::create[nameless]{щ	shch	
ш	sh
ч	ch
ю	yu	
я	ya
ё	yo	
ж	zh	
э	e'	
а	а	
б	b	
в	v	
г	g	
д	d	
е	e	
з	z	
и	i	
й	j	
к	k	
л	l	
м	m	
н	n	
о	o	
п	p	
р	r	
с	s	
т	t	
у	u	
ф	f	
х	h	
ц	c	
ъ	'	
ы	y	
ь	'
Щ	SHCH	
Ш	SH
Ч	CH
Ю	YU	
Я	YA
Ё	YO	
Ж	ZH	
Э	E'	
А	А	
Б	B	
В	V	
Г	G	
Д	D	
Е	E	
З	Z	
И	I	
Й	J	
К	K	
Л	L	
М	M	
Н	N	
О	O	
П	P	
Р	R	
С	S	
Т	T	
У	U	
Ф	F	
Х	H	
Ц	C	
Ъ	'	
Ы	Y	
Ь	'}]

---