lex.l revision 54380
1/*- 2 * Copyright (c) 1994-1995 S�ren Schmidt 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer, 10 * in this position and unchanged. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. The name of the author may not be used to endorse or promote products 15 * derived from this software withough specific prior written permission 16 * 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 19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 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 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 26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 27 * 28 * $FreeBSD: head/usr.sbin/kbdcontrol/lex.l 54380 1999-12-10 04:24:27Z yokota $ 29 */ 30 31%{ 32 33#include "lex.h" 34 35%} 36 37D [0-9] 38X [0-9a-fA-F] 39A . 40L [OCNB] 41 42%% 43 44nop { return TNOP; } 45lshift { return TLSH; } 46rshift { return TRSH; } 47clock { return TCLK; } 48nlock { return TNLK; } 49slock { return TSLK; } 50lalt|alt { return TLALT; } 51btab { return TBTAB; } 52lctrl|ctrl { return TLCTR; } 53nscr { return TNEXT; } 54pscr { return TPREV; } 55rctrl { return TRCTR; } 56ralt { return TRALT; } 57alock { return TALK; } 58ashift { return TASH; } 59meta { return TMETA; } 60boot { return TRBT; } 61debug { return TDBG; } 62susp { return TSUSP; } 63saver { return TSPSC; } 64panic { return TPANIC; } 65lshifta|shifta { return TLSHA; } 66rshifta { return TRSHA; } 67lctrla|ctrla { return TLCTRA; } 68rctrla { return TRCTRA; } 69lalta|alta { return TLALTA; } 70ralta { return TRALTA; } 71 72NUL|nul { number = 0; return TNUM; } 73SOH|soh { number = 1; return TNUM; } 74STX|stx { number = 2; return TNUM; } 75ETX|etx { number = 3; return TNUM; } 76EOT|eot { number = 4; return TNUM; } 77ENQ|enq { number = 5; return TNUM; } 78ACK|ack { number = 6; return TNUM; } 79BEL|bel { number = 7; return TNUM; } 80BS|bs { number = 8; return TNUM; } 81HT|ht { number = 9; return TNUM; } 82LF|lf|NL|nl { number = 10; return TNUM; } 83VT|vt { number = 11; return TNUM; } 84FF|ff|NP|np { number = 12; return TNUM; } 85CR|cr { number = 13; return TNUM; } 86SO|so { number = 14; return TNUM; } 87SI|si { number = 15; return TNUM; } 88DLE|dle { number = 16; return TNUM; } 89DC1|dc1 { number = 17; return TNUM; } 90DC2|dc2 { number = 18; return TNUM; } 91DC3|dc3 { number = 19; return TNUM; } 92DC4|dc4 { number = 20; return TNUM; } 93NAK|nak { number = 21; return TNUM; } 94SYN|syn { number = 22; return TNUM; } 95ETB|etb { number = 23; return TNUM; } 96CAN|can { number = 24; return TNUM; } 97EM|em { number = 25; return TNUM; } 98SUB|sub { number = 26; return TNUM; } 99ESC|esc { number = 27; return TNUM; } 100FS|fs { number = 28; return TNUM; } 101GS|gs { number = 29; return TNUM; } 102RS|rs { number = 30; return TNUM; } 103NS|ns { number = 31; return TNUM; } 104US|us { number = 31; return TNUM; } 105SP|sp { number = 32; return TNUM; } 106DEL|del { number = 127; return TNUM; } 107 108dgra|DGRA { number = 0; return TACC; } 109dacu|DACU { number = 1; return TACC; } 110dcir|DCIR { number = 2; return TACC; } 111dtil|DTIL { number = 3; return TACC; } 112dmac|DMAC { number = 4; return TACC; } 113dbre|DBRE { number = 5; return TACC; } 114ddot|DDOT { number = 6; return TACC; } 115duml|DUML { number = 7; return TACC; } 116ddia|DDIA { number = 7; return TACC; } 117dsla|DSLA { number = 8; return TACC; } 118drin|DRIN { number = 9; return TACC; } 119dced|DCED { number = 10; return TACC; } 120dapo|DAPO { number = 11; return TACC; } 121ddac|DDAC { number = 12; return TACC; } 122dogo|DOGO { number = 13; return TACC; } 123dcar|DCAR { number = 14; return TACC; } 124 125fkey{D}({D}*) { 126 sscanf(yytext+4, "%d", &number); 127 return TFUNC; 128 } 129scr{D}({D}*) { 130 sscanf(yytext+3, "%d", &number); 131 return TSCRN; 132 } 133'{A}' { letter = *(yytext+1); return TLET; } 134#({A}*) { /* ignore */ } 1350x{X}({X}*) { sscanf(yytext, "%x", &number); return TNUM; } 136{D}({D}*) { sscanf(yytext, "%d", &number); return TNUM; } 137{L} { 138 if (*yytext == 'O') number = 0; 139 if (*yytext == 'C') number = 1; 140 if (*yytext == 'N') number = 2; 141 if (*yytext == 'B') number = 3; 142 return TFLAG; 143 } 144[ \t\n] { /* ignore */ } 145. { return *yytext; } 146