home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / comm / tcp / amitcp-sdk / src / netlib / _read.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-09-29  |  2.0 KB  |  101 lines
  1. RCS_ID_C="$Id: _read.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
  2. /*
  3.  *      _read.c - read() for both files and sockets (SAS/C)
  4.  *
  5.  *      Copyright © 1994 AmiTCP/IP Group, 
  6.  *                       Network Solutions Development Inc.
  7.  *                       All rights reserved.
  8.  */
  9.  
  10. #include <ios1.h>
  11. #include <stdlib.h>
  12. #include <dos.h>
  13. #include <string.h>
  14. #include <errno.h>
  15. #include <dos/dos.h>
  16. #include <proto/dos.h>
  17.  
  18. #include <bsdsocket.h>
  19.  
  20. extern int __io2errno(long);
  21.  
  22. int
  23. __read(int fd, void *buffer, unsigned int length)
  24. {
  25.   struct UFB *ufb;
  26.   int         count;
  27.   char        ch, *ptr, *nextptr, *endptr;
  28.  
  29.   /*
  30.    * Check for the break signals
  31.    */
  32.   __chkabort();
  33.   /*
  34.    * find the ufb *
  35.    */
  36.   if ((ufb = __chkufb(fd)) == NULL) {
  37.     errno = EINVAL;
  38.     return -1;
  39.   }
  40.   /*
  41.    * Check if read is allowed
  42.    */
  43.   if (!(ufb->ufbflg & UFB_RA)) {
  44.     _OSERR = ERROR_READ_PROTECTED;
  45.     errno = EIO;
  46.     return -1;
  47.   }
  48.  
  49.   /*
  50.    * Do the Actual read
  51.    */
  52.   _OSERR = 0;
  53.   if (ufb->ufbflg & UFB_SOCK) {
  54.     if ((count = recv(fd, (UBYTE *)buffer, length, 0)) < 0) {
  55.       return -1;
  56.     }
  57.   }
  58.   else {
  59.     if ((count = Read(ufb->ufbfh, buffer, length)) == -1) {
  60.       errno = __io2errno(_OSERR = IoErr());
  61.       return -1;
  62.     }
  63.   }
  64.   /*
  65.    * Check if translation is not needed
  66.    */
  67.   if (count == 0 || !(ufb->ufbflg & UFB_XLAT))
  68.     return count;
  69.   
  70.   endptr = (char *)buffer + count;    /* first point NOT in buffer */
  71.   
  72.   if (endptr[-1] == 0x0D)    /* checks last char */
  73. #if 0
  74.     Read(ufb->ufbfh, buffer, 1); /* overwrites first read byte ! */
  75.   /*            BUG  ^^^^^^ */
  76. #else
  77.     count--, endptr--;
  78. #endif
  79.  
  80.   /*
  81.    * Remove 0x0D's (CR) (This doesn't remove a CR at the end of the buffer).
  82.    */
  83.   if ((ptr = memchr(buffer, 0x0D, count)) != NULL) {
  84.     nextptr = ptr + 1;
  85.     while (nextptr < endptr) {
  86.       if ((ch = *nextptr) != 0x0D)
  87.     *ptr++ = ch;
  88.       nextptr++;
  89.     }
  90.     count = ptr - (char *)buffer;
  91.   }
  92.  
  93.   /*
  94.    * Test for CTRL-Z (end of file)
  95.    */
  96.   if ((ptr = memchr(buffer, 0x1A, count)) == NULL)
  97.     return count;
  98.  
  99.   return ptr - (char *)buffer;
  100. }
  101.