tools/genmodule/fileread.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3
   4     Desc: The functions to read lines from a file
   5 */
   6 #include <stdio.h>
   7 #include <string.h>
   8 #include <stdarg.h>
   9 #include <stdlib.h>
  10
  11 static char *line = NULL; /* The current read file */
  12 static char *filename = NULL; /* The name of the opened file */
  13 static FILE *file = NULL; /* The opened file */
  14 static unsigned int slen = 0; /* The allocation length pointed to be line */
  15 static unsigned int lineno = 0; /* The line number, will be increased by one everytime a line is read */
  16
  17 int fileopen(const char *fname)
  18 {
  19     if (file!=NULL)
  20     {
  21         fclose(file);
  22         free(filename);
  23         file = NULL;
  24         filename = NULL;
  25         lineno = 0;
  26     }
  27     file = fopen(fname, "r");
  28     if (file!=NULL)
  29         filename = strdup(fname);
  30
  31     return file!=NULL;
  32 }
  33
  34 void fileclose(void)
  35 {
  36     if (file!=NULL)
  37     {
  38         fclose(file);
  39         free(filename);
  40         file = NULL;
  41         filename = NULL;
  42     }
  43 }
  44
  45 char *readline(void)
  46 {
  47     char haseol;
  48
  49     if (file==NULL || feof(file))
  50         return NULL;
  51
  52     if (slen==0)
  53     {
  54         slen = 256;
  55         line = malloc(slen);
  56     }
  57     if (fgets(line, slen, file))
  58     {
  59         haseol = line[strlen(line)-1]=='\n';
  60         if (haseol) line[strlen(line)-1]='\0';
  61
  62         while (!(haseol || feof(file)))
  63         {
  64             slen += 256;
  65             line = (char *)realloc(line, slen);
  66             fgets(line+strlen(line), slen, file);
  67             haseol = line[strlen(line)-1]=='\n';
  68             if (haseol) line[strlen(line)-1]='\0';
  69         }
  70     }
  71     else
  72         line[0]='\0';
  73     lineno++;
  74
  75     return line;
  76 }
  77
  78 void filewarning(const char *format, ...)
  79 {
  80     va_list ap;
  81
  82     fprintf(stderr, "%s:%d:warning ", filename, lineno);
  83
  84     va_start(ap, format);
  85     vfprintf(stderr, format, ap);
  86     va_end(ap);
  87 }
  88
  89 void exitfileerror(int code, const char *format, ...)
  90 {
  91     va_list ap;
  92
  93     fprintf(stderr, "%s:%d:error ", filename, lineno);
  94
  95     va_start(ap, format);
  96     vfprintf(stderr, format, ap);
  97     va_end(ap);
  98
  99     exit(code);
 100 }