#include "db_config.h"
#include "db_int.h"
#ifdef HAVE_SYSTEM_INCLUDE_FILES
#include <tcl.h>
#endif
#include "dbinc/tcl_db.h"
int
bdb_RandCommand(interp, objc, objv)
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
{
static const char *rcmds[] = {
"rand", "random_int", "srand",
NULL
};
enum rcmds {
RRAND, RRAND_INT, RSRAND
};
Tcl_Obj *res;
int cmdindex, hi, lo, result, ret;
result = TCL_OK;
if (Tcl_GetIndexFromObj(interp,
objv[1], rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
switch ((enum rcmds)cmdindex) {
case RRAND:
if (objc != 2) {
Tcl_WrongNumArgs(interp, 2, objv, NULL);
return (TCL_ERROR);
}
ret = rand();
res = Tcl_NewIntObj(ret);
break;
case RRAND_INT:
if (objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "lo hi");
return (TCL_ERROR);
}
if ((result =
Tcl_GetIntFromObj(interp, objv[2], &lo)) != TCL_OK)
return (result);
if ((result =
Tcl_GetIntFromObj(interp, objv[3], &hi)) != TCL_OK)
return (result);
if (lo < 0 || hi < 0) {
Tcl_SetResult(interp,
"Range value less than 0", TCL_STATIC);
return (TCL_ERROR);
}
_debug_check();
ret = lo + rand() % ((hi - lo) + 1);
res = Tcl_NewIntObj(ret);
break;
case RSRAND:
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "seed");
return (TCL_ERROR);
}
if ((result =
Tcl_GetIntFromObj(interp, objv[2], &lo)) == TCL_OK) {
srand((u_int)lo);
res = Tcl_NewIntObj(0);
}
break;
}
if (result == TCL_OK && res)
Tcl_SetObjResult(interp, res);
return (result);
}