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
|
#!/bin/sh
# used by the libload command in hoc to find an instance of a procedure,
# function, or template
# uncomment following line for use with DOS
#NEURONHOME=`d2uenv NEURONHOME`
if [ $TEMP ] ; then
tmpdir=$TEMP
else
tmpdir="/tmp"
fi
curdir=`pwd`
names=$tmpdir/oc"$3".hl
if [ ! -f $names ] ; then
paths=". $HOC_LIBRARY_PATH $NEURONHOME/lib/hoc"
spaths=`echo "$paths" | sed 's/:/ /g'`
for p in $spaths
do
#for DOS comment out the egrep and uncomment the grep line
egrep '^func|^proc|^begintemplate' $p/*.oc $p/*.hoc >> $names 2>/dev/null
# grep -s '^func|^proc|^begintemplate' $p/\*.oc $p/\*.hoc >> $names
done
fi
if [ "$1" = "begintemplate" ] ; then
file=`sed -n "/:$1 $2\$/ {
s/:$1 $2.*//p
q
}" $names`
else
file=`sed -n "/:$1 $2 *()/ {
s/:$1 $2.*//p
q
}" $names`
fi
if [ -z "$file" ] ; then
exit 1
fi
echo $file
exit 0
|
