Mercurial > octave-nkf
view src/shared-fcns.h @ 20651:e54ecb33727e
lo-array-gripes.cc: Remove FIXME's related to buffer size.
* lo-array-gripes.cc: Remove FIXME's related to buffer size. Shorten sprintf
buffers from 100 to 64 characters (still well more than 19 required).
Use 'const' decorator on constant value for clarity. Remove extra space
between variable and array bracket.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 12 Oct 2015 21:13:47 -0700 |
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; }