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     ! 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.