Mercurial > octave-nkf

comparison src/toplev.cc @ 2162:a940dcdfe9de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-13 10:31:51 by jwe]
author jwe
date Mon, 13 May 1996 10:34:31 +0000
parents 4d13a9fafd44
children a24158362f9f
comparison
equal deleted inserted replaced
2161:abb947300970 2162:a940dcdfe9de
52 #include "error.h" 52 #include "error.h"
53 #include "file-io.h" 53 #include "file-io.h"
54 #include "help.h" 54 #include "help.h"
55 #include "input.h" 55 #include "input.h"
56 #include "lex.h" 56 #include "lex.h"
57 #include "oct-conf.h"
57 #include "oct-hist.h" 58 #include "oct-hist.h"
59 #include "oct-map.h"
58 #include "pager.h" 60 #include "pager.h"
59 #include "parse.h" 61 #include "parse.h"
60 #include "pathsearch.h" 62 #include "pathsearch.h"
61 #include "procstream.h" 63 #include "procstream.h"
62 #include "pt-const.h" 64 #include "pt-const.h"
745 747
746 feval (fcn, 0); 748 feval (fcn, 0);
747 } 749 }
748 } 750 }
749 751
750 DEFUN(atexit, args, , 752 DEFUN (atexit, args, ,
751 "atexit (NAME): register NAME as a function to call when Octave exits\n\ 753 "atexit (NAME): register NAME as a function to call when Octave exits\n\
752 \n\ 754 \n\
753 Functions are called with no arguments in the reverse of the order in 755 Functions are called with no arguments in the reverse of the order in
754 which they were registered with atexit()") 756 which they were registered with atexit()")
755 { 757 {
774 #endif 776 #endif
775 777
776 return retval; 778 return retval;
777 } 779 }
778 780
781 DEFUN (octave_config_info, , ,
782 "return a structure containing configuration information")
783 {
784 Octave_map m;
785
786 m ["default_pager"] = DEFAULT_PAGER;
787 m ["prefix"] = OCTAVE_PREFIX;
788 m ["exec_prefix"] = OCTAVE_EXEC_PREFIX;
789 m ["datadir"] = OCTAVE_DATADIR;
790 m ["libdir"] = OCTAVE_LIBDIR;
791 m ["bindir"] = OCTAVE_BINDIR;
792 m ["infodir"] = OCTAVE_INFODIR;
793 m ["fcnfiledir"] = OCTAVE_FCNFILEDIR;
794 m ["localfcnfiledir"] = OCTAVE_LOCALFCNFILEDIR;
795 m ["localstartupfiledir"] = OCTAVE_LOCALSTARTUPFILEDIR;
796 m ["startupfiledir"] = OCTAVE_STARTUPFILEDIR;
797 m ["localfcnfilepath"] = OCTAVE_LOCALFCNFILEPATH;
798 m ["archlibdir"] = OCTAVE_ARCHLIBDIR;
799 m ["octfiledir"] = OCTAVE_OCTFILEDIR;
800 m ["localoctfilepath"] = OCTAVE_LOCALOCTFILEPATH;
801 m ["fcnfilepath"] = OCTAVE_FCNFILEPATH;
802 m ["imagepath"] = OCTAVE_IMAGEPATH;
803 m ["target_host_type"] = TARGET_HOST_TYPE;
804 m ["configure_options"] = config_opts;
805 m ["F77"] = F77;
806 m ["FFLAGS"] = FFLAGS;
807 m ["FPICFLAG"] = FPICFLAG;
808 m ["F2C"] = F2C;
809 m ["F2CFLAGS"] = F2CFLAGS;
810 m ["FLIBS"] = FLIBS;
811 m ["CPPFLAGS"] = CPPFLAGS;
812 m ["INCFLAGS"] = INCFLAGS;
813 m ["CC"] = CC " " CC_VERSION;
814 m ["CFLAGS"] = CFLAGS;
815 m ["CPICFLAG"] = CPICFLAG;
816 m ["CXX"] = CXX " " CXX_VERSION;
817 m ["CXXFLAGS"] = CXXFLAGS;
818 m ["CXXPICFLAG"] = CXXPICFLAG;
819 m ["LDFLAGS"] = LDFLAGS;
820 m ["LIBFLAGS"] = LIBFLAGS;
821 m ["RLD_FLAG"] = RLD_FLAG;
822 m ["CXXLIBS"] = CXXLIBS;
823 m ["TERMLIBS"] = TERMLIBS;
824 m ["LIBS"] = LIBS;
825 m ["LEXLIB"] = LEXLIB;
826 m ["LIBPLPLOT"] = LIBPLPLOT;
827 m ["LIBDLFCN"] = LIBDLFCN;
828 m ["DEFS"] = DEFS;
829
830 return octave_value (m);
831 }
832
779 #if defined (__GNUG__) && defined (DEBUG_NEW_DELETE) 833 #if defined (__GNUG__) && defined (DEBUG_NEW_DELETE)
780 int debug_new_delete = 0; 834 int debug_new_delete = 0;
781 835
782 typedef void (*vfp)(void); 836 typedef void (*vfp)(void);
783 extern vfp __new_handler; 837 extern vfp __new_handler;