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