File: pattern_parameterized.k

package info (click to toggle)
kimwitu-doc 10a-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,192 kB
  • ctags: 341
  • sloc: makefile: 164; yacc: 125; ansic: 40; lex: 18; sh: 2
file content (6 lines) | stat: -rw-r--r-- 192 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
 
boolean has_sub(expr $a, expr $b) {
    Add( asub ) & asub = * : {
        /* code here will be executed if 'a' has top-operator 'Add', and asub == b */
    }
    default: { return False; }
}