home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / src / hacklib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-18  |  11.6 KB  |  509 lines
  1. /*    SCCS Id: @(#)hacklib.c     3.1     91/11/25    */
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3. /* Copyright (c) Robert Patrick Rankin, 1991          */
  4. /* NetHack may be freely redistributed.  See license for details. */
  5.  
  6. /* We could only include config.h, except for the overlay definitions... */
  7. #include "hack.h"
  8. /*=
  9.     Assorted 'small' utility routines.    They're virtually independent of
  10. NetHack, except that rounddiv may call panic().
  11.  
  12.       return type     routine name    argument type(s)
  13.     boolean        digit        (char)
  14.     boolean        letter        (char)
  15.     char        highc        (char)
  16.     char        lowc        (char)
  17.     char *        lcase        (char *)
  18.     char *        eos        (char *)
  19.     char *        s_suffix    (const char *)
  20.     char *        xcrypt        (const char *)
  21.     boolean        onlyspace    (const char *)
  22.     char *        tabexpand    (char *)
  23.     char *        visctrl        (char)
  24.     const char *    ordin        (int)
  25.     char *        sitoa        (int)
  26.     int        sgn        (int)
  27.     int        rounddiv    (long, int)
  28.     int        distmin        (int, int, int, int)
  29.     int        dist2        (int, int, int, int)
  30.     boolean        online2        (int, int)
  31.     boolean        pmatch        (const char *, const char *)
  32.     int        strncmpi    (const char *, const char *, int)
  33.     char *        strstri        (const char *, const char *)
  34.     void        setrandom    (void)
  35.     int        getyear        (void)
  36.     char *        get_date    (void)
  37.     int        phase_of_the_moon    (void)
  38.     boolean        friday_13th    (void)
  39.     int        night        (void)
  40.     int        midnight    (void)
  41. =*/
  42. #ifdef LINT
  43. # define Static        /* pacify lint */
  44. #else
  45. # define Static static
  46. #endif
  47.  
  48. #ifdef OVLB
  49. boolean
  50. digit(c)        /* is 'c' a digit? */
  51.     char c;
  52. {
  53.     return '0' <= c && c <= '9';
  54. }
  55.  
  56. boolean
  57. letter(c)        /* is 'c' a letter?  note: '@' classed as letter */
  58.     char c;
  59. {
  60.     return ('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z');
  61. }
  62. #endif /* OVLB */
  63.  
  64. #ifdef OVL1
  65. char
  66. highc(c)            /* force 'c' into uppercase */
  67.     char c;
  68. {
  69.     return ('a' <= c && c <= 'z') ? (c & ~040) : c;
  70. }
  71.  
  72. char
  73. lowc(c)            /* force 'c' into lowercase */
  74.     char c;
  75. {
  76.     return ('A' <= c && c <= 'Z') ? (c | 040) : c;
  77. }
  78. #endif /* OVL1 */
  79.  
  80. #ifdef OVLB
  81. char *
  82. lcase(s)        /* convert a string into all lowercase */
  83.     char *s;
  84. {
  85.     register char *p;
  86.  
  87.     for (p = s; *p; p++)
  88.     if ('A' <= *p && *p <= 'Z') *p |= 040;
  89.     return s;
  90. }
  91. #endif /* OVLB */
  92.  
  93. #ifdef OVL0
  94. char *
  95. eos(s)            /* return the end of a string (pointing at '\0') */
  96.     register char *s;
  97. {
  98.     while (*s) s++;    /* s += strlen(s); */
  99.     return s;
  100. }
  101.  
  102. char *
  103. s_suffix(s)        /* return a name converted to possessive */
  104.     const char *s;
  105. {
  106.     Static char buf[BUFSZ];
  107.  
  108.     Strcpy(buf, s);
  109.     if(!strcmpi(buf, "it"))
  110.     Strcat(buf, "s");
  111.     else if(*(eos(buf)-1) == 's')
  112.     Strcat(buf, "'");
  113.     else 
  114.     Strcat(buf, "'s");
  115.     return buf;
  116. }
  117.  
  118. char *
  119. xcrypt(str)        /* trivial text encryption routine (see makedefs) */
  120. const char *str;
  121. {
  122.     Static char buf[BUFSZ];
  123.     register const char *p;
  124.     register char *q;
  125.     register int bitmask;
  126.  
  127.     for (bitmask = 1, p = str, q = buf; *p; q++) {
  128.     *q = *p++;
  129.     if (*q & (32|64)) *q ^= bitmask;
  130.     if ((bitmask <<= 1) >= 32) bitmask = 1;
  131.     }
  132.     *q = '\0';
  133.     return buf;
  134. }
  135. #endif /* OVL0 */
  136.  
  137. #ifdef OVL2
  138. boolean
  139. onlyspace(s)        /* is a string entirely whitespace? */
  140.     const char *s;
  141. {
  142.     for (; *s; s++)
  143.     if (*s != ' ' && *s != '\t') return FALSE;
  144.     return TRUE;
  145. }
  146. #endif /* OVL2 */
  147.  
  148. #ifdef OVLB
  149. char *
  150. tabexpand(sbuf)        /* expand tabs into proper number of spaces */
  151.     char *sbuf;
  152. {
  153.     char buf[BUFSZ];
  154.     register char *bp, *s = sbuf;
  155.     register int idx;
  156.  
  157.     if (!*s) return sbuf;
  158.  
  159.     /* warning: no bounds checking performed */
  160.     for (bp = buf, idx = 0; *s; s++)
  161.     if (*s == '\t') {
  162.         do *bp++ = ' '; while (++idx % 8);
  163.     } else {
  164.         *bp++ = *s;
  165.         idx++;
  166.     }
  167.     *bp = 0;
  168.     return strcpy(sbuf, buf);
  169. }
  170.  
  171. char *
  172. visctrl(c)        /* make a displayable string from a character */
  173.     char c;
  174. {
  175.     Static char ccc[3];
  176.  
  177.     c &= 0177;
  178.  
  179.     ccc[2] = '\0';
  180.     if (c < 040) {
  181.     ccc[0] = '^';
  182.     ccc[1] = c | 0100;    /* letter */
  183.     } else if (c == 0177) {
  184.     ccc[0] = '^';
  185.     ccc[1] = c & ~0100;    /* '?' */
  186.     } else {
  187.     ccc[0] = c;        /* printable character */
  188.     ccc[1] = '\0';
  189.     }
  190.     return ccc;
  191. }
  192. #endif /* OVLB */
  193.  
  194. #ifdef OVL2
  195. const char *
  196. ordin(n)        /* return the ordinal suffix of a number */
  197.     int n;            /* note: should be non-negative */
  198. {
  199.     register int dd = n % 10;
  200.  
  201.     return (dd == 0 || dd > 3 || (n % 100) / 10 == 1) ? "th" :
  202.         (dd == 1) ? "st" : (dd == 2) ? "nd" : "rd";
  203. }
  204. #endif /* OVL2 */
  205.  
  206. #ifdef OVL1
  207. char *
  208. sitoa(n)        /* make a signed digit string from a number */
  209.     int n;
  210. {
  211.     Static char buf[13];
  212.  
  213.     (void) sprintf(buf, (n < 0) ? "%d" : "+%d", n);
  214.     return buf;
  215. }
  216.  
  217. int
  218. sgn(n)            /* return the sign of a number: -1, 0, or 1 */
  219.     int n;
  220. {
  221.     return (n < 0) ? -1 : (n != 0);
  222. }
  223. #endif /* OVL1 */
  224.  
  225. #ifdef OVLB
  226. int
  227. rounddiv(x, y)        /* calculate x/y, rounding as appropriate */
  228.     long x;
  229.     int  y;
  230. {
  231.     int r, m;
  232.     int divsgn = 1;
  233.  
  234.     if (y == 0)
  235.     panic("division by zero in rounddiv");
  236.     else if (y < 0) {
  237.     divsgn = -divsgn;  y = -y;
  238.     }
  239.     if (x < 0) {
  240.     divsgn = -divsgn;  x = -x;
  241.     }
  242.     r = x / y;
  243.     m = x % y;
  244.     if (2*m >= y) r++;
  245.  
  246.     return divsgn * r;
  247. }
  248. #endif /* OVLB */
  249.  
  250. #ifdef OVL0
  251. int
  252. distmin(x0, y0, x1, y1) /* distance between two points, in moves */
  253.     int x0, y0, x1, y1;
  254. {
  255.     register int dx = x0 - x1, dy = y0 - y1;
  256.     if (dx < 0) dx = -dx;
  257.     if (dy < 0) dy = -dy;
  258.   /*  The minimum number of moves to get from (x0,y0) to (x1,y1) is the
  259.    :  larger of the [absolute value of the] two deltas.
  260.    */
  261.     return (dx < dy) ? dy : dx;
  262. }
  263.  
  264. int
  265. dist2(x0, y0, x1, y1)    /* square of euclidean distance between pair of pts */
  266.     int x0, y0, x1, y1;
  267. {
  268.     register int dx = x0 - x1, dy = y0 - y1;
  269.     return dx * dx + dy * dy;
  270. }
  271.  
  272. boolean
  273. online2(x0, y0, x1, y1) /* are two points lined up (on a straight line)? */
  274.     int x0, y0, x1, y1;
  275. {
  276.     register dx = x0 - x1, dy = y0 - y1;
  277.   /*  If either delta is zero then they're on an orthogonal line,
  278.    :  else if the deltas are equal (signs ignored) they're on a diagonal.
  279.    */
  280.     return !dy || !dx || (dy == dx) || (dy + dx == 0);    /* (dy == -dx) */
  281. }
  282.  
  283. #endif /* OVL0 */
  284. #ifdef OVLB
  285.  
  286. boolean
  287. pmatch(patrn, strng)    /* match a string against a pattern */
  288.     const char *patrn, *strng;
  289. {
  290.     char s, p;
  291.   /*
  292.    :  Simple pattern matcher:  '*' matches 0 or more characters, '?' matches
  293.    :  any single character.  Returns TRUE if 'strng' matches 'patrn'.
  294.    */
  295. pmatch_top:
  296.     s = *strng++;  p = *patrn++;    /* get next chars and pre-advance */
  297.     if (!p)            /* end of pattern */
  298.     return (s == '\0');        /* matches iff end of string too */
  299.     else if (p == '*')        /* wildcard reached */
  300.     return (!*patrn || pmatch(patrn, strng-1)) ? TRUE :
  301.         s ? pmatch(patrn-1, strng) : FALSE;
  302.     else if (p != s && (p != '?' || !s))  /* check single character */
  303.     return FALSE;        /* doesn't match */
  304.     else                /* return pmatch(patrn, strng); */
  305.     goto pmatch_top;    /* optimize tail recursion */
  306. }
  307. #endif /* OVLB */
  308.  
  309. #ifdef OVL2
  310. #ifndef STRNCMPI
  311. int
  312. strncmpi(s1, s2, n)    /* case insensitive counted string comparison */
  313.     register const char *s1, *s2;
  314.     register int n; /*(should probably be size_t, which is usually unsigned)*/
  315. {                    /*{ aka strncasecmp }*/
  316.     register char t1, t2;
  317.  
  318.     while (n--) {
  319.     if (!*s2) return (*s1 != 0);    /* s1 >= s2 */
  320.     else if (!*s1) return -1;    /* s1  < s2 */
  321.     t1 = lowc(*s1++);
  322.     t2 = lowc(*s2++);
  323.     if (t1 != t2) return (t1 > t2) ? 1 : -1;
  324.     }
  325.     return 0;                /* s1 == s2 */
  326. }
  327. #endif    /* STRNCMPI */
  328. #endif /* OVL2 */
  329.  
  330. #ifdef OVLB
  331. #ifndef STRSTRI
  332.  
  333. /* A note on the #ifndef GCC_WARN: "const" unfortunately has two different
  334.  * meanings. One meaning for "const char *str" is that the data pointed
  335.  * to by "str" happens not to be modified by this function. That is true
  336.  * for strstri. Another meaning is that "str" is (or may be) a pointer
  337.  * to a constant string that must never be modified. gcc takes the latter
  338.  * interpretation, and warns us about possible subversion of the const
  339.  * modifier. Actually, that warning can be useful (we could accidentally
  340.  * turn a constant string into a non-constant one with this function)
  341.  * and so we note the fact that we're returning "str" as a non-const
  342.  * by declaring it as non-const if GCC_WARN is defined.
  343.  */
  344.  
  345. char *
  346. strstri(str, sub)    /* case insensitive substring search */
  347. #ifndef GCC_WARN
  348.     const
  349. #endif
  350.     char *str;
  351.     const char *sub;
  352. {
  353.     register const char *s1, *s2;
  354.     register int i, k;
  355. # define TABSIZ 0x20    /* 0x40 would be case-sensitive */
  356.     char tstr[TABSIZ], tsub[TABSIZ];    /* nibble count tables */
  357. # if 0
  358.     assert( (TABSIZ & ~(TABSIZ-1)) == TABSIZ ); /* must be exact power of 2 */
  359.     assert( &lowc != 0 );            /* can't be unsafe macro */
  360. # endif
  361.  
  362.     /* special case: empty substring */
  363.     if (!*sub)    return (char *) str;
  364.  
  365.     /* do some useful work while determining relative lengths */
  366.     for (i = 0; i < TABSIZ; i++)  tstr[i] = tsub[i] = 0;    /* init */
  367.     for (k = 0, s1 = str; *s1; k++)  tstr[*s1++ & (TABSIZ-1)]++;
  368.     for (    s2 = sub; *s2; --k)  tsub[*s2++ & (TABSIZ-1)]++;
  369.  
  370.     /* evaluate the info we've collected */
  371.     if (k < 0)    return (char *) 0;  /* sub longer than str, so can't match */
  372.     for (i = 0; i < TABSIZ; i++)    /* does sub have more 'x's than str? */
  373.     if (tsub[i] > tstr[i])    return (char *) 0;  /* match not possible */
  374.  
  375.     /* now actually compare the substring repeatedly to parts of the string */
  376.     for (i = 0; i <= k; i++) {
  377.     s1 = &str[i];
  378.     s2 = sub;
  379.     while (lowc(*s1++) == lowc(*s2++))
  380.         if (!*s2)  return (char *) &str[i];        /* full match */
  381.     }
  382.     return (char *) 0;    /* not found */
  383. }
  384. #endif    /* STRSTRI */
  385. #endif /* OVLB */
  386.  
  387. #ifdef OVL2
  388. /*
  389.  * Time routines
  390.  *
  391.  * The time is used for:
  392.  *    - seed for rand()
  393.  *    - year on tombstone and yymmdd in record file
  394.  *    - phase of the moon (various monsters react to NEW_MOON or FULL_MOON)
  395.  *    - night and midnight (the undead are dangerous at midnight)
  396.  *    - determination of what files are "very old"
  397.  */
  398.  
  399. #if defined(AMIGA) && !defined(AZTEC_C) && !defined(__SASC_60)
  400. extern struct tm *FDECL(localtime,(time_t *));
  401. #endif
  402. static struct tm *NDECL(getlt);
  403.  
  404. void
  405. setrandom()
  406. {
  407.     /* the types are different enough here that sweeping the different
  408.      * routine names into one via #defines is even more confusing
  409.      */
  410. #ifdef RANDOM    /* srandom() from sys/share/random.c */
  411.     srandom((unsigned int) time((time_t *)0));
  412. #else
  413. # if defined(BSD) || defined(ULTRIX)    /* system srandom() */
  414. #  ifdef BSD
  415. #   if defined(SUNOS4)
  416.     (void)
  417. #   endif
  418.         srandom((int) time((long *)0));
  419. #  else
  420.         srandom((int) time((time_t *)0));
  421. #  endif
  422. # else
  423. #  ifdef UNIX    /* system srand48() */
  424.     srand48((long) time((time_t *)0));
  425. #  else        /* poor quality system routine */
  426.     srand((int) time((time_t *)0));
  427. #  endif
  428. # endif
  429. #endif
  430. }
  431.  
  432. static struct tm *
  433. getlt()
  434. {
  435.     time_t date;
  436.  
  437. #ifdef BSD
  438.     (void) time((long *)(&date));
  439. #else
  440.     (void) time(&date);
  441. #endif
  442. #if (defined(ULTRIX) && !(defined(ULTRIX_PROTO) || defined(NHSTDC))) || defined(BSD)
  443.     return(localtime((long *)(&date)));
  444. #else
  445.     return(localtime(&date));
  446. #endif
  447. }
  448.  
  449. int
  450. getyear()
  451. {
  452.     return(1900 + getlt()->tm_year);
  453. }
  454.  
  455. char *
  456. get_date()
  457. {
  458.     Static char datestr[7];
  459.     register struct tm *lt = getlt();
  460.  
  461.     Sprintf(datestr, "%2d%2d%2d",
  462.         lt->tm_year, lt->tm_mon + 1, lt->tm_mday);
  463.     if(datestr[2] == ' ') datestr[2] = '0';
  464.     if(datestr[4] == ' ') datestr[4] = '0';
  465.     return(datestr);
  466. }
  467.  
  468. int
  469. phase_of_the_moon()            /* 0-7, with 0: new, 4: full */
  470. /* moon period: 2551442 seconds == 29.53058 days */
  471. /* 722578680: date when there was a new moon (Tue Nov 24 04:18 1992) */
  472. /* *8/2551442: divide into 8 phases */
  473. /* *8 +2551442/2 /2551442: let the division round to nearest instead of down */
  474. {
  475. #ifdef BSD
  476.     long now = time((long *)0);
  477. #else
  478.     long now = time((time_t *)0);
  479. #endif
  480.  
  481.     return (int) (((((now - 722578680L) % 2551442L) * 8L) + 2551442L/2L)
  482.         / 2551442L);
  483. }
  484.  
  485. boolean
  486. friday_13th()
  487. {
  488.     register struct tm *lt = getlt();
  489.  
  490.     return (lt->tm_wday == 5 /* friday */ && lt->tm_mday == 13);
  491. }
  492.  
  493. int
  494. night()
  495. {
  496.     register int hour = getlt()->tm_hour;
  497.  
  498.     return(hour < 6 || hour > 21);
  499. }
  500.  
  501. int
  502. midnight()
  503. {
  504.     return(getlt()->tm_hour == 0);
  505. }
  506. #endif /* OVL2 */
  507.  
  508. /*hacklib.c*/
  509.