Import Upstream version 20180207

[hcoop/debian/mlton.git] / runtime / basis / Net / NetServDB.c

#include "platform.h"

static struct servent *NetHostDB_servent;

C_String_t NetServDB_getEntryName(void) {
  return (C_String_t)(NetHostDB_servent->s_name);
}

C_Int_t NetServDB_getEntryAliasesNum(void) {
  int num = 0;
  while (NetHostDB_servent->s_aliases[num] != NULL) num++;
  return num;
}

C_String_t NetServDB_getEntryAliasesN(C_Int_t n) {
  return (C_String_t)(NetHostDB_servent->s_aliases[n]);
}

C_Int_t NetServDB_getEntryPort(void) {
  return NetHostDB_servent->s_port;
}

C_String_t NetServDB_getEntryProto(void) {
  return (C_String_t)(NetHostDB_servent->s_proto);
}

C_Int_t NetServDB_getByName(NullString8_t name, NullString8_t proto) {
  NetHostDB_servent = getservbyname((const char*)name, (const char*)proto);
  return (C_Int_t)(NetHostDB_servent != NULL and NetHostDB_servent->s_name != NULL);
}

C_Int_t NetServDB_getByNameNull(NullString8_t name) {
  return NetServDB_getByName(name, (NullString8_t)NULL);
}

C_Int_t NetServDB_getByPort(C_Int_t port, NullString8_t proto) {
  NetHostDB_servent = getservbyport(port, (const char*)proto);
  return (C_Int_t)(NetHostDB_servent != NULL and NetHostDB_servent->s_name != NULL);
}

C_Int_t NetServDB_getByPortNull(C_Int_t port) {
  return NetServDB_getByPort(port, (NullString8_t)NULL);
}