S-expressions: Difference between revisions
m
→JS Functional
m (→JS Functional) |
|||
| (4 intermediate revisions by 4 users not shown) | |||
Line 3,839:
=={{header|JavaScript}}==
(for a '''bug-fix''' concerning \" and \n in strings see the [[Talk:S-expressions#JavaScript_version_bugfix_for_%5C%22_and_%5Cn_in_strings|Discussion]])
===Procedural===
<syntaxhighlight lang="javascript">String.prototype.parseSexpr = function() {
Line 3,918 ⟶ 3,919:
"((data \"quoted data\" 123 4.5)",
" (data (!@# (4.5) \"(more\" \"data)\")))"
]
const [parse, residue] = parseExpr(
Line 3,924 ⟶ 3,926:
);
return 0 < residue.length
? `Unparsed tokens: ${JSON.stringify(residue)}`
parse.map(serialized).join(" ")
].join("\n\n")) : "Could not be parsed";▼
.join("\n\n")
};
Line 3,959 ⟶ 3,964:
// An open bracket introduces recursion over
// a sub-expression to define a sub-list.
return "(" === token
const [expr, rest] = parseExpr(ts);
return [xs.concat([expr]), rest.slice(1)];
: [xs.concat(atom(token)), ts];
};
Line 3,972 ⟶ 3,979:
// atom :: String -> Expr
const atom = s =>
0 < s.length
? isNaN(s)
? "\"'".includes(s[0])
? s.slice(1, -1)
:
▲ ) : parseFloat(s, 10)
▲ ) : "";
Line 3,989 ⟶ 3,994:
// Brackets and quoted or unquoted atomic strings.
quoteTokens("\"")(s).flatMap(
segment => "\"" !== segment[0]
? segment.replace(/([()])/gu, " $1 ")
.split(/\s+/u)
.filter(Boolean)
);
Line 4,001 ⟶ 4,006:
// Alternating unquoted and quoted segments.
s => s.split(q).flatMap(
(k, i) => even(i)
? [k]
);
Line 4,014 ⟶ 4,019:
const t = typeof e;
return "number" === t
? `${e}`
? `"${e}"`
? Array.isArray(e)
? `(${e.map(serialized).join(" ")})`
};
Line 4,041 ⟶ 4,046:
f => {
const go = x =>
p(x)
? x
: go(f(x));
return go;
Line 4,644 ⟶ 4,651:
=={{header|OCaml}}==
You may be interested
▲You may be interested by [https://realworldocaml.org/v1/en/html/data-serialization-with-s-expressions.html this chapter of the book Real World Ocaml]
The file <code>SExpr.mli</code> containing the interface:
Line 6,786 ⟶ 6,792:
{{libheader|Wren-pattern}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
import "./fmt" for Fmt
var INDENT = 2
| |||