Subversion Repositories shark

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 pj 1
/*
2
 * Project: S.Ha.R.K.
3
 *
4
 * Coordinators:
5
 *   Giorgio Buttazzo    <giorgio@sssup.it>
6
 *   Paolo Gai           <pj@gandalf.sssup.it>
7
 *
8
 * Authors     :
9
 *   Paolo Gai           <pj@gandalf.sssup.it>
10
 *   Massimiliano Giorgi <massy@gandalf.sssup.it>
11
 *   Luca Abeni          <luca@gandalf.sssup.it>
12
 *   (see the web pages for full authors list)
13
 *
14
 * ReTiS Lab (Scuola Superiore S.Anna - Pisa - Italy)
15
 *
16
 * http://www.sssup.it
17
 * http://retis.sssup.it
18
 * http://shark.sssup.it
19
 */
20
 
21
/**
22
 ------------
23
 CVS :        $Id: crtwin.c,v 1.1.1.1 2002-03-29 14:12:49 pj Exp $
24
 
25
 File:        $File$
26
 Revision:    $Revision: 1.1.1.1 $
27
 Last update: $Date: 2002-03-29 14:12:49 $
28
 ------------
29
 
30
 Author:        Gerardo Lamastra
31
 Date:  9/5/96
32
 
33
 File:  CrtWin.C
34
 Revision:      1.1g
35
 
36
 Text windowing functions for S.Ha.R.K.
37
 
38
**/
39
 
40
/*
41
 * Copyright (C) 2000 Paolo Gai
42
 *
43
 * This program is free software; you can redistribute it and/or modify
44
 * it under the terms of the GNU General Public License as published by
45
 * the Free Software Foundation; either version 2 of the License, or
46
 * (at your option) any later version.
47
 *
48
 * This program is distributed in the hope that it will be useful,
49
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
50
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
51
 * GNU General Public License for more details.
52
 *
53
 * You should have received a copy of the GNU General Public License
54
 * along with this program; if not, write to the Free Software
55
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
56
 *
57
 */
58
 
59
//#include <string.h>
60
//#include <cons.h>
61
 
62
#include <kernel/kern.h>
63
#include <ll/string.h>
64
#include <drivers/keyb.h>
65
#include <drivers/keycode.h>
66
#include <drivers/crtwin.h>
67
 
68
#define CUPS1   201        /* Definizione caratteri per */
69
#define LOR1    205        /* La cornice delle varie    */
70
#define CUPD1   187        /* Finestre                  */
71
#define LVR1    186
72
#define CDWS1   200
73
#define CDWD1   188
74
 
75
#define CUPS2   218
76
#define LOR2    196
77
#define CUPD2   191
78
#define LVR2    179
79
#define CDWS2   192
80
#define CDWD2   217
81
 
82
void win_init(WIN *w, int x, int y, int dx, int dy)
83
{
84
    w->x = x;
85
    w->y = y;
86
    w->dx = dx;
87
    w->dy = dy;
88
 
89
    w->px = 0;
90
    w->py = 0;
91
}
92
 
93
void win_clear(WIN *w)
94
{
95
    _clear(' ',WHITE,w->x+1,w->y+1,w->x+w->dx-1,w->y+w->dy-1);
96
}
97
 
98
void win_scroll(WIN *w)
99
{
100
    _scroll(WHITE,w->x+1,w->y+1,w->x+w->dx-1,w->y+w->dy-1);
101
}
102
 
