OS/2 Shareware BBS: 35 Internet/35-Internet.zip/ircii30.zip/script/dmsg

Text File | 1994-07-30 | 365 b | 18 lines

alias dmsg.fixup {
  @ dmsg.tmp = index(, $0) + 1
  if (dmsg.tmp > 0) {
    @ function_return = mid(0 $dmsg.tmp $0) ## [=] ## dmsg.fixup($mid($dmsg.tmp -1 $0))
  } {
    @ function_return = [$0]
  }
  ^assign -dmsg.tmp
}

alias dmsg {
  @ dmsg.r = max_recursions
  ^set max_recursions 20
  msg =$dmsg.fixup($0) $1-
  ^set max_recursions $dmsg.r
  ^assign -dmsg.r
}