Hojun-Cho
eb6083e54a
The driver flip moves build artifacts from next-to-source <stem>.s to a .sepwork/ scratch dir. 29 Pattern-B gates now build `ww build --sep -o <stem>` and read <stem>.sepwork/__root.s (multi-package gates concat all <stem>.sepwork/*.s, since cross-package labels live in per-package .s). All intermediates redirect to /tmp (WW_PKGCACHE + -o), so the corpus runs parallel-safe with no source-tree pollution. Tests pass now (--sep is live) and survive the flip. 915 additionally retargeted off strconv's PRIVATE left_shift_table (a let, not export) — which separate compilation correctly hides — onto a test-local package that exports its own probe table (#96). The combined path only linked it via a single-unit private leak; encapsulation is now honored under sep. Test-only; all 5 *_ww binaries HOLD. 989_m1mangle_run deferred (blocked by #99, imported-package fn main mangling under sep).
588 lines
21 KiB
C
588 lines
21 KiB
C
/*
|
|
* 778_bufio_vstream_run — project #94 fold-eFinal sentinel. Pins
|
|
* the single-surface lib/bufio over io.stream — the unified surface
|
|
* the eFinal FLIP collapsed to, NOT a port of Hare's missing scanner
|
|
* features (those are #217, OUT of eFinal). Covers:
|
|
* - buffered stream: `stream` (vt@offset0 for the intrusive cast),
|
|
* `init` (returns the stream BY VALUE; sret field-by-field)
|
|
* over an underlying **io.stream** src — every underlying read/
|
|
* write/close goes through io.read/io.write/io.close (the
|
|
* vtable dispatchers), io.error forwards directly (no nomem-widen).
|
|
* Plus setflush / flush (public + internal drain) / unread /
|
|
* isbuffered (fn-ptr-equality discriminator).
|
|
* - scanner: `scanner` (value-return newscannerbuf over an
|
|
* io.stream src) + scanbyte / scanbytes (single-byte delim) /
|
|
* scanline / finish.
|
|
*
|
|
* Each row imports os + bufio + memio + io (NOT fmt — bufio doesn't
|
|
* transitively pull fmt, so it dodges the fmt-presence cgen cluster
|
|
* #226 (io.read error-remap nominal-identity) + #227 (spread-union
|
|
* widen/return-ABI) that blocks the fmt-importing tests' byte-id; both
|
|
* stages run on every row, cs.s==ww.s — bufio is NOT compiler-embedded,
|
|
* so these byte-id rows are its ONLY byte-id cover). (#209, the wwstage
|
|
* formattable match-arm CHECKER bail, is now closed.)
|
|
*
|
|
* row | what it pins
|
|
* --------------------------+--------------------------------------
|
|
* stream_write_flush | bufio.init + io.write
|
|
* | through bwrite + bufio.flush via
|
|
* | io.close. Asserts the data
|
|
* | reaches the underlying memio buffer
|
|
* | after close drains wbuf. Full chain:
|
|
* | stream built field-by-field →
|
|
* | return r (sret) → caller takes &b.vt →
|
|
* | dispatcher recovers via *stream →
|
|
* | flush → io.write(b.src, ...).
|
|
* stream_read_unread | init read path: io.read
|
|
* | refills rbuf from src, serves first
|
|
* | N bytes. Pins bread's read path
|
|
* | through the intrusive cast. unread
|
|
* | not exposed yet (no bufio.unread
|
|
* | equivalent on the V API surface
|
|
* | until eFinal); this row exercises
|
|
* | the base read path instead.
|
|
* isbuffered_v_discriminate | isbuffered on a fresh init
|
|
* | returns true; isbuffered on a
|
|
* | plain memio.fixed (no bufio
|
|
* | wrap) returns false. Pins the
|
|
* | fn-ptr-equality discriminator
|
|
* | (ref/hare/bufio/stream.ha:179) over
|
|
* | the bread/bwrite callback symbols.
|
|
* isbuffered_v_boundary | isbuffered discriminates by vtable
|
|
* | identity: true on the bufio.init
|
|
* | wrapper stream, false on the
|
|
* | underlying (non-bufio) memio stream.
|
|
* | Pins the fn-ptr-equality discriminator
|
|
* | (ref/hare/bufio/stream.ha:179) over
|
|
* | the single-surface io.stream.
|
|
* branched_bufio_wrap | branched callee per #105: two
|
|
* | distinct underlying *io.stream's
|
|
* | runtime-selected; bufio.init
|
|
* | wraps the picked one. io.read
|
|
* | returns the matching source's
|
|
* | content. Catches a constant-fold
|
|
* | mistake in the dispatch path
|
|
* | (mirror of 775's branched_readers
|
|
* | for the bufio-wrap side).
|
|
*
|
|
* DEFERRALS / RELATED (NOT addressed by this row):
|
|
*
|
|
* - io fold-2 (handle port): drew-deferred. Hare's
|
|
* ref/hare/bufio/stream.ha:69 takes `src: io::handle`; once
|
|
* handle = (file | int) lands, init's src parameter
|
|
* collapses accordingly. #5 graduates.
|
|
*
|
|
* - #206 (bare &fn → (*alias|void)): 5 cast sites in bufio.ww
|
|
* (3 vtable wire-up + 2 in isbuffered); explicit casts KEPT
|
|
* (ken/#214 — cast-drop deferred, gated on #214).
|
|
*
|
|
* - #173 (TRY-on-tagged-return both-stages broken): flush
|
|
* constructs nomem and widens to io.error explicitly rather
|
|
* than using `io.write(...)?`; same shape memio.ww + fmt.ww
|
|
* adopt.
|
|
*
|
|
* - #207 (struct-lit multi-tagged-field copy drops past first) and
|
|
* #210 (slice-field struct-lit drop): not reachable from the
|
|
* value-return form — stream is built field-by-field in a
|
|
* local then sret-returned, no `alloc(T{...})` struct-lit.
|
|
*
|
|
* BOOTSTRAP-EMBED CHECK: bufio is NOT embedded in any selfhost
|
|
* combined.ww (grep confirmed), so the fold-eFinal bufio collapse
|
|
* does NOT require a Makefile regen (#110); only lib/bufio/ test
|
|
* paths see the surface. 990-997 byte-id gates stay green by virtue
|
|
* of bufio being test-only.
|
|
*
|
|
* GATE POLARITY: must stay GREEN. A red here means lib/bufio
|
|
* regressed, the sret value-return path miscompiled, the intrusive
|
|
* io.stream→*stream cast miscomputed offsets, the io.vtable
|
|
* first-field embed lost its offset-0 invariant, or the fn-ptr-
|
|
* equality discriminator in isbuffered stopped resolving.
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/wait.h>
|
|
|
|
static int
|
|
runwait(const char *cmd)
|
|
{
|
|
int rc = system(cmd);
|
|
if (rc == -1) return -1;
|
|
if (WIFEXITED(rc)) return WEXITSTATUS(rc);
|
|
return -1;
|
|
}
|
|
|
|
#define STAGE_CS 1
|
|
#define STAGE_WW 2
|
|
|
|
struct row {
|
|
const char *label;
|
|
const char *src;
|
|
int want_exit;
|
|
int stage_mask;
|
|
int byte_id;
|
|
};
|
|
|
|
static const struct row rows[] = {
|
|
{ "stream_write_flush",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [16]u8;\n"
|
|
" let mst: memio.stream = memio.fixed(raw[0:16]);\n"
|
|
" let msrc: io.stream = &mst.vt;\n"
|
|
" let rbuf: [8]u8;\n"
|
|
" let wbuf: [8]u8;\n"
|
|
" let b: bufio.stream = bufio.init(msrc, rbuf[0:8], wbuf[0:8]);\n"
|
|
" let vs: io.stream = &b.vt;\n"
|
|
" let payload: [5]u8;\n"
|
|
" payload[0] = 104u8; payload[1] = 105u8;\n"
|
|
" payload[2] = 33u8; payload[3] = 98u8; payload[4] = 121u8;\n"
|
|
" let wr = io.write(vs, payload[0:5]);\n"
|
|
" let nw: size = 0;\n"
|
|
" if (wr is size) { nw = wr as size; };\n"
|
|
" if (mst.pos != 0) { return 91; };\n"
|
|
" let cl = io.close(vs);\n"
|
|
" if (cl is io.error) { return 92; };\n"
|
|
" if (mst.pos != 5) { return 93; };\n"
|
|
" if (nw != 5: size) { return 94; };\n"
|
|
" if (raw[0] != 104u8 || raw[4] != 121u8) { return 95; };\n"
|
|
" return 46;\n"
|
|
"};\n",
|
|
46,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
{ "stream_read_unread",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [8]u8;\n"
|
|
" raw[0] = 65u8; raw[1] = 66u8; raw[2] = 67u8; raw[3] = 68u8;\n"
|
|
" raw[4] = 69u8; raw[5] = 70u8; raw[6] = 71u8; raw[7] = 72u8;\n"
|
|
" let mst: memio.stream = memio.fixed(raw[0:8]);\n"
|
|
" let msrc: io.stream = &mst.vt;\n"
|
|
" let rbuf: [8]u8;\n"
|
|
" let wbuf: [4]u8;\n"
|
|
" let b: bufio.stream = bufio.init(msrc, rbuf[0:8], wbuf[0:4]);\n"
|
|
" let vs: io.stream = &b.vt;\n"
|
|
" let out: [4]u8;\n"
|
|
" let rd1 = io.read(vs, out[0:3]);\n"
|
|
" let n1: size = 0;\n"
|
|
" if (rd1 is size) { n1 = rd1 as size; };\n"
|
|
" if (n1 != 3: size) { return 91; };\n"
|
|
" if (out[0] != 65u8 || out[2] != 67u8) { return 92; };\n"
|
|
" let rd2 = io.read(vs, out[0:4]);\n"
|
|
" let n2: size = 0;\n"
|
|
" if (rd2 is size) { n2 = rd2 as size; };\n"
|
|
" if (n2 != 4: size) { return 93; };\n"
|
|
" if (out[0] != 68u8 || out[3] != 71u8) { return 94; };\n"
|
|
" return 47;\n"
|
|
"};\n",
|
|
47,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
{ "isbuffered_v_discriminate",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [8]u8;\n"
|
|
" let mst: memio.stream = memio.fixed(raw[0:8]);\n"
|
|
" let msrc: io.stream = &mst.vt;\n"
|
|
" let rbuf: [4]u8;\n"
|
|
" let wbuf: [4]u8;\n"
|
|
" let b: bufio.stream = bufio.init(msrc, rbuf[0:4], wbuf[0:4]);\n"
|
|
" let vsbuf: io.stream = &b.vt;\n"
|
|
" let buf2: [4]u8;\n"
|
|
" let st2: memio.stream = memio.fixed(buf2[0:4]);\n"
|
|
" let vsplain: io.stream = &st2.vt;\n"
|
|
" if (!bufio.isbuffered(vsbuf)) { return 91; };\n"
|
|
" if (bufio.isbuffered(vsplain)) { return 92; };\n"
|
|
" return 48;\n"
|
|
"};\n",
|
|
48,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
{ "isbuffered_v_boundary",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [8]u8;\n"
|
|
" let mst: memio.stream = memio.fixed(raw[0:8]);\n"
|
|
" let msrc: io.stream = &mst.vt;\n"
|
|
" let rbuf: [4]u8;\n"
|
|
" let wbuf: [4]u8;\n"
|
|
" let bc: bufio.stream = bufio.init(msrc, rbuf[0:4], wbuf[0:4]);\n"
|
|
" let vs: io.stream = &bc.vt;\n"
|
|
" if (!bufio.isbuffered(vs)) { return 91; };\n"
|
|
" if (bufio.isbuffered(msrc)) { return 92; };\n"
|
|
" return 49;\n"
|
|
"};\n",
|
|
49,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
{ "branched_bufio_wrap",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raA: [4]u8;\n"
|
|
" raA[0] = 10u8; raA[1] = 11u8; raA[2] = 12u8; raA[3] = 13u8;\n"
|
|
" let raB: [4]u8;\n"
|
|
" raB[0] = 20u8; raB[1] = 21u8; raB[2] = 22u8; raB[3] = 23u8;\n"
|
|
" let mstA: memio.stream = memio.fixed(raA[0:4]);\n"
|
|
" let mstB: memio.stream = memio.fixed(raB[0:4]);\n"
|
|
" let sel: i32 = 1;\n"
|
|
" let src: io.stream = &mstA.vt;\n"
|
|
" if (sel == 0) { src = &mstB.vt; };\n"
|
|
" let rbuf: [4]u8;\n"
|
|
" let wbuf: [4]u8;\n"
|
|
" let bc: bufio.stream = bufio.init(src, rbuf[0:4], wbuf[0:4]);\n"
|
|
" let vs: io.stream = &bc.vt;\n"
|
|
" let out: [4]u8;\n"
|
|
" let rd = io.read(vs, out[0:4]);\n"
|
|
" let n: size = 0;\n"
|
|
" if (rd is size) { n = rd as size; };\n"
|
|
" if (n != 4: size) { return 91; };\n"
|
|
" if (out[0] != 10u8 || out[3] != 13u8) { return 92; };\n"
|
|
" return 51;\n"
|
|
"};\n",
|
|
51,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
/* scanner_lines — fold-eFinal PREP: the value-return scanner over an
|
|
* io.stream src. newscannerbuf (Hare newscanner_buf) → scanline
|
|
* twice ("ab", "c") → trailing "def" with no newline is EOF_DISCARD
|
|
* → io.eof → finish. Pins the scanner reads through io.read
|
|
* (vtable dispatch) on the underlying memio stream. cs.s==ww.s. */
|
|
{ "scanner_lines",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [8]u8;\n"
|
|
" raw[0]=97u8; raw[1]=98u8; raw[2]=10u8;\n"
|
|
" raw[3]=99u8; raw[4]=10u8;\n"
|
|
" raw[5]=100u8; raw[6]=101u8; raw[7]=102u8;\n"
|
|
" let mst: memio.stream = memio.dynamicfrom(raw[0:8]);\n"
|
|
" let vs: io.stream = &mst.vt;\n"
|
|
" let win: [16]u8;\n"
|
|
" let sc: bufio.scanner = bufio.newscannerbuf(vs, win[0:16]);\n"
|
|
" let ok: i32 = 0;\n"
|
|
" match (bufio.scanline(&sc)) {\n"
|
|
" case let s: str => { if (s.len == 2 && s[0] == 97u8 && s[1] == 98u8) { ok += 1; }; };\n"
|
|
" case io.eof => { return 81; };\n"
|
|
" case let e: io.error => { return 82; };\n"
|
|
" case bufio.overflow => { return 83; };\n"
|
|
" };\n"
|
|
" match (bufio.scanline(&sc)) {\n"
|
|
" case let s: str => { if (s.len == 1 && s[0] == 99u8) { ok += 1; }; };\n"
|
|
" case io.eof => { return 84; };\n"
|
|
" case let e: io.error => { return 85; };\n"
|
|
" case bufio.overflow => { return 86; };\n"
|
|
" };\n"
|
|
" match (bufio.scanline(&sc)) {\n"
|
|
" case let s: str => { return 87; };\n"
|
|
" case io.eof => { ok += 1; };\n"
|
|
" case let e: io.error => { return 88; };\n"
|
|
" case bufio.overflow => { return 89; };\n"
|
|
" };\n"
|
|
" bufio.finish(&sc);\n"
|
|
" if (ok != 3) { return 90; };\n"
|
|
" return 52;\n"
|
|
"};\n",
|
|
52,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
/* scanner_byte_bytes — scanbyte pops 'A'; scanbytes(',') then
|
|
* tokenizes "B" and "CD" from "AB,CD,". Single-byte delim (the OLD
|
|
* scantok behaviour; multibyte is #217). cs.s==ww.s. */
|
|
{ "scanner_byte_bytes",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [6]u8;\n"
|
|
" raw[0]=65u8; raw[1]=66u8; raw[2]=44u8;\n"
|
|
" raw[3]=67u8; raw[4]=68u8; raw[5]=44u8;\n"
|
|
" let mst: memio.stream = memio.dynamicfrom(raw[0:6]);\n"
|
|
" let vs: io.stream = &mst.vt;\n"
|
|
" let win: [8]u8;\n"
|
|
" let sc: bufio.scanner = bufio.newscannerbuf(vs, win[0:8]);\n"
|
|
" let fb: u8 = 0u8;\n"
|
|
" match (bufio.scanbyte(&sc)) {\n"
|
|
" case let b: u8 => { fb = b; };\n"
|
|
" case io.eof => { return 81; };\n"
|
|
" case let e: io.error => { return 82; };\n"
|
|
" case bufio.overflow => { return 92; };\n"
|
|
" };\n"
|
|
" if (fb != 65u8) { return 83; };\n"
|
|
" match (bufio.scanbytes(&sc, 44u8)) {\n"
|
|
" case let bs: []u8 => { if (bs.len != 1 || bs[0] != 66u8) { return 84; }; };\n"
|
|
" case io.eof => { return 85; };\n"
|
|
" case let e: io.error => { return 86; };\n"
|
|
" case bufio.overflow => { return 87; };\n"
|
|
" };\n"
|
|
" match (bufio.scanbytes(&sc, 44u8)) {\n"
|
|
" case let bs: []u8 => { if (bs.len != 2 || bs[0] != 67u8 || bs[1] != 68u8) { return 88; }; };\n"
|
|
" case io.eof => { return 89; };\n"
|
|
" case let e: io.error => { return 90; };\n"
|
|
" case bufio.overflow => { return 91; };\n"
|
|
" };\n"
|
|
" return 53;\n"
|
|
"};\n",
|
|
53,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
/* stream_setflush — setflush swaps the auto-flush byte-set to ';';
|
|
* writing "ab;" auto-flushes (contains ';') so the sink advances to
|
|
* 3 with no explicit flush. Pins setflush + the flush-scan path.
|
|
* cs.s==ww.s. */
|
|
{ "stream_setflush",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let sinkbuf: [16]u8;\n"
|
|
" let sink: memio.stream = memio.fixed(sinkbuf[0:16]);\n"
|
|
" let sinkvs: io.stream = &sink.vt;\n"
|
|
" let rb: [4]u8;\n"
|
|
" let wb: [8]u8;\n"
|
|
" let b: bufio.stream = bufio.init(sinkvs, rb[0:4], wb[0:8]);\n"
|
|
" let bvs: io.stream = &b.vt;\n"
|
|
" let semi: [1]u8;\n"
|
|
" semi[0] = 59u8;\n"
|
|
" bufio.setflush(&b, semi[0:1]);\n"
|
|
" let payload: [3]u8;\n"
|
|
" payload[0]=97u8; payload[1]=98u8; payload[2]=59u8;\n"
|
|
" let wr = io.write(bvs, payload[0:3]);\n"
|
|
" if (!(wr is size)) { return 81; };\n"
|
|
" if (sink.pos != 3) { return 82; };\n"
|
|
" if (sinkbuf[0] != 97u8 || sinkbuf[2] != 59u8) { return 83; };\n"
|
|
" return 54;\n"
|
|
"};\n",
|
|
54,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
/* stream_unread — read "XYZ" then unread("XY") pushes the two
|
|
* bytes back in front of the read buffer; the next read returns them
|
|
* first. Pins unread's in-place shift through *stream.
|
|
* cs.s==ww.s. */
|
|
{ "stream_unread",
|
|
"package main;\n"
|
|
"import os;\n"
|
|
"import bufio;\n"
|
|
"import memio;\n"
|
|
"import io;\n"
|
|
"export fn main() i32 = {\n"
|
|
" let raw: [4]u8;\n"
|
|
" raw[0]=88u8; raw[1]=89u8; raw[2]=90u8;\n"
|
|
" let mst: memio.stream = memio.dynamicfrom(raw[0:3]);\n"
|
|
" let vs: io.stream = &mst.vt;\n"
|
|
" let rbuf: [4]u8;\n"
|
|
" let wbuf: [4]u8;\n"
|
|
" let b: bufio.stream = bufio.init(vs, rbuf[0:4], wbuf[0:4]);\n"
|
|
" let bvs: io.stream = &b.vt;\n"
|
|
" let out: [4]u8;\n"
|
|
" let rd = io.read(bvs, out[0:3]);\n"
|
|
" let n: size = 0;\n"
|
|
" if (rd is size) { n = rd as size; };\n"
|
|
" if (n != 3: size || out[0] != 88u8 || out[2] != 90u8) { return 81; };\n"
|
|
" let push: [2]u8;\n"
|
|
" push[0]=88u8; push[1]=89u8;\n"
|
|
" bufio.unread(&b, push[0:2]);\n"
|
|
" let out2: [2]u8;\n"
|
|
" let rd2 = io.read(bvs, out2[0:2]);\n"
|
|
" let n2: size = 0;\n"
|
|
" if (rd2 is size) { n2 = rd2 as size; };\n"
|
|
" if (n2 != 2: size || out2[0] != 88u8 || out2[1] != 89u8) { return 82; };\n"
|
|
" return 55;\n"
|
|
"};\n",
|
|
55,
|
|
STAGE_CS | STAGE_WW, 1 },
|
|
};
|
|
|
|
static int
|
|
write_source(const char *path, const char *src)
|
|
{
|
|
FILE *f = fopen(path, "wb");
|
|
if (!f) return -1;
|
|
fputs(src, f);
|
|
fclose(f);
|
|
return 0;
|
|
}
|
|
|
|
/* Per-row tmpdir cleanup. ww_ww writes intermediates next to the
|
|
* source (filed task #15), so each row's build leaves
|
|
* <src>.{combined.ww,s,o} + bare exe alongside. Sweep all then
|
|
* rmdir. Mirror of 776's/777's cleanup_tmp. */
|
|
static void
|
|
cleanup_tmp(const char *tmpdir, const char *base)
|
|
{
|
|
char p[640];
|
|
snprintf(p, sizeof p, "%s/%s.ww", tmpdir, base); unlink(p);
|
|
snprintf(p, sizeof p, "%s/%s", tmpdir, base); unlink(p);
|
|
/* #93 sep layout: the sep scratch dir + the tmpdir-pinned pkgcache. */
|
|
snprintf(p, sizeof p, "rm -rf %s/%s.sepwork %s/pkgc", tmpdir, base, tmpdir);
|
|
if (system(p)) {} /* best-effort */
|
|
rmdir(tmpdir);
|
|
}
|
|
|
|
static int
|
|
build_via_driver(const char *driver, const char *tmpdir, const char *cwd,
|
|
const char *src)
|
|
{
|
|
char cmd[2048];
|
|
/* #93 sep layout: `--sep -o <src-stem>` emits the asm to
|
|
* <stem>.sepwork/__root.s; WW_PKGCACHE is pinned under tmpdir so the
|
|
* shared out/.pkgcache is untouched and the cache dies with the
|
|
* tmpdir. PRESERVES the `-I %s/lib` import-dir flag. */
|
|
snprintf(cmd, sizeof cmd,
|
|
"cd %s && b='%s'; WW_PKGCACHE=%s/pkgc timeout 180 %s build --sep "
|
|
"-I %s/lib -o \"${b%%.ww}\" \"$b\" 2>/dev/null",
|
|
tmpdir, src, tmpdir, driver, cwd);
|
|
return runwait(cmd);
|
|
}
|
|
|
|
static int
|
|
run_row(const char *driver, const char *cwd, const struct row *r, int seq)
|
|
{
|
|
char tmpdir[256], src[512], base[64], outbin[768];
|
|
snprintf(tmpdir, sizeof tmpdir, "/tmp/bvs_%d_d_%d", getpid(), seq);
|
|
snprintf(base, sizeof base, "main778");
|
|
snprintf(src, sizeof src, "%s/%s.ww", tmpdir, base);
|
|
mkdir(tmpdir, 0755);
|
|
if (write_source(src, r->src) != 0) { cleanup_tmp(tmpdir, base); return -1; }
|
|
int rc;
|
|
int br = build_via_driver(driver, tmpdir, cwd, src);
|
|
if (br == 0) {
|
|
snprintf(outbin, sizeof outbin, "%s/%s", tmpdir, base);
|
|
rc = runwait(outbin);
|
|
} else {
|
|
rc = -1;
|
|
}
|
|
cleanup_tmp(tmpdir, base);
|
|
return rc;
|
|
}
|
|
|
|
/* asm_byte_identical — diff cstage vs wwstage .s. Parallel trees so
|
|
* ww_ww writing intermediates next to the source doesn't clobber the
|
|
* cstage .s (CLAUDE.md rule 14 phase split). Mirror of 776's/777's. */
|
|
static int
|
|
asm_byte_identical(const char *cdrv, const char *wdrv, const char *cwd,
|
|
const struct row *r, int seq)
|
|
{
|
|
char src[512], tdc[256], tdw[256], base[64], cs[512], ws[512];
|
|
snprintf(tdc, sizeof tdc, "/tmp/bvs_%d_c_%d", getpid(), seq);
|
|
snprintf(tdw, sizeof tdw, "/tmp/bvs_%d_w_%d", getpid(), seq);
|
|
snprintf(base, sizeof base, "main778");
|
|
mkdir(tdc, 0755);
|
|
mkdir(tdw, 0755);
|
|
snprintf(src, sizeof src, "%s/%s.ww", tdc, base);
|
|
if (write_source(src, r->src) != 0) { cleanup_tmp(tdc, base); cleanup_tmp(tdw, base); return -1; }
|
|
int rc = -1;
|
|
if (build_via_driver(cdrv, tdc, cwd, src) != 0) goto out;
|
|
snprintf(cs, sizeof cs, "%s/%s.sepwork/__root.s", tdc, base);
|
|
|
|
snprintf(src, sizeof src, "%s/%s.ww", tdw, base);
|
|
if (write_source(src, r->src) != 0) goto out;
|
|
if (build_via_driver(wdrv, tdw, cwd, src) != 0) goto out;
|
|
snprintf(ws, sizeof ws, "%s/%s.sepwork/__root.s", tdw, base);
|
|
|
|
FILE *fc = fopen(cs, "rb");
|
|
FILE *fw = fopen(ws, "rb");
|
|
if (fc && fw) {
|
|
rc = 0;
|
|
for (;;) {
|
|
int a = fgetc(fc);
|
|
int b = fgetc(fw);
|
|
if (a != b) { rc = -1; break; }
|
|
if (a == EOF) break;
|
|
}
|
|
}
|
|
if (fc) fclose(fc);
|
|
if (fw) fclose(fw);
|
|
out:
|
|
cleanup_tmp(tdc, base);
|
|
cleanup_tmp(tdw, base);
|
|
return rc;
|
|
}
|
|
|
|
int
|
|
main(void)
|
|
{
|
|
const char *bin = getenv("BIN");
|
|
if (!bin) bin = "out/bin";
|
|
char cwd[256];
|
|
if (getcwd(cwd, sizeof cwd) == NULL) return 1;
|
|
char absbin[512];
|
|
if (bin[0] != '/') {
|
|
snprintf(absbin, sizeof absbin, "%s/%s", cwd, bin);
|
|
bin = absbin;
|
|
}
|
|
|
|
char cdrv[640], wdrv[640];
|
|
snprintf(cdrv, sizeof cdrv, "%s/ww", bin);
|
|
snprintf(wdrv, sizeof wdrv, "%s/ww_ww", bin);
|
|
|
|
int n = (int)(sizeof rows / sizeof rows[0]);
|
|
int total = 0, fail = 0;
|
|
int wwpresent = (access(wdrv, X_OK) == 0);
|
|
int seq = 0;
|
|
|
|
for (int i = 0; i < n; i++) {
|
|
if (rows[i].stage_mask & STAGE_CS) {
|
|
total++;
|
|
int got = run_row(cdrv, cwd, &rows[i], seq++);
|
|
if (got != rows[i].want_exit) {
|
|
fprintf(stderr,
|
|
"init_run[cs][%s]: exit=%d want=%d\n",
|
|
rows[i].label, got, rows[i].want_exit);
|
|
fail++;
|
|
}
|
|
}
|
|
if (wwpresent && (rows[i].stage_mask & STAGE_WW)) {
|
|
total++;
|
|
int got = run_row(wdrv, cwd, &rows[i], seq++);
|
|
if (got != rows[i].want_exit) {
|
|
fprintf(stderr,
|
|
"init_run[ww][%s]: exit=%d want=%d\n",
|
|
rows[i].label, got, rows[i].want_exit);
|
|
fail++;
|
|
}
|
|
if (rows[i].byte_id) {
|
|
total++;
|
|
if (asm_byte_identical(cdrv, wdrv, cwd, &rows[i], seq++) != 0) {
|
|
fprintf(stderr,
|
|
"init_run[byte-id][%s]: cstage vs wwstage asm differs\n",
|
|
rows[i].label);
|
|
fail++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!wwpresent)
|
|
fprintf(stderr, "init_run: skip wwstage (no %s)\n", wdrv);
|
|
|
|
if (fail) {
|
|
fprintf(stderr, "init_run: %d/%d fixtures failed\n",
|
|
fail, total);
|
|
return 1;
|
|
}
|
|
printf("init_run: %d/%d ok\n", total, total);
|
|
return 0;
|
|
}
|