3 Extension module for the rfxswf library.
4 Part of the swftools package.
6 Copyright (c) 2008 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 */
28 #include "tokenizer.h"
30 static int verbose = 0;
31 static void dbg(const char*format, ...)
38 va_start(arglist, format);
39 vsprintf(buf, format, arglist);
42 while(l && buf[l-1]=='\n') {
46 printf("(includefilehandler) ");
52 typedef struct _include_dir {
54 struct _include_dir*next;
59 char* current_filename=0;
60 char* current_filename_short=0;
61 include_dir_t* current_include_dirs=0;
63 #define MAX_INCLUDE_DEPTH 16
65 void*include_stack[MAX_INCLUDE_DEPTH];
66 int line_stack[MAX_INCLUDE_DEPTH];
67 int column_stack[MAX_INCLUDE_DEPTH];
68 char* filename_stack[MAX_INCLUDE_DEPTH];
69 char* shortfilename_stack[MAX_INCLUDE_DEPTH];
70 include_dir_t* includedir_stack[MAX_INCLUDE_DEPTH];
71 int include_stack_ptr = 0;
73 void add_include_dir(char*dir)
75 include_dir_t*d = malloc(sizeof(include_dir_t));
76 memset(d , 0, sizeof(include_dir_t));
78 d->next = current_include_dirs;
79 current_include_dirs = d;
81 char*get_path(char*file)
83 char*path = strdup(file);
84 char*r1 = strrchr(path, '/');
85 char*r2 = strrchr(path, '\\');
96 char* concat_paths(const char*base, const char*add)
98 int l1 = strlen(base);
102 while(l1 && base[l1-1] == '/')
104 while(pos < l2 && add[pos] == '/')
106 n = (char*)malloc(l1 + (l2-pos) + 2);
109 memcpy(&n[l1+1],&add[pos],l2-pos+1);
112 char is_absolute(char*filename)
114 if(!filename || !filename[0])
116 if(filename[0]=='/' || filename[0]=='\\')
118 if(filename[1]==':' && filename[1]=='/')
120 if(filename[1]==':' && filename[1]=='\\')
124 char*find_file(char*filename)
126 include_dir_t*i = current_include_dirs;
128 if(is_absolute(filename)) {
129 FILE*fi = fopen(filename, "rb");
132 return strdup(filename);
137 as3_warning("Include directory stack is empty, while looking for file %s", filename);
140 char*p = concat_paths(i->path, filename);
151 char*enter_file(char*filename, void*state)
153 filename = strdup(filename);
155 if(include_stack_ptr >= MAX_INCLUDE_DEPTH) {
156 as3_error("Includes nested too deeply");
159 char*fullfilename = find_file(filename);
161 as3_error("Couldn't find file %s", filename);
162 include_dir_t*i = current_include_dirs;
164 fprintf(stderr, "include dir: %s\n", i->path);
169 include_stack[include_stack_ptr] = state;
170 line_stack[include_stack_ptr] = current_line;
171 column_stack[include_stack_ptr] = current_column;
172 shortfilename_stack[include_stack_ptr] = current_filename_short;
173 filename_stack[include_stack_ptr] = current_filename;
174 includedir_stack[include_stack_ptr] = current_include_dirs;
175 add_include_dir(get_path(fullfilename));
178 dbg("entering file %s", fullfilename);
182 current_filename = fullfilename;
183 current_filename_short = filename;
187 FILE*enter_file2(char*filename, void*state)
189 char*fullfilename = enter_file(filename, state);
190 FILE*fi = fopen(fullfilename, "rb");
192 as3_error("Couldn't find file %s: %s", fullfilename, strerror(errno));
200 dbg("leaving file %s", current_filename);
201 if(--include_stack_ptr<=0) {
204 free(current_filename);current_filename = filename_stack[include_stack_ptr];
205 free(current_filename_short);current_filename_short = shortfilename_stack[include_stack_ptr];
206 current_column = column_stack[include_stack_ptr];
207 current_line = line_stack[include_stack_ptr];
208 current_include_dirs = includedir_stack[include_stack_ptr];
209 return include_stack[include_stack_ptr];