#!/usr/bin/perl -w

# This is just a test for mings actionscriptcompiler

use lib("/aodv/bin/lib/site_perl");
use SWF;

SWF::setVersion(5);

$movie = new SWF::Movie;
$movie->setDimension(400,300);
$movie->setBackground(0xFF, 0xFF, 0x99 );
$movie->setRate(10); 

# these as-codes crashes the actionscriptcompiler
#$movie->add(new SWF::Action(""));
#$movie->add(new SWF::Action("//comment"));
#$movie->add(new SWF::Action("if(true) //comment"));
#$movie->add(new SWF::Action("do{}while(1);"));

$movie->add(new SWF::Action("{}"));
$movie->add(new SWF::Action("if(1){}"));
$movie->add(new SWF::Action("if(true){}"));
$movie->add(new SWF::Action("if(true){//comment
}"));

$movie->add(new SWF::Action("if(true){/* */}"));
$movie->add(new SWF::Action("if(true){
//
}"));
$movie->add(new SWF::Action("while(true){}"));
$movie->add(new SWF::Action("for(;;){}"));
$movie->add(new SWF::Action("object={};
//comment
for (attribut in object){}
"));
$movie->add(new SWF::Action("if(true){}else{}"));
$movie->add(new SWF::Action("if(true){}
/* comment */
else{}"));

$movie->nextFrame;
$movie->save("$0.swf");