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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
'use strict';
import { glob, basename, realpath, chdir, mkstemp } from "fs";
export const TYPE_ARRAY = 1;
export const TYPE_STRING = 3;
export const TYPE_INT = 5;
export const TYPE_BOOL = 7;
export function parse_bool(val)
{
switch (val) {
case "1":
case "true":
return true;
case "0":
case "false":
return false;
}
};
export function parse_array(val)
{
if (type(val) != "array")
val = split(val, /\s+/);
return val;
};
function __type_parsers()
{
let ret = [];
ret[TYPE_ARRAY] = parse_array;
ret[TYPE_STRING] = function(val) {
return val;
};
ret[TYPE_INT] = function(val) {
return +val;
};
ret[TYPE_BOOL] = parse_bool;
return ret;
}
export const type_parser = __type_parsers();
export function handler_load(path, cb)
{
for (let script in glob(path + "/*.sh")) {
script = basename(script);
let f = mkstemp();
let prev_dir = realpath(".");
chdir(path);
system(`./${script} "" "dump" >&${f.fileno()}`);
chdir(prev_dir);
f.seek();
while (!f.error()) {
let data = trim(f.read("line"));
try {
data = json(data);
} catch (e) {
continue;
}
if (type(data) != "object")
continue;
cb(script, data);
}
f.close();
}
};
export function handler_attributes(data, extra, validate)
{
let ret = { ...extra };
for (let cur in data) {
let name_data = split(cur[0], ":", 2);
let name = name_data[0];
ret[name] = cur[1];
if (validate && name_data[1])
validate[name] = name_data[1];
}
return ret;
};
export function parse_attribute_list(data, spec)
{
let ret = {};
for (let name, type_id in spec) {
if (!(name in data))
continue;
let val = data[name];
let parser = type_parser[type_id];
if (parser)
val = parser(val);
ret[name] = val;
}
return ret;
};
export function is_equal(val1, val2) {
let t1 = type(val1);
if (t1 != type(val2))
return false;
if (t1 == "array") {
if (length(val1) != length(val2))
return false;
for (let i = 0; i < length(val1); i++)
if (!is_equal(val1[i], val2[i]))
return false;
return true;
} else if (t1 == "object") {
for (let key in val1)
if (!is_equal(val1[key], val2[key]))
return false;
for (let key in val2)
if (val1[key] == null)
return false;
return true;
} else {
return val1 == val2;
}
};
|
