Merge remote-tracking branch 'origin/v9-minor'

Author: scip-ci

CHANGELOG

@@ -118,6 +118,7 @@ Interface changes
 - added SCIPtpiIsAvailable() to check whether a working task processing interface is available (TPI != none)
 - added SCIPtpiGetLibraryName() and SCIPtpiGetLibraryDesc()
 - SCIPdelCons() can now also be called in SCIP_STAGE_TRANSFORMED
+- added SCIPstrcasecmp() and SCIPstrncasecmp() for case-insensitive string comparison
 
 ### Command line interface
 ### Interfaces to external software
@@ -151,6 +152,9 @@ Miscellaneous
 -------------
 
 - reorder events: BESTSOLFOUND/NODE_FEASIBLE is now processed before the nodes are cut off and before NODE_DELETE events are processed
+- removed `#define` of `getcwd` (in case of Windows builds) in scip/def.h
+- the `#define` of `strcasecmp` and `strncasecmp` (in case of Windows builds) in scip/def.h will be removed with SCIP 10;
+  use `SCIPstr(n)casecmp()` (scip/pub_misc.h) instead
 
 @section RN912 SCIP 9.1.2
 *************************

lint/scip.lnt

@@ -158,7 +158,6 @@
 // avoid significant prototype coercion (this is usually happening
 // because the length of the string is given by an integer constant,
 // while the argument is unsigned long):
--ecall(747,strncasecmp)
 -ecall(747,strncpy)
 -ecall(747,strncat)
 -ecall(747,strncpy)

src/scip/debug.c

@@ -206,11 +206,11 @@ SCIP_RETCODE readSolfile(
       }
 
       /* there are some lines which may preceed the solution information */
