diff options
author | jkh <jkh@FreeBSD.org> | 1995-02-05 13:49:25 +0000 |
---|---|---|
committer | jkh <jkh@FreeBSD.org> | 1995-02-05 13:49:25 +0000 |
commit | 839ad527396286b846e58e11836f9091ceccc6d9 (patch) | |
tree | 50f3988ee320fe96b2fce23c40e51b297dbe8754 /usr.sbin/pcvt/userkeys/vt220keys.c | |
parent | 8e4f208589200093617b1a41bc21915a81e2751b (diff) | |
download | FreeBSD-src-839ad527396286b846e58e11836f9091ceccc6d9.zip FreeBSD-src-839ad527396286b846e58e11836f9091ceccc6d9.tar.gz |
PCVT userland utilities.
Submitted by: hm
Diffstat (limited to 'usr.sbin/pcvt/userkeys/vt220keys.c')
-rw-r--r-- | usr.sbin/pcvt/userkeys/vt220keys.c | 297 |
1 files changed, 297 insertions, 0 deletions
diff --git a/usr.sbin/pcvt/userkeys/vt220keys.c b/usr.sbin/pcvt/userkeys/vt220keys.c new file mode 100644 index 0000000..dfde51a --- /dev/null +++ b/usr.sbin/pcvt/userkeys/vt220keys.c @@ -0,0 +1,297 @@ +/* + * Trivial program to load VT220 Function keys with strings, + * note that the values only get sent when the key is shifted + * (shoulda been an option to flip the shift set like the Z19!) + * + * Typing no args gives help, basically pairs of keyname/value + * strings. + * + * Author, Author: Barry Shein, Boston University + * + * HISTORY + {1} 30-Oct-85 Kenneth J. Lester (ken) at ektools + + Added the necessary code to read an initialization file. This + should make it easier to used this program. Also added code + that will set-up the terminal in vt200 (this saves the user the + trouble of checking if the set-up is in vt200). + + Restructed the main function to use getopt, for argument + processing. + + Alterated usage function to include new "i" option (init file) + + + -hm minor modifications for pcvt 2.0 release + +*/ + +#include <stdio.h> +#include <ctype.h> + +/* + * The default toupper() macro is stupid, will toupper anything + */ + +#ifdef toupper +#undef toupper +#endif +#define toupper(c) (islower(c) ? ((c)-' ') : c) + +#define VT200_7BIT 1 +#define ESC 033 +#define INITFILE ".vt220rc" + +struct keynames { + char *name ; + char *string ; +} keys[] = { + "F6", "17", + "F7", "18", + "F8", "19", + "F9", "20", + "F10", "21", + "F11", "23", + "ESC", "23", + "F12", "24", + "BS", "24", + "F13", "25", + "LF", "25", + "F14", "26", + "HELP", "28", + "DO", "29", + "F17", "31", + "F18", "32", + "F19", "33", + "F20", "34", + NULL, NULL +}; + +char prog[BUFSIZ]; + +main(argc,argv) + int argc; + char *argv[]; +{ + /* these are defined in the getopt routine */ + extern char *optarg; /* argument give to an option */ + extern int optind; /* argv index after option processing */ + + int option; /* option character returned by getopt */ + int initf = 0; /* read initialization file */ + int lockf = 0; /* lock keys after loading strings */ + int clearf = 0; /* clear all keys before loading strings */ + char *strcpy(); + + (void) strcpy(prog, *argv); /* store program name */ + + if(argc == 1) usage(); /* program requires options */ + + /* get options */ + while ((option = getopt(argc, argv, "cli")) != EOF) + switch(option) + { + case 'c' : + clearf++; + break; + case 'l' : + lockf++; + break; + case 'i' : + initf++; + break; + case '?' : + usage(); + } + + if (VT200_7BIT) + printf("\033[62;1\"p"); /* vt200 7 bits */ + else + printf("\033[62;2\"p"); /* vt200 8 bits */ + + if(clearf) clearkeys(); + + if (initf) getinit(); + + /* process {key, key string} pairs. Note optind is index to argv + for first pair. By adding 1 to optind insures that a pair exists + i.e. the last key has a key string. */ + + while(optind + 1 < argc) + { + dokey(argv[optind], argv[optind+1]); + optind += 2; + } + + if(lockf) lockkeys(); + + exit(0); +} + +/****************************************************************************/ + +/* + * Load the VT220 SHIFT-FNKEY value, the basic pattern is + * "\EP1;1|"+KEYNAME+"/"+VAL_AS_HEX+"\E\\" + * that is, literally what is in quotes (w/o quotes) then the + * name of the key from the keytable above (a numeric string) + * then a slash, then the string value as hex pairs then ESC-BACKSLASH + * + * Note: you can gang together key defns with semicolons but that + * would complicate things, especially error handling, so do it all + * for each pair, who cares, really. + */ + +dokey(nm,val) char *nm, *val; +{ + register char *scr; + register struct keynames *kp; + + for(scr = nm; *scr = toupper(*scr); scr++) + ; + for(kp = keys; kp->name != NULL; kp++) + if(strcmp(nm,kp->name) == 0) { + printf("%cP1;1|%s/",ESC,kp->string); + while(*val) printf("%02x",*val++); + printf("%c\\",ESC); + fflush(stdout); + return; + } + fprintf(stderr,"Bad key name: %s\n",nm); + usage(); /* bad key name, give up */ +} + +/****************************************************************************/ + +clearkeys() +{ + printf("%cP0;1|%c\\",ESC,ESC); + fflush(stdout); +} + +/****************************************************************************/ + +lockkeys() +{ + printf("%cP1;0|%c\\",ESC,ESC); + fflush(stdout); +} + +/****************************************************************************/ + +usage() +{ + int i; + + fprintf(stderr,"Usage: %s [-cil] [keyname string keyname string...]\n\n",prog); + fprintf(stderr,"The following options are available\n"); + fprintf(stderr,"\t-c\tclears keys first\n"); + fprintf(stderr,"\t-l\t[sets then] locks further setting\n"); + fprintf(stderr,"\t-i\tfirst read initialization file $HOME/%s\n",INITFILE); + fprintf(stderr,"(note that the only way to unlock is via Set-Up)\n\n"); + fprintf(stderr,"Keyname is one of:\n\t"); + for(i=0; keys[i].name != NULL; i++) + fprintf(stderr,"%s ",keys[i].name); + fprintf(stderr,"\nKeyname is SHIFTED function key that sends the string\n\n"); + fprintf(stderr,"Strings may need quoting to protect from shell\n"); + fprintf(stderr,"You must specify an option or key,string pairs\n\n"); + exit(1); +} + +/****************************************************************************/ + +/* This routine process the INITFILE. This file expects lines in the format + + <ws> keyname ws string + + Where ws is white space (spaces or tabs) and <ws> is optional white space. + The string may include spaces or tabs and need not be quoted. If the + string has the sequence of "\n" then a newline character is included in + the string. + + examples: + + F6 ls -lg\n + F7 uulog -s + +*/ + +#include <sys/types.h> +#include <sys/stat.h> + +getinit() +{ + char *home; /* user's home directory */ + char path[BUFSIZ]; /* full path name of init file */ + char buf[BUFSIZ]; /* buffer to hold 1 line from init file */ + char key[BUFSIZ]; /* buffer, to hold specified fcn key */ + char keystr[BUFSIZ]; /* string associated with fcn key */ + char *ptr; /* pointer to transverse buf */ + int i, j; /* array indices */ + int statflag; /* whether init file is regular & readable */ + struct stat statbuf; /* stat of the init file */ + FILE *fp; /* file pointer to init file */ + + /* system calls and subroutines */ + FILE *fopen(); + char *strcpy(); + char *strcat(); + char *fgets(); + char *getenv(); + + /* construct full path name for init file */ + home = getenv("HOME"); + (void) strcpy(path, home); + (void) strcat(path,"/"); + (void) strcat(path,INITFILE); + + /* check status if init file */ + if (stat(path, &statbuf) != -1) + { + statflag = statbuf.st_mode & S_IFREG && statbuf.st_mode & S_IREAD; + if (!statflag || (fp = fopen(path, "r")) == NULL) + { + fprintf(stderr, "couldn't open initalization file: %s\n", path); + exit(1); + } + + /* process lines from init file */ + while (fgets(buf, BUFSIZ, fp) != NULL) + { + /* variable initializations */ + i = 0; j = 0; + key[0] = '\0'; keystr[0] = '\0'; + ptr = buf; + + while (*ptr == ' ' || *ptr == '\t') ptr++; /*skip whitespace*/ + + if (*ptr == '\n') break; /* we hit an emtpy line */ + + while (!isspace(*ptr) && *ptr != '\0') /* get keyname */ + key[i++] = *ptr++; + key[i] = '\0'; /* place EOS in buffer */ + + while (*ptr == ' ' || *ptr == '\t') ptr++; /*skip whitespace*/ + + while (*ptr != '\n' && *ptr != '\0') /* get string */ + { + /* check if string is to include newline i.e. \n */ + if (*ptr == '\\' && *(ptr+1) == 'n') + { + keystr[j] = '\012'; + ptr++; + } + else + keystr[j] = *ptr; + j++; ptr++; + } + keystr[j] = '\0'; /* place EOS in buffer */ + dokey(key, keystr); /* load key with string */ + } + } + else + { + fprintf(stderr, "init file %s not found\n\n", path); + usage(); + } +} |