/test.ha (raw)

use fmt;
use types::c;

use pq::ffi;

export fn main() void = {
	const conn = ffi::connectdb(c::fromstr("")!);
	defer ffi::finish(conn);

	if (ffi::status(conn) != ffi::ConnStatusType::OK) {
		fmt::fatalf("Connection failed: {}\n", c::tostr_unsafe(ffi::errorMessage(conn)));
	};

	const res = ffi::exec(conn, c::fromstr("SELECT * FROM test")!);
	defer ffi::clear(res);

	const status = ffi::resultStatus(res);
	switch (status) {
	case ffi::ExecStatusType::TUPLES_OK => void;
	case => fmt::fatalf("Query failed with status {}: {}\n", status: int, c::tostr_unsafe(ffi::errorMessage(conn)));
	};

	const nrows = ffi::ntuples(res);
	const ncols = ffi::nfields(res);

	for (let i = 0; i < ncols; i += 1) {
		if (i > 0) {
			fmt::print("\t")!;
		};
		fmt::printf("{}", c::tostr_unsafe(ffi::fname(res, i)))!;
	};
	fmt::println("")!;

	for (let row = 0; row < nrows; row += 1) {
		for (let col = 0; col < ncols; col += 1) {
			if (col > 0) {
				fmt::print("\t")!;
			};
			const val = ffi::getvalue(res, row, col);
			fmt::printf("{}", c::tostr_unsafe(val))!;
		};
		fmt::println("")!;
	};
};