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