Subversion Repositories wimsdev

Rev

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 internal $ $ by $\
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)