/****************************************************************************** MODUL keycom.c DESCRIPTION command interface for keyboard-control with key functions NOTES for interface with [X]DME version < 1.70 all functions in this module make use of av[] (readonly) extensively uses keyhashes.c BUGS plenty - but where TODO EXAMPLES description of the user-commands: the commands below might get other names; if so, please update their descriptions according to the names they are used in command.c *! KEYS: *! **** *! *! the following commands allow access to [X]DME's keymappings *! that way it is possible for each user to create an individual *! UI for "his" [X]DME, for "his" programming language and for *! his wishes. *! *! >MAP key command (will be "MAP key command help") *! >UNMAP key *! *! with these commands YOu can modify the keytable: *! MAP adds or modifies an existing key-entry to the keytable *! UNMAP deletes an existing key-entry *! *! key consists of a set of QUALIFIERS, a "-" and one code- *! specification (both case sensitive) *! the qualifiers are: *! s == any shift (caps-lock with alpha-keys) *! c == control *! a == any alt *! A == any amiga *! L == left mouse button *! M == middle mouse button *! R == right mouse button *! u == key-up ( release of a key ) *! x == extended qualifier x *! y == extended qualifier y *! z == extended qualifier z *! *! the code-specification is one out of: *! main keyboard: *! [single lowercase character] == the key on you main keyboard - that shows it *! [single uppercase alpha] == the key on .... but that means a set s-qualifier *! *! numerik keypad: *! nk0 .. nk9 == numerik keypad 0..9 *! nk+|nk-|nk*|nk/|nk. == numerik keypad +,-,*,/,. *! *! there are two more key on yor numerik keypad *! with american|british mapping they are used as nk( and nk) *! with most european mappings they are used as nk[ and nk] *! with canadian mapping they are used as nk@ and nk° *! if there is a standart mapping, that does map these keys *! in another way, they are NOT supported yet. (please mail) *! *! other special keys: *! f1 .. f10 == Function keys *! hel == help-key *! esc == escape *! del == delete *! bac|bs == backspace ( <- ) *! tab == tabulator *! ent == enter *! spc|spa == spacebar *! up|dow|rig|lef == cursor keys *! *! lmb|mmb|rmb == mouse buttons *! mmo == mouse movement with a mousebutton pressed *! *! note that as mousebuttons can act for qualifiing as well as for *! specifiing the specifiing mousebutton must also be qualifiing *! e.g L-rmb should not work, but LR-rmb should *! *! note that certain keys may be used as dead-keys; *! keys that are deading when pressed without qualifiers *! are not accessible with that keyboard-interface *! e.g. on german keyboards there is a key "'" next to "\" *! which cannot be accessed *! on the other hand, if a key is deading on a qualified level, *! but not when pressed without qualifiers, You can remap it *! e.g on german keyboards alt-f is deading, but -f not, so *! You can access a-f; and if You map a-f to any function, *! It looses it deading function for [X]DME *! EXAMPLE: creates something like "á" *! after a "MAP a-f (NULL)" the same key-sequence *! creates a normal "a" *! *! note that map soon is to expect another parameter: *! the help -string that conatins information 'bout the command *! *! keys with the x|y|z-qualifiers set can not accessed immediately *! first You must set the right extended qualifiers, then *! You may press the remaining qualifiers and keys *! these keys were introduced to allow something like the *! CTL-X prefix of MicroEmacs *! *! ATN! we check only up to three characters for code-specifiction *! so e.g. -space is recognized as -spa some people *! call this a feature, but in fact it is a BUG, as that *! method avoids rexx-commands which start whose 3 first digits *! are the same like a special key from being implicitely executed *! *! >QUALIFIER qualifierset *! *! that command allows setting of certain qualifiers *! independently to the qualifiers pressed manually on the keyboard *! (see above) it is designed to allow multi-key-sequences *! *! EXAMPLE: *! MAP c-x (QUALIFIER x) *! MAP cx-a (SAVEOLD) *! would cause the sequence

calling SAVEOLD *! *! >KEYSAVE filename *! *! save the keytable as a file that can be *! read by KEYLOAD *! *! >KEYLOAD filename *! *! clear the keytable and instead build a new *! contents out of the file filename *! *! *! KEYTABLES: *! ********* *! *! the following commands do only make sense, if *! You are using multiple keytables *! at [X]DME's start a keytable called "default" is created; *! for "normal" usage, that single strip may suffer. *! *! Please note that the above MENU... commands apply to the *! CURRENT keytable (and only to it) *! *! >USEKEYTABLE name *! *! search for a certain keytable and use it as the current one *! *! >REMKEYTABLE *! *! delete the current keytable, if it is not the only one *! *! >NEWKEYTABLE name *! *! if there is already a keytable called name, *! simply call USEKEYTABLE name *! else create a new keytable called name and use it *! *! SEE ALSO keyhashes.c keycodes.c keyaddes.c keycontrol.c INDEX HISTORY 14-Dec-92 b_null created 16-Dec-92 b_null some names updated & introduced currenthash ******************************************************************************/ /************************************** Includes **************************************/ /* we do not need anythig else - I think */ #include "defs.h" /************************************** Globale Variable **************************************/ Prototype void do_map (void); Prototype void do_unmap (void); Prototype void do_keyload (void); Prototype void do_keysave (void); Prototype void do_qualifier (void); Prototype char*keyspectomacro(char*); Prototype void do_new_keytable (void); Prototype void do_del_keytable (void); Prototype void do_use_keytable (void); /************************************** Interne Defines & Strukturen **************************************/ /* nothing */ /************************************** Interne Variable **************************************/ /* nothing */ /************************************** Interne Prototypes **************************************/ /* nothing */ /***************************************************************************** NAME do_map PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyhashes/mapkey NOTES for interface with [X]DME version < 1.70 BUGS EXAMPLES SEE ALSO do_unmap keyhashes/mapkey INTERNALS HISTORY 14-Dec-92 b_null created ******************************************************************************/ void do_map (void) { mapkey ( currenthash(), GetArg(1), GetArg(2) ); } /* do_map */ /***************************************************************************** NAME do_unmap PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyhashes/unmapkey NOTES for interface with [X]DME version < 1.70 BUGS EXAMPLES SEE ALSO do_map, keyhashes/unmapkey INTERNALS HISTORY 14-Dec-92 b_null created ******************************************************************************/ void do_unmap (void) { unmapkey ( currenthash(), GetArg(1) ); } /* do_unmap */ /***************************************************************************** NAME do_keysave PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyhashes/savemap NOTES for interface with [X]DME version < 1.70 BUGS EXAMPLES SEE ALSO do_keyload, keyhashes/savemap INTERNALS HISTORY 14-Dec-92 b_null created ******************************************************************************/ void do_keysave (void) { keysave ( currenthash(), GetArg(1) ); } /* do_keysave */ /***************************************************************************** NAME do_keyload PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyhashes/loadmap NOTES for interface with [X]DME version < 1.70 BUGS EXAMPLES SEE ALSO do_keysave, keyhashes/loadmap INTERNALS HISTORY 14-Dec-92 b_null created ******************************************************************************/ void do_keyload (void) { keyload ( currenthash(), GetArg(1) ); } /* do_keyload */ /***************************************************************************** NAME do_qualifier PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyaddes/qualifier NOTES for interface with [X]DME version > 1.70 BUGS EXAMPLES SEE ALSO keyhashes/qualifier INTERNALS HISTORY 16 Dec 1992 b_null created ******************************************************************************/ void do_qualifier (void) { qualifier (GetArg(1)); } /* do_qualifier */ char * keyspectomacro (char * str) { return (keyspec2macro(currenthash(), str)); } /* keyspectomacro */ /***************************************************************************** NAME do_new_keytable PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyaddes/qualifier NOTES BUGS EXAMPLES SEE ALSO INTERNALS HISTORY 28 Jan 1993 b_null created ******************************************************************************/ void do_new_keytable (void) { Ep->keytable = new_keytable (GetArg(1), 1); } /* do_new_keytable */ /***************************************************************************** NAME do_del_keytable PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyaddes/qualifier NOTES BUGS EXAMPLES SEE ALSO INTERNALS HISTORY 28 Jan 1993 b_null created ******************************************************************************/ void do_del_keytable (void) { KEYTABLE * kt = currenthash (); ED * ep; for (ep = (ED *)GetHead (&DBase); ep; ep = (ED *)GetSucc (ep)) { if (ep->keytable == kt) { ep->keytable = NULL; } /* if */ } /* for */ delete_keytable (kt, 0); } /* do_del_keytable */ /***************************************************************************** NAME do_use_keytable PARAMETER void RESULT -/- RETURN void DESCRIPTION command interface for keyaddes/qualifier NOTES BUGS EXAMPLES SEE ALSO INTERNALS HISTORY 28 Jan 1993 b_null created ******************************************************************************/ void do_use_keytable (void) { KEYTABLE * kt = get_keytable (GetArg (1)); if (kt) { Ep->keytable = kt; } /* if */ } /* do_use_keytable */ /****************************************************************************** ***** ENDE keycom.c ******************************************************************************/