package textbender::a::b::Build; # Copyright 2006, Michael Allan.  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Textbender Software"), to deal in the Textbender Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicence, and/or sell copies of the Textbender Software, and to permit persons to whom the Textbender Software is furnished to do so, subject to the following conditions: The preceding copyright notice and this permission notice shall be included in all copies or substantial portions of the Textbender Software. THE TEXTBENDER SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE TEXTBENDER SOFTWARE OR THE USE OR OTHER DEALINGS IN THE TEXTBENDER SOFTWARE.

use strict; use warnings;
=pod

=head1 DESCRIPTION

Unsorted build code.

=head1 EXPORTS

=over 4

=cut

BEGIN
{
    use Exporter ();
    our @ISA; @ISA = qw( Exporter );
    our @EXPORT_OK; @EXPORT_OK = qw
        ( build_cache_root call_stack_indentation ensure_dir %option out_dir target_temp_dir );
}
our @EXPORT_OK;

{
    use textbender::a::b::Config qw( do_fail config_basepath_from_package );
    my $config_path = config_basepath_from_package(__PACKAGE__) . '.pl';
    do $config_path or do_fail $config_path;
}



=pod

=item B<call_stack_indentation>

Returns an indentation string reflecting the caller's call stack.

=cut

sub call_stack_indentation()
{
    my $caller_bound = 1; # so far
    while( caller( $caller_bound ))
    {
        ++$caller_bound;
    }
    my $caller_count = $caller_bound - 1;
    --$caller_count; # subtract this call
    ++$caller_count; # correction (unknown reason)
    return '  ' x $caller_count;
}



=pod

=item B<ensure_dir> ( $dir )

Ensures that $dir exists. Returns $dir.

=cut

sub ensure_dir( $ )
{
    use File::Path qw( mkpath );

    my $dir = shift;

    -d $dir or mkpath $dir or die $!;
    return $dir;
}



=pod

=item B<option>

Hash of command-line options.

=cut

# defined by command-line script



=pod

=item B<out_dir>

Returns the directory to which files are finally output.

=cut

sub out_dir(); # defined by command-line script



=pod

=back

=cut



1;