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 |