Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-01-26 19:30:59 +00:00
Code Issues Projects Releases Wiki Activity

* fix AstToSourceCode: missing semicolon in header and footer, missing "@" for strings with altEncoding

Browse Source
This commit is contained in:
meisl 2021-07-11 14:28:09 +02:00
parent 0d73a7cd07
commit 6c42221620
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compilerAst/src/prog8/ast/AstToSourceCode.kt
View File

@ -9,6 +9,11 @@ import prog8.ast.statements.*
import prog8.ast.walk.IAstVisitor
/**
* Produces Prog8 source text from a [Program] (AST node),
* passing it as a String to the specified receiver function.
* TODO: rename/refactor to make proper sense in the presence of class [prog8.SourceCode]
*/
class AstToSourceCode(val output: (text: String) -> Unit, val program: Program): IAstVisitor {
private var scopelevel = 0
@ -18,9 +23,9 @@ class AstToSourceCode(val output: (text: String) -> Unit, val program: Program):
private fun outputi(s: Any) = output(indent(s.toString()))
override fun visit(program: Program) {
outputln("============= PROGRAM ${program.name} (FROM AST) ===============")
outputln("; ============ PROGRAM ${program.name} (FROM AST) ==============")
super.visit(program)
outputln("============= END PROGRAM ${program.name} (FROM AST) ===========")
outputln("; =========== END PROGRAM ${program.name} (FROM AST) ===========")
}
override fun visit(module: Module) {
@ -262,6 +267,8 @@ class AstToSourceCode(val output: (text: String) -> Unit, val program: Program):
}
override fun visit(string: StringLiteralValue) {
if (string.altEncoding)
output("@")
output("\"${escape(string.value)}\"")
}