Mercurial > repos > rhope
annotate extendlib.vistxt @ 75:0083b2f7b3c7
Partially working implementation of List. Modified build scripts to allow use of other compilers. Fixed some bugs involving method implementations on different types returning different numbers of outputs. Added Fold to the 'builtins' in the comipler.
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Tue, 06 Jul 2010 07:52:59 -0400 |
| 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 |