File: cstrip

package info (click to toggle)
epic 3.004-17.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,192 kB
  • ctags: 3,197
  • sloc: ansic: 40,843; makefile: 530; sh: 129; perl: 17
file content (25 lines) | stat: -rw-r--r-- 627 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
alias cstrip {
  fec ($*) cc {
    if (cc == chr(3)) {
      @ havecolor = 1
    }
    if (havecolor) {
      if ((cc != chr(3)) && (!isdigit($cc)) && (cc != [,]) && (cc != [ ])) {
        @ havecolor = 0
        @ output #= cc
      }
    }{
      @ output #= cc
    }
  }
  @ function_return = output
  @ output = havecolor = []
}

eval on ^public "% % *$chr(3)*" {echo <$0> $cstrip($2-)}
eval on ^public_other "% % *$chr(3)*" {echo <$0:$1> $cstrip($2-)}
eval on ^public_notice "% % *$chr(3)*" {echo -$0:$1- $cstrip($2-)}
eval on ^action "% % *$chr(3)*" {
        echo ^B*^B $0${([$1]==C) ? [] : [:$1] $cstrip($2-)}
}
#wc'96