The R Project SVN R

#!/bin/sh

# This code assembles the table of statically loaded C and Fortran
# code which is to be accessed via .C and .Fortran calls.

ROUTINES="appl/ROUTINES"

sed '
s/F77_SUBROUTINE(\(.*\))/int \1_();/
s/C_FUNCTION(\(.*\))/int \1();/
' ${ROUTINES} > /tmp/ForeignDecl.h

if test ! -f include/ForeignDecl.h
then
    cp /tmp/ForeignDecl.h include/ForeignDecl.h
else
    if diff /tmp/ForeignDecl.h include/ForeignDecl.h
    then
    :
    else
        cp /tmp/ForeignDecl.h include/ForeignDecl.h
    fi
fi


sed '
s/F77_SUBROUTINE(\(.*\))/   { "\1_",    \1_},/
s/C_FUNCTION(\(.*\))/   { "\1", \1 },/
' ${ROUTINES} > /tmp/ForeignTab.h

if test ! -f include/ForeignTab.h
then
    cp /tmp/ForeignTab.h include/ForeignTab.h
else
    if diff /tmp/ForeignTab.h include/ForeignTab.h
    then
    :
    else
        cp /tmp/ForeignTab.h include/ForeignTab.h
    fi
fi
rm -f /tmp/ForeignTab.h /tmp/ForeignDecl.h