v/vlib/os2/os2_darwin.c.v

41 lines
581 B
V

module os2
#include <fcntl.h>
struct File {
fd int
}
fn C.perror(charptr)
fn C.open(byteptr, int, int) int
fn C.write(voidptr, byteptr, int) int
fn C.close(int) int
pub fn create(path string) ?File {
fd := C.open(path.str, C.O_CREAT | C.O_TRUNC | C.O_WRONLY, 0644) // 511
if fd == -1 {
return error('failed to create "$path":')
// os.print_c_errno()
}
return File{
fd}
}
pub fn (f File) writeln(s string) {
ss := s + '\n'
ret := C.write(f.fd, ss.str, s.len + 1)
if ret == -1 {
C.perror('failed to write')
}
}
pub fn (f File) close() {
C.close(f.fd)
}