1 /*
2  * Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
3  *
4  * Licensed under the Apache License, Version 2.0 (the "License");
5  * you may not use this file except in compliance with the License.
6  * You may obtain a copy of the License at
7  *
8  *     http://www.apache.org/licenses/LICENSE-2.0
9  *
10  * Unless required by applicable law or agreed to in writing, software
11  * distributed under the License is distributed on an "AS IS" BASIS,
12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13  * See the License for the specific language governing permissions and
14  * limitations under the License.
15  *
16  */
17 
18 /* clang-format off */
19 
20 /*	pxffileno.c - Implements LIB3F pxffileno subroutine.  */
21 
22 /* must include ent3f.h AFTER io3f.h */
23 #include "io3f.h"
24 #include "ent3f.h"
25 #include "stdioInterf.h"
26 
27 extern FILE *__getfile3f();
28 
29 void ENT3F(PXFFILENO, pxffileno)(lu, fd, err) int *lu;
30 int *fd;
31 int *err;
32 {
33   FILE *f;
34 
35   f = __getfile3f(*lu);
36   if (f == (FILE *)0) {
37     *err = FIO_EOPENED;
38     return;
39   }
40   *err = 0;
41   fflush(f);
42   *fd = __io_getfd(f);
43   return;
44 }
45