|
@@ -4,25 +4,25 @@ import "core:mem"
|
|
import "core:strconv"
|
|
import "core:strconv"
|
|
import "core:unicode/utf8"
|
|
import "core:unicode/utf8"
|
|
|
|
|
|
-write_string :: proc(fd: Handle, s: string) -> (n: int, err: Error) {
|
|
|
|
- return write(fd, transmute([]byte)s)
|
|
|
|
|
|
+write_string :: proc(f: ^File, s: string) -> (n: int, err: Error) {
|
|
|
|
+ return write(f, transmute([]byte)s)
|
|
}
|
|
}
|
|
|
|
|
|
-write_byte :: proc(fd: Handle, b: byte) -> (n: int, err: Error) {
|
|
|
|
- return write(fd, []byte{b})
|
|
|
|
|
|
+write_byte :: proc(f: ^File, b: byte) -> (n: int, err: Error) {
|
|
|
|
+ return write(f, []byte{b})
|
|
}
|
|
}
|
|
|
|
|
|
-write_rune :: proc(fd: Handle, r: rune) -> (n: int, err: Error) {
|
|
|
|
|
|
+write_rune :: proc(f: ^File, r: rune) -> (n: int, err: Error) {
|
|
if r < utf8.RUNE_SELF {
|
|
if r < utf8.RUNE_SELF {
|
|
- return write_byte(fd, byte(r))
|
|
|
|
|
|
+ return write_byte(f, byte(r))
|
|
}
|
|
}
|
|
|
|
|
|
b: [4]byte
|
|
b: [4]byte
|
|
b, n = utf8.encode_rune(r)
|
|
b, n = utf8.encode_rune(r)
|
|
- return write(fd, b[:n])
|
|
|
|
|
|
+ return write(f, b[:n])
|
|
}
|
|
}
|
|
|
|
|
|
-write_encoded_rune :: proc(fd: Handle, r: rune) -> (n: int, err: Error) {
|
|
|
|
|
|
+write_encoded_rune :: proc(f: ^File, r: rune) -> (n: int, err: Error) {
|
|
wrap :: proc(m: int, merr: Error, n: ^int, err: ^Error) -> bool {
|
|
wrap :: proc(m: int, merr: Error, n: ^int, err: ^Error) -> bool {
|
|
n^ += m
|
|
n^ += m
|
|
if merr != nil {
|
|
if merr != nil {
|
|
@@ -32,44 +32,44 @@ write_encoded_rune :: proc(fd: Handle, r: rune) -> (n: int, err: Error) {
|
|
return false
|
|
return false
|
|
}
|
|
}
|
|
|
|
|
|
- if wrap(write_byte(fd, '\''), &n, &err) { return }
|
|
|
|
|
|
+ if wrap(write_byte(f, '\''), &n, &err) { return }
|
|
|
|
|
|
switch r {
|
|
switch r {
|
|
- case '\a': if wrap(write_string(fd, "\\a"), &n, &err) { return }
|
|
|
|
- case '\b': if wrap(write_string(fd, "\\b"), &n, &err) { return }
|
|
|
|
- case '\e': if wrap(write_string(fd, "\\e"), &n, &err) { return }
|
|
|
|
- case '\f': if wrap(write_string(fd, "\\f"), &n, &err) { return }
|
|
|
|
- case '\n': if wrap(write_string(fd, "\\n"), &n, &err) { return }
|
|
|
|
- case '\r': if wrap(write_string(fd, "\\r"), &n, &err) { return }
|
|
|
|
- case '\t': if wrap(write_string(fd, "\\t"), &n, &err) { return }
|
|
|
|
- case '\v': if wrap(write_string(fd, "\\v"), &n, &err) { return }
|
|
|
|
|
|
+ case '\a': if wrap(write_string(f, "\\a"), &n, &err) { return }
|
|
|
|
+ case '\b': if wrap(write_string(f, "\\b"), &n, &err) { return }
|
|
|
|
+ case '\e': if wrap(write_string(f, "\\e"), &n, &err) { return }
|
|
|
|
+ case '\f': if wrap(write_string(f, "\\f"), &n, &err) { return }
|
|
|
|
+ case '\n': if wrap(write_string(f, "\\n"), &n, &err) { return }
|
|
|
|
+ case '\r': if wrap(write_string(f, "\\r"), &n, &err) { return }
|
|
|
|
+ case '\t': if wrap(write_string(f, "\\t"), &n, &err) { return }
|
|
|
|
+ case '\v': if wrap(write_string(f, "\\v"), &n, &err) { return }
|
|
case:
|
|
case:
|
|
if r < 32 {
|
|
if r < 32 {
|
|
- if wrap(write_string(fd, "\\x"), &n, &err) { return }
|
|
|
|
|
|
+ if wrap(write_string(f, "\\x"), &n, &err) { return }
|
|
b: [2]byte
|
|
b: [2]byte
|
|
s := strconv.append_bits(b[:], u64(r), 16, true, 64, strconv.digits, nil)
|
|
s := strconv.append_bits(b[:], u64(r), 16, true, 64, strconv.digits, nil)
|
|
switch len(s) {
|
|
switch len(s) {
|
|
- case 0: if wrap(write_string(fd, "00"), &n, &err) { return }
|
|
|
|
- case 1: if wrap(write_rune(fd, '0'), &n, &err) { return }
|
|
|
|
- case 2: if wrap(write_string(fd, s), &n, &err) { return }
|
|
|
|
|
|
+ case 0: if wrap(write_string(f, "00"), &n, &err) { return }
|
|
|
|
+ case 1: if wrap(write_rune(f, '0'), &n, &err) { return }
|
|
|
|
+ case 2: if wrap(write_string(f, s), &n, &err) { return }
|
|
}
|
|
}
|
|
} else {
|
|
} else {
|
|
- if wrap(write_rune(fd, r), &n, &err) { return }
|
|
|
|
|
|
+ if wrap(write_rune(f, r), &n, &err) { return }
|
|
}
|
|
}
|
|
}
|
|
}
|
|
- _ = wrap(write_byte(fd, '\''), &n, &err)
|
|
|
|
|
|
+ _ = wrap(write_byte(f, '\''), &n, &err)
|
|
return
|
|
return
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
-write_ptr :: proc(fd: Handle, data: rawptr, len: int) -> (n: int, err: Error) {
|
|
|
|
|
|
+write_ptr :: proc(f: ^File, data: rawptr, len: int) -> (n: int, err: Error) {
|
|
s := transmute([]byte)mem.Raw_Slice{data, len}
|
|
s := transmute([]byte)mem.Raw_Slice{data, len}
|
|
- return write(fd, s)
|
|
|
|
|
|
+ return write(f, s)
|
|
}
|
|
}
|
|
|
|
|
|
-read_ptr :: proc(fd: Handle, data: rawptr, len: int) -> (n: int, err: Error) {
|
|
|
|
|
|
+read_ptr :: proc(f: ^File, data: rawptr, len: int) -> (n: int, err: Error) {
|
|
s := transmute([]byte)mem.Raw_Slice{data, len}
|
|
s := transmute([]byte)mem.Raw_Slice{data, len}
|
|
- return read(fd, s)
|
|
|
|
|
|
+ return read(f, s)
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|