BSD 4_3 development

[unix-history] / usr / contrib / jove / setmaps.c

/*************************************************************************
* This program is copyright (C) 1985, 1986 by Jonathan Payne.  It is    *
* provided to you without charge for use only on a licensed Unix        *
* system.  You may copy JOVE provided that this notice is included with *
* the copy.  You may not sell copies of this program or versions        *
* modified for use on microcomputer systems, unless the copies are      *
* included with a Unix system distribution and the source is provided.  *
*************************************************************************/

#define TXT_TO_C

#include "funcdefs.c"
#undef putchar  /* From jove.h via funcdefs.c, conflicts with STDIO */
#undef putc
#undef getc
#undef EOF
#undef FILE
#undef BUFSIZ
#include <stdio.h>

match(choices, what)
register struct cmd     choices[];
register char   *what;
{
       register int    len;
       int     i,
               found = 0,
               save,
               exactmatch = -1;

       len = strlen(what);
       for (i = 0; choices[i].Name != 0; i++) {
               if (*what != *choices[i].Name)
                       continue;
               if (strncmp(what, choices[i].Name, len) == 0)
                       return i;
       }
       return -1;
}

char *
PPchar(c)
int     c;
{
       static char     str[10];
       char    *cp = str;

       if (c == '\033')
               strcpy(cp, "ESC");
       else if (c < ' ')
               (void) sprintf(cp, "C-%c", c + '@');
       else if (c == '\177')
               strcpy(cp, "^?");
       else
               (void) sprintf(cp, "%c", c);
       return cp;
}

extract(into, from)
char    *into,
       *from;
{
       from += 2;      /* Past tab and first double quote. */
       while ((*into = *from++) != '"')
               into++;
       *into = 0;
}

main()
{
       FILE    *ifile,
               *of;
       char    line[100],
               comname[70];
       int     comnum,
               ch;

       ifile = stdin;
       of = stdout;
       if (ifile == NULL || of == NULL) {
               printf("Cannot read input or write output.\n");
               exit(1);
       }
       while (fgets(line, sizeof line, ifile) != NULL) {
               if (strncmp(line, "\t\"", 2) != 0) {
                       fprintf(of, line);
                       ch = 0;
                       continue;
               }
               extract(comname, line);
               if (strcmp(comname, "unbound") == 0) 
                       comnum = 12345;
               else {
                       comnum = match(commands, comname);
                       if (comnum < 0) {
                               fprintf(stderr, "Cannot find command \"%s\".\n", comname);
                               exit(1);
                       }
               }
               if (comnum == 12345)
                       fprintf(of, "   (data_obj *) 0,                 /* %s */\n", PPchar(ch++));
               else
                       fprintf(of, "   (data_obj *) &commands[%d],     /* %s */\n", comnum, PPchar(ch++));
       }
       fclose(of);
       fclose(ifile);
       exit(0);
}