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