akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
mu/archive/0.vm.arc/edit.mu

19 lines
813 B
Forth
Raw Normal View History

113 - slight progress working with screen 2D array Why did it take forever to realize nobody will set the array length, that I have to do it for myself?
2014-10-07 06:39:13 +00:00
; a screen is an array of pointers to lines, in turn arrays of characters
403 - 'function' is more clear than 'def'
2014-12-13 02:07:30 +00:00
(function new-screen [
497 - strengthen the concept of 'space' 'default-scope' is now 'default-space' 'closure-generator' is now 'next-space-generator' The connection to high-level syntax for closures is now tenuous, so we'll call the 'outer scope' the 'next space'. So, let's try to create a few sentences with all these related ideas: Names map to addresses offset from a default-space when it's provided. Spaces can be strung together. The zeroth variable points to the next space, the one that is accessed when a variable has /space:1. To map a name to an address in the next space, you need to know what function generated that space. A corollary is that the space passed in to a function should always be generated by a single function. Spaces can be used to construct lexical scopes and objects.
2015-01-03 02:13:04 +00:00
(default-space:space-address <- new space:literal 30:literal)
428 - cleanup odds and ends
2014-12-14 21:21:32 +00:00
(nrows:integer <- next-input)
(ncols:integer <- next-input)
(result:screen-address <- new screen:literal nrows:integer)
(rowidx:integer <- copy 0:literal)
121 - finally I can alloc a 2D array
2014-10-07 21:03:09 +00:00
{ begin
428 - cleanup odds and ends
2014-12-14 21:21:32 +00:00
(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)
121 - finally I can alloc a 2D array
2014-10-07 21:03:09 +00:00
}
428 - cleanup odds and ends
2014-12-14 21:21:32 +00:00
(reply result:screen-address)
314 - better syntax for functions
2014-11-25 05:09:07 +00:00
])