proc parseScorerOutputLine { aline studentVar } {
upvar $studentVar student
set student(stunum) [lindex $aline 0]
set aline [string range $aline 40 end]
set length [llength [split [lrange $aline 3 end] ,] ]
set student(response) [lrange [split [lrange $aline 3 end] ,] 0 [expr {$length-2}]]
set student(question) [lindex [lindex [split $aline ,] end] 0]
# parray student
}
proc getQuestions { num pid set questnum questionVar } {
upvar $questionVar question
global gCapaConfig
catch {unset question}
set result [exec $gCapaConfig($num.answers_command) $pid {} 1 $set]
set capture [set i 0]
puts "$questnum:$i"
foreach line [split $result "\n"] {
switch [lindex [split $line :] 0] {
BQES {
incr i
if { [lsearch $questnum $i] != -1 } { set capture 1 }
}
EQES { set capture 0 }
ANS {
if { [lsearch $questnum $i] != -1 } {
set question($i.ans) [split [lindex [split $line :] 1] {} ]
}
}
default { if { $capture } { lappend question($i.text) $line } }
}
}
foreach quest $questnum {
foreach line $question($quest.text) {
if { [regexp {^ *([A-Z])\)(.*)} $line temp letter rest] } {
set question($quest.$letter) $rest
if { [lsearch $question($quest.ans) $letter] != -1} {
set question($quest.correct.$letter) 1
} else {
set question($quest.correct.$letter) 0
}
}
}
}
parray question
}
#FIXME not parsing all student responses?
proc getStudentResponses { responses which questionVar responseArVar } {
upvar $questionVar question $responseArVar responseAr
set i 0
foreach response [split $responses {}] {
if { $response == "" || $response == " "} { continue }
incr i
if { [catch {incr responseAr($which.$question($which.$response))}] } {
if {[catch {set responseAr($which.$question($which.$response)) 1}]} {
set responseAr($which.Illegal\ Bubble) 1
}
}
}
puts $i
}
set fileId [open "records/scorer.output.1" r]
set setId 1
set questionNum "1"
source /nfs/capa1/capadvt/CAPA_SRC/5.0/GUITools/common.tcl
set aline [gets $fileId]
set aline [gets $fileId]
parseCapaConfig 1 .
set k 0
while { ! [eof $fileId] } {
parseScorerOutputLine $aline student
getQuestions 1 $student(question) $setId $questionNum question
foreach which $questionNum {
getStudentResponses [lindex $student(response) [expr $which-1]] $which question \
responses
}
foreach which $questionNum {
foreach elem [array names responses "$which.*"] {
puts -nonewline "$responses($elem) "
}
}
incr k
if { $k%20 == 0 } { parray responses }
puts ""
set aline [gets $fileId]
}
parray responses
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>