home *** CD-ROM | disk | FTP | other *** search
- #ifndef NO_IDENT
- static char *Id = "$Id: setctrl.c,v 1.4 1995/06/04 01:19:32 tom Exp $";
- #endif
-
- /*
- * Title: setctrl.c
- * Author: Thomas E. Dickey
- * Created: 18 Dec 1984
- * Last update: 18 Dec 1984
- *
- * Function: Set/clear the VMS control functions for ^T, ^Y. This is used
- * by FLIST.
- */
-
- #include <lib$routines.h>
-
- #define LIB$M_CLI_CTRLT 0x00100000
- #define LIB$M_CLI_CTRLY 0x02000000
-
- void
- setctrl (int turnon)
- {
- static
- int newmask = (LIB$M_CLI_CTRLT | LIB$M_CLI_CTRLY),
- oldmask;
-
- oldmask |= LIB$M_CLI_CTRLY; /* Should be set always */
- if (turnon)
- lib$enable_ctrl (&oldmask);
- else
- lib$disable_ctrl (&newmask, &oldmask);
- }
-