1 
  2 /*        BEGIN include file net_as_states.incl.pl1                   */
  3 
  4 /*             This include file contains declarations for the        */
  5 /*        states of the various pseudo-devices and services that the  */
  6 /*        Network portion of the Answering Service.  Be aware that    */
  7 /*        due to the lack of an effective case statement in PL/I,     */
  8 /*        these states wil also show up in label vector constants     */
  9 /*        as the corresponding decimal integer.  Hopefully, the       */
 10 /*        names as declared in this include file will be associated   */
 11 /*        with the label location in a comment field.                 */
 12 
 13 /*        Originally created by D. M. Wells 1976, Jan. 17.            */
 14 
 15                                         /* Declaration of the state of the TTY "LINE" -- the Network          */
 16                                         /* connections -- which can not open instantaneously                  */
 17      declare
 18          (LINE_CLOSED         initial (0),        /* no connections exist, should be quiescent                */
 19           LINE_OPENING        initial (1),        /* have issued RFCs, now waiting for replies                */
 20           LINE_AS_CONTROL     initial (2),        /* Line is open, AS gets read terminate wakeups             */
 21           LINE_UP_CONTROL     initial (3),        /* Line is open, User Process gets I/O wakeups              */
 22           LINE_CLOSING        initial (4))        /* CLSs have been issued, waiting for replies               */
 23                fixed binary (3) internal static options (constant);
 24 
 25      declare
 26           LINE_states (0 : 4) character (28) internal static options (constant) initial (
 27                     "Line closed",
 28                     "Line opening",
 29                     "Answering Service Control",
 30                     "User Process Control",
 31                     "Line Closing");
 32 
 33                                         /* Pseudo-TTY states -- These are seen by the rest of the             */
 34                                         /* Answering Service and are similar to those of the TTYDIM.          */
 35      declare
 36          (TTY_DETACHED        initial (0),        /* TTY doesn't exist or isn't known                         */
 37           TTY_HUNGUP          initial (1),        /* TTY isn't being used, and won't answer                   */
 38           TTY_LISTENING       initial (2),        /* TTY isn't being used, but will answer if dialed          */
 39           TTY_EXPERIMENTING   initial (3),        /* TTY has been dialed, and is answering                    */
 40           TTY_DIALED          initial (5))        /* TTY is dialed up, and communications can proceed         */
 41                fixed binary (4) internal static options (constant);
 42 
 43      declare
 44           TTY_states (0 : 5) character (16) internal static options (constant) initial (
 45                     "Detached",
 46                     "Hungup",
 47                     "Listening",
 48                     "Experimenting",
 49                     "State 4?",
 50                     "Dialed-up");
 51 
 52                                         /* Pseudo-TTY states -- states of the pseudo-tty as used internally   */
 53                                         /* to determine attachment status of pseudo-TTY.                      */
 54      declare
 55          (PTTY_detached                 initial (0),        /* Pseudo-TTY is not attached           */
 56           PTTY_attached                 initial (1),        /* Pseudo-TTY is attached and functioning         */
 57           PTTY_broken                   initial (2))        /* Pseudo-TTY is attached but doesn't work        */
 58                fixed binary (17) internal static options (constant);
 59 
 60      declare
 61           PTTY_states (0 : 2) character (12) internal static options (constant) initial (
 62                     "Detached",
 63                     "Attached",
 64                     "Broken");
 65 
 66                                         /* Service states -- states of the service provided by Server         */
 67                                         /* ICP sockets.                                                       */
 68      declare
 69          (SERVICE_unavailable           initial (0),        /* Service is turned off                          */
 70           SERVICE_listening             initial (1),        /* Service is listening for requests              */
 71           SERVICE_allocation_wait       initial (2),        /* Request present, waiting to send pseudo-tty id */
 72           SERVICE_close_wait            initial (3))        /* Request processed -- waiting for close         */
 73                fixed binary (3) internal static options (constant);
 74 
 75      declare
 76           SERVICE_states (0 : 3) character (16) internal static options (constant) initial (
 77                     "Unavailable",
 78                     "Listening",
 79                     "Allocation wait",
 80                     "Close wait");
 81 
 82                                         /* Logger states -- states of this entire service module.             */
 83      declare
 84          (LOGGER_services_off           initial (0),        /* All services turned off or never initialized   */
 85           LOGGER_network_down           initial (1),        /* Some services on, but network is not up        */
 86           LOGGER_services_up            initial (2))        /* Logger turned on and network is up             */
 87                fixed binary (3) internal static options (constant);
 88 
 89      declare
 90           LOGGER_states (0 : 2) character (12) internal static options (constant) initial (
 91                     "Logger off",
 92                     "Network down",
 93                     "Logger up");
 94 
 95      declare
 96          (SERVICE_login                 initial (1),        /* channel is used for normal logins              */
 97           SERVICE_ftp                   initial (2))        /* channel is used for File Transfer Protocol     */
 98                fixed binary (17) internal static options (constant);
 99 
100      declare
101           SERVICE_type (1 : 2) character (8) internal static options (constant) initial (
102                     "login",
103                     "FTP");
104 
105 /*        END include file net_as_states.incl.pl1                     */
106