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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
# Auto checker script for Scilab Textbook Companion
# http://scilab.in/Textbook_Companion_Project
# Original author: Lavitha Pereira, Sachin
# This file is part of tbc-auto-checker.
# tbc-auto-checker 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
# any later version.
# tbc-auto-checker 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 tbc-auto-checker. If not, see <http://www.gnu.org/licenses/>.
# NOTE: scilab version 5.4.0 or higher is recommended.
# Set your scilab path here
SCI_PATH="scilab-adv-cli"
# set where to store graph images
SCI_GRAPH_PATH="${HOME}/Downloads/tbc_graphs"
echo "Hello $USER, Welcome to automatic code check for Scilab textbook companion."
echo "The Date & Time is:" `date`
echo ""
SAVEIFS=$IFS # save value of IFS, if any
IFS=$(echo -en "\n\b\:\,") # define Internal Field Seperator(for
# directory names with spaces)
# cleaning
# Remove previous graphs
if [ -d "${SCI_GRAPH_PATH}" -a ! -h "${SCI_GRAPH_PATH}" ];
then
rm -rvf "${SCI_GRAPH_PATH}"
else
echo "No previous graphs found."
fi
rm -rvf *.log # remove previous log files
function scan_sce_for_errors() {
# Generate output log, error log of both text and graphical based output
# also generate graphs(currently only plots graphs which has plot*(*) function)
unzip $1 # unzip file
wait
ZIPFILE=$2
#find /$ZIPFILE/DEPENDENCIES/ -iname '*.sci' -exec cp {} /PENDING/CH*/EX*/ \;
# make a list of all .sce file(with complete path). Exclude
# scanning 'DEPENDENCIES' DIR
# That awk command says the field separator FS is set to /; this
# affects the way it reads fields. The output field separator OFS
# is set to "."; this affects the way it prints records. This is
# intentionally done so that 'cut' will take "." as a field
# Seperator during final sort operation. The next statement says
# print the last column (NF is the number of fields in the record,
# so it also happens to be the index of the last field) as well as
# the whole record ($0 is the whole record); it will print them
# with the OFS between them. Then the list is sorted, treating _
# as the field separator - since we have the filename first in the
# record, it will sort by that. Then the cut prints only fields 3
# through the end, again treating "." as the field separator.
SCE_FILE_LIST=$(find ${ZIPFILE} -type f -iname "*.sce" -o -iname "*.sci" ! \
-path "*/DEPENDENCIES*" | \
awk -vFS=/ -vOFS="." '{print $NF,$0}' | \
sed 's/^[[:upper:]]*//g' | \
sed 's/^[[:lower:]]*//g' | \
sort -n -t _ -k1 -k2 | cut -d"." -f3-)
SCE_FILE_COUNT=$(echo "${SCE_FILE_LIST}" | wc -l)
echo -e "Total number of .sce files(without counting DEPENDENCIES directory): ${SCE_FILE_COUNT}\n" >> ./output_${ZIPFILE}.log
# make directory for storing graphs(each dir will be named after a book)
mkdir -p ${SCI_GRAPH_PATH}/${ZIPFILE}
for sce_file in ${SCE_FILE_LIST};
do
#CAT_FILE=$(egrep -r "plot\S[0-9]?[d]?[0-9]?[(]*[)]*" ${sce_file})
CAT_FILE=$(egrep -r "subplot\S[0-9]?[d]?[0-9]?[(][)]*|clf\S[0-9]?[d]?[0-9]?[(][)]|plot\S[0-9]?[d]?[0-9]?[(][)]|gca\S[0-9]?[d]?[0-9]?[(][)]|gcf\S[0-9]?[d]?[0-9]?[(][)]*|figure|plot|plot2d|plot3d" ${sce_file})
#echo ${CAT_FILE}
if [ -z "${CAT_FILE}" ];
then
BASE_FILE_NAME=$(basename ${sce_file} .sce)
echo "--------- Text output file --------------"
echo "------------- ${sce_file} --------------"
echo "" >> ${sce_file}
echo "exit();" >> ${sce_file}
sed -i '1s/^/mode(2);/' ${sce_file}
sed -i '1s/^/errcatch(-1,"stop");/' ${sce_file}
sed -i 's/xdel(winsid());//g' ${sce_file}
sed -i 's/clc()//g' ${sce_file}
sed -i 's/clc//g' ${sce_file}
sed -i 's/clc,//g' ${sce_file}
sed -i 's/clc();//g' ${sce_file}
sed -i 's/close;//g' ${sce_file}
sed -i 's/close();//g' ${sce_file}
sed -i 's/close()//g' ${sce_file}
sed -i 's/close//g' ${sce_file}
sed -i 's/clear\ all//g' ${sce_file} # Trying to trap all type of clear functions and remove them
sed -i 's/clear\ all;//g' ${sce_file}
sed -i 's/clear\ all,//g' ${sce_file}
sed -i 's/clear//g' ${sce_file}
sed -i 's/clear()//g' ${sce_file}
sed -i 's/clear();//g' ${sce_file}
sed -i 's/clear(),//g' ${sce_file}
sed -i 's/clf()//g' ${sce_file}
sed -i 's/clf();//g' ${sce_file}
sed -i 's/clf;//g' ${sce_file}
# run command
OUTPUT=` timeout 5 ${SCI_PATH} -nb -nwni -f ${sce_file}`
echo $OUTPUT
if [[ "${OUTPUT}" =~ "!--error" ]];
then
echo "ERROR: ${sce_file}" >> ./error_${ZIPFILE}.log
echo "${OUTPUT}" >> ./error_${ZIPFILE}.log
else
echo "################# ${sce_file} #####################" >> ./output_${ZIPFILE}.log
echo "${OUTPUT}" >> ./output_${ZIPFILE}.log
fi
unset OUTPUT
unset BASE_FILE_NAME
else
echo "-------- Graph file -----------"
echo "--------${sce_file}------------"
echo "" >> ${sce_file}
BASE_FILE_NAME=$(basename ${sce_file} .sce)
# change path for storing graph image file
echo "xinit('${SCI_GRAPH_PATH}/${ZIPFILE}/${BASE_FILE_NAME}');xend();exit();" >> ${sce_file}
sed -i '1s/^/mode(2);errcatch(-1,"stop");driver("GIF");/' ${sce_file}
sed -i 's/xdel(winsid());//g' ${sce_file}
sed -i 's/clc()//g' ${sce_file}
sed -i 's/close;//g' ${sce_file}
sed -i 's/clf;//g' ${sce_file}
# run command
OUTPUT=`timeout 5 ${SCI_PATH} -nb -nogui -f ${sce_file}`
echo ${OUTPUT}
if [[ "${OUTPUT}" =~ "error" ]];
then
echo "ERROR: ${sce_file}" >> ./error_graph_${ZIPFILE}.log
echo "${OUTPUT}" >> ./error_graph_${ZIPFILE}.log
else
echo "###################### ${sce_file} ###################" >> ./output_graph_${ZIPFILE}.log
echo "${OUTPUT}" >> ./output_graph_${ZIPFILE}.log
fi
unset OUTPUT
unset BASE_FILE_NAME
fi
done
}
function remove_previous_dirs_and_unzip(){
# remove any previous directories and unzip files
# echo $1 exist
ZIP_DIR=$(basename $1 .zip)
# echo ${ZIP_DIR}
if [ -d "${ZIP_DIR}" -a ! -h "${ZIP_DIR}" ];
# file is a directory(true) and is not a symbolic link
then
# echo ${ZIP_DIR}
rm -rvf "${ZIP_DIR}"
wait
scan_sce_for_errors "$1" "${ZIP_DIR}" # call function to generate output
else
echo Directory: "${ZIP_DIR}" does not exist!!
scan_sce_for_errors "$1" "${ZIP_DIR}" # call function to generate output
fi
}
# make a list of .zip files
if [ -e "$(find . -type f -iname *.zip)" ];
then
ZIP_FILE_LIST=$(ls -1 *.zip)
for ZIP_FILE in ${ZIP_FILE_LIST}:
do
# loop through the list
remove_previous_dirs_and_unzip "${ZIP_FILE}"
done
else
echo "This Directory does not contains any ZIP files"
echo "Please copy ZIP file(s) inside this directory."
exit 1
fi
IFS=$SAVEIFS
# restore value of IFS
#----end of auto.sh----#
|
