blob: 66c547365b435fc61ebd7f1ee75eda7e72c5123c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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;
}
|
