Posted to tcl by kbk at Thu Nov 05 21:37:35 GMT 2015view pretty

# Script to define the local packages when testing against an uninstalled
# tclbdd

# TEMP - Two packages that really ought to be in the coroutine area of
#        tcllib

package ifneeded coroutine::corovar 1.0 {
    if {[file exists [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl_i]]} {
	source [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl_i]
    } else {
	source [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl]
    }	
}
package ifneeded coroutine::iterator 1.0 {
    if {[file exists [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl_i]]} {
	source [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl_i]
    } else {
	source [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl]
    }
}

# Actual packages of tclbdd

package ifneeded tclbdd @PACKAGE_VERSION@ {
    if {[file exists [file join {@LIBRARY_SRCDIR@} tclbdd.tcl_i]]} {
	source [file join {@LIBRARY_SRCDIR@} tclbdd.tcl_i]
    } else {
	source [file join {@LIBRARY_SRCDIR@} tclbdd.tcl]
    }
    load [file join . @PKG_LIB_FILE@] tclbdd
}
package ifneeded tclbdd::fddd @PACKAGE_VERSION@ {
    if {[file exists [file join {@LIBRARY_SRCDIR@} tclfddd.tcl_i]]} {
	source [file join {@LIBRARY_SRCDIR@} tclfddd.tcl_i]
    } else {
	source [file join {@LIBRARY_SRCDIR@} tclfddd.tcl]
    }
}
package ifneeded tclbdd::datalog @PACKAGE_VERSION@ {
    if {[file exists [file join {@LIBRARY_SRCDIR@} datalog.tcl_i]]} {
	source [file join {@LIBRARY_SRCDIR@} datalog.tcl_i]
    } else {
	source [file join {@LIBRARY_SRCDIR@} datalog.tcl]
    }
}