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