x.mu « 0.vm.arc « archive - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log blame commit diff stats

path: root/archive/0.vm.arc/x.mu

blob: 778298a8a4ce127d9b7c24834ceb3516966ddc64 (plain) (tree)

b96af395 ^

(function main [
  (x:integer <- copy 1:literal)
  (y:integer <- copy 3:literal)
  (z:integer <- add x:integer y:integer)
  ($dump-memory)
])

span> load-ingredients result <- new stream:type *result <- put *result, index:offset, 0 *result <- put *result, data:offset, s ] def rewind-stream in:address:stream -> in:address:stream [ local-scope load-ingredients *in <- put *in, index:offset, 0 ] def read-line in:address:stream -> result:address:array:character, in:address:stream [ local-scope load-ingredients idx:number <- get *in, index:offset s:address:array:character <- get *in, data:offset next-idx:number <- find-next s, 10/newline, idx result <- copy-range s, idx, next-idx idx <- add next-idx, 1 # skip newline # write back *in <- put *in, index:offset, idx ] def end-of-stream? in:address:stream -> result:boolean [ local-scope load-ingredients idx:number <- get *in, index:offset s:address:array:character <- get *in, data:offset len:number <- length *s result <- greater-or-equal idx, len ]