Changeset 18084 for trunk/base


Ignore:
Timestamp:
May 24, 2006, 12:42:56 AM (14 years ago)
Author:
pguyot (Paul Guyot)
Message:

New target (still being developed): mirror
This target fetches files (bypassing the state of the port) and delete them if
any checksum fails.

Step towards a DP mirror:

  • parallel execution of actions with selectors
  • allow fetch target to take the distfile path into account (e.g. port/version/)
Location:
trunk/base/src
Files:
1 added
4 edited

Legend:

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

    r17563 r18084  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.159 2006/04/17 21:49:18 pguyot Exp $
     5# $Id: port.tcl,v 1.160 2006/05/24 00:42:56 pguyot Exp $
    66#
    77# Copyright (c) 2002-2006 DarwinPorts organization
     
    21242124        livecheck       action_target
    21252125        distcheck       action_target
     2126        mirror          action_target
    21262127
    21272128        archive         action_target
  • trunk/base/src/port1.0/Makefile

    r17563 r18084  
    66        portclean.tcl porttest.tcl portactivate.tcl portsubmit.tcl \
    77        port_autoconf.tcl portstartupitem.tcl porttrace.tcl portlivecheck.tcl \
    8         portdistcheck.tcl
     8        portdistcheck.tcl portmirror.tcl
    99
    1010SUBDIR=         resources
  • trunk/base/src/port1.0/port.tcl

    r17563 r18084  
    11# et:ts=4
    22# port.tcl
    3 # $Id: port.tcl,v 1.41 2006/04/17 21:49:19 pguyot Exp $
     3# $Id: port.tcl,v 1.42 2006/05/24 00:42:56 pguyot Exp $
    44#
    55# Copyright (c) 2002 Apple Computer, Inc.
     
    5151package require portdistcheck 1.0
    5252package require portlivecheck 1.0
     53package require portmirror 1.0
  • trunk/base/src/port1.0/portfetch.tcl

    r17792 r18084  
    11# et:ts=4
    22# portfetch.tcl
    3 # $Id: portfetch.tcl,v 1.109 2006/04/30 05:32:52 pguyot Exp $
     3# $Id: portfetch.tcl,v 1.110 2006/05/24 00:42:56 pguyot Exp $
    44#
    55# Copyright (c) 2002 - 2003 Apple Computer, Inc.
     
    421421}
    422422
     423# Utility function to delete fetched files.
     424proc fetch_deletefiles {args} {
     425        global distpath fetch_urls
     426        foreach {url_var distfile} $fetch_urls {
     427                if {[file isfile $distpath/$distfile]} {
     428                        exec rm -f ${distpath}/${distfile}
     429                }
     430        }
     431}
     432
    423433# Initialize fetch target, calling checkfiles if neccesary
    424434proc fetch_init {args} {
     
    445455proc fetch_main {args} {
    446456    global distname distpath all_dist_files fetch.type
    447    
     457
    448458    # Check for files, download if neccesary
    449459    if {![info exists all_dist_files] && "${fetch.type}" == "standard"} {
Note: See TracChangeset for help on using the changeset viewer.