# HG changeset patch
# User oheimb
# Date 887986818 -3600
# Node ID bac998af6ea2f2a19c9124a7e408e72396526a9e
# Parent  f6b89d9b00769a179edc00b5f2bbfce169ccf2af
extended input syntax to handle names of special keys

diff -r f6b89d9b0076 -r bac998af6ea2 src/Tools/8bit/perl/generators/gen-isa_gnu_emacs.pl
--- a/src/Tools/8bit/perl/generators/gen-isa_gnu_emacs.pl	Fri Feb 20 15:59:13 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isa_gnu_emacs.pl	Fri Feb 20 16:00:18 1998 +0100
@@ -107,7 +107,7 @@
 $found = 0;
 $end_key_map = 0;
 $pattern = 
-'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
+'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]+|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
 
 while (<INFILE> ){
     if (/^\s*END_KEY_MAP/){
diff -r f6b89d9b0076 -r bac998af6ea2 src/Tools/8bit/perl/generators/gen-isa_xemacs.pl
--- a/src/Tools/8bit/perl/generators/gen-isa_xemacs.pl	Fri Feb 20 15:59:13 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isa_xemacs.pl	Fri Feb 20 16:00:18 1998 +0100
@@ -108,7 +108,7 @@
 $found = 0;
 $end_key_map = 0;
 $pattern = 
-'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
+'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]+|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
 
 while (<INFILE> ){
     if (/^\s*END_KEY_MAP/){
diff -r f6b89d9b0076 -r bac998af6ea2 src/Tools/8bit/perl/generators/gen-isaaxe.pl
--- a/src/Tools/8bit/perl/generators/gen-isaaxe.pl	Fri Feb 20 15:59:13 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isaaxe.pl	Fri Feb 20 16:00:18 1998 +0100
@@ -108,7 +108,7 @@
 $found = 0;
 $end_key_map = 0;
 $pattern = 
-'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
+'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]+|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
 
 while (<INFILE> ){
     if (/^\s*END_KEY_MAP/){
diff -r f6b89d9b0076 -r bac998af6ea2 src/Tools/8bit/perl/generators/gen-isaterm.pl
--- a/src/Tools/8bit/perl/generators/gen-isaterm.pl	Fri Feb 20 15:59:13 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isaterm.pl	Fri Feb 20 16:00:18 1998 +0100
@@ -108,7 +108,7 @@
 $found = 0;
 $end_key_map = 0;
 $pattern = 
-'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
+'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]+|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
 
 while (<INFILE> ){
     if (/^\s*END_KEY_MAP/){
diff -r f6b89d9b0076 -r bac998af6ea2 src/Tools/8bit/perl/generators/gen-isavim.pl
--- a/src/Tools/8bit/perl/generators/gen-isavim.pl	Fri Feb 20 15:59:13 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isavim.pl	Fri Feb 20 16:00:18 1998 +0100
@@ -108,7 +108,7 @@
 $found = 0;
 $end_key_map = 0;
 $pattern = 
-'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
+'^\s*MOD\s*(None|Mod1|Mod2|Mod4|Shift|Ctrl)\s*KEY\s*([a-zA-Z]+|F\d{1,2})\s*CODE\s*([0-9a-fA-F][0-9a-fA-F](\s*,\s*[0-9a-fA-F][0-9a-fA-F])*)\s*$';
 
 while (<INFILE> ){
     if (/^\s*END_KEY_MAP/){