TheCloud/panda3d
1
0
Fork 0
mirror of https://github.com/panda3d/panda3d.git synced 2025-10-03 02:15:43 -04:00
Code Issues Packages Projects Releases Wiki Activity

allow - modifier to append rather than prepend paths within .init definition files

Browse Source
This commit is contained in:
Ken Patel 2009-11-18 19:46:23 +00:00
parent d0d2ac4fa0
commit 88eea6be3a
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
dtool/src/attach/ctattch.pl
View File

@ -138,6 +138,10 @@ sub CTAttachMod {
&CTUDebug( "post-pending '" . $_[1] . "' to " . $_[0] .
"\n" ) ;
$newenv{$_[0]} = $newenv{$_[0]} . " " . $_[1] ;
} elsif ( $envpostpendexceptions{$_[0]}{$_[1]} ) {
&CTUDebug( "post-pending (by exception) '" . $_[1] . "' to '" . $_[0] .
"'\n" ) ;
$newenv{$_[0]} = $newenv{$_[0]} . " " . $_[1] ;
} else {
&CTUDebug( "pre-pending '" . $_[1] . "' to " . $_[0] .
"\n" ) ;
@ -232,6 +236,7 @@ sub CTAttachCompute {
local( %localdo );
local( $localdocnt ) = 0 ;
local( %localpost );
local( %localpostexceptions ) = () ;
if ( -e $init ) {
&CTUDebug( "scanning " . $_[0] . ".init\n" ) ;
local( @linesplit ) ;
@ -249,19 +254,37 @@ sub CTAttachCompute {
$linetmp = $linesplit[1] ;
shift( @linesplit ) ;
shift( @linesplit ) ;
$linesplitjoin = join( " ", @linesplit ) ;
if ( $linesplit[0] eq "-" ) {
shift( @linesplit ) ;
$linesplitjoin = join( " ", @linesplit ) ;
$localpostexceptions{$linetmp}{$linesplitjoin} = 1 ;
&CTUDebug( "Creating post-pend exception for '" .
$linetmp . "':'" . $linesplitjoin . "'\n" ) ;
}
if ( $localmod{$linetmp} eq "" ) {
$localmod{$linetmp} = join( " ", @linesplit ) ;
$localmod{$linetmp} = $linesplitjoin ;
} else {
$localmod{$linetmp} = $localmod{$linetmp} . " " .
join( " ", @linesplit ) ;
$linesplitjoin ;
}
} elsif ( $_ =~ /^MODREL/ ) {
@linesplit = split ;
$linetmp = $linesplit[1] ;
shift( @linesplit ) ;
shift( @linesplit ) ;
$postexception = 0 ;
foreach $loop ( @linesplit ) {
if ( $loop eq "-" ) {
$postexception = 1 ;
next ;
}
$looptmp = $root . "/" . &CTUShellEval($loop) ;
if ( $postexception ) {
$localpostexceptions{$linetmp}{$looptmp} = 1 ;
&CTUDebug( "Creating post-pend exception for '" .
$linetmp . "':'" . $looptmp . "'\n" ) ;
}
if ( -e $looptmp ) {
if ( $localmod{$linetmp} eq "" ) {
$localmod{$linetmp} = $looptmp ;
@ -398,6 +421,7 @@ sub CTAttachCompute {
foreach $item ( keys %localpost ) {
$envpostpend{$item} = $localpost{$item} ;
}
%envpostpendexceptions = %localpostexceptions;
foreach $item ( keys %localmod ) {
local( @splitthis ) = split( / +/, $localmod{$item} ) ;
local( $thing ) ;
@ -415,6 +439,7 @@ sub CTAttachCompute {
$envdo{$docnt} = $localdo{$item} ;
$docnt++ ;
}
%envpostpendexceptions = () ;
}
&CTUDebug( "out of CTAttachCompute\n" ) ;