home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / ErrSignal / TestSignals_2.p < prev    next >
Encoding:
Text File  |  1991-03-29  |  504 b   |  34 lines  |  [TEXT/PJMM]
  1. program main;
  2.  
  3.     uses
  4.         ErrSignal;
  5.  
  6.     procedure TestProc;
  7.         var
  8.             catch: Integer;
  9.  
  10.         procedure SubProc;
  11.         begin
  12.             writeln('entering SubProc');
  13.             Signal(1);
  14.         end;
  15.  
  16.     begin
  17.         writeln('entering TestProc');
  18.         InitSignals(sigFail);
  19.         catch := CatchSignal;
  20.         if catch <> 0 then
  21.             begin
  22.                 writeln('handling signal');
  23.                 SignalHandlerDone;
  24.                 Exit(TestProc);
  25.             end;
  26.         writeln('catch established in TestProc');
  27.         SubProc;
  28.     end;
  29.  
  30. begin { main }
  31.     ShowText;
  32.     TestProc;
  33.     writeln('returned from TestProc');
  34. end.