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
#