ww/lib/getopt/getopttest.ww

// getopttest — exercises lib/getopt. Run with
// `out/bin/ww run lib/getopt/getopttest.ww`.
//
// Every @test enumerates parallel `[N]T` arrays of inputs and
// expectations, then iterates one body across them. Parallel arrays
// (rather than `[N]struct{...}`) sidestep the cstage cgen's chained
// `arr[i].field` store gap (task #6).
//
// Reads of [[command.optsptr]] go through `&cmd.optsptr[i]` rather
// than `cmd.optsptr[i].field` directly: the cstage cgen emits a bare
// MOVQ for a pointer-indexed struct-field read, so packed i32 fields
// (flag rune at offset 0) silently pick up the next 4 bytes (str.ptr
// low half) in the upper 32 bits. The chained-N_DOT-through-*struct
// path uses MOVL and avoids the over-read.
//
// Guards on a possibly-nil [[command.argsptr]] are split into nested
// `if`s rather than `argslen > 0 && !streq(argsptr[0], ...)`. The
// flattened `&&` form is now legal — both cgen stages short-circuit
// per task #15 — but the nested-if shape was the original workaround
// and is preserved here as a regression marker.

use getopt;
use strings;

// Direct exit(2) binding rather than `use os;` — os exports
// read/write/close, mirroring memio's reasoning (task #7).
@symbol("rt_syscall") fn syscall1ww(num: i64, a: i64) i64;
fn doexit(code: i32) void = {
	syscall1ww(60i64, code: i64);
};

// signalled — bumped by main before each test so a failing exit code
// pinpoints the offending case.
let signalled: i32 = 0;

fn fail() void = { doexit(signalled + 10); };

fn streq(a: str, b: str) bool = {
	if (a.len != b.len) { return false; };
	let i: i32 = 0;
	for (i < a.len) {
		if (a[i] != b[i]) { return false; };
		i += 1;
	};
	return true;
};

// ---- flagcluster: -Fahs files.txt → 4 flags + 1 arg --------------------

@test fn flagcluster() void = {
	let helps: [5]getopt.help;
	getopt.cmdhelp(&helps[0], "list files");
	getopt.flaghelp(&helps[1], 'F': rune, "do F");
	getopt.flaghelp(&helps[2], 'a': rune, "do a");
	getopt.flaghelp(&helps[3], 'h': rune, "do h");
	getopt.flaghelp(&helps[4], 's': rune, "do s");

	let argv: [3]str;
	argv[0] = "ls";
	argv[1] = "-Fahs";
	argv[2] = "files.txt";

	let cmd: getopt.command;
	let r: (void | getopt.error) = getopt.tryparse(&cmd, argv[0:3], helps[0:5]);
	match (r) {
	case void => {};
	case let e: getopt.error => fail();
	};

	if (cmd.optslen != 4) { fail(); };

	// (wantflag, wantval) parallel arrays, indexed by option order.
	let wantf: [4]u8;
	let wantv: [4]str;
	wantf[0] = 'F': u8; wantv[0] = "";
	wantf[1] = 'a': u8; wantv[1] = "";
	wantf[2] = 'h': u8; wantv[2] = "";
	wantf[3] = 's': u8; wantv[3] = "";

	let i: i32 = 0;
	for (i < 4) {
		let p: *getopt.option = &cmd.optsptr[i];
		if ((p.flag: u8) != wantf[i]) { fail(); };
		if (!streq(p.value, wantv[i])) { fail(); };
		i += 1;
	};

	if (cmd.argslen != 1) { fail(); };
	if (!streq(cmd.argsptr[0], "files.txt")) { fail(); };

	getopt.finish(&cmd);
};

// ---- paramflag: glued + separated arguments ----------------------------

