File: gen.ml

package info (click to toggle)
js-of-ocaml 4.0.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 7,372 kB
  • sloc: ml: 70,468; javascript: 8,238; ansic: 319; makefile: 217; lisp: 23; sh: 6; perl: 4
file content (20 lines) | stat: -rw-r--r-- 421 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
let version = Sys.argv.(1)

let git_version = Sys.argv.(2)

let version =
  let ic = open_in version in
  let version = try input_line ic with End_of_file -> "" in
  close_in ic;
  version

let git_version =
  let ic = open_in git_version in
  let git_version = try input_line ic with End_of_file -> "" in
  close_in ic;
  git_version

let () = Printf.printf {|
let s = "%s"
let git_version = "%s"
|} version git_version