Re^2: Updated QuickTime format movie file dumper

[GrandFather]

Just replace the package main stuff with:

package main;

my $file = shift;

if (defined $file) {
    $file = DumpQuicktime->new(-file=>$file);
    die $file->lastErr () if length $file->lastErr ();
    print $file->dump ();
}

For me the tree stuff is invaluable. Quicktime atoms are nested about 30 deep in stuff I'm looking at and the output is, I'd guess, a couple of thousand lines long!

Returning a string rather than outputting directly to sdtout allows post processing of the output.

[baboo]

Hmm, the line "$file = DumpQuicktime->new(-file=>$file);" is the same, the same is the error :( Never seen movies with nested more than 3-4 deep atoms. The same with "thousand lines" - an average movie header say with 3-4 tracks may have about hundred or so atoms. Anyway thank you ;-)

[GrandFather]

The only "interesting" module this version of the code depends on is use Class::MethodMaker. What is the error that you are getting?

I wrote this code to see how a move with four sprite tracks in addition to a conventional movie track was being put together. Expressions involved in mouse hit testing get very nested! Note that this code is now looking inside the sprite media data (not just the track headers) to pull apart event handlers and such.

[baboo]

Isn't Tk and Tk::Tree are less "interesting". The problem is on Mac OS X Jaguar I need to recompile the whole Perl bundle to be able compile Tk module. Otherwice Tk returns: ld: Undefined symbols: _PL_curpad _PL_markstack_ptr _PL_op _PL_stack_base _PL_stack_sp _PL_sv_yes _Perl_croak _Perl_form _Perl_get_sv _Perl_mg_set _Perl_newXS _Perl_sv_2iv _Perl_sv_2pv_flags _Perl_sv_2pv_nolen _Perl_sv_newmortal _Perl_sv_setnv _Perl_sv_setpv