signals

[Adam Naumowicz]

On Mon, 6 Aug 2001, Ernst-Ludwig Bohnen wrote:

>
>
> On Mon, 6 Aug 2001, Adam Naumowicz wrote:
>
> > Hello,
> > I have two questions:
> > Is that the proper way to install a signal handler?
> >
> > program testsignal;
> > uses gpc;
> >
> > Procedure CatchSignal(sig:integer);
> > begin
> > case sig of
> >  2: writeln('Interrupted');
>                                 { <=====================}
>    otherwise {do nothing}       { this may help if sig is}
>                                 { not guaranteed to be 2}

Actually it doesn't make much sense as the InstallSignalHandler should
install a new install handler for a fixed signal (in my case for
SIGINT=2). I just put the case statement as if the CatchSignal was
prepared as a universal handler.

> > end;
> > end;
> >
> > var o:TSignalHandler;
> > b:boolean;
> > i:longint;
> > begin
> > InstallSignalHandler(SigInt,CatchSignal,true,true,o,b);
> > for i:=1 to 2000 do
> > writeln(i);
> > end.
> >
> > I intended it to be a SIGINT handler, but the Ctrl+C in the console
> > doesn't make the CatchSignal proc executed. I also don't know why I cannot
> > write SigInt as the case label - the compiler complains that
> > SigInt is not a constant or a variable of an ordinal type (but it is
> > declared as an integer in the GPC unit). Any ideas?

Regards,
Adam Naumowicz

--------------------------------------
WWW: http://math.uwb.edu.pl/~adamn/
--------------------------------------