int rt_fwrite_internal( FILE *fp, const char *name, const struct rt_db_internal *ip, double conv2mm) { struct bu_external ext; int ret; RT_CK_DB_INTERNAL(ip); RT_CK_FUNCTAB(ip->idb_meth); BU_EXTERNAL_INIT(&ext); ret = -1; if (ip->idb_meth->ft_export4) { ret = ip->idb_meth->ft_export4(&ext, ip, conv2mm, NULL /*dbip*/, &rt_uniresource); } if (ret < 0) { bu_log("rt_file_put_internal(%s): solid export failure\n", name); bu_free_external(&ext); return -2; /* FAIL */ } BU_CK_EXTERNAL(&ext); if (db_fwrite_external(fp, name, &ext) < 0) { bu_log("rt_fwrite_internal(%s): db_fwrite_external() error\n", name); bu_free_external(&ext); return -3; } bu_free_external(&ext); return 0; }
or poly-bot file_poly.g file_bot.g\n\ Convert polysolids to BOT solids in v4 database format only\n"; int main(int argc, char **argv) { FILE *ifp; FILE *ofp; union record record; union record *poly; long poly_limit=0; long curr_poly=0; struct bn_tol tol; int polys=0; int frees=0; int others=0; int bots=0; int i; int num_rec; int first=1; bu_setprogname(argv[0]); ifp = stdin; ofp = stdout; /* FIXME: These need to be improved */ tol.magic = BN_TOL_MAGIC; tol.dist = 0.0005; tol.dist_sq = tol.dist * tol.dist; tol.perp = 1e-6; tol.para = 1 - tol.perp; if (argc >= 3) { ifp = fopen(argv[1], "rb"); if (!ifp) perror(argv[1]); ofp = fopen(argv[2], "wb"); if (!ofp) perror(argv[2]); if (ifp == NULL || ofp == NULL) { bu_exit(1, "poly-bot: can't open files."); } #if defined(_WIN32) && !defined(__CYGWIN__) } else { setmode(fileno(ifp), O_BINARY); setmode(fileno(ofp), O_BINARY); #endif } if (isatty(fileno(ifp))) { bu_exit(1, "%s", usage); } poly = (union record *)bu_malloc( POLY_BLOCK * sizeof( union record ), "poly" ); poly_limit = POLY_BLOCK; /* Read database file */ while ( fread( (char *)&record, sizeof record, 1, ifp ) == 1 && !feof(ifp) ) { top: switch ( record.u_id ) { case ID_FREE: frees++; continue; case DBID_SKETCH: num_rec = ntohl(*(uint32_t *)&record.skt.skt_count); others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying a SKETCH\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_EXTR: num_rec = ntohl(*(uint32_t *)&record.extr.ex_count); others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying an EXTRUSION\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_NMG: num_rec = ntohl(*(uint32_t *)&record.nmg.N_count); others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying an ARBN\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_PIPE: num_rec = ntohl(*(uint32_t *)&record.pwr.pwr_count); others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying a PIPE\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_ARBN: num_rec = ntohl(*(uint32_t *)&record.n.n_grans); others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying an ARBN\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_STRSOL: num_rec = DB_SS_NGRAN - 1; others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying a STRSOL\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case ID_BSURF: num_rec = record.d.d_nknots + record.d.d_nctls; others += num_rec + 1; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying a NURB\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case DBID_BOT: bots++; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); num_rec = ntohl(*(uint32_t *)&record.bot.bot_nrec); for ( i=0; i<num_rec; i++ ) { if ( fread( (char *)&record, sizeof record, 1, ifp ) != 1 ) bu_exit(1, "Unexpected EOF encountered while copying a BOT\n" ); if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } break; case ID_P_HEAD: { struct rt_db_internal intern; struct bu_external ext; struct bu_external ext2; polys++; curr_poly = 0; poly[curr_poly++] = record; /* struct copy */ bu_log( "Converting %s\n", poly[0].p.p_name ); while ( fread( (char *)&record, sizeof record, 1, ifp ) == 1 && !feof(ifp) && record.u_id == ID_P_DATA ) { if ( curr_poly >= poly_limit ) { poly_limit += POLY_BLOCK; poly = (union record *)bu_realloc( poly, poly_limit*sizeof( union record ), "poly realloc" ); } poly[curr_poly++] = record; /* struct copy */ } BU_EXTERNAL_INIT( &ext ); ext.ext_nbytes = curr_poly * sizeof( union record ); ext.ext_buf = (uint8_t *)poly; if ( rt_functab[ID_POLY].ft_import4( &intern, &ext, bn_mat_identity, (struct db_i *)NULL, &rt_uniresource ) ) { bu_exit(1, "Import failed for polysolid %s\n", poly[0].p.p_name ); } /* Don't free this ext buffer! */ if ( rt_pg_to_bot( &intern, &tol, &rt_uniresource ) < 0 ) { bu_exit(1, "Unable to convert polysolid %s\n", poly[0].p.p_name ); } BU_EXTERNAL_INIT( &ext2 ); if ( rt_functab[ID_POLY].ft_export4( &ext2, &intern, 1.0, (struct db_i *)NULL, &rt_uniresource ) < 0 ) { bu_exit(1, "Unable to export v4 BoT %s\n", poly[0].p.p_name ); } rt_db_free_internal(&intern); if ( db_fwrite_external( ofp, poly[0].p.p_name, &ext2 ) < 0 ) { bu_exit(1, "Unable to fwrite v4 BoT %s\n", poly[0].p.p_name ); } bu_free_external( &ext2 ); if ( feof( ifp ) ) break; goto top; } case ID_P_DATA: /* This should not happen! */ bu_log( "ERROR: Unattached polysolid data record!\n" ); continue; default: if ( first ) { if ( record.u_id != ID_IDENT ) { bu_exit(1, "This is not a BRL-CAD 'v4' database, aborting.\n" ); } first = 0; } others++; if ( fwrite( &record, sizeof( union record ), 1, ofp ) < 1 ) bu_exit(1, "Write failed!\n" ); } } bu_log( "%d polysolids converted to BOT solids\n", polys ); bu_log( "%d BOT solids copied without change\n", bots ); bu_log( "%d other records copied without change\n", others ); bu_log( "%d free records skipped\n", frees ); fclose(ofp); return 0; }