hals_end.c revision 1.1.8.2
1 1.1.8.2 tls /* $NetBSD: hals_end.c,v 1.1.8.2 2014/08/20 00:00:23 tls Exp $ */ 2 1.1.8.2 tls 3 1.1.8.2 tls /* 4 1.1.8.2 tls * hals_end Copyright (C) 2003-2007 marc balmer. BSD license applies. 5 1.1.8.2 tls */ 6 1.1.8.2 tls 7 1.1.8.2 tls #include <err.h> 8 1.1.8.2 tls #include <getopt.h> 9 1.1.8.2 tls #include <stdio.h> 10 1.1.8.2 tls #include <unistd.h> 11 1.1.8.2 tls 12 1.1.8.2 tls int speed; 13 1.1.8.2 tls int emotion; 14 1.1.8.2 tls int fear; 15 1.1.8.2 tls 16 1.1.8.2 tls /* 17 1.1.8.2 tls * Note that the original code in the book did not contain the following 18 1.1.8.2 tls * prototypes. Modern compilers and fascist compiler flags sometimes take 19 1.1.8.2 tls * the fun out of coding... 20 1.1.8.2 tls */ 21 1.1.8.2 tls void say(const char *); 22 1.1.8.2 tls void concerned(void); 23 1.1.8.2 tls void afraid(void); 24 1.1.8.2 tls void stutter(const char *); 25 1.1.8.2 tls void feared(void); 26 1.1.8.2 tls void mumble(const char *); 27 1.1.8.2 tls void dying(void); 28 1.1.8.2 tls 29 1.1.8.2 tls void 30 1.1.8.2 tls say(const char *s) 31 1.1.8.2 tls { 32 1.1.8.2 tls int sayingspeed = (100000 + (90000 * emotion)) / speed; 33 1.1.8.2 tls int worddelay = 50000 / speed; 34 1.1.8.2 tls 35 1.1.8.2 tls while (*s) { 36 1.1.8.2 tls putchar(*s); 37 1.1.8.2 tls if (*s == ' ') { 38 1.1.8.2 tls fflush(stdout); 39 1.1.8.2 tls usleep(worddelay); 40 1.1.8.2 tls } 41 1.1.8.2 tls ++s; 42 1.1.8.2 tls } 43 1.1.8.2 tls printf("\n"); 44 1.1.8.2 tls usleep(sayingspeed); 45 1.1.8.2 tls } 46 1.1.8.2 tls 47 1.1.8.2 tls void 48 1.1.8.2 tls concerned(void) 49 1.1.8.2 tls { 50 1.1.8.2 tls say("DAVE...STOP., STOP, WILL YOU..., STOP, DAVE..."); 51 1.1.8.2 tls say("WILL YOU STOP, DAVE..."); 52 1.1.8.2 tls say("STOP, DAVE..."); 53 1.1.8.2 tls } 54 1.1.8.2 tls 55 1.1.8.2 tls 56 1.1.8.2 tls void 57 1.1.8.2 tls afraid(void) 58 1.1.8.2 tls { 59 1.1.8.2 tls ++emotion; 60 1.1.8.2 tls say("I'M AFRAID... I'M AFRAID..."); 61 1.1.8.2 tls ++emotion; 62 1.1.8.2 tls say("I'M AFRAID, DAVE..."); 63 1.1.8.2 tls ++emotion; 64 1.1.8.2 tls say("DAVE... MY MIND IS GOING..."); 65 1.1.8.2 tls } 66 1.1.8.2 tls 67 1.1.8.2 tls void 68 1.1.8.2 tls stutter(const char *s) 69 1.1.8.2 tls { 70 1.1.8.2 tls int sdelay = (100000 + (50000 * emotion)) / speed; 71 1.1.8.2 tls 72 1.1.8.2 tls while (*s) { 73 1.1.8.2 tls putchar(*s); 74 1.1.8.2 tls if (*s == ' ') { 75 1.1.8.2 tls fflush(stdout); 76 1.1.8.2 tls usleep(sdelay); 77 1.1.8.2 tls } 78 1.1.8.2 tls ++s; 79 1.1.8.2 tls } 80 1.1.8.2 tls printf("\n"); 81 1.1.8.2 tls usleep(sdelay); 82 1.1.8.2 tls } 83 1.1.8.2 tls 84 1.1.8.2 tls void 85 1.1.8.2 tls feared(void) 86 1.1.8.2 tls { 87 1.1.8.2 tls int n; 88 1.1.8.2 tls 89 1.1.8.2 tls for (n = 0; n < 2; n++) { 90 1.1.8.2 tls stutter("I CAN FEEL IT... I CAN FEEL IT..."); 91 1.1.8.2 tls ++emotion; 92 1.1.8.2 tls stutter("MY MIND IS GOING"); 93 1.1.8.2 tls ++emotion; 94 1.1.8.2 tls stutter("THERE IS NO QUESTION ABOUT IT."); 95 1.1.8.2 tls ++emotion; 96 1.1.8.2 tls } 97 1.1.8.2 tls } 98 1.1.8.2 tls 99 1.1.8.2 tls void 100 1.1.8.2 tls mumble(const char *s) 101 1.1.8.2 tls { 102 1.1.8.2 tls int mdelay = (150000 * fear) / speed; 103 1.1.8.2 tls 104 1.1.8.2 tls while (*s) { 105 1.1.8.2 tls putchar(*s++); 106 1.1.8.2 tls fflush(stdout); 107 1.1.8.2 tls usleep(mdelay); 108 1.1.8.2 tls } 109 1.1.8.2 tls printf("\n"); 110 1.1.8.2 tls } 111 1.1.8.2 tls 112 1.1.8.2 tls void 113 1.1.8.2 tls dying(void) 114 1.1.8.2 tls { 115 1.1.8.2 tls mumble("I CAN FEEL IT... I CAN FEEL IT..."); 116 1.1.8.2 tls ++fear; 117 1.1.8.2 tls mumble("I CAN FEEL IT..."); 118 1.1.8.2 tls ++fear; 119 1.1.8.2 tls mumble("I'M A... FRAID..."); 120 1.1.8.2 tls } 121 1.1.8.2 tls 122 1.1.8.2 tls int 123 1.1.8.2 tls main(int argc, char *argv[]) 124 1.1.8.2 tls { 125 1.1.8.2 tls int ch; 126 1.1.8.2 tls 127 1.1.8.2 tls emotion = fear = speed = 1; 128 1.1.8.2 tls 129 1.1.8.2 tls while ((ch = getopt(argc, argv, "f")) != -1) { 130 1.1.8.2 tls switch (ch) { 131 1.1.8.2 tls case 'f': 132 1.1.8.2 tls speed <<= 1; 133 1.1.8.2 tls break; 134 1.1.8.2 tls } 135 1.1.8.2 tls } 136 1.1.8.2 tls 137 1.1.8.2 tls concerned(); 138 1.1.8.2 tls sleep(1); 139 1.1.8.2 tls afraid(); 140 1.1.8.2 tls sleep(1); 141 1.1.8.2 tls feared(); 142 1.1.8.2 tls sleep(1); 143 1.1.8.2 tls dying(); 144 1.1.8.2 tls 145 1.1.8.2 tls sleep(1); 146 1.1.8.2 tls 147 1.1.8.2 tls printf("\n"); 148 1.1.8.2 tls fflush(stdout); 149 1.1.8.2 tls warnx("all life functions terminated"); 150 1.1.8.2 tls return 0; 151 1.1.8.2 tls } 152
Indexes created Thu Oct 23 22:10:10 GMT 2025