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

2024-06-29T20:20:31Z

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

Kernigh bot: Hack 1.0/hack.o init.c moved to Source:Hack 1.0/hack.o init.c: Robot: moved page

2008-03-03T22:30:08Z

Hack 1.0/hack.o init.c moved to Source:Hack 1.0/hack.o init.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-29T20:29:07Z

Automated source code upload

New page

Below is the full text to '''hack.o_init.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.o_init.c#line123|<nowiki>[[Hack 1.0/hack.o_init.c#line123]]</nowiki>]], for example.

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

{{CWI}}
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2. 
3. #include "config.h" /* for typedefs */
4. #include "def.objects.h"
5. 
6. int
7. letindex(let) register char let; {
8. register int i = 0;
9. register char ch;
10. while((ch = obj_symbols[i++]) != 0)
11. if(ch == let) return(i);
12. return(0);
13. }
14. 
15. init_objects(){
16. register int i, j, first, last, sum, end;
17. register char let, *tmp;
18. /* init base; if probs given check that they add up to 100, 
19. otherwise compute probs; shuffle descriptions */
20. end = sizeof(objects)/sizeof(objects[0]);
21. first = 0;
22. while( first < end ) {
23. let = objects[first].oc_olet;
24. last = first+1;
25. while(last < end && objects[last].oc_olet == let
26. && objects[last].oc_name != NULL)
27. last++;
28. i = letindex(let);
29. if((!i && let != ILLOBJ_SYM) || bases[i] != 0)
30. panic("initialization error");
31. bases[i] = first;
32. check:
33. #ifdef MKLEV
34. #include "hack.onames.h"
35. if(let == GEM_SYM) {
36. extern xchar dlevel;
37. for(j=0; j < 9-dlevel/3; j++)
38. objects[first+j].oc_prob = 0;
39. first += j;
40. if(first >= last || first >= LAST_GEM)
41. printf("Not enough gems? - first=%d last=%d j=%d LAST_GEM=%d\n", first, last, j, LAST_GEM);
42. for(j = first; j < LAST_GEM; j++)
43. objects[j].oc_prob = (20+j-first)/(LAST_GEM-first);
44. }
45. #endif MKLEV
46. sum = 0;
47. for(j = first; j < last; j++) sum += objects[j].oc_prob;
48. if(sum == 0) {
49. for(j = first; j < last; j++)
50. objects[j].oc_prob = (100+j-first)/(last-first);
51. goto check;
52. }
53. if(sum != 100)
54. #ifdef MKLEV
55. panic
56. #else
57. error
58. #endif MKLEV
59. ("init-prob error for %c", let);
60. /* shuffling is rather meaningless in mklev, 
61. but we must update last anyway */
62. if(objects[first].oc_descr != NULL && let != TOOL_SYM){
63. /* shuffle, also some additional descriptions */
64. while(last < end && objects[last].oc_olet == let)
65. last++;
66. j = last;
67. while(--j > first) {
68. i = first + rn2(j+1-first);
69. tmp = objects[j].oc_descr;
70. objects[j].oc_descr = objects[i].oc_descr;
71. objects[i].oc_descr = tmp;
72. }
73. }
74. first = last;
75. }
76. }
77. 
78. probtype(let) register char let; {
79. register int i = bases[letindex(let)];
80. register int prob = rn2(100);
81. while((prob -= objects[i].oc_prob) >= 0) i++;
82. if(objects[i].oc_olet != let || !objects[i].oc_name)
83. panic("probtype(%c) error, i=%d", let, i);
84. return(i);
85. }
86. 
87. #ifndef MKLEV
88. #define SIZE(x) (sizeof x)/(sizeof x[0])
89. extern long *alloc();
90. 
91. savenames(fd) register fd; {
92. register int i;
93. unsigned len;
94. bwrite(fd, (char *) bases, sizeof bases);
95. bwrite(fd, (char *) objects, sizeof objects);
96. /* as long as we use only one version of Hack/Quest we
97. need not save oc_name and oc_descr, but we must save
98. oc_uname for all objects */
99. for(i=0; i < SIZE(objects); i++) {
100. if(objects[i].oc_uname) {
101. len = strlen(objects[i].oc_uname)+1;
102. bwrite(fd, (char *) &len, sizeof len);
103. bwrite(fd, objects[i].oc_uname, len);
104. }
105. }
106. }
107. 
108. restnames(fd) register fd; {
109. register int i;
110. unsigned len;
111. mread(fd, (char *) bases, sizeof bases);
112. mread(fd, (char *) objects, sizeof objects);
113. for(i=0; i < SIZE(objects); i++) if(objects[i].oc_uname) {
114. mread(fd, (char *) &len, sizeof len);
115. objects[i].oc_uname = (char *) alloc(len);
116. mread(fd, objects[i].oc_uname, len);
117. }
118. }
119. #endif MKLEV
[[Category:Hack 1.0 source code|hack.o_init.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.o_init.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.o_init.c#line123|<nowiki>[[Hack 1.0/hack.o_init.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.o_init.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]].
-'''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 22:30, 3 March 2008
(No difference)

Source:Hack 1.0/hack.o init.c - Revision history

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

Kernigh bot: Hack 1.0/hack.o init.c moved to Source:Hack 1.0/hack.o init.c: Robot: moved page

Jaytbot: Automated source code upload