? base/Makefile
? base/config.log
? base/config.status
? base/test.c
? base/Mk/dports.autoconf.mk
? base/doc/macosx.mtree
? base/doc/ports.conf
? base/doc/prefix.mtree
? base/src/config.h
? base/src/darwinports1.0/Darwinports.dylib
? base/src/darwinports1.0/darwinports_autoconf.tcl
? base/src/darwinports1.0/darwinports_fastload.tcl
? base/src/pextlib1.0/Pextlib.dylib
? base/src/port/port
? base/src/port/portall
? base/src/port/portindex
? base/src/port1.0/port_autoconf.tcl
? base/src/programs/Makefile
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/darwinports1.0/darwinports.tcl,v
retrieving revision 1.158
diff -u -b -r1.158 darwinports.tcl
|
|
|
621 | 621 | return [_dportsearchpath $depregex $search_path] |
622 | 622 | } |
623 | 623 | |
| 624 | ### _porttest is private; subject to change without notice |
| 625 | |
| 626 | proc _porttest {dport depspec} { |
| 627 | # We don't actually look for the port, but just return false |
| 628 | # in order to let the dportdepends handle the dependency |
| 629 | return 0 |
| 630 | } |
| 631 | |
624 | 632 | ### _dportinstalled is private; may change without notice |
625 | 633 | |
626 | 634 | # Determine if a port is already *installed*, as in "in the registry". |
… |
… |
|
636 | 644 | } |
637 | 645 | } |
638 | 646 | |
639 | | ### _dporispresent is private; may change without notice |
| 647 | ### _dportispresent is private; may change without notice |
640 | 648 | |
641 | 649 | # Determine if some depspec is satisfied or if the given port is installed. |
642 | 650 | # We actually start with the registry (faster?) |
… |
… |
|
663 | 671 | lib { return [_libtest $dport $depspec] } |
664 | 672 | bin { return [_bintest $dport $depspec] } |
665 | 673 | path { return [_pathtest $dport $depspec] } |
| 674 | port { return [_porttest $dport $depspec] } |
666 | 675 | default {return -code error "unknown depspec type: $type"} |
667 | 676 | } |
668 | 677 | return 0 |
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portdepends.tcl,v
retrieving revision 1.38
diff -u -b -r1.38 portdepends.tcl
|
|
|
46 | 46 | switch -regex $action { |
47 | 47 | set|append|delete { |
48 | 48 | foreach depspec $args { |
49 | | if {[regexp {([A-Za-z\./0-9]+):([A-Za-z0-9_/\-\.$^\?\+\(\)\|\\]+):([-A-Za-z\./0-9_]+)} "$depspec" match deppath depregex portname]} { |
50 | | switch $deppath { |
51 | | lib {} |
52 | | bin {} |
53 | | path {} |
| 49 | if {[regexp {([A-Za-z\./0-9]+):([A-Za-z0-9_/\-\.$^\?\+\(\)\|\\]*):([-A-Za-z\./0-9_]+)} "$depspec" match deppath depregex portname]} { |
| 50 | switch -regex $deppath { |
| 51 | lib|bin|path { |
| 52 | if {[string length $depregex] == 0} { |
| 53 | return -code error [format [msgcat::mc "invalid depspec: %s (missing regex component)"] $depspec] |
| 54 | } |
| 55 | } |
| 56 | port {} |
54 | 57 | default {return -code error [format [msgcat::mc "unknown depspec type: %s"] $deppath]} |
55 | 58 | } |
56 | 59 | } else { |