#include "db_config.h"
#include "db_int.h"
int
__os_openhandle(env, name, flags, mode, fhpp)
ENV *env;
const char *name;
int flags, mode;
DB_FH **fhpp;
{
DB_FH *fhp;
u_int nrepeat, retries;
int fcntl_flags, ret;
#ifdef HAVE_VXWORKS
int newflags;
#endif
if ((ret = __os_calloc(env, 1, sizeof(DB_FH), &fhp)) != 0)
return (ret);
if ((ret = __os_strdup(env, name, &fhp->name)) != 0)
goto err;
if (env != NULL) {
MUTEX_LOCK(env, env->mtx_env);
TAILQ_INSERT_TAIL(&env->fdlist, fhp, q);
MUTEX_UNLOCK(env, env->mtx_env);
F_SET(fhp, DB_FH_ENVLINK);
}
if (DB_GLOBAL(j_open) != NULL) {
if ((fhp->fd = DB_GLOBAL(j_open)(name, flags, mode)) == -1) {
ret = __os_posix_err(__os_get_syserr());
goto err;
}
goto done;
}
retries = 0;
for (nrepeat = 1; nrepeat < 4; ++nrepeat) {
ret = 0;
#ifdef HAVE_VXWORKS
if (LF_ISSET(O_CREAT)) {
DB_BEGIN_SINGLE_THREAD;
newflags = flags & ~(O_CREAT | O_EXCL);
if ((fhp->fd = open(name, newflags, mode)) != -1) {
F_SET(fhp, DB_FH_OPENED);
if (LF_ISSET(O_EXCL)) {
DB_END_SINGLE_THREAD;
ret = EEXIST;
goto err;
}
} else
fhp->fd = creat(name, newflags);
DB_END_SINGLE_THREAD;
} else
#endif
#ifdef __VMS
fhp->fd = open(name, flags, mode, "shr=get,put,upd,del,upi");
#else
fhp->fd = open(name, flags, mode);
#endif
if (fhp->fd != -1) {
ret = 0;
break;
}
switch (ret = __os_posix_err(__os_get_syserr())) {
case EMFILE:
case ENFILE:
case ENOSPC:
__os_yield(env, nrepeat * 2, 0);
break;
case EAGAIN:
case EBUSY:
case EINTR:
if (++retries < DB_RETRY)
--nrepeat;
break;
default:
goto err;
}
}
if (ret == 0) {
#if defined(HAVE_FCNTL_F_SETFD)
if ((fcntl_flags = fcntl(fhp->fd, F_GETFD)) == -1 ||
fcntl(fhp->fd, F_SETFD, fcntl_flags | FD_CLOEXEC) == -1) {
ret = __os_get_syserr();
__db_syserr(env, ret, "fcntl(F_SETFD)");
ret = __os_posix_err(ret);
goto err;
}
#else
COMPQUIET(fcntl_flags, 0);
#endif
done: F_SET(fhp, DB_FH_OPENED);
*fhpp = fhp;
return (0);
}
err: (void)__os_closehandle(env, fhp);
return (ret);
}
int
__os_closehandle(env, fhp)
ENV *env;
DB_FH *fhp;
{
DB_ENV *dbenv;
int ret;
ret = 0;
DB_ASSERT(env, env != NULL || !F_ISSET(fhp, DB_FH_ENVLINK));
if (env != NULL) {
dbenv = env->dbenv;
if (fhp->name != NULL && FLD_ISSET(
dbenv->verbose, DB_VERB_FILEOPS | DB_VERB_FILEOPS_ALL))
__db_msg(env, "fileops: close %s", fhp->name);
if (F_ISSET(fhp, DB_FH_ENVLINK)) {
MUTEX_LOCK(env, env->mtx_env);
TAILQ_REMOVE(&env->fdlist, fhp, q);
MUTEX_UNLOCK(env, env->mtx_env);
}
}
if (F_ISSET(fhp, DB_FH_OPENED)) {
if (DB_GLOBAL(j_close) != NULL)
ret = DB_GLOBAL(j_close)(fhp->fd);
else
RETRY_CHK((close(fhp->fd)), ret);
if (ret != 0) {
__db_syserr(env, ret, "close");
ret = __os_posix_err(ret);
}
}
if (F_ISSET(fhp, DB_FH_UNLINK))
(void)__os_unlink(env, fhp->name, 0);
if (fhp->name != NULL)
__os_free(env, fhp->name);
__os_free(env, fhp);
return (ret);
}