Changeset 14530 for trunk/base
- Timestamp:
- Oct 10, 2005, 2:11:39 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/base/src/port/port.tcl
r14519 r14530 3 3 exec @TCLSH@ "$0" "$@" 4 4 # port.tcl 5 # $Id: port.tcl,v 1.11 7 2005/10/10 02:49:29 jberry Exp $5 # $Id: port.tcl,v 1.118 2005/10/10 14:11:39 jberry Exp $ 6 6 # 7 7 # Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org> … … 977 977 if { [moreargs] } { 978 978 # Look first for a potential portname 979 # 980 # We need to allow a wide variaty of tokens here, because of actions like "provides" 981 # so we take a rather lenient view of what a "portname" is. We allow 982 # anything that doesn't look like either a variant, a version, or an option 979 983 set token [lookahead] 980 if { [regexp {^\w+} $token match]} {984 if {![regexp {^(\d.*|[-+].*|[[:alpha:]_]+[\w\.]*=.*)} $token match]} { 981 985 set portname $token 982 986 advance … … 1692 1696 set opts {} 1693 1697 foreach { key value } [array get options] { 1694 lappend opts "$key= \"$value\""1698 lappend opts "$key=$value" 1695 1699 } 1696 1700
Note: See TracChangeset
for help on using the changeset viewer.