Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ajout notices. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@881 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-06-12 13:54:53 +00:00
parent 66414a42e8
commit a50bf522b7
3 changed files with 40 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
otherlibs/dbm/dbm.c
View File

@ -1,3 +1,16 @@
/***********************************************************************/
/* */
/* Objective Caml */
/* */
/* Francois Rouaix, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
/* Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
/* $Id$ */
#include <ndbm.h>
#include <mlvalues.h>
#include <alloc.h>
@ -6,7 +19,7 @@
#include <fcntl.h>
/* Quit close to sys_open_flags, but we need RDWR */
/* Quite close to sys_open_flags, but we need RDWR */
static int dbm_open_flags[] = {
O_RDONLY, O_WRONLY, O_RDWR, O_CREAT
};

13
otherlibs/dbm/dbm.ml
View File

@ -1,3 +1,16 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Francois Rouaix, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* *)
(***********************************************************************)
(* $Id$ *)
type t
type open_flag =

13
otherlibs/dbm/dbm.mli
View File

@ -1,3 +1,16 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Francois Rouaix, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(* DBM (NDBM) interface *)
type t