1# (eq? "c" (downcase $name)) 2C input.cpp /^class C: A, B {$/ 3# (and $inherits (#/(^|,)a(,|$)/ (downcase $inherits))) 4C input.cpp /^class C: A, B {$/ 5# (and $inherits (#/(^|,)b(,|$)/ (downcase $inherits))) 6C input.cpp /^class C: A, B {$/ 7# (and $inherits (#/(^|,)d(,|$)/ (downcase $inherits))) 8# (eq? "F" (upcase $name)) 9f input.cpp /^ int f (void) {$/ 10# (eq? "G" (upcase $name)) 11g input.cpp /^ int g (void) {$/ 12# (eq? "J" (upcase $name)) 13