home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 265_01 / os2wrsct.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-15  |  896 b   |  42 lines
  1. /* MS OS/2 (TM) version    written by Rainer Gerhards */
  2. /* vi: set ai : */
  3. #include <stdio.h>
  4. #include <stdlib.h>
  5. #include <fcntl.h>
  6. #include <io.h>
  7. #define  INCL_BASE
  8. #include <os2.h>
  9.  
  10. #define    SECTSIZE    512
  11.  
  12. int    wrsct(strtsect, sectbuf)
  13. int    strtsect;
  14. char    *sectbuf;
  15. {
  16. static int    filopen = 0;
  17. static int    fh;
  18. int        actcode;
  19. static long    ifsize = 100;
  20. USHORT        ret;
  21. ULONG        dummy;
  22. unsigned    bytewr;
  23.  
  24. if(!filopen)
  25.     {
  26.     ret = DosOpen("A:", &fh, &actcode, (long) ((void far *) &ifsize), 0,
  27.               0x01, 0x8091, 0l);
  28.     if(ret != 0)
  29.         {
  30.         fprintf(stderr, "Can't open floppy A: - OS error %d!\n", ret);
  31.         exit(1);
  32.         /*NOTREACHED*/
  33.         }
  34.     else
  35.         filopen = 1;
  36.     }
  37. ret = DosChgFilePtr(fh, (long) SECTSIZE * strtsect, 0, &dummy);
  38. if(ret == 0)
  39.     ret = DosWrite(fh, sectbuf, SECTSIZE,  &bytewr);
  40. return(((ret == 0) && (bytewr == SECTSIZE)) ? 0 : 1);
  41. }
  42.