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

blob: 87598667ff47259663f9c0c33774efb0e6dd90f2 (plain) (tree)

3a0be565 ^

337a099d ^

a1f2f613 ^

337a099d ^

7d2c2d55 ^

83a43e63 ^

97dd2c65 ^

7d2c2d55 ^

337a099d ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-30 23:58:31 +0000

>-or-equal i, len break-if done? c:char <- index *contents, i sink <- write sink, c i <- add i, 1 loop } sink <- close sink ] def start-writing fs:address:filesystem, filename:text -> sink:address:sink:char, routine-id:num [ local-scope load-ingredients source:address:source:char, sink:address:sink:char <- new-channel 30 { break-if fs # real file system file:num <- $open-file-for-writing filename assert file, [no such file] routine-id <- start-running transmit-to-file file, source reply } # fake file system # beware: doesn't support multiple concurrent writes yet routine-id <- start-running transmit-to-fake-file fs, filename, source ] def transmit-to-file file:num, source:address:source:char -> source:address:source:char [ local-scope load-ingredients { c:char, done?:bool, source <- read source break-if done? $write-to-file file, c loop } file <- $close-file file ] def transmit-to-fake-file fs:address:filesystem, filename:text, source:address:source:char -> fs:address:filesystem, source:address:source:char [ local-scope load-ingredients # compute new file contents buf:address:buffer <- new-buffer 30 { c:char, done?:bool, source <- read source break-if done? buf <- append buf, c loop } contents:text <- buffer-to-array buf new-file-mapping:file-mapping <- merge filename, contents # write to filesystem curr-filename:text <- copy 0 data:address:array:file-mapping <- get *fs, data:offset # replace file contents if it already exists i:num <- copy 0 len:num <- length *data { done?:bool <- greater-or-equal i, len break-if done? tmp:file-mapping <- index *data, i curr-filename <- get tmp, name:offset found?:bool <- equal filename, curr-filename loop-unless found? put-index *data, i, new-file-mapping reply } # if file didn't already exist, make room for it new-len:num <- add len, 1 new-data:address:array:file-mapping <- new file-mapping:type, new-len put *fs, data:offset, new-data # copy over old files i:num <- copy 0 { done?:bool <- greater-or-equal i, len break-if done? tmp:file-mapping <- index *data, i put-index *new-data, i, tmp } # write new file put-index *new-data, len, new-file-mapping ]