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

  1. # Script to define the local packages when testing against an uninstalled
  2. # tclbdd
  3.  
  4. # TEMP - Two packages that really ought to be in the coroutine area of
  5. # tcllib
  6.  
  7. package ifneeded coroutine::corovar 1.0 {
  8. if {[file exists [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl_i]]} {
  9. source [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl_i]
  10. } else {
  11. source [file join {@LIBRARY_SRCDIR@} coroutine_corovar.tcl]
  12. }
  13. }
  14. package ifneeded coroutine::iterator 1.0 {
  15. if {[file exists [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl_i]]} {
  16. source [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl_i]
  17. } else {
  18. source [file join {@LIBRARY_SRCDIR@} coroutine_iterator.tcl]
  19. }
  20. }
  21.  
  22. # Actual packages of tclbdd
  23.  
  24. package ifneeded tclbdd @PACKAGE_VERSION@ {
  25. if {[file exists [file join {@LIBRARY_SRCDIR@} tclbdd.tcl_i]]} {
  26. source [file join {@LIBRARY_SRCDIR@} tclbdd.tcl_i]
  27. } else {
  28. source [file join {@LIBRARY_SRCDIR@} tclbdd.tcl]
  29. }
  30. load [file join . @PKG_LIB_FILE@] tclbdd
  31. }
  32. package ifneeded tclbdd::fddd @PACKAGE_VERSION@ {
  33. if {[file exists [file join {@LIBRARY_SRCDIR@} tclfddd.tcl_i]]} {
  34. source [file join {@LIBRARY_SRCDIR@} tclfddd.tcl_i]
  35. } else {
  36. source [file join {@LIBRARY_SRCDIR@} tclfddd.tcl]
  37. }
  38. }
  39. package ifneeded tclbdd::datalog @PACKAGE_VERSION@ {
  40. if {[file exists [file join {@LIBRARY_SRCDIR@} datalog.tcl_i]]} {
  41. source [file join {@LIBRARY_SRCDIR@} datalog.tcl_i]
  42. } else {
  43. source [file join {@LIBRARY_SRCDIR@} datalog.tcl]
  44. }
  45. }