Subversion Repositories wimsdev

Rev

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

Rev 8407 Rev 8408
Line 13... Line 13...
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 
 
 - 
 
19 
!if copy isin $ppm or imagefill isin $ppm
 18 
!if copy isin $ppm or imagefill isin $ppm or bgimage isin $ppm
20 
  !set line_cnt=!linecnt $ppm
 19 
  !set line_cnt=!linecnt $ppm
21 
  !for l_=1 to $line_cnt
 20 
  !for l_=1 to $line_cnt
22 
    !set line=!line $l_ of $ppm
 21 
    !set line=!line $l_ of $ppm
23 
    !if copy isin $line or imagefill isin $line
 22 
    !if copy isin $line or imagefill isin $line or bgimage isin $line
24 
      !set im=!item -1 of $line
 23 
      !set im=!item -1 of $line
- 
 
 24 
      !if bgimage isin $line
- 
 
 25 
        !set im=!word -1 of $im
- 
 
 26 
        !set line=bgimage \filedir/$im
- 
 
 27 
      !else
- 
 
 28 
         line=$(line[1..-2]),\filedir/$im
- 
 
 29 
      !endif
25 
      !if / notin $im
 30 
      !if / notin $im
26 
        !set ppm=!replace line number $l_ by $(line[1..-2]),\filedir/$im in $ppm
 31 
        !set ppm=!replace line number $l_ by $line in $ppm
27 
      !endif
 32 
      !endif
28 
    !endif
 33 
    !endif
29 
   !next
 34 
  !next
30 
!endif
 35 
!endif
31 
 
 36 
 
32 
!for pm in ppm, sx, sy
 37 
!for pm in ppm, sx, sy
33 
 !set $pm=!slashsubst $($pm)
 38 
 !set $pm=!slashsubst $($pm)
34 
!next pp
 39 
!next pp