diff options
author | Silvio Rhatto <rhatto@riseup.net> | 2013-01-13 15:37:49 -0200 |
---|---|---|
committer | Silvio Rhatto <rhatto@riseup.net> | 2013-01-13 15:37:49 -0200 |
commit | 454c6e3c77b3db507ee81875219089047fc2d5a3 (patch) | |
tree | 34ea351902ddd6094bc0a96a65b4bc07e9ee83d8 /misc/email/estripa-emails.c | |
download | scripts-454c6e3c77b3db507ee81875219089047fc2d5a3.tar.gz scripts-454c6e3c77b3db507ee81875219089047fc2d5a3.tar.bz2 |
Initial import
Diffstat (limited to 'misc/email/estripa-emails.c')
-rwxr-xr-x | misc/email/estripa-emails.c | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/misc/email/estripa-emails.c b/misc/email/estripa-emails.c new file mode 100755 index 0000000..66c5473 --- /dev/null +++ b/misc/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; + +} |