Subversion Repositories wimsdev

Rev

Rev 1685 | Rev 5971 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1685 Rev 5320
Line 7... Line 7...
7 
  !set parm$p=!slashsubst $(parm$p)
 7 
  !set parm$p=!slashsubst $(parm$p)
8 
 !next p
 8 
 !next p
9 
!endif
 9 
!endif
10 
!if / isin $parm1
 10 
!if / isin $parm1
11 
 !set p_=!translate / to $ $ in $parm1
 11 
 !set p_=!translate / to $ $ in $parm1
12 
 parm1=!word -1 of $p_
 12 
 !set parm1=!word -1 of $p_
13 
 pdoc=!word 1 to -2 of $p_
 13 
 !set pdoc=!word 1 to -2 of $p_
14 
 pdoc=!translate $ $ to / in $pdoc
 14 
 !set pdoc=!translate $ $ to / in $pdoc
15 
!else
 15 
!else
16 
 !set pdoc=$doc
 16 
 !set pdoc=$doc
17 
!endif
 17 
!endif
18 
!if $parm1=$empty or $parm1=.
 18 
!if $parm1=$empty or $parm1=.
19 
 !set parm1=$block
 19 
 !set parm1=$block