| 9395 | #endif |
| 9396 | |
| 9397 | void * GMT_Read_VirtualFile (void *V_API, const char *string) { |
| 9398 | /* Given a VirtualFile name, retrieve the resulting object */ |
| 9399 | int object_ID; |
| 9400 | void *object = NULL; |
| 9401 | if (V_API == NULL) return_null (V_API, GMT_NOT_A_SESSION); |
| 9402 | if (string == NULL) return_null (V_API, GMT_PTR_IS_NULL); |
| 9403 | if ((object_ID = gmtapi_decode_id (string)) == GMT_NOTSET) |
| 9404 | return_null (V_API, GMT_OBJECT_NOT_FOUND); |
| 9405 | if ((object = gmtapi_retrieve_data (V_API, object_ID)) == NULL) |
| 9406 | return_null (V_API, GMT_OBJECT_NOT_FOUND); |
| 9407 | return object; |
| 9408 | } |
| 9409 | |
| 9410 | #ifdef FORTRAN_API |
| 9411 | void * GMT_Read_VirtualFile_ (char *string, int len) { |