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

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.