]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/02/15 17:49:24 mclareni | |
6 | * Kernlib | |
7 | * | |
8 | * | |
9 | #include "kerngen/pilot.h" | |
10 | #if defined(CERNLIB_QMOS9) | |
11 | #include "os9gs/lstatf.F" | |
12 | #else | |
13 | INTEGER FUNCTION LSTATF (NAME, INFO) | |
14 | C | |
15 | C CERN PROGLIB# Z265 LSTATF .VERSION KERNFOR 4.36 930602 | |
16 | C ORIG. 24/03/93, RDM + JZ | |
17 | C Fortran interface routine to lstat | |
18 | C | |
19 | C NAME the name of the file of which information is required | |
20 | C INFO(12) buffer returning the information about "file" | |
21 | C | |
22 | C A succesful call returns 0; a failed call returns -1. | |
23 | C also: NDSLAT = 0 if NAME is a regular file | |
24 | C NESLAT = 0 if NAME is a symbolic link | |
25 | C NFSLAT = 0 if NAME is a directory | |
26 | C | |
27 | CHARACTER*(*) NAME | |
28 | INTEGER INFO(12), LSTATI | |
29 | COMMON /SLATE/ISLATE(40) | |
30 | ||
31 | LGN = LNBLNK (NAME) | |
32 | LSTATF = LSTATI (NAME, INFO, LGN, ISLATE) | |
33 | RETURN | |
34 | END | |
35 | #endif |