Subversion Repositories wimsdev

Rev

Rev 10683 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10683 Rev 12652
Line 8... Line 8...
8 
!set class_ent_n0=!linecnt $class_ent1
 8 
!set class_ent_n0=!linecnt $class_ent1
9 
 
 9 
 
10 
!exit
 10 
!exit
11 
:proc
 11 
:proc
12 
!if $class_ent_n0>0
 12 
!if $class_ent_n0>0
13 
 !for i_=1 to $class_ent_n0
 13 
  !for i_=1 to $class_ent_n0
14 
  !set 1_=!line $i_ of $class_ent1
 14 
    !set 1_=!line $i_ of $class_ent1
15 
  !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
 15 
    !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
16 
  to $wims_rm_0
 16 
    to $wims_rm_0
17 
 !next i_
 17 
  !next i_
18 
!endif
 18 
!endif