Procházet zdrojové kódy

ERR: Borland fix for stricmp. ERR: removed itk dependencies.

Bill Lorensen před 22 roky
rodič
revize
a4f49798c4
1 změnil soubory, kde provedl 8 přidání a 4 odebrání
  1. 8 4
      Source/kwsys/SystemTools.cxx

+ 8 - 4
Source/kwsys/SystemTools.cxx

@@ -1032,8 +1032,12 @@ unsigned long SystemTools::FileLength(const char* filename)
 
 int SystemTools::Strucmp(const char *s1, const char *s2)
 {
-#ifdef _WIN32
+#if defined(_WIN32)
+#ifdef __BORLANDC__
+  return stricmp(s1,s2);
+#else
   return _stricmp(s1,s2);
+#endif
 #else
   return strcasecmp(s1,s2);
 #endif
@@ -1069,9 +1073,9 @@ char *SystemTools
 ::RealPath(const char *path, char *resolved_path)
 {
 #if defined(_WIN32)
-  char pathpart[itk::IOCommon::ITK_MAXPATHLEN];
+  char pathpart[4096];
   strcpy(pathpart,path);
-  char fnamepart[itk::IOCommon::ITK_MAXPATHLEN];
+  char fnamepart[4096];
   char *slash;
 
   if((slash = strrchr(pathpart,'/')) == NULL)
@@ -1089,7 +1093,7 @@ char *SystemTools
       *slash = '\0';
       strcpy(fnamepart,slash+1);
 
-      char savedir[itk::IOCommon::ITK_MAXPATHLEN];
+      char savedir[4096];
       Getcwd(savedir,sizeof(savedir));
       Chdir(pathpart);
       Getcwd(pathpart,sizeof(pathpart));