From f32ec8c49226dc860c38a2c36d7587d1d27419b8 Mon Sep 17 00:00:00 2001
From: Silvio Rhatto <rhatto@riseup.net>
Date: Thu, 18 Sep 2014 16:38:01 -0300
Subject: Initial import

---
 email/estripa-emails.c | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 email/estripa-emails.c

(limited to 'email/estripa-emails.c')

diff --git a/email/estripa-emails.c b/email/estripa-emails.c
new file mode 100755
index 0000000..66c5473
--- /dev/null
+++ b/email/estripa-emails.c
@@ -0,0 +1,50 @@
+/* 
+ * Copyleft 2003:
+ *  
+ * Esse software é distribuído através da licença URUBU:
+ * você só pode fazer um número de cópias cuja paridade
+ * seja a mesma do dia do mês que você se encontra;
+ * modificações são permitidas em qualquer dia da semana;
+ *                         
+ * estripa.c
+ * rhatto@riseup.net
+ *
+ */
+
+#include <stdio.h>
+
+main(int argc, char *argv[]) {
+
+  FILE *fp1, *fp2;
+  char letra;
+  short flag = 0;
+
+  if(argc != 3) { fprintf(stderr, "sintaxe: estripa <origem> <destino>\n"); return 0; }
+
+  fp1 = fopen(argv[1], "rb");
+  fp2 = fopen(argv[2], "wb");
+
+  if(fp1 == (FILE *)0 || fp2 == (FILE *)0) {
+
+    fprintf(stderr, "erro ao abrir arquivo\n");
+    exit(1);
+
+  }
+
+  while((letra = getc(fp1)) != EOF) {
+    
+    if(letra == '<') { flag = 1; }
+    else if(flag && (letra == '>')) { flag = 0; fprintf(fp2, ", "); }
+    
+    if(flag && (letra != '<')) { putc(letra, fp2); }
+    
+  }
+
+  fprintf(fp2, "\n");
+
+  fclose(fp1);
+  fclose(fp2);
+
+  return 0;
+
+}
-- 
cgit v1.2.3