ccl/cclsh.c

   1 /* CCL shell.
   2  * Europagate 1995
   3  *
   4  * $Log: cclsh.c,v $
   5  * Revision 1.1  1995/02/13 12:35:21  adam
   6  * First version of CCL. Qualifiers aren't handled yet.
   7  *
   8  */
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12
  13 #include "ccl.h"
  14
  15 static int debug = 0;
  16 static char *prog;
  17
  18 int main (int argc, char **argv)
  19 {
  20     prog = *argv;
  21     while (--argc > 0)
  22     {
  23         ++argv;
  24         if (**++argv == '-')
  25         {
  26             switch (argv[0][1])
  27             {
  28             case 'd':
  29                 debug = 1;
  30                 break;
  31             default:
  32                 fprintf (stderr, "%s: unknown option '%s'\n",
  33                     prog, *argv);
  34                 exit (1);
  35             }
  36         }
  37         else
  38         {
  39             fprintf (stderr, "%s: no filenames, please\n", prog);
  40             exit (1);
  41         }
  42     }
  43     while (1)
  44     {
  45         char buf[80];
  46         int error;
  47         int pos;
  48         printf ("CCLSH>"); fflush (stdout);
  49         if (!fgets (buf, 79, stdin))
  50             break;
  51         ccl_find_str (buf, &error, &pos);
  52         if (error)
  53         {
  54             printf ("%*s^ - ", 6+pos, " ");
  55             printf ("%s\n", ccl_err_msg (error));
  56
  57         }
  58     }
  59     return 0;
  60 }
  61
  62