Subversion Repositories wimsdev

Rev

Blame | Last modification | View Log | RSS feed

  1. !set canvas_ppm=$wims_read_parm
  2. !if $canvas_ppm=$empty
  3.   !exit
  4. !endif
  5. !if copy isin $canvas_ppm or imagefill isin $canvas_ppm or bgimage isin $canvas_ppm
  6.   !set line_cnt=!linecnt $canvas_ppm
  7.   !for l_=1 to $line_cnt
  8.     !set line=!line $l_ of $canvas_ppm
  9.     !if copy isin $line or imagefill isin $line or bgimage isin $line
  10.       !set im=!item -1 of $line
  11.       !if bgimage isin $line
  12.         !set im=!word -1 of $im
  13.         !set line=bgimage \filedir/$im
  14.       !else
  15.          !set line=$(line[1..-2]),\filedir/$im
  16.       !endif
  17.       !if / notin $im
  18.         !set canvas_ppm=!replace line number $l_ by $line in $canvas_ppm
  19.       !endif
  20.     !endif
  21.   !next
  22. !endif
  23.