GNU Octave  4.4.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lo-sysdep.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1996-2018 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software: you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <https://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if defined (HAVE_CONFIG_H)
24 # include "config.h"
25 #endif
26 
27 #include <string>
28 
29 #include "file-ops.h"
30 #include "lo-error.h"
31 #include "lo-sysdep.h"
32 #include "unistd-wrappers.h"
33 
34 namespace octave
35 {
36  namespace sys
37  {
39  getcwd (void)
40  {
42 
43  // Using octave_getcwd_wrapper ensures that we have a getcwd that
44  // will allocate a buffer as large as necessary if buf and size are
45  // both 0.
46 
47  char *tmp = octave_getcwd_wrapper (nullptr, 0);
48 
49  if (! tmp)
50  (*current_liboctave_error_handler) ("unable to find current directory");
51 
52  retval = tmp;
53  free (tmp);
54 
55  return retval;
56  }
57 
58  int
59  chdir (const std::string& path_arg)
60  {
61  std::string path = sys::file_ops::tilde_expand (path_arg);
62 
63 #if defined (OCTAVE_USE_WINDOWS_API)
64  if (path.length () == 2 && path[1] == ':')
65  path += '\\';
66 #endif
67 
68  return octave_chdir_wrapper (path.c_str ());
69  }
70  }
71 }
std::string tilde_expand(const std::string &name)
Definition: file-ops.cc:276
std::string getcwd(void)
Definition: lo-sysdep.cc:39
double tmp
Definition: data.cc:6252
octave_value retval
Definition: data.cc:6246
int chdir(const std::string &path_arg)
Definition: lo-sysdep.cc:59
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string
Definition: utils.cc:888
char * octave_getcwd_wrapper(char *nm, size_t len)
int octave_chdir_wrapper(const char *nm)