Mercurial > repos > rhope
comparison extendlib.vistxt @ 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 | 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 |