# HG changeset patch
# User oheimb
# Date 887986753 -3600
# Node ID f6b89d9b00769a179edc00b5f2bbfce169ccf2af
# Parent  c448e09d0fca652cd521e1babc166f1ce6746e25
moved Ctrl entry before Alt entry
extended input syntax to handle names of special keys

diff -r c448e09d0fca -r f6b89d9b0076 src/Tools/8bit/perl/generators/gen-isadoc.pl
--- a/src/Tools/8bit/perl/generators/gen-isadoc.pl	Fri Feb 20 11:07:51 1998 +0100
+++ b/src/Tools/8bit/perl/generators/gen-isadoc.pl	Fri Feb 20 15:59:13 1998 +0100
@@ -230,7 +230,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*$';
 
 #'
 
@@ -666,15 +666,15 @@
 printf(OUTFILE "Shift&%s\\nextline\n",
        join('&',split(/\"/,$fkmat{"Shift"})));
 printf(OUTFILE "\\hline\n");
+printf(OUTFILE "Ctrl&%s\\\\\n",
+       join('&',split(/\"/,$fkmat{"Ctrl"})));
+printf(OUTFILE "\\hline\n");
 printf(OUTFILE "Alt&%s\\nextline\n",
        join('&',split(/\"/,$fkmat{"Mod2"})));
 printf(OUTFILE "\\hline\n");
 printf(OUTFILE "AltGraph&%s\\nextline\n",
        join('&',split(/\"/,$fkmat{"Mod4"})));
 printf(OUTFILE "\\hline\n");
-printf(OUTFILE "Ctrl&%s\\\\\n",
-       join('&',split(/\"/,$fkmat{"Ctrl"})));
-printf(OUTFILE "\\hline\n");
 printf(OUTFILE "Meta&%s\\nextline\n",
        join('&',split(/\"/,$fkmat{"Mod1"})));