kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

fix tabbing of multiline fossil expressions

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-10-27 16:54:26 -05:00
parent 1525aa875e
commit 8bc1093b0c
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/kiss/Kiss.hx
View File

@@ -598,6 +598,11 @@ class Kiss {
return fossilCode;
}
public static function toStringTabbed(e:Expr) {
var str = e.toString();
return str.replace("\n", "\n\t");
}
public static function fossilBuild(?kissFile:String, ?k:KissState, useClassFields = true, ?context:FrontendContext, ?expectedError:EType):Array<Field> {
var pos = Context.currentPos();
var haxeFile = Context.getPosInfos(pos).file;
@@ -688,7 +693,7 @@ class Kiss {
fossilCode += complexTypeToString(type);
}
if (e != null) {
fossilCode += ' = ' + e.toString();
fossilCode += ' = ' + toStringTabbed(e);
}
fossilCode += ';';
case FFun(f):
@@ -709,7 +714,7 @@ class Kiss {
fossilCode += complexTypeToString(arg.type);
}
if (arg.value != null) {
fossilCode += " = " + arg.value.toString();
fossilCode += " = " + toStringTabbed(arg.value);
}
}
fossilCode += ")";
@@ -717,7 +722,7 @@ class Kiss {
fossilCode += ':' + complexTypeToString(f.ret) + " ";
}
if (f.expr != null) {
var funcExpToString = f.expr.toString();
var funcExpToString = toStringTabbed(f.expr);
fossilCode += " " + funcExpToString;
if (!funcExpToString.contains("\n") && !funcExpToString.endsWith(";"))
fossilCode += ";";
@@ -729,7 +734,7 @@ class Kiss {
case FProp(get, set, type, e):
fossilCode += "var " + field.name + "(" + get + "," + set + "):" + complexTypeToString(type);
if (e != null) {
fossilCode += " = " + e.toString();
fossilCode += " = " + toStringTabbed(e);
}
fossilCode += ";";
default: