mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 05:19:49 +02:00
* a few functions added.
This commit is contained in:
marco
parent
84ad19e224
commit
aa8b9730a1
208
rtl/bsd/linux.pp
208
rtl/bsd/linux.pp
@ -614,11 +614,13 @@ function AssignStream(var StreamIn, StreamOut, StreamErr: Text; const prog: Stri
|
||||
General information
|
||||
***************************}
|
||||
|
||||
{
|
||||
Function GetDomainName:String;
|
||||
Function GetHostName:String;
|
||||
Function GetEnv(P:string):Pchar;
|
||||
Function Sysinfo(var Info:TSysinfo):Boolean;
|
||||
Function Uname(var unamerec:utsname):Boolean;
|
||||
}
|
||||
Function GetEnv(P:string):Pchar;
|
||||
|
||||
{**************************
|
||||
Signal
|
||||
@ -628,7 +630,7 @@ Procedure SigAction(Signum:Integer;Var Act,OldAct:PSigActionRec );
|
||||
Procedure SigProcMask (How:Integer;SSet,OldSSet:PSigSet);
|
||||
Function SigPending:SigSet;
|
||||
Procedure SigSuspend(Mask:Sigset);
|
||||
Function Signal(Signum:Integer;Handler:SignalHandler):SignalHandler;
|
||||
//Function Signal(Signum:Integer;Handler:SignalHandler):SignalHandler;
|
||||
Function Kill(Pid:longint;Sig:integer):integer;
|
||||
Procedure SigRaise(Sig:integer);
|
||||
Function Alarm(Sec : Longint) : longint;
|
||||
@ -2125,7 +2127,7 @@ begin
|
||||
Dup2:=Dup2(filerec(oldfile).handle,filerec(newfile).handle);
|
||||
end;
|
||||
|
||||
|
||||
{
|
||||
Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:PTimeVal):longint;
|
||||
{
|
||||
Select checks whether the file descriptor sets in readfs/writefs/exceptfs
|
||||
@ -2165,7 +2167,7 @@ begin
|
||||
end;
|
||||
Select:=Select(N,Readfds,WriteFds,ExceptFds,p);
|
||||
end;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Function SelectText(var T:Text;TimeOut :PTimeval):Longint;
|
||||
@ -2295,18 +2297,24 @@ Function AssignPipe(var pipe_in,pipe_out:longint):boolean;
|
||||
}
|
||||
var
|
||||
pip : tpipe;
|
||||
regs : SysCallregs;
|
||||
retval : LONGINT;
|
||||
|
||||
begin
|
||||
regs.reg2:=longint(@pip);
|
||||
SysCall(SysCall_nr_pipe,regs);
|
||||
pipe_in:=pip[1];
|
||||
pipe_out:=pip[2];
|
||||
linuxerror:=errno;
|
||||
AssignPipe:=(LinuxError=0);
|
||||
asm
|
||||
lea pip,%ebx
|
||||
push %ebx
|
||||
mov $42,%eax
|
||||
int $0x80
|
||||
addl $4,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
checkreturnvalue(retval,retval);
|
||||
LinuxError:=Errno;
|
||||
pipe_in:=pip[1];
|
||||
pipe_out:=pip[2];
|
||||
AssignPipe:=(LinuxError=0);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function AssignPipe(var pipe_in,pipe_out:text):boolean;
|
||||
{
|
||||
Sets up a pair of file variables, which act as a pipe. The first one can
|
||||
@ -2375,12 +2383,17 @@ end;
|
||||
|
||||
Function PClose(Var F:text) :longint;
|
||||
var
|
||||
sr : syscallregs;
|
||||
pl : ^longint;
|
||||
res : longint;
|
||||
|
||||
begin
|
||||
sr.reg2:=Textrec(F).Handle;
|
||||
SysCall (syscall_nr_close,sr);
|
||||
res:=Textrec(F).Handle;
|
||||
asm
|
||||
push res
|
||||
mov $6,%eax
|
||||
int $0x80
|
||||
add $4,%esp
|
||||
end;
|
||||
{ closed our side, Now wait for the other - this appears to be needed ?? }
|
||||
pl:=@(textrec(f).userdata[2]);
|
||||
waitpid(pl^,@res,0);
|
||||
@ -2390,19 +2403,23 @@ end;
|
||||
|
||||
Function PClose(Var F:file) : longint;
|
||||
var
|
||||
sr : syscallregs;
|
||||
pl : ^longint;
|
||||
res : longint;
|
||||
|
||||
begin
|
||||
sr.reg2:=FileRec(F).Handle;
|
||||
SysCall (Syscall_nr_close,sr);
|
||||
res:=filerec(F).Handle;
|
||||
asm
|
||||
push res
|
||||
mov $6,%eax
|
||||
int $0x80
|
||||
add $4,%esp
|
||||
end;
|
||||
{ closed our side, Now wait for the other - this appears to be needed ?? }
|
||||
pl:=@(filerec(f).userdata[2]);
|
||||
waitpid(pl^,@res,0);
|
||||
pclose:=res shr 8;
|
||||
end;
|
||||
|
||||
|
||||
Procedure PCloseText(Var F:text);
|
||||
{
|
||||
May not use @PClose due overloading
|
||||
@ -2411,8 +2428,6 @@ begin
|
||||
PClose(f);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Procedure POpen(var F:text;const Prog:String;rw:char);
|
||||
{
|
||||
Starts the program in 'Prog' and makes it's input or out put the
|
||||
@ -2577,17 +2592,26 @@ end;
|
||||
|
||||
|
||||
Function mkFifo(pathname:string;mode:longint):boolean;
|
||||
var
|
||||
regs : SysCallRegs;
|
||||
var retval : LONGINT;
|
||||
begin
|
||||
pathname:=pathname+#0;
|
||||
regs.reg2:=longint(@pathname[1]);
|
||||
regs.reg3:=mode or STAT_IFIFO;
|
||||
regs.reg4:=0;
|
||||
mkFifo:=(SysCall(syscall_nr_mknod,regs)=0);
|
||||
asm
|
||||
lea %ecx,pathname
|
||||
inc %ecx
|
||||
push $0
|
||||
mov mode,%ebx
|
||||
or STAT_IFIFO,%ebx
|
||||
push %ebx
|
||||
push %ecx
|
||||
mov $14,$eax
|
||||
int $0x80
|
||||
addl $12,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
mkfifo:=checkreturnvalue(retval,retval)=0;
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
Procedure AssignStream(Var StreamIn,Streamout:text;Const Prog:String);
|
||||
{
|
||||
Starts the program in 'Prog' and makes its input and output the
|
||||
@ -2754,6 +2778,7 @@ end;
|
||||
General information calls
|
||||
******************************************************************************}
|
||||
|
||||
{
|
||||
Function Sysinfo(var Info:TSysinfo):Boolean;
|
||||
{
|
||||
Get system info
|
||||
@ -2764,9 +2789,9 @@ Begin
|
||||
regs.reg2:=longint(@info);
|
||||
Sysinfo:=SysCall(SysCall_nr_Sysinfo,regs)=0;
|
||||
End;
|
||||
}
|
||||
|
||||
|
||||
|
||||
{
|
||||
Function Uname(var unamerec:utsname):Boolean;
|
||||
{
|
||||
Get machine's names
|
||||
@ -2778,7 +2803,7 @@ Begin
|
||||
Uname:=SysCall(SysCall_nr_uname,regs)=0;
|
||||
LinuxError:=Errno;
|
||||
End;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Function GetEnv(P:string):Pchar;
|
||||
@ -2810,7 +2835,7 @@ Begin
|
||||
getenv:=nil;
|
||||
end;
|
||||
|
||||
|
||||
{
|
||||
|
||||
Function GetDomainName:String;
|
||||
{
|
||||
@ -2827,8 +2852,6 @@ begin
|
||||
getdomainname:=strpas(@Sysn.domainname[0]);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function GetHostName:String;
|
||||
{
|
||||
Get machines name. Returns empty string if not set.
|
||||
@ -2843,7 +2866,7 @@ begin
|
||||
else
|
||||
gethostname:=strpas(@Sysn.nodename[0]);
|
||||
end;
|
||||
|
||||
}
|
||||
|
||||
{******************************************************************************
|
||||
Signal handling calls
|
||||
@ -2858,19 +2881,23 @@ Function Kill(Pid:longint;Sig:integer):integer;
|
||||
Return value is zero, except for case three, where the return value
|
||||
is the number of processes to which the signal was sent.
|
||||
}
|
||||
var
|
||||
regs : Syscallregs;
|
||||
|
||||
var retval : LONGINT;
|
||||
begin
|
||||
regs.reg2:=Pid;
|
||||
regs.reg3:=Sig;
|
||||
kill:=SysCall(Syscall_nr_kill,regs);
|
||||
if kill<0 then
|
||||
Kill:=0;
|
||||
linuxerror:=errno;
|
||||
asm
|
||||
push Sig
|
||||
push Pid
|
||||
mov $37,$eax
|
||||
int $0x80
|
||||
addl $8,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
Kill:=checkreturnvalue(retval,retval);
|
||||
if kill<0 THEN
|
||||
Kill:=0;
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Procedure SigAction(Signum:Integer;Var Act,OldAct:PSigActionRec );
|
||||
{
|
||||
Change action of process upon receipt of a signal.
|
||||
@ -2878,18 +2905,24 @@ Procedure SigAction(Signum:Integer;Var Act,OldAct:PSigActionRec );
|
||||
If Act is non-nil, it is used to specify the new action.
|
||||
If OldAct is non-nil the previous action is saved there.
|
||||
}
|
||||
Var
|
||||
sr : Syscallregs;
|
||||
|
||||
var retval : LONGINT;
|
||||
begin
|
||||
sr.reg2:=Signum;
|
||||
sr.reg3:=Longint(act);
|
||||
sr.reg4:=Longint(oldact);
|
||||
SysCall(Syscall_nr_sigaction,sr);
|
||||
linuxerror:=errno;
|
||||
asm
|
||||
push oldact
|
||||
push act
|
||||
push signum
|
||||
mov $46,$eax
|
||||
int $0x80
|
||||
addl $12,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
SigAction:=checkreturnvalue(retval,retval);
|
||||
if kill<0 THEN
|
||||
Kill:=0;
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Procedure SigProcMask(How:Integer;SSet,OldSSet:PSigSet);
|
||||
{
|
||||
Change the list of currently blocked signals.
|
||||
@ -2899,58 +2932,68 @@ Procedure SigProcMask(How:Integer;SSet,OldSSet:PSigSet);
|
||||
SigSetMask : Set the list of blocked signals to SSet
|
||||
if OldSSet is non-null, the old set will be saved there.
|
||||
}
|
||||
Var
|
||||
sr : SyscallRegs;
|
||||
VAR retval : LONGINT;
|
||||
|
||||
begin
|
||||
sr.reg2:=how;
|
||||
sr.reg3:=longint(SSet);
|
||||
sr.reg4:=longint(OldSSet);
|
||||
SysCall(Syscall_nr_sigprocmask,sr);
|
||||
linuxerror:=errno;
|
||||
asm
|
||||
push OldSSet
|
||||
push SSet
|
||||
push How
|
||||
mov $48,%eax
|
||||
int $0x80
|
||||
addl $12,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
SigProcMask:=checkreturnvalue(retval,retval);
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function SigPending:SigSet;
|
||||
{
|
||||
Allows examination of pending signals. The signal mask of pending
|
||||
signals is set in SSet
|
||||
}
|
||||
Var
|
||||
sr : SyscallRegs;
|
||||
dummy : Sigset;
|
||||
retval: LONGINT;
|
||||
begin
|
||||
sr.reg2:=longint(@dummy);
|
||||
SysCall(Syscall_nr_sigpending,sr);
|
||||
linuxerror:=errno;
|
||||
Sigpending:=dummy;
|
||||
asm
|
||||
push dummy
|
||||
mov $52,%eax
|
||||
int $0x80
|
||||
addl $4,%esp
|
||||
end;
|
||||
sigpending:=checkreturnvalue(retval,dummy);
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Procedure SigSuspend(Mask:Sigset);
|
||||
{
|
||||
Set the signal mask with Mask, and suspend the program until a signal
|
||||
is received.
|
||||
}
|
||||
Var
|
||||
sr : SyscallRegs;
|
||||
retval: LONGINT;
|
||||
begin
|
||||
sr.reg2:=mask;
|
||||
SysCall(Syscall_nr_sigsuspend,sr);
|
||||
linuxerror:=errno;
|
||||
asm
|
||||
push mask
|
||||
mov $111,%eax
|
||||
int $0x80
|
||||
addl $4,%esp
|
||||
mov %eax,retval
|
||||
end;
|
||||
checkreturnvalue(retval,retval);
|
||||
LinuxError:=Errno;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
{
|
||||
Function Signal(Signum:Integer;Handler:SignalHandler):SignalHandler;
|
||||
{
|
||||
Install a new handler for signal Signum.
|
||||
The old signal handler is returned.
|
||||
This call does, in fact, the same as SigAction.
|
||||
}
|
||||
var
|
||||
sr : Syscallregs;
|
||||
|
||||
begin
|
||||
sr.reg2:=signum;
|
||||
sr.reg3:=longint(handler);
|
||||
@ -2966,7 +3009,7 @@ begin
|
||||
linuxerror:=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
}
|
||||
|
||||
procedure SigRaise(sig:integer);
|
||||
begin
|
||||
@ -3996,7 +4039,10 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2000-02-03 17:03:36 marco
|
||||
Revision 1.2 2000-02-04 12:05:04 marco
|
||||
* a few functions added.
|
||||
|
||||
Revision 1.1 2000/02/03 17:03:36 marco
|
||||
* initial version. Ported till line +/- 2000
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user