int
rt_retrieve_binunif(struct rt_db_internal *intern,
struct db_i *dbip,
char *name)
{
register struct directory *dp;
struct rt_binunif_internal *bip;
struct bu_external ext;
struct db5_raw_internal raw;
char *tmp;
/*
*Find the guy we're told to write
*/
if ( (dp = db_lookup( dbip, name, LOOKUP_NOISY)) == DIR_NULL )
return -1;
RT_INIT_DB_INTERNAL(intern);
if ( rt_db_get_internal5( intern, dp, dbip, NULL, &rt_uniresource)
!= ID_BINUNIF || db_get_external( &ext, dp, dbip ) < 0 )
return -1;
if (db5_get_raw_internal_ptr(&raw, ext.ext_buf) == NULL) {
bu_log("%s:%d\n", __FILE__, __LINE__);
bu_free_external( &ext );
return -1;
}
if (db5_type_descrip_from_codes(&tmp, raw.major_type, raw.minor_type))
tmp = 0;
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("get_body() sees type (%d, %d)='%s'\n",
raw.major_type, raw.minor_type, tmp);
if (raw.major_type != DB5_MAJORTYPE_BINARY_UNIF)
return -1;
bip = intern->idb_ptr;
RT_CK_BINUNIF(bip);
if (RT_G_DEBUG & DEBUG_HF)
rt_binunif_dump(bip);
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("cmd_export_body() thinks bip->count=%d\n",
bip->count);
switch (bip -> type) {
case DB5_MINORTYPE_BINU_FLOAT:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... float");
break;
case DB5_MINORTYPE_BINU_DOUBLE:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... double");
break;
case DB5_MINORTYPE_BINU_8BITINT:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 8bitint");
break;
case DB5_MINORTYPE_BINU_8BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 8bituint");
break;
case DB5_MINORTYPE_BINU_16BITINT:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 16bituint");
break;
case DB5_MINORTYPE_BINU_16BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 16bitint");
break;
case DB5_MINORTYPE_BINU_32BITINT:
case DB5_MINORTYPE_BINU_32BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 32bitint");
break;
case DB5_MINORTYPE_BINU_64BITINT:
case DB5_MINORTYPE_BINU_64BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 64bitint");
break;
default:
/* XXX This shouln't happen!! */
bu_log("bip->type switch... default");
break;
}
bu_free_external( &ext );
return 0;
}
int
ged_unhide(struct ged *gedp, int argc, const char *argv[])
{
struct directory *dp;
struct db_i *dbip;
struct bu_external ext;
struct bu_external tmp;
struct db5_raw_internal raw;
int i;
static const char *usage = "object(s)";
GED_CHECK_DATABASE_OPEN(gedp, GED_ERROR);
GED_CHECK_READ_ONLY(gedp, GED_ERROR);
GED_CHECK_ARGC_GT_0(gedp, argc, GED_ERROR);
/* initialize result */
bu_vls_trunc(gedp->ged_result_str, 0);
/* must be wanting help */
if (argc == 1) {
bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
return GED_HELP;
}
dbip = gedp->ged_wdbp->dbip;
if (db_version(dbip) < 5) {
bu_vls_printf(gedp->ged_result_str, "Database was created with a previous release of BRL-CAD.\nSelect \"Tools->Upgrade Database...\" to enable support for this feature.");
return GED_ERROR;
}
for (i = 1; i < argc; i++) {
if ((dp = db_lookup(dbip, argv[i], LOOKUP_NOISY)) == RT_DIR_NULL) {
continue;
}
RT_CK_DIR(dp);
BU_EXTERNAL_INIT(&ext);
if (db_get_external(&ext, dp, dbip) < 0) {
bu_vls_printf(gedp->ged_result_str, "db_get_external failed for %s\n", dp->d_namep);
continue;
}
if (db5_get_raw_internal_ptr(&raw, ext.ext_buf) == NULL) {
bu_vls_printf(gedp->ged_result_str, "db5_get_raw_internal_ptr() failed for %s\n", dp->d_namep);
bu_free_external(&ext);
continue;
}
raw.h_name_hidden = (unsigned char)(0x0);
BU_EXTERNAL_INIT(&tmp);
db5_export_object3(&tmp, DB5HDR_HFLAGS_DLI_APPLICATION_DATA_OBJECT,
dp->d_namep,
raw.h_name_hidden,
&raw.attributes,
&raw.body,
raw.major_type, raw.minor_type,
raw.a_zzz, raw.b_zzz);
bu_free_external(&ext);
if (db_put_external(&tmp, dp, dbip)) {
bu_vls_printf(gedp->ged_result_str, "db_put_external() failed for %s\n", dp->d_namep);
bu_free_external(&tmp);
continue;
}
bu_free_external(&tmp);
dp->d_flags &= (~RT_DIR_HIDDEN);
}
return GED_OK;
}
/*
* C M D _ E X P O R T _ B O D Y ( )
*
* Write an object's body to disk file
*
*/
int
cmd_export_body(ClientData clientData, Tcl_Interp *interp, int argc, char **argv)
{
register struct directory *dp;
int fd;
void *bufp;
size_t nbytes = 0;
long int written;
struct bu_external ext;
struct db5_raw_internal raw;
struct rt_db_internal intern;
struct rt_binunif_internal *bip;
struct bu_vls vls;
#if 0
int status;
#endif
char *tmp;
CHECK_DBI_NULL;
if (argc != 3) {
bu_vls_init(&vls);
bu_vls_printf(&vls, "help %s", argv[0]);
Tcl_Eval(interp, bu_vls_addr(&vls));
bu_vls_free(&vls);
return TCL_ERROR;
}
/*
* Find the guy we're told to write
*/
if ( (dp = db_lookup( dbip, argv[2], LOOKUP_NOISY)) == DIR_NULL ) {
bu_vls_init( &vls );
bu_vls_printf( &vls,
"Cannot find object %s for writing\n", argv[2] );
Tcl_SetResult(interp, bu_vls_addr( &vls ), TCL_VOLATILE );
bu_vls_free( &vls );
mged_print_result( TCL_ERROR );
return TCL_ERROR;
}
RT_INIT_DB_INTERNAL(&intern);
if ( rt_db_get_internal5( &intern, dp, dbip, NULL, &rt_uniresource)
!= ID_BINUNIF
|| db_get_external( &ext, dp, dbip ) < 0 ) {
(void)signal( SIGINT, SIG_IGN );
TCL_READ_ERR_return;
}
if (db5_get_raw_internal_ptr(&raw, ext.ext_buf) == NULL)
{
bu_free_external( &ext );
(void)signal( SIGINT, SIG_IGN );
TCL_READ_ERR_return;
}
/*
* Do the writing
*/
#ifndef _WIN32
if ( (fd = creat( argv[1], S_IRWXU | S_IRGRP | S_IROTH )) == -1 ) {
#else
if ( (fd = creat( argv[1], _S_IREAD | _S_IWRITE )) == -1 ) {
#endif
bu_free_external( &ext );
bu_vls_init( &vls );
bu_vls_printf( &vls,
"Cannot open file %s for writing\n", argv[1] );
Tcl_SetResult(interp, bu_vls_addr( &vls ), TCL_VOLATILE );
bu_vls_free( &vls );
mged_print_result( TCL_ERROR );
return TCL_ERROR;
}
if (db5_type_descrip_from_codes(&tmp, raw.major_type, raw.minor_type))
tmp = 0;
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("cmd_export_body() sees type (%d, %d)='%s'\n",
raw.major_type, raw.minor_type, tmp);
switch (raw.major_type) {
case DB5_MAJORTYPE_BINARY_UNIF:
#if 0
if ( rt_binunif_import5( &intern, &ext, 0, dbip,
&rt_uniresource, raw.minor_type ) ) {
(void)signal( SIGINT, SIG_IGN );
TCL_READ_ERR_return;
}
#endif
bip = (struct rt_binunif_internal *) intern.idb_ptr;
RT_CK_BINUNIF(bip);
rt_binunif_dump(bip);
bufp = (void *) bip->u.uint8;
bu_log("cmd_export_body() thinks bip->count=%d\n", bip->count);
switch (bip -> type) {
case DB5_MINORTYPE_BINU_FLOAT:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... float");
nbytes = (size_t) (bip->count * sizeof(float));
break;
case DB5_MINORTYPE_BINU_DOUBLE:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... double");
nbytes = (size_t) (bip->count * sizeof(double));
break;
case DB5_MINORTYPE_BINU_8BITINT:
case DB5_MINORTYPE_BINU_8BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 8bitint");
nbytes = (size_t) (bip->count);
break;
case DB5_MINORTYPE_BINU_16BITINT:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 16bitint");
nbytes = (size_t) (bip->count * 2);
bu_log("data[0] = %u\n", bip->u.uint16[0]);
break;
case DB5_MINORTYPE_BINU_16BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 16bituint");
nbytes = (size_t) (bip->count * 2);
bu_log("data[0] = %u\n", bip->u.uint16[0]);
break;
case DB5_MINORTYPE_BINU_32BITINT:
case DB5_MINORTYPE_BINU_32BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 32bitint");
nbytes = (size_t) (bip->count * 4);
break;
case DB5_MINORTYPE_BINU_64BITINT:
case DB5_MINORTYPE_BINU_64BITINT_U:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("bip->type switch... 64bitint");
nbytes = (size_t) (bip->count * 8);
break;
default:
/* XXX This shouln't happen!! */
bu_log("bip->type switch... default");
break;
}
break;
default:
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("I'm in the default\n");
bufp = (void *) ext.ext_buf;
nbytes = (size_t) ext.ext_nbytes;
break;
}
if (RT_G_DEBUG & DEBUG_VOL)
bu_log("going to write %ld bytes\n", nbytes);
if ( (written = write(fd, bufp, nbytes) ) != nbytes ) {
perror(argv[1]);
bu_log("%s:%d\n", __FILE__, __LINE__);
bu_free_external( &ext );
bu_vls_init( &vls );
bu_vls_printf( &vls,
"Incomplete write of object %s to file %s, got %ld, s/b=%ld\n",
argv[2], argv[1], written, nbytes );
Tcl_SetResult(interp, bu_vls_addr( &vls ), TCL_VOLATILE );
bu_vls_free( &vls );
mged_print_result( TCL_ERROR );
return TCL_ERROR;
}
bu_free_external( &ext );
return TCL_OK;
}
