OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [drivers/] [s390/] [char/] [tubttyaid.c] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1275 phoenix 
/*
2 
 *  IBM/3270 Driver -- Copyright (C) 2000 UTS Global LLC
3 
 *
4 
 *  tubttyaid.c -- Linemode Attention-ID functionality
5 
 *
6 
 *
7 
 *
8 
 *
9 
 *
10 
 *  Author:  Richard Hitt
11 
 */
12 
#include "tubio.h"
13 
 
14 
#define PA1_STR "^C"
15 
#define PF3_STR "^D"
16 
#define PF9_STR "\033j"
17 
#define PF10_STR "\033k"
18 
#define PF11_STR "\033j"
19 
/* other AID-key default strings */
20 
 
21 
aid_t aidtab[64] = {
22 
/* 00         */        { 0, 0 },
23 
/* C1 = PF13  */        { TA_DOSTRING, 0 },
24 
/* C2 = PF14  */        { TA_DOSTRING, 0 },
25 
/* C3 = PF15  */        { TA_DOSTRING, 0 },
26 
/* C4 = PF16  */        { TA_DOSTRING, 0 },
27 
/* C5 = PF17  */        { TA_DOSTRING, 0 },
28 
/* C6 = PF18  */        { TA_DOSTRING, 0 },
29 
/* C7 = PF19  */        { TA_DOSTRING, 0 },
30 
/* C8 = PF20  */        { TA_DOSTRING, 0 },
31 
/* C9 = PF21  */        { TA_DOSTRING, 0 },
32 
/* 4A = PF22  */        { TA_DOSTRING, 0 },
33 
/* 4B = PF23  */        { TA_DOSTRING, 0 },
34 
/* 4C = PF24  */        { TA_DOSTRING, 0 },
35 
/* 0D         */        { 0, 0 },
36 
/* 0E         */        { 0, 0 },
37 
/* 0F         */        { 0, 0 },
38 
/* 10         */        { 0, 0 },
39 
/* 11         */        { 0, 0 },
40 
/* 12         */        { 0, 0 },
41 
/* 13         */        { 0, 0 },
42 
/* 14         */        { 0, 0 },
43 
/* 15         */        { 0, 0 },
44 
/* 16         */        { 0, 0 },
45 
/* 17         */        { 0, 0 },
46 
/* 18         */        { 0, 0 },
47 
/* 19         */        { 0, 0 },
48 
/* 1A         */        { 0, 0 },
49 
/* 1B         */        { 0, 0 },
50 
/* 1C         */        { 0, 0 },
51 
/* 1D         */        { 0, 0 },
52 
/* 1E         */        { 0, 0 },
53 
/* 1F         */        { 0, 0 },
54 
/* 60 = NoAID */        { 0, 0 },
55 
/* 21         */        { 0, 0 },
56 
/* 22         */        { 0, 0 },
57 
/* 23         */        { 0, 0 },
58 
/* 24         */        { 0, 0 },
59 
/* 25         */        { 0, 0 },
60 
/* E6 = OpRdr */        { 0, 0 },
61 
/* E7 = MSRdr */        { 0, 0 },
62 
/* E8 = NoAID */        { 0, 0 },
63 
/* 29         */        { 0, 0 },
64 
/* 2A         */        { 0, 0 },
65 
/* 6B =  PA3  */        { TA_SHORTREAD, 0 },
66 
/* 6C =  PA1  */        { TA_SHORTREAD | TA_DOSTRING, PA1_STR },
67 
/* 6D = CLEAR */        { TA_SHORTREAD | TA_CLEARKEY, 0 },
68 
/* 6E =  PA2  */        { TA_SHORTREAD | TA_CLEARLOG, 0 },
69 
/* 2F         */        { 0, 0 },
70 
/* F0 = TstRq */        { 0, 0 },
71 
/* F1 =  PF1  */        { TA_DOSTRING, 0 },
72 
/* F2 =  PF2  */        { TA_DOSTRING, 0 },
73 
/* F3 =  PF3  */        { TA_DOSTRING, PF3_STR },
74 
/* F4 =  PF4  */        { TA_DOSTRING, 0 },
75 
/* F5 =  PF5  */        { TA_DOSTRING, 0 },
76 
/* F6 =  PF6  */        { TA_DOSTRING, 0 },
77 
/* F7 =  PF7  */        { TA_DOSTRING, 0 },
78 
/* F8 =  PF8  */        { TA_DOSTRING, 0 },
79 
/* F9 =  PF9  */        { TA_DOSTRING, PF9_STR },
80 
/* 7A = PF10  */        { TA_DOSTRING, PF10_STR },
81 
/* 7B = PF11  */        { TA_DOSTRING, PF11_STR },
82 
/* 7C = PF12  */        { TA_DOSTRING, 0 },
83 
/* 7D = ENTER */        { TA_DOENTER, 0 },
84 
/* 7E = Pen   */        { 0, 0 },
85 
/* 3F         */        { 0, 0 },
86 
};
87 
 
