WebSVN – HelenOS – Diff – /branches/dynload/uspace/app/tetris/input.c


/*  $OpenBSD: input.c,v 1.12 2005/04/13 02:33:08 deraadt Exp $  */
/*    $NetBSD: input.c,v 1.3 1996/02/06 22:47:33 jtc Exp $    */
 
/*-
 * Copyright (c) 1992, 1993
 *  The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Chris Torek and Darren F. Provine.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *  @(#)input.c 8.1 (Berkeley) 5/31/93
 */
 
/** @addtogroup tetris
 * @{
 */
/** @file
 */
 
/*
 * Tetris input.
 */
 
#include <sys/types.h>
#include <sys/time.h>
#include <stdio.h>
 
#include <errno.h>
#include <unistd.h>
#include <string.h>
 
#include "input.h"
#include "tetris.h"
 
#include <async.h>
#include <ipc/console.h>
#include <console.h>
#include <kbd/kbd.h>
 
/* return true iff the given timeval is positive */
#define TV_POS(tv) \
    ((tv)->tv_sec > 0 || ((tv)->tv_sec == 0 && (tv)->tv_usec > 0))
 
/* subtract timeval `sub' from `res' */
#define TV_SUB(res, sub) \
    (res)->tv_sec -= (sub)->tv_sec; \
    (res)->tv_usec -= (sub)->tv_usec; \
    if ((res)->tv_usec < 0) { \
        (res)->tv_usec += 1000000; \
        (res)->tv_sec--; \
    }
 
/* We will use a hack here - if lastchar is non-zero, it is
 * the last character read. We will somehow simulate the select
 * semantics.
 */
static aid_t getchar_inprog = 0;
static char lastchar = '\0';
 
/*
 * Do a `read wait': select for reading from stdin, with timeout *tvp.
 * On return, modify *tvp to reflect the amount of time spent waiting.
 * It will be positive only if input appeared before the time ran out;
 * otherwise it will be zero or perhaps negative.
 *
 * If tvp is nil, wait forever, but return if select is interrupted.
 *
 * Return 0 => no input, 1 => can read() from stdin
 *
 */
int
rwait(struct timeval *tvp)
{
    struct timeval starttv, endtv, *s;
    static ipc_call_t charcall;
    ipcarg_t rc;
    int cons_phone;
 
    /*
     * Someday, select() will do this for us.
     * Just in case that day is now, and no one has
     * changed this, we use a temporary.
     */
    if (tvp) {
        (void) gettimeofday(&starttv, NULL);
        endtv = *tvp;
        s = &endtv;
    } else
        s = NULL;
 
    if (!lastchar) {
again:
        if (!getchar_inprog) {
            cons_phone = console_open(true);
            getchar_inprog = async_send_2(cons_phone,
                CONSOLE_GETKEY, 0, 0, &charcall);
        }
        if (!s)
            async_wait_for(getchar_inprog, &rc);
        else if (async_wait_timeout(getchar_inprog, &rc, s->tv_usec) == ETIMEOUT) {
            tvp->tv_sec = 0;
            tvp->tv_usec = 0;
            return (0);
        }
        getchar_inprog = 0;
        if (rc) {
            stop("end of file, help");
        }
        if (IPC_GET_ARG1(charcall) == KE_RELEASE)
            goto again;
 
        lastchar = IPC_GET_ARG4(charcall);
    }
    if (tvp) {
        /* since there is input, we may not have timed out */
        (void) gettimeofday(&endtv, NULL);
        TV_SUB(&endtv, &starttv);
        TV_SUB(tvp, &endtv);    /* adjust *tvp by elapsed time */
    }
    return (1);
}
 
/*
 * `sleep' for the current turn time (using select).
 * Eat any input that might be available.
 */
void
tsleep(void)
{
    struct timeval tv;
 
    tv.tv_sec = 0;
    tv.tv_usec = fallrate;
    while (TV_POS(&tv))
        if (rwait(&tv)) {
            lastchar = '\0';
        } else
            break;
}
 
/*
 * getchar with timeout.
 */
