File: columns

package info (click to toggle)
ircii 4.4-3
  • links: PTS
  • area: main
  • in suites: hamm, slink
  • size: 4,256 kB
  • ctags: 2,797
  • sloc: ansic: 36,743; sh: 907; makefile: 483; lex: 16
file content (21 lines) | stat: -rw-r--r-- 594 bytes parent folder | download | duplicates (17) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# columnate some output 
alias format {
	assign IRCII.word $1
	if ( @IRCII.word < [$0] )
		{ assign function_return $([-$0]1) }
		{ assign function_return $1 }
}

on ^public * echo $format(11 <$0>) $2-
on ^send_public * {
	if ( C == [$0] )
		{ echo $format(11 <$N>) $1- }
		{ echo $format(10 <$N):$0> $1- }
}
on ^public_other * echo $format(10 <$0):$1> $2-
on ^msg * echo $format(11 *$0*) $1-
on ^send_msg * echo -> $format(8 *$0*) $1-
on ^notice * echo $format(11 -$(0)-) $1-
on ^send_notice * echo -> $format(8 -$(0)-) $1-
on ^wall * echo $format(11 #$0#) $1-
set continued_line