mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-06 19:59:29 +01:00
+ Added moucalls and viocalls written by Tomas Hajny.
+ Final routines in doscalls implemented. * Fixed bugs in dos.pas. * Changed some old $ifdef FPK into $ifdef FPC. - Removed go32 stuff from dos.pas. - Removed '/' to '\' translation from system unit - EMX does this automatically.
This commit is contained in:
daniel
parent
b5f4535ec1
commit
bcb942b1dc
@ -1,27 +1,26 @@
|
|||||||
/ code2.s (emx+fpk) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
/ code2.as (emx+fpk) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
||||||
/ Changed for FPK-Pascal in 1998 by Dani‰l Mantione.
|
/ Changed for FPK-Pascal in 1998 by Dani‰l Mantione.
|
||||||
/ This code is _not_ under the Library GNU Public
|
/ This code is _not_ under the Library GNU Public
|
||||||
/ License, because the original is not. See copying.emx
|
/ License, because the original is not. See copying.emx
|
||||||
/ for details. You should have received it with this
|
/ for details. You should have received it with this
|
||||||
/ product, write the author if you haven't.
|
/ product, write the author if you haven't.
|
||||||
|
|
||||||
.globl DosGetMessage
|
.globl DosGetMessage
|
||||||
.globl _msgseg32
|
.globl _msgseg32
|
||||||
|
|
||||||
_msgseg32:
|
_msgseg32:
|
||||||
.byte 0xff
|
.byte 0xff
|
||||||
.asciz "MSGSEG32"
|
.asciz "MSGSEG32"
|
||||||
.byte 0x01, 0x80, 0x00, 0x00
|
.byte 0x01, 0x80, 0x00, 0x00
|
||||||
.long L_tab
|
.long L_tab
|
||||||
|
|
||||||
.align 2, 0x90
|
.align 2, 0x90
|
||||||
|
|
||||||
DosGetMessage:
|
DosGetMessage:
|
||||||
PROFILE_NOFRAME
|
popl %ecx /* return address */
|
||||||
popl %ecx /* return address */
|
pushl $_msgseg32
|
||||||
pushl $_msgseg32
|
pushl %ecx
|
||||||
pushl %ecx
|
jmp _DOSCALLS$$_DOSTRUEGETMESSAGE$POINTER$PINSERTTABLE$LONGINT$PCHAR$LONGINT$LONGINT$PCHAR$LONGINT
|
||||||
jmp _DOSCALLS$$_DOSTRUEGETMESSAGE$POINTER$PINSERTTABLE$LONGINT$PCHAR$LONGINT$LONGINT$PCHAR$LONGINT
|
|
||||||
|
|
||||||
L_tab: .short 0x0000
|
L_tab: .short 0x0000
|
||||||
.short 0xffff
|
.short 0xffff
|
||||||
|
|||||||
@ -1,16 +1,18 @@
|
|||||||
/ code3.s (emx+gcc) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
/ code2.as (emx+fpk) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
||||||
|
/ Changed for FPK-Pascal in 1998 by Dani‰l Mantione.
|
||||||
|
/ This code is _not_ under the Library GNU Public
|
||||||
|
/ License, because the original is not. See copying.emx
|
||||||
|
/ for details. You should have received it with this
|
||||||
|
/ product, write the author if you haven't.
|
||||||
|
|
||||||
#include <emx/asm386.h>
|
.globl DosQueryMessageCP
|
||||||
|
|
||||||
.globl _DosQueryMessageCP
|
DosQueryMessageCP:
|
||||||
|
|
||||||
_DosQueryMessageCP:
|
|
||||||
PROFILE_NOFRAME
|
|
||||||
pushl 0(%esp)
|
pushl 0(%esp)
|
||||||
movl $__msgseg32, %eax
|
movl $_msgseg32, %eax
|
||||||
xchgl 20(%esp), %eax
|
xchgl 20(%esp), %eax
|
||||||
xchgl 16(%esp), %eax
|
xchgl 16(%esp), %eax
|
||||||
xchgl 12(%esp), %eax
|
xchgl 12(%esp), %eax
|
||||||
xchgl 8(%esp), %eax
|
xchgl 8(%esp), %eax
|
||||||
movl %eax, 4(%esp)
|
movl %eax, 4(%esp)
|
||||||
jmp _DosIQueryMessageCP
|
jmp _DOSCALLS$$_DOSIQUERYMESSAGECP$$$$$LONGINT$PCHAR$LONGINT$POINTER
|
||||||
|
|||||||
2051
rtl/os2/dos.pas
2051
rtl/os2/dos.pas
File diff suppressed because it is too large
Load Diff
@ -91,19 +91,21 @@ interface
|
|||||||
uses strings;
|
uses strings;
|
||||||
|
|
||||||
type Pstring=^string;
|
type Pstring=^string;
|
||||||
{$ELSE} {$IFDEF FVISION_PSTRING}
|
|
||||||
uses strings,objects;
|
|
||||||
{$ELSE}
|
{$ELSE}
|
||||||
|
{$IFDEF FVISION_PSTRING}
|
||||||
|
uses strings,objects;
|
||||||
|
{$ELSE}
|
||||||
{$ERROR Pstring source unknown.}
|
{$ERROR Pstring source unknown.}
|
||||||
|
{$ENDIF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$ifdef FPK}
|
{$ifdef FPC}
|
||||||
{$packrecords 1}
|
{$packrecords 1}
|
||||||
{$endif FPK}
|
{$endif FPC}
|
||||||
|
|
||||||
type Tbytearray=array[0..$fff0] of byte;
|
type Tbytearray=array[0..$fff0] of byte;
|
||||||
Pbytearray=^Tbytearray;
|
Pbytearray=^Tbytearray;
|
||||||
Tchararray=array[0..$fff0] of byte;
|
Tchararray=array[0..$fff0] of char;
|
||||||
Pchararray=^Tchararray;
|
Pchararray=^Tchararray;
|
||||||
Twordarray=array[0..$7ff8] of word;
|
Twordarray=array[0..$7ff8] of word;
|
||||||
Pwordarray=^Twordarray;
|
Pwordarray=^Twordarray;
|
||||||
@ -594,7 +596,7 @@ The filename must consist of the driveletter followed by a semicolon.}
|
|||||||
function dosopen(filenaam:Pchar;var handle,action:longint;
|
function dosopen(filenaam:Pchar;var handle,action:longint;
|
||||||
initsize:longint;attrib,openflags,filemode:longint;
|
initsize:longint;attrib,openflags,filemode:longint;
|
||||||
ea:PEAop2):word;
|
ea:PEAop2):word;
|
||||||
{This variant of dosOpen always creates or overwrites a file.}
|
{This variant of dosopen always creates or overwrites a file.}
|
||||||
function doscreate(filenaam:Pchar;var handle:longint;
|
function doscreate(filenaam:Pchar;var handle:longint;
|
||||||
attrib,openmode:longint):word;
|
attrib,openmode:longint):word;
|
||||||
{This variant of dosOpen always opens an existing file.}
|
{This variant of dosOpen always opens an existing file.}
|
||||||
@ -643,7 +645,7 @@ function dossetfileptr(handle:word;pos:longint;method:longint;
|
|||||||
actual position.}
|
actual position.}
|
||||||
function dossetfileptr(handle:word;pos:longint):word;
|
function dossetfileptr(handle:word;pos:longint):word;
|
||||||
{This variant returns the current filepointer.}
|
{This variant returns the current filepointer.}
|
||||||
function dosgetfileptr(handle:word;posactual:longint):word;
|
function dosgetfileptr(handle:word;var posactual:longint):word;
|
||||||
|
|
||||||
{Use dosqueryfileinfo or dosquerypathinfo to get the size of a file.}
|
{Use dosqueryfileinfo or dosquerypathinfo to get the size of a file.}
|
||||||
|
|
||||||
@ -1588,9 +1590,9 @@ const pt16bit=0;
|
|||||||
naam = Must be nil for Pchar or '' for string variant if ordinal
|
naam = Must be nil for Pchar or '' for string variant if ordinal
|
||||||
is zero. Otherwise it contains the procname.
|
is zero. Otherwise it contains the procname.
|
||||||
proctype = One of the ptxxxx constants.}
|
proctype = One of the ptxxxx constants.}
|
||||||
function dosqueryproctype(handle:longint;ordinal:longint;naam:Pchar;
|
function dosqueryproctype(handle,ordinal:longint;naam:Pchar;
|
||||||
var proctype:longint):word;
|
var proctype:longint):word;
|
||||||
function dosqueryproctype(handle:longint;ordinal:longint;naam:string;
|
function dosqueryproctype(handle,ordinal:longint;const naam:string;
|
||||||
var proctype:longint):word;
|
var proctype:longint):word;
|
||||||
|
|
||||||
{****************************************************************************
|
{****************************************************************************
|
||||||
@ -2034,15 +2036,15 @@ type Pinserttable=^Tinserttable;
|
|||||||
function dosgetmessage(table:Pinserttable;tablesize:longint;buf:Pchar;
|
function dosgetmessage(table:Pinserttable;tablesize:longint;buf:Pchar;
|
||||||
bufsize,msgnumber:longint;filenaam:Pchar;
|
bufsize,msgnumber:longint;filenaam:Pchar;
|
||||||
var msgsize:longint):word;
|
var msgsize:longint):word;
|
||||||
{And a variant using strings and open arrays.}
|
{And a variant using strings and open arrays.
|
||||||
function dosgetmessage(const table:array of Pstring;var buf:string;
|
function dosgetmessage(const table:array of Pstring;var buf:string;
|
||||||
bufsize,msgnumber:longint;const filenaam:Pchar):word;
|
bufsize,msgnumber:longint;const filenaam:Pchar):word;}
|
||||||
|
|
||||||
{And a variant using strings, but with a Pchar buffer, because of long
|
{And a variant using strings, but with a Pchar buffer, because of long
|
||||||
messages, and open arrays.}
|
messages, and open arrays.
|
||||||
function dosgetmessage(const table:array of Pstring;buf:Pchar;
|
function dosgetmessage(const table:array of Pstring;buf:Pchar;
|
||||||
bufsize,msgnumber:longint;const filenaam:string;
|
bufsize,msgnumber:longint;const filenaam:string;
|
||||||
msgsize:longint):word;
|
msgsize:longint):word;}
|
||||||
|
|
||||||
{Insert textstrings into a message. The message must be loaded before with
|
{Insert textstrings into a message. The message must be loaded before with
|
||||||
dosGetMessage. This function is used when the insert strings are not yet
|
dosGetMessage. This function is used when the insert strings are not yet
|
||||||
@ -2058,17 +2060,17 @@ function dosinsertmessage(table:Pinserttable;tablesize:longint;
|
|||||||
message:Pchar;srcmessagesize:longint;
|
message:Pchar;srcmessagesize:longint;
|
||||||
buf:Pchar;bufsize:longint;
|
buf:Pchar;bufsize:longint;
|
||||||
var dstmessagesize:longint):word;
|
var dstmessagesize:longint):word;
|
||||||
{And a variant using strings and open arrays.}
|
{And a variant using strings and open arrays.
|
||||||
function dosinsertmessage(table:array of Pstring;
|
function dosinsertmessage(table:array of Pstring;
|
||||||
const message:string;
|
const message:string;
|
||||||
var buf:openstring):word;
|
var buf:openstring):word;}
|
||||||
|
|
||||||
{And a variant using strings, but with a Pchar buffer, because of long
|
{And a variant using strings, but with a Pchar buffer, because of long
|
||||||
messages, and open arrays.}
|
messages, and open arrays.
|
||||||
function dosinsertmessage(table:array of Pstring;
|
function dosinsertmessage(table:array of Pstring;
|
||||||
message:Pchar;srcmessagesize:longint;
|
message:Pchar;srcmessagesize:longint;
|
||||||
buf:Pchar;bufsize:longint;
|
buf:Pchar;bufsize:longint;
|
||||||
var dstmessagesize:longint):word;
|
var dstmessagesize:longint):word;}
|
||||||
|
|
||||||
{Write a message to a file.
|
{Write a message to a file.
|
||||||
handle = Handle of file.
|
handle = Handle of file.
|
||||||
@ -2388,6 +2390,9 @@ procedure flattosel;
|
|||||||
implementation
|
implementation
|
||||||
{***************************************************************************}
|
{***************************************************************************}
|
||||||
|
|
||||||
|
{$l code2.oo2}
|
||||||
|
{$l code3.oo2}
|
||||||
|
|
||||||
function doscreatethread(var tid:longint;address:Tthreadentry;
|
function doscreatethread(var tid:longint;address:Tthreadentry;
|
||||||
Aparam:pointer;flags:longint;
|
Aparam:pointer;flags:longint;
|
||||||
stacksize:longint):word;
|
stacksize:longint):word;
|
||||||
@ -2457,16 +2462,16 @@ var t,t2:array[0..255] of char;
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,filenaam);
|
strPcopy(@t,filenaam);
|
||||||
dosexecpgm:=dosexecpgm(@t2,execflag,args,env,res,@t);;
|
dosexecpgm:=dosexecpgm(@t2,sizeof(t2),execflag,args,env,res,@t);;
|
||||||
objnaam:=strpas(@t2);
|
objnaam:=strpas(@t2);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function doswaitchild(action:longint;option:longint;var res:resultcodes;
|
function doswaitchild(action:longint;option:longint;var res:Tresultcodes;
|
||||||
var termpid:longint;pid:longint):word;
|
var termpid:longint;pid:longint):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 280;
|
external 'DOSCALLS' index 280;
|
||||||
|
|
||||||
function dossetpriority(scope,class,delta,portid:longint):word;
|
function dossetpriority(scope,trclass,delta,portid:longint):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 236;
|
external 'DOSCALLS' index 236;
|
||||||
|
|
||||||
@ -2530,10 +2535,11 @@ function doscreate(const filenaam:string;var handle:longint;
|
|||||||
attrib,openmode:longint):word;
|
attrib,openmode:longint):word;
|
||||||
|
|
||||||
var t:array[0..255] of char;
|
var t:array[0..255] of char;
|
||||||
|
action:longint;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,filenaam);
|
strPcopy(@t,filenaam);
|
||||||
doscreate:=dosopen(t,handle,action,0,attrib,18,openmode,nil);
|
doscreate:=dosopen(@t,handle,action,0,attrib,18,openmode,nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosopen(const filenaam:string;var handle:longint;
|
function dosopen(const filenaam:string;var handle:longint;
|
||||||
@ -2618,7 +2624,7 @@ var t,t2,t3:array[0..255] of char;
|
|||||||
begin
|
begin
|
||||||
strPcopy(@t,source);
|
strPcopy(@t,source);
|
||||||
strPcopy(@t2,edit);
|
strPcopy(@t2,edit);
|
||||||
doseditname:=doseditname(metalevel,@t,@t2,@t3);
|
doseditname:=doseditname(metalevel,@t,@t2,@t3,sizeof(t3));
|
||||||
target:=strpas(@t3);
|
target:=strpas(@t3);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2647,7 +2653,7 @@ var t,t2:array[0..255] of char;
|
|||||||
begin
|
begin
|
||||||
strPcopy(@t,oud);
|
strPcopy(@t,oud);
|
||||||
strPcopy(@t2,nieuw);
|
strPcopy(@t2,nieuw);
|
||||||
doscopy:=doscopy(@t,@t2);
|
doscopy:=doscopy(@t,@t2,option);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosdelete(filenaam:Pchar):word;
|
function dosdelete(filenaam:Pchar):word;
|
||||||
@ -2659,7 +2665,7 @@ function dosdelete(const filenaam:string):word;
|
|||||||
var t:array[0..255] of char;
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,filanaam);
|
strPcopy(@t,filenaam);
|
||||||
dosdelete:=dosdelete(@t);
|
dosdelete:=dosdelete(@t);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2777,7 +2783,7 @@ begin
|
|||||||
count,infolevel);
|
count,infolevel);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosfindnext(handle:longint;Afilestatus:Pfilefindbuf;
|
function dosfindnext(handle:longint;Afilestatus:Pfilestatus;
|
||||||
cbfilestatus:longint;var count:longint):word;
|
cbfilestatus:longint;var count:longint):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 265;
|
external 'DOSCALLS' index 265;
|
||||||
@ -2829,7 +2835,7 @@ function dosenumattribute(handle:longint;
|
|||||||
var count:longint;infolevel:longint):word;
|
var count:longint;infolevel:longint):word;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
dosenumatrribute:=dosenumattribute(0,@handle,entry,buf,bufsize,count,
|
dosenumattribute:=dosenumattribute(0,@handle,entry,buf,bufsize,count,
|
||||||
infolevel);
|
infolevel);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2852,10 +2858,12 @@ external 'DOSCALLS' index 227;
|
|||||||
function dosscanenv(const naam:string;var value:string):word;
|
function dosscanenv(const naam:string;var value:string):word;
|
||||||
|
|
||||||
var t:array[0..255] of char;
|
var t:array[0..255] of char;
|
||||||
|
p:Pchar;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
dosscanenv:=dosscanenv(@t,value);
|
dosscanenv:=dosscanenv(@t,p);
|
||||||
|
value:=strpas(p);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dossearchpath(flag:longint;dirlist,filenaam:Pchar;
|
function dossearchpath(flag:longint;dirlist,filenaam:Pchar;
|
||||||
@ -2871,7 +2879,7 @@ var t1,t2,t3:array[0..255] of char;
|
|||||||
begin
|
begin
|
||||||
strPcopy(@t1,dirlist);
|
strPcopy(@t1,dirlist);
|
||||||
strPcopy(@t2,filenaam);
|
strPcopy(@t2,filenaam);
|
||||||
dossearchpath:=dossearchpath(flag,@t1,@t2,@t3);
|
dossearchpath:=dossearchpath(flag,@t1,@t2,@t3,sizeof(t3));
|
||||||
fullname:=strpas(@t3);
|
fullname:=strpas(@t3);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2996,7 +3004,7 @@ var t:array[0..255] of char;
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
getnamedsharedmem:=getnamedsharedmem(p,@t,flag);
|
dosgetnamedsharedmem:=dosgetnamedsharedmem(p,@t,flag);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosallocsharedmem(var p:pointer;naam:Pchar;size,flag:longint):word;
|
function dosallocsharedmem(var p:pointer;naam:Pchar;size,flag:longint):word;
|
||||||
@ -3012,10 +3020,10 @@ begin
|
|||||||
if naam<>'' then
|
if naam<>'' then
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
dosallocsharedmem:=dosallocsharedmem(p,naam,cb,flag);
|
dosallocsharedmem:=dosallocsharedmem(p,naam,size,flag);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
dosallocsharedmem:=dosallocsharedmem(p,nil,flag);
|
dosallocsharedmem:=dosallocsharedmem(p,nil,size,flag);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosquerymem(p:pointer;var size,flag:longint):word;
|
function dosquerymem(p:pointer;var size,flag:longint):word;
|
||||||
@ -3064,7 +3072,7 @@ external 'DOSCALLS' index 325;
|
|||||||
|
|
||||||
function dosopeneventsem(const naam:string;var handle:longint):word;
|
function dosopeneventsem(const naam:string;var handle:longint):word;
|
||||||
|
|
||||||
var t:array[0...255] of char;
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
@ -3105,7 +3113,7 @@ begin
|
|||||||
if naam<>'' then
|
if naam<>'' then
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
doscreatemutextsem:=doscreatemutexsem(@t,handle,attr,state);
|
doscreatemutexsem:=doscreatemutexsem(@t,handle,attr,state);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
doscreatemutexsem:=doscreatemutexsem(nil,handle,attr,state);
|
doscreatemutexsem:=doscreatemutexsem(nil,handle,attr,state);
|
||||||
@ -3121,7 +3129,7 @@ var t:array[0..255] of char;
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t,naam);
|
strPcopy(@t,naam);
|
||||||
dosopenmutex:=dosmutexsem(@t,handle);
|
dosopenmutexsem:=dosopenmutexsem(@t,handle);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosclosemutexsem(handle:longint):word;
|
function dosclosemutexsem(handle:longint):word;
|
||||||
@ -3205,12 +3213,12 @@ function dossetdatetime(var buf:Tdatetime):word;
|
|||||||
|
|
||||||
external 'DOSCALLS' index 292;
|
external 'DOSCALLS' index 292;
|
||||||
|
|
||||||
function dosasynctimer(msec:longint;hsem:SEMhandle;
|
function dosasynctimer(msec:longint;hsem:longint;
|
||||||
var TIMhandle:longint):word;
|
var TIMhandle:longint):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 350;
|
external 'DOSCALLS' index 350;
|
||||||
|
|
||||||
function dosstarttimer(msec:longint;hsem:SEMhandle;
|
function dosstarttimer(msec:longint;hsem:longint;
|
||||||
var TIMhandle:longint):word;
|
var TIMhandle:longint):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 351;
|
external 'DOSCALLS' index 351;
|
||||||
@ -3232,14 +3240,14 @@ function dosloadmodule(objnaam:Pchar;objlen:longint;DLLnaam:Pchar;
|
|||||||
|
|
||||||
external 'DOSCALLS' index 318;
|
external 'DOSCALLS' index 318;
|
||||||
|
|
||||||
function dosloadmodule(var objnaam:string;objlen:lognint;
|
function dosloadmodule(var objnaam:string;objlen:longint;
|
||||||
const DLLnaam:string;var handle:longint):word;
|
const DLLnaam:string;var handle:longint):word;
|
||||||
|
|
||||||
var t1,t2:array[0..255] of char;
|
var t1,t2:array[0..255] of char;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t2,DLLnaam);
|
strPcopy(@t2,DLLnaam);
|
||||||
dosloadmodule:=dosloadmodule(@t1,objlen,DLLnaam,handle);
|
dosloadmodule:=dosloadmodule(@t1,objlen,@t2,handle);
|
||||||
objnaam:=strpas(@t1);
|
objnaam:=strpas(@t1);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -3307,10 +3315,10 @@ begin
|
|||||||
if naam<>'' then
|
if naam<>'' then
|
||||||
begin
|
begin
|
||||||
strPcopy(@t1,naam);
|
strPcopy(@t1,naam);
|
||||||
dosqueryproctype(handle,ordinal,@t1,proctype);
|
dosqueryproctype:=dosqueryproctype(handle,ordinal,@t1,proctype);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
dosqueryproctype(handle,ordinal,nil,proctype);
|
dosqueryproctype:=dosqueryproctype(handle,ordinal,nil,proctype);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function dosgetresource(handle,restype,resnaam:longint;var p:pointer):word;
|
function dosgetresource(handle,restype,resnaam:longint;var p:pointer):word;
|
||||||
@ -3330,7 +3338,7 @@ function dosqueryctryinfo(cb:longint;var country:Tcountrycode;
|
|||||||
|
|
||||||
external 'NLS' index 5;
|
external 'NLS' index 5;
|
||||||
|
|
||||||
function dosqueryDBCSenv(cb:longint;var country:Pcountrycode;buf:Pchar):word;
|
function dosqueryDBCSenv(cb:longint;var country:Tcountrycode;buf:Pchar):word;
|
||||||
|
|
||||||
external 'NLS' index 6;
|
external 'NLS' index 6;
|
||||||
|
|
||||||
@ -3372,7 +3380,7 @@ function dosunsetexceptionhandler(var regrec:Texceptionregistrationrecord
|
|||||||
|
|
||||||
external 'DOSCALLS' index 355;
|
external 'DOSCALLS' index 355;
|
||||||
|
|
||||||
function dosraiseexception(var except:Texceptionreportrecord):word;
|
function dosraiseexception(var excpt:Texceptionreportrecord):word;
|
||||||
|
|
||||||
external 'DOSCALLS' index 356;
|
external 'DOSCALLS' index 356;
|
||||||
|
|
||||||
@ -3429,7 +3437,7 @@ external 'QUECALLS' index 15;
|
|||||||
function dosopenqueue(var parent_pid:longint;var handle:longint;
|
function dosopenqueue(var parent_pid:longint;var handle:longint;
|
||||||
const naam:string):word;
|
const naam:string):word;
|
||||||
|
|
||||||
var strPcopy(@t1,naam);
|
var t1:array[0..255] of char;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
strPcopy(@t1,naam);
|
strPcopy(@t1,naam);
|
||||||
@ -3439,7 +3447,7 @@ end;
|
|||||||
function dospeekqueue(handle:longint;var reqbuffer:Trequestdata;
|
function dospeekqueue(handle:longint;var reqbuffer:Trequestdata;
|
||||||
var datalen:longint;var dataptr:pointer;
|
var datalen:longint;var dataptr:pointer;
|
||||||
var element:longint;wait:longint;
|
var element:longint;wait:longint;
|
||||||
var priority:byte;Asem:SEMhandle):word;
|
var priority:byte;Asem:longint):word;
|
||||||
|
|
||||||
external 'QUECALLS' index 13;
|
external 'QUECALLS' index 13;
|
||||||
|
|
||||||
@ -3454,7 +3462,7 @@ external 'QUECALLS' index 12;
|
|||||||
function dosreadqueue(handle:longint;var reqbuffer:Trequestdata;
|
function dosreadqueue(handle:longint;var reqbuffer:Trequestdata;
|
||||||
var datalen:longint;var dataptr:pointer;
|
var datalen:longint;var dataptr:pointer;
|
||||||
element,wait:longint;var priority:byte;
|
element,wait:longint;var priority:byte;
|
||||||
Asem:semhandle):word;
|
Asem:longint):word;
|
||||||
|
|
||||||
external 'QUECALLS' index 9;
|
external 'QUECALLS' index 9;
|
||||||
|
|
||||||
@ -3467,7 +3475,7 @@ function doserror(error:longint):word;
|
|||||||
|
|
||||||
external 'DOSCALLS' index 212;
|
external 'DOSCALLS' index 212;
|
||||||
|
|
||||||
procedure doserrclass(code:longint;var class,action,locus:longint);
|
procedure doserrclass(code:longint;var _class,action,locus:longint);
|
||||||
|
|
||||||
external 'DOSCALLS' index 211;
|
external 'DOSCALLS' index 211;
|
||||||
|
|
||||||
@ -3484,8 +3492,8 @@ function dosgetmessage(table:Pinserttable;tablesize:longint;buf:Pchar;
|
|||||||
|
|
||||||
external name 'DosGetMessage'; {Procedure is in code2.so2.}
|
external name 'DosGetMessage'; {Procedure is in code2.so2.}
|
||||||
|
|
||||||
function dosgetmessage(const table:array of Pstring;var buf:openstring;
|
(*function dosgetmessage(const table:array of Pstring;var buf:openstring;
|
||||||
msgnumber:longint;const filenaam:string):word;
|
msgnumber:longint;const filenaam:string):word;
|
||||||
|
|
||||||
{Hmm. This takes too much stackspace. Let's use the
|
{Hmm. This takes too much stackspace. Let's use the
|
||||||
heap instead.}
|
heap instead.}
|
||||||
@ -3537,94 +3545,189 @@ begin
|
|||||||
{Step 7: Free the memory.}
|
{Step 7: Free the memory.}
|
||||||
freemem(buffer,s);
|
freemem(buffer,s);
|
||||||
end;
|
end;
|
||||||
end;
|
end;*)
|
||||||
|
|
||||||
function dosgetmessage(const table:array of Pstring;buf:Pchar;
|
{function dosgetmessage(const table:array of Pstring;buf:Pchar;
|
||||||
bufsize,msgnumber:longint;const filenaam:string;
|
bufsize,msgnumber:longint;const filenaam:string;
|
||||||
msgsize:longint):word;
|
msgsize:longint):word;}
|
||||||
|
|
||||||
function dosinsertmessage(table:Pinserttable;tablesize:longint;
|
function dosinsertmessage(table:Pinserttable;tablesize:longint;
|
||||||
message:Pchar;srcmessagesize:longint;
|
message:Pchar;srcmessagesize:longint;
|
||||||
buf:Pchar;bufsize:longint;
|
buf:Pchar;bufsize:longint;
|
||||||
var dstmessagesize:longint):word;
|
var dstmessagesize:longint):word;
|
||||||
|
|
||||||
function dosinsertmessage(table:array of Pstring;
|
external 'MSG' index 4;
|
||||||
|
|
||||||
|
{function dosinsertmessage(table:array of Pstring;
|
||||||
const message:string;
|
const message:string;
|
||||||
var buf:openstring):word;
|
var buf:openstring):word;
|
||||||
|
|
||||||
function dosinsertmessage(table:array of Pstring;
|
function dosinsertmessage(table:array of Pstring;
|
||||||
message:Pchar;srcmessagesize:longint;
|
message:Pchar;srcmessagesize:longint;
|
||||||
buf:Pchar;bufsize:longint;
|
buf:Pchar;bufsize:longint;
|
||||||
var dstmessagesize:longint):word;
|
var dstmessagesize:longint):word;}
|
||||||
|
|
||||||
function dosputmessage(handle,size:longint;buf:Pchar):word;
|
function dosputmessage(handle,size:longint;buf:Pchar):word;
|
||||||
|
|
||||||
|
external 'MSG' index 5;
|
||||||
|
|
||||||
function dosputmessage(handle:longint;const buf:string):word;
|
function dosputmessage(handle:longint;const buf:string):word;
|
||||||
|
|
||||||
|
begin
|
||||||
|
dosputmessage:=dosputmessage(handle,length(buf),@buf[1]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function dosIquerymessageCP(var buf;bufsize:longint;filenaam:Pchar;
|
||||||
|
var infosize:longint;messeg:pointer):word;
|
||||||
|
|
||||||
|
external 'MSG' index 8;
|
||||||
|
|
||||||
function dosquerymessageCP(var buf;bufsize:longint;filenaam:Pchar;
|
function dosquerymessageCP(var buf;bufsize:longint;filenaam:Pchar;
|
||||||
var infosize:longint):word;
|
var infosize:longint):word;
|
||||||
|
|
||||||
|
external name 'DosQueryMessageCP';
|
||||||
|
|
||||||
function dosquerymessageCP(var buf;bufsize:longint;const filenaam:string;
|
function dosquerymessageCP(var buf;bufsize:longint;const filenaam:string;
|
||||||
var infosize:longint):word;
|
var infosize:longint):word;
|
||||||
|
|
||||||
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
|
begin
|
||||||
|
strPcopy(@t,filenaam);
|
||||||
|
dosquerymessageCP:=dosquerymessageCP(buf,bufsize,@t,infosize);
|
||||||
|
end;
|
||||||
|
|
||||||
function dosstartsession(const Astartdata:Tstartdata;
|
function dosstartsession(const Astartdata:Tstartdata;
|
||||||
var sesid,pid:longint):word;
|
var sesid,pid:longint):word;
|
||||||
|
|
||||||
|
external 'SESMGR' index 37;
|
||||||
|
|
||||||
function dossetsession(sesid:longint;const Astatus:Tstatusdata):word;
|
function dossetsession(sesid:longint;const Astatus:Tstatusdata):word;
|
||||||
|
|
||||||
|
external 'SESMGR' index 39;
|
||||||
|
|
||||||
function dosselectsession(sesid:longint):word;
|
function dosselectsession(sesid:longint):word;
|
||||||
|
|
||||||
|
external 'SESMGR' index 38;
|
||||||
|
|
||||||
function dosstopsession(scope,sesid:longint):word;
|
function dosstopsession(scope,sesid:longint):word;
|
||||||
|
|
||||||
|
external 'SESMGR' index 40;
|
||||||
|
|
||||||
function doscreatepipe(var readhandle,writehandle:longint;
|
function doscreatepipe(var readhandle,writehandle:longint;
|
||||||
size:longint):word;
|
size:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 239;
|
||||||
|
|
||||||
function doscreatenpipe(naam:Pchar;var handle:longint;openmode,pipemode,
|
function doscreatenpipe(naam:Pchar;var handle:longint;openmode,pipemode,
|
||||||
outbufsize,inbufsize,msec:longint):word;
|
outbufsize,inbufsize,msec:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 243;
|
||||||
|
|
||||||
function doscreatenpipe(const naam:string;var handle:longint;openmode,
|
function doscreatenpipe(const naam:string;var handle:longint;openmode,
|
||||||
pipemode,outbufsize,inbufsize,msec:longint):word;
|
pipemode,outbufsize,inbufsize,msec:longint):word;
|
||||||
|
|
||||||
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
|
begin
|
||||||
|
strPcopy(@t,naam);
|
||||||
|
doscreatenpipe:=doscreatenpipe(@t,handle,openmode,pipemode,outbufsize,
|
||||||
|
inbufsize,msec);
|
||||||
|
end;
|
||||||
|
|
||||||
function doscallnpipe(naam:Pchar;var input;inputsize:longint;
|
function doscallnpipe(naam:Pchar;var input;inputsize:longint;
|
||||||
var output;outputsize:longint;var readbytes:longint;
|
var output;outputsize:longint;var readbytes:longint;
|
||||||
msec:longint):word;
|
msec:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 240;
|
||||||
|
|
||||||
function doscallnpipe(const naam:string;var input;inputsize:longint;
|
function doscallnpipe(const naam:string;var input;inputsize:longint;
|
||||||
var output;outputsize:longint;var readbytes:longint;
|
var output;outputsize:longint;var readbytes:longint;
|
||||||
msec:longint):word;
|
msec:longint):word;
|
||||||
|
|
||||||
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
|
begin
|
||||||
|
strPcopy(@t,naam);
|
||||||
|
doscallnpipe:=doscallnpipe(@t,input,inputsize,output,outputsize,
|
||||||
|
readbytes,msec);
|
||||||
|
end;
|
||||||
|
|
||||||
function dosconnectnpipe(handle:longint):word;
|
function dosconnectnpipe(handle:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 241;
|
||||||
|
|
||||||
function dosdisconnectnpipe(handle:longint):word;
|
function dosdisconnectnpipe(handle:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 242;
|
||||||
|
|
||||||
function dospeeknpipe(handle:longint;var buffer;bufsize:longint;
|
function dospeeknpipe(handle:longint;var buffer;bufsize:longint;
|
||||||
var readbytes:longint;var avail:Tavaildata;
|
var readbytes:longint;var avail:Tavaildata;
|
||||||
var state:longint):word;
|
var state:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 244;
|
||||||
|
|
||||||
function dosquerynphstate(handle:longint;var state:longint):word;
|
function dosquerynphstate(handle:longint;var state:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 245;
|
||||||
|
|
||||||
function dosquerynpipeinfo(handle,infolevel:longint;var buffer;
|
function dosquerynpipeinfo(handle,infolevel:longint;var buffer;
|
||||||
bufsize:longint):word;
|
bufsize:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 248;
|
||||||
|
|
||||||
function dosquerynpipesemstate(semhandle:longint;var semarray;
|
function dosquerynpipesemstate(semhandle:longint;var semarray;
|
||||||
bufsize:longint):word;
|
bufsize:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 249;
|
||||||
|
|
||||||
function dossetnphstate(handle,state:longint):word;
|
function dossetnphstate(handle,state:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 250;
|
||||||
|
|
||||||
function dossetnpipesem(pipehandle,semhandle,key:longint):word;
|
function dossetnpipesem(pipehandle,semhandle,key:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 251;
|
||||||
|
|
||||||
function dostransactnpipe(handle:longint;var outbuf;outsize:longint;
|
function dostransactnpipe(handle:longint;var outbuf;outsize:longint;
|
||||||
var inbuf;insize:longint;
|
var inbuf;insize:longint;
|
||||||
var readbytes:longint):word;
|
var readbytes:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 252;
|
||||||
|
|
||||||
function doswaitnpipe(naam:Pchar;msec:longint):word;
|
function doswaitnpipe(naam:Pchar;msec:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 253;
|
||||||
|
|
||||||
function doswaitnpipe(const naam:string;msec:longint):word;
|
function doswaitnpipe(const naam:string;msec:longint):word;
|
||||||
|
|
||||||
|
var t:array[0..255] of char;
|
||||||
|
|
||||||
|
begin
|
||||||
|
strPcopy(@t,naam);
|
||||||
|
doswaitnpipe:=doswaitnpipe(@t,msec);
|
||||||
|
end;
|
||||||
|
|
||||||
function dosopenVDD(naam:Pchar;var handle:longint):word;
|
function dosopenVDD(naam:Pchar;var handle:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 308;
|
||||||
|
|
||||||
function dosrequestVDD(handle,sgroup,cmd:longint;
|
function dosrequestVDD(handle,sgroup,cmd:longint;
|
||||||
insize:longint;var inbuffer;
|
insize:longint;var inbuffer;
|
||||||
outsize:longint;var outbuffer):word;
|
outsize:longint;var outbuffer):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 309;
|
||||||
|
|
||||||
function doscloseVDD(handle:longint):word;
|
function doscloseVDD(handle:longint):word;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 310;
|
||||||
|
|
||||||
|
procedure seltoflat;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 425;
|
||||||
|
|
||||||
|
procedure flattosel;
|
||||||
|
|
||||||
|
external 'DOSCALLS' index 426;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
1361
rtl/os2/kbdcalls.pas
1361
rtl/os2/kbdcalls.pas
File diff suppressed because it is too large
Load Diff
467
rtl/os2/moucalls.pas
Normal file
467
rtl/os2/moucalls.pas
Normal file
@ -0,0 +1,467 @@
|
|||||||
|
{Set tabsize to 4.}
|
||||||
|
{****************************************************************************
|
||||||
|
|
||||||
|
MOUCALLS interface unit
|
||||||
|
FPK-Pascal Runtime Library for OS/2
|
||||||
|
Copyright (c) 1993,94 by Florian Kl„mpfl
|
||||||
|
Copyright (c) 1997 by Dani‰l Mantione
|
||||||
|
Copyright (c) 1998 by Tomas Hajny
|
||||||
|
|
||||||
|
The FPK-Pascal runtime library is distributed under the Library GNU Public
|
||||||
|
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.
|
||||||
|
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,
|
||||||
|
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
|
||||||
|
line:
|
||||||
|
|
||||||
|
<This is an official, unmodified FPK Pascal source code file.>
|
||||||
|
|
||||||
|
Send us your modified files, we can work together if you want!
|
||||||
|
|
||||||
|
FPK-Pascal is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
Library GNU General Public License for more details.
|
||||||
|
|
||||||
|
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
|
||||||
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
||||||
|
Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
|
****************************************************************************}
|
||||||
|
|
||||||
|
unit MouCalls;
|
||||||
|
|
||||||
|
{ Interface library to MOUCALLS.DLL (through EMXWRAP.DLL)
|
||||||
|
|
||||||
|
Changelog:
|
||||||
|
|
||||||
|
People:
|
||||||
|
|
||||||
|
TH - Tomas Hajny
|
||||||
|
|
||||||
|
Date: Description of change: Changed by:
|
||||||
|
|
||||||
|
- First released version 0.50 TH
|
||||||
|
|
||||||
|
Coding style:
|
||||||
|
|
||||||
|
I have tried to use the same coding style as Dani‰l Mantione in unit
|
||||||
|
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,
|
||||||
|
please. Original note by Dani‰l Mantione follows:
|
||||||
|
|
||||||
|
|
||||||
|
It may be well possible that coding style feels a bit strange to you.
|
||||||
|
Nevertheless I friendly ask you to try to make your changes not look all
|
||||||
|
to different. To make life easier, set your IDE to use tab characters,
|
||||||
|
turn optimal fill, autoindent and backspace unindents on and set a
|
||||||
|
tabsize of 4.}
|
||||||
|
|
||||||
|
{***************************************************************************}
|
||||||
|
interface
|
||||||
|
{***************************************************************************}
|
||||||
|
|
||||||
|
uses strings;
|
||||||
|
|
||||||
|
{$ifdef FPK}
|
||||||
|
{$packrecords 1}
|
||||||
|
{$endif FPK}
|
||||||
|
|
||||||
|
const
|
||||||
|
{return codes / error constants}
|
||||||
|
ERROR_MOUSE_NO_DEVICE =385;
|
||||||
|
ERROR_MOUSE_INV_HANDLE =386;
|
||||||
|
ERROR_MOUSE_INV_PARMS =387;
|
||||||
|
ERROR_MOUSE_CANT_RESET =388;
|
||||||
|
ERROR_MOUSE_DISPLAY_PARMS =389;
|
||||||
|
ERROR_MOUSE_INV_MODULE =390;
|
||||||
|
ERROR_MOUSE_INV_ENTRY_PT =391;
|
||||||
|
ERROR_MOUSE_INV_MASK =392;
|
||||||
|
NO_ERROR_MOUSE_NO_DATA =393;
|
||||||
|
NO_ERROR_MOUSE_PTR_DRAWN =394;
|
||||||
|
ERROR_MOUSE_SMG_ONLY =412;
|
||||||
|
ERROR_MOUSE_INVALID_ASCIIZ =413;
|
||||||
|
ERROR_MOUSE_INVALID_MASK =414;
|
||||||
|
ERROR_MOUSE_REGISTER =415;
|
||||||
|
ERROR_MOUSE_DEREGISTER =416;
|
||||||
|
ERROR_MOUSE_INVALID_IOWAIT =435;
|
||||||
|
ERROR_MOU_DETACHED =466;
|
||||||
|
ERROR_MOUSE_NO_CONSOLE =501;
|
||||||
|
ERROR_MOUSE_INVALID_HANDLE =502;
|
||||||
|
ERROR_MOU_EXTENDED_SG =505;
|
||||||
|
ERROR_MOU_NOT_INITIALIZED =530;
|
||||||
|
ERROR_MOUINITREAL_DONE =531;
|
||||||
|
ERROR_MOUSE_CALLER_NOT_SUBSYS =533;
|
||||||
|
|
||||||
|
{constants for FnMask in MouRegister}
|
||||||
|
MR_MOUGETNUMBUTTONS =$00000001;
|
||||||
|
MR_MOUGETNUMMICKEYS =$00000002;
|
||||||
|
MR_MOUGETDEVSTATUS =$00000004;
|
||||||
|
MR_MOUGETNUMQUEEL =$00000008;
|
||||||
|
MR_MOUREADEVENTQUE =$00000010;
|
||||||
|
MR_MOUGETSCALEFACT =$00000020;
|
||||||
|
MR_MOUGETEVENTMASK =$00000040;
|
||||||
|
MR_MOUSETSCALEFACT =$00000080;
|
||||||
|
MR_MOUSETEVENTMASK =$00000100;
|
||||||
|
MR_MOUOPEN =$00000800;
|
||||||
|
MR_MOUCLOSE =$00001000;
|
||||||
|
MR_MOUGETPTRSHAPE =$00002000;
|
||||||
|
MR_MOUSETPTRSHAPE =$00004000;
|
||||||
|
MR_MOUDRAWPTR =$00008000;
|
||||||
|
MR_MOUREMOVEPTR =$00010000;
|
||||||
|
MR_MOUGETPTRPOS =$00020000;
|
||||||
|
MR_MOUSETPTRPOS =$00040000;
|
||||||
|
MR_MOUINITREAL =$00080000;
|
||||||
|
MR_MOUSETDEVSTATUS =$00100000;
|
||||||
|
|
||||||
|
{constants for mouse hot key bits in MouGetHotKey/MouSetHotKey}
|
||||||
|
MHK_BUTTON1 =1;
|
||||||
|
MHK_BUTTON2 =2;
|
||||||
|
MHK_BUTTON3 =4;
|
||||||
|
|
||||||
|
{MouGetDevStatus/MouSetDevStatus device status constants}
|
||||||
|
MOUSE_QUEUEBUSY =$0001;
|
||||||
|
MOUSE_BLOCKREAD =$0002;
|
||||||
|
MOUSE_FLUSH =$0004;
|
||||||
|
MOUSE_UNSUPPORTED_MODE =$0008;
|
||||||
|
MOUSE_DISABLED =$0100;
|
||||||
|
MOUSE_MICKEYS =$0200;
|
||||||
|
|
||||||
|
{constants for WaitFlag in MouReadEventQue}
|
||||||
|
MOU_NOWAIT =$0000;
|
||||||
|
MOU_WAIT =$0001;
|
||||||
|
|
||||||
|
{constants for MouGetEventMask/MouSetEventMask events}
|
||||||
|
MOUSE_MOTION =$0001;
|
||||||
|
MOUSE_MOTION_WITH_BN1_DOWN =$0002;
|
||||||
|
MOUSE_BN1_DOWN =$0004;
|
||||||
|
MOUSE_MOTION_WITH_BN2_DOWN =$0008;
|
||||||
|
MOUSE_BN2_DOWN =$0010;
|
||||||
|
MOUSE_MOTION_WITH_BN3_DOWN =$0020;
|
||||||
|
MOUSE_BN3_DOWN =$0040;
|
||||||
|
|
||||||
|
{constants for Status in MouSetDevStatus}
|
||||||
|
MOU_DRAW =0;
|
||||||
|
MOU_NODRAW =1;
|
||||||
|
|
||||||
|
MOU_PELS =0;
|
||||||
|
MOU_MICKEYS =2;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
(*This should be removed as soon as cardinal arithmetic in FPC works OK.*)
|
||||||
|
cardinal=longint;
|
||||||
|
|
||||||
|
{unnecessary, just FYI}
|
||||||
|
THMOU=word;
|
||||||
|
PHMOU=^THMOU;
|
||||||
|
|
||||||
|
{record type for MouGetPos/SetPtrPos}
|
||||||
|
TPtrLoc=record
|
||||||
|
Row:word;
|
||||||
|
Col:word;
|
||||||
|
end;
|
||||||
|
PPtrLoc=^TPtrLoc;
|
||||||
|
|
||||||
|
{record type for MouGetShape/SetPtrShape}
|
||||||
|
TPtrShape=record
|
||||||
|
cb:word; {length of image buffer in bytes}
|
||||||
|
Col:word; {pointer width in characters or pixels}
|
||||||
|
Row:word; {pointer height in characters or pixels}
|
||||||
|
ColHot:word; {hotspot offset from the left side}
|
||||||
|
RowHot:word; {hotspot offset from the top}
|
||||||
|
end;
|
||||||
|
PPtrShape=^TPtrShape;
|
||||||
|
|
||||||
|
{record type for MouReadEventQue}
|
||||||
|
(* #pragma pack(2) ??? *)
|
||||||
|
TMouEventInfo=record
|
||||||
|
fs:word; {event bits}
|
||||||
|
Time:cardinal; {event timestamp - unique number of milliseconds}
|
||||||
|
Row:integer; {pointer current row position}
|
||||||
|
Col:integer; {pointer current column position}
|
||||||
|
end;
|
||||||
|
PMouEventInfo=^TMouEventInfo;
|
||||||
|
|
||||||
|
{record type for MouGetNumQueEl}
|
||||||
|
TMouQueInfo=record
|
||||||
|
cEvents:word; {number of elements in event queue}
|
||||||
|
cmaxEvents:word; {maximum queue size in elements}
|
||||||
|
end;
|
||||||
|
PMouQueInfo=^TMouQueInfo;
|
||||||
|
|
||||||
|
{record type for MouGetScaleFact/MouSetScaleFact}
|
||||||
|
TScaleFact=record
|
||||||
|
RowScale:word; {scaling factor of current row}
|
||||||
|
ColScale:word; {scaling factor of current column}
|
||||||
|
end;
|
||||||
|
PScaleFact=^TScaleFact;
|
||||||
|
|
||||||
|
{record type for MouRemovePtr}
|
||||||
|
TNoPtrRect=record
|
||||||
|
Row:word; {row of the top of the rectangle}
|
||||||
|
Col:word; {column of the left edge}
|
||||||
|
cRow:word; {row of the bottom}
|
||||||
|
cCol:word; {column of the right edge}
|
||||||
|
end;
|
||||||
|
PNoPtrRect=^TNoPtrRect;
|
||||||
|
|
||||||
|
TThreshold=record
|
||||||
|
Length:word;
|
||||||
|
Level1:word; {first movement level}
|
||||||
|
Lev1Mult:word; {first level multiplier}
|
||||||
|
Level2:word; {second movement level}
|
||||||
|
Lev2Mult:word; {second level multiplier}
|
||||||
|
end;
|
||||||
|
PThreshold=^TThreshold;
|
||||||
|
|
||||||
|
|
||||||
|
function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word;
|
||||||
|
|
||||||
|
function MouRegister(ModuleName,ProcName:string;FnMask:cardinal):word;
|
||||||
|
|
||||||
|
function MouDeRegister:word;
|
||||||
|
|
||||||
|
function MouFlushQue(MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
|
||||||
|
MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
|
||||||
|
MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetDevStatus(var Status:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word;
|
||||||
|
MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetEventMask(var EventMask:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetEventMask(var EventMask:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetScaleFact(var Scale:TScaleFact;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouOpen(DriverName:PChar;var MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouOpen(DriverName:string;var MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouClose(MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouDrawPtr(MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetDevStatus(var Status:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouInitReal(DriverName:PChar):word;
|
||||||
|
|
||||||
|
function MouInitReal(DriverName:string):word;
|
||||||
|
|
||||||
|
function MouSynch(WaitFlag:word):word;
|
||||||
|
|
||||||
|
function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
|
||||||
|
|
||||||
|
(*
|
||||||
|
following two functions are undocumented and not present within C header files:
|
||||||
|
|
||||||
|
function MouGetHotKey(var ButtonBits:word;MouHandle:word):word;
|
||||||
|
|
||||||
|
function MouSetHotKey(var ButtonBits:word;MouHandle:word):word;
|
||||||
|
*)
|
||||||
|
|
||||||
|
(* Following routines are not supported
|
||||||
|
(just have a look in some C header
|
||||||
|
file - you probably won't find it there either).
|
||||||
|
MouFree (index 4)
|
||||||
|
MouShellInit (index 12)
|
||||||
|
*)
|
||||||
|
|
||||||
|
{***************************************************************************}
|
||||||
|
implementation
|
||||||
|
{***************************************************************************}
|
||||||
|
|
||||||
|
|
||||||
|
function MouRegister(ModuleName,ProcName:PChar;FnMask:cardinal):word;
|
||||||
|
external 'EMXWRAP' index 324;
|
||||||
|
{external 'MOUCALLS' index 24;}
|
||||||
|
|
||||||
|
function MouRegister(ModuleName,ProcName:string;FnMask:cardinal):word;
|
||||||
|
begin
|
||||||
|
if byte(ModuleName[0])>8 then byte(ModuleName[0]):=8;
|
||||||
|
ModuleName[Succ(byte(ModuleName[0]))]:=#0;
|
||||||
|
if byte(ProcName[0])>32 then byte(ProcName[0]):=32;
|
||||||
|
ProcName[Succ(byte(ProcName[0]))]:=#0;
|
||||||
|
MouRegister:=MouRegister(@ModuleName[1],@ProcName[1],FnMask);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function MouDeRegister:word;
|
||||||
|
external 'EMXWRAP' index 314;
|
||||||
|
{external 'MOUCALLS' index 14;}
|
||||||
|
|
||||||
|
function MouFlushQue(MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 307;
|
||||||
|
{external 'MOUCALLS' index 7;}
|
||||||
|
|
||||||
|
function MouGetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 319;
|
||||||
|
{external 'MOUCALLS' index 19;}
|
||||||
|
|
||||||
|
function MouSetPtrPos(var MouPtr:TPtrLoc;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 321;
|
||||||
|
{external 'MOUCALLS' index 21;}
|
||||||
|
|
||||||
|
function MouSetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
|
||||||
|
MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 302;
|
||||||
|
{external 'MOUCALLS' index 2;}
|
||||||
|
|
||||||
|
function MouGetPtrShape(ImageBuf:pointer;var ImageInfo:TPtrShape;
|
||||||
|
MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 301;
|
||||||
|
{external 'MOUCALLS' index 1;}
|
||||||
|
|
||||||
|
function MouGetDevStatus(var Status:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 322;
|
||||||
|
{external 'MOUCALLS' index 22;}
|
||||||
|
|
||||||
|
function MouGetNumButtons(var ButtonCount:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 308;
|
||||||
|
{external 'MOUCALLS' index 8;}
|
||||||
|
|
||||||
|
function MouGetNumMickeys(var MickeyCnt:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 303;
|
||||||
|
{external 'MOUCALLS' index 3;}
|
||||||
|
|
||||||
|
function MouReadEventQue(var Event:TMouEventInfo;var WaitFlag:word;
|
||||||
|
MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 320;
|
||||||
|
{external 'MOUCALLS' index 20;}
|
||||||
|
|
||||||
|
function MouGetNumQueEl(var MouseQInfo:TMouQueInfo;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 313;
|
||||||
|
{external 'MOUCALLS' index 13;}
|
||||||
|
|
||||||
|
function MouGetEventMask(var EventMask:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 315;
|
||||||
|
{external 'MOUCALLS' index 15;}
|
||||||
|
|
||||||
|
function MouSetEventMask(var EventMask:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 316;
|
||||||
|
{external 'MOUCALLS' index 16;}
|
||||||
|
|
||||||
|
function MouGetScaleFact(var Scale:TScaleFact;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 306;
|
||||||
|
{external 'MOUCALLS' index 6;}
|
||||||
|
|
||||||
|
function MouSetScaleFact(var Scale:TScaleFact;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 311;
|
||||||
|
{external 'MOUCALLS' index 11;}
|
||||||
|
|
||||||
|
function MouOpen(DriverName:PChar;var MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 317;
|
||||||
|
{external 'MOUCALLS' index 17;}
|
||||||
|
|
||||||
|
function MouOpen(DriverName:string;var MouHandle:word):word;
|
||||||
|
|
||||||
|
var B:byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
B:=byte(DriverName[0]);
|
||||||
|
if B=0 then MouOpen:=MouOpen(nil,MouHandle) else
|
||||||
|
begin
|
||||||
|
if B<>255 then
|
||||||
|
begin
|
||||||
|
DriverName[Succ(B)]:=#0;
|
||||||
|
MouOpen:=MouOpen(@DriverName[1],MouHandle);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
Move(DriverName[1],DriverName[0],B);
|
||||||
|
DriverName[B]:=#0;
|
||||||
|
MouOpen:=MouOpen(@DriverName,MouHandle);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function MouClose(MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 309;
|
||||||
|
{external 'MOUCALLS' index 9;}
|
||||||
|
|
||||||
|
function MouRemovePtr(var ProtectArea:TNoPtrRect;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 318;
|
||||||
|
{external 'MOUCALLS' index 18;}
|
||||||
|
|
||||||
|
function MouDrawPtr(MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 326;
|
||||||
|
{external 'MOUCALLS' index 26;}
|
||||||
|
|
||||||
|
function MouSetDevStatus(var Status:word;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 326;
|
||||||
|
{external 'MOUCALLS' index 26;}
|
||||||
|
|
||||||
|
function MouInitReal(DriverName:PChar):word;
|
||||||
|
external 'EMXWRAP' index 327;
|
||||||
|
{external 'MOUCALLS' index 27;}
|
||||||
|
|
||||||
|
function MouInitReal(DriverName:string):word;
|
||||||
|
|
||||||
|
var B:byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
B:=byte(DriverName[0]);
|
||||||
|
if B=0 then MouInitReal:=MouInitReal(nil) else
|
||||||
|
begin
|
||||||
|
if B<>255 then
|
||||||
|
begin
|
||||||
|
DriverName[Succ(B)]:=#0;
|
||||||
|
MouInitReal:=MouInitReal(@DriverName[1]);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
Move(DriverName[1],DriverName[0],B);
|
||||||
|
DriverName[B]:=#0;
|
||||||
|
MouInitReal:=MouInitReal(@DriverName);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function MouSynch(WaitFlag:word):word;
|
||||||
|
external 'EMXWRAP' index 323;
|
||||||
|
{external 'MOUCALLS' index 23;}
|
||||||
|
|
||||||
|
function MouGetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 329;
|
||||||
|
{external 'MOUCALLS' index 29;}
|
||||||
|
|
||||||
|
function MouSetThreshold(var MouThreshold:TThreshold;MouHandle:word):word;
|
||||||
|
external 'EMXWRAP' index 330;
|
||||||
|
{external 'MOUCALLS' index 30;}
|
||||||
|
|
||||||
|
|
||||||
|
(*
|
||||||
|
following two functions are undocumented and not present within C header files:
|
||||||
|
|
||||||
|
function MouGetHotKey(var ButtonBits:word;MouHandle:word):word;
|
||||||
|
external 'MOUCALLS' index 4;
|
||||||
|
|
||||||
|
function MouSetHotKey(var ButtonBits:word;MouHandle:word):word;
|
||||||
|
external 'MOUCALLS' index 10;
|
||||||
|
*)
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
@ -264,16 +264,6 @@ begin
|
|||||||
if p[i]='/' then p[i]:='\';
|
if p[i]='/' then p[i]:='\';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function do_isdevice(handle:longint):boolean;
|
|
||||||
begin
|
|
||||||
if (handle=stdoutputhandle) or (handle=stdinputhandle) or
|
|
||||||
(handle=stderrorhandle) then
|
|
||||||
do_isdevice:=FALSE;
|
|
||||||
else
|
|
||||||
do_isdevice:=TRUE;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure do_close(h:longint);
|
procedure do_close(h:longint);
|
||||||
|
|
||||||
begin
|
begin
|
||||||
@ -575,25 +565,22 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure mkdir(const s : string);[IOCheck];
|
procedure mkdir(const s : string);
|
||||||
|
|
||||||
begin
|
begin
|
||||||
If InOutRes <> 0 then exit;
|
|
||||||
DosDir($39,s);
|
DosDir($39,s);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure rmdir(const s : string);[IOCheck];
|
procedure rmdir(const s : string);
|
||||||
|
|
||||||
begin
|
begin
|
||||||
If InOutRes <> 0 then exit;
|
|
||||||
DosDir($3a,s);
|
DosDir($3a,s);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure chdir(const s : string);[IOCheck];
|
procedure chdir(const s : string);
|
||||||
|
|
||||||
begin
|
begin
|
||||||
If InOutRes <> 0 then exit;
|
|
||||||
DosDir($3b,s);
|
DosDir($3b,s);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
1060
rtl/os2/viocalls.pas
Normal file
1060
rtl/os2/viocalls.pas
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user