INTERFACE Unetdb;

FROM Ctypes IMPORT int, char_star, char_star_star, const_char_star;
FROM Utypes IMPORT socklen_t, hostent_addrtype_t, hostent_length_t;

TYPE
  struct_hostent = RECORD
    h_name:       char_star;
    h_aliases:    char_star_star;
    h_addrtype:   hostent_addrtype_t;
    h_length:     hostent_length_t;
    h_addr_list:  char_star_star;
  END;
  struct_hostent_star = UNTRACED REF struct_hostent;

CONST
  TRY_AGAIN      = 2;
  NO_RECOVERY    = 3;
  NO_ADDRESS     = 4;

<*EXTERNAL*> PROCEDURE gethostbyname (name: const_char_star): struct_hostent_star;
<*EXTERNAL*> PROCEDURE gethostbyaddr (addr: const_char_star; len: socklen_t; type: int): struct_hostent_star;

END Unetdb.