Mercurial > octave

comparison src/octave.cc @ 3690:55e59236c5e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-06-30 20:55:36 by jwe]
author jwe
date Fri, 30 Jun 2000 20:57:14 +0000
parents 26662775f4e9
children 64ca92e02a7e
comparison
equal deleted inserted replaced
3689:9143cd2129c4 3690:55e59236c5e5
41 #endif 41 #endif
42 #include <unistd.h> 42 #include <unistd.h>
43 #endif 43 #endif
44 44
45 #include "cmd-edit.h" 45 #include "cmd-edit.h"
46 #include "f77-fcn.h"
46 #include "file-stat.h" 47 #include "file-stat.h"
47 #include "lo-error.h" 48 #include "lo-error.h"
48 #include "oct-env.h" 49 #include "oct-env.h"
49 #include "pathsearch.h" 50 #include "pathsearch.h"
50 #include "str-vec.h" 51 #include "str-vec.h"
68 #include "ov.h" 69 #include "ov.h"
69 #include "unwind-prot.h" 70 #include "unwind-prot.h"
70 #include "utils.h" 71 #include "utils.h"
71 #include "variables.h" 72 #include "variables.h"
72 #include <version.h> 73 #include <version.h>
74
75 // Kluge.
76 extern "C" void F77_FCN (xerbla, XERBLA) (const char *, int);
73 77
74 extern void install_builtins (void); 78 extern void install_builtins (void);
75 79
76 #if !defined (HAVE_ATEXIT) && defined (HAVE_ON_EXIT) 80 #if !defined (HAVE_ATEXIT) && defined (HAVE_ON_EXIT)
77 extern "C" int on_exit (); 81 extern "C" int on_exit ();
576 580
577 if (retval == 1 && ! error_state) 581 if (retval == 1 && ! error_state)
578 retval = 0; 582 retval = 0;
579 583
580 clean_up_and_exit (retval); 584 clean_up_and_exit (retval);
585
586 // The following code should never be reached. It is a hack to make
587 // sure that the xerbla.f from libcruft/blas-xtra is linked with
588 // octave, in preference to the xerbla function from any standard
589 // BLAS that we link to.
590
591 // XXX FIXME XXX -- this may not work on some systems if libcruft
592 // and the external blas libraries are both shared libraries.
593
594 if (retval < 0)
595 F77_FCN (xerbla, XERBLA) ("foobar", 0);
581 } 596 }
582 597
583 /* 598 /*
584 ;;; Local Variables: *** 599 ;;; Local Variables: ***
585 ;;; mode: C++ *** 600 ;;; mode: C++ ***