Mercurial > repos > rhope
comparison extendlib.rhope @ 47:6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 22 Dec 2009 01:22:09 -0500 |
parents | 914ad38f9b59 |
children | a24eb366195c |
comparison
equal
deleted
inserted
replaced
46:429b5f441381 | 47:6202b866d72c |
---|---|
55 out <- () | 55 out <- () |
56 } | 56 } |
57 | 57 |
58 New Like@Dictionary[in:out] | 58 New Like@Dictionary[in:out] |
59 { | 59 { |
60 out <- New@Dictionary[] | 60 out <- Dictionary[] |
61 } | 61 } |
62 | 62 |
63 Key Value Map[list,worker:out] | 63 Key Value Map[list,worker:out] |
64 { | 64 { |
65 [list]First | 65 [list]First |
252 out <- [dict]Set[[parts]Index[0],[parts]Index[1]] | 252 out <- [dict]Set[[parts]Index[0],[parts]Index[1]] |
253 } | 253 } |
254 | 254 |
255 Dict Split[string,keydelim,entrydelim:out] | 255 Dict Split[string,keydelim,entrydelim:out] |
256 { | 256 { |
257 out <- Fold[["_Dict Split"]Set Input[3, keydelim], New@Dictionary[], [string]Split[entrydelim]] | 257 out <- Fold[["_Dict Split"]Set Input[3, keydelim], Dictionary[], [string]Split[entrydelim]] |
258 } | 258 } |
259 | 259 |
260 Previous@List[list,index:prev index,not found] | 260 Previous@List[list,index:prev index,not found] |
261 { | 261 { |
262 prev <- [index] - [1] | 262 prev <- [index] - [1] |
483 }{ | 483 }{ |
484 object <- value | 484 object <- value |
485 fieldlist <- [Blueprint Of[value]]Get Fields | 485 fieldlist <- [Blueprint Of[value]]Get Fields |
486 [fieldlist]First | 486 [fieldlist]First |
487 { | 487 { |
488 list <- _Object to Dict[value, fieldlist, ~, New@Dictionary[]] | 488 list <- _Object to Dict[value, fieldlist, ~, Dictionary[]] |
489 out value <- Val[list] | 489 out value <- Val[list] |
490 }{ | 490 }{ |
491 out value <- value | 491 out value <- value |
492 done <- 1 | 492 done <- 1 |
493 } | 493 } |
564 out <- [list]Append[key] | 564 out <- [list]Append[key] |
565 } | 565 } |
566 | 566 |
567 Keys[container:out] | 567 Keys[container:out] |
568 { | 568 { |
569 out <- Fold["_Keys", New@List[], container] | 569 out <- Fold["_Keys", (), container] |
570 } | 570 } |
571 | 571 |
572 And[left,right:out] | 572 And[left,right:out] |
573 { | 573 { |
574 ,out <- If[left] | 574 ,out <- If[left] |