Rev 16113 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $method=$empty or $method=- |
16113 | bpr | 2 | error=empty_data |
3 | !exit |
||
20 | reyssat | 4 | !endif |
5 | |||
6 | !if $method notitemof $mthlist,prf/cleanhyp |
||
16113 | bpr | 7 | error=illegal_method |
8 | !advance penalty |
||
9 | !exit |
||
20 | reyssat | 10 | !endif |
11 | |||
12 | meth=$method |
||
13 | !reset methtit |
||
17045 | bpr | 14 | !read deduc/meth/$modu_lang/$meth.def |
20 | reyssat | 15 | !if $methtit=$empty |
16113 | bpr | 16 | error=bad_method |
17 | !exit |
||
20 | reyssat | 18 | !endif |
19 | !if $methenv!=$empty and $m_environ notwordof $methenv |
||
16113 | bpr | 20 | error=bad_env |
21 | !exit |
||
20 | reyssat | 22 | !endif |
7210 | bpr | 23 | |
20 | reyssat | 24 | !if $error1!=$empty |
16113 | bpr | 25 | error=$error1 |
26 | !if $penalty1>0 |
||
27 | penalty=$[$penalty+$penalty1] |
||
28 | !endif |
||
29 | !read deduc/methreset erase |
||
30 | !exit |
||
20 | reyssat | 31 | !endif |
32 | |||
33 | methparmcnt=!itemcnt $methparmtype |
||
34 | !for i=1 to $methparmcnt |
||
16113 | bpr | 35 | l=!item $i of $methparmtype |
36 | a=!word 1 of $l |
||
37 | b=!word 2 to -1 of $l |
||
8167 | bpr | 38 | |
16113 | bpr | 39 | !if $a=parm |
40 | mtobj$i=!exec mathexp extract $b\ |
||
20 | reyssat | 41 | $objects |
16113 | bpr | 42 | !if ERROR isin $(mtobj$i) |
43 | badmeth=$methtit |
||
44 | error=Fail |
||
45 | !read deduc/methreset erase |
||
46 | !exit |
||
47 | !endif |
||
48 | !if $objects=$empty or ($(mtobj$i)=$empty and $i notitemof $methparmrelax) |
||
49 | badmeth=$methtit |
||
50 | error=no_object |
||
51 | !read deduc/methreset erase |
||
52 | !advance penalty |
||
53 | !exit |
||
54 | !endif |
||
55 | !else |
||
56 | mtobj$i= |
||
20 | reyssat | 57 | !endif |
58 | !next i |