Changeset 39023 for trunk/base/src
- Timestamp:
- 08/06/08 01:00:26 (4 months ago)
- Location:
- trunk/base/src/port1.0
- Files:
-
- 2 modified
-
portlint.tcl (modified) (1 diff)
-
portutil.tcl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/base/src/port1.0/portlint.tcl
r37981 r39023 144 144 proc lint_main {args} { 145 145 global UI_PREFIX portname portpath portresourcepath 146 global ports_lint_strict 147 if {[info exists ports_lint_strict] && $ports_lint_strict == "yes"} { 148 ui_info "$UI_PREFIX strict mode enabled" 149 } 150 146 151 set portfile ${portpath}/Portfile 147 152 set portdirs [split ${portpath} /] -
trunk/base/src/port1.0/portutil.tcl
r38317 r39023 719 719 proc reinplace {args} { 720 720 set extended 0 721 set quiet 0 721 722 while 1 { 722 723 set arg [lindex $args 0] … … 727 728 set extended 1 728 729 } 730 q { 731 set quiet 1 732 } 729 733 - { 730 734 break … … 739 743 } 740 744 if {[llength $args] < 2} { 741 error "reinplace ?- E? pattern file ..."745 error "reinplace ?-q? ?-E? pattern file ..." 742 746 } 743 747 set pattern [lindex $args 0] … … 776 780 777 781 close $tmpfd 782 783 if {![catch {exec cmp -s $file $tmpfile}]} { 784 if {!$quiet} { 785 ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]" 786 } else { 787 ui_info "[format "reinplace %1\$s didn't change anything in %2\$s" $pattern $file]" 788 } 789 } 778 790 779 791 set attributes [file attributes $file]

