WebSVN – HelenOS – Diff – /branches/dynload/kernel/arch/ia64/src/drivers/ski.c


/*
 * Copyright (c) 2005 Jakub Jermar
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - 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.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */
 
/** @addtogroup ia64
 * @{
 */
/** @file
 */
 
#include <arch/drivers/ski.h>
#include <console/console.h>
#include <console/chardev.h>
#include <sysinfo/sysinfo.h>
#include <arch/types.h>
#include <proc/thread.h>
#include <synch/spinlock.h>
#include <arch/asm.h>
#include <arch/drivers/kbd.h>
#include <string.h>
#include <arch.h>
 
#define POLL_INTERVAL  10000  /* 10 ms */
 
#define SKI_INIT_CONSOLE  20
#define SKI_GETCHAR       21
#define SKI_PUTCHAR       31
 
static void ski_putchar(outdev_t *, const wchar_t, bool);
 
static outdev_operations_t skiout_ops = {
    .write = ski_putchar
};
 
static outdev_t skiout;            /**< Ski output device. */
static bool initialized = false;
static bool kbd_disabled = false;
 
/** Initialize debug console
 *
 * Issue SSC (Simulator System Call) to
 * to open debug console.
 *
 */
static void ski_init(void)
{
    if (initialized)
        return;
   
    asm volatile (
        "mov r15 = %0\n"
        "break 0x80000\n"
        :
        : "i" (SKI_INIT_CONSOLE)
        : "r15", "r8"
    );
   
    initialized = true;
}
 
static void ski_do_putchar(const wchar_t ch)
{
    asm volatile (
        "mov r15 = %[cmd]\n"
        "mov r32 = %[ch]\n"   /* r32 is in0 */
        "break 0x80000\n"     /* modifies r8 */
        :
        : [cmd] "i" (SKI_PUTCHAR), [ch] "r" (ch)
        : "r15", "in0", "r8"
    );
}
 
/** Display character on debug console
 *
 * Use SSC (Simulator System Call) to
 * display character on debug console.
 *
 * @param dev    Character device.
 * @param ch     Character to be printed.
 * @param silent Whether the output should be silenced.
 *
 */
static void ski_putchar(outdev_t *dev, const wchar_t ch, bool silent)
{
    if (!silent) {
        if (ascii_check(ch)) {
            if (ch == '\n')
                ski_do_putchar('\r');
           
            ski_do_putchar(ch);
        } else
            ski_do_putchar(U_SPECIAL);
    }
}
 
void skiout_init(void)
{
    ski_init();
   
    outdev_initialize("skiout", &skiout, &skiout_ops);
    stdout = &skiout;
   
    sysinfo_set_item_val("fb", NULL, false);
}
 
/** Ask debug console if a key was pressed.
 *
 * Use SSC (Simulator System Call) to
 * get character from debug console.
 *
 * This call is non-blocking.
 *
 * @return ASCII code of pressed key or 0 if no key pressed.
 *
 */
static wchar_t ski_getchar(void)
{
    uint64_t ch;
   
    asm volatile (
        "mov r15 = %1\n"
        "break 0x80000;;\n"  /* modifies r8 */
        "mov %0 = r8;;\n"
       
        : "=r" (ch)
        : "i" (SKI_GETCHAR)
        : "r15", "r8"
    );
   
    return (wchar_t) ch;
}
 
/** Ask keyboard if a key was pressed. */
static void poll_keyboard(ski_instance_t *instance)
{
    if (kbd_disabled)
        return;
   
    wchar_t ch = ski_getchar();
   
    if (ch != 0)
        indev_push_character(instance->srlnin, ch);
}
 
/** Kernel thread for polling keyboard. */
static void kskipoll(void *arg)
{
    ski_instance_t *instance = (ski_instance_t *) arg;
   
    while (true) {
        if (!silent)
            poll_keyboard(instance);
       
        thread_usleep(POLL_INTERVAL);
    }
}
 
ski_instance_t *skiin_init(void)
{
    ski_init();
   
    ski_instance_t *instance =
        malloc(sizeof(ski_instance_t), FRAME_ATOMIC);
   
    if (instance) {
        instance->thread = thread_create(kskipoll, instance, TASK, 0,
            "kskipoll", true);
       
        if (!instance->thread) {
            free(instance);
            return NULL;
        }
       
        instance->srlnin = NULL;
    }
   
    return instance;
}
 
