mirror of
https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git
synced 2025-07-28 01:21:58 +08:00
d6605aa1a7
This reverts commit d27219e84b0997baf237004ca3e6929abd81eb25. # Conflicts: # package/win/package_win32.ps1
117 lines
3.3 KiB
C++
117 lines
3.3 KiB
C++
#include <EXTERN.h> // from the Perl distribution
|
|
#include <perl.h> // from the Perl distribution
|
|
|
|
#ifdef WIN32
|
|
// Perl win32 specific includes, found in perl\\lib\\CORE\\win32.h
|
|
// Defines the windows specific convenience RunPerl() function,
|
|
// which is not available on other operating systems.
|
|
#include <win32.h>
|
|
#include <wchar.h>
|
|
#endif
|
|
|
|
#include <cstdio>
|
|
#include <cstdlib>
|
|
|
|
#ifdef WIN32
|
|
int main(int argc, char **argv, char **env)
|
|
{
|
|
|
|
// If the Slic3r is installed in a localized directory (containing non-iso
|
|
// characters), spaces or semicolons, use short file names.
|
|
char exe_path[MAX_PATH] = {0};
|
|
char script_path[MAX_PATH];
|
|
char gui_flag[6] = {"--gui"};
|
|
#ifdef FORCE_GUI
|
|
char** command_line = (char**)malloc(sizeof(char*) * ((++ argc) + 2));
|
|
#else
|
|
char** command_line = (char**)malloc(sizeof(char*) * ((++ argc) + 1));
|
|
#endif
|
|
{
|
|
// Unicode path. This will not be used directly, but to test, whether
|
|
// there are any non-ISO characters, in which case the path is converted to a
|
|
// short path (using 8.3 directory names).
|
|
|
|
wchar_t exe_path_w[MAX_PATH] = {0};
|
|
char drive[_MAX_DRIVE];
|
|
char dir[_MAX_DIR];
|
|
char fname[_MAX_FNAME];
|
|
char ext[_MAX_EXT];
|
|
bool needs_short_paths = false;
|
|
int len;
|
|
int i;
|
|
GetModuleFileNameA(NULL, exe_path, MAX_PATH-1);
|
|
GetModuleFileNameW(NULL, exe_path_w, MAX_PATH-1);
|
|
len = strlen(exe_path);
|
|
|
|
if (len != wcslen(exe_path_w)) {
|
|
needs_short_paths = true;
|
|
} else {
|
|
for (i = 0; i < len; ++ i)
|
|
if ((wchar_t)exe_path[i] != exe_path_w[i] || exe_path[i] == ' ' ||
|
|
exe_path[i] == ';') {
|
|
needs_short_paths = true;
|
|
break;
|
|
}
|
|
}
|
|
if (needs_short_paths) {
|
|
wchar_t exe_path_short[MAX_PATH] = {0};
|
|
GetShortPathNameW(exe_path_w, exe_path_short, MAX_PATH);
|
|
len = wcslen(exe_path_short);
|
|
for (i = 0; i <= len; ++ i)
|
|
exe_path[i] = (char)exe_path_short[i];
|
|
}
|
|
_splitpath(exe_path, drive, dir, fname, ext);
|
|
_makepath(script_path, drive, dir, NULL, NULL);
|
|
if (needs_short_paths)
|
|
printf("Slic3r installed in a loclized path. Using an 8.3 path: \"%s\"\n",
|
|
script_path);
|
|
SetDllDirectoryA(script_path);
|
|
_makepath(script_path, drive, dir, "slic3r", "pl");
|
|
command_line[0] = exe_path;
|
|
command_line[1] = script_path;
|
|
memcpy(command_line + 2, argv + 1, sizeof(char*) * (argc - 2));
|
|
#ifdef FORCE_GUI
|
|
command_line[argc] = gui_flag;
|
|
command_line[argc+1] = NULL;
|
|
#else
|
|
command_line[argc] = NULL;
|
|
#endif
|
|
// Unset the PERL5LIB and PERLLIB environment variables.
|
|
SetEnvironmentVariable("PERL5LIB", NULL);
|
|
SetEnvironmentVariable("PERLLIB", NULL);
|
|
#if 0
|
|
printf("Arguments: \r\n");
|
|
for (size_t i = 0; i < argc + 1; ++ i)
|
|
printf(" %d: %s\r\n", i, command_line[i]);
|
|
#endif
|
|
}
|
|
#ifdef FORCE_GUI
|
|
RunPerl(argc+1, command_line, NULL);
|
|
#else
|
|
RunPerl(argc, command_line, NULL);
|
|
#endif
|
|
free(command_line);
|
|
}
|
|
#else
|
|
|
|
int main(int argc, char **argv, char **env)
|
|
{
|
|
PerlInterpreter *my_perl = perl_alloc();
|
|
if (my_perl == NULL) {
|
|
fprintf(stderr, "Cannot start perl interpreter. Exiting.\n");
|
|
return -1;
|
|
}
|
|
perl_construct(my_perl);
|
|
|
|
#ifdef FORCE_GUI
|
|
char* command_line[] = { "slic3r", "slic3r.pl", "--gui" };
|
|
#else
|
|
char* command_line[] = { "slic3r", "slic3r.pl" };
|
|
#endif
|
|
perl_parse(my_perl, NULL, 3, command_line, (char **)NULL);
|
|
perl_run(my_perl);
|
|
perl_destruct(my_perl);
|
|
perl_free(my_perl);
|
|
}
|
|
#endif
|