3
{ Program to demonstrate the SigRaise function.}
10
Procedure DoSig(sig : Longint);cdecl;
13
writeln('Receiving signal: ',sig);
19
na^.sa_handler:=TSigaction(@DoSig);
20
fillchar(na^.Sa_Mask,sizeof(na^.Sa_Mask),#0);
23
// this member is linux only, and afaik even there arcane
26
if fpSigAction(SigUsr1,na,oa)<>0 then
28
writeln('Error: ',fpgeterrno);
31
Writeln('Sending USR1 (',sigusr1,') signal to self.');
b'\\ No newline at end of file'