Subversion Repositories wimsdev

Rev

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

Rev 10367 Rev 10709
Line 1... Line 1...
1 
tmp_=$wims_read_parm
 1 
tmp_=$wims_read_parm
2 
!bound $tmp_ within name,val default val
 2 
!bound $tmp_ within name,val default val
- 
 
 3 
 
3 
name_=!replace / by , in $wims_class
 4 
!!name_=!replace / by , in $wims_class
4 
name_=!item 2 to -1 of $name_
 5 
!!name_=!item 2 to -1 of $name_
5 
scriptout=!replace , by A in $name_
 6 
!!scriptout=!replace , by A in $name_
- 
 
 7 
scriptout=!replace / by _ in $wims_class
6 
scriptout=!nospace $scriptout
 8 
scriptout=!nospace $scriptout
7 
scriptout=A$scriptout
 9 
scriptout=_$scriptout
8 
!if $tmp_=val
 10 
!if $tmp_=val
9 
	scriptout=$(user_comments$scriptout)
 11 
	scriptout=$(user_comments$scriptout)
10 
	!default scriptout=$user_comments
 12 
	!default scriptout=$user_comments
11 
!endif
 13 
!endif