4.3BSD - /usr/src/usr.lib/libF77/Usef.c

   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: }

Defined functions

Defined variables