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