Actual source code: fhost.c

  1: #define PETSC_DESIRE_FEATURE_TEST_MACROS /* for getdomainname() */
  2: /*
  3:       Code for manipulating files.
  4: */
  5: #include <petscsys.h>
  6: #if defined(PETSC_HAVE_SYS_UTSNAME_H)
  7: #include <sys/utsname.h>
  8: #endif
  9: #if defined(PETSC_HAVE_WINDOWS_H)
 10: #include <windows.h>
 11: #endif
 12: #if defined(PETSC_HAVE_SYS_SYSTEMINFO_H)
 13: #include <sys/systeminfo.h>
 14: #endif
 15: #if defined(PETSC_HAVE_UNISTD_H)
 16: #include <unistd.h>
 17: #endif
 18: #if defined(PETSC_HAVE_NETDB_H)
 19: #include <netdb.h>
 20: #endif

 22: /*@C
 23:     PetscGetHostName - Returns the name of the host. This attempts to
 24:     return the entire Internet name. It may not return the same name
 25:     as MPI_Get_processor_name().

 27:     Not Collective

 29:     Input Parameter:
 30: .   nlen - length of name

 32:     Output Parameter:
 33: .   name - contains host name.  Must be long enough to hold the name
 34:            This is the fully qualified name, including the domain.

 36:     Level: developer

 38:    Fortran Version:
 39:    In Fortran this routine has the format

 41: $       character*(64) name
 42: $       call PetscGetHostName(name,ierr)

 44: .seealso: PetscGetUserName(),PetscGetArchType()
 45: @*/
 46: PetscErrorCode  PetscGetHostName(char name[],size_t nlen)
 47: {
 48:   char           *domain;
 50: #if defined(PETSC_HAVE_UNAME) && !defined(PETSC_HAVE_GETCOMPUTERNAME)
 51:   struct utsname utname;
 52: #endif

 55: #if defined(PETSC_HAVE_GETCOMPUTERNAME)
 56:   {
 57:     size_t nnlen = nlen;
 58:     GetComputerName((LPTSTR)name,(LPDWORD)(&nnlen));
 59:   }
 60: #elif defined(PETSC_HAVE_UNAME)
 61:   uname(&utname);
 62:   PetscStrncpy(name,utname.nodename,nlen);
 63: #elif defined(PETSC_HAVE_GETHOSTNAME)
 64:   gethostname(name,nlen);
 65: #elif defined(PETSC_HAVE_SYSINFO_3ARG)
 66:   sysinfo(SI_HOSTNAME,name,nlen);
 67: #endif
 68:   /* if there was not enough room then system call will not null terminate name */
 69:   name[nlen-1] = 0;

 71:   /* See if this name includes the domain */
 72:   PetscStrchr(name,'.',&domain);
 73:   if (!domain) {
 74:     size_t l,ll;
 75:     PetscStrlen(name,&l);
 76:     if (l == nlen-1) return(0);
 77:     name[l++] = '.';
 78:     name[l]   = 0;
 79: #if defined(PETSC_HAVE_SYSINFO_3ARG)
 80:     sysinfo(SI_SRPC_DOMAIN,name+l,nlen-l);
 81: #elif defined(PETSC_HAVE_GETDOMAINNAME)
 82:     if (getdomainname(name+l,nlen - l)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"getdomainname()");
 83: #endif
 84:     /* check if domain name is not a dnsdomainname and nuke it */
 85:     PetscStrlen(name,&ll);
 86:     if (ll > 4) {
 87:       const char *suffixes[] = {".edu",".com",".net",".org",".mil",NULL};
 88:       PetscInt   index;
 89:       PetscStrendswithwhich(name,suffixes,&index);
 90:       if (!suffixes[index]) {
 91:         PetscInfo1(NULL,"Rejecting domainname, likely is NIS %s\n",name);
 92:         name[l-1] = 0;
 93:       }
 94:     }
 95:   }
 96:   return(0);
 97: }