home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a016 / 1.ddi / PAS / BLINKER.INC next >
Encoding:
Text File  |  1992-03-15  |  4.1 KB  |  133 lines
  1. { Blinker 2.0 function include
  2.   MS Pascal 4.0                     }
  3.  
  4. { function prototypes }
  5.  
  6. { Get Current Overlay Number }
  7. function BLICUROVL : integer [C] ; extern ;
  8.  
  9. { Get Current Procedure Size }
  10. function BLICURSIZ : integer4 [C] ; extern ;
  11.  
  12. { Set the Blinker debug handle }
  13. function BLIDBGHAN(handle : integer) : integer [C] ; extern ;
  14.  
  15. { Get / Set number of demonstration calls }
  16. function BLIDEMCAL(DemoLimit : integer) : integer [C] ; extern ;
  17.  
  18. { Get demonstration date }
  19. function BLIDEMDTE : integer [C] ; extern ;
  20.  
  21. { Get / Set demonstration minutes }
  22. function BLIDEMMIN(DemoLimit : integer) : integer [C] ; extern ;
  23.  
  24. { Display overlaid procedure call trace }
  25. procedure BLIDISTRC(handle : integer) ; extern ;
  26.  
  27. { Get Blinker error number }
  28. function BLIERRNUM : integer [C] ; extern ;
  29.  
  30. { Get Blinker error parameter }
  31. function BLIERRPRM : integer [C] ; extern ;
  32.  
  33. { Get size of overlay pool memory }
  34. function BLIOVLOPS : integer4 [C] ; extern ;
  35.  
  36. { Resume overlay manager operation }
  37. procedure BLIOVLRES ; extern ;
  38.  
  39. { Get current size of overlay pool memory }
  40. function BLIOVLSIZ : integer4 [C] ; extern ;
  41.  
  42. { Suspend overlay manager operations }
  43. procedure BLIOVLSUS(level : integer) ; extern ;
  44.  
  45. { Get burned in serial }
  46. function BLISERNUM : integer [C] ; extern ;
  47.  
  48. { Get total number of overlays currently active }
  49. function BLITOTACT : integer [C] ; extern ;
  50.  
  51. { Get total number of overlays currently loaded in memory }
  52. function BLITOTLOD : integer [C] ; extern ;
  53.  
  54. { Get total size of all overlays ever loaded }
  55. function BLITOTSIZ : integer4 [C] ; extern ;
  56.  
  57. { Enable / Disable use of EMS (ON) }
  58. function SWPFREEMS(MemKB : integer) : integer [C] ; extern ;
  59.  
  60. { Enable / Disable use of XMS (ON) }
  61. function SWPFREXMS(MemKB : integer) : integer [C] ; extern ;
  62.  
  63. { Enable / Disable use of EMS (ON) }
  64. function SWPUSEEMS(flag : integer) : integer [C] ; extern ;
  65.  
  66. { Enable / Disable use of XMS (ON) }
  67. function SWPUSEXMS(flag : integer) : integer [C] ; extern ;
  68.  
  69. { Enable / Disable use of UMBs (ON) }
  70. function SWPUSEUMB(flag : integer) : integer [C] ; extern ;
  71.  
  72. { Enable / Disable wait for keypress before restore (OFF) }
  73. function SWPGETKEY(flag : integer) : integer [C] ; extern ;
  74.  
  75. { Enable / Disable display of msg & wait for keypress before restore (OFF) }
  76. function SWPDISMSG(flag : integer) : integer [C] ; extern ;
  77.  
  78. { Enable / Disable display of video mode (OFF) }
  79. function SWPVIDMDE(flag : integer) : integer [C] ; extern ;
  80.  
  81. { Enable / Disable trapping of <Crtl><Alt><Del> during swap (OFF) }
  82. function SWPNOBOOT(flag : integer) : integer [C] ; extern ;
  83.  
  84. { Enable / Disable saving/restoring of current directory (ON) }
  85. function SWPCURDIR(flag : integer) : integer [C] ; extern ;
  86.  
  87. { Get child process return code }
  88. function SWPERRLEV : integer [C] ; extern ;
  89.  
  90. { Set program ID }
  91. function SWPSETPID : integer [c,varying] ; extern ;
  92.  
  93. { Check for program ID }
  94. function SWPGETPID : integer [c,varying] ; extern ;
  95.  
  96. { Execute child process }
  97. function SWPRUNCMD : integer [c,varying] ; extern ;
  98.  
  99. { Major error code }
  100. function SWPERRMAJ : integer [C] ; extern ;
  101.  
  102. { Minor error code }
  103. function SWPERRMIN : integer [C] ; extern ;
  104.  
  105. { --------------------------------------------------------------------------- }
  106.  
  107. { SWPRUNCMD error return codes }
  108.  
  109. CONST
  110.   SWPNONERR=0 ;  { No error }
  111.   SWPDSKFUL=1 ;  { Disk full }
  112.   SWPDSKOPE=2 ;  { Disk file open error }
  113.   SWPDSKERR=3 ;  { Disk i/o error }
  114.   SWPDIRERR=4 ;  { Change directory error }
  115.   SWPCREERR=5 ;  { Temp file create error }
  116.   SWPDRVERR=6 ;  { Change drive error }
  117.   SWPEMSERR=7 ;  { EMS error }
  118.   SWPXMSERR=8 ;  { XMS error }
  119.   SWPCMDERR=9 ;  { SHELL error }
  120.   SWPHANERR=10;  { Handle table too big to save }
  121.   SWPMEMERR=11;  { Top of memory decreased error }
  122.   SWPMCBERR=12;  { MCB chain corrupt }
  123.   SWPMCBCNT=13;  { Too many MCBs }
  124.   SWPBLKERR=14;  { DOS memory function call error }
  125.   SWPMEMRES=15;  { Error reallocating segment }
  126.   SWPINTERR=254; { Internal error }
  127.  
  128. {Non fatal minor error codes when major error code is zero }
  129.  
  130.   SWPKILTSR=1;   { TSR was removed }
  131.   SWPMEMINC=2;   { Top of memory increased }
  132.  
  133.