///|
/// CLI for cross-verification: read binary, compress/decompress, write binary
fn main {
  let args = cli_args()
  if args.length() < 5 {
    println(
      "Usage: verify    
",
    )
    @sys.exit(1)
  }
  let mode = args[1]
  let format = args[2]
  let input_path = args[3]
  let output_path = args[4]
  let input = @fs.read_file_to_bytes(input_path) catch {
    _ => {
      println("Error: failed to read \{input_path}")
      @sys.exit(1)
      return
    }
  }
  let output = try {
    match (mode, format) {
      ("compress", "zlib") => @zlib.zlib_compress(input)
      ("compress", "deflate") => @zlib.deflate_compress(input)
      ("compress", "gzip") => @zlib.gzip_compress_stored(input)
      ("decompress", "zlib") => @zlib.zlib_decompress(input)
      ("decompress", "deflate") => @zlib.deflate_decompress(input)
      ("decompress", "gzip") => @zlib.gzip_decompress(input)
      _ => abort("Unknown mode/format: \{mode} \{format}")
    }
  } catch {
    e => {
      println("Error: \{e}")
      @sys.exit(1)
      return
    }
  }
  @fs.write_bytes_to_file(output_path, output) catch {
    _ => {
      println("Error: failed to write \{output_path}")
      @sys.exit(1)
      return
    }
  }
  println("OK \{input.length()} -> \{output.length()}")
}

///|
#cfg(not(target="js"))
fn cli_args() -> Array[String] {
  @env.args()
}

///|
#cfg(target="js")
fn cli_args() -> Array[String] {
  let args = @env.args()
  // Keep argv[0] as the program name, without Node's executable path.
  if args.is_empty() {
    []
  } else {
    args[1:].to_owned()
  }
}