#if 0 gcc -s -O2 -c -Wno-unused-result bindings.c `sdl-config --cflags` exit #endif /* This program is part of Free Hero Mesh and is public domain. */ #define HEROMESH_BINDINGS #include <stdio.h> #include <stdlib.h> #include <string.h> #include "SDL.h" #include "sqlite3.h" #include "smallxrm.h" #include "quarks.h" #include "heromesh.h" #define MOD_SHIFT 1 #define MOD_CTRL 2 #define MOD_ALT 4 #define MOD_META 8 #define MOD_NUMLOCK 14 typedef struct { UserCommand m[16]; } KeyBinding; static KeyBinding*editor_bindings[SDLK_LAST]; static KeyBinding*game_bindings[SDLK_LAST]; static KeyBinding*editor_mouse_bindings[4]; static KeyBinding*game_mouse_bindings[4]; static int cur_modifiers,loose_modifiers; static void set_binding(KeyBinding**pkb,int mod,const char*txt) { int i; KeyBinding*kb=*pkb; UserCommand*uc; if(!*txt) return; if(!kb) kb=*pkb=calloc(1,sizeof(KeyBinding)); if(!kb) fatal("Allocation failed\n"); uc=kb->m+mod; if(uc->cmd) return; switch(*txt) { case '^': // Miscellaneous uc->cmd='^'; uc->n=txt[1]; break; case '=': case '-': case '+': // Restart, rewind, advance uc->cmd=*txt; uc->n=strtol(txt+1,0,0); break; case '\'': // Input move uc->cmd='\''; for(i=1;i<256;i++) if(heromesh_key_names[i] && !strcmp(txt+1,heromesh_key_names[i])) { uc->n=i; return; } fatal("Error in key binding: %s\nInvalid Hero Mesh key name\n",txt); break; case '!': // System command uc->cmd='!'; uc->txt=txt+1; break; case 'A' ... 'Z': case 'a' ... 'z': // Execute SQL statement uc->cmd='s'; if(i=sqlite3_prepare_v3(userdb,txt,-1,SQLITE_PREPARE_PERSISTENT,&uc->stmt,0)) fatal("Error in key binding: %s\n%s\n",txt,sqlite3_errmsg(userdb)); break; default: fatal("Error in key binding: %s\nUnrecognized character\n",txt); } } #define BINDING_MODIFIER(a,b) \ if(q==a && !(cur_modifiers&b)) { \ cur_modifiers|=b; \ xrm_enumerate(sub,cb_2,usr); \ cur_modifiers&=~b; \ if(loose) --loose_modifiers; \ return 0; \ } static void*cb_2(xrm_db*db,void*usr,int loose,xrm_quark q) { KeyBinding**kb=usr; const char*txt; xrm_db*sub=xrm_sub(db,loose,q); if(loose) ++loose_modifiers; BINDING_MODIFIER(Q_shift,MOD_SHIFT); BINDING_MODIFIER(Q_ctrl,MOD_CTRL); BINDING_MODIFIER(Q_alt,MOD_ALT); BINDING_MODIFIER(Q_meta,MOD_META); BINDING_MODIFIER(Q_numLock,MOD_NUMLOCK); if(txt=xrm_get(sub)) { if(usr==editor_mouse_bindings || usr==game_mouse_bindings) { switch(q) { case Q_left: kb+=SDL_BUTTON_LEFT; break; case Q_middle: kb+=SDL_BUTTON_MIDDLE; break; case Q_right: kb+=SDL_BUTTON_RIGHT; break; default: goto stop; } } else { if(q>=FirstKeyQuark && q<=LastKeyQuark) kb+=quark_to_key[q-FirstKeyQuark]; else goto stop; } set_binding(kb,cur_modifiers,txt); if(loose_modifiers) { int i; for(i=0;i<16;i++) if((i&cur_modifiers)==cur_modifiers && !kb[0]->m[i].cmd) kb[0]->m[i]=kb[0]->m[cur_modifiers]; } } stop: if(loose) --loose_modifiers; return 0; } static void*cb_1(xrm_db*db,void*usr) { xrm_enumerate(db,cb_2,usr); return 0; } void load_key_bindings(void) { fprintf(stderr,"Loading key bindings...\n"); cur_modifiers=loose_modifiers=0; optionquery[1]=Q_editKey; xrm_search(resourcedb,optionquery,optionquery,2,cb_1,editor_bindings); optionquery[1]=Q_gameKey; xrm_search(resourcedb,optionquery,optionquery,2,cb_1,game_bindings); optionquery[1]=Q_editClick; xrm_search(resourcedb,optionquery,optionquery,2,cb_1,editor_mouse_bindings); optionquery[1]=Q_gameClick; xrm_search(resourcedb,optionquery,optionquery,2,cb_1,game_mouse_bindings); fprintf(stderr,"Done\n"); } const UserCommand*find_key_binding(SDL_Event*ev,int editing) { KeyBinding*kb; static const UserCommand nul={cmd:0}; SDLMod m; int i; if(ev->type==SDL_KEYDOWN) { m=ev->key.keysym.mod; if(ev->key.keysym.sym>=SDLK_LAST) return &nul; kb=(editing?editor_bindings:game_bindings)[ev->key.keysym.sym]; } else if(ev->type==SDL_MOUSEBUTTONDOWN) { m=SDL_GetModState(); if(ev->button.button>3) return &nul; kb=(editing?editor_mouse_bindings:game_mouse_bindings)[ev->button.button]; } else { return &nul; } if(!kb) return &nul; i=0; if(m&KMOD_CTRL) i|=MOD_CTRL; if(m&KMOD_SHIFT) i|=MOD_SHIFT; if(m&KMOD_ALT) i|=MOD_ALT; if(m&KMOD_META) i|=MOD_META; if((m&KMOD_NUM) && kb->m[i|MOD_NUMLOCK].cmd) i|=MOD_NUMLOCK; return kb->m+i; }