Mercurial > hg > octave-nkf
changeset 11559:26a6435857bc
provide isdeployed function
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 17 Jan 2011 14:33:38 -0500 |
parents | 1e4dfc7a9487 |
children | 05b5bcdb09c8 |
files | scripts/ChangeLog scripts/miscellaneous/isdeployed.m scripts/miscellaneous/module.mk |
diffstat | 3 files changed, 38 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2011-01-17 John W. Eaton <jwe@octave.org> + + * miscellaneous/isdeployed.m: New function. + * miscellaneous/module.mk (miscellaneous_FCN_FILES): Add it to + the list. Bug #32151. + 2011-01-17 John W. Eaton <jwe@octave.org> * miscellaneous/inputname.m: Use __varval__ to lookup ".argn."
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/isdeployed.m @@ -0,0 +1,31 @@ +## Copyright (C) 2011 John W. Eaton +## +## 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/>. + +## -*- texinfo -*- +## @deftypefn {Function File} {} isdeployed () +## Return true if the current program has been compiled and is running +## separately from the Octave interpreter and false if it is running in +## the Octave interpreter. Currently, this function always returns +## false in Octave. +## @end deftypefn + +function retval = isdeployed () + retval = false; +endfunction + +%!assert (isdeployed (), false)