00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040 #ifndef lint
00041 static const char RCSdir[] = "@(#)$Header: /cvsroot/brlcad/brlcad/src/librt/dir.c,v 14.14 2006/09/16 02:04:24 lbutler Exp $";
00042 #endif
00043
00044 #include "common.h"
00045
00046
00047
00048 #include <stdio.h>
00049 #ifdef HAVE_STRING_H
00050 #include <string.h>
00051 #else
00052 #include <strings.h>
00053 #endif
00054 #include "machine.h"
00055 #include "vmath.h"
00056 #include "raytrace.h"
00057 #include "./debug.h"
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071 struct rt_i *
00072 rt_dirbuild( const char *filename, char *buf, int len )
00073 {
00074 register struct rt_i *rtip;
00075 register struct db_i *dbip;
00076
00077 if( rt_uniresource.re_magic == 0 )
00078 rt_init_resource( &rt_uniresource, 0, NULL );
00079
00080 if( (dbip = db_open( filename, "r" )) == DBI_NULL )
00081 return( RTI_NULL );
00082 RT_CK_DBI(dbip);
00083
00084 if( db_dirbuild( dbip ) < 0 ) {
00085 db_close( dbip );
00086 return RTI_NULL;
00087 }
00088
00089 rtip = rt_new_rti( dbip );
00090 db_close(dbip);
00091
00092 if( buf != (char *)NULL )
00093 strncpy( buf, dbip->dbi_title, len );
00094
00095 return( rtip );
00096 }
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106
00107
00108 int
00109 rt_db_get_internal(
00110 struct rt_db_internal *ip,
00111 const struct directory *dp,
00112 const struct db_i *dbip,
00113 const mat_t mat,
00114 struct resource *resp)
00115 {
00116 struct bu_external ext;
00117 register int id;
00118
00119 BU_INIT_EXTERNAL(&ext);
00120 RT_INIT_DB_INTERNAL(ip);
00121
00122 if( dbip->dbi_version > 4 )
00123 return rt_db_get_internal5( ip, dp, dbip, mat, resp );
00124
00125 if( db_get_external( &ext, dp, dbip ) < 0 )
00126 return -2;
00127
00128 if( dp->d_flags & DIR_COMB ) {
00129 id = ID_COMBINATION;
00130 } else {
00131
00132 if( mat == NULL ) mat = bn_mat_identity;
00133 id = rt_id_solid( &ext );
00134 }
00135
00136
00137 if( rt_functab[id].ft_import( ip, &ext, mat, dbip, resp ) < 0 ) {
00138 bu_log("rt_db_get_internal(%s): import failure\n",
00139 dp->d_namep );
00140 rt_db_free_internal( ip, resp );
00141 bu_free_external( &ext );
00142 return -1;
00143 }
00144 bu_free_external( &ext );
00145 RT_CK_DB_INTERNAL( ip );
00146 ip->idb_meth = &rt_functab[id];
00147
00148
00149 bu_avs_init_empty( &ip->idb_avs );
00150
00151 return id;
00152 }
00153
00154
00155
00156
00157
00158
00159
00160
00161
00162
00163
00164
00165 int
00166 rt_db_put_internal(
00167 struct directory *dp,
00168 struct db_i *dbip,
00169 struct rt_db_internal *ip,
00170 struct resource *resp)
00171 {
00172 struct bu_external ext;
00173 int ret;
00174
00175 BU_INIT_EXTERNAL(&ext);
00176 RT_CK_DB_INTERNAL( ip );
00177
00178 if( dbip->dbi_version > 4 )
00179 return rt_db_put_internal5( dp, dbip, ip, resp,
00180 DB5_MAJORTYPE_BRLCAD );
00181
00182
00183 ret = ip->idb_meth->ft_export( &ext, ip, 1.0, dbip, resp );
00184 if( ret < 0 ) {
00185 bu_log("rt_db_put_internal(%s): solid export failure\n",
00186 dp->d_namep);
00187 rt_db_free_internal( ip, resp );
00188 bu_free_external( &ext );
00189 return -2;
00190 }
00191 rt_db_free_internal( ip, resp );
00192
00193 if( db_put_external( &ext, dp, dbip ) < 0 ) {
00194 bu_free_external( &ext );
00195 return -1;
00196 }
00197
00198 bu_free_external( &ext );
00199 return 0;
00200 }
00201
00202
00203
00204
00205
00206
00207
00208
00209
00210
00211
00212
00213
00214 int
00215 rt_fwrite_internal(
00216 FILE *fp,
00217 const char *name,
00218 const struct rt_db_internal *ip,
00219 double conv2mm )
00220 {
00221 struct bu_external ext;
00222
00223 RT_CK_DB_INTERNAL(ip);
00224 RT_CK_FUNCTAB( ip->idb_meth );
00225 BU_INIT_EXTERNAL( &ext );
00226
00227 if( ip->idb_meth->ft_export( &ext, ip, conv2mm, NULL , &rt_uniresource ) < 0 ) {
00228 bu_log("rt_file_put_internal(%s): solid export failure\n",
00229 name );
00230 bu_free_external( &ext );
00231 return(-2);
00232 }
00233 BU_CK_EXTERNAL( &ext );
00234
00235 if( db_fwrite_external( fp, name, &ext ) < 0 ) {
00236 bu_log("rt_fwrite_internal(%s): db_fwrite_external() error\n",
00237 name );
00238 bu_free_external( &ext );
00239 return(-3);
00240 }
00241 bu_free_external( &ext );
00242 return(0);
00243
00244 }
00245
00246
00247
00248
00249 void
00250 rt_db_free_internal( struct rt_db_internal *ip, struct resource *resp )
00251 {
00252 RT_CK_DB_INTERNAL( ip );
00253
00254
00255
00256
00257 if (ip->idb_meth) {
00258 RT_CK_FUNCTAB(ip->idb_meth);
00259 if (ip->idb_ptr) {
00260 ip->idb_meth->ft_ifree(ip, resp);
00261 }
00262 }
00263
00264
00265
00266
00267 if( ip->idb_ptr ) {
00268 ip->idb_ptr = NULL;
00269 }
00270 if( ip->idb_avs.magic == BU_AVS_MAGIC ) {
00271 bu_avs_free(&ip->idb_avs);
00272 }
00273 RT_INIT_DB_INTERNAL(ip);
00274 }
00275
00276
00277
00278
00279
00280
00281
00282
00283
00284
00285
00286 int
00287 rt_db_lookup_internal (
00288 struct db_i *dbip,
00289 const char *obj_name,
00290 struct directory **dpp,
00291 struct rt_db_internal *ip,
00292 int noisy,
00293 struct resource *resp)
00294 {
00295 struct directory *dp;
00296
00297 if (obj_name == (char *) 0)
00298 {
00299 if (noisy == LOOKUP_NOISY)
00300 bu_log("rt_db_lookup_internal() No object specified\n");
00301 return ID_NULL;
00302 }
00303 if ((dp = db_lookup(dbip, obj_name, noisy)) == DIR_NULL)
00304 return ID_NULL;
00305 if (rt_db_get_internal(ip, dp, dbip, (matp_t) NULL, resp ) < 0 )
00306 {
00307 if (noisy == LOOKUP_NOISY)
00308 bu_log("rt_db_lookup_internal() Failed to get internal form of object '%s'\n",
00309 dp -> d_namep);
00310 return ID_NULL;
00311 }
00312
00313 *dpp = dp;
00314 return (ip -> idb_type);
00315 }
00316
00317
00318
00319
00320
00321
00322
00323
00324
00325
00326