Subversion Repositories wimsdev

Rev

Rev 9480 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9480 Rev 12490
Line 3... Line 3...
3 
 job=read
 3 
 job=read
4 
 !changeto read.proc
 4 
 !changeto read.proc
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
!if $coderr1$coder1=$empty
 7 
!if $coderr1$coder1=$empty
8 
 !exit
 8 
  !exit
9 
!endif
 9 
!endif
10 
oldcode=!record 0 of $docdir/$doc/.code
 10 
oldcode=!record 0 of $docdir/$doc/.code
11 
oldcoder=!line 2 of $oldcode
 11 
oldcoder=!line 2 of $oldcode
12 
oldcoder=!word 1 of $oldcoder
 12 
oldcoder=!word 1 of $oldcoder
13 
oldcode=!line 1 of $oldcode
 13 
oldcode=!line 1 of $oldcode
14 
oldcode=!word 1 of $oldcode
 14 
oldcode=!word 1 of $oldcode
15 
 
 15 
 
16 
!if $coder1!=$empty
 16 
!if $coder1!=$empty
17 
 !if $oldcode!=$coder1
 17 
  !if $oldcode!=$coder1
18 
 error=bad_oldcode
 18 
  error=bad_oldcode
19 
 !exit
 19 
  !exit
20 
 !endif
 20 
  !endif
21 
 coder=!trim $coder
 21 
  coder=!trim $coder
22 
 coder2=!trim $coder2
 22 
  coder2=!trim $coder2
23 
 m1=!charcnt $coder
 23 
  m1=!charcnt $coder
24 
 m2=!charcnt $coder2
 24 
  m2=!charcnt $coder2
25 
 coder=!text select $namechars in $coder
 25 
  coder=!text select $namechars in $coder
26 
 coder2=!text select $namechars in $coder2
 26 
  coder2=!text select $namechars in $coder2
27 
 n1=!charcnt $coder
 27 
  n1=!charcnt $coder
28 
 n2=!charcnt $coder2
 28 
  n2=!charcnt $coder2
29 
 !if $m1!=$n1 or $m2!=$n2
 29 
  !if $m1!=$n1 or $m2!=$n2
30 
  error=bad_newcode
 30 
    error=bad_newcode
31 
  !exit
 31 
    !exit
32 
 !endif
 32 
  !endif
33 
 !if $coder!=$coder2
 33 
  !if $coder!=$coder2
34 
  error=code_discord
 34 
    error=code_discord
35 
  !exit
 35 
    !exit
36 
 !endif
 36 
  !endif
37 
 n=!charcnt $coder
 37 
  n=!charcnt $coder
38 
 !if $n<$codemin
 38 
  !if $n<$codemin
39 
  error=small_code
 39 
    error=small_code
40 
  !exit
 40 
    !exit
41 
 !endif
 41 
  !endif
42 
 !if $n>$codemax
 42 
  !if $n>$codemax
43 
  error=big_code
 43 
    error=big_code
44 
  !exit
 44 
    !exit
45 
 !endif
 45 
  !endif
46 
!endif
 46 
!endif
47 
 
 47 
 
48 
!if $coderr1!=$empty
 48 
!if $coderr1!=$empty
49 
 coderr=!trim $coderr
 49 
  coderr=!trim $coderr
50 
 coderr2=!trim $coderr2
 50 
  coderr2=!trim $coderr2
51 
 m1=!charcnt $coderr
 51 
  m1=!charcnt $coderr
52 
 m2=!charcnt $coderr2
 52 
  m2=!charcnt $coderr2
53 
 coderr=!text select $namechars in $coderr
 53 
  coderr=!text select $namechars in $coderr
54 
 coderr2=!text select $namechars in $coderr2
 54 
  coderr2=!text select $namechars in $coderr2
55 
 n1=!charcnt $coderr
 55 
  n1=!charcnt $coderr
56 
 n2=!charcnt $coderr2
 56 
  n2=!charcnt $coderr2
57 
 !if $m1!=$n1 or $m2!=$n2
 57 
  !if $m1!=$n1 or $m2!=$n2
58 
  error=bad_newcode
 58 
    error=bad_newcode
- 
 
 59 
    !exit
- 
 
 60 
  !endif
- 
 
 61 
  !if $coderr!=$coderr2
- 
 
 62 
    error=code_discord
- 
 
 63 
    !exit
- 
 
 64 
  !endif
- 
 
 65 
  n=!charcnt $coderr
- 
 
 66 
  !if $n<$codemin
- 
 
 67 
    error=small_code
59 
  !exit
 68 
  !exit
60 
 !endif
 69 
  !endif
61 
 !if $coderr!=$coderr2
 - 
 
62 
  error=code_discord
 - 
 
63 
  !exit
 - 
 
64 
 !endif
 - 
 
65 
 n=!charcnt $coderr
 - 
 
66 
 !if $n<$codemin
 - 
 
67 
  error=small_code
 - 
 
68 
 !exit
 - 
 
69 
 !endif
 - 
 
70 
 !if $n>$codemax
 70 
  !if $n>$codemax
71 
  error=big_code
 71 
    error=big_code
72 
  !exit
 72 
    !exit
73 
 !endif
 73 
  !endif
74 
!endif
 74 
!endif
75 
!default coderr=$oldcoder
 75 
!default coderr=$oldcoder
76 
!default coder=$oldcode
 76 
!default coder=$oldcode
77 
 
 77 
 
78 
!mexec scripts/setcode.sh
 78 
!mexec scripts/setcode.sh
79 
job=recode2
 79 
job=recode2
80 
 
 -