blob: a2a9373005d6afdd559cb887dfac43a2776746a2 (
plain)
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
|
#! /bin/sh
# © Copyright 2008 Randal A. Koene <randalk@netmorph.org>
#
# With design assistance from J. van Pelt & A. van Ooyen, and support
# from the Netherlands Organization for Scientific Research (NWO)
# Program Computational Life Sciences grant CLS2003 (635.100.005) and
# from the EC Marie Curie Research and Training Network (RTN)
# NEURoVERS-it 019247.
# This file is part of NETMORPH.
# NETMORPH is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# NETMORPH is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with NETMORPH. If not, see <http://www.gnu.org/licenses/>.
# extractparameters.sh
# Randal A. Koene, 20070508
#
# This script extracts valid commands from the NETMORPH source code.
if [ "$1" = "-h" ]; then
echo "extractparameters.sh [[-s] file-to-compare-with]"
echo ""
echo " If file-to-compare-with is empty then all parameter/model commands"
echo " are printed. Otherwise, only those that are not found in the"
echo " designated file are printed."
echo ""
echo " With -s, commands are shown side by side with the line within"
echo " the file, in which they appear."
exit
fi
if [ "$1" = "" ]; then
sed -n 's/^.*Specifies_Parameter(\([^)]*\)).*$/\1/p' *.cc *.hh | sort | uniq
exit
fi
commandnames=`sed -n 's/^.*Specifies_Parameter(\([^)]*\)).*$/\1/p' *.cc *.hh | sort | uniq`
if [ "$1" = "-s" -a "$2" != "" ]; then
for n in $commandnames; do
acommand=`echo $n | sed 's/^[^"]*"\([^"]*\)".*/\1/g'`
occurs=`grep "$acommand" $2`
if [ $? -eq 0 ]; then
echo "$acommand [$n]:"
printf "$occurs\n"
fi
done
exit
fi
if [ "$1" = "-s" -a "$2" == "" ]; then
echo "Syntax error: Parameter -s requires a file name parameter."
exit 1
fi
for n in $commandnames; do
acommand=`echo $n | sed 's/^[^"]*"\([^"]*\)".*/\1/g'`
occurs=`grep -c "$acommand" $1`
if [ $occurs -eq 0 ]; then
echo "$acommand [$n]"
fi
done
|