Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / vax / vaxdefault.mud

diff --git a/mim/development/mim/vax/vaxdefault.mud b/mim/development/mim/vax/vaxdefault.mud
new file mode 100644 (file)
index 0000000..0e31d57
--- /dev/null
+++ b/mim/development/mim/vax/vaxdefault.mud
@@ -0,0 +1,107 @@
+; "For now, I$DEF-CHANNEL is just a PUT FOO DECL hack."
+%<NEWSTRUC I$DEF-CHANNEL (VECTOR)
+  DC-IJFN FIX
+  DC-DEV <OR ATOM STRING FALSE>
+  DC-SNM <OR ATOM STRING FALSE>
+  DC-NM1 <OR STRING FALSE>
+  DC-NM2 <OR STRING FALSE>
+  DC-DSN <OR STRING FALSE>
+  DC-STATUS FIX
+  DC-OJFN FIX
+  DC-IBUF <OR STRING FALSE>
+  DC-IBC FIX>
+
+<DEFINE X$DEF-GET-MODE (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>)
+                       (STS <DC-STATUS .DATA>))
+  #DECL ((CHANNEL) T$CHANNEL (DATA) I$DEF-CHANNEL)
+  <COND (<NOT <0? <ANDB .STS ,STATUS-WRITE>>>
+        <COND (<0? <ANDB .STS ,STATUS-RACC>>
+               "APPEND")
+              (T
+               "MODIFY")>)
+       (T
+         "READ")>>
+
+<DEFINE X$DEF-GET-BYTE-SIZE (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>)
+                        (BSZ <LHW <DC-STATUS .DATA>>))
+  #DECL ((CHANNEL) T$CHANNEL (DATA) I$DEF-CHANNEL)
+  <COND (<==? .BSZ ,BS-ASCII> "ASCII")
+       (<==? .BSZ ,BS-8BIT> "8BIT")
+       (<==? .BSZ ,BS-BINARY> "BINARY")>>
+
+<DEFINE X$DEF-HACK-DATE (CHANNEL OPER "OPTIONAL" NEW
+                         "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>)
+                               UV ST NM)
+  #DECL ((CHANNEL) T$CHANNEL (DATA) I$DEF-CHANNEL (OPER) T$ATOM
+        (NEW) FIX (UV) <UVECTOR [REST FIX]>)
+  <COND (<NOT <ASSIGNED? NEW>>
+        <COND (<==? <DC-IJFN .DATA> -1>
+               <SET NM <T$STANDARD-NAME <T$CHANNEL-OP .CHANNEL T$NAME>>>
+               <SET ST <T$FILE-STAT .NM>>)
+              (T
+               <SET ST <T$FILE-STAT <DC-IJFN .DATA>>>)>
+        <COND (<==? .OPER T$READ-DATE>
+               <T$STAT-FIELD .ST ,ATIME-OFFS ,ATIME-SIZE>)
+              (T
+               <T$STAT-FIELD .ST ,MTIME-OFFS ,MTIME-SIZE>)>)
+       (T
+        <COND (<NOT <GASSIGNED? TIMEU>> <SETG TIMEU <UVECTOR 0 0>>)>
+        <SET UV ,TIMEU>
+        <COND (<==? .OPER T$READ-DATE>
+               <1 .UV .NEW>
+               <2 .UV <X$DEF-HACK-DATE .CHANNEL T$WRITE-DATE>>)
+              (T
+               <2 .UV .NEW>
+               <1 .UV <X$DEF-HACK-DATE .CHANNEL T$READ-DATE>>)>
+        <SET NM <T$STANDARD-NAME <T$CHANNEL-OP .CHANNEL T$NAME>>>
+        <COND (<CALL SYSCALL UTIMES .NM .UV>
+               .NEW)>)>>
+
+<DEFINE I$DEF-SHORT-NAME (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>)
+                         (NM1 <DC-NM1 .DAT>) (NM2 <DC-NM2 .DAT>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <COND (<AND .NM1 .NM2>
+        <STRING .NM1 !\. .NM2>)
+       (.NM1)
+       (.NM2
+        <STRING !\. .NM2>)
+       (<I$DEF-NAME .CHN .OPER>)>>
+
+<DEFINE I$DEF-FILE-HANDLE (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <DC-IJFN .DAT>>
+
+<DEFINE I$DEF-DEV (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>)
+                  (STR <DC-DEV .DAT>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <COND (<TYPE? .STR ATOM>
+        <T$PARSE-DIR <> <> <REST .DAT 1> <> <>>
+        <DC-DEV .DAT>)
+       (.STR)>>
+
+<DEFINE I$DEF-SNM (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>)
+                  (STR <DC-SNM .DAT>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <COND (<TYPE? .STR ATOM>
+        <T$PARSE-DIR <> <> <REST .DAT 1> <> <>>
+        <DC-SNM .DAT>)
+       (.STR)>>
+
+<DEFINE I$DEF-NM1 (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <DC-NM1 .DAT>>
+
+<DEFINE I$DEF-NM2 (CHN OPER "AUX" (DAT <T$CHANNEL-DATA .CHN>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL)
+  <DC-NM2 .DAT>>
+
+<DEFINE I$DEF-NAME (CHN OPER "OPT" (BITS *37*) "AUX" (DAT <T$CHANNEL-DATA .CHN>)
+                   (STOR <ITUPLE 5 <>>))
+  #DECL ((CHN) T$CHANNEL (DAT) I$DEF-CHANNEL (STOR) TUPLE)
+  <1 .STOR <DC-DEV .DAT>>
+  <2 .STOR <DC-SNM .DAT>>
+  <3 .STOR <DC-NM1 .DAT>>
+  <4 .STOR <DC-NM2 .DAT>>
+  <5 .STOR <DC-DSN .DAT>>
+  <I$UNPARSE-SPEC .STOR .BITS>>
+