Posted to tcl by jenglish at Sat Nov 10 18:28:39 GMT 2007view raw

  1. create table provides {
  2. instance integer,
  3. package string,
  4. version string,
  5.  
  6. primary key (instance, package)
  7. foreign key (instance) references instance(id)
  8. }
  9.  
  10. -- meaning: if (instance, package, version) in `provides`,
  11. -- then after installing $instance, [package require $package $version]
  12. -- is expected to succeed.
  13.  
  14. create table requires {
  15. instance integer,
  16. package string,
  17. versionspec string, -- TIP#268-style version range specifier
  18.  
  19. primary key (instance, package)
  20. foreign key (instance) references instance(id)
  21. }
  22.  
  23. -- meaning: if (instance, package, vspec) in `requires`,
  24. -- then something in $instance calls [package require $package $vspec]