#include "db_config.h"
#include "db_int.h"
#ifdef HAVE_SYSTEM_INCLUDE_FILES
#include <tcl.h>
#endif
#include "dbinc/tcl_db.h"
#ifdef CONFIG_TEST
static int mp_Cmd __P((ClientData, Tcl_Interp *, int, Tcl_Obj * CONST*));
static int pg_Cmd __P((ClientData, Tcl_Interp *, int, Tcl_Obj * CONST*));
static int tcl_MpGet __P((Tcl_Interp *, int, Tcl_Obj * CONST*,
DB_MPOOLFILE *, DBTCL_INFO *));
static int tcl_Pg __P((Tcl_Interp *, int, Tcl_Obj * CONST*,
void *, DB_MPOOLFILE *, DBTCL_INFO *));
static int tcl_PgInit __P((Tcl_Interp *, int, Tcl_Obj * CONST*,
void *, DBTCL_INFO *));
static int tcl_PgIsset __P((Tcl_Interp *, int, Tcl_Obj * CONST*,
void *, DBTCL_INFO *));
#endif
void
_MpInfoDelete(interp, mpip)
Tcl_Interp *interp;
DBTCL_INFO *mpip;
{
DBTCL_INFO *nextp, *p;
for (p = LIST_FIRST(&__db_infohead); p != NULL; p = nextp) {
nextp = LIST_NEXT(p, entries);
if (p->i_parent == mpip && p->i_type == I_PG) {
(void)Tcl_DeleteCommand(interp, p->i_name);
_DeleteInfo(p);
}
}
}
#ifdef CONFIG_TEST
int
tcl_MpSync(interp, objc, objv, envp)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
DB_ENV *envp;
{
DB_LSN lsn, *lsnp;
int result, ret;
result = TCL_OK;
lsnp = NULL;
if (objc == 3) {
result = _GetLsn(interp, objv[2], &lsn);
if (result == TCL_ERROR)
return (result);
lsnp = &lsn;
}
else if (objc != 2) {
Tcl_WrongNumArgs(interp, 2, objv, "lsn");
return (TCL_ERROR);
}
_debug_check();
ret = envp->memp_sync(envp, lsnp);
return (_ReturnSetup(interp, ret, DB_RETOK_STD(ret), "memp sync"));
}
int
tcl_MpTrickle(interp, objc, objv, envp)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
DB_ENV *envp;
{
Tcl_Obj *res;
int pages, percent, result, ret;
result = TCL_OK;
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "percent");
return (TCL_ERROR);
}
result = Tcl_GetIntFromObj(interp, objv[2], &percent);
if (result == TCL_ERROR)
return (result);
_debug_check();
ret = envp->memp_trickle(envp, percent, &pages);
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret), "memp trickle");
if (result == TCL_ERROR)
return (result);
res = Tcl_NewIntObj(pages);
Tcl_SetObjResult(interp, res);
return (result);
}
int
tcl_Mp(interp, objc, objv, envp, envip)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
DB_ENV *envp;
DBTCL_INFO *envip;
{
static const char *mpopts[] = {
"-create",
"-mode",
"-multiversion",
"-nommap",
"-pagesize",
"-rdonly",
NULL
};
enum mpopts {
MPCREATE,
MPMODE,
MPMULTIVERSION,
MPNOMMAP,
MPPAGE,
MPRDONLY
};
DBTCL_INFO *ip;
DB_MPOOLFILE *mpf;
Tcl_Obj *res;
u_int32_t flag;
int i, pgsize, mode, optindex, result, ret;
char *file, newname[MSG_SIZE];
result = TCL_OK;
i = 2;
flag = 0;
mode = 0;
pgsize = 0;
memset(newname, 0, MSG_SIZE);
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
mpopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
if (IS_HELP(objv[i]) == TCL_OK)
return (TCL_OK);
Tcl_ResetResult(interp);
break;
}
i++;
switch ((enum mpopts)optindex) {
case MPCREATE:
flag |= DB_CREATE;
break;
case MPMODE:
if (i >= objc) {
Tcl_WrongNumArgs(interp, 2, objv,
"?-mode mode?");
result = TCL_ERROR;
break;
}
result = Tcl_GetIntFromObj(interp, objv[i++], &mode);
break;
case MPMULTIVERSION:
flag |= DB_MULTIVERSION;
break;
case MPNOMMAP:
flag |= DB_NOMMAP;
break;
case MPPAGE:
if (i >= objc) {
Tcl_WrongNumArgs(interp, 2, objv,
"?-pagesize size?");
result = TCL_ERROR;
break;
}
result = Tcl_GetIntFromObj(interp, objv[i++], &pgsize);
break;
case MPRDONLY:
flag |= DB_RDONLY;
break;
}
if (result != TCL_OK)
goto error;
}
file = NULL;
if (i != objc) {
if (i != objc - 1) {
Tcl_WrongNumArgs(interp, 2, objv, "?args? ?file?");
result = TCL_ERROR;
goto error;
}
file = Tcl_GetStringFromObj(objv[i++], NULL);
}
snprintf(newname, sizeof(newname), "%s.mp%d",
envip->i_name, envip->i_envmpid);
ip = _NewInfo(interp, NULL, newname, I_MP);
if (ip == NULL) {
Tcl_SetResult(interp, "Could not set up info",
TCL_STATIC);
return (TCL_ERROR);
}
_debug_check();
if ((ret = envp->memp_fcreate(envp, &mpf, 0)) != 0) {
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret), "mpool");
_DeleteInfo(ip);
goto error;
}
if ((ret = mpf->open(mpf, file, flag, mode, (size_t)pgsize)) != 0) {
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret), "mpool");
_DeleteInfo(ip);
(void)mpf->close(mpf, 0);
goto error;
}
envip->i_envmpid++;
ip->i_parent = envip;
ip->i_pgsz = pgsize;
_SetInfoData(ip, mpf);
(void)Tcl_CreateObjCommand(interp, newname,
(Tcl_ObjCmdProc *)mp_Cmd, (ClientData)mpf, NULL);
res = NewStringObj(newname, strlen(newname));
Tcl_SetObjResult(interp, res);
error:
return (result);
}
int
tcl_MpStat(interp, objc, objv, envp)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
DB_ENV *envp;
{
DB_MPOOL_STAT *sp;
DB_MPOOL_FSTAT **fsp, **savefsp;
int result;
int ret;
Tcl_Obj *res;
Tcl_Obj *res1;
result = TCL_OK;
savefsp = NULL;
if (objc != 2) {
Tcl_WrongNumArgs(interp, 2, objv, NULL);
return (TCL_ERROR);
}
_debug_check();
ret = envp->memp_stat(envp, &sp, &fsp, 0);
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret), "memp stat");
if (result == TCL_ERROR)
return (result);
res = Tcl_NewObj();
#ifdef HAVE_STATISTICS
MAKE_STAT_LIST("Cache size (gbytes)", sp->st_gbytes);
MAKE_STAT_LIST("Cache size (bytes)", sp->st_bytes);
MAKE_STAT_LIST("Number of caches", sp->st_ncache);
MAKE_STAT_LIST("Maximum number of caches", sp->st_max_ncache);
MAKE_STAT_LIST("Region size", sp->st_regsize);
MAKE_STAT_LIST("Maximum memory-mapped file size", sp->st_mmapsize);
MAKE_STAT_LIST("Maximum open file descriptors", sp->st_maxopenfd);
MAKE_STAT_LIST("Maximum sequential buffer writes", sp->st_maxwrite);
MAKE_STAT_LIST(
"Sleep after writing maximum buffers", sp->st_maxwrite_sleep);
MAKE_STAT_LIST("Pages mapped into address space", sp->st_map);
MAKE_STAT_LIST("Cache hits", sp->st_cache_hit);
MAKE_STAT_LIST("Cache misses", sp->st_cache_miss);
MAKE_STAT_LIST("Pages created", sp->st_page_create);
MAKE_STAT_LIST("Pages read in", sp->st_page_in);
MAKE_STAT_LIST("Pages written", sp->st_page_out);
MAKE_STAT_LIST("Clean page evictions", sp->st_ro_evict);
MAKE_STAT_LIST("Dirty page evictions", sp->st_rw_evict);
MAKE_STAT_LIST("Dirty pages trickled", sp->st_page_trickle);
MAKE_STAT_LIST("Cached pages", sp->st_pages);
MAKE_STAT_LIST("Cached clean pages", sp->st_page_clean);
MAKE_STAT_LIST("Cached dirty pages", sp->st_page_dirty);
MAKE_STAT_LIST("Hash buckets", sp->st_hash_buckets);
MAKE_STAT_LIST("Hash lookups", sp->st_hash_searches);
MAKE_STAT_LIST("Longest hash chain found", sp->st_hash_longest);
MAKE_STAT_LIST("Hash elements examined", sp->st_hash_examined);
MAKE_STAT_LIST("Number of hash bucket nowaits", sp->st_hash_nowait);
MAKE_STAT_LIST("Number of hash bucket waits", sp->st_hash_wait);
MAKE_STAT_LIST("Maximum number of hash bucket waits",
sp->st_hash_max_wait);
MAKE_STAT_LIST("Number of region lock nowaits", sp->st_region_nowait);
MAKE_STAT_LIST("Number of region lock waits", sp->st_region_wait);
MAKE_STAT_LIST("Buffers frozen", sp->st_mvcc_frozen);
MAKE_STAT_LIST("Buffers thawed", sp->st_mvcc_thawed);
MAKE_STAT_LIST("Frozen buffers freed", sp->st_mvcc_freed);
MAKE_STAT_LIST("Page allocations", sp->st_alloc);
MAKE_STAT_LIST("Buckets examined during allocation",
sp->st_alloc_buckets);
MAKE_STAT_LIST("Maximum buckets examined during allocation",
sp->st_alloc_max_buckets);
MAKE_STAT_LIST("Pages examined during allocation", sp->st_alloc_pages);
MAKE_STAT_LIST("Maximum pages examined during allocation",
sp->st_alloc_max_pages);
MAKE_STAT_LIST("Threads waiting on buffer I/O", sp->st_io_wait);
res1 = res;
for (savefsp = fsp; fsp != NULL && *fsp != NULL; fsp++) {
res = Tcl_NewObj();
result = _SetListElem(interp, res, "File Name",
strlen("File Name"), (*fsp)->file_name,
strlen((*fsp)->file_name));
if (result != TCL_OK)
goto error;
MAKE_STAT_LIST("Page size", (*fsp)->st_pagesize);
MAKE_STAT_LIST("Pages mapped into address space",
(*fsp)->st_map);
MAKE_STAT_LIST("Cache hits", (*fsp)->st_cache_hit);
MAKE_STAT_LIST("Cache misses", (*fsp)->st_cache_miss);
MAKE_STAT_LIST("Pages created", (*fsp)->st_page_create);
MAKE_STAT_LIST("Pages read in", (*fsp)->st_page_in);
MAKE_STAT_LIST("Pages written", (*fsp)->st_page_out);
result = Tcl_ListObjAppendElement(interp, res1, res);
if (result != TCL_OK)
goto error;
}
#endif
Tcl_SetObjResult(interp, res1);
error:
__os_ufree(envp, sp);
if (savefsp != NULL)
__os_ufree(envp, savefsp);
return (result);
}
static int
mp_Cmd(clientData, interp, objc, objv)
ClientData clientData;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
{
static const char *mpcmds[] = {
"close",
"fsync",
"get",
"get_clear_len",
"get_fileid",
"get_ftype",
"get_lsn_offset",
"get_pgcookie",
NULL
};
enum mpcmds {
MPCLOSE,
MPFSYNC,
MPGET,
MPGETCLEARLEN,
MPGETFILEID,
MPGETFTYPE,
MPGETLSNOFFSET,
MPGETPGCOOKIE
};
DB_MPOOLFILE *mp;
int cmdindex, ftype, length, result, ret;
DBTCL_INFO *mpip;
Tcl_Obj *res;
char *obj_name;
u_int32_t value;
int32_t intval;
u_int8_t fileid[DB_FILE_ID_LEN];
DBT cookie;
Tcl_ResetResult(interp);
mp = (DB_MPOOLFILE *)clientData;
obj_name = Tcl_GetStringFromObj(objv[0], &length);
mpip = _NameToInfo(obj_name);
result = TCL_OK;
if (mp == NULL) {
Tcl_SetResult(interp, "NULL mp pointer", TCL_STATIC);
return (TCL_ERROR);
}
if (mpip == NULL) {
Tcl_SetResult(interp, "NULL mp info pointer", TCL_STATIC);
return (TCL_ERROR);
}
if (Tcl_GetIndexFromObj(interp,
objv[1], mpcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
switch ((enum mpcmds)cmdindex) {
case MPCLOSE:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
_debug_check();
ret = mp->close(mp, 0);
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp close");
_MpInfoDelete(interp, mpip);
(void)Tcl_DeleteCommand(interp, mpip->i_name);
_DeleteInfo(mpip);
break;
case MPFSYNC:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
_debug_check();
ret = mp->sync(mp);
res = Tcl_NewIntObj(ret);
break;
case MPGET:
result = tcl_MpGet(interp, objc, objv, mp, mpip);
break;
case MPGETCLEARLEN:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
ret = mp->get_clear_len(mp, &value);
if ((result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp get_clear_len")) == TCL_OK)
res = Tcl_NewIntObj((int)value);
break;
case MPGETFILEID:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
ret = mp->get_fileid(mp, fileid);
if ((result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp get_fileid")) == TCL_OK)
res = NewStringObj((char *)fileid, DB_FILE_ID_LEN);
break;
case MPGETFTYPE:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
ret = mp->get_ftype(mp, &ftype);
if ((result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp get_ftype")) == TCL_OK)
res = Tcl_NewIntObj(ftype);
break;
case MPGETLSNOFFSET:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
ret = mp->get_lsn_offset(mp, &intval);
if ((result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp get_lsn_offset")) == TCL_OK)
res = Tcl_NewIntObj(intval);
break;
case MPGETPGCOOKIE:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return (TCL_ERROR);
}
memset(&cookie, 0, sizeof(DBT));
ret = mp->get_pgcookie(mp, &cookie);
if ((result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
"mp get_pgcookie")) == TCL_OK)
res = Tcl_NewByteArrayObj((u_char *)cookie.data,
(int)cookie.size);
break;
}
if (result == TCL_OK && res)
Tcl_SetObjResult(interp, res);
return (result);
}
static int
tcl_MpGet(interp, objc, objv, mp, mpip)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
DB_MPOOLFILE *mp;
DBTCL_INFO *mpip;
{
static const char *mpget[] = {
"-create",
"-dirty",
"-last",
"-new",
"-txn",
NULL
};
enum mpget {
MPGET_CREATE,
MPGET_DIRTY,
MPGET_LAST,
MPGET_NEW,
MPGET_TXN
};
DBTCL_INFO *ip;
Tcl_Obj *res;
DB_TXN *txn;
db_pgno_t pgno;
u_int32_t flag;
int i, ipgno, optindex, result, ret;
char *arg, msg[MSG_SIZE], newname[MSG_SIZE];
void *page;
txn = NULL;
result = TCL_OK;
memset(newname, 0, MSG_SIZE);
i = 2;
flag = 0;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
mpget, "option", TCL_EXACT, &optindex) != TCL_OK) {
if (IS_HELP(objv[i]) == TCL_OK)
return (TCL_OK);
Tcl_ResetResult(interp);
break;
}
i++;
switch ((enum mpget)optindex) {
case MPGET_CREATE:
flag |= DB_MPOOL_CREATE;
break;
case MPGET_DIRTY:
flag |= DB_MPOOL_DIRTY;
break;
case MPGET_LAST:
flag |= DB_MPOOL_LAST;
break;
case MPGET_NEW:
flag |= DB_MPOOL_NEW;
break;
case MPGET_TXN:
if (i == objc) {
Tcl_WrongNumArgs(interp, 2, objv, "?-txn id?");
result = TCL_ERROR;
break;
}
arg = Tcl_GetStringFromObj(objv[i++], NULL);
txn = NAME_TO_TXN(arg);
if (txn == NULL) {
snprintf(msg, MSG_SIZE,
"mpool get: Invalid txn: %s\n", arg);
Tcl_SetResult(interp, msg, TCL_VOLATILE);
result = TCL_ERROR;
}
break;
}
if (result != TCL_OK)
goto error;
}
ipgno = 0;
if (i != objc) {
if (i != objc - 1) {
Tcl_WrongNumArgs(interp, 2, objv, "?args? ?pgno?");
result = TCL_ERROR;
goto error;
}
result = Tcl_GetIntFromObj(interp, objv[i++], &ipgno);
if (result != TCL_OK)
goto error;
}
snprintf(newname, sizeof(newname), "%s.pg%d",
mpip->i_name, mpip->i_mppgid);
ip = _NewInfo(interp, NULL, newname, I_PG);
if (ip == NULL) {
Tcl_SetResult(interp, "Could not set up info",
TCL_STATIC);
return (TCL_ERROR);
}
_debug_check();
pgno = (db_pgno_t)ipgno;
ret = mp->get(mp, &pgno, NULL, flag, &page);
result = _ReturnSetup(interp, ret, DB_RETOK_MPGET(ret), "mpool get");
if (result == TCL_ERROR)
_DeleteInfo(ip);
else {
mpip->i_mppgid++;
ip->i_parent = mpip;
ip->i_pgno = pgno;
ip->i_pgsz = mpip->i_pgsz;
_SetInfoData(ip, page);
(void)Tcl_CreateObjCommand(interp, newname,
(Tcl_ObjCmdProc *)pg_Cmd, (ClientData)page, NULL);
res = NewStringObj(newname, strlen(newname));
Tcl_SetObjResult(interp, res);
}
error:
return (result);
}
static int
pg_Cmd(clientData, interp, objc, objv)
ClientData clientData;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
{
static const char *pgcmds[] = {
"init",
"is_setto",
"pgnum",
"pgsize",
"put",
NULL
};
enum pgcmds {
PGINIT,
PGISSET,
PGNUM,
PGSIZE,
PGPUT
};
DB_MPOOLFILE *mp;
int cmdindex, length, result;
char *obj_name;
void *page;
DBTCL_INFO *pgip;
Tcl_Obj *res;
Tcl_ResetResult(interp);
page = (void *)clientData;
obj_name = Tcl_GetStringFromObj(objv[0], &length);
pgip = _NameToInfo(obj_name);
mp = NAME_TO_MP(pgip->i_parent->i_name);
result = TCL_OK;
if (page == NULL) {
Tcl_SetResult(interp, "NULL page pointer", TCL_STATIC);
return (TCL_ERROR);
}
if (mp == NULL) {
Tcl_SetResult(interp, "NULL mp pointer", TCL_STATIC);
return (TCL_ERROR);
}
if (pgip == NULL) {
Tcl_SetResult(interp, "NULL page info pointer", TCL_STATIC);
return (TCL_ERROR);
}
if (Tcl_GetIndexFromObj(interp,
objv[1], pgcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
switch ((enum pgcmds)cmdindex) {
case PGNUM:
res = Tcl_NewWideIntObj((Tcl_WideInt)pgip->i_pgno);
break;
case PGSIZE:
res = Tcl_NewWideIntObj((Tcl_WideInt)pgip->i_pgsz);
break;
case PGPUT:
result = tcl_Pg(interp, objc, objv, page, mp, pgip);
break;
case PGINIT:
result = tcl_PgInit(interp, objc, objv, page, pgip);
break;
case PGISSET:
result = tcl_PgIsset(interp, objc, objv, page, pgip);
break;
}
if (result == TCL_OK && res != NULL)
Tcl_SetObjResult(interp, res);
return (result);
}
static int
tcl_Pg(interp, objc, objv, page, mp, pgip)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
void *page;
DB_MPOOLFILE *mp;
DBTCL_INFO *pgip;
{
static const char *pgopt[] = {
"-discard",
NULL
};
enum pgopt {
PGDISCARD
};
u_int32_t flag;
int i, optindex, result, ret;
result = TCL_OK;
i = 2;
flag = 0;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
pgopt, "option", TCL_EXACT, &optindex) != TCL_OK)
return (IS_HELP(objv[i]));
i++;
switch ((enum pgopt)optindex) {
case PGDISCARD:
flag |= DB_MPOOL_DISCARD;
break;
}
}
_debug_check();
ret = mp->put(mp, page, DB_PRIORITY_UNCHANGED, flag);
result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret), "page");
(void)Tcl_DeleteCommand(interp, pgip->i_name);
_DeleteInfo(pgip);
return (result);
}
static int
tcl_PgInit(interp, objc, objv, page, pgip)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
void *page;
DBTCL_INFO *pgip;
{
Tcl_Obj *res;
long *p, *endp, newval;
int length, pgsz, result;
u_char *s;
result = TCL_OK;
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "val");
return (TCL_ERROR);
}
pgsz = pgip->i_pgsz;
result = Tcl_GetLongFromObj(interp, objv[2], &newval);
if (result != TCL_OK) {
s = Tcl_GetByteArrayFromObj(objv[2], &length);
if (s == NULL)
return (TCL_ERROR);
memcpy(page, s, (size_t)((length < pgsz) ? length : pgsz));
result = TCL_OK;
} else {
p = (long *)page;
for (endp = p + ((u_int)pgsz / sizeof(long)); p < endp; p++)
*p = newval;
}
res = Tcl_NewIntObj(0);
Tcl_SetObjResult(interp, res);
return (result);
}
static int
tcl_PgIsset(interp, objc, objv, page, pgip)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
void *page;
DBTCL_INFO *pgip;
{
Tcl_Obj *res;
long *p, *endp, newval;
int length, pgsz, result;
u_char *s;
result = TCL_OK;
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "val");
return (TCL_ERROR);
}
pgsz = pgip->i_pgsz;
result = Tcl_GetLongFromObj(interp, objv[2], &newval);
if (result != TCL_OK) {
if ((s = Tcl_GetByteArrayFromObj(objv[2], &length)) == NULL)
return (TCL_ERROR);
result = TCL_OK;
if (memcmp(page, s,
(size_t)((length < pgsz) ? length : pgsz)) != 0) {
res = Tcl_NewIntObj(0);
Tcl_SetObjResult(interp, res);
return (result);
}
} else {
p = (long *)page;
for (endp = p + ((u_int)pgsz / sizeof(long)); p < endp; p++)
if (*p != newval) {
res = Tcl_NewIntObj(0);
Tcl_SetObjResult(interp, res);
return (result);
}
}
res = Tcl_NewIntObj(1);
Tcl_SetObjResult(interp, res);
return (result);
}
#endif