MINICERN/packlib/kernlib/kerngen/ccgenci/cisize.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:35:21  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:30:20  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:39  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 /*>    ROUTINE CISIZE
  19   CERN PROGLIB# Z311    CISIZE          .VERSION KERNFOR  4.31  911111
  20   ORIG. 12/10/91, JZ
  21       CALL CISIZE (LUNDES, JBYTL, ISTAT)
  22       get the position of the end-of-file and position to it :
  23        LUNDES  file descriptor
  24       *JBYTL   number of bytes before end-of-file
  25       *ISTAT   status, =zero if success
  26 */
  27 #include "kerngen/cf_seek.h"
  28 #include "kerngen/cf_xaft.h"
  29 #if defined(CERNLIB_QX_SC)
  30 void type_of_call cisize_(lundes, jbytl, stat)
  31 #endif
  32 #if defined(CERNLIB_QXNO_SC)
  33 void type_of_call cisize(lundes, jbytl, stat)
  34 #endif
  35 #if defined(CERNLIB_QXCAPT)
  36 void type_of_call CISIZE(lundes, jbytl, stat)
  37 #endif
  38       int  *lundes, *jbytl, *stat;
  39 {
  40       int  fildes;
  41       int  nboff;
  42
  43 /*        position the file to the end     */
  44
  45       fildes  = *lundes;
  46       nboff = lseek (fildes, 0, 2);
  47       if (nboff < 0)               goto trouble;
  48
  49 /*        get position of the file        */
  50
  51       *jbytl = nboff;
  52       *stat = 0;
  53       return;
  54
  55 trouble:  *stat = -1;
  56           perror (" error in CISIZE");
  57           return;
  58 }
  59 /*> END <----------------------------------------------------------*/