blob: c85da1180a21c453dd0856eb6c7f5389409325f4 (
plain)
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
# Requires util.tnsl
;struct Path {
{}{}charp dirs,
{}charp file
}
/; method Path
/; rel_file ({}charp rpath) [Path]
;{}{}charp spl = split(rpath, '/')
;Path out = {{}, ""}
/; loop (int i = 0; i < len (self.dirs)) [i++]
;out.dirs.append(self.dirs{i})
;/
/; loop (int i = 0; i < len spl - 1) [i++]
;out.dirs.append(spl{i})
;/
;out.file = spl{len spl - 1}
;return out
;/
/; full_path [{}charp]
;{}charp out = join((self.dirs), '/')
/; if (len (self.dirs) > 0)
;out.append('/')
;/
;add_strings(~out, ~(self.file))
;return out
;/
/; open_w [tnsl.io.File]
;return tnsl.io.writeFile(self.full_path())
;/
/; open_r [tnsl.io.File]
;return tnsl.io.readFile(self.full_path())
;/
;/
/; split({}charp str, charp c) [{}{}charp]
;{}{}charp out = {}
;{}charp tmp = ""
/; loop (int i = 0; i < len str) [i++]
/; if (str{i} == c)
;out.append(tmp)
;{}charp tmp = ""
;true # work around for interpreter bug
;; else
;tmp.append(str{i})
;/
;/
;out.append(tmp)
;return out
;/
/; join ({}{}charp s, charp j) [{}charp]
;{}charp out = ""
/; loop (int i = 0; i < len s) [i++]
/; loop (int j = 0; j < len s{i}) [j++]
;out.append(s{i}{j})
;/
/; if (i < len s - 1)
;out.append(j)
;/
;/
;return out
;/
/; path_from_str ({}charp f) [Path]
;{}{}charp spl = split(f, '/')
;Path out = {{}, ""}
/; loop (int i = 0; i < len spl - 1) [i++]
;out.dirs.append(spl{i})
;/
;out.file = spl{len spl - 1}
;return out
;/
|
