home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 286_01 / blkldsv.c < prev    next >
Text File  |  1989-05-25  |  4KB  |  133 lines
  1. #include <stdio.h>
  2. #include <gds.h>
  3. #include <prtfont.h>
  4. #include <fcntl.h>
  5. #include <sys\types.h>
  6. #include <io.h>
  7. #include <sys\stat.h>
  8.  
  9. #define ERROR (-1)
  10. #define OK 0
  11. #define VOIDBLOCK 1
  12.  
  13. int far *phyaddr();
  14.  
  15. /*==============================================================*
  16.  *  This file contains the following routines:                  *
  17.  *                                                              *
  18.  *==============================================================*/
  19.  
  20. BlockSave(sx,sy,filename,length,height)
  21. int sx,sy,length,height;
  22. char *filename;
  23. {
  24.     int ret, far *sptr, byte_len, outfile, cfrmsave;
  25.  
  26.     if ((length<=0) || (height <= 0)) return; /* height must be positive */
  27.     sx += ORGX;              /* get absolute position */
  28.     sy += ORGY;
  29.  
  30.     if (blockclip(&sx,&sy,&length,&height) == VOIDBLOCK) {
  31.         return;
  32.     }
  33.  
  34.     if ((outfile=open(filename,O_CREAT | O_BINARY| O_TRUNC | O_WRONLY,
  35.                         S_IREAD | S_IWRITE)) == ERROR) {
  36.         graderror(2,4);
  37.         return;
  38.     }
  39.  
  40.     byte_len=(((sx & 0x000f) + length + 15) >> 4) << 1; 
  41.     ret=((0x20 + (sx & 0x0f)) << 8) + 101; 
  42.     write(outfile, (char *) &ret, 2);
  43.     write(outfile, (char *) &length, 2);
  44.     write(outfile, (char *) &height, 2);
  45.     write(outfile, (char *) &byte_len, 2);
  46.     ret=CUR_PLOT; 
  47.     cfrmsave=CUR_FRAME;
  48.     writetype();
  49.     do { 
  50.         sptr=phyaddr(sx,sy++);
  51.         CUR_FRAME=0;    /* force it to use physical address */
  52.         hlcopy(sptr,(int far *) CFBUF,sx,length);
  53.         CUR_FRAME=cfrmsave;
  54.         if (write(outfile,CFBUF,byte_len) < byte_len) {
  55.             close(outfile);
  56.             PlotType(ret);
  57.             graderror(2,4);
  58.             return;
  59.         }
  60.     } while (--height);
  61.     PlotType(ret); 
  62.     if (close(outfile)==ERROR) { 
  63.         graderror(2,4);
  64.         return;
  65.     }
  66. } 
  67.  
  68. BlockLoad(dx,dy, filename)
  69. int dx,dy;
  70. char *filename;
  71. {
  72.     int ret, far *dptr, byte_len, infile, sx, length, height, cfrmsave;
  73.     int right, down;
  74.  
  75.     dx += ORGX;              /* get absolute position */
  76.     dy += ORGY;
  77.  
  78.     if ((infile=open(filename,O_RDONLY | O_BINARY)) == ERROR) {
  79.         graderror(2,6,filename);
  80.         return(ERROR);
  81.     }
  82.  
  83.     read(infile, (char *) &ret, 2);
  84.     if ((ret & 0xff) != 101) {
  85.         close(infile);
  86.         graderror(2,5,filename);
  87.         return(ERROR);
  88.     }
  89.     read(infile, (char *) &length, 2);
  90.     read(infile, (char *) &height, 2);
  91.     ret >>= 8;
  92.     sx=ret & 0x0f;
  93.     ret >>= 4;
  94.     if ((ret=(ret<<2)-6) < 0) {
  95.         close(infile);
  96.         graderror(2,5,filename);
  97.         return(ERROR);
  98.     }
  99.     if (ret) {
  100.         read(infile, CFBUF, ret);
  101.     }
  102.     byte_len=((sx + length + 15) >> 4) << 1;
  103.     dx = (dx & 0xfff0) | sx;
  104.     right=dx;
  105.     down=dy;
  106.     if (blockclip(&dx,&dy,&length,&height) == VOIDBLOCK) {
  107.         close(infile);
  108.         return(OK);
  109.     }
  110.  
  111.     right=dx-right;
  112.     down=dy-down;
  113.     sx+=right;
  114.     right=(sx >> 3) & 0xfffe;
  115.     sx &= 0x0f;
  116.     cfrmsave=CUR_FRAME;
  117.     do { 
  118.         if (read(infile, CFBUF, byte_len) < byte_len) {
  119.             close(infile);
  120.             graderror(2,5,filename);
  121.         }
  122.         if (down-- > 0) continue;
  123.         dptr=phyaddr(dx,dy++);
  124.         CUR_FRAME=0;
  125.         hlcopy((int far *) (CFBUF+right), dptr, sx, length);
  126.         CUR_FRAME=cfrmsave;
  127.         height--;
  128.     } while (height);
  129.     close(infile);
  130.     return(OK);
  131. }
  132.  
  133.