1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
//+build linux, darwin, freebsd
package filepath
when ODIN_OS == "darwin" {
foreign import libc "System.framework"
} else {
foreign import libc "system:c"
}
import "core:strings"
SEPARATOR :: '/';
SEPARATOR_STRING :: `/`;
LIST_SEPARATOR :: ':';
is_reserved_name :: proc(path: string) -> bool {
return false;
}
is_abs :: proc(path: string) -> bool {
return strings.has_prefix(path, "/");
}
abs :: proc(path: string, allocator := context.allocator) -> (string, bool) {
rel := path;
if rel == "" {
rel = ".";
}
rel_cstr := strings.clone_to_cstring(rel, context.temp_allocator);
path_ptr := realpath(rel_cstr, nil);
if path_ptr == nil {
return "", __error()^ == 0;
}
defer _unix_free(path_ptr);
path_cstr := cstring(path_ptr);
path_str := strings.clone(string(path_cstr), allocator);
return path_str, true;
}
join :: proc(elems: ..string, allocator := context.allocator) -> string {
for e, i in elems {
if e != "" {
p := strings.join(elems[i:], SEPARATOR_STRING, context.temp_allocator);
return clean(p, allocator);
}
}
return "";
}
@(private)
foreign libc {
realpath :: proc(path: cstring, resolved_path: rawptr) -> rawptr ---
@(link_name="free") _unix_free :: proc(ptr: rawptr) ---
}
when ODIN_OS == "darwin" {
@(private)
foreign libc {
@(link_name="__error") __error :: proc() -> ^i32 ---
}
} else {
@(private)
foreign libc {
@(link_name="__errno_location") __error :: proc() -> ^i32 ---
}
}
|
