# main.roc
# The entry-point of the mini-Oberon compiler
# This code is released to the public domain.
# "Share and enjoy....."  :)


app "mini-oberon" provides [main] to "./platform"

import Lexer exposing [lex]
import Parser exposing [parse]
import Semantic exposing [semanticAnalyze]
import Ir exposing [generateIr]
import Optimiser exposing [optimizeIr]
import Codegen exposing [generateAssembly]
import Cli exposing [getArg]

main =
    when getArg 1 is
        Ok -> filePath =
            readFile filePath
                |> Result.andThen compile
                |> case of
                    Ok assembly =>
                        Debug.log "Generated Assembly" assembly
                    Err msg =>
                        Debug.log "Compilation Error" msg
        Err _ =>
            Debug.log "Usage: mini-oberon <source-file>"

readFile : Str -> Result Str Str
readFile filePath =
    File.read filePath

compile : Str -> Result Str Str
compile source =
    lex source
        |> Result.andThen parse
        |> Result.andThen semanticAnalyze
        |> Result.andThen generateIr
        |> Result.map optimizeIr
        |> Result.map generateAssembly

andy@obsidian:~/mini-Oberon$ roc build

The current directory (/home/andy/mini-Oberon) does not contain a main.roc file to use as a default.

You can run `roc help` for more information on how to provide a .roc file.

andy@obsidian:~/mini-Oberon$ cd src
andy@obsidian:~/mini-Oberon/src$ ls
codegen  ir  lexer  main.roc  old_main.roc  optimiser  parser  semantic
andy@obsidian:~/mini-Oberon/src$ roc build
── UNKNOWN OPERATOR in main.roc ────────────────────────────────────────────────

This looks like an operator, but it's not one I recognize!

21│          Ok -> filePath =
                            ^
I have no specific suggestion for this operator, see
https://www.roc-lang.org/tutorial#operator-desugaring-table for the
full list of operators in Roc.andy@obsidian:~/mini-Oberon/src$