Mercurial > repos > rhope

comparison extendlib.rhope @ 47:6202b866d72c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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]