home *** CD-ROM | disk | FTP | other *** search
- /* Last update: 01/13/88 11:17 AM (Edition: 5) */
- #include <stdio.h>
- #include <strings.h>
- #include "form.h"
- #include "basic.h"
-
- unsigned char Rvideo; /* reverse video */
- unsigned char Undline; /* under line */
- unsigned char Hilite; /* high light */
- unsigned char Shell = CSH; /* output script type */
-
- extern char Varfile[];
- extern char Enter_mode[];
- extern char Exit_mode[];
-
- /*-------------------------------------------------------------05/08/86-+
- | |
- | set_options : set form editor options |
- | |
- +----------------------------------------------------------------------*/
- set_options (hilite, rvideo, undline, fname)
- int hilite; /* highlight attribute */
- int rvideo; /* reverse video attribute */
- int undline; /* underline attribute */
- char *fname; /* output variable file name */
- {
- char sbuf [80]; /* set mode */
- char ebuf [80]; /* exit mode */
-
- ENTER(set_options);
-
- sbuf[0] = ebuf[0] = EOS;
- if (hilite) {
- get_hilite (sbuf, ebuf);
- strcat (Enter_mode, sbuf);
- strcat (Exit_mode, ebuf);
- }
- if (undline) {
- get_undline (sbuf, ebuf);
- strcat (Enter_mode, sbuf);
- strcat (Exit_mode, ebuf);
- }
- if (rvideo) {
- get_rvideo (sbuf, ebuf);
- strcat (Enter_mode, sbuf);
- strcat (Exit_mode, ebuf);
- }
- if (fname) strncpy (Varfile, fname, MAXFNAME);
- EXIT;
- }
-