testsuite/misc-ming.all/RegisterClassTest3.c

   1 /*
   2  *   Copyright (C) 2005, 2006, 2007, 2009, 2010,
   3  *   2011 Free Software Foundation, Inc.
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 3 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  17  *
  18  */
  19 #include <stdlib.h>
  20 #include <stdio.h>
  21 #include <ming.h>
  22
  23 #include "ming_utils.h"
  24
  25 #define OUTPUT_VERSION 8
  26 #define OUTPUT_FILENAME "RegisterClassTest3.swf"
  27
  28
  29 int
  30 main(int argc, char** argv)
  31 {
  32     SWFMovie mo;
  33     SWFMovieClip mc3, mc2, dejagnuclip;
  34     SWFAction ac, ac1, initac;
  35     SWFDisplayItem it;
  36     SWFShape sha;
  37
  38     const char *srcdir=".";
  39     if (argc > 1) srcdir = argv[1];
  40     else {
  41         fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
  42         return 1;
  43     }
  44
  45     Ming_init();
  46     mo = newSWFMovieWithVersion(OUTPUT_VERSION);
  47     SWFMovie_setDimension(mo, 800, 600);
  48     SWFMovie_setRate (mo, 12.0);
  49
  50
  51     sha = newSWFShape();
  52
  53     // Character ID 2. Has 1 showframe. Is exported first.
  54     mc2 = newSWFMovieClip();
  55     SWFMovieClip_add(mc2, (SWFBlock)sha);
  56     SWFMovieClip_nextFrame(mc2);
  57
  58     // Export it.
  59     SWFMovie_addExport(mo, (SWFBlock)mc2, "C2");
  60     SWFMovie_writeExports(mo);
  61
  62     // Main timeline actions for frame 1
  63     add_actions(mo, "var c = 0; var i = 0; trace('frame 1'); gotoAndStop(3);");
  64     initac = newSWFAction("trace('onInitialize'); _root.i++;");
  65
  66     // ID 3 is defined here. It has no showframe. It is exported immediately.
  67     mc3 = newSWFMovieClip();
  68     SWFMovie_addExport(mo, (SWFBlock)mc3, "ctor");
  69     SWFMovie_writeExports(mo);
  70
  71     dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10,
  72                     0, 0, 800, 600);
  73     SWFMovie_add(mo, (SWFBlock)dejagnuclip);
  74
  75     // Init actions for ID 3. This only exists to create the constructor
  76     // for mc2 in its initactions.
  77     ac = newSWFAction(
  78     "   _global.ctor = function () {"
  79     "       super();"
  80     "       trace('Object ID 2 is constructed');"
  81     "       c += 1;"
  82     "   };"
  83     );
  84     SWFInitAction ia = newSWFInitAction_withId(ac, 3);
  85     SWFMovie_add(mo, (SWFBlock)ia);
  86
  87     // Init actions for ID 2 (registered class)
  88     ac1 = newSWFAction("Object.registerClass('C2', ctor); "
  89             "trace('Registered class');");
  90     ia = newSWFInitAction_withId(ac1, 2);
  91     SWFMovie_add(mo, (SWFBlock)ia);
  92
  93
  94     // Frame 2
  95     SWFMovie_nextFrame(mo);
  96     add_actions(mo, "trace('Frame 2');");
  97
  98     // Place object ID 2.
  99     it = SWFMovie_add(mo, (SWFBlock)mc2);
 100     SWFDisplayItem_setName(it, "mc2");
 101     SWFDisplayItem_addAction(it, initac, SWFACTION_INIT);
 102
 103     // Frame 3
 104     SWFMovie_nextFrame(mo);
 105
 106     // Remove object ID 2
 107     SWFMovie_remove(mo, it);
 108
 109     add_actions(mo, "trace('frame 3');");
 110
 111     // The class should not be constructed if the object is removed after
 112     // being placed. It should be constructed if it's not removed. MovieClips
 113     // with an onUnload handler are always constructed.
 114     check_equals(mo, "c", "0");
 115     check_equals(mo, "i", "0");
 116     check(mo, "_root.mc2 == undefined");
 117     add_actions(mo, "gotoAndPlay(5);");
 118
 119     // Frame 4
 120     SWFMovie_nextFrame(mo);
 121     add_actions(mo, "trace('Frame 4');");
 122
 123     // Place object ID 2 again
 124     it = SWFMovie_add(mo, (SWFBlock)mc2);
 125     SWFDisplayItem_setName(it, "mc2a");
 126     SWFDisplayItem_addAction(it, initac, SWFACTION_INIT);
 127
 128     // Frame 5
 129     SWFMovie_nextFrame(mo);
 130
 131     // This time the MovieClip was not removed before we get here,
 132     // so it should be present and the constructor should be
 133     // called.
 134     add_actions(mo, "trace('frame 5');");
 135     check_equals(mo, "c", "1");
 136     check_equals(mo, "i", "1");
 137     check(mo, "typeof(_root.mc2a) == 'movieclip'");
 138     add_actions(mo, "stop();");
 139
 140     SWFMovie_nextFrame(mo);
 141
 142     puts("Saving " OUTPUT_FILENAME );
 143     SWFMovie_save(mo, OUTPUT_FILENAME);
 144
 145     return 0;
 146 }
 147