Rev 7680 | Rev 8907 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !distribute words $wims_read_parm into ans_1, ans_2 |
| 2 | |||
| 3 | ans_type=$(replytype$ans_1) |
||
| 4 | !if symtext iswordof $(replyoption$ans_1) |
||
| 5 | ans_style=!defof anstyle in anstype/$ans_type.input |
||
| 6 | !if symtext iswordof $ans_style |
||
| 7 | ans_type=symtext |
||
| 8 | !endif |
||
| 9 | !endif |
||
| 10 | |||
| 11 | ans_w=$[$(replyweight$ans_1)] |
||
| 12 | !if $ans_w!=$empty and NaN notin $ans_w and Inf notin $ans_w and \ |
||
| 13 | $ans_w>0 and $ans_w!=1 and nocompare notwordof $ans_2 |
||
| 14 | ans_got=$freegot |
||
| 8901 | bpr | 15 | prec_got=$precgood |
| 20 | reyssat | 16 | weightadjust=$[$weightadjust+$ans_w-1] |
| 17 | !read anstype/$ans_type $ans_2 |
||
| 18 | ans_this=$[$freegot-$ans_got] |
||
| 8901 | bpr | 19 | prec_this=$[$precgood-$prec_got] |
| 20 | !if $prec_this>0 |
||
| 21 | ans_this=$[$precweight*$prec_this] |
||
| 22 | !endif |
||
| 20 | reyssat | 23 | gotadjust=$[$gotadjust+$ans_this*($ans_w-1)] |
| 24 | !else |
||
| 25 | !read anstype/$ans_type $ans_2 |
||
| 26 | !endif |