Changeset 2126 for trunk/base

Timestamp:

Mar 3, 2003, 7:17:03 AM (21 years ago)

Author:

kevin

Message:

Added -o option to ignore modification times on state file and Portfile

Location:

trunk/base/src

Files:

• port/port.1 (modified) (2 diffs)
• port/port.tcl (modified) (1 diff)
• port1.0/portutil.tcl (modified) (2 diffs)

trunk/base/src/port/port.1

@@ -36 +36 @@
 .Sh SYNOPSIS
 .Nm
-.Op Fl vdqo
+.Op Fl vdqfo
 .Op Ar target
 .Op Ar portname
@@ -70 +70 @@
 specify
 .Ar portdir
+.It Fl f
+force mode (ignore state file)
 .It Fl o
 honor state files older than Portfile

trunk/base/src/port/port.tcl

@@ -150 +150 @@
 proc print_usage args {
     global argv0
-    puts "Usage: $argv0 \[-vdqo\] \[action\] \[-D portdir\] \[options\]"
+    puts "Usage: $argv0 \[-vdqof\] \[action\] \[-D portdir\] \[options\]"
 }
 

trunk/base/src/port1.0/portutil.tcl

@@ -537 +537 @@
 # open file to store name of completed targets
 proc open_statefile {args} {
-    global workpath portname portpath
+    global workpath portname portpath ports_ignore_older
     
     if ![file isdirectory $workpath ] {
@@ -548 +548 @@
                         return -code error "$statefile is not writable - check permission on port directory"
                 }
-                if {[file mtime $statefile] < [file mtime ${portpath}/Portfile]} {
+                if {!([info exists ports_ignore_older] && $ports_ignore_older == "yes") && [file mtime $statefile] < [file mtime ${portpath}/Portfile]} {
                         ui_msg "Portfile changed since last build; discarding previous state."
                         file delete $statefile