Mercurial > octave-nkf
comparison scripts/miscellaneous/edit.m @ 7330:55f35e469c43
[project @ 2007-12-20 17:53:36 by jwe]
author | jwe |
---|---|
date | Thu, 20 Dec 2007 17:53:36 +0000 |
parents | 67aef14de9c2 |
children | 615860ec1be0 |
comparison
equal
deleted
inserted
replaced
7329:bf3fb3477d2a | 7330:55f35e469c43 |
---|---|
411 function ret = default_user (long_form) | 411 function ret = default_user (long_form) |
412 | 412 |
413 ent = getpwuid (getuid); | 413 ent = getpwuid (getuid); |
414 if (! isstruct (ent)) | 414 if (! isstruct (ent)) |
415 ret = getenv ("USER"); | 415 ret = getenv ("USER"); |
416 if (isempty ()) | 416 if (isempty (ret)) |
417 ret = getenv ("USERNAME"); | 417 ret = getenv ("USERNAME"); |
418 endif | 418 endif |
419 elseif (long_form) | 419 elseif (long_form) |
420 ret = ent.gecos; | 420 ret = ent.gecos; |
421 else | 421 else |