From b4e2708c6f8cc2191c581aef404803478e65e678 Mon Sep 17 00:00:00 2001 From: Silvio Rhatto Date: Thu, 18 Sep 2014 16:47:55 -0300 Subject: Moved scripts to custom repos --- misc/email/estripa-emails.c | 50 --------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100755 misc/email/estripa-emails.c (limited to 'misc/email/estripa-emails.c') 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 - -main(int argc, char *argv[]) { - - FILE *fp1, *fp2; - char letra; - short flag = 0; - - if(argc != 3) { fprintf(stderr, "sintaxe: estripa \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