4e942b5373
Rename all example tests/companions to the XXXX-category-test-name scheme (per-category 100-blocks: basic 0010, types 0100, ... errors 1000, diagnostics 1100, ffi 1200, ffi-objc 1300, ffi-jni 1400, vectors 1500, platform 1600). Companions and dir/C fixtures move in lockstep with their parent test; #import/#source/#include paths rewritten to match. Expected output now lives in examples/expected/ (a sibling dir of the tests) split into three streams per the new convention: <name>.exit / <name>.stdout / <name>.stderr (+ optional <name>.ir) run_examples.sh rewritten: scans examples/ and issues/ for an expected/<name>.exit marker, captures stdout and stderr separately (no more 2>&1), compares each stream + exit + optional IR snapshot. Behavior validated unchanged: every renamed test reproduces its prior merged output + exit (diffs limited to file paths/basenames embedded in diagnostics + traces, which correctly reflect the new names). Suite: 292 passed, 0 failed. 50-smoke.sx split + issue relocation + docs follow in subsequent commits.
65 lines
2.5 KiB
Plaintext
65 lines
2.5 KiB
Plaintext
// `catch` on a pure-failable LHS (ERR step E1.5). `expr catch [e] BODY`
|
|
// consumes the error inline: on failure it binds the tag to `e` (optional)
|
|
// and runs BODY; on success the result is void (a `-> !` LHS has no success
|
|
// value). BODY may diverge (`return` / `raise` — typed `noreturn`, E1.4c) or
|
|
// fall through. `catch` needs no failable *enclosing* function — it handles
|
|
// the error locally. All four body forms appear below: block, no-binding
|
|
// block, match-body (`== { case ... }`), and the selective handle + re-raise
|
|
// pattern. Value-carrying `-> (T, !)` catch (binding the success value) lands
|
|
// with the tuple ABI in E2.
|
|
|
|
#import "modules/std.sx";
|
|
|
|
E :: error { Bad, Empty }
|
|
|
|
must :: (n: s32) -> !E {
|
|
if n < 0 { raise error.Bad; }
|
|
if n == 0 { raise error.Empty; }
|
|
return;
|
|
}
|
|
|
|
// Diverging body — returns from `classify` on error.
|
|
classify :: (n: s32) -> s32 {
|
|
must(n) catch e {
|
|
if e == error.Bad { return 1; }
|
|
if e == error.Empty { return 2; }
|
|
return 9;
|
|
};
|
|
return 0; // must(n) succeeded
|
|
}
|
|
|
|
// Match-body form — sugar for `catch e { if e == { case ... } }`.
|
|
mclassify :: (n: s32) -> s32 {
|
|
must(n) catch e == {
|
|
case .Bad: return 11;
|
|
case .Empty: return 22;
|
|
else: return 99;
|
|
};
|
|
return 0;
|
|
}
|
|
|
|
// Selective handle + re-raise (failable enclosing fn; `raise e` is the
|
|
// variable form). Swallows Bad → success; re-raises everything else.
|
|
handle_some :: (n: s32) -> !E {
|
|
must(n) catch e {
|
|
if e == error.Bad { return; } // swallow → success
|
|
raise e; // re-raise the rest
|
|
};
|
|
return;
|
|
}
|
|
|
|
main :: () -> s32 {
|
|
r : s32 = 0;
|
|
must(-1) catch e { if e == error.Bad { r = r + 1; } }; // Bad → +1
|
|
must(5) catch { r = r + 100; }; // success → body skipped
|
|
r = r + classify(0); // Empty → 2
|
|
r = r + classify(8); // success → 0
|
|
he := handle_some(0); // Empty re-raised
|
|
if he == error.Empty { r = r + 4; } // +4
|
|
hb := handle_some(-1); // Bad swallowed → success
|
|
if hb == error.Bad { r = r + 50; } // not taken
|
|
r = r + mclassify(-1); // Bad → 11
|
|
print("catch result: {}\n", r); // 1+2+4+11 = 18
|
|
return r;
|
|
}
|