Return to Usef.c CVS log

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

Annotation of 43BSD/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.2     8/1/85
                      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: }

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