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 |