Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, C
H–10 46958 Tandem Computers Incorporated
/*---------------------------*/
/* Get out of this data list */
/*---------------------------*/
if (status = SSGETTKN((short *) &response_buf, ZSPI_TKN_ENDLIST))
return dns_return(spi_err, status);
}
/*-----------------------------------------------------------------*/
/* Be sure that we didn't get an unexpected error looking for data */
/* list */
/*-----------------------------------------------------------------*/
if ( ! (done | (status = ZSPI_ERR_MISTKN)))
return dns_return(spi_err, status);
if ( ! done)
/*------------------------------------------------*/
/* Not finished yet; is there a context token? */
/*------------------------------------------------*/
if (status = SSGETTKN((short *) &response_buf, ZSPI_TKN_CONTEXT, , 1))
{
if (status = ZSPI_ERR_MISTKN)
/*------------------------------------*/
/* No context token; we're finished */
/*------------------------------------*/
done = true;
else
/*--------------------------------------------*/
/* Unexpected error looking for context token */
/*--------------------------------------------*/
return dns_return(spi_err, status);
}
else
/*----------------------------------------------------*/
/* Remember that we have a context token that must be */
/* moved at next DNS_SEND */
/*----------------------------------------------------*/
more = true;
}
/*-------------------------------*/
/* Return indication of success */
/*-------------------------------*/
return dns_return(no_err, 0);
}
#pragma page "DNS_LOOKUP"
/*==================================================================*/
/* Look up a name of unknown type in the DNS database */
/*==================================================================*/