Subversion Repositories HelenOS

Rev

Rev 2089 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2089 Rev 2927
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/ski/ski.h>
35
#include <arch/ski/ski.h>
36
#include <console/console.h>
36
#include <console/console.h>
37
#include <console/chardev.h>
37
#include <console/chardev.h>
38
#include <arch/interrupt.h>
38
#include <arch/interrupt.h>
39
#include <sysinfo/sysinfo.h>
39
#include <sysinfo/sysinfo.h>
40
#include <arch/types.h>
40
#include <arch/types.h>
41
#include <ddi/device.h>
41
#include <ddi/device.h>
42
#include <ddi/irq.h>
42
#include <ddi/irq.h>
43
#include <ipc/irq.h>
43
#include <ipc/irq.h>
44
#include <proc/thread.h>
44
#include <proc/thread.h>
45
#include <synch/spinlock.h>
45
#include <synch/spinlock.h>
46
#include <arch/asm.h>
46
#include <arch/asm.h>
47
 
47
 
48
#define SKI_KBD_INR 0
48
#define SKI_KBD_INR 0
49
 
49
 
50
static irq_t ski_kbd_irq;
50
static irq_t ski_kbd_irq;
51
static devno_t ski_kbd_devno;
51
static devno_t ski_kbd_devno;
52
 
52
 
53
chardev_t ski_console;
53
chardev_t ski_console;
54
chardev_t ski_uconsole;
54
chardev_t ski_uconsole;
55
 
55
 
56
static bool kbd_disabled;
56
static bool kbd_disabled;
57
 
57
 
58
static void ski_putchar(chardev_t *d, const char ch);
58
static void ski_putchar(chardev_t *d, const char ch);
59
static int32_t ski_getchar(void);
59
static int32_t ski_getchar(void);
60
 
60
 
61
/** Display character on debug console
61
/** Display character on debug console
62
 *
62
 *
63
 * Use SSC (Simulator System Call) to
63
 * Use SSC (Simulator System Call) to
64
 * display character on debug console.
64
 * display character on debug console.
65
 *
65
 *
66
 * @param d Character device.
66
 * @param d Character device.
67
 * @param ch Character to be printed.
67
 * @param ch Character to be printed.
68
 */
68
 */
69
void ski_putchar(chardev_t *d, const char ch)
69
void ski_putchar(chardev_t *d, const char ch)
70
{
70
{
71
    asm volatile (
71
    asm volatile (
72
        "mov r15 = %0\n"
72
        "mov r15 = %0\n"
73
        "mov r32 = %1\n"    /* r32 is in0 */
73
        "mov r32 = %1\n"    /* r32 is in0 */
74
        "break 0x80000\n"   /* modifies r8 */
74
        "break 0x80000\n"   /* modifies r8 */
75
        :
75
        :
76
        : "i" (SKI_PUTCHAR), "r" (ch)
76
        : "i" (SKI_PUTCHAR), "r" (ch)
77
        : "r15", "in0", "r8"
77
        : "r15", "in0", "r8"
78
    );
78
    );
79
   
79
   
80
    if (ch == '\n')
80
    if (ch == '\n')
81
        ski_putchar(d, '\r');
81
        ski_putchar(d, '\r');
82
}
82
}
83
 
83
 
84
/** Ask debug console if a key was pressed.
84
/** Ask debug console if a key was pressed.
85
 *
85
 *
86
 * Use SSC (Simulator System Call) to
86
 * Use SSC (Simulator System Call) to
87
 * get character from debug console.
87
 * get character from debug console.
88
 *
88
 *
89
 * This call is non-blocking.
89
 * This call is non-blocking.
90
 *
90
 *
91
 * @return ASCII code of pressed key or 0 if no key pressed.
91
 * @return ASCII code of pressed key or 0 if no key pressed.
92
 */
92
 */
93
int32_t ski_getchar(void)
93
int32_t ski_getchar(void)
94
{
94
{
95
    uint64_t ch;
95
    uint64_t ch;
96
   
96
   
97
    asm volatile (
97
    asm volatile (
98
        "mov r15 = %1\n"
98
        "mov r15 = %1\n"
99
        "break 0x80000;;\n" /* modifies r8 */
99
        "break 0x80000;;\n" /* modifies r8 */
100
        "mov %0 = r8;;\n"      
100
        "mov %0 = r8;;\n"      
101
 
101
 
102
        : "=r" (ch)
102
        : "=r" (ch)
103
        : "i" (SKI_GETCHAR)
103
        : "i" (SKI_GETCHAR)
104
        : "r15", "r8"
104
        : "r15", "r8"
105
    );
105
    );
106
 
106
 
107
    return (int32_t) ch;
107
    return (int32_t) ch;
108
}
108
}
109
 
109
 
110
/**
110
/**
111
 * This is a blocking wrapper for ski_getchar().
111
 * This is a blocking wrapper for ski_getchar().
112
 * To be used when the kernel crashes.
112
 * To be used when the kernel crashes.
113
 */
113
 */
