Mercurial > hg > octave-nkf
diff src/sysdep.cc @ 1111:2a36b558ab55
[project @ 1995-02-15 04:01:38 by jwe]
author | jwe |
---|---|
date | Wed, 15 Feb 1995 04:03:31 +0000 |
parents | 75fc98220389 |
children | 32a5dfd92f0a |
line wrap: on
line diff
--- a/src/sysdep.cc +++ b/src/sysdep.cc @@ -363,6 +363,38 @@ return c; } +char * +octave_getcwd (const char *buf, int len) +{ +#if defined (EMX) + return _getcwd2 (buf, len); +#else + return getcwd (buf, len); +#endif +} + +int +octave_chdir (const char *path) +{ +#if defined (EMX) + int retval = -1; + + if (strlen (path) == 2 && path[1] == ':') + { + char *upper_case_dir_name = strupr (path); + _chdrive (upper_case_dir_name[0]); + if (_getdrive () == upper_case_dir_name[0]) + retval = _chdir2 ("/"); + } + else + retval = _chdir2 (path); + + return retval; +#else + return chdir (path); +#endif +} + DEFUN ("clc", Fclc, Sclc, 0, 0, "clc (): clear screen") {