mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
93 lines
2.6 KiB
PHP
93 lines
2.6 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2004 by Marco van de Voort
|
|
member of the Free Pascal development team
|
|
|
|
*BSD syscalls for ipc unit.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program 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.
|
|
|
|
**********************************************************************}
|
|
|
|
function ftok(path:Pchar; id:cint):key_t;
|
|
|
|
var st:stat;
|
|
|
|
begin
|
|
if fpstat(path,st)<0 then
|
|
ftok:=key_t(-1)
|
|
else
|
|
ftok:=key_t( byte(id) shl 24 + ((st.st_dev and 255) shl 16) + (st.st_ino and $ffff));
|
|
end;
|
|
|
|
function shmget(key:key_t;size:cint;flag:cint):cint;
|
|
begin
|
|
{$ifdef NetBSD}
|
|
shmget:=do_syscall(syscall_nr_shmget,3, key, size, flag);
|
|
{$else NetBSD}
|
|
shmget:=do_syscall(syscall_nr_shmsys,3, key, size, flag);
|
|
{$endif NetBSD}
|
|
end;
|
|
|
|
Function shmat (shmid:cint; shmaddr:pointer; shmflg:cint):pointer;
|
|
begin
|
|
shmat:=pointer(do_syscall(syscall_nr_shmsys,0, shmid, TSysParam(shmaddr), shmflg));
|
|
end;
|
|
|
|
Function shmdt (shmaddr:pointer):cint;
|
|
|
|
begin
|
|
{$ifdef NetBSD}
|
|
shmdt:=do_syscall(syscall_nr_shmdt,2, TSysParam(shmaddr));
|
|
{$else NetBSD}
|
|
shmdt:=do_syscall(syscall_nr_shmsys,2, TSysParam(shmaddr));
|
|
{$endif NetBSD}
|
|
end;
|
|
|
|
Function shmctl(shmid:cint; cmd:cint; buf: pshmid_ds): cint;
|
|
|
|
begin
|
|
shmctl:= do_syscall(syscall_nr_shmsys,4, shmid, cmd, TSysParam(buf));
|
|
end;
|
|
|
|
Function semget(key:Tkey; nsems:cint; semflg:cint): cint;
|
|
begin
|
|
semget:=do_syscall(syscall_nr_semsys,1, key, nsems, semflg);
|
|
end;
|
|
|
|
Function semop(semid:cint; sops: psembuf; nsops: cuint): cint;
|
|
begin
|
|
semop:=do_syscall(syscall_nr_semsys,2, semid, TSysParam(sops), nsops, 0);
|
|
end;
|
|
|
|
Function semctl(semid:cint; semnum:cint; cmd:cint; var arg: tsemun): cint;
|
|
begin
|
|
semctl:=cint(do_syscall(syscall_nr_semsys, 0, semid, semnum, cmd,TSysParam(@arg)));
|
|
end;
|
|
|
|
Function msgget(key: TKey; msgflg:cint):cint;
|
|
begin
|
|
msgget:=do_syscall(syscall_nr_msgsys,1, key, msgflg);
|
|
end;
|
|
|
|
Function msgsnd(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgflg:cint): cint;
|
|
begin
|
|
msgsnd:=do_syscall(syscall_nr_msgsys,2, msqid, TSysParam(msgp), TSysParam(msgsz), msgflg);
|
|
end;
|
|
|
|
Function msgrcv(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgtyp:cint; msgflg:cint):cint;
|
|
begin
|
|
msgrcv:=(do_syscall(syscall_nr_msgsys,3, msqid, TSysParam(msgp), msgsz, msgtyp, msgflg));
|
|
end;
|
|
|
|
Function msgctl(msqid:cint; cmd: cint; buf: PMSQid_ds): cint;
|
|
begin
|
|
msgctl:= (do_syscall(syscall_nr_msgsys,0, msqid, cmd, tsysparam(buf)));
|
|
end;
|
|
|