Mercurial > repos > rhope
comparison extendlib.rhope @ 19:90c20dc3f4e5
Initial work on compiling dataflow graphs to a backend
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 27 May 2009 21:29:15 +0000 |
| parents | 23dd9c766699 |
| children | 8b2b3f4a2a58 |
comparison
equal
deleted
inserted
replaced
| 18:ea991f95ae1f | 19:90c20dc3f4e5 |
|---|---|
| 592 ,after <- [text]Slice[[prefix]Length] | 592 ,after <- [text]Slice[[prefix]Length] |
| 593 }{ | 593 }{ |
| 594 not found <- text | 594 not found <- text |
| 595 } | 595 } |
| 596 } | 596 } |
| 597 | 597 |
| 598 Blueprint Range | 598 Blueprint Range |
| 599 { | 599 { |
| 600 Start | 600 Start |
| 601 End | 601 End |
| 602 } | 602 } |
| 604 Range[start,end:out] | 604 Range[start,end:out] |
| 605 { | 605 { |
| 606 out <- [[Build["Range"]]Start <<[start]]End <<[end] | 606 out <- [[Build["Range"]]Start <<[start]]End <<[end] |
| 607 } | 607 } |
| 608 | 608 |
| 609 First@Range[range:out] | 609 First@Range[range:out,none] |
| 610 { | 610 { |
| 611 out <- [range]Start >> | 611 If[[[range]Start >>] < [[range]End >>]] |
| 612 { | |
| 613 out <- [range]Start >> | |
| 614 }{ | |
| 615 none <- range | |
| 616 } | |
| 612 } | 617 } |
| 613 | 618 |
| 614 Next@Range[range,val:out,done] | 619 Next@Range[range,val:out,done] |
| 615 { | 620 { |
| 616 next <- [val]+[1] | 621 next <- [val]+[1] |
| 635 }{ | 640 }{ |
| 636 notfound <- index | 641 notfound <- index |
| 637 } | 642 } |
| 638 } | 643 } |
| 639 | 644 |
| 645 | |
| 646 |