! Mostly for debugging */
| 848 | |
| 849 | /*! Mostly for debugging */ |
| 850 | GMT_LOCAL void gmtapi_set_object (struct GMTAPI_CTRL *API, struct GMTAPI_DATA_OBJECT *obj) { |
| 851 | /* This is mostly for debugging and may go away or remain under DEBUG */ |
| 852 | GMT_Report (API, GMT_MSG_DEBUG, "Set_Object for family: %d\n", obj->family); |
| 853 | switch (obj->family) { |
| 854 | case GMT_IS_GRID: obj->G = obj->resource; break; |
| 855 | case GMT_IS_DATASET: obj->D = obj->resource; break; |
| 856 | case GMT_IS_PALETTE: obj->C = obj->resource; break; |
| 857 | case GMT_IS_CUBE: obj->U = obj->resource; break; |
| 858 | case GMT_IS_POSTSCRIPT: obj->P = obj->resource; break; |
| 859 | case GMT_IS_MATRIX: obj->M = obj->resource; break; |
| 860 | case GMT_IS_VECTOR: obj->V = obj->resource; break; |
| 861 | case GMT_IS_COORD: break; /* No worries */ |
| 862 | case GMT_IS_IMAGE: obj->I = obj->resource; break; |
| 863 | case GMT_N_FAMILIES: break; |
| 864 | } |
| 865 | } |
| 866 | #endif |
| 867 | |
| 868 | GMT_LOCAL bool gmtapi_modern_casename (char *arg) { |
no test coverage detected