/* 
 * 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;

}