Trivial Utilities

110

`print`: Main loop

       if ($type eq '???') {
         die "I can't figure out what type of data is in that file.\n";
       }
       my @path = conversion_path($type, $CONF{printable});

This figures out how to convert the file to the preferred format

We will see it later

       warn "Conversion path: @path\n" if $opt_v;
       unless (@path) {
         die "I don't know how to convert from file type $type to
         $CONF{printable}.\n";
       }
       shift @path;          # the first element is the source type

       for my $next_type (@path) {
         $file = convert($file, $next_type,
             $CONF{"$type\->$next_type"});
         $type = $next_type;
       }
       spool($file) for 1 .. $NCOPIES;
       unlink @TMPFILES;
       @TMPFILES = ();
     }

That's it

Copyright © 2012 M. J. Dominus