1/*- 2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD 3 * 4 * Copyright (c) 1994-1995 S��ren Schmidt 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 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 18 * 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. 29 * 30 * $FreeBSD$ 31 */ 32 33%{ 34 35#include "lex.h" 36 37%} 38 39%option noyywrap 40%option nounput 41%option noinput 42 43D [0-9] 44X [0-9a-fA-F] 45A . 46L [OCNB] 47 48%% 49 50nop { return TNOP; } 51lshift { return TLSH; } 52rshift { return TRSH; } 53clock { return TCLK; } 54nlock { return TNLK; } 55slock { return TSLK; } 56lalt|alt { return TLALT; } 57btab { return TBTAB; } 58lctrl|ctrl { return TLCTR; } 59nscr { return TNEXT; } 60pscr { return TPREV; } 61rctrl { return TRCTR; } 62ralt { return TRALT; } 63alock { return TALK; } 64ashift { return TASH; } 65meta { return TMETA; } 66boot { return TRBT; } 67debug { return TDBG; } 68susp { return TSUSP; } 69saver { return TSPSC; } 70panic { return TPANIC; } 71lshifta|shifta { return TLSHA; } 72rshifta { return TRSHA; } 73lctrla|ctrla { return TLCTRA; } 74rctrla { return TRCTRA; } 75lalta|alta { return TLALTA; } 76ralta { return TRALTA; } 77halt { return THALT; } 78pdwn { return TPDWN; } 79paste { return TPASTE; } 80 81NUL|nul { number = 0; return TNUM; } 82SOH|soh { number = 1; return TNUM; } 83STX|stx { number = 2; return TNUM; } 84ETX|etx { number = 3; return TNUM; } 85EOT|eot { number = 4; return TNUM; } 86ENQ|enq { number = 5; return TNUM; } 87ACK|ack { number = 6; return TNUM; } 88BEL|bel { number = 7; return TNUM; } 89BS|bs { number = 8; return TNUM; } 90HT|ht { number = 9; return TNUM; } 91LF|lf|NL|nl { number = 10; return TNUM; } 92VT|vt { number = 11; return TNUM; } 93FF|ff|NP|np { number = 12; return TNUM; } 94CR|cr { number = 13; return TNUM; } 95SO|so { number = 14; return TNUM; } 96SI|si { number = 15; return TNUM; } 97DLE|dle { number = 16; return TNUM; } 98DC1|dc1 { number = 17; return TNUM; } 99DC2|dc2 { number = 18; return TNUM; } 100DC3|dc3 { number = 19; return TNUM; } 101DC4|dc4 { number = 20; return TNUM; } 102NAK|nak { number = 21; return TNUM; } 103SYN|syn { number = 22; return TNUM; } 104ETB|etb { number = 23; return TNUM; } 105CAN|can { number = 24; return TNUM; } 106EM|em { number = 25; return TNUM; } 107SUB|sub { number = 26; return TNUM; } 108ESC|esc { number = 27; return TNUM; } 109FS|fs { number = 28; return TNUM; } 110GS|gs { number = 29; return TNUM; } 111RS|rs { number = 30; return TNUM; } 112NS|ns { number = 31; return TNUM; } 113US|us { number = 31; return TNUM; } 114SP|sp { number = 32; return TNUM; } 115DEL|del { number = 127; return TNUM; } 116 117dgra|DGRA { number = 0; return TACC; } 118dacu|DACU { number = 1; return TACC; } 119dcir|DCIR { number = 2; return TACC; } 120dtil|DTIL { number = 3; return TACC; } 121dmac|DMAC { number = 4; return TACC; } 122dbre|DBRE { number = 5; return TACC; } 123ddot|DDOT { number = 6; return TACC; } 124duml|DUML { number = 7; return TACC; } 125ddia|DDIA { number = 7; return TACC; } 126dsla|DSLA { number = 8; return TACC; } 127drin|DRIN { number = 9; return TACC; } 128dced|DCED { number = 10; return TACC; } 129dapo|DAPO { number = 11; return TACC; } 130ddac|DDAC { number = 12; return TACC; } 131dogo|DOGO { number = 13; return TACC; } 132dcar|DCAR { number = 14; return TACC; } 133 134fkey{D}({D}*) { 135 sscanf(yytext+4, "%d", &number); 136 return TFUNC; 137 } 138scr{D}({D}*) { 139 sscanf(yytext+3, "%d", &number); 140 return TSCRN; 141 } 142'{A}' { letter = *(yytext+1); return TLET; } 143#({A}*) { /* ignore */ } 1440x{X}({X}*) { sscanf(yytext, "%x", &number); return TNUM; } 145{D}({D}*) { sscanf(yytext, "%d", &number); return TNUM; } 146{L} { 147 if (*yytext == 'O') number = 0; 148 if (*yytext == 'C') number = 1; 149 if (*yytext == 'N') number = 2; 150 if (*yytext == 'B') number = 3; 151 return TFLAG; 152 } 153[ \t\n] { /* ignore */ } 154. { return *yytext; } 155