Éviction des alertes des séquences: ajout de fonctions rendant unit.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2173 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
4508b80100
commit
a985aa1551
|
@ -5,7 +5,7 @@
|
|||
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
||||
(* *)
|
||||
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
||||
(* Automatique. Distributed only by permission. *)
|
||||
(* en Automatique. Distributed only by permission. *)
|
||||
(* *)
|
||||
(***********************************************************************)
|
||||
|
||||
|
@ -21,6 +21,9 @@ let command cmdline =
|
|||
end;
|
||||
Sys.command cmdline
|
||||
|
||||
let run_command cmdline =
|
||||
let _ = command cmdline in ()
|
||||
|
||||
let compile_file name =
|
||||
command
|
||||
(Printf.sprintf
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
||||
(* *)
|
||||
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
||||
(* Automatique. Distributed only by permission. *)
|
||||
(* en Automatique. Distributed only by permission. *)
|
||||
(* *)
|
||||
(***********************************************************************)
|
||||
|
||||
|
@ -14,5 +14,6 @@
|
|||
(* Compiling C files and building C libraries *)
|
||||
|
||||
val command: string -> int
|
||||
val run_command: string -> unit
|
||||
val compile_file: string -> int
|
||||
val create_archive: string -> string list -> int
|
||||
|
|
Loading…
Reference in New Issue