diff options
Diffstat (limited to 'fonts/icelandic/TeX/cptotex.c')
-rw-r--r-- | fonts/icelandic/TeX/cptotex.c | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/fonts/icelandic/TeX/cptotex.c b/fonts/icelandic/TeX/cptotex.c new file mode 100644 index 0000000000..7689af5371 --- /dev/null +++ b/fonts/icelandic/TeX/cptotex.c @@ -0,0 +1,91 @@ +/* pt.c Breytir 8-bita pc-stafrfi 7 bita fyrir TeX */ + +#include <stdio.h> +main() +{ + int c; + while ((c = getchar()) != EOF) { + switch (c) { + case '' : putchar(39); + putchar('a'); + break; + case '' : putchar(39); + putchar('e'); + break; + case '' : putchar(39); + putchar('i'); + break; + case '' : putchar(39); + putchar('o'); + break; + case '' : putchar(39); + putchar('u'); + break; + case '' : putchar(39); + putchar('y'); + break; + case '' : putchar(39); + putchar('d'); + break; + case '' : putchar(39); + putchar('t'); + break; + case '' : putchar(34); + putchar('x'); + break; + case '' : putchar(34); + putchar('o'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('A'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('E'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('I'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('O'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('U'); + break; + case '' : putchar('\\'); + putchar(39); + putchar(32); + putchar('Y'); + break; + case '' : putchar(39); + putchar('D'); + break; + case '' : putchar(39); + putchar('T'); + break; + case '' : putchar('\\'); + putchar('A'); + putchar('E'); + putchar(32); + break; + case '' : putchar('\\'); + putchar(34); + putchar(32); + putchar('O'); + break; + + default : putchar(c); + } + } +} + + |