File: test2.ml

package info (click to toggle)
ocaml 5.4.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 44,372 kB
  • sloc: ml: 370,196; ansic: 52,820; sh: 27,396; asm: 5,462; makefile: 3,679; python: 974; awk: 278; javascript: 273; perl: 59; fortran: 21; cs: 9
file content (22 lines) | stat: -rw-r--r-- 475 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
(* TEST
 readonly_files = "puts.c";
 use_runtime = "false";
 unset FOO;
 include unix;
 hasunix;
 setup-ocamlc.byte-build-env;
 flags = "-w -a -output-complete-exe puts.c -ccopt -I${ocamlsrcdir}/runtime";
 program = "test2";
 ocamlc.byte;
 program = "./test2";
 run;
 check-program-output;
*)

external puts: string -> unit = "caml_puts"

let _ = at_exit (fun () -> print_endline "Program terminated")

let () =
  Unix.putenv "FOO" "Hello OCaml!";
  puts (Unix.getenv "FOO")