Ticket #2897: patch-portfetch.tcl

File patch-portfetch.tcl, 1.5 KB (added by gwright@…, 20 years ago)

Patch portfetch.tcl to include cvs.date

Line 
1--- src/port1.0/portfetch.tcl   Wed Apr 13 21:17:44 2005
2+++ src/port1.0/portfetch.tcl.new       Wed Apr 13 17:36:14 2005
3@@ -39,7 +39,7 @@
4 target_prerun ${com.apple.fetch} fetch_start
5 
6 # define options: distname master_sites
7-options master_sites patch_sites extract.suffix distfiles patchfiles use_zip use_bzip2 dist_subdir fetch.type cvs.module cvs.root cvs.password cvs.tag master_sites.mirror_subdir patch_sites.mirror_subdir portname
8+options master_sites patch_sites extract.suffix distfiles patchfiles use_zip use_bzip2 dist_subdir fetch.type cvs.module cvs.root cvs.password cvs.date cvs.tag master_sites.mirror_subdir patch_sites.mirror_subdir portname
9 # XXX we use the command framework to buy us some useful features,
10 # but this is not a user-modifiable command
11 commands cvs
12@@ -53,6 +53,7 @@
13 default cvs.dir {${workpath}}
14 default cvs.module {$distname}
15 default cvs.tag ""
16+default cvs.date ""
17 default cvs.env {CVS_PASSFILE=${workpath}/.cvspass}
18 default cvs.pre_args {"-z9 -f -d ${cvs.root}"}
19 default cvs.args ""
20@@ -269,11 +270,15 @@
21 # information in a custom .cvspass file
22 proc cvsfetch {args} {
23     global workpath cvs.env cvs.cmd cvs.args cvs.post_args
24-    global cvs.root cvs.tag cvs.password
25+    global cvs.root cvs.date cvs.tag cvs.password
26 
27     set cvs.args "co ${cvs.args}"
28     if {[string length ${cvs.tag}]} {
29        set cvs.args "${cvs.args} -r ${cvs.tag}"
30+    }
31+
32+    if {[string length ${cvs.date}]} {
33+       set cvs.args "${cvs.args} -D ${cvs.date}"
34     }
35 
36     if {[regexp ^:pserver: ${cvs.root}]} {