texlive[46984] Build/source/texk/web2c/lib: remove support of short

[commits+kakuto at tug.org]

Revision: 46984
          http://tug.org/svn/texlive?view=revision&revision=46984
Author:   kakuto
Date:     2018-03-16 20:27:08 +0100 (Fri, 16 Mar 2018)
Log Message:
-----------
remove support of short 8.3 names (w32 only)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/lib/ChangeLog
    trunk/Build/source/texk/web2c/lib/texmfmp.c

Modified: trunk/Build/source/texk/web2c/lib/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/lib/ChangeLog	2018-03-16 17:01:01 UTC (rev 46983)
+++ trunk/Build/source/texk/web2c/lib/ChangeLog	2018-03-16 19:27:08 UTC (rev 46984)
@@ -1,6 +1,6 @@
 2018-03-16  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 
-	* texmfmp.c: Improve the support of short 8.3 names (w32 only).
+	* texmfmp.c: Remove support of short 8.3 names (w32 only).
 
 2018-01-01  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 

Modified: trunk/Build/source/texk/web2c/lib/texmfmp.c
===================================================================
--- trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-03-16 17:01:01 UTC (rev 46983)
+++ trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-03-16 19:27:08 UTC (rev 46984)
@@ -665,24 +665,6 @@
 /* forward declaration */
 static string
 normalize_quotes (const_string name, const_string mesg);
-#ifndef TeX
-int srcspecialsp = 0;
-#endif
-/* Support of 8.3-name convention. If *buffer == NULL, nothing is done. */
-static void change_to_long_name (char **buffer)
-{
-  if (*buffer) {
-    char inbuf[260];
-    char outbuf[260];
-
-    memset (outbuf, 0, 260);
-    strcpy (inbuf, *buffer);
-    if (GetLongPathName (inbuf, outbuf, 260)) {
-      *buffer = (char *)realloc(*buffer, strlen(outbuf) + 1);
-      strcpy (*buffer, outbuf);
-    }
-  }
-}
 #endif /* WIN32 */
 
 /* The entry point: set up for reading the command line, which will
@@ -788,9 +770,6 @@
 #ifdef WIN32
   if (main_input_file == NULL) {
     string name;
-    boolean is_absolute;
-    char *strptr;
-
 #ifndef XeTeX
     boolean quoted;
 #endif
@@ -807,25 +786,9 @@
             *pp = '/';
         }
       }
-      is_absolute = kpse_absolute_p(argv[argc-1], false);
       name = normalize_quotes(argv[argc-1], "argument");
 #ifdef XeTeX
       main_input_file = kpse_find_file(argv[argc-1], INPUT_FORMAT, false);
-      if (!srcspecialsp) {
-        change_to_long_name (&main_input_file);
-        if (main_input_file)
-          name = normalize_quotes(main_input_file, "argument");
-        if (!is_absolute) {
-          strptr = strrchr (name, '/');
-          if (strptr) {
-            if (name[0] == '"')
-              *strptr = '"';
-            else
-              strptr++;
-            name = strptr;
-          }
-        }
-      }
       argv[argc-1] = name;
 #else
       quoted = (name[0] == '"');
@@ -835,27 +798,11 @@
         name++;
       }
       main_input_file = kpse_find_file(name, INPUT_FORMAT, false);
-      if (!srcspecialsp)
-        change_to_long_name (&main_input_file);
       if (quoted) {
         /* Undo modifications */
         name[strlen(name)] = '"';
         name--;
       }
-      if (!srcspecialsp) {
-        if (main_input_file)
-          name = normalize_quotes(main_input_file, "argument");
-        if (!is_absolute) {
-          strptr = strrchr (name, '/');
-          if (strptr) {
-            if (name[0] == '"')
-              *strptr = '"';
-            else
-              strptr++;
-            name = strptr;
-          }
-        }
-      }
       argv[argc-1] = name;
 #endif
     }
@@ -1574,10 +1521,6 @@
 string
 get_input_file_name (void)
 {
-#ifdef WIN32
-  boolean is_absolute;
-  char *strptr;
-#endif
   string input_file_name = NULL;
 
   if (argv[optind] && argv[optind][0] != '&' && argv[optind][0] != '\\') {
@@ -1598,15 +1541,10 @@
           pp++;
       }
     }
-    is_absolute = kpse_absolute_p(argv[optind], false);
 #endif
     name = normalize_quotes(argv[optind], "argument");
 #ifdef XeTeX
     input_file_name = kpse_find_file(argv[optind], INPUT_FORMAT, false);
-#ifdef WIN32
-    if (!srcspecialsp)
-      change_to_long_name (&input_file_name);
-#endif
 #else
     quoted = (name[0] == '"');
     if (quoted) {
@@ -1615,10 +1553,6 @@
         name++;
     }
     input_file_name = kpse_find_file(name, INPUT_FORMAT, false);
-#ifdef WIN32
-    if (!srcspecialsp)
-      change_to_long_name (&input_file_name);
-#endif
     if (quoted) {
         /* Undo modifications */
         name[strlen(name)] = '"';
@@ -1625,22 +1559,6 @@
         name--;
     }
 #endif
-#ifdef WIN32
-    if (!srcspecialsp) {
-      if (input_file_name)
-        name = normalize_quotes (input_file_name, "argument");
-      if (!is_absolute) {
-        strptr = strrchr (name, '/');
-        if (strptr) {
-          if (name[0] == '"')
-            *strptr = '"';
-          else
-            strptr++;
-          name = strptr;
-        }
-      }
-    }
-#endif
     argv[optind] = name;
   }
   return input_file_name;