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

2024-07-01T06:39:42Z

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

Kernigh bot: NetHack 1.3d/pcunix.c moved to Source:NetHack 1.3d/pcunix.c: Robot: moved page

2008-03-04T00:14:44Z

NetHack 1.3d/pcunix.c moved to Source:NetHack 1.3d/pcunix.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-31T14:05:59Z

Automated source code upload

New page

Below is the full text to '''pcunix.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pcunix.c#line123|<nowiki>[[NetHack 1.3d/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.3 87/07/14
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 "hack.h" /* mainly for index() which depends on BSD */
17. 
18. #include <sys/types.h> /* for time_t */
19. #include <time.h>
20. 
21. extern time_t time();
22. 
23. setrandom()
24. {
25. (void) srand((int) time ((time_t *) 0));
26. }
27. 
28. struct tm *
29. getlt()
30. {
31. time_t date;
32. struct tm *localtime();
33. 
34. (void) time(&date);
35. return(localtime(&date));
36. }
37. 
38. getyear()
39. {
40. return(1900 + getlt()->tm_year);
41. }
42. 
43. char *
44. getdate()
45. {
46. static char datestr[7];
47. register struct tm *lt = getlt();
48. 
49. (void) sprintf(datestr, "%2d%2d%2d",
50. lt->tm_year, lt->tm_mon + 1, lt->tm_mday);
51. if(datestr[2] == ' ') datestr[2] = '0';
52. if(datestr[4] == ' ') datestr[4] = '0';
53. return(datestr);
54. }
55. 
56. phase_of_the_moon() /* 0-7, with 0: new, 4: full */
57. { /* moon period: 29.5306 days */
58. /* year: 365.2422 days */
59. register struct tm *lt = getlt();
60. register int epact, diy, golden;
61. 
62. diy = lt->tm_yday;
63. golden = (lt->tm_year % 19) + 1;
64. epact = (11 * golden + 18) % 30;
65. if ((epact == 25 && golden > 11) || epact == 24)
66. epact++;
67. 
68. return( (((((diy + epact) * 6) + 11) % 177) / 22) & 7 );
69. }
70. 
71. night()
72. {
73. register int hour = getlt()->tm_hour;
74. 
75. return(hour < 6 || hour > 21);
76. }
77. 
78. midnight()
79. {
80. return(getlt()->tm_hour == 0);
81. }
82. 
83. regularize(s) /* normalize file name - we don't like ..'s or /'s */
84. register char *s;
85. {
86. register char *lp;
87. 
88. while((lp = index(s, '.')) || (lp = index(s, '/')))
89. *lp = '_';
90. }
[[Category:NetHack 1.3d source code|pcunix.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''pcunix.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pcunix.c#line123|<nowiki>[[NetHack 1.3d/pcunix.c#line123]]</nowiki>]], for example.
+Below is the full text to '''pcunix.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]].
-'''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 00:14, 4 March 2008
(No difference)

Source:NetHack 1.3d/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.3d/pcunix.c moved to Source:NetHack 1.3d/pcunix.c: Robot: moved page

Jaytbot: Automated source code upload