File: meth3.proc

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (20 lines) | stat: -rw-r--r-- 407 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
!for t in context,result
  !if $(ask$t)>1 and $($(t)list)!=$empty
    rep=!trim $(rep$t)
    !if $rep=$empty or $rep<1
      error=empty_data
      !exit
    !endif
    N=!itemcnt $(sh$t)
    rep=$[floor($rep)]
    !if NaN isin $rep or $rep<1 or $rep>$N
      error=bad_data
      !exit
    !endif
    !if $rep!=$(good$t)
      error=bad_reply
      !advance penalty
      !exit
    !endif
  !endif
!next t