Mercurial > octave

comparison src/sysdep.cc @ 1111:2a36b558ab55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-15 04:01:38 by jwe]
author jwe
date Wed, 15 Feb 1995 04:03:31 +0000
parents 75fc98220389
children 32a5dfd92f0a
comparison
equal deleted inserted replaced
1110:456368d90bc7 1111:2a36b558ab55
361 c = cin.get (); 361 c = cin.get ();
362 raw_mode (0); 362 raw_mode (0);
363 return c; 363 return c;
364 } 364 }
365 365
366 char *
367 octave_getcwd (const char *buf, int len)
368 {
369 #if defined (EMX)
370 return _getcwd2 (buf, len);
371 #else
372 return getcwd (buf, len);
373 #endif
374 }
375
376 int
377 octave_chdir (const char *path)
378 {
379 #if defined (EMX)
380 int retval = -1;
381
382 if (strlen (path) == 2 && path[1] == ':')
383 {
384 char *upper_case_dir_name = strupr (path);
385 _chdrive (upper_case_dir_name[0]);
386 if (_getdrive () == upper_case_dir_name[0])
387 retval = _chdir2 ("/");
388 }
389 else
390 retval = _chdir2 (path);
391
392 return retval;
393 #else
394 return chdir (path);
395 #endif
396 }
397
366 DEFUN ("clc", Fclc, Sclc, 0, 0, 398 DEFUN ("clc", Fclc, Sclc, 0, 0,
367 "clc (): clear screen") 399 "clc (): clear screen")
368 { 400 {
369 Octave_object retval; 401 Octave_object retval;
370 402