Subversion Repositories DevTools

Rev

Rev 275 | Rev 5710 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 275 Rev 343
Line 95... Line 95...
95 
 
 95 
 
96 
    #
 96 
    #
97 
    #   Is this platform currently active
 97 
    #   Is this platform currently active
98 
    #
 98 
    #
99 
    return if ( ! ActivePlatform($platforms) );
 99 
    return if ( ! ActivePlatform($platforms) );
- 
 
 100 
 
- 
 
 101 
    #
- 
 
 102 
    #   Save the current Error Reporting configuration and starta new one
- 
 
 103 
    #   The state will be restored when the staved state goes out of scope
100 
    DebugPush("MugFiles");
 104 
    #   at the end of the function
- 
 
 105 
    #
- 
 
 106 
    my $estate = ErrorReConfig ('name' => 'MugFiles');
101 
 
 107 
 
102 
    #
 108 
    #
103 
    #   Insert defaults
 109 
    #   Insert defaults
104 
    #
 110 
    #
105 
    $muginfo{'ThxBase'} = 'thx';
 111 
    $muginfo{'ThxBase'} = 'thx';
Line 210... Line 216...
210 
    else
 216 
    else
211 
    {
 217 
    {
212 
        push @ThxOnly, \%muginfo;
 218 
        push @ThxOnly, \%muginfo;
213 
    }
 219 
    }
214 
    Error("No Packages or directories specified") unless ( $muginfo{'Dirs'} );
 220 
    Error("No Packages or directories specified") unless ( $muginfo{'Dirs'} );
215 
 
 - 
 
216 
    DebugPop();
 - 
 
217 
}
 221 
}
218 
 
 222 
 
219 
#-------------------------------------------------------------------------------
 223 
#-------------------------------------------------------------------------------
220 
# Function        : ThxFiles
 224 
# Function        : ThxFiles
221 
#
 225 
#
Line 262... Line 266...
262 
        } else {
 266 
        } else {
263 
            Warning("MugFiles: Unknown option: $_");
 267 
            Warning("MugFiles: Unknown option: $_");
264 
        }
 268 
        }
265 
    }
 269 
    }
266 
 
 270 
 
- 
 
 271 
 
267 
    #
 272 
    #
268 
    #   Set new Debug header and level
 273 
    #   Set new Debug header and level
- 
 
 274 
    #   Save the current Error Reporting configuration and starta new one
- 
 
 275 
    #   The state will be restored when the staved state goes out of scope
269 
    #   These will be popped later
 276 
    #   at the end of the function
270 
    #
 277 
    #
271 
    $verbose = DebugPush("MugGenerate", $verbose);
 278 
    my $estate = ErrorReConfig ('name' => 'MugGenerate', 'verbose' => $verbose );
272 
    Debug("Mugfiles: Set Verbosity: $verbose");
 - 
 
273 
 
 279 
 
274 
    #
 280 
    #
275 
    #   Enable copy operation logging
 281 
    #   Enable copy operation logging
276 
    #
 282 
    #
277 
    SetCopyDirDefaults ('Log' => $verbose );
 283 
    SetCopyDirDefaults ('Log' => $verbose );
Line 564... Line 570...
564 
 
 570 
 
565 
        my $opts = ($verbose > 1) ? " -d" : "";
 571 
        my $opts = ($verbose > 1) ? " -d" : "";
566 
        Debug( "Running GENAPPA");
 572 
        Debug( "Running GENAPPA");
567 
        System( "genappa $genappa$opts -o $mugdir" ) && Error( "Problem running genappa" );
 573 
        System( "genappa $genappa$opts -o $mugdir" ) && Error( "Problem running genappa" );
568 
    }
 574 
    }
569 
 
 - 
 
570 
    #
 - 
 
571 
    #   Cleanup the debugging interface
 - 
 
572 
    #
 - 
 
573 
    DebugPop();
 - 
 
574 
}
 575 
}
575 
 
 576 
 
576 
#-------------------------------------------------------------------------------
 577 
#-------------------------------------------------------------------------------
577 
# Function        : LocateLoadFile
 578 
# Function        : LocateLoadFile
578 
#
 579 
#