2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (c) 1994-1995 Søren Schmidt
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer,
12 * in this position and unchanged.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. The name of the author may not be used to endorse or promote products
17 * derived from this software without specific prior written permission
19 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
50 lshift { return TLSH; }
51 rshift { return TRSH; }
52 clock { return TCLK; }
53 nlock { return TNLK; }
54 slock { return TSLK; }
55 lalt|alt { return TLALT; }
56 btab { return TBTAB; }
57 lctrl|ctrl { return TLCTR; }
58 nscr { return TNEXT; }
59 pscr { return TPREV; }
60 rctrl { return TRCTR; }
61 ralt { return TRALT; }
62 alock { return TALK; }
63 ashift { return TASH; }
64 meta { return TMETA; }
66 debug { return TDBG; }
67 susp { return TSUSP; }
68 saver { return TSPSC; }
69 panic { return TPANIC; }
70 lshifta|shifta { return TLSHA; }
71 rshifta { return TRSHA; }
72 lctrla|ctrla { return TLCTRA; }
73 rctrla { return TRCTRA; }
74 lalta|alta { return TLALTA; }
75 ralta { return TRALTA; }
76 halt { return THALT; }
77 pdwn { return TPDWN; }
78 paste { return TPASTE; }
80 NUL|nul { number = 0; return TNUM; }
81 SOH|soh { number = 1; return TNUM; }
82 STX|stx { number = 2; return TNUM; }
83 ETX|etx { number = 3; return TNUM; }
84 EOT|eot { number = 4; return TNUM; }
85 ENQ|enq { number = 5; return TNUM; }
86 ACK|ack { number = 6; return TNUM; }
87 BEL|bel { number = 7; return TNUM; }
88 BS|bs { number = 8; return TNUM; }
89 HT|ht { number = 9; return TNUM; }
90 LF|lf|NL|nl { number = 10; return TNUM; }
91 VT|vt { number = 11; return TNUM; }
92 FF|ff|NP|np { number = 12; return TNUM; }
93 CR|cr { number = 13; return TNUM; }
94 SO|so { number = 14; return TNUM; }
95 SI|si { number = 15; return TNUM; }
96 DLE|dle { number = 16; return TNUM; }
97 DC1|dc1 { number = 17; return TNUM; }
98 DC2|dc2 { number = 18; return TNUM; }
99 DC3|dc3 { number = 19; return TNUM; }
100 DC4|dc4 { number = 20; return TNUM; }
101 NAK|nak { number = 21; return TNUM; }
102 SYN|syn { number = 22; return TNUM; }
103 ETB|etb { number = 23; return TNUM; }
104 CAN|can { number = 24; return TNUM; }
105 EM|em { number = 25; return TNUM; }
106 SUB|sub { number = 26; return TNUM; }
107 ESC|esc { number = 27; return TNUM; }
108 FS|fs { number = 28; return TNUM; }
109 GS|gs { number = 29; return TNUM; }
110 RS|rs { number = 30; return TNUM; }
111 NS|ns { number = 31; return TNUM; }
112 US|us { number = 31; return TNUM; }
113 SP|sp { number = 32; return TNUM; }
114 DEL|del { number = 127; return TNUM; }
116 dgra|DGRA { number = 0; return TACC; }
117 dacu|DACU { number = 1; return TACC; }
118 dcir|DCIR { number = 2; return TACC; }
119 dtil|DTIL { number = 3; return TACC; }
120 dmac|DMAC { number = 4; return TACC; }
121 dbre|DBRE { number = 5; return TACC; }
122 ddot|DDOT { number = 6; return TACC; }
123 duml|DUML { number = 7; return TACC; }
124 ddia|DDIA { number = 7; return TACC; }
125 dsla|DSLA { number = 8; return TACC; }
126 drin|DRIN { number = 9; return TACC; }
127 dced|DCED { number = 10; return TACC; }
128 dapo|DAPO { number = 11; return TACC; }
129 ddac|DDAC { number = 12; return TACC; }
130 dogo|DOGO { number = 13; return TACC; }
131 dcar|DCAR { number = 14; return TACC; }
134 sscanf(yytext+4, "%d", &number);
138 sscanf(yytext+3, "%d", &number);
141 '{A}' { letter = *(yytext+1); return TLET; }
142 #({A}*) { /* ignore */ }
143 0x{X}({X}*) { sscanf(yytext, "%x", &number); return TNUM; }
144 {D}({D}*) { sscanf(yytext, "%d", &number); return TNUM; }
146 if (*yytext == 'O') number = 0;
147 if (*yytext == 'C') number = 1;
148 if (*yytext == 'N') number = 2;
149 if (*yytext == 'B') number = 3;
152 [ \t\n] { /* ignore */ }
153 . { return *yytext; }