Refactoring (MAY BE BUGGY)

This commit is contained in:
2025-10-13 09:16:28 +11:00
parent 81d6e21a00
commit fa5d805eef
20 changed files with 2953 additions and 2929 deletions

View File

@@ -1,11 +1,11 @@
#!/usr/bin/env ground
stdlnout "Program args: "
getlistsize *args &argsSize
getlistsize &args &argsSize
set &counter 0
@loopstart
equal $counter $argsSize &bool
if $bool %end
getlistat *args $counter &item
getlistat &args $counter &item
stdlnout $item
add 1 $counter &counter
jump %loopstart

View File

@@ -20,19 +20,19 @@ stdlnout $testVar
# Lists
setlist *testList "Item 1" "Another Item" "Item the Third"
getlistat *testList 2 &tmp
setlist &testList "Item 1" "Another Item" "Item the Third"
getlistat &testList 2 &tmp
stdlnout $tmp
setlistat *testList 1 "I changed this item"
getlistat *testList 1 &tmp
setlistat &testList 1 "I changed this item"
getlistat &testList 1 &tmp
stdlnout $tmp
listappend *testList "I appended this item"
getlistat *testList 3 &tmp
listappend &testList "I appended this item"
getlistat &testList 3 &tmp
stdlnout $tmp
getlistsize *testList &tmp
getlistsize &testList &tmp
stdlnout $tmp
# String Operations

View File

@@ -2,8 +2,8 @@ set &testVar "dingus"
exists &testVar &exist
stdlnout $exist
setlist *myList "item"
exists *myList &exist
setlist &myList "item"
exists &myList &exist
stdlnout $exist
@dingus
@@ -13,8 +13,5 @@ stdlnout $exist
exists &doesNotExist &exist
stdlnout $exist
exists *doesNotExist &exist
stdlnout $exist
exists %doesNotExist &exist
stdlnout $exist

View File

@@ -22,18 +22,18 @@ stdlnout "I called a function"
fun -list !dingus
stdlnout "Testing lists in functions"
setlist *dingle "heheheha" "hahahahe" "hmmm"
return *dingle
setlist &dingle "heheheha" "hahahahe" "hmmm"
return $dingle
endfun
call !dingus *outlist
call !dingus &outlist
getlistsize *outlist &size
getlistsize &outlist &size
set &counter 0
@loopstart
equal $size $counter &cond
if $cond %loopend
getlistat *outlist $counter &tmp
getlistat &outlist $counter &tmp
stdlnout $tmp
add 1 $counter &counter
jump %loopstart

View File

@@ -1,14 +1,14 @@
# A cool list
setlist *favWords "hello" "there" "general" "kenobi"
setlist &favWords "hello" "there" "general" "kenobi"
stdlnout $favWords
set &count 0
set &passedThrough true
@jmpbck
getlistat *favWords $count &tmp
getlistat &favWords $count &tmp
stdlnout $tmp
add $count 1 &count
getlistsize *favWords &tmp2
getlistsize &favWords &tmp2
inequal $count $tmp2 &tmp3
if $tmp3 %jmpbck