Forums Feature Suggestions modifications to $tokens

//var %t = abc def bcd cde | echo -a First token containing "cd": $findtok(%t,$matchtok(%t,cd,1,32),32)

alias regex_example {
  var %tokstr = a b c d
  var %regex = /([^ ]+)(?:[ ]+)?/g
  var %toknum = $regsubex(%tokstr,%regex,$iif(\t == c,\n))
}

3.3 CHANMODES
 
   o  CHANMODES=A,B,C,D
 
   The CHANMODES token specifies the modes that may be set on a channel.
   These modes are split into four categories, as follows:
 
   o  Type A: Modes that add or remove an address to or from a list.
      These modes always take a parameter when sent by the server to a
      client; when sent by a client, they may be specified without a
      parameter, which requests the server to display the current
      contents of the corresponding list on the channel to the client.
   o  Type B: Modes that change a setting on the channel.  These modes
      always take a parameter.
   o  Type C: Modes that change a setting on the channel. These modes
      take a parameter only when set; the parameter is absent when the
      mode is removed both in the client's and server's MODE command.
   o  Type D: Modes that change a setting on the channel. These modes
      never take a parameter.

parsemodes {
  var %x = 1 , %y = 1 , %sign
  while ($mid($1,%x,1)) {
    var %v1 = $v1 , %pos = $findtok($chanmodes,$matchtokcs($chanmodes,%v1,1,44),44)
    if (!%pos) { %sign = %v1 }
    else {
      if (%pos isnum 1-2) || ((%pos = 3) && (%sign = +)) { 
        inc %y
        echo -a $+(%sign,%v1) $eval($+($,%y),2)
      }
      else  { echo -a $+(%sign,%v1) }
    }
    inc %x
  }
}

on 1:START: {
  var %x = 1
  while ($gettok($chanmodes,%x,44) != $null) {
    var %y = 1
    while ($mid($v1,%y,1) != $null) {
      hadd -m $server $v1 %x
      inc %y
    }
    inc %x
  }
}

alias parsemodes {
  var %x = 1, %sign
  bset -t &chanmodes 1 $1
  tokenize 32 $2-
  while ($bvar(&chanmodes,%x).text != $null) {
    var %c = $v1, %num = $hget($server,$v1)
    if (!%num) { %sign = %c }
    else {
      if (%num isnum 1-2 || (%num == 3 && %sign = +)) { 
        echo -a $+(%sign,%c) $1
        tokenize 32 $2-
      }
      else { echo -a $+(%sign,%c) }
    }
    inc %x
  }
  bunset &chanmodes
}

alias regex_example {
  var %t = a b c d, %r = /([^ ]+)(?:[ ]+)?/g, %n = 1, %s = $ticks
  while (%n <= 20000) {
    noop $regsubex(%t,%r,$iif(\t == c,\n))
    inc %n
  }
  echo -ag $calc($ticks - %s)
}

alias findtok_example {
  var %t = a b c d, %n = 1, %s = $ticks
  while (%n <= 20000) {
    noop $findtok(%t,$matchtok(%t,c,1,32),32)
    inc %n
  }
  echo -ag $calc($ticks - %s)
}