6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2024-05-28 21:41:31 +00:00
Code Issues Projects Releases Wiki Activity

with comment

Browse Source
This commit is contained in:
Mark Canlas 2022-12-04 17:23:42 -05:00
parent c9ac5ee14b
commit 54ffb91104
3 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
data/annotated-snake.asm
View File

@ -6,3 +6,4 @@
; Change direction: W A S D
labeled:
; This is a subroutine description

1
firepower-demo/src/main/scala/com/htmlism/firepower/demo/PrintPrograms.scala
View File

@ -54,6 +54,7 @@ object PrintPrograms extends ZIOAppDefault:
),
NamedCodeBlock(
"labeled",
"This is a subroutine description".some,
List(
AsmBlock.Intent(
None,

22
firepower-demo/src/main/scala/com/htmlism/firepower/demo/asm/AsmBlock.scala
View File

@ -6,24 +6,34 @@ sealed trait AsmBlock
case class CommentBlock(xs: List[String]) extends AsmBlock
case class NamedCodeBlock(name: String, intents: List[AsmBlock.Intent]) extends AsmBlock
case class NamedCodeBlock(name: String, comment: Option[String], intents: List[AsmBlock.Intent]) extends AsmBlock
case class AnonymousCodeBlock(intents: List[AsmBlock.Intent]) extends AsmBlock
object AsmBlock:
def toComment(s: String): String =
"; " + s
def withIndent(s: String): String =
" " + s
def toParagraphs(xs: AsmBlock): List[Paragraph] =
xs match
case CommentBlock(ys) =>
List(
Paragraph(ys.map("; " + _))
Paragraph(ys.map(toComment))
)
case NamedCodeBlock(label, _) =>
List(
case NamedCodeBlock(label, oComment, _) =>
val headerParagraph =
Paragraph(
List(label + ":")
List(label + ":") ++ oComment.map(toComment).map(withIndent).toList
)
)
val intentParagraphs =
Nil
headerParagraph :: intentParagraphs
case AnonymousCodeBlock(_) =>
Nil