Someone

#include <stdio.h>#include "fields.h"#define talloc(ty, sz) (ty *) malloc (sz * sizeof(ty))#define strdup(s) ((char *) strcpy(talloc(char, strlen(s)+1), s))static IS make_inputstruct(filename, key)char *filename; char *key;               /* "f" for regular file or stdin if filename is NULL */                         /* "p" if filename is a command for popen */{  IS is;  int file;    if (strcmp(key, "f") == 0) {    file = 1;  } else if (strcmp(key, "p") == 0) {    file = 0;  } else {    return NULL;  }  is = talloc(struct inputstruct, 1);  is->text1[MAXLEN-1] = '\0';  is->NF = 0;  is->line = 0;  if (filename == NULL) {    is->name = "stdin";    is->f = stdin;  } else {    is->name = filename;    is->file = file;    if (file) {      is->f = fopen(filename, "r");    } else {      is->f = popen(filename, "r");    }    if (is->f == NULL) {      free(is);      return NULL;    }  }  return is;}  IS new_inputstruct(filename)   /* use NULL for stdin.  Calls malloc */char *filename;{  return make_inputstruct(filename, "f");}IS pipe_inputstruct(command)char *command;{  return make_inputstruct(command, "p");}int get_line(is)IS is;{  int i, len;  int f;  char *tmp;  char lastchar;  char *line;  is->NF = 0;  if (fgets(is->text1, MAXLEN-1, is->f) == NULL) {    is->NF = -1;    return -1;  }  is->line++;  strcpy(is->text2, is->text1);  line = is->text2;  lastchar = ' ';  for (i = 0; line[i] != '\0' && i < MAXLEN-1; i++) {    if (isspace(line[i])) {      lastchar = line[i];      line[i] = '\0';    } else {      if (isspace(lastchar)) {        is->fields[is->NF] = line+i;        is->NF++;      }      lastchar = line[i];    }  }  return is->NF;}void jettison_inputstruct(is)IS is;{  if (is->f != stdin) {    if (is->file) {      fclose(is->f);    } else {      pclose(is->f);    }  }  free(is);  return;}