home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / amiga / programm / 12892 < prev    next >
Encoding:
Text File  |  1992-08-30  |  1.5 KB  |  51 lines
  1. Newsgroups: comp.sys.amiga.programmer
  2. Path: sparky!uunet!munnari.oz.au!metro!basser.cs.su.oz.au!swift!suite.sw.oz.au!peterc
  3. From: peterc@suite.sw.oz.au (Peter Chubb)
  4. Subject: Debugging a filesystem handler...
  5. Organization: Softway Pty Ltd
  6. Date: Mon, 31 Aug 92 06:19:28 GMT
  7. Message-ID: <1992Aug31.061928.18053@softway.sw.oz.au>
  8. Sender: news@softway.sw.oz.au (Usenet)
  9. Lines: 40
  10.  
  11.  
  12. I'm trying to write a new filesystem handler.  Example code that I've
  13. looked at (RAW and the disk-handler from earlier Fish disks) debug by
  14. opening a CON:  window, then sending CMD_WRITE messages to the
  15. console's message port.  This worked under WB1.3 (last time I tried).
  16.  
  17. This no longer seems to work under WB2.05.  Instead the console device
  18. appears to hang -- no new consoles can be opened.  
  19. I'm using SAS C 5.10a.  The code looks something like:
  20.  
  21. #include <proto/all.h>
  22. struct ExecLibrary *SysBase;
  23. struct DosLibrary *DosBase;
  24. extern struct ExecLibrary * __far AbsExecBase;
  25. BPTR    debugFH;
  26.  
  27. long __saveds
  28. handler()
  29. {
  30.     SysBase = AbsExecBase;
  31.     if ((DosBase = OpenLibrary(DOSNAME, 0)) == NULL)
  32.         return DOSFALSE;
  33.     debugFH = Open("CON:0/0/640/200/Handler Debug", MODE_NEWFILE);
  34.  
  35.     fsmsg = taskwait();
  36.     ....
  37. }
  38.  
  39. (I'm typing this in from memory; the actual code is at home!).
  40.  
  41. Does anyone know why this no longer works?
  42.  
  43.  
  44.             Regards,
  45.  
  46.                 - Peter Chubb
  47.  
  48. Softway Pty Ltd, P.O. Box 305, Strawberry Hills, NSW 2012, AUSTRALIA
  49. Phone: +61 2 698 2322;       Fax: +61 2 699 9174;     Telex: AA27987
  50. Internet: peterc@softway.oz.au       UUCP: ...!uunet!softway.oz!peterc
  51.