/*-
* See the file LICENSE for redistribution information.
*
* Copyright (c) 1996-2004
* Sleepycat Software. All rights reserved.
*
* $Id: mp_method.c,v 1.1.1.1 2005/06/24 22:42:42 ca Exp $
*/
#include "db_config.h"
#ifndef NO_SYSTEM_INCLUDES
#include <sys/types.h>
#ifdef HAVE_RPC
#include <rpc/rpc.h>
#endif
#include <string.h>
#endif
#ifdef HAVE_RPC
#include "db_server.h"
#endif
#include "db_int.h"
#include "dbinc/db_shash.h"
#include "dbinc/mp.h"
#ifdef HAVE_RPC
#include "dbinc_auto/rpc_client_ext.h"
#endif
static int __memp_get_mp_max_openfd __P((DB_ENV *, int *));
static int __memp_get_mp_max_write __P((DB_ENV *, int *, int *));
static int __memp_get_mp_mmapsize __P((DB_ENV *, size_t *));
/*
* __memp_dbenv_create --
* Mpool specific creation of the DB_ENV structure.
*
* PUBLIC: void __memp_dbenv_create __P((DB_ENV *));
*/
void
__memp_dbenv_create(dbenv)
DB_ENV *dbenv;
{
/*
* !!!
* Our caller has not yet had the opportunity to reset the panic
* state or turn off mutex locking, and so we can neither check
* the panic state or acquire a mutex in the DB_ENV create path.
*
* We default to 32 8K pages. We don't default to a flat 256K, because
* some systems require significantly more memory to hold 32 pages than
* others. For example, HP-UX with POSIX pthreads needs 88 bytes for
* a POSIX pthread mutex and almost 200 bytes per buffer header, while
* Solaris needs 24 and 52 bytes for the same structures. The minimum
* number of hash buckets is 37. These contain a mutex also.
*/
dbenv->mp_bytes =
32 * ((8 * 1024) + sizeof(BH)) + 37 * sizeof(DB_MPOOL_HASH);
dbenv->mp_ncache = 1;
#ifdef HAVE_RPC
if (F_ISSET(dbenv, DB_ENV_RPCCLIENT)) {
dbenv->get_cachesize = __dbcl_env_get_cachesize;
dbenv->set_cachesize = __dbcl_env_cachesize;
dbenv->get_mp_max_openfd = __dbcl_get_mp_max_openfd;
dbenv->set_mp_max_openfd = __dbcl_set_mp_max_openfd;
dbenv->get_mp_max_write = __dbcl_get_mp_max_write;
dbenv->set_mp_max_write = __dbcl_set_mp_max_write;
dbenv->get_mp_mmapsize = __dbcl_get_mp_mmapsize;
dbenv->set_mp_mmapsize = __dbcl_set_mp_mmapsize;
dbenv->memp_register = __dbcl_memp_register;
dbenv->memp_stat = __dbcl_memp_stat;
dbenv->memp_stat_print = NULL;
dbenv->memp_sync = __dbcl_memp_sync;
dbenv->memp_trickle = __dbcl_memp_trickle;
} else
#endif
{
dbenv->get_cachesize = __memp_get_cachesize;
dbenv->set_cachesize = __memp_set_cachesize;
dbenv->get_mp_max_openfd = __memp_get_mp_max_openfd;
dbenv->set_mp_max_openfd = __memp_set_mp_max_openfd;
dbenv->get_mp_max_write = __memp_get_mp_max_write;
dbenv->set_mp_max_write = __memp_set_mp_max_write;
dbenv->get_mp_mmapsize = __memp_get_mp_mmapsize;
dbenv->set_mp_mmapsize = __memp_set_mp_mmapsize;
dbenv->memp_register = __memp_register_pp;
dbenv->memp_stat = __memp_stat_pp;
dbenv->memp_stat_print = __memp_stat_print_pp;
dbenv->memp_sync = __memp_sync_pp;
dbenv->memp_trickle = __memp_trickle_pp;
}
dbenv->memp_fcreate = __memp_fcreate_pp;
}
/*
* __memp_get_cachesize --
* {DB_ENV,DB}->get_cachesize.
*
* PUBLIC: int __memp_get_cachesize
* PUBLIC: __P((DB_ENV *, u_int32_t *, u_int32_t *, int *));
*/
int
__memp_get_cachesize(dbenv, gbytesp, bytesp, ncachep)
DB_ENV *dbenv;
u_int32_t *gbytesp, *bytesp;
int *ncachep;
{
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_cachesize", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
/* Cannot be set after open, no lock required to read. */
mp = ((DB_MPOOL *)dbenv->mp_handle)->reginfo[0].primary;
if (gbytesp != NULL)
*gbytesp = mp->stat.st_gbytes;
if (bytesp != NULL)
*bytesp = mp->stat.st_bytes;
if (ncachep != NULL)
*ncachep = (int)mp->nreg;
} else {
if (gbytesp != NULL)
*gbytesp = dbenv->mp_gbytes;
if (bytesp != NULL)
*bytesp = dbenv->mp_bytes;
if (ncachep != NULL)
*ncachep = (int)dbenv->mp_ncache;
}
return (0);
}
/*
* __memp_set_cachesize --
* {DB_ENV,DB}->set_cachesize.
*
* PUBLIC: int __memp_set_cachesize __P((DB_ENV *, u_int32_t, u_int32_t, int));
*/
int
__memp_set_cachesize(dbenv, gbytes, bytes, arg_ncache)
DB_ENV *dbenv;
u_int32_t gbytes, bytes;
int arg_ncache;
{
u_int ncache;
ENV_ILLEGAL_AFTER_OPEN(dbenv, "DB_ENV->set_cachesize");
/* Normalize the cache count. */
ncache = arg_ncache <= 0 ? 1 : (u_int)arg_ncache;
/*
* You can only store 4GB-1 in an unsigned 32-bit value, so correct for
* applications that specify 4GB cache sizes -- we know what they meant.
*/
if (gbytes / ncache == 4 && bytes == 0) {
--gbytes;
bytes = GIGABYTE - 1;
} else {
gbytes += bytes / GIGABYTE;
bytes %= GIGABYTE;
}
/* Avoid too-large cache sizes, they result in a region size of zero. */
if (gbytes / ncache > 4 || (gbytes / ncache == 4 && bytes != 0)) {
__db_err(dbenv, "individual cache size too large");
return (EINVAL);
}
/*
* If the application requested less than 500Mb, increase the cachesize
* by 25% and factor in the size of the hash buckets to account for our
* overhead. (I'm guessing caches over 500Mb are specifically sized,
* that is, it's a large server and the application actually knows how
* much memory is available. We only document the 25% overhead number,
* not the hash buckets, but I don't see a reason to confuse the issue,
* it shouldn't matter to an application.)
*
* There is a minimum cache size, regardless.
*/
if (gbytes == 0) {
if (bytes < 500 * MEGABYTE)
bytes += (bytes / 4) + 37 * sizeof(DB_MPOOL_HASH);
if (bytes / ncache < DB_CACHESIZE_MIN)
bytes = ncache * DB_CACHESIZE_MIN;
}
dbenv->mp_gbytes = gbytes;
dbenv->mp_bytes = bytes;
dbenv->mp_ncache = ncache;
return (0);
}
static int
__memp_get_mp_max_openfd(dbenv, maxopenfdp)
DB_ENV *dbenv;
int *maxopenfdp;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_mp_max_openfd", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
*maxopenfdp = mp->mp_maxopenfd;
R_UNLOCK(dbenv, dbmp->reginfo);
} else
*maxopenfdp = dbenv->mp_maxopenfd;
return (0);
}
/*
* __memp_set_mp_max_openfd --
* Set the maximum number of open fd's when flushing the cache.
* PUBLIC: int __memp_set_mp_max_openfd __P((DB_ENV *, int));
*/
int
__memp_set_mp_max_openfd(dbenv, maxopenfd)
DB_ENV *dbenv;
int maxopenfd;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->set_mp_max_openfd", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
mp->mp_maxopenfd = maxopenfd;
R_UNLOCK(dbenv, dbmp->reginfo);
} else
dbenv->mp_maxopenfd = maxopenfd;
return (0);
}
static int
__memp_get_mp_max_write(dbenv, maxwritep, maxwrite_sleepp)
DB_ENV *dbenv;
int *maxwritep, *maxwrite_sleepp;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_mp_max_openfd", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
*maxwritep = mp->mp_maxwrite;
*maxwrite_sleepp = mp->mp_maxwrite_sleep;
R_UNLOCK(dbenv, dbmp->reginfo);
} else {
*maxwritep = dbenv->mp_maxwrite;
*maxwrite_sleepp = dbenv->mp_maxwrite_sleep;
}
return (0);
}
/*
* __memp_set_mp_max_write --
* Set the maximum continuous I/O count.
*
* PUBLIC: int __memp_set_mp_max_write __P((DB_ENV *, int, int));
*/
int
__memp_set_mp_max_write(dbenv, maxwrite, maxwrite_sleep)
DB_ENV *dbenv;
int maxwrite, maxwrite_sleep;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_mp_max_openfd", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
mp->mp_maxwrite = maxwrite;
mp->mp_maxwrite_sleep = maxwrite_sleep;
R_UNLOCK(dbenv, dbmp->reginfo);
} else {
dbenv->mp_maxwrite = maxwrite;
dbenv->mp_maxwrite_sleep = maxwrite_sleep;
}
return (0);
}
static int
__memp_get_mp_mmapsize(dbenv, mp_mmapsizep)
DB_ENV *dbenv;
size_t *mp_mmapsizep;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_mp_max_mmapsize", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
*mp_mmapsizep = mp->mp_mmapsize;
R_UNLOCK(dbenv, dbmp->reginfo);
} else
*mp_mmapsizep = dbenv->mp_mmapsize;
return (0);
}
/*
* __memp_set_mp_mmapsize --
* DB_ENV->set_mp_mmapsize.
*
* PUBLIC: int __memp_set_mp_mmapsize __P((DB_ENV *, size_t));
*/
int
__memp_set_mp_mmapsize(dbenv, mp_mmapsize)
DB_ENV *dbenv;
size_t mp_mmapsize;
{
DB_MPOOL *dbmp;
MPOOL *mp;
ENV_NOT_CONFIGURED(dbenv,
dbenv->mp_handle, "DB_ENV->get_mp_max_mmapsize", DB_INIT_MPOOL);
if (MPOOL_ON(dbenv)) {
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
mp->mp_mmapsize = mp_mmapsize;
R_UNLOCK(dbenv, dbmp->reginfo);
} else
dbenv->mp_mmapsize = mp_mmapsize;
return (0);
}
/*
* __memp_nameop
* Remove or rename a file in the pool.
*
* PUBLIC: int __memp_nameop __P((DB_ENV *,
* PUBLIC: u_int8_t *, const char *, const char *, const char *));
*
* XXX
* Undocumented interface: DB private.
*/
int
__memp_nameop(dbenv, fileid, newname, fullold, fullnew)
DB_ENV *dbenv;
u_int8_t *fileid;
const char *newname, *fullold, *fullnew;
{
DB_MPOOL *dbmp;
MPOOL *mp;
MPOOLFILE *mfp;
roff_t newname_off;
int locked, ret;
void *p;
/* We get passed either a two names, or two NULLs. */
DB_ASSERT(
(newname == NULL && fullnew == NULL) ||
(newname != NULL && fullnew != NULL));
locked = 0;
dbmp = NULL;
if (!MPOOL_ON(dbenv))
goto fsop;
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
/*
* Remove or rename a file that the mpool might know about. We assume
* that the fop layer has the file locked for exclusive access, so we
* don't worry about locking except for the mpool mutexes. Checkpoint
* can happen at any time, independent of file locking, so we have to
* do the actual unlink or rename system call to avoid any race.
*
* If this is a rename, allocate first, because we can't recursively
* grab the region lock.
*/
if (newname == NULL) {
p = NULL;
COMPQUIET(newname_off, INVALID_ROFF);
} else {
if ((ret = __memp_alloc(dbmp, dbmp->reginfo,
NULL, strlen(newname) + 1, &newname_off, &p)) != 0)
return (ret);
memcpy(p, newname, strlen(newname) + 1);
}
locked = 1;
R_LOCK(dbenv, dbmp->reginfo);
/*
* Find the file -- if mpool doesn't know about this file, that's not
* an error -- we may not have it open.
*/
for (mfp = SH_TAILQ_FIRST(&mp->mpfq, __mpoolfile);
mfp != NULL; mfp = SH_TAILQ_NEXT(mfp, q, __mpoolfile)) {
/* Ignore non-active files. */
if (mfp->deadfile || F_ISSET(mfp, MP_TEMP))
continue;
/* Ignore non-matching files. */
if (memcmp(fileid, R_ADDR(
dbmp->reginfo, mfp->fileid_off), DB_FILE_ID_LEN) != 0)
continue;
/* If newname is NULL, we're removing the file. */
if (newname == NULL) {
MUTEX_LOCK(dbenv, &mfp->mutex);
mfp->deadfile = 1;
MUTEX_UNLOCK(dbenv, &mfp->mutex);
} else {
/*
* Else, it's a rename. We've allocated memory
* for the new name. Swap it with the old one.
*/
p = R_ADDR(dbmp->reginfo, mfp->path_off);
mfp->path_off = newname_off;
}
break;
}
/* Delete the memory we no longer need. */
if (p != NULL)
__db_shalloc_free(&dbmp->reginfo[0], p);
fsop: if (newname == NULL) {
/*
* !!!
* Replication may ask us to unlink a file that's been
* renamed. Don't complain if it doesn't exist.
*/
if ((ret = __os_unlink(dbenv, fullold)) == ENOENT)
ret = 0;
} else {
/* Defensive only, fullname should never be NULL. */
DB_ASSERT(fullnew != NULL);
if (fullnew == NULL)
return (EINVAL);
ret = __os_rename(dbenv, fullold, fullnew, 1);
}
if (locked)
R_UNLOCK(dbenv, dbmp->reginfo);
return (ret);
}
/*
* __memp_get_refcnt
* Return a reference count, given a fileid.
*
* PUBLIC: int __memp_get_refcnt __P((DB_ENV *, u_int8_t *, u_int32_t *));
*/
int
__memp_get_refcnt(dbenv, fileid, refp)
DB_ENV *dbenv;
u_int8_t *fileid;
u_int32_t *refp;
{
DB_MPOOL *dbmp;
MPOOL *mp;
MPOOLFILE *mfp;
*refp = 0;
if (!MPOOL_ON(dbenv))
return (0);
dbmp = dbenv->mp_handle;
mp = dbmp->reginfo[0].primary;
R_LOCK(dbenv, dbmp->reginfo);
/*
* Find the file -- if mpool doesn't know about this file, the
* reference count is 0.
*/
for (mfp = SH_TAILQ_FIRST(&mp->mpfq, __mpoolfile);
mfp != NULL; mfp = SH_TAILQ_NEXT(mfp, q, __mpoolfile)) {
/* Ignore non-active files. */
if (mfp->deadfile || F_ISSET(mfp, MP_TEMP))
continue;
/* Ignore non-matching files. */
if (memcmp(fileid, R_ADDR(
dbmp->reginfo, mfp->fileid_off), DB_FILE_ID_LEN) != 0)
continue;
*refp = mfp->mpf_cnt;
break;
}
R_UNLOCK(dbenv, dbmp->reginfo);
return (0);
}
/*
* __memp_ftruncate __
* Truncate the file.
*
* PUBLIC: int __memp_ftruncate __P((DB_MPOOLFILE *, db_pgno_t, u_int32_t));
*/
int
__memp_ftruncate(dbmfp, pgno, flags)
DB_MPOOLFILE *dbmfp;
db_pgno_t pgno;
u_int32_t flags;
{
DB_ENV *dbenv;
DB_MPOOL *dbmp;
void *pagep;
db_pgno_t last_pgno, pg;
int ret;
COMPQUIET(flags, 0);
dbenv = dbmfp->dbenv;
dbmp = dbenv->mp_handle;
R_LOCK(dbenv, dbmp->reginfo);
last_pgno = dbmfp->mfp->last_pgno;
R_UNLOCK(dbenv, dbmp->reginfo);
if (pgno > last_pgno) {
__db_err(dbenv, "Truncate beyond the end of file");
return (EINVAL);
}
pg = pgno;
do {
if ((ret =
__memp_fget(dbmfp, &pg, DB_MPOOL_FREE, &pagep)) != 0)
return (ret);
} while (pg++ < last_pgno);
if (!F_ISSET(dbmfp->mfp, MP_TEMP) &&
(ret = __os_truncate(dbenv,
dbmfp->fhp, pgno, dbmfp->mfp->stat.st_pagesize)) != 0)
return (ret);
R_LOCK(dbenv, dbmp->reginfo);
dbmfp->mfp->last_pgno = pgno - 1;
R_UNLOCK(dbenv, dbmp->reginfo);
return (ret);
}
syntax highlighted by Code2HTML, v. 0.9.1