From b96af395b9af2ff9df94b3e82213171f30827c8d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 5 May 2015 21:17:24 -0700 Subject: 1276 - make C++ version the default I've tried to update the Readme, but there are at least a couple of issues. --- arc/edit.mu | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 arc/edit.mu (limited to 'arc/edit.mu') diff --git a/arc/edit.mu b/arc/edit.mu new file mode 100644 index 00000000..ebf43161 --- /dev/null +++ b/arc/edit.mu @@ -0,0 +1,18 @@ +; 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) +]) -- cgit 1.4.1-2-gfad0 rtik/mu/about/?h=hlt'>about summary refs log tree commit diff stats

path: root/cpp/.traces/break_nested_degenerate

blob: 30ce0e3e444438292741bb964f4ae4e7838dcba5 (plain) (blame)