/**
\brief Print contents of the RTDB
Prints the contents of the specified RTDB. An additional flag specifies
whether only the keys should be printed, or the keys and their values.
\param handle [Input] the RTDB handle
\param print_values [Input] if TRUE print the keys and the values, otherwise
just print the keys
\return the status of the print operation
*/
int rtdb_print(const int handle, const int print_values)
{
int status;
#ifdef GAGROUPS
int me = GA_Nodeid();
#endif
if (!verify_parallel_access()) return 0;
if (handle < 0 || handle >= MAX_RTDB) {
(void) fprintf(stderr, "rtdb_print: handle out of range %d\n", handle);
(void) fflush(stderr);
return 0;
}
if (par_mode[handle] == INACTIVE) {
(void) fprintf(stderr, "rtdb_print: handle not active %d\n",handle);
(void) fflush(stderr);
return 0;
}
if (par_mode[handle] == RTDB_SEQ_MODE && parallel_mode == RTDB_PAR_MODE) {
(void) fprintf(stderr, "rtdb_print: seq. open and par. print\n");
(void) fflush(stderr);
return 0;
}
if (parallel_mode == RTDB_SEQ_MODE || me == 0)
status = rtdb_seq_print(handle, print_values);
if (parallel_mode == RTDB_PAR_MODE)
rtdb_broadcast(TYPE_RTDB_STATUS, MT_INT, 1, (void *) &status);
return status;
}
static PyObject *wrap_rtdb_print(PyObject *self, PyObject *args)
{
int flag;
// if (!rtdb_seq_print(rtdb_handle, 0))
// PyErr_SetString(NwchemError, "rtdb_print failed");
if (PyArg_ParseTuple(args, "i", &flag)) {
if (!rtdb_seq_print(rtdb_handle, flag))
PyErr_SetString(NwchemError, "rtdb_print failed");
}
else {
PyErr_SetString(PyExc_TypeError, "Usage: rtdb_print(flag)");
return NULL;
}
Py_INCREF(Py_None);
return Py_None;
// Py_RETURN_NONE
}
int main(int argc, char *argv[])
{
int rtdb = -1, ma_type, nelem;
char filename[256], mode[256], name[1024], date[26];
void *data;
char carray[MAX_NELEM+1];
int iarray[MAX_NELEM];
double darray[MAX_NELEM];
#define N_OPTS 9
const char *opts[N_OPTS] = {"quit", "open", "close", "info", "put", "get",
"first", "next", "print"};
if (!MA_init(MT_DBL, -1, -1))
exit(1);
while (1) {
int opt;
printf("\n\n\n Interactive RTDB\n ----------------\n\n");
for (opt=0; opt<N_OPTS; opt++)
printf(" %-8s %3d\n", opts[opt], opt);
printf("\nEnter option number -> "); fflush(stdout);
if (scanf("%d", &opt) != 1)
break;
switch (opt) {
case 0:
exit(0); break;
case 1:
printf("\nOpen database\n-----------\n\n");
printf("Enter filename -> "); fflush(stdout);
if (scanf("%s",filename) != 1)
exit(1);
printf("Enter mode (new, old, unknown, empty, scratch) -> ");
fflush(stdout);
if (scanf("%s",mode) != 1)
exit(1);
if (!rtdb_seq_open(filename, mode, &rtdb))
printf("\nOpen of %s with mode %s failed\n", filename, mode);
break;
case 2:
printf("\nClose database\n-------------\n\n"); fflush(stdout);
if (rtdb < 0)
printf("database is not open\n");
else {
printf("Enter mode (keep, delete) -> "); fflush(stdout);
if (scanf("%s",mode) != 1)
exit(1);
if (!rtdb_seq_close(rtdb, mode))
printf("Close of %s with mode %s failed\n", filename, mode);
else
rtdb = -1;
}
break;
case 3:
printf("\nInformation on entry\n--------------------\n\n");
if (rtdb < 0)
printf("database is not open\n");
else {
printf("Enter name -> "); fflush(stdout);
if (!read_string(name, sizeof name))
exit(1);
if (!rtdb_seq_get_info(rtdb, name, &ma_type, &nelem, date))
printf("Get info on \"%s\" failed\n", name);
else
printf("%s -> type=%s, nelem=%d, date=%s\n",
name, ma_typename(ma_type), nelem, date);
}
break;
case 4:
printf("\nPut entry\n---------\n\n");
if (rtdb < 0)
printf("database is not open\n");
else {
printf("Enter name -> "); fflush(stdout);
if (!read_string(name, sizeof name))
exit(1);
printf("Enter type (int, char, double) -> "); fflush(stdout);
if (scanf("%s", mode) != 1)
exit(1);
if (!strcmp(mode,"int")) {
int i;
if ((nelem = ReadNelem()) <= 0) break;
ma_type = MT_INT;
for (i=0; i<nelem; i++)
if (scanf("%d", iarray+i) != 1)
exit(1);
data = (void *) iarray;
}
else if (!strcmp(mode, "char")) {
int i;
ma_type = MT_CHAR;
if (!read_string(carray, MAX_NELEM)) break;
nelem = strlen(carray) + 1;
data = (void *) carray;
}
else if (!strcmp(mode, "double")) {
int i;
if ((nelem = ReadNelem()) <= 0) break;
ma_type = MT_DBL;
for (i=0; i<nelem; i++)
if (scanf("%lf", darray+i) != 1)
exit(1);
data = (void *) darray;
}
else {
printf("invalid type\n");
break;
}
if(!rtdb_seq_put(rtdb, name, ma_type, nelem, data))
printf("put %s, nelem=%d, type=%s failed", name,
nelem, ma_typename(ma_type)); fflush(stdout);
}
break;
case 5:
printf("\nGet entry\n---------\n\n");
if (rtdb < 0)
printf("database is not open\n");
else {
int ma_handle;
if(rtdb_seq_ma_get(rtdb, name, &ma_type, &nelem, &ma_handle)) {
ma_print(stdout, ma_type, nelem, MA_get_pointer(ma_handle, &data));
MA_free_heap(ma_handle);
}
else
printf("Get of %s failed\n", name);
}
break;
case 8:
printf("\nPrint database\n--------------\n\n");
if (rtdb < 0)
printf("database is not open\n");
else {
int values;
printf("Print values (0=no, 1=yes) -> "); fflush(stdout);
if (scanf("%d", &values) != 1)
exit(1);
rtdb_seq_print(rtdb, values);
}
break;
default:
break;
}
}
return 0;
}
