CLIX - Fazer Clix Custa Nix/CLIX-CD.cdr/mac/lib/Mac/MoreFiles.pm

Text File | 1998-04-05 | 2KB | 97 lines

=head1 NAME

Mac::MoreFiles - Sophisticated file management routines

=head1 SYNOPSIS

    use Mac::MoreFiles;

    $application = $Application{"MrPL"};

=head1 DESCRIPTION

=cut

use strict;

package Mac::MoreFiles;

BEGIN {
    use Exporter   ();
    use DynaLoader ();

    use vars qw(@ISA @EXPORT %Application);

    @ISA = qw(Exporter DynaLoader);
    @EXPORT = qw(
        FSpCreateMinimum
        FSpShare
        FSpUnshare
        FSpFileCopy
        FSpDirectoryCopy
        FSpIterateDirectory
        FSpDTGetAPPL
        FSpDTSetComment
        FSpDTGetComment
        FSpDTCopyComment

        %Application
    );
}

package Mac::MoreFiles::_ApplHash;

BEGIN {
    use Tie::Hash ();

    use vars qw(@ISA);

    @ISA = qw(Tie::StdHash);
}

sub FETCH {
    my($self,$id) = @_;
    my($vol,$app);

    if (!$self->{$id}) {
        for $vol (MacPerl::Volumes()) {
            $app = Mac::MoreFiles::FSpDTGetAPPL(hex(substr($vol, 1, 4)), $id);
            last if ($app);
        }
        $self->{$id} = $app;
    }
    $self->{$id};
}

package Mac::MoreFiles;

=head2 Variables

=over 4

=item %Application

The C<%Application> hash will return the path to the application for a given
signature, searching on all mounted volumes.

=back

=cut
tie %Application, q(Mac::MoreFiles::_ApplHash);

bootstrap Mac::MoreFiles;

=include MF.xs

=head1 AUTHOR(S)

Matthias Ulrich Neeracher <[e-mail]> Author

Bob Dalgleish <[e-mail]> Documenter

=cut

1;

__END__