[45614] trunk/base/src/port1.0/portdestroot.tcl

[Ryan Schmidt]

On Jan 18, 2009, at 18:07, raimue at macports.org wrote:

> Revision: 45614
>           http://trac.macports.org/changeset/45614
> Author:   raimue at macports.org
> Date:     2009-01-18 16:07:44 -0800 (Sun, 18 Jan 2009)
> Log Message:
> -----------
> port1.0/portdestroot.tcl:
> Create ${applications_dir} and ${frameworks_dir} in destroot_start,  
> so we do
> not have to create them in Portfiles.

Thank you! Great idea.

> Modified Paths:
> --------------
>     trunk/base/src/port1.0/portdestroot.tcl
>
> Modified: trunk/base/src/port1.0/portdestroot.tcl
> ===================================================================
> --- trunk/base/src/port1.0/portdestroot.tcl	2009-01-19 00:05:38 UTC  
> (rev 45613)
> +++ trunk/base/src/port1.0/portdestroot.tcl	2009-01-19 00:07:44 UTC  
> (rev 45614)
> @@ -88,6 +88,7 @@
>  proc destroot_start {args} {
>      global UI_PREFIX prefix portname porturl destroot os.platform  
> destroot.clean portsharepath
>      global destroot::oldmask destroot.umask
> +    global applications_dir frameworks_dir
>
>      ui_msg "$UI_PREFIX [format [msgcat::mc "Staging %s into  
> destroot"] ${portname}]"
>
> @@ -101,6 +102,8 @@
>      file mkdir "${destroot}"
>      if { ${os.platform} == "darwin" } {
>          system "cd \"${destroot}\" && ${mtree} -e -U -f [file join  
> ${portsharepath} install macosx.mtree]"
> +        file mkdir "${destroot}/${applications_dir}"
> +        file mkdir "${destroot}/${frameworks_dir}"
>      }
>      file mkdir "${destroot}/${prefix}"
>      system "cd \"${destroot}/${prefix}\" && ${mtree} -e -U -f  
> [file join ${portsharepath} install prefix.mtree]"

They don't need slashes between them, though, do they?