Subversion Repositories wimsdev

# Standardized number checker, sensible to m_environ.

# Input are numbers, linewise.

# Output are lines, in $out. `true' if true, `bad' if non-checkable.

I__=!nonempty lines $wims_read_parm

n__=!linecnt $I__

!reset out,p__

!distribute item integerp,ratnump,constantp into p_ZZ,p_QQ,p_RR

ch__=$(p_$m_environ)

!for i__=1 to $n__

  l__=!line $i__ of $I__

  l__=$maximasimp($l__)

  !if $m_environ notwordof ZZ QQ RR

    p__=!append line "bad"; to $p__

  !else

    p__=!append line $ch__($l__); to $p__

  !endif

!next i__

out__=!exec maxima $p__

!for i__=1 to $n__

  l__=!line $i__ of $out__

  !if $l__ notwordof true false

    l__=bad

  !endif

  out=!append line $l__ to $out

!next i__