aboutsummaryrefslogtreecommitdiff
path: root/base/runtime/os_specific_haiku.odin
blob: f8dafac3d2984239c790eb0d1c9c85d114877d40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//+build haiku
//+private
package runtime

foreign import libc "system:c"

foreign libc {
	@(link_name="write")
	_unix_write :: proc(fd: i32, buf: rawptr, size: int) -> int ---

	_errnop :: proc() -> ^i32 ---
}

_stderr_write :: proc "contextless" (data: []byte) -> (int, _OS_Errno) {
	ret := _unix_write(2, raw_data(data), len(data))
	if ret < len(data) {
		err := _errnop()
		return int(ret), _OS_Errno(err^ if err != nil else 0)
	}
	return int(ret), 0
}