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 /* getlog3f.c - Implements LIB3F getlog subprogram. */ 21 22 #ifndef WINNT 23 24 #include "ent3f.h" 25 #include "utils3f.h" 26 27 extern char *getlogin(); 28 ENT3F(GETLOG,getlog)29void ENT3F(GETLOG, getlog)(DCHAR(nm) DCLEN(nm)) 30 { 31 char *p; 32 33 p = getlogin(); 34 __fcp_cstr(CADR(nm), CLEN(nm), p); 35 } 36 37 #endif /* !WINNT */ 38