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