home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / !runtime / msdos.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-18  |  3.8 KB  |  184 lines  |  [TEXT/R*ch]
  1. #include <stddef.h>
  2. #include <std.h>
  3. #include <dos.h>
  4. #include "mlvalues.h"
  5. #include "signals.h"
  6. #include "instruct.h"
  7. #include "fail.h"
  8.  
  9. unsigned char raise_break_exn[] = { ATOM, BREAK_EXN, RAISE };
  10.  
  11. static int catch_break = 0;
  12.  
  13. value sys_catch_break(onoff)
  14.      value onoff;
  15. {
  16.   union REGS r;
  17.   catch_break = Tag_val(onoff);
  18.   r.x.ax = 0x3301;
  19.   r.x.dx = catch_break ? 2 : 1;
  20.   int86(0x21, &r, &r);
  21.   return Atom(0);
  22. }
  23.  
  24. void poll_break()
  25. {
  26.   union REGS r;
  27.   if (catch_break == 0) return;
  28.   r.x.ax = 0x3303;
  29.   int86(0x21, &r, &r);
  30.   if (r.x.dx != 0) {
  31.     signal_handler = raise_break_exn;
  32.     signal_number = 0;
  33.     execute_signal();
  34.   } 
  35. }
  36.  
  37. /* Special input function for MS-DOS (to take advantage of external line
  38.    editors when reading from the console. */
  39.  
  40. static struct {
  41.   unsigned char max_len;
  42.   unsigned char act_len;
  43.   char data[200];
  44. } read_buffer;
  45.  
  46. static int stdin_is_console = -1;
  47. static int stdin_at_eof = 0;    /* Valid only if stdin_is_console==1 */
  48.  
  49. int msdos_read(fd, ptr, len)
  50.      int fd;
  51.      char * ptr;
  52.      unsigned len;
  53. { 
  54.   if (fd == 0) {
  55.     if (stdin_is_console == -1) {
  56.       union REGS regs;         
  57.       regs.x.ax = 0x4400;
  58.       regs.x.bx = fd;
  59.       intdos(®s, ®s);
  60.       stdin_is_console = (regs.x.dx & 0x81) == 0x81;
  61.      }
  62.     /* Modified for Moscow SML 1994-08-23 to detect control-Z = 0x1A */
  63.     if (stdin_is_console)
  64.       if (stdin_at_eof) 
  65.     return 0;
  66.       else
  67.     {
  68.           read_buffer.max_len = sizeof(read_buffer.data) - 1;
  69.           if (len <= read_buffer.max_len) read_buffer.max_len = len - 1;
  70.           if (bdosptr(0xA, &read_buffer, 0) != 0) poll_break();
  71.           bdos(0x2, '\n', 0);
  72.           read_buffer.data[read_buffer.act_len] = '\n';
  73.           bcopy(read_buffer.data, ptr, read_buffer.act_len + 1);
  74.       {int i;
  75.            for (i=0; (i<read_buffer.act_len)&&(read_buffer.data[i]!=0x1A);
  76.          i++);
  77.            if (read_buffer.data[i] == 0x1A)
  78.          { 
  79.            stdin_at_eof = 1;
  80.            return i;
  81.          }
  82.        else
  83.          return read_buffer.act_len + 1;
  84.       }
  85.     }
  86.       }
  87.       return read(fd, ptr, len);
  88. }
  89.  
  90. /* Search path function */
  91.  
  92. char * searchpath(name)
  93.      char * name;
  94. {
  95.   static char fullname[256];
  96.   char * path;
  97.   char * p;
  98.   char * q;
  99.  
  100.   if (name[1] == ':') return name;
  101.   for (p = name; *p != 0; p++) {
  102.     if (*p == '\\') return name;
  103.   }
  104.   path = getenv("PATH");
  105.   if (path == 0) return 0;
  106.   while(1) {
  107.     p = fullname;
  108.     while (*path != 0 && *path != ';') {
  109.       *p++ = *path++;
  110.     }
  111.     if (p != fullname) *p++ = '\\';
  112.     q = name;
  113.     while (*q != 0) {
  114.       *p++ = *q++;
  115.     }
  116.     *p = 0;
  117.     if (access(fullname, 4) == 0) return fullname;
  118.     *p++ = '.';
  119.     *p++ = 'e';
  120.     *p++ = 'x';
  121.     *p++ = 'e';
  122.     *p = 0;
  123.     if (access(fullname, 4) == 0) return fullname;
  124.     if (*path == 0) return 0;
  125.     path++;
  126.   }
  127. }
  128.  
  129. /* To reconstruct the command-line arguments when they are passed through
  130.    the environment. */
  131.  
  132. char ** parse_args(cmdname, cmdline)
  133.     char * cmdname, * cmdline;
  134. {
  135.   char * p;
  136.   int argc;
  137.   char ** argv;
  138.   int i;
  139.   
  140.   p = cmdline;
  141.   argc = 1;
  142. inword:
  143.   switch (*p++) {
  144.     case 0  : argc++; goto finished;
  145.     case ' ': p[-1] = 0; argc++; goto skipblanks;
  146.     default : goto inword;
  147.   }
  148. skipblanks:
  149.   switch (*p++) {
  150.     case 0  : goto finished;
  151.     case ' ': goto skipblanks;
  152.     default : goto inword;
  153.   }
  154. finished:
  155.   argv = (char **) malloc((argc + 1) * sizeof(char *));
  156.   argv[argc] = NULL;
  157.   argv[0] = cmdname;
  158.   for (i = 1, p = cmdline; i < argc; i++) {
  159.     while(*p == ' ') p++;
  160.     argv[i] = p;
  161.     while(*p++ != 0) /*nothing*/;
  162.   }
  163.   return argv;
  164. }
  165.  
  166. char ** check_args(argv)
  167.     char ** argv;
  168. {
  169.   char * cmdline;
  170.  
  171.   if (argv[1] == NULL && (cmdline = getenv("*")) != NULL)
  172.     return parse_args(argv[0], cmdline);
  173.   else
  174.     return argv;
  175. }
  176.  
  177. /* EMX provides the built-in chdir2 which would make this obsolete: */
  178. value sml_setdisk(volno)        /* ML */
  179.      value volno;
  180. {
  181.   setdisk(Long_val(volno));
  182.   return Atom(0);
  183. }
  184.