Mercurial > octave-antonio
view src/shared-fcns.h @ 20123:8261c4a11250
Convert octave integer scalars into closest java type (bug #44882)
* libinterp/octave-value/ov-java.cc (unbox): when calling a java method,
octave core types should be converted automatically into equivalent java
types. In the case of integers, we must pick the closest one but at the
moment all were being converted to Integer (int32_t). This fixes it, even
if it meas to lose data (as is the case in some of the added tests). Also
reduce some code duplication by using macros since the code is similar to
the code for float and doubles.
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Tue, 21 Apr 2015 00:32:52 +0100 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 2008-2015 Michael Goffioul This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if defined (__WIN32__) && ! defined (_POSIX_VERSION) #include <windows.h> #include <tlhelp32.h> #ifdef _MSC_VER #define popen _popen #define pclose _pclose #endif static std::string w32_get_octave_home (void) { std::string retval; std::string bin_dir; HANDLE h = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE #ifdef TH32CS_SNAPMODULE32 | TH32CS_SNAPMODULE32 #endif , 0); if (h != INVALID_HANDLE_VALUE) { MODULEENTRY32 mod_info; ZeroMemory (&mod_info, sizeof (mod_info)); mod_info.dwSize = sizeof (mod_info); if (Module32First (h, &mod_info)) { do { std::string mod_name (mod_info.szModule); if (mod_name.find ("octave") != std::string::npos) { bin_dir = mod_info.szExePath; if (bin_dir[bin_dir.length () - 1] != '\\') bin_dir.append (1, '\\'); break; } } while (Module32Next (h, &mod_info)); } CloseHandle (h); } if (! bin_dir.empty ()) { size_t pos = bin_dir.rfind ("\\bin\\"); if (pos != std::string::npos) retval = bin_dir.substr (0, pos); } return retval; } #endif // Find the directory where the octave binary is supposed to be // installed. #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) \ && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) static const char dir_sep_char = '\\'; #else static const char dir_sep_char = '/'; #endif static std::string octave_getenv (const std::string& name) { char *value = ::getenv (name.c_str ()); return value ? value : ""; } static std::string get_octave_home (void) { std::string oh = octave_getenv ("OCTAVE_HOME"); #if defined (__WIN32__) && ! defined (_POSIX_VERSION) if (oh.empty ()) oh = w32_get_octave_home (); #endif return oh.empty () ? std::string (OCTAVE_PREFIX) : oh; } static std::string subst_octave_home (const std::string& s) { std::string retval; std::string octave_home = get_octave_home (); std::string prefix = OCTAVE_PREFIX; retval = s; if (octave_home != prefix) { octave_idx_type len = prefix.length (); if (s.substr (0, len) == prefix) retval.replace (0, len, octave_home); } if (dir_sep_char != '/') std::replace (retval.begin (), retval.end (), '/', dir_sep_char); return retval; }