Posted to tcl by colin at Sun Feb 17 21:53:16 GMT 2013view raw

  1. *** yeti-0.4.1/ylex.tcl 2004-07-06 09:46:49.000000000 +1000
  2. --- yeti/ylex.tcl 2013-02-18 08:38:01.019084469 +1100
  3. ***************
  4. *** 18,34 ****
  5. # Can work with Itcl 3.0 or Tcl++ 2.3. We prefer the former, but don't
  6. # complain if the latter is already available.
  7. #
  8. !
  9. ! if {[catch {package present tcl++ 2.3}]} {
  10. ! if {[catch {package require Itcl 3.0}]} {
  11. ! if {[catch {package require tcl++ 2.3}]} {
  12. ! error "Oops in YETI initialization: neither \[incr Tcl\] nor tcl++ available"
  13. ! }
  14. ! } else {
  15. ! namespace import -force itcl::*
  16. ! }
  17. ! }
  18. !
  19. package provide ylex 0.4
  20.  
  21. #
  22. --- 18,24 ----
  23. # Can work with Itcl 3.0 or Tcl++ 2.3. We prefer the former, but don't
  24. # complain if the latter is already available.
  25. #
  26. ! package require itcl
  27. package provide ylex 0.4
  28.  
  29. #
  30. ***************
  31. *** 38,43 ****
  32. --- 28,34 ----
  33. #
  34.  
  35. namespace eval yeti {
  36. + namespace import -force ::itcl::*
  37.  
  38. class ylex {
  39. #