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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
#! /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 > Octave/$name.cc
// This C++ file is the interface between GNU/Octave and Psychtoolbox
// module $name. It defines the entry-point function F$name and the online
// help for $name. The function itself (see bottom of file) is just a
// wrapper around octFunction(), the real command dispatcher defined in
// the PsychScriptingGlue.cc file.
// This file is autogenerated, please do not edit!
//
#ifdef PTBOCTAVE
#define PTBMODULE_$name
#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 >> Octave/$name.cc
"\
$name not directly documented. Try the following:\n\
type(file_in_loadpath('$name.m'))\n\
")
#endif
EOF
else
gawk 'BEGIN{print "\"\\";printing=0;}
/^[ \t]*[%#]/ {printing=1;
gsub(/^[ \t]*[%#]*/,"");
gsub(/\\/,"\\\\");
gsub(/"/,"\\\"");
print $0 "\\n\\"; next}
{if (printing) exit;}
END{print "\")"}' \
$mfile >> Octave/$name.cc
EOF
fi
cat <<EOF >> Octave/$name.cc
{
octave_value_list octFunction(const octave_value_list &, const int);
return octFunction(args, nargout);
}
#endif
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 -DPTBOCTAVE -v -o $name.oct -I$MEXPATH $*
|
