a0f5e0898b
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@976 c028cbd2-c16b-5b4b-a496-9718f37d4682
30 lines
646 B
C++
Executable File
30 lines
646 B
C++
Executable File
/* f4seq.cpp (c)Copyright Sequiter Software Inc., 1989-1993. All rights reserved. */
|
|
|
|
#include "d4all.h"
|
|
#ifndef S4UNIX
|
|
#ifdef __TURBOC__
|
|
#pragma hdrstop
|
|
#endif /* __TUROBC__ */
|
|
#endif /* S4UNIX */
|
|
|
|
#include "d4data.hpp"
|
|
|
|
extern char v4buffer[257] ;
|
|
|
|
File4seqRead &File4seqRead::operator>>( Str4 &s )
|
|
{
|
|
unsigned num_read = read( s.ptr( ), s.len( ) ) ;
|
|
if( num_read < s.len( ) )
|
|
s.setLen( num_read ) ;
|
|
return *this ;
|
|
}
|
|
|
|
File4seqWrite& File4seqWrite::operator<<( long l )
|
|
{
|
|
char buf[40] ; char *p = &buf[37] ;
|
|
c4ltoa45( l, buf, 39 ) ; buf[39] = 0 ;
|
|
for( int i = 37; buf[i] != ' '; i-- )
|
|
p-- ;
|
|
return operator<<( ++p ) ;
|
|
}
|