mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/arc/.traces/convert-quotes-defer-reply

	Commit message (Collapse)	Author	Age	Files	Lines
*	1276 - make C++ version the default	Kartik K. Agaram	2015-05-05	1	-0/+0
	I've tried to update the Readme, but there are at least a couple of issues.

;id=d99607231dd767df599478bb0bbc68d0a3483d1a'>^

d4b4d018 ^

239328e4 ^

d4b4d018 ^

239328e4 ^

d4b4d018 ^

cb9e66d7 ^

1
2

; a screen is an array of pointers to lines, in turn arrays of characters

(function new-screen [
  (default-space:space-address <- new space:literal 30:literal)
  (nrows:integer <- next-input)
  (ncols:integer <- next-input)
  (result:screen-address <- new screen:literal nrows:integer)
  (rowidx:integer <- copy 0:literal)
  { begin
    (curr-line-address-address:line-address-address <- index-address result:screen-address/deref rowidx:integer)
    (curr-line-address-address:line-address-address/deref <- new line:literal ncols:integer)
    (curr-line-address:line-address <- copy curr-line-address-address:line-address-address/deref)
    (rowidx:integer <- add rowidx:integer 1:literal)
    (x:boolean <- not-equal rowidx:integer nrows:integer)
    (loop-if x:boolean)
  }
  (reply result:screen-address)
])