mim/development/mim/vax/mimlib/channel-defs.mud

   1 ; "Definitions of offsets in CHANNELs and mudchans for user code (types are
   2 already in BOOT.COMPIL)"
   3
   4 <BLOCK (<ROOT>)>
   5
   6 <NEWTYPE CHANNEL VECTOR
   7          '<<PRIMTYPE VECTOR> ATOM <OR CHANNEL FALSE>
   8                              <OR STRING FALSE> <OR ATOM FALSE>
   9                              ANY ANY>>
  10
  11 <SETG CHANNEL-TYPE 1>
  12 <SETG CHANNEL-SCRIPT 2>
  13 <SETG CHANNEL-NAME 3>
  14 <SETG CHANNEL-OPEN? 4>
  15 <SETG CHANNEL-DATA 5>
  16 <SETG CHANNEL-USER 6>
  17 <MANIFEST CHANNEL-TYPE CHANNEL-SCRIPT CHANNEL-NAME CHANNEL-OPEN?
  18           CHANNEL-DATA CHANNEL-USER>
  19
  20 <COND (<NOT <VALID-TYPE? MUD-CHAN!- >>
  21        <NEWTYPE MUD-CHAN!- VECTOR '<<PRIMTYPE VECTOR> [5 FIX]>>)>
  22
  23 <SETG MC-HLEN 1>
  24 <SETG MC-HPOS 2>
  25 <SETG MC-VLEN 3>
  26 <SETG MC-VPOS 4>
  27 <SETG MC-ORAD 5>
  28 <SETG MC-BITS 9>
  29 <SETG MC-IRAD 10>
  30 <SETG BIT-ACCESS 1>
  31 <SETG BIT-INTELLIGENT 2>
  32 <MANIFEST MC-HLEN MC-HPOS MC-VLEN MC-VPOS MC-RADX BIT-ACCESS BIT-INTELLIGENT>
  33
  34 <ENDBLOCK>