#include <stdio.h>
#include <ctype.h>
#include <X11/Xos.h>
#include <X11/Xlib.h>
#include <X11/XKBlib.h>
#include "tokens.h"
#define DEBUG_VAR scanDebug
#include "utils.h"
#include "parseutils.h"
FILE *yyin = NULL;
static char scanFileBuf[1024];
char * scanFile= scanFileBuf;
int lineNum= 0;
int scanInt;
char *scanIntStr;
int scanIntClass;
char *scanStr = NULL;
int scanStrLine= 0;
#define BUFSIZE 512
static int nInBuf = 0;
static char buf[BUFSIZE];
#ifdef DEBUG
extern unsigned debugFlags;
static char *
tokText(int tok)
{
static char buf[32];
switch (tok) {
case END_OF_FILE: sprintf(buf, "END_OF_FILE");break;
case ERROR_TOK: sprintf(buf, "ERROR"); break;
case XKB_KEYMAP: sprintf(buf, "XKB_KEYMAP"); break;
case XKB_KEYCODES: sprintf(buf, "XKB_KEYCODES"); break;
case XKB_TYPES: sprintf(buf, "XKB_TYPES"); break;
case XKB_SYMBOLS: sprintf(buf, "XKB_SYMBOLS"); break;
case XKB_COMPATMAP: sprintf(buf, "XKB_COMPATMAP"); break;
case XKB_GEOMETRY: sprintf(buf, "XKB_GEOMETRY"); break;
case XKB_SEMANTICS: sprintf(buf, "XKB_SEMANTICS"); break;
case XKB_LAYOUT: sprintf(buf, "XKB_LAYOUT"); break;
case INCLUDE: sprintf(buf, "INCLUDE"); break;
case OVERRIDE: sprintf(buf, "OVERRIDE"); break;
case AUGMENT: sprintf(buf, "AUGMENT"); break;
case REPLACE: sprintf(buf, "REPLACE"); break;
case ALTERNATE: sprintf(buf, "ALTERNATE"); break;
case VIRTUAL_MODS: sprintf(buf, "VIRTUAL_MODS"); break;
case TYPE: sprintf(buf, "TYPE"); break;
case INTERPRET: sprintf(buf, "INTERPRET"); break;
case ACTION_TOK: sprintf(buf, "ACTION"); break;
case KEY: sprintf(buf, "KEY"); break;
case ALIAS: sprintf(buf, "ALIAS"); break;
case GROUP: sprintf(buf, "GROUP"); break;
case MODIFIER_MAP: sprintf(buf, "MODIFIER_MAP"); break;
case INDICATOR: sprintf(buf, "INDICATOR"); break;
case SHAPE: sprintf(buf, "SHAPE"); break;
case KEYS: sprintf(buf, "KEYS"); break;
case ROW: sprintf(buf, "ROW"); break;
case SECTION: sprintf(buf, "SECTION"); break;
case OVERLAY: sprintf(buf, "OVERLAY"); break;
case TEXT: sprintf(buf, "TEXT"); break;
case OUTLINE: sprintf(buf, "OUTLINE"); break;
case SOLID: sprintf(buf, "SOLID"); break;
case LOGO: sprintf(buf, "LOGO"); break;
case VIRTUAL: sprintf(buf, "VIRTUAL"); break;
case EQUALS: sprintf(buf, "EQUALS"); break;
case PLUS: sprintf(buf, "PLUS"); break;
case MINUS: sprintf(buf, "MINUS"); break;
case DIVIDE: sprintf(buf, "DIVIDE"); break;
case TIMES: sprintf(buf, "TIMES"); break;
case OBRACE: sprintf(buf, "OBRACE"); break;
case CBRACE: sprintf(buf, "CBRACE"); break;
case OPAREN: sprintf(buf, "OPAREN"); break;
case CPAREN: sprintf(buf, "CPAREN"); break;
case OBRACKET: sprintf(buf, "OBRACKET");break;
case CBRACKET: sprintf(buf, "CBRACKET");break;
case DOT: sprintf(buf, "DOT"); break;
case COMMA: sprintf(buf, "COMMA"); break;
case SEMI: sprintf(buf, "SEMI"); break;
case EXCLAM: sprintf(buf, "EXCLAM"); break;
case INVERT: sprintf(buf, "INVERT"); break;
case STRING: sprintf(buf, "STRING (%s)",scanStr); break;
case INTEGER: sprintf(buf, "INTEGER (0x%x)",scanInt); break;
case FLOAT: sprintf(buf, "FLOAT (%d.%d)",
scanInt/XkbGeomPtsPerMM,
scanInt%XkbGeomPtsPerMM);break;
case IDENT: sprintf(buf, "IDENT (%s)",scanStr); break;
case KEYNAME: sprintf(buf, "KEYNAME (%s)",scanStr); break;
case PARTIAL: sprintf(buf, "PARTIAL"); break;
case DEFAULT: sprintf(buf, "DEFAULT"); break;
case HIDDEN: sprintf(buf, "HIDDEN"); break;
case ALPHANUMERIC_KEYS: sprintf(buf, "ALPHANUMERIC_KEYS"); break;
case MODIFIER_KEYS: sprintf(buf, "MODIFIER_KEYS"); break;
case KEYPAD_KEYS: sprintf(buf, "KEYPAD_KEYS"); break;
case FUNCTION_KEYS: sprintf(buf, "FUNCTION_KEYS"); break;
case ALTERNATE_GROUP: sprintf(buf, "ALTERNATE_GROUP"); break;
default: sprintf(buf, "UNKNOWN"); break;
}
return buf;
}
#endif
int
setScanState(char *file,int line)
{
if (file!=NULL)
strncpy(scanFile,file,1024);
if (line>=0)
lineNum= line;
return 1;
}
static int
yyGetString(void)
{
int ch;
nInBuf = 0;
while ( ((ch=getc(yyin))!=EOF) && (ch!='"') ) {
if ( ch == '\\' ) {
if ((ch = getc(yyin))!=EOF) {
if ( ch=='n' ) ch = '\n';
else if ( ch == 't' ) ch = '\t';
else if ( ch == 'v' ) ch = '\v';
else if ( ch == 'b' ) ch = '\b';
else if ( ch == 'r' ) ch = '\r';
else if ( ch == 'f' ) ch = '\f';
else if ( ch == 'e' ) ch = '\033';
else if ( ch == '0' ) {
int tmp,stop;
ch = stop = 0;
if (((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
if (!stop) {
if (((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
}
if (!stop) {
if (((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
}
}
}
else return ERROR_TOK;
}
if ( nInBuf < BUFSIZE-1 )
buf[nInBuf++] = ch;
}
if ( ch == '"' ) {
buf[nInBuf++] = '\0';
if ( scanStr )
uFree( scanStr );
scanStr = (char *)uStringDup(buf);
scanStrLine = lineNum;
return STRING;
}
return ERROR_TOK;
}
static int
yyGetKeyName(void)
{
int ch;
nInBuf = 0;
while ( ((ch=getc(yyin))!=EOF) && (ch!='>') ) {
if ( ch == '\\' ) {
if ((ch = getc(yyin))!=EOF) {
if ( ch=='n' ) ch = '\n';
else if ( ch == 't' ) ch = '\t';
else if ( ch == 'v' ) ch = '\v';
else if ( ch == 'b' ) ch = '\b';
else if ( ch == 'r' ) ch = '\r';
else if ( ch == 'f' ) ch = '\f';
else if ( ch == 'e' ) ch = '\033';
else if ( ch == '0' ) {
int tmp,stop;
ch = stop = 0;
if (((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
if ((!stop) && ((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
if ((!stop) && ((tmp=getc(yyin))!=EOF) && (isdigit(tmp)) &&
(tmp!='8') && (tmp!='9')) {
ch= (ch*8)+(tmp-'0');
}
else {
stop= 1;
ungetc(tmp,yyin);
}
}
}
else return ERROR_TOK;
}
if ( nInBuf < BUFSIZE-1 )
buf[nInBuf++] = ch;
}
if (( ch == '>' )&&(nInBuf<5)) {
buf[nInBuf++] = '\0';
if ( scanStr )
uFree( scanStr );
scanStr = (char *)uStringDup(buf);
scanStrLine = lineNum;
return KEYNAME;
}
return ERROR_TOK;
}
struct _Keyword {
const char *keyword;
int token;
} keywords[] = {
{ "xkb_keymap", XKB_KEYMAP },
{ "xkb_keycodes", XKB_KEYCODES },
{ "xkb_types", XKB_TYPES },
{ "xkb_symbols", XKB_SYMBOLS },
{ "xkb_compat", XKB_COMPATMAP },
{ "xkb_compat_map", XKB_COMPATMAP },
{ "xkb_compatibility", XKB_COMPATMAP },
{ "xkb_compatibility_map", XKB_COMPATMAP },
{ "xkb_geometry", XKB_GEOMETRY },
{ "xkb_semantics", XKB_SEMANTICS },
{ "xkb_layout", XKB_LAYOUT },
{ "include", INCLUDE },
{ "override", OVERRIDE },
{ "augment", AUGMENT },
{ "replace", REPLACE },
{ "alternate", ALTERNATE },
{ "partial", PARTIAL },
{ "default", DEFAULT },
{ "hidden", HIDDEN },
{ "virtual_modifiers", VIRTUAL_MODS },
{ "type", TYPE },
{ "interpret", INTERPRET },
{ "action", ACTION_TOK },
{ "key", KEY },
{ "alias", ALIAS },
{ "group", GROUP },
{ "modmap", MODIFIER_MAP },
{ "mod_map", MODIFIER_MAP },
{ "modifier_map", MODIFIER_MAP },
{ "indicator", INDICATOR },
{ "shape", SHAPE },
{ "row", ROW },
{ "keys", KEYS },
{ "section", SECTION },
{ "overlay", OVERLAY },
{ "text", TEXT },
{ "outline", OUTLINE },
{ "solid", SOLID },
{ "logo", LOGO },
{ "virtual", VIRTUAL },
{ "alphanumeric_keys", ALPHANUMERIC_KEYS },
{ "modifier_keys", MODIFIER_KEYS },
{ "keypad_keys", KEYPAD_KEYS },
{ "function_keys", FUNCTION_KEYS },
{ "alternate_group", ALTERNATE_GROUP }
};
int numKeywords = sizeof(keywords)/sizeof(struct _Keyword);
static int
yyGetIdent(int first)
{
int ch,i,found;
int rtrn = IDENT;
buf[0] = first; nInBuf = 1;
while ( ((ch=getc(yyin))!=EOF) && (isalnum(ch)||(ch=='_')) ) {
if ( nInBuf < BUFSIZE - 1 )
buf[nInBuf++] = ch;
}
buf[nInBuf++] = '\0';
found= 0;
for (i=0;(!found)&&(i<numKeywords);i++) {
if (uStrCaseCmp(buf,keywords[i].keyword)==0) {
rtrn= keywords[i].token;
found= 1;
}
}
if (!found) {
if ( scanStr )
uFree( scanStr );
scanStr = (char *)uStringDup(buf);
scanStrLine = lineNum;
rtrn = IDENT;
}
if ( (ch!=EOF) && (!isspace(ch)) )
ungetc( ch, yyin );
else if ( ch=='\n' )
lineNum++;
return rtrn;
}
static int
yyGetNumber(int ch)
{
int isFloat= 0;
buf[0]= ch;
nInBuf= 1;
while (((ch=getc(yyin))!=EOF)&&(isxdigit(ch)||((nInBuf==1)&&(ch=='x')))) {
buf[nInBuf++]= ch;
}
if (ch=='.') {
isFloat= 1;
buf[nInBuf++]= ch;
while (((ch=getc(yyin))!=EOF)&&(isxdigit(ch))) {
buf[nInBuf++]= ch;
}
}
buf[nInBuf++]= '\0';
if ((ch!=EOF)&&(!isspace(ch)))
ungetc( ch, yyin );
if (isFloat) {
float tmp;
if (sscanf(buf,"%g",&tmp)==1) {
scanInt= tmp*XkbGeomPtsPerMM;
return FLOAT;
}
}
else if ( sscanf(buf,"%i",&scanInt)==1 )
return INTEGER;
fprintf(stderr,"Malformed number %s\n",buf);
return ERROR_TOK;
}
int
yylex(void)
{
int ch;
int rtrn;
do {
ch = getc(yyin);
if ( ch == '\n' ) {
lineNum++;
}
else if ( ch=='#' ) {
do {
ch= getc(yyin);
} while ((ch!='\n')&&(ch!=EOF));
lineNum++;
}
else if ( ch=='/' ) {
int newch= getc(yyin);
if (newch=='/') {
do {
ch= getc(yyin);
} while ((ch!='\n')&&(ch!=EOF));
lineNum++;
}
else if (newch!=EOF) {
ungetc(newch,yyin);
}
}
} while ((ch!=EOF)&&(isspace(ch)));
if ( ch == '=' ) rtrn = EQUALS;
else if ( ch == '+' ) rtrn = PLUS;
else if ( ch == '-' ) rtrn = MINUS;
else if ( ch == '/' ) rtrn = DIVIDE;
else if ( ch == '*' ) rtrn = TIMES;
else if ( ch == '{' ) rtrn = OBRACE;
else if ( ch == '}' ) rtrn = CBRACE;
else if ( ch == '(' ) rtrn = OPAREN;
else if ( ch == ')' ) rtrn = CPAREN;
else if ( ch == '[' ) rtrn = OBRACKET;
else if ( ch == ']' ) rtrn = CBRACKET;
else if ( ch == '.' ) rtrn = DOT;
else if ( ch == ',' ) rtrn = COMMA;
else if ( ch == ';' ) rtrn = SEMI;
else if ( ch == '!' ) rtrn = EXCLAM;
else if ( ch == '~' ) rtrn = INVERT;
else if ( ch == '"' ) rtrn = yyGetString();
else if ( ch == '<' ) rtrn = yyGetKeyName();
else if ( isalpha(ch) || (ch=='_')) rtrn = yyGetIdent(ch);
else if ( isdigit(ch) ) rtrn = yyGetNumber(ch);
else if ( ch == EOF ) rtrn = END_OF_FILE;
else {
#ifdef DEBUG
if (debugFlags)
fprintf(stderr,"Unexpected character %c (%d) in input stream\n",ch,ch);
#endif
rtrn = ERROR_TOK;
}
#ifdef DEBUG
if (debugFlags&0x2)
fprintf(stderr,"scan: %s\n",tokText(rtrn));
#endif
return rtrn;
}