home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / ami_nuweb0.87c.lha / input.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-12  |  5.4 KB  |  130 lines
  1. #include "global.h"
  2. static FILE *source_file;  /* the current input file */
  3. static int source_peek;
  4. static int double_at;
  5. static int include_depth;
  6. static struct {
  7.   FILE *file;
  8.   char *name;
  9.   int line;
  10. } stack[10];
  11. int source_get(void)
  12. {
  13.   int c = source_peek;
  14.   switch (c) {
  15.     case EOF:  {
  16.                  fclose(source_file);
  17.                  if (include_depth) {
  18.                    include_depth--;
  19.                    source_file = stack[include_depth].file;
  20.                    source_line = stack[include_depth].line;
  21.                    source_name = stack[include_depth].name;
  22.                    source_peek = getc(source_file);
  23.                    c = source_get();
  24.                  }
  25.                }
  26.                return c;
  27.     case '@':  {
  28.                  c = getc(source_file);
  29.                  if (double_at) {
  30.                    source_peek = c;
  31.                    double_at = FALSE;
  32.                    c = '@';
  33.                  }
  34.                  else
  35.                    switch (c) {
  36.                      case 'i': {
  37.                                  char name[100];
  38.                                  if (include_depth >= 10) {
  39.                                #ifdef _AMIGA
  40.                                    fprintf(stderr, get_string(MSG_ERROR_42B1),
  41.                                            command_name, source_name, source_line);
  42.                                #else
  43.                                    fprintf(stderr, "%s: include nesting too deep (%s, %d)\n",
  44.                                            command_name, source_name, source_line);
  45.                                #endif
  46.                                    exit(EXIT_FAILURE);
  47.                                  }
  48.                                  {
  49.                                      char *p = name;
  50.                                      do
  51.                                        c = getc(source_file);
  52.                                      while (c == ' ' || c == '\t');
  53.                                      while (isgraph(c)) {
  54.                                        *p++ = c;
  55.                                        c = getc(source_file);
  56.                                      }
  57.                                      *p = '\0';
  58.                                      if (c != '\n') {
  59.                                  #ifdef _AMIGA
  60.                                        fprintf(stderr, get_string(MSG_ERROR_43A),
  61.                                                command_name, source_name, source_line);
  62.                                  #else
  63.                                        fprintf(stderr, "%s: unexpected characters after file name (%s, %d)\n",
  64.                                                command_name, source_name, source_line);
  65.                                  #endif
  66.                                        exit(EXIT_FAILURE);
  67.                                      }
  68.                                  }
  69.                                  stack[include_depth].name = source_name;
  70.                                  stack[include_depth].file = source_file;
  71.                                  stack[include_depth].line = source_line + 1;
  72.                                  include_depth++;
  73.                                  source_line = 1;
  74.                                  source_name = save_string(name);
  75.                                  source_file = fopen(source_name, "r");
  76.                                  if (!source_file) {
  77.                                #ifdef _AMIGA
  78.                                    fprintf(stderr, get_string(MSG_ERROR_42B2),
  79.                                     command_name, source_name);
  80.                                #else
  81.                                    fprintf(stderr, "%s: can't open include file %s\n",
  82.                                     command_name, source_name);
  83.                                #endif
  84.                                    exit(EXIT_FAILURE);
  85.                                  }
  86.                                  source_peek = getc(source_file);
  87.                                  c = source_get();
  88.                                }
  89.                                break;
  90.                      case 'f': case 'm': case 'u':
  91.                      case 'd': case 'o': case 'D': case 'O':
  92.                      case '{': case '}': case '<': case '>': case '|':
  93.                                source_peek = c;
  94.                                c = '@';
  95.                                break;
  96.                      case '@': source_peek = c;
  97.                                double_at = TRUE;
  98.                                break;
  99.                #ifdef _AMIGA
  100.                      default:  fprintf(stderr, get_string(MSG_ERROR_42A),
  101.                                        command_name, source_name, source_line);
  102.                #else
  103.                      default:  fprintf(stderr, "%s: bad @ sequence (%s, line %d)\n",
  104.                                        command_name, source_name, source_line);
  105.                #endif
  106.                                exit(EXIT_FAILURE);
  107.                    }
  108.                }
  109.                return c;
  110.     case '\n': source_line++;
  111.     default:   source_peek = getc(source_file);
  112.                return c;
  113.   }
  114. } void source_open(char *name)
  115. {
  116.   source_file = fopen(name, "r");
  117.   if (!source_file) {
  118. #ifdef _AMIGA
  119.     fprintf(stderr, get_string(MSG_ERROR_43C), command_name, name);
  120. #else
  121.     fprintf(stderr, "%s: couldn't open %s\n", command_name, name);
  122. #endif
  123.     exit(EXIT_FAILURE);
  124.   }
  125.   source_name = name;
  126.   source_line = 1;
  127.   source_peek = getc(source_file);
  128.   double_at = FALSE;
  129.   include_depth = 0;
  130. }