@test fn paramflag() void = {
	let helps: [3]getopt.help;
	getopt.cmdhelp(&helps[0], "edit");
	getopt.paramhelp(&helps[1], 'e': rune, "script", "script");
	getopt.paramhelp(&helps[2], 'f': rune, "file", "script file");

	let argv: [5]str;
	argv[0] = "sed";
	argv[1] = "-e";
	argv[2] = "s/foo/bar/";
	argv[3] = "-f/tmp/x.sed";
	argv[4] = "-";

	let cmd: getopt.command;
	let r: (void | getopt.error) = getopt.tryparse(&cmd, argv[0:5], helps[0:3]);
	match (r) {
	case void => {};
	case let e: getopt.error => fail();
	};

	if (cmd.optslen != 2) { fail(); };

	let wantf: [2]u8;
	let wantv: [2]str;
	wantf[0] = 'e': u8; wantv[0] = "s/foo/bar/";
	wantf[1] = 'f': u8; wantv[1] = "/tmp/x.sed";

	let i: i32 = 0;
	for (i < 2) {
		let p: *getopt.option = &cmd.optsptr[i];
		if ((p.flag: u8) != wantf[i]) { fail(); };
		if (!streq(p.value, wantv[i])) { fail(); };
		i += 1;
	};

	if (cmd.argslen != 1) { fail(); };
	if (!streq(cmd.argsptr[0], "-")) { fail(); };

	getopt.finish(&cmd);
};

// ---- separator: -- ends option processing ------------------------------
//
// `--` in three positions: after a flag, immediately after argv[0],
// and at the tail with nothing trailing. Flat-packed argv per
// errortable's pattern; rows expect distinct (optslen, argslen,
// args[0]) outcomes.
@test fn separator() void = {
	let helps: [2]getopt.help;
	getopt.cmdhelp(&helps[0], "list");
	getopt.flaghelp(&helps[1], 'F': rune, "do F");

	// row 0: ["ls", "-F", "--", "-name"]	→ 1 opt 'F',  1 arg "-name"
	// row 1: ["ls", "--", "-F"]		→ 0 opts,     1 arg "-F"
	// row 2: ["ls", "--"]			→ 0 opts,     0 args
	let srcs: [9]str;
	srcs[0]="ls"; srcs[1]="-F"; srcs[2]="--"; srcs[3]="-name";
	srcs[4]="ls"; srcs[5]="--"; srcs[6]="-F";
	srcs[7]="ls"; srcs[8]="--";

	let argo:     [3]i32;
	let argn:     [3]i32;
	let wantopts: [3]i32;
	let wantargs: [3]i32;
	let wantarg0: [3]str;
	argo[0]=0; argn[0]=4; wantopts[0]=1; wantargs[0]=1; wantarg0[0]="-name";
	argo[1]=4; argn[1]=3; wantopts[1]=0; wantargs[1]=1; wantarg0[1]="-F";
	argo[2]=7; argn[2]=2; wantopts[2]=0; wantargs[2]=0; wantarg0[2]="";

	let i: i32 = 0;
	for (i < 3) {
		let argv: []str;
		argv.ptr = &srcs[argo[i]];
		argv.len = argn[i];
		argv.cap = argn[i];

		let cmd: getopt.command;
		let r: (void | getopt.error) = getopt.tryparse(&cmd, argv, helps[0:2]);
		match (r) {
		case void => {};
		case let e: getopt.error => fail();
		};
		if (cmd.optslen != wantopts[i]) { fail(); };
		if (cmd.argslen != wantargs[i]) { fail(); };
		if (cmd.argslen > 0) {
			if (!streq(cmd.argsptr[0], wantarg0[i])) { fail(); };
		};
		getopt.finish(&cmd);
		i += 1;
	};
};

// ---- repeatedflag: -vvv → 3 v opts -------------------------------------

@test fn repeatedflag() void = {
	let helps: [2]getopt.help;
	getopt.cmdhelp(&helps[0], "verbose count");
	getopt.flaghelp(&helps[1], 'v': rune, "verbosity");

	let argv: [2]str;
	argv[0] = "x";
	argv[1] = "-vvv";

	let cmd: getopt.command;
	let r: (void | getopt.error) = getopt.tryparse(&cmd, argv[0:2], helps[0:2]);
	match (r) {
	case void => {};
	case let e: getopt.error => fail();
	};

	if (cmd.optslen != 3) { fail(); };
	let i: i32 = 0;
	for (i < 3) {
		let p: *getopt.option = &cmd.optsptr[i];
		if ((p.flag: u8) != ('v': u8)) { fail(); };
		if (p.value.len != 0) { fail(); };
		i += 1;
	};
	if (cmd.argslen != 0) { fail(); };

	getopt.finish(&cmd);
};