103
void win_frame(WIN *w,BYTE bcol,BYTE fcol,char *title,BYTE type)
104
{
105
    unsigned char var,var2,len;
106
    register int i;
107
    char cus,lv,cud,lo,cds,cdd,cl = ((bcol << 4) | fcol);
108
    len = strlen(title);
109
    switch(type) {
110
               case 1 : cus = CUPS1; lv = LVR1;   cud = CUPD1;
111
                        lo = LOR1;   cds = CDWS1; cdd = CDWD1;
112
                        break;
113
               case 2 : cus = CUPS2; lv = LVR2;   cud = CUPD2;
114
                        lo = LOR2;   cds = CDWS2; cdd = CDWD2;
115
                        break;
116
               default : cus = lv = cud = lo = cds = cdd = 32;
117
                         break;
118
    }
119
    for (i = w->x+1; i < w->x+w->dx; i++) {
120
        putc_xy(i,w->y,cl,lo);
121
        putc_xy(i,w->y+w->dy,cl,lo);
122
    }
123
    putc_xy(w->x+w->dx,w->y,cl,cud);
124
    putc_xy(w->x,w->y,cl,cus);
125
 
126
    if (title != NULL) {
127
        var2 = w->x+(w->dx/2) - len/2 - 1;
128
        var = 0;
129
        putc_xy(var2,w->y,cl,'[');
130
        puts_xy(var2+1,w->y,cl,title);
131
        putc_xy(var2+len+1,w->y,cl,']');
132
    }
133
 
134
    for (i = w->y+1; i < w->y+w->dy; i++) {
135
        putc_xy(w->x,i,cl,lv);
136
        putc_xy(w->x+w->dx,i,cl,lv);
137
    }
138
    putc_xy(w->x,w->y+w->dy,cl,cds);
139
    putc_xy(w->x+w->dx,w->y+w->dy,cl,cdd);
140
}
141
 
142
void win_puts(WIN *w1, char *s)
143
{
144
    unsigned pos;
145
    char c;
146
    static unsigned short scan_x,x,y;
147
    WIN w;
148
 
149
    w = *w1;
150
    x = w.px + w.x + 1;
151
    y = w.py + w.y + 1;
152
 
153
    pos = 2*(y*80 + x);
154
    while (*s != '\0') {
155
        c = *s++;
156
        switch (c) {
157
            case '\t' : x += 8;
158
                        if (x >= w.x+w.dx) {
159
                            x = w.x+1;
160
                            if (y == w.y+w.dy-1) win_scroll(&w);
161
                            else y++;
162
                        } else {
163
                            scan_x = w.x+1;
164
                            while ((scan_x+8) < x) scan_x += 8;
165
                            x = scan_x;
166
                        }
167
                        pos = 2*(x + 80*y);
168
                        break;
169
            case '\n' : y += (x - w.x - 1) / w.dx + 1;
170
                        x = w.x + 1;
171
                        while (y > (w.y+w.dy-1)) {
172
                            win_scroll(&w);
173
                            y--;
174
                        }
175
                        pos = 2*(x + 80*y);
176
                        break;
177
            case '\b' : putc_xy(x-1,y,WHITE,' ');
178
                        break;
179
            default   : putc_xy(x,y,WHITE,c);
180
                        pos += 2;
181
                        x++;
182
                        if (x >= w.x + w.dx) {
183
                            x = w.x+1;
184
                            if (y >= (w.y + w.dy - 1)) win_scroll(&w);
185
                            else y++;
186
                            pos = 2*(x + 80*y);
187
                        }
188
        }
189
    }
190
    if (x > (w.x+w.dx-1)) {
191
        y += (x - w.x - 1) / w.dx;
192
        x = (x - w.x - 1) % w.dx + w.x + 1;
193
        while (y >= (w.y+w.dy)) {
194
            win_scroll(&w);
195
            y--;
196
        }
197
    }
198
    w1->px = x - w.x - 1;
199
    w1->py = y - w.y - 1;
200
}
201
 
