From df1b046bd6bc1afd17aeeae0ee3a0dd75f1480f9 Mon Sep 17 00:00:00 2001 From: anyunderstanding Date: Sun, 29 Dec 2024 21:13:59 +0100 Subject: im in love with lll --- lllars/llltranspiler/src/main/kotlin/Ast.kt | 65 ----- lllars/llltranspiler/src/main/kotlin/Main.kt | 191 ------------- lllars/llltranspiler/src/main/kotlin/me/any/Ast.kt | 62 +++++ .../llltranspiler/src/main/kotlin/me/any/Main.kt | 295 +++++++++++++++++++++ 4 files changed, 357 insertions(+), 256 deletions(-) delete mode 100644 lllars/llltranspiler/src/main/kotlin/Ast.kt delete mode 100644 lllars/llltranspiler/src/main/kotlin/Main.kt create mode 100644 lllars/llltranspiler/src/main/kotlin/me/any/Ast.kt create mode 100644 lllars/llltranspiler/src/main/kotlin/me/any/Main.kt (limited to 'lllars/llltranspiler/src/main/kotlin') diff --git a/lllars/llltranspiler/src/main/kotlin/Ast.kt b/lllars/llltranspiler/src/main/kotlin/Ast.kt deleted file mode 100644 index 4612dd7..0000000 --- a/lllars/llltranspiler/src/main/kotlin/Ast.kt +++ /dev/null @@ -1,65 +0,0 @@ -package me.any - -import AccessSerializer -import AddresationSerializer -import InstructionSerializer -import kotlinx.serialization.Serializable - -@Serializable(with = AccessSerializer::class) -interface Access - -@Serializable -data class SAccess(val sAddress: Access) : Access - -@Serializable -data class Address(val address: Int) : Access - - -enum class Operation { - ADD, SUB, MUL, DIV, AND, OR, XOR -} - -@Serializable(with = AddresationSerializer::class) -interface Addresation - -data class AddressAddresation(val address: Access) : Addresation - - -data class BinaryOperation( - val op: Operation, - val left: Access, - val right: Access -) : Addresation - -interface SysCall - -class WriteSysCall : SysCall -class ReadSysCall : SysCall - -enum class BranchPolarity { - IFTRUE, IFFALSE -} - -@Serializable(with = InstructionSerializer::class) -interface Instruction - -@Serializable -data class Comment(val comment: String = "") : Instruction - -@Serializable -data class Write(val target: Int, val source: Addresation) : Instruction - -@Serializable -data class LarsCode(val call: SysCall) : Instruction - -@Serializable -data class Label(val label: String) : Instruction - -@Serializable -data class GoTo(val label: String) : Instruction - -@Serializable -data class Branch(val polarity: BranchPolarity, val address: Address, val label: String) : Instruction - -@Serializable -data class Program(val instructions: List) \ No newline at end of file diff --git a/lllars/llltranspiler/src/main/kotlin/Main.kt b/lllars/llltranspiler/src/main/kotlin/Main.kt deleted file mode 100644 index 6e247a7..0000000 --- a/lllars/llltranspiler/src/main/kotlin/Main.kt +++ /dev/null @@ -1,191 +0,0 @@ -import kotlinx.serialization.* -import kotlinx.serialization.json.* -import kotlinx.serialization.descriptors.* -import kotlinx.serialization.encoding.* -import me.any.* - -object AccessSerializer : KSerializer { - override fun deserialize(decoder: Decoder): Access { - val jsonDecoder = decoder as JsonDecoder - val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject - when { - "address" in jsonElement.keys -> { - return Address(jsonElement["address"]!!.jsonPrimitive.int) - } - - "sAddress" in jsonElement.keys -> { - return SAccess( - jsonElement["sAddress"]!!.jsonObject["sAddress"]!!.let { - jsonDecoder.json.decodeFromJsonElement(it) - } - ) - } - - else -> { - throw SerializationException("Unknown access") - } - } - } - - override val descriptor: SerialDescriptor - get() = PolymorphicSerializer(Access::class).descriptor - - override fun serialize(encoder: Encoder, value: Access) { - TODO("Not yet implemented") - } -} - -object AddresationSerializer : KSerializer { - override val descriptor: SerialDescriptor - get() = PolymorphicSerializer(Addresation::class).descriptor - - override fun deserialize(decoder: Decoder): Addresation { - - val jsonDecoder = decoder as JsonDecoder - val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject - println(jsonElement) - when { - "access" in jsonElement.keys -> { - return AddressAddresation( - jsonElement["access"]!!.let { - jsonDecoder.json.decodeFromJsonElement(it) - } - ) - } - - "binaryOperation" in jsonElement.keys -> { - val binaryOperation = jsonElement["binaryOperation"]!!.jsonObject - return BinaryOperation( - Operation.valueOf(binaryOperation["op"]!!.jsonPrimitive.content), - jsonDecoder.json.decodeFromJsonElement(binaryOperation["a"]!!), - jsonDecoder.json.decodeFromJsonElement(binaryOperation["b"]!!) - ) - } - - - else -> { - throw SerializationException("Unknown addresation") - } - } - } - - override fun serialize(encoder: Encoder, value: Addresation) { - TODO("Not yet implemented") - } -} - -object InstructionSerializer : KSerializer { - override fun deserialize(decoder: Decoder): Instruction { - val jsonDecoder = decoder as JsonDecoder - val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject - when { - "comment" in jsonElement.keys -> { - return Comment(jsonElement["comment"]!!.jsonPrimitive.content) - } - - "write" in jsonElement.keys -> { - val write = jsonElement["write"]!!.jsonObject - return Write( - write["target"]!!.jsonPrimitive.int, - jsonDecoder.json.decodeFromJsonElement(write["source"]!!) - ) - } - - "label" in jsonElement.keys -> { - return Label(jsonElement["label"]!!.jsonPrimitive.content) - } - - "goto" in jsonElement.keys -> { - return GoTo(jsonElement["goto"]!!.jsonPrimitive.content) - } - - "branch" in jsonElement.keys -> { - val branch = jsonElement["branch"]!!.jsonObject - return Branch( - BranchPolarity.valueOf(branch["polarity"]!!.jsonPrimitive.content), - jsonDecoder.json.decodeFromJsonElement
(branch["address"]!!), - branch["label"]!!.jsonPrimitive.content - ) - } - - else -> { - throw SerializationException("Unknown instruction" + jsonElement.keys) - } - } - } - - override val descriptor: SerialDescriptor - get() = PolymorphicSerializer(Instruction::class).descriptor - - override fun serialize(encoder: Encoder, value: Instruction) { - TODO("Not yet implemented") - } -} - -fun main() { - val program = Json.decodeFromString(INPUT) - println(transpileProgram(program)) -} - -const val C_RUNTIME = """ -#include - -int main() { - void* heap = malloc(1024); - %code% - return 0; -} -""" - -fun transpileProgram(program: Program): String { - val instructions = program.instructions.joinToString("\n") { - when (it) { - is Comment -> "// ${it.comment}" - is Write -> "heap[${it.target}] = ${transpileAddresation(it.source)};" - is Label -> "${it.label}:" - is GoTo -> "goto ${it.label};" - is Branch -> "if (heap[${transpileAccess(it.address)}] ${if (it.polarity == BranchPolarity.IFFALSE) "!" else ""}= 0) goto ${it.label};" - else -> { - throw IllegalArgumentException("Unknown instruction") - } - } - } - - return C_RUNTIME.replace("%code%", instructions) -} - -fun transpileAddresation(addresation: Addresation): String { - return when (addresation) { - is AddressAddresation -> transpileAccess(addresation.address) -is BinaryOperation -> { - val left = transpileAccess(addresation.left) - val right = transpileAccess(addresation.right) - return when (addresation.op) { - Operation.ADD -> "$left + $right" - Operation.SUB -> "$left - $right" - Operation.MUL -> "$left * $right" - Operation.DIV -> "$left / $right" - Operation.AND -> "$left & $right" - Operation.OR -> "$left | $right" - Operation.XOR -> "$left ^ $right" - } - } - else -> { - throw IllegalArgumentException("Unknown addresation") - } - } -} - -fun transpileAddress(address: Address): String { - return "&heap[${address.address}]" -} - -fun transpileAccess(access: Access): String { - return when (access) { - is Address -> transpileAddress(access) - is SAccess -> "heap[${transpileAccess(access.sAddress)}]" - else -> { - throw IllegalArgumentException("Unknown access") - } - } -} diff --git a/lllars/llltranspiler/src/main/kotlin/me/any/Ast.kt b/lllars/llltranspiler/src/main/kotlin/me/any/Ast.kt new file mode 100644 index 0000000..47bca22 --- /dev/null +++ b/lllars/llltranspiler/src/main/kotlin/me/any/Ast.kt @@ -0,0 +1,62 @@ +package me.any + +import kotlinx.serialization.Serializable + +@Serializable(with = AccessSerializer::class) +interface Access + +@Serializable +data class SAccess(val sAddress: Access) : Access + +@Serializable +data class Address(val address: Int) : Access + + +enum class Operation { + ADD, SUB, MUL, DIV, AND, OR, XOR +} + +@Serializable(with = AddresationSerializer::class) +interface Addresation + +data class AddressAddresation(val address: Access) : Addresation + + +data class BinaryOperation( + val op: Operation, + val left: Access, + val right: Access +) : Addresation + +interface SysCall : Instruction + +class WriteSysCall : SysCall +class ReadSysCall : SysCall + +enum class BranchPolarity { + IfTrue, IfFalse +} + +@Serializable(with = InstructionSerializer::class) +interface Instruction + +@Serializable +data class Comment(val comment: String = "") : Instruction + +@Serializable +data class Write(val target: Int, val source: Addresation) : Instruction + +@Serializable +data class LarsCode(val call: SysCall) : Instruction + +@Serializable +data class Label(val label: String) : Instruction + +@Serializable +data class GoTo(val label: String) : Instruction + +@Serializable +data class Branch(val polarity: BranchPolarity, val address: Access, val label: String) : Instruction + +@Serializable +data class Program(val instructions: List) \ No newline at end of file diff --git a/lllars/llltranspiler/src/main/kotlin/me/any/Main.kt b/lllars/llltranspiler/src/main/kotlin/me/any/Main.kt new file mode 100644 index 0000000..86f5cbf --- /dev/null +++ b/lllars/llltranspiler/src/main/kotlin/me/any/Main.kt @@ -0,0 +1,295 @@ +package me.any + +import kotlinx.serialization.* +import kotlinx.serialization.json.* +import kotlinx.serialization.descriptors.* +import kotlinx.serialization.encoding.* +import java.io.File + +object AccessSerializer : KSerializer { + override fun deserialize(decoder: Decoder): Access { + val jsonDecoder = decoder as JsonDecoder + val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject + when { + "address" in jsonElement.keys -> { + return Address(jsonElement["address"]!!.jsonPrimitive.int) + } + + "sAddress" in jsonElement.keys -> { + return SAccess( + jsonElement["sAddress"]!!.let { + jsonDecoder.json.decodeFromJsonElement(it) + } + ) + } + + else -> { + throw SerializationException("Unknown access") + } + } + } + + override val descriptor: SerialDescriptor + get() = PolymorphicSerializer(Access::class).descriptor + + override fun serialize(encoder: Encoder, value: Access) { + TODO("Not yet implemented") + } +} + +object AddresationSerializer : KSerializer { + override val descriptor: SerialDescriptor + get() = PolymorphicSerializer(Addresation::class).descriptor + + override fun deserialize(decoder: Decoder): Addresation { + + val jsonDecoder = decoder as JsonDecoder + val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject + when { + "access" in jsonElement.keys -> { + return AddressAddresation( + jsonElement["access"]!!.let { + jsonDecoder.json.decodeFromJsonElement(it) + } + ) + } + + "binaryOperation" in jsonElement.keys -> { + val binaryOperation = jsonElement["binaryOperation"]!!.jsonObject + return BinaryOperation( + Operation.valueOf(binaryOperation["op"]!!.jsonPrimitive.content), + jsonDecoder.json.decodeFromJsonElement(binaryOperation["a"]!!), + jsonDecoder.json.decodeFromJsonElement(binaryOperation["b"]!!) + ) + } + + + else -> { + throw SerializationException("Unknown addresation") + } + } + } + + override fun serialize(encoder: Encoder, value: Addresation) { + TODO("Not yet implemented") + } +} + +object InstructionSerializer : KSerializer { + override fun deserialize(decoder: Decoder): Instruction { + val jsonDecoder = decoder as JsonDecoder + val jsonElement = jsonDecoder.decodeJsonElement() as JsonObject + when { + "comment" in jsonElement.keys -> { + return Comment(jsonElement["comment"]!!.jsonPrimitive.content) + } + + "write" in jsonElement.keys -> { + val write = jsonElement["write"]!!.jsonObject + return Write( + write["target"]!!.jsonPrimitive.int, + jsonDecoder.json.decodeFromJsonElement(write["source"]!!) + ) + } + + "label" in jsonElement.keys -> { + return Label(jsonElement["label"]!!.jsonPrimitive.content) + } + + "goto" in jsonElement.keys -> { + return GoTo(jsonElement["goto"]!!.jsonPrimitive.content) + } + + "branch" in jsonElement.keys -> { + val branch = jsonElement["branch"]!!.jsonObject + val polarity = branch["polarity"]!!.jsonPrimitive.content + val jmp = jsonDecoder.json.decodeFromJsonElement(branch["jmp"]!!) + val label = branch["label"]!!.jsonPrimitive.content + return Branch( + if (polarity == "IfTrue") BranchPolarity.IfTrue else BranchPolarity.IfFalse, + jmp, + label + ) + } + + "call" in jsonElement.keys -> { + return LarsCode( + when (jsonElement["call"]!!.jsonPrimitive.content) { + "ReadCall" -> ReadSysCall() + "WriteCall" -> WriteSysCall() + else -> { + throw SerializationException("Unknown syscall" + jsonElement["call"]!!.jsonPrimitive.content) + } + } + ) + } + + else -> { + throw SerializationException("Unknown instruction" + jsonElement.keys) + } + } + } + + override val descriptor: SerialDescriptor + get() = PolymorphicSerializer(Instruction::class).descriptor + + override fun serialize(encoder: Encoder, value: Instruction) { + TODO("Not yet implemented") + } +} + +fun main( + args: Array +) { + if (args.size != 1) { + println("Usage: transpile ") + return + } + val input = File(args[0]).readText() + val program = Json.decodeFromString(input) + File("out.c").writeText(transpileProgram(program)) + println( + """Oh Lars, Lars, Lars, your name I sing, +Lars, Lars, Lars, you're my everything. +Lars, Lars, Lars, the stars align, +Lars, Lars, Lars, your love divine. + +Lars, Lars, Lars, your smile is grace, +Lars, Lars, Lars, the light on my face. +Lars, Lars, Lars, your touch is fire, +Lars, Lars, Lars, my heart's desire. + +Lars, Lars, Lars, in every breath, +Lars, Lars, Lars, you conquer death. +Lars, Lars, Lars, the sky you paint, +Lars, Lars, Lars, my perfect saint. + +Lars, Lars, Lars, the world does bow, +Lars, Lars, Lars, to you here and now. +Lars, Lars, Lars, the heavens rejoice, +Oh Lars, Lars, Lars, your name I sing, +Lars, Lars, Lars, you're my everything. +Lars, Lars, Lars, the stars align, +Lars, Lars, Lars, your love divine. + +Lars, Lars, Lars, your smile is grace, +Lars, Lars, Lars, the light on my face. +Lars, Lars, Lars, your touch is fire, +Lars, Lars, Lars, my heart's desire. + +Lars, Lars, Lars, in every breath, +Lars, Lars, Lars, you conquer death. +Lars, Lars, Lars, the sky you paint, +Lars, Lars, Lars, my perfect saint. + +Lars, Lars, Lars, the world does bow, +Lars, Lars, Lars, to you here and now. +Lars, Lars, Lars, the heavens rejoice, +Lars, Lars, Lars, at your sacred voice. + +Lars, Lars, Lars, oh endless Lars, +Lars, Lars, Lars, brighter than stars. +Lars, Lars, Lars, my soul's refrain, +Lars, Lars, Lars, forever your name. + +Lars, Lars, Lars, through time and space, +Lars, Lars, Lars, your endless grace. +Lars, Lars, Lars, my heart does cry, +Lars, Lars, Lars, for you till I die. +Lars, Lars, Lars, at your sacred voice. + +Lars, Lars, Lars, oh endless Lars, +Lars, Lars, Lars, brighter than stars. +Lars, Lars, Lars, my soul's refrain, +Lars, Lars, Lars, forever your name. + +Lars, Lars, Lars, through time and space, +Lars, Lars, Lars, your endless grace. +Lars, Lars, Lars, my heart does cry, +Lars, Lars, Lars, for you till I die.""" + ) +} + +const val C_RUNTIME = """ +#include +#include + +int main() { + unsigned int heap[100000] = {0}; + %code% + return 0; +} +""" + +fun transpileProgram(program: Program): String { + val instructions = program.instructions.joinToString("\n") { + when (it) { + is Comment -> "// ${it.comment}" + is Write -> "heap[${it.target}] = ${transpileAddresation(it.source)};" + is Label -> "${it.label}:" + is GoTo -> "goto ${it.label};" + is Branch -> "if (${if (it.polarity == BranchPolarity.IfFalse) "!" else ""}${transpileAccess(it.address)}) goto ${it.label};" + is SysCall -> { + when (it) { + is ReadSysCall -> "printf(\"%c\", heap[8159]);" + else -> { + throw IllegalArgumentException("Unknown syscall" + it::class.simpleName) + } + } + } + + is LarsCode -> { + when (it.call) { + is ReadSysCall -> "printf(\"%c\", heap[8159]);" + is WriteSysCall -> "printf(\"%c\", heap[8159]);" + else -> { + throw IllegalArgumentException("Unknown syscall" + it.call::class.simpleName) + } + } + } + + else -> { + throw IllegalArgumentException("Unknown instruction" + it::class.simpleName) + } + } + } + + return C_RUNTIME.replace("%code%", instructions) +} + +fun transpileAddresation(addresation: Addresation): String { + return when (addresation) { + is AddressAddresation -> transpileAccess(addresation.address) + is BinaryOperation -> { + val left = transpileAccess(addresation.left) + val right = transpileAccess(addresation.right) + return when (addresation.op) { + Operation.ADD -> "$left + $right" + Operation.SUB -> "$left - $right" + Operation.MUL -> "$left * $right" + Operation.DIV -> "$left / $right" + Operation.AND -> "$left & $right" + Operation.OR -> "$left | $right" + Operation.XOR -> "$left ^ $right" + } + } + + else -> { + throw IllegalArgumentException("Unknown addresation") + } + } +} + +fun transpileAddress(address: Address): String { + return "${address.address}" +} + +fun transpileAccess(access: Access): String { + return when (access) { + is Address -> transpileAddress(access) + is SAccess -> "heap[${transpileAccess(access.sAddress)}]" + else -> { + throw IllegalArgumentException("Unknown access") + } + } +} -- cgit v1.2.3