home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 177.lha / DRes_v1.3 / util / qtest.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-04-28  |  1.4 KB  |  69 lines
  1.  
  2. /*
  3.  *  QTEST.C
  4.  */
  5.  
  6. #include <typedefs.h>
  7. #include <stdio.h>
  8.  
  9. typedef struct Library LIB;
  10.  
  11. LIB *DMiscSupportBase;
  12. long QHan;
  13. long Count;
  14. long EnErr;
  15. long Error;
  16.  
  17. extern LIB *OpenLibrary();
  18. extern TASK *FindTask();
  19.  
  20. handler(arg)
  21. {
  22.     printf("ARG: %ld ************\n", arg);
  23. }
  24.  
  25. main()
  26. {
  27.     int i;
  28.  
  29.     DMiscSupportBase = OpenLibrary("dmiscsup.library", 0);
  30.     if (!DMiscSupportBase) {
  31.     puts("Unable to open library");
  32.     exit(1);
  33.     }
  34.     puts("Q-TEST");
  35.     QHan = OpenQInts();
  36.     if (!QHan) {
  37.     puts("Unable to alloc. q ints");
  38.     CloseLibrary(DMiscSupportBase);
  39.     exit(1);
  40.     }
  41.     printf("QHAn=  %08lx\n", QHan);
  42.     puts("UnSetting NULL vector");
  43.     SetQVector(QHan, NULL, SIGBREAKB_CTRL_E, 0, 0);
  44.     puts("Setting ^D vector");
  45.     SetQVector(QHan, handler, SIGBREAKB_CTRL_D, 30, -20);
  46.     puts("UnSetting NULL vector");
  47.     SetQVector(QHan, NULL, SIGBREAKB_CTRL_E, 0, 0);
  48.     puts("Loop");
  49.     for (i = 0; i < 100; ++i) {
  50.     char oldpri = SetQPri(QHan, 127);
  51.     EnErr = 1;
  52.     printf("%ld  cnt = %ld  error = %ld (old=%ld) %08lx %08lx\n", i, Count, Error, oldpri,
  53.         SetSignal(0,0), FindTask(NULL)->tc_SigExcept
  54.     );
  55.     EnErr = 0;
  56.     SetQPri(QHan, oldpri);
  57.     }
  58.     puts("UnSetting NULL vector");
  59.     SetQVector(QHan, NULL, SIGBREAKB_CTRL_E, 0, 0);
  60.     printf("%ld  cnt = %ld  error = %ld\n", i, Count, Error);
  61.     puts("closing");
  62.     CloseQInts(QHan);
  63.     puts("closelib");
  64.     RemLibrary(DMiscSupportBase);
  65.     CloseLibrary(DMiscSupportBase);
  66. }
  67.  
  68.  
  69.