Return to Usef.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libF77

Annotation of 43BSDTahoe/usr.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.3     9/14/87
        !             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:                if( strcmp( *ptr++, *argv ) == 0 )
        !            30:                {
        !            31:                        printf("-f");
        !            32:                        exit(0);
        !            33:                }
        !            34:        }
        !            35:        printf(" ");
        !            36:        exit(0);
        !            37: }

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