Sorting scripts

1 files changed, 0 insertions, 50 deletions

diff --git a/email/estripa-emails.c b/email/estripa-emails.c
deleted file mode 100755
index 66c5473..0000000
--- a/email/estripa-emails.c
+++ /dev/null
@@ -1,50 +0,0 @@
-/* 
- * 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;
-
-}