Rev 12348 | Rev 13699 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!distribute words $wims_read_parm into ans_1, ans_2
ans_type=$(replytype$ans_1)
!if symtext iswordof $(replyoption$ans_1)
ans_style=!defof anstyle in anstype/$ans_type.input
!if symtext iswordof $ans_style
ans_type=symtext
!endif
!endif
ans_w=$[$(replyweight$ans_1)]
!if $ans_w!=$empty and NaN notin $ans_w and Inf notin $ans_w and \
$ans_w>0 and $ans_w!=1 and nocompare notwordof $ans_2
ans_got=$freegot
prec_got=$precgood
weightadjust=$[$weightadjust+$ans_w-1]
!read anstype/$ans_type $ans_2
ans_this=$[$freegot-$ans_got]
prec_this=$[$precgood-$prec_got]
!if $prec_this>0
ans_this=$[$precweight*$prec_this]
!endif
gotadjust=$[$gotadjust+$ans_this*($ans_w-1)]
!else
!read anstype/$ans_type $ans_2
!endif