Return to Usef.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / lib / libF77

Annotation of 43BSDReno/lib/libF77/Usef.c, revision 1.1.1.1

1.1       root        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:  *
                      6:  *     @(#)Usef.c      1.4     2/25/90
                      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:        float f;
                     26: 
                     27:        if (sizeof (f + f) != sizeof f)
                     28:        {
                     29:                argv++;
                     30:                ptr = needs_f;
                     31:                while( *ptr != 0 ) {
                     32:                        if( strcmp( *ptr++, *argv ) == 0 )
                     33:                        {
                     34:                                printf("-f");
                     35:                                exit(0);
                     36:                        }
                     37:                }
                     38:        }
                     39:        printf(" ");
                     40:        exit(0);
                     41: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.