int
tgetchar(void)
{
    static struct timeval timeleft;
    char c;
 
    /*
     * Reset timeleft to fallrate whenever it is not positive.
     * In any case, wait to see if there is any input.  If so,
     * take it, and update timeleft so that the next call to
     * tgetchar() will not wait as long.  If there is no input,
     * make timeleft zero or negative, and return -1.
     *
     * Most of the hard work is done by rwait().
     */
    if (!TV_POS(&timeleft)) {
        faster();   /* go faster */
        timeleft.tv_sec = 0;
        timeleft.tv_usec = fallrate;
    }
    if (!rwait(&timeleft))
        return (-1);
    c = lastchar;
    lastchar = '\0';
    return ((int)(unsigned char)c);
}
 
/** @}
 */
 
 

Rev 4347	Rev 4348
1	/* $OpenBSD: input.c,v 1.12 2005/04/13 02:33:08 deraadt Exp $ */	1	/* $OpenBSD: input.c,v 1.12 2005/04/13 02:33:08 deraadt Exp $ */
2	/* $NetBSD: input.c,v 1.3 1996/02/06 22:47:33 jtc Exp $ */	2	/* $NetBSD: input.c,v 1.3 1996/02/06 22:47:33 jtc Exp $ */
3		3
4	/*-	4	/*-
5	* Copyright (c) 1992, 1993	5	* Copyright (c) 1992, 1993
6	* The Regents of the University of California. All rights reserved.	6	* The Regents of the University of California. All rights reserved.
7	*	7	*
8	* This code is derived from software contributed to Berkeley by	8	* This code is derived from software contributed to Berkeley by
9	* Chris Torek and Darren F. Provine.	9	* Chris Torek and Darren F. Provine.
10	*	10	*
11	* Redistribution and use in source and binary forms, with or without	11	* Redistribution and use in source and binary forms, with or without
12	* modification, are permitted provided that the following conditions	12	* modification, are permitted provided that the following conditions
13	* are met:	13	* are met:
14	* 1. Redistributions of source code must retain the above copyright	14	* 1. Redistributions of source code must retain the above copyright
15	* notice, this list of conditions and the following disclaimer.	15	* notice, this list of conditions and the following disclaimer.
16	* 2. Redistributions in binary form must reproduce the above copyright	16	* 2. Redistributions in binary form must reproduce the above copyright
17	* notice, this list of conditions and the following disclaimer in the	17	* notice, this list of conditions and the following disclaimer in the
18	* documentation and/or other materials provided with the distribution.	18	* documentation and/or other materials provided with the distribution.
19	* 3. Neither the name of the University nor the names of its contributors	19	* 3. Neither the name of the University nor the names of its contributors
20	* may be used to endorse or promote products derived from this software	20	* may be used to endorse or promote products derived from this software
21	* without specific prior written permission.	21	* without specific prior written permission.
22	*	22	*
23	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND	23	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE	24	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE	25	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE	26	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL	27	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS	28	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)	29	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT	30	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY	31	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF	32	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33	* SUCH DAMAGE.	33	* SUCH DAMAGE.
34	*	34	*
35	* @(#)input.c 8.1 (Berkeley) 5/31/93	35	* @(#)input.c 8.1 (Berkeley) 5/31/93
36	*/	36	*/
37		37
38	/** @addtogroup tetris	38	/** @addtogroup tetris
39	* @{	39	* @{
40	*/	40	*/
41	/** @file	41	/** @file
42	*/	42	*/
43		43
44	/*	44	/*
45	* Tetris input.	45	* Tetris input.
46	*/	46	*/
47		47
48	#include <sys/types.h>	48	#include <sys/types.h>
49	#include <sys/time.h>	49	#include <sys/time.h>
50	#include <stdio.h>	50	#include <stdio.h>
51		51
52	#include <errno.h>	52	#include <errno.h>
53	#include <unistd.h>	53	#include <unistd.h>
54	#include <string.h>	54	#include <string.h>
55		55
56	#include "input.h"	56	#include "input.h"
57	#include "tetris.h"	57	#include "tetris.h"
58		58
59	#include <async.h>	59	#include <async.h>
60	#include <ipc/console.h>	60	#include <ipc/console.h>
61	#include <console.h>	61	#include <console.h>
62	#include <kbd/kbd.h>	62	#include <kbd/kbd.h>
63		63
64	/* return true iff the given timeval is positive */	64	/* return true iff the given timeval is positive */
65	#define TV_POS(tv) \	65	#define TV_POS(tv) \
66	((tv)->tv_sec > 0 \|\| ((tv)->tv_sec == 0 && (tv)->tv_usec > 0))	66	((tv)->tv_sec > 0 \|\| ((tv)->tv_sec == 0 && (tv)->tv_usec > 0))
67		67
68	/* subtract timeval `sub' from `res' */	68	/* subtract timeval `sub' from `res' */
69	#define TV_SUB(res, sub) \	69	#define TV_SUB(res, sub) \
70	(res)->tv_sec -= (sub)->tv_sec; \	70	(res)->tv_sec -= (sub)->tv_sec; \
71	(res)->tv_usec -= (sub)->tv_usec; \	71	(res)->tv_usec -= (sub)->tv_usec; \
72	if ((res)->tv_usec < 0) { \	72	if ((res)->tv_usec < 0) { \
73	(res)->tv_usec += 1000000; \	73	(res)->tv_usec += 1000000; \
74	(res)->tv_sec--; \	74	(res)->tv_sec--; \
75	}	75	}
76		76
77	/* We will use a hack here - if lastchar is non-zero, it is	77	/* We will use a hack here - if lastchar is non-zero, it is
78	* the last character read. We will somehow simulate the select	78	* the last character read. We will somehow simulate the select
79	* semantics.	79	* semantics.
80	*/	80	*/
81	static aid_t getchar_inprog = 0;	81	static aid_t getchar_inprog = 0;
82	static char lastchar = '\0';	82	static char lastchar = '\0';
83		83
84	/*	84	/*
85	* Do a `read wait': select for reading from stdin, with timeout *tvp.	85	* Do a `read wait': select for reading from stdin, with timeout *tvp.
86	* On return, modify *tvp to reflect the amount of time spent waiting.	86	* On return, modify *tvp to reflect the amount of time spent waiting.
87	* It will be positive only if input appeared before the time ran out;	87	* It will be positive only if input appeared before the time ran out;
88	* otherwise it will be zero or perhaps negative.	88	* otherwise it will be zero or perhaps negative.
89	*	89	*
90	* If tvp is nil, wait forever, but return if select is interrupted.	90	* If tvp is nil, wait forever, but return if select is interrupted.
91	*	91	*
92	* Return 0 => no input, 1 => can read() from stdin	92	* Return 0 => no input, 1 => can read() from stdin
93	*	93	*
94	*/	94	*/
95	int	95	int
96	rwait(struct timeval *tvp)	96	rwait(struct timeval *tvp)
97	{	97	{
98	struct timeval starttv, endtv, *s;	98	struct timeval starttv, endtv, *s;
99	static ipc_call_t charcall;	99	static ipc_call_t charcall;
100	ipcarg_t rc;	100	ipcarg_t rc;
101	int cons_phone;	101	int cons_phone;
102		102
103	/*	103	/*
104	* Someday, select() will do this for us.	104	* Someday, select() will do this for us.
105	* Just in case that day is now, and no one has	105	* Just in case that day is now, and no one has
106	* changed this, we use a temporary.	106	* changed this, we use a temporary.
107	*/	107	*/
108	if (tvp) {	108	if (tvp) {
109	(void) gettimeofday(&starttv, NULL);	109	(void) gettimeofday(&starttv, NULL);
110	endtv = *tvp;	110	endtv = *tvp;
111	s = &endtv;	111	s = &endtv;
112	} else	112	} else
113	s = NULL;	113	s = NULL;
114		114
115	if (!lastchar) {	115	if (!lastchar) {
116	again:	116	again:
117	if (!getchar_inprog) {	117	if (!getchar_inprog) {
118	cons_phone = console_phone_get(true);	118	cons_phone = console_open(true);
119	getchar_inprog = async_send_2(cons_phone,	119	getchar_inprog = async_send_2(cons_phone,
120	CONSOLE_GETKEY, 0, 0, &charcall);	120	CONSOLE_GETKEY, 0, 0, &charcall);
121	}	121	}
122	if (!s)	122	if (!s)
123	async_wait_for(getchar_inprog, &rc);	123	async_wait_for(getchar_inprog, &rc);
124	else if (async_wait_timeout(getchar_inprog, &rc, s->tv_usec) == ETIMEOUT) {	124	else if (async_wait_timeout(getchar_inprog, &rc, s->tv_usec) == ETIMEOUT) {
125	tvp->tv_sec = 0;	125	tvp->tv_sec = 0;
126	tvp->tv_usec = 0;	126	tvp->tv_usec = 0;
127	return (0);	127	return (0);
128	}	128	}
129	getchar_inprog = 0;	129	getchar_inprog = 0;
130	if (rc) {	130	if (rc) {
131	stop("end of file, help");	131	stop("end of file, help");
132	}	132	}
133	if (IPC_GET_ARG1(charcall) == KE_RELEASE)	133	if (IPC_GET_ARG1(charcall) == KE_RELEASE)
134	goto again;	134	goto again;
135		135
136	lastchar = IPC_GET_ARG4(charcall);	136	lastchar = IPC_GET_ARG4(charcall);
137	}	137	}
138	if (tvp) {	138	if (tvp) {
139	/* since there is input, we may not have timed out */	139	/* since there is input, we may not have timed out */
140	(void) gettimeofday(&endtv, NULL);	140	(void) gettimeofday(&endtv, NULL);
141	TV_SUB(&endtv, &starttv);	141	TV_SUB(&endtv, &starttv);
142	TV_SUB(tvp, &endtv); /* adjust tvp by elapsed time /	142	TV_SUB(tvp, &endtv); /* adjust tvp by elapsed time /
143	}	143	}
144	return (1);	144	return (1);
145	}	145	}
146		146
147	/*	147	/*
148	* `sleep' for the current turn time (using select).	148	* `sleep' for the current turn time (using select).
149	* Eat any input that might be available.	149	* Eat any input that might be available.
150	*/	150	*/
151	void	151	void
152	tsleep(void)	152	tsleep(void)
153	{	153	{
154	struct timeval tv;	154	struct timeval tv;
155		155
156	tv.tv_sec = 0;	156	tv.tv_sec = 0;
157	tv.tv_usec = fallrate;	157	tv.tv_usec = fallrate;
158	while (TV_POS(&tv))	158	while (TV_POS(&tv))
159	if (rwait(&tv)) {	159	if (rwait(&tv)) {
160	lastchar = '\0';	160	lastchar = '\0';
161	} else	161	} else
162	break;	162	break;
163	}	163	}
164		164
165	/*	165	/*
166	* getchar with timeout.	166	* getchar with timeout.
167	*/	167	*/
168	int	168	int
169	tgetchar(void)	169	tgetchar(void)
170	{	170	{
171	static struct timeval timeleft;	171	static struct timeval timeleft;
172	char c;	172	char c;
173		173
174	/*	174	/*
175	* Reset timeleft to fallrate whenever it is not positive.	175	* Reset timeleft to fallrate whenever it is not positive.
176	* In any case, wait to see if there is any input. If so,	176	* In any case, wait to see if there is any input. If so,
177	* take it, and update timeleft so that the next call to	177	* take it, and update timeleft so that the next call to
178	* tgetchar() will not wait as long. If there is no input,	178	* tgetchar() will not wait as long. If there is no input,
179	* make timeleft zero or negative, and return -1.	179	* make timeleft zero or negative, and return -1.
180	*	180	*
181	* Most of the hard work is done by rwait().	181	* Most of the hard work is done by rwait().
182	*/	182	*/
183	if (!TV_POS(&timeleft)) {	183	if (!TV_POS(&timeleft)) {
184	faster(); /* go faster */	184	faster(); /* go faster */
185	timeleft.tv_sec = 0;	185	timeleft.tv_sec = 0;
186	timeleft.tv_usec = fallrate;	186	timeleft.tv_usec = fallrate;
187	}	187	}
188	if (!rwait(&timeleft))	188	if (!rwait(&timeleft))
189	return (-1);	189	return (-1);
190	c = lastchar;	190	c = lastchar;
191	lastchar = '\0';	191	lastchar = '\0';
192	return ((int)(unsigned char)c);	192	return ((int)(unsigned char)c);
193	}	193	}
194		194
195	/** @}	195	/** @}
196	*/	196	*/
197		197
198		198

Subversion Repositories HelenOS

(root)/branches/dynload/uspace/app/tetris/input.c – Rev 4347 → 4348