114
static char ski_getchar_blocking(chardev_t *d)
114
static char ski_getchar_blocking(chardev_t *d)
115
{
115
{
116
    int ch;
116
    int ch;
117
 
117
 
118
    while(!(ch = ski_getchar()))
118
    while(!(ch = ski_getchar()))
119
        ;
119
        ;
120
    if(ch == '\r')
120
    if(ch == '\r')
121
        ch = '\n';
121
        ch = '\n';
122
    return (char) ch;
122
    return (char) ch;
123
}
123
}
124
 
124
 
125
/** Ask keyboard if a key was pressed. */
125
/** Ask keyboard if a key was pressed. */
126
static void poll_keyboard(void)
126
static void poll_keyboard(void)
127
{
127
{
128
    char ch;
128
    char ch;
129
    static char last;
129
    static char last;
130
    ipl_t ipl;
130
    ipl_t ipl;
131
 
131
 
132
    ipl = interrupts_disable();
132
    ipl = interrupts_disable();
133
 
133
 
134
    if (kbd_disabled) {
134
    if (kbd_disabled) {
135
        interrupts_restore(ipl);
135
        interrupts_restore(ipl);
136
        return;
136
        return;
137
    }
137
    }
138
       
138
       
139
    spinlock_lock(&ski_kbd_irq.lock);
139
    spinlock_lock(&ski_kbd_irq.lock);
140
 
140
 
141
    ch = ski_getchar();
141
    ch = ski_getchar();
142
    if(ch == '\r')
142
    if(ch == '\r')
143
        ch = '\n';
143
        ch = '\n';
144
    if (ch) {
144
    if (ch) {
145
        if (ski_kbd_irq.notif_cfg.notify && ski_kbd_irq.notif_cfg.answerbox) {
145
        if (ski_kbd_irq.notif_cfg.notify && ski_kbd_irq.notif_cfg.answerbox) {
146
            chardev_push_character(&ski_uconsole, ch);
146
            chardev_push_character(&ski_uconsole, ch);
147
            ipc_irq_send_notif(&ski_kbd_irq);
147
            ipc_irq_send_notif(&ski_kbd_irq);
148
        } else {
148
        } else {
149
            chardev_push_character(&ski_console, ch);
149
            chardev_push_character(&ski_console, ch);
150
        }  
150
        }  
151
        last = ch;
151
        last = ch;
152
        spinlock_unlock(&ski_kbd_irq.lock);
152
        spinlock_unlock(&ski_kbd_irq.lock);
153
        interrupts_restore(ipl);
153
        interrupts_restore(ipl);
154
        return;
154
        return;
155
    }
155
    }
156
 
156
 
157
    if (last) {
157
    if (last) {
158
        if (ski_kbd_irq.notif_cfg.notify && ski_kbd_irq.notif_cfg.answerbox) {
158
        if (ski_kbd_irq.notif_cfg.notify && ski_kbd_irq.notif_cfg.answerbox) {
159
            chardev_push_character(&ski_uconsole, 0);
159
            chardev_push_character(&ski_uconsole, 0);
160
            ipc_irq_send_notif(&ski_kbd_irq);
160
            ipc_irq_send_notif(&ski_kbd_irq);
161
        }
161
        }
162
        last = 0;
162
        last = 0;
163
    }
163
    }
164
 
164
 
165
    spinlock_unlock(&ski_kbd_irq.lock);
165
    spinlock_unlock(&ski_kbd_irq.lock);
166
    interrupts_restore(ipl);
166
    interrupts_restore(ipl);
167
}
167
}
168
 
168
 
169
/* Called from getc(). */
169
/* Called from getc(). */
170
static void ski_kbd_enable(chardev_t *d)
170
static void ski_kbd_enable(chardev_t *d)
171
{
171
{
172
    kbd_disabled = false;
172
    kbd_disabled = false;
173
}
173
}
174
 
174
 
175
/* Called from getc(). */
175
/* Called from getc(). */
176
static void ski_kbd_disable(chardev_t *d)
176
static void ski_kbd_disable(chardev_t *d)
177
{
177
{
178
    kbd_disabled = true;   
178
    kbd_disabled = true;   
179
}
179
}
180
 
180
 
181
/** Decline to service hardware IRQ.
181
/** Decline to service hardware IRQ.
182
 *
182
 *
183
 * This is only a virtual IRQ, so always decline.
183
 * This is only a virtual IRQ, so always decline.
184
 *
184
 *
185
 * @return Always IRQ_DECLINE.
185
 * @return Always IRQ_DECLINE.
186
 */
186
 */
187
static irq_ownership_t ski_kbd_claim(void)
187
static irq_ownership_t ski_kbd_claim(void)
188
{
188
{
189
    return IRQ_DECLINE;
189
    return IRQ_DECLINE;
190
}
190
}
191
 
191
 
192
static chardev_operations_t ski_ops = {
192
static chardev_operations_t ski_ops = {
193
    .resume = ski_kbd_enable,
193
    .resume = ski_kbd_enable,
194
    .suspend = ski_kbd_disable,
194
    .suspend = ski_kbd_disable,
195
    .write = ski_putchar,
195
    .write = ski_putchar,
196
    .read = ski_getchar_blocking
196
    .read = ski_getchar_blocking
197
};
197
};
198
 
