root/utilities/processor.cpp

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. throw_exception
  2. resetLastAdvanceTimer
  3. secondsSinceLastAdvance
  4. notify
  5. call
  6. exit
  7. main
  8. play_movie
  9. usage

// processor.cpp:  Flash movie processor (gprocessor command), for Gnash.
// 
//   Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010,
//   2011 Free Software Foundation, Inc
// 
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 3 of the License, or
// (at your option) any later version.
// 
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

#ifdef HAVE_CONFIG_H
#include "gnashconfig.h"
#endif

#include <ios>
#include <iostream>
#include <cstdio>
#include <cstdlib>
#include <ctime>
#include <typeinfo>
#include <boost/any.hpp>

#ifdef ENABLE_NLS
# include <clocale>
#endif

#include "NullSoundHandler.h"
#include "MovieFactory.h"
#include "swf/TagLoadersTable.h"
#include "swf/DefaultTagLoaders.h"
#include "ClockTime.h"
#include "movie_definition.h"
#include "MovieClip.h"
#include "movie_root.h"
#include "log.h"
#include "rc.h"
#include "URL.h"
#include "GnashException.h"
#include "VM.h"
#include "noseek_fd_adapter.h"
#include "ManualClock.h"
#include "StringPredicates.h"
#include "smart_ptr.h"
#include "IOChannel.h" // for proper dtor call
#include "GnashSleep.h" // for usleep comptibility.
#include "StreamProvider.h"
#include "RunResources.h"
#include "HostInterface.h"

#ifdef RENDERER_AGG
#include "Renderer.h"
#include "Renderer_agg.h"
#endif

extern "C"{
#ifdef HAVE_GETOPT_H
        #include <getopt.h>
#endif
#ifndef __GNUC__
        extern char *optarg;
        extern int   optopt;
        extern int optind, getopt(int, char *const *, const char *);
#endif
}

#ifdef BOOST_NO_EXCEPTIONS

namespace boost
{
        void throw_exception(std::exception const & e)
        {
                std::abort();
        }
}
#endif

// How many seconds to wait for a frame advancement 
// before kicking the movie (forcing it to next frame)
static const double waitforadvance = 5;

// How many time do we allow for loop backs
// (goto frame < current frame)
static const size_t allowloopbacks = 10;

// How many times to call 'advance' ?
// If 0 number of advance is unlimited
// (see other constraints)
// TODO: add a command-line switch to control this
static size_t limit_advances = 0;

// How much time to sleep between advances ?
// If set to -1 it will be computed based on FPS.
static long int delay = 0;

const char *GPROC_VERSION = "1.0";

using namespace gnash;

static void usage (const char *);

namespace {
gnash::LogFile& dbglogfile = gnash::LogFile::getDefaultInstance();
gnash::RcInitFile& rcfile = gnash::RcInitFile::getDefaultInstance();
}

static bool play_movie(const std::string& filename,
        const RunResources& runResources);

static bool s_stop_on_errors = true;

// How many time do we allow to hit the end ?
static size_t allowed_end_hits = 1;

double lastAdvanceTimer;

void
resetLastAdvanceTimer()
{
    // clocktime::getTicks() returns milliseconds
        lastAdvanceTimer = static_cast<double>(clocktime::getTicks()) / 1000.0;
}

double
secondsSinceLastAdvance()
{
    // clocktime::getTicks() returns milliseconds
        double now = static_cast<double>(clocktime::getTicks()) / 1000.0;
        return ( now - lastAdvanceTimer);
}

// A flag which will be used to interrupt playback
// by effect of a "quit" fscommand
//
static int quitrequested = false;

class FsCommandExecutor: public FsCallback {
public:
        void notify(const std::string& command, const std::string& args)
        {
            log_debug(_("fs_callback(%p): %s %s"), command, args);

            StringNoCaseEqual ncasecomp;
           
            if ( ncasecomp(command, "quit") ) quitrequested = true;
        }
};

