walker.fs

open System.IO

type Walker(p) =
  let root = new DirectoryInfo(p)
  let root_path = root.FullName

  let link (f:FileInfo) =
    let relative_path = f.FullName.Replace(root_path, "").TrimStart('\\')
    printfn "<p><a href='%s'>%s</a></p>" relative_path f.Name

  let rec walk path =
    let dir = new DirectoryInfo(path)

    dir.GetDirectories() |> Seq.iter (fun d -> walk d.FullName)
    dir.GetFiles()       |> Seq.iter link

  member this.Execute() = walk root_path

  static member Dump path =
    (new Walker(path)).Execute()


Walker.Dump fsi.CommandLineArgs.[1]