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 |
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 |