home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / microcrn / issue_40.arc / DAIMS.ARC / COMMANDS.CPP < prev    next >
Text File  |  1988-02-10  |  7KB  |  258 lines
  1. #include <stdio.h>
  2. #include <signal.h>
  3. #include <setjmp.h>
  4. #include <stream.h>
  5. #include <string.h>
  6. #include "chbuffer.hxx"
  7. #include "daims.hxx"
  8. /*
  9.  **
  10.  ** Routines to do the commands in yyparse.y
  11.  */
  12.  
  13. extern int yyparse();
  14.  
  15. char * progname;        /* for error messages */
  16. char * source_name;        /* current source file name */
  17. int lineno;            /* to say where they occurred */
  18. jmp_buf begin;            /* place to return to on error */
  19. extern int ydebug_f;
  20. extern int ldebug_f;
  21. int debug_f;
  22. int trace_f;
  23. int sstep_f;
  24.  
  25. void error(char *s, char * s2)
  26. {
  27.   cerr << s << " " << s2 << "\n";
  28.   exit(1);
  29. }
  30.  
  31. void prompt()
  32. {
  33.   cout << "DAIMS> ";
  34.   cout.flush();
  35. }
  36.  
  37. /* 
  38. -*++ help(): get help inside the DAIMS interpreter
  39. ** 
  40. ** (*++ history: 
  41. **      7 Dec 87    Bruce Eckel    Creation date
  42. ** ++*)
  43. ** 
  44. ** (*++ detailed: The help file contains a general message (printed when
  45. ** "help" is typed by itself) followed by specific messages.  Each specific
  46. ** message begins with the subject name(s) surrounded by curly braces.  If a
  47. ** name within the curly braces is matched, the following text is printed out,
  48. ** until the next '{'
  49. ** ++*)
  50. */
  51.  
  52. void help(char * subject)
  53. {
  54.   char ch;
  55.   char stg[80];
  56.   int NOT_FOUND = 1;
  57.   filebuf helpfile;
  58.   if (helpfile.open(HELP_FILE,input) == 0)
  59.     error("cannot open help file",HELP_FILE);
  60.   istream help(&helpfile);
  61.   if (debug_f) cerr << "subject `" << (int)subject << "'\n";
  62.   if(subject) {
  63.     if (debug_f) cerr << "looking for a subject: " << subject << "\n";
  64.     /* find the subject */
  65.     while (NOT_FOUND) {
  66.       while(help.get(ch)) {
  67.     if (debug_f) cerr.put(ch);
  68.     if (ch == '{') break;    /* subject names in "{}" */
  69.       }
  70.       if (debug_f) cerr << "found left brace\n";
  71.       if (help.eof()) { 
  72.     cerr << "subject \"" << subject << "\" not found\n";
  73.     return;
  74.       }
  75.       do {
  76.     help >> stg;        /* this is a nifty feature */
  77.     if (debug_f) cerr << "checking : " << stg << "\n";
  78.     NOT_FOUND = strcmp(stg,subject); /* zero if equal */
  79.     if(!NOT_FOUND) break;
  80.     if (debug_f) cerr << "NOT_FOUND = " << NOT_FOUND << "\n";
  81.       } while (*stg != '}');
  82.       if (debug_f) if (*stg == '}') cerr << " found right brace\n";
  83.     }
  84.     while(help.get(ch))
  85.       if (ch == '}') break;    /* find the other "subject" brace */
  86.     if (debug_f) cerr << "dumping subject text:\n";
  87.     while(help.get(ch)) {
  88.       if (ch == '{') break;
  89.       cout.put(ch);        /* dump the subject text */
  90.     }
  91.   }
  92.   else {
  93.     if (debug_f) cerr << "subject help";
  94.     while(help.get(ch)) {
  95.       if (ch == '{') break;
  96.       cout.put(ch);        /* dump the help subjects */
  97.     }
  98.   }
  99.   cout << "\n";
  100. } 
  101.  
  102.  
  103. /* 
  104. -*++ source(): get input from a new file, saving the old environment
  105. ** 
  106. ** (*++ history: 
  107. **      7 Dec 87    Bruce Eckel    Creation date
  108. ** ++*)
  109. ** 
  110. ** (*++ detailed: You can source files to any level, since the current
  111. ** environment is saved on the stack and restored when the end of the sourced
  112. ** file is encountered.
  113. ** ++*)
  114. */
  115.  
  116. void source(char * filename)
  117. {
  118.   char dummy[10];
  119.   int tmp_lineno = lineno;    /* save current line count */
  120.   filebuf sourcefile;
  121.   istream tmpcin(cin);        /* to hold cin while sourcing */
  122.   char * oldname = source_name;    /* remember what file called us */
  123.   source_name = filename;    /* source_name is global */
  124.   if (sourcefile.open(filename,input) == 0)
  125.     error("cannot open input file",filename);
  126.   istream source(&sourcefile);
  127.   cin = source;
  128.   lineno = 1;            /* start counting lines in the new file */
  129.   if(oldname && trace_f) {    /* if this file was called from another file */
  130.     cout << "trace: open new source file:\n   ";
  131.     buf.dump();
  132.     cout << "\n";
  133.   }
  134.   else if (trace_f) buf.erase();
  135.   while(yyparse()) {        /* parse the sourced file */
  136.     lineno++;
  137.     if(trace_f)    {        /* if tracing and sourcing a file,  echo */
  138.       cout << "trace: previous output generated by line " << lineno -1;
  139.       cout << " in sourced file " << "\"" << source_name << "\"" << ":\n   ";
  140.       buf.dump();
  141.     }
  142.     if (sstep_f) { cout << "press RET to continue "; gets(dummy); }
  143.   }
  144.   cin = tmpcin;            /* reset the input */
  145.   sourcefile.close();
  146.   lineno = tmp_lineno;        /* reset line number counting */
  147.   source_name = oldname;    /* so the error messages work right */
  148. }
  149.  
  150.  
  151. /* 
  152. -*++ option(): parses command line options
  153. ** 
  154. ** (*++ history: 
  155. **      7 Dec 87    Bruce Eckel    Creation date
  156. ** ++*)
  157. ** 
  158. ** (*++ detailed: 
  159. ** ++*)
  160. */
  161.  
  162. int option(char * opt)
  163. {
  164.     /* Returns true if more options may be in the string */
  165.  
  166.     switch (*opt) {
  167.       case 'y':    /* Yacc debug flag */
  168.     ydebug_f = 1;
  169.     return(1);
  170.       case 'l':    /* Lex debug flag */
  171.     ldebug_f = 1;
  172.     return(1);
  173.       case 'd':    /* general debug flag */
  174.     debug_f = 1;
  175.     return(1);
  176.       case 't': /* source file trace flag */
  177.     trace_f = 1;
  178.     return(1);
  179.       case 's': /* source file single-step flag */
  180.     sstep_f = 1;
  181.     return(1);
  182.       case '\0':    /* End of string */
  183.     return(0);
  184.       default:
  185.     printf("%s: bad option (%c)\n",*opt);
  186.     break;
  187.     }
  188.     return(0);
  189. }
  190.  
  191. void warning (char * s, char * t)
  192. {
  193.   cerr << progname << ": " << s;
  194.   if (t) cerr << " " << t;
  195.   if (source_name) 
  196.     cerr << " near line " << lineno << " in sourced file: " << source_name;
  197.   cerr << "\n";
  198. }
  199.  
  200.  
  201. void execerror(char * s, char * t)
  202. {
  203.   warning(s,t);
  204.   longjmp(begin,0);
  205. }
  206.  
  207. SIG_PF fpecatch()        /* catch floating-point exceptions */
  208. {
  209.   execerror("floating point exceptions", (char *)0 );
  210.   return (SIG_PF)0;
  211. }
  212.  
  213.  
  214. /* 
  215. -*++ main(): The main interpreter loop for daims
  216. ** 
  217. ** (*++ history: 
  218. **      7 Dec 87    Bruce Eckel    Creation date
  219. ** ++*)
  220. ** 
  221. ** (*++ detailed: Sets up to catch control-C's, Floating-point exceptions (not
  222. ** functional yet) parses the command line switches and starts sourcing a file
  223. ** if one was requested on the command line.
  224. ** ++*)
  225. */
  226.  
  227. main(int argc, char *argv[])
  228. {
  229.   progname = argv[0];
  230.   int yreturn;
  231.   char * opt;
  232.   char **av = argv;
  233.   int ac = argc;
  234.   debug_f = ydebug_f = ldebug_f = 0;
  235.  
  236.   /* Parse the command line */
  237.   while (--ac > 0 && (*++av)[0] == '-') {
  238.     for (opt = av[0]+1; option(opt); opt++)
  239.       ;
  240.     cout << "option " << av[0] << "\n";
  241.   }
  242.  
  243.   if (argc > 1 && (*av)[0] != '-') {  source(av[0]); }
  244.   cout << "type \"help\" for help\n";
  245.   setjmp(begin);
  246. //  signal(SIGFPE, fpecatch);
  247.  
  248.  
  249.   do {
  250.     prompt();
  251.     if(debug_f) cerr << "entering yyparse()\n";
  252.     yreturn = yyparse();
  253.     if (trace_f) buf.erase();
  254.     if(debug_f) cerr << "leaving yyparse()\n";
  255.     if (debug_f) cerr << " yyparse returned " << yreturn << "\n";
  256.   } while (yreturn);
  257. }
  258.