198
 
199
/** Initialize debug console
199
/** Initialize debug console
200
 *
200
 *
201
 * Issue SSC (Simulator System Call) to
201
 * Issue SSC (Simulator System Call) to
202
 * to open debug console.
202
 * to open debug console.
203
 */
203
 */
204
void ski_init_console(void)
204
void ski_init_console(void)
205
{
205
{
206
    asm volatile (
206
    asm volatile (
207
        "mov r15 = %0\n"
207
        "mov r15 = %0\n"
208
        "break 0x80000\n"
208
        "break 0x80000\n"
209
        :
209
        :
210
        : "i" (SKI_INIT_CONSOLE)
210
        : "i" (SKI_INIT_CONSOLE)
211
        : "r15", "r8"
211
        : "r15", "r8"
212
    );
212
    );
213
 
213
 
214
    chardev_initialize("ski_console", &ski_console, &ski_ops);
214
    chardev_initialize("ski_console", &ski_console, &ski_ops);
215
    chardev_initialize("ski_uconsole", &ski_uconsole, &ski_ops);
215
    chardev_initialize("ski_uconsole", &ski_uconsole, &ski_ops);
216
    stdin = &ski_console;
216
    stdin = &ski_console;
217
    stdout = &ski_console;
217
    stdout = &ski_console;
218
 
218
 
219
    ski_kbd_devno = device_assign_devno();
219
    ski_kbd_devno = device_assign_devno();
220
   
220
   
221
    irq_initialize(&ski_kbd_irq);
221
    irq_initialize(&ski_kbd_irq);
222
    ski_kbd_irq.inr = SKI_KBD_INR;
222
    ski_kbd_irq.inr = SKI_KBD_INR;
223
    ski_kbd_irq.devno = ski_kbd_devno;
223
    ski_kbd_irq.devno = ski_kbd_devno;
224
    ski_kbd_irq.claim = ski_kbd_claim;
224
    ski_kbd_irq.claim = ski_kbd_claim;
225
    irq_register(&ski_kbd_irq);
225
    irq_register(&ski_kbd_irq);
226
 
226
 
227
    sysinfo_set_item_val("kbd", NULL, true);
227
    sysinfo_set_item_val("kbd", NULL, true);
228
    sysinfo_set_item_val("kbd.inr", NULL, SKI_KBD_INR);
228
    sysinfo_set_item_val("kbd.inr", NULL, SKI_KBD_INR);
229
    sysinfo_set_item_val("kbd.devno", NULL, ski_kbd_devno);
229
    sysinfo_set_item_val("kbd.devno", NULL, ski_kbd_devno);
230
}
230
}
231
 
231
 
232
void ski_kbd_grab(void)
232
void ski_kbd_grab(void)
233
{
233
{
234
    ipl_t ipl = interrupts_disable();
234
    ipl_t ipl = interrupts_disable();
235
    spinlock_lock(&ski_kbd_irq.lock);
235
    spinlock_lock(&ski_kbd_irq.lock);
236
    ski_kbd_irq.notif_cfg.notify = false;
236
    ski_kbd_irq.notif_cfg.notify = false;
237
    spinlock_unlock(&ski_kbd_irq.lock);
237
    spinlock_unlock(&ski_kbd_irq.lock);
238
    interrupts_restore(ipl);
238
    interrupts_restore(ipl);
239
}
239
}
240
 
240
 
241
void ski_kbd_release(void)
241
void ski_kbd_release(void)
242
{
242
{
243
    ipl_t ipl = interrupts_disable();
243
    ipl_t ipl = interrupts_disable();
244
    spinlock_lock(&ski_kbd_irq.lock);
244
    spinlock_lock(&ski_kbd_irq.lock);
245
    if (ski_kbd_irq.notif_cfg.answerbox)
245
    if (ski_kbd_irq.notif_cfg.answerbox)
246
        ski_kbd_irq.notif_cfg.notify = true;
246
        ski_kbd_irq.notif_cfg.notify = true;
247
    spinlock_unlock(&ski_kbd_irq.lock);
247
    spinlock_unlock(&ski_kbd_irq.lock);
248
    interrupts_restore(ipl);
248
    interrupts_restore(ipl);
249
}
249
}
250
 
250
 
251
 
251
 
252
#define POLL_INTERVAL       50000       /* 50 ms */
252
#define POLL_INTERVAL       50000       /* 50 ms */
253
 
253
 
254
/** Kernel thread for polling keyboard. */
254
/** Kernel thread for polling keyboard. */
255
void kkbdpoll(void *arg)
255
void kkbdpoll(void *arg)
256
{
256
{
257
    while (1) {
257
    while (1) {
258
        poll_keyboard();
258
        poll_keyboard();
259
        thread_usleep(POLL_INTERVAL);
259
        thread_usleep(POLL_INTERVAL);
260
    }
260
    }
261
}
261
}
262
 
262
 
263
/** @}
263
/** @}
264
 */
264
 */
265
 
265