Return to getword.c CVS log

Up to [cvs.NetBSD.org] / src / games / hangman

Annotation of src/games/hangman/getword.c, Revision 1.1

1.1     ! cgd         1: /*
        !             2:  * Copyright (c) 1983 Regents of the University of California.
        !             3:  * All rights reserved.
        !             4:  *
        !             5:  * Redistribution and use in source and binary forms, with or without
        !             6:  * modification, are permitted provided that the following conditions
        !             7:  * are met:
        !             8:  * 1. Redistributions of source code must retain the above copyright
        !             9:  *    notice, this list of conditions and the following disclaimer.
        !            10:  * 2. Redistributions in binary form must reproduce the above copyright
        !            11:  *    notice, this list of conditions and the following disclaimer in the
        !            12:  *    documentation and/or other materials provided with the distribution.
        !            13:  * 3. All advertising materials mentioning features or use of this software
        !            14:  *    must display the following acknowledgement:
        !            15:  *     This product includes software developed by the University of
        !            16:  *     California, Berkeley and its contributors.
        !            17:  * 4. Neither the name of the University nor the names of its contributors
        !            18:  *    may be used to endorse or promote products derived from this software
        !            19:  *    without specific prior written permission.
        !            20:  *
        !            21:  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
        !            22:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
        !            23:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
        !            24:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
        !            25:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
        !            26:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
        !            27:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
        !            28:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
        !            29:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
        !            30:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
        !            31:  * SUCH DAMAGE.
        !            32:  */
        !            33:
        !            34: #ifndef lint
        !            35: static char sccsid[] = "@(#)getword.c  5.3 (Berkeley) 6/1/90";
        !            36: #endif /* not lint */
        !            37:
        !            38: # include      "hangman.h"
        !            39:
        !            40: # if pdp11
        !            41: #      define  RN      (((off_t) rand() << 16) | (off_t) rand())
        !            42: # else
        !            43: #      define  RN      rand()
        !            44: # endif
        !            45:
        !            46: /*
        !            47:  * getword:
        !            48:  *     Get a valid word out of the dictionary file
        !            49:  */
        !            50: getword()
        !            51: {
        !            52:        register FILE           *inf;
        !            53:        register char           *wp, *gp;
        !            54:
        !            55:        inf = Dict;
        !            56:        for (;;) {
        !            57:                fseek(inf, abs(RN % Dict_size), 0);
        !            58:                if (fgets(Word, BUFSIZ, inf) == NULL)
        !            59:                        continue;
        !            60:                if (fgets(Word, BUFSIZ, inf) == NULL)
        !            61:                        continue;
        !            62:                Word[strlen(Word) - 1] = '\0';
        !            63:                if (strlen(Word) < MINLEN)
        !            64:                        continue;
        !            65:                for (wp = Word; *wp; wp++)
        !            66:                        if (!islower(*wp))
        !            67:                                goto cont;
        !            68:                break;
        !            69: cont:          ;
        !            70:        }
        !            71:        gp = Known;
        !            72:        wp = Word;
        !            73:        while (*wp) {
        !            74:                *gp++ = '-';
        !            75:                wp++;
        !            76:        }
        !            77:        *gp = '\0';
        !            78: }
        !            79:
        !            80: /*
        !            81:  * abs:
        !            82:  *     Return the absolute value of an integer
        !            83:  */
        !            84: off_t
        !            85: abs(i)
        !            86: off_t  i;
        !            87: {
        !            88:        if (i < 0)
        !            89:                return -(off_t) i;
        !            90:        else
        !            91:                return (off_t) i;
        !            92: }