# pca isn't defined!!!
use strict;
package RTF::Charsets;
use Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
use vars qw(%ansi %pc %pca %mac);
@EXPORT = qw(%ansi %pc %pca %mac);
# char sets from the RTF processor of Paul DuBois(dubois@primate.wisc.edu)
%ansi = qw(
formula 06
nobrkhyphen 1e
opthyphen 1f
ellipsis 85
nobrkspace a0
exclamdown a1
cent a2
sterling a3
currency a4
yen a5
brokenbar a6
section a7
dieresis a8
copyright a9
ordfeminine aa
guillemotleft ab
logicalnot ac
opthyphen ad
registered ae
macron af
degree b0
plusminus b1
twosuperior b2
threesuperior b3
acute b4
mu b5
paragraph b6
periodcentered b7
cedilla b8
onesuperior b9
ordmasculine ba
guillemotright bb
onequarter bc
onehalf bd
threequarters be
questiondown bf
Agrave c0
Aacute c1
Acircumflex c2
Atilde c3
Adieresis c4
Aring c5
AE c6
Ccedilla c7
Egrave c8
Eacute c9
Ecircumflex ca
Edieresis cb
Igrave cc
Iacute cd
Icircumflex ce
Idieresis cf
Eth d0
Ntilde d1
Ograve d2
Oacute d3
Ocircumflex d4
Otilde d5
Odieresis d6
multiply d7
Oslash d8
Ugrave d9
Uacute da
Ucircumflex db
Udieresis dc
Yacute dd
Thorn de
germandbls df
agrave e0
aacute e1
acircumflex e2
atilde e3
adieresis e4
aring e5
ae e6
ccedilla e7
egrave e8
eacute e9
ecircumflex ea
edieresis eb
igrave ec
iacute ed
icircumflex ee
idieresis ef
eth f0
ntilde f1
ograve f2
oacute f3
ocircumflex f4
otilde f5
odieresis f6
divide f7
oslash f8
ugrave f9
uacute fa
ucircumflex fb
udieresis fc
yacute fd
thorn fe
ydieresis ff
);
%pc = qw(
Ccedil 80
udieresis 81
eacute 82
acirc 83
adieresis 84
agrave 85
aring 86
ccedil 87
ecirc 88
edieresis 89
egrave 8a
idieresis 8b
icirc 8c
igrave 8d
Adieresis 8e
Aring 8f
Eacute 90
ae 91
AE 92
ocirc 93
odieresis 94
ograve 95
ucirc 96
ugrave 97
ydieresis 98
Odieresis 99
Udieresis 9a
cent 9b
sterling 9c
yen 9d
ucirc 9e
florin 9f
aacute a0
iacute a1
oacute a2
uacute a3
ntilde a4
Ntilde a5
ordfeminine a6
ordmasculine a7
questiondown a8
copyright a9
trademark aa
acute ab
dieresis ac
exclamdown ad
guillemotleft ae
guillemotright af
space b0
plusminus b1
lessequal b2
bar b3
yen b4
mu b5
partialdiff b6
Sigma b7
Pi b8
pi b9
integral ba
ordfeminine bb
ordmasculine bc
Omega bd
ae be
logicalnot bf
questiondown c0
exclamdown c1
logicalnot c2
radical c3
emdash c4
approxequal c5
delta c6
guillemotleft c7
guillemotright c8
ellipsis c9
nobrkspace ca
Agrave cb
Atilde cc
Otilde cd
OE ce
oe cf
endash d0
emdash d1
quotedblleft d2
quotedblright d3
quoteleft d4
quoteright d5
divide d6
lozenge d7
ydieresis d8
Ydieresis d9
fraction da
Ydieresis db
guilsinglleft dc
greater dd
less de
fl df
a e0
germandbls e1
quotesinglbase e2
pi e3
Sigma e4
Acirc e5
mu e6
Aacute e7
Edieresis e8
Egrave e9
Omega ea
partialdiff eb
infinity ec
oslash ed
e ee
Ocirc ef
equal f0
plusminus f1
greaterequal f2
lessequal f3
integral f4
integral f5
divide f6
approxequal f7
degree f8
bullet f9
bullet fa
radical fb
cedil fc
hungarumlaut fd
ogonek fe
nbsp ff
);
%mac = qw(
formula 06
nobrkhyphen 1e
opthyphen 1f
Adieresis 80
Aring 81
Ccedilla 82
Eacute 83
Ntilde 84
Odieresis 85
Udieresis 86
aacute 87
agrave 88
acircumflex 89
adieresis 8a
atilde 8b
aring 8c
ccedilla 8d
eacute 8e
egrave 8f
ecircumflex 90
edieresis 91
iacute 92
igrave 93
icircumflex 94
idieresis 95
ntilde 96
oacute 97
ograve 98
ocircumflex 99
odieresis 9a
otilde 9b
uacute 9c
ugrave 9d
ucircumflex 9e
udieresis 9f
dagger a0
degree a1
cent a2
sterling a3
section a4
bullet a5
paragraph a6
germandbls a7
registered a8
copyright a9
trademark aa
acute ab
dieresis ac
notequal ad
AE ae
Oslash af
infinity b0
plusminus b1
lessequal b2
greaterequal b3
yen b4
mu b5
partialdiff b6
Sigma b7
Pi b8
pi b9
integral ba
ordfeminine bb
ordmasculine bc
Omega bd
ae be
oslash bf
questiondown c0
exclamdown c1
logicalnot c2
radical c3
florin c4
approxequal c5
Delta c6
guillemotleft c7
guillemotright c8
ellipsis c9
nobrkspace ca
Agrave cb
OE ce
oe cf
endash d0
emdash d1
quotedblleft d2
quotedblright d3
quoteleft d4
quoteright d5
divide d6
lozenge d7
ydieresis d8
Ydieresis d9
fraction da
currency db
guilsinglleft dc
guilsinglright dd
fi de
fl df
daggerdbl e0
periodcentered e1
quotesinglbase e2
quotedblbase e3
perthousand e4
Acircumflex e5
Ecircumflex e6
Aacute e7
Edieresis e8
Egrave e9
Iacute ea
Icircumflex eb
Idieresis ec
Igrave ed
Oacute ee
Ocircumflex ef
apple f0
Ograve f1
Uacute f2
Ucircumflex f3
Ugrave f4
dotlessi f5
circumflex f6
tilde f7
macron f8
breve f9
dotaccent fa
ring fb
cedilla fc
hungarumlaut fd
ogonek fe
caron ff
);
%pca = qw();
1;
__END__