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
31
32
33
34
35
|
#!/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 schsel zchsel gshsel gzhsel fydot2 fresd fjacd fsurf fsurfd fbutn interf lsqrsolvf lsqrsolvj'
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" >> $fout-temp$$ ;) done ;
files=`sort $fout-temp$$`
rm -f $fout-temp$$
touch $fout-temp$$
for i in $files
do ( echo "{\"$i\", (voidf) C2F($i)}," >> $fout-temp$$ ;) done ;
cat $fout-temp$$ >> $fout;
echo "{(char *) 0, (voidf) 0}};" >> $fout ;
done
rm -f $fout-temp$$
echo "/***********************************/" >> $fout
|