88 
int
89 
tty3270_aid_init(tub_t *tubp)
90 
{
91 
        memcpy(tubp->tty_aid, aidtab, sizeof aidtab);
92 
        tubp->tty_aidinit = 1;
93 
        return 0;
94 
}
95 
 
96 
void
97 
tty3270_aid_fini(tub_t *tubp)
98 
{
99 
        int i;
100 
        char *sp;
101 
 
102 
        if (tubp->tty_aidinit == 0)
103 
                return;
104 
        for (i = 0; i < 64; i++) {
105 
                if ((sp = tubp->tty_aid[i].string) == NULL)
106 
                        continue;
107 
                if (sp == aidtab[i].string)
108 
                        continue;
109 
                kfree(sp);
110 
        }
111 
        tubp->tty_aidinit = 0;
112 
}
113 
 
114 
void
115 
tty3270_aid_reinit(tub_t *tubp)
116 
{
117 
        tty3270_aid_fini(tubp);
118 
        tty3270_aid_init(tubp);
119 
}
120 
 
121 
int
122 
tty3270_aid_get(tub_t *tubp, int aid, int *aidflags, char **aidstring)
123 
{
124 
        aid_t *ap;
125 
 
126 
        ap = AIDENTRY(aid, tubp);
127 
        *aidflags = ap->aid;
128 
        *aidstring = ap->string;
129 
        return 0;
130 
}
131 
 
132 
/*
133 
 * tty3270_aid_set() -- write_proc extension
134 
 * Parse written string as an AID name.  Return 0 if it's not.
135 
 * Otherwise absorb the string and return count or -error.
136 
 */
137 
int
138 
tty3270_aid_set(tub_t *tubp, char *buf, int count)
139 
{
140 
        char name[8];
141 
        char *sp;
142 
        int aidn, aidx;
143 
        aid_t *ap;
144 
        int len;
145 
        char *pfp;
146 
 
147 
        if (tubp->tty_aidinit == 0)
148 
                return 0;
149 
        if (count < 3)          /* If AID-key name too short */
150 
                return 0;
151 
        name[0] = buf[0] < 0x60? buf[0]: (buf[0] & 0x5f);
152 
        name[1] = buf[1] < 0x60? buf[1]: (buf[1] & 0x5f);
153 
        if (name[0] == 'P' && name[1] == 'F') {
154 
                aidn = simple_strtoul(buf+2, &sp, 10);
155 
                if (aidn < 1 || aidn > 24)
156 
                        return 0;
157 
                aidx = aidn > 12? aidn - 12: aidn + 0x30;
158 
                ap = &tubp->tty_aid[aidx];
159 
        } else if (name[0] == 'P' && name[1] == 'A') {
160 
                aidn = simple_strtoul(buf+2, &sp, 10);
161 
                if (aidn < 1 || aidn > 3)
162 
                        return 0;
163 
                switch(aidn) {
164 
                case 1:  aidx = 0x2c; break;
165 
                case 2:  aidx = 0x2e; break;
166 
                case 3:  aidx = 0x2b; break;
167 
                default:  aidx = 0; break;
168 
                }
169 
                ap = &tubp->tty_aid[aidx];
170 
        } else {
171 
                return 0;
172 
        }
173 
 
174 
        if (*sp == '\0') {
175 
                tubp->tty_showaidx = ap - tubp->tty_aid;
176 
                return count;
177 
        } else if (*sp == '=') {
178 
                len = strlen(++sp);
179 
                if (len == 0) {
180 
                        if (ap->string != NULL &&
181 
                            ap->string != aidtab[aidx].string)
182 
                                kfree(ap->string);
183 
                        ap->string = aidtab[aidx].string;
184 
                        ap->aid = aidtab[aidx].aid;
185 
                        return count;
186 
                }
187 
                if ((pfp = kmalloc(len + 1, GFP_KERNEL)) == NULL)
188 
                        return -ENOMEM;
189 
                if (ap->string != NULL &&
190 
                    ap->string != aidtab[aidx].string)
191 
                        kfree(ap->string);
192 
                if (sp[len - 1] == '\n') {
193 
                        ap->aid = TA_DOSTRING;
194 
                        sp[len - 1] = '\0';
195 
                        len--;
196 
                } else {
197 
                        ap->aid = TA_DOSTRINGD;
198 
                }
199 
                memcpy(pfp, sp, len + 1);
200 
                ap->string = pfp;
201 
                return count;
202 
        } else {
203 
                return -EINVAL;
204 
        }
205 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.