NEWLS_2024.01.19_MDL.mdl

seanpm2001 · Jan 22, 2024 · 230a06e · 230a06e
1 parent 944f2e1
commit 230a06e
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/Docs/NewLS/2024/NEWLS_2024.01.19_MDL.mdl b/Docs/NewLS/2024/NEWLS_2024.01.19_MDL.mdl
@@ -0,0 +1,16 @@
+; MDL sample source code corpus 2024.01.21
+<DEFINE EXIT-TO (EXITS RMS)
+        #DECL ((EXITS) EXIT (RMS) <UVECTOR [REST ROOM]>)
+        <MAPF <>
+              <FUNCTION (E)
+                 #DECL ((E) <OR DIRECTION ROOM CEXIT NEXIT DOOR>)
+                 <COND (<TYPE? .E DIRECTION>)
+                       (<AND <TYPE? .E ROOM> <MEMQ .E .RMS>>
+                        <MAPLEAVE T>)
+                       (<AND <TYPE? .E CEXIT> <MEMQ <2 .E> .RMS>>
+                        <MAPLEAVE T>)
+                       (<AND <TYPE? .E DOOR>
+                             <OR <MEMQ <DROOM1 .E> .RMS>
+                                 <MEMQ <DROOM2 .E> .RMS>>>
+                        <MAPLEAVE T>)>>
+              .EXITS>>