Subversion Repositories wimsdev

Rev

Rev 18472 | Blame | Compare with Previous | Last modification | View Log | RSS feed

option:symbols=" "

!if vector_left isin $(replyoption$i) or vector_right isin $(replyoption$i)
  !set vector_left_=!getopt vector_left in $(replyoption$i)
  !set vector_right_=!getopt vector_right in $(replyoption$i)
!endif

!default vector_left_=(
!default vector_right_=)
dd=!declosing $(reply$i)
reply$i=$vector_left_ $dd $vector_right_
!if ; isin $dd
 test=NaN
  !exit
!endif
m_reply$i=$dd
!if $wims_read_parm=nocompare
  !exit
!endif

good=!declosing $(replygood$i)
!if , notin $good
  good=!words2items $good
!endif
!if , notin $dd
  dd=!words2items $dd
!endif
replyGood$i=$vector_left_$good$vector_right_
n1=!itemcnt $good
n2=!itemcnt $dd

test=
!if $n1=$n2
  test=yes
  !for j=1 to $n1
    x_=!item $j of $good
    y_=!item $j of $dd
    !distribute item $[$x_],$[$y_] into x_,y_
    !if NaN isin $x_ or Inf isin $x_
      Test=bad $i
      !exit
    !endif
    !if NaN isin $y_ or Inf isin $y_
      test=NaN
      !exit
    !endif
    !ifval $x_!=$y_
      test=
    !endif
  !next j
!else
  badsize$i=true
!endif

!if $test=yes
  test=
  diareply$i=good
  !advance freegot
!else
  diareply$i=bad
!endif
!reset vector_left_ vector_right_

Generated by GNU Enscript 1.6.5.90.