Hojun-Cho
9bc973dc96
ascii.digitval/isidstart/isidpart are lexer-private, not Hare-stdlib. Moved into lib/ww/lex/lex.ww as fn (renamed digitval to hexval since its sole job is the \\xHH escape decoder). bytes.copy and fmt.errpos have no Hare counterpart and no external callers; gone.
61 lines
1.5 KiB
Plaintext
61 lines
1.5 KiB
Plaintext
// fmt — minimal formatting writers. All output goes through os.write
|
|
// to fd 1 (stdout). No printf-family yet — we don't have varargs in
|
|
// the language proper — but the typed entry points cover the common
|
|
// cases.
|
|
|
|
use os;
|
|
use strconv;
|
|
|
|
export fn print(s: str) i64 = {
|
|
return os.write(1, s.ptr, s.len: u64);
|
|
};
|
|
|
|
export fn println(s: str) i64 = {
|
|
let n: i64 = os.write(1, s.ptr, s.len: u64);
|
|
if (n < 0) { return n; };
|
|
let m: i64 = os.write(1, "\n".ptr, 1u64);
|
|
if (m < 0) { return m; };
|
|
return n + m;
|
|
};
|
|
|
|
export fn printint(v: i64) void = {
|
|
let buf: [32]u8;
|
|
let n: i32 = strconv.i64tos(buf[0:32], v);
|
|
os.write(1, buf.ptr, n: u64);
|
|
};
|
|
|
|
export fn printlnint(v: i64) void = {
|
|
printint(v);
|
|
os.write(1, "\n".ptr, 1u64);
|
|
};
|
|
|
|
// errorln — write a message to stderr with a trailing newline.
|
|
export fn errorln(s: str) i64 = {
|
|
let n: i64 = os.write(2, s.ptr, s.len: u64);
|
|
if (n < 0) { return n; };
|
|
let m: i64 = os.write(2, "\n".ptr, 1u64);
|
|
if (m < 0) { return m; };
|
|
return n + m;
|
|
};
|
|
|
|
// fprint / fprintln — same as print/println but on an arbitrary fd.
|
|
// Used by the compiler to write to its -o output file.
|
|
export fn fprint(fd: i32, s: str) i64 = {
|
|
return os.write(fd, s.ptr, s.len: u64);
|
|
};
|
|
|
|
export fn fprintln(fd: i32, s: str) i64 = {
|
|
let n: i64 = os.write(fd, s.ptr, s.len: u64);
|
|
if (n < 0) { return n; };
|
|
let m: i64 = os.write(fd, "\n".ptr, 1u64);
|
|
if (m < 0) { return m; };
|
|
return n + m;
|
|
};
|
|
|
|
export fn fprintint(fd: i32, v: i64) void = {
|
|
let buf: [32]u8;
|
|
let n: i32 = strconv.i64tos(buf[0:32], v);
|
|
os.write(fd, buf.ptr, n: u64);
|
|
};
|
|
|