Mercurial > repos > rhope

comparison extendlib.vistxt @ 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 76568becd6d6
children
comparison
equal deleted inserted replaced
46:429b5f441381 47:6202b866d72c
6 6
7 Map Helper(3,1) 7 Map Helper(3,1)
8 |: 8 |:
9 newval <- [ 9 newval <- [
10 [worker(2)]Do[ 10 [worker(2)]Do[
11 [New@List[]]Append[ [list(0)]Index[index(1)] ] 11 [List[]]Append[ [list(0)]Index[index(1)] ]
12 ] 12 ]
13 ]Index[0] 13 ]Index[0]
14 14
15 [list(0)]Next[index(1)] 15 [list(0)]Next[index(1)]
16 |: 16 |:
30 :| 30 :|
31 :| 31 :|
32 32
33 New Like@List(1,1) 33 New Like@List(1,1)
34 |: 34 |:
35 out(0) <- New@List[] 35 out(0) <- List[]
36 :| 36 :|
37 37
38 New Like@Dictionary(1,1) 38 New Like@Dictionary(1,1)
39 |: 39 |:
40 out(0) <- New@Dictionary[] 40 out(0) <- Dictionary[]
41 :| 41 :|
42 42
43 Key Value Map Helper(4,1) 43 Key Value Map Helper(4,1)
44 |: 44 |:
45 [worker(3)]Do[ 45 [worker(3)]Do[
46 [[New@List[]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] 46 [[List[]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
47 ] 47 ]
48 |: 48 |:
49 newval <- [~]Index[0] 49 newval <- [~]Index[0]
50 newkey <- [~]Index[1] 50 newkey <- [~]Index[1]
51 :| 51 :|
83 :| 83 :|
84 :| 84 :|
85 85
86 Dict Split(3,1) 86 Dict Split(3,1)
87 |: 87 |:
88 Out(0) <- Dict Split Helper[ [string(0)]Split@String[entrydelim(2)] , keydelim(1), 0, New@Dictionary[]] 88 Out(0) <- Dict Split Helper[ [string(0)]Split@String[entrydelim(2)] , keydelim(1), 0, Dictionary[]]
89 :| 89 :|
90 90
91 In Helper(2,1) 91 In Helper(2,1)
92 |: 92 |:
93 93
213 213
214 Fold Helper(4,1) 214 Fold Helper(4,1)
215 |: 215 |:
216 newval <- [ 216 newval <- [
217 [worker(3)]Do[ 217 [worker(3)]Do[
218 [[[New@List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] 218 [[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
219 ] 219 ]
220 ]Index[0] 220 ]Index[0]
221 221
222 [list(0)]Next[index(1)] 222 [list(0)]Next[index(1)]
223 |: 223 |:
260 260
261 Reverse Fold Helper(4,1) 261 Reverse Fold Helper(4,1)
262 |: 262 |:
263 newval <- [ 263 newval <- [
264 [worker(3)]Do[ 264 [worker(3)]Do[
265 [[[New@List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] 265 [[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
266 ] 266 ]
267 ]Index[0] 267 ]Index[0]
268 268
269 [list(0)]Previous[index(1)] 269 [list(0)]Previous[index(1)]
270 |: 270 |:
344 |: 344 |:
345 current <- [parts(0)]Index[index(1)] 345 current <- [parts(0)]Index[index(1)]
346 If[[current]Starts With["{"]] 346 If[[current]Starts With["{"]]
347 |: 347 |:
348 ,first <- [current]Slice[1] 348 ,first <- [current]Slice[1]
349 list entry, index, bracketnum <- Unserialize Helper[ [parts(0)]Set[index(1), first], index(1), New@List[]] 349 list entry, index, bracketnum <- Unserialize Helper[ [parts(0)]Set[index(1), first], index(1), List[]]
350 If[[bracketnum] = [0]] 350 If[[bracketnum] = [0]]
351 |: 351 |:
352 [parts(0)]Next[index] 352 [parts(0)]Next[index]
353 |: 353 |:
354 out(0), index(1), bracketnum(2) <- Unserialize Helper[parts(0), ~, [destlist(2)]Append[list entry]] 354 out(0), index(1), bracketnum(2) <- Unserialize Helper[parts(0), ~, [destlist(2)]Append[list entry]]
391 Generic Unserialize(1,1) 391 Generic Unserialize(1,1)
392 |: 392 |:
393 parts <- [serialized(0)]Split[","] 393 parts <- [serialized(0)]Split[","]
394 [parts]First 394 [parts]First
395 |: 395 |:
396 out(0) <- Unserialize Helper[parts, ~, New@List[]] 396 out(0) <- Unserialize Helper[parts, ~, List[]]
397 :||: 397 :||:
398 out(0) <- New@List[] 398 out(0) <- List[]
399 :| 399 :|
400 :| 400 :|
401 401
402 _Object to Dict(4,1) 402 _Object to Dict(4,1)
403 |: 403 |:
456 :||: 456 :||:
457 object <- value(0) 457 object <- value(0)
458 fieldlist <- [Blueprint Of[value(0)]]Get Fields 458 fieldlist <- [Blueprint Of[value(0)]]Get Fields
459 [fieldlist]First 459 [fieldlist]First
460 |: 460 |:
461 list <- _Object to Dict[value(0), fieldlist, ~, New@Dictionary[]] 461 list <- _Object to Dict[value(0), fieldlist, ~, Dictionary[]]
462 value(4) <- Val[list] 462 value(4) <- Val[list]
463 :||: 463 :||:
464 value(4) <- value(0) 464 value(4) <- value(0)
465 done(3) <- 1 465 done(3) <- 1
466 :| 466 :|
515 out(0) <- 1 515 out(0) <- 1
516 :| 516 :|
517 517
518 As List@String(1,1) 518 As List@String(1,1)
519 |: 519 |:
520 out(0) <- [New@List[]]Append[string(0)] 520 out(0) <- [List[]]Append[string(0)]
521 :| 521 :|
522 522
523 As List@List(1,1) 523 As List@List(1,1)
524 |: 524 |:
525 (0) <- (0) 525 (0) <- (0)
569 569
570 Filter Helper(4,1) 570 Filter Helper(4,1)
571 |: 571 |:
572 filter? <- [ 572 filter? <- [
573 [worker(2)]Do[ 573 [worker(2)]Do[
574 [New@List[]]Append[ [list(0)]Index[index(1)] ] 574 [List[]]Append[ [list(0)]Index[index(1)] ]
575 ] 575 ]
576 ]Index[0] 576 ]Index[0]
577 If[filter?] 577 If[filter?]
578 |: 578 |:
579 newlist <- [newlist(3)]Append[[list(0)]Index[index(1)]] 579 newlist <- [newlist(3)]Append[[list(0)]Index[index(1)]]
591 591
592 Filter(2,1) 592 Filter(2,1)
593 |: 593 |:
594 [list(0)]First 594 [list(0)]First
595 |: 595 |:
596 out(0) <- Filter Helper[list(0), ~, worker(1), New@List[]] 596 out(0) <- Filter Helper[list(0), ~, worker(1), List[]]
597 :||: 597 :||:
598 out(0) <- list(0) 598 out(0) <- list(0)
599 :| 599 :|
600 :| 600 :|
601 601
681 out(0) <- [list(0)]Append[key(2)] 681 out(0) <- [list(0)]Append[key(2)]
682 :| 682 :|
683 683
684 Keys(1,1) 684 Keys(1,1)
685 |: 685 |:
686 out(0) <- Fold["_Keys", New@List[], container(0)] 686 out(0) <- Fold["_Keys", List[], container(0)]
687 :| 687 :|
688 688
689 689
690 690