SysGetKey - проблемы применения и новые решения

 >>---SysGetKey(---+------------+---)---><
                   +---option---+

 /* Sample1.cmd - test of SysGetKey() */
 parse version _ver
 say _ver
 if RxFuncQuery('SysLoadFuncs') then do
    _rc = RxFuncAdd('SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs');
    _rc = SysLoadFuncs();
 end;
 say SysVersion()
 say 'RexxUtil v.'||SysUtilVersion()
 say 'Press Esc to quit'
 _key = '';
 do while (_key \== '1B'x)
    _key = SysGetKey('NOECHO');
    say '_key="'||c2x(_key)||'"x'
 end;
 _rc = SysDropFuncs();
 exit;

 C:\>Sample1.cmd
 OBJREXX 6.00 18 May 1999
 OS/2 2.45
 RexxUtil v.2.00
 Press Esc to quit
              <--- нажата клавиша 2
 _key="32"x   => символ "2" (DIGIT TWO)
              <--- нажата клавиша F1
 _key="00"x   => первый символ сканкода "003B"x
 _key="3B"x   => второй символ сканкода "003B"x
              <--- нажата клавиша GrayArrowUp
 _key="E0"x   => первый символ сканкода "E048"x
 _key="48"x   => второй символ сканкода "E048"x
              <--- переключаем клавиатуру на кириллицу
              <--- нажата клавиша р
 _key="E0"x   => символ "р" (CYRILLIC SMALL LETTER ER)
              <--- переключаем клавиатуру на латиницу
              <--- нажата комбинация клавиш Shift+h
 _key="48"x   => символ "H" (LATIN CAPITAL LETTER H)
              <--- нажата клавиша Enter
 _key="0D"x   => управляюший символ CR (CARRIAGE RETURN)
              <--- нажата клавиша Esc
 _key="1B"x   => управляюший символ ESC (ESCAPE)
 C:\>

 >>---CHARS(---+----------+---)---><
               +---name---+

 typedef struct _KBDKEYINFO {
    UCHAR   chChar;
    UCHAR   chScan;
    UCHAR   fbStatus;
    UCHAR   bNlsShift;
    USHORT  fsState;
    ULONG   time;
 } KBDKEYINFO;
 typedef KBDKEYINFO *PKBDKEYINFO;

 /* Sample2.cmd - test of SysGetGetKey() with check timeout */
 say 'Sample2 application started'
 parse version _ver
 say _ver

 if RxFuncQuery('SysLoadFuncs') then do
    _rc = RxFuncAdd('SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs');
    _rc = SysLoadFuncs();
 end;
 say SysVersion()
 say 'RexxUtil v.'||SysUtilVersion()
 say 'Press Esc to quit'

 signal on halt
 _kbd = .ownKbd~new;
 _kbd~run;

 _wait = 0.05;
 _delay = 0.01;
 _key = '';
 do while (_key \== '1B'x)
    _key = SysGetKey('NOECHO');
    if (_key == '00'x) then do
       _key = _key||SysGetKey('NOECHO');
    end;
    _kbd~keys~queue(_key);
    if (_key \== 'E0'x) then do
       _rc = SysSleep(_delay);
    end;
 end;

 halt:
    _kbd~stop = .true;
    _rc = SysSleep(_wait);
    drop _kbd;
    say 'Sample2 application stopped'
    _rc = SysDropFuncs();
    exit;

 ::class ownKbd
 ::method stop attribute unguarded
 ::method keys attribute unguarded

 ::method init
    self~stop = .false;
    self~keys = .queue~new;
    say 'Instance of '||self~defaultname||' created'
    return;

 ::method uninit
    self~stop = .true;
    say 'Instance of '||self~defaultname||' destroyed'
    return;

 ::method run
    say 'Run() method of '||self~defaultname||' processed'
    reply
    _delay = 0.001;
    _key = '';
    do while (\self~stop)
       if (self~keys~items > 0) then do
          _key = self~keys~pull;
          if ((_key == 'E0'x) & (self~keys~items > 0)) then do
             _key = _key||self~keys~pull;
          end;
          say '_key="'||_key~c2x||'"x'
       end;
       _rc = SysSleep(_delay);
    end;
    say 'Run() method of '||self~defaultname||' terminated'
    return;

 C:\>Sample2.cmd
 Sample2 application started
 OBJREXX 6.00 18 May 1999
 OS/2 2.45
 RexxUtil v.2.00
 Press Esc to quit
 Instance of an OWNKBD created
 Run() method of an OWNKBD processed
                <--- нажата клавиша 2
 _key="32"x     => символ "2" (DIGIT TWO)
                <--- нажата клавиша F1
 _key="003B"x   => сканкод "003B"x
                <--- нажата клавиша GrArrowUp
 _key="E048"x   => сканкод "E048"x
                <--- переключаем клавиатуру на кириллицу
                <--- нажата клавиша р
 _key="E0"x     => символ "р" (CYRILLIC SMALL LETTER ER)
                <--- переключаем клавиатуру на латиницу
                <--- нажата комбинация клавиш Shift+h
 _key="48"x     => символ "H" (LATIN CAPITAL LETTER H)
                <--- нажата клавиша Enter
 _key="0D"x     => управляюший символ CR (CARRIAGE RETURN)
                <--- нажата клавиша Esc
 _key="1B"x     => управляюший символ ESC (ESCAPE)
 Run() method of an OWNKBD terminated
 Instance of an OWNKBD destroyed
 Sample2 application stopped
 C:\>

 >>---yaGetKey(---+-----------------------+---)---><
                  +---time---+------------+
                             +---, stem---+ 

 /* Sample3.cmd - test of yaGetKey() */
 parse version _ver
 say _ver
 if RxFuncQuery('yaGetKeyLoad') then do
    _rc = RxFuncAdd('yaGetKeyLoad', 'yaGetKey', 'yaGetKeyLoad');
    _rc = yaGetKeyLoad();
 end;
 say 'yaGetKey v.'||yaGetKeyVer()
 say 'Press Esc to quit'
 _key = '';
 do while (_key \== '1B'x)
    _key = yaGetKey();
    say '_key="'||c2x(_key)||'"x'
 end;
 _rc = yaGetKeyDrop();
 exit;