[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'oldlinux' (#rtl)

# SigRaise

Raise a signal (send to current process)

## Declaration

Source position: oldlinux.pp line 1486

`procedure SigRaise(`
`Sig: Integer`
`);`

## Description

SigRaise sends a Sig signal to the current process.

## Errors

None.

## See also

Kill |  | Send a signal to a process
GetPid |  | Return current process ID

## Example

    Program example64;

    { Program to demonstrate the SigRaise function.}

    uses oldlinux;

    Var
       oa,na : PSigActionRec;

    Procedure DoSig(sig : Longint);cdecl;

    begin
       writeln('Receiving signal: ',sig);
    end;

    begin
       new(na);
       new(oa);
       na^.handler.sh:=@DoSig;
       na^.Sa_Mask:=0;
       na^.Sa_Flags:=0;
       na^.Sa_Restorer:=Nil;
       SigAction(SigUsr1,na,oa);
       if LinuxError<>0 then
         begin
         writeln('Error: ',linuxerror,'.');
         halt(1);
         end;
       Writeln('Sending USR1 (',sigusr1,') signal to self.');
       SigRaise(sigusr1);
    end.

Documentation generated on: Feb 26 2014