6824 - tile: gap in column width computation - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

author	Kartik Agaram <vc@akkartik.com>	2020-09-21 20:25:24 -0700
committer	Kartik Agaram <vc@akkartik.com>	2020-09-21 20:25:24 -0700
commit	ce1b997619915f836901586d7d935bc6b2e996b9 (patch)
tree	a7e1af683bbcd7e91e6307de0bbdac70b20d7253 /115write-byte.subx
parent	d3876066178aecf2d2247368fffbb18872a07e88 (diff)
download	mu-ce1b997619915f836901586d7d935bc6b2e996b9.tar.gz

6824 - tile: gap in column width computation

Diffstat (limited to '115write-byte.subx')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 066stream.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v1"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> # new type to help incrementally read strings container stream [ index:number data:address:array:character ] recipe new-stream [ local-scope result:address:stream <- new stream:type i:address:number <- get-address *result, index:offset *i <- copy 0 d:address:address:array:character <- get-address *result, data:offset *d <- next-ingredient reply result ] recipe rewind-stream [ local-scope in:address:stream <- next-ingredient x:address:number <- get-address *in, index:offset *x <- copy 0 reply in/same-as-arg:0 ] recipe read-line [ local-scope in:address:stream <- next-ingredient idx:address:number <- get-address *in, index:offset s:address:array:character <- get *in, data:offset next-idx:number <- find-next s, 10/newline, *idx result:address:array:character <- string-copy s, *idx, next-idx *idx <- add next-idx, 1 # skip newline reply result ] recipe end-of-stream? [ local-scope in:address:stream <- next-ingredient idx:address:number <- get *in, index:offset s:address:array:character <- get *in, data:offset len:number <- length *s result:boolean <- greater-or-equal idx, len reply result ] </pre> </body> </html>


context:
space:
mode: