The R Project SVN R

Rev

Rev 46832 | Rev 47442 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46832 Rev 46994
Line 19... Line 19...
19 
## General Public License for more details.
 19 
## General Public License for more details.
20 
##
 20 
##
21 
## A copy of the GNU General Public License is available at
 21 
## A copy of the GNU General Public License is available at
22 
## http://www.r-project.org/Licenses/
 22 
## http://www.r-project.org/Licenses/
23 
 
 23 
 
24 
revision='$Rev: 46832 $'
 24 
revision='$Rev: 46994 $'
25 
version=`set - ${revision}; echo ${2}`
 25 
version=`set - ${revision}; echo ${2}`
26 
version="R front-end script to f2c ${version}
 26 
version="R front-end script to f2c ${version}
27 
 
 27 
 
28 
Copyright (C) 2002-5 The R Core Development Team.
 28 
Copyright (C) 2002-5 The R Core Development Team.
29 
This is free software; see the GNU General Public License version 2
 29 
This is free software; see the GNU General Public License version 2
Line 47... Line 47...
47 
: ${F2CLIBS='-lf2c'}
 47 
: ${F2CLIBS='-lf2c'}
48 
: ${CC='cc'}
 48 
: ${CC='cc'}
49 
: ${CPP='cpp'}
 49 
: ${CPP='cpp'}
50 
CFLAGS=
 50 
CFLAGS=
51 
 
 51 
 
52 
##
52 
##
53 
rc=0
 53 
rc=0
54 
tmp_stderr_file=${TMPDIR-/tmp}/f77_stderr.${$}
 54 
tmp_stderr_file=${TMPDIR-/tmp}/f77_stderr.${$}
55 
trap "rm -f ${tmp_stderr_file}; exit \$rc" 0
 55 
trap "rm -f ${tmp_stderr_file}; exit \$rc" 0
56 
 
 56 
 
57 
opt_c=no
 57 
opt_c=no
Line 111... Line 111...
111 
	    ;;
 111 
	    ;;
112 
	*.F)
 112 
	*.F)
113 
	    b=`basename ${f} .F`
 113 
	    b=`basename ${f} .F`
114 
	    ${CPP} $1 >$b.i
 114 
	    ${CPP} $1 >$b.i
115 
	    rc=$?
 115 
	    rc=$?
116 
	    case $rc in
116 
	    case $rc in
117 
		0)
 117 
		0)
118 
		    ${verbose} ${F2C} ${F2CFLAGS} <$b.i >$b.c
 118 
		    ${verbose} ${F2C} ${F2CFLAGS} <$b.i >$b.c
119 
		    ${F2C} ${F2CFLAGS} <$b.i >$b.c
 119 
		    ${F2C} ${F2CFLAGS} <$b.i >$b.c
120 
		    rc=$?
 120 
		    rc=$?
121 
		    ;;
 121 
		    ;;