Hojun-Cho
81796cd533
stof64/stof32 (f64|f32 | invalid | overflow) via Eisel-Lemire fast-path (powers_of_ten[596][2]u64 + eisel_lemire 128-bit multiply) + decimal slow-path fallback (decimal.ww, fold-3). 16 fns + faithful powers_of_ten (byte-identical to Hare). u128 via pure-u64 64×64→128 (ftos_ryu.ha). Consumes &math.f64info (γ-cleanup), tagged-float-return (PREREQ-2 #157), 2D double-index (PREREQ-1 #156). 13 documented spelling-divergences (rule-9, each cites stof.ha): #155 (po10 double-index + per-field struct-copy), #161 (compound-assign explicit form), #144 (-0.0 via 1u64<<63), #158, #138, test-only #143/parsef64. Test 909 (DEC+hex+NaN/Inf/invalid/overflow, bit-exact, cstage ww run). Make test 185/185 incl 990-997 byte-id + combined_ww_fresh. Makefile: stof.ww added to w6c_ww/wwdump_ww deps (freshness, fold-3 precedent). Drew's strconv 5-fold plan 4/5. Followup #162 (wwstage lexer parsef64 1-ULP — could adopt stof64).
56 lines
1.5 KiB
C
56 lines
1.5 KiB
C
/*
|
|
* 909_stof_run — execute the lib/strconv/test/stoftest fixture under the
|
|
* C-side `ww run` driver and assert exit 0.
|
|
*
|
|
* Same thin-wrapper shape as 922_decimal_run: stoftest.ww carries its own
|
|
* `export fn main()` that drives the @test fns (stof64/stof32 DEC + hex
|
|
* vectors, bit-exact) and signals which case failed via the exit code
|
|
* (signalled + 10, so cases 1..4 → exit 11..14).
|
|
*
|
|
* The fixture lives in lib/strconv/test/ (not lib/strconv/) so
|
|
* `import strconv` resolves to the lib/strconv DIRECTORY (full package:
|
|
* strconv.ww + decimal.ww + stof_data.ww + stof.ww), not the strconv.ww
|
|
* FILE — same rationale as 922_decimal_run.
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.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;
|
|
}
|
|
|
|
int
|
|
main(void)
|
|
{
|
|
const char *bin = getenv("BIN");
|
|
if (!bin) bin = "out/bin";
|
|
char absbin[1024];
|
|
if (bin[0] != '/') {
|
|
char cwd[1024];
|
|
if (getcwd(cwd, sizeof cwd) == NULL) return 1;
|
|
snprintf(absbin, sizeof absbin, "%s/%s", cwd, bin);
|
|
bin = absbin;
|
|
}
|
|
char cwd[1024];
|
|
if (getcwd(cwd, sizeof cwd) == NULL) return 1;
|
|
|
|
const char *src = "lib/strconv/test/stoftest.ww";
|
|
char path[1024], cmd[2048];
|
|
snprintf(path, sizeof path, "%s/%s", cwd, src);
|
|
snprintf(cmd, sizeof cmd, "%s/ww run %s", bin, path);
|
|
int rc = runwait(cmd);
|
|
if (rc != 0) {
|
|
fprintf(stderr, "stof_run FAIL: %s exited %d\n", src, rc);
|
|
return 1;
|
|
}
|
|
printf("stof_run: %s ok\n", src);
|
|
return 0;
|
|
}
|