Subversion Repositories wimsdev

Rev

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

Rev 14335 Rev 16865
Line 60... Line 60...
60 
  lastty=
 60 
  lastty=
61 
  listsh=
 61 
  listsh=
62 
  !for i=1 to $stcnt
 62 
  !for i=1 to $stcnt
63 
    l=!record $i of wimshome/log/classes/$wims_class/exostat
 63 
    l=!record $i of wimshome/log/classes/$wims_class/exostat
64 
    !distribute words $l into t,sh,exo
 64 
    !distribute words $l into t,sh,exo
65 
    !if $sh!=$lastsh
 65 
    !if $sh!=$lastsh or $lastty!=$t
66 
      start$t$sh=$i
 66 
      start$t$sh=$i
67 
      !if $i>0 and $lastsh>0
 67 
      !if $i>0 and $lastsh>0
68 
        end$lastty$lastsh=$[$i-1]
 68 
        end$lastty$lastsh=$[$i-1]
69 
      !endif
 69 
      !endif
70 
      lastsh=$sh
 70 
      lastsh=$sh