minify.fs

#light

open System.Text.RegularExpressions
let minify js =
    let replace (m:string) (r:string) (s:string) = Regex.Replace(s, m, r)
    js
    |> replace "\n\f" " "
    |> replace "\n" " "
    |> replace "\s{2,}" " "
    |> replace "\{ " "{"
    |> replace "\ }" "}"
    |> replace "\) " ")"
    |> replace " \(" "("
    |> replace " = " "="
    |> replace " \+ " "+"
    |> replace " - " "-"
    |> replace " \* " "*"
    |> replace " / " "/"
    |> replace ", " ","

open System.IO
let openFile (file:string) =
  let sw = new StreamReader(file)
  let it = sw.ReadToEnd()
  sw.Close()
  it

let writeFile (file:string) (the_string:string) =
  let sw = new StreamWriter(file)
  sw.Write(the_string)
  sw.Close()
  ()

[]
let main args =
  openFile args.[0]
  |> minify
  |> writeFile args.[1]
  0