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 /* system3fqq.c - Implements DFLIB systemqq subprogram. */ 21 22 #include <stdlib.h> 23 #include "ent3f.h" 24 25 extern char *__fstr2cstr(); 26 extern void __cstr_free(); 27 ENT3F(SYSTEMQQ,systemqq)28int ENT3F(SYSTEMQQ, systemqq)(DCHAR(str) DCLEN(str)) 29 { 30 char *p; 31 int i; 32 33 p = __fstr2cstr(CADR(str), CLEN(str)); 34 i = system(p); 35 __cstr_free(p); 36 if (i == -1) 37 return 0; /* .false. */ 38 else 39 return -1; /* .true. */ 40 } 41