Return to message.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / chess / Xchess

Annotation of 43BSDReno/games/chess/Xchess/message.c, revision 1.1

1.1     ! root        1: 
        !             2: /* This file contains code for X-CHESS.
        !             3:    Copyright (C) 1986 Free Software Foundation, Inc.
        !             4: 
        !             5: This file is part of X-CHESS.
        !             6: 
        !             7: X-CHESS is distributed in the hope that it will be useful,
        !             8: but WITHOUT ANY WARRANTY.  No author or distributor
        !             9: accepts responsibility to anyone for the consequences of using it
        !            10: or for whether it serves any particular purpose or works at all,
        !            11: unless he says so in writing.  Refer to the X-CHESS General Public
        !            12: License for full details.
        !            13: 
        !            14: Everyone is granted permission to copy, modify and redistribute
        !            15: X-CHESS, but only under the conditions described in the
        !            16: X-CHESS General Public License.   A copy of this license is
        !            17: supposed to have been given to you along with X-CHESS so you
        !            18: can know your rights and responsibilities.  It should be in a
        !            19: file named COPYING.  Among other things, the copyright notice
        !            20: and this notice must be preserved on all copies.  */
        !            21: 
        !            22: 
        !            23: /* RCS Info: $Revision: 1.4 $ on $Date: 86/11/26 12:10:22 $
        !            24:  *           $Source: /users/faustus/xchess/RCS/message.c,v $
        !            25:  * Copyright (c) 1986 Wayne A. Christopher, U. C. Berkeley CAD Group
        !            26:  *     Permission is granted to do anything with this code except sell it
        !            27:  *     or remove this message.
        !            28:  *
        !            29:  * Do stuff with the message window.  Font 0 is the normal font, font 1
        !            30:  * is large, and font 2 is normal red.
        !            31:  */
        !            32: 
        !            33: #include "xchess.h"
        !            34: 
        !            35: #define MESSAGE_HEADER "\n1  XChess Messages0\n"
        !            36: 
        !            37: void
        !            38: message_init(win)
        !            39:        windata *win;
        !            40: {
        !            41:        TxtGrab(win->display, win->messagewin, "xchess", win->medium, 
        !            42:                        win->textback.pixel, win->textcolor.pixel,
        !            43:                                win->cursorcolor.pixel);
        !            44:        TxtAddFont(win->display, win->messagewin, 1, win->large, win->textcolor.pixel);
        !            45:        TxtAddFont(win->display, win->messagewin, 2, win->medium, win->errortext.pixel);
        !            46:        TxtAddFont(win->display, win->messagewin, 3, win->medium, win->playertext.pixel);
        !            47: 
        !            48:        TxtWriteStr(win->display, win->messagewin, MESSAGE_HEADER);
        !            49:        return;
        !            50: }
        !            51: 
        !            52: void
        !            53: message_add(win, string, err)
        !            54:        windata *win;
        !            55:        char *string;
        !            56:        bool err;
        !            57: {
        !            58:        if (err) {
        !            59:                TxtWriteStr(win->display, win->messagewin, "2");
        !            60:                TxtWriteStr(win->display, win->messagewin, string);
        !            61:                TxtWriteStr(win->display, win->messagewin, "0");
        !            62:                XBell(win->display, 50);
        !            63:        } else
        !            64:                TxtWriteStr(win->display, win->messagewin, string);
        !            65: 
        !            66:        XSync(win->display, 0);
        !            67:        return;
        !            68: }
        !            69: 
        !            70: void
        !            71: message_send(win, event)
        !            72:        windata *win;
        !            73:        XEvent *event;
        !            74: {
        !            75:        XKeyEvent *ev = &event->xkey;
        !            76:        KeySym keysym;
        !            77:        windata *ow = (win == win1) ? win2 : win1;
        !            78:        char buf[BSIZE], *s;
        !            79:        int i;
        !            80: 
        !            81:        i = XLookupString(ev, buf, sizeof(buf) - 1, &keysym, &s);
        !            82:        buf[i] = '\0';
        !            83:        for (s = buf; *s; s++)
        !            84:                if (*s == '\r')
        !            85:                        *s = '\n';
        !            86:                else if (*s == '\177')
        !            87:                        *s = '';
        !            88: 
        !            89:        TxtWriteStr(win->display, win->messagewin, "3");
        !            90:        TxtWriteStr(win->display, win->messagewin, buf);
        !            91:        TxtWriteStr(win->display, win->messagewin, "0");
        !            92:        XSync(win->display, 0);
        !            93:        if (ow) {
        !            94:                TxtWriteStr(ow->display, ow->messagewin, "3");
        !            95:                TxtWriteStr(ow->display, ow->messagewin, buf);
        !            96:                TxtWriteStr(ow->display, ow->messagewin, "0");
        !            97:                XSync(ow->display, 0);
        !            98:        }
        !            99:        return;
        !           100: }
        !           101: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.