input.c

Go to the documentation of this file.

#include "standard.h"
#include <stdarg.h>
#include "ansi.h"


/*
 * Here are the input functions you should be using:
 *
 * int get_int();
 * double get_real();
 * void get_str(char *s);
 * 
 */

#define STRLEN 256

extern int debug;
static FILE *input_file;  /*Rajiv */
static char input_filename[STRLEN];
static int line_number=0;  /* After first read_line(), line_number = 1 */


int exist(char *fn)
     /*
      * Returns 1 if file exists (i.e. can be read from).  Returns 0 if it doesn't.
      */
{
  int x = open(fn);
  if (x != -1) {
    close(x);
    x = 1;
  } else
    x = 0;
  return (x);
}

void banner(char *message)
{
  int i;
  int x = (75 - strlen(message)) / 2;

  printf("+-----------------------------------------------------------------------------+\n");
  printf(": ");
  for (i=0; i<x; i++)
    putchar(' ');
  printf(message);
  if (((75 - strlen(message)) % 2) == 1)
    putchar(' ');
  for (i=0; i<x; i++)
    putchar(' ');  
  printf(" :\n");
  printf("+-----------------------------------------------------------------------------+\n");
}


#if(OLDHDR)
void hdr(char *msg)
{
  printf("              .-------- --- -- - -  -     -       -      -- ---.\n");
  printf("              : %-46s :\n", msg);
  printf("              `---- ---- - --          -  ---   -    - -- -----'\n");
}
#else
void hdr(char *msg)
{
  printf("              ##################################################\n");
  printf("              # %-46s #\n", msg);
  printf("              ##################################################\n");
}
#endif

void hdr2(char *msg)
{
  printf("          +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n");
  printf("          | %-55s |\n", msg);
  printf("          +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n");
}

void prompt(char *s)
{
  printf("+-----------------------------------------------------------------------------+\n");
  printf(":                                                                             :\n");
  printf("+-----------------------------------------------------------------------------+\n");
  up(2);
  right(2);
  printf(s);
  fflush(stdout);
}


static void read_line1(char *s)
     /* 
      * Read at most one line from the file.  
      */
{
  int i = 0;
  int done = 0;
  int escape = 0;
  char c;

  s[0]='\0';

  while(!done && !feof(input_file)) {
    c = fgetc(input_file);
    if (escape) {
      s[i++]=c;
      escape=0;
    }
    else {
      if (c == '\\') {
        escape = 1;
      }
      else {
        if (c == '\n'){
          done = 1;
        }
        else {
          if (feof(input_file))
            done = 1;
          else
            s[i++] = c;
        }
      }
    }
  }
  s[i]='\0';
  line_number++;
}


static int strip_comments(char *s)
     /*
      * Strips anything including and after a '#' or ';'.
      */
{
  int i=0;
  int comments=0;
  int len=strlen(s);
  while (i < strlen(s)) {
    if ((s[i]=='#') || (s[i]==';')) {
      comments = 1;
      s[i]='\0';
    }
    i++;
  }
  return(comments);
}


static void strip_ending_whitespace(char *s)
{
  int x = strlen(s)-1;
  if (x > 0) {
    while (x > 0 && (s[x]==' ' || s[x]=='\t')) {
      s[x] = '\0';
      x--;
    }
  }
}

static void read_line(char *s)
     /* 
      * Read a line, but ignore lines that start with '#' or ';' 
      *
      *  s[0] will end up being == '\0' when we reach EOF.
      */
{
  read_line1(s);
  strip_comments(s);
  strip_ending_whitespace(s);
}


char upper(char c)
     /*
      * Return the uppercase version of the input character,
      * or just return c if c is not in 'a'..'z'.
      */
{
  if ((c >= 'a') && (c <= 'z'))
    return (c - 'a' + 'A');
  else
    return c;
}

int equals(char *s1, char *s2)
     /*
      * Returns 1 if strings are equal, 0 if they are not.
      */
{
  int i=0;
  while ((s1[i]!='\0') && (s2[i]!='\0') && (upper(s1[i])==upper(s2[i])))
    i++;
  if (s1[i]==s2[i])
    return 1;
  else
    return 0;
}


int get_int(void)
     /*
      * Returns an integer read from input
      */
{
  char s[STRLEN];
  int x;

  read_line(s);
  x = atoi(s);
  if (input_file != stdin)
    printf("%d\n", x);
  return(x);
}


double get_real(void)
     /*
      * Read a floating point number from input.
      */
{
  char s[STRLEN];
  double x;
  read_line(s);
  x = atof(s);
  if (input_file != stdin)
    printf("%f\n", x);
  return(x);
}



void get_str(char *s)
     /*
      * Read a string from input.
      */
{
  read_line(s);
  if ((input_file != stdin) && (debug))
    printf("%s\n", s);
}


char *text(int x)
     /* 
      * returns a string corresponding a text description of the integer x 
      */
{
  static char sx[STRLEN];
  switch(x) {
    case 0: return("Zero");
    case 1: return("One");
    case 2: return("Two");
    case 3: return("Three");
    case 4: return("Four");
    case 5: return("Five");
    case 6: return("Six");
    case 7: return("Seven");
    case 8: return("Eight");
    case 9: return("Nine");
    case 10: return("Ten");
    case 11: return("Eleven");
    case 12: return("Twelve");
    case 13: return("Thirteen");
    case 14: return("Fourteen");
    case 15: return("Fifteen");
    case 16: return("Sixteen");
    case 17: return("Seventeen");
    case 18: return("Eighteen");
    case 19: return("Nineteen");
    case 20: return("Twenty");
    default: sprintf(sx, "%d", x); return(sx);
  }
}

void open_input_file(char *fn)
{
  if ((input_file != stdin) && (input_file != NULL))
    fclose(stdin);
  input_file = fopen(fn, "r");
  if (input_file != NULL) {
    line_number = 0;
  }
  else {
    error("open_input_file", "Couldn't open config file");
  }
  strcpy(input_filename, fn);
}

void close_input_file(void)
{
  if ((input_file != stdin) && (input_file != NULL))
    fclose(input_file);
  input_file = stdin;
}


int eof_input_file()
{
  return (feof(input_file));
}

---