libexplain  1.4.D001
libexplain/ftell_or_die.c
Go to the documentation of this file.
00001 /*
00002  * libexplain - Explain errno values returned by libc functions
00003  * Copyright (C) 2010, 2012, 2013 Peter Miller
00004  *
00005  * This program is free software; you can redistribute it and/or modify it
00006  * under the terms of the GNU Lesser General Public License as published by
00007  * the Free Software Foundation; either version 3 of the License, or (at
00008  * your option) any later version.
00009  *
00010  * This program is distributed in the hope that it will be useful,but
00011  * WITHOUT ANY WARRANTY; without even the implied warranty
00012  * ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNULesser
00013  * General Public License for more details.
00014  *
00015  * You should have received a copy of the GNU Lesser General Public License
00016  * along with this program. If not, see <http://www.gnu.org/licenses/>.
00017  */
00018 
00019 #include <libexplain/ac/errno.h>
00020 #include <libexplain/ac/stdio.h>
00021 
00022 #include <libexplain/ftell.h>
00023 #include <libexplain/output.h>
00024 
00025 
00026 long
00027 explain_ftell_on_error(FILE *fp)
00028 {
00029     long            result;
00030 
00031     result = ftell(fp);
00032     if (result < 0)
00033     {
00034         int             hold_errno;
00035 
00036         hold_errno = errno;
00037         explain_output_error("%s", explain_errno_ftell(hold_errno, fp));
00038         errno = hold_errno;
00039     }
00040     return result;
00041 }
00042 
00043 
00044 long
00045 explain_ftell_or_die(FILE *fp)
00046 {
00047     long            result;
00048 
00049     result = explain_ftell_on_error(fp);
00050     if (result < 0)
00051     {
00052         explain_output_exit_failure();
00053     }
00054     return result;
00055 }
00056 
00057 
00058 /* vim: set ts=8 sw=4 et : */