X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fmim%2Fmimlib%2Fumc-defs.mud;fp=mim%2Fmim%2Fmimlib%2Fumc-defs.mud;h=cd16ab66328696d0cdf4b10c34b6aaca9adf69dd;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/mim/mimlib/umc-defs.mud b/mim/mim/mimlib/umc-defs.mud
new file mode 100644
index 0000000..cd16ab6
--- /dev/null
+++ b/mim/mim/mimlib/umc-defs.mud
@@ -0,0 +1,73 @@
+; "VERSION FOR USER CODE"
+
+; "Definitions of macros to access slots in mudchans, for use by READ
+   and PRINT.  Assume that third arg is literally either true or false--
+   EVALed at compile time.  Similarly, if second arg is T, it is assumed
+   to not be there."
+
+<BLOCK (<ROOT>)>
+
+<IFSYS ("TOPS20"
+	<FLOAD "PS:<TAA.IO-DEFS>CHANNEL-DEFS.MUD">)
+       ("UNIX"
+	<FLOAD "~MIM/SRC/CHANNEL-DEFS.MUD">)>
+
+<DEFMAC CHANNEL-SLOT ('STR 'CHR CHK? OFFS)
+  <COND (<NOT .CHK?>
+	 <FORM BIND ((SU <FORM CHANNEL-USER .STR>))
+	   #DECL ((SU) MUD-CHAN)
+	   <COND (<==? .CHR T>
+		  <FORM .OFFS '.SU>)
+		 (<FORM .OFFS '.SU .CHR>)>>)
+	(T
+	 <FORM COND (<FORM CHANNEL-BLESS .STR>
+		     <EXPAND <FORM CHANNEL-SLOT .STR .CHR <> .OFFS>>)>)>>
+
+<DEFMAC M-HLEN ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-HLEN>>>
+
+<DEFMAC M-HPOS ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-HPOS>>>
+
+<DEFMAC M-VLEN ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-VLEN>>>
+
+<DEFMAC M-VPOS ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-VPOS>>>
+
+<DEFMAC M-ORAD ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-ORAD>>>
+
+<DEFMAC M-IRAD ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-IRAD>>>
+
+<DEFMAC M-INTR ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-INTR>>>
+
+<DEFMAC M-FFRM ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-FFRM>>>
+
+<DEFMAC M-NCHR ('STR "OPTIONAL" ('CHR T) (CHK? <>))
+  <EXPAND <FORM CHANNEL-SLOT .STR .CHR .CHK? ,MC-NCHR>>>
+
+<DEFMAC M-BIT ('STR 'WHICH "OPTIONAL" ('NEW-FROB 0) (CHK? <>))
+  <COND (<NOT .CHK?>
+	 <FORM BIND ((SU <FORM CHANNEL-USER .STR>))
+	   #DECL ((SU) MUD-CHAN)
+	   <COND (<TYPE? .NEW-FROB FIX>
+		  <FORM NOT <FORM 0? <FORM ANDB .WHICH <FORM MC-BITS
+							     '.SU>>>>)
+		 (.NEW-FROB
+		  <FORM MC-BITS '.SU
+			<FORM ORB <FORM MC-BITS '.SU> .WHICH>>)
+		 (T
+		  <FORM MC-BITS '.SU <FORM ANDB <FORM MC-BITS '.SU>
+					  <FORM XORB .WHICH <ANDB>>>>)>>)
+	(T
+	 <FORM COND (<FORM CHANNEL-BLESS .STR>
+		     <EXPAND <FORM M-BIT .STR .WHICH .NEW-FROB <>>>)>)>>
+
+<DEFMAC ON-TTY? ('STR)
+  <EXPAND <FORM M-BIT .STR ,BIT-INTELLIGENT 0 <>>>>
+
+<ENDBLOCK>
\ No newline at end of file