path: root/ccross.sml

fun main [fname] = Cpp.debugPrint fname
  | main _  = printLn "Expected a single argument: file name"

val () = main $ CommandLine.arguments ()