Subversion Repositories HelenOS

Rev

Rev 2131 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
78 jermar 1
/*
2071 jermar 2
 * Copyright (c) 2005 Jakub Jermar
78 jermar 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
 *
9
 * - Redistributions of source code must retain the above copyright
10
 *   notice, this list of conditions and the following disclaimer.
11
 * - Redistributions in binary form must reproduce the above copyright
12
 *   notice, this list of conditions and the following disclaimer in the
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
15
 *   derived from this software without specific prior written permission.
16
 *
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
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
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
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
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
28
 
1888 jermar 29
/** @addtogroup ia64   
1702 cejka 30
 * @{
31
 */
32
/** @file
33
 */
34
 
78 jermar 35
#include <arch/ski/ski.h>
577 palkovsky 36
#include <console/console.h>
37
#include <console/chardev.h>
1507 vana 38
#include <arch/interrupt.h>
39
#include <sysinfo/sysinfo.h>
1942 jermar 40
#include <arch/types.h>
41
#include <ddi/device.h>
42
#include <ddi/irq.h>
43
#include <ipc/irq.h>
1945 jermar 44
#include <proc/thread.h>
1942 jermar 45
#include <synch/spinlock.h>
46
#include <arch/asm.h>
2456 hudecek 47
#include <synch/rcu.h>
78 jermar 48
 
1942 jermar 49
#define SKI_KBD_INR 0
50
 
51
static irq_t ski_kbd_irq;
52
static devno_t ski_kbd_devno;
53
 
1507 vana 54
chardev_t ski_console;
55
chardev_t ski_uconsole;
78 jermar 56
 
1942 jermar 57
static bool kbd_disabled;
58
 
586 jermar 59
static void ski_putchar(chardev_t *d, const char ch);
1780 jermar 60
static int32_t ski_getchar(void);
583 jermar 61
 
79 jermar 62
/** Display character on debug console
63
 *
64
 * Use SSC (Simulator System Call) to
65
 * display character on debug console.
66
 *
583 jermar 67
 * @param d Character device.
68
 * @param ch Character to be printed.
79 jermar 69
 */
586 jermar 70
void ski_putchar(chardev_t *d, const char ch)
78 jermar 71
{
2082 decky 72
    asm volatile (
1942 jermar 73
        "mov r15 = %0\n"
74
        "mov r32 = %1\n"    /* r32 is in0 */
78 jermar 75
        "break 0x80000\n"   /* modifies r8 */
76
        :
77
        : "i" (SKI_PUTCHAR), "r" (ch)
78
        : "r15", "in0", "r8"
79
    );
80
 
583 jermar 81
    if (ch == '\n')
586 jermar 82
        ski_putchar(d, '\r');
78 jermar 83
}
519 vana 84
 
523 jermar 85
/** Ask debug console if a key was pressed.
519 vana 86
 *
87
 * Use SSC (Simulator System Call) to
88
 * get character from debug console.
523 jermar 89
 *
90
 * This call is non-blocking.
91
 *
92
 * @return ASCII code of pressed key or 0 if no key pressed.
519 vana 93
 */
1780 jermar 94
int32_t ski_getchar(void)
519 vana 95
{
1780 jermar 96
    uint64_t ch;
519 vana 97
 
2082 decky 98
    asm volatile (
1942 jermar 99
        "mov r15 = %1\n"
519 vana 100
        "break 0x80000;;\n" /* modifies r8 */
1942 jermar 101
        "mov %0 = r8;;\n"      
519 vana 102
 
584 jermar 103
        : "=r" (ch)
104
        : "i" (SKI_GETCHAR)
1942 jermar 105
        : "r15", "r8"
519 vana 106
    );
107
 
1780 jermar 108
    return (int32_t) ch;
519 vana 109
}
577 palkovsky 110
 
892 vana 111
/**
893 jermar 112
 * This is a blocking wrapper for ski_getchar().
113
 * To be used when the kernel crashes.
114
 */
892 vana 115
static char ski_getchar_blocking(chardev_t *d)
116
{
893 jermar 117
    int ch;
118
 
1942 jermar 119
    while(!(ch = ski_getchar()))
893 jermar 120
        ;
121
    if(ch == '\r')
122
        ch = '\n';
892 vana 123
    return (char) ch;
124
}
125
 