202
int win_gets(WIN *w, char *s,int len)
203
{
204
    int strpos = 0,lungh = 0;
205
    int x,y,tx,ty,i;
206
    BYTE flag = FALSE;
207
    KEY_EVT c;
208
 
209
    x = w->px + w->x + 1;
210
    y = w->py + w->y + 1;
211
    s[0] = 0;
212
    place(x,y);
213
 
214
    while (!flag) {
215
        keyb_getcode(&c,BLOCK);
216
        if (isScanCode(c) && (c.scan == LEFT_KEY) && (strpos > 0)) {
217
            strpos--;
218
            x--;
219
            if (x <= w->x) {
220
                x = w->x + w->dx - 1;
221
                y--;
222
                if (y <= w->y) y = w->y + 1;
223
            }
224
            place(x,y);
225
        }
226
        else if (isScanCode(c) && (c.scan == RIGHT_KEY) && s[strpos] != 0) {
227
            strpos++;
228
            x++;
229
            if (x >= (w->x + w->dx)) {
230
                x = w->x + 1;
231
                y++;
232
                if (y >= (w->y + w->dy)) {
233
                    y--;
234
                    win_scroll(w);
235
                }
236
            }
237
            place(x,y);
238
        }
239
        switch (c.ascii) {
240
            case ENTER :
241
                if (!isScanCode(c)) flag = TRUE;
242
                break;
243
            case BACKSPACE :
244
                if (!isScanCode(c) && (strpos > 0)) {
245
                    strpos--;
246
                    x--;
247
                    if (x <= w->x) {
248
                        x = w->x + w->dx - 1;
249
                        y --;
250
                        if (y <= w->y) y = w->y + 1;
251
                    }
252
                    tx = x; ty = y;
253
                    i = strpos;
254
                    while (s[i] != 0) {
255
                        s[i] = s[i+1];
256
                        putc_xy(tx,ty,WHITE,s[i]);
257
                        i++;
258
                        tx++;
259
                        if (tx >= w->x + w->dx) {
260
                            tx = w->x + 1;
261
                            ty++;
262
                        }
263
                    }
264
                    lungh--;
265
                }
266
                place(x,y);
267
                break;
268
            case DELETE :
269
                if (s[strpos] != 0) lungh--;
270
                tx = x; ty = y;
271
                i = strpos;
272
                while (s[i] != 0) {
273
                    s[i] = s[i+1];
274
                    putc_xy(tx,ty,WHITE,s[i]);
275
                    i++;
276
                    tx++;
277
                    if (tx >= w->x + w->dx) {
278
                        tx = w->x;
279
                        ty++;
280
                    }
281
                }
282
                place(x,y);
283
                break;
284
            default :
285
                if (!isScanCode(c)) {
286
                    i = lungh;
287
                    while (i > strpos) {
288
                        s[i] = s[i-1];
289
                        i--;
290
                    }
291
                    s[lungh+1] = 0;
292
                    s[strpos] = c.ascii;
293
                    strpos++;
294
                    lungh++;
295
                    if (lungh == (len - 1)) flag = TRUE;
296
                    tx = x;
297
                    ty = y;
298
                    i = strpos - 1;
299
                    while (s[i] != 0) {
300
                        putc_xy(tx,ty,WHITE,s[i]);
301
                        tx++;
302
                        i++;
303
                        if (tx >= (w->x + w->dx)) {
304
                            tx = w->x + 1;
305
                            ty++;
306
                            if (ty >= (w->y + w->dy)) {
307
                                ty--;
308
                                y--;
309
                                win_scroll(w);
310
                            }
311
                        }
312
                    }
313
                    x++;
314
                    if (x >= (w->x + w->dx)) {
315
                        x = w->x + 1;
316
                        y++;
317
                    }
318
                }
319
                place(x,y);
320
                break;
321
        }
322
 
323
    }
324
    w->px = 0;
325
    w->py = y - w->y;
326
    if (w->py >= w->dy - 1) {
327
        w->py--;
328
        win_scroll(w);
329
    }
330
    return(lungh);
331
}
332
 
333
static void cons_end(void *arg)
334
{
335
    set_active_page(0);
336
    set_visual_page(0);
337
}
338
 
339
static void cons_change(KEY_EVT *k)
340
{
341
  /* MG */
342
  //k.scan -= KEY_1;
343
  set_visual_page(k->scan-KEY_1);
344
}
345
 
346
void screen_init(void)
347
{
348
    KEY_EVT k;
349
    int i;
350
 
351
    k.flag = ALTR_BIT;
352
    for (i = 0; i < 8; i++) {
353
        k.ascii = '1' + i;
354
        k.scan = KEY_1 + i;
355
        keyb_hook(k,cons_change);
356
    }
357
    sys_atrunlevel(cons_end,NULL,RUNLEVEL_AFTER_EXIT);
358
}