mirror of
https://github.com/odin-lang/Odin.git
synced 2025-12-31 18:32:12 +00:00
102 lines
4.0 KiB
Odin
102 lines
4.0 KiB
Odin
#+build js
|
|
package fmt
|
|
|
|
import "core:bufio"
|
|
import "core:io"
|
|
import "core:os"
|
|
|
|
foreign import "odin_env"
|
|
|
|
@(private="file")
|
|
foreign odin_env {
|
|
write :: proc "contextless" (fd: u32, p: []byte) ---
|
|
}
|
|
|
|
@(private="file")
|
|
write_stream_proc :: proc(stream_data: rawptr, mode: io.Stream_Mode, p: []byte, offset: i64, whence: io.Seek_From) -> (n: i64, err: io.Error) {
|
|
if mode == .Write {
|
|
fd := u32(uintptr(stream_data))
|
|
write(fd, p)
|
|
return i64(len(p)), nil
|
|
}
|
|
return 0, .Empty
|
|
}
|
|
|
|
@(private="file")
|
|
stdout := io.Writer{
|
|
procedure = write_stream_proc,
|
|
data = rawptr(uintptr(1)),
|
|
}
|
|
@(private="file")
|
|
stderr := io.Writer{
|
|
procedure = write_stream_proc,
|
|
data = rawptr(uintptr(2)),
|
|
}
|
|
|
|
@(private="file")
|
|
fd_to_writer :: proc(fd: os.Handle, loc := #caller_location) -> io.Writer {
|
|
switch fd {
|
|
case 1: return stdout
|
|
case 2: return stderr
|
|
case: panic("`fmt.fprint` variant called with invalid file descriptor for JS, only 1 (stdout) and 2 (stderr) are supported", loc)
|
|
}
|
|
}
|
|
|
|
// fprint formats using the default print settings and writes to fd
|
|
fprint :: proc(fd: os.Handle, args: ..any, sep := " ", flush := true, loc := #caller_location) -> int {
|
|
buf: [1024]byte
|
|
b: bufio.Writer
|
|
defer bufio.writer_flush(&b)
|
|
|
|
bufio.writer_init_with_buf(&b, fd_to_writer(fd, loc), buf[:])
|
|
w := bufio.writer_to_writer(&b)
|
|
return wprint(w, ..args, sep=sep, flush=flush)
|
|
}
|
|
|
|
// fprintln formats using the default print settings and writes to fd
|
|
fprintln :: proc(fd: os.Handle, args: ..any, sep := " ", flush := true, loc := #caller_location) -> int {
|
|
buf: [1024]byte
|
|
b: bufio.Writer
|
|
defer bufio.writer_flush(&b)
|
|
|
|
bufio.writer_init_with_buf(&b, fd_to_writer(fd, loc), buf[:])
|
|
|
|
w := bufio.writer_to_writer(&b)
|
|
return wprintln(w, ..args, sep=sep, flush=flush)
|
|
}
|
|
|
|
// fprintf formats according to the specified format string and writes to fd
|
|
fprintf :: proc(fd: os.Handle, fmt: string, args: ..any, flush := true, newline := false, loc := #caller_location) -> int {
|
|
buf: [1024]byte
|
|
b: bufio.Writer
|
|
defer bufio.writer_flush(&b)
|
|
|
|
bufio.writer_init_with_buf(&b, fd_to_writer(fd, loc), buf[:])
|
|
|
|
w := bufio.writer_to_writer(&b)
|
|
return wprintf(w, fmt, ..args, flush=flush, newline=newline)
|
|
}
|
|
|
|
// fprintfln formats according to the specified format string and writes to fd, followed by a newline.
|
|
fprintfln :: proc(fd: os.Handle, fmt: string, args: ..any, flush := true, loc := #caller_location) -> int {
|
|
return fprintf(fd, fmt, ..args, flush=flush, newline=true, loc=loc)
|
|
}
|
|
|
|
// print formats using the default print settings and writes to stdout
|
|
print :: proc(args: ..any, sep := " ", flush := true) -> int { return wprint(w=stdout, args=args, sep=sep, flush=flush) }
|
|
// println formats using the default print settings and writes to stdout
|
|
println :: proc(args: ..any, sep := " ", flush := true) -> int { return wprintln(w=stdout, args=args, sep=sep, flush=flush) }
|
|
// printf formats according to the specififed format string and writes to stdout
|
|
printf :: proc(fmt: string, args: ..any, flush := true) -> int { return wprintf(stdout, fmt, ..args, flush=flush) }
|
|
// printfln formats according to the specified format string and writes to stdout, followed by a newline.
|
|
printfln :: proc(fmt: string, args: ..any, flush := true) -> int { return wprintf(stdout, fmt, ..args, flush=flush, newline=true) }
|
|
|
|
// eprint formats using the default print settings and writes to stderr
|
|
eprint :: proc(args: ..any, sep := " ", flush := true) -> int { return wprint(w=stderr, args=args, sep=sep, flush=flush) }
|
|
// eprintln formats using the default print settings and writes to stderr
|
|
eprintln :: proc(args: ..any, sep := " ", flush := true) -> int { return wprintln(w=stderr, args=args, sep=sep, flush=flush) }
|
|
// eprintf formats according to the specififed format string and writes to stderr
|
|
eprintf :: proc(fmt: string, args: ..any, flush := true) -> int { return wprintf(stderr, fmt, ..args, flush=flush) }
|
|
// eprintfln formats according to the specified format string and writes to stderr, followed by a newline.
|
|
eprintfln :: proc(fmt: string, args: ..any, flush := true) -> int { return wprintf(stdout, fmt, ..args, flush=flush, newline=true) }
|