1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/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
|
