Brummel
9545257333
Milestone-close fieldtest for the raw-buf milestone, milestone-scope
variant: four end-to-end scenarios derived top-down from the milestone
promise (construct via (new RawBuf <elem> <size>), fill/read via
set/get, size-only buffers, element variety across {Int,Float,Bool},
forbidden-element reject at check, buffer threading under own/borrow).
Result confirms the milestone-promise hypothesis — RawBuf is clean
end to end, zero bugs:
- mrb_1 Int fill/read loop: check ok, run + native build both print 70
- mrb_2 Float own->own threading + borrow read: prints 3.5
- mrb_3 size-only Bool buffer (#51 legitimate-but-unobserved case): prints 8
- mrb_4 Unit element: rejected at check with a precise
param-not-in-restricted-set diagnostic; build stops at the same
error, codegen never reached (the #51 fix)
Two [working] findings (carry-on) and one [spec_gap]: the
kernel-extensions whitepaper (design/models/0007) teaches bare-mode
fn-type slots that the post-#55 parser rejects. Verified and triaged
separately; the ledger fix follows in its own commit.
27 lines
1.2 KiB
Plaintext
27 lines
1.2 KiB
Plaintext
(module mrb_2_float_smooth
|
|
(fn store_pair
|
|
(doc "Thread a Float RawBuf through an own->own helper that writes two slots and hands the buffer back. Tests threading a buffer through a function under the uniqueness/mode discipline: caller gives up own, callee returns own.")
|
|
(type (fn-type
|
|
(params (own (con RawBuf (con Float))) (own (con Float)) (own (con Float)))
|
|
(ret (own (con RawBuf (con Float))))))
|
|
(params buf a b)
|
|
(body
|
|
(let buf (app RawBuf.set buf 0 a)
|
|
(app RawBuf.set buf 1 b))))
|
|
(fn average
|
|
(doc "Read both slots through a borrow and return their mean. Float element variety: double load + float arithmetic.")
|
|
(type (fn-type
|
|
(params (borrow (con RawBuf (con Float))))
|
|
(ret (own (con Float)))))
|
|
(params buf)
|
|
(body
|
|
(app / (app + (app RawBuf.get buf 0) (app RawBuf.get buf 1)) 2.0)))
|
|
(fn main
|
|
(doc "Allocate a 2-slot Float RawBuf, store 3.0 and 4.0 via the own->own helper, then print their average (3.5).")
|
|
(type (fn-type (params) (ret (own (con Unit))) (effects IO)))
|
|
(params)
|
|
(body
|
|
(let buf (new RawBuf (con Float) 2)
|
|
(let buf (app store_pair buf 3.0 4.0)
|
|
(app print (app average buf)))))))
|