* Copyright (c) 1990, 1993
* The Regents of the University of California. All rights reserved.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid
[] = "@(#)rec_open.c 8.4 (Berkeley) %G%";
#endif /* LIBC_SCCS and not lint */
#define __DBINTERFACE_PRIVATE
__rec_open(fname
, flags
, mode
, openinfo
, dflags
)
const RECNOINFO
*openinfo
;
/* Open the user's file -- if this fails, we're done. */
if (fname
!= NULL
&& (rfd
= open(fname
, flags
, mode
)) < 0)
/* Create a btree in memory (backed by disk). */
if (openinfo
->flags
& ~(R_FIXEDLEN
| R_NOKEY
| R_SNAPSHOT
))
btopeninfo
.cachesize
= openinfo
->cachesize
;
btopeninfo
.maxkeypage
= 0;
btopeninfo
.minkeypage
= 0;
btopeninfo
.psize
= openinfo
->psize
;
btopeninfo
.compare
= NULL
;
btopeninfo
.prefix
= NULL
;
btopeninfo
.lorder
= openinfo
->lorder
;
dbp
= __bt_open(openinfo
->bfname
,
O_RDWR
, S_IRUSR
| S_IWUSR
, &btopeninfo
, dflags
);
dbp
= __bt_open(NULL
, O_RDWR
, S_IRUSR
| S_IWUSR
, NULL
, dflags
);
* Some fields in the tree structure are recno specific. Fill them
* in and make the btree structure look like a recno structure. We
* don't change the bt_ovflsize value, it's close enough and slightly
if (openinfo
->flags
& R_FIXEDLEN
) {
t
->bt_reclen
= openinfo
->reclen
;
t
->bt_bval
= openinfo
->bval
;
* In 4.4BSD stat(2) returns true for ISSOCK on pipes. Until
* then, this is fairly close. Pipes are read-only.
if (lseek(rfd
, (off_t
)0, SEEK_CUR
) == -1 && errno
== ESPIPE
) {
switch (flags
& O_ACCMODE
) {
slow
: if ((t
->bt_rfp
= fdopen(rfd
, "r")) == NULL
)
ISSET(t
, R_FIXLEN
) ? __rec_fpipe
: __rec_vpipe
;
switch (flags
& O_ACCMODE
) {
* Kluge -- we'd like to test to see if the file is too
* big to mmap. Since, we don't know what size or type
* off_t's or size_t's are, what the largest unsigned
* integral type is, or what random insanity the local
* C compiler will perpetrate, doing the comparison in
* a portable way is flatly impossible. Hope that mmap
* fails if the file is too large.
t
->bt_msize
= sb
.st_size
;
if ((t
->bt_smap
= mmap(NULL
, t
->bt_msize
,
PROT_READ
, MAP_PRIVATE
, rfd
,
(off_t
)0)) == (caddr_t
)-1)
t
->bt_emap
= t
->bt_smap
+ sb
.st_size
;
t
->bt_irec
= ISSET(t
, R_FIXLEN
) ?
/* Use the recno routines. */
dbp
->close
= __rec_close
;
/* If the root page was created, reset the flags. */
if ((h
= mpool_get(t
->bt_mp
, P_ROOT
, 0)) == NULL
)
if ((h
->flags
& P_TYPE
) == P_BLEAF
) {
h
->flags
= h
->flags
& ~P_TYPE
| P_RLEAF
;
mpool_put(t
->bt_mp
, h
, MPOOL_DIRTY
);
mpool_put(t
->bt_mp
, h
, 0);
if (openinfo
&& openinfo
->flags
& R_SNAPSHOT
&&
!ISSET(t
, R_EOF
| R_INMEM
) &&
t
->bt_irec(t
, MAX_REC_NUMBER
) == RET_ERROR
)
/* Toss any page pinned across calls. */
if (t
->bt_pinned
!= NULL
) {
mpool_put(t
->bt_mp
, t
->bt_pinned
, 0);
/* In-memory database can't have a file descriptor. */