home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Netzwerk / NETMU17.LHA / debug / debuglib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-09-30  |  982 b   |  58 lines
  1. /*
  2. **    $VER: debuglib.c 1.0 (30.09.94)
  3. **
  4. **    debug.library functions
  5. **
  6. **    © Copyright 1994 by Norbert Püschel
  7. **    All Rights Reserved
  8. */
  9.  
  10. #include <proto/exec.h>
  11. #include <proto/dos.h>
  12.  
  13. #include <dos/dostags.h>
  14.  
  15. #include <string.h>
  16.  
  17. struct DosLibrary *DOSBase;
  18.  
  19. struct SignalSemaphore S;
  20.  
  21. BOOL __saveds LibInit(void)
  22.  
  23. {
  24.   DOSBase = (struct DosLibrary *)OpenLibrary("dos.library",37);
  25.   if(DOSBase) {
  26.     memset(&S,0,sizeof(struct SignalSemaphore));
  27.     InitSemaphore(&S);
  28.     return(TRUE);
  29.   }
  30.   return(FALSE);
  31. }
  32.  
  33. BOOL __saveds LibExpunge(void)
  34.  
  35. {
  36.   CloseLibrary((struct Library *)DOSBase);
  37.   return(TRUE);
  38. }
  39.  
  40. void __saveds __asm LIBDEBUGA(register __d1 STRPTR fname,
  41.                               register __d2 STRPTR format,
  42.                               register __d3 LONG *args)
  43.  
  44. {
  45.   BPTR file;
  46.  
  47.   ObtainSemaphore(&S);
  48.  
  49.   file = Open(fname,MODE_READWRITE);
  50.   if(file) {
  51.     Seek(file,0,OFFSET_END);
  52.     VFPrintf(file,format,args);
  53.     Close(file);
  54.   }
  55.  
  56.   ReleaseSemaphore(&S);
  57. }
  58.