- Timestamp:
- Sep 25, 2005, 8:44:19 PM (19 years ago)
- Location:
- trunk/src
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/fortran/rappture_fortran.c
r49 r66 32 32 # define rp_lib_xml rp_lib_xml_ 33 33 # define rp_quit rp_quit_ 34 # define rp_result rp_result_ 34 35 #elif defined(COMPNAME_ADD2UNDERSCORE) 35 36 # define rp_init rp_init__ … … 57 58 # define rp_lib_xml rp_lib_xml__ 58 59 # define rp_quit rp_quit__ 60 # define rp_result rp_result__ 59 61 #elif defined(COMPNAME_NOCHANGE) 60 62 # define rp_init rp_init … … 82 84 # define rp_lib_xml rp_lib_xml 83 85 # define rp_quit rp_quit 86 # define rp_result rp_result 84 87 #elif defined(COMPNAME_UPPERCASE) 85 88 # define rp_init RP_INIT … … 107 110 # define rp_lib_xml RP_LIB_XML 108 111 # define rp_quit RP_QUIT 112 # define rp_result RP_RESULT 109 113 #endif 110 114 … … 275 279 extern "C" 276 280 void rp_quit(); 281 282 extern "C" 283 void rp_result(int* handle); 277 284 278 285 … … 1308 1315 } 1309 1316 1317 void rp_result(int* handle) { 1318 PyObject* lib = NULL; 1319 1320 if (rapptureStarted && handle && *handle != 0) { 1321 lib = getObject(*handle); 1322 if (lib) { 1323 rpResult(lib); 1324 } 1325 } 1326 rp_quit(); 1327 } 1328 1310 1329 int objType( char* flavor) 1311 1330 {
Note: See TracChangeset
for help on using the changeset viewer.