Changeset 11282


Ignore:
Timestamp:
Mar 11, 2005, 6:54:15 PM (15 years ago)
Author:
rshaw
Message:

Removed CVS group functions (not needed, or desired).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/resources/group/zope-1.0.tcl

    r8429 r11282  
    22# zope-1.0.tcl
    33#
    4 # $Id: zope-1.0.tcl,v 1.5 2004/09/24 20:33:59 rshaw Exp $
     4# $Id: zope-1.0.tcl,v 1.6 2005/03/11 18:54:15 rshaw Exp $
    55#
    66# Group file for 'zope' group.
     
    5454option_proc zope.need_subdir zope.fix_extract_dir
    5555
    56 options zope.need_cvsdir
    57 default zope.need_cvsdir yes
    58 option_proc zope.need_cvsdir zope.fix_cvs_dir
    59 
    60 # Zope group default for extract.dir & cvs.dir is different
     56# Zope group default for extract.dir
    6157default extract.dir {${worksrcpath}}
    62 default cvs.dir {${worksrcpath}}
    6358
    6459# define this empty initially, it is set by zope.setup arguments
     
    184179}
    185180
    186 # define these empty initially, they are set by zope.setup_cvs arguments
    187 set zope.cvsroot        ""
    188 set zope.cvsmodule      ""
    189 set zope.cvsdefault     ""
    190 
    191 # Zope group CVS variant setup procedure
    192 proc zope.setup_cvs {cvsroot {module ""}} {
    193         global version distname workpath worksrcpath
    194         global zope.product
    195         global zope.cvsroot zope.cvsmodule zope.cvsdefault zope.need_cvsdir
    196 
    197         switch -glob ${cvsroot} {
    198                 zope {
    199                         set zope.cvsroot :pserver:anonymous@cvs.zope.org:/cvs-repository
    200                         set zope.cvsdefault Products/${zope.product}
    201                 }
    202                 collective {
    203                         set zope.cvsroot :pserver:anonymous@cvs.sourceforge.net:/cvsroot/collective
    204                         set zope.cvsdefault ${zope.product}
    205                 }
    206                 sourceforge {
    207                         set project [string tolower ${zope.product}]
    208                         set zope.cvsroot :pserver:anonymous@cvs.sourceforge.net:/cvsroot/${project}
    209                         set zope.cvsdefault ${zope.product}
    210                 }
    211                 sourceforge:* {
    212                         set project [lindex [split ${cvsroot} {:}] 1]
    213                         set zope.cvsroot :pserver:anonymous@cvs.sourceforge.net:/cvsroot/${project}
    214                         set zope.cvsdefault ${zope.product}
    215                 }
    216                 default {
    217                         set zope.cvsroot :pserver:${cvsroot}
    218                         set zope.cvsdefault ${zope.product}
    219                 }
    220         }
    221         if {[string length ${module}] == 0} {
    222                 set zope.cvsmodule ${zope.cvsdefault}
    223         } else {
    224                 set zope.cvsmodule ${module}
    225         }
    226 
    227         version         [clock format [clock seconds] -format %Y%m%d]
    228         distname        ${zope.product}-${version}
    229 
    230         fetch.type      cvs
    231         cvs.root        ${zope.cvsroot}
    232         cvs.module      ${zope.cvsmodule}
    233 
    234         if {[tbool zope.need_cvsdir]} {
    235                 cvs.args        -d ${zope.product}
    236                 cvs.dir         ${worksrcpath}
    237         } else {
    238                 cvs.args        -d ${distname}
    239         }
    240         pre-fetch {
    241                 if {[tbool zope.need_cvsdir]} {
    242                         ui_debug "mkdir: ${worksrcpath}"
    243                         file mkdir ${worksrcpath}
    244                 }
    245         }
    246 }
    247 
    248181# Zope group option procedures
    249182proc zope.fix_extract_dir {option action args} {
     
    258191}
    259192
    260 proc zope.fix_cvs_dir {option action args} {
    261         global workpath worksrcpath distname zope.product
    262         if {[string equal ${action} "set"]} {
    263                 if {[tbool args]} {
    264                         cvs.args        -d ${zope.product}
    265                         cvs.dir         ${worksrcpath}
    266                 } else {
    267                         cvs.args        -d ${distname}
    268                         cvs.dir         ${workpath}
    269                 }
    270         }
    271 }
Note: See TracChangeset for help on using the changeset viewer.