1*24102Sjerry /* 2*24102Sjerry * Copyright (c) 1980 Regents of the University of California. 3*24102Sjerry * All rights reserved. The Berkeley software License Agreement 4*24102Sjerry * specifies the terms and conditions for redistribution. 5*24102Sjerry * 6*24102Sjerry * @(#)Usef.c 1.1 07/30/85 */ 7*24102Sjerry */ 8*24102Sjerry 9*24102Sjerry /* returns '-f' if need to use -f to bypass C bug */ 10*24102Sjerry 11*24102Sjerry static char *needs_f[] = { 12*24102Sjerry "besj0_", "besj1_", "besjn_", "besy0_", "besy1_", "besyn_", 13*24102Sjerry "c_abs", "erf_", "erfc_", "r_abs", "r_acos", "r_asin", 14*24102Sjerry "r_atan", "r_atn2", "r_cos", "r_cosh", "r_exp", "r_imag", 15*24102Sjerry "r_int", "r_lg10", "r_log", "r_sign", "r_sin", 16*24102Sjerry "r_sinh", "r_sqrt", "r_tan", "r_tanh", "rand_", "random_", 17*24102Sjerry 0, 18*24102Sjerry }; 19*24102Sjerry 20*24102Sjerry main(argc, argv) 21*24102Sjerry int argc; 22*24102Sjerry char **argv; 23*24102Sjerry { 24*24102Sjerry char **ptr; 25*24102Sjerry 26*24102Sjerry argv++; 27*24102Sjerry ptr = needs_f; 28*24102Sjerry while( *ptr != 0 ) { 29*24102Sjerry ptr++; 30*24102Sjerry if( strcmp( *ptr, *argv ) == 0 ) 31*24102Sjerry { 32*24102Sjerry printf("-f"); 33*24102Sjerry exit(0); 34*24102Sjerry } 35*24102Sjerry } 36*24102Sjerry printf(" "); 37*24102Sjerry exit(0); 38*24102Sjerry } 39