2015-04-17 18:22:59 +00:00
|
|
|
//: For convenience, some instructions will take literal arrays of characters (strings).
|
2015-03-31 06:15:03 +00:00
|
|
|
//:
|
|
|
|
//: Instead of quotes, we'll use [] to delimit strings. That'll reduce the
|
2015-03-31 17:17:19 +00:00
|
|
|
//: need for escaping since we can support nested brackets. And we can also
|
|
|
|
//: imagine that 'recipe' might one day itself be defined in mu, doing its own
|
|
|
|
//: parsing.
|
2015-03-31 06:15:03 +00:00
|
|
|
|
2015-04-24 07:28:24 +00:00
|
|
|
:(scenarios load)
|
2015-04-24 17:19:03 +00:00
|
|
|
:(scenario string_literal)
|
2015-03-31 04:22:29 +00:00
|
|
|
recipe main [
|
2015-04-29 05:42:54 +00:00
|
|
|
1:address:array:character <- copy [abc def] # copy can't really take a string
|
2015-03-31 04:22:29 +00:00
|
|
|
]
|
2015-06-14 06:08:46 +00:00
|
|
|
+parse: ingredient: {name: "abc def", properties: [_: "literal-string"]}
|
2015-03-31 04:22:29 +00:00
|
|
|
|
2015-04-24 17:19:03 +00:00
|
|
|
:(scenario string_literal_with_colons)
|
2015-04-15 17:27:16 +00:00
|
|
|
recipe main [
|
2015-04-29 05:42:54 +00:00
|
|
|
1:address:array:character <- copy [abc:def/ghi]
|
2015-04-15 17:27:16 +00:00
|
|
|
]
|
2015-06-14 06:08:46 +00:00
|
|
|
+parse: ingredient: {name: "abc:def/ghi", properties: [_: "literal-string"]}
|
2015-04-15 17:27:16 +00:00
|
|
|
|
2015-03-31 04:22:29 +00:00
|
|
|
:(before "End Mu Types Initialization")
|
|
|
|
Type_number["literal-string"] = 0;
|
|
|
|
|
|
|
|
:(after "string next_word(istream& in)")
|
2015-04-29 05:45:38 +00:00
|
|
|
if (in.peek() == '[') {
|
|
|
|
string result = slurp_quoted(in);
|
|
|
|
skip_whitespace(in);
|
|
|
|
skip_comment(in);
|
|
|
|
return result;
|
|
|
|
}
|
2015-03-31 04:22:29 +00:00
|
|
|
|
|
|
|
:(code)
|
|
|
|
string slurp_quoted(istream& in) {
|
|
|
|
assert(!in.eof());
|
2015-04-15 17:27:16 +00:00
|
|
|
assert(in.peek() == '[');
|
2015-03-31 04:22:29 +00:00
|
|
|
ostringstream out;
|
2015-05-28 20:31:20 +00:00
|
|
|
int brace_depth = 0;
|
2015-03-31 04:22:29 +00:00
|
|
|
while (!in.eof()) {
|
|
|
|
char c = in.get();
|
2015-05-28 20:31:20 +00:00
|
|
|
//? cout << (int)c << ": " << brace_depth << '\n'; //? 2
|
2015-05-28 18:28:15 +00:00
|
|
|
if (c == '\\') {
|
|
|
|
out << (char)in.get();
|
|
|
|
continue;
|
|
|
|
}
|
2015-03-31 04:22:29 +00:00
|
|
|
out << c;
|
|
|
|
//? cout << out.str() << "$\n"; //? 1
|
2015-05-28 20:31:20 +00:00
|
|
|
if (c == '[') ++brace_depth;
|
|
|
|
if (c == ']') --brace_depth;
|
|
|
|
if (brace_depth == 0) break;
|
2015-03-31 04:22:29 +00:00
|
|
|
}
|
2015-05-30 19:34:40 +00:00
|
|
|
if (in.eof() && brace_depth > 0) {
|
|
|
|
raise << "unbalanced '['\n";
|
|
|
|
return "";
|
|
|
|
}
|
2015-03-31 04:22:29 +00:00
|
|
|
return out.str();
|
|
|
|
}
|
2015-03-31 06:15:03 +00:00
|
|
|
|
2015-04-15 17:27:16 +00:00
|
|
|
:(after "reagent::reagent(string s)")
|
2015-05-07 22:49:40 +00:00
|
|
|
//? cout << s.at(0) << '\n'; //? 1
|
|
|
|
if (s.at(0) == '[') {
|
|
|
|
assert(*s.rbegin() == ']');
|
2015-04-15 17:27:16 +00:00
|
|
|
// delete [] delimiters
|
|
|
|
s.erase(0, 1);
|
2015-05-17 09:22:41 +00:00
|
|
|
s.erase(SIZE(s)-1, SIZE(s));
|
2015-04-15 17:27:16 +00:00
|
|
|
name = s;
|
|
|
|
types.push_back(0);
|
|
|
|
properties.push_back(pair<string, vector<string> >(name, vector<string>()));
|
|
|
|
properties.back().second.push_back("literal-string");
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2015-04-24 17:19:03 +00:00
|
|
|
:(scenario string_literal_nested)
|
2015-03-31 17:17:19 +00:00
|
|
|
recipe main [
|
2015-04-29 05:42:54 +00:00
|
|
|
1:address:array:character <- copy [abc [def]]
|
2015-03-31 17:17:19 +00:00
|
|
|
]
|
2015-06-14 06:08:46 +00:00
|
|
|
+parse: ingredient: {name: "abc [def]", properties: [_: "literal-string"]}
|
2015-04-29 05:45:38 +00:00
|
|
|
|
2015-05-28 18:28:15 +00:00
|
|
|
:(scenario string_literal_escaped)
|
|
|
|
recipe main [
|
|
|
|
1:address:array:character <- copy [abc \[def]
|
|
|
|
]
|
2015-06-14 06:08:46 +00:00
|
|
|
+parse: ingredient: {name: "abc [def", properties: [_: "literal-string"]}
|
2015-05-28 18:28:15 +00:00
|
|
|
|
2015-04-29 05:45:38 +00:00
|
|
|
:(scenario string_literal_and_comment)
|
|
|
|
recipe main [
|
|
|
|
1:address:array:character <- copy [abc] # comment
|
|
|
|
]
|
2015-04-30 04:49:09 +00:00
|
|
|
+parse: instruction: copy
|
2015-06-14 06:08:46 +00:00
|
|
|
+parse: ingredient: {name: "abc", properties: [_: "literal-string"]}
|
2015-05-21 19:36:59 +00:00
|
|
|
+parse: product: {name: "1", properties: ["1": "address":"array":"character"]}
|
2015-04-29 18:45:43 +00:00
|
|
|
# no other ingredients
|
2015-04-29 05:45:38 +00:00
|
|
|
$parse: 3
|