summaryrefslogtreecommitdiff
path: root/language/tibetan/sirlin/src/tfilt.c
diff options
context:
space:
mode:
Diffstat (limited to 'language/tibetan/sirlin/src/tfilt.c')
-rw-r--r--language/tibetan/sirlin/src/tfilt.c58
1 files changed, 58 insertions, 0 deletions
diff --git a/language/tibetan/sirlin/src/tfilt.c b/language/tibetan/sirlin/src/tfilt.c
new file mode 100644
index 0000000000..fc28e93ba8
--- /dev/null
+++ b/language/tibetan/sirlin/src/tfilt.c
@@ -0,0 +1,58 @@
+/*
+ * Copyright 1987 Jeff Sparkes
+ * Department of Computer Science
+ * Memorial University of Newfoundland
+ * St. John's, Nfld.
+ * garfield!jeff1, jeff1@garfield.mun.cdn
+ *
+ * Permission is granted to distribute and/or modify this code, provided
+ * this copyright notice remains intact.
+ * If you use it, let me know. If change it let me know. If you
+ * make money from it, send me a share.
+ */
+
+#include <stdio.h>
+#include "table.h"
+#include "token.h"
+
+main(argc, argv)
+ int argc;
+ char **argv;
+{
+ char c;
+
+ if (argc != 2) {
+ fprintf(stderr, "usage: %s input_file\n", argv[0]);
+ exit(11);
+ }
+ if ((input = fopen(argv[1], "r")) == NULL) {
+ perror(argv[1]);
+ exit(12);
+ }
+ /*
+ * Now the hard part begins.
+ */
+
+/* sws moved to tibdef.tex */
+/* printf("\\font\\tibetan=tib\\font\\tibsp=tibsp ");*/
+/* printf("\\font\\tibetan=tib\n\\font\\tibsp=tibsp\n");
+ printf("\\font\\tenrm=cmr10\n\n");
+*/
+ printf("\\input tibdef\n\n");
+
+ /* sws fixed loss of comments' first char */
+ while ((c = getc(input)) != EOF) {
+ if (c == '%') {
+ if ((c = getc(input)) == '%')
+ tparse();
+ else if (c == EOF)
+ exit(0);
+ else {
+ putchar('%');
+ putchar(c);
+ }
+ } else
+ putchar(c);
+ }
+ exit(0);
+}