Source

olfend / filepath.ml

Full commit
open Spotlib.Spot

(* filename conventions *)

let parse_path path =
  let base = Filename.basename path in
  let dir = Filename.dirname path in
  let body, ext = Filename.split_extension base in
  dir, body, ext

let ext_source    = ".lam"
let ext_signature = ".sig"
let ext_object    = ".obj"