op public repos

Blame

Date:: Thu Oct 1 09:52:58 2020 UTC
Message:: reworked the tokenizer -- breaking change The parser was pratically rewritten. Strings now are required to be quoted with single quotes, while keys (still) requires double quotes. In addition, the * is no longer a valid match argument: to match on everything you need to use the special keyword `all'. match all # before was `match *' on "C-a" do "<Home>" # unchanged match class 'Firefox' # before was `match class Firefox' # ...
Actions:: History | Blob | Raw File
  1 7d3286ca 2020-10-01 op /* -*- mode:c; 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 7d3286ca 2020-10-01 op %x STRING
 38 e573cb09 2020-09-27 op 
 39 e573cb09 2020-09-27 op %%
 40 e573cb09 2020-09-27 op 
 41 7d3286ca 2020-10-01 op <INITIAL>#	BEGIN(COMMENT);
 42 7d3286ca 2020-10-01 op <COMMENT>.*\n	yylineno++; BEGIN(INITIAL); return '\n';
 43 e573cb09 2020-09-27 op 
 44 7d3286ca 2020-10-01 op <INITIAL>\"	BEGIN(KEY);
 45 7d3286ca 2020-10-01 op <KEY>\"		{
 46 7d3286ca 2020-10-01 op 	BEGIN(INITIAL);
 47 7d3286ca 2020-10-01 op 	yylval.key = (struct key){ state, key };
 48 7d3286ca 2020-10-01 op 	state = 0;
 49 7d3286ca 2020-10-01 op 	key = 0;
 50 7d3286ca 2020-10-01 op 	return TKEY;
 51 7d3286ca 2020-10-01 op  }
 52 e573cb09 2020-09-27 op 
 53 7d3286ca 2020-10-01 op <KEY>C-		state |= ControlMask;
 54 7d3286ca 2020-10-01 op <KEY>S-		state |= ShiftMask;
 55 7d3286ca 2020-10-01 op <KEY>M-		state |= Mod1Mask;
 56 7d3286ca 2020-10-01 op <KEY>s-		state |= Mod4Mask;
 57 e573cb09 2020-09-27 op 
 58 7d3286ca 2020-10-01 op <KEY><[^>]+>	{
 59 7d3286ca 2020-10-01 op 	char *c;
 60 e573cb09 2020-09-27 op 
 61 7d3286ca 2020-10-01 op 	if ((c = strdup(yytext)) == NULL)
 62 7d3286ca 2020-10-01 op 		err(1, "strdup");
 63 e573cb09 2020-09-27 op 
 64 7d3286ca 2020-10-01 op 	c++;			/* skip the < */
 65 7d3286ca 2020-10-01 op 	c[strlen(c)-1] = '\0';	/* trim the > */
 66 e573cb09 2020-09-27 op 
 67 7d3286ca 2020-10-01 op 	if ((key = XStringToKeysym(c)) == NoSymbol)
 68 7d3286ca 2020-10-01 op 		yyerror("invalid keysym %s", c);
 69 e573cb09 2020-09-27 op 
 70 7d3286ca 2020-10-01 op 	free(--c);
 71 7d3286ca 2020-10-01 op  }
 72 e573cb09 2020-09-27 op 
 73 7d3286ca 2020-10-01 op <KEY>SPC	key = XK_space;
 74 7d3286ca 2020-10-01 op <KEY>RET	key = XK_Return;
 75 e573cb09 2020-09-27 op 
 76 7d3286ca 2020-10-01 op <KEY>"("	key = XK_parenleft;
 77 7d3286ca 2020-10-01 op <KEY>")"	key = XK_parenright;
 78 e573cb09 2020-09-27 op 
 79 7d3286ca 2020-10-01 op <KEY>.		{
 80 7d3286ca 2020-10-01 op 	if ((key = XStringToKeysym(yytext)) == NoSymbol)
 81 7d3286ca 2020-10-01 op 		yyerror("invalid key %s", yytext);
 82 7d3286ca 2020-10-01 op  }
 83 e573cb09 2020-09-27 op 
 84 7d3286ca 2020-10-01 op <INITIAL>\'	BEGIN(STRING);
 85 7d3286ca 2020-10-01 op <STRING>[^']*\'	{
 86 7d3286ca 2020-10-01 op 	if ((yylval.str = strdup(yytext)) == NULL)
 87 7d3286ca 2020-10-01 op 		err(1, "strdup");
 88 7d3286ca 2020-10-01 op 	yylval.str[strlen(yylval.str)-1] = '\0'; /* remove the closing quote */
 89 7d3286ca 2020-10-01 op 	BEGIN(INITIAL);
 90 7d3286ca 2020-10-01 op 	return TSTRING;
 91 7d3286ca 2020-10-01 op  }
 92 e573cb09 2020-09-27 op 
 93 7d3286ca 2020-10-01 op match		return TMATCH;
 94 7d3286ca 2020-10-01 op class		return TCLASS;
 95 7d3286ca 2020-10-01 op on		return TON;
 96 7d3286ca 2020-10-01 op do		return TDO;
 97 7d3286ca 2020-10-01 op toggle		return TTOGGLE;
 98 7d3286ca 2020-10-01 op activate	return TACTIVATE;
 99 7d3286ca 2020-10-01 op deactivate	return TDEACTIVATE;
100 7d3286ca 2020-10-01 op ignore		return TIGNORE;
101 7d3286ca 2020-10-01 op exec		return TEXEC;
102 7d3286ca 2020-10-01 op all		return TALL;
103 e573cb09 2020-09-27 op 
104 7d3286ca 2020-10-01 op \n		yylineno++; return '\n';
105 7d3286ca 2020-10-01 op [ \r\t\f]+
106 e573cb09 2020-09-27 op 
107 7d3286ca 2020-10-01 op .		return TERR;
108 e573cb09 2020-09-27 op 
109 e573cb09 2020-09-27 op %%
110 e573cb09 2020-09-27 op 
111 e573cb09 2020-09-27 op int
112 e573cb09 2020-09-27 op yywrap(void)
113 e573cb09 2020-09-27 op {
114 e573cb09 2020-09-27 op 	return 1;
115 e573cb09 2020-09-27 op }