Mercurial > hg > octave-nkf

view liboctave/util/f2c-main.c @ 17804:f3e25230b1f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use QCoreApplication if starting with --no-gui * octave-gui.cc (octave_start_gui): Use QApplication when starting the GUI and QCoreApplication if not. (octave_cli_thread::run): Call QCoreApplication::exit instead of QApplication::exit.
author John W. Eaton <jwe@octave.org>
date Wed, 30 Oct 2013 02:08:41 -0400
parents d63878346099
children 4197fc428c7d
line wrap: on
line source

/*

Copyright (C) 1996-2013 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/>.

*/

#include <assert.h>


/* Dummy Fortran main declaration, needed in order to link to some
   Fortran libraries.  See the AC_F77_DUMMY_MAIN macro documentation.
   This function should never be called. */

#ifdef F77_DUMMY_MAIN
#  ifdef __cplusplus
extern "C"
#  endif
int F77_DUMMY_MAIN () { assert (0); return 1; }
#endif