Mercurial > repos > rhope
comparison nworker_c.rhope @ 115:04148770c229
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,~] |