Mercurial > repos > rhope
annotate extendlib.vistxt @ 151:b75ec364cecc
Fix conflict between name of proviling variable and time function in C stdlib
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sun, 05 Dec 2010 18:04:19 -0500 |
| parents | 6202b866d72c |
| children |
| rev | line source |
|---|---|
| 0 | 1 |
| 2 Val(1,1) | |
| 3 |: | |
| 4 (0) <- (0) | |
| 5 :| | |
| 6 | |
| 7 Map Helper(3,1) | |
| 8 |: | |
| 9 newval <- [ | |
| 10 [worker(2)]Do[ | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
11 [List[]]Append[ [list(0)]Index[index(1)] ] |
| 0 | 12 ] |
| 13 ]Index[0] | |
| 14 | |
| 15 [list(0)]Next[index(1)] | |
| 16 |: | |
| 17 out(0) <- [Map Helper[list(0), ~, worker(2)]]Set[index(1), newval] | |
| 18 :||: | |
| 19 out(0) <- [list(0)]Set[index(1), newval] | |
| 20 :| | |
| 21 :| | |
| 22 | |
| 23 Map(2,1) | |
| 24 |: | |
| 25 [list(0)]First | |
| 26 |: | |
| 27 out(0) <- Map Helper[list(0), ~, worker(1)] | |
| 28 :||: | |
| 29 out(0) <- list(0) | |
| 30 :| | |
| 31 :| | |
| 32 | |
| 33 New Like@List(1,1) | |
| 34 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
35 out(0) <- List[] |
| 0 | 36 :| |
| 37 | |
| 38 New Like@Dictionary(1,1) | |
| 39 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
40 out(0) <- Dictionary[] |
| 0 | 41 :| |
| 42 | |
| 43 Key Value Map Helper(4,1) | |
| 44 |: | |
| 45 [worker(3)]Do[ | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
46 [[List[]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] |
| 0 | 47 ] |
| 48 |: | |
| 49 newval <- [~]Index[0] | |
| 50 newkey <- [~]Index[1] | |
| 51 :| | |
| 52 | |
| 53 next <- [newlist(2)]Set[newkey, newval] | |
| 54 | |
| 55 [list(0)]Next[index(1)] | |
| 56 |: | |
| 57 out(0) <- Key Value Map Helper[list(0), ~, next, worker(3)] | |
| 58 :||: | |
| 59 out(0) <- Val[next] | |
| 60 :| | |
| 61 :| | |
| 62 | |
| 63 Key Value Map(2,1) | |
| 64 |: | |
| 65 [list(0)]First | |
| 66 |: | |
| 67 out(0) <- Key Value Map Helper[list(0), ~, New Like[list(0)], worker(1)] | |
| 68 :||: | |
| 69 out(0) <- New Like[list(0)] | |
| 70 :| | |
| 71 :| | |
| 72 | |
| 73 Dict Split Helper(4,1) | |
| 74 |: | |
| 75 If[ [i(2)] < [[list(0)]Length@List] ] | |
| 76 |: | |
| 77 keyval <- Split@String[ [list(0)]Index@List[i(2)], keydelim(1) ] | |
| 78 key <- [keyval]Index@List[0] | |
| 79 val <- [keyval]Index@List[1] | |
| 80 HelpOut(0) <- Dict Split Helper[ list(0), keydelim(1), [i(2)] + [1], [dict(3)]Set@Dictionary[key, val] ] | |
| 81 :||: | |
| 82 HelpOut(0) <- dict(3) | |
| 83 :| | |
| 84 :| | |
| 85 | |
| 86 Dict Split(3,1) | |
| 87 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
88 Out(0) <- Dict Split Helper[ [string(0)]Split@String[entrydelim(2)] , keydelim(1), 0, Dictionary[]] |
| 0 | 89 :| |
| 90 | |
| 91 In Helper(2,1) | |
| 92 |: | |
| 93 | |
| 94 ,out(0) <- If[ [[haystack(1)]Length] > [0] ] | |
| 95 |: | |
| 96 [haystack(1)]Slice[ [needle(0)]Length ] | |
| 97 |: | |
| 98 out(0) <- If[ [needle(0)] = [~] ] | |
| 99 |: | |
| 100 :||: | |
| 101 [haystack(1)]Slice[1] | |
| 102 |: :| | |
| 103 |: | |
| 104 out(0) <- In Helper[needle(0), ~] | |
| 105 :| | |
| 106 :| | |
| 107 :| | |
| 108 :| | |
| 109 :| | |
| 110 | |
| 111 In(2,1) | |
| 112 |: | |
| 113 ,out(0) <- If[ [[needle(0)]Length] > [0] ] | |
| 114 |: | |
| 115 out(0) <- In Helper[needle(0), haystack(1)] | |
| 116 :| | |
| 117 :| | |
| 118 | |
| 119 Left Trim(2,1) | |
| 120 |: | |
| 121 If[ [[string(0)]Length] > [0] ] | |
| 122 |: | |
| 123 first,rest <- [string(0)]Slice[1] | |
| 124 If[ [first]In[trim(1)] ] | |
| 125 |: | |
| 126 trimmed(0) <- Left Trim[rest, trim(1)] | |
| 127 :||: | |
| 128 trimmed(0) <- string(0) | |
| 129 :| | |
| 130 :||: | |
| 131 trimmed(0) <- string(0) | |
| 132 :| | |
| 133 :| | |
| 134 | |
| 135 Right Trim(2,1) | |
| 136 |: | |
| 137 If[ [[string(0)]Length] > [0] ] | |
| 138 |: | |
| 139 rest,last <- [string(0)]Slice[ [[string(0)]Length] - [1]] | |
| 140 If[ [last]In[trim(1)] ] | |
| 141 |: | |
| 142 trimmed(0) <- Right Trim[rest, trim(1)] | |
| 143 :||: | |
| 144 trimmed(0) <- string(0) | |
| 145 :| | |
| 146 :||: | |
| 147 trimmed(0) <- string(0) | |
| 148 :| | |
| 149 :| | |
| 150 | |
| 151 Trim(2,1) | |
| 152 |: | |
| 153 left <- Left Trim[string(0), trim(1)] | |
| 154 trimmed(0) <- Right Trim[left, trim(1)] | |
| 155 :| | |
| 156 | |
| 157 Max(2,1) | |
| 158 |: | |
| 159 If[[(0)] > [(1)]] | |
| 160 |: | |
| 161 (0) <- (0) | |
| 162 :||: | |
| 163 (0) <- (1) | |
| 164 :| | |
| 165 :| | |
| 166 | |
| 167 Count Substring(2,1) | |
| 168 |: | |
| 169 out(0) <- Max[[[[string(0)]Split[sub(1)]]Length] - [1], 0] | |
| 170 :| | |
| 171 | |
| 172 KeyVal Helper(5,1) | |
| 173 |: | |
| 174 new string <- [[[string(4)]Append[key(1)]]Append[key sep(2)]]Append[ [container(0)]Index[key(1)] ] | |
| 175 [list(0)]Next[index(1)] | |
| 176 |: | |
| 177 out(0) <- KeyVal Helper[container(0), ~, key sep(2), val sep(3), [new string]Append[val sep(3)]] | |
| 178 :||: | |
| 179 out(0) <- Val[new string] | |
| 180 :| | |
| 181 :| | |
| 182 | |
| 183 Key Value Join(3,1) | |
| 184 |: | |
| 185 [container(0)]First | |
| 186 |: | |
| 187 out(0) <- KeyVal Helper[container(0), ~, key sep(1), val sep(2), ""] | |
| 188 :||: | |
| 189 out(0) <- "" | |
| 190 :| | |
| 191 :| | |
| 192 | |
| 193 Combine Helper(3,1) | |
| 194 |: | |
| 195 new dest <- [dest(1)]Set[key(2), [source(0)]Index[key(2)]] | |
| 196 [source(0)]Next[key(2)] | |
| 197 |: | |
| 198 out(0) <- Combine Helper[source(0), new dest, ~] | |
| 199 :||: | |
| 200 out(0) <- Val[new dest] | |
| 201 :| | |
| 202 :| | |
| 203 | |
| 204 Combine(2,1) | |
| 205 |: | |
| 206 [source(0)]First | |
| 207 |: | |
| 208 out(0) <- Combine Helper[source(0), dest(1), ~] | |
| 209 :||: | |
| 210 out(0) <- dest(1) | |
| 211 :| | |
| 212 :| | |
| 213 | |
| 214 Fold Helper(4,1) | |
| 215 |: | |
| 216 newval <- [ | |
| 217 [worker(3)]Do[ | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
218 [[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] |
| 0 | 219 ] |
| 220 ]Index[0] | |
| 221 | |
| 222 [list(0)]Next[index(1)] | |
| 223 |: | |
| 224 out(0) <- Fold Helper[list(0), ~, newval, worker(3)] | |
| 225 :||: | |
| 226 out(0) <- Val[newval] | |
| 227 :| | |
| 228 :| | |
| 229 | |
| 230 Fold(3,1) | |
| 231 |: | |
| 232 [list(2)]First | |
| 233 |: | |
| 234 out(0) <- Fold Helper[list(2), ~, start(1), worker(0)] | |
| 235 :||: | |
| 236 out(0) <- start(1) | |
| 237 :| | |
| 238 :| | |
| 239 | |
| 240 Previous@List(2,2) | |
| 241 |: | |
| 242 prev <- [index(1)] - [1] | |
| 243 If[[prev] < [0]] | |
| 244 |: | |
| 245 not found(1) <- list(0) | |
| 246 :||: | |
| 247 [list(0)]Index[prev] | |
| 248 |: | |
| 249 out(0) <- Val[prev] | |
| 250 :||: | |
| 251 out(0), not found(1) <- [list(0)]Previous@List[prev] | |
| 252 :| | |
| 253 :| | |
| 254 :| | |
| 255 | |
| 256 Last@List(1,2) | |
| 257 |: | |
| 258 out(0), not found(1) <- [list(0)]Previous@List[[list(0)]Length] | |
| 259 :| | |
| 260 | |
| 261 Reverse Fold Helper(4,1) | |
| 262 |: | |
| 263 newval <- [ | |
| 264 [worker(3)]Do[ | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
265 [[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)] |
| 0 | 266 ] |
| 267 ]Index[0] | |
| 268 | |
| 269 [list(0)]Previous[index(1)] | |
| 270 |: | |
| 271 out(0) <- Reverse Fold Helper[list(0), ~, newval, worker(3)] | |
| 272 :||: | |
| 273 out(0) <- Val[newval] | |
| 274 :| | |
| 275 :| | |
| 276 | |
| 277 Reverse Fold(3,1) | |
| 278 |: | |
| 279 [list(2)]Last | |
| 280 |: | |
| 281 out(0) <- Reverse Fold Helper[list(2), ~, start(1), worker(0)] | |
| 282 :||: | |
| 283 out(0) <- start(1) | |
| 284 :| | |
| 285 :| | |
| 286 | |
| 287 Join Helper(4,1) | |
| 288 |: | |
| 289 [list(0)]Next[index(3)] | |
| 290 |: | |
| 291 out(0) <- Join Helper[list(0), delim(1), [[current(2)]Append[delim(1)]]Append[[list(0)]Index[~]], ~] | |
| 292 :||: | |
| 293 out(0) <- current(2) | |
| 294 :| | |
| 295 :| | |
| 296 | |
| 297 Join(2,1) | |
| 298 |: | |
| 299 [list(0)]First | |
| 300 |: | |
| 301 out(0) <- Join Helper[list(0), delim(1), [list(0)]Index[~], ~] | |
| 302 :||: | |
| 303 out(0) <- "" | |
| 304 :| | |
| 305 :| | |
| 306 | |
| 307 Replace(3,1) | |
| 308 |: | |
| 309 replaced(0) <- [[string(0)]Split[find(1)]]Join[replace(2)] | |
| 310 :| | |
| 311 | |
| 312 Concatenate(2,1) | |
| 313 |: | |
| 314 out(0) <- Fold[["Append"]<String@Worker, left(0), right(1)] | |
| 315 :| | |
| 316 | |
| 317 Serialize@String(1,1) | |
| 318 |: | |
| 319 out(0) <- [[[[[string(0)]Replace["\\","\\\\"]]Replace[",","\\c"]]Replace["\n","\\n"]]Replace["{","\\l"]]Replace["}","\\r"] | |
| 320 :| | |
| 321 | |
| 322 Unserialize@String(1,1) | |
| 323 |: | |
| 324 out(0) <- [[[[[string(0)]Replace["\\c",","]]Replace["\\n","\n"]]Replace["\\l","{"]]Replace["\\r","}"]]Replace["\\\\","\\"] | |
| 325 :| | |
| 326 | |
| 327 Serialize@List(1,1) | |
| 328 |: | |
| 329 out(0) <- [["{"]Append[[Map[list(0), ["Serialize"]<String@Worker]]Join[","]]]Append["}"] | |
| 330 :| | |
| 331 | |
| 332 Starts With(2,1) | |
| 333 |: | |
| 334 out(0) <- [[thing(0)]Slice[ [starts with(1)]Length ]] = [starts with(1)] | |
| 335 :| | |
| 336 | |
| 337 Ends With(2,1) | |
| 338 |: | |
| 339 ,compare <- [thing(0)]Slice[ [[thing(0)]Length] - [[ends with (1)]Length] ] | |
| 340 out(0) <- [compare] = [ends with(1)] | |
| 341 :| | |
| 342 | |
| 343 Unserialize Helper(3,3) | |
| 344 |: | |
| 345 current <- [parts(0)]Index[index(1)] | |
| 346 If[[current]Starts With["{"]] | |
| 347 |: | |
| 348 ,first <- [current]Slice[1] | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
349 list entry, index, bracketnum <- Unserialize Helper[ [parts(0)]Set[index(1), first], index(1), List[]] |
| 0 | 350 If[[bracketnum] = [0]] |
| 351 |: | |
| 352 [parts(0)]Next[index] | |
| 353 |: | |
| 354 out(0), index(1), bracketnum(2) <- Unserialize Helper[parts(0), ~, [destlist(2)]Append[list entry]] | |
| 355 :||: | |
| 356 out(0) <- [destlist(2)]Append[list entry] | |
| 357 index(1) <- index(1) | |
| 358 bracketnum(2) <- 0 | |
| 359 :| | |
| 360 :||: | |
| 361 out(0) <- [destlist(2)]Append[list entry] | |
| 362 index(1) <- Val[index] | |
| 363 bracketnum(2) <- [bracketnum] - [1] | |
| 364 :| | |
| 365 :||: | |
| 366 If[[current]Ends With["}"]] | |
| 367 |: | |
| 368 parts <- [current]Split["}"] | |
| 369 entry <- [parts]Index[0] | |
| 370 If[[[entry]Length] = [0]] | |
| 371 |: | |
| 372 out(0) <- destlist(2) | |
| 373 :||: | |
| 374 out(0) <- [destlist(2)]Append[ [entry]Unserialize@String ] | |
| 375 :| | |
| 376 bracketnum(2) <- [[parts]Length] - [2] | |
| 377 index(1) <- index(1) | |
| 378 :||: | |
| 379 [parts(0)]Next[index(1)] | |
| 380 |: | |
| 381 out(0), index(1), bracketnum(2) <- Unserialize Helper[parts(0), ~, [destlist(2)]Append[[current]Unserialize@String]] | |
| 382 :||: | |
| 383 out(0) <- [destlist(2)]Append[[current]Unserialize@String] | |
| 384 index(1) <- index(1) | |
| 385 bracketnum(2) <- 0 | |
| 386 :| | |
| 387 :| | |
| 388 :| | |
| 389 :| | |
| 390 | |
| 391 Generic Unserialize(1,1) | |
| 392 |: | |
| 393 parts <- [serialized(0)]Split[","] | |
| 394 [parts]First | |
| 395 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
396 out(0) <- Unserialize Helper[parts, ~, List[]] |
| 0 | 397 :||: |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
398 out(0) <- List[] |
| 0 | 399 :| |
| 400 :| | |
| 401 | |
| 402 _Object to Dict(4,1) | |
| 403 |: | |
| 404 field <- [field list(1)]Index[index(2)] | |
| 405 [object(0)]Get Field[field] | |
| 406 |: | |
| 407 nextdict <- [dict(3)]Set[field, ~] | |
| 408 :||: | |
| 409 nextdict <- dict(3) | |
| 410 :| | |
| 411 [field list(1)]Next[index(2)] | |
| 412 |: | |
| 413 out(0) <- _Object to Dict[object(0), field list(1), ~, nextdict] | |
| 414 :||: | |
| 415 out(0) <- Val[nextdict] | |
| 416 :| | |
| 417 :| | |
| 418 | |
| 419 Get Pretty Print Value(1,5) | |
| 420 |: | |
| 421 If[[Type Of[value(0)]] = ["List"]] | |
| 422 |: | |
| 423 value(4) <- value(0) | |
| 424 list <- value(0) | |
| 425 object <- value(0) | |
| 426 :||: | |
| 427 If[[Type Of[value(0)]] = ["Dictionary"]] | |
| 428 |: | |
| 429 value(4) <- value(0) | |
| 430 list <- value(0) | |
| 431 object <- value(0) | |
| 432 :||: | |
| 433 If[[Type Of[value(0)]] = ["String"]] | |
| 434 |: | |
| 435 value(4) <- value(0) | |
| 436 print(0) <- value(0) | |
| 437 done(3) <- 1 | |
| 438 :||: | |
| 439 If[[Type Of[value(0)]] = ["Whole Number"]] | |
| 440 |: | |
| 441 value(4) <- value(0) | |
| 442 print(0) <- value(0) | |
| 443 done(3) <- 1 | |
| 444 :||: | |
| 445 If[[Type Of[value(0)]] = ["Yes No"]] | |
| 446 |: | |
| 447 value(4) <- value(0) | |
| 448 print(0) <- value(0) | |
| 449 done(3) <- 1 | |
| 450 :||: | |
| 451 If[[Type Of[value(0)]] = ["Real Number"]] | |
| 452 |: | |
| 453 value(4) <- value(0) | |
| 454 print(0) <- value(0) | |
| 455 done(3) <- 1 | |
| 456 :||: | |
| 457 object <- value(0) | |
| 458 fieldlist <- [Blueprint Of[value(0)]]Get Fields | |
| 459 [fieldlist]First | |
| 460 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
461 list <- _Object to Dict[value(0), fieldlist, ~, Dictionary[]] |
| 0 | 462 value(4) <- Val[list] |
| 463 :||: | |
| 464 value(4) <- value(0) | |
| 465 done(3) <- 1 | |
| 466 :| | |
| 467 :| | |
| 468 :| | |
| 469 :| | |
| 470 :| | |
| 471 | |
| 472 :| | |
| 473 :| | |
| 474 print(0) <- Type Of[object] | |
| 475 index(1) <- [list]First |::| | |
| 476 |: | |
| 477 print indent(2) <- "{Empty}" | |
| 478 :| | |
| 479 | |
| 480 :| | |
| 481 | |
| 482 Pretty Print Helper(3,1) | |
| 483 |: | |
| 484 newtabs <- [tabs(1)]Append[" "] | |
| 485 print,index,indented,done,value <- Get Pretty Print Value[[list(0)]Index[index(2)]] | |
| 486 Print[ [[[tabs(1)]Append[index(2)]]Append[": "]]Append[print] ] | |
| 487 |: | |
| 488 done <- Pretty Print Helper[value,newtabs ,index] | |
| 489 done <- Print[[newtabs]Append[indented]] | |
| 490 | |
| 491 Val[done] | |
| 492 |: | |
| 493 [list(0)]Next[index(2)] | |
| 494 |: | |
| 495 out(0) <- Pretty Print Helper[list(0), tabs(1), ~] | |
| 496 :||: | |
| 497 out(0) <- 1 | |
| 498 :| | |
| 499 :| | |
| 500 :| | |
| 501 | |
| 502 :| | |
| 503 | |
| 504 Pretty Print(2,1) | |
| 505 |: | |
| 506 newtabs <- [tabs(1)]Append[" "] | |
| 507 ,index,indented,,value <- Get Pretty Print Value[toprint(0)] | |
| 508 |: | |
| 509 Print[[tabs(1)]Append[~]] | |
| 510 |: | |
| 511 Pretty Print Helper[value,newtabs ,index] | |
| 512 Print[[newtabs]Append[indented]] | |
| 513 :| | |
| 514 :| | |
| 515 out(0) <- 1 | |
| 516 :| | |
| 517 | |
| 518 As List@String(1,1) | |
| 519 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
520 out(0) <- [List[]]Append[string(0)] |
| 0 | 521 :| |
| 522 | |
| 523 As List@List(1,1) | |
| 524 |: | |
| 525 (0) <- (0) | |
| 526 :| | |
| 527 | |
| 528 Check Starts(3,1) | |
| 529 |: | |
| 530 If[ [prev(1)] = [""] ] | |
| 531 |: | |
| 532 If[ [string(0)]Starts With[el(2)] ] | |
| 533 |: | |
| 534 out(0) <- el(2) | |
| 535 :||: | |
| 536 out(0) <- prev(1) | |
| 537 :| | |
| 538 :||: | |
| 539 out(0) <- prev(1) | |
| 540 :| | |
| 541 :| | |
| 542 | |
| 543 _Get DString@String(2,4) | |
| 544 |: | |
| 545 If[ [[string(0)]Length] = [0]] | |
| 546 |: | |
| 547 nomatch(3) <- Yes | |
| 548 before delim(1) <- "" | |
| 549 :||: | |
| 550 match <- Fold[["Check Starts"]Set Input[0, string(0)], "", delims(1)] | |
| 551 If[ [match] = [""] ] | |
| 552 |: | |
| 553 first,rest <- [string(0)]Slice[1] | |
| 554 rest(0),before,delim(2),nomatch(3) <- _Get DString@String[rest, delims(1)] | |
| 555 before delim(1) <- [first]Append[before] | |
| 556 :||: | |
| 557 junk,rest(0) <- [string(0)]Slice[ [match]Length ] | |
| 558 before delim(1) <- "" | |
| 559 delim(2) <- Val[match] | |
| 560 :| | |
| 561 :| | |
| 562 :| | |
| 563 | |
| 564 //Get DString@String(2,4) | |
| 565 //|: | |
| 566 // delims <- [delim(1)]As List | |
| 567 // rest(0), before delim(1), delim(2), nomatch(3) <- _Get DString@String[string(0), delims] | |
| 568 //:| | |
| 569 | |
| 570 Filter Helper(4,1) | |
| 571 |: | |
| 572 filter? <- [ | |
| 573 [worker(2)]Do[ | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
574 [List[]]Append[ [list(0)]Index[index(1)] ] |
| 0 | 575 ] |
| 576 ]Index[0] | |
| 577 If[filter?] | |
| 578 |: | |
| 579 newlist <- [newlist(3)]Append[[list(0)]Index[index(1)]] | |
| 580 :||: | |
| 581 newlist <- newlist(3) | |
| 582 :| | |
| 583 | |
| 584 [list(0)]Next[index(1)] | |
| 585 |: | |
| 586 out(0) <- Filter Helper[list(0), ~, worker(2), newlist] | |
| 587 :||: | |
| 588 out(0) <- Val[newlist] | |
| 589 :| | |
| 590 :| | |
| 591 | |
| 592 Filter(2,1) | |
| 593 |: | |
| 594 [list(0)]First | |
| 595 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
596 out(0) <- Filter Helper[list(0), ~, worker(1), List[]] |
| 0 | 597 :||: |
| 598 out(0) <- list(0) | |
| 599 :| | |
| 600 :| | |
| 601 | |
| 602 Pop@List(1,1) | |
| 603 |: | |
| 604 [list(0)]Last | |
| 605 |: | |
| 606 out(0) <- [list(0)]Remove[~] | |
| 607 :||: | |
| 608 out(0) <- list(0) | |
| 609 :| | |
| 610 :| | |
| 611 | |
| 612 Peek@List(1,2) | |
| 613 |: | |
| 614 [list(0)]Last | |
| 615 |: | |
| 616 out(0) <- [list(0)]Index[~] | |
| 617 :||: | |
| 618 empty(1) <- list(0) | |
| 619 :| | |
| 620 :| | |
| 621 | |
| 622 Contains(2,1) | |
| 623 |: | |
| 624 [haystack(0)]Get DString[needle(1)] | |
| 625 |: | |
| 626 out(0) <- Yes | |
| 627 :| |::| |::| |: | |
| 628 out(0) <- No | |
| 629 :| | |
| 630 :| | |
| 631 | |
| 632 _Find(3,2) | |
| 633 |: | |
| 634 If[[[haystack(0)]Index[index(2)]] = [needle(1)]] | |
| 635 |: | |
| 636 index(0) <- index(2) | |
| 637 :||: | |
| 638 [haystack(0)]Next[index(2)] | |
| 639 |: | |
| 640 index(0),notfound(1) <- _Find[haystack(0),needle(1),~] | |
| 641 :||: | |
| 642 notfound(1) <- needle(1) | |
| 643 :| | |
| 644 :| | |
| 645 :| | |
| 646 | |
| 647 Find(2,2) | |
| 648 |: | |
| 649 [haystack(0)]First | |
| 650 |: | |
| 651 index(0),not found(1) <- _Find[haystack(0), needle(1), ~] | |
| 652 :||: | |
| 653 not found(1) <- needle(1) | |
| 654 :| | |
| 655 | |
| 656 :| | |
| 657 | |
| 658 _Tail(3,1) | |
| 659 |: | |
| 660 [list(0)]Next[current(1)] | |
| 661 |: | |
| 662 out(0) <- _Tail[list(0), ~, [newlist(2)]Append[[list(0)]Index[~]]] | |
| 663 :||: | |
| 664 out(0) <- newlist(2) | |
| 665 :| | |
| 666 :| | |
| 667 | |
| 668 Tail(2,1) | |
| 669 |: | |
| 670 newlist <- [list(0)]New Like | |
| 671 [list(0)]Index[start(1)] | |
| 672 |: | |
| 673 out(0) <- _Tail[list(0), start(1), [newlist]Append[~]] | |
| 674 :||: | |
| 675 out(0) <- Val[newlist] | |
| 676 :| | |
| 677 :| | |
| 678 | |
| 679 _Keys(3,1) | |
| 680 |: | |
| 681 out(0) <- [list(0)]Append[key(2)] | |
| 682 :| | |
| 683 | |
| 684 Keys(1,1) | |
| 685 |: | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
686 out(0) <- Fold["_Keys", List[], container(0)] |
| 0 | 687 :| |
| 688 | |
| 689 | |
| 690 |