void skiin_wire(ski_instance_t *instance, indev_t *srlnin)
{
    ASSERT(instance);
    ASSERT(srlnin);
   
    instance->srlnin = srlnin;
    thread_ready(instance->thread);
   
    sysinfo_set_item_val("kbd", NULL, true);
    sysinfo_set_item_val("kbd.type", NULL, KBD_SKI);
}
 
void ski_kbd_grab(void)
{
    kbd_disabled = false;
}
 
void ski_kbd_release(void)
{
    kbd_disabled = true;
}
 
/** @}
 */
 

Rev 4313	Rev 4348
1	/*	1	/*
2	* Copyright (c) 2005 Jakub Jermar	2	* Copyright (c) 2005 Jakub Jermar
3	* All rights reserved.	3	* All rights reserved.
4	*	4	*
5	* Redistribution and use in source and binary forms, with or without	5	* Redistribution and use in source and binary forms, with or without
6	* modification, are permitted provided that the following conditions	6	* modification, are permitted provided that the following conditions
7	* are met:	7	* are met:
8	*	8	*
9	* - Redistributions of source code must retain the above copyright	9	* - Redistributions of source code must retain the above copyright
10	* notice, this list of conditions and the following disclaimer.	10	* notice, this list of conditions and the following disclaimer.
11	* - Redistributions in binary form must reproduce the above copyright	11	* - Redistributions in binary form must reproduce the above copyright
12	* notice, this list of conditions and the following disclaimer in the	12	* notice, this list of conditions and the following disclaimer in the
13	* documentation and/or other materials provided with the distribution.	13	* documentation and/or other materials provided with the distribution.
14	* - The name of the author may not be used to endorse or promote products	14	* - The name of the author may not be used to endorse or promote products
15	* derived from this software without specific prior written permission.	15	* derived from this software without specific prior written permission.
16	*	16	*
17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.	19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,	20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT	21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,	22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY	23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF	25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27	*/	27	*/
28		28
29	/** @addtogroup ia64	29	/** @addtogroup ia64
30	* @{	30	* @{
31	*/	31	*/
32	/** @file	32	/** @file
33	*/	33	*/
34		34
35	#include <arch/drivers/ski.h>	35	#include <arch/drivers/ski.h>
36	#include <console/console.h>	36	#include <console/console.h>
37	#include <console/chardev.h>	37	#include <console/chardev.h>
38	#include <sysinfo/sysinfo.h>	38	#include <sysinfo/sysinfo.h>
39	#include <arch/types.h>	39	#include <arch/types.h>
40	#include <proc/thread.h>	40	#include <proc/thread.h>
41	#include <synch/spinlock.h>	41	#include <synch/spinlock.h>
42	#include <arch/asm.h>	42	#include <arch/asm.h>
43	#include <arch/drivers/kbd.h>	43	#include <arch/drivers/kbd.h>
44	#include <string.h>	44	#include <string.h>
45	#include <arch.h>	45	#include <arch.h>
46		46
47	#define POLL_INTERVAL 10000 /* 10 ms */	47	#define POLL_INTERVAL 10000 /* 10 ms */
48		48
49	#define SKI_INIT_CONSOLE 20	49	#define SKI_INIT_CONSOLE 20
50	#define SKI_GETCHAR 21	50	#define SKI_GETCHAR 21
51	#define SKI_PUTCHAR 31	51	#define SKI_PUTCHAR 31
52		52
53	static void ski_putchar(outdev_t *, const wchar_t, bool);	53	static void ski_putchar(outdev_t *, const wchar_t, bool);
54		54
55	static outdev_operations_t skiout_ops = {	55	static outdev_operations_t skiout_ops = {
56	.write = ski_putchar	56	.write = ski_putchar
57	};	57	};
58		58
59	static outdev_t skiout; /*< Ski output device. /	59	static outdev_t skiout; /*< Ski output device. /
60	static bool initialized = false;	60	static bool initialized = false;
61	static bool kbd_disabled = false;	61	static bool kbd_disabled = false;
62		62
63	/** Initialize debug console	63	/** Initialize debug console
64	*	64	*
65	* Issue SSC (Simulator System Call) to	65	* Issue SSC (Simulator System Call) to
66	* to open debug console.	66	* to open debug console.
67	*	67	*
68	*/	68	*/
69	static void ski_init(void)	69	static void ski_init(void)
70	{	70	{
71	if (initialized)	71	if (initialized)
72	return;	72	return;
73		73
74	asm volatile (	74	asm volatile (
75	"mov r15 = %0\n"	75	"mov r15 = %0\n"
76	"break 0x80000\n"	76	"break 0x80000\n"
77	:	77	:
78	: "i" (SKI_INIT_CONSOLE)	78	: "i" (SKI_INIT_CONSOLE)
79	: "r15", "r8"	79	: "r15", "r8"
80	);	80	);
81		81
82	initialized = true;	82	initialized = true;
83	}	83	}
84		84
85	static void ski_do_putchar(const wchar_t ch)	85	static void ski_do_putchar(const wchar_t ch)
86	{	86	{
87	asm volatile (	87	asm volatile (
88	"mov r15 = %[cmd]\n"	88	"mov r15 = %[cmd]\n"
89	"mov r32 = %[ch]\n" /* r32 is in0 */	89	"mov r32 = %[ch]\n" /* r32 is in0 */
90	"break 0x80000\n" /* modifies r8 */	90	"break 0x80000\n" /* modifies r8 */
91	:	91	:
92	: [cmd] "i" (SKI_PUTCHAR), [ch] "r" (ch)	92	: [cmd] "i" (SKI_PUTCHAR), [ch] "r" (ch)
93	: "r15", "in0", "r8"	93	: "r15", "in0", "r8"
94	);	94	);
95	}	95	}
96		96
97	/** Display character on debug console	97	/** Display character on debug console
98	*	98	*
99	* Use SSC (Simulator System Call) to	99	* Use SSC (Simulator System Call) to
100	* display character on debug console.	100	* display character on debug console.
101	*	101	*
102	* @param dev Character device.	102	* @param dev Character device.
103	* @param ch Character to be printed.	103	* @param ch Character to be printed.
104	* @param silent Whether the output should be silenced.	104	* @param silent Whether the output should be silenced.
105	*	105	*
106	*/	106	*/
107	static void ski_putchar(outdev_t *dev, const wchar_t ch, bool silent)	107	static void ski_putchar(outdev_t *dev, const wchar_t ch, bool silent)
108	{	108	{
109	if (!silent) {	109	if (!silent) {
110	if (ascii_check(ch)) {	110	if (ascii_check(ch)) {
111	if (ch == '\n')	111	if (ch == '\n')
112	ski_do_putchar('\r');	112	ski_do_putchar('\r');
113		113
114	ski_do_putchar(ch);	114	ski_do_putchar(ch);
115	} else	115	} else
116	ski_do_putchar(U_SPECIAL);	116	ski_do_putchar(U_SPECIAL);
117	}	117	}
118	}	118	}
119		119
120	void skiout_init(void)	120	void skiout_init(void)
121	{	121	{
122	ski_init();	122	ski_init();
123		123
124	outdev_initialize("skiout", &skiout, &skiout_ops);	124	outdev_initialize("skiout", &skiout, &skiout_ops);
125	stdout = &skiout;	125	stdout = &skiout;
126		126
127	sysinfo_set_item_val("fb", NULL, false);	127	sysinfo_set_item_val("fb", NULL, false);
128	}	128	}
129		129
130	/** Ask debug console if a key was pressed.	130	/** Ask debug console if a key was pressed.
131	*	131	*
132	* Use SSC (Simulator System Call) to	132	* Use SSC (Simulator System Call) to
133	* get character from debug console.	133	* get character from debug console.
134	*	134	*
135	* This call is non-blocking.	135	* This call is non-blocking.
136	*	136	*
137	* @return ASCII code of pressed key or 0 if no key pressed.	137	* @return ASCII code of pressed key or 0 if no key pressed.
138	*	138	*
139	*/	139	*/
140	static wchar_t ski_getchar(void)	140	static wchar_t ski_getchar(void)
141	{	141	{
142	uint64_t ch;	142	uint64_t ch;
143		143
144	asm volatile (	144	asm volatile (
145	"mov r15 = %1\n"	145	"mov r15 = %1\n"
146	"break 0x80000;;\n" /* modifies r8 */	146	"break 0x80000;;\n" /* modifies r8 */
147	"mov %0 = r8;;\n"	147	"mov %0 = r8;;\n"
148		148
149	: "=r" (ch)	149	: "=r" (ch)
150	: "i" (SKI_GETCHAR)	150	: "i" (SKI_GETCHAR)
151	: "r15", "r8"	151	: "r15", "r8"
152	);	152	);
153		153
154	return (wchar_t) ch;	154	return (wchar_t) ch;
155	}	155	}
156		156
157	/** Ask keyboard if a key was pressed. */	157	/** Ask keyboard if a key was pressed. */
158	static void poll_keyboard(ski_instance_t *instance)	158	static void poll_keyboard(ski_instance_t *instance)
159	{	159	{
160	if (kbd_disabled)	160	if (kbd_disabled)
161	return;	161	return;
162		162
163	wchar_t ch = ski_getchar();	163	wchar_t ch = ski_getchar();
164		164
165	if (ch != 0)	165	if (ch != 0)
166	indev_push_character(instance->srlnin, ch);	166	indev_push_character(instance->srlnin, ch);
167	}	167	}
168		168
169	/** Kernel thread for polling keyboard. */	169	/** Kernel thread for polling keyboard. */
170	static void kskipoll(void *arg)	170	static void kskipoll(void *arg)
171	{	171	{
172	ski_instance_t instance = (ski_instance_t ) arg;	172	ski_instance_t instance = (ski_instance_t ) arg;
173		173
174	while (true) {	174	while (true) {
175	if (!silent)	175	if (!silent)
176	poll_keyboard(instance);	176	poll_keyboard(instance);
177		177
178	thread_usleep(POLL_INTERVAL);	178	thread_usleep(POLL_INTERVAL);
179	}	179	}
180	}	180	}
181		181
182	ski_instance_t *skiin_init(void)	182	ski_instance_t *skiin_init(void)
183	{	183	{
184	ski_init();	184	ski_init();
185		185
186	ski_instance_t *instance =	186	ski_instance_t *instance =
187	malloc(sizeof(ski_instance_t), FRAME_ATOMIC);	187	malloc(sizeof(ski_instance_t), FRAME_ATOMIC);
188		188
189	if (instance) {	189	if (instance) {
190	instance->thread = thread_create(kskipoll, instance, TASK, 0,	190	instance->thread = thread_create(kskipoll, instance, TASK, 0,
191	"kskipoll", true);	191	"kskipoll", true);
192		192
193	if (!instance->thread) {	193	if (!instance->thread) {
194	free(instance);	194	free(instance);
195	return NULL;	195	return NULL;
196	}	196	}
197		197
198	instance->srlnin = NULL;	198	instance->srlnin = NULL;
199	}	199	}
200		200
201	return instance;	201	return instance;
202	}	202	}
203		203
204	void skiin_wire(ski_instance_t instance, indev_t srlnin)	204	void skiin_wire(ski_instance_t instance, indev_t srlnin)
205	{	205	{
206	ASSERT(instance);	206	ASSERT(instance);
207	ASSERT(srlnin);	207	ASSERT(srlnin);
208		208
209	instance->srlnin = srlnin;	209	instance->srlnin = srlnin;
210	thread_ready(instance->thread);	210	thread_ready(instance->thread);
211		211
212	sysinfo_set_item_val("kbd", NULL, true);	212	sysinfo_set_item_val("kbd", NULL, true);
213	sysinfo_set_item_val("kbd.type", NULL, KBD_SKI);	213	sysinfo_set_item_val("kbd.type", NULL, KBD_SKI);
214	}	214	}
215		215
216	void ski_kbd_grab(void)	216	void ski_kbd_grab(void)
217	{	217	{
218	kbd_disabled = true;	218	kbd_disabled = false;
219	}	219	}
220		220
221	void ski_kbd_release(void)	221	void ski_kbd_release(void)
222	{	222	{
223	kbd_disabled = false;	223	kbd_disabled = true;
224	}	224	}
225		225
226	/** @}	226	/** @}
227	*/	227	*/
228		228

Subversion Repositories HelenOS

(root)/branches/dynload/kernel/arch/ia64/src/drivers/ski.c – Rev 4313 → 4348