1 e573cb09 2020-09-27 op /* -*- mode:fundamental; indent-tabs-mode: t; -*- */
  2 e573cb09 2020-09-27 op %{
  3 e573cb09 2020-09-27 op 
  4 e573cb09 2020-09-27 op /*
  5 e573cb09 2020-09-27 op  * Copyright (c) 2020 Omar Polo <op@omarpolo.com>
  6 e573cb09 2020-09-27 op  *
  7 e573cb09 2020-09-27 op  * Permission to use, copy, modify, and distribute this software for any
  8 e573cb09 2020-09-27 op  * purpose with or without fee is hereby granted, provided that the above
  9 e573cb09 2020-09-27 op  * copyright notice and this permission notice appear in all copies.
 10 e573cb09 2020-09-27 op  *
 11 e573cb09 2020-09-27 op  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 12 e573cb09 2020-09-27 op  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 13 e573cb09 2020-09-27 op  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 14 e573cb09 2020-09-27 op  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 15 e573cb09 2020-09-27 op  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 16 e573cb09 2020-09-27 op  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 17 e573cb09 2020-09-27 op  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 18 e573cb09 2020-09-27 op  */
 19 e573cb09 2020-09-27 op 
 20 e573cb09 2020-09-27 op #include "star-platinum.h"
 21 e573cb09 2020-09-27 op 
 22 e573cb09 2020-09-27 op #include <X11/Xlib.h>
 23 e573cb09 2020-09-27 op #include <X11/keysymdef.h>
 24 e573cb09 2020-09-27 op 
 25 e573cb09 2020-09-27 op #include <err.h>
 26 e573cb09 2020-09-27 op #include <string.h>
 27 e573cb09 2020-09-27 op 
 28 e573cb09 2020-09-27 op #include "y.tab.h"
 29 e573cb09 2020-09-27 op 
 30 e573cb09 2020-09-27 op int state  = 0;
 31 e573cb09 2020-09-27 op KeySym key = 0;
 32 e573cb09 2020-09-27 op 
 33 e573cb09 2020-09-27 op %}
 34 e573cb09 2020-09-27 op 
 35 e573cb09 2020-09-27 op %x COMMENT
 36 e573cb09 2020-09-27 op %x KEY
 37 e573cb09 2020-09-27 op 
 38 e573cb09 2020-09-27 op %%
 39 e573cb09 2020-09-27 op 
 40 e573cb09 2020-09-27 op "#"		{ BEGIN(COMMENT); }
 41 e573cb09 2020-09-27 op <COMMENT>\n	{ yylineno++; BEGIN(INITIAL); }
 42 e573cb09 2020-09-27 op <COMMENT>.	;
 43 e573cb09 2020-09-27 op 
 44 e573cb09 2020-09-27 op [ \t\r\v\f]+	;
 45 e573cb09 2020-09-27 op 
 46 e573cb09 2020-09-27 op "match"		return TMATCH;
 47 e573cb09 2020-09-27 op "class"		return TCLASS;
 48 e573cb09 2020-09-27 op "on"		return TON;
 49 e573cb09 2020-09-27 op "do"		return TDO;
 50 e573cb09 2020-09-27 op "toggle"	return TTOGGLE;
 51 e573cb09 2020-09-27 op "activate"	return TACTIVATE;
 52 e573cb09 2020-09-27 op "deactivate"	return TDEACTIVATE;
 53 e573cb09 2020-09-27 op "ignore"	return TIGNORE;
 54 e573cb09 2020-09-27 op 
 55 e573cb09 2020-09-27 op "\n"		yylineno++; return '\n';
 56 9f53ba9b 2020-09-29 op "*"		return '*';
 57 e573cb09 2020-09-27 op 
 58 e573cb09 2020-09-27 op [-a-zA-Z0-9]+	{
 59 e573cb09 2020-09-27 op 			char *ident;
 60 e573cb09 2020-09-27 op 			if ((ident = strdup(yytext)) == NULL)
 61 e573cb09 2020-09-27 op 				err(1, "strdup");
 62 e573cb09 2020-09-27 op 			yylval.str = ident;
 63 e573cb09 2020-09-27 op 			return TSTRING;
 64 e573cb09 2020-09-27 op 		}
 65 e573cb09 2020-09-27 op 
 66 e573cb09 2020-09-27 op "\""		{ BEGIN(KEY); }
 67 e573cb09 2020-09-27 op <KEY>"\""	{
 68 e573cb09 2020-09-27 op 			BEGIN(INITIAL);
 69 e573cb09 2020-09-27 op 
 70 e573cb09 2020-09-27 op 			if (key == NoSymbol)
 71 e573cb09 2020-09-27 op 				return TERR;
 72 e573cb09 2020-09-27 op 
 73 e573cb09 2020-09-27 op 			yylval.key = (struct key){ state, key };
 74 e573cb09 2020-09-27 op 			state = 0;
 75 e573cb09 2020-09-27 op 			key = 0;
 76 e573cb09 2020-09-27 op 			return TKEY;
 77 e573cb09 2020-09-27 op 		}
 78 e573cb09 2020-09-27 op 
 79 e573cb09 2020-09-27 op <KEY>C-		{ state |= ControlMask; }
 80 e573cb09 2020-09-27 op <KEY>S-		{ state |= ShiftMask; }
 81 e573cb09 2020-09-27 op <KEY>M-		{ state |= Mod1Mask; }
 82 e573cb09 2020-09-27 op <KEY>s-		{ state |= Mod4Mask; }
 83 e573cb09 2020-09-27 op 
 84 e573cb09 2020-09-27 op <KEY><[_a-zA-Z]+> {
 85 e573cb09 2020-09-27 op 			char *c;
 86 e573cb09 2020-09-27 op 
 87 e573cb09 2020-09-27 op 			if ((c = strdup(yytext)) == NULL)
 88 e573cb09 2020-09-27 op                                 err(1, "strdup");
 89 e573cb09 2020-09-27 op 
 90 e573cb09 2020-09-27 op 			c++;			/* skip the < */
 91 e573cb09 2020-09-27 op 			c[strlen(c)-1] = '\0';	/* trim the > */
 92 e573cb09 2020-09-27 op 
 93 e573cb09 2020-09-27 op 			key = XStringToKeysym(c);
 94 e573cb09 2020-09-27 op 
 95 e573cb09 2020-09-27 op 			free(--c);
 96 e573cb09 2020-09-27 op 		}
 97 e573cb09 2020-09-27 op 
 98 e573cb09 2020-09-27 op <KEY>SPC	{ key = XK_space; }
 99 e573cb09 2020-09-27 op <KEY>RET	{ key = XK_Return; }
100 e573cb09 2020-09-27 op 
101 e573cb09 2020-09-27 op <KEY>"("	{ key = XK_parenleft; }
102 e573cb09 2020-09-27 op <KEY>")"	{ key = XK_parenright; }
103 e573cb09 2020-09-27 op 
104 e573cb09 2020-09-27 op <KEY>.		{ key = XStringToKeysym(yytext); }
105 e573cb09 2020-09-27 op 
106 e573cb09 2020-09-27 op 
107 e573cb09 2020-09-27 op %%
108 e573cb09 2020-09-27 op 
109 e573cb09 2020-09-27 op int
110 e573cb09 2020-09-27 op yywrap(void)
111 e573cb09 2020-09-27 op {
112 e573cb09 2020-09-27 op 	return 1;
113 e573cb09 2020-09-27 op }