1 | diff --git a/portfetch.tcl b/portfetch.tcl |
---|
2 | index 5341028..5f58e07 100644 |
---|
3 | --- a/portfetch.tcl |
---|
4 | +++ b/portfetch.tcl |
---|
5 | @@ -104,7 +104,7 @@ default hg.dir {${workpath}} |
---|
6 | default hg.tag {tip} |
---|
7 | |
---|
8 | # Set distfiles |
---|
9 | -default distfiles {[list [portfetch::suffix $distname]]} |
---|
10 | +default distfiles {[portfetch::suffixlist $distname]} |
---|
11 | default dist_subdir {${name}} |
---|
12 | |
---|
13 | # user name & password |
---|
14 | @@ -222,6 +222,21 @@ proc portfetch::suffix {distname} { |
---|
15 | # Portfiles, but should better go somewhere else |
---|
16 | namespace import portfetch::suffix |
---|
17 | |
---|
18 | +# Given a distname, return a list containing the distname with |
---|
19 | +# extract.suffix appended, or the empty list if there is no suffix. |
---|
20 | +proc portfetch::suffixlist {distname} { |
---|
21 | + global extract.suffix fetch.type |
---|
22 | + switch -- "${fetch.type}" { |
---|
23 | + bzr - |
---|
24 | + cvs - |
---|
25 | + svn - |
---|
26 | + git - |
---|
27 | + hg { return {} } |
---|
28 | + standard - |
---|
29 | + default { return [list "${distname}${extract.suffix}"] } |
---|
30 | + } |
---|
31 | +} |
---|
32 | + |
---|
33 | # Checks patch files and their tags to assemble url lists for later fetching |
---|
34 | proc portfetch::checkpatchfiles {urls} { |
---|
35 | global patchfiles all_dist_files patch_sites filespath |
---|