Check-in [2a326f8369]

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

Overview
Comment:Remove debug prints left in inadvertently.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2a326f83694ebf5cd20ef89f6cb8f3a67a6e9cc8
User & Date: kbk 2015-01-10 04:18:24
Context
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
2014-11-23
21:54
Made a 'datalog::database' class that instantiates a FDDD database integrated with the Datalog compiler, and a 'datalogMethod' command to introduce an instance method (representing a Datalog program) on such a database. check-in: d33f642607 user: kbk tags: trunk
Changes

Changes to library/datalog.tcl.

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
....
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
# Copyright (c) 2013 by Kevin B. Kenny
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#------------------------------------------------------------------------------

puts "START: [info script]"

package require Tcl 8.6
package require tclbdd 0.1
package require tclbdd::fddd 0.1
package require coroutine::corovar 1.0
package require coroutine::iterator 1.0
package require grammar::aycock 1.0

................................................................................
	$program destroy

    }
    return $result

}

puts "DEFINE: bdd::datalog::database"
oo::class create bdd::datalog::database {
    superclass ::bdd::fddd::database

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








<
<







 







<







6
7
8
9
10
11
12


13
14
15
16
17
18
19
....
2026
2027
2028
2029
2030
2031
2032

2033
2034
2035
2036
2037
2038
2039
# Copyright (c) 2013 by Kevin B. Kenny
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#------------------------------------------------------------------------------



package require Tcl 8.6
package require tclbdd 0.1
package require tclbdd::fddd 0.1
package require coroutine::corovar 1.0
package require coroutine::iterator 1.0
package require grammar::aycock 1.0

................................................................................
	$program destroy

    }
    return $result

}


oo::class create bdd::datalog::database {
    superclass ::bdd::fddd::database

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