type
   Psembuf = ^sembuf;
   sembuf = record
        sem_num : word;
        sem_op : smallint;
        sem_flg : smallint;
     end;


function semctl(__semid:longint; __semnum:longint; __cmd:longint; args:array of const):longint;cdecl;external clib name 'semctl';
function semctl(__semid:longint; __semnum:longint; __cmd:longint):longint;cdecl;external clib name 'semctl';
function semget(__key:key_t; __nsems:longint; __semflg:longint):longint;cdecl;external clib name 'semget';
function semop(__semid:longint; __sops:psembuf; __nsops:size_t):longint;cdecl;external clib name 'semop';


{ ---------------------------------------------------------------------
    Borland compatibility types
  ---------------------------------------------------------------------}

Type  
  TSemaphoreBuffer = sembuf;
  PSemaphoreBuffer = ^TSemaphoreBuffer;

function semop(__semid:longint; var __sops:sembuf; __nsops:size_t):longint;cdecl;external clib name 'semop';