home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 8.ddi / IOSTRSR1.ZIP / STSETF1.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1992-06-10  |  1.3 KB  |  42 lines
  1. /*[]------------------------------------------------------------[]*/
  2. /*|                                                              |*/
  3. /*|     stsetf1.cpp                                              |*/
  4. /*|                                                              |*/
  5. /*|     Class ios                                                |*/
  6. /*|          long ios::setf( long )                              |*/
  7. /*|                                                              |*/
  8. /*[]------------------------------------------------------------[]*/
  9.  
  10. /*
  11.  *      C/C++ Run Time Library - Version 5.0
  12.  *
  13.  *      Copyright (c) 1990, 1992 by Borland International
  14.  *      All Rights Reserved.
  15.  *
  16.  */
  17.  
  18. #include <ioconfig.h>
  19. #include <iostream.h>
  20.  
  21. long ios::setf(long l)
  22. {
  23.     long x = x_flags;
  24.  
  25.     if (l & ios::adjustfield)       // If padding requested, reset flags
  26.             x_flags &= ~ios::adjustfield;
  27.     if (l & ios::basefield)         // same for base
  28.             x_flags &= ~ios::basefield;
  29.     if (l & ios::floatfield)        // same for float conversion
  30.             x_flags &= ~ios::floatfield;
  31.  
  32.     x_flags |= l;
  33.  
  34.     if( x_flags & ios::skipws )
  35.         ispecial |= skipping;
  36.     else
  37.         ispecial &= ~skipping;
  38.     return x;
  39. }
  40.  
  41.  
  42.