Mercurial > repos > rhope
comparison string.rhope @ 83:27bb051d631c
Initial implementation of Dictionary
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 27 Jul 2010 23:33:31 -0400 |
parents | 4d5ea487f810 |
children | 3c4325e6298f |
comparison
equal
deleted
inserted
replaced
82:2e2e55fc12f9 | 83:27bb051d631c |
---|---|
524 { alen <- Length[~] } | 524 { alen <- Length[~] } |
525 before <- [string]Slice[ [[string]Length]-[[dlen]+[alen]] ] | 525 before <- [string]Slice[ [[string]Length]-[[dlen]+[alen]] ] |
526 } | 526 } |
527 | 527 |
528 | 528 |
529 Dict Type ID@String[string:out] | |
530 { | |
531 out <- ID[String()] | |
532 } | |
533 | |
534 Dict Type ID@String Cat[string:out] | |
535 { | |
536 out <- ID[String()] | |
537 } | |
538 | |
539 Dict Type ID@String Slice[string:out] | |
540 { | |
541 out <- ID[String()] | |
542 } | |
543 | |
544 Dict Bits@String[string,index:out,invalid] | |
545 { | |
546 ,invalid <- [string]Byte[index] | |
547 { out <- UInt32[~] } | |
548 } | |
549 | |
550 Dict Bits@String Cat[string,index:out,invalid] | |
551 { | |
552 ,invalid <- [string]Byte[index] | |
553 { out <- UInt32[~] } | |
554 } | |
555 | |
556 Dict Bits@String Slice[string,index:out,invalid] | |
557 { | |
558 ,invalid <- [string]Byte[index] | |
559 { out <- UInt32[~] } | |
560 } | |
561 |