X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fac.bug.1;fp=%3Cmdl.comp%3E%2Fac.bug.1;h=09efe9bd6014c6fdb79174428690bc22297956bf;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/ac.bug.1 b/<mdl.comp>/ac.bug.1
new file mode 100644
index 0000000..09efe9b
--- /dev/null
+++ b/<mdl.comp>/ac.bug.1
@@ -0,0 +1,46 @@
+;"need to fload <ac.mud>init.mud in order to compile this"
+
+<DEFINE GENERATE_PROCESSING_ORDERS (TR		 ;"transaction description"
+				    PS		        ;"partial sequence"
+				    "AUX" (NN <NTH .TR ,nnodes_t>)
+							    ;"no. of nodes"
+					  TEMP)
+   #DECL ((TR) transaction_type_desc (PS) <LIST [REST FIX]>
+	  (TEMP) <OR <LIST [REST FIX]> FALSE> (NN) FIX)
+   <COND
+    (<==? <LENGTH .PS> .NN> .PS)
+    (<MAPF <>
+      <FUNCTION (X) 
+	 #DECL ((X) FIX)
+	 <SET TEMP
+	  <MAPF ,LIST
+	   <FUNCTION (Y) 
+	      #DECL ((Y) FIX)
+	      <COND (<NOT <MEMBER .Y .PS>>
+		     <MAPRET !<GENERATE_PROCESSING_ORDERS .TR (.Y !.PS)>>)
+		    (ELSE <MAPRET>)>>
+	   <NTH <NTH <NTH .TR ,conns_t> .X> ,rcn_c>>>
+	 <COND (<NOT <EMPTY? .TEMP>> <MAPLEAVE .TEMP>)>>
+      .PS>)
+    (<MAPF <>
+      <FUNCTION (X "AUX" (Y <NTH <NTH <NTH .TR ,conns_t> .X> ,pn_c>)) 
+	      #DECL ((X) FIX (Y) <OR FIX FALSE>)
+	      <COND
+	       (<AND .Y <NOT <MEMBER .Y .PS>>>
+		<MAPLEAVE <GENERATE_PROCESSING_ORDERS .TR (.Y !.PS)>>)>>
+      .PS>)
+    (ELSE			    ;"look for unrestricted children nodes"
+     <MAPF <>
+      <FUNCTION (X) 
+	 #DECL ((X) FIX)
+	 <SET TEMP
+	  <MAPF <>
+	   <FUNCTION (Y) 
+	      #DECL ((Y) FIX)
+	      <COND
+	       (<NOT <MEMBER .Y .PS>>
+		<MAPLEAVE <GENERATE_PROCESSING_ORDERS .TR (.Y !.PS)>>)>>
+	   <NTH <NTH <NTH .TR ,conns_t> .X> ,ucn_c>>>
+	 <COND (.TEMP <MAPLEAVE .TEMP>)>>
+      <LREVERSE <LIST !.PS>>>)>>
+