File: gen_exec_path.ml

package info (click to toggle)
ocaml-posix 4.0.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,384 kB
  • sloc: ml: 9,495; ansic: 45; sh: 14; makefile: 5
file content (3 lines) | stat: -rw-r--r-- 74 bytes parent folder | download 
1
2
3
 
let () =
  let path = Sys.argv.(1) in
  print_string (Unix.realpath path)