From 333b605b2afd472b823aeda0adf0e8b1ea9843c0 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 27 May 2019 02:41:51 +0100
Subject: initial commit from asl-1.41r8.tar.gz

---
 umlaut.c | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 umlaut.c

(limited to 'umlaut.c')

diff --git a/umlaut.c b/umlaut.c
new file mode 100644
index 0000000..77bfa84
--- /dev/null
+++ b/umlaut.c
@@ -0,0 +1,65 @@
+#include <stdio.h>
+#include <ctype.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include "sysdefs.h"
+#include "specchars.h"
+
+#define TMPNAME "tempfile"
+
+	int main(int argc, char **argv)
+{
+   FILE *src,*dest;
+   int ch;
+   int z,z2,res;
+   unsigned char cmdline[1024];
+   long charcnt,metacnt,crcnt;
+
+   if (argc<2)
+    {
+     fprintf(stderr,"usage: %s <file> [more files]\n",argv[0]);
+     exit(1);
+    }
+
+   for (z=1; z<argc; z++)
+    {
+     src=fopen(argv[z],OPENRDMODE);
+     if (src==NULL)
+      {
+       fprintf(stderr,"error opening %s for reading\n",argv[z]); exit(2);
+      }
+     dest=fopen(TMPNAME,OPENWRMODE);
+     if (dest==NULL)
+      {
+       fprintf(stderr,"error opening %s for writing\n",TMPNAME); exit(2);
+      }
+     charcnt=metacnt=crcnt=0;
+     while (!feof(src))
+      {
+       ch=fgetc(src); charcnt++;
+       switch (ch)
+        {
+         case EOF:
+          break;
+         case 13:
+          crcnt++; break;
+         default:
+          for (z2=0; *specchars[z2]!=0000; z2++)
+           if (ch==specchars[z2][0]) 
+            { fputc(specchars[z2][1],dest); metacnt++; break; }
+          if (*specchars[z2]==0000) fputc(ch,dest);
+        }
+      }
+     fclose(src); fclose(dest);
+     sprintf(cmdline,"mv %s %s",TMPNAME,argv[z]); res=system(cmdline);
+     if (res!=0)
+      {
+       fprintf(stderr,"command \"%s\" failed\n",cmdline); exit(2);
+      }
+     printf("%s: %ld char(s), %ld cr(s) stripped, %ld meta char(s) converted\n",
+            argv[z],charcnt,crcnt,metacnt);
+    } 
+
+   exit(0);
+}
-- 
cgit v1.2.3