File: utf8.sty

package info (click to toggle)
arabtex 3.09-3
  • links: PTS
  • area: non-free
  • in suites: potato
  • size: 2,376 kB
  • ctags: 42
  • sloc: makefile: 32; sh: 10
file content (70 lines) | stat: -rw-r--r-- 1,982 bytes parent folder | download
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
%%%%%%%%%%%%%%%%%%%%%%%%%%% utf8.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% utf8.sty
% Scanner for UTF-8 Code 
% to install it, include it as a LaTeX package or style option "utf8"
% with Plain TeX, say "\input utf8.sty"
% to activate it, say "\setcode {utf8}" 
% 10.08.98
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifx \utfatcode \undefined \else \expandafter \endinput
\fi % load only once

\chardef \utfatcode = \catcode`\@  \catcode`\@ = 11

\usepackage {arabtex} 
\usepackage {hebtex} 
\usepackage {utfcode}

\a@ident {utf8.sty} {1.00 UTF-8 input encoding } {10.08.1998}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def \utf@initcodes {% assignments for UTF-8
\countdef \is@m=2 	\is@m = 160
\loop \catcode \is@m = 11
\ifnum 254 > \is@m \advance \is@m 1 \repeat
\is@m=0 }

\def \utf@setcodes {% assignments for UTF-8
\catcode ` 13	\catcode ` 13	\catcode ` 13	
\catcode ` 13	\catcode ` 13	\catcode ` 13	}

%\utf@initcodes

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%{\utf@setcodes
\gdef \set@utfc {% select the UTF-8 scanner
%\utf@initcodes
\global\let \a@scan \utfc@scan   
\global\def \sc@beg {\utf@beg }
\global\def \sc@word {\utf@word }
\iffalse
\utf@setcodes
\gdef {\u@d@@ }%	Hebrew I
\gdef {\u@d@@ }%	Hebrew II
\gdef {\u@d@@ }%	Arabic I
\gdef {\u@d@@ }%	Arabic II
\gdef {\u@d@@ }%	Arabic III
\gdef {\u@d@@ }%	Arabic IV
\fi
\global\a@digits = {0123456789}%
\global\a@first = {}
\message {input encoding set to UTF-8 conventions}}
%}

\xpa \def \xpa \sc@table \xpa {\sc@table % add the UTF-8 encoding
%utf-8\set@utf   utf8\set@utf	}
utf-8\set@utfc   utf8\set@utfc	}

\message {scanner for code UTF-8 installed.}

\catcode `\@ = \utfatcode
\endinput
%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%