%{ #include %} function svc_serv_dump:string(_serv:long) %{ struct svc_serv *serv = (struct svc_serv *)(long) kread(&(THIS->_serv)); char buf[MAXSTRINGLEN]; int cc=0; if (serv <= 0) { sprintf(buf+cc, "serv NULL"); } else { sprintf(buf+cc, "serv %p sv_family %d", serv, serv->sv_family); cc = strlen(buf); } snprintf(THIS->__retvalue, MAXSTRINGLEN, "%s", buf); CATCH_DEREF_FAULT(); %}