Updated xs/Build.PL to support Visual Studio compiler suite.

Updated xs/Build.PL to understand BOOST_LIBRARY_PATH and
BOOST_INCLUDE_PATH environment variables. This way one may easily
switch between various boost builds.

Some minor tweeks were done to make Slic3r compile with
Visual Studio 2013.

xs/Build.PL

@@ -7,6 +7,9 @@ use Devel::CheckLib;
 use ExtUtils::CppGuess;
 use Module::Build::WithXSpp;
 
+my $cpp_guess = ExtUtils::CppGuess->new;
+my $mswin = $^O eq 'MSWin32';
+
 # _GLIBCXX_USE_C99 : to get the long long type for g++
 # HAS_BOOL         : stops Perl/lib/CORE/handy.h from doing "#  define bool char" for MSVC
 # NOGDI            : prevents inclusion of wingdi.h which defines functions Polygon() and Polyline() in global namespace
@@ -16,33 +19,68 @@ my @ldflags = ();
 if ($^O eq 'darwin') {
     push @ldflags, qw(-framework IOKit -framework CoreFoundation);
 }
+if ($mswin) {
+    # In case windows.h is included, we don't want the min / max macros to be active.
+    # If <math.h> is included, we want the #defines to be active (M_PI etc.)
+    push @cflags, qw(-DNOMINMAX -D_USE_MATH_DEFINES);
+}
 
 my @INC  = qw(-Isrc/libslic3r);
-my @LIBS = qw(-Lsrc/libslic3r);
+my @LIBS = $cpp_guess->is_msvc ? qw(-LIBPATH:src/libslic3r) : qw(-Lsrc/libslic3r);
 
 # search for Boost in a number of places
