Changeset 14584


Ignore:
Timestamp:
Oct 12, 2005, 10:21:20 PM (15 years ago)
Author:
jberry
Message:

Cleanup a few comments, or lack thereof

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r14582 r14584  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.130 2005/10/12 21:55:45 jmpp Exp $
     5# $Id: port.tcl,v 1.131 2005/10/12 22:21:20 jberry Exp $
    66#
    77# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
     
    743743        switch -regex -- $token {
    744744                ^\\)$                   -
    745                 ^_EOF_$                 {}
    746                
    747                 ^\\($                   {
     745                ^_EOF_$                 {       # End of file/expression
     746                                                }
     747               
     748                ^\\($                   {       # Parenthesized Expression
    748749                                                        advance
    749750                                                        set el [portExpr reslist]
     
    813814                                                }
    814815               
    815                 default                 {
     816                default                 {       # Treat anything else as a portspec (portname, version, variants, options
     817                                                        # or some combination thereof).
    816818                                                        parseFullPortSpec name version variants options
    817819                                                        add_to_portlist reslist [list name $name \
     
    17071709        dir -
    17081710        file {
    1709                 # Operations on the Portfiles of the port
     1711                # Operations on the port's directory and Portfile
    17101712                require_portlist
    17111713                foreachport $portlist {
     
    17411743                                       
    17421744                                        ed - edit {
    1743                                                 # Restore our entire environment from start time
     1745                                                # Edit the port's portfile with the user's editor
     1746                                               
     1747                                                # Restore our entire environment from start time.
    17441748                                                # We need it to evaluate the editor, and the editor
    17451749                                                # may want stuff from it as well, like TERM.
     
    17561760                                                }
    17571761                                               
     1762                                                # Invoke the editor
    17581763                                                if { $editor == "" } {
    17591764                                                        fatal "No EDITOR is specified in your environment"
Note: See TracChangeset for help on using the changeset viewer.