File: dmsg

package info (click to toggle)
ircii 20051015-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 4,996 kB
  • ctags: 3,193
  • sloc: ansic: 44,257; makefile: 1,144; sh: 522; perl: 127; lex: 26
file content (19 lines) | stat: -rw-r--r-- 419 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#	$eterna: dmsg,v 1.2 2001/08/12 15:57:10 mrg Exp $
#
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
}