src/inout.c

   1 /*
   2 ** inout.c
   3 ** Provide function to realise the input/output function and debugger
   4 ** facilities.
   5 */
   6
   7 char *rcs_inout="$Id: inout.c,v 1.2 1993/12/22 21:15:16 roberto Exp $";
   8
   9 #include <stdio.h>
  10 #include <string.h>
  11
  12 #include "opcode.h"
  13 #include "hash.h"
  14 #include "inout.h"
  15 #include "table.h"
  16
  17 /* Exported variables */
  18 int lua_linenumber;
  19 int lua_debug;
  20 int lua_debugline;
  21
  22 /* Internal variables */
  23 #ifndef MAXFUNCSTACK
  24 #define MAXFUNCSTACK 32
  25 #endif
  26 static struct { int file; int function; } funcstack[MAXFUNCSTACK];
  27 static int nfuncstack=0;
  28
  29 static FILE *fp;
  30 static char *st;
  31 static void (*usererror) (char *s);
  32
  33 /*
  34 ** Function to set user function to handle errors.
  35 */
  36 void lua_errorfunction (void (*fn) (char *s))
  37 {
  38  usererror = fn;
  39 }
  40
  41 /*
  42 ** Function to get the next character from the input file
  43 */
  44 static int fileinput (void)
  45 {
  46  int c = fgetc (fp);
  47  return (c == EOF ? 0 : c);
  48 }
  49
  50 /*
  51 ** Function to get the next character from the input string
  52 */
  53 static int stringinput (void)
  54 {
  55  st++;
  56  return (*(st-1));
  57 }
  58
  59 /*
  60 ** Function to open a file to be input unit.
  61 ** Return 0 on success or 1 on error.
  62 */
  63 int lua_openfile (char *fn)
  64 {
  65  lua_linenumber = 1;
  66  lua_setinput (fileinput);
  67  fp = fopen (fn, "r");
  68  if (fp == NULL) return 1;
  69  if (lua_addfile (fn)) return 1;
  70  return 0;
  71 }
  72
  73 /*
  74 ** Function to close an opened file
  75 */
  76 void lua_closefile (void)
  77 {
  78  if (fp != NULL)
  79  {
  80   lua_delfile();
  81   fclose (fp);
  82   fp = NULL;
  83  }
  84 }
  85
  86 /*
  87 ** Function to open a string to be input unit
  88 */
  89 int lua_openstring (char *s)
  90 {
  91  lua_linenumber = 1;
  92  lua_setinput (stringinput);
  93  st = s;
  94  {
  95   char sn[64];
  96   sprintf (sn, "String: %10.10s...", s);
  97   if (lua_addfile (sn)) return 1;
  98  }
  99  return 0;
 100 }
 101
 102 /*
 103 ** Function to close an opened string
 104 */
 105 void lua_closestring (void)
 106 {
 107  lua_delfile();
 108 }
 109
 110 /*
 111 ** Call user function to handle error messages, if registred. Or report error
 112 ** using standard function (fprintf).
 113 */
 114 void lua_error (char *s)
 115 {
 116  if (usererror != NULL) usererror (s);
 117  else                       fprintf (stderr, "lua: %s\n", s);
 118 }
 119
 120 /*
 121 ** Called to execute  SETFUNCTION opcode, this function pushs a function into
 122 ** function stack. Return 0 on success or 1 on error.
 123 */
 124 int lua_pushfunction (int file, int function)
 125 {
 126  if (nfuncstack >= MAXFUNCSTACK-1)
 127  {
 128   lua_error ("function stack overflow");
 129   return 1;
 130  }
 131  funcstack[nfuncstack].file = file;
 132  funcstack[nfuncstack].function = function;
 133  nfuncstack++;
 134  return 0;
 135 }
 136
 137 /*
 138 ** Called to execute  RESET opcode, this function pops a function from
 139 ** function stack.
 140 */
 141 void lua_popfunction (void)
 142 {
 143  nfuncstack--;
 144 }
 145
 146 /*
 147 ** Report bug building a message and sending it to lua_error function.
 148 */
 149 void lua_reportbug (char *s)
 150 {
 151  char msg[1024];
 152  strcpy (msg, s);
 153  if (lua_debugline != 0)
 154  {
 155   int i;
 156   if (nfuncstack > 0)
 157   {
 158    sprintf (strchr(msg,0),
 159          "\n\tin statement begining at line %d in function \"%s\" of file \"%s\"",
 160          lua_debugline, s_name(funcstack[nfuncstack-1].function),
 161          lua_file[funcstack[nfuncstack-1].file]);
 162    sprintf (strchr(msg,0), "\n\tactive stack\n");
 163    for (i=nfuncstack-1; i>=0; i--)
 164     sprintf (strchr(msg,0), "\t-> function \"%s\" of file \"%s\"\n",
 165                             s_name(funcstack[i].function),
 166                             lua_file[funcstack[i].file]);
 167   }
 168   else
 169   {
 170    sprintf (strchr(msg,0),
 171          "\n\tin statement begining at line %d of file \"%s\"",
 172          lua_debugline, lua_filename());
 173   }
 174  }
 175  lua_error (msg);
 176 }
 177