/*
 * File:
 *   testrdln.c
 * Author:
 *   Samuel A. Rebelsky
 * Version:
 *   1.0 of March 2003
 * Summary:
 *   A quick test of the rdln procedure.
 * Warning:
 *   This program has an incredible memory leak.
 */

/*********************************************************************
 * Headers *
 ***********/

#include <stdio.h>
#include <stdlib.h>
#include "rdln.h"


/*********************************************************************
 * Main *
 ********/

int main(int argc, char *argv[])
{
  char ch;
  FILE *infile;
  char *str;

  if (argc == 1) {
    infile = stdin;
  } 
  else {
    infile = fopen(argv[1], "r");
    if (infile == NULL) {
      fprintf(stderr, "Invalid file: %s\n", argv[1]);
      exit(EXIT_FAILURE);
    } /* if (infile == NULL) */
  } /* if (argc > 1) */

  while ((ch = fgetc(infile)) != EOF) {
    ungetc(ch, infile);
    printf("%s\n", rdln(infile));
  } /* while */

  if (argc > 1)
    fclose(infile);

  exit(EXIT_SUCCESS);
} /* main */