// ---- baredash: "-" alone is a positional --------------------------------
//
// Bare `-` in three positions: trailing after a flag, leading (which
// halts option scanning), and followed by what looks like a flag
// (also halts — first non-flag wins).
@test fn baredash() void = {
	let helps: [2]getopt.help;
	getopt.cmdhelp(&helps[0], "cat");
	getopt.flaghelp(&helps[1], 'v': rune, "verbose");

	// row 0: ["cat", "-v", "-"]		→ 1 opt 'v',  1 arg  "-"
	// row 1: ["cat", "-"]			→ 0 opts,     1 arg  "-"
	// row 2: ["cat", "-", "-v"]		→ 0 opts,     2 args "-","-v"
	let srcs: [8]str;
	srcs[0]="cat"; srcs[1]="-v"; srcs[2]="-";
	srcs[3]="cat"; srcs[4]="-";
	srcs[5]="cat"; srcs[6]="-"; srcs[7]="-v";

	let argo:     [3]i32;
	let argn:     [3]i32;
	let wantopts: [3]i32;
	let wantargs: [3]i32;
	argo[0]=0; argn[0]=3; wantopts[0]=1; wantargs[0]=1;
	argo[1]=3; argn[1]=2; wantopts[1]=0; wantargs[1]=1;
	argo[2]=5; argn[2]=3; wantopts[2]=0; wantargs[2]=2;

	let i: i32 = 0;
	for (i < 3) {
		let argv: []str;
		argv.ptr = &srcs[argo[i]];
		argv.len = argn[i];
		argv.cap = argn[i];

		let cmd: getopt.command;
		let r: (void | getopt.error) = getopt.tryparse(&cmd, argv, helps[0:2]);
		match (r) {
		case void => {};
		case let e: getopt.error => fail();
		};
		if (cmd.optslen != wantopts[i]) { fail(); };
		if (cmd.argslen != wantargs[i]) { fail(); };
		// First positional is always the bare "-" in these rows.
		if (cmd.argslen > 0) {
			if (!streq(cmd.argsptr[0], "-")) { fail(); };
		};
		getopt.finish(&cmd);
		i += 1;
	};
};

// ---- errortable: unknownopt + requiresarg variants ---------------------
//
// Parallel arrays per row: argv flat-packed into `srcs`, with `argo`
// the offset and `argn` the count for each row.
@test fn errortable() void = {
	let helps: [3]getopt.help;
	getopt.cmdhelp(&helps[0], "prog");
	getopt.flaghelp(&helps[1], 'v': rune, "verbose");
	getopt.paramhelp(&helps[2], 'e': rune, "expr", "expression");

	// Flat-packed argv for 3 cases:
	//   row 0: ["prog", "-x"]            → UNKNOWNOPT 'x'
	//   row 1: ["prog", "-e"]            → REQUIRESARG 'e'
	//   row 2: ["prog", "-v", "-e"]      → REQUIRESARG 'e' (cluster ends mid-param)
	let srcs: [7]str;
	srcs[0] = "prog"; srcs[1] = "-x";
	srcs[2] = "prog"; srcs[3] = "-e";
	srcs[4] = "prog"; srcs[5] = "-v"; srcs[6] = "-e";

	let argo: [3]i32;
	let argn: [3]i32;
	let wantk: [3]i32;
	let wantf: [3]u8;
	argo[0] = 0; argn[0] = 2; wantk[0] = 1; wantf[0] = 'x': u8;	// UNKNOWNOPT=1
	argo[1] = 2; argn[1] = 2; wantk[1] = 0; wantf[1] = 'e': u8;	// REQUIRESARG=0
	argo[2] = 4; argn[2] = 3; wantk[2] = 0; wantf[2] = 'e': u8;

	let i: i32 = 0;
	for (i < 3) {
		let argv: []str;
		argv.ptr = &srcs[argo[i]];
		argv.len = argn[i];
		argv.cap = argn[i];

		let cmd: getopt.command;
		let r: (void | getopt.error) = getopt.tryparse(&cmd, argv, helps[0:3]);
		match (r) {
		case void => fail();
		case let e: getopt.error => {
			if ((e.kind: i32) != wantk[i]) { fail(); };
			if ((e.flag: u8) != wantf[i]) { fail(); };
			if (!streq(e.name, "prog")) { fail(); };
		};
		};
		getopt.finish(&cmd);
		i += 1;
	};
};