class EventCallback: public HostInterface
{
public:
    boost::any call(const HostInterface::Message& e)
        {
        if (e.type() != typeid(HostMessage)) return boost::blank();

        const HostMessage& ev = boost::get<HostMessage>(e);
        const HostMessage::KnownEvent event = ev.event();

        log_debug(_("eventCallback: %s %s"), event);

            static bool mouseShown = true;
            static std::string clipboard;

        switch (event) {
            case HostMessage::QUERY:
                return true;
            case HostMessage::SET_CLIPBOARD:
                clipboard = boost::any_cast<std::string>(ev.arg());
                return boost::blank();

            case HostMessage::SHOW_MOUSE:
            {
                bool state = mouseShown;
                mouseShown = boost::any_cast<bool>(ev.arg());
                return state;
            }

            // Some fake values for consistent test results.
            case HostMessage::SCREEN_RESOLUTION:
                return std::make_pair(800, 640);

                case HostMessage::SCREEN_DPI:
                return 72.0;

                case HostMessage::SCREEN_COLOR:
                return std::string("Color");

                case HostMessage::PLAYER_TYPE:
                return std::string("StandAlone");

                case HostMessage::PIXEL_ASPECT_RATIO:
                return 0.9978;

            default:
                log_debug(_("gprocessor does not handle %1% message"), e);
                break;
        }

            return boost::blank();
        }

    virtual void exit() {
        std::exit(EXIT_SUCCESS);
    }
};

EventCallback eventCallback;
FsCommandExecutor execFsCommand;

int
main(int argc, char *argv[])
{
    std::ios::sync_with_stdio(false);

    // Enable native language support, i.e. internationalization
#ifdef ENABLE_NLS
    std::setlocale (LC_ALL, "");
    bindtextdomain (PACKAGE, LOCALEDIR);
    textdomain (PACKAGE);
#endif
    int c;

    // scan for the two main standard GNU options
    for (c = 0; c < argc; c++) {
      if (strcmp("--help", argv[c]) == 0) {
        usage(argv[0]);
        return EXIT_SUCCESS;
      }
      if (strcmp("--version", argv[c]) == 0) {
        printf (_("Gnash gprocessor version: %s, Gnash version: %s\n"),
                   GPROC_VERSION, VERSION);
        return EXIT_SUCCESS;
      }
    }
 
    std::vector<std::string> infiles;
 
    //RcInitFile& rcfile = RcInitFile::getDefaultInstance();
    //rcfile.loadFiles();
    
    if (rcfile.verbosityLevel() > 0) {
        dbglogfile.setVerbosity(rcfile.verbosityLevel());
    }

    dbglogfile.setLogFilename(rcfile.getDebugLog());

    if (rcfile.useWriteLog()) {
        dbglogfile.setWriteDisk(true);
    }
    
    if (rcfile.useActionDump()) {
        dbglogfile.setActionDump(true);
        dbglogfile.setVerbosity();
    }
    
    if (rcfile.useParserDump()) {
        dbglogfile.setParserDump(true);
        dbglogfile.setVerbosity();
    }

    while ((c = getopt (argc, argv, ":hvapr:gf:d:n")) != -1) {
        switch (c) {
          case 'h':
              usage (argv[0]);
              dbglogfile.removeLog();
              return EXIT_SUCCESS;
          case 'v':
              dbglogfile.setVerbosity();
              log_debug (_("Verbose output turned on"));
              break;
          case 'n':
              dbglogfile.setNetwork(true); 
              break;
          case 'a':
#if VERBOSE_ACTION
              dbglogfile.setActionDump(true); 
#else
              log_error (_("Verbose actions disabled at compile time"));
#endif
              break;
          case 'p':
#if VERBOSE_PARSE
              dbglogfile.setParserDump(true); 
#else
              log_error (_("Verbose parsing disabled at compile time"));
#endif
              break;
          case 'r':
              allowed_end_hits = strtol(optarg, NULL, 0);
              break;
          case 'd':
              delay = strtol(optarg, NULL, 0)*1000; // delay is in microseconds
              // this will be recognized as a request to run at FPS speed
              if ( delay < 0 ) delay = -1;
              break;
          case 'f':
              limit_advances = strtol(optarg, NULL, 0);
              break;
          case ':':
              fprintf(stderr, "Missing argument for switch ``%c''\n", optopt); 
              return EXIT_FAILURE;
          case '?':
          default:
              fprintf(stderr, "Unknown switch ``%c''\n", optopt); 
              return EXIT_FAILURE;
        }
    }
    
    
    // get the file name from the command line
    while (optind < argc) {
        infiles.push_back(argv[optind]);
            optind++;
    }

    // No file names were supplied
    if (infiles.empty()) {
            std::cerr << "no input files" << std::endl;
            usage(argv[0]);
        dbglogfile.removeLog();
            return EXIT_FAILURE;
    }

    boost::shared_ptr<gnash::media::MediaHandler> mediaHandler;
    boost::shared_ptr<sound::sound_handler> soundHandler;

    std::string mh = rcfile.getMediaHandler();
    mediaHandler.reset(media::MediaFactory::instance().get(mh));
    soundHandler.reset(new sound::NullSoundHandler(mediaHandler.get()));

    boost::shared_ptr<SWF::TagLoadersTable> loaders(new SWF::TagLoadersTable());
    addDefaultLoaders(*loaders);

#ifdef RENDERER_AGG
    boost::shared_ptr<Renderer_agg_base> r(create_Renderer_agg("RGBA32"));

    // Yes, this leaks. On some systems (e.g. Debian Lenny) the data is
    // evidently accessed after main() returns. Rather than bothering to
    // work out why, we let this byte leak, as it's returned to the system on
    // exit anyway.
    unsigned char* buf = new unsigned char[8];
    r->init_buffer(buf, 1, 1, 1, 1);
#endif

    // Play through all the movies.
    for (std::vector<std::string>::const_iterator i = infiles.begin(), 
            e = infiles.end(); i != e; ++i)
    {

        RunResources runResources;
        runResources.setSoundHandler(soundHandler);
        runResources.setMediaHandler(mediaHandler);
        runResources.setTagLoaders(loaders);
        boost::shared_ptr<StreamProvider> sp(new StreamProvider(*i, *i));
        runResources.setStreamProvider(sp);

#ifdef RENDERER_AGG
        runResources.setRenderer(r);
#endif

            bool success = play_movie(*i, runResources);
            if (!success) {
                if (s_stop_on_errors) {
                    // Fail.
                std::cerr << "error playing through movie " << *i << std::endl;
                        return EXIT_FAILURE;
                }
        }
        
    }
    
    return 0;
}

