Rev 11804 | Rev 13340 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 11804 | Rev 12490 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | 1 | ||
2 | !if $wims_read_parm!=$empty |
2 | !if $wims_read_parm!=$empty |
3 | !set parms=$wims_read_parm |
3 | !set parms=$wims_read_parm |
4 | !set parms=!replace |
4 | !set parms=!replace internal $ $ by $\ |
5 | $ in $parms |
5 | $ in $parms |
6 | !set size=!line 1 of $parms |
6 | !set size=!line 1 of $parms |
7 | !distribute items $size into sx,sy |
7 | !distribute items $size into sx,sy |
8 | !set ppm=!line 2 to -1 of $parms |
8 | !set ppm=!line 2 to -1 of $parms |
9 | !else |
9 | !else |
10 | !if $parms=$empty |
10 | !if $parms=$empty |
11 | !exit |
11 | !exit |
12 | !endif |
12 | !endif |
13 | !distribute items $parms into sx,sy |
13 | !distribute items $parms into sx,sy |
14 | !set ppm=!item 3 to -1 of $parms |
14 | !set ppm=!item 3 to -1 of $parms |
15 | !endif |
15 | !endif |
16 | 16 | ||
17 | !set ppm=!replace internal \filedir/ by $ in $ppm |
17 | !set ppm=!replace internal \filedir/ by $ in $ppm |
18 | !for pm in ppm, sx, sy |
18 | !for pm in ppm, sx, sy |
19 | !set $pm=!slashsubst $($pm) |
19 | !set $pm=!slashsubst $($pm) |
20 | !next pp |
20 | !next pp |
21 | !set ppm=!replace internal $ $ by $\ |
21 | !set ppm=!replace internal $ $ by $\ |
22 | $ in $ppm |
22 | $ in $ppm |
23 | !set pp=!trim $ppm |
23 | !set pp=!trim $ppm |
24 | 24 | ||
25 | !set a=!word 1 of $pp |
25 | !set a=!word 1 of $pp |
26 | !if $a=animate |
26 | !if $a=animate |
27 | !set a=!line 1 of $pp |
27 | !set a=!line 1 of $pp |
28 | !set a=!word 2 to -1 of $a |
28 | !set a=!word 2 to -1 of $a |
29 | !set pp=!line 2 to -1 of $pp |
29 | !set pp=!line 2 to -1 of $pp |
30 | !if $printable!=yes |
30 | !if $printable!=yes |
31 | !distribute items $a into ins_anim_frames, ins_anim_delay, ins_anim_loop |
31 | !distribute items $a into ins_anim_frames, ins_anim_delay, ins_anim_loop |
32 | !endif |
32 | !endif |
33 | !endif |
33 | !endif |
34 | !readproc $docdir/.def |
34 | !readproc $docdir/.def |
35 | !! only in case that we come from adm/doc to read common_files |
35 | !! only in case that we come from adm/doc to read common_files |
36 | !! already read in other cases |
36 | !! already read in other cases |
37 | !if /doc isin $(docdir) |
37 | !if /doc isin $(docdir) |