Subversion Repositories wimsdev

Rev

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