-my @boost_include = my @boost_libs = ();
+my @boost_include = ();
-if (defined $ENV{BOOST_DIR}) {
+if (defined $ENV{BOOST_INCLUDEDIR}) {
-    if (-d "$ENV{BOOST_DIR}/include") {
+    push @boost_include, $ENV{BOOST_INCLUDEDIR}
-        push @boost_include, $ENV{BOOST_DIR} . '/include';
+} elsif (defined $ENV{BOOST_DIR}) {
+    my $subdir = $ENV{BOOST_DIR} . (($mswin == 1) ? '\include' : '/include');
+    if (-d $subdir) {
+        push @boost_include, $subdir;
     } else {
         push @boost_include, $ENV{BOOST_DIR};
     }
-    push @boost_libs, $ENV{BOOST_DIR};
 } else {
-    push @boost_include, grep { -d $_ }
+    # Boost library was not defined by the environment.
-        qw(/opt/local/include /usr/local/include /opt/include),
+    # Try to guess at some default paths.
-        qw(/usr/include C:\Boost\include);
+    if ($mswin) {
-    push @boost_libs, grep { -d $_ }
+        for my $path (glob('C:\dev\boost*\include'), glob ('C:\boost*\include')) {
-        qw(/opt/local/lib /usr/local/lib /opt/lib /usr/lib),
+            push @boost_include, $path;
-        qw(C:\Boost\lib /lib);
+        }
-    
+        if (! @boost_include) {
-    if ($^O eq 'MSWin32') {
+            # No boost\include. Try to include the boost root.
             for my $path (glob('C:\dev\boost*'), glob ('C:\boost*')) {
                 push @boost_include, $path;
-            push @boost_libs, $path . "/stage/lib";
             }
         }
+    } else {
+        push @boost_include, grep { -d $_ }
+            qw(/opt/local/include /usr/local/include /opt/include /usr/include);
+    }
+}
+
+my @boost_libs = ();
+if (defined $ENV{BOOST_LIBRARYDIR}) {
+    push @boost_libs, $ENV{BOOST_LIBRARYDIR}
+} elsif (defined $ENV{BOOST_DIR}) {
+    my $subdir = $ENV{BOOST_DIR} . ($mswin ? '\stage\lib' : '/stage/lib');
+    if (-d $subdir) {
+        push @boost_libs, $subdir;
+    } else {
+        push @boost_libs, $ENV{BOOST_DIR};
+    }
+} else {
+    # Boost library was not defined by the environment.
+    # Try to guess at some default paths.
+    if ($mswin) {
+        for my $path (
+            glob('C:\dev\boost*\lib'),       glob ('C:\boost*\lib'), 
+            glob('C:\dev\boost*\stage\lib'), glob ('C:\boost*\stage\lib')) {
+            push @boost_libs, $path;
+        }
+    } else {
+        push @boost_libs, grep { -d $_ }
+            qw(/opt/local/lib /usr/local/lib /opt/lib /usr/lib /lib);
+    }
 }
 
 # In order to generate the -l switches we need to know how Boost libraries are named
@@ -50,29 +88,44 @@ my $have_boost = 0;
 my @boost_libraries = qw(system thread);  # we need these
 
 # check without explicit lib path (works on Linux)
-$have_boost = 1
+if (! $mswin) {
+    $have_boost = 1
         if check_lib(
             lib     => [ map "boost_${_}", @boost_libraries ],
         );
+}
 
 if (!$ENV{SLIC3R_STATIC} && $have_boost) {
+    # The boost library was detected by check_lib on Linux.
     push @LIBS, map "-lboost_${_}", @boost_libraries;
 } else {
-    foreach my $path (@boost_libs) {
+    # Either static linking, or check_lib could not be used to find the boost libraries.
-        my @files = glob "$path/libboost_system*";
+    my $lib_prefix = 'libboost_';
+    my $lib_ext = ${$cpp_guess}{config}{lib_ext};
+    PATH: foreach my $path (@boost_libs) {
+        # Try to find the boost system library.
+        my @files = glob "$path/${lib_prefix}system*$lib_ext";
         next if !@files;
     
-        if ($files[0] =~ /libboost_system([^.]+)/) {
+        if ($files[0] =~ /${lib_prefix}system([^.]+)$lib_ext$/) {
+            # Suffix contains the version number, the build type etc.
             my $suffix = $1;
+            # Verify existence of all required boost libraries at $path.
+            for my $lib (map "${lib_prefix}${_}${suffix}${lib_ext}", @boost_libraries) {
+                # If the library file does not exist, try next library path.
+                -f "$path/$lib" or next PATH;
+            }
+            if (! $cpp_guess->is_msvc) {
+                # Test the correctness of boost libraries by linking them to a minimal C program.
                 check_lib(
                     lib     => [ map "boost_${_}${suffix}", @boost_libraries ],
                     INC     => join(' ', map "-I$_", @INC,  @boost_include),
                     LIBS    => "-L$path",
                 ) or next;
-        
+            }
             push @INC, (map " -I$_", @boost_include);  # TODO: only use the one related to the chosen lib path
-            if ($ENV{SLIC3R_STATIC}) {
+            if ($ENV{SLIC3R_STATIC} || $cpp_guess->is_msvc) {
-                push @LIBS, map "$path/libboost_$_$suffix.a", @boost_libraries;
+                push @LIBS, map "${path}/${lib_prefix}$_${suffix}${lib_ext}", @boost_libraries;
             } else {
                 push @LIBS, " -L$path", (map " -lboost_$_$suffix", @boost_libraries);
             }
@@ -91,13 +144,17 @@ path through the BOOST_DIR environment variable:
 
     BOOST_DIR=/path/to/boost perl Build.PL
 
+Or you may specify BOOST_INCLUDEPATH and BOOST_LIBRARYPATH separatly, which
+is handy, if you have built Boost libraries with mutliple settings.
+
 EOF
 
 if ($ENV{SLIC3R_DEBUG}) {
     # only on newer GCCs: -ftemplate-backtrace-limit=0
-    push @cflags, qw(-DSLIC3R_DEBUG -g);
+    push @cflags, '-DSLIC3R_DEBUG';
+    push @cflags, $cpp_guess->is_msvc ? '-Gd' : '-g';
 }
-if (ExtUtils::CppGuess->new->is_gcc) {
+if ($cpp_guess->is_gcc) {
     # check whether we're dealing with a buggy GCC version
     # see https://github.com/alexrj/Slic3r/issues/1965
     if (`cc --version` =~ / 4\.7\.[012]/) {

xs/src/libslic3r/PlaceholderParser.cpp

@@ -3,14 +3,22 @@
 #include <ctime>
 #include <iomanip>
 #include <sstream>
-#include <unistd.h>  // provides **environ
+#ifdef _MSC_VER
+    #include <stdlib.h>  // provides **_environ
+#else
+    #include <unistd.h>  // provides **environ
+#endif
 
 #ifdef __APPLE__
 #include <crt_externs.h>
 #undef environ
 #define environ (*_NSGetEnviron())
 #else
+    #ifdef _MSC_VER
+       #define environ _environ
+    #else
      	extern char **environ;
+    #endif
 #endif
 
 namespace Slic3r {

xs/src/libslic3r/libslic3r.h

@@ -25,14 +25,17 @@ typedef double coordf_t;
 
 namespace Slic3r {
 
-// TODO: make sure X = 0
+enum Axis { X=0, Y, Z };
-enum Axis { X, Y, Z };
 
 }
 using namespace Slic3r;
 
 /* Implementation of CONFESS("foo"): */
-#define CONFESS(...) confess_at(__FILE__, __LINE__, __func__, __VA_ARGS__)
+#ifdef _MSC_VER
+	#define CONFESS(...) confess_at(__FILE__, __LINE__, __FUNCTION__, __VA_ARGS__)
+#else
+	#define CONFESS(...) confess_at(__FILE__, __LINE__, __func__, __VA_ARGS__)
+#endif
 void confess_at(const char *file, int line, const char *func, const char *pat, ...);
 /* End implementation of CONFESS("foo"): */
 

xs/src/xsinit.h

@@ -40,6 +40,12 @@ extern "C" {
 #include "ppport.h"
 #undef do_open
 #undef do_close
+#ifdef _MSC_VER
+    // Undef some of the macros set by Perl <xsinit.h>, which cause compilation errors on Win32
+    #undef send
+    #undef connect
+    #undef bind
+#endif /* _MSC_VER */
 }
 #endif