Subversion Repositories HelenOS

Rev

Rev 4296 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4296 Rev 4420
1
/*
1
/*
2
 * Copyright (c) 2009 Jakub Jermar
2
 * Copyright (c) 2009 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 genarch
29
/** @addtogroup genarch
30
 * @{
30
 * @{
31
 */
31
 */
32
/**
32
/**
33
 * @file
33
 * @file
34
 * @brief Serial line processing.
34
 * @brief Serial line processing.
35
 */
35
 */
36
 
36
 
37
#include <genarch/srln/srln.h>
37
#include <genarch/srln/srln.h>
38
#include <console/chardev.h>
38
#include <console/chardev.h>
39
#include <console/console.h>
39
#include <console/console.h>
40
#include <proc/thread.h>
40
#include <proc/thread.h>
41
#include <arch.h>
41
#include <arch.h>
42
#include <string.h>
42
#include <string.h>
43
 
43
 
44
static indev_t srlnout;
-
 
45
 
-
 
46
indev_operations_t srlnout_ops = {
44
static indev_operations_t srln_raw_ops = {
47
    .poll = NULL
45
    .poll = NULL
48
};
46
};
49
 
47
 
50
static void ksrln(void *arg)
48
static void ksrln(void *arg)
51
{
49
{
52
    indev_t *in = (indev_t *) arg;
50
    srln_instance_t *instance = (srln_instance_t *) arg;
53
    bool cr = false;
51
    bool cr = false;
54
    uint32_t escape = 0;
52
    uint32_t escape = 0;
55
   
53
   
56
    while (true) {
54
    while (true) {
57
        wchar_t ch = _getc(in);
55
        wchar_t ch = indev_pop_character(&instance->raw);
58
       
56
       
59
        /* ANSI escape sequence processing */
57
        /* ANSI escape sequence processing */
60
        if (escape != 0) {
58
        if (escape != 0) {
61
            escape <<= 8;
59
            escape <<= 8;
62
            escape |= ch & 0xff;
60
            escape |= ch & 0xff;
63
           
61
           
64
            if ((escape == 0x1b4f) || (escape == 0x1b5b) || (escape == 0x1b5b33))
62
            if ((escape == 0x1b4f) || (escape == 0x1b5b) || (escape == 0x1b5b33))
65
                continue;
63
                continue;
66
           
64
           
67
            switch (escape) {
65
            switch (escape) {
68
            case 0x1b4f46:
66
            case 0x1b4f46:
69
            case 0x1b5b46:
67
            case 0x1b5b46:
70
                ch = U_END_ARROW;
68
                ch = U_END_ARROW;
71
                escape = 0;
69
                escape = 0;
72
                break;
70
                break;
73
            case 0x1b4f48:
71
            case 0x1b4f48:
74
            case 0x1b5b48:
72
            case 0x1b5b48:
75
                ch = U_HOME_ARROW;
73
                ch = U_HOME_ARROW;
76
                escape = 0;
74
                escape = 0;
77
                break;
75
                break;
78
            case 0x1b5b41:
76
            case 0x1b5b41:
79
                ch = U_UP_ARROW;
77
                ch = U_UP_ARROW;
80
                escape = 0;
78
                escape = 0;
81
                break;
79
                break;
82
            case 0x1b5b42:
80
            case 0x1b5b42:
83
                ch = U_DOWN_ARROW;
81
                ch = U_DOWN_ARROW;
84
                escape = 0;
82
                escape = 0;
85
                break;
83
                break;
86
            case 0x1b5b43:
84
            case 0x1b5b43:
87
                ch = U_RIGHT_ARROW;
85
                ch = U_RIGHT_ARROW;
88
                escape = 0;
86
                escape = 0;
89
                break;
87
                break;
90
            case 0x1b5b44:
88
            case 0x1b5b44:
91
                ch = U_LEFT_ARROW;
89
                ch = U_LEFT_ARROW;
92
                escape = 0;
90
                escape = 0;
93
                break;
91
                break;
94
            case 0x1b5b337e:
92
            case 0x1b5b337e:
95
                ch = U_DELETE;
93
                ch = U_DELETE;
96
                escape = 0;
94
                escape = 0;
97
                break;
95
                break;
98
            default:
96
            default:
99
                escape = 0;
97
                escape = 0;
100
            }
98
            }
101
        }
99
        }
102
       
100
       
103
        if (ch == 0x1b) {
101
        if (ch == 0x1b) {
104
            escape = ch & 0xff;
102
            escape = ch & 0xff;
105
            continue;
103
            continue;
106
        }
104
        }
107
       
105
       
108
        /* Replace carriage return with line feed
106
        /* Replace carriage return with line feed
109
           and suppress any following line feed */
107
           and suppress any following line feed */
110
        if ((ch == '\n') && (cr)) {
108
        if ((ch == '\n') && (cr)) {
111
            cr = false;
109
            cr = false;
112
            continue;
110
            continue;
113
        }
111
        }
114
       
112
       
115
        if (ch == '\r') {
113
        if (ch == '\r') {
116
            ch = '\n';
114
            ch = '\n';
117
            cr = true;
115
            cr = true;
118
        } else
116
        } else
119
            cr = false;
117
            cr = false;
120
       
118
       
121
        /* Backspace */
119
        /* Backspace */
122
        if (ch == 0x7f)
120
        if (ch == 0x7f)
123
            ch = '\b';
121
            ch = '\b';
124
       
122
       
125
        indev_push_character(stdin, ch);
123
        indev_push_character(instance->sink, ch);
126
    }
124
    }
127
}
125
}
128
 
126
 
129
void srln_init(indev_t *devin)
127
srln_instance_t *srln_init(void)
130
{
128
{
-
 
129
    srln_instance_t *instance
131
    indev_initialize("srln", &srlnout, &srlnout_ops);
130
        = malloc(sizeof(srln_instance_t), FRAME_ATOMIC);
-
 
131
    if (instance) {
132
    thread_t *thread
132
        instance->thread
133
        = thread_create(ksrln, devin, TASK, 0, "ksrln", false);
133
            = thread_create(ksrln, (void *) instance, TASK, 0, "ksrln", false);
134
   
134
       
135
    if (thread) {
135
        if (!instance->thread) {
136
        stdin = &srlnout;
136
            free(instance);
-
 
137
            return NULL;
-
 
138
        }
-
 
139
       
137
        thread_ready(thread);
140
        instance->sink = NULL;
-
 
141
        indev_initialize("srln", &instance->raw, &srln_raw_ops);
138
    }
142
    }
-
 
143
   
-
 
144
    return instance;
-
 
145
}
-
 
146
 
-
 
147
indev_t *srln_wire(srln_instance_t *instance, indev_t *sink)
-
 
148
{
-
 
149
    ASSERT(instance);
-
 
150
    ASSERT(sink);
-
 
151
   
-
 
152
    instance->sink = sink;
-
 
153
    thread_ready(instance->thread);
-
 
154
   
-
 
155
    return &instance->raw;
139
}
156
}
140
 
157
 
141
/** @}
158
/** @}
142
 */
159
 */
143
 
160