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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#! /bin/sh
# This program is granted to the public domain
# 2003-01-03 Paul Kienzle <pkienzle@users.sf.net>
# * eliminate sed --- use direct string interpolation for variables
# * define both the C and fortran names for mexFunction in the oct-file.
# 2001-06-20 Paul Kienzle <pkienzle@users.sf.net>
# * eliminate $(arg:0:1) since it is not available in all sh versions
# 2001-09-20 Paul Kienzle <pkienzle@users.sf.net>
# * use config-like syntax to set the name of mkoctfile and the path to mex
test $# -lt 1 && echo usage: mex2oct -options file.c && exit 1
first=""
for arg in $*; do
case "$arg" in -c) compileonly=1 ;; -*) ;; *) first="$arg"; break ;; esac
done
if test -z "$first" ; then
mkoctfile -Doctave_idx_type=int -DHAVE_OCTAVE_21 -v $*
exit
fi
if test -n "$compileonly" ; then
set -x
mkoctfile -Doctave_idx_type=int -DHAVE_OCTAVE_21 -v -I/usr/lib/octave/2.1.73/site/oct/i486-pc-linux-gnu/octave-forge $*
exit
else
echo building $first
fi
# default the name of the octave function from the first filename
dir=`dirname $first`
first=`basename $first`
#echo "first= $first"
ext=`echo $first | sed 's;.*\.;.;g'`
#echo "ext= $ext"
name=`basename $first $ext`
#echo "name=$name ext=$ext"
case "$ext" in
f*|F*)
invoke=Fortran_mex
otherfn=mexFunction
;;
*)
invoke=C_mex
otherfn="F77_FUNC(mexfunction,MEXFUNCTION)"
;;
esac
# search for a .m file which will be used for the help string
# in the mex function.
if test -f $dir/$name.m ; then
mfile=$dir/$name.m
elif test -f ./$name.m ; then
mfile=./$name.m
elif test -f $dir/../../../Psychtoolbox/PsychBasic/$name.m ; then
mfile=$dir/../../../Psychtoolbox/PsychBasic/$name.m
else
mfile=""
fi
cat <<EOF > mex_$name.cc
#include <octave/oct.h>
extern "C" {
// mex.cc names both mexFunction (c) and MEXFUNCTION (Fortran)
// but the mex file only defines one of them, so define the other
// here just to keep the linker happy, but don't ever call it.
void $otherfn() {}
const char *mexFunctionName = "$name";
} ;
DEFUN_DLD($name, args, nargout,
EOF
if test "X$mfile" = "X" ; then
cat <<EOF >> mex_$name.cc
"\
$name not directly documented. Try the following:\n\
type(file_in_loadpath('$name.m'))\n\
")
EOF
else
gawk 'BEGIN{print "\"\\";printing=0;}
/^[ \t]*[%#]/ {printing=1;
gsub(/^[ \t]*[%#]*/,"");
gsub(/\\/,"\\\\");
gsub(/"/,"\\\"");
print $0 "\\n\\"; next}
{if (printing) exit;}
END{print "\")"}' \
$mfile >> mex_$name.cc
fi
cat <<EOF >> mex_$name.cc
{
octave_value_list $invoke(const octave_value_list &, const int);
return $invoke(args, nargout);
}
EOF
if test -f "Octave/mex.o" ; then
MEXPATH="Octave"
else
MEXPATH="/usr/lib/octave/2.1.73/site/oct/i486-pc-linux-gnu/octave-forge"
fi
set -x
./mkoctfile -Doctave_idx_type=int -DHAVE_OCTAVE_21 -v -o $name.oct mex_$name.cc $MEXPATH/mex.o -I$MEXPATH $*
rm mex_$name.o
rm mex_$name.cc
|
