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 
!if copy isin $ppm or imagefill isin $ppm
 18 
!if copy isin $ppm or imagefill isin $ppm or bgimage isin $ppm
19 
  !set line_cnt=!linecnt $ppm
 19 
  !set line_cnt=!linecnt $ppm
20 
  !for l_=1 to $line_cnt
 20 
  !for l_=1 to $line_cnt
21 
    !set line=!line $l_ of $ppm
 21 
    !set line=!line $l_ of $ppm
22 
    !if copy isin $line or imagefill isin $line
 22 
    !if copy isin $line or imagefill isin $line or bgimage isin $line
23 
      !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
24 
      !if / notin $im
 30 
      !if / notin $im
25 
        !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
26 
      !endif
 32 
      !endif
27 
    !endif
 33 
    !endif
28 
   !next
 34 
  !next
29 
!endif
 35 
!endif
30 
 
 36 
 
31 
!for pm in ppm, sx, sy
 37 
!for pm in ppm, sx, sy
32 
 !set $pm=!slashsubst $($pm)
 38 
 !set $pm=!slashsubst $($pm)
33 
!next pp
 39 
!next pp