Replace Sys.time by Unix.time in main.ml.
[Faustine.git] / interpreter / preprocessor / faust-0.9.47mr3 / compiler / parser / enrobage.cpp
1 /************************************************************************
2 ************************************************************************
3 FAUST compiler
4 Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
5 ---------------------------------------------------------------------
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 ************************************************************************
20 ************************************************************************/
21
22
23
24 #include "enrobage.hh"
25 #include <vector>
26 #include <string>
27 #include <limits.h>
28 #include <stdlib.h>
29 #include "compatibility.hh"
30 #include <climits>
31
32 extern string gFaustSuperSuperDirectory;
33 extern string gFaustSuperDirectory;
34 extern string gFaustDirectory;
35 extern string gMasterDirectory;
36 extern string gClassName;
37
38 //----------------------------------------------------------------
39
40
41 /**
42 * Returns true is a line is blank (contains only white caracters)
43 */
44 static bool isBlank(const string& s) {
45 for (size_t i=0; i<s.size(); i++) {
46 if (s[i] != ' ' && s[i] != '\t') return false;
47 }
48 return true;
49 }
50
51
52 /**
53 * Replace every occurrence of oldstr by newstr inside str. str is modified
54 * and returned as reference for convenience
55 */
56 static string& replaceOccurences(string& str, const string& oldstr, const string& newstr)
57 {
58 string::size_type l1 = oldstr.length();
59 string::size_type l2 = newstr.length();
60
61 string::size_type pos = str.find(oldstr);
62 while ( pos != string::npos) {
63 str.replace(pos, l1, newstr);
64 pos = str.find(oldstr, pos + l2);
65 }
66 return str;
67 }
68
69
70 /**
71 * Used when copying architecture files to replace default mydsp
72 * class name with the user specified one
73 */
74 static string& replaceClassName(string& str)
75 {
76 return replaceOccurences(str, "mydsp", gClassName);
77 }
78
79
80 /**
81 * Copy or remove license header. Architecture files can contain a header specifying
82 * the license. If this header contains an exception tag (for example "FAUST COMPILER EXCEPTION")
83 * it is an indication for the compiler to remove the license header from the resulting code.
84 * A header is the first non blank line that begins a comment.
85 */
86 void streamCopyLicense(istream& src, ostream& dst, const string& exceptiontag)
87 {
88 string s;
89 vector<string> H;
90
91 // skip blank lines
92 while (getline(src,s) && isBlank(s)) dst << s << endl;
93
94 // first non blank should start a comment
95 if (s.find("/*")==string::npos) { dst << s << endl; return; }
96
97 // copy the header into H
98 bool remove = false;
99 H.push_back(s);
100
101 while (getline(src,s) && s.find("*/")==string::npos) {
102 H.push_back(s);
103 if (s.find(exceptiontag) != string::npos) remove=true;
104 }
105
106 // copy the header unless explicitely granted to remove it
107 if (!remove) {
108 // copy the header
109 for (unsigned int i=0; i<H.size(); i++) {
110 dst << H[i] << endl;
111 }
112 dst << s << endl;
113 }
114 }
115
116
117 /**
118 * Copy src to dst until specific line.
119 */
120 void streamCopyUntil(istream& src, ostream& dst, const string& until)
121 {
122 string s;
123 while ( getline(src,s) && (s != until) ) dst << replaceClassName(s) << endl;
124 }
125
126 /**
127 * Copy src to dst.
128 */
129 void streamCopy(istream& src, ostream& dst)
130 {
131 string s;
132 while ( getline(src,s)) dst << replaceClassName(s) << endl;
133 }
134
135 /**
136 * Copy src to dst until end
137 */
138 void streamCopyUntilEnd(istream& src, ostream& dst)
139 {
140 string s;
141 while ( getline(src,s) ) dst << replaceClassName(s) << endl;
142 }
143
144
145 /**
146 * Try to open an architecture file searching in various directories
147 */
148 ifstream* open_arch_stream(const char* filename)
149 {
150 char buffer[FAUST_PATH_MAX];
151 char* old = getcwd (buffer, FAUST_PATH_MAX);
152 int err;
153
154 {
155 ifstream* f = new ifstream();
156 f->open(filename, ifstream::in); if (f->is_open()) return f; else delete f;
157 }
158 char *envpath = getenv("FAUST_LIB_PATH");
159 if (envpath!=NULL) {
160 if (chdir(envpath)==0) {
161 ifstream* f = new ifstream();
162 f->open(filename, ifstream::in);
163 if (f->is_open()) return f; else delete f;
164 }
165 }
166 err = chdir(old);
167 if ( (chdir(gFaustDirectory.c_str())==0) && (chdir("architecture")==0) ) {
168 //cout << "enrobage.cpp : 'architecture' directory found in gFaustDirectory" << endl;
169 ifstream* f = new ifstream();
170 f->open(filename, ifstream::in);
171 if (f->good()) return f; else delete f;
172 }
173 err = chdir(old);
174 if ((chdir(gFaustSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
175 //cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperDirectory" << endl;
176 ifstream* f = new ifstream();
177 f->open(filename, ifstream::in);
178 if (f->good()) return f; else delete f;
179 }
180 err = chdir(old);
181 if ((chdir(gFaustSuperSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
182 //cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperSuperDirectory" << endl;
183 ifstream* f = new ifstream();
184 f->open(filename, ifstream::in);
185 if (f->good()) return f; else delete f;
186 }
187
188 /* Faustine directories (Karim Barkati 09/2013) */
189
190 #ifdef INSTALL_PREFIX
191 err = chdir(old);
192 if (chdir(INSTALL_PREFIX "/lib/faustine")==0) {
193 ifstream* f = new ifstream();
194 f->open(filename);
195 if (f->good()) return f; else delete f;
196 }
197 #endif
198 err = chdir(old);
199 if (chdir("/usr/local/lib/faustine")==0) {
200 ifstream* f = new ifstream();
201 f->open(filename);
202 if (f->good()) return f; else delete f;
203 }
204 err = chdir(old);
205 if (chdir("/usr/lib/faustine")==0) {
206 ifstream* f = new ifstream();
207 f->open(filename);
208 if (f->good()) return f; else delete f;
209 }
210
211 /* End of Faustine directories */
212
213
214 #ifdef INSTALL_PREFIX
215 err = chdir(old);
216 if (chdir(INSTALL_PREFIX "/lib/faust")==0) {
217 ifstream* f = new ifstream();
218 f->open(filename);
219 if (f->good()) return f; else delete f;
220 }
221 #endif
222 err = chdir(old);
223 if (chdir("/usr/local/lib/faust")==0) {
224 ifstream* f = new ifstream();
225 f->open(filename);
226 if (f->good()) return f; else delete f;
227 }
228 err = chdir(old);
229 if (chdir("/usr/lib/faust")==0) {
230 ifstream* f = new ifstream();
231 f->open(filename);
232 if (f->good()) return f; else delete f;
233 }
234
235 return 0;
236 }
237
238
239
240 /*---------------------------------------------*/
241
242 /**
243 * Check if a file exists.
244 * @return true if the file exist, false otherwise
245 */
246
247 bool check_file(const char* filename)
248 {
249 FILE* f = fopen(filename, "r");
250
251 if (f == NULL) {
252 fprintf(stderr, "faust: "); perror(filename);
253 } else {
254 fclose(f);
255 }
256 return f != NULL;
257 }
258
259
260 /**
261 * Try to open the file '<dir>/<filename>'. If it succeed, it stores the full pathname
262 * of the file into <fullpath>
263 */
264 static FILE* fopenat(string& fullpath, const char* dir, const char* filename)
265 {
266 int err;
267 char olddirbuffer[FAUST_PATH_MAX];
268 char newdirbuffer[FAUST_PATH_MAX];
269
270 char* olddir = getcwd (olddirbuffer, FAUST_PATH_MAX);
271
272 if (chdir(dir) == 0) {
273 FILE* f = fopen(filename, "r");
274 fullpath = getcwd (newdirbuffer, FAUST_PATH_MAX);
275 fullpath += '/';
276 fullpath += filename;
277 err = chdir(olddir);
278 return f;
279 }
280 err = chdir(olddir);
281 return 0;
282 }
283
284 /**
285 * Try to open the file '<dir>/<filename>'. If it succeed, it stores the full pathname
286 * of the file into <fullpath>
287 */
288 static FILE* fopenat(string& fullpath, const string& dir, const char* filename)
289 {
290 return fopenat(fullpath, dir.c_str(), filename);
291 }
292
293 /**
294 * Try to open the file '<dir>/<path>/<filename>'. If it succeed, it stores the full pathname
295 * of the file into <fullpath>
296 */
297 static FILE* fopenat(string& fullpath, const string& dir, const char* path, const char* filename)
298 {
299 int err;
300 char olddirbuffer[FAUST_PATH_MAX];
301 char newdirbuffer[FAUST_PATH_MAX];
302
303 char* olddir = getcwd (olddirbuffer, FAUST_PATH_MAX);
304 if (chdir(dir.c_str()) == 0) {
305 if (chdir(path) == 0) {
306 FILE* f = fopen(filename, "r");
307 fullpath = getcwd (newdirbuffer, FAUST_PATH_MAX);
308 fullpath += '/';
309 fullpath += filename;
310 err = chdir(olddir);
311 return f;
312 }
313 }
314 err = chdir(olddir);
315 return 0;
316 }
317
318
319
320 /**
321 * Test absolute pathname.
322 */
323 static bool isAbsolutePathname(const string& filename)
324 {
325 //test windows absolute pathname "x:xxxxxx"
326 if (filename.size()>1 && filename[1] == ':') return true;
327
328 // test unix absolute pathname "/xxxxxx"
329 if (filename.size()>0 && filename[0] == '/') return true;
330
331 return false;
332 }
333
334
335 /**
336 * Build a full pathname of <filename>.
337 * <fullpath> = <currentdir>/<filename>
338 */
339 static void buildFullPathname(string& fullpath, const char* filename)
340 {
341 char old[FAUST_PATH_MAX];
342
343 if (isAbsolutePathname(filename)) {
344 fullpath = filename;
345 } else {
346 fullpath = getcwd (old, FAUST_PATH_MAX);
347 fullpath += '/';
348 fullpath += filename;
349 }
350 }
351
352 /**
353 * Try to open the file <filename> searching in various directories. If succesful
354 * place its full pathname in the string <fullpath>
355 */
356
357 #ifdef WIN32
358 FILE* fopensearch(const char* filename, string& fullpath)
359 {
360 FILE* f;
361 char* envpath;
362
363 if ((f = fopen(filename, "r"))) {
364 buildFullPathname(fullpath, filename);
365 return f;
366 }
367 if ((f = fopenat(fullpath, gMasterDirectory, filename))) {
368 return f;
369 }
370 if ((envpath = getenv("FAUST_LIB_PATH")) && (f = fopenat(fullpath, envpath, filename))) {
371 return f;
372 }
373 if ((f = fopenat(fullpath, gFaustDirectory, "architecture", filename))) {
374 return f;
375 }
376 if ((f = fopenat(fullpath, gFaustSuperDirectory, "architecture", filename))) {
377 return f;
378 }
379 if ((f = fopenat(fullpath, gFaustSuperSuperDirectory, "architecture", filename))) {
380 return f;
381 }
382 return 0;
383 }
384 #else
385 FILE* fopensearch(const char* filename, string& fullpath)
386 {
387 FILE* f;
388 char* envpath;
389
390 if ((f = fopen(filename, "r"))) {
391 buildFullPathname(fullpath, filename);
392 return f;
393 }
394 if ((f = fopenat(fullpath, gMasterDirectory, filename))) {
395 return f;
396 }
397 if ((envpath = getenv("FAUST_LIB_PATH")) && (f = fopenat(fullpath, envpath, filename))) {
398 return f;
399 }
400 if ((f = fopenat(fullpath, gFaustDirectory, "architecture", filename))) {
401 return f;
402 }
403 if ((f = fopenat(fullpath, gFaustSuperDirectory, "architecture", filename))) {
404 return f;
405 }
406 if ((f = fopenat(fullpath, gFaustSuperSuperDirectory, "architecture", filename))) {
407 return f;
408 }
409
410 /* Faustine directories (Haisheng WANG 09/2013) */
411
412 #ifdef INSTALL_PREFIX
413 if ((f = fopenat(fullpath, INSTALL_PREFIX "/lib/faustine", filename))) {
414 return f;
415 }
416 #endif
417 if ((f = fopenat(fullpath, "/usr/local/lib/faustine", filename))) {
418 return f;
419 }
420 if ((f = fopenat(fullpath, "/usr/lib/faustine", filename))) {
421 return f;
422 }
423
424 /* End of Faustine directories */
425
426 #ifdef INSTALL_PREFIX
427 if ((f = fopenat(fullpath, INSTALL_PREFIX "/lib/faust", filename))) {
428 return f;
429 }
430 #endif
431 if ((f = fopenat(fullpath, "/usr/local/lib/faust", filename))) {
432 return f;
433 }
434 if ((f = fopenat(fullpath, "/usr/lib/faust", filename))) {
435 return f;
436 }
437 return 0;
438 }
439 #endif
440
441
442 /**
443 * filebasename returns the basename of a path.
444 * (adapted by kb from basename.c)
445 *
446 * @param[in] The path to parse.
447 * @return The last component of the given path.
448 */
449 #ifndef DIR_SEPARATOR
450 #define DIR_SEPARATOR '/'
451 #endif
452
453 #ifdef WIN32
454 #define HAVE_DOS_BASED_FILE_SYSTEM
455 #ifndef DIR_SEPARATOR_2
456 #define DIR_SEPARATOR_2 '\\'
457 #endif
458 #endif
459
460 /* Define IS_DIR_SEPARATOR. */
461 #ifndef DIR_SEPARATOR_2
462 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
463 #else /* DIR_SEPARATOR_2 */
464 # define IS_DIR_SEPARATOR(ch) \
465 (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
466 #endif /* DIR_SEPARATOR_2 */
467
468
469 /**
470 * returns a pointer on the basename part of name
471 */
472 const char* filebasename(const char* name)
473 {
474 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
475 /* Skip over the disk name in MSDOS pathnames. */
476 if (isalpha(name[0]) && name[1] == ':')
477 name += 2;
478 #endif
479
480 const char* base;
481 for (base = name; *name; name++)
482 {
483 if (IS_DIR_SEPARATOR (*name))
484 {
485 base = name + 1;
486 }
487 }
488 return base;
489 }
490
491
492 /**
493 * returns a string containing the dirname of name
494 * If no dirname, returns "."
495 */
496 string filedirname(const string& name)
497 {
498 const char* base = filebasename(name.c_str());
499 const unsigned int size = base-name.c_str();
500 string dirname;
501
502 if (size==0) {
503 dirname += '.';
504
505 } else if (size==1) {
506 dirname += name[0];
507
508 } else {
509 for (unsigned int i=0; i<size-1; i++) {
510 dirname += name[i];
511 }
512 }
513 return dirname;
514 }