5 * Revision 1.1 1995/02/13 12:35:21 adam
6 * First version of CCL. Qualifiers aren't handled yet.
18 int main (int argc, char **argv)
32 fprintf (stderr, "%s: unknown option '%s'\n",
39 fprintf (stderr, "%s: no filenames, please\n", prog);
48 printf ("CCLSH>"); fflush (stdout);
49 if (!fgets (buf, 79, stdin))
51 ccl_find_str (buf, &error, &pos);
54 printf ("%*s^ - ", 6+pos, " ");
55 printf ("%s\n", ccl_err_msg (error));