Source:Hack 1.0/hack.rumors.c
Jump to navigation
Jump to search
Below is the full text to hack.rumors.c from the source code of Hack 1.0. To link to a particular line, write [[Hack 1.0/hack.rumors.c#line123]], for example.
Warning! This is the source code from an old release. For the latest release, see Source code
Screenshots and source code from Hack are used under the CWI license.
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */ 2. 3. #include <stdio.h> 4. #include "config.h" 5. #define CHARSZ 8 /* number of bits in a char */ 6. #define RUMORFILE "rumors" 7. extern long *alloc(); 8. extern char *index(); 9. int n_rumors = 0; 10. int n_used_rumors = -1; 11. char *usedbits; 12. 13. init_rumors(rumf) register FILE *rumf; { 14. register int i; 15. n_used_rumors = 0; 16. while(skipline(rumf)) n_rumors++; 17. rewind(rumf); 18. i = n_rumors/CHARSZ; 19. usedbits = (char *) alloc((unsigned)(i+1)); 20. for( ; i>=0; i--) usedbits[i] = 0; 21. } 22. 23. skipline(rumf) register FILE *rumf; { 24. char line[COLNO]; 25. while(1) { 26. if(!fgets(line, sizeof(line), rumf)) return(0); 27. if(index(line, '\n')) return(1); 28. } 29. } 30. 31. outline(rumf) register FILE *rumf; { 32. char line[COLNO]; 33. register char *ep; 34. if(!fgets(line, sizeof(line), rumf)) return; 35. if((ep = index(line, '\n')) != 0) *ep = 0; 36. pline("This cookie has a scrap of paper inside! It reads: "); 37. pline(line); 38. } 39. 40. outrumor(){ 41. register int rn,i; 42. register FILE *rumf; 43. if(n_rumors <= n_used_rumors || 44. (rumf = fopen(RUMORFILE, "r")) == NULL) return; 45. if(n_used_rumors < 0) init_rumors(rumf); 46. if(!n_rumors) goto none; 47. rn = rn2(n_rumors - n_used_rumors); 48. i = 0; 49. while(rn || used(i)) { 50. (void) skipline(rumf); 51. if(!used(i)) rn--; 52. i++; 53. } 54. usedbits[i/CHARSZ] |= (1 << (i % CHARSZ)); 55. n_used_rumors++; 56. outline(rumf); 57. none: 58. (void) fclose(rumf); 59. } 60. 61. used(i) register int i; { 62. return(usedbits[i/CHARSZ] & (1 << (i % CHARSZ))); 63. }