Subversion Repositories DevTools

Rev

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

Rev 1107 Rev 1109
Line 395... Line 395...
395 
#
 395 
#
396 
# Returns         :
396 
# Returns         :
397 
#
 397 
#
398 
sub Day0BuildSdImage
 398 
sub Day0BuildSdImage
399 
{
 399 
{
400 
    my $size = 501248;
 - 
 
401 
    my $fullfs = 0;
 - 
 
402 
    my $debug;
 400 
    my $debug;
- 
 
 401 
    my %diskGeometry = (
- 
 
 402 
            fullfs  => 0,                   # Test Image Size
- 
 
 403 
            size    => 501248,              # Block Size of Entire Disk
- 
 
 404 
            rootfs  => 30,                  # Root Size (Megabytes)
- 
 
 405 
            logfs   => 20,                  # Log
- 
 
 406 
            afcfs   => 150,                 # AFC
- 
 
 407 
            varfs   => 'rest'               # Var - has the rest
- 
 
 408 
            );
- 
 
 409 
 
403 
 
 410 
 
404 
    #
 411 
    #
405 
    #   Ensure that some work is being done
 412 
    #   Ensure that some work is being done
406 
    #
 413 
    #
407 
    Error ("Day0Source must be specified first")
 414 
    Error ("Day0Source must be specified first")
Line 414... Line 421...
414 
    #   Process user options
 421 
    #   Process user options
415 
    #
 422 
    #
416 
    foreach  ( @_ )
 423 
    foreach  ( @_ )
417 
    {
 424 
    {
418 
        if ( m~^--disk-blocks=(\d+)$~i ) {
 425 
        if ( m~^--disk-blocks=(\d+)$~i ) {
419 
            $size = $1;
 426 
            $diskGeometry{'size'} = $1;
- 
 
 427 
 
420 
        } elsif ( m~^--full_image=(\d+)$~i ) {
 428 
        } elsif ( m~^--full_image=(\d+)$~i ) {
421 
            $fullfs = $1;
 429 
            $diskGeometry{'fullfs'} = $1;
- 
 
 430 
 
- 
 
 431 
        } elsif ( m~^--rootfs=(\d+)$~i ) {
- 
 
 432 
            $diskGeometry{'rootfs'} = $1;
- 
 
 433 
 
- 
 
 434 
        } elsif ( m~^--logfs=(\d+)$~i ) {
- 
 
 435 
            $diskGeometry{'logfs'} = $1;
- 
 
 436 
 
- 
 
 437 
        } elsif ( m~^--afcfs=(\d+)$~i ) {
- 
 
 438 
            $diskGeometry{'afcfs'} = $1;
- 
 
 439
- 
 
 440 
        } elsif ( m~^--varfs=~i ) {
- 
 
 441 
            Error ('Var File System cannot be configured');
- 
 
 442 
 
422 
        } elsif ( m~^--debug~i ) {
 443 
        } elsif ( m~^--debug~i ) {
423 
            $debug = 1;
 444 
            $debug = 1;
424 
        } else {
 445 
        } else {
425 
            Error ("Day0BuildSdImage: Unknown option: $_");
 446 
            Error ("Day0BuildSdImage: Unknown option: $_");
426 
        }
 447 
        }
Line 498... Line 519...
498 
    #
 519 
    #
499 
    #   Invoke SD build function
 520 
    #   Invoke SD build function
500 
    #   Held in another package to make this one readable
 521 
    #   Held in another package to make this one readable
501 
    #
 522 
    #
502 
    my $name = "${opt_buildname}-${opt_version}-${opt_target}";
 523 
    my $name = "${opt_buildname}-${opt_version}-${opt_target}";
503 
    CreateSdImage( $opt_packagebindir, $name, $WORK, $BUILD, $size, $fullfs );
 524 
    CreateSdImage( $opt_packagebindir, $name, $WORK, $BUILD, \%diskGeometry );
504 
}
 525 
}
505 
 
 526 
 
506 
#-------------------------------------------------------------------------------
 527 
#-------------------------------------------------------------------------------
507 
# Function        : AddInitScript
 528 
# Function        : AddInitScript
508 
#
 529 
#