shoney.arickathil
0df9b4fe31
- Modules: `use`/`pub`, directory-as-module, per-module symbol resolution (a
flat first-wins merge silently ran the wrong `pub fn` body), six reserved
stdlib namespaces typed UNKNOWN-BUT-RESERVED.
- Surface: `and`/`or` (own precedence tier, short-circuit, Bool-only), `${}`
interpolation desugared at parse time, `const`, break/continue with
drop-correct exits, do-while, inline-fn rejection.
- switch expr/stmt: required `default` over scalars/Text, arm unification,
EQ/EQS+JZ lowering, per-arm drop scopes with N-way JOIN-DROP; `default`
sorted last by a shared lowering order (textual order made arms dead).
- typedef records: structural, same shape = one class entry; `?name: T`
nullable-by-shape; emit_ctor fills omitted defaults; `type` as field name.
- Enum variants: all-bare unions = int ordinals; any-payload = one class
entry per variant, tag IS the header class_id (no header field, no format
bump); exhaustive switch without `default`; arity checked both directions.
- Payload escape modeled as move-out (pointer-kind fields only — a scalar
escape is a copy); caller reaps owned heap temps passed by borrow: two
unbounded LSan-blind leaks, 10.5 MB -> 1.5 MB flat over 300k iterations.
- Fixed en route, each with a RED repro: dead E209 builtin-arg check and
`int_to_text` missing from both types.ml builtin tables (both segfaulted
wovm), multi-file phantom double-report, emit_ctor's field temp clobbering
dst in tail position (pre-existing), warnings swallowed without an error.
- Two fenced VM builtins: `int_to_text` (13), `variant_tag` (14).
- 14+565 unit (was 14+401), corpus 71 (was 32) plain and under wovm_asan,
wovm-test + cli_smoke green. Log-watcher 307 -> 93 diagnostics (85 E101 /
4 E207 / 1 E208 / 3 W202); the 5 non-E101 residuals await Task 7 grammar.
38 lines
1.1 KiB
Text
38 lines
1.1 KiB
Text
-- haxe-parity Task 3: `switch` as an expression -- value-yielding over
|
|
-- both subjects this task covers (Int, Text), proving arm selection
|
|
-- (each case fires only for its own value, multi-value `case a, b:`
|
|
-- fires for either) and the required `default` fires for anything
|
|
-- else. `status_of`/`greet` mirror the sample's own shape
|
|
-- (docs/examples/log-watcher/mcp.wo's `status_text`/`dispatch`) closely
|
|
-- enough to be a real proof, not a toy: a `let`-bound switch result,
|
|
-- multiple values per case, `default` last.
|
|
fn status_of(code: Int) -> Text {
|
|
let text = switch code {
|
|
case 200: "OK";
|
|
case 404, 410: "Gone";
|
|
case 500: "Server Error";
|
|
default: "Unknown";
|
|
};
|
|
return text;
|
|
}
|
|
|
|
fn greet(name: Text) -> Text {
|
|
return switch name {
|
|
case "alice": "hi alice";
|
|
case "bob", "bobby": "hi bob";
|
|
default: "hi stranger";
|
|
};
|
|
}
|
|
|
|
fn main() -> Int {
|
|
print(status_of(200));
|
|
print(status_of(404));
|
|
print(status_of(410));
|
|
print(status_of(500));
|
|
print(status_of(1));
|
|
print(greet("alice"));
|
|
print(greet("bob"));
|
|
print(greet("bobby"));
|
|
print(greet("carol"));
|
|
return 0;
|
|
}
|