开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > VxWorks > 查看源码
gethostnamadr.c
资源名称：vxwork_src.rar　[点击查看]
上传用户：nvosite88
上传日期：2007-01-17
资源大小：4983k
文件大小：11k
源码类别：

VxWorks

开发平台：

C/C++

gethostnamadr.c：源码内容
  1. /* gethostnamadr.c - */
  3. /* Copyright 1984-2001 Wind River Systems, Inc. */
  4. #include "copyright_wrs.h"
  7. /*
  8.  * Copyright (c) 1985, 1988 Regents of the University of California.
  9.  * All rights reserved.
  10.  *
  11.  * Redistribution and use in source and binary forms, with or without
  12.  * modification, are permitted provided that the following conditions
  13.  * are met:
  14.  * 1. Redistributions of source code must retain the above copyright
  15.  *    notice, this list of conditions and the following disclaimer.
  16.  * 2. Redistributions in binary form must reproduce the above copyright
  17.  *    notice, this list of conditions and the following disclaimer in the
  18.  *    documentation and/or other materials provided with the distribution.
  19.  * 3. All advertising materials mentioning features or use of this software
  20.  *    must display the following acknowledgement:
  21.  * This product includes software developed by the University of
  22.  * California, Berkeley and its contributors.
  23.  * 4. Neither the name of the University nor the names of its contributors
  24.  *    may be used to endorse or promote products derived from this software
  25.  *    without specific prior written permission.
  26.  *
  27.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  28.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  29.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  30.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  31.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  32.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  33.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  34.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  35.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  36.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  37.  * SUCH DAMAGE.
  38.  */
  41. /*
  42. modification history
  43. --------------------
  44. 01d,05nov01,vvv  fixed compilation warnings
  45. 01c,04sep01,vvv  fixed to correctly query multiple servers (SPR #67238);
  46.  fixed compilation warnings
  47. 01b,11feb96,jag  Fix the formating of the hostent structure in  _gethostbyname
  48.                  when invoked with an IP address. Cleaned up warnings.
  49. 01a,13dec96,jag  Cleaned up and rename user I/F functions with the resolv
  50.  prefix.  Man pages for these functions appear in resolvLib
  51. */
  53. #include <vxWorks.h>
  54. #include <resolvLib.h>
  55. #include <semLib.h>
  56. #include <stdio.h>
  57. #include <ctype.h>
  58. #include <errno.h>
  59. #include <string.h>
  60. #include <stdlib.h>
  61. #include <inetLib.h>
  64. #define  MAX_RR_TTL  172800         /* Maximum of Two days in seconds */
  66. #if PACKETSZ > 1024
  67. #define MAXPACKET PACKETSZ
  68. #else
  69. #define MAXPACKET 1024
  70. #endif
  72. typedef union {
  73. HEADER hdr;
  74. u_char buf[MAXPACKET];
  75. } querybuf;
  77. typedef union {
  78. int32_t al;
  79. char ac;
  80. } align;
  82. static int qcomp (struct in_addr **, struct in_addr **);
  83. LOCAL struct hostent *getanswer (querybuf *, int, int, struct hostent *, 
  84.  char *, int);
  86. LOCAL struct hostent *
  87. getanswer(answer, anslen, iquery, pHost, hostbuf, bufLen)
  88. querybuf *answer;
  89. int anslen;
  90. int iquery;
  91. struct hostent   *  pHost;
  92. char *           hostbuf;
  93. int              bufLen;
  94. {
  95. register HEADER *hp;
  96. register u_char *cp;
  97. register int n;
  98. u_char *eom;
  99. char *bp, **ap;
  100. int type, class, ancount, qdcount;
  101. int haveanswer, getclass = C_ANY;
  102. char **hap;
  103. char *hostbufEnd;
  104. unsigned int rrttl; /* RR time to live field */
  106. eom = answer->buf + anslen;
  107. /*
  108.  * find first satisfactory answer
  109.  */
  110. hp = &answer->hdr;
  111. ancount = ntohs(hp->ancount);
  112. qdcount = ntohs(hp->qdcount);
  114. bp = hostbuf;
  116.         hostbufEnd = hostbuf + bufLen - 1;
  118. cp = answer->buf + sizeof(HEADER);
  120. /* Process the "questions section" of the DNS response */
  121. if (qdcount) {
  122.     /* Check if this is a Pointer query */
  123. if (iquery) {
  124. if ((n = resolvDNExpand((u_char *)answer->buf,
  125.     (u_char *)eom, (u_char *)cp, (u_char *)bp,
  126.     bufLen)) < 0) {
  127. errno = S_resolvLib_NO_RECOVERY;
  128. return ((struct hostent *) NULL);
  129. }
  130. cp += n + QFIXEDSZ;
  131. pHost->h_name = bp;
  132. n = strlen(bp) + 1;
  133. bp += n;
  134. bufLen -= n;
  135. } else
  136. cp += __dn_skipname(cp, eom) + QFIXEDSZ;
  137. while (--qdcount > 0)
  138. cp += __dn_skipname(cp, eom) + QFIXEDSZ;
  139. } else if (iquery) {
  140. if (hp->aa)
  141. errno = S_resolvLib_HOST_NOT_FOUND;
  142. else
  143. errno = S_resolvLib_TRY_AGAIN;
  144. return ((struct hostent *) NULL);
  145. }
  147. /* Set everything up to process the resource records */
  149. ap = pHost->h_aliases;
  150. *ap = NULL;
  153. hap = pHost->h_addr_list;
  154. *hap = NULL;
  156. pHost->h_ttl = MAX_RR_TTL;  /* Maximum of Two days in seconds */
  158. haveanswer = 0;
  159. while (--ancount >= 0 && cp < eom) {
  160. if ((n = resolvDNExpand((u_char *)answer->buf, (u_char *)eom,
  161.     (u_char *)cp, (u_char *)bp, bufLen)) < 0)
  162. break;
  163. cp += n;
  164. type = _getshort(cp); /* Get RR type field */
  165.   cp += sizeof(uint16_t);         /* Skip size of type field */
  166. class = _getshort(cp); /* Get RR class field */
  167.   cp += sizeof(uint16_t);         /* Skip size of class field */
  168. rrttl = _getlong(cp);         /* Get RR TTL field */
  169. cp += sizeof(uint32_t);         /* Skip size of TTL field */
  170. n = _getshort(cp); /* Get RR data length field */
  171. cp += sizeof(uint16_t); /* Skip size of length filed */
  173. if (type == T_CNAME) {
  174. cp += n;
  175. if (ap >= & pHost->h_aliases [MAXALIASES-1])
  176. continue;
  177. *ap++ = bp;
  178. n = strlen(bp) + 1;
  179. bp += n;
  180. bufLen -= n;
  182. if (rrttl < pHost->h_ttl)
  183.     pHost->h_ttl = rrttl;
  185. continue;
  186. }
  187. if (iquery && type == T_PTR) {
  188. if ((n = resolvDNExpand((u_char *)answer->buf,
  189.     (u_char *)eom, (u_char *)cp, (u_char *)bp,
  190.     bufLen)) < 0)
  191. break;
  192. cp += n;
  193. pHost->h_name = bp;
  195. if (rrttl < pHost->h_ttl)
  196.     pHost->h_ttl = rrttl;
  198. return (pHost);
  199. }
  200. if (iquery || type != T_A)  {
  201. #ifdef DEBUG
  202. if (_res.options & RES_DEBUG)
  203. printf("unexpected answer type %d, size %dn",
  204. type, n);
  205. #endif
  206. cp += n;
  207. continue;
  208. }
  209. if (haveanswer) {
  210. if (n != pHost->h_length) {
  211. cp += n;
  212. continue;
  213. }
  214. if (class != getclass) {
  215. cp += n;
  216. continue;
  217. }
  218. } else {
  219. pHost->h_length = n;
  220. getclass = class;
  221. pHost->h_addrtype = (class == C_IN) ? AF_INET : AF_UNSPEC;
  222. if (!iquery) {
  223.     pHost->h_name = bp;
  224.     bp += strlen(bp) + 1;
  226.     if (rrttl < pHost->h_ttl)
  227. pHost->h_ttl = rrttl;
  228. }
  229. }
  231. bp += sizeof(align) - ((u_long)bp % sizeof(align));
  233. if (bp + n >= hostbufEnd) {
  234. #ifdef DEBUG
  235. if (_res.options & RES_DEBUG)
  236. printf("size (%d) too bign", n);
  237. #endif
  238. break;
  239. }
  240. bcopy(cp, *hap++ = bp, n);
  241. bp +=n;
  242. cp += n;
  243. haveanswer++;
  244. }
  245. if (haveanswer) {
  246. *ap = NULL;
  247. *hap = NULL;
  248. if (_res.nsort) {
  249. qsort(pHost->h_addr_list, haveanswer,
  250.     sizeof(struct in_addr),
  251.     (int (*)__P((const void *, const void *)))qcomp);
  252. }
  253. return (pHost);
  254. } else {
  255. errno = S_resolvLib_TRY_AGAIN;
  256. return ((struct hostent *) NULL);
  257. }
  258. }
  260. struct hostent *
  261. _gethostbyname(name, pHost, hostbuf, bufLen)
  262. const char *name;
  263. struct hostent *pHost;
  264.         char        *hostbuf;
  265.         int         bufLen;
  266. {
  267. querybuf buf;
  268. register const char *cp;
  269. int n, i;
  270. register struct hostent *hp;
  271. char lookups[MAXDNSLUS];
  273. /*
  274.  * disallow names consisting only of digits/dots, unless
  275.  * they end in a dot.
  276.  */
  277. if (isdigit((int) name[0]))
  278. for (cp = name;; ++cp) {
  279. if (!*cp) {
  280. if (*--cp == '.')
  281. break;
  282. /*
  283.  * All-numeric, no dot at the end.
  284.  * Fake up a hostent as if we'd actually
  285.  * done a lookup.
  286.  */
  287. pHost->h_addr_list[0] = hostbuf;
  288. hostbuf += sizeof(uint32_t);
  290. if (inet_aton((char *) name, 
  291.       (struct in_addr *) pHost->h_addr_list[0]) 
  292.    == ERROR) 
  293.     {
  294. errno = S_resolvLib_HOST_NOT_FOUND;
  296. return((struct hostent *) NULL);
  297.     }
  299. pHost->h_name = (char *)name;
  300. pHost->h_aliases[0] = NULL;
  301. pHost->h_addrtype = AF_INET;
  302. pHost->h_length = sizeof(uint32_t);
  303. pHost->h_addr_list [1] = NULL;
  305. /* Maximum of Two days in seconds */
  306. pHost->h_ttl = MAX_RR_TTL;
  309. return (pHost);
  310. }
  311. if (!isdigit((int) *cp) && *cp != '.') 
  312. break;
  313. }
  315. bcopy(_res.lookups, lookups, sizeof lookups);
  317. if (lookups[0] == '')
  318. strncpy(lookups, "bf", sizeof lookups);
  320. hp = (struct hostent *)NULL;
  322. for (i = 0; i < MAXDNSLUS && hp == NULL && lookups[i]; i++) {
  324. /*
  325.  * if resolvSend has already contacted this server, lookup
  326.  * is 'd' indicating 'done'. In this case the server will
  327.  * not be contacted again and lookup is reset.
  328.  */
  330. if (_res.lookups [i] == 'd')
  331.     {
  332.     _res.lookups [i] = 'b';
  333.     continue;
  334.     }
  336. switch (lookups[i]) {
  337. case 'b':
  339. /*
  340.          * Set this server to be the active server - 
  341.  * resolvSend will start its querying from this
  342.  * server, skipping the previous servers
  343.  */
  345. _res.lookups[i] = 'a';
  346. if ((n = resSearch(name, C_IN, T_A, buf.buf,
  347.     sizeof(buf))) < 0) {
  348. #ifdef DEBUG
  349. if (_res.options & RES_DEBUG)
  350. printf("resSearch failedn");
  351. #endif
  352. break;
  353. }
  356. hp = getanswer(&buf, n, 0, pHost, hostbuf, bufLen );
  358. /* 
  359.  * Validate the address returned by the server - 
  360.  * should not be a network or broadcast address
  361.  * (SPR #67238)
  362.  */
  364. if (((hp->h_addr [3] & 0xff) == 0) ||
  365.     ((hp->h_addr [3] & 0xff) == 0xff))
  366.     {
  367.     hp = NULL;
  368.     errno = S_resolvLib_INVALID_ADDRESS;
  369.     }
  371. break;
  372. }
  373. if (_res.lookups [i] != 'f')
  374.     _res.lookups [i] = 'b'; 
  375. }
  376. return (hp);
  377. }
  382. struct hostent *
  383. _gethostbyaddr(addr, len, type, pHost, hostbuf, bufLen)
  384. const char *addr;
  385. int len, type;
  386. struct hostent *pHost;
  387. char *           hostbuf;
  388. int             bufLen;
  389. {
  390. int n, i;
  391. querybuf buf;
  392. register struct hostent *hp;
  393. char qbuf[MAXDNAME];
  394. char lookups[MAXDNSLUS];
  396. if (type != AF_INET)
  397. return ((struct hostent *) NULL);
  398. (void)sprintf(qbuf, "%u.%u.%u.%u.in-addr.arpa",
  399. ((unsigned)addr[3] & 0xff),
  400. ((unsigned)addr[2] & 0xff),
  401. ((unsigned)addr[1] & 0xff),
  402. ((unsigned)addr[0] & 0xff));
  405. bcopy(_res.lookups, lookups, sizeof lookups);
  406. if (lookups[0] == '')
  407. strncpy(lookups, "bf", sizeof lookups);
  409. hp = (struct hostent *)NULL;
  410. for (i = 0; i < MAXDNSLUS && hp == NULL && lookups[i]; i++) {
  411. switch (lookups[i]) {
  412. case 'b':
  413. n = resolvQuery(qbuf, C_IN, T_PTR, (char *)&buf, 
  414. sizeof(buf));
  415. if (n == ERROR) {
  416. #ifdef DEBUG
  417. if (_res.options & RES_DEBUG)
  418. printf("resolvQuery failedn");
  419. #endif
  420. break;
  421. }
  422. hp = getanswer(&buf, n, 1, pHost, hostbuf, bufLen);
  423. if (hp == NULL)
  424. break;
  425. hp->h_addrtype = type;
  426. hp->h_length = len;
  427.              pHost->h_addr_list [1] = NULL;
  428.              bcopy (addr, (char *) &pHost->h_addr_list [2], 4);
  429.              pHost->h_addr_list [0] =  (char*) & pHost->h_addr_list [2];
  430. break;
  431. }
  432. }
  433. return (hp);
  434. }
  438. static int
  439. qcomp(a1, a2)
  440. struct in_addr **a1, **a2;
  441. {
  442. int pos1, pos2;
  444. for (pos1 = 0; pos1 < _res.nsort; pos1++)
  445. if (_res.sort_list[pos1].addr.s_addr ==
  446.     ((*a1)->s_addr & _res.sort_list[pos1].mask))
  447. break;
  448. for (pos2 = 0; pos2 < _res.nsort; pos2++)
  449. if (_res.sort_list[pos2].addr.s_addr ==
  450.     ((*a2)->s_addr & _res.sort_list[pos2].mask))
  451. break;
  452. return pos1 - pos2;
  453. }