[fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS
luciano de souza
luchyanus at gmail.com
Wed Jun 15 15:58:09 CEST 2011
Thank you very much for the attention. Even forgetting the attachment,
the answer came back detailedly and precisely.
In your message, there are lots of information. Coming back home, I
will study it more carefully. However, some conclusions I think I
could understand:
1. In stead of using "\65", I sould use "A" or #65. Well, it's really
a big mistake, since in Pascal the code is a char variable.
2. The apostrophe has to be enclose by two apostrophes. It's something
similar when we parse arguments in a SQL instruction: ''%s''.
3. Some constants are explicite, but unfortunately some of them are
calculated by C macros. This is truly a bad news. I don't know how to
use, to find or even if the visual C tools are acessible at the point
of view of my screen reader. However, regarding the code didn't
compile because of the character codes, I don't know if H2PAs can
interprete the macros, converting it into the expanded constants. If
the answer is true, good news; if not, I need to think which approach
will be workable. In this case, as a single way, I should study C to
understand the behaviour of C macros, don't you?
Now, I can't evaluate if macros are an unreachable obstacle. With any
change, H2PAS has ttranslated IupDefs.h, with more than 600 lines.
2011/6/14, Skybuck Flying <skybuck2000 at hotmail.com>:
> The attachment did not come through.
>
> I did find your file on the internet I think.
>
> The file contains defines for keys and such.
>
> The file is probably not really needed.
>
> What you could do is simply add every missing key yourself.
>
> However there are some problems with it:
>
> Pascal is case insensitive while C/C++ is not.
>
> The file makes a difference between a capital A and a small a.
>
> So that would need to be fixed.
>
> Also to make a string containing an apostrophe requires two apostrophes
> within a delphi string. (This was the problem for the second error).
>
> The file also uses complex macro's to calculate key values, you could try
> expanding those with a visual c tool, this would pre-calculate them and turn
> them into constants which
> would be much easier I think.
>
> It has further problems with incompatibilities between longint and char,
> which are caused by the macro s which were converted into functions.
>
> Also I did not use the D switch or the C switch.
>
> For what it's worth here is the file, it compiles at least the first 128
> letters or so plus some control characters... I also changed some
> declarations to K_A_upper to indicate it's an upper letter, this solves the
> case-insensitivity problem.
>
> Perhaps you can fix it further.
>
> Begin of File
>
> unit IUPKEY;
>
> interface
>
> {
> Automatically converted by H2Pas 1.0.0 from iupkey.h
> The following command line parameters were used:
> iupkey.h
> }
>
> {$IFDEF FPC}
> {$PACKRECORDS C}
> {$ENDIF}
>
>
> {* \file
> * \brief Keyboard Keys definitions.
> *
> * See Copyright Notice in "iup.h"
> }
> {$ifndef __IUPKEY_H}
> {$define __IUPKEY_H}
> { from 32 to 126, all character sets are equal,
> the key code i the same as the character code. }
> { 32 }
>
> const
> K_SP = ' ';
> { 33 }
> K_exclam = '!';
> { 34 }
> K_quotedbl = '\"';
> { 35 }
> K_numbersign = '#';
> { 36 }
> K_dollar = '$';
> { 37 }
> K_percent = '%';
> { 38 }
> K_ampersand = '&';
> { 39 }
> K_apostrophe = '''';
> { 40 }
> K_parentleft = '(';
> { 41 }
> K_parentright = ')';
> { 42 }
> K_asterisk = '*';
> { 43 }
> K_plus = '+';
> { 44 }
> K_comma = ',';
> { 45 }
> K_minus = '-';
> { 46 }
> K_period = '.';
> { 47 }
> K_slash = '/';
> { 48 }
> K_0 = '0';
> { 49 }
> K_1 = '1';
> { 50 }
> K_2 = '2';
> { 51 }
> K_3 = '3';
> { 52 }
> K_4 = '4';
> { 53 }
> K_5 = '5';
> { 54 }
> K_6 = '6';
> { 55 }
> K_7 = '7';
> { 56 }
> K_8 = '8';
> { 57 }
> K_9 = '9';
> { 58 }
> K_colon = ':';
> { 59 }
> K_semicolon = ';';
> { 60 }
> K_less = '<';
> { 61 }
> K_equal = '=';
> { 62 }
> K_greater = '>';
> { 63 }
> K_question = '?';
> { 64 }
> K_at = '@';
> { 65 }
> K_A_upper = 'A';
> { 66 }
> K_B_upper = 'B';
> { 67 }
> K_C_upper = 'C';
> { 68 }
> K_D_upper = 'D';
> { 69 }
> K_E_upper = 'E';
> { 70 }
> K_F_upper = 'F';
> { 71 }
> K_G_upper = 'G';
> { 72 }
> K_H_upper = 'H';
> { 73 }
> K_I_upper = 'I';
> { 74 }
> K_J_upper = 'J';
> { 75 }
> K_K_upper = 'K';
> { 76 }
> K_L_upper = 'L';
> { 77 }
> K_M_upper = 'M';
> { 78 }
> K_N_upper = 'N';
> { 79 }
> K_O_upper = 'O';
> { 80 }
> K_P_upper = 'P';
> { 81 }
> K_Q_upper = 'Q';
> { 82 }
> K_R_upper = 'R';
> { 83 }
> K_S_upper = 'S';
> { 84 }
> K_T_upper = 'T';
> { 85 }
> K_U_upper = 'U';
> { 86 }
> K_V_upper = 'V';
> { 87 }
> K_W_upper = 'W';
> { 88 }
> K_X_upper = 'X';
> { 89 }
> K_Y_upper = 'Y';
> { 90 }
> K_Z_upper = 'Z';
> { 91 }
> K_bracketleft = '[';
> { 92 }
> K_backslash = '\\';
> { 93 }
> K_bracketright = ']';
> { 94 }
> K_circum = '^';
> { 95 }
> K_underscore = '_';
> { 96 }
> K_grave = '`';
> { 97 }
> K_a = 'a';
> { 98 }
> K_b = 'b';
> { 99 }
> K_c = 'c';
> { 100 }
> K_d = 'd';
> { 101 }
> K_e = 'e';
> { 102 }
> K_f = 'f';
> { 103 }
> K_g = 'g';
> { 104 }
> K_h = 'h';
> { 105 }
> K_i = 'i';
> { 106 }
> K_j = 'j';
> { 107 }
> K_k = 'k';
> { 108 }
> K_l = 'l';
> { 109 }
> K_m = 'm';
> { 110 }
> K_n = 'n';
> { 111 }
> K_o = 'o';
> { 112 }
> K_p = 'p';
> { 113 }
> K_q = 'q';
> { 114 }
> K_r = 'r';
> { 115 }
> K_s = 's';
> { 116 }
> K_t = 't';
> { 117 }
> K_u = 'u';
> { 118 }
> K_v = 'v';
> { 119 }
> K_w = 'w';
> { 120 }
> K_x = 'x';
> { 121 }
> K_y = 'y';
> { 122 }
> K_z = 'z';
> { 123 }
> K_braceleft = '{';
> { 124 }
> K_bar = '|';
> { 125 }
> K_braceright = '}';
> { 126 }
> K_tilde = '~';
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
>
> function iup_isprint(_c : longint) : longint;
>
> { also define the escape sequences that have keys associated }
> { 8 }
> const
> K_BS = '\b';
> { 9 }
> K_TAB = '\t';
> { 10 (0x0A) not a real key, is a combination of CR with a modifier, just
> to document }
> K_LF = '\n';
> { 13 (0x0D) }
> K_CR = '\r';
> { backward compatible definitions }
> K_quoteleft = K_grave;
> K_quoteright = K_apostrophe;
> isxkey = iup_isXkey;
> { IUP Extended Key Codes, range start at 128 }
> { Modifiers use 256 interval }
> { These key code definitions are specific to IUP }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
>
> function iup_isXkey(_c : longint) : longint;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isShiftXkey(_c : longint) : longint;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isCtrlXkey(_c : longint) : longint;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isAltXkey(_c : longint) : longint;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isSysXkey(_c : longint) : longint;
>
> { Normal (must be above 128) }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPxCODE(_c : longint) : _c;
>
> { Shift (must have range to include the standard keys and the normal
> extended keys, so must be above 256 }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPsxCODE(_c : longint) : _c;
>
> { Ctrl }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPcxCODE(_c : longint) : _c;
>
> { Alt }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPmxCODE(_c : longint) : _c;
>
> { Sys (Win or Apple) }
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPyxCODE(_c : longint) : _c;
>
> { 5*256=1280 Normal+Shift+Ctrl+Alt+Sys }
> const
> IUP_NUMMAXCODES = 1280;
>
> { was #define dname def_expr }
> function K_HOME : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_UP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_PGUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_LEFT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_MIDDLE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_RIGHT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_END : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_DOWN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_PGDN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_INS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_DEL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_PAUSE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_ESC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_ccedilla : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F10 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F11 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_F12 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_Print : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_Menu : longint; { return type might be wrong }
>
> { no Shift/Ctrl/Alt }
> { was #define dname def_expr }
> function K_acute : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sHOME : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPGUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sLEFT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sMIDDLE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sRIGHT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sEND : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sDOWN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPGDN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sINS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sDEL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sSP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sTAB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sCR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sBS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPAUSE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sESC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_Ccedilla : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF10 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF11 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sF12 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPrint : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sMenu : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cHOME : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPGUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cLEFT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cMIDDLE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cRIGHT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cEND : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cDOWN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPGDN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cINS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cDEL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cSP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cTAB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cCR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cBS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPAUSE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cESC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cCcedilla : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF10 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF11 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF12 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPrint : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cMenu : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mHOME : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPGUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mLEFT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mMIDDLE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mRIGHT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mEND : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mDOWN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPGDN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mINS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mDEL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mSP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mTAB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mCR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mBS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPAUSE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mESC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mCcedilla : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF10 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF11 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF12 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPrint : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mMenu : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yHOME : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPGUP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yLEFT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yMIDDLE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yRIGHT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yEND : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yDOWN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPGDN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yINS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yDEL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_ySP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yTAB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yCR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yBS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPAUSE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yESC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yCcedilla : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF10 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF11 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF12 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPrint : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yMenu : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPlus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sComma : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sMinus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sPeriod : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sSlash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_sAsterisk : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cA : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cD : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cF : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cG : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cH : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cI : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cJ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cK : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cM : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cO : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cQ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cU : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cV : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cW : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cX : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cY : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cZ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_c0 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPlus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cComma : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cMinus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cPeriod : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cSlash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cSemicolon : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cEqual : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cBracketleft : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cBracketright : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cBackslash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_cAsterisk : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mA : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mD : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mF : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mG : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mH : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mI : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mJ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mK : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mM : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mO : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mQ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mU : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mV : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mW : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mX : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mY : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mZ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_m0 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPlus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mComma : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mMinus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mPeriod : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mSlash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mSemicolon : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mEqual : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mBracketleft : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mBracketright : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mBackslash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_mAsterisk : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yA : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yB : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yC : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yD : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yE : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yF : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yG : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yH : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yI : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yJ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yK : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yL : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yM : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yN : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yO : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yP : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yQ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yR : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yS : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yT : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yU : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yV : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yW : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yX : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yY : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yZ : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y1 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y2 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y3 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y4 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y5 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y6 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y7 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y8 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y9 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_y0 : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPlus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yComma : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yMinus : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yPeriod : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_ySlash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_ySemicolon : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yEqual : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yBracketleft : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yBracketright : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yBackslash : longint; { return type might be wrong }
>
> { was #define dname def_expr }
> function K_yAsterisk : longint; { return type might be wrong }
>
> {$endif}
>
> implementation
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isprint(_c : longint) : longint;
> begin
> iup_isprint:=(_c>(31 and (@(_c))))<127;
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isXkey(_c : longint) : longint;
> begin
> iup_isXkey:=_c>128;
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isShiftXkey(_c : longint) : longint;
> begin
> iup_isShiftXkey:=(_c>256) and (@(_c<512));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isCtrlXkey(_c : longint) : longint;
> begin
> iup_isCtrlXkey:=(_c>512) and (@(_c<768));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isAltXkey(_c : longint) : longint;
> begin
> iup_isAltXkey:=(_c>768) and (@(_c<1024));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> { return type might be wrong }
> function iup_isSysXkey(_c : longint) : longint;
> begin
> iup_isSysXkey:=(_c>1024) and (@(_c<1280));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPxCODE(_c : longint) : _c;
> begin
> IUPxCODE:=_c(+(128));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPsxCODE(_c : longint) : _c;
> begin
> IUPsxCODE:=_c(+(256));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPcxCODE(_c : longint) : _c;
> begin
> IUPcxCODE:=_c(+(512));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPmxCODE(_c : longint) : _c;
> begin
> IUPmxCODE:=_c(+(768));
> end;
>
> { was #define dname(params) para_def_expr }
> { argument types are unknown }
> function IUPyxCODE(_c : longint) : _c;
> begin
> IUPyxCODE:=_c(+(1024));
> end;
>
> { was #define dname def_expr }
> function K_HOME : longint; { return type might be wrong }
> begin
> K_HOME:=IUPxCODE(1);
> end;
>
> { was #define dname def_expr }
> function K_UP : longint; { return type might be wrong }
> begin
> K_UP:=IUPxCODE(2);
> end;
>
> { was #define dname def_expr }
> function K_PGUP : longint; { return type might be wrong }
> begin
> K_PGUP:=IUPxCODE(3);
> end;
>
> { was #define dname def_expr }
> function K_LEFT : longint; { return type might be wrong }
> begin
> K_LEFT:=IUPxCODE(4);
> end;
>
> { was #define dname def_expr }
> function K_MIDDLE : longint; { return type might be wrong }
> begin
> K_MIDDLE:=IUPxCODE(5);
> end;
>
> { was #define dname def_expr }
> function K_RIGHT : longint; { return type might be wrong }
> begin
> K_RIGHT:=IUPxCODE(6);
> end;
>
> { was #define dname def_expr }
> function K_END : longint; { return type might be wrong }
> begin
> K_END:=IUPxCODE(7);
> end;
>
> { was #define dname def_expr }
> function K_DOWN : longint; { return type might be wrong }
> begin
> K_DOWN:=IUPxCODE(8);
> end;
>
> { was #define dname def_expr }
> function K_PGDN : longint; { return type might be wrong }
> begin
> K_PGDN:=IUPxCODE(9);
> end;
>
> { was #define dname def_expr }
> function K_INS : longint; { return type might be wrong }
> begin
> K_INS:=IUPxCODE(10);
> end;
>
> { was #define dname def_expr }
> function K_DEL : longint; { return type might be wrong }
> begin
> K_DEL:=IUPxCODE(11);
> end;
>
> { was #define dname def_expr }
> function K_PAUSE : longint; { return type might be wrong }
> begin
> K_PAUSE:=IUPxCODE(12);
> end;
>
> { was #define dname def_expr }
> function K_ESC : longint; { return type might be wrong }
> begin
> K_ESC:=IUPxCODE(13);
> end;
>
> { was #define dname def_expr }
> function K_ccedilla : longint; { return type might be wrong }
> begin
> K_ccedilla:=IUPxCODE(14);
> end;
>
> { was #define dname def_expr }
> function K_F1 : longint; { return type might be wrong }
> begin
> K_F1:=IUPxCODE(15);
> end;
>
> { was #define dname def_expr }
> function K_F2 : longint; { return type might be wrong }
> begin
> K_F2:=IUPxCODE(16);
> end;
>
> { was #define dname def_expr }
> function K_F3 : longint; { return type might be wrong }
> begin
> K_F3:=IUPxCODE(17);
> end;
>
> { was #define dname def_expr }
> function K_F4 : longint; { return type might be wrong }
> begin
> K_F4:=IUPxCODE(18);
> end;
>
> { was #define dname def_expr }
> function K_F5 : longint; { return type might be wrong }
> begin
> K_F5:=IUPxCODE(19);
> end;
>
> { was #define dname def_expr }
> function K_F6 : longint; { return type might be wrong }
> begin
> K_F6:=IUPxCODE(20);
> end;
>
> { was #define dname def_expr }
> function K_F7 : longint; { return type might be wrong }
> begin
> K_F7:=IUPxCODE(21);
> end;
>
> { was #define dname def_expr }
> function K_F8 : longint; { return type might be wrong }
> begin
> K_F8:=IUPxCODE(22);
> end;
>
> { was #define dname def_expr }
> function K_F9 : longint; { return type might be wrong }
> begin
> K_F9:=IUPxCODE(23);
> end;
>
> { was #define dname def_expr }
> function K_F10 : longint; { return type might be wrong }
> begin
> K_F10:=IUPxCODE(24);
> end;
>
> { was #define dname def_expr }
> function K_F11 : longint; { return type might be wrong }
> begin
> K_F11:=IUPxCODE(25);
> end;
>
> { was #define dname def_expr }
> function K_F12 : longint; { return type might be wrong }
> begin
> K_F12:=IUPxCODE(26);
> end;
>
> { was #define dname def_expr }
> function K_Print : longint; { return type might be wrong }
> begin
> K_Print:=IUPxCODE(27);
> end;
>
> { was #define dname def_expr }
> function K_Menu : longint; { return type might be wrong }
> begin
> K_Menu:=IUPxCODE(28);
> end;
>
> { was #define dname def_expr }
> function K_acute : longint; { return type might be wrong }
> begin
> K_acute:=IUPxCODE(29);
> end;
>
> { was #define dname def_expr }
> function K_sHOME : longint; { return type might be wrong }
> begin
> K_sHOME:=IUPsxCODE(K_HOME);
> end;
>
> { was #define dname def_expr }
> function K_sUP : longint; { return type might be wrong }
> begin
> K_sUP:=IUPsxCODE(K_UP);
> end;
>
> { was #define dname def_expr }
> function K_sPGUP : longint; { return type might be wrong }
> begin
> K_sPGUP:=IUPsxCODE(K_PGUP);
> end;
>
> { was #define dname def_expr }
> function K_sLEFT : longint; { return type might be wrong }
> begin
> K_sLEFT:=IUPsxCODE(K_LEFT);
> end;
>
> { was #define dname def_expr }
> function K_sMIDDLE : longint; { return type might be wrong }
> begin
> K_sMIDDLE:=IUPsxCODE(K_MIDDLE);
> end;
>
> { was #define dname def_expr }
> function K_sRIGHT : longint; { return type might be wrong }
> begin
> K_sRIGHT:=IUPsxCODE(K_RIGHT);
> end;
>
> { was #define dname def_expr }
> function K_sEND : longint; { return type might be wrong }
> begin
> K_sEND:=IUPsxCODE(K_END);
> end;
>
> { was #define dname def_expr }
> function K_sDOWN : longint; { return type might be wrong }
> begin
> K_sDOWN:=IUPsxCODE(K_DOWN);
> end;
>
> { was #define dname def_expr }
> function K_sPGDN : longint; { return type might be wrong }
> begin
> K_sPGDN:=IUPsxCODE(K_PGDN);
> end;
>
> { was #define dname def_expr }
> function K_sINS : longint; { return type might be wrong }
> begin
> K_sINS:=IUPsxCODE(K_INS);
> end;
>
> { was #define dname def_expr }
> function K_sDEL : longint; { return type might be wrong }
> begin
> K_sDEL:=IUPsxCODE(K_DEL);
> end;
>
> { was #define dname def_expr }
> function K_sSP : longint; { return type might be wrong }
> begin
> K_sSP:=IUPsxCODE(K_SP);
> end;
>
> { was #define dname def_expr }
> function K_sTAB : longint; { return type might be wrong }
> begin
> K_sTAB:=IUPsxCODE(K_TAB);
> end;
>
> { was #define dname def_expr }
> function K_sCR : longint; { return type might be wrong }
> begin
> K_sCR:=IUPsxCODE(K_CR);
> end;
>
> { was #define dname def_expr }
> function K_sBS : longint; { return type might be wrong }
> begin
> K_sBS:=IUPsxCODE(K_BS);
> end;
>
> { was #define dname def_expr }
> function K_sPAUSE : longint; { return type might be wrong }
> begin
> K_sPAUSE:=IUPsxCODE(K_PAUSE);
> end;
>
> { was #define dname def_expr }
> function K_sESC : longint; { return type might be wrong }
> begin
> K_sESC:=IUPsxCODE(K_ESC);
> end;
>
> { was #define dname def_expr }
> function K_Ccedilla : longint; { return type might be wrong }
> begin
> K_Ccedilla:=IUPsxCODE(K_ccedilla);
> end;
>
> { was #define dname def_expr }
> function K_sF1 : longint; { return type might be wrong }
> begin
> K_sF1:=IUPsxCODE(K_F1);
> end;
>
> { was #define dname def_expr }
> function K_sF2 : longint; { return type might be wrong }
> begin
> K_sF2:=IUPsxCODE(K_F2);
> end;
>
> { was #define dname def_expr }
> function K_sF3 : longint; { return type might be wrong }
> begin
> K_sF3:=IUPsxCODE(K_F3);
> end;
>
> { was #define dname def_expr }
> function K_sF4 : longint; { return type might be wrong }
> begin
> K_sF4:=IUPsxCODE(K_F4);
> end;
>
> { was #define dname def_expr }
> function K_sF5 : longint; { return type might be wrong }
> begin
> K_sF5:=IUPsxCODE(K_F5);
> end;
>
> { was #define dname def_expr }
> function K_sF6 : longint; { return type might be wrong }
> begin
> K_sF6:=IUPsxCODE(K_F6);
> end;
>
> { was #define dname def_expr }
> function K_sF7 : longint; { return type might be wrong }
> begin
> K_sF7:=IUPsxCODE(K_F7);
> end;
>
> { was #define dname def_expr }
> function K_sF8 : longint; { return type might be wrong }
> begin
> K_sF8:=IUPsxCODE(K_F8);
> end;
>
> { was #define dname def_expr }
> function K_sF9 : longint; { return type might be wrong }
> begin
> K_sF9:=IUPsxCODE(K_F9);
> end;
>
> { was #define dname def_expr }
> function K_sF10 : longint; { return type might be wrong }
> begin
> K_sF10:=IUPsxCODE(K_F10);
> end;
>
> { was #define dname def_expr }
> function K_sF11 : longint; { return type might be wrong }
> begin
> K_sF11:=IUPsxCODE(K_F11);
> end;
>
> { was #define dname def_expr }
> function K_sF12 : longint; { return type might be wrong }
> begin
> K_sF12:=IUPsxCODE(K_F12);
> end;
>
> { was #define dname def_expr }
> function K_sPrint : longint; { return type might be wrong }
> begin
> K_sPrint:=IUPsxCODE(K_Print);
> end;
>
> { was #define dname def_expr }
> function K_sMenu : longint; { return type might be wrong }
> begin
> K_sMenu:=IUPsxCODE(K_Menu);
> end;
>
> { was #define dname def_expr }
> function K_cHOME : longint; { return type might be wrong }
> begin
> K_cHOME:=IUPcxCODE(K_HOME);
> end;
>
> { was #define dname def_expr }
> function K_cUP : longint; { return type might be wrong }
> begin
> K_cUP:=IUPcxCODE(K_UP);
> end;
>
> { was #define dname def_expr }
> function K_cPGUP : longint; { return type might be wrong }
> begin
> K_cPGUP:=IUPcxCODE(K_PGUP);
> end;
>
> { was #define dname def_expr }
> function K_cLEFT : longint; { return type might be wrong }
> begin
> K_cLEFT:=IUPcxCODE(K_LEFT);
> end;
>
> { was #define dname def_expr }
> function K_cMIDDLE : longint; { return type might be wrong }
> begin
> K_cMIDDLE:=IUPcxCODE(K_MIDDLE);
> end;
>
> { was #define dname def_expr }
> function K_cRIGHT : longint; { return type might be wrong }
> begin
> K_cRIGHT:=IUPcxCODE(K_RIGHT);
> end;
>
> { was #define dname def_expr }
> function K_cEND : longint; { return type might be wrong }
> begin
> K_cEND:=IUPcxCODE(K_END);
> end;
>
> { was #define dname def_expr }
> function K_cDOWN : longint; { return type might be wrong }
> begin
> K_cDOWN:=IUPcxCODE(K_DOWN);
> end;
>
> { was #define dname def_expr }
> function K_cPGDN : longint; { return type might be wrong }
> begin
> K_cPGDN:=IUPcxCODE(K_PGDN);
> end;
>
> { was #define dname def_expr }
> function K_cINS : longint; { return type might be wrong }
> begin
> K_cINS:=IUPcxCODE(K_INS);
> end;
>
> { was #define dname def_expr }
> function K_cDEL : longint; { return type might be wrong }
> begin
> K_cDEL:=IUPcxCODE(K_DEL);
> end;
>
> { was #define dname def_expr }
> function K_cSP : longint; { return type might be wrong }
> begin
> K_cSP:=IUPcxCODE(K_SP);
> end;
>
> { was #define dname def_expr }
> function K_cTAB : longint; { return type might be wrong }
> begin
> K_cTAB:=IUPcxCODE(K_TAB);
> end;
>
> { was #define dname def_expr }
> function K_cCR : longint; { return type might be wrong }
> begin
> K_cCR:=IUPcxCODE(K_CR);
> end;
>
> { was #define dname def_expr }
> function K_cBS : longint; { return type might be wrong }
> begin
> K_cBS:=IUPcxCODE(K_BS);
> end;
>
> { was #define dname def_expr }
> function K_cPAUSE : longint; { return type might be wrong }
> begin
> K_cPAUSE:=IUPcxCODE(K_PAUSE);
> end;
>
> { was #define dname def_expr }
> function K_cESC : longint; { return type might be wrong }
> begin
> K_cESC:=IUPcxCODE(K_ESC);
> end;
>
> { was #define dname def_expr }
> function K_cCcedilla : longint; { return type might be wrong }
> begin
> K_cCcedilla:=IUPcxCODE(K_ccedilla);
> end;
>
> { was #define dname def_expr }
> function K_cF1 : longint; { return type might be wrong }
> begin
> K_cF1:=IUPcxCODE(K_F1);
> end;
>
> { was #define dname def_expr }
> function K_cF2 : longint; { return type might be wrong }
> begin
> K_cF2:=IUPcxCODE(K_F2);
> end;
>
> { was #define dname def_expr }
> function K_cF3 : longint; { return type might be wrong }
> begin
> K_cF3:=IUPcxCODE(K_F3);
> end;
>
> { was #define dname def_expr }
> function K_cF4 : longint; { return type might be wrong }
> begin
> K_cF4:=IUPcxCODE(K_F4);
> end;
>
> { was #define dname def_expr }
> function K_cF5 : longint; { return type might be wrong }
> begin
> K_cF5:=IUPcxCODE(K_F5);
> end;
>
> { was #define dname def_expr }
> function K_cF6 : longint; { return type might be wrong }
> begin
> K_cF6:=IUPcxCODE(K_F6);
> end;
>
> { was #define dname def_expr }
> function K_cF7 : longint; { return type might be wrong }
> begin
> K_cF7:=IUPcxCODE(K_F7);
> end;
>
> { was #define dname def_expr }
> function K_cF8 : longint; { return type might be wrong }
> begin
> K_cF8:=IUPcxCODE(K_F8);
> end;
>
> { was #define dname def_expr }
> function K_cF9 : longint; { return type might be wrong }
> begin
> K_cF9:=IUPcxCODE(K_F9);
> end;
>
> { was #define dname def_expr }
> function K_cF10 : longint; { return type might be wrong }
> begin
> K_cF10:=IUPcxCODE(K_F10);
> end;
>
> { was #define dname def_expr }
> function K_cF11 : longint; { return type might be wrong }
> begin
> K_cF11:=IUPcxCODE(K_F11);
> end;
>
> { was #define dname def_expr }
> function K_cF12 : longint; { return type might be wrong }
> begin
> K_cF12:=IUPcxCODE(K_F12);
> end;
>
> { was #define dname def_expr }
> function K_cPrint : longint; { return type might be wrong }
> begin
> K_cPrint:=IUPcxCODE(K_Print);
> end;
>
> { was #define dname def_expr }
> function K_cMenu : longint; { return type might be wrong }
> begin
> K_cMenu:=IUPcxCODE(K_Menu);
> end;
>
> { was #define dname def_expr }
> function K_mHOME : longint; { return type might be wrong }
> begin
> K_mHOME:=IUPmxCODE(K_HOME);
> end;
>
> { was #define dname def_expr }
> function K_mUP : longint; { return type might be wrong }
> begin
> K_mUP:=IUPmxCODE(K_UP);
> end;
>
> { was #define dname def_expr }
> function K_mPGUP : longint; { return type might be wrong }
> begin
> K_mPGUP:=IUPmxCODE(K_PGUP);
> end;
>
> { was #define dname def_expr }
> function K_mLEFT : longint; { return type might be wrong }
> begin
> K_mLEFT:=IUPmxCODE(K_LEFT);
> end;
>
> { was #define dname def_expr }
> function K_mMIDDLE : longint; { return type might be wrong }
> begin
> K_mMIDDLE:=IUPmxCODE(K_MIDDLE);
> end;
>
> { was #define dname def_expr }
> function K_mRIGHT : longint; { return type might be wrong }
> begin
> K_mRIGHT:=IUPmxCODE(K_RIGHT);
> end;
>
> { was #define dname def_expr }
> function K_mEND : longint; { return type might be wrong }
> begin
> K_mEND:=IUPmxCODE(K_END);
> end;
>
> { was #define dname def_expr }
> function K_mDOWN : longint; { return type might be wrong }
> begin
> K_mDOWN:=IUPmxCODE(K_DOWN);
> end;
>
> { was #define dname def_expr }
> function K_mPGDN : longint; { return type might be wrong }
> begin
> K_mPGDN:=IUPmxCODE(K_PGDN);
> end;
>
> { was #define dname def_expr }
> function K_mINS : longint; { return type might be wrong }
> begin
> K_mINS:=IUPmxCODE(K_INS);
> end;
>
> { was #define dname def_expr }
> function K_mDEL : longint; { return type might be wrong }
> begin
> K_mDEL:=IUPmxCODE(K_DEL);
> end;
>
> { was #define dname def_expr }
> function K_mSP : longint; { return type might be wrong }
> begin
> K_mSP:=IUPmxCODE(K_SP);
> end;
>
> { was #define dname def_expr }
> function K_mTAB : longint; { return type might be wrong }
> begin
> K_mTAB:=IUPmxCODE(K_TAB);
> end;
>
> { was #define dname def_expr }
> function K_mCR : longint; { return type might be wrong }
> begin
> K_mCR:=IUPmxCODE(K_CR);
> end;
>
> { was #define dname def_expr }
> function K_mBS : longint; { return type might be wrong }
> begin
> K_mBS:=IUPmxCODE(K_BS);
> end;
>
> { was #define dname def_expr }
> function K_mPAUSE : longint; { return type might be wrong }
> begin
> K_mPAUSE:=IUPmxCODE(K_PAUSE);
> end;
>
> { was #define dname def_expr }
> function K_mESC : longint; { return type might be wrong }
> begin
> K_mESC:=IUPmxCODE(K_ESC);
> end;
>
> { was #define dname def_expr }
> function K_mCcedilla : longint; { return type might be wrong }
> begin
> K_mCcedilla:=IUPmxCODE(K_ccedilla);
> end;
>
> { was #define dname def_expr }
> function K_mF1 : longint; { return type might be wrong }
> begin
> K_mF1:=IUPmxCODE(K_F1);
> end;
>
> { was #define dname def_expr }
> function K_mF2 : longint; { return type might be wrong }
> begin
> K_mF2:=IUPmxCODE(K_F2);
> end;
>
> { was #define dname def_expr }
> function K_mF3 : longint; { return type might be wrong }
> begin
> K_mF3:=IUPmxCODE(K_F3);
> end;
>
> { was #define dname def_expr }
> function K_mF4 : longint; { return type might be wrong }
> begin
> K_mF4:=IUPmxCODE(K_F4);
> end;
>
> { was #define dname def_expr }
> function K_mF5 : longint; { return type might be wrong }
> begin
> K_mF5:=IUPmxCODE(K_F5);
> end;
>
> { was #define dname def_expr }
> function K_mF6 : longint; { return type might be wrong }
> begin
> K_mF6:=IUPmxCODE(K_F6);
> end;
>
> { was #define dname def_expr }
> function K_mF7 : longint; { return type might be wrong }
> begin
> K_mF7:=IUPmxCODE(K_F7);
> end;
>
> { was #define dname def_expr }
> function K_mF8 : longint; { return type might be wrong }
> begin
> K_mF8:=IUPmxCODE(K_F8);
> end;
>
> { was #define dname def_expr }
> function K_mF9 : longint; { return type might be wrong }
> begin
> K_mF9:=IUPmxCODE(K_F9);
> end;
>
> { was #define dname def_expr }
> function K_mF10 : longint; { return type might be wrong }
> begin
> K_mF10:=IUPmxCODE(K_F10);
> end;
>
> { was #define dname def_expr }
> function K_mF11 : longint; { return type might be wrong }
> begin
> K_mF11:=IUPmxCODE(K_F11);
> end;
>
> { was #define dname def_expr }
> function K_mF12 : longint; { return type might be wrong }
> begin
> K_mF12:=IUPmxCODE(K_F12);
> end;
>
> { was #define dname def_expr }
> function K_mPrint : longint; { return type might be wrong }
> begin
> K_mPrint:=IUPmxCODE(K_Print);
> end;
>
> { was #define dname def_expr }
> function K_mMenu : longint; { return type might be wrong }
> begin
> K_mMenu:=IUPmxCODE(K_Menu);
> end;
>
> { was #define dname def_expr }
> function K_yHOME : longint; { return type might be wrong }
> begin
> K_yHOME:=IUPyxCODE(K_HOME);
> end;
>
> { was #define dname def_expr }
> function K_yUP : longint; { return type might be wrong }
> begin
> K_yUP:=IUPyxCODE(K_UP);
> end;
>
> { was #define dname def_expr }
> function K_yPGUP : longint; { return type might be wrong }
> begin
> K_yPGUP:=IUPyxCODE(K_PGUP);
> end;
>
> { was #define dname def_expr }
> function K_yLEFT : longint; { return type might be wrong }
> begin
> K_yLEFT:=IUPyxCODE(K_LEFT);
> end;
>
> { was #define dname def_expr }
> function K_yMIDDLE : longint; { return type might be wrong }
> begin
> K_yMIDDLE:=IUPyxCODE(K_MIDDLE);
> end;
>
> { was #define dname def_expr }
> function K_yRIGHT : longint; { return type might be wrong }
> begin
> K_yRIGHT:=IUPyxCODE(K_RIGHT);
> end;
>
> { was #define dname def_expr }
> function K_yEND : longint; { return type might be wrong }
> begin
> K_yEND:=IUPyxCODE(K_END);
> end;
>
> { was #define dname def_expr }
> function K_yDOWN : longint; { return type might be wrong }
> begin
> K_yDOWN:=IUPyxCODE(K_DOWN);
> end;
>
> { was #define dname def_expr }
> function K_yPGDN : longint; { return type might be wrong }
> begin
> K_yPGDN:=IUPyxCODE(K_PGDN);
> end;
>
> { was #define dname def_expr }
> function K_yINS : longint; { return type might be wrong }
> begin
> K_yINS:=IUPyxCODE(K_INS);
> end;
>
> { was #define dname def_expr }
> function K_yDEL : longint; { return type might be wrong }
> begin
> K_yDEL:=IUPyxCODE(K_DEL);
> end;
>
> { was #define dname def_expr }
> function K_ySP : longint; { return type might be wrong }
> begin
> K_ySP:=IUPyxCODE(K_SP);
> end;
>
> { was #define dname def_expr }
> function K_yTAB : longint; { return type might be wrong }
> begin
> K_yTAB:=IUPyxCODE(K_TAB);
> end;
>
> { was #define dname def_expr }
> function K_yCR : longint; { return type might be wrong }
> begin
> K_yCR:=IUPyxCODE(K_CR);
> end;
>
> { was #define dname def_expr }
> function K_yBS : longint; { return type might be wrong }
> begin
> K_yBS:=IUPyxCODE(K_BS);
> end;
>
> { was #define dname def_expr }
> function K_yPAUSE : longint; { return type might be wrong }
> begin
> K_yPAUSE:=IUPyxCODE(K_PAUSE);
> end;
>
> { was #define dname def_expr }
> function K_yESC : longint; { return type might be wrong }
> begin
> K_yESC:=IUPyxCODE(K_ESC);
> end;
>
> { was #define dname def_expr }
> function K_yCcedilla : longint; { return type might be wrong }
> begin
> K_yCcedilla:=IUPyxCODE(K_ccedilla);
> end;
>
> { was #define dname def_expr }
> function K_yF1 : longint; { return type might be wrong }
> begin
> K_yF1:=IUPyxCODE(K_F1);
> end;
>
> { was #define dname def_expr }
> function K_yF2 : longint; { return type might be wrong }
> begin
> K_yF2:=IUPyxCODE(K_F2);
> end;
>
> { was #define dname def_expr }
> function K_yF3 : longint; { return type might be wrong }
> begin
> K_yF3:=IUPyxCODE(K_F3);
> end;
>
> { was #define dname def_expr }
> function K_yF4 : longint; { return type might be wrong }
> begin
> K_yF4:=IUPyxCODE(K_F4);
> end;
>
> { was #define dname def_expr }
> function K_yF5 : longint; { return type might be wrong }
> begin
> K_yF5:=IUPyxCODE(K_F5);
> end;
>
> { was #define dname def_expr }
> function K_yF6 : longint; { return type might be wrong }
> begin
> K_yF6:=IUPyxCODE(K_F6);
> end;
>
> { was #define dname def_expr }
> function K_yF7 : longint; { return type might be wrong }
> begin
> K_yF7:=IUPyxCODE(K_F7);
> end;
>
> { was #define dname def_expr }
> function K_yF8 : longint; { return type might be wrong }
> begin
> K_yF8:=IUPyxCODE(K_F8);
> end;
>
> { was #define dname def_expr }
> function K_yF9 : longint; { return type might be wrong }
> begin
> K_yF9:=IUPyxCODE(K_F9);
> end;
>
> { was #define dname def_expr }
> function K_yF10 : longint; { return type might be wrong }
> begin
> K_yF10:=IUPyxCODE(K_F10);
> end;
>
> { was #define dname def_expr }
> function K_yF11 : longint; { return type might be wrong }
> begin
> K_yF11:=IUPyxCODE(K_F11);
> end;
>
> { was #define dname def_expr }
> function K_yF12 : longint; { return type might be wrong }
> begin
> K_yF12:=IUPyxCODE(K_F12);
> end;
>
> { was #define dname def_expr }
> function K_yPrint : longint; { return type might be wrong }
> begin
> K_yPrint:=IUPyxCODE(K_Print);
> end;
>
> { was #define dname def_expr }
> function K_yMenu : longint; { return type might be wrong }
> begin
> K_yMenu:=IUPyxCODE(K_Menu);
> end;
>
> { was #define dname def_expr }
> function K_sPlus : longint; { return type might be wrong }
> begin
> K_sPlus:=IUPsxCODE(K_plus);
> end;
>
> { was #define dname def_expr }
> function K_sComma : longint; { return type might be wrong }
> begin
> K_sComma:=IUPsxCODE(K_comma);
> end;
>
> { was #define dname def_expr }
> function K_sMinus : longint; { return type might be wrong }
> begin
> K_sMinus:=IUPsxCODE(K_minus);
> end;
>
> { was #define dname def_expr }
> function K_sPeriod : longint; { return type might be wrong }
> begin
> K_sPeriod:=IUPsxCODE(K_period);
> end;
>
> { was #define dname def_expr }
> function K_sSlash : longint; { return type might be wrong }
> begin
> K_sSlash:=IUPsxCODE(K_slash);
> end;
>
> { was #define dname def_expr }
> function K_sAsterisk : longint; { return type might be wrong }
> begin
> K_sAsterisk:=IUPsxCODE(K_asterisk);
> end;
>
> { was #define dname def_expr }
> function K_cA : longint; { return type might be wrong }
> begin
> K_cA:=IUPcxCODE(K_A);
> end;
>
> { was #define dname def_expr }
> function K_cB : longint; { return type might be wrong }
> begin
> K_cB:=IUPcxCODE(K_B);
> end;
>
> { was #define dname def_expr }
> function K_cC : longint; { return type might be wrong }
> begin
> K_cC:=IUPcxCODE(K_C);
> end;
>
> { was #define dname def_expr }
> function K_cD : longint; { return type might be wrong }
> begin
> K_cD:=IUPcxCODE(K_D);
> end;
>
> { was #define dname def_expr }
> function K_cE : longint; { return type might be wrong }
> begin
> K_cE:=IUPcxCODE(K_E);
> end;
>
> { was #define dname def_expr }
> function K_cF : longint; { return type might be wrong }
> begin
> K_cF:=IUPcxCODE(K_F);
> end;
>
> { was #define dname def_expr }
> function K_cG : longint; { return type might be wrong }
> begin
> K_cG:=IUPcxCODE(K_G);
> end;
>
> { was #define dname def_expr }
> function K_cH : longint; { return type might be wrong }
> begin
> K_cH:=IUPcxCODE(K_H);
> end;
>
> { was #define dname def_expr }
> function K_cI : longint; { return type might be wrong }
> begin
> K_cI:=IUPcxCODE(K_I);
> end;
>
> { was #define dname def_expr }
> function K_cJ : longint; { return type might be wrong }
> begin
> K_cJ:=IUPcxCODE(K_J);
> end;
>
> { was #define dname def_expr }
> function K_cK : longint; { return type might be wrong }
> begin
> K_cK:=IUPcxCODE(K_K);
> end;
>
> { was #define dname def_expr }
> function K_cL : longint; { return type might be wrong }
> begin
> K_cL:=IUPcxCODE(K_L);
> end;
>
> { was #define dname def_expr }
> function K_cM : longint; { return type might be wrong }
> begin
> K_cM:=IUPcxCODE(K_M);
> end;
>
> { was #define dname def_expr }
> function K_cN : longint; { return type might be wrong }
> begin
> K_cN:=IUPcxCODE(K_N);
> end;
>
> { was #define dname def_expr }
> function K_cO : longint; { return type might be wrong }
> begin
> K_cO:=IUPcxCODE(K_O);
> end;
>
> { was #define dname def_expr }
> function K_cP : longint; { return type might be wrong }
> begin
> K_cP:=IUPcxCODE(K_P);
> end;
>
> { was #define dname def_expr }
> function K_cQ : longint; { return type might be wrong }
> begin
> K_cQ:=IUPcxCODE(K_Q);
> end;
>
> { was #define dname def_expr }
> function K_cR : longint; { return type might be wrong }
> begin
> K_cR:=IUPcxCODE(K_R);
> end;
>
> { was #define dname def_expr }
> function K_cS : longint; { return type might be wrong }
> begin
> K_cS:=IUPcxCODE(K_S);
> end;
>
> { was #define dname def_expr }
> function K_cT : longint; { return type might be wrong }
> begin
> K_cT:=IUPcxCODE(K_T);
> end;
>
> { was #define dname def_expr }
> function K_cU : longint; { return type might be wrong }
> begin
> K_cU:=IUPcxCODE(K_U);
> end;
>
> { was #define dname def_expr }
> function K_cV : longint; { return type might be wrong }
> begin
> K_cV:=IUPcxCODE(K_V);
> end;
>
> { was #define dname def_expr }
> function K_cW : longint; { return type might be wrong }
> begin
> K_cW:=IUPcxCODE(K_W);
> end;
>
> { was #define dname def_expr }
> function K_cX : longint; { return type might be wrong }
> begin
> K_cX:=IUPcxCODE(K_X);
> end;
>
> { was #define dname def_expr }
> function K_cY : longint; { return type might be wrong }
> begin
> K_cY:=IUPcxCODE(K_Y);
> end;
>
> { was #define dname def_expr }
> function K_cZ : longint; { return type might be wrong }
> begin
> K_cZ:=IUPcxCODE(K_Z);
> end;
>
> { was #define dname def_expr }
> function K_c1 : longint; { return type might be wrong }
> begin
> K_c1:=IUPcxCODE(K_1);
> end;
>
> { was #define dname def_expr }
> function K_c2 : longint; { return type might be wrong }
> begin
> K_c2:=IUPcxCODE(K_2);
> end;
>
> { was #define dname def_expr }
> function K_c3 : longint; { return type might be wrong }
> begin
> K_c3:=IUPcxCODE(K_3);
> end;
>
> { was #define dname def_expr }
> function K_c4 : longint; { return type might be wrong }
> begin
> K_c4:=IUPcxCODE(K_4);
> end;
>
> { was #define dname def_expr }
> function K_c5 : longint; { return type might be wrong }
> begin
> K_c5:=IUPcxCODE(K_5);
> end;
>
> { was #define dname def_expr }
> function K_c6 : longint; { return type might be wrong }
> begin
> K_c6:=IUPcxCODE(K_6);
> end;
>
> { was #define dname def_expr }
> function K_c7 : longint; { return type might be wrong }
> begin
> K_c7:=IUPcxCODE(K_7);
> end;
>
> { was #define dname def_expr }
> function K_c8 : longint; { return type might be wrong }
> begin
> K_c8:=IUPcxCODE(K_8);
> end;
>
> { was #define dname def_expr }
> function K_c9 : longint; { return type might be wrong }
> begin
> K_c9:=IUPcxCODE(K_9);
> end;
>
> { was #define dname def_expr }
> function K_c0 : longint; { return type might be wrong }
> begin
> K_c0:=IUPcxCODE(K_0);
> end;
>
> { was #define dname def_expr }
> function K_cPlus : longint; { return type might be wrong }
> begin
> K_cPlus:=IUPcxCODE(K_plus);
> end;
>
> { was #define dname def_expr }
> function K_cComma : longint; { return type might be wrong }
> begin
> K_cComma:=IUPcxCODE(K_comma);
> end;
>
> { was #define dname def_expr }
> function K_cMinus : longint; { return type might be wrong }
> begin
> K_cMinus:=IUPcxCODE(K_minus);
> end;
>
> { was #define dname def_expr }
> function K_cPeriod : longint; { return type might be wrong }
> begin
> K_cPeriod:=IUPcxCODE(K_period);
> end;
>
> { was #define dname def_expr }
> function K_cSlash : longint; { return type might be wrong }
> begin
> K_cSlash:=IUPcxCODE(K_slash);
> end;
>
> { was #define dname def_expr }
> function K_cSemicolon : longint; { return type might be wrong }
> begin
> K_cSemicolon:=IUPcxCODE(K_semicolon);
> end;
>
> { was #define dname def_expr }
> function K_cEqual : longint; { return type might be wrong }
> begin
> K_cEqual:=IUPcxCODE(K_equal);
> end;
>
> { was #define dname def_expr }
> function K_cBracketleft : longint; { return type might be wrong }
> begin
> K_cBracketleft:=IUPcxCODE(K_bracketleft);
> end;
>
> { was #define dname def_expr }
> function K_cBracketright : longint; { return type might be wrong }
> begin
> K_cBracketright:=IUPcxCODE(K_bracketright);
> end;
>
> { was #define dname def_expr }
> function K_cBackslash : longint; { return type might be wrong }
> begin
> K_cBackslash:=IUPcxCODE(K_backslash);
> end;
>
> { was #define dname def_expr }
> function K_cAsterisk : longint; { return type might be wrong }
> begin
> K_cAsterisk:=IUPcxCODE(K_asterisk);
> end;
>
> { was #define dname def_expr }
> function K_mA : longint; { return type might be wrong }
> begin
> K_mA:=IUPmxCODE(K_A);
> end;
>
> { was #define dname def_expr }
> function K_mB : longint; { return type might be wrong }
> begin
> K_mB:=IUPmxCODE(K_B);
> end;
>
> { was #define dname def_expr }
> function K_mC : longint; { return type might be wrong }
> begin
> K_mC:=IUPmxCODE(K_C);
> end;
>
> { was #define dname def_expr }
> function K_mD : longint; { return type might be wrong }
> begin
> K_mD:=IUPmxCODE(K_D);
> end;
>
> { was #define dname def_expr }
> function K_mE : longint; { return type might be wrong }
> begin
> K_mE:=IUPmxCODE(K_E);
> end;
>
> { was #define dname def_expr }
> function K_mF : longint; { return type might be wrong }
> begin
> K_mF:=IUPmxCODE(K_F);
> end;
>
> { was #define dname def_expr }
> function K_mG : longint; { return type might be wrong }
> begin
> K_mG:=IUPmxCODE(K_G);
> end;
>
> { was #define dname def_expr }
> function K_mH : longint; { return type might be wrong }
> begin
> K_mH:=IUPmxCODE(K_H);
> end;
>
> { was #define dname def_expr }
> function K_mI : longint; { return type might be wrong }
> begin
> K_mI:=IUPmxCODE(K_I);
> end;
>
> { was #define dname def_expr }
> function K_mJ : longint; { return type might be wrong }
> begin
> K_mJ:=IUPmxCODE(K_J);
> end;
>
> { was #define dname def_expr }
> function K_mK : longint; { return type might be wrong }
> begin
> K_mK:=IUPmxCODE(K_K);
> end;
>
> { was #define dname def_expr }
> function K_mL : longint; { return type might be wrong }
> begin
> K_mL:=IUPmxCODE(K_L);
> end;
>
> { was #define dname def_expr }
> function K_mM : longint; { return type might be wrong }
> begin
> K_mM:=IUPmxCODE(K_M);
> end;
>
> { was #define dname def_expr }
> function K_mN : longint; { return type might be wrong }
> begin
> K_mN:=IUPmxCODE(K_N);
> end;
>
> { was #define dname def_expr }
> function K_mO : longint; { return type might be wrong }
> begin
> K_mO:=IUPmxCODE(K_O);
> end;
>
> { was #define dname def_expr }
> function K_mP : longint; { return type might be wrong }
> begin
> K_mP:=IUPmxCODE(K_P);
> end;
>
> { was #define dname def_expr }
> function K_mQ : longint; { return type might be wrong }
> begin
> K_mQ:=IUPmxCODE(K_Q);
> end;
>
> { was #define dname def_expr }
> function K_mR : longint; { return type might be wrong }
> begin
> K_mR:=IUPmxCODE(K_R);
> end;
>
> { was #define dname def_expr }
> function K_mS : longint; { return type might be wrong }
> begin
> K_mS:=IUPmxCODE(K_S);
> end;
>
> { was #define dname def_expr }
> function K_mT : longint; { return type might be wrong }
> begin
> K_mT:=IUPmxCODE(K_T);
> end;
>
> { was #define dname def_expr }
> function K_mU : longint; { return type might be wrong }
> begin
> K_mU:=IUPmxCODE(K_U);
> end;
>
> { was #define dname def_expr }
> function K_mV : longint; { return type might be wrong }
> begin
> K_mV:=IUPmxCODE(K_V);
> end;
>
> { was #define dname def_expr }
> function K_mW : longint; { return type might be wrong }
> begin
> K_mW:=IUPmxCODE(K_W);
> end;
>
> { was #define dname def_expr }
> function K_mX : longint; { return type might be wrong }
> begin
> K_mX:=IUPmxCODE(K_X);
> end;
>
> { was #define dname def_expr }
> function K_mY : longint; { return type might be wrong }
> begin
> K_mY:=IUPmxCODE(K_Y);
> end;
>
> { was #define dname def_expr }
> function K_mZ : longint; { return type might be wrong }
> begin
> K_mZ:=IUPmxCODE(K_Z);
> end;
>
> { was #define dname def_expr }
> function K_m1 : longint; { return type might be wrong }
> begin
> K_m1:=IUPmxCODE(K_1);
> end;
>
> { was #define dname def_expr }
> function K_m2 : longint; { return type might be wrong }
> begin
> K_m2:=IUPmxCODE(K_2);
> end;
>
> { was #define dname def_expr }
> function K_m3 : longint; { return type might be wrong }
> begin
> K_m3:=IUPmxCODE(K_3);
> end;
>
> { was #define dname def_expr }
> function K_m4 : longint; { return type might be wrong }
> begin
> K_m4:=IUPmxCODE(K_4);
> end;
>
> { was #define dname def_expr }
> function K_m5 : longint; { return type might be wrong }
> begin
> K_m5:=IUPmxCODE(K_5);
> end;
>
> { was #define dname def_expr }
> function K_m6 : longint; { return type might be wrong }
> begin
> K_m6:=IUPmxCODE(K_6);
> end;
>
> { was #define dname def_expr }
> function K_m7 : longint; { return type might be wrong }
> begin
> K_m7:=IUPmxCODE(K_7);
> end;
>
> { was #define dname def_expr }
> function K_m8 : longint; { return type might be wrong }
> begin
> K_m8:=IUPmxCODE(K_8);
> end;
>
> { was #define dname def_expr }
> function K_m9 : longint; { return type might be wrong }
> begin
> K_m9:=IUPmxCODE(K_9);
> end;
>
> { was #define dname def_expr }
> function K_m0 : longint; { return type might be wrong }
> begin
> K_m0:=IUPmxCODE(K_0);
> end;
>
> { was #define dname def_expr }
> function K_mPlus : longint; { return type might be wrong }
> begin
> K_mPlus:=IUPmxCODE(K_plus);
> end;
>
> { was #define dname def_expr }
> function K_mComma : longint; { return type might be wrong }
> begin
> K_mComma:=IUPmxCODE(K_comma);
> end;
>
> { was #define dname def_expr }
> function K_mMinus : longint; { return type might be wrong }
> begin
> K_mMinus:=IUPmxCODE(K_minus);
> end;
>
> { was #define dname def_expr }
> function K_mPeriod : longint; { return type might be wrong }
> begin
> K_mPeriod:=IUPmxCODE(K_period);
> end;
>
> { was #define dname def_expr }
> function K_mSlash : longint; { return type might be wrong }
> begin
> K_mSlash:=IUPmxCODE(K_slash);
> end;
>
> { was #define dname def_expr }
> function K_mSemicolon : longint; { return type might be wrong }
> begin
> K_mSemicolon:=IUPmxCODE(K_semicolon);
> end;
>
> { was #define dname def_expr }
> function K_mEqual : longint; { return type might be wrong }
> begin
> K_mEqual:=IUPmxCODE(K_equal);
> end;
>
> { was #define dname def_expr }
> function K_mBracketleft : longint; { return type might be wrong }
> begin
> K_mBracketleft:=IUPmxCODE(K_bracketleft);
> end;
>
> { was #define dname def_expr }
> function K_mBracketright : longint; { return type might be wrong }
> begin
> K_mBracketright:=IUPmxCODE(K_bracketright);
> end;
>
> { was #define dname def_expr }
> function K_mBackslash : longint; { return type might be wrong }
> begin
> K_mBackslash:=IUPmxCODE(K_backslash);
> end;
>
> { was #define dname def_expr }
> function K_mAsterisk : longint; { return type might be wrong }
> begin
> K_mAsterisk:=IUPmxCODE(K_asterisk);
> end;
>
> { was #define dname def_expr }
> function K_yA : longint; { return type might be wrong }
> begin
> K_yA:=IUPyxCODE(K_A);
> end;
>
> { was #define dname def_expr }
> function K_yB : longint; { return type might be wrong }
> begin
> K_yB:=IUPyxCODE(K_B);
> end;
>
> { was #define dname def_expr }
> function K_yC : longint; { return type might be wrong }
> begin
> K_yC:=IUPyxCODE(K_C);
> end;
>
> { was #define dname def_expr }
> function K_yD : longint; { return type might be wrong }
> begin
> K_yD:=IUPyxCODE(K_D);
> end;
>
> { was #define dname def_expr }
> function K_yE : longint; { return type might be wrong }
> begin
> K_yE:=IUPyxCODE(K_E);
> end;
>
> { was #define dname def_expr }
> function K_yF : longint; { return type might be wrong }
> begin
> K_yF:=IUPyxCODE(K_F);
> end;
>
> { was #define dname def_expr }
> function K_yG : longint; { return type might be wrong }
> begin
> K_yG:=IUPyxCODE(K_G);
> end;
>
> { was #define dname def_expr }
> function K_yH : longint; { return type might be wrong }
> begin
> K_yH:=IUPyxCODE(K_H);
> end;
>
> { was #define dname def_expr }
> function K_yI : longint; { return type might be wrong }
> begin
> K_yI:=IUPyxCODE(K_I);
> end;
>
> { was #define dname def_expr }
> function K_yJ : longint; { return type might be wrong }
> begin
> K_yJ:=IUPyxCODE(K_J);
> end;
>
> { was #define dname def_expr }
> function K_yK : longint; { return type might be wrong }
> begin
> K_yK:=IUPyxCODE(K_K);
> end;
>
> { was #define dname def_expr }
> function K_yL : longint; { return type might be wrong }
> begin
> K_yL:=IUPyxCODE(K_L);
> end;
>
> { was #define dname def_expr }
> function K_yM : longint; { return type might be wrong }
> begin
> K_yM:=IUPyxCODE(K_M);
> end;
>
> { was #define dname def_expr }
> function K_yN : longint; { return type might be wrong }
> begin
> K_yN:=IUPyxCODE(K_N);
> end;
>
> { was #define dname def_expr }
> function K_yO : longint; { return type might be wrong }
> begin
> K_yO:=IUPyxCODE(K_O);
> end;
>
> { was #define dname def_expr }
> function K_yP : longint; { return type might be wrong }
> begin
> K_yP:=IUPyxCODE(K_P);
> end;
>
> { was #define dname def_expr }
> function K_yQ : longint; { return type might be wrong }
> begin
> K_yQ:=IUPyxCODE(K_Q);
> end;
>
> { was #define dname def_expr }
> function K_yR : longint; { return type might be wrong }
> begin
> K_yR:=IUPyxCODE(K_R);
> end;
>
> { was #define dname def_expr }
> function K_yS : longint; { return type might be wrong }
> begin
> K_yS:=IUPyxCODE(K_S);
> end;
>
> { was #define dname def_expr }
> function K_yT : longint; { return type might be wrong }
> begin
> K_yT:=IUPyxCODE(K_T);
> end;
>
> { was #define dname def_expr }
> function K_yU : longint; { return type might be wrong }
> begin
> K_yU:=IUPyxCODE(K_U);
> end;
>
> { was #define dname def_expr }
> function K_yV : longint; { return type might be wrong }
> begin
> K_yV:=IUPyxCODE(K_V);
> end;
>
> { was #define dname def_expr }
> function K_yW : longint; { return type might be wrong }
> begin
> K_yW:=IUPyxCODE(K_W);
> end;
>
> { was #define dname def_expr }
> function K_yX : longint; { return type might be wrong }
> begin
> K_yX:=IUPyxCODE(K_X);
> end;
>
> { was #define dname def_expr }
> function K_yY : longint; { return type might be wrong }
> begin
> K_yY:=IUPyxCODE(K_Y);
> end;
>
> { was #define dname def_expr }
> function K_yZ : longint; { return type might be wrong }
> begin
> K_yZ:=IUPyxCODE(K_Z);
> end;
>
> { was #define dname def_expr }
> function K_y1 : longint; { return type might be wrong }
> begin
> K_y1:=IUPyxCODE(K_1);
> end;
>
> { was #define dname def_expr }
> function K_y2 : longint; { return type might be wrong }
> begin
> K_y2:=IUPyxCODE(K_2);
> end;
>
> { was #define dname def_expr }
> function K_y3 : longint; { return type might be wrong }
> begin
> K_y3:=IUPyxCODE(K_3);
> end;
>
> { was #define dname def_expr }
> function K_y4 : longint; { return type might be wrong }
> begin
> K_y4:=IUPyxCODE(K_4);
> end;
>
> { was #define dname def_expr }
> function K_y5 : longint; { return type might be wrong }
> begin
> K_y5:=IUPyxCODE(K_5);
> end;
>
> { was #define dname def_expr }
> function K_y6 : longint; { return type might be wrong }
> begin
> K_y6:=IUPyxCODE(K_6);
> end;
>
> { was #define dname def_expr }
> function K_y7 : longint; { return type might be wrong }
> begin
> K_y7:=IUPyxCODE(K_7);
> end;
>
> { was #define dname def_expr }
> function K_y8 : longint; { return type might be wrong }
> begin
> K_y8:=IUPyxCODE(K_8);
> end;
>
> { was #define dname def_expr }
> function K_y9 : longint; { return type might be wrong }
> begin
> K_y9:=IUPyxCODE(K_9);
> end;
>
> { was #define dname def_expr }
> function K_y0 : longint; { return type might be wrong }
> begin
> K_y0:=IUPyxCODE(K_0);
> end;
>
> { was #define dname def_expr }
> function K_yPlus : longint; { return type might be wrong }
> begin
> K_yPlus:=IUPyxCODE(K_plus);
> end;
>
> { was #define dname def_expr }
> function K_yComma : longint; { return type might be wrong }
> begin
> K_yComma:=IUPyxCODE(K_comma);
> end;
>
> { was #define dname def_expr }
> function K_yMinus : longint; { return type might be wrong }
> begin
> K_yMinus:=IUPyxCODE(K_minus);
> end;
>
> { was #define dname def_expr }
> function K_yPeriod : longint; { return type might be wrong }
> begin
> K_yPeriod:=IUPyxCODE(K_period);
> end;
>
> { was #define dname def_expr }
> function K_ySlash : longint; { return type might be wrong }
> begin
> K_ySlash:=IUPyxCODE(K_slash);
> end;
>
> { was #define dname def_expr }
> function K_ySemicolon : longint; { return type might be wrong }
> begin
> K_ySemicolon:=IUPyxCODE(K_semicolon);
> end;
>
> { was #define dname def_expr }
> function K_yEqual : longint; { return type might be wrong }
> begin
> K_yEqual:=IUPyxCODE(K_equal);
> end;
>
> { was #define dname def_expr }
> function K_yBracketleft : longint; { return type might be wrong }
> begin
> K_yBracketleft:=IUPyxCODE(K_bracketleft);
> end;
>
> { was #define dname def_expr }
> function K_yBracketright : longint; { return type might be wrong }
> begin
> K_yBracketright:=IUPyxCODE(K_bracketright);
> end;
>
> { was #define dname def_expr }
> function K_yBackslash : longint; { return type might be wrong }
> begin
> K_yBackslash:=IUPyxCODE(K_backslash);
> end;
>
> { was #define dname def_expr }
> function K_yAsterisk : longint; { return type might be wrong }
> begin
> K_yAsterisk:=IUPyxCODE(K_asterisk);
> end;
>
>
> end.
>
> End of File
>
> Bye,
> Skybuck.
>
> _______________________________________________
> fpc-devel maillist - fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
--
Luciano de Souza
More information about the fpc-devel
mailing list