Subversion Repositories wimsdev

Rev

Rev 12586 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7235 bpr 1
 
20 reyssat 2
!if $wims_read_parm!=$empty
12586 bpr 3
  !set parms=$wims_read_parm
4
  !set parms=!replace internal $        $ by $\
20 reyssat 5
$ in $parms
12586 bpr 6
  !set size=!line 1 of $parms
7
  !distribute items $size into sx,sy
8
  !set ppm=!line 2 to -1 of $parms
20 reyssat 9
!else
12586 bpr 10
  !if $parms=$empty
11
    !exit
12
  !endif
13
  !distribute items $parms into sx,sy
14
  !set ppm=!item 3 to -1 of $parms
20 reyssat 15
!endif
16
 
17
!set ppm=!replace internal \filedir/ by $ in $ppm
18
!for pm in ppm, sx, sy
12586 bpr 19
  !set $pm=!slashsubst $($pm)
20 reyssat 20
!next pp
21
!set ppm=!replace internal $    $ by $\
22
$ in $ppm
23
!set pp=!trim $ppm
24
 
25
!set a=!word 1 of $pp
26
!if $a=animate
12586 bpr 27
  !set a=!line 1 of $pp
28
  !set a=!word 2 to -1 of $a
29
  !set pp=!line 2 to -1 of $pp
30
  !if $printable!=yes
31
    !distribute items $a into ins_anim_frames, ins_anim_delay, ins_anim_loop
32
  !endif
20 reyssat 33
!endif
8402 bpr 34
!readproc $docdir/.def
9261 bpr 35
!! only in case that we come from adm/doc to read common_files
10298 bpr 36
!! already read in other cases
16212 bpr 37
!if $common_files!=yes
38
  !if /doc isin $(docdir)
39
    !set docdir1= !replace internal /doc by in $(docdir)
40
    !readproc $docdir1/var.proc
41
  !else
42
    !readproc $docdir/var.proc
43
  !endif
8402 bpr 44
!endif
45
!! end only
7235 bpr 46
!if $common_files=yes
8402 bpr 47
  !set doc_=$docdir/files
7235 bpr 48
!else
8402 bpr 49
  !if $common_files=$empty or $common_files=no
50
    !set doc_=$docdir/$doc/files
51
  !else
52
    !set doc_=!replace datamodule by modules/data in $common_files
53
  !endif
7235 bpr 54
!endif
8402 bpr 55
!set insdraw_filebase=$(doc_)
20 reyssat 56
!set insdraw_size=$sx,$sy
57
!set ins_align=middle
58
!insdraw $pp