int
rt_mk_binunif(struct rt_wdb *wdbp, const char *obj_name, const char *file_name, unsigned int minor_type, size_t max_count)
{
int ret;
struct stat st;
size_t num_items = 0;
size_t obj_length = 0;
size_t item_length = 0;
unsigned int major_type = DB5_MAJORTYPE_BINARY_UNIF;
struct directory *dp = NULL;
struct bu_mapped_file *bu_fd = NULL;
struct rt_binunif_internal *bip = NULL;
struct bu_external body;
struct bu_external bin_ext;
struct rt_db_internal intern;
item_length = db5_type_sizeof_h_binu(minor_type);
if (item_length == 0) {
bu_log("Unrecognized minor type (%d)!\n", minor_type);
return -1;
}
if (bu_stat(file_name, &st)) {
bu_log("Cannot stat input file (%s)", file_name);
return -1;
}
bu_fd = bu_open_mapped_file(file_name, NULL);
if (bu_fd == NULL) {
bu_log("Cannot open input file (%s) for reading", file_name);
return -1;
}
/* create the rt_binunif internal form */
BU_ALLOC(bip, struct rt_binunif_internal);
bip->magic = RT_BINUNIF_INTERNAL_MAGIC;
bip->type = minor_type;
num_items = (size_t)(st.st_size / item_length);
/* maybe only a partial file read */
if (max_count > 0 && max_count < num_items) {
num_items = max_count;
}
obj_length = num_items * item_length;
if (obj_length < 1) {
obj_length = 1;
}
/* just copy the bytes */
bip->count = (long)num_items;
bip->u.int8 = (char *)bu_malloc(obj_length, "binary uniform object");
memcpy(bip->u.int8, bu_fd->buf, obj_length);
bu_close_mapped_file(bu_fd);
/* create the rt_internal form */
RT_DB_INTERNAL_INIT(&intern);
intern.idb_major_type = major_type;
intern.idb_minor_type = minor_type;
intern.idb_ptr = (genptr_t)bip;
intern.idb_meth = &rt_functab[ID_BINUNIF];
/* create body portion of external form */
ret = -1;
if (intern.idb_meth->ft_export5) {
ret = intern.idb_meth->ft_export5(&body, &intern, 1.0, wdbp->dbip, wdbp->wdb_resp);
}
if (ret != 0) {
bu_log("Error while attempting to export %s\n", obj_name);
rt_db_free_internal(&intern);
return -1;
}
/* create entire external form */
db5_export_object3(&bin_ext, DB5HDR_HFLAGS_DLI_APPLICATION_DATA_OBJECT,
obj_name, 0, NULL, &body,
intern.idb_major_type, intern.idb_minor_type,
DB5_ZZZ_UNCOMPRESSED, DB5_ZZZ_UNCOMPRESSED);
rt_db_free_internal(&intern);
bu_free_external(&body);
/* make sure the database directory is initialized */
if (wdbp->dbip->dbi_eof == RT_DIR_PHONY_ADDR) {
ret = db_dirbuild(wdbp->dbip);
if (ret) {
return -1;
}
}
/* add this (phony until written) object to the directory */
if ((dp=db_diradd5(wdbp->dbip, obj_name, RT_DIR_PHONY_ADDR, major_type,
minor_type, 0, 0, NULL)) == RT_DIR_NULL) {
bu_log("Error while attempting to add new name (%s) to the database",
obj_name);
bu_free_external(&bin_ext);
return -1;
}
/* and write it to the database */
if (db_put_external5(&bin_ext, dp, wdbp->dbip)) {
bu_log("Error while adding new binary object (%s) to the database",
obj_name);
bu_free_external(&bin_ext);
return -1;
}
bu_free_external(&bin_ext);
return 0;
}
int
rt_mk_binunif(struct rt_wdb *wdbp, const char *obj_name, const char *file_name, unsigned int minor_type, long max_count)
{
struct stat st;
unsigned int major_type=DB5_MAJORTYPE_BINARY_UNIF;
#if defined(_WIN32) && !defined(__CYGWIN__)
__int64 num_items=-1;
__int64 obj_length=-1;
#else
long long num_items=-1;
long long obj_length=-1;
#endif
int item_length=0;
struct bu_mapped_file *bu_fd;
struct rt_binunif_internal *bip;
struct rt_db_internal intern;
struct bu_external body;
struct bu_external bin_ext;
struct directory *dp;
if ( (item_length=db5_type_sizeof_h_binu( minor_type ) ) <= 0 ) {
bu_log( "Unrecognized minor type!!!\n" );
return -1;
}
if ( stat( file_name, &st ) ) {
bu_log( "Cannot stat input file(%s)", file_name );
return -1;
}
if ( (bu_fd=bu_open_mapped_file( file_name, NULL)) == NULL ) {
bu_log( "Cannot open input file(%s) for reading",
file_name );
return -1;
}
/* create the rt_binunif internal form */
BU_GETSTRUCT( bip, rt_binunif_internal );
bip->magic = RT_BINUNIF_INTERNAL_MAGIC;
bip->type = minor_type;
num_items = (long)(st.st_size / item_length);
/* maybe only a partial file read */
if (max_count > 0 && max_count < num_items) {
num_items = max_count;
}
obj_length = num_items * item_length;
if (obj_length > __LONG_MAX__) {
bu_log("Unable to create binary objects larger than %ld bytes\n", __LONG_MAX__);
return -1;
}
/* just copy the bytes */
bip->count = num_items;
bip->u.int8 = (char *)bu_malloc( obj_length, "binary uniform object" );
memcpy(bip->u.int8, bu_fd->buf, obj_length);
bu_close_mapped_file( bu_fd );
/* create the rt_internal form */
RT_INIT_DB_INTERNAL( &intern );
intern.idb_major_type = major_type;
intern.idb_minor_type = minor_type;
intern.idb_ptr = (genptr_t)bip;
intern.idb_meth = &rt_functab[ID_BINUNIF];
/* create body portion of external form */
if ( intern.idb_meth->ft_export5( &body, &intern, 1.0, wdbp->dbip, wdbp->wdb_resp, intern.idb_minor_type ) ) {
bu_log( "Error while attemptimg to export %s\n", obj_name );
rt_db_free_internal( &intern, wdbp->wdb_resp );
return -1;
}
/* create entire external form */
db5_export_object3( &bin_ext, DB5HDR_HFLAGS_DLI_APPLICATION_DATA_OBJECT,
obj_name, 0, NULL, &body,
intern.idb_major_type, intern.idb_minor_type,
DB5_ZZZ_UNCOMPRESSED, DB5_ZZZ_UNCOMPRESSED );
rt_db_free_internal( &intern, wdbp->wdb_resp );
bu_free_external( &body );
/* add this object to the directory */
if ( (dp=db_diradd5( wdbp->dbip, obj_name, -1, major_type,
minor_type, 0, 0, NULL )) == DIR_NULL ) {
bu_log( "Error while attemptimg to add new name (%s) to the database",
obj_name );
bu_free_external( &bin_ext );
return -1;
}
/* and write it to the database */
if ( db_put_external5( &bin_ext, dp, wdbp->dbip ) ) {
bu_log( "Error while adding new binary object (%s) to the database",
obj_name );
bu_free_external( &bin_ext );
return -1;
}
bu_free_external( &bin_ext );
return 0;
}
