Subversion Repositories wimsdev

Rev

Rev 20 | Rev 7357 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 170
Line 16... Line 16...
16 
    ($(reply$i)=?????? and $(replytype$i) iswordof menu)
 16 
    ($(reply$i)=?????? and $(replytype$i) iswordof menu)
17 
   error=empty_data
 17 
   error=empty_data
18 
   !exit
 18 
   !exit
19 
  !endif
 19 
  !endif
20 
  m_reply$i=$(reply$i)
 20 
  m_reply$i=$(reply$i)
- 
 
 21 
  !read oef/screply.proc
21 
  !default replytype$i=default
 22 
  !default replytype$i=default
22 
  tt=!word 1 of $(replygood$i)
 23 
  tt=!word 1 of $(replygood$i)
23 
  	# analyzed reply
 24 
  	# analyzed reply
24 
  !if $tt=?analyze
 25 
  !if $tt=?analyze
25 
   t_=!rows2lines $(replygood$i)
 26 
   t_=!rows2lines $(replygood$i)
Line 27... Line 28...
27 
   !read oef/ans.proc $i nocompare
 28 
   !read oef/ans.proc $i nocompare
28 
   !if $error!=$empty
 29 
   !if $error!=$empty
29 
    !exit
 30 
    !exit
30 
   !endif
 31 
   !endif
31 
   !default m_reply$i=$(reply$i)
 32 
   !default m_reply$i=$(reply$i)
- 
 
 33 
   !read oef/screply.proc
32 
   val$t_=$(reply$i)
 34 
   val$t_=$(reply$i)
33 
   !if NaN isin $test
 35 
   !if NaN isin $test
34 
    !goto badans
 36 
    !goto badans
35 
   !endif
 37 
   !endif
36 
   !goto cont
 38 
   !goto cont
37 
  !endif
 39 
  !endif
38 
  !read oef/ans.proc $i
 40 
  !read oef/ans.proc $i
39 
  !default m_reply$i=$(reply$i)
 41 
  !default m_reply$i=$(reply$i)
- 
 
 42 
  !read oef/screply.proc
40 
  !if bad isin $Test
 43 
  !if bad isin $Test
41 
   error=bad_exo
 44 
   error=bad_exo
42 
   !advance reply_cnt
 45 
   !advance reply_cnt
43 
   status=
 46 
   status=
44 
   !exit
 47 
   !exit