int PL_is_dbref(term_t t) { PL_blob_t *type; if ( PL_is_blob(t, &type) && ( type == &clause_blob || type == &record_blob ) ) return TRUE; return FALSE; }
// set current random state structure to values in Prolog term foreign_t is_address(term_t addr) { PL_blob_t *type; return PL_is_blob(addr,&type) && type==&addr_blob; }