Subversion Repositories wimsdev

Rev

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

Rev 8400 Rev 8404
Line 11... Line 11...
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 datamodule by modules/data in $ppm
 16 
!set ppm=!replace internal $    $ by $\
- 
 
 17 
$ in $ppm
- 
 
 18 
 
- 
 
 19 
!if copy isin $ppm
- 
 
 20 
  !set line_cnt=!linecnt $ppm
- 
 
 21 
  !for l_=1 to $line_cnt
- 
 
 22 
    !set line=!line $l_ of $ppm
- 
 
 23 
    !if copy isin $line
- 
 
 24 
      !set im=!item -1 of $line
- 
 
 25 
      !if / notin $im
- 
 
 26 
        !set ppm=!replace line number $l_ by $(line[1..-2]),\filedir/$im in $ppm
- 
 
 27 
      !endif
- 
 
 28 
    !endif
- 
 
 29 
   !next
- 
 
 30 
!endif
17 
 
 31 
 
18 
!for pm in ppm, sx, sy
 32 
!for pm in ppm, sx, sy
19 
 !set $pm=!slashsubst $($pm)
 33 
 !set $pm=!slashsubst $($pm)
20 
!next pp
 34 
!next pp
21 
!set ppm=!replace internal $    $ by $\
 - 
 
22 
$ in $ppm
 35 
 
23 
!set pp=!trim $ppm
 36 
!set pp=!trim $ppm
24 
 
 37 
 
25 
!set pp=!line 1 to -1 of $pp
 38 
!set pp=!line 1 to -1 of $pp
26 
!set pp=!translate internal $   $ to $\
 39 
!set pp=!translate internal $   $ to $\
27 
$ in $pp
 40 
$ in $pp