MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/lstatf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
   6 * Kernlib
   7 *
   8 *
   9 *       T=XCC.
  10       INTEGER FUNCTION LSTATF (NAME, INFO)
  11 C
  12 C CERN PROGLIB# Z265    LSTATF          .VERSION KERNOS9  1.01  940906
  13 C ORIG. 14/03/91, RDM
  14 C MOD.  06/09/94, MM
  15 C Fortran interface routine to lstat:
  16 C     The lstat system call is not available on OS-9 system. OS-9 does not
  17 C     support links. Therefore the call to LSTATI is replaced by a simple
  18 C     call to STATI instead.
  19 C
  20 C        NAME   the name of the file of which information is required
  21 C     INFO(12)  buffer returning the information about "file"
  22 C
  23 C        A succesfull call returns 0. A failed call returns -1.
  24 C
  25       CHARACTER*(*)  NAME
  26       INTEGER        INFO(12), STATI
  27
  28       LGN   = LNBLNK (NAME)
  29 #if defined(CERNLIB_QMVAX)
  30       STATF = STATI (%REF(NAME), INFO, LGN)
  31 #endif
  32 #if !defined(CERNLIB_QMVAX)
  33       STATF = STATI (NAME, INFO, LGN)
  34 #endif
  35       RETURN
  36       END