summaryrefslogtreecommitdiff
path: root/language/typingtex/Active8MacProse.dir/Textures16xMacEncoding.dir/fr8hyph.mac
blob: 9fd531387c6d133531f92545acf1fe8b389946c1 (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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

 %%% fr8hyph.mac
  %%
  %% Laurent Siebenmann, December 1993
  %% Master posting 1993-4:
  %%      ftp matups.matups.fr, directory TeX/TypingTeX.dir
  %% This file is 7bit ascii.
  %% This file is NOT autonomous, since it uses the
  %% coding-independant hyphenation file
  %% fr8hyph.src as source of the patterns.
  %%
  %% Sets up the universal 8bit French hyphenation patterns
  %% of fr8hyph.src for use with (output) font systems
  %% using the Mac font encoding in the range 128-255
  %% and the CM encoding in the range 0-127.
  %% The only examples available in 1993 are the Textures
  %% Adobe font series of Textures version 1.6x.
  %% Characters of Mac the 128-255 range that appear in the
  %% CM 0-127 range are omitted.

  %% HEALTH WARNING: This encoding is a curious new mixture.
  %% There are alternatives offering
  %% more fonts and more support, notably
  %% the Cork-extended CM encoding (Cork encoding rather
  %% than Mac in the range 128-255).  And the full
  %% Cork encoding. See "format-dumper" in versions -CM and -CK
  %% The main advantage of this encoding over the alternatives
  %% is its inclusion of various glyphs such as
  %% daggerdbl paragraph cent Yen ...

  %% SIMPLEST USE (with Plain TeX). Put copies of plain.tex,
  %% fr8hyph.mac and fr8hyph.src together in a Mac
  %% directory.  Rename fr8hyph.mac as hyphen.tex.
  %% Compile plain.tex using the Textures virtex (initex)
  %% and, when asked, type the command \dump. Save the 
  %% resulting format file in the directory "TeX formats".
  %% If you quit and restart Textures (or use the "add format"
  %% command) the new format will be available.
  %% Under this format, the default hyphenation system will
  %%  be French and you can directly type eight-bit characters
  %% (without inputing the file option.keys) --- provided you use
  %% only the fonts of the Adobe series of Textures >=1.62.

  %% The grouping around the the body of the file
  %% to follow assures that the net change induced
  %% is to the hyphenation trie only.
  %% (Neglecting a dozen or so abandoned hash table entries.)

 \begingroup

 \catcode`\<=0
 \catcode`\>=12
 \lccode`\'=`\' %
 \def\set#1>#2{\edef\temp{\def\noexpand#1>{\string #2}
                      \catcode`#2=12\lccode`#2=`#2}\temp}


 %%% Table setting up the Mac
  %% encoding for French patterns

 %% <ag> for <a-grave>
 \set<ag>^^88 %%^^e0  comment gives Cork encoding
 %% <eg> is <e-grave>
 \set<eg>^^8f %%^^e8

 %% <ea> is <e-acute>
 \set<ea>^^8e %%^^e9

 %% <ax> is <a-circumflex>
 \set<ax>^^89 %%^^e2
 %% <ex> is <e-circumflex>
 \set<ex>^^90 %%^^ea
 %% <ix> is <i-circumflex>
 \set<ix>^^94 %%^^ee
 %% <ox> is <o-circumflex>
 \set<ox>^^99 %%^^f4
 %% <ux> is <u-circumflex>
 \set<ux>^^9e %%^^fb

 %% <id> is <i-dieresis>
 \set<id>^^95 %%^^ef
 %% <od> is <o-dieresis>
 \set<od>^^9a %%^^f6

 %% <cc> is <u-cedilla>
 \set<cc>^^8d %%^^e7

 %% <oe> is <oe-ligature>
 \set<oe>^^1b %%^^f7 NB. ^^1b is CM encoding

%%% end of table



 \input fr8hyph.src

 \endgroup


\def\.#1#2.{\edef\temp{%
  \global\lccode`#1=`#2  \global\uccode`#1=`#1
  \global\lccode`#2=`#2  \global\uccode`#2=`#1}
  \temp}


  %% Now the Mac uc and lc codes
\.^^e7^^87.
\.^^83^^8e.
\.^^ea^^92.
\.^^ee^^97.
\.^^f2^^9c.
\.^^cb^^88.
\.^^e9^^8f.
\.^^ed^^93.
\.^^f1^^98.
\.^^f4^^9d.
\.^^e5^^89.
\.^^e6^^90.
\.^^eb^^94.
\.^^ef^^99.
\.^^f3^^9e.
\.^^80^^8a.
\.^^e8^^91.
\.^^ec^^95.
\.^^85^^9a.
\.^^86^^9f.
\.^^d9^^d8.
\.^^cc^^8b.
\.^^84^^96.
\.^^cd^^9b.
\.^^81^^8c.
\.^^82^^8d.
\.^^ce^^cf.
\.^^1d^^1a.%%\AE\ae
\.^^1e^^1b.%%\OE\oe
\.^^1f^^1c.%%\O\o
  
 %\endinput %% comment out to enable test
  
%%% Test  for Textures 1.62
  
  \font\ft=Times
  \ft
  
  \showhyphens{\ft hŽberluŽ h\'eberlu\'e}
  
\long\def\tst{\vskip5pt  Test of French lc and uc pairs:
\par 
   ˈ ε‰ €Š  ƒŽ  ι  ζ  θ‘  
   λ”  μ•  ο™  …š  σž  †Ÿ  ‚\par
   \OE\oe \AE\ae \O\o\ (These last refuse case change.)
   \vskip5pt
   }

  \let\e\expandafter

  \tst
  \e\uppercase\e{\tst}
  \e\lowercase\e{\tst }

\end