src/texsourc/openinou.c

   1 /* Copyright 1992 Karl Berry
   2    Copyright 2007 TeX Users Group
   3    Copyright 2014 Clerk Ma
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 2 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful, but
  11    WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  18    02110-1301 USA.  */
  19
  20 #ifdef _WINDOWS
  21   #define NOCOMM
  22   #define NOSOUND
  23   #define NODRIVERS
  24   #define STRICT
  25   #pragma warning(disable:4115) // kill rpcasync.h complaint
  26   #include <windows.h>
  27   #define MYLIBAPI __declspec(dllexport)
  28 #endif
  29
  30 #include "texwin.h"
  31
  32 #pragma warning(disable:4996)
  33 #pragma warning(disable:4131) // old style declarator
  34 #pragma warning(disable:4135) // conversion between different integral types
  35 #pragma warning(disable:4127) // conditional expression is constant
  36
  37 #include <setjmp.h>
  38
  39 #include <direct.h>           /* for _getcwd() */
  40
  41 #define EXTERN extern
  42
  43 #include "texd.h"
  44
  45 #define PATH_SEP        '/'
  46 #define PATH_SEP_STRING "/"
  47
  48 /* openinout.c: open input and output files.  These routines used by
  49    TeX, Metafont, and BibTeX.  */
  50
  51 /* #include <sys\stat.h> */       /* debugging 94/Mar/2 */
  52 /* #include <sys\types.h> */      /* debugging 94/Mar/2 */
  53 /* #include <conio.h> */        /* for getch */
  54
  55 // #include "config.h"
  56 // #include "c-namemx.h"
  57 // #include "c-pathch.h"
  58
  59 #define BUILDNAMEDIRECT         /* avoid malloc for string concat */
  60
  61 bool test_read_access (unsigned char *, int);   /* in ourpaths.c - bkph */
  62
  63 extern char *unixify (char *);      /* in pathsrch.c bkph */
  64
  65 extern void try_and_open (char *);    /* in local.c bkph */
  66
  67 extern int shorten_file_name;       /* in local.c bkph */
  68
  69 #ifdef FUNNY_CORE_DUMP
  70 /* This is defined in ./texmf.c.  */
  71 extern void funny_core_dump();
  72 #endif /* FUNNY_CORE_DUMP */
  73
  74 #ifdef MSDOS
  75
  76 #ifdef BUILDNAMEDIRECT
  77 /* kpathsea/concat.c */
  78 /* kpathsea/concat3.c */
  79 /* similar to concat, but AVOIDS using malloc, pass in place to put result */
  80 char *xconcat (char *buffer, char *s1, char *s2)
  81 {
  82   int n1 = strlen(s1);
  83   int n2 = strlen(s2);
  84   if (buffer == s2)
  85   {     /* treat special case of overlap */
  86     memmove (buffer + n1, buffer, n2 + 1); /* trailing null ! */
  87     strncpy (buffer, s1, n1);
  88   }
  89   else
  90   {
  91     strcpy(buffer, s1);
  92     strcat(buffer + n1, s2);
  93   }
  94   return buffer;
  95 }
  96 /* similar to concat3, but avoids using malloc, pass in place to put result */
  97 char *xconcat3 (char *buffer, char *s1, char *s2, char *s3)
  98 {
  99   int n1 = strlen(s1);
 100   int n2 = strlen(s2);
 101   int n3 = strlen(s3);
 102   if (buffer == s3)
 103   {     /* treat special case of overlap */
 104     memmove (buffer + n1 + n2, buffer, n3 + 1); /* trailing null ! */
 105     strncpy (buffer, s1, n1);
 106     strncpy (buffer + n1, s2, n2);
 107   }
 108   else
 109   {
 110     strcpy(buffer, s1);
 111     strcat(buffer + n1, s2);
 112     strcat(buffer + n1 + n2, s3);
 113   }
 114   return buffer;
 115 }
 116 #endif /* end of BUILDNAMEDIRECT  */
 117
 118 #endif  /* end of ifdef MSDOS ??? */
 119
 120 #ifdef MSDOS
 121 /* separated out 1996/Jan/20 to make easier to read */
 122 /* assumes path does not end in PATH_SEP */
 123 void patch_in_path (unsigned char *buffer, unsigned char *name, unsigned char *path)
 124 {
 125 #ifdef BUILDNAMEDIRECT
 126   if (*path == '\0')
 127     strcpy((char *) buffer, (char *) name);
 128   else
 129     xconcat3((char *) buffer, (char *) path, PATH_SEP_STRING, (char *) name);
 130 #else
 131   string temp_name;
 132   temp_name = concat3 (path, PATH_SEP_STRING, name);
 133   strcpy (buffer, temp_name);
 134   free (temp_name);
 135 #endif
 136 }
 137
 138 int qualified (unsigned char * name)
 139 {
 140   if (strchr((char *) name, PATH_SEP) != NULL ||
 141       strchr((char *) name, '\\') != NULL ||
 142       strchr((char *) name, ':') != NULL)
 143     return 1;
 144   else
 145     return 0;
 146 }
 147 /* patch path if (i) path not empty (ii) name not qualified (iii) ext match */
 148 int prepend_path_if (unsigned char *buffer, unsigned char *name, char *ext, unsigned char *path)
 149 {
 150   if (path == NULL)
 151     return 0;
 152   if (*path == '\0')
 153     return 0;
 154   if (qualified(name))
 155     return 0;
 156   if (strstr((char *)name, ext) == NULL)
 157     return 0;
 158   patch_in_path(buffer, name, path);
 159   return 1;
 160 }
 161 #endif      /* end of MSDOS */
 162
 163 /*  Following works on null-terminated strings */
 164
 165 /* void check_short_name(void) { */       /* 1995/Feb/20 */
 166 void check_short_name (unsigned char *s)
 167 {         /* 1995/Sep/26 */
 168   unsigned char *star, *sdot;
 169   int n;
 170
 171 /*  if ((star = strrchr(name_of_file+1, '\\')) != NULL) star++;
 172   else if ((star = strrchr(name_of_file+1, '/')) != NULL) star++;
 173   else if ((star = strchr(name_of_file+1, ':')) != NULL) star++;
 174   else star = name_of_file+1; */        /* 1995/Sep/26 */
 175   if ((star = (unsigned char *) strrchr((char *) s, '\\')) != NULL)
 176     star++;
 177   else if ((star = (unsigned char *) strrchr((char *) s, '/')) != NULL)
 178     star++;
 179   else if ((star = (unsigned char *) strchr((char *) s, ':')) != NULL)
 180     star++;
 181   else
 182     star = s;
 183   if ((sdot = (unsigned char *) strchr((char *) star, '.')) != NULL)
 184     n = sdot - star;
 185   else
 186     n = strlen((char *) star);
 187   if (n > 8)
 188     strcpy((char *) star + 8, (char *) star + n);
 189   if ((sdot = (unsigned char *) strchr((char *) star, '.')) != NULL)
 190   {
 191     star = sdot + 1;
 192     n = strlen((char *) star);
 193     if (n > 3)
 194       *(star + 3) = '\0';
 195   }
 196 }
 197
 198 /* Following works on both null-terminated names */
 199 /* reconvert 254 to '~' in file name 95/Sep/26 */
 200 /* reconvert 255 to ' ' in file name 95/Sep/26 */
 201 /* we do this in tex3.c start_input() -> scan_file_name() now 95/Sep/26 */
 202 /* kpathsea/tilde.c */
 203 void retwiddle (unsigned char *s)
 204 {
 205 /* assumes null terminated - 97/June/5 */
 206 /*  while (*s != '\0' && *s != ' ') { */
 207   while (*s != '\0')
 208   {
 209     if (*s == (unsigned char) pseudo_tilde)
 210       *s = '~';
 211     else if (*s == (unsigned char) pseudo_space)
 212       *s = ' ';
 213     s++;
 214   }
 215 }
 216
 217 /* #endif */ /* ??? */
 218
 219 /* Open an input file F, using the path PATHSPEC and passing
 220    FOPEN_MODE to fopen.  The filename is in `name_of_file', as a Pascal
 221    string. We return whether or not the open succeeded.  If it did, we
 222    also set `name_length' to the length of the full pathname that we
 223    opened.  */
 224 /* in lib/openclose.c */
 225 bool open_input (FILE **f, path_constant_type path_index, char *fopen_mode)
 226 {
 227   bool openable = false;
 228
 229 #if defined (FUNNY_CORE_DUMP) && !defined (BibTeX)
 230   if (path_index == TEXINPUTPATH &&
 231       strncmp (name_of_file + 1, "HackyInputFileNameForCoreDump.tex", 33) == 0)
 232     funny_core_dump();
 233 #endif /* FUNNY_CORE_DUMP and not BibTeX */
 234
 235 #ifdef MSDOS
 236   if (return_flag)
 237   {
 238     if (strcmp(fopen_mode, "r") == 0)
 239       fopen_mode = "rb";    /* so can catch `return' bkph */
 240   }
 241 #endif /* MSDOS */
 242
 243   name_of_file[name_length + 1] = '\0'; /* null terminate */
 244
 245 /* reinsert '~' and ' ' in file names -  95/June/5 */
 246 /* done late to prevent problems with  null_terminate / space_terminate */
 247   if (pseudo_tilde != 0 || pseudo_space != 0)
 248     retwiddle(name_of_file + 1);
 249
 250 #ifdef MSDOS
 251 /* 8 + 3 file names on Windows NT 95/Feb/20 */
 252   if (shorten_file_name)
 253   {
 254     check_short_name(name_of_file + 1);           /* 95/Sep/26 */
 255 /*    space_terminate (name_of_file + 1); */
 256   }
 257 #endif  /* MSDOS */
 258
 259 #ifdef BibTeX
 260   if (path_index == NO_FILE_PATH)
 261   {
 262     unsigned temp_length;
 263
 264 /*      null_terminate (name_of_file + 1); */
 265 /*  if share_flag is non-zero and we are opening for reading use fsopen */
 266 /*  but we can assume here that we are opening for *input* */
 267 /*      *f = fopen (name_of_file + 1, fopen_mode); */
 268     if (share_flag == 0)
 269       *f = fopen (name_of_file + 1, fopen_mode);
 270     else
 271       *f = _fsopen (name_of_file + 1, fopen_mode, share_flag);
 272     temp_length = strlen (name_of_file + 1);
 273 /*      space_terminate (name_of_file + 1); */
 274
 275     if (*f != NULL)
 276     {
 277       name_length = temp_length;
 278       openable = true;
 279     }
 280   }
 281
 282   else
 283 #endif /* BibTeX */
 284
 285   if (open_trace_flag)
 286   {
 287     sprintf(log_line, " Open `%s' for input ", name_of_file + 1); /* Pascal */
 288     show_line(log_line, 0);
 289   }
 290
 291   if (test_read_access(name_of_file + 1, path_index))
 292   {
 293 /*  if (test_read_access(name_of_file, name_length, path_index)) */
 294
 295 /*    We can assume `name_of_file' is openable, */
 296 /*    since `test_read_access' just returned true.  */
 297 /*    *f = xfopen_pas (name_of_file, fopen_mode); */
 298     *f = xfopen((char *) name_of_file + 1, fopen_mode);
 299
 300 //    should we check *f == NULL ??? (should be OK because of test_read_access)
 301
 302 /*    If we found the file in the current directory, don't leave the
 303         `./' at the beginning of `name_of_file', since it looks dumb when
 304         TeX says `(./foo.tex ...)', and analogously for Metafont.  */
 305 #ifdef MSDOS
 306     if (name_of_file[1] == '.' &&         /* 1994/Mar/1 */
 307       (name_of_file[2] == PATH_SEP || name_of_file[2] == '\\'))
 308 #else
 309     if (name_of_file[1] == '.' && name_of_file[2] == PATH_SEP)
 310 #endif
 311     {
 312       unsigned i = 1;
 313 /*        while (name_of_file[i + 2] != ' ') */
 314       while (name_of_file[i + 2] != '\0')
 315       {
 316         name_of_file[i] = name_of_file[i + 2];
 317         i++;
 318       }
 319 /*      name_of_file[i] = ' '; */
 320       name_of_file[i] = '\0';
 321       name_length = i - 1;
 322     }
 323     else
 324 /*      name_length = strchr(name_of_file + 1, ' ') - (name_of_file + 1); */
 325       name_length = strlen((char *) name_of_file + 1);
 326
 327 #ifdef TeX
 328 /*    If we just opened a TFM file, we have to read the first byte,
 329         since TeX wants to look at it.  What a kludge.  */
 330     if (path_index == TFMFILEPATH)
 331     { /* See comments in ctex.ch for why we need this.  */
 332 /*          extern integer tfm_temp; */ /* see texd.h for definition */
 333       tfm_temp = getc (*f);
 334     }
 335 #endif /* TeX */
 336
 337 #ifdef MSDOS
 338 /*    code added 94/June/21 to show 'fmt' file opening in log */
 339     if (strstr((char *) name_of_file + 1, ".fmt") != NULL)
 340     {
 341       if (format_file == NULL)
 342       {
 343         format_file = xstrdup((char *) name_of_file + 1);
 344       }
 345     } /* remember full format file name with path */
 346     else if (strstr((char *)name_of_file+1, ".poo") != NULL)
 347     {
 348       if (string_file == NULL)
 349       {
 350         string_file = xstrdup((char *) name_of_file + 1);
 351       }
 352     } /* remember full pool file name with path */
 353     else if (strstr((char *)name_of_file+1, ".tfm") != NULL)
 354     {
 355       if (show_tfm_flag && log_opened)
 356       {
 357 #ifdef WRAPLINES
 358         int old_setting = selector;
 359         char *s = name_of_file + 1;
 360         selector = log_only;
 361         print_char(' ');
 362         print_char('(');
 363         while (*s != '\0')
 364           print_char (*s++);
 365         print_char(')');
 366         selector = old_setting;
 367 #else
 368         int n;
 369         n = strlen((char *) name_of_file + 1);
 370         if (file_offset + n > max_print_line)
 371         {
 372           putc('\n', log_file);
 373           file_offset = 0;
 374         } /* somewhat risky ? */
 375         else
 376           putc(' ', log_file);
 377         fprintf(log_file, "(%s)", name_of_file + 1);
 378         file_offset += n+3;
 379 /*        space_terminate (name_of_file + 1);  */
 380 #endif  /*  end of WRAPLINES */
 381       }
 382     }
 383 /*    code added 98/Sep/29 to catch first file input */
 384 /*    is there a problem if this file bombs ? */
 385     else if (source_direct == NULL) /* 98/Sep/29 */
 386     {
 387       char *s;
 388       source_direct = xstrdup((char *) name_of_file + 1);
 389       if (trace_flag)
 390       {
 391         sprintf(log_line, "Methinks the source %s is `%s'\n", "file", source_direct);
 392         show_line(log_line, 0);
 393       }
 394
 395       if ((s = strrchr(source_direct, '/')) == NULL)
 396         *source_direct='\0';
 397       else
 398         *(s+1) = '\0';
 399
 400       if (trace_flag)
 401       {
 402         sprintf(log_line, "Methinks the source %s is `%s'\n", "directory", source_direct);
 403         show_line(log_line, 0);
 404       }
 405     }
 406 #endif  /* end of MSDOS */
 407     openable = true;
 408   }
 409 /*  space_terminate (name_of_file + 1); */
 410   {
 411     unsigned temp_length = strlen((char *) name_of_file + 1);
 412     name_of_file[temp_length + 1] = ' ';  /* space terminate */
 413 /*    set up name_length ??? */
 414   }
 415   return openable;
 416 }
 417
 418 /* Call the external program PROGRAM, passing it `name_of_file'.  */
 419 /* This nonsense probably only works for Unix anyway. bkph */
 420 /* For one thing, MakeTeXTFM etc is more than 8 characters ! */
 421
 422 #ifdef MSDOS
 423   #define NO_MAKETEX
 424 #endif
 425
 426 /* the string program is unreferenced in DOS NO_MAKETEX */
 427
 428 static bool make_tex_file (string program)
 429 {
 430 #ifdef NO_MAKETEX
 431   return 0;
 432 #else
 433   char cmd[NAME_MAX + 1 + PATH_MAX + 1];
 434   unsigned cmd_len;
 435   int ret;
 436   unsigned i = 1; /* For copying from `name_of_file'.  */
 437
 438   /* Wrap another sh around the invocation of the MakeTeX program, so we
 439      can avoid `sh: MakeTeXTFM: not found' errors confusing the user.
 440      We don't use fork/exec ourselves, since we'd have to call sh anyway
 441      to interpret the script.  */
 442 #ifdef MSDOS
 443   strcpy (cmd, "command.com ");
 444 #else
 445   strcpy (cmd, "sh -c ");
 446 #endif
 447
 448 /*  strcat (cmd, program); */ /* shrouded 93/Nov/20 */
 449   strcat (cmd, "Make");
 450 #ifndef MSDOS
 451   strcat (cmd, "TeX");
 452 #endif
 453   strcat (cmd, program);
 454   cmd_len = strlen (cmd);
 455   cmd[cmd_len++] = ' ';
 456
 457   while (name_of_file[i] != ' ')
 458     cmd[cmd_len++] = name_of_file[i++];
 459
 460   /* Add terminating null.  */
 461   cmd[cmd_len] = 0;
 462
 463   /* Don't show any output.  */
 464 #ifdef MSDOS
 465   strcat (cmd, "> nul");  /* ? 93/Nov/20 */
 466 #else
 467   strcat (cmd, ">/dev/null 2>&1");
 468 #endif
 469
 470 /* Run the command, and return whether or not it succeeded.  */
 471   ret = system (cmd);
 472   return ret == EXIT_SUCCESS_CODE;
 473 #endif /* not NO_MAKE_TEX */
 474 }
 475
 476 #define TEXONLY
 477
 478 /* This is called by TeX if an \input resp. TFM file can't be opened.  */
 479
 480 bool maketextex (void)          /* called in tex3.c and tex8.c */
 481 {
 482 /*  return make_tex_file ("MakeTeXTeX"); */
 483   return make_tex_file ("TeX");
 484 }
 485
 486 bool maketextfm (void)          /* called in tex3.c */
 487 {
 488 /*  return make_tex_file ("MakeTeXTFM"); */
 489   return make_tex_file ("TFM");
 490 }
 491
 492 #ifndef TEXONLY
 493 bool maketexmf (void)
 494 {
 495 /*  return make_tex_file ("MakeTeXMF"); */
 496   return make_tex_file ("MF");
 497 }
 498 #endif /* ifndef TEXONLY */
 499
 500 char *get_env_shroud (char *);    /* defined in texmf.c */
 501
 502 /* char outputdirectory[PATH_MAX]; */       /* defined in local.c */
 503
 504 extern char * dvi_directory; /* defined in local.c */
 505 extern char * log_directory; /* defined in local.c */
 506 extern char * aux_directory; /* defined in local.c */
 507 extern char * fmt_directory; /* defined in local.c */
 508 extern char * pdf_directory; /* defined in local.c */
 509
 510 #ifdef IGNORED
 511 /* Try and figure out if can write to current directory */
 512 bool isitsafe (char *name)
 513 {
 514 /*  struct stat statbuf; */         /* debugging 94/Mar/2 */
 515 /*  Can't test access on file, since fails if not exist */
 516 /*  Can't test access on `nul', since always fails */
 517 /*  Can   test access on `.', but its true on locked diskette! */
 518 /*  stat on directory always says read an write permission */
 519   return true;        /* for now */
 520 }
 521 #endif
 522
 523 /* open_output moved to end to avoid pragma problems 96/Sep/15 */
 524
 525 /* used only in start_input in tex3.c, and in open_or_close_in in tex8.c */
 526 /* modified 97/June/5 to take null terminated (C) string */
 527
 528 #ifdef IGNORED
 529 bool extensionirrelevantaux (char *base, char *suffix)
 530 {
 531   bool ret;
 532 /*  make_c_string (&base);  */
 533 /*  base[nlen+1] = '\0'; */     /* null terminate */
 534 #ifdef MSDOS
 535 /*  In DOS, an extension is irrelevant if there already is an extension ! */
 536 /*  MAY NEED TO REVISE IN WIN32 where we can have foo.bar.chomp.tex ??? */
 537   {               /* simplification 1996/Jan/20 ??? */
 538     char *s, *t;
 539     if ((s = strrchr (base, '.')) == NULL)
 540       ret = 0; /* no extension */
 541     else
 542     {
 543       if ((t = strrchr (base, PATH_SEP)) != NULL ||
 544           (t = strrchr (base, '\\')) != NULL ||
 545           (t = strrchr (base, ':')) != NULL)
 546       {
 547         if (t > s)
 548           ret = 0; /* last dot occurs in path - no extension */
 549         else
 550           ret = 1; /* last dot occurs in file name itself */
 551       }
 552       else
 553         ret = 1;       /* name not qualified and has dot */
 554     }
 555   }
 556 #else /*  not MSDOS */
 557   {
 558     char temp[PATH_MAX];
 559     strcpy (temp, base);
 560     strcat (temp, ".");
 561     strcat (temp, suffix);
 562     ret = same_file_p (base, temp);
 563   }
 564 #endif /* end of not MSDOS */
 565 /*  make_pascal_string (&base); */
 566 /*  base[nlen+1] = ' '; */      /* space terminate */
 567   return ret;
 568 }
 569 #endif /* IGNORED */
 570
 571 /* Test if the Pascal string BASE concatenated with the extension
 572    `.SUFFIX' is the same file as just BASE.  SUFFIX is a C string.  */
 573
 574 /* used in `start_input' (tex3.c) and open_or_close_in (tex8.c) */
 575 /* used to always return true, since in DOS can have only one extension */
 576 /* modified 98/Feb/7 to always return false */
 577
 578 bool extensionirrelevantp (unsigned char *base, int nlen, char *suffix)
 579 {
 580 #ifdef IGNORED
 581   bool ret;
 582   base[nlen+1] = '\0';      /* null terminate */
 583   ret = extensionirrelevantaux(base+1, suffix);
 584   base[nlen+1] = ' ';     /* space terminate */
 585   return ret;
 586 #endif
 587   return false;
 588 }
 589
 590 /* #define a_close(f) if (f) { if (ferror (f)) {perror(""); exit(1);} } if (f) (void) fclose (f) */
 591 /* #define a_close(f) if (f) (void) check_fclose (f) */
 592
 593 /* At least check for I/O error (such as disk full) when closing */
 594 /* Would be better to check while writing - but this is better than nothing */
 595 /* This is used for both input and output files, but never mind ... */
 596
 597 /* now a_close returns -1 on error --- which could be used by caller */
 598 /* probably want to ignore on input files ... */
 599
 600 void perrormod (char *s);       /* in local.c */
 601
 602 // check_fclose not used by anything
 603 /* 1993/Nov/20 - bkph */
 604 int check_fclose (FILE * f)
 605 {
 606   if (f == NULL)
 607     return 0;      // sanity check
 608   if (ferror(f) || fclose (f))
 609   {
 610     perrormod("\n! I/O Error");
 611     uexit (1);    // ???
 612   }
 613   return 0;
 614 }
 615
 616 /* open_output moved down here to avoid potential pragma problem */
 617
 618 /* #pragma optimize ("g", off) *//* try and avoid compiler bug here */
 619
 620 /* Open an output file F either in the current directory or in
 621    $TEXMFOUTPUT/F, if the environment variable `TEXMFOUTPUT' exists.
 622    (Actually, this applies to the BibTeX output files, also, but
 623    `TEXMFBIBOUTPUT' was just too long.)  The filename is in the global
 624    `name_of_file', as a Pascal string.  We return whether or not the open
 625    succeeded.  If it did, the global `name_length' is set to the length
 626    of the actual filename.  */
 627
 628 bool open_output (FILE **f, char *fopen_mode)
 629 {
 630   unsigned temp_length;
 631
 632   name_of_file[name_length + 1] = '\0'; /* null terminate */
 633
 634 /* reinsert '~' and ' ' in file names -  95/June/5 */
 635 /* done late to prevent problems with  null_terminate / space_terminate */
 636   if (pseudo_tilde != 0 || pseudo_space !=  0)
 637   {
 638     retwiddle(name_of_file + 1);
 639   }
 640
 641 #ifdef MSDOS
 642 /* 8 + 3 file names on Windows NT 95/Feb/20 */
 643   if (shorten_file_name)
 644   {
 645     check_short_name(name_of_file + 1);         /* 95/Sep/26 */
 646   }
 647 #endif
 648
 649 /*  null_terminate (name_of_file + 1); */ /* Make the filename into a C string.  */
 650
 651 /*  if (debug_flag) try_and_open(name_of_file+1); */  /* debugging 94/Mar/20 */
 652
 653 #ifdef MSDOS
 654 /* write into user specified output directory if given on command line */
 655 /* following code added 1993/Dec/12 */ /* separated 1996/Jan/20 */
 656   if (prepend_path_if (name_of_file + 1, name_of_file + 1, ".dvi", (unsigned char *) dvi_directory) ||
 657       prepend_path_if (name_of_file + 1, name_of_file + 1, ".log", (unsigned char *) log_directory) ||
 658       prepend_path_if (name_of_file + 1, name_of_file + 1, ".aux", (unsigned char *) aux_directory) ||
 659       prepend_path_if (name_of_file + 1, name_of_file + 1, ".fmt", (unsigned char *) fmt_directory) ||
 660       prepend_path_if (name_of_file + 1, name_of_file + 1, ".pdf", (unsigned char *) pdf_directory))
 661   {
 662     if (open_trace_flag)
 663     {
 664       sprintf(log_line, "After prepend %s\n", name_of_file+1);
 665       show_line(log_line, 0);
 666     }
 667   }
 668 #endif
 669
 670 /* name_length recomputed below so don't need to do it yet */
 671
 672   if (open_trace_flag)
 673   {
 674     sprintf(log_line, " Open `%s' for output ", name_of_file + 1); /* C string */
 675     show_line(log_line, 0);
 676   }
 677
 678 /* Is the filename openable as given?  */
 679
 680 /*  if share_flag is non-zero and we are opening for reading use fsopen */
 681 /*  but we can assume this is opening here for *output* */
 682   *f = fopen((char *) name_of_file + 1, fopen_mode);
 683
 684 /* Can't open as given.  Try the envvar.  */
 685   if (*f == NULL)
 686   {
 687     string temp_dir = get_env_shroud ("UFYNGPVU");
 688
 689 /*    if (deslash) unixify(temp_dir); */    /* deslashify 93/Dec/28 */
 690
 691     if (temp_dir != NULL)
 692     {
 693 #ifdef BUILDNAMEDIRECT
 694       unsigned char temp_name[PATH_MAX];
 695       xconcat3((char *) temp_name, temp_dir, PATH_SEP_STRING, (char *)name_of_file + 1);
 696 #else
 697 /*    string temp_name = concat3 (temp_dir, "/", name_of_file + 1); */
 698       string temp_name = concat3 (temp_dir, PATH_SEP_STRING, name_of_file + 1);
 699 #endif
 700       if (deslash)
 701         unixify((char *) temp_name);     /* deslashify 93/Dec/28 */
 702 /*  If share_flag is non-zero and we are opening for reading use fsopen */
 703 /*  but we can assume this is opening here for *output* */
 704       *f = fopen((char*)temp_name, fopen_mode);
 705 /*  If this succeeded, change name_of_file accordingly.  */
 706       if (*f)
 707         strcpy((char*) name_of_file + 1, (char *) temp_name);
 708 #ifndef BUILDNAMEDIRECT
 709       free (temp_name);
 710 #endif
 711     }
 712   }
 713
 714 //  show_line(name_of_file+1, 1);   // debugging only
 715 //  New code to remember complete dvi_file name and log_file_name
 716 //  To remember for output at the end 2000 June 18
 717   if (strstr((char *)name_of_file + 1, ".dvi") != NULL)
 718   {
 719     if (qualified(name_of_file + 1))
 720       *log_line = '\0';
 721     else
 722     {
 723       (void) _getcwd(log_line, sizeof(log_line));
 724       strcat(log_line, PATH_SEP_STRING);
 725     }
 726     strcat(log_line, (char*) name_of_file + 1);
 727     unixify(log_line);
 728     dvi_file_name = xstrdup(log_line);
 729 //    show_line(dvi_file_name, 1);  // debugging only
 730   }
 731   else if (strstr((char *)name_of_file + 1, ".log") != NULL)
 732   {
 733     if (qualified(name_of_file + 1))
 734       *log_line = '\0';
 735     else
 736     {
 737       (void) _getcwd(log_line, sizeof(log_line));
 738       strcat(log_line, PATH_SEP_STRING);
 739     }
 740     strcat(log_line, (char *) name_of_file + 1);
 741     unixify(log_line);
 742     log_file_name = xstrdup(log_line);
 743 //    show_line(log_file_name, 1);  // debugging only
 744   }
 745 /* Back into a Pascal string, but first get its length.  */
 746   temp_length = strlen ((char *)name_of_file + 1);
 747 /*  space_terminate (name_of_file + 1); */
 748   name_of_file[temp_length+1] = ' ';  /* space terminate */
 749
 750 /* Only set `name_length' if we succeeded.  I'm not sure why.  */
 751   if (*f)               /* TEST ? 94/MAR/2 */
 752     name_length = temp_length;
 753
 754   return *f != NULL;
 755 }
 756
 757 /* #pragma optimize ("g",)*/  /* try and avoid compiler bug here */
 758 /* #pragma optimize ("", on) */   /* try and avoid compiler bug here */