// Load the named movie, make an instance, and play it, virtually.
// I.e. run through and render all the frames, even though we are not
// actually doing any output (our output handlers are disabled).
//
bool
play_movie(const std::string& filename, const RunResources& runResources)
{
    boost::intrusive_ptr<gnash::movie_definition> md;

    quitrequested = false;

    URL url(filename);
    
    try
    {
      if (filename == "-")
      {
         std::auto_ptr<IOChannel> in (
                 noseek_fd_adapter::make_stream(fileno(stdin)) );
         md = MovieFactory::makeMovie(in, filename, runResources, false);
      }
      else
      {
         if ( url.protocol() == "file" )
         {
             const std::string& path = url.path();
#if 1 // add the *directory* the movie was loaded from to the local sandbox path
             size_t lastSlash = path.find_last_of('/');
             std::string dir = path.substr(0, lastSlash+1);
             rcfile.addLocalSandboxPath(dir);
             log_debug(_("%s appended to local sandboxes"), dir.c_str());
#else // add the *file* to be loaded to the local sandbox path
             rcfile.addLocalSandboxPath(path);
             log_debug(_("%s appended to local sandboxes"), path.c_str());
#endif
         }
         md = MovieFactory::makeMovie(url, runResources, NULL, false);
      }
    }
    catch (GnashException& ge)
    {
      md = NULL;
      fprintf(stderr, "%s\n", ge.what());
    }
    if (md == NULL) {
        std::cerr << "error: can't play movie: "<< filename << std::endl;
            return false;
    }
    
    float fps = md->get_frame_rate();
    long fpsDelay = long(1000000/fps);
    long clockAdvance = fpsDelay/1000;
    long localDelay = delay == -1 ? fpsDelay : delay; // microseconds

    log_debug("Will sleep %ld microseconds between iterations - "
            "fps is %g, clockAdvance is %lu", localDelay, fps, clockAdvance);


    // Use a clock advanced at every iteration to match exact FPS speed.
    ManualClock cl;

    // Scope to ensure that movie_root is destroyed before the library
    // is cleared; otherwise movie_root's MovieLoader can continue to
    // add movie_definitions to MovieLibrary, which then keeps them
    // and their parsing thread alive until static destruction. The parser
    // can then continue to access destroyed resources.
    {
        gnash::movie_root m(*md, cl, runResources);
        
        // Register processor to receive ActionScript events (Mouse, Stage
        // System etc).
        m.registerEventCallback(&eventCallback);
        m.registerFSCommandCallback(&execFsCommand);

        md->completeLoad();

        MovieClip::MovieVariables v;
        m.init(md.get(), v);

        log_debug("iteration, timer: %lu, localDelay: %ld\n",
                cl.elapsed(), localDelay);
        gnashSleep(localDelay);
        
        resetLastAdvanceTimer();
        int     kick_count = 0;
        int stop_count=0;
        size_t loop_back_count=0;
        size_t latest_frame=0;
        size_t end_hitcount=0;
        size_t nadvances=0;
        // Run through the movie.
        while (!quitrequested) {
            
            size_t      last_frame = m.get_current_frame();
            //printf("advancing clock by %lu\n", clockAdvance);
            cl.advance(clockAdvance);
            m.advance();

            if ( quitrequested ) 
            {
                quitrequested = false;
                break;
            }

            m.display(); // FIXME: for which reason are we calling display here ??
            ++nadvances;
            if ( limit_advances && nadvances >= limit_advances)
            {
                log_debug("exiting after %d advances", nadvances);
                break;
            }

            size_t curr_frame = m.get_current_frame();
            
            // We reached the end, done !
            if (curr_frame >= md->get_frame_count() - 1 )
            {
                if ( allowed_end_hits && ++end_hitcount >= allowed_end_hits )
                {
                    log_debug("exiting after %d" 
                           " times last frame was reached", end_hitcount);
                        break;
                }
            }

            // We didn't advance 
            if (curr_frame == last_frame)
            {
                // Max stop counts reached, kick it
                if ( secondsSinceLastAdvance() > waitforadvance )
                {
                    stop_count=0;

                    // Kick the movie.
                    if ( last_frame + 1 > md->get_frame_count() -1 )
                    {
                        fprintf(stderr, "Exiting after %g seconds in STOP mode at last frame\n", waitforadvance);
                        break;
                    }
                    fprintf(stderr, "Kicking movie after %g seconds in STOP mode, kick ct = %d\n", waitforadvance, kick_count);
                    fflush(stderr);
                    m.goto_frame(last_frame + 1);
                    m.getRootMovie().setPlayState(gnash::MovieClip::PLAYSTATE_PLAY);
                    kick_count++;

                    if (kick_count > 10) {
                        printf("movie is stalled; giving up on playing it through.\n");
                        break;
                    }

                        resetLastAdvanceTimer(); // It's like we advanced
                }
            }
            
            // We looped back.  Skip ahead...
            else if (m.get_current_frame() < last_frame)
            {
                if ( last_frame > latest_frame ) latest_frame = last_frame;
                if ( ++loop_back_count > allowloopbacks )
                {
                    log_debug("%d loop backs; jumping one-after "
                            "latest frame (%d)",
                            loop_back_count, latest_frame+1);
                    m.goto_frame(latest_frame + 1);
                    loop_back_count = 0;
                }
            }
            else
            {
                kick_count = 0;
                stop_count = 0;
                resetLastAdvanceTimer();
            }

            log_debug("iteration, timer: %lu, localDelay: %ld\n",
                    cl.elapsed(), localDelay);
            gnashSleep(localDelay);
        }

    }

    log_debug("-- Playback completed");

    log_debug("-- Dropping ref of movie_definition");

    // drop reference to movie_definition, to force
    // destruction when core gnash doesn't need it anymore
    md = 0;

    log_debug("-- Cleaning gnash");
 
    // Clear resources.
    // Forces run of GC, which in turn may invoke
    // destuctors of (say) MovieClip which would try
    // to access the movie_root to unregister self
    //
    // This means that movie_root must be available.
    MovieFactory::clear();

    return true;
}

