share/examples/vim/accents2sgml.pl


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

#!/usr/bin/perl
# $FreeBSD$
# Transform Iso-8859-1 accents in SGML notation
while (<>) {
s/�/&Agrave;/g;
s/�/&Aacute;/g;
s/�/&Acirc;/g;
s/�/&Atilde;/g;
s/�/&Auml;/g;
s/�/&Aring;/g;
s/�/&Aring;/g;
s/�/&AElig;/g;
s/�/&Ccedil;/g;
s/�/&Egrave'/g;
s/�/&Eacute;/g;
s/�/&Ecirc;/g;
s/�/&Euml;/g;
s/�/&Igrave;/g;
s/�/&Iacute;/g;
s/�/&Icirc;/g;
s/�/&Iuml;/g;
s/�/&ETH;/g;
s/�/&Ntilde;/g;
s/�/&Ograve;/g;
s/�/&Oacute;/g;
s/�/&Ocirc;/g;
s/�/&Otilde;/g;
s/�/&Ouml;/g;
s/�/&times;/g;
s/�/&Oslash;/g;
s/�/&Ugrave;/g;
s/�/&Uacute;/g;
s/�/&Ucirc;/g;
s/�/&Uuml;/g;
s/�/&Yacute;/g;
s/�/&THORN;/g;
s/�/&szlig;/g;
s/�/&agrave;/g;
s/�/&aacute;/g;
s/�/&acirc;/g;
s/�/&atilde;/g;
s/�/&auml;/g;
s/�/&aring;/g;
s/�/&aring;/g;
s/�/&aelig;/g;
s/�/&ccedil;/g;
s/�/&egrave;/g;
s/�/&eacute;/g;
s/�/&ecirc;/g;
s/�/&euml;/g;
s/�/&igrave;/g;
s/�/&iacute;/g;
s/�/&icirc;/g;
s/�/&iuml;/g;
s/�/&eth;/g;
s/�/&ntilde;/g;
s/�/&ograve;/g;
s/�/&oacute;/g;
s/�/&ocirc;/g;
s/�/&otilde;/g;
s/�/&ouml;/g;
s/�/&divide;/g;
s/�/&oslash;/g;
s/�/&ugrave;/g;
s/�/&uacute;/g;
s/�/&ucirc;/g;
s/�/&uuml;/g;
s/�/&yacute;/g;
s/�/&thorn;/g;
s/�/&yuml;/g;
print;
}