git @ Cat's Eye Technologies Illgol-Grand-Mal / master 1. ILLGOL / src / scan.c
master

Tree @master (Download .tar.gz)

scan.c @master — raw · history · blame 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
/*
  scan.c for illgol.c
*/

FILE * scanfile;
char   token[256];

void scan_trace(char * s)
{
  /* fprintf(stderr, "%s: %s\n", s, token); */
}

void scan(void)
{
  char x;
  int i = 0;
RESTART_SCAN:    /* a regrettable label */
  if (feof(scanfile)) { token[0] = 0; return; }
  x = (char)getc(scanfile);
  if (feof(scanfile)) { token[0] = 0; return; }
  while (x <= ' ')
  {
    x = (char)getc(scanfile);
    if (feof(scanfile)) { token[0] = 0; return; }
  }

  if ((x >= 'a' && x <= 'z') || (x >= 'A' && x <= 'Z'))
  {
    while ((x >= 'a' && x <= 'z') || (x >= 'A' && x <= 'Z') ||
	   (x >= '0' && x <= '9') || (x == '\''))
    {
      token[i++] = x;
      x = (char)getc(scanfile);
      if (feof(scanfile)) { token[0] = 0; return; }
    }
    ungetc(x, scanfile);
    token[i] = 0;
    if(!strcmp(token, "NB"))
    {
      x = (char)getc(scanfile);
      if (feof(scanfile)) { token[0] = 0; return; }
      while (x != '\n')
      {
	x = (char)getc(scanfile);
	if (feof(scanfile)) { token[0] = 0; return; }
      }
      i = 0;
      goto RESTART_SCAN;
    }
    scan_trace("Alphanumeric");
    return;
  }
  if (x >= '0' && x <= '9')
  {
    while (x >= '0' && x <= '9')
    {
      token[i++] = x;
      x = (char)getc(scanfile);
      if (feof(scanfile)) { token[0] = 0; return; }
    }
    ungetc(x, scanfile);
    token[i] = 0;
    scan_trace("Digit");
    return;
  }
  if (x == '"')
  {
    token[i++] = x;
    x = (char)getc(scanfile);
    if (feof(scanfile)) { token[0] = 0; return; }
    while (x != '"')
    {
      token[i++] = x;
      x = (char)getc(scanfile);
      if (feof(scanfile)) { token[0] = 0; return; }
    }
    token[i] = 0;
    scan_trace("String");
    return;
  }
  if (x == '+' || x == '-' || x == '>' || x == '<')
  {
    while (x == '+' || x == '-' || x == '>' || x == '<' || x == '=')
    {
      token[i++] = x;
      x = (char)getc(scanfile);
      if (feof(scanfile)) { token[0] = 0; return; }
    }
    ungetc(x, scanfile);
    token[i] = 0;
    scan_trace("Compound Symbol");
    return;
  }
  if (x == '(' || x == ')' || x == '=' || x == ';' || x == '*' || x == '/'
	       || x == '|' || x == '&' || x == '^' || x == '.' || x == '!'
	       || x == '{' || x == '}' || x == ',' || x == '[' || x == ']'
	       || x == '~' || x == '?' || x == '#')
  {
    token[0] = x;
    token[1] = 0;
    scan_trace("Discrete Symbol");
    return;
  }
  token[0] = 0;
}