Mercurial > repos > rhope
comparison parser_old.rhope @ 75:0083b2f7b3c7
Partially working implementation of List. Modified build scripts to allow use of other compilers. Fixed some bugs involving method implementations on different types returning different numbers of outputs. Added Fold to the 'builtins' in the comipler.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 06 Jul 2010 07:52:59 -0400 |
parents | a844c623c7df |
children | 4d5ea487f810 |
comparison
equal
deleted
inserted
replaced
74:a844c623c7df | 75:0083b2f7b3c7 |
---|---|
125 | 125 |
126 New@Parse Program[:out] | 126 New@Parse Program[:out] |
127 { | 127 { |
128 out <- [[[Build["Parse Program"] | 128 out <- [[[Build["Parse Program"] |
129 ]Workers <<[Dictionary[]] | 129 ]Workers <<[Dictionary[]] |
130 ]Imports <<[[[Dictionary[]]Set["kernel.rhope", Yes]]Set["string.rhope", Yes]] | 130 ]Imports <<[[Dictionary[]]Set["kernel.rhope", Yes]] |
131 ]Blueprints <<[Dictionary[]] | 131 ]Blueprints <<[Dictionary[]] |
132 } | 132 } |
133 | 133 |
134 Blueprint Blueprint Definition | 134 Blueprint Blueprint Definition |
135 { | 135 { |
1450 ]Output Types <<[ [worker]Output Types >> ] | 1450 ]Output Types <<[ [worker]Output Types >> ] |
1451 ]Library <<[ [[worker]Trees >>]Name >> ] | 1451 ]Library <<[ [[worker]Trees >>]Name >> ] |
1452 | 1452 |
1453 }{ | 1453 }{ |
1454 Print[["Transforming "]Append[name]] | 1454 Print[["Transforming "]Append[name]] |
1455 trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["rhope"]]Uses[[worker]Uses Stores >>], prog, worker, Dictionary[]] | 1455 trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [[NWorker["rhope"]]Uses[[worker]Uses Stores >>]]Outputs <<[ [worker]Outputs >> ], prog, worker, Dictionary[]] |
1456 { | 1456 { |
1457 ,proceed <- If[[name] = ["Main"]] | 1457 ,proceed <- If[[name] = ["Main"]] |
1458 { Print["Added Trees to worker"] | 1458 { Print["Added Trees to worker"] |
1459 { proceed <- Pretty Print[trees, ""] }} | 1459 { proceed <- Pretty Print[trees, ""] }} |
1460 Val[proceed] | 1460 Val[proceed] |