void ring_vm_refmeta_packagename ( void *pPointer ) { VM *pVM ; pVM = (VM *) pPointer ; if ( RING_API_PARACOUNT != 0 ) { RING_API_ERROR(RING_API_BADPARACOUNT); return ; } RING_API_RETSTRING(ring_string_get(pVM->pPackageName)); }
void ring_vm_sqlite_errmsg ( void *pPointer ) { ring_sqlite *psqlite ; if ( RING_API_PARACOUNT != 1 ) { RING_API_ERROR(RING_API_MISS1PARA); return ; } if ( RING_API_ISPOINTER(1) ) { psqlite = (ring_sqlite *) RING_API_GETCPOINTER(1,RING_VM_POINTER_SQLITE) ; if ( psqlite == NULL ) { return ; } if ( psqlite->db ) { RING_API_RETSTRING(sqlite3_errmsg(psqlite->db)); } } else { RING_API_ERROR(RING_API_BADPARATYPE); } }
void ring_vm_refmeta_objectid ( void *pPointer ) { List *pList ; char cStr[100] ; if ( RING_API_PARACOUNT != 1 ) { RING_API_ERROR(RING_API_BADPARACOUNT); return ; } if ( RING_API_ISLIST(1) ) { pList = RING_API_GETLIST(1) ; if ( ring_vm_oop_isobject(pList) ) { sprintf( cStr , "%p" , (void *) pList ) ; RING_API_RETSTRING(cStr); } else { RING_API_ERROR(RING_API_BADPARATYPE); } } else { RING_API_ERROR(RING_API_BADPARATYPE); } }
void ring_vm_refmeta_classname ( void *pPointer ) { List *pList ; char *cStr ; if ( RING_API_PARACOUNT != 1 ) { RING_API_ERROR(RING_API_BADPARACOUNT); return ; } if ( RING_API_ISLIST(1) ) { pList = RING_API_GETLIST(1) ; if ( ring_vm_oop_isobject(pList) ) { cStr = ring_list_getstring((List *) ring_list_getpointer(pList,RING_OBJECT_CLASSPOINTER),RING_CLASSMAP_CLASSNAME); RING_API_RETSTRING(cStr); } else { RING_API_ERROR(RING_API_BADPARATYPE); } } else { RING_API_ERROR(RING_API_BADPARATYPE); } }
void ring_vm_os_windowsnl ( void *pPointer ) { RING_API_RETSTRING("\r\n"); }
void ring_vm_os_exefolder ( void *pPointer ) { char cDirPath[200] ; ring_exefolder(cDirPath); RING_API_RETSTRING(cDirPath); }
void ring_vm_os_currentdir ( void *pPointer ) { char cDirPath[200] ; ring_currentdir(cDirPath); RING_API_RETSTRING(cDirPath); }