No puede seleccionar más de 25 temas
Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
80 líneas
2.4 KiB
80 líneas
2.4 KiB
FormatString = Object.subtype(#FormatString);
|
|
|
|
FormatString.new(elements) {
|
|
self = super.new();
|
|
self.elements = elements;
|
|
self;
|
|
}
|
|
|
|
FormatString.__eval__(env) {
|
|
local result = "";
|
|
for(elem in self.elements) {
|
|
local elemval = elem.__eval__(env);
|
|
if (elemval.__name__ == #String) {
|
|
result.push(elemval);
|
|
} else {
|
|
elemval.__codeon__(result);
|
|
}
|
|
}
|
|
result;
|
|
}
|
|
|
|
FormatString.__codeon__(str) {
|
|
str.push("f\"");
|
|
for(elem in self.elements) {
|
|
if (elem.__name__ == #String) {
|
|
str.push(elem.escaped());
|
|
} else {
|
|
str.push("$");
|
|
elem.__codeon__(str);
|
|
}
|
|
}
|
|
str.push("\"");
|
|
}
|
|
|
|
__namespaces__.metaLanguage.primary.prepend("fstring");
|
|
|
|
nonSpaceEatingId = parseDefinition(
|
|
"nonSpaceEatingId = < LETTER ALNUM* > { intern(yytext) }
|
|
");
|
|
|
|
nonSpaceEatingBlock = parseDefinition(
|
|
"nonSpaceEatingBlock = LBRACE b:mkobj
|
|
( e:stmt { b.push(e) }
|
|
)* \"}\" { b }
|
|
");
|
|
|
|
fStringChar = parseDefinition(
|
|
"fStringChar = < (!\"\\\"\" !\"$\" char )+ > { yytext }
|
|
| \"\\\\$\" { \"$\" }
|
|
");
|
|
|
|
fStringRule = parseDefinition(
|
|
"fstring = \"f\\\"\" elements:mkobj
|
|
( \"$\" i:nonSpaceEatingId { elements.push(GetVar.new(name: i)) }
|
|
| \"$\" b:nonSpaceEatingBlock { elements.push(Block.new(body: b)) }
|
|
| c:fStringChar { elements.push(c) }
|
|
)* \"\\\"\" { FormatString.new(elements) }
|
|
");
|
|
|
|
// regenerate the expression to be executed
|
|
metaLanguage.addRule(nonSpaceEatingBlock.name, nonSpaceEatingBlock.expression);
|
|
metaLanguage.addRule(nonSpaceEatingId.name, nonSpaceEatingId.expression);
|
|
metaLanguage.addRule(fStringChar.name, fStringChar.expression);
|
|
metaLanguage.addRule(fStringRule.name, fStringRule.expression);
|
|
metaLanguage.addRule(#primary, __namespaces__.metaLanguage.primary);
|
|
|
|
formatInt(integer) {
|
|
if (integer > 1000) {
|
|
return f"${formatInt((integer - integer % 1000) / 1000)},${integer % 1000}";
|
|
}
|
|
return f"$integer";
|
|
}
|
|
a = 69;
|
|
print(f"Reimu has $a power and ${6*7} point items and \$${ formatInt(1 << 24) } money.\n");
|
|
n = 100;
|
|
print(f"Sum of integers from 1 to $n : ${local sum = 0; for (i in n + 1) sum += i}\n");
|
|
print(f"${formatInt.function}\n");
|
|
//{
|
|
// print(f"${__env__()}\n");
|
|
//}
|