// ---- strerrortext: render both error kinds -----------------------------
//
// Parallel rows over (kind, flag, name) → expected message. `kind`
// rides as i32 because the errorkind enum doesn't yet index an
// array element directly.
@test fn strerrortext() void = {
	let kinds: [2]i32;
	let flags: [2]u8;
	let names: [2]str;
	let wants: [2]str;
	kinds[0]=1; flags[0]='x': u8; names[0]="prog"; wants[0]="prog: unrecognized option: -x";
	kinds[1]=0; flags[1]='e': u8; names[1]="sed";  wants[1]="sed: option -e requires an argument";

	let i: i32 = 0;
	for (i < 2) {
		let e: getopt.error;
		if (kinds[i] == 0) { e.kind = getopt.errorkind.REQUIRESARG; };
		if (kinds[i] == 1) { e.kind = getopt.errorkind.UNKNOWNOPT; };
		e.flag = flags[i]: rune;
		e.name = names[i];
		let s: str = getopt.strerror(&e);
		if (!streq(s, wants[i])) { fail(); };
		i += 1;
	};
};

// ---- nooptionsbare: argv with only program name + positionals ----------
//
// Positional-only argv at three lengths: two positionals, one
// positional, and the program-name-only edge.
@test fn nooptionsbare() void = {
	let helps: [2]getopt.help;
	getopt.cmdhelp(&helps[0], "echo");
	getopt.flaghelp(&helps[1], 'n': rune, "no newline");

	// row 0: ["echo", "hello", "world"]	→ 2 args, args[0]="hello"
	// row 1: ["echo", "a"]			→ 1 arg,  args[0]="a"
	// row 2: ["echo"]			→ 0 args
	let srcs: [6]str;
	srcs[0]="echo"; srcs[1]="hello"; srcs[2]="world";
	srcs[3]="echo"; srcs[4]="a";
	srcs[5]="echo";

	let argo:     [3]i32;
	let argn:     [3]i32;
	let wantargs: [3]i32;
	let wantarg0: [3]str;
	argo[0]=0; argn[0]=3; wantargs[0]=2; wantarg0[0]="hello";
	argo[1]=3; argn[1]=2; wantargs[1]=1; wantarg0[1]="a";
	argo[2]=5; argn[2]=1; wantargs[2]=0; wantarg0[2]="";

	let i: i32 = 0;
	for (i < 3) {
		let argv: []str;
		argv.ptr = &srcs[argo[i]];
		argv.len = argn[i];
		argv.cap = argn[i];

		let cmd: getopt.command;
		let r: (void | getopt.error) = getopt.tryparse(&cmd, argv, helps[0:2]);
		match (r) {
		case void => {};
		case let e: getopt.error => fail();
		};
		if (cmd.optslen != 0) { fail(); };
		if (cmd.argslen != wantargs[i]) { fail(); };
		if (cmd.argslen > 0) {
			if (!streq(cmd.argsptr[0], wantarg0[i])) { fail(); };
		};
		getopt.finish(&cmd);
		i += 1;
	};
};

export fn main() i32 = {
	signalled = 1; flagcluster();
	signalled = 2; paramflag();
	signalled = 3; separator();
	signalled = 4; repeatedflag();
	signalled = 5; baredash();
	signalled = 6; errortable();
	signalled = 7; strerrortext();
	signalled = 8; nooptionsbare();
	return 0;
};