-      if( strncasecmp(buf, "solution status:", 16) == 0 || strncasecmp(buf, "objective value:", 16) == 0 ||
-         strncasecmp(buf, "Log started", 11) == 0 || strncasecmp(buf, "Variable Name", 13) == 0 ||
-         strncasecmp(buf, "All other variables", 19) == 0 || strspn(buf, " \n\r\t\f") == strlen(buf) ||
-         strncasecmp(buf, "NAME", 4) == 0 || strncasecmp(buf, "ENDATA", 6) == 0 ||    /* allow parsing of SOL-format on the MIPLIB 2003 pages */
-         strncasecmp(buf, "=obj=", 5) == 0 )    /* avoid "unknown variable" warning when reading MIPLIB SOL files */
+      if( SCIPstrncasecmp(buf, "solution status:", 16) == 0 || SCIPstrncasecmp(buf, "objective value:", 16) == 0 ||
+         SCIPstrncasecmp(buf, "Log started", 11) == 0 || SCIPstrncasecmp(buf, "Variable Name", 13) == 0 ||
+         SCIPstrncasecmp(buf, "All other variables", 19) == 0 || strspn(buf, " \n\r\t\f") == strlen(buf) ||
+         SCIPstrncasecmp(buf, "NAME", 4) == 0 || SCIPstrncasecmp(buf, "ENDATA", 6) == 0 ||    /* allow parsing of SOL-format on the MIPLIB 2003 pages */
+         SCIPstrncasecmp(buf, "=obj=", 5) == 0 )    /* avoid "unknown variable" warning when reading MIPLIB SOL files */
       {
          ++nonvalues;
          continue;
@@ -240,11 +240,11 @@ SCIP_RETCODE readSolfile(
       }
 
       /* cast the value, check first for inv(alid) or inf(inite) ones that need special treatment */
-      if( strncasecmp(valuestring, "inv", 3) == 0 )
+      if( SCIPstrncasecmp(valuestring, "inv", 3) == 0 )
          continue;
-      else if( strncasecmp(valuestring, "+inf", 4) == 0 || strncasecmp(valuestring, "inf", 3) == 0 )
+      else if( SCIPstrncasecmp(valuestring, "+inf", 4) == 0 || SCIPstrncasecmp(valuestring, "inf", 3) == 0 )
          val = SCIPsetInfinity(set);
-      else if( strncasecmp(valuestring, "-inf", 4) == 0 )
+      else if( SCIPstrncasecmp(valuestring, "-inf", 4) == 0 )
          val = -SCIPsetInfinity(set);
       else
       {

src/scip/def.h

@@ -105,7 +105,6 @@
 #ifdef _WIN32
 #define strcasecmp _stricmp
 #define strncasecmp _strnicmp
-#define getcwd _getcwd
 #endif
 
 /*

src/scip/heur_alns.c

@@ -71,10 +71,6 @@
 #include "scip/scip_var.h"
 #include <string.h>
 
-#if !defined(_WIN32) && !defined(_WIN64)
-#include <strings.h> /*lint --e{766}*/ /* needed for strncasecmp() */
-#endif
-
 #define HEUR_NAME             "alns"
 #define HEUR_DESC             "Large neighborhood search heuristic that orchestrates the popular neighborhoods Local Branching, RINS, RENS, DINS etc."
 #define HEUR_DISPCHAR         SCIP_HEURDISPCHAR_LNS
@@ -3824,7 +3820,7 @@ SCIP_DECL_HEURINIT(heurInitAlns)
    }
 
    /* open reward file for reading */
-   if( strncasecmp(heurdata->rewardfilename, DEFAULT_REWARDFILENAME, strlen(DEFAULT_REWARDFILENAME)) != 0 )
+   if( strcmp(heurdata->rewardfilename, DEFAULT_REWARDFILENAME) != 0 )
    {
       heurdata->rewardfile = fopen(heurdata->rewardfilename, "w");
 

src/scip/heur_scheduler.c

@@ -72,9 +72,6 @@
 #include "scip/scip_var.h"
 #include <string.h>
 
-#if !defined(_WIN32) && !defined(_WIN64)
-#include <strings.h> /*lint --e{766}*/ /* needed for strncasecmp() */
-#endif
 
 #define HEUR_NAME             "scheduler"
 #define HEUR_DESC             "Adaptive heuristic to schedule LNS and diving heuristics"

src/scip/misc.c

@@ -45,6 +45,9 @@
 #include <errno.h>
 #include <ctype.h>
 #include <math.h>
+#ifndef _MSC_VER
+#include <strings.h>
+#endif
 
 #include "scip/def.h"
 #include "scip/pub_message.h"
@@ -10909,6 +10912,34 @@ int SCIPsnprintf(
    return n;
 }
 
+/** portable version of strcasecmp for case-insensitive comparison of two strings  */
+int SCIPstrcasecmp(
+   const char*           s1,                 /**< first string */
+   const char*           s2                  /**< second string */
+   )
+{
+#ifdef _MSC_VER
+   return _stricmp(s1, s2);
+#else
+   return strcasecmp(s1, s2);
+#endif
+}
+
+/** portable version of strncasecmp for case-insensitive comparison of two strings up to a given number of characters */
+int SCIPstrncasecmp(
+   const char*           s1,                 /**< first string */
+   const char*           s2,                 /**< second string */
+   int                   length              /**< maximal length to compare */
+   )
+{
+   assert(length >= 0);
+#ifdef _MSC_VER
+   return _strnicmp(s1, s2, (size_t)length);
+#else
+   return strncasecmp(s1, s2, (size_t)length);  /*lint !e571*/
+#endif
+}
+
 /** safe version of strncpy
  *
  *  Copies string in s to t using at most @a size-1 nonzero characters (strncpy copies size characters). It always adds

src/scip/paramset.c

@@ -1247,11 +1247,11 @@ SCIP_RETCODE paramParseBool(
    assert(set != NULL);
    assert(valuestr != NULL);
 
-   if( strcasecmp(valuestr, "TRUE") == 0 )
+   if( SCIPstrcasecmp(valuestr, "TRUE") == 0 )
    {
       SCIP_CALL( SCIPparamSetBool(param, set, messagehdlr, TRUE, FALSE, TRUE) );
    }
-   else if( strcasecmp(valuestr, "FALSE") == 0 )
+   else if( SCIPstrcasecmp(valuestr, "FALSE") == 0 )
    {
       SCIP_CALL( SCIPparamSetBool(param, set, messagehdlr, FALSE, FALSE, TRUE) );
    }

src/scip/pub_misc.h

@@ -2311,6 +2311,21 @@ int SCIPstrncpy(
    int                   size                /**< maximal size of t */
    );
 
+/** portable version of strcasecmp for case-insensitive comparison of two strings  */
+SCIP_EXPORT
+int SCIPstrcasecmp(
+   const char*           s1,                 /**< first string */
+   const char*           s2                  /**< second string */
+   );
+
+/** portable version of strncasecmp for case-insensitive comparison of two strings up to a given number of characters */
+SCIP_EXPORT
+int SCIPstrncasecmp(
+   const char*           s1,                 /**< first string */
+   const char*           s2,                 /**< second string */
+   int                   length              /**< maximal length to compare */
+   );
+
 /** extract the next token as a integer value if it is one; in case no value is parsed the endptr is set to @p str
  *
  *  @return Returns TRUE if a value could be extracted, otherwise FALSE

src/scip/reader.c

@@ -175,7 +175,7 @@ SCIP_Bool readerIsApplicable(
    assert(reader != NULL);
    assert(reader->extension != NULL);
 
-   return (extension != NULL && strcasecmp(reader->extension, extension) == 0)
+   return (extension != NULL && SCIPstrcasecmp(reader->extension, extension) == 0)
       || (extension == NULL && *(reader->extension) == '\0');
 }