Forums Bug Reports * Error creating window

alias bench {
  var %x = 1, %ticks = $ticks
  while (%x <= 5) { $1- | inc %x }
  echo -a Command completed in (avg over 5 runs) $calc(($ticks - %ticks) / 5) ticks: $1-
}

alias lensort { return $iif($len($1) > $len($2), 1, $iif($len($1) < $len($2), -1, 0)) }

Command completed in (avg over 5 runs) 3110.6 ticks: filter -ffa logs\#somechannel.log logs\#somechannel.log2 lensort
Command completed in (avg over 5 runs) 3085.6 ticks: filter -wwa @tmp1 @tmp2 lensort

alias yay { echo -ag File: $yayF @window: $yay@ }
alias yayF {
  var %i = 1 | while (%i < 1001) { write yay.txt a r g %i v 0 | inc %i }
  var %t = $ticks, %i = 1
  while (%i < 1001) {
    var %rec = $read(yay.txt,nw,& & & 500 & &)
    write -l 500 yay.txt $puttok(%rec,500,4,32)
    inc %i
  }
  .remove yay.txt
  return $calc($ticks - %t)
}
alias yay@ {
  var %i = 1 | window -h @yay | while (%i < 1001) { aline @yay a r g %i v 0 | inc %i }
  var %t = $ticks, %i = 1
  while (%i < 1001) {
    var %rec = $fline(@yay,& & & 500 & &,1).text
    rline @yay 500 $puttok(%rec,500,4,32)
    inc %i
  }
  window -c @yay
  return $calc($ticks - %t)
}

; +++ MAIN FUNCTION BASE / ADVANCED FILTER @WINDOW OR FILE (IDENTIFIER CALL ONLY)
; Input: $1 = name of input window or filename $2 = ascii token separator used in input window
; $3 = <LlWw><position1>,<LlWw><position2>,etc $4 = token matchstring
; L (literal case sensitive) l (literal case insensitive) W (wildcard case sensitive) w (wildcard case insensitive)
; Output: $result = $null or name of results temp window with line format <original line position> <record>
alias SC_filter {
  var %a = $2, %list = $3, %wm = $4
  if (!$window($1)) { var %w = $SC_rw, %src = file | filter -fwc $+(",$1,") %w * } | else { var %w = $1, %src = win }
  var %total1 = $line(%w,0), %total2 = $numtok(%list,44), %i1 = 1, %wr = $SC_rw
  while (%i1 <= %total1) {
    var %rec = $line(%w,%i1), %i2 = 1
    while (%i2 <= %total2) {
      var %tok = $gettok(%list,%i2,44), %pos = $mid(%tok,2), %s1 = $gettok(%wm,%pos,%a), %s2 = $gettok(%rec,%pos,%a)
      goto $+(M,$asc($left(%tok,1)))
      :M76 | if (%s1 !== %s2) { goto nexti1 } | inc %i2 | continue
      :M108 | if (%s1 != %s2) { goto nexti1 } | inc %i2 | continue
      :M87 | if (%s1 !iswmcs %s2) { goto nexti1 } | inc %i2 | continue
      :M119 | if (%s1 !iswm %s2) { goto nexti1 } | inc %i2 | continue
    }
    aline -p %wr %i1 %rec
    :nexti1 | inc %i1
  }
  if ($line(%wr,0)) { return %wr }
  window -c %wr | return $null
}

alias yay { echo -ag Hash: $yayF @window: $yay@ }
alias yayF {
  var %i = 1 | while (%i < 1001) { hadd -m yay %i a r g %i v 0 | inc %i }
  var %t = $ticks, %i = 1
  while (%i < 1001) {
    var %rec = $hget(yay, $hfind(yay,& & & 500 & &,1,w).data)
    hadd yay 500 $puttok(%rec,500,4,32)
    inc %i
  }
  hfree yay
  return $calc($ticks - %t)
}
alias yay@ {
  var %i = 1 | window -h @yay | while (%i < 1001) { aline @yay a r g %i v 0 | inc %i }
  var %t = $ticks, %i = 1
  while (%i < 1001) {
    var %rec = $fline(@yay,& & & 500 & &,1).text
    rline @yay 500 $puttok(%rec,500,4,32)
    inc %i
  }
  window -c @yay
  return $calc($ticks - %t)
}

hadd -m table 1 b
hadd -m table 2 d
hadd -m table 3 e
hadd -m table 4 h
hadd -m table 5 j
hadd -m table 6 z

echo -a $hget(table,1) = b
echo -a $hget(table,2) = d
echo -a $hget(table,3) = e
echo -a $hget(table,4) = h
echo -a $hget(table,5) = j
echo -a $hget(table,6) = z

//var %x = 1 | while (%x < 100) { hadd -m th %x hello %x | inc %x } | hdel th 50 | echo -a $hget(th,50) => $hget(th,2).item | hfree th

alias fakearray {
  hadd -m array 1 a
  hadd -m array 2 b
  hadd -m array 3 c
  hdel array 2
  var %i = 1
  while ($hget(array,%i) != $null) {
    echo -a $v1
    inc %i
  }
}

alias -l create {
  var %i = $2
  while (%i) {
    hadd -m $1 %i %i
    dec %i
  }
}
alias -l delete {
  hdel array $2
  var %i = $2 + 1
  while ($hget($1,%i) != $null) {
    hadd -m $1 $calc(%i - 1) $v1
    inc %i
  }
  hdel $1 $hget($1,0).item
}
alias testspeed {
  var %ticks = $ticks
  create array 3000
  var %i = 1500, %j = 1400
  while (%i > %j) {
    delete array %i
    dec %i
  }
  hfree array
  echo -a $calc($ticks - %ticks) ms.
}