/*
 * fgetpos — запомнить текущую позицию потока в *pos (fpos_t = long,
 * без побочных эффектов — через ftell).  0 при успехе, -1 + errno.
 */

#include "_file.h"

int fgetpos(FILE *fp, fpos_t *pos)
{
    if (!pos) return -1;
    long p = ftell(fp);
    if (p < 0) return -1;
    *pos = p;
    return 0;
}