1 /* BEGIN INCLUDE FILE dsatm_tty_modes.incl.pl1                               */
  2 
  3 /*^*************************************************************************^*/
  4 /*                                                                           */
  5 /*   Defines all the TTY boolean modes supported on a DSA network.           */
  6 /*   Some of them have more than one name:  the old tty name, and a new      */
  7 /*   name more appropriate to the function it is supplying in DSA.           */
  8 /*                                                                           */
  9 /*   Written by Roger Negaret in December 1984.                              */
 10 /*^*************************************************************************^*/
 11 
 12 /****^  HISTORY COMMENTS:
 13   1) change(87-02-02,Negaret), approve(), audit(), install():
 14      the mode "ln0_on_input" has been renamed "line_count".
 15   2) change(87-07-13,LJAdams), approve(87-07-13,MCR7742),
 16      audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1056):
 17      Declared pointer infop upon which structure tty_modes_string is based.
 18      Declared DSA_modestr defined TTY_BOOLEAN_MODE_DSA_NAME to use in cv_ttf.
 19   3) change(88-07-05,Parisek), approve(88-07-05,MCR7928),
 20      audit(88-07-08,Beattie), install(88-07-19,MR12.2-1061):
 21      Changed declaration of DSA_modestr to use the "simple defining" technique
 22      thus fixing compilation errors resulting from the use of the "isub"
 23      value within a "isub defining" technique (defining techniques as
 24      described in Multics PL/I Reference Manual - AM83).
 25                                                    END HISTORY COMMENTS */
 26 
 27 /* format: style3,dclind5,idind32,insnl,ll79,comcol38 */
 28 
 29 /* format: off */
 30 
 31 dcl N_TTY_BOOLEAN_MODES fixed bin int static options (constant) init (26);
 32 
 33 /* Names of the modes:                                           */
 34 /* The slots <= 0 correspond to MCS modes without effect in DSA. */
 35 
 36 dcl TTY_BOOLEAN_MODE_MCS_NAME (-4:26) char (8) int static options (constant) init
 37                (/*** MCS modes without effect */
 38                "fulldpx",  "replay",   "prefixnl", "wake_tbl", "oddp",
 39                /*** Modes supported */
 40                "edited",   "tabs",     "can",      "esc",      "erkl",
 41                "rawi",     "rawo",     "red",      "vertsp",   "crecho",
 42                "lfecho",   "tabecho",  "hndlquit", "echoplex", "capo",
 43                "polite",   "ctl_char", "blk_xfer", "breakall", "scroll",
 44                "iflow",    "oflow",    "8bit",     "no_outp",  "sdialog",
 45                "fep_edit");
 46 
 47 dcl TTY_BOOLEAN_MODE_DSA_NAME (26) char (12) int static options (constant) init (
 48 
 49                "edited",   "tabs",     "can",      "esc",      "erkl",
 50                "rawi",     "rawo",     "red",      "vertsp",   "crecho",
 51                "lfecho",   "tabecho",  "hndlquit", "echoplex", "capo",
 52                "polite",   "ctl_char", "blk_xfer", "screen",   "line_count",
 53                "iflow",    "oflow",    "i8bit",    "o8bit",    "sdialog",
 54                "fep_edit");
 55 
 56 dcl  DSA_modestr (1:26) character (12) unaligned defined (TTY_BOOLEAN_MODE_DSA_NAME);
 57 
 58 /* if ON this mode needs the STC ability to be implemented */
 59 
 60 dcl  TTY_BOOLEAN_MODE_NEED_STC (26) bit (1) int static options (constant) init
 61                ("0"b,      "0"b,      "1"b,      "1"b,      "1"b,
 62                 "1"b,      "1"b,      "0"b,      "0"b,      "1"b,
 63                 "1"b,      "1"b,      "1"b,      "1"b,      "0"b,
 64                 "1"b,      "0"b,      "1"b,      "1"b,      "1"b,
 65                 "1"b,      "1"b,      "1"b,      "1"b,      "1"b,
 66                 "1"b);
 67 /* format: on */
 68 
 69 /* list of modes in a structure.     */
 70 /* In comment, the index of the mode */
 71 
 72 dcl  1 tty_boolean_modes             based aligned,
 73        2 edited                      bit (1) unal /*  1 */,
 74        2 tabs                        bit (1) unal /*  2 */,
 75        2 can                         bit (1) unal /*  3 */,
 76        2 esc                         bit (1) unal /*  4 */,
 77        2 erkl                        bit (1) unal /*  5 */,
 78        2 rawi                        bit (1) unal /*  6 */,
 79        2 rawo                        bit (1) unal /*  7 */,
 80        2 red                         bit (1) unal /*  8 */,
 81        2 vertsp                      bit (1) unal /*  9 */,
 82        2 crecho                      bit (1) unal /* 10 */,
 83        2 lfecho                      bit (1) unal /* 11 */,
 84        2 tabecho                     bit (1) unal /* 12 */,
 85        2 hndlquit                    bit (1) unal /* 13 */,
 86        2 echoplex                    bit (1) unal /* 14 */,
 87        2 capo                        bit (1) unal /* 15 */,
 88        2 polite                      bit (1) unal /* 16 */,
 89        2 ctl_char                    bit (1) unal /* 17 */,
 90        2 blk_xfer                    bit (1) unal /* 18 */,
 91        2 screen                      bit (1) unal /* 19 */,
 92        2 line_count                  bit (1) unal /* 20 */,
 93        2 iflow                       bit (1) unal /* 21 */,
 94        2 oflow                       bit (1) unal /* 22 */,
 95        2 i8bit                       bit (1) unal /* 23 */,
 96        2 o8bit                       bit (1) unal /* 24 */,
 97        2 sdialog                     bit (1) unal /* 25 */,
 98        2 fep_edit                    bit (1) unal /* 26 */,
 99        2 pad2                        bit (10) unal /* 27-36 */;
100 
101 /* User structure to set or get the modes */
102 
103 dcl  infop                           ptr;
104 
105 dcl  1 tty_modes_string              based (infop),
106        2 len                         fixed bin,
107        2 str                         char (512);
108 
109 /* more modes */
110 
111 dcl  TTY_MORE_MODE                   (2) char (8) aligned int static
112                                      options (constant)
113                                      init ("clear", "scroll");
114 
115 dcl  TMM_CLEAR                       fixed bin int static
116                                      options (constant) init (1);
117 dcl  TMM_SCROLL                      fixed bin int static
118                                      options (constant) init (2);
119 
120 /* Canonicalization types */
121 
122 dcl  TTY_CANON_TYPE                  (2) char (10) aligned int static
123                                      options (constant)
124                                      init ("overstrike", "replace");
125 
126 dcl  TCT_OVERSTRIKE                  fixed bin int static
127                                      options (constant) init (1);
128 dcl  TCT_REPLACE                     fixed bin int static
129                                      options (constant) init (2);
130 
131 
132 /* END INCLUDE FILE dsatm_tty_modes.incl.pl1                                 */