diff options
Diffstat (limited to 'misc/email/estripa-emails.c')
-rwxr-xr-x | misc/email/estripa-emails.c | 50 |
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; - -} |