aboutsummaryrefslogtreecommitdiff
path: root/misc/email/estripa-emails.c
diff options
context:
space:
mode:
Diffstat (limited to 'misc/email/estripa-emails.c')
-rwxr-xr-xmisc/email/estripa-emails.c50
1 files changed, 0 insertions, 50 deletions
diff --git a/misc/email/estripa-emails.c b/misc/email/estripa-emails.c
deleted file mode 100755
index 66c5473..0000000
--- a/misc/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;
-
-}