pdf2swf/xpdf/gfile.cc

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