Subversion Repositories wimsdev

Rev

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

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