moved files from todo/ to ok/ again
[swftools.git] / lib / as3 / scripts.c
1 /* scripts.c
2
3    Some hardcoded abc scripts.
4
5    Extension module for the rfxswf library.
6    Part of the swftools package.
7
8    Copyright (c) 2008,2009 Matthias Kramm <kramm@quiss.org>
9  
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 2 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program; if not, write to the Free Software
22    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
23
24 #include "abc.h"
25
26 void swf_AddButtonLinks(SWF*swf, char stop_each_frame, char events)
27 {
28     int num_frames = 0;
29     int has_buttons = 0;
30     TAG*tag=swf->firstTag;
31     while(tag) {
32         if(tag->id == ST_SHOWFRAME)
33             num_frames++;
34         if(tag->id == ST_DEFINEBUTTON || tag->id == ST_DEFINEBUTTON2)
35             has_buttons = 1;
36         tag = tag->next;
37     }
38
39     abc_file_t*file = abc_file_new();
40     abc_method_body_t*c = 0;
41    
42     abc_class_t*cls = abc_class_new2(file, "rfx::MainTimeline", "flash.display::MovieClip");
43     abc_class_protectedNS(cls, "rfx:MainTimeline");
44   
45     TAG*abctag = swf_InsertTagBefore(swf, swf->firstTag, ST_DOABC);
46     
47     tag = swf_InsertTag(abctag, ST_SYMBOLCLASS);
48     swf_SetU16(tag, 1);
49     swf_SetU16(tag, 0);
50     swf_SetString(tag, "rfx.MainTimeline");
51
52     c = abc_class_getstaticconstructor(cls, 0)->body;
53     c->old.max_stack = 1;
54     c->old.local_count = 1;
55     c->old.init_scope_depth = 9;
56     c->old.max_scope_depth = 10;
57
58     __ getlocal_0(c);
59     __ pushscope(c);
60     __ returnvoid(c);
61
62     c = abc_class_getconstructor(cls, 0)->body;
63     c->old.max_stack = 3;
64     c->old.local_count = 1;
65     c->old.init_scope_depth = 10;
66     c->old.max_scope_depth = 11;
67     
68     debugfile(c, "constructor.as");
69
70     __ getlocal_0(c);
71     __ pushscope(c);
72
73     __ getlocal_0(c);
74     __ constructsuper(c,0);
75
76     __ getlex(c, "[package]flash.system::Security");
77     __ pushstring(c, "*");
78     __ callpropvoid(c, "[package]::allowDomain", 1);
79     
80     if(stop_each_frame || has_buttons) {
81         int frame = 0;
82         tag = swf->firstTag;
83         abc_method_body_t*f = 0; //frame script
84         while(tag && tag->id!=ST_END) {
85             char framename[80];
86             char needs_framescript=0;
87             char buttonname[80];
88             char functionname[80];
89             sprintf(framename, "[packageinternal]rfx::frame%d", frame);
90             
91             if(!f && (tag->id == ST_DEFINEBUTTON || tag->id == ST_DEFINEBUTTON2 || stop_each_frame)) {
92                 /* make the contructor add a frame script */
93                 __ findpropstrict(c,"[package]::addFrameScript");
94                 __ pushuint(c,frame);
95                 __ getlex(c,framename);
96                 __ callpropvoid(c,"[package]::addFrameScript",2);
97
98                 f = abc_class_method(cls, 0, multiname_fromstring(framename))->body;
99                 f->old.max_stack = 3;
100                 f->old.local_count = 1;
101                 f->old.init_scope_depth = 10;
102                 f->old.max_scope_depth = 11;
103                 __ debugfile(f, "framescript.as");
104                 __ debugline(f, 1);
105                 __ getlocal_0(f);
106                 __ pushscope(f);
107                 if(stop_each_frame) {
108                     __ findpropstrict(f, "[package]::stop");
109                     __ callpropvoid(f, "[package]::stop", 0);
110                 }
111             }
112
113             if(tag->id == ST_DEFINEBUTTON || tag->id == ST_DEFINEBUTTON2) {
114                 U16 id = swf_GetDefineID(tag);
115                 sprintf(buttonname, "::button%d", swf_GetDefineID(tag));
116                 __ getlex(f,buttonname);
117                 __ getlex(f,"flash.events::MouseEvent");
118                 __ getproperty(f, "::CLICK");
119                 sprintf(functionname, "::clickbutton%d", swf_GetDefineID(tag));
120                 __ getlex(f,functionname);
121                 __ callpropvoid(f, "::addEventListener" ,2);
122
123                 needs_framescript = 1;
124
125                 abc_method_body_t*h =
126                     abc_class_method(cls, 0, multiname_fromstring(functionname))->body;
127                 list_append(h->method->parameters, multiname_fromstring("flash.events::MouseEvent"));
128
129                 h->old.max_stack = 6;
130                 h->old.local_count = 2;
131                 h->old.init_scope_depth = 10;
132                 h->old.max_scope_depth = 11;
133                 __ getlocal_0(h);
134                 __ pushscope(h);
135
136                 ActionTAG*oldaction = swf_ButtonGetAction(tag);
137                 if(oldaction && oldaction->op == ACTION__GOTOFRAME) {
138                     int framenr = GET16(oldaction->data);
139                     if(!events) {
140                         __ findpropstrict(h,"[package]::gotoAndStop");
141                         __ pushuint(h,framenr+1);
142                         __ callpropvoid(h,"[package]::gotoAndStop", 1);
143                     } else {
144                         char framename[80];
145                         sprintf(framename, "frame%d", framenr);
146                         __ getlocal_0(h); //this
147                         __ findpropstrict(h, "[package]flash.events::TextEvent");
148                         __ pushstring(h, "link");
149                         __ pushtrue(h);
150                         __ pushtrue(h);
151                         __ pushstring(h, framename);
152                         __ constructprop(h,"[package]flash.events::TextEvent", 4);
153                         __ callpropvoid(h,"[package]::dispatchEvent", 1);
154                     }
155                 } else if(oldaction && oldaction->op == ACTION__GETURL) {
156                     if(!events) {
157                         __ findpropstrict(h,"flash.net::navigateToURL");
158                         __ findpropstrict(h,"flash.net::URLRequest");
159                         // TODO: target _blank
160                         __ pushstring(h,oldaction->data); //url
161                         __ constructprop(h,"flash.net::URLRequest", 1);
162                         __ callpropvoid(h,"flash.net::navigateToURL", 1);
163                     } else {
164                         __ getlocal_0(h); //this
165                         __ findpropstrict(h, "[package]flash.events::TextEvent");
166                         __ pushstring(h, "link");
167                         __ pushtrue(h);
168                         __ pushtrue(h);
169                         __ pushstring(h,oldaction->data); //url
170                         __ constructprop(h,"[package]flash.events::TextEvent", 4);
171                         __ callpropvoid(h,"[package]::dispatchEvent", 1);
172                     }
173                 } else if(oldaction) {
174                     fprintf(stderr, "Warning: Couldn't translate button code of button %d to flash 9 abc action\n", id);
175                 }
176                 __ returnvoid(h);
177                 swf_ActionFree(oldaction);
178             }
179             if(tag->id == ST_SHOWFRAME) {
180                 if(f) {
181                     __ returnvoid(f);
182                     f = 0;
183                 }
184                 frame++;
185             }
186             tag = tag->next;
187         }
188         if(f) {
189             __ returnvoid(f);
190         }
191     }
192     __ returnvoid(c);
193
194     tag = swf->firstTag;
195     while(tag) {
196         if(tag->id == ST_DEFINEBUTTON || tag->id == ST_DEFINEBUTTON2) {
197             char buttonname[80];
198             sprintf(buttonname, "::button%d", swf_GetDefineID(tag));
199             multiname_t*s = multiname_fromstring(buttonname);
200             //abc_class_slot(cls, multiname_fromstring(buttonname), s);
201             abc_class_slot(cls, multiname_fromstring(buttonname), 
202                                 multiname_fromstring("flash.display::SimpleButton"));
203         }
204         tag = tag->next;
205     }
206
207
208     abc_script_t*s = abc_initscript(file);
209     c = s->method->body;
210     c->old.max_stack = 2;
211     c->old.local_count = 1;
212     c->old.init_scope_depth = 1;
213     c->old.max_scope_depth = 9;
214
215     __ getlocal_0(c);
216     __ pushscope(c);
217     __ getscopeobject(c, 0);
218     __ getlex(c,"::Object");
219     __ pushscope(c);
220     __ getlex(c,"flash.events::EventDispatcher");
221     __ pushscope(c);
222     __ getlex(c,"flash.display::DisplayObject");
223     __ pushscope(c);
224     __ getlex(c,"flash.display::InteractiveObject");
225     __ pushscope(c);
226     __ getlex(c,"flash.display::DisplayObjectContainer");
227     __ pushscope(c);
228     __ getlex(c,"flash.display::Sprite");
229     __ pushscope(c);
230     __ getlex(c,"flash.display::MovieClip");
231     __ pushscope(c);
232     __ getlex(c,"flash.display::MovieClip");
233     __ newclass(c,cls);
234     __ popscope(c);
235     __ popscope(c);
236     __ popscope(c);
237     __ popscope(c);
238     __ popscope(c);
239     __ popscope(c);
240     __ popscope(c);
241     __ initproperty(c,"rfx::MainTimeline");
242     __ returnvoid(c);
243
244     //abc_method_body_addClassTrait(c, "rfx:MainTimeline", 1, cls);
245     multiname_t*classname = multiname_fromstring("rfx::MainTimeline");
246     abc_initscript_addClassTrait(s, classname, cls);
247     multiname_destroy(classname);
248
249     swf_WriteABC(abctag, file);
250 }
251
252 TAG*swf_AddAS3FontDefine(TAG*tag, U16 id, char*fontname)
253 {
254     tag = swf_InsertTag(tag, ST_DOABC);
255     abc_file_t*file = abc_file_new();
256
257     //abc_class_t*cls = abc_class_new2(file, fontname, "flash.display::MovieClip");
258     //abc_class_slot(cls, multiname_fromstring(fontname), multiname_fromstring("flash.text::Font"));
259
260     abc_class_t*cls = abc_class_new2(file, fontname, "flash.text::Font");
261
262     abc_script_t*s = abc_initscript(file);
263     code_t*c = s->method->body->code;
264     c = abc_getlocal_0(c);
265     c = abc_pushscope(c);
266     c = abc_getscopeobject(c, 0);
267     c = abc_getlex(c,"flash.text::Font");
268     c = abc_pushscope(c);
269     c = abc_getlex(c,"flash.text::Font");
270     c = abc_newclass(c,cls);
271     c = abc_popscope(c);
272     c = abc_initproperty(c, fontname);
273     c = abc_returnvoid(c);
274     s->method->body->code = c;
275
276     abc_initscript_addClassTrait(s, multiname_fromstring(fontname), cls);
277     swf_WriteABC(tag, file);
278         
279     tag = swf_InsertTag(tag, ST_SYMBOLCLASS);
280     swf_SetU16(tag, 1);
281     swf_SetU16(tag, id);
282     swf_SetString(tag, fontname);
283
284     return tag;
285 }
286