Return to analyzeScorer.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

Annotation of capa/capa51/GUITools/analyzeScorer.tcl, revision 1.1

1.1     ! albertel    1: proc parseScorerOutputLine { aline studentVar } {
        !             2:     upvar $studentVar student
        !             3:     set student(stunum) [lindex $aline 0]
        !             4:     set aline [string range $aline 40 end]
        !             5:     set length  [llength [split [lrange $aline 3 end] ,] ]
        !             6:     set student(response) [lrange [split [lrange $aline 3 end] ,] 0 [expr {$length-2}]]
        !             7:     set student(question) [lindex [lindex [split $aline ,] end] 0]
        !             8: #    parray student
        !             9: }
        !            10: 
        !            11: proc getQuestions { num pid set questnum questionVar } {
        !            12:     upvar $questionVar question
        !            13:     global gCapaConfig
        !            14:     catch {unset question}
        !            15:     set result [exec $gCapaConfig($num.answers_command) $pid {} 1 $set]
        !            16:     set capture [set i 0]
        !            17:     puts "$questnum:$i"
        !            18:     foreach line [split $result "\n"] {
        !            19: 	switch [lindex [split $line :] 0] {
        !            20: 	    BQES {
        !            21: 		incr i
        !            22: 		if { [lsearch $questnum $i] != -1 } { set capture 1 }
        !            23: 	    }
        !            24: 	    EQES { set capture 0 }
        !            25: 	    ANS {
        !            26: 		if { [lsearch $questnum $i] != -1 } { 
        !            27: 		    set question($i.ans) [split [lindex [split $line :] 1] {} ]
        !            28: 		}
        !            29: 	    }
        !            30: 	    default { if { $capture } { lappend question($i.text) $line } }
        !            31: 	}
        !            32:     }
        !            33:     foreach quest $questnum {
        !            34: 	foreach line $question($quest.text) {
        !            35: 	    if { [regexp {^ *([A-Z])\)(.*)} $line temp letter rest] } {
        !            36: 		set question($quest.$letter) $rest
        !            37: 		if { [lsearch $question($quest.ans) $letter] != -1} {
        !            38: 		    set question($quest.correct.$letter) 1
        !            39: 		} else {
        !            40: 		    set question($quest.correct.$letter) 0
        !            41: 		}
        !            42: 	    }
        !            43: 	}
        !            44:     }
        !            45:     parray question
        !            46: }
        !            47: 
        !            48: #FIXME not parsing all student responses?
        !            49: proc getStudentResponses { responses which questionVar responseArVar } {
        !            50:     upvar $questionVar question $responseArVar responseAr
        !            51:     set i 0
        !            52:     foreach response [split $responses {}] {
        !            53: 	if { $response == "" || $response == " "} { continue } 
        !            54: 	incr i
        !            55: 	if { [catch {incr responseAr($which.$question($which.$response))}] } {
        !            56: 	    if {[catch {set responseAr($which.$question($which.$response)) 1}]} {
        !            57:                 set responseAr($which.Illegal\ Bubble) 1
        !            58:             }
        !            59: 	}
        !            60:     }
        !            61:     puts $i
        !            62: }
        !            63: 
        !            64: set fileId [open "records/scorer.output.1" r]
        !            65: set setId 1
        !            66: set questionNum "1"
        !            67: source /nfs/capa1/capadvt/CAPA_SRC/5.0/GUITools/common.tcl
        !            68: set aline [gets $fileId]
        !            69: set aline [gets $fileId]
        !            70: parseCapaConfig 1 .
        !            71: set k 0
        !            72: while { ! [eof $fileId] } {
        !            73:     parseScorerOutputLine $aline student
        !            74:     getQuestions 1 $student(question) $setId $questionNum question
        !            75:     foreach which $questionNum {
        !            76: 	getStudentResponses [lindex $student(response) [expr $which-1]] $which question \
        !            77: 	    responses
        !            78:     }
        !            79:     foreach which $questionNum {
        !            80: 	foreach elem [array names responses "$which.*"] {
        !            81: 	    puts -nonewline "$responses($elem) "
        !            82: 	}
        !            83:     }
        !            84:    incr k
        !            85:     if { $k%20 == 0 } { parray responses }
        !            86:     puts ""
        !            87:     set aline [gets $fileId]
        !            88: }
        !            89: parray responses