old-or-unused-stuff/alien-stuff.lisp

   1  (:structure hostent ("struct hostent"
   2                       (c-string-pointer name "char *" "h_name")
   3                       ((* c-string) aliases "char **" "h_aliases")
   4                       (int type "int" "h_addrtype")
   5                       (int length "int" "h_length")
   6                       ((* (* (unsigned 8))) addresses "char **" "h_addr_list")))
   7  (:structure servent ("struct servent"
   8                        (c-string-pointer name "char *" "s_name")
   9                        ((* (* (unsigned 8))) aliases "char **" "s_aliases")
  10                        (int port "int" "s_port")
  11                        (c-string-pointer proto "char *" "s_proto")))
  12
  13  (:integer host-not-found "HOST_NOT_FOUND")
  14  (:integer no-data "NO_DATA")
  15  (:integer no-address "NO_ADDRESS")
  16  (:integer no-recovery "NO_RECOVERY")
  17  (:integer try-again "TRY_AGAIN")
  18
  19 (define-alien-routine "endhostent" void)
  20
  21 (define-alien-routine "endservent" void)
  22
  23 (define-alien-routine "gethostbyaddr" (* (struct hostent))
  24   (addr (* t))
  25   (len socklen-t)
  26   (type int))
  27
  28 (define-alien-routine "gethostbyname" (* (struct hostent))
  29   (name c-string))
  30
  31 (define-alien-routine "gethostent" (* (struct hostent)))
  32
  33 (define-alien-routine "getservbyname" (* (struct servent))
  34   (name c-string)
  35   (proto c-string))
  36
  37 (define-alien-routine "getservbyport" (* (struct servent))
  38   (port int)
  39   (proto c-string))
  40
  41 (define-alien-routine "getservent" (* (struct servent)))
  42
  43 (define-alien-routine "sethostent" void
  44   (stayopen int))
  45
  46 (define-alien-routine "setservent" void
  47   (stayopen int))