Source:NetHack 1.4f/pcunix.c

Below is the full text to pcunix.c from the source code of NetHack 1.4f. To link to a particular line, write [[NetHack 1.4f/pcunix.c#line123 ]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

1.   /*	SCCS Id: @(#)pcunix.c	1.4	87/08/08 2.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3.    /* unix.c - version 1.0.3 */ 4.    5.    /* This file collects some Unix dependencies; pager.c contains some more */ 6.    7.    /*  8.     * The time is used for: 9.    *	- seed for rand 10.   *	- year on tombstone and yymmdd in record file 11.   *	- phase of the moon (various monsters react to NEW_MOON or FULL_MOON) 12.   *	- night and midnight (the undead are dangerous at midnight) 13.   *	- determination of what files are "very old" 14.   */  15.    16.   #include 	/* mainly for NULL */ 17.  #include "hack.h"	/* mainly for index which depends on BSD */ 18.   19.   #ifndef __TURBOC__  /* Turbo C has time_t in time.h */ 20.  #include			/* for time_t */ 21.  #endif 22.  #include	  23. #include         24. 25.  extern time_t time; 26.  static struct stat buf, hbuf; 27.   28.   setrandom 29.  {  30.   	(void) srand((int) time ((time_t *) 0)); 31.  }  32.    33.   struct tm * 34.  getlt 35.  {  36.   	time_t date; 37.  	struct tm *localtime; 38.   39.   	(void) time(&date); 40.  	return(localtime(&date)); 41.  }  42.    43.   getyear 44.  {  45.   	return(1900 + getlt->tm_year); 46.  }  47.    48.   char * 49.  getdate 50.  {  51.   	static char datestr[7]; 52.  	register struct tm *lt = getlt; 53.   54.   	(void) sprintf(datestr, "%2d%2d%2d",  55.   		lt->tm_year, lt->tm_mon + 1, lt->tm_mday); 56.  	if(datestr[2] == ' ') datestr[2] = '0'; 57.  	if(datestr[4] == ' ') datestr[4] = '0'; 58.  	return(datestr); 59.  }  60.    61.   phase_of_the_moon			/* 0-7, with 0: new, 4: full */ 62.  {					/* moon period: 29.5306 days */ 63.  					/* year: 365.2422 days */ 64.  	register struct tm *lt = getlt; 65.  	register int epact, diy, golden; 66.   67.   	diy = lt->tm_yday; 68.  	golden = (lt->tm_year % 19) + 1; 69.  	epact = (11 * golden + 18) % 30; 70.  	if ((epact == 25 && golden > 11) || epact == 24) 71.  		epact++; 72.   73.   	return( (((((diy + epact) * 6) + 11) % 177) / 22) & 7 ); 74.  }  75.    76.   night 77.  {  78.   	register int hour = getlt->tm_hour; 79.   80.   	return(hour < 6 || hour > 21); 81.  }  82.    83.   midnight 84.  {  85.   	return(getlt->tm_hour == 0); 86.  }  87.    88.   gethdate(name) char *name; { 89.  /* old version - for people short of space */ 90.  /*  91.   /* register char *np; 92.  /*      if(stat(name, &hbuf)) 93.  /*              error("Cannot get status of %s.",  94.   /*                      (np = rindex(name, '/')) ? np+1 : name); 95.  /*  96.   /* version using PATH from: seismo!gregc@ucsf-cgl.ARPA (Greg Couch) */ 97.   98.   /*  99.    * The problem with   #include   is that this include file 100.  * does not exist on all systems, and moreover, that it sometimes includes 101.  *  again, so that the compiler sees these typedefs twice. 102.  */  103.  #define         MAXPATHLEN      1024 104.  105.  register char *np, *path; 106. char filename[MAXPATHLEN+1]; 107.  108.      if (index(name, '/') != NULL || (path = getenv("PATH")) == NULL) 109.         path = ""; 110.  111.      for  { 112.         if ((np = index(path, ':')) == NULL) 113.             np = path + strlen(path);       /* point to end str */ 114.         if (np - path <= 1)                     /* %% */ 115.             (void) strcpy(filename, name); 116.         else { 117.             (void) strncpy(filename, path, np - path); 118.             filename[np - path] = '/'; 119.             (void) strcpy(filename + (np - path) + 1, name); 120.         }  121.          if (stat(filename, &hbuf) == 0) 122.             return; 123.         if (*np == '\0') 124.         path = ""; 125.         path = np + 1; 126.     }  127.      error("Cannot get status of %s.", (np = rindex(name, '/')) ? np+1 : name); 128. }  129.   130.  uptodate(fd) { 131.     if(fstat(fd, &buf)) { 132.         pline("Cannot get status of saved level? "); 133.         return(0); 134.     }  135.      if(buf.st_mtime < hbuf.st_mtime) { 136.         pline("Saved level is out of date. "); 137.         return(0); 138.     }  139.      return(1); 140. }  141.   142.  regularize(s)	/* normalize file name - we don't like ..'s or /'s */ 143. register char *s; 144. {  145.  	register char *lp; 146.  147.  	while((lp = index(s, '.')) || (lp = index(s, '/'))) 148. 		*lp = '_'; 149. }