577 palkovsky 126
/** Ask keyboard if a key was pressed. */
1945 jermar 127
static void poll_keyboard(void)
577 palkovsky 128
{
129
    char ch;
1570 vana 130
    static char last;
1942 jermar 131
    ipl_t ipl;
577 palkovsky 132
 
1942 jermar 133
    ipl = interrupts_disable();
134
 
135
    if (kbd_disabled) {
136
        interrupts_restore(ipl);
577 palkovsky 137
        return;
1942 jermar 138
    }
139
 
140
    spinlock_lock(&ski_kbd_irq.lock);
577 palkovsky 141
 
142
    ch = ski_getchar();
143
    if(ch == '\r')
144
        ch = '\n';
1942 jermar 145
    if (ch) {
2456 hudecek 146
        if (rcu_dereference_pointer(ski_kbd_irq.notif_cfg).notify && rcu_dereference_pointer(ski_kbd_irq.notif_cfg).answerbox) {
1507 vana 147
            chardev_push_character(&ski_uconsole, ch);
1942 jermar 148
            ipc_irq_send_notif(&ski_kbd_irq);
149
        } else {
1507 vana 150
            chardev_push_character(&ski_console, ch);
1570 vana 151
        }  
1942 jermar 152
        last = ch;
153
        spinlock_unlock(&ski_kbd_irq.lock);
154
        interrupts_restore(ipl);
1570 vana 155
        return;
1942 jermar 156
    }
1507 vana 157
 
1942 jermar 158
    if (last) {
2456 hudecek 159
        if (rcu_dereference_pointer(ski_kbd_irq.notif_cfg).notify && rcu_dereference_pointer(ski_kbd_irq.notif_cfg).answerbox) {
1570 vana 160
            chardev_push_character(&ski_uconsole, 0);
1942 jermar 161
            ipc_irq_send_notif(&ski_kbd_irq);
1570 vana 162
        }
1942 jermar 163
        last = 0;
164
    }
1570 vana 165
 
1942 jermar 166
    spinlock_unlock(&ski_kbd_irq.lock);
167
    interrupts_restore(ipl);
577 palkovsky 168
}
169
 
170
/* Called from getc(). */
1942 jermar 171
static void ski_kbd_enable(chardev_t *d)
577 palkovsky 172
{
1942 jermar 173
    kbd_disabled = false;
577 palkovsky 174
}
175
 
176
/* Called from getc(). */
1942 jermar 177
static void ski_kbd_disable(chardev_t *d)
577 palkovsky 178
{
1942 jermar 179
    kbd_disabled = true;   
577 palkovsky 180
}
181
 
1942 jermar 182
/** Decline to service hardware IRQ.
183
 *
184
 * This is only a virtual IRQ, so always decline.
185
 *
186
 * @return Always IRQ_DECLINE.
187
 */
188
static irq_ownership_t ski_kbd_claim(void)
189
{
190
    return IRQ_DECLINE;
191
}
192
 
577 palkovsky 193
static chardev_operations_t ski_ops = {
1942 jermar 194
    .resume = ski_kbd_enable,
195
    .suspend = ski_kbd_disable,
892 vana 196
    .write = ski_putchar,
197
    .read = ski_getchar_blocking
577 palkovsky 198
};
199
 
200
/** Initialize debug console
201
 *
202
 * Issue SSC (Simulator System Call) to
203
 * to open debug console.
204
 */
205
void ski_init_console(void)
206
{
2082 decky 207
    asm volatile (
1942 jermar 208
        "mov r15 = %0\n"
577 palkovsky 209
        "break 0x80000\n"
210
        :
211
        : "i" (SKI_INIT_CONSOLE)
212
        : "r15", "r8"
213
    );
214
 
215
    chardev_initialize("ski_console", &ski_console, &ski_ops);
1507 vana 216
    chardev_initialize("ski_uconsole", &ski_uconsole, &ski_ops);
577 palkovsky 217
    stdin = &ski_console;
218
    stdout = &ski_console;
1507 vana 219
 
1942 jermar 220
    ski_kbd_devno = device_assign_devno();
221
 
222
    irq_initialize(&ski_kbd_irq);
223
    ski_kbd_irq.inr = SKI_KBD_INR;
224
    ski_kbd_irq.devno = ski_kbd_devno;
225
    ski_kbd_irq.claim = ski_kbd_claim;
226
    irq_register(&ski_kbd_irq);
227
 
228
    sysinfo_set_item_val("kbd", NULL, true);
229
    sysinfo_set_item_val("kbd.inr", NULL, SKI_KBD_INR);
230
    sysinfo_set_item_val("kbd.devno", NULL, ski_kbd_devno);
1507 vana 231
}
1702 cejka 232
 
1942 jermar 233
void ski_kbd_grab(void)
234
{
1944 jermar 235
    ipl_t ipl = interrupts_disable();
2456 hudecek 236
    //rcu_read_lock() is not needed, ints are disabled
237
    //rcu: atomic update doesn't need reallocation
238
    rcu_dereference_pointer(ski_kbd_irq.notif_cfg).notify = false;
1944 jermar 239
    interrupts_restore(ipl);
1942 jermar 240
}
241
 
242
void ski_kbd_release(void)
243
{
1944 jermar 244
    ipl_t ipl = interrupts_disable();
2456 hudecek 245
    //rcu: atomic update doesn't need reallocation
1944 jermar 246
    spinlock_lock(&ski_kbd_irq.lock);
2456 hudecek 247
    if (rcu_dereference_pointer(ski_kbd_irq.notif_cfg).answerbox)
248
        rcu_dereference_pointer(ski_kbd_irq.notif_cfg).notify = true;
1944 jermar 249
    spinlock_unlock(&ski_kbd_irq.lock);
250
    interrupts_restore(ipl);
1942 jermar 251
}
252
 
1945 jermar 253
 
254
#define POLL_INTERVAL       50000       /* 50 ms */
255
 
256
/** Kernel thread for polling keyboard. */
257
void kkbdpoll(void *arg)
258
{
259
    while (1) {
260
        poll_keyboard();
261
        thread_usleep(POLL_INTERVAL);
262
    }
263
}
264
 
1888 jermar 265
/** @}
1702 cejka 266
 */