[fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS
Skybuck Flying
skybuck2000 at hotmail.com
Wed Jun 15 02:36:55 CEST 2011
- Previous message (by thread): [fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS, however, I have nver done it, so the difficulties are meaningful., , I am blind, I use screen readers and IUP is the single graphical interface library accessible to program with a screen reader and to navigate in the output dialogs. As my purpose is not to produce beautiful windows, my public will be blind or visually impaired people, users of screen readers, for me, it's wonderful to use IUP to create my dialogs.,,I have tested IUP with Lua. This library is really what I want. But I would like to use IUP with Pascal, but unfortunately there's no a IUP binding for Pascal. Now, it's time to do it and I want to be successful in this task., , I am rying to translate headers with this commandline:, , h2pas -d {C file name},,With this command, I translated the first one. Now I am trying to translate iupkey.h, but I am not able to identify the errors., , After "h2pas -d iupkey.h", I got the following message, but I could not interprete It. What is wrong? Regarding the source code is downloaded from the official website, why have I sintax errors? Illegal characters? Why?, , at line 21 error : syntax error,at line 41 error : syntax error,Illegal character in line 45, "#define K_at '@' /* 64 */", Illegal character in line 73, "#define K_backslash '\\' /* 92 */", Illegal character in line 73, "#define K_backslash '\\' /* 92 */",Illegal character in line 75,"#define K_circum '^' /* 94 */",Illegal character in line 77,"#define K_grave '`' /* 96 */", Illegal character in line 113, "#define K_BS '\b' /* 8 */", Illegal character in line 114, "#define K_TAB '\t' /* 9 */", Illegal character in line 115,"#define K_LF '\n' /* 10 (0x0A) not a real key, is a combination of CR with a modifier, just to document */", Illegal character in line 116,"#define K_CR '\r' /* 13 (0x0D) */",LexLib: yytext overflow, , , , The C source is attached., , Thank ou in advance, any help is welcome!, , Luciano
- Next message (by thread): [fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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.
- Previous message (by thread): [fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS, however, I have nver done it, so the difficulties are meaningful., , I am blind, I use screen readers and IUP is the single graphical interface library accessible to program with a screen reader and to navigate in the output dialogs. As my purpose is not to produce beautiful windows, my public will be blind or visually impaired people, users of screen readers, for me, it's wonderful to use IUP to create my dialogs.,,I have tested IUP with Lua. This library is really what I want. But I would like to use IUP with Pascal, but unfortunately there's no a IUP binding for Pascal. Now, it's time to do it and I want to be successful in this task., , I am rying to translate headers with this commandline:, , h2pas -d {C file name},,With this command, I translated the first one. Now I am trying to translate iupkey.h, but I am not able to identify the errors., , After "h2pas -d iupkey.h", I got the following message, but I could not interprete It. What is wrong? Regarding the source code is downloaded from the official website, why have I sintax errors? Illegal characters? Why?, , at line 21 error : syntax error,at line 41 error : syntax error,Illegal character in line 45, "#define K_at '@' /* 64 */", Illegal character in line 73, "#define K_backslash '\\' /* 92 */", Illegal character in line 73, "#define K_backslash '\\' /* 92 */",Illegal character in line 75,"#define K_circum '^' /* 94 */",Illegal character in line 77,"#define K_grave '`' /* 96 */", Illegal character in line 113, "#define K_BS '\b' /* 8 */", Illegal character in line 114, "#define K_TAB '\t' /* 9 */", Illegal character in line 115,"#define K_LF '\n' /* 10 (0x0A) not a real key, is a combination of CR with a modifier, just to document */", Illegal character in line 116,"#define K_CR '\r' /* 13 (0x0D) */",LexLib: yytext overflow, , , , The C source is attached., , Thank ou in advance, any help is welcome!, , Luciano
- Next message (by thread): [fpc-devel] Hi listers, , , , I am trying to translate a C header with H2PAS
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the fpc-devel
mailing list