Mercurial > octave-nkf
comparison scripts/pkg/private/isautoload.m @ 14466:cfb0173fe1ca
maint: Refactor pkg.m and move subfunctions to private/ directory.
* pkg.m: move all sub-functions to private/
* pkg/private/absolute_pathname.m
* pkg/private/build.m
* pkg/private/configure_make.m
* pkg/private/copy_files.m
* pkg/private/create_pkgadddel.m
* pkg/private/describe.m
* pkg/private/dirempty.m
* pkg/private/extract_pkg.m
* pkg/private/finish_installation.m
* pkg/private/fix_depends.m
* pkg/private/fix_version.m
* pkg/private/generate_lookfor_cache.m
* pkg/private/get_description.m
* pkg/private/get_forge_download.m
* pkg/private/get_forge_pkg.m
* pkg/private/getarch.m
* pkg/private/getarchdir.m
* pkg/private/getarchprefix.m
* pkg/private/get_unsatisfied_deps.m
* pkg/private/install.m
* pkg/private/installed_packages.m
* pkg/private/is_architecture_dependent.m
* pkg/private/isautoload.m
* pkg/private/issuperuser.m
* pkg/private/list_forge_packages.m
* pkg/private/load_package_dirs.m
* pkg/private/load_packages.m
* pkg/private/load_packages_and_dependencies.m
* pkg/private/packinfo_copy_file.m
* pkg/private/parse_pkg_idx.m
* pkg/private/prepare_installation.m
* pkg/private/print_package_description.m
* pkg/private/rebuild.m
* pkg/private/repackage.m
* pkg/private/rm_rf.m
* pkg/private/rstrip.m
* pkg/private/save_order.m
* pkg/private/shell.m
* pkg/private/split_by.m
* pkg/private/strip.m
* pkg/private/uninstall.m
* pkg/private/unload_packages.m
* pkg/private/verify_directory.m
* pkg/private/write_index.m
| author | Carlo de Falco <kingcrimson@tiscali.it> |
|---|---|
| date | Thu, 15 Mar 2012 19:41:24 +0100 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 14465:16164cb3b713 | 14466:cfb0173fe1ca |
|---|---|
| 1 ## Copyright (C) 2005-2012 S�ren Hauberg | |
| 2 ## Copyright (C) 2010 VZLU Prague, a.s. | |
| 3 ## | |
| 4 ## This file is part of Octave. | |
| 5 ## | |
| 6 ## Octave is free software; you can redistribute it and/or modify it | |
| 7 ## under the terms of the GNU General Public License as published by | |
| 8 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 9 ## your option) any later version. | |
| 10 ## | |
| 11 ## Octave is distributed in the hope that it will be useful, but | |
| 12 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 14 ## General Public License for more details. | |
| 15 ## | |
| 16 ## You should have received a copy of the GNU General Public License | |
| 17 ## along with Octave; see the file COPYING. If not, see | |
| 18 ## <http://www.gnu.org/licenses/>. | |
| 19 | |
| 20 ## -*- texinfo -*- | |
| 21 ## @deftypefn {Function File} {@var{auto} =} isautoload (@var{desc}) | |
| 22 ## Undocumented internal function. | |
| 23 ## @end deftypefn | |
| 24 | |
| 25 function auto = isautoload (desc) | |
| 26 auto = false; | |
| 27 if (isfield (desc{1}, "autoload")) | |
| 28 a = desc{1}.autoload; | |
| 29 if ((isnumeric (a) && a > 0) | |
| 30 || (ischar (a) && (strcmpi (a, "true") | |
| 31 || strcmpi (a, "on") | |
| 32 || strcmpi (a, "yes") | |
| 33 || strcmpi (a, "1")))) | |
| 34 auto = true; | |
| 35 endif | |
| 36 endif | |
| 37 endfunction | |
| 38 |