paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cdecl added

Browse Source
This commit is contained in:
Tomas Hajny 2000-01-09 21:01:59 +00:00
parent c4153b1ff9
commit 2d90c8f390
4 changed files with 352 additions and 290 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
rtl/os2/kbdcalls.pas
View File

@ -1,32 +1,34 @@
{Set tabsize to 4.} {Set tabsize to 4.}
{**************************************************************************** {****************************************************************************
$Id$
KBDCALLS interface unit KBDCALLS interface unit
FPK-Pascal Runtime Library for OS/2 Free Pascal Runtime Library for OS/2
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Kl„mpfl
Copyright (c) 1999-2000 by Dani‰l Mantione Copyright (c) 1999-2000 by Daniel Mantione
Copyright (c) 1999-2000 by Tomas Hajny Copyright (c) 1999-2000 by Tomas Hajny
The FPK-Pascal runtime library is distributed under the Library GNU Public The Free Pascal runtime library is distributed under the Library GNU Public
License v2. So is this unit. The Library GNU Public License requires you to License v2. So is this unit. The Library GNU Public License requires you to
distribute the source code of this unit with any product that uses it. distribute the source code of this unit with any product that uses it.
Because the EMX library isn't under the LGPL, we grant you an exception to Because the EMX library isn't under the LGPL, we grant you an exception to
this, and that is, when you compile a program with the FPK Pascal compiler, this, and that is, when you compile a program with the Free Pascal Compiler,
you do not need to ship source code with that program, AS LONG AS YOU ARE you do not need to ship source code with that program, AS LONG AS YOU ARE
USING UNMODIFIED CODE! If you modify this code, you MUST change the next USING UNMODIFIED CODE! If you modify this code, you MUST change the next
line: line:
<This is an official, unmodified FPK Pascal source code file.> <This is an official, unmodified Free Pascal source code file.>
Send us your modified files, we can work together if you want! Send us your modified files, we can work together if you want!
FPK-Pascal is distributed in the hope that it will be useful, Free Pascal is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Library GNU General Public License for more details. Library GNU General Public License for more details.
You should have received a copy of the Library GNU General Public License You should have received a copy of the Library GNU General Public License
along with FPK-Pascal; see the file COPYING.LIB. If not, write to along with Free Pascal; see the file COPYING.LIB. If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. Boston, MA 02111-1307, USA.
@ -51,10 +53,10 @@ Changelog:
Coding style: Coding style:
I have tried to use the same coding style as Dani‰l Mantione in unit I have tried to use the same coding style as Daniel Mantione in unit
DOSCALLS, although I can't say I would write it the same way otherwise DOSCALLS, although I can't say I would write it the same way otherwise
(I would write much more spaces myself, at least). Try to use it as well, (I would write much more spaces myself, at least). Try to use it as well,
please. Original note by Dani‰l Mantione follows: please. Original note by Daniel Mantione follows:
It may be well possible that coding style feels a bit strange to you. It may be well possible that coding style feels a bit strange to you.
@ -67,9 +69,9 @@ Coding style:
interface interface
{***************************************************************************} {***************************************************************************}
{$ifdef FPK} {$IFDEF FPC}
{$packrecords 1} {$PACKRECORDS 1}
{$endif FPK} {$ENDIF FPC}
const const
{return codes / error constants (those marked with * shouldn't occur under {return codes / error constants (those marked with * shouldn't occur under
@ -1236,7 +1238,7 @@ KR_* constants}
* There can be only one KbdRegister call outstanding for each session without * There can be only one KbdRegister call outstanding for each session without
an intervening KbdDeRegister. KbdDeRegister must be issued by the same an intervening KbdDeRegister. KbdDeRegister must be issued by the same
process that issued the KbdRegister.} process that issued the KbdRegister.}
function KbdRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; function KbdRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; cdecl;
function KbdRegister(ModuleName,ProcName:string;FnMask:cardinal):word; function KbdRegister(ModuleName,ProcName:string;FnMask:cardinal):word;
{Deregister a keyboard subsystem previously registered within a session - only {Deregister a keyboard subsystem previously registered within a session - only
@ -1246,7 +1248,7 @@ the process that issued the KbdRegister may issue KbdDeRegister.}
411 Error_Kbd_Deregister 411 Error_Kbd_Deregister
464 Error_Kbd_Detached 464 Error_Kbd_Detached
504 Error_Kbd_Extended_SG} 504 Error_Kbd_Extended_SG}
function KbdDeRegister:word; function KbdDeRegister:word; cdecl;
{Return a character data record from the keyboard.} {Return a character data record from the keyboard.}
{Key - see TKbdKeyInfo record type, WaitFlag - see IO_Wait and IO_NoWait {Key - see TKbdKeyInfo record type, WaitFlag - see IO_Wait and IO_NoWait
@ -1277,7 +1279,7 @@ constants, KbdHandle is the default keyboard (0) or a logical keyboard.}
from executing. If polling must be used and a minimal amount of other from executing. If polling must be used and a minimal amount of other
processing is being performed, the thread should periodically yield to the processing is being performed, the thread should periodically yield to the
CPU by issuing a DosSleep call for an interval of at least 5 milliseconds.} CPU by issuing a DosSleep call for an interval of at least 5 milliseconds.}
function KbdCharIn(var Key:TKbdKeyInfo;WaitFlag,KbdHandle:word):word; function KbdCharIn(var Key:TKbdKeyInfo;WaitFlag,KbdHandle:word):word; cdecl;
{Return any available character data record from the keyboard {Return any available character data record from the keyboard
without removing it from the buffer.} without removing it from the buffer.}
@ -1308,7 +1310,7 @@ or a logical keyboard.}
from executing. If polling must be used and a minimal amount of other from executing. If polling must be used and a minimal amount of other
processing is being performed, the thread should periodically yield the CPU processing is being performed, the thread should periodically yield the CPU
by issuing a DosSleep call for an interval of at least 5 milliseconds.} by issuing a DosSleep call for an interval of at least 5 milliseconds.}
function KbdPeek(var Key:TKbdKeyInfo;KbdHandle:word):word; function KbdPeek(var Key:TKbdKeyInfo;KbdHandle:word):word; cdecl;
{Read a character string (character codes only) from the keyboard.} {Read a character string (character codes only) from the keyboard.}
{CharBuf is a buffer for returned characters, LenInOut - see TStringInBuf {CharBuf is a buffer for returned characters, LenInOut - see TStringInBuf
@ -1344,9 +1346,9 @@ default keyboard (0) or a logical keyboard.}
* KbdStringIn completes when the handle has access to the physical keyboard * KbdStringIn completes when the handle has access to the physical keyboard
(focus), or is equal to zero and no other handle has the focus.} (focus), or is equal to zero and no other handle has the focus.}
function KbdStringIn(var CharBuf;var LenInOut:TStringInBuf;WaitFlag:word; function KbdStringIn(var CharBuf;var LenInOut:TStringInBuf;WaitFlag:word;
KbdHandle:word):word; KbdHandle:word):word; cdecl;
function KbdStringIn(CharBuf:PChar;LenInOutP:PStringInBuf;WaitFlag:word; function KbdStringIn(CharBuf:PChar;LenInOutP:PStringInBuf;WaitFlag:word;
KbdHandle:word):word; KbdHandle:word):word; cdecl;
{Clear the keystroke buffer.} {Clear the keystroke buffer.}
{KbdHandle is the default keyboard (0) or a logical keyboard.} {KbdHandle is the default keyboard (0) or a logical keyboard.}
@ -1360,7 +1362,7 @@ function KbdStringIn(CharBuf:PChar;LenInOutP:PStringInBuf;WaitFlag:word;
{Remarks: {Remarks:
* KbdFlushBuffer completes when the handle has access to the physical * KbdFlushBuffer completes when the handle has access to the physical
keyboard (focus), or is equal to zero and no other handle has the focus.} keyboard (focus), or is equal to zero and no other handle has the focus.}
function KbdFlushBuffer(KbdHandle:word):word; function KbdFlushBuffer(KbdHandle:word):word; cdecl;
{Set the characteristics of the keyboard.} {Set the characteristics of the keyboard.}
{Status - see TKbdInfo record type, KbdHandle is the default keyboard (0) or {Status - see TKbdInfo record type, KbdHandle is the default keyboard (0) or
@ -1378,7 +1380,7 @@ a logical keyboard.}
{Remarks: {Remarks:
* Shift return (bit 8 in sysstate) must be disabled in ASCII mode. * Shift return (bit 8 in sysstate) must be disabled in ASCII mode.
* KbdSetStatus is ignored for a Vio-windowed application.} * KbdSetStatus is ignored for a Vio-windowed application.}
function KbdSetStatus(var Status:TKbdInfo;KbdHandle:word):word; function KbdSetStatus(var Status:TKbdInfo;KbdHandle:word):word; cdecl;
{Get the current state of the keyboard.} {Get the current state of the keyboard.}
{Status - see TKbdInfo record type, KbdHandle is the default keyboard (0) or {Status - see TKbdInfo record type, KbdHandle is the default keyboard (0) or
@ -1400,7 +1402,7 @@ a logical keyboard.}
Character Character
* KbdGetStatus completes only when the handle has access to the physical * KbdGetStatus completes only when the handle has access to the physical
keyboard (focus) or the handle is 0 and no other handle has the focus.} keyboard (focus) or the handle is 0 and no other handle has the focus.}
function KbdGetStatus(var Status:TKbdInfo;KbdHandle:word):word; function KbdGetStatus(var Status:TKbdInfo;KbdHandle:word):word; cdecl;
{Set the code page used to translate key strokes received from the keyboard for {Set the code page used to translate key strokes received from the keyboard for
current process.} current process.}
@ -1419,7 +1421,7 @@ otherwise, KbdHandle is the default keyboard (0) or a logical keyboard.}
{Remarks: {Remarks:
* Keyboard code page support is not available without the DEVINFO=KBD * Keyboard code page support is not available without the DEVINFO=KBD
statement in the CONFIG.SYS file.} statement in the CONFIG.SYS file.}
function KbdSetCp(Reserved,CodePage,KbdHandle:word):word; function KbdSetCp(Reserved,CodePage,KbdHandle:word):word; cdecl;
{Query the code page being used to translate scan codes to ASCII characters.} {Query the code page being used to translate scan codes to ASCII characters.}
{Reserved must be set to 0. The keyboard support returns the current code {Reserved must be set to 0. The keyboard support returns the current code
@ -1439,6 +1441,7 @@ the default keyboard (0) or a logical keyboard.}
indicates the code page translation table in use is the ROM code page indicates the code page translation table in use is the ROM code page
translation table provided by the hardware.} translation table provided by the hardware.}
function KbdGetCp(Reserved:cardinal;var CodePage:word;KbdHandle:word):word; function KbdGetCp(Reserved:cardinal;var CodePage:word;KbdHandle:word):word;
cdecl;
{Create a new logical keyboard.} {Create a new logical keyboard.}
{Handle for the new logical keyboard returned in KbdHandle.} {Handle for the new logical keyboard returned in KbdHandle.}
@ -1456,7 +1459,7 @@ function KbdGetCp(Reserved:cardinal;var CodePage:word;KbdHandle:word):word;
KbdGetFocus wait until focus available on handle 0 KbdGetFocus wait until focus available on handle 0
KbdOpen get a logical keyboard handle KbdOpen get a logical keyboard handle
KbdFreeFocus give up the focus on handle 0} KbdFreeFocus give up the focus on handle 0}
function KbdOpen(var KbdHandle:word):word; function KbdOpen(var KbdHandle:word):word; cdecl;
{Close the existing logical keyboard identified by the keyboard handle} {Close the existing logical keyboard identified by the keyboard handle}
{KbdHandle is the default keyboard (0) or a logical keyboard} {KbdHandle is the default keyboard (0) or a logical keyboard}
@ -1474,7 +1477,7 @@ function KbdOpen(var KbdHandle:word):word;
KbdGetFocus wait until focus available on handle 0 KbdGetFocus wait until focus available on handle 0
KbdClose close a logical keyboard handle KbdClose close a logical keyboard handle
KbdFreeFocus give up the focus on handle 0} KbdFreeFocus give up the focus on handle 0}
function KbdClose(KbdHandle:word):word; function KbdClose(KbdHandle:word):word; cdecl;
{Bind the logical keyboard to the physical keyboard.} {Bind the logical keyboard to the physical keyboard.}
{KbdHandle is the default keyboard (0) or a logical keyboard} {KbdHandle is the default keyboard (0) or a logical keyboard}
@ -1484,7 +1487,7 @@ function KbdClose(KbdHandle:word):word;
445 Error_Kbd_Focus_Required 445 Error_Kbd_Focus_Required
464 Error_Kbd_Detached 464 Error_Kbd_Detached
504 Error_Kbd_Extended_SG} 504 Error_Kbd_Extended_SG}
function KbdGetFocus(WaitFlag,KbdHandle:word):word; function KbdGetFocus(WaitFlag,KbdHandle:word):word; cdecl;
{Free the logical-to-physical keyboard bond created by KbdGetFocus.} {Free the logical-to-physical keyboard bond created by KbdGetFocus.}
{KbdHandle is the default keyboard (0) or a logical keyboard} {KbdHandle is the default keyboard (0) or a logical keyboard}
@ -1498,7 +1501,7 @@ function KbdGetFocus(WaitFlag,KbdHandle:word):word;
* KbdFreeFocus may be replaced by issuing KbdRegister. Unlike other keyboard * KbdFreeFocus may be replaced by issuing KbdRegister. Unlike other keyboard
subsystem functions, the replaced KbdFreeFocus is called only if there is subsystem functions, the replaced KbdFreeFocus is called only if there is
an outstanding focus.} an outstanding focus.}
function KbdFreeFocus(KbdHandle:word):word; function KbdFreeFocus(KbdHandle:word):word; cdecl;
{Synchronize access from a keyboard subsystem to the keyboard device driver.} {Synchronize access from a keyboard subsystem to the keyboard device driver.}
{WaitFlag - see IO_Wait and IO_NoWait constants (wait / don't wait for access {WaitFlag - see IO_Wait and IO_NoWait constants (wait / don't wait for access
@ -1512,7 +1515,7 @@ to the device driver.}
be issued by a keyboard subsystem if it intends to issue a DosDevIOCtl or be issued by a keyboard subsystem if it intends to issue a DosDevIOCtl or
access dynamically shared data. KbdSynch does not protect globally shared access dynamically shared data. KbdSynch does not protect globally shared
data from threads in other sessions.} data from threads in other sessions.}
function KbdSynch (WaitFlag:word):word; function KbdSynch (WaitFlag:word):word; cdecl;
{Raise the priority of the foreground keyboard's thread.} {Raise the priority of the foreground keyboard's thread.}
{Possible return codes: {Possible return codes:
@ -1525,7 +1528,7 @@ function KbdSynch (WaitFlag:word):word;
threads lose their priority boost. threads lose their priority boost.
* This function should only be issued by a Keyboard Subsystem during * This function should only be issued by a Keyboard Subsystem during
KbdCharIn or KbdStringIn processing.} KbdCharIn or KbdStringIn processing.}
function KbdSetFgnd:word; function KbdSetFgnd:word; cdecl;
{Return the attached keyboard's hardware-generated identification value.} {Return the attached keyboard's hardware-generated identification value.}
{HWID is a pointer to the caller's data area, see TKbdHWID, KbdHandle is the {HWID is a pointer to the caller's data area, see TKbdHWID, KbdHandle is the
@ -1546,11 +1549,11 @@ default keyboard (0) or a logical keyboard.}
keyboard is attached. keyboard is attached.
* This function is of particular usefulness for applications providing Custom * This function is of particular usefulness for applications providing Custom
Translate Tables and mapping keyboard layouts.} Translate Tables and mapping keyboard layouts.}
function KbdGetHWID(var HWID:TKbdHWID;KbdHandle:word):word; function KbdGetHWID(var HWID:TKbdHWID;KbdHandle:word):word; cdecl;
{Undocumented in official IBM documentation} {Undocumented in official IBM documentation}
function KbdSetHWID(var HWID:TKbdHWID;KbdHandle:word):word; function KbdSetHWID(var HWID:TKbdHWID;KbdHandle:word):word; cdecl;
function KbdSetHWID(HWIDP:PKbdHWID;KbdHandle:word):word; function KbdSetHWID(HWIDP:PKbdHWID;KbdHandle:word):word; cdecl;
{Translate scan codes with shift states into ASCII codes.} {Translate scan codes with shift states into ASCII codes.}
{TransData - see TKbdTransData, KbdHandle is the default keyboard (0) or a {TransData - see TKbdTransData, KbdHandle is the default keyboard (0) or a
@ -1571,7 +1574,7 @@ logical keyboard.}
The KbdXlate function is intended to be used for translating a particular The KbdXlate function is intended to be used for translating a particular
scan code for a given shift state. The KbdXlate function is not intended scan code for a given shift state. The KbdXlate function is not intended
to be a replacement for the OS/2 system keystroke translation function.} to be a replacement for the OS/2 system keystroke translation function.}
function KbdXlate(var TransData:TKbdTrans;KbdHandle:word):word; function KbdXlate(var TransData:TKbdTrans;KbdHandle:word):word; cdecl;
{Install, on the specified handle, the translate table which this call points {Install, on the specified handle, the translate table which this call points
to. This translate table affects only this handle.} to. This translate table affects only this handle.}
@ -1595,9 +1598,9 @@ logical keyboard.}
one of the system translate tables. If memory is dynamically allocated by one of the system translate tables. If memory is dynamically allocated by
the caller for the translate table and is freed before the KbdSetCp is the caller for the translate table and is freed before the KbdSetCp is
performed, KbdSetCp and future translations may fail.} performed, KbdSetCp and future translations may fail.}
function KbdSetCustXt(var XLateTbl:TXLateTbl;KbdHandle:word):word; function KbdSetCustXt(var XLateTbl:TXLateTbl;KbdHandle:word):word; cdecl;
function KbdSetCustXt(var CodePage:word;KbdHandle:word):word; function KbdSetCustXt(var CodePage:word;KbdHandle:word):word; cdecl;
function KbdSetCustXt(var XLateTblP:pointer;KbdHandle:word):word; function KbdSetCustXt(var XLateTblP:pointer;KbdHandle:word):word; cdecl;
(* Following routines are not supported (* Following routines are not supported
@ -1616,7 +1619,7 @@ implementation
{***************************************************************************} {***************************************************************************}
function KbdRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; function KbdRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; cdecl;
external 'EMXWRAP' index 208; external 'EMXWRAP' index 208;
{external 'KBDCALLS' index 8;} {external 'KBDCALLS' index 8;}
@ -1629,100 +1632,107 @@ begin
KbdRegister:=KbdRegister(@ModuleName[1],@ProcName[1],FnMask); KbdRegister:=KbdRegister(@ModuleName[1],@ProcName[1],FnMask);
end; end;
function KbdDeRegister:word; function KbdDeRegister:word; cdecl;
external 'EMXWRAP' index 220; external 'EMXWRAP' index 220;
{external 'KBDCALLS' index 20;} {external 'KBDCALLS' index 20;}
function KbdCharIn(var Key:TKbdKeyInfo;WaitFlag,KbdHandle:word):word; function KbdCharIn(var Key:TKbdKeyInfo;WaitFlag,KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 204; external 'EMXWRAP' index 204;
{external 'KBDCALLS' index 4;} {external 'KBDCALLS' index 4;}
function KbdPeek(var Key:TKbdKeyInfo;KbdHandle:word):word; function KbdPeek(var Key:TKbdKeyInfo;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 222; external 'EMXWRAP' index 222;
{external 'KBDCALLS' index 22;} {external 'KBDCALLS' index 22;}
function KbdStringIn(var CharBuf;var LenInOut:TStringInBuf;WaitFlag:word; function KbdStringIn(var CharBuf;var LenInOut:TStringInBuf;WaitFlag:word;
KbdHandle:word):word; KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 209; external 'EMXWRAP' index 209;
{external 'KBDCALLS' index 9;} {external 'KBDCALLS' index 9;}
function KbdStringIn(CharBuf:PChar;LenInOutP:PStringInBuf;WaitFlag:word; function KbdStringIn(CharBuf:PChar;LenInOutP:PStringInBuf;WaitFlag:word;
KbdHandle:word):word; KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 209; external 'EMXWRAP' index 209;
{external 'KBDCALLS' index 9;} {external 'KBDCALLS' index 9;}
function KbdFlushBuffer(KbdHandle:word):word; function KbdFlushBuffer(KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 213; external 'EMXWRAP' index 213;
{external 'KBDCALLS' index 13;} {external 'KBDCALLS' index 13;}
function KbdSetStatus(var Status:TKbdInfo;KbdHandle:word):word; function KbdSetStatus(var Status:TKbdInfo;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 211; external 'EMXWRAP' index 211;
{external 'KBDCALLS' index 11;} {external 'KBDCALLS' index 11;}
function KbdGetStatus(var Status:TKbdInfo;KbdHandle:word):word; function KbdGetStatus(var Status:TKbdInfo;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 210; external 'EMXWRAP' index 210;
{external 'KBDCALLS' index 10;} {external 'KBDCALLS' index 10;}
function KbdSetCp(Reserved,CodePage,KbdHandle:word):word; function KbdSetCp(Reserved,CodePage,KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 205; external 'EMXWRAP' index 205;
{external 'KBDCALLS' index 5;} {external 'KBDCALLS' index 5;}
function KbdGetCp(Reserved:cardinal;var CodePage:word;KbdHandle:word):word; function KbdGetCp(Reserved:cardinal;var CodePage:word;KbdHandle:word):word;
cdecl;
external 'EMXWRAP' index 203; external 'EMXWRAP' index 203;
{external 'KBDCALLS' index 3;} {external 'KBDCALLS' index 3;}
function KbdOpen(var KbdHandle:word):word; function KbdOpen(var KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 223; external 'EMXWRAP' index 223;
{external 'KBDCALLS' index 23;} {external 'KBDCALLS' index 23;}
function KbdClose(KbdHandle:word):word; function KbdClose(KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 217; external 'EMXWRAP' index 217;
{external 'KBDCALLS' index 17;} {external 'KBDCALLS' index 17;}
function KbdGetFocus(WaitFlag,KbdHandle:word):word; function KbdGetFocus(WaitFlag,KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 212; external 'EMXWRAP' index 212;
{external 'KBDCALLS' index 12;} {external 'KBDCALLS' index 12;}
function KbdFreeFocus(KbdHandle:word):word; function KbdFreeFocus(KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 218; external 'EMXWRAP' index 218;
{external 'KBDCALLS' index 18;} {external 'KBDCALLS' index 18;}
function KbdSynch (WaitFlag:word):word; function KbdSynch (WaitFlag:word):word; cdecl;
external 'EMXWRAP' index 207; external 'EMXWRAP' index 207;
{external 'KBDCALLS' index 7;} {external 'KBDCALLS' index 7;}
function KbdSetFgnd:word; function KbdSetFgnd:word; cdecl;
external 'EMXWRAP' index 221; external 'EMXWRAP' index 221;
{external 'KBDCALLS' index 21;} {external 'KBDCALLS' index 21;}
function KbdGetHWID(var HWID:TKbdHWID;KbdHandle:word):word; function KbdGetHWID(var HWID:TKbdHWID;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 224; external 'EMXWRAP' index 224;
{external 'KBDCALLS' index 24;} {external 'KBDCALLS' index 24;}
function KbdSetHWID(var HWID:TKbdHWID;KbdHandle:word):word; function KbdSetHWID(var HWID:TKbdHWID;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 225; external 'EMXWRAP' index 225;
{external 'KBDCALLS' index 25;} {external 'KBDCALLS' index 25;}
function KbdSetHWID(HWIDP:PKbdHWID;KbdHandle:word):word; function KbdSetHWID(HWIDP:PKbdHWID;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 225; external 'EMXWRAP' index 225;
{external 'KBDCALLS' index 25;} {external 'KBDCALLS' index 25;}
function KbdXlate(var TransData:TKbdTrans;KbdHandle:word):word; function KbdXlate(var TransData:TKbdTrans;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 214; external 'EMXWRAP' index 214;
{external 'KBDCALLS' index 14;} {external 'KBDCALLS' index 14;}
function KbdSetCustXt(var XLateTbl:TXLateTbl;KbdHandle:word):word; function KbdSetCustXt(var XLateTbl:TXLateTbl;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 201; external 'EMXWRAP' index 201;
{external 'KBDCALLS' index 1;} {external 'KBDCALLS' index 1;}
function KbdSetCustXt(var CodePage:word;KbdHandle:word):word; function KbdSetCustXt(var CodePage:word;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 201; external 'EMXWRAP' index 201;
{external 'KBDCALLS' index 1;} {external 'KBDCALLS' index 1;}
function KbdSetCustXt(var XLateTblP:pointer;KbdHandle:word):word; function KbdSetCustXt(var XLateTblP:pointer;KbdHandle:word):word; cdecl;
external 'EMXWRAP' index 201; external 'EMXWRAP' index 201;
{external 'KBDCALLS' index 1;} {external 'KBDCALLS' index 1;}
end. end.
{
$Log$
Revision 1.9 2000-01-09 21:01:59 hajny
* cdecl added
}

124
rtl/os2/moncalls.pas
View File

@ -1,32 +1,34 @@
{Set tabsize to 4.} {Set tabsize to 4.}
{**************************************************************************** {****************************************************************************
$Id$
MONCALLS interface unit MONCALLS interface unit
FPK-Pascal Runtime Library for OS/2 Free Pascal Runtime Library for OS/2
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Kl„mpfl
Copyright (c) 1999-2000 by Dani‰l Mantione Copyright (c) 1999-2000 by Daniel Mantione
Copyright (c) 1999-2000 by Tomas Hajny Copyright (c) 1999-2000 by Tomas Hajny
The FPK-Pascal runtime library is distributed under the Library GNU Public The Free Pascal runtime library is distributed under the Library GNU Public
License v2. So is this unit. The Library GNU Public License requires you to License v2. So is this unit. The Library GNU Public License requires you to
distribute the source code of this unit with any product that uses it. distribute the source code of this unit with any product that uses it.
Because the EMX library isn't under the LGPL, we grant you an exception to Because the EMX library isn't under the LGPL, we grant you an exception to
this, and that is, when you compile a program with the FPK Pascal compiler, this, and that is, when you compile a program with the Free Pascal Compiler,
you do not need to ship source code with that program, AS LONG AS YOU ARE you do not need to ship source code with that program, AS LONG AS YOU ARE
USING UNMODIFIED CODE! If you modify this code, you MUST change the next USING UNMODIFIED CODE! If you modify this code, you MUST change the next
line: line:
<This is an official, unmodified FPK Pascal source code file.> <This is an official, unmodified Free Pascal source code file.>
Send us your modified files, we can work together if you want! Send us your modified files, we can work together if you want!
FPK-Pascal is distributed in the hope that it will be useful, Free Pascal is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Library GNU General Public License for more details. Library GNU General Public License for more details.
You should have received a copy of the Library GNU General Public License You should have received a copy of the Library GNU General Public License
along with FPK-Pascal; see the file COPYING.LIB. If not, write to along with Free Pascal; see the file COPYING.LIB. If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. Boston, MA 02111-1307, USA.
@ -51,10 +53,10 @@ Changelog:
Coding style: Coding style:
I have tried to use the same coding style as Dani‰l Mantione in unit I have tried to use the same coding style as Daniel Mantione in unit
DOSCALLS, although I can't say I would write it the same way otherwise DOSCALLS, although I can't say I would write it the same way otherwise
(I would write much more spaces myself, at least). Try to use it as well, (I would write much more spaces myself, at least). Try to use it as well,
please. Original note by Dani‰l Mantione follows: please. Original note by Daniel Mantione follows:
It may be well possible that coding style feels a bit strange to you. It may be well possible that coding style feels a bit strange to you.
@ -67,32 +69,32 @@ Coding style:
interface interface
{***************************************************************************} {***************************************************************************}
uses strings; uses Strings;
{$ifdef FPK} {$IFDEF FPC}
{$packrecords 1} {$PACKRECORDS 1}
{$endif FPK} {$ENDIF FPC}
const const
{return codes / error constants (those marked with * shouldn't occur)} {return codes / error constants (those marked with * shouldn't occur)}
NO_ERROR = 0; No_Error = 0;
ERROR_NOT_ENOUGH_MEMORY = 8; Error_Not_Enough_Memory = 8;
ERROR_OPEN_FAILED = 110; Error_Open_Failed = 110;
ERROR_MONITORS_NOT_SUPPORTED = 165; Error_Monitors_Not_Supported = 165;
ERROR_MON_INVALID_PARMS = 379; Error_Mon_Invalid_Parms = 379;
ERROR_MON_INVALID_DEVNAME = 380; Error_Mon_Invalid_DevName = 380;
ERROR_MON_INVALID_HANDLE = 381; Error_Mon_Invalid_Handle = 381;
ERROR_MON_BUFFER_TOO_SMALL = 382; Error_Mon_Buffer_Too_Small = 382;
ERROR_MON_BUFFER_EMPTY = 383; Error_Mon_Buffer_Empty = 383;
ERROR_MON_DATA_TOO_LARGE = 384; Error_Mon_Data_Too_Large = 384;
ERROR_MON_BAD_BUFFER = 730; {*} Error_Mon_Bad_Buffer = 730; {*}
ERROR_MON_CHAIN_HANDLE = 32784; {*} Error_Mon_Chain_Handle = 32784; {*}
ERROR_MON_NOT_REGISTERED = 32785; {*} Error_Mon_Not_Registered = 32785; {*}
{WaitFlag} {WaitFlag}
IO_WAIT =0; {The monitor thread that issues DosMonRead wishes to block} IO_Wait =0; {The monitor thread that issues DosMonRead wishes to block}
{until a data record is available in its input buffer.} {until a data record is available in its input buffer.}
IO_NOWAIT =1; {The monitor thread that issues DosMonRead does not wish} IO_NoWait =1; {The monitor thread that issues DosMonRead does not wish}
{to block when its input buffer is empty.} {to block when its input buffer is empty.}
@ -100,8 +102,8 @@ const
this process are flushed and closed.} this process are flushed and closed.}
{MonHandle - device handle returned from a previous DosMonOpen call.} {MonHandle - device handle returned from a previous DosMonOpen call.}
{Possible return codes: {Possible return codes:
0 NO_ERROR 0 No_Error
381 ERROR_MON_INVALID_HANDLE} 381 Error_Mon_Invalid_Handle}
{Remarks: {Remarks:
* A single process may register one or more monitors with a character device * A single process may register one or more monitors with a character device
using the same device handle returned from a previous DosMonOpen call. using the same device handle returned from a previous DosMonOpen call.
@ -119,15 +121,15 @@ this process are flushed and closed.}
* For a detailed description of this call see the chapter "Character Device * For a detailed description of this call see the chapter "Character Device
Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And
Device Support Volume 1.} Device Support Volume 1.}
function DosMonClose(MonHandle:word):word; function DosMonClose(MonHandle:word):word; cdecl;
{Gain access to a character device data stream.} {Gain access to a character device data stream.}
{DevName - device name, monitor handle returned in MonHandle.} {DevName - device name, monitor handle returned in MonHandle.}
{Possible return codes: {Possible return codes:
0 NO_ERROR 0 No_Error
110 ERROR_OPEN_FAILED 110 Error_Open_Failed
379 ERROR_MON_INVALID_PARMS 379 Error_Mon_Invalid_Parms
380 ERROR_MON_INVALID_DEVNAME} 380 Error_Mon_Invalid_DevName}
{Remarks: {Remarks:
* Only one DosMonOpen call is necessary per device per process. That is, * Only one DosMonOpen call is necessary per device per process. That is,
several DosMonReg calls can be made using the same monitor handle to the several DosMonReg calls can be made using the same monitor handle to the
@ -138,7 +140,7 @@ function DosMonClose(MonHandle:word):word;
* For a detailed description of this call see the chapter "Character Device * For a detailed description of this call see the chapter "Character Device
Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And
Device Support Volume 1.} Device Support Volume 1.}
function DosMonOpen(DevName:PChar;var MonHandle:word):word; function DosMonOpen(DevName:PChar;var MonHandle:word):word; cdecl;
function DosMonOpen(DevName:string;var MonHandle:word):word; function DosMonOpen(DevName:string;var MonHandle:word):word;
{Wait for a data record, move it from the input buffer of a registered {Wait for a data record, move it from the input buffer of a registered
@ -149,16 +151,16 @@ DataBuf - data area in the calling process address space that the data from the
monitor's input buffer is read into, ByteCount - on input size of the DataBuf, monitor's input buffer is read into, ByteCount - on input size of the DataBuf,
on return number of bytes of data moved.} on return number of bytes of data moved.}
{Possible return codes: {Possible return codes:
0 NO_ERROR 0 No_Error
379 ERROR_MON_INVALID_PARMS 379 Error_Mon_Invalid_Parms
382 ERROR_MON_BUFFER_TOO_SMALL 382 Error_Mon_Buffer_Too_Small
383 ERROR_MON_BUFFER_EMPTY} 383 Error_Mon_Buffer_Empty}
{Remarks: {Remarks:
* For a detailed description of this call see the chapter "Character Device * For a detailed description of this call see the chapter "Character Device
Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And
Device Support Volume 1.} Device Support Volume 1.}
function DosMonRead(var InBuf;WaitFlag:word;var DataBuf; function DosMonRead(var InBuf;WaitFlag:word;var DataBuf;
var ByteCount:word):word; var ByteCount:word):word; cdecl;
{Establish an input and output buffers to monitor an I/O stream for a character {Establish an input and output buffers to monitor an I/O stream for a character
device.} device.}
@ -177,12 +179,12 @@ bellow), Index - device specific value, for the keyboard it pertains to the
session you wish to register a monitor on, for the printer it pertains to the session you wish to register a monitor on, for the printer it pertains to the
data or code page monitor chain.} data or code page monitor chain.}
{Possible return codes: {Possible return codes:
0 NO_ERROR 0 No_Error
8 ERROR_NOT_ENOUGH_MEMORY 8 Error_Not_Enough_Memory
165 ERROR_MONITORS_NOT_SUPPORTED 165 Error_Monitors_Not_Supported
379 ERROR_MON_INVALID_PARMS 379 Error_Mon_Invalid_Parms
381 ERROR_MON_INVALID_HANDLE 381 Error_Mon_Invalid_Handle
382 ERROR_MON_BUFFER_TOO_SMALL} 382 Error_Mon_Buffer_Too_Small}
{Remarks: {Remarks:
* PosCode meaning: * PosCode meaning:
0 DEFAULT (no position preference) and one thread for data movement 0 DEFAULT (no position preference) and one thread for data movement
@ -206,6 +208,7 @@ data or code page monitor chain.}
Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And Monitors" in the IBM Operating System/2 Version 1.2 I/O Subsystems And
Device Support Volume 1.} Device Support Volume 1.}
function DosMonReg(MonHandle:word;var InBuf,OutBuf;PosCode,Index:word):word; function DosMonReg(MonHandle:word;var InBuf,OutBuf;PosCode,Index:word):word;
cdecl;
{Move a filtered data record from the monitor's private data area into the {Move a filtered data record from the monitor's private data area into the
monitor's output buffer.} monitor's output buffer.}
@ -214,15 +217,15 @@ containing a filtered data record of length ByteCount, this filtered data
record is moved into the monitor's output buffer by this call, ByteCount - size record is moved into the monitor's output buffer by this call, ByteCount - size
of the data record.} of the data record.}
{Possible return codes: {Possible return codes:
0 NO_ERROR 0 No_Error
8 ERROR_NOT_ENOUGH_MEMORY 8 Error_Not_Enough_Memory
379 ERROR_MON_INVALID_PARMS 379 Error_Mon_Invalid_Parms
384 ERROR_MON_DATA_TOO_LARGE} 384 Error_Mon_Data_Too_Large}
{Remarks: {Remarks:
* For a detailed description of the use of this call see the chapter * For a detailed description of the use of this call see the chapter
"Character Device Monitors" in the IBM Operating System/2 Version 1.2 I/O "Character Device Monitors" in the IBM Operating System/2 Version 1.2 I/O
Subsystems And Device Support Volume 1.} Subsystems And Device Support Volume 1.}
function DosMonWrite(var OutBuf,DataBuf;ByteCount:word):word; function DosMonWrite(var OutBuf,DataBuf;ByteCount:word):word; cdecl;
{***************************************************************************} {***************************************************************************}
@ -230,11 +233,11 @@ implementation
{***************************************************************************} {***************************************************************************}
function DosMonClose(MonHandle:word):word; function DosMonClose(MonHandle:word):word; cdecl;
external 'EMXWRAP' index 403; external 'EMXWRAP' index 403;
{external 'MONCALLS' index 3;} {external 'MONCALLS' index 3;}
function DosMonOpen(DevName:PChar;var MonHandle:word):word; function DosMonOpen(DevName:PChar;var MonHandle:word):word; cdecl;
external 'EMXWRAP' index 404; external 'EMXWRAP' index 404;
{external 'MONCALLS' index 4;} {external 'MONCALLS' index 4;}
@ -256,18 +259,25 @@ begin
end; end;
function DosMonRead(var InBuf;WaitFlag:word;var DataBuf; function DosMonRead(var InBuf;WaitFlag:word;var DataBuf;
var ByteCount:word):word; var ByteCount:word):word; cdecl;
external 'EMXWRAP' index 402; external 'EMXWRAP' index 402;
{external 'MONCALLS' index 2;} {external 'MONCALLS' index 2;}
function DosMonReg(MonHandle:word;var InBuf,OutBuf;PosCode,Index:word):word; function DosMonReg(MonHandle:word;var InBuf,OutBuf;PosCode,Index:word):word;
cdecl;
external 'EMXWRAP' index 405; external 'EMXWRAP' index 405;
{external 'MONCALLS' index 5;} {external 'MONCALLS' index 5;}
function DosMonWrite(var OutBuf,DataBuf;ByteCount:word):word; function DosMonWrite(var OutBuf,DataBuf;ByteCount:word):word; cdecl;
external 'EMXWRAP' index 401; external 'EMXWRAP' index 401;
{external 'MONCALLS' index 1;} {external 'MONCALLS' index 1;}
end. end.

{
$Log$
Revision 1.5 2000-01-09 21:01:59 hajny
* cdecl added
}

141
rtl/os2/moucalls.pas
View File

@ -1,32 +1,34 @@
{Set tabsize to 4.} {Set tabsize to 4.}
{**************************************************************************** {****************************************************************************
$Id$
MOUCALLS interface unit MOUCALLS interface unit
FPK-Pascal Runtime Library for OS/2 Free Pascal Runtime Library for OS/2
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Kl„mpfl
Copyright (c) 1999-2000 by Dani‰l Mantione Copyright (c) 1999-2000 by Daniel Mantione
Copyright (c) 1999-2000 by Tomas Hajny Copyright (c) 1999-2000 by Tomas Hajny
The FPK-Pascal runtime library is distributed under the Library GNU Public The Free Pascal runtime library is distributed under the Library GNU Public
License v2. So is this unit. The Library GNU Public License requires you to License v2. So is this unit. The Library GNU Public License requires you to
distribute the source code of this unit with any product that uses it. distribute the source code of this unit with any product that uses it.
Because the EMX library isn't under the LGPL, we grant you an exception to Because the EMX library isn't under the LGPL, we grant you an exception to
this, and that is, when you compile a program with the FPK Pascal compiler, this, and that is, when you compile a program with the Free Pascal Compiler,
you do not need to ship source code with that program, AS LONG AS YOU ARE you do not need to ship source code with that program, AS LONG AS YOU ARE
USING UNMODIFIED CODE! If you modify this code, you MUST change the next USING UNMODIFIED CODE! If you modify this code, you MUST change the next
line: line:
<This is an official, unmodified FPK Pascal source code file.> <This is an official, unmodified Free Pascal source code file.>
Send us your modified files, we can work together if you want! Send us your modified files, we can work together if you want!
FPK-Pascal is distributed in the hope that it will be useful, Free Pascal is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Library GNU General Public License for more details. Library GNU General Public License for more details.
You should have received a copy of the Library GNU General Public License You should have received a copy of the Library GNU General Public License
along with FPK-Pascal; see the file COPYING.LIB. If not, write to along with Free Pascal; see the file COPYING.LIB. If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. Boston, MA 02111-1307, USA.
@ -34,7 +36,9 @@
unit MouCalls; unit MouCalls;
{ Interface library to MOUCALLS.DLL (through EMXWRAP.DLL) { Interface library to MOUCALLS.DLL (through EMXWRAP.DLL; C calling convention
- cdecl - must be used for EMXWRAP, whereas direct MOUCALLS calls would need
16-bit Pascal calling convention with thunking instead).
Variant records and aliases for some record types created to maintain highest Variant records and aliases for some record types created to maintain highest
possible level of compatibility with other existing OS/2 compilers. possible level of compatibility with other existing OS/2 compilers.
@ -51,10 +55,10 @@ Changelog:
Coding style: Coding style:
I have tried to use the same coding style as Dani‰l Mantione in unit I have tried to use the same coding style as Daniel Mantione in unit
DOSCALLS, although I can't say I would write it the same way otherwise DOSCALLS, although I can't say I would write it the same way otherwise
(I would write much more spaces myself, at least). Try to use it as well, (I would write much more spaces myself, at least). Try to use it as well,
please. Original note by Dani‰l Mantione follows: please. Original note by Daniel Mantione follows:
It may be well possible that coding style feels a bit strange to you. It may be well possible that coding style feels a bit strange to you.
@ -67,9 +71,9 @@ Coding style:
interface interface
{***************************************************************************} {***************************************************************************}
{$ifdef FPK} {$IFDEF FPC}
{$packrecords 1} {$PACKRECORDS 1}
{$endif FPK} {$ENDIF FPC}
const const
{return codes / error constants (those marked with * shouldn't occur under {return codes / error constants (those marked with * shouldn't occur under
@ -342,7 +346,7 @@ being registered - see MR_MOU* constants.}
MouSetDevStatus 15h MouSetDevStatus 15h
* A registered mouse sybsystem must leave the stack, on exit, in the exact * A registered mouse sybsystem must leave the stack, on exit, in the exact
state it was received.} state it was received.}
function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; cdecl;
function MouRegister(ModuleName,ProcName:string;FnMask:cardinal):word; function MouRegister(ModuleName,ProcName:string;FnMask:cardinal):word;
{Deregister a mouse subsystem previously registered within a session.} {Deregister a mouse subsystem previously registered within a session.}
@ -361,7 +365,7 @@ function MouRegister(ModuleName,ProcName:string;FnMask:cardinal):word;
* After the owning process has released the subsystem with a MouDeRegister * After the owning process has released the subsystem with a MouDeRegister
call, any other process in the session may issue a MouRegister and therefore call, any other process in the session may issue a MouRegister and therefore
modify the mouse support for the entire session.} modify the mouse support for the entire session.}
function MouDeRegister:word; function MouDeRegister:word; cdecl;
{Direct the mouse driver to flush (empty) the mouse event queue and the monitor {Direct the mouse driver to flush (empty) the mouse event queue and the monitor
chain data for the session.} chain data for the session.}
@ -372,7 +376,7 @@ chain data for the session.}
466 ERROR_MOU_DETACHED 466 ERROR_MOU_DETACHED
501 ERROR_MOUSE_NO_CONSOLE 501 ERROR_MOUSE_NO_CONSOLE
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
function MouFlushQue(MouHandle:word):word; function MouFlushQue(MouHandle:word):word; cdecl;
{Query the mouse driver to determine the current row and column coordinate {Query the mouse driver to determine the current row and column coordinate
position of the mouse pointer.} position of the mouse pointer.}
@ -392,7 +396,7 @@ handle from a previous MouOpen call.}
outside the LVB image extent, the coordinates of the nearest LVB cell are outside the LVB image extent, the coordinates of the nearest LVB cell are
returned. In either case, the LVB is scrolled until the reported LVB cell returned. In either case, the LVB is scrolled until the reported LVB cell
appears within the view window.} appears within the view window.}
function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word; function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word; cdecl;
{Direct the mouse driver to set a new row and column coordinate position for {Direct the mouse driver to set a new row and column coordinate position for
the mouse pointer.} the mouse pointer.}
@ -414,7 +418,7 @@ handle from a previous MouOpen call.}
is directed into a defined collision area, the pointer image is not drawn is directed into a defined collision area, the pointer image is not drawn
until either the pointer is moved outside the collision area or the collision until either the pointer is moved outside the collision area or the collision
area is released by the MouDrawPtr call.} area is released by the MouDrawPtr call.}
function MouSetPtrPos(const MouPtr:TPtrLoc;MouHandle:word):word; function MouSetPtrPos(const MouPtr:TPtrLoc;MouHandle:word):word; cdecl;
{Set the pointer shape and size to be used as the mouse device pointer image {Set the pointer shape and size to be used as the mouse device pointer image
for all applications in a session.} for all applications in a session.}
@ -465,9 +469,9 @@ MouHandle is the mouse device handle from a previous MouOpen call.}
shape on all currently supported bit planes in that session. For text modes, shape on all currently supported bit planes in that session. For text modes,
row and column offset must equal 0.} row and column offset must equal 0.}
function MouSetPtrShape(var ImageBuf;var ImageInfo:TPtrShape; function MouSetPtrShape(var ImageBuf;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape; function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
{Get (copy) the mouse pointer shape for the session.} {Get (copy) the mouse pointer shape for the session.}
{The pointer bit image is returned in ImageBuf (see MouSetPtrShape description {The pointer bit image is returned in ImageBuf (see MouSetPtrShape description
@ -516,9 +520,9 @@ the mouse device handle from a previous MouOpen call.}
* The pointer shape may be set by the application with MouSetPtrShape or may * The pointer shape may be set by the application with MouSetPtrShape or may
be the default image provided by the installed Pointer Device Driver.} be the default image provided by the installed Pointer Device Driver.}
function MouGetPtrShape(var ImageBuf;var ImageInfo:TPtrShape; function MouGetPtrShape(var ImageBuf;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape; function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
{Return status flags for the installed mouse device driver.} {Return status flags for the installed mouse device driver.}
{The current status flag settings for the installed mouse device driver are {The current status flag settings for the installed mouse device driver are
@ -532,7 +536,7 @@ a previous MouOpen call.}
466 ERROR_MOU_DETACHED 466 ERROR_MOU_DETACHED
501 ERROR_MOUSE_NO_CONSOLE 501 ERROR_MOUSE_NO_CONSOLE
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
function MouGetDevStatus(var Status:word;MouHandle:word):word; function MouGetDevStatus(var Status:word;MouHandle:word):word; cdecl;
{Return the number of buttons supported on the installed mouse driver.} {Return the number of buttons supported on the installed mouse driver.}
{Number of physical buttons (1..3) returned in ButtonCount, MouHandle is {Number of physical buttons (1..3) returned in ButtonCount, MouHandle is
@ -543,7 +547,7 @@ the mouse device handle from a previous MouOpen call.}
466 ERROR_MOU_DETACHED 466 ERROR_MOU_DETACHED
501 ERROR_MOUSE_NO_CONSOLE 501 ERROR_MOUSE_NO_CONSOLE
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word; function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word; cdecl;
{Return the number of mickeys in each centimeter for the installed mouse {Return the number of mickeys in each centimeter for the installed mouse
driver.} driver.}
@ -556,7 +560,7 @@ the mouse device handle from a previous MouOpen call.}
466 ERROR_MOU_DETACHED 466 ERROR_MOU_DETACHED
501 ERROR_MOUSE_NO_CONSOLE 501 ERROR_MOUSE_NO_CONSOLE
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word; function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word; cdecl;
{Read an event from the mouse device FIFO event queue.} {Read an event from the mouse device FIFO event queue.}
{The mouse event queue is returned in Event, WaitFlag determines the action to {The mouse event queue is returned in Event, WaitFlag determines the action to
@ -601,7 +605,7 @@ device handle from a previous MouOpen call.}
coordinates or relative mouse motion in mickeys. See MouSetDevStatus for coordinates or relative mouse motion in mickeys. See MouSetDevStatus for
additional information.} additional information.}
function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word; function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word;
MouHandle:word):word; MouHandle:word):word; cdecl;
{Return the current status for the mouse device driver event queue.} {Return the current status for the mouse device driver event queue.}
{Mouse queue status returned in MouseQInfo, MouHandle is the mouse device {Mouse queue status returned in MouseQInfo, MouHandle is the mouse device
@ -612,7 +616,7 @@ handle from a previous MouOpen call.}
466 ERROR_MOU_DETACHED 466 ERROR_MOU_DETACHED
501 ERROR_MOUSE_NO_CONSOLE 501 ERROR_MOUSE_NO_CONSOLE
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word; function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word; cdecl;
{Return the current value of the mouse event queue mask.} {Return the current value of the mouse event queue mask.}
{The current mouse device driver's event mask (as previously set by {The current mouse device driver's event mask (as previously set by
@ -629,7 +633,7 @@ a previous MouOpen call.}
505 ERROR_MOU_EXTENDED_SG} 505 ERROR_MOU_EXTENDED_SG}
{Remarks: {Remarks:
* Buttons are logically numbered from left to right.} * Buttons are logically numbered from left to right.}
function MouGetEventMask(var EventMask:word;MouHandle:word):word; function MouGetEventMask(var EventMask:word;MouHandle:word):word; cdecl;
{Assign a new event mask to the current mouse device driver.} {Assign a new event mask to the current mouse device driver.}
{EventMask contains the mask indicating what mouse events are to be placed on {EventMask contains the mask indicating what mouse events are to be placed on
@ -651,7 +655,7 @@ MouHandle is the mouse device handle from a previous MouOpen call.}
* Setting a bit in the event mask means that the associated event is reported * Setting a bit in the event mask means that the associated event is reported
on the mouse FIFO event queue. See MouReadEventQue for examples of event on the mouse FIFO event queue. See MouReadEventQue for examples of event
mask use.} mask use.}
function MouSetEventMask(var EventMask:word;MouHandle:word):word; function MouSetEventMask(var EventMask:word;MouHandle:word):word; cdecl;
{Return scaling factors for the current mouse device (a pair of 1-word {Return scaling factors for the current mouse device (a pair of 1-word
values).} values).}
@ -669,7 +673,7 @@ the mouse device handle from a previous MouOpen call.}
for the session. If the screen is operating in text mode, the scaling units for the session. If the screen is operating in text mode, the scaling units
are relative to characters. If the screen is operating in graphics mode, are relative to characters. If the screen is operating in graphics mode,
the scaling units are relative to pels.} the scaling units are relative to pels.}
function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word; function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word; cdecl;
{Assign to the current mouse device driver a new pair of 1-word scaling {Assign to the current mouse device driver a new pair of 1-word scaling
factors.} factors.}
@ -692,7 +696,7 @@ factors.}
for the mouse that is a ratio of the number of mickeys required to move for the mouse that is a ratio of the number of mickeys required to move
the cursor 8 pixels on the screen. The sensitivity determines at what rate the cursor 8 pixels on the screen. The sensitivity determines at what rate
the cursor moves on the screen.} the cursor moves on the screen.}
function MouSetScaleFact(const Scale:TScaleFact;MouHandle:word):word; function MouSetScaleFact(const Scale:TScaleFact;MouHandle:word):word; cdecl;
{Open the mouse device for the current session.} {Open the mouse device for the current session.}
{DriverName contains the name of the pointer draw device driver to be used as {DriverName contains the name of the pointer draw device driver to be used as
@ -735,7 +739,7 @@ handle is returned in MouHandle.}
Base Mouse Subsystem can detect a change in display configurations. This form Base Mouse Subsystem can detect a change in display configurations. This form
of the MouOpen call is not recommended for applications. Applications should of the MouOpen call is not recommended for applications. Applications should
either send the name of the pointer draw device driver or nil.} either send the name of the pointer draw device driver or nil.}
function MouOpen(DriverName:PChar;var MouHandle:word):word; function MouOpen(DriverName:PChar;var MouHandle:word):word; cdecl;
function MouOpen(DriverName:string;var MouHandle:word):word; function MouOpen(DriverName:string;var MouHandle:word):word;
{Close the mouse device for the current session.} {Close the mouse device for the current session.}
@ -750,7 +754,7 @@ function MouOpen(DriverName:string;var MouHandle:word):word;
* MouClose closes the mouse device for the current session and removes the * MouClose closes the mouse device for the current session and removes the
mouse device driver handle from the list of valid open mouse device mouse device driver handle from the list of valid open mouse device
handles.} handles.}
function MouClose(MouHandle:word):word; function MouClose(MouHandle:word):word; cdecl;
{Notify the mouse device driver that the area defined by the passed parameters {Notify the mouse device driver that the area defined by the passed parameters
if for exclusive use of the application. This area is defined as the if for exclusive use of the application. This area is defined as the
@ -775,7 +779,7 @@ handle from a previous MouOpen call.}
* The MouDrawPtr command effectively cancels the MouRemovePtr command * The MouDrawPtr command effectively cancels the MouRemovePtr command
and allows the pointer to be drawn anywhere on the screen, until a new and allows the pointer to be drawn anywhere on the screen, until a new
MouRemovePtr command is issued.} MouRemovePtr command is issued.}
function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word; function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word; cdecl;
{Notify the mouse device driver that an area previously restricted {Notify the mouse device driver that an area previously restricted
to the pointer image is now available to the mouse device driver.} to the pointer image is now available to the mouse device driver.}
@ -796,7 +800,7 @@ to the pointer image is now available to the mouse device driver.}
after MouOpen is issued, the collision area is defined as the size of the after MouOpen is issued, the collision area is defined as the size of the
display. A MouDrawPtr is issued to begin pointer drawing after the display. A MouDrawPtr is issued to begin pointer drawing after the
MouOpen.} MouOpen.}
function MouDrawPtr(MouHandle:word):word; function MouDrawPtr(MouHandle:word):word; cdecl;
{Set the mouse device driver status flags for the installed mouse device {Set the mouse device driver status flags for the installed mouse device
driver.} driver.}
@ -825,7 +829,7 @@ from a previous MouOpen call.}
operations. By setting this status flag, the mouse device driver does not operations. By setting this status flag, the mouse device driver does not
call the pointer draw device driver. The application must draw any required call the pointer draw device driver. The application must draw any required
pointer image on the screen.} pointer image on the screen.}
function MouSetDevStatus(var Status:word;MouHandle:word):word; function MouSetDevStatus(var Status:word;MouHandle:word):word; cdecl;
{Initialize mouse pointer draw support for DOS mode.} {Initialize mouse pointer draw support for DOS mode.}
{Name of the Pointer Draw Device Driver used as the pointer-image drawing {Name of the Pointer Draw Device Driver used as the pointer-image drawing
@ -860,7 +864,7 @@ device driver must be included in the CONFIG.SYS file at system start-up time.}
and the offset portion is non-zero, the offset portion identifies the and the offset portion is non-zero, the offset portion identifies the
power-up display configuration. However, this isn't possible in the current power-up display configuration. However, this isn't possible in the current
implementation (using 32-bit wrap-around function supplied in EMXWRAP.DLL).} implementation (using 32-bit wrap-around function supplied in EMXWRAP.DLL).}
function MouInitReal(DriverName:PChar):word; function MouInitReal(DriverName:PChar):word; cdecl;
function MouInitReal(DriverName:string):word; function MouInitReal(DriverName:string):word;
{Synchronize the mouse subsystem with the mouse device driver.} {Synchronize the mouse subsystem with the mouse device driver.}
@ -876,11 +880,13 @@ being free - see MOU_NOWAIT and MOU_WAIT constants.}
to access dynamically modifiable shared data for each session or if it to access dynamically modifiable shared data for each session or if it
intends to issue a DosDevIOCtl. MouSynch does not protect globally shared intends to issue a DosDevIOCtl. MouSynch does not protect globally shared
data from threads in other sessions.} data from threads in other sessions.}
function MouSynch(WaitFlag:word):word; function MouSynch(WaitFlag:word):word; cdecl;
function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word; function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
cdecl;
function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word; function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
cdecl;
(* (*
following two functions are undocumented and not present within C header files: following two functions are undocumented and not present within C header files:
@ -902,7 +908,7 @@ implementation
{***************************************************************************} {***************************************************************************}
function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word; cdecl;
external 'EMXWRAP' index 324; external 'EMXWRAP' index 324;
{external 'MOUCALLS' index 24;} {external 'MOUCALLS' index 24;}
@ -915,80 +921,80 @@ begin
MouRegister:=MouRegister(@ModuleName[1],@ProcName[1],FnMask); MouRegister:=MouRegister(@ModuleName[1],@ProcName[1],FnMask);
end; end;
function MouDeRegister:word; function MouDeRegister:word; cdecl;
external 'EMXWRAP' index 314; external 'EMXWRAP' index 314;
{external 'MOUCALLS' index 14;} {external 'MOUCALLS' index 14;}
function MouFlushQue(MouHandle:word):word; function MouFlushQue(MouHandle:word):word; cdecl;
external 'EMXWRAP' index 307; external 'EMXWRAP' index 307;
{external 'MOUCALLS' index 7;} {external 'MOUCALLS' index 7;}
function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word; function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 319; external 'EMXWRAP' index 319;
{external 'MOUCALLS' index 19;} {external 'MOUCALLS' index 19;}
function MouSetPtrPos(const MouPtr:TPtrLoc;MouHandle:word):word; function MouSetPtrPos(const MouPtr:TPtrLoc;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 321; external 'EMXWRAP' index 321;
{external 'MOUCALLS' index 21;} {external 'MOUCALLS' index 21;}
function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape; function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
external 'EMXWRAP' index 302; external 'EMXWRAP' index 302;
{external 'MOUCALLS' index 2;} {external 'MOUCALLS' index 2;}
function MouSetPtrShape(var ImageBuf;var ImageInfo:TPtrShape; function MouSetPtrShape(var ImageBuf;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
external 'EMXWRAP' index 302; external 'EMXWRAP' index 302;
{external 'MOUCALLS' index 2;} {external 'MOUCALLS' index 2;}
function MouGetPtrShape(var ImageBuf;var ImageInfo:TPtrShape; function MouGetPtrShape(var ImageBuf;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
external 'EMXWRAP' index 301; external 'EMXWRAP' index 301;
{external 'MOUCALLS' index 1;} {external 'MOUCALLS' index 1;}
function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape; function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
MouHandle:word):word; MouHandle:word):word; cdecl;
external 'EMXWRAP' index 301; external 'EMXWRAP' index 301;
{external 'MOUCALLS' index 1;} {external 'MOUCALLS' index 1;}
function MouGetDevStatus(var Status:word;MouHandle:word):word; function MouGetDevStatus(var Status:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 322; external 'EMXWRAP' index 322;
{external 'MOUCALLS' index 22;} {external 'MOUCALLS' index 22;}
function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word; function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 308; external 'EMXWRAP' index 308;
{external 'MOUCALLS' index 8;} {external 'MOUCALLS' index 8;}
function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word; function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 303; external 'EMXWRAP' index 303;
{external 'MOUCALLS' index 3;} {external 'MOUCALLS' index 3;}
function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word; function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word;
MouHandle:word):word; MouHandle:word):word; cdecl;
external 'EMXWRAP' index 320; external 'EMXWRAP' index 320;
{external 'MOUCALLS' index 20;} {external 'MOUCALLS' index 20;}
function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word; function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 313; external 'EMXWRAP' index 313;
{external 'MOUCALLS' index 13;} {external 'MOUCALLS' index 13;}
function MouGetEventMask(var EventMask:word;MouHandle:word):word; function MouGetEventMask(var EventMask:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 315; external 'EMXWRAP' index 315;
{external 'MOUCALLS' index 15;} {external 'MOUCALLS' index 15;}
function MouSetEventMask(var EventMask:word;MouHandle:word):word; function MouSetEventMask(var EventMask:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 316; external 'EMXWRAP' index 316;
{external 'MOUCALLS' index 16;} {external 'MOUCALLS' index 16;}
function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word; function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 306; external 'EMXWRAP' index 306;
{external 'MOUCALLS' index 6;} {external 'MOUCALLS' index 6;}
function MouSetScaleFact(const Scale:TScaleFact;MouHandle:word):word; function MouSetScaleFact(const Scale:TScaleFact;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 311; external 'EMXWRAP' index 311;
{external 'MOUCALLS' index 11;} {external 'MOUCALLS' index 11;}
function MouOpen(DriverName:PChar;var MouHandle:word):word; function MouOpen(DriverName:PChar;var MouHandle:word):word; cdecl;
external 'EMXWRAP' index 317; external 'EMXWRAP' index 317;
{external 'MOUCALLS' index 17;} {external 'MOUCALLS' index 17;}
@ -1013,23 +1019,23 @@ begin
end; end;
end; end;
function MouClose(MouHandle:word):word; function MouClose(MouHandle:word):word; cdecl;
external 'EMXWRAP' index 309; external 'EMXWRAP' index 309;
{external 'MOUCALLS' index 9;} {external 'MOUCALLS' index 9;}
function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word; function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 318; external 'EMXWRAP' index 318;
{external 'MOUCALLS' index 18;} {external 'MOUCALLS' index 18;}
function MouDrawPtr(MouHandle:word):word; function MouDrawPtr(MouHandle:word):word; cdecl;
external 'EMXWRAP' index 326; external 'EMXWRAP' index 326;
{external 'MOUCALLS' index 26;} {external 'MOUCALLS' index 26;}
function MouSetDevStatus(var Status:word;MouHandle:word):word; function MouSetDevStatus(var Status:word;MouHandle:word):word; cdecl;
external 'EMXWRAP' index 326; external 'EMXWRAP' index 326;
{external 'MOUCALLS' index 26;} {external 'MOUCALLS' index 26;}
function MouInitReal(DriverName:PChar):word; function MouInitReal(DriverName:PChar):word; cdecl;
external 'EMXWRAP' index 327; external 'EMXWRAP' index 327;
{external 'MOUCALLS' index 27;} {external 'MOUCALLS' index 27;}
@ -1054,15 +1060,17 @@ begin
end; end;
end; end;
function MouSynch(WaitFlag:word):word; function MouSynch(WaitFlag:word):word; cdecl;
external 'EMXWRAP' index 323; external 'EMXWRAP' index 323;
{external 'MOUCALLS' index 23;} {external 'MOUCALLS' index 23;}
function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word; function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
cdecl;
external 'EMXWRAP' index 329; external 'EMXWRAP' index 329;
{external 'MOUCALLS' index 29;} {external 'MOUCALLS' index 29;}
function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word; function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
cdecl;
external 'EMXWRAP' index 330; external 'EMXWRAP' index 330;
{external 'MOUCALLS' index 30;} {external 'MOUCALLS' index 30;}
@ -1079,3 +1087,10 @@ external 'MOUCALLS' index 10;
end. end.
{
$Log$
Revision 1.7 2000-01-09 21:01:59 hajny
* cdecl added
}

251
rtl/os2/viocalls.pas
View File

@ -1,32 +1,34 @@
{Set tabsize to 4.} {Set tabsize to 4.}
{**************************************************************************** {****************************************************************************
$Id$
VIOCALLS interface unit VIOCALLS interface unit
FPK-Pascal Runtime Library for OS/2 Free Pascal Runtime Library for OS/2
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Kl„mpfl
Copyright (c) 1999-2000 by Dani‰l Mantione Copyright (c) 1999-2000 by Daniel Mantione
Copyright (c) 1999-2000 by Tomas Hajny Copyright (c) 1999-2000 by Tomas Hajny
The FPK-Pascal runtime library is distributed under the Library GNU Public The Free Pascal runtime library is distributed under the Library GNU Public
License v2. So is this unit. The Library GNU Public License requires you to License v2. So is this unit. The Library GNU Public License requires you to
distribute the source code of this unit with any product that uses it. distribute the source code of this unit with any product that uses it.
Because the EMX library isn't under the LGPL, we grant you an exception to Because the EMX library isn't under the LGPL, we grant you an exception to
this, and that is, when you compile a program with the FPK Pascal compiler, this, and that is, when you compile a program with the Free Pascal Compiler,
you do not need to ship source code with that program, AS LONG AS YOU ARE you do not need to ship source code with that program, AS LONG AS YOU ARE
USING UNMODIFIED CODE! If you modify this code, you MUST change the next USING UNMODIFIED CODE! If you modify this code, you MUST change the next
line: line:
<This is an official, unmodified FPK Pascal source code file.> <This is an official, unmodified Free Pascal source code file.>
Send us your modified files, we can work together if you want! Send us your modified files, we can work together if you want!
FPK-Pascal is distributed in the hope that it will be useful, Free Pascal is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Library GNU General Public License for more details. Library GNU General Public License for more details.
You should have received a copy of the Library GNU General Public License You should have received a copy of the Library GNU General Public License
along with FPK-Pascal; see the file COPYING.LIB. If not, write to along with Free Pascal; see the file COPYING.LIB. If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. Boston, MA 02111-1307, USA.
@ -51,10 +53,10 @@ Changelog:
Coding style: Coding style:
I have tried to use the same coding style as Dani‰l Mantione in unit I have tried to use the same coding style as Daniel Mantione in unit
DOSCALLS, although I can't say I would write it the same way otherwise DOSCALLS, although I can't say I would write it the same way otherwise
(I would write much more spaces myself, at least). Try to use it as well, (I would write much more spaces myself, at least). Try to use it as well,
please. Original note by Dani‰l Mantione follows: please. Original note by Daniel Mantione follows:
It may be well possible that coding style feels a bit strange to you. It may be well possible that coding style feels a bit strange to you.
@ -68,9 +70,9 @@ Coding style:
interface interface
{***************************************************************************} {***************************************************************************}
{$ifdef FPK} {$IFDEF FPC}
{$packrecords 1} {$PACKRECORDS 1}
{$endif FPK} {$ENDIF FPC}
const const
@ -610,151 +612,160 @@ type
function VioRegister(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal):word; function VioRegister(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal):word;
cdecl;
function VioRegister(ModuleName,ProcName:string;FnMask1,FnMask2:cardinal):word; function VioRegister(ModuleName,ProcName:string;FnMask1,FnMask2:cardinal):word;
function VioGlobalReg(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal; function VioGlobalReg(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal;
Return:word):word; Return:word):word; cdecl;
function VioGlobalReg(ModuleName,ProcName:string;FnMask1,FnMask2:cardinal; function VioGlobalReg(ModuleName,ProcName:string;FnMask1,FnMask2:cardinal;
Return:word):word; Return:word):word;
function VioDeRegister:word; function VioDeRegister:word; cdecl;
function VioGetBuf(var LVBAddr:pointer;var LVBLength:word;VioHandle:word):word; function VioGetBuf(var LVBAddr:pointer;var LVBLength:word;VioHandle:word):word;
cdecl;
function VioGetCurPos(var Row,Column:word;VioHandle:word):word; function VioGetCurPos(var Row,Column:word;VioHandle:word):word; cdecl;
function VioSetCurPos(Row,Column,VioHandle:word):word; function VioSetCurPos(Row,Column,VioHandle:word):word; cdecl;
function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl;
function VioSetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; function VioSetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl;
function VioGetMode(var Mode:TVioModeInfo;VioHandle:word):word; function VioGetMode(var Mode:TVioModeInfo;VioHandle:word):word; cdecl;
function VioSetMode(var Mode:TVioModeInfo;VioHandle:word):word; function VioSetMode(var Mode:TVioModeInfo;VioHandle:word):word; cdecl;
function VioGetPhysBuf(var PBData:TVioPhysBuf;Reserved:word):word; function VioGetPhysBuf(var PBData:TVioPhysBuf;Reserved:word):word; cdecl;
function VioReadCellStr(var Buf;var BufLen:word; function VioReadCellStr(var Buf;var BufLen:word;
Row,Column,VioHandle:word):word; Row,Column,VioHandle:word):word; cdecl;
function VioReadCharStr(var Buf;var BufLen:word; function VioReadCharStr(var Buf;var BufLen:word;
Row,Column,VioHandle:word):word; Row,Column,VioHandle:word):word; cdecl;
function VioWrtCellStr(CellStr:pointer;Len,Row,Column,VioHandle:word):word; function VioWrtCellStr(CellStr:pointer;Len,Row,Column,VioHandle:word):word;
cdecl;
function VioWrtCharStr(CharStr:pointer;Len,Row,Column,VioHandle:word):word; function VioWrtCharStr(CharStr:pointer;Len,Row,Column,VioHandle:word):word;
cdecl;
function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word;
cdecl;
function VioWrtNCell(var Cell:word;Times,Row,Column,VioHandle:word):word; function VioWrtNCell(var Cell:word;Times,Row,Column,VioHandle:word):word;
cdecl;
function VioWrtNChar(var Ch:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNChar(var Ch:byte;Times,Row,Column,VioHandle:word):word; cdecl;
function VioWrtNChar(var Ch:char;Times,Row,Column,VioHandle:word):word; function VioWrtNChar(var Ch:char;Times,Row,Column,VioHandle:word):word; cdecl;
function VioWrtTTY(CharStr:pointer;Len,VioHandle:word):word; function VioWrtTTY(CharStr:pointer;Len,VioHandle:word):word; cdecl;
function VioWrtCharStrAtt(CharStr:pointer;Len,Row,Column:word;var Attr:byte; function VioWrtCharStrAtt(CharStr:pointer;Len,Row,Column:word;var Attr:byte;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioCheckCharType(var CharType:word;Row,Column,VioHandle:word):word; function VioCheckCharType(var CharType:word;Row,Column,VioHandle:word):word;
cdecl;
function VioShowBuf(BufOfs,Len,VioHandle:word):word; function VioShowBuf(BufOfs,Len,VioHandle:word):word; cdecl;
function VioSetAnsi(Mode,VioHandle:word):word; function VioSetAnsi(Mode,VioHandle:word):word; cdecl;
function VioGetAnsi(var Mode:word;VioHandle:word):word; function VioGetAnsi(var Mode:word;VioHandle:word):word; cdecl;
function VioPrtSc(VioHandle:word):word; function VioPrtSc(VioHandle:word):word; cdecl;
function VioPrtScToggle(VioHandle:word):word; function VioPrtScToggle(VioHandle:word):word; cdecl;
(* (*
function VioRedrawSize(var RedrawSize:cardinal):word; function VioRedrawSize(var RedrawSize:cardinal):word;
*) *)
function VioSavRedrawWait(RequestType:word;var NotifyType:word; function VioSavRedrawWait(RequestType:word;var NotifyType:word;
Reserved:word):word; Reserved:word):word; cdecl;
function VioSavRedrawUndo(Ownership,KillThread,Reserved:word):word; function VioSavRedrawUndo(Ownership,KillThread,Reserved:word):word; cdecl;
function VioModeWait(RequestType:word;var NotifyType:word;Reserved:word):word; function VioModeWait(RequestType:word;var NotifyType:word;Reserved:word):word;
cdecl;
function VioModeUndo(Ownership,KillThread,Reserved:word):word; function VioModeUndo(Ownership,KillThread,Reserved:word):word; cdecl;
function VioScrLock(WaitFlag:word;var Status:word;VioHandle:word):word; function VioScrLock(WaitFlag:word;var Status:word;VioHandle:word):word; cdecl;
function VioScrUnLock(VioHandle:word):word; function VioScrUnLock(VioHandle:word):word; cdecl;
function VioPopUp(var OptionFlags:word;VioHandle:word):word; function VioPopUp(var OptionFlags:word;VioHandle:word):word; cdecl;
function VioEndPopUp(VioHandle:word):word; function VioEndPopUp(VioHandle:word):word; cdecl;
function VioGetConfig(ConfigId:word;var VideoConfig:TVioConfigInfo; function VioGetConfig(ConfigId:word;var VideoConfig:TVioConfigInfo;
VioHandle:word):word; VioHandle:word):word; cdecl;
function VioGetFont(var FontData:TVioFontInfo;VioHandle:word):word; function VioGetFont(var FontData:TVioFontInfo;VioHandle:word):word; cdecl;
function VioSetFont(var FontData:TVioFontInfo;VioHandle:word):word; function VioSetFont(var FontData:TVioFontInfo;VioHandle:word):word; cdecl;
function VioGetCp(Reserved:word;var CodePage:word;VioHandle:word):word; function VioGetCp(Reserved:word;var CodePage:word;VioHandle:word):word; cdecl;
function VioSetCp(Reserved:word;CodePage:word;VioHandle:word):word; function VioSetCp(Reserved:word;CodePage:word;VioHandle:word):word; cdecl;
function VioGetState(var State;VioHandle:word):word; function VioGetState(var State;VioHandle:word):word; cdecl;
function VioSetState(var State;VioHandle:word):word; function VioSetState(var State;VioHandle:word):word; cdecl;
function VioAssociate(DC:cardinal;VPS:word):word; function VioAssociate(DC:cardinal;VPS:word):word; cdecl;
function VioCreateLogFont(var FAtAttrs:TFAttrs;LLCId:longint;var Name:TStr8; function VioCreateLogFont(var FAtAttrs:TFAttrs;LLCId:longint;var Name:TStr8;
VPS:word):word; VPS:word):word; cdecl;
function VioCreatePS(var VPS:word;Depth,Width,Format,Attrs:integer; function VioCreatePS(var VPS:word;Depth,Width,Format,Attrs:integer;
Reserved:word):word; Reserved:word):word; cdecl;
function VioDeleteSetId(LLCId:longint;VPS:word):word; function VioDeleteSetId(LLCId:longint;VPS:word):word; cdecl;
function VioDestroyPS(VPS:word):word; function VioDestroyPS(VPS:word):word; cdecl;
function VioGetDeviceCellSize(var Height,Width:integer;VPS:word):word; function VioGetDeviceCellSize(var Height,Width:integer;VPS:word):word; cdecl;
function VioGetOrg(var Row,Column:integer;VPS:word):word; function VioGetOrg(var Row,Column:integer;VPS:word):word; cdecl;
function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics; function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics;
MetricsLength:longint;var Fonts:longint;FaceName:PChar; MetricsLength:longint;var Fonts:longint;FaceName:PChar;
flOptions:cardinal;VPS:word):word; flOptions:cardinal;VPS:word):word; cdecl;
function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics; function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics;
MetricsLength:longint;var Fonts:longint;FaceName:string; MetricsLength:longint;var Fonts:longint;FaceName:string;
flOptions:cardinal;VPS:word):word; flOptions:cardinal;VPS:word):word;
function VioQuerySetIds(var allCIds:longint;var Names:TStr8; function VioQuerySetIds(var allCIds:longint;var Names:TStr8;
var alTypes:longint;Count:longint;VPS:word):word; var alTypes:longint;Count:longint;VPS:word):word; cdecl;
function VioSetDeviceCellSize(Height,Width:integer;VPS:word):word; function VioSetDeviceCellSize(Height,Width:integer;VPS:word):word; cdecl;
function VioSetOrg(Row,Column:integer;VPS:word):word; function VioSetOrg(Row,Column:integer;VPS:word):word; cdecl;
function VioShowPS(Depth,Width,offCell:integer;VPS:word):word; function VioShowPS(Depth,Width,offCell:integer;VPS:word):word; cdecl;
{Default message processing for AVio PS's - imported from PMVIOP.DLL} {Default message processing for AVio PS's - imported from PMVIOP.DLL}
function WinDefAVioWindowProc(WND:cardinal;Msg:word;mp1,mp2:cardinal):pointer; function WinDefAVioWindowProc(WND:cardinal;Msg:word;mp1,mp2:cardinal):pointer;
cdecl;
(* Following routines are not supported (* Following routines are not supported
@ -787,6 +798,7 @@ implementation
function VioRegister(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal):word; function VioRegister(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal):word;
cdecl;
external 'EMXWRAP' index 145; external 'EMXWRAP' index 145;
{external 'VIOCALLS' index 45;} {external 'VIOCALLS' index 45;}
@ -800,7 +812,7 @@ begin
end; end;
function VioGlobalReg(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal; function VioGlobalReg(ModuleName,ProcName:PChar;FnMask1,FnMask2:cardinal;
Return:word):word; Return:word):word; cdecl;
external 'EMXWRAP' index 170; external 'EMXWRAP' index 170;
{external 'VIOCALLS' index 70;} {external 'VIOCALLS' index 70;}
@ -815,126 +827,132 @@ begin
Return); Return);
end; end;
function VioDeRegister:word; function VioDeRegister:word; cdecl;
external 'EMXWRAP' index 106; external 'EMXWRAP' index 106;
{external 'VIOCALLS' index 6;} {external 'VIOCALLS' index 6;}
function VioGetBuf(var LVBAddr:pointer;var LVBLength:word;VioHandle:word):word; function VioGetBuf(var LVBAddr:pointer;var LVBLength:word;VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 131; external 'EMXWRAP' index 131;
{external 'VIOCALLS' index 31;} {external 'VIOCALLS' index 31;}
function VioGetCurPos(var Row,Column:word;VioHandle:word):word; function VioGetCurPos(var Row,Column:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 109; external 'EMXWRAP' index 109;
{external 'VIOCALLS' index 9;} {external 'VIOCALLS' index 9;}
function VioSetCurPos(Row,Column,VioHandle:word):word; function VioSetCurPos(Row,Column,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 115; external 'EMXWRAP' index 115;
{external 'VIOCALLS' index 15;} {external 'VIOCALLS' index 15;}
function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 127; external 'EMXWRAP' index 127;
{external 'VIOCALLS' index 27;} {external 'VIOCALLS' index 27;}
function VioSetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; function VioSetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 132; external 'EMXWRAP' index 132;
{external 'VIOCALLS' index 32;} {external 'VIOCALLS' index 32;}
function VioGetMode(var Mode:TVioModeInfo;VioHandle:word):word; function VioGetMode(var Mode:TVioModeInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 121; external 'EMXWRAP' index 121;
{external 'VIOCALLS' index 21;} {external 'VIOCALLS' index 21;}
function VioSetMode(var Mode:TVioModeInfo;VioHandle:word):word; function VioSetMode(var Mode:TVioModeInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 122; external 'EMXWRAP' index 122;
{external 'VIOCALLS' index 22;} {external 'VIOCALLS' index 22;}
function VioGetPhysBuf(var PBData:TVioPhysBuf;Reserved:word):word; function VioGetPhysBuf(var PBData:TVioPhysBuf;Reserved:word):word; cdecl;
external 'EMXWRAP' index 102; external 'EMXWRAP' index 102;
{external 'VIOCALLS' index 2;} {external 'VIOCALLS' index 2;}
function VioReadCellStr(var Buf;var BufLen:word; function VioReadCellStr(var Buf;var BufLen:word;
Row,Column,VioHandle:word):word; Row,Column,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 124; external 'EMXWRAP' index 124;
{external 'VIOCALLS' index 24;} {external 'VIOCALLS' index 24;}
function VioReadCharStr(var Buf;var BufLen:word; function VioReadCharStr(var Buf;var BufLen:word;
Row,Column,VioHandle:word):word; Row,Column,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 130; external 'EMXWRAP' index 130;
{external 'VIOCALLS' index 30;} {external 'VIOCALLS' index 30;}
function VioWrtCellStr(CellStr:pointer;Len,Row,Column,VioHandle:word):word; function VioWrtCellStr(CellStr:pointer;Len,Row,Column,VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 110; external 'EMXWRAP' index 110;
{external 'VIOCALLS' index 10;} {external 'VIOCALLS' index 10;}
function VioWrtCharStr(CharStr:pointer;Len,Row,Column,VioHandle:word):word; function VioWrtCharStr(CharStr:pointer;Len,Row,Column,VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 113; external 'EMXWRAP' index 113;
{external 'VIOCALLS' index 13;} {external 'VIOCALLS' index 13;}
function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 147; external 'EMXWRAP' index 147;
{external 'VIOCALLS' index 47;} {external 'VIOCALLS' index 47;}
function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 107; external 'EMXWRAP' index 107;
{external 'VIOCALLS' index 7;} {external 'VIOCALLS' index 7;}
function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 144; external 'EMXWRAP' index 144;
{external 'VIOCALLS' index 44;} {external 'VIOCALLS' index 44;}
function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 112; external 'EMXWRAP' index 112;
{external 'VIOCALLS' index 12;} {external 'VIOCALLS' index 12;}
function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 126; external 'EMXWRAP' index 126;
{external 'VIOCALLS' index 26;} {external 'VIOCALLS' index 26;}
function VioWrtNCell(var Cell:word;Times,Row,Column,VioHandle:word):word; function VioWrtNCell(var Cell:word;Times,Row,Column,VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 152; external 'EMXWRAP' index 152;
{external 'VIOCALLS' index 52;} {external 'VIOCALLS' index 52;}
function VioWrtNChar(var Ch:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNChar(var Ch:byte;Times,Row,Column,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 153; external 'EMXWRAP' index 153;
{external 'VIOCALLS' index 53;} {external 'VIOCALLS' index 53;}
function VioWrtNChar(var Ch:char;Times,Row,Column,VioHandle:word):word; function VioWrtNChar(var Ch:char;Times,Row,Column,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 153; external 'EMXWRAP' index 153;
{external 'VIOCALLS' index 53;} {external 'VIOCALLS' index 53;}
function VioWrtTTY(CharStr:pointer;Len,VioHandle:word):word; function VioWrtTTY(CharStr:pointer;Len,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 119; external 'EMXWRAP' index 119;
{external 'VIOCALLS' index 19;} {external 'VIOCALLS' index 19;}
function VioWrtCharStrAtt(CharStr:pointer;Len,Row,Column:word;var Attr:byte; function VioWrtCharStrAtt(CharStr:pointer;Len,Row,Column:word;var Attr:byte;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 148; external 'EMXWRAP' index 148;
{external 'VIOCALLS' index 48;} {external 'VIOCALLS' index 48;}
function VioCheckCharType(var CharType:word;Row,Column,VioHandle:word):word; function VioCheckCharType(var CharType:word;Row,Column,VioHandle:word):word;
cdecl;
external 'EMXWRAP' index 175; external 'EMXWRAP' index 175;
{external 'VIOCALLS' index 75;} {external 'VIOCALLS' index 75;}
function VioShowBuf(BufOfs,Len,VioHandle:word):word; function VioShowBuf(BufOfs,Len,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 143; external 'EMXWRAP' index 143;
{external 'VIOCALLS' index 43;} {external 'VIOCALLS' index 43;}
function VioSetAnsi(Mode,VioHandle:word):word; function VioSetAnsi(Mode,VioHandle:word):word; cdecl;
external 'EMXWRAP' index 105; external 'EMXWRAP' index 105;
{external 'VIOCALLS' index 5;} {external 'VIOCALLS' index 5;}
function VioGetAnsi(var Mode:word;VioHandle:word):word; function VioGetAnsi(var Mode:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 103; external 'EMXWRAP' index 103;
{external 'VIOCALLS' index 3;} {external 'VIOCALLS' index 3;}
function VioPrtSc(VioHandle:word):word; function VioPrtSc(VioHandle:word):word; cdecl;
external 'EMXWRAP' index 108; external 'EMXWRAP' index 108;
{external 'VIOCALLS' index 8;} {external 'VIOCALLS' index 8;}
function VioPrtScToggle(VioHandle:word):word; function VioPrtScToggle(VioHandle:word):word; cdecl;
external 'EMXWRAP' index 150; external 'EMXWRAP' index 150;
{external 'VIOCALLS' index 50;} {external 'VIOCALLS' index 50;}
@ -945,102 +963,103 @@ function VioRedrawSize(var RedrawSize:cardinal):word;
*) *)
function VioSavRedrawWait(RequestType:word;var NotifyType:word; function VioSavRedrawWait(RequestType:word;var NotifyType:word;
Reserved:word):word; Reserved:word):word; cdecl;
external 'EMXWRAP' index 125; external 'EMXWRAP' index 125;
{external 'VIOCALLS' index 25;} {external 'VIOCALLS' index 25;}
function VioSavRedrawUndo(Ownership,KillThread,Reserved:word):word; function VioSavRedrawUndo(Ownership,KillThread,Reserved:word):word; cdecl;
external 'EMXWRAP' index 128; external 'EMXWRAP' index 128;
{external 'VIOCALLS' index 28;} {external 'VIOCALLS' index 28;}
function VioModeWait(RequestType:word;var NotifyType:word;Reserved:word):word; function VioModeWait(RequestType:word;var NotifyType:word;Reserved:word):word;
cdecl;
external 'EMXWRAP' index 137; external 'EMXWRAP' index 137;
{external 'VIOCALLS' index 37;} {external 'VIOCALLS' index 37;}
function VioModeUndo(Ownership,KillThread,Reserved:word):word; function VioModeUndo(Ownership,KillThread,Reserved:word):word; cdecl;
external 'EMXWRAP' index 135; external 'EMXWRAP' index 135;
{external 'VIOCALLS' index 35;} {external 'VIOCALLS' index 35;}
function VioScrLock(WaitFlag:word;var Status:word;VioHandle:word):word; function VioScrLock(WaitFlag:word;var Status:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 123; external 'EMXWRAP' index 123;
{external 'VIOCALLS' index 23;} {external 'VIOCALLS' index 23;}
function VioScrUnLock(VioHandle:word):word; function VioScrUnLock(VioHandle:word):word; cdecl;
external 'EMXWRAP' index 118; external 'EMXWRAP' index 118;
{external 'VIOCALLS' index 18;} {external 'VIOCALLS' index 18;}
function VioPopUp(var OptionFlags:word;VioHandle:word):word; function VioPopUp(var OptionFlags:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 111; external 'EMXWRAP' index 111;
{external 'VIOCALLS' index 11;} {external 'VIOCALLS' index 11;}
function VioEndPopUp(VioHandle:word):word; function VioEndPopUp(VioHandle:word):word; cdecl;
external 'EMXWRAP' index 101; external 'EMXWRAP' index 101;
{external 'VIOCALLS' index 1;} {external 'VIOCALLS' index 1;}
function VioGetConfig(ConfigId:word;var VideoConfig:TVioConfigInfo; function VioGetConfig(ConfigId:word;var VideoConfig:TVioConfigInfo;
VioHandle:word):word; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 146; external 'EMXWRAP' index 146;
{external 'VIOCALLS' index 46;} {external 'VIOCALLS' index 46;}
function VioGetFont(var FontData:TVioFontInfo;VioHandle:word):word; function VioGetFont(var FontData:TVioFontInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 129; external 'EMXWRAP' index 129;
{external 'VIOCALLS' index 29;} {external 'VIOCALLS' index 29;}
function VioSetFont(var FontData:TVioFontInfo;VioHandle:word):word; function VioSetFont(var FontData:TVioFontInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 133; external 'EMXWRAP' index 133;
{external 'VIOCALLS' index 33;} {external 'VIOCALLS' index 33;}
function VioGetCp(Reserved:word;var CodePage:word;VioHandle:word):word; function VioGetCp(Reserved:word;var CodePage:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 140; external 'EMXWRAP' index 140;
{external 'VIOCALLS' index 40;} {external 'VIOCALLS' index 40;}
function VioSetCp(Reserved:word;CodePage:word;VioHandle:word):word; function VioSetCp(Reserved:word;CodePage:word;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 142; external 'EMXWRAP' index 142;
{external 'VIOCALLS' index 42;} {external 'VIOCALLS' index 42;}
function VioGetState(var State;VioHandle:word):word; function VioGetState(var State;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 149; external 'EMXWRAP' index 149;
{external 'VIOCALLS' index 49;} {external 'VIOCALLS' index 49;}
function VioSetState(var State;VioHandle:word):word; function VioSetState(var State;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 151; external 'EMXWRAP' index 151;
{external 'VIOCALLS' index 51;} {external 'VIOCALLS' index 51;}
{Extended functions for windowed VIO follow.} {Extended functions for windowed VIO follow.}
function VioAssociate(DC:cardinal;VPS:word):word; function VioAssociate(DC:cardinal;VPS:word):word; cdecl;
external 'EMXWRAP' index 155; external 'EMXWRAP' index 155;
{external 'VIOCALLS' index 55;} {external 'VIOCALLS' index 55;}
function VioCreateLogFont(var FAtAttrs:TFAttrs;LLCId:longint;var Name:TStr8; function VioCreateLogFont(var FAtAttrs:TFAttrs;LLCId:longint;var Name:TStr8;
VPS:word):word; VPS:word):word; cdecl;
external 'EMXWRAP' index 160; external 'EMXWRAP' index 160;
{external 'VIOCALLS' index 60;} {external 'VIOCALLS' index 60;}
function VioCreatePS(var VPS:word;Depth,Width,Format,Attrs:integer; function VioCreatePS(var VPS:word;Depth,Width,Format,Attrs:integer;
Reserved:word):word; Reserved:word):word; cdecl;
external 'EMXWRAP' index 156; external 'EMXWRAP' index 156;
{external 'VIOCALLS' index 56;} {external 'VIOCALLS' index 56;}
function VioDeleteSetId(LLCId:longint;VPS:word):word; function VioDeleteSetId(LLCId:longint;VPS:word):word; cdecl;
external 'EMXWRAP' index 157; external 'EMXWRAP' index 157;
{external 'VIOCALLS' index 57;} {external 'VIOCALLS' index 57;}
function VioDestroyPS(VPS:word):word; function VioDestroyPS(VPS:word):word; cdecl;
external 'EMXWRAP' index 161; external 'EMXWRAP' index 161;
{external 'VIOCALLS' index 61;} {external 'VIOCALLS' index 61;}
function VioGetDeviceCellSize(var Height,Width:integer;VPS:word):word; function VioGetDeviceCellSize(var Height,Width:integer;VPS:word):word; cdecl;
external 'EMXWRAP' index 158; external 'EMXWRAP' index 158;
{external 'VIOCALLS' index 58;} {external 'VIOCALLS' index 58;}
function VioGetOrg(var Row,Column:integer;VPS:word):word; function VioGetOrg(var Row,Column:integer;VPS:word):word; cdecl;
external 'EMXWRAP' index 159; external 'EMXWRAP' index 159;
{external 'VIOCALLS' index 59;} {external 'VIOCALLS' index 59;}
function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics; function VioQueryFonts(var Remfonts:longint;var fmMetrics:TFontMetrics;
MetricsLength:longint;var Fonts:longint;FaceName:PChar; MetricsLength:longint;var Fonts:longint;FaceName:PChar;
flOptions:cardinal;VPS:word):word; flOptions:cardinal;VPS:word):word; cdecl;
external 'EMXWRAP' index 164; external 'EMXWRAP' index 164;
{external 'VIOCALLS' index 64;} {external 'VIOCALLS' index 64;}
@ -1071,24 +1090,32 @@ begin
end; end;
function VioQuerySetIds(var allCIds:longint;var Names:TStr8; function VioQuerySetIds(var allCIds:longint;var Names:TStr8;
var alTypes:longint;Count:longint;VPS:word):word; var alTypes:longint;Count:longint;VPS:word):word; cdecl;
external 'EMXWRAP' index 162; external 'EMXWRAP' index 162;
{external 'VIOCALLS' index 62;} {external 'VIOCALLS' index 62;}
function VioSetDeviceCellSize(Height,Width:integer;VPS:word):word; function VioSetDeviceCellSize(Height,Width:integer;VPS:word):word; cdecl;
external 'EMXWRAP' index 165; external 'EMXWRAP' index 165;
{external 'VIOCALLS' index 65;} {external 'VIOCALLS' index 65;}
function VioSetOrg(Row,Column:integer;VPS:word):word; function VioSetOrg(Row,Column:integer;VPS:word):word; cdecl;
external 'EMXWRAP' index 163; external 'EMXWRAP' index 163;
{external 'VIOCALLS' index 63;} {external 'VIOCALLS' index 63;}
function VioShowPS(Depth,Width,offCell:integer;VPS:word):word; function VioShowPS(Depth,Width,offCell:integer;VPS:word):word; cdecl;
external 'EMXWRAP' index 166; external 'EMXWRAP' index 166;
{external 'VIOCALLS' index 66;} {external 'VIOCALLS' index 66;}
function WinDefAVioWindowProc(WND:cardinal;Msg:word;mp1,mp2:cardinal):pointer; function WinDefAVioWindowProc(WND:cardinal;Msg:word;mp1,mp2:cardinal):pointer;
cdecl;
external 'EMXWRAP' index 30; external 'EMXWRAP' index 30;
{external 'PMVIOP' index 30;} {external 'PMVIOP' index 30;}
end. end.
{
$Log$
Revision 1.7 2000-01-09 21:01:59 hajny
* cdecl added
}