Subversion Repositories wimsdev

Rev

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

Rev 11986 Rev 13798
Line 1... Line 1...
1 
!if $wims_read_parm=$empty
 1 
!if $wims_read_parm=$empty
2 
 !exit
 2 
  !exit
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
!set pp=!trim $wims_read_parm
 5 
!set pp=!trim $wims_read_parm
6 
!set pp=!replace internal \\ by ///?/?/?/// in $pp
 6 
!set pp=!replace internal \\ by ///?/?/?/// in $pp
7 
!set pp=!replace internal \ by $$m_ in $pp
 7 
!set pp=!replace internal \ by $$m_ in $pp
8 
!set pp=!replace internal ///?/?/?/// by \\ in $pp
 8 
!set pp=!replace internal ///?/?/?/// by \\ in $pp
- 
 
 9 
!set pp=!translate internal $   $ to $\
- 
 
 10 
$ in $pp
9 
!set s_=!line 1 of $pp
 11 
!set s_=!line 1 of $pp
10 
 
 12 
 
11 
!set test=!text remove ,0123456789 in $s_
 13 
!set test=!text remove ,0123456789 in $s_
12 
!set testcnt=!itemcnt $s_
 14 
!set testcnt=!itemcnt $s_
13 
!if $test notsametext $empty or $s_=$empty or $testcnt!=2
 15 
!if $test notsametext $empty or $s_=$empty or $testcnt!=2
14 
  !exit
 16 
  !exit
15 
!endif
 17 
!endif
16 
 
 18 
 
17 
!set pp=!line 2 to -1 of $pp
 19 
!set pp=!line 2 to -1 of $pp
18 
!set pp=!translate internal $   $ to $\
 - 
 
19 
$ in $pp
 - 
 
20 
 
 20 
 
21 
!read canvasimagedir.phtml $pp
 21 
!read canvasimagedir.phtml $pp
22 
!set pp=!trim $canvas_ppm
 22 
!set pp=!trim $canvas_ppm
23 
 
 23 
 
24 
!set pp=!rows2lines $pp
 24 
!set pp=!rows2lines $pp