akkartik/mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

7010

Browse Source 
A new example that better demonstrates the value of named arguments.
This commit is contained in:
Kartik Agaram 2020-10-12 10:10:31 -07:00
parent 855431280d
commit 598f942624
2 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
apps/tile/data.mu
View File

@ -177,7 +177,7 @@ fn create-primitive-functions _self: (addr handle function) {
var next/esi: (addr handle function) <- get f, next
allocate next
var _f/eax: (addr function) <- lookup *next
var f/ecx: (addr function) <- copy _f
var f/esi: (addr function) <- copy _f
var name-ah/eax: (addr handle array byte) <- get f, name
populate-text-with name-ah, "2+"
var args-ah/eax: (addr handle word) <- get f, args
@ -214,6 +214,47 @@ fn create-primitive-functions _self: (addr handle function) {
prev-word-ah <- get tmp, prev
copy-object curr-word-ah, prev-word-ah
tmp <- lookup *prev-word-ah
# x square = x x *
var next/esi: (addr handle function) <- get f, next
allocate next
var _f/eax: (addr function) <- lookup *next
var f/esi: (addr function) <- copy _f
var name-ah/eax: (addr handle array byte) <- get f, name
populate-text-with name-ah, "square"
var args-ah/eax: (addr handle word) <- get f, args
allocate args-ah
var args/eax: (addr word) <- lookup *args-ah
initialize-word-with args, "x"
var body-ah/eax: (addr handle line) <- get f, body
allocate body-ah
var body/eax: (addr line) <- lookup *body-ah
initialize-line body
var curr-word-ah/ecx: (addr handle word) <- get body, data
# *curr-word = "x"
allocate curr-word-ah
var tmp/eax: (addr word) <- lookup *curr-word-ah
var curr-word/edx: (addr word) <- copy tmp
initialize-word-with curr-word, "x"
# *curr-word->next = "x"
var next-word-ah/ebx: (addr handle word) <- get curr-word, next
allocate next-word-ah
tmp <- lookup *next-word-ah
initialize-word-with tmp, "x"
# *curr-word->next->prev = curr-word
var prev-word-ah/edi: (addr handle word) <- get tmp, prev
copy-object curr-word-ah, prev-word-ah
# curr-word = curr-word->next
curr-word-ah <- copy next-word-ah
curr-word <- copy tmp
# *curr-word->next = "*"
next-word-ah <- get curr-word, next
allocate next-word-ah
tmp <- lookup *next-word-ah
initialize-word-with tmp, "*"
# *curr-word->next->prev = curr-word
prev-word-ah <- get tmp, prev
copy-object curr-word-ah, prev-word-ah
tmp <- lookup *prev-word-ah
}
fn function-body functions: (addr handle function), _word: (addr handle word), out: (addr handle line) {

2
apps/tile/environment.mu
View File

@ -868,6 +868,8 @@ fn clear-canvas _env: (addr environment) {
print-string screen, "x 1+ = x 1 +"
move-cursor screen, 5, 2
print-string screen, "x 2+ = x 1+ 1+"
move-cursor screen, 6, 2
print-string screen, "x square = x x *"
}
fn real-grapheme? g: grapheme -> result/eax: boolean {