summaryrefslogtreecommitdiff
path: root/fonts/icelandic/TeX/cptotex.c
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/icelandic/TeX/cptotex.c')
-rw-r--r--fonts/icelandic/TeX/cptotex.c91
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);
+ }
+ }
+}
+
+