/[MITgcm]/MITgcm/tools/genmake2
ViewVC logotype

Diff of /MITgcm/tools/genmake2

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.38 by edhill, Fri Nov 14 12:52:56 2003 UTC revision 1.39 by edhill, Fri Nov 14 19:01:36 2003 UTC
# Line 281  get_fortran_c_namemangling()  { Line 281  get_fortran_c_namemangling()  {
281      cat > genmake_test.c <<EOF      cat > genmake_test.c <<EOF
282  void tcall( char * string ) { tsub( string ); }  void tcall( char * string ) { tsub( string ); }
283  EOF  EOF
284      $MAKE genmake_test.o > genmake_test.log 2>&1      $MAKE genmake_test.o >> genmake_warnings 2>&1
285      RETVAL=$?      RETVAL=$?
286      if test "x$RETVAL" != x0 ; then      if test "x$RETVAL" != x0 ; then
         cat genmake_test.log >> genmake_errors  
287          FC_NAMEMANGLE=$default_nm          FC_NAMEMANGLE=$default_nm
288          echo          cat <<EOF>> genmake_errors
289          echo "WARNING: C test compile fails -- please see \"genmake_errors\""  
290          echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'"  WARNING: C test compile fails
291          echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here."  WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'
292          rm -f genmake_tcomp.* genmake_test.*  WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here
293    EOF
294          return 1          return 1
295      fi      fi
296      c_tcall=`nm genmake_test.o | grep tcall | cut -d ' ' -f 3`      c_tcall=`nm genmake_test.o | grep tcall | cut -d ' ' -f 3`
297      RETVAL=$?      RETVAL=$?
298      if test "x$RETVAL" != x0 ; then      if test "x$RETVAL" != x0 ; then
299          FC_NAMEMANGLE=$default_nm          FC_NAMEMANGLE=$default_nm
300          echo          cat <<EOF>> genmake_warnings
301          echo "WARNING: The \"nm\" command failed."  
302          echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'"  WARNING: The "nm" command failed.
303          echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here."  WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'
304          rm -f genmake_tcomp.* genmake_test.*  WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here
305    EOF
306          return 1          return 1
307      fi      fi
308      cat > genmake_tcomp.f <<EOF      cat > genmake_tcomp.f <<EOF
# Line 310  EOF Line 311  EOF
311        call tsub( string )        call tsub( string )
312        end        end
313  EOF  EOF
314      $FC $FFLAGS $DEFINES -c genmake_tcomp.f > genmake_tcomp.log 2>&1      $FC $FFLAGS $DEFINES -c genmake_tcomp.f >> genmake_warnings 2>&1
315      RETVAL=$?      RETVAL=$?
316      if test "x$RETVAL" != x0 ; then      if test "x$RETVAL" != x0 ; then
         cat genmake_tcomp.log >> genmake_errors  
