tools/dtdesc/c_iff/filesize.c

   1 /*
   2  *  c_iff - a portable IFF-parser
   3  *
   4  *  Copyright (C) 2000, 2001 Joerg Dietrich
   5  *
   6  *  This is the AROS-version of c_iff.
   7  *  It is distributed under the AROS Public License.
   8  *  But I reserve the right to distribute
   9  *  my own version under other licenses.
  10  */
  11
  12 /*
  13  *  filesize.c - get the size of a file
  14  */
  15
  16 #include "c_iff.h"
  17
  18 /****** c_iff/FileSize ******************************************************
  19 *
  20 *   NAME
  21 *       FileSize -- Get the Size of a file
  22 *
  23 *   SYNOPSIS
  24 *       Size = FileSize( TheFile )
  25 *
  26 *       size_t FileSize( FILE * )
  27 *
  28 *   FUNCTION
  29 *       Returns the size of the given file.
  30 *
  31 *   INPUTS
  32 *       TheFile     - the file to count
  33 *
  34 *   RESULT
  35 *       Size        - size of the file
  36 *                     or 0 when an error occurs
  37 *
  38 *   EXAMPLE
  39 *
  40 *   NOTES
  41 *       This is a support function. It has very few to do with c_iff.
  42 *
  43 *   BUGS
  44 *
  45 *   SEE ALSO
  46 *
  47 *****************************************************************************
  48 *
  49 *       Private notes:
  50 */
  51
  52 size_t FileSize(FILE *TheFile)
  53 {
  54  long Ret;
  55  long CurPos;
  56
  57  if(!TheFile)
  58  {
  59   return(0);
  60  }
  61
  62  CurPos=ftell(TheFile);
  63  if(CurPos<0)
  64  {
  65   return(0);
  66  }
  67
  68  if(fseek(TheFile, 0, SEEK_END))
  69  {
  70   return(0);
  71  }
  72
  73  Ret=ftell(TheFile);
  74  if(Ret<0)
  75  {
  76   return(0);
  77  }
  78
  79  if(fseek(TheFile, CurPos, SEEK_SET))
  80  {
  81   return(0);
  82  }
  83
  84  return((size_t) Ret);
  85 }
  86
  87