|
|
@@ -13,22 +13,7 @@
|
|
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
-Function Fork:longint;
|
|
|
{
|
|
|
- This function issues the 'fork' System call. the program is duplicated in memory
|
|
|
- and Execution continues in parent and child process.
|
|
|
- In the parent process, fork returns the PID of the child. In the child process,
|
|
|
- zero is returned.
|
|
|
- A negative value indicates that an error has occurred, the error is returned in
|
|
|
- LinuxError.
|
|
|
-}
|
|
|
-
|
|
|
-Begin
|
|
|
- fork:=Do_syscall(SysCall_nr_fork);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-End;
|
|
|
-
|
|
|
-(*
|
|
|
function clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint;
|
|
|
{NOT IMPLEMENTED YET UNDER BSD}
|
|
|
begin // perhaps it is better to implement the hack from solaris then this msg
|
|
|
@@ -37,7 +22,7 @@ END;
|
|
|
|
|
|
if (pointer(func)=nil) or (sp=nil) then
|
|
|
begin
|
|
|
- LinuxError:=ESysEInval;
|
|
|
+ Lfpseterrno(EsysEInval);
|
|
|
exit(-1);
|
|
|
end;
|
|
|
asm
|
|
|
@@ -75,320 +60,33 @@ END;
|
|
|
movl %eax,__RESULT
|
|
|
end;
|
|
|
end;
|
|
|
- *)
|
|
|
-
|
|
|
-Procedure Execve(path:pathstr;args:ppchar;ep:ppchar);
|
|
|
-{
|
|
|
- Replaces the current program by the program specified in path,
|
|
|
- arguments in args are passed to Execve.
|
|
|
- environment specified in ep is passed on.
|
|
|
-}
|
|
|
-
|
|
|
-Begin
|
|
|
- path:=path+#0;
|
|
|
- do_syscall(syscall_nr_Execve,longint(@path[1]),longint(Args),longint(ep));
|
|
|
- LinuxError:=ErrNo;
|
|
|
-End;
|
|
|
-
|
|
|
-Function Umask(Mask:Integer):integer;
|
|
|
-{
|
|
|
- Sets file creation mask to (Mask and 0777 (octal) ), and returns the
|
|
|
- previous value.
|
|
|
-}
|
|
|
-begin
|
|
|
- UMask:=Do_syscall(syscall_nr_umask,mask);
|
|
|
- LinuxError:=0;
|
|
|
-end;
|
|
|
-
|
|
|
-Procedure Nice(N:integer);
|
|
|
-{
|
|
|
- Set process priority. A positive N means a lower priority.
|
|
|
- A negative N decreases priority.
|
|
|
-
|
|
|
-Doesn't exist in BSD. Linux emu uses setpriority in a construct as below:
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- SetPriority(Prio_Process,0,N);
|
|
|
-end;
|
|
|
-
|
|
|
-Procedure Execve(path:pchar;args:ppchar;ep:ppchar);
|
|
|
-{
|
|
|
- Replaces the current program by the program specified in path,
|
|
|
- arguments in args are passed to Execve.
|
|
|
- environment specified in ep is passed on.
|
|
|
-}
|
|
|
-
|
|
|
-{
|
|
|
- Replaces the current program by the program specified in path,
|
|
|
- arguments in args are passed to Execve.
|
|
|
- environment specified in ep is passed on.
|
|
|
-}
|
|
|
-
|
|
|
-Begin
|
|
|
- do_syscall(syscall_nr_Execve,longint(path),longint(Args),longint(ep));
|
|
|
- LinuxError:=ErrNo;
|
|
|
-End;
|
|
|
-
|
|
|
-Procedure ExitProcess(val:longint);
|
|
|
-
|
|
|
-begin
|
|
|
- do_syscall(Syscall_nr_exit,val);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-Function WaitPid(Pid:longint;Status:pointer;Options:longint):Longint;
|
|
|
-{
|
|
|
- Waits until a child with PID Pid exits, or returns if it is exited already.
|
|
|
- Any resources used by the child are freed.
|
|
|
- The exit status is reported in the adress referred to by Status. It should
|
|
|
- be a longint.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- WaitPID:=do_syscall(syscall_nr_WaitPID,PID,longint(Status),options,0);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetPriority(Which,Who:longint):longint;
|
|
|
-{
|
|
|
- Get Priority of process, process group, or user.
|
|
|
- Which : selects what kind of priority is used.
|
|
|
- can be one of the following predefined Constants :
|
|
|
- Prio_User.
|
|
|
- Prio_PGrp.
|
|
|
- Prio_Process.
|
|
|
- Who : depending on which, this is , respectively :
|
|
|
- Uid
|
|
|
- Pid
|
|
|
- Process Group id
|
|
|
- Errors are reported in linuxerror _only_. (priority can be negative)
|
|
|
-}
|
|
|
-begin
|
|
|
- errno:=0;
|
|
|
- if (which<prio_process) or (which>prio_user) then
|
|
|
- begin
|
|
|
- { We can save an interrupt here }
|
|
|
- getpriority:=0;
|
|
|
- linuxerror:=ESyseinval;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- GetPriority:=do_syscall(syscall_nr_GetPriority,which,who);
|
|
|
- LinuxError:=ErrNo;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-Procedure SetPriority(Which,Who,What:longint);
|
|
|
-{
|
|
|
- Set Priority of process, process group, or user.
|
|
|
- Which : selects what kind of priority is used.
|
|
|
- can be one of the following predefined Constants :
|
|
|
- Prio_User.
|
|
|
- Prio_PGrp.
|
|
|
- Prio_Process.
|
|
|
- Who : depending on value of which, this is, respectively :
|
|
|
- Uid
|
|
|
- Pid
|
|
|
- Process Group id
|
|
|
- what : A number between -20 and 20. -20 is most favorable, 20 least.
|
|
|
- 0 is the default.
|
|
|
-}
|
|
|
-begin
|
|
|
- errno:=0;
|
|
|
- if ((which<prio_process) or (which>prio_user)) or ((what<-20) or (what>20)) then
|
|
|
- linuxerror:=ESyseinval { We can save an interrupt here }
|
|
|
- else
|
|
|
- begin
|
|
|
- do_syscall(Syscall_nr_Setpriority,which,who,what);
|
|
|
- LinuxError:=ErrNo;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function GetPid:LongInt;
|
|
|
-{
|
|
|
- Get Process ID.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- GetPID:=do_syscall(Syscall_nr_GetPID);
|
|
|
- LinuxError:=errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetPPid:LongInt;
|
|
|
-{
|
|
|
- Get Process ID of parent process.
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-begin
|
|
|
- GetPPid:=do_syscall(Syscall_nr_GetPPid);
|
|
|
- LinuxError:=errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetUid:Longint;
|
|
|
-{
|
|
|
- Get User ID.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- GetUID:=do_syscall(Syscall_nr_GetUID);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetEUid:Longint;
|
|
|
-{
|
|
|
- Get _effective_ User ID.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- GetEUID:=do_syscall(Syscall_nr_GetEUID);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function GetGid:Longint;
|
|
|
-{
|
|
|
- Get Group ID.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- GetGID:=do_syscall(Syscall_nr_getgid);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function GetEGid:Longint;
|
|
|
-{
|
|
|
- Get _effective_ Group ID.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- GetEGID:=do_syscall(syscall_nr_getegid);
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
-
|
|
|
-Procedure GetTimeOfDay(var tv:timeval);
|
|
|
-{
|
|
|
- Get the number of seconds since 00:00, January 1 1970, GMT
|
|
|
- the time NOT corrected any way
|
|
|
-}
|
|
|
-
|
|
|
-var tz : timezone;
|
|
|
-
|
|
|
-begin
|
|
|
- do_syscall(syscall_nr_gettimeofday,longint(@tv),longint(@tz));
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetTimeOfDay: longint;
|
|
|
-{
|
|
|
- Get the number of seconds since 00:00, January 1 1970, GMT
|
|
|
- the time NOT corrected any way
|
|
|
-}
|
|
|
-begin
|
|
|
- GetTimeOfDay:=Sys_time;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function fdTruncate(fd,size:longint):boolean;
|
|
|
-
|
|
|
-begin
|
|
|
- fdtruncate:=do_syscall(syscall_nr_ftruncate,fd,size,0)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function fdFlush (fd : Longint) : Boolean;
|
|
|
-
|
|
|
-begin
|
|
|
- fdflush:=do_syscall(syscall_nr_fsync,fd)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-{$ifndef newreaddir}
|
|
|
-function sys_fcntl(Fd:longint;Cmd:longint;Arg:Longint):longint;
|
|
|
-
|
|
|
-begin
|
|
|
- sys_fcntl:=do_syscall(syscall_nr_fcntl,fd,cmd,arg);
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-Function Chmod(path:pathstr;Newmode:longint):Boolean;
|
|
|
-{
|
|
|
- Changes the permissions of a file.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- path:=path+#0;
|
|
|
- chmod:=do_syscall(syscall_nr_chmod,longint(@path[1]),newmode)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function Chown(path:pathstr;NewUid,NewGid:longint):boolean;
|
|
|
-{
|
|
|
- Change the owner and group of a file.
|
|
|
- A user can only change the group to a group of which he is a member.
|
|
|
- The super-user can change uid and gid of any file.
|
|
|
}
|
|
|
|
|
|
-begin
|
|
|
- path:=path+#0;
|
|
|
- ChOwn:=do_syscall(syscall_nr_chown,longint(@path[1]),newuid,newgid)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function Utime(path:pathstr;utim:utimebuf):boolean;
|
|
|
-
|
|
|
-begin
|
|
|
- UTime:=do_syscall(syscall_nr_utimes,longint(@path[1]),longint(@utim))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function Flock (fd,mode : longint) : boolean;
|
|
|
+{$ifndef FPC_USE_LIBC}
|
|
|
+Function fsync (fd : cint) : cint;
|
|
|
|
|
|
begin
|
|
|
- Flock:=do_syscall(syscall_nr_flock,fd,mode)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ fsync:=do_syscall(syscall_nr_fsync,fd);
|
|
|
end;
|
|
|
|
|
|
-Function Lstat(Filename: PathStr;var Info:stat):Boolean;
|
|
|
-{
|
|
|
- Get all information on a link (the link itself), and return it in info.
|
|
|
-}
|
|
|
+Function Flock (fd,mode : longint) : cint;
|
|
|
|
|
|
begin
|
|
|
- FileName:=FileName+#0;
|
|
|
- LStat:=do_syscall(syscall_nr_lstat,longint(@filename[1]),longint(@info))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ Flock:=do_syscall(syscall_nr_flock,fd,mode);
|
|
|
end;
|
|
|
|
|
|
-Function Fstat(Fd:Longint;var Info:stat):Boolean;
|
|
|
-{
|
|
|
- Get all information on a file descriptor, and return it in info.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- FStat:=do_syscall(syscall_nr_fstat,fd,longint(@info))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function StatFs(Path:Pathstr;Var Info:tstatfs):Boolean;
|
|
|
-
|
|
|
+Function fStatFS(Fd:Longint;Var Info:tstatfs):cint;
|
|
|
{
|
|
|
Get all information on a fileSystem, and return it in Info.
|
|
|
- Path is the name of a file/directory on the fileSystem you wish to
|
|
|
- investigate.
|
|
|
+ Fd is the file descriptor of a file/directory on the fileSystem
|
|
|
+ you wish to investigate.
|
|
|
}
|
|
|
|
|
|
begin
|
|
|
- path:=path+#0;
|
|
|
- StatFS:=Do_Syscall(syscall_nr_statfs,longint(@path[1]),longint(@info))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info));
|
|
|
end;
|
|
|
|
|
|
-Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
|
|
|
+Function StatFS(path:pchar;Var Info:tstatfs):cint;
|
|
|
{
|
|
|
Get all information on a fileSystem, and return it in Info.
|
|
|
Fd is the file descriptor of a file/directory on the fileSystem
|
|
|
@@ -396,111 +94,40 @@ Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
|
|
|
}
|
|
|
|
|
|
begin
|
|
|
- StatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function Link(OldPath,NewPath:pathstr):boolean;
|
|
|
-{
|
|
|
- Proceduces a hard link from new to old.
|
|
|
- In effect, new will be the same file as old.
|
|
|
-}
|
|
|
-begin
|
|
|
- oldpath:=oldpath+#0;
|
|
|
- newpath:=newpath+#0;
|
|
|
- Link:=Do_Syscall(syscall_nr_link,longint(@oldpath[1]),longint(@newpath[1]))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-(*
|
|
|
-Function SymLink(OldPath,newPath:pathstr):boolean;
|
|
|
-{
|
|
|
- Proceduces a soft link from new to old.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- oldpath:=oldpath+#0;
|
|
|
- newpath:=newpath+#0;
|
|
|
- SymLink:=Do_Syscall(syscall_nr_symlink,longint(@oldpath[1]),longint(@newpath[1]))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info));
|
|
|
end;
|
|
|
-*)
|
|
|
|
|
|
-Function Access(Path:Pathstr ;mode:longint):boolean;
|
|
|
-{
|
|
|
- Test users access rights on the specified file.
|
|
|
- Mode is a mask xosisting of one or more of R_OK, W_OK, X_OK, F_OK.
|
|
|
- R,W,X stand for read,write and Execute access, simultaneously.
|
|
|
- F_OK checks whether the test would be allowed on the file.
|
|
|
- i.e. It checks the search permissions in all directory components
|
|
|
- of the path.
|
|
|
- The test is done with the real user-ID, instead of the effective.
|
|
|
- If access is denied, or an error occurred, false is returned.
|
|
|
- If access is granted, true is returned.
|
|
|
- Errors other than no access,are reported in linuxerror.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- path:=path+#0;
|
|
|
- Access:=do_syscall(syscall_nr_access,longint(@path[1]),mode)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function Dup(oldfile:longint;var newfile:longint):Boolean;
|
|
|
-{
|
|
|
- Copies the filedescriptor oldfile to newfile
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- newfile:=Do_syscall(syscall_nr_dup,oldfile);
|
|
|
- LinuxError:=Errno;
|
|
|
- Dup:=(LinuxError=0);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function Dup2(oldfile,newfile:longint):Boolean;
|
|
|
-{
|
|
|
- Copies the filedescriptor oldfile to newfile
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- do_syscall(syscall_nr_dup2,oldfile,newfile);
|
|
|
- LinuxError:=Errno;
|
|
|
- Dup2:=(LinuxError=0);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:PTimeVal):longint;
|
|
|
-{
|
|
|
- Select checks whether the file descriptor sets in readfs/writefs/exceptfs
|
|
|
- have changed.
|
|
|
-}
|
|
|
-
|
|
|
-begin
|
|
|
- Select:=do_syscall(syscall_nr_select,n,longint(readfds),longint(writefds),longint(exceptfds),longint(timeout));
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-Function AssignPipe(var pipe_in,pipe_out:longint):boolean;
|
|
|
+// needs oldfpccall;
|
|
|
+Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint; {$ifndef ver1_0} oldfpccall;{$endif}
|
|
|
{
|
|
|
Sets up a pair of file variables, which act as a pipe. The first one can
|
|
|
be read from, the second one can be written to.
|
|
|
If the operation was unsuccesful, linuxerror is set.
|
|
|
}
|
|
|
-var
|
|
|
- pip : tpipe;
|
|
|
|
|
|
begin
|
|
|
- do_syscall(syscall_nr_pipe,longint(@pip));
|
|
|
- LinuxError:=Errno;
|
|
|
- pipe_in:=pip[0];
|
|
|
- pipe_out:=pip[1];
|
|
|
- AssignPipe:=(LinuxError=0);
|
|
|
+ asm
|
|
|
+ mov $42,%eax
|
|
|
+ int $0x80
|
|
|
+ jb .Lerror
|
|
|
+ mov pipe_in,%ebx
|
|
|
+ mov %eax,(%ebx)
|
|
|
+ mov pipe_out,%ebx
|
|
|
+ mov $0,%eax
|
|
|
+ mov %edx,(%ebx)
|
|
|
+ mov %eax,%ebx
|
|
|
+ jmp .Lexit
|
|
|
+.Lerror:
|
|
|
+ mov %eax,%ebx
|
|
|
+ mov $-1,%eax
|
|
|
+.Lexit:
|
|
|
+ mov Errn,%edx
|
|
|
+ mov %ebx,(%edx)
|
|
|
+ end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
-Function PClose(Var F:text) :longint;
|
|
|
+Function PClose(Var F:text) :cint;
|
|
|
var
|
|
|
pl : ^longint;
|
|
|
res : longint;
|
|
|
@@ -509,274 +136,193 @@ begin
|
|
|
do_syscall(syscall_nr_close,Textrec(F).Handle);
|
|
|
{ closed our side, Now wait for the other - this appears to be needed ?? }
|
|
|
pl:=@(textrec(f).userdata[2]);
|
|
|
- waitpid(pl^,@res,0);
|
|
|
+ fpwaitpid(pl^,@res,0);
|
|
|
pclose:=res shr 8;
|
|
|
end;
|
|
|
|
|
|
-Function PClose(Var F:file) : longint;
|
|
|
+Function PClose(Var F:file) : cint;
|
|
|
var
|
|
|
- pl : ^longint;
|
|
|
- res : longint;
|
|
|
+ pl : ^cint;
|
|
|
+ res : cint;
|
|
|
|
|
|
begin
|
|
|
do_syscall(syscall_nr_close,filerec(F).Handle);
|
|
|
{ closed our side, Now wait for the other - this appears to be needed ?? }
|
|
|
pl:=@(filerec(f).userdata[2]);
|
|
|
- waitpid(pl^,@res,0);
|
|
|
+ fpwaitpid(pl^,@res,0);
|
|
|
pclose:=res shr 8;
|
|
|
end;
|
|
|
|
|
|
-
|
|
|
-Function mkFifo(pathname:string;mode:longint):boolean;
|
|
|
+function MUnMap (P : Pointer; Size : size_t) : cint;
|
|
|
|
|
|
begin
|
|
|
- pathname:=pathname+#0;
|
|
|
- mkfifo:=do_syscall(syscall_nr_mknod,longint(@pathname[1]),mode or STAT_IFIFO,0)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ MUnMap:=do_syscall(syscall_nr_munmap,longint(P),Size);
|
|
|
end;
|
|
|
+{$else}
|
|
|
|
|
|
-
|
|
|
-Function Kill(Pid:longint;Sig:longint):integer;
|
|
|
-{
|
|
|
- Send signal 'sig' to a process, or a group of processes.
|
|
|
- If Pid > 0 then the signal is sent to pid
|
|
|
- pid=-1 to all processes except process 1
|
|
|
- pid < -1 to process group -pid
|
|
|
- Return value is zero, except for case three, where the return value
|
|
|
- is the number of processes to which the signal was sent.
|
|
|
-}
|
|
|
+Function PClose(Var F:file) : cint;
|
|
|
+var
|
|
|
+ pl : ^cint;
|
|
|
+ res : cint;
|
|
|
|
|
|
begin
|
|
|
- kill:=do_syscall(syscall_nr_kill,pid,sig);
|
|
|
- if kill<0 THEN
|
|
|
- Kill:=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ fpclose(filerec(F).Handle);
|
|
|
+{ closed our side, Now wait for the other - this appears to be needed ?? }
|
|
|
+ pl:=@(filerec(f).userdata[2]);
|
|
|
+ fpwaitpid(pl^,@res,0);
|
|
|
+ pclose:=res shr 8;
|
|
|
end;
|
|
|
|
|
|
-Procedure SigProcMask(How:longint;SSet,OldSSet:PSigSet);
|
|
|
-{
|
|
|
- Change the list of currently blocked signals.
|
|
|
- How determines which signals will be blocked :
|
|
|
- SigBlock : Add SSet to the current list of blocked signals
|
|
|
- SigUnBlock : Remove the signals in SSet from the list of blocked signals.
|
|
|
- SigSetMask : Set the list of blocked signals to SSet
|
|
|
- if OldSSet is non-null, the old set will be saved there.
|
|
|
-}
|
|
|
+Function PClose(Var F:text) :cint;
|
|
|
+var
|
|
|
+ pl : ^longint;
|
|
|
+ res : longint;
|
|
|
|
|
|
begin
|
|
|
- do_syscall(syscall_nr_sigprocmask,longint(how),longint(sset),longint(oldsset));
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function SigPending:SigSet;
|
|
|
-{
|
|
|
- Allows examination of pending signals. The signal mask of pending
|
|
|
- signals is set in SSet
|
|
|
-}
|
|
|
-Var
|
|
|
- dummy : Sigset;
|
|
|
-begin
|
|
|
- do_syscall(syscall_nr_sigpending,longint(@dummy));
|
|
|
- LinuxError:=Errno;
|
|
|
- sigpending:=dummy;
|
|
|
+ fpclose(Textrec(F).Handle);
|
|
|
+{ closed our side, Now wait for the other - this appears to be needed ?? }
|
|
|
+ pl:=@(textrec(f).userdata[2]);
|
|
|
+ fpwaitpid(pl^,@res,0);
|
|
|
+ pclose:=res shr 8;
|
|
|
end;
|
|
|
|
|
|
-Procedure SigSuspend(Mask:Sigset);
|
|
|
+{$endif}
|
|
|
+// can't have oldfpccall here, linux doesn't need it.
|
|
|
+Function AssignPipe(var pipe_in,pipe_out:cint):cint; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];
|
|
|
{
|
|
|
- Set the signal mask with Mask, and suspend the program until a signal
|
|
|
- is received.
|
|
|
+ Sets up a pair of file variables, which act as a pipe. The first one can
|
|
|
+ be read from, the second one can be written to.
|
|
|
+ If the operation was unsuccesful, linuxerror is set.
|
|
|
}
|
|
|
-
|
|
|
-begin
|
|
|
- do_syscall(syscall_nr_sigsuspend,longint(@mask));
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
-
|
|
|
-Function NanoSleep(const req : timespec;var rem : timespec) : longint;
|
|
|
+var
|
|
|
+ ret : longint;
|
|
|
+ errn : cint;
|
|
|
+ {$ifdef FPC_USE_LIBC}
|
|
|
+ fdis : array[0..1] of cint;
|
|
|
+ {$endif}
|
|
|
begin
|
|
|
- NanoSleep:=Do_SysCall(syscall_nr_nanosleep,longint(@req),longint(@rem));
|
|
|
- LinuxError:=Errno;
|
|
|
+{$ifndef FPC_USE_LIBC}
|
|
|
+ ret:=intAssignPipe(pipe_in,pipe_out,errn);
|
|
|
+ if ret=-1 Then
|
|
|
+ fpseterrno(errn);
|
|
|
+{$ELSE}
|
|
|
+ fdis[0]:=pipe_in;
|
|
|
+ fdis[1]:=pipe_out;
|
|
|
+ ret:=pipe(fdis);
|
|
|
+ pipe_in:=fdis[0];
|
|
|
+ pipe_out:=fdis[1];
|
|
|
+{$ENDIF}
|
|
|
+ AssignPipe:=ret;
|
|
|
end;
|
|
|
|
|
|
|
|
|
-
|
|
|
-Function IOCtl(Handle,Ndx: Longint;Data: Pointer):boolean;
|
|
|
{
|
|
|
- Interface to Unix ioctl call.
|
|
|
- Performs various operations on the filedescriptor Handle.
|
|
|
- Ndx describes the operation to perform.
|
|
|
- Data points to data needed for the Ndx function. The structure of this
|
|
|
- data is function-dependent.
|
|
|
-}
|
|
|
+function intClone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; {$ifndef ver1_0} oldfpccall; {$endif}
|
|
|
+
|
|
|
|
|
|
+var lerrno : Longint;
|
|
|
+ errset : Boolean;
|
|
|
+ Res : Longint;
|
|
|
begin
|
|
|
- IOCtl:=Do_Syscall(syscall_nr_ioctl,handle,ndx,longint(data))=0;
|
|
|
- LinuxError:=Errno;
|
|
|
+ errset:=false;
|
|
|
+ Res:=0;
|
|
|
+asm
|
|
|
+ pushl %esi
|
|
|
+ movl 12(%ebp), %esi // get stack addr
|
|
|
+ subl $4, %esi
|
|
|
+ movl 20(%ebp), %eax // get __arg
|
|
|
+ movl %eax, (%esi)
|
|
|
+ subl $4, %esi
|
|
|
+ movl 8(%ebp), %eax // get __fn
|
|
|
+ movl %eax, (%esi)
|
|
|
+ pushl 16(%ebp)
|
|
|
+ pushl %esi
|
|
|
+ mov syscall_nr_rfork, %eax
|
|
|
+ int $0x80 // call actualsyscall
|
|
|
+ jb .L2
|
|
|
+ test %edx, %edx
|
|
|
+ jz .L1
|
|
|
+ movl %esi,%esp
|
|
|
+ popl %eax
|
|
|
+ call %eax
|
|
|
+ addl $8, %esp
|
|
|
+ call halt // Does not return
|
|
|
+.L2:
|
|
|
+ mov %eax,LErrNo
|
|
|
+ mov $true,Errset
|
|
|
+ mov $-1,%eax
|
|
|
+// jmp .L1
|
|
|
+.L1:
|
|
|
+ addl $8, %esp
|
|
|
+ popl %esi
|
|
|
+ mov %eax,Res
|
|
|
end;
|
|
|
-
|
|
|
-function MMap(const m:tmmapargs):longint;
|
|
|
-
|
|
|
-begin
|
|
|
- {Last argument (offset) is actually 64-bit under BSD. Therefore extra 0}
|
|
|
- MMap:=fpmmap(m.address,m.size,m.prot,m.flags,m.fd,m.offset);
|
|
|
- LinuxError:=Errno;
|
|
|
+ If ErrSet Then
|
|
|
+ fpSetErrno(LErrno);
|
|
|
+ intClone:=Res;
|
|
|
end;
|
|
|
|
|
|
-function MUnMap (P : Pointer; Size : Longint) : Boolean;
|
|
|
|
|
|
-begin
|
|
|
- MUnMap:=do_syscall(syscall_nr_munmap,longint(P),Size)=0;
|
|
|
- LinuxError:=Errno;
|
|
|
-end;
|
|
|
|
|
|
-function signal(signum:longint;Handler:signalhandler):signalhandler;
|
|
|
+function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint;
|
|
|
|
|
|
-var sa,osa : sigactionrec;
|
|
|
-
|
|
|
-begin
|
|
|
- sa.sa_handler:=handler;
|
|
|
- FillChar(sa.sa_mask,sizeof(sigset),#0);
|
|
|
- sa.sa_flags := 0;
|
|
|
- (*
|
|
|
- if (sigintr and signum) =0 then
|
|
|
- {restart behaviour needs libc}
|
|
|
- sa.sa_flags :=sa.sa_flags or SA_RESTART;
|
|
|
- *)
|
|
|
- sigaction(signum,@sa,@osa);
|
|
|
- if ErrNo<>0 then
|
|
|
- signal:=NIL
|
|
|
- else
|
|
|
- signal:=osa.sa_handler;
|
|
|
- LinuxError:=Errno;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint;
|
|
|
-{$ifndef FPC_HAS_NO_SYSCALL_NR_RFORK}
|
|
|
-assembler;
|
|
|
-asm
|
|
|
- pushl %esi
|
|
|
- movl 12(%ebp), %esi // get stack addr
|
|
|
- subl $4, %esi
|
|
|
- movl 20(%ebp), %eax // get __arg
|
|
|
- movl %eax, (%esi)
|
|
|
- subl $4, %esi
|
|
|
- movl 8(%ebp), %eax // get __fn
|
|
|
- movl %eax, (%esi)
|
|
|
- pushl 16(%ebp)
|
|
|
- pushl %esi
|
|
|
- mov syscall_nr_rfork, %eax
|
|
|
- int $0x80 // call actualsyscall
|
|
|
- jb .L2
|
|
|
- test %edx, %edx
|
|
|
- jz .L1
|
|
|
- movl %esi,%esp
|
|
|
- popl %eax
|
|
|
- call %eax
|
|
|
- addl $8, %esp
|
|
|
- call halt // Does not return
|
|
|
-.L2:
|
|
|
- mov %eax,ErrNo
|
|
|
- mov $-1,%eax
|
|
|
- jmp .L1
|
|
|
-// jmp PIC_PLT(HIDENAME(cerror))
|
|
|
-.L1:
|
|
|
- addl $8, %esp
|
|
|
- popl %esi
|
|
|
-end;
|
|
|
-{$else FPC_HAS_NO_SYSCALL_NR_RFORK}
|
|
|
begin
|
|
|
- RunError(218);
|
|
|
- Clone:=-1;
|
|
|
+ Clone:=
|
|
|
+ intclone(tclonefunc(func),sp,flags,args);
|
|
|
end;
|
|
|
-{$endif FPC_HAS_NO_SYSCALL_NR_RFORK}
|
|
|
-
|
|
|
-{$packrecords C}
|
|
|
-
|
|
|
-TYPE uint=CARDINAL;
|
|
|
+}
|
|
|
|
|
|
-CONST
|
|
|
- I386_GET_LDT =0;
|
|
|
- I386_SET_LDT =1;
|
|
|
- { I386_IOPL }
|
|
|
- I386_GET_IOPERM =3;
|
|
|
- I386_SET_IOPERM =4;
|
|
|
- { xxxxx }
|
|
|
- I386_VM86 =6;
|
|
|
|
|
|
{
|
|
|
-type i386_ldt_args = record
|
|
|
- int start : longint;
|
|
|
- union descriptor *descs;
|
|
|
- int num;
|
|
|
- end;
|
|
|
-}
|
|
|
-type
|
|
|
- i386_ioperm_args = record
|
|
|
- start : uint;
|
|
|
- length : uint;
|
|
|
- enable : longint;
|
|
|
- end;
|
|
|
+ $Log$
|
|
|
+ Revision 1.5 2004-01-04 01:11:28 marco
|
|
|
+ * a new qod port of the freebsd rtl. To be refined in the coming days.
|
|
|
|
|
|
+ Revision 1.18 2004/01/01 17:07:21 marco
|
|
|
+ * few small freebsd fixes backported from debugging linux
|
|
|
|
|
|
- i386_vm86_args = record
|
|
|
- sub_op : longint; { sub-operation to perform }
|
|
|
- sub_args : pchar; { args }
|
|
|
- end;
|
|
|
+ Revision 1.17 2003/12/30 12:32:30 marco
|
|
|
+ *** empty log message ***
|
|
|
|
|
|
- sysarch_args = record
|
|
|
- op : longint;
|
|
|
- parms : pchar;
|
|
|
- end;
|
|
|
+ Revision 1.16 2003/11/19 17:11:40 marco
|
|
|
+ * termio unit
|
|
|
|
|
|
-{
|
|
|
-int i386_get_ldt __P((int, union descriptor *, int));
|
|
|
-int i386_set_ldt __P((int, union descriptor *, int));
|
|
|
-int i386_get_ioperm __P((unsigned int, unsigned int *, int *));
|
|
|
-int i386_set_ioperm __P((unsigned int, unsigned int, int));
|
|
|
-int i386_vm86 __P((int, void *));
|
|
|
-int i386_set_watch __P((int watchnum, unsigned int watchaddr, int size,
|
|
|
- int access, struct dbreg * d));
|
|
|
-int i386_clr_watch __P((int watchnum, struct dbreg * d));
|
|
|
-}
|
|
|
+ Revision 1.15 2003/11/19 10:12:02 marco
|
|
|
+ * more cleanups
|
|
|
|
|
|
-Function IOPerm(From,Num:CARDINAL;Value:Longint):boolean;
|
|
|
+ Revision 1.14 2003/11/17 10:05:51 marco
|
|
|
+ * threads for FreeBSD. Not working tho
|
|
|
|
|
|
-var sg : i386_ioperm_args;
|
|
|
- sa : sysarch_args;
|
|
|
+ Revision 1.13 2003/11/14 16:21:59 marco
|
|
|
+ * linuxerror elimination
|
|
|
|
|
|
-begin
|
|
|
- sg.start:=From;
|
|
|
- sg.length:=Num;
|
|
|
- sg.enable:=value;
|
|
|
- sa.op:=i386_SET_IOPERM;
|
|
|
- sa.parms:=@sg;
|
|
|
- IOPerm:=do_syscall(syscall_nr_sysarch,longint(@sa))=0;
|
|
|
- LinuxError:=ErrNo;
|
|
|
-end;
|
|
|
+ Revision 1.12 2003/11/09 12:00:16 marco
|
|
|
+ * pipe fix
|
|
|
|
|
|
-{
|
|
|
- $Log$
|
|
|
- Revision 1.4 2004-01-02 22:51:46 marco
|
|
|
- * simple bugfix for tpipe
|
|
|
+ Revision 1.11 2003/09/20 12:38:29 marco
|
|
|
+ * FCL now compiles for FreeBSD with new 1.1. Now Linux.
|
|
|
+
|
|
|
+ Revision 1.10 2003/09/15 20:08:49 marco
|
|
|
+ * small fixes. FreeBSD now cycles
|
|
|
|
|
|
- Revision 1.3 2003/05/31 16:57:22 marco
|
|
|
- * works via system unit call now, because of powerpc
|
|
|
+ Revision 1.9 2003/09/15 07:09:58 marco
|
|
|
+ * small fixes, round 1
|
|
|
|
|
|
- Revision 1.2 2003/01/21 15:39:45 marco
|
|
|
- * NetBSD first rtl. Still not 100%, but close
|
|
|
+ Revision 1.8 2003/09/14 20:15:01 marco
|
|
|
+ * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
|
|
|
|
|
|
- Revision 1.1.2.3 2002/09/26 08:13:08 marco
|
|
|
- * Fix from Lazarus
|
|
|
+ Revision 1.7 2003/01/05 19:02:29 marco
|
|
|
+ * Should now work with baseunx. (gmake all works)
|
|
|
|
|
|
- Revision 1.1.2.2 2002/09/20 07:04:15 pierre
|
|
|
- * avoid compiler warning and comment level 2 warning
|
|
|
+ Revision 1.6 2002/10/18 12:19:59 marco
|
|
|
+ * Fixes to get the generic *BSD RTL compiling again + fixes for thread
|
|
|
+ support. Still problems left in fexpand. (inoutres?) Therefore fixed
|
|
|
+ sysposix not yet commited
|
|
|
|
|
|
- Revision 1.1.2.1 2001/08/10 11:07:17 pierre
|
|
|
- New NetBSD files taken and adapted from FreeBSD
|
|
|
+ Revision 1.5 2002/09/07 16:01:18 peter
|
|
|
+ * old logs removed and tabs fixed
|
|
|
|
|
|
- Revision 1.1.2.3 2001/06/02 00:25:30 peter
|
|
|
- * moved some unix files to target dependent dirs
|
|
|
+ Revision 1.4 2002/05/06 09:35:09 marco
|
|
|
+ * Some stuff from 1.0.x ported
|
|
|
|
|
|
}
|
marco