1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
alias cbrackets {
set %colours 03,04,05,06,07,09,10,11,12,13
set %brackets.i 0
echo -ag * $coBrackets($1-)
}
;Colour outter most brackets.
alias coBrackets {
inc %brackets.i
if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
var %re = /\(((?:[^()]|(?R))*)\)/g
var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
if (!$regex($1,%re)) return $1
return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets2( \t ),%colour,$chr(41),$chr(15)))
}
alias coBrackets2 {
echo -ag I've got $1-
inc %brackets.i
if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
var %re = /\(((?:[^()]|(?R))*)\)/g
var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
if (!$regex($1,%re)) return $1
return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets( \t ),%colour,$chr(41),$chr(15)))
}
|