summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/omega/otp/otibet/tibvowel.otp
blob: 27c4bb2642341f7fd19fcb9cf18568fc7f815ff6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
% File tibvoweluni.otp
% Setting of the  vowels.
% Copyright (c) 1997 Norbert Preining
% this file is part of the otibet package.
% 

input:  2;
output: 2;

states: main, compose;

aliases:
cons =          ( ( @"0f40 - @"0f47 ) | ( @"0f49 - @"0f69 ) | @"25cc ) ;
subjoin = ( ( @"0f90 - @"0f95 ) | @"0f97 | ( @"0f99 - @"0fad ) | 
		( @"0fb1 - @"0fb7 ) | @"0fb9 ) ;
compound = ( ( @"e08c - @"e0e7 ) | @"e0f3 | @"e0f8 | @"e0f9 ) ;
allcons = ( {cons} | {compound} ) ;
voup    =       ( (@"0f72 - @"0f73) | (@"0f7a - @"0f7e) |
		  (@"e001 - @"e003) ) ;
vodo =  ( @"0f71 | ( @"0f74 - @"0f75 ) ) ;
vo = ( {voup} | {vodo} ) ;

expressions:
.			=> <= \1		<main>		;

<main>	{allcons} end:	=> \1				<main>	;
<main>	{allcons}	=> "\turn{" \1 "\relax}"   <compose>	;
<main>  .		=> \1			<main>		;

<compose> {subjoin} end:	=> "\turn{\setbelow{" \1 "}}\stop "	<compose> ;
<compose> {voup} end:	=> "\turn{\setabove{" \1 "}}\stop "	<compose> ;
<compose> {vodo} end:	=> "\turn{\setbelow{" \1 "}}\stop "	<compose> ;
<compose> {subjoin}	=> "\turn{\setbelow{" \1 "}}"	<compose> ;
<compose> @"25cc	=>				<compose> ;
<compose> {voup}	=> "\turn{\setabove{" \1 "}}"	<compose> ;
<compose> {vodo}	=> "\turn{\setbelow{" \1 "}}"	<compose> ;
<compose> {allcons}	=> "\stop " <= \1		<main>	;
<compose> .		=> "\stop " \1			<main>	;