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 / GETW.C < prev    next >
Text File  |  1983-07-15  |  896b  |  37 lines
  1. /*
  2.  * getw
  3.  * This function returns the next 16 bit object from the specified
  4.  * stream. One must call feof() and ferror() to determine whether or
  5.  * not the value returned is (-1) or an error has occurred. This was
  6.  * bad planning on the part of the designer of the U**X Library. This
  7.  * function is essentially unchanged from the BDS C function of the
  8.  * the same name.
  9.  * Last Edit 6/6/83
  10.  */
  11.  
  12. unsigned
  13. getw(stream)
  14. FILE *stream;
  15. {
  16.     int a,b;    
  17.     if (((a=getc(stream)) >= 0) && ((b= getc(stream)) >=0))
  18.             return 256*b+a;
  19.     return ERROR;
  20. }
  21.  
  22. /*
  23.  * putw
  24.  * This function appends a 16 bit object to `stream'. It is
  25.  * is identical to the function in the BDS C Standard Library.
  26.  * Last Edit 6/6/83
  27.  */
  28.  
  29. putw(w,stream)
  30. unsigned w;
  31. FILE *stream;
  32. {
  33.     if ((putc(w%256,stream) >=0 ) && (putc(w / 256,stream) >= 0))
  34.                 return w;
  35.     return ERROR;
  36. }
  37.