3 Extension module for the rfxswf library.
4 Part of the swftools package.
6 Copyright (c) 2009 Matthias Kramm <kramm@quiss.org>
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
27 void as3_import_abc(char*filename)
29 TAG*tag = swf_InsertTag(0, ST_RAWABC);
30 memfile_t*file = memfile_open(filename);
31 tag->data = file->data;
33 abc_file_t*abc = swf_ReadABC(tag);
40 void as3_import_swf(char*filename)
42 SWF* swf = swf_OpenSWF(filename);
45 TAG*tag = swf->firstTag;
47 if(tag->id == ST_DOABC || tag->id == ST_RAWABC) {
48 abc_file_t*abc = swf_ReadABC(tag);
58 void as3_import_file(char*filename)
60 FILE*fi = fopen(filename, "rb");
63 fread(head, 3, 1, fi);
65 if(!strncmp(head, "FWS", 3) ||
66 !strncmp(head, "CWS", 3)) {
67 as3_import_swf(filename);
69 as3_import_abc(filename);
73 static int compare_traits(const void*v1, const void*v2)
75 trait_t* x1 = *(trait_t**)v1;
76 trait_t* x2 = *(trait_t**)v2;
77 int i = strcmp(x1->name->ns->name, x2->name->ns->name);
80 return strcmp(x1->name->name, x2->name->name);
84 void as3_import_code(abc_file_t*abc)
87 for(t=0;t<abc->classes->num;t++) {
88 abc_class_t*cls = array_getvalue(abc->classes, t);
89 U8 access = cls->classname->ns->access;
90 if(access==ACCESS_PRIVATE ||
91 access==ACCESS_PACKAGEINTERNAL)
93 if(!strncmp(cls->classname->ns->name, "__AS3", 5))
96 const char*package = strdup(cls->classname->ns->name);
97 const char*name = strdup(cls->classname->name);
99 multiname_list_t*i=cls->interfaces;
100 classinfo_t*c = classinfo_register(access, package, name, list_length(i));
101 c->flags|=FLAG_BUILTIN;
103 if(cls->flags & CLASS_FINAL)
104 c->flags |= FLAG_FINAL;
105 if(cls->flags & CLASS_INTERFACE)
106 c->flags |= FLAG_INTERFACE;
107 if(!(cls->flags & CLASS_SEALED))
108 c->flags |= FLAG_DYNAMIC;
113 c->interfaces[nr++] = i->multiname;
124 trait_t*trait = l->trait;
125 U8 access = trait->name->ns->access;
126 if(access==ACCESS_PRIVATE)
128 const char*name = trait->name->name;
129 if(registry_findmember(c, name, 0))
134 if(trait->kind == TRAIT_METHOD) {
135 s = (memberinfo_t*)methodinfo_register_onclass(c, access, name);
136 } else if(trait->kind == TRAIT_SLOT ||
137 trait->kind == TRAIT_GETTER) {
138 s = (memberinfo_t*)varinfo_register_onclass(c, access, name);
143 s->flags = is_static?FLAG_STATIC:0;
144 s->flags |= FLAG_BUILTIN;
149 if(!l && !is_static) {
150 l = cls->static_traits;
156 # define IS_PUBLIC_MEMBER(trait) ((trait)->kind != TRAIT_CLASS)
158 /* count public functions */
160 for(t=0;t<abc->scripts->num;t++) {
161 trait_list_t*l = ((abc_script_t*)array_getvalue(abc->scripts, t))->traits;
163 num_methods += IS_PUBLIC_MEMBER(l->trait);
166 trait_t**traits = (trait_t**)malloc(num_methods*sizeof(trait_t*));
168 for(t=0;t<abc->scripts->num;t++) {
169 trait_list_t*l = ((abc_script_t*)array_getvalue(abc->scripts, t))->traits;
171 if(IS_PUBLIC_MEMBER(l->trait)) {
172 traits[num_methods++] = l->trait;
176 qsort(traits, num_methods, sizeof(trait_t*), compare_traits);
177 for(t=0;t<num_methods;t++) {
178 trait_t*trait = traits[t];
179 if(IS_PUBLIC_MEMBER(trait)) {
180 U8 access = trait->name->ns->access;
181 const char*package = strdup(trait->name->ns->name);
182 const char*name = strdup(trait->name->name);
185 if(trait->kind == TRAIT_METHOD) {
186 m = (memberinfo_t*)methodinfo_register_global(access, package, name);
188 m = (memberinfo_t*)varinfo_register_global(access, package, name);
190 m->flags |= FLAG_BUILTIN;