home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / BDSC / BDSC-4 / BDSLIB.ARK / SWAPIN.C < prev   
Text File  |  1983-07-15  |  512b  |  24 lines
  1. /*
  2.  * This is the same function used in the BDS C Standard Library
  3.  * and is included for the sake of compatibility.
  4.  */
  5.  
  6. swapin(name,addr)
  7. char *name;
  8. {
  9.     int fd;
  10.     if (( fd = open(name,0)) == ERROR) {
  11.         printf("Swapin: cannot open %s\n",name);
  12.         return ERROR;
  13.     }
  14.     if ((read(fd,addr,512)) < 0) {
  15.         printf("Swapin: read error on %s\n",name);
  16.         close(fd);
  17.         return ERROR;
  18.     }
  19.     close(fd);
  20.     return 0;
  21. }
  22.  
  23.  
  24.