6502-opcodes/firepower-demo/src/main/scala/com/htmlism/firepower/demo/PrintPrograms.scala

package com.htmlism.firepower.demo

import zio.*

import java.io.IOException

import com.htmlism.rufio.withzio._

object PrintPrograms extends ZIOAppDefault:
  private def writeLine(file: String)(s: String) =
    File(s"data/$file.txt")
      .writeLine(s)

  private val programs =
    List[(String, String)](
      "one-line.txt"        -> "one line",
      "two-lines.txt"       -> (Line.mkString _)
        .apply(List("foo", "bar")),
      "two-paragraphs.txt"  -> (Line.mkString _)
        .compose(Paragraph.mkLines)
        .apply(
          List(
            Paragraph(List("foo", "bar")),
            Paragraph(List("alpha", "bravo"))
          )
        ),
      "annotated-snake.asm" -> (Line.mkString _)
        .compose(Paragraph.mkLines)
        .compose((xs: List[CommentBlock]) => xs.map(CommentBlock.toParagraph))
        .apply(
          List(
            CommentBlock.fromMultiline(asciiArt),
            CommentBlock(List("Change direction: W A S D"))
          )
        )
    )

  lazy val asciiArt =
    """ ___           _        __ ___  __ ___
      |/ __|_ _  __ _| |_____ / /| __|/  \_  )
      |\__ \ ' \/ _` | / / -_) _ \__ \ () / /
      ||___/_||_\__,_|_\_\___\___/___/\__/___|""".stripMargin

  def run: Task[Unit] =
    for {
      // just a traverse in slow motion...
      _ <- programs
             .map { case (f, s) => File(s"data/$f").writeLine(s) }
             .foldLeft[Task[Unit]](ZIO.unit)((acc, z) => acc *> z)
    } yield ()