aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

55
Task/Read-a-configuration-file/Aime/read-a-configuration-file.aime
View file

@ -6,60 +6,53 @@ text an, d, k;
an = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
f_affix(f, "tmp/config");
f.affix("tmp/config");
while ((c = f_peek(f)) ^ -1) {
while ((c = f.peek) ^ -1) {
integer removed;
f_side(f, " \t\r");
c = f_peek(f);
f.side(" \t\r");
c = f.peek;
removed = c == ';';
if (removed) {
f_pick(f);
f_side(f, " \t\r");
c = f_peek(f);
f.pick;
f.side(" \t\r");
c = f.peek;
}
c = index(an, c);
c = place(an, c);
if (-1 < c && c < 52) {
f_near(f, an, k);
f.near(an, k);
if (removed) {
r[k] = "false";
} else {
data b;
f_side(f, " \t\r");
if (f_peek(f) == '=') {
f_pick(f);
f_side(f, " \t\r");
f.side(" \t\r");
if (f.peek == '=') {
f.pick;
f.side(" \t\r");
}
f_ever(f, ",#\n", d);
b = d;
bb_drop(b, " \r\t");
d = b_string(b);
if (f_peek(f) != ',') {
r[k] = length(d) ? d : "true";
f.ever(",#\n", d);
d = bb_drop(d, " \r\t");
if (f.peek != ',') {
r[k] = ~d ? d : "true";
} else {
f_news(f, l, 0, 0, ",");
f.news(l, 0, 0, ",");
lf_push(l, d);
for (c, d in l) {
b = d;
bb_drop(b, " \r\t");
bf_drop(b, " \r\t");
l[c] = b_string(b);
l[c] = bb_drop(d, " \r\t").bf_drop(" \r\t").string;
}
r_put(s, k, l);
f_seek(f, -1, SEEK_CURRENT);
s.put(k, l);
f.seek(-1, SEEK_CURRENT);
}
}
}
f_slip(f);
f.slip;
}
r_wcall(r, o_, 0, 2, ": ", "\n");
r.wcall(o_, 0, 2, ": ", "\n");
for (k, l in s) {
o_(k, ": ");
l_ucall(l, o_, 0, ", ");
l.ucall(o_, 0, ", ");
o_("\n");
}