317          FC_NAMEMANGLE=$default_nm          FC_NAMEMANGLE=$default_nm
318          echo          cat <<EOF>> genmake_warnings
319          echo "WARNING: FORTRAN test compile fails -- please see \"genmake_errors\""  
320          echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'"  WARNING: FORTRAN test compile fails -- please see "genmake_errors"
321          echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here."  WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'
322          rm -f genmake_tcomp.* genmake_test.*  WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here.
323    EOF
324          return 1          return 1
325      fi      fi
326      f_tcall=`nm genmake_tcomp.o | grep tcall | cut -d ' ' -f 3`      f_tcall=`nm genmake_tcomp.o | grep tcall | cut -d ' ' -f 3`
327      RETVAL=$?      RETVAL=$?
328      if test "x$RETVAL" != x0 ; then      if test "x$RETVAL" != x0 ; then
329          FC_NAMEMANGLE=$default_nm          FC_NAMEMANGLE=$default_nm
330          echo          cat <<EOF>> genmake_warnings
331          echo "WARNING: The \"nm\" command failed."  
332          echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'"  WARNING: The "nm" command failed.
333          echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here."  WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'
334          rm -f genmake_tcomp.* genmake_test.*  WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here.
335    EOF
336          return 1          return 1
337      fi      fi
338    
# Line 357  EOF Line 359  EOF
359      rm -f genmake_tcomp.* genmake_test.*      rm -f genmake_tcomp.* genmake_test.*
360  }  }
361    
362    
363    check_HAVE_CLOC()  {
364        get_fortran_c_namemangling
365        cat <<EOF > genmake_tc_1.c
366    $FC_NAMEMANGLE
367    #include <stdio.h>
368    #include <stdlib.h>
369    #include <unistd.h>
370    #include <assert.h>
371    #include <sys/time.h>
372    void FC_NAMEMANGLE(cloc) ( double *curtim )
373    {
374     struct timeval tv1;
375     gettimeofday(&tv1 , (void *)NULL );
376     *curtim =  (double)((tv1.tv_usec)+(tv1.tv_sec)*1.E6);
377     *curtim = *curtim/1.E6;
378    }
379    EOF
380        make genmake_tc_1.o >> genmake_tc.log 2>&1
381        RET_C=$?
382        cat <<EOF > genmake_tc_2.f
383          program hello
384          Real*8 wtime
385          external cloc
386          call cloc(wtime)
387          print *," HELLO WORLD", wtime
388          end program hello
389    EOF
390        $FC $FFLAGS -o genmake_tc genmake_tc_2.f genmake_tc_1.o >> genmake_tc.log 2>&1
391        RET_F=$?
392        test -x ./genmake_tc  &&  ./genmake_tc >> genmake_tc.log 2>&1
393        RETVAL=$?
394        if test "x$RETVAL" = x0 ; then
395            HAVE_CLOC=t
396            DEFINES="$DEFINES -DHAVE_CLOC"
397        fi
398        rm -f genmake_tc*
399    }
400    
401    
402  #  Set defaults here  #  Set defaults here
403  COMMANDL="$0 $@"  COMMANDL="$0 $@"
404    
# Line 392  NOOPTFLAGS= Line 434  NOOPTFLAGS=
434  HAVE_SYSTEM=  HAVE_SYSTEM=
435  HAVE_FDATE=  HAVE_FDATE=
436  FC_NAMEMANGLE=  FC_NAMEMANGLE=
437    HAVE_CLOC=
438    
439  MODS=  MODS=
440  TOOLSDIR=  TOOLSDIR=
# Line 708  if test "x${AD_OPTFILE}" != xNONE ; then Line 751  if test "x${AD_OPTFILE}" != xNONE ; then
751      fi      fi
752  fi  fi
753    
754  #  Check that FC, LINK, CPP, S64, and LN are defined.  If not,  #  Check that FC, LINK, CPP, S64, LN, and MAKE are defined.  If not,
755  #  complain and abort!  #  either set defaults or complain and abort!
756  if test "x$FC" = x ; then  if test "x$FC" = x ; then
757      cat <<EOF 1>&2      cat <<EOF 1>&2
758    
# Line 726  fi Line 769  fi
769  if test "x$CPP" = x ; then  if test "x$CPP" = x ; then
770      CPP="cpp"      CPP="cpp"
771  fi  fi
772    if test "x$MAKE" = x ; then
773        MAKE="make"
774    fi
775  echo "#define A a" | $CPP > test_cpp 2>&1  echo "#define A a" | $CPP > test_cpp 2>&1
776  RETVAL=$?  RETVAL=$?
777  if test "x$RETVAL" != x0 ; then  if test "x$RETVAL" != x0 ; then
# Line 762  EOF Line 808  EOF
808  fi  fi
809  rm -f genmake_test_ln genmake_tlink  rm -f genmake_test_ln genmake_tlink
810    
811    
812  printf "\n===  Checking system libraries  ===\n"  printf "\n===  Checking system libraries  ===\n"
813  echo -n "  Do we have the system() command using $FC...  "  echo -n "  Do we have the system() command using $FC...  "
814  cat > genmake_tcomp.f <<EOF  cat > genmake_tcomp.f <<EOF
# Line 802  else Line 849  else
849  fi  fi
850  rm -f genmake_tcomp*  rm -f genmake_tcomp*
851    
852  echo "  The name mangling convention for $FC is...  "  echo -n "  Can we call simple C routines (here, \"cloc()\") using $FC...  "
853  #FC_NAMEMANGLE="#define FC_NAMEMANGLE(X) X ## _"  check_HAVE_CLOC
854  if test "x$FC_NAMEMANGLE" = x ; then  if test "x$HAVE_CLOC" != x ; then
855      get_fortran_c_namemangling      echo "yes"
856    else
857        echo "no"
858  fi  fi
 echo "    '$FC_NAMEMANGLE'"  
859  echo "$FC_NAMEMANGLE" > FC_NAMEMANGLE.h.template  echo "$FC_NAMEMANGLE" > FC_NAMEMANGLE.h.template
860  cmp FC_NAMEMANGLE.h FC_NAMEMANGLE.h.template > /dev/null 2>&1  cmp FC_NAMEMANGLE.h FC_NAMEMANGLE.h.template > /dev/null 2>&1
861  RETVAL=$?  RETVAL=$?
862  if test "x$RETVAL" != x0 ; then  if test "x$RETVAL" != x0 ; then
863      mv -f FC_NAMEMANGLE.h.template FC_NAMEMANGLE.h      mv -f FC_NAMEMANGLE.h.template FC_NAMEMANGLE.h
864  fi  fi
865    rm -f genmake_t*
866    
867    
868  printf "\n===  Setting defaults  ===\n"  printf "\n===  Setting defaults  ===\n"

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.22