Mercurial > forge
view main/database/src/__pq_internal_exit__.cc @ 12613:9cb56e0cd09b octave-forge
Remove autoloaded functions at package unload.
author | i7tiol |
---|---|
date | Fri, 08 May 2015 20:08:28 +0000 |
parents | b9544a96bc8d |
children | 52ca082757c2 |
line wrap: on
line source
// Copyright (C) 2008, 2013 Olaf Till <olaf.till@uni-jena.de> // This program 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. // This program 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 this program; if not, write to the Free Software // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA #include <octave/oct.h> #include <unistd.h> #include <signal.h> // PKG_ADD: autoload ("__pq_internal_exit__", "pq_interface.oct"); // PKG_DEL: autoload ("__pq_internal_exit__", "pq_interface.oct", "remove"); // This function duplicates __exit__.cc to avoid the dependency on the // package main/general. DEFUN_DLD (__pq_internal_exit__, args, , "-*- texinfo -*-\n\ @deftypefn {Loadable Function} __pq_internal_exit__ (status)\n\ This is a wrapper over the POSIX _exit() system call. Calling this function\n\ will terminate the running process immediatelly, bypassing normal Octave\n\ terminating sequence. It is suitable to terminate a forked process. It\n\ should be considered expert-only and not to be used in normal code.\n\ @end deftypefn") { _exit (args.length () > 0 ? args(0).int_value () : 0); }