X-Git-Url: https://pd.if.org/git/?p=pdclib;a=blobdiff_plain;f=functions%2Fstdio%2Ffsetpos.c;h=e28b2b1af627e18beb8793c51557d52149ffeaec;hp=044c9744d83c54700a8ffb1a1c8a8a0ba2308caf;hb=da0f3f353d417fed71f358a48d5d5394145e460d;hpb=1d9d92ba957a0b8307c9a65c35867fde68e6533b diff --git a/functions/stdio/fsetpos.c b/functions/stdio/fsetpos.c index 044c974..e28b2b1 100644 --- a/functions/stdio/fsetpos.c +++ b/functions/stdio/fsetpos.c @@ -1,15 +1,51 @@ -/* ---------------------------------------------------------------------------- - * $Id$ - * ---------------------------------------------------------------------------- - * Public Domain C Library - http://pdclib.sourceforge.net - * This code is Public Domain. Use, modify, and redistribute at will. - * --------------------------------------------------------------------------*/ +/* fsetpos( FILE *, const fpos_t * ) -int fsetpos( FILE * stream, const fpos_t * pos ) { /* TODO */ }; + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include -/* PDPC code - unreviewed +#ifndef REGTEST +#include "_PDCLIB_io.h" + +int _PDCLIB_fsetpos_unlocked( FILE * stream, + const _PDCLIB_fpos_t * pos ) { - fseek(stream, *pos, SEEK_SET); - return (0); + if ( stream->status & _PDCLIB_FWRITE ) + { + if ( _PDCLIB_flushbuffer( stream ) == EOF ) + { + return EOF; + } + } + if ( _PDCLIB_seek( stream, pos->offset, SEEK_SET ) == EOF ) + { + return EOF; + } + stream->pos.mbs = pos->mbs; + + return 0; } -*/ + +int fsetpos( FILE * stream, + const _PDCLIB_fpos_t * pos ) +{ + _PDCLIB_flockfile( stream ); + int res = _PDCLIB_fsetpos_unlocked( stream, pos ); + _PDCLIB_funlockfile( stream ); + return res; +} + +#endif + +#ifdef TEST +#include "_PDCLIB_test.h" + +int main( void ) +{ + /* fsetpos() tested together with fsetpos(). */ + return TEST_RESULTS; +} + +#endif