Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

2024-07-02T00:02:05Z

Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.4f/pcunix.c moved to Source:NetHack 1.4f/pcunix.c: Robot: moved page

2008-03-04T01:24:16Z

NetHack 1.4f/pcunix.c moved to Source:NetHack 1.4f/pcunix.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-31T15:38:48Z

Automated source code upload

New page

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

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

{{CWI}}
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 <stdio.h> /* 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 <sys/types.h> /* for time_t */
21. #endif
22. #include <time.h>
23. #include <sys/stat.h>
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 <sys/param.h> is that this include file
100. * does not exist on all systems, and moreover, that it sometimes includes
101. * <sys/types.h> 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. }
[[Category:NetHack 1.4f source code|pcunix.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''pcunix.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]]. To link to a particular line, write [[NetHack 1.4f/pcunix.c#line123|<nowiki>[[NetHack 1.4f/pcunix.c#line123]]</nowiki>]], for example.
+Below is the full text to '''pcunix.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]].
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 01:24, 4 March 2008
(No difference)

Source:NetHack 1.4f/pcunix.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.4f/pcunix.c moved to Source:NetHack 1.4f/pcunix.c: Robot: moved page

Jaytbot: Automated source code upload