Subversion Repositories DevTools

    $self->{FH}             = $handle;

    $self->{FH}             = $handle;

    $self->{FH_inmemory}    = 0;

    $self->{FH_inmemory}    = 0;

    $self->{RECIPE_PREFIX}  = '';

    $self->{RECIPE_PREFIX}  = '';

    $self->{RECIPE_COMMENT} = '';

    $self->{RECIPE_COMMENT} = '';

    $self->{STACK}          = [];

    $self->{STACK}          = [];

    push @{$self->{NAME}}, split(/,/,$name) if ( $name );

    push @{$self->{NAME}}, split(/,/,$name) if ( $name );

    bless ($self, __PACKAGE__);

    bless ($self, __PACKAGE__);

    $data{RECIPE}           = $self->{RECIPE};

    $data{RECIPE}           = $self->{RECIPE};

    $data{SHELL}            = $self->{SHELL};

    $data{SHELL}            = $self->{SHELL};

    $data{RECIPE_PREFIX}    = $self->{RECIPE_PREFIX};

    $data{RECIPE_PREFIX}    = $self->{RECIPE_PREFIX};

    $data{RECIPE_COMMENT}   = $self->{RECIPE_COMMENT};

    $data{RECIPE_COMMENT}   = $self->{RECIPE_COMMENT};

    push @{$self->{STACK}}, \%data;

    push @{$self->{STACK}}, \%data;

    $self->{RECIPE}         = []; 

    $self->{RECIPE}         = []; 

    $self->{SHELL}          = [];

    $self->{SHELL}          = [];

    $self->{RECIPE_PREFIX}  = '';

    $self->{RECIPE_PREFIX}  = '';

    $self->{RECIPE_COMMENT} = '';

    $self->{RECIPE_COMMENT} = '';

}

}

#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------

# Function        : Print

# Function        : Print

#

#

# Description     : Print the entry

# Description     : Print the entry

#

#

        #

        #

        #   Push the current section onto the stack

        #   Push the current section onto the stack

        #   This will simplify processing of all sections

        #   This will simplify processing of all sections

        #

        #

        $self->NewSection();

        $self->NewSection();

        foreach my $recipeEntry (@{$self->{STACK}})

        foreach my $recipeEntry (@{$self->{STACK}})

        {

        {

            my $comment = $recipeEntry->{RECIPE_COMMENT};

            my $comment = $recipeEntry->{RECIPE_COMMENT};

            my $prefix =  $recipeEntry->{RECIPE_PREFIX};

            my $prefix =  $recipeEntry->{RECIPE_PREFIX};

            my $recipe =  $recipeEntry->{RECIPE};

            my $recipe =  $recipeEntry->{RECIPE};

            my $shell =   $recipeEntry->{SHELL};

            my $shell =   $recipeEntry->{SHELL};

            #

            #

            #   Print the Recipe runtime comment

            #   Print the Recipe runtime comment

            #

            #

            if ( $comment )

            if ( $comment )

            {

            {

            #   Print the recipe as a shell command

            #   Print the recipe as a shell command

            #   Bracket the recipes with ( .. ) and place semi colons between lines

            #   Bracket the recipes with ( .. ) and place semi colons between lines

            #   Use the current recipe prefix

            #   Use the current recipe prefix

            #

            #

            print_list ( $prefix . '(', ';\\', $shell, ')');

            print_list ( $prefix . '(', ';\\', $shell, ')');

    }

    }

    print "\n\n";

    print "\n\n";

    #

    #