Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
alexbevi
GitHub Repository: alexbevi/BizHawk
 Path: blob/master/waterbox/libc/functions/stdio/ftell.c
2 views
1
/* ftell( FILE * )

2


3
   This file is part of the Public Domain C Library (PDCLib).

4
   Permission is granted to use, modify, and / or redistribute at will.

5
*/

6


7
#include <stdio.h>

8
#include <stdint.h>

9
#include <limits.h>

10
#include <errno.h>

11


12
#ifndef REGTEST

13
#include "_PDCLIB_io.h"

14


15
long int _PDCLIB_ftell_unlocked( FILE * stream )

16
{

17
    uint_fast64_t off64 = _PDCLIB_ftell64_unlocked( stream );

18


19
    if ( off64 > LONG_MAX )

20
    {

21
        /* integer overflow */

22
        errno = ERANGE;

23
        return -1;

24
    }

25
    return off64;

26
}

27


28
long int ftell( FILE * stream )

29
{

30
    _PDCLIB_flockfile( stream );

31
    long int off = _PDCLIB_ftell_unlocked( stream );

32
    _PDCLIB_funlockfile( stream );

33
    return off;

34
}

35


36
#endif

37


38
#ifdef TEST

39
#include "_PDCLIB_test.h"

40
#include <stdlib.h>

41
#ifndef REGTEST

42
#include "_PDCLIB_io.h"

43
#endif

44


45
int main( void )

46
{

47
    /* Testing all the basic I/O functions individually would result in lots

48
       of duplicated code, so I took the liberty of lumping it all together

49
       here.

50
    */

51
    /* The following functions delegate their tests to here:

52
       fgetc fflush rewind fputc ungetc fseek

53
       flushbuffer seek fillbuffer prepread prepwrite

54
    */

55
    char * buffer = (char*)malloc( 4 );

56
    FILE * fh;

57
    TESTCASE( ( fh = tmpfile() ) != NULL );

58
    TESTCASE( setvbuf( fh, buffer, _IOLBF, 4 ) == 0 );

59
    /* Testing ungetc() at offset 0 */

60
    rewind( fh );

61
    TESTCASE( ungetc( 'x', fh ) == 'x' );

62
    TESTCASE( ftell( fh ) == -1l );

63
    rewind( fh );

64
    TESTCASE( ftell( fh ) == 0l );

65
    /* Commence "normal" tests */

66
    TESTCASE( fputc( '1', fh ) == '1' );

67
    TESTCASE( fputc( '2', fh ) == '2' );

68
    TESTCASE( fputc( '3', fh ) == '3' );

69
    /* Positions incrementing as expected? */

70
    TESTCASE( ftell( fh ) == 3l );

71
    TESTCASE_NOREG( fh->pos.offset == 0l );

72
    TESTCASE_NOREG( fh->bufidx == 3l );

73
    /* Buffer properly flushed when full? */

74
    TESTCASE( fputc( '4', fh ) == '4' );

75
    TESTCASE_NOREG( fh->pos.offset == 4l );

76
    TESTCASE_NOREG( fh->bufidx == 0 );

77
    /* fflush() resetting positions as expected? */

78
    TESTCASE( fputc( '5', fh ) == '5' );

79
    TESTCASE( fflush( fh ) == 0 );

80
    TESTCASE( ftell( fh ) == 5l );

81
    TESTCASE_NOREG( fh->pos.offset == 5l );

82
    TESTCASE_NOREG( fh->bufidx == 0l );

83
    /* rewind() resetting positions as expected? */

84
    rewind( fh );

85
    TESTCASE( ftell( fh ) == 0l );

86
    TESTCASE_NOREG( fh->pos.offset == 0 );

87
    TESTCASE_NOREG( fh->bufidx == 0 );

88
    /* Reading back first character after rewind for basic read check */

89
    TESTCASE( fgetc( fh ) == '1' );

90
    /* TODO: t.b.c. */

91
    TESTCASE( fclose( fh ) == 0 );

92
    return TEST_RESULTS;

93
}

94


95
#endif

96


97


98