Mercurial > repos > rhope
comparison string.rhope @ 99:e09c2d1d6d5b
Got dataflow graph code working in compiler (nworker_c.rhope)
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 06 Aug 2010 01:42:37 -0400 |
parents | e73a93fb5de1 |
children | f51c4c17457c |
comparison
equal
deleted
inserted
replaced
98:a34a982ecd32 | 99:e09c2d1d6d5b |
---|---|
645 { | 645 { |
646 ,compare <- [thing]Slice[ [[thing]Length] - [[ends with]Length] ] | 646 ,compare <- [thing]Slice[ [[thing]Length] - [[ends with]Length] ] |
647 out <- [compare] = [ends with] | 647 out <- [compare] = [ends with] |
648 } | 648 } |
649 | 649 |
650 If@String[str:yes,no] | |
651 { | |
652 yes,no <- If[[str]Length] | |
653 } | |
654 | |
655 If@String Cat[str:yes,no] | |
656 { | |
657 yes,no <- If[[str]Length] | |
658 } | |
659 | |
660 If@String Slice[str:yes,no] | |
661 { | |
662 yes,no <- If[[str]Length] | |
663 } | |
664 | |
665 _Split[list,string,delim:out] | |
666 { | |
667 ,,rest <- [string]Partition[delim] | |
668 { | |
669 out <- _Split[[list]Append[~], rest, delim] | |
670 } {} {} { | |
671 out <- [list]Append[string] | |
672 } | |
673 } | |
674 | |
675 Split[string,delim:out] | |
676 { | |
677 If[string] | |
678 { out <- _Split[(),string,delim] } | |
679 { out <- () } | |
680 } | |
681 |