#!/bin/sh
# scilinktab name file
# name : name of the table 
# file : the file which contains the list of routines 
# Output FTables/name.h

links='fydot ffeval fres fadda fj2 fjac dgetx dgety fcoldg fcolg fcolf fcoldf fcolgu fintg fint2d fint3d fsolvf fsolvj foptim fschur fydot2 fresd fjacd fsurf fsurfd fbutn interf'

fout=FTables.h ; rm -f $fout 
echo "/******* Please do not edit *************/" >> $fout 

for f in $links 
do 
	echo "/**************** $f ***************/" >> $fout
   	files=` grep "${f}_list=" Flist | sed -e "s/${f}_list=//" `
	echo files : $files
	for i in $files 	
		do ( echo "extern void C2F($i)(ARGS_$f);"  >> $fout ;) done
	echo " " >> $fout 
	echo "FTAB FTab_$f[] ={" >> $fout
	rm -f $fout-temp$$
	touch $fout-temp$$
	for i in $files 
		do  (  echo "{\"$i\", (voidf)  C2F($i)}," >> $fout-temp$$ ;) done ;
	sort $fout-temp$$ >> $fout; 
	echo "{(char *) 0, (voidf) 0}};" >> $fout ;
done 
rm -f $fout-temp$$
echo "/***********************************/" >> $fout 

