upgrade to xpdf 3.00.
[swftools.git] / pdf2swf / xpdf / gfile.cc
1 //========================================================================
2 //
3 // gfile.cc
4 //
5 // Miscellaneous file and directory name manipulation.
6 //
7 // Copyright 1996-2003 Glyph & Cog, LLC
8 //
9 //========================================================================
10
11 #include <aconf.h>
12
13 #ifndef WIN32
14 #  if defined(MACOS)
15 #    include <sys/stat.h>
16 #  elif !defined(ACORN)
17 #    include <sys/types.h>
18 #    include <sys/stat.h>
19 #    include <fcntl.h>
20 #  endif
21 #  include <limits.h>
22 #  include <string.h>
23 #  if !defined(VMS) && !defined(ACORN) && !defined(MACOS)
24 #    include <pwd.h>
25 #  endif
26 #  if defined(VMS) && (__DECCXX_VER < 50200000)
27 #    include <unixlib.h>
28 #  endif
29 #endif // WIN32
30 #include "GString.h"
31 #include "gfile.h"
32
33 // Some systems don't define this, so just make it something reasonably
34 // large.
35 #ifndef PATH_MAX
36 #define PATH_MAX 1024
37 #endif
38
39 //------------------------------------------------------------------------
40
41 GString *getHomeDir() {
42 #ifdef VMS
43   //---------- VMS ----------
44   return new GString("SYS$LOGIN:");
45
46 #elif defined(__EMX__) || defined(WIN32)
47   //---------- OS/2+EMX and Win32 ----------
48   char *s;
49   GString *ret;
50
51   if ((s = getenv("HOME")))
52     ret = new GString(s);
53   else
54     ret = new GString(".");
55   return ret;
56
57 #elif defined(ACORN)
58   //---------- RISCOS ----------
59   return new GString("@");
60
61 #elif defined(MACOS)
62   //---------- MacOS ----------
63   return new GString(":");
64
65 #else
66   //---------- Unix ----------
67   char *s;
68   struct passwd *pw;
69   GString *ret;
70
71   if ((s = getenv("HOME"))) {
72     ret = new GString(s);
73   } else {
74     if ((s = getenv("USER")))
75       pw = getpwnam(s);
76     else
77       pw = getpwuid(getuid());
78     if (pw)
79       ret = new GString(pw->pw_dir);
80     else
81       ret = new GString(".");
82   }
83   return ret;
84 #endif
85 }
86
87 GString *getCurrentDir() {
88   char buf[PATH_MAX+1];
89
90 #if defined(__EMX__)
91   if (_getcwd2(buf, sizeof(buf)))
92 #elif defined(WIN32)
93   if (GetCurrentDirectory(sizeof(buf), buf))
94 #elif defined(ACORN)
95   if (strcpy(buf, "@"))
96 #elif defined(MACOS)
97   if (strcpy(buf, ":"))
98 #else
99   if (getcwd(buf, sizeof(buf)))
100 #endif
101     return new GString(buf);
102   return new GString();
103 }
104
105 GString *appendToPath(GString *path, char *fileName) {
106 #if defined(VMS)
107   //---------- VMS ----------
108   //~ this should handle everything necessary for file
109   //~ requesters, but it's certainly not complete
110   char *p0, *p1, *p2;
111   char *q1;
112
113   p0 = path->getCString();
114   p1 = p0 + path->getLength() - 1;
115   if (!strcmp(fileName, "-")) {
116     if (*p1 == ']') {
117       for (p2 = p1; p2 > p0 && *p2 != '.' && *p2 != '['; --p2) ;
118       if (*p2 == '[')
119         ++p2;
120       path->del(p2 - p0, p1 - p2);
121     } else if (*p1 == ':') {
122       path->append("[-]");
123     } else {
124       path->clear();
125       path->append("[-]");
126     }
127   } else if ((q1 = strrchr(fileName, '.')) && !strncmp(q1, ".DIR;", 5)) {
128     if (*p1 == ']') {
129       path->insert(p1 - p0, '.');
130       path->insert(p1 - p0 + 1, fileName, q1 - fileName);
131     } else if (*p1 == ':') {
132       path->append('[');
133       path->append(']');
134       path->append(fileName, q1 - fileName);
135     } else {
136       path->clear();
137       path->append(fileName, q1 - fileName);
138     }
139   } else {
140     if (*p1 != ']' && *p1 != ':')
141       path->clear();
142     path->append(fileName);
143   }
144   return path;
145
146 #elif defined(WIN32)
147   //---------- Win32 ----------
148   GString *tmp;
149   char buf[256];
150   char *fp;
151
152   tmp = new GString(path);
153   tmp->append('/');
154   tmp->append(fileName);
155   GetFullPathName(tmp->getCString(), sizeof(buf), buf, &fp);
156   delete tmp;
157   path->clear();
158   path->append(buf);
159   return path;
160
161 #elif defined(ACORN)
162   //---------- RISCOS ----------
163   char *p;
164   int i;
165
166   path->append(".");
167   i = path->getLength();
168   path->append(fileName);
169   for (p = path->getCString() + i; *p; ++p) {
170     if (*p == '/') {
171       *p = '.';
172     } else if (*p == '.') {
173       *p = '/';
174     }
175   }
176   return path;
177
178 #elif defined(MACOS)
179   //---------- MacOS ----------
180   char *p;
181   int i;
182
183   path->append(":");
184   i = path->getLength();
185   path->append(fileName);
186   for (p = path->getCString() + i; *p; ++p) {
187     if (*p == '/') {
188       *p = ':';
189     } else if (*p == '.') {
190       *p = ':';
191     }
192   }
193   return path;
194
195 #elif defined(__EMX__)
196   //---------- OS/2+EMX ----------
197   int i;
198
199   // appending "." does nothing
200   if (!strcmp(fileName, "."))
201     return path;
202
203   // appending ".." goes up one directory
204   if (!strcmp(fileName, "..")) {
205     for (i = path->getLength() - 2; i >= 0; --i) {
206       if (path->getChar(i) == '/' || path->getChar(i) == '\\' ||
207           path->getChar(i) == ':')
208         break;
209     }
210     if (i <= 0) {
211       if (path->getChar(0) == '/' || path->getChar(0) == '\\') {
212         path->del(1, path->getLength() - 1);
213       } else if (path->getLength() >= 2 && path->getChar(1) == ':') {
214         path->del(2, path->getLength() - 2);
215       } else {
216         path->clear();
217         path->append("..");
218       }
219     } else {
220       if (path->getChar(i-1) == ':')
221         ++i;
222       path->del(i, path->getLength() - i);
223     }
224     return path;
225   }
226
227   // otherwise, append "/" and new path component
228   if (path->getLength() > 0 &&
229       path->getChar(path->getLength() - 1) != '/' &&
230       path->getChar(path->getLength() - 1) != '\\')
231     path->append('/');
232   path->append(fileName);
233   return path;
234
235 #else
236   //---------- Unix ----------
237   int i;
238
239   // appending "." does nothing
240   if (!strcmp(fileName, "."))
241     return path;
242
243   // appending ".." goes up one directory
244   if (!strcmp(fileName, "..")) {
245     for (i = path->getLength() - 2; i >= 0; --i) {
246       if (path->getChar(i) == '/')
247         break;
248     }
249     if (i <= 0) {
250       if (path->getChar(0) == '/') {
251         path->del(1, path->getLength() - 1);
252       } else {
253         path->clear();
254         path->append("..");
255       }
256     } else {
257       path->del(i, path->getLength() - i);
258     }
259     return path;
260   }
261
262   // otherwise, append "/" and new path component
263   if (path->getLength() > 0 &&
264       path->getChar(path->getLength() - 1) != '/')
265     path->append('/');
266   path->append(fileName);
267   return path;
268 #endif
269 }
270
271 GString *grabPath(char *fileName) {
272 #ifdef VMS
273   //---------- VMS ----------
274   char *p;
275
276   if ((p = strrchr(fileName, ']')))
277     return new GString(fileName, p + 1 - fileName);
278   if ((p = strrchr(fileName, ':')))
279     return new GString(fileName, p + 1 - fileName);
280   return new GString();
281
282 #elif defined(__EMX__) || defined(WIN32)
283   //---------- OS/2+EMX and Win32 ----------
284   char *p;
285
286   if ((p = strrchr(fileName, '/')))
287     return new GString(fileName, p - fileName);
288   if ((p = strrchr(fileName, '\\')))
289     return new GString(fileName, p - fileName);
290   if ((p = strrchr(fileName, ':')))
291     return new GString(fileName, p + 1 - fileName);
292   return new GString();
293
294 #elif defined(ACORN)
295   //---------- RISCOS ----------
296   char *p;
297
298   if ((p = strrchr(fileName, '.')))
299     return new GString(fileName, p - fileName);
300   return new GString();
301
302 #elif defined(MACOS)
303   //---------- MacOS ----------
304   char *p;
305
306   if ((p = strrchr(fileName, ':')))
307     return new GString(fileName, p - fileName);
308   return new GString();
309
310 #else
311   //---------- Unix ----------
312   char *p;
313
314   if ((p = strrchr(fileName, '/')))
315     return new GString(fileName, p - fileName);
316   return new GString();
317 #endif
318 }
319
320 GBool isAbsolutePath(char *path) {
321 #ifdef VMS
322   //---------- VMS ----------
323   return strchr(path, ':') ||
324          (path[0] == '[' && path[1] != '.' && path[1] != '-');
325
326 #elif defined(__EMX__) || defined(WIN32)
327   //---------- OS/2+EMX and Win32 ----------
328   return path[0] == '/' || path[0] == '\\' || path[1] == ':';
329
330 #elif defined(ACORN)
331   //---------- RISCOS ----------
332   return path[0] == '$';
333
334 #elif defined(MACOS)
335   //---------- MacOS ----------
336   return path[0] != ':';
337
338 #else
339   //---------- Unix ----------
340   return path[0] == '/';
341 #endif
342 }
343
344 GString *makePathAbsolute(GString *path) {
345 #ifdef VMS
346   //---------- VMS ----------
347   char buf[PATH_MAX+1];
348
349   if (!isAbsolutePath(path->getCString())) {
350     if (getcwd(buf, sizeof(buf))) {
351       path->insert(0, buf);
352     }
353   }
354   return path;
355
356 #elif defined(WIN32)
357   //---------- Win32 ----------
358   char buf[_MAX_PATH];
359   char *fp;
360
361   buf[0] = '\0';
362   if (!GetFullPathName(path->getCString(), _MAX_PATH, buf, &fp)) {
363     path->clear();
364     return path;
365   }
366   path->clear();
367   path->append(buf);
368   return path;
369
370 #elif defined(ACORN)
371   //---------- RISCOS ----------
372   path->insert(0, '@');
373   return path;
374
375 #elif defined(MACOS)
376   //---------- MacOS ----------
377   path->del(0, 1);
378   return path;
379
380 #else
381   //---------- Unix and OS/2+EMX ----------
382   struct passwd *pw;
383   char buf[PATH_MAX+1];
384   GString *s;
385   char *p1, *p2;
386   int n;
387
388   if (path->getChar(0) == '~') {
389     if (path->getChar(1) == '/' ||
390 #ifdef __EMX__
391         path->getChar(1) == '\\' ||
392 #endif
393         path->getLength() == 1) {
394       path->del(0, 1);
395       s = getHomeDir();
396       path->insert(0, s);
397       delete s;
398     } else {
399       p1 = path->getCString() + 1;
400 #ifdef __EMX__
401       for (p2 = p1; *p2 && *p2 != '/' && *p2 != '\\'; ++p2) ;
402 #else
403       for (p2 = p1; *p2 && *p2 != '/'; ++p2) ;
404 #endif
405       if ((n = p2 - p1) > PATH_MAX)
406         n = PATH_MAX;
407       strncpy(buf, p1, n);
408       buf[n] = '\0';
409       if ((pw = getpwnam(buf))) {
410         path->del(0, p2 - p1 + 1);
411         path->insert(0, pw->pw_dir);
412       }
413     }
414   } else if (!isAbsolutePath(path->getCString())) {
415     if (getcwd(buf, sizeof(buf))) {
416 #ifndef __EMX__
417       path->insert(0, '/');
418 #endif
419       path->insert(0, buf);
420     }
421   }
422   return path;
423 #endif
424 }
425
426 time_t getModTime(char *fileName) {
427 #ifdef WIN32
428   //~ should implement this, but it's (currently) only used in xpdf
429   return 0;
430 #else
431   struct stat statBuf;
432
433   if (stat(fileName, &statBuf)) {
434     return 0;
435   }
436   return statBuf.st_mtime;
437 #endif
438 }
439
440 GBool openTempFile(GString **name, FILE **f, char *mode, char *ext) {
441 #if defined(WIN32)
442   //---------- Win32 ----------
443   char *s;
444
445   if (!(s = _tempnam(getenv("TEMP"), NULL))) {
446     return gFalse;
447   }
448   *name = new GString(s);
449   free(s);
450   if (ext) {
451     (*name)->append(ext);
452   }
453   if (!(*f = fopen((*name)->getCString(), mode))) {
454     delete (*name);
455     return gFalse;
456   }
457   return gTrue;
458 #elif defined(VMS) || defined(__EMX__) || defined(ACORN) || defined(MACOS)
459   //---------- non-Unix ----------
460   char *s;
461
462   // There is a security hole here: an attacker can create a symlink
463   // with this file name after the tmpnam call and before the fopen
464   // call.  I will happily accept fixes to this function for non-Unix
465   // OSs.
466   if (!(s = tmpnam(NULL))) {
467     return gFalse;
468   }
469   *name = new GString(s);
470   if (ext) {
471     (*name)->append(ext);
472   }
473   if (!(*f = fopen((*name)->getCString(), mode))) {
474     delete (*name);
475     return gFalse;
476   }
477   return gTrue;
478 #else
479   //---------- Unix ----------
480   char *s;
481   int fd;
482
483   if (ext) {
484 #if HAVE_MKSTEMPS
485     if ((s = getenv("TMPDIR"))) {
486       *name = new GString(s);
487     } else {
488       *name = new GString("/tmp");
489     }
490     (*name)->append("/XXXXXX")->append(ext);
491     fd = mkstemps((*name)->getCString(), strlen(ext));
492 #else
493     if (!(s = tmpnam(NULL))) {
494       return gFalse;
495     }
496     *name = new GString(s);
497     (*name)->append(ext);
498     fd = open((*name)->getCString(), O_WRONLY | O_CREAT | O_EXCL, 0600);
499 #endif
500   } else {
501 #if HAVE_MKSTEMP
502     if ((s = getenv("TMPDIR"))) {
503       *name = new GString(s);
504     } else {
505       *name = new GString("/tmp");
506     }
507     (*name)->append("/XXXXXX");
508     fd = mkstemp((*name)->getCString());
509 #else // HAVE_MKSTEMP
510     if (!(s = tmpnam(NULL))) {
511       return gFalse;
512     }
513     *name = new GString(s);
514     fd = open((*name)->getCString(), O_WRONLY | O_CREAT | O_EXCL, 0600);
515 #endif // HAVE_MKSTEMP
516   }
517   if (fd < 0 || !(*f = fdopen(fd, mode))) {
518     delete *name;
519     return gFalse;
520   }
521   return gTrue;
522 #endif
523 }
524
525 GBool executeCommand(char *cmd) {
526 #ifdef VMS
527   return system(cmd) ? gTrue : gFalse;
528 #else
529   return system(cmd) ? gFalse : gTrue;
530 #endif
531 }
532
533 char *getLine(char *buf, int size, FILE *f) {
534   int c, i;
535
536   i = 0;
537   while (i < size - 1) {
538     if ((c = fgetc(f)) == EOF) {
539       break;
540     }
541     buf[i++] = (char)c;
542     if (c == '\x0a') {
543       break;
544     }
545     if (c == '\x0d') {
546       c = fgetc(f);
547       if (c == '\x0a' && i < size - 1) {
548         buf[i++] = (char)c;
549       } else if (c != EOF) {
550         ungetc(c, f);
551       }
552       break;
553     }
554   }
555   buf[i] = '\0';
556   if (i == 0) {
557     return NULL;
558   }
559   return buf;
560 }
561
562 //------------------------------------------------------------------------
563 // GDir and GDirEntry
564 //------------------------------------------------------------------------
565
566 GDirEntry::GDirEntry(char *dirPath, char *nameA, GBool doStat) {
567 #ifdef VMS
568   char *p;
569 #elif defined(WIN32)
570   int fa;
571   GString *s;
572 #elif defined(ACORN)
573 #else
574   struct stat st;
575   GString *s;
576 #endif
577
578   name = new GString(nameA);
579   dir = gFalse;
580   if (doStat) {
581 #ifdef VMS
582     if (!strcmp(nameA, "-") ||
583         ((p = strrchr(nameA, '.')) && !strncmp(p, ".DIR;", 5)))
584       dir = gTrue;
585 #elif defined(ACORN)
586 #else
587     s = new GString(dirPath);
588     appendToPath(s, nameA);
589 #ifdef WIN32
590     fa = GetFileAttributes(s->getCString());
591     dir = (fa != 0xFFFFFFFF && (fa & FILE_ATTRIBUTE_DIRECTORY));
592 #else
593     if (stat(s->getCString(), &st) == 0)
594       dir = S_ISDIR(st.st_mode);
595 #endif
596     delete s;
597 #endif
598   }
599 }
600
601 GDirEntry::~GDirEntry() {
602   delete name;
603 }
604
605 GDir::GDir(char *name, GBool doStatA) {
606   path = new GString(name);
607   doStat = doStatA;
608 #if defined(WIN32)
609   GString *tmp;
610
611   tmp = path->copy();
612   tmp->append("/*.*");
613   hnd = FindFirstFile(tmp->getCString(), &ffd);
614   delete tmp;
615 #elif defined(ACORN)
616 #elif defined(MACOS)
617 #else
618   dir = opendir(name);
619 #ifdef VMS
620   needParent = strchr(name, '[') != NULL;
621 #endif
622 #endif
623 }
624
625 GDir::~GDir() {
626   delete path;
627 #if defined(WIN32)
628   if (hnd) {
629     FindClose(hnd);
630     hnd = NULL;
631   }
632 #elif defined(ACORN)
633 #elif defined(MACOS)
634 #else
635   if (dir)
636     closedir(dir);
637 #endif
638 }
639
640 GDirEntry *GDir::getNextEntry() {
641   GDirEntry *e;
642
643 #if defined(WIN32)
644   if (hnd) {
645     e = new GDirEntry(path->getCString(), ffd.cFileName, doStat);
646     if (hnd  && !FindNextFile(hnd, &ffd)) {
647       FindClose(hnd);
648       hnd = NULL;
649     }
650   } else {
651     e = NULL;
652   }
653 #elif defined(ACORN)
654 #elif defined(MACOS)
655 #elif defined(VMS)
656   struct dirent *ent;
657   e = NULL;
658   if (dir) {
659     if (needParent) {
660       e = new GDirEntry(path->getCString(), "-", doStat);
661       needParent = gFalse;
662       return e;
663     }
664     ent = readdir(dir);
665     if (ent) {
666       e = new GDirEntry(path->getCString(), ent->d_name, doStat);
667     }
668   }
669 #else
670   struct dirent *ent;
671   e = NULL;
672   if (dir) {
673     ent = readdir(dir);
674     if (ent && !strcmp(ent->d_name, ".")) {
675       ent = readdir(dir);
676     }
677     if (ent) {
678       e = new GDirEntry(path->getCString(), ent->d_name, doStat);
679     }
680   }
681 #endif
682
683   return e;
684 }
685
686 void GDir::rewind() {
687 #ifdef WIN32
688   GString *tmp;
689
690   if (hnd)
691     FindClose(hnd);
692   tmp = path->copy();
693   tmp->append("/*.*");
694   hnd = FindFirstFile(tmp->getCString(), &ffd);
695   delete tmp;
696 #elif defined(ACORN)
697 #elif defined(MACOS)
698 #else
699   if (dir)
700     rewinddir(dir);
701 #ifdef VMS
702   needParent = strchr(path->getCString(), '[') != NULL;
703 #endif
704 #endif
705 }