Check-in [c410a3e915]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add a 'tclMethod' method for introducing a new method on an existing database.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c410a3e91571a64600d55ed0b38f5c6be9c4b43f
User & Date: kbk 2015-01-19 20:06:22
Context
2015-01-31
17:06
Add instrumentation of generated code for performance analysis. check-in: ec5ea2c8d2 user: kbk tags: trunk
2015-01-19
20:06
Add a 'tclMethod' method for introducing a new method on an existing database. check-in: c410a3e915 user: kbk tags: trunk
2015-01-10
04:18
Remove debug prints left in inadvertently. check-in: 2a326f8369 user: kbk tags: trunk
Changes

Changes to library/datalog.tcl.

2033
2034
2035
2036
2037
2038
2039




2040
2041
2042
2043
2044
2045
2046
2047
oo::class create bdd::datalog::database {
    superclass ::bdd::fddd::database

    constructor {args} {
	next {*}$args
    }





    method datalogMethod {name arglist args} {
	oo::objdefine [self] method $name $arglist \
	    [bdd::datalog::compileProgram [self] {*}$args]
    }
    
}

package provide tclbdd::datalog 0.1







>
>
>
>








2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
oo::class create bdd::datalog::database {
    superclass ::bdd::fddd::database

    constructor {args} {
	next {*}$args
    }

    method tclMethod {name arglist body} {
	oo::objdefine [self] method $name $arglist $body
    }
    
    method datalogMethod {name arglist args} {
	oo::objdefine [self] method $name $arglist \
	    [bdd::datalog::compileProgram [self] {*}$args]
    }
    
}

package provide tclbdd::datalog 0.1