Mercurial > repos > rhope

comparison nworker_c.rhope @ 115:04148770c229

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Mike Pavone <pavone@retrodev.com>
date Wed, 13 Oct 2010 01:18:53 +0000
parents 25a205094f9b fd23ab2c1a73
children 4d089503fb51
comparison
equal deleted inserted replaced
114:25a205094f9b 115:04148770c229
832 } 832 }
833 } 833 }
834 after save <- Fold[Save Result[?, ?, node index], with call, Range[0, save outs]] 834 after save <- Fold[Save Result[?, ?, node index], with call, Range[0, save outs]]
835 } 835 }
836 836
837 Compile Node@NWorker[worker,program,func,nodes,current:out,out worker] 837 Compile Node[worker,program,func,nodes,current:out,out worker]
838 { 838 {
839 node index <- [nodes]Index[current] 839 node index <- [nodes]Index[current]
840 node <- [[worker]Nodes >>]Index[node index] 840 node <- [[worker]Nodes >>]Index[node index]
841 conditions <- [node]Conditions >> 841 conditions <- [node]Conditions >>
842 [("call","getfield","setfield")]Find[=[[node]Type >>, ?]] 842 [("call","getfield","setfield")]Find[=[[node]Type >>, ?]]
898 out <- Val[nfunc] 898 out <- Val[nfunc]
899 out worker <- Val[worker] 899 out worker <- Val[worker]
900 } 900 }
901 } 901 }
902 902
903 Save Node Conditions@NWorker[worker,node index:out] 903 Save Node Conditions[worker,node index:out]
904 { 904 {
905 node <- [[worker]Nodes >>]Index[node index] 905 node <- [[worker]Nodes >>]Index[node index]
906 conditions <- [worker]Collect Conditions[node] 906 conditions <- [worker]Collect Conditions[node]
907 out <- [worker]Nodes <<[ [[worker]Nodes >>]Set[node index, [node]Conditions <<[conditions]] ] 907 out <- [worker]Nodes <<[ [[worker]Nodes >>]Set[node index, [node]Conditions <<[conditions]] ]
908 908
909 } 909 }
910 910
911 Save Group Conditions@NWorker[worker, groups,current:out] 911 Save Group Conditions[worker, groups,current:out]
912 { 912 {
913 nodes <- [groups]Index[current] 913 nodes <- [groups]Index[current]
914 nworker <- Fold[Save Node Conditions[?], worker, nodes] 914 nworker <- Fold[Save Node Conditions[?], worker, nodes]
915 915
916 [groups]Next[current] 916 [groups]Next[current]
919 }{ 919 }{
920 out <- Val[nworker] 920 out <- Val[nworker]
921 } 921 }
922 } 922 }
923 923
924 Compile Group@NWorker[worker,program,func,groups,current:out,out worker] 924 Compile Group[worker,program,func,groups,current:out,out worker]
925 { 925 {
926 nodes <- [groups]Index[current] 926 nodes <- [groups]Index[current]
927 [nodes]First 927 [nodes]First
928 { 928 {
929 nfunc,nworker <- [worker]Compile Node[program,func,nodes,~] 929 nfunc,nworker <- [worker]Compile Node[program,func,nodes,~]