home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CLASSSRC.PAK / TIMEP.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  916 b   |  33 lines
  1. //----------------------------------------------------------------------------
  2. // Borland Class Library
  3. // Copyright (c) 1993, 1997 by Borland International, All Rights Reserved
  4. //
  5. //$Revision:   5.7  $
  6. //
  7. // TTime class persistent streaming implementation
  8. //----------------------------------------------------------------------------
  9. #include <classlib/pch.h>
  10. #include <classlib/time.h>
  11. #include <classlib/objstrm.h>
  12. #include <strstrea.h>
  13.  
  14. #if defined(BI_NAMESPACE)
  15. namespace ClassLib {
  16. #endif
  17.  
  18. opstream _BIDSFAR & _BIDSFUNC operator << ( opstream _BIDSFAR & os,
  19.                                             const TTime _BIDSFAR & d )
  20. {
  21.   return os << d.Sec;
  22. }
  23.  
  24. ipstream _BIDSFAR & _BIDSFUNC operator >> ( ipstream _BIDSFAR & is,
  25.                                             TTime _BIDSFAR & d )
  26. {
  27.   return is >> d.Sec;
  28. }
  29.  
  30. #if defined(BI_NAMESPACE)
  31. }     // namespace ClassLib
  32. #endif
  33.