É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-0dff7051ff02
master
Pierre Weis 1998-11-12 14:54:12 +00:00
parent 4508b80100
commit a985aa1551
2 changed files with 6 additions and 2 deletions

View File

@ -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

View File

@ -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