static void
usage (const char *name)
{
    printf(
        _("gprocessor -- an SWF processor for Gnash.\n"
        "\n"
        "usage: %s [options] <file>\n"
        "\n"
        "Process the given SWF movie files.\n"
        "\n"
        "%s%s%s%s"), name, _(
        "options:\n"
        "\n"
        "  --help(-h)  Print this info.\n"      
        "  --version   Print the version numbers.\n"    
        "  -v          Be verbose; i.e. print log messages to stdout\n"
          ),
#if VERBOSE_PARSE
        _("  -vp         Be verbose about movie parsing\n"),
#else
        "",
#endif
#if VERBOSE_ACTION
        _("  -va         Be verbose about ActionScript\n"),
#else
        "",
#endif
        _(
        "  -d [<ms>]\n"
        "              Milliseconds delay between advances (0 by default).\n"
        "              If '-1' the delay will be computed from the FPS.\n"
        "  -r <times>  Allow the given number of complete runs.\n"
        "              Keep looping undefinitely if set to 0.\n"
        "              Default is 1 (end as soon as the last frame is reached).\n"
        "  -f <frames>  \n"
        "              Allow the given number of frame advancements.\n"
        "              Keep advancing untill any other stop condition\n"
        "              is encountered if set to 0 (default).\n")
        );
}


// Local Variables:
// mode: C++
// indent-tabs-mode: t
// End:

/* [<][>][^][v][top][bottom][index][help] */