1 /*- 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 char copyright[] = 10 "@(#) Copyright (c) 1980 The Regents of the University of California.\n\ 11 All rights reserved.\n"; 12 #endif /* not lint */ 13 14 #ifndef lint 15 static char sccsid[] = "@(#)Usef.c 1.5 (Berkeley) 04/12/91"; 16 #endif /* not lint */ 17 18 /* returns '-f' if need to use -f to bypass C bug */ 19 20 static char *needs_f[] = { 21 "besj0_", "besj1_", "besjn_", "besy0_", "besy1_", "besyn_", 22 "c_abs", "erf_", "erfc_", "r_abs", "r_acos", "r_asin", 23 "r_atan", "r_atn2", "r_cos", "r_cosh", "r_exp", "r_imag", 24 "r_int", "r_lg10", "r_log", "r_sign", "r_sin", 25 "r_sinh", "r_sqrt", "r_tan", "r_tanh", "rand_", "random_", 26 0, 27 }; 28 29 main(argc, argv) 30 int argc; 31 char **argv; 32 { 33 char **ptr; 34 float f; 35 36 if (sizeof (f + f) != sizeof f) 37 { 38 argv++; 39 ptr = needs_f; 40 while( *ptr != 0 ) { 41 if( strcmp( *ptr++, *argv ) == 0 ) 42 { 43 printf("-f"); 44 exit(0); 45 } 46 } 47 } 48 printf(" "); 49 exit(0); 50 } 51