Subversion Repositories wimsdev

Rev

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

Rev 8409 Rev 12490
Line 1... Line 1...
1 
!if $wims_read_parm!=$empty
 1 
!if $wims_read_parm!=$empty
2 
 !set parms=$wims_read_parm
 2 
  !set parms=$wims_read_parm
3 
 !set parms=!replace internal $ $ by $\
 3 
  !set parms=!replace internal $        $ by $\
4 
$ in $parms
 4 
$ in $parms
5 
 !set size=!line 1 of $parms
 5 
  !set size=!line 1 of $parms
6 
 !distribute items $size into sx,sy
 6 
  !distribute items $size into sx,sy
7 
 !set ppm=!line 2 to -1 of $parms
 7 
  !set ppm=!line 2 to -1 of $parms
8 
!else
 8 
!else
9 
 !if $parms=$empty
 9 
  !if $parms=$empty
10 
  !exit
 10 
    !exit
11 
 !endif
 11 
  !endif
12 
 !distribute items $parms into sx,sy
 12 
  !distribute items $parms into sx,sy
13 
 !set ppm=!item 3 to -1 of $parms
 13 
  !set ppm=!item 3 to -1 of $parms
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!set ppm=!replace internal $    $ by $\
 16 
!set ppm=!replace internal $    $ by $\
17 
$ in $ppm
 17 
$ in $ppm
18 
 
 18 
 
19 
!read canvasimagedir.phtml $ppm
 19 
!read canvasimagedir.phtml $ppm
20 
!set ppm=$canvas_ppm
 20 
!set ppm=$canvas_ppm
21 
 
 21 
 
22 
!for pm in ppm, sx, sy
 22 
!for pm in ppm, sx, sy
23 
 !set $pm=!slashsubst $($pm)
 23 
  !set $pm=!slashsubst $($pm)
24 
!next pp
 24 
!next pp
25 
 
 25 
 
26 
!set pp=!trim $ppm
 26 
!set pp=!trim $ppm
27 
 
 27 
 
28 
!set pp=!line 1 to -1 of $pp
 28 
!set pp=!line 1 to -1 of $pp