usr.sbin/kbdcontrol/lex.l

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