Mercurial > hg > octave-nkf
changeset 17745:93b3d03b05e7 classdef
maint: periodic merge of default to classdef
line wrap: on
line diff
--- a/Makefile.am +++ b/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/NEWS +++ b/NEWS @@ -261,6 +261,11 @@ "relax" option has been replaced by the "rtest" option. The numeric values of error codes and of some options have also changed. + ** The kurtosis function has changed definition to be compatible with + Matlab. It now returns the base kurtosis instead of the "excess kurtosis". + The old behavior can be had by changing scripts to normalize with -3. + "excess kurtosis" = kurtosis (x) - 3 + ** The default name of the Octave crash dump file is now "octave-workspace" instead of "octave-core". @@ -322,14 +327,15 @@ be removed from Octave 3.12 (or whatever version is the second major release after 3.8): - default_save_options java_set - gen_doc_cache java_unsigned_conversion + default_save_options java_new + gen_doc_cache java_set + interp1q java_unsigned_conversion isequalwithequalnans javafields java_convert_matrix javamethods java_debug re_read_readline_init_file java_get read_readline_init_file java_invoke saving_history - java_new + The following keywords have been deprecated in Octave 3.8 and will be removed from Octave 3.12 (or whatever version is the second major
--- a/README +++ b/README @@ -1,6 +1,6 @@ GNU Octave -- a high-level language for numerical computations. -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Overview --------
--- a/bootstrap.conf +++ b/bootstrap.conf @@ -1,5 +1,6 @@ # Bootstrap configuration. +# Copyright (C) 2009-2013 John W. Eaton # Copyright (C) 2006-2007, 2009-2012 Free Software Foundation, Inc. # This program is free software: you can redistribute it and/or modify
--- a/build-aux/mk-opts.pl +++ b/build-aux/mk-opts.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -w # -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/configure.ac +++ b/configure.ac @@ -1,6 +1,6 @@ dnl Process this file with autoconf to produce a configure script. dnl -dnl Copyright (C) 1993-2012 John W. Eaton +dnl Copyright (C) 1993-2013 John W. Eaton ### ### This file is part of Octave. ### @@ -295,8 +295,8 @@ GXX_VERSION= if test "$GXX" = yes; then - gxx_version=`$CXX -v 2>&1 | grep "^.*g.. version" | \ - sed -e 's/^.*g.. version *//' -e 's/cygnus-//' -e 's/egcs-//' -e 's/ .*//'` + gxx_version=`$CXX -v 2>&1 | $GREP "^.*g.. version" | \ + $SED -e 's/^.*g.. version *//' -e 's/cygnus-//' -e 's/egcs-//' -e 's/ .*//'` AX_COMPARE_VERSION([$gxx_version], [lt], [3.5], [AC_MSG_ERROR([g++ version $gxx_version will probably fail to compile Octave])]) @@ -342,8 +342,8 @@ GCC_VERSION= if test "$GCC" = yes; then - gcc_version=`$CC -v 2>&1 | grep "^.*gcc version" | \ - sed -e 's/^.*g.. version *//' -e 's/cygnus-//' -e 's/egcs-//' -e 's/ .*//'` + gcc_version=`$CC -v 2>&1 | $GREP "^.*gcc version" | \ + $SED -e 's/^.*g.. version *//' -e 's/cygnus-//' -e 's/egcs-//' -e 's/ .*//'` AX_COMPARE_VERSION([$gcc_version], [lt], [3], [warn_gcc_version="gcc version $gcc_version is likely to cause problems" @@ -613,7 +613,7 @@ case $FFLAGS in *-fdefault-integer-8*) AC_MSG_NOTICE([setting -fdefault-integer-8 in F77_INTEGER_8_FLAG instead of FFLAGS]) - FFLAGS=`echo $FFLAGS | sed 's/-fdefault-integer-8//g'` + FFLAGS=`echo $FFLAGS | $SED 's/-fdefault-integer-8//g'` F77_INTEGER_8_FLAG="-fdefault-integer-8" ;; *) @@ -1154,7 +1154,7 @@ case $host_os in mingw*) - FLTK_LDFLAGS=`echo $FLTK_LDFLAGS | sed -e 's/-mwindows//g'` + FLTK_LDFLAGS=`echo $FLTK_LDFLAGS | $SED -e 's/-mwindows//g'` ;; esac @@ -1295,7 +1295,7 @@ BLAS_LIBS="$octave_blaswrap_save_BLAS_LIBS" else ## wrapper in cruft, remove from BLAS_LIBS - BLAS_LIBS=`echo $BLAS_LIBS | sed -e 's/blaswrap.[[^ ]]* //g'` + BLAS_LIBS=`echo $BLAS_LIBS | $SED -e 's/blaswrap.[[^ ]]* //g'` AC_DEFINE(USE_BLASWRAP, 1, [Define to 1 if BLAS functions need to be wrapped (potentially needed for 64-bit OSX only).]) fi @@ -1609,7 +1609,7 @@ SHLLIBPRE= SHLBINPRE= SH_LDFLAGS="-shared" - if test -n "`echo $CFLAGS | grep -e '-g'`" || test -n "`echo $CXXFLAGS | grep -e '-g'`"; then + if test -n "`echo $CFLAGS | $GREP -e '-g'`" || test -n "`echo $CXXFLAGS | $GREP -e '-g'`"; then DL_LDFLAGS="$DL_LDFLAGS -g" SH_LDFLAGS="$SH_LDFLAGS -g" fi @@ -1649,7 +1649,7 @@ SHLLIBPRE= SHLBINPRE= SH_LDFLAGS="-shared" - if test -n "`echo $CFLAGS | grep -e '-g'`" || test -n "`echo $CXXFLAGS | grep -e '-g'`"; then + if test -n "`echo $CFLAGS | $GREP -e '-g'`" || test -n "`echo $CXXFLAGS | $GREP -e '-g'`"; then DL_LDFLAGS="$DL_LDFLAGS -g" SH_LDFLAGS="$SH_LDFLAGS -g" fi @@ -1904,13 +1904,13 @@ if test "$cross_compiling" = yes && test -n "$ac_tool_prefix"; then CROSS_TOOL_PREFIX="$ac_tool_prefix" - MKOCTFILE_AR='$(shell echo $(AR) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_CC='$(shell echo $(CC) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_CXX='$(shell echo $(CXX) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_DL_LD='$(shell echo $(DL_LD) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_F77='$(shell echo $(F77) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_LD_CXX='$(shell echo $(LD_CXX) | sed "s,$(CROSS_TOOL_PREFIX),,")' - MKOCTFILE_RANLIB='$(shell echo $(RANLIB) | sed "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_AR='$(shell echo $(AR) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_CC='$(shell echo $(CC) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_CXX='$(shell echo $(CXX) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_DL_LD='$(shell echo $(DL_LD) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_F77='$(shell echo $(F77) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_LD_CXX='$(shell echo $(LD_CXX) | $SED "s,$(CROSS_TOOL_PREFIX),,")' + MKOCTFILE_RANLIB='$(shell echo $(RANLIB) | $SED "s,$(CROSS_TOOL_PREFIX),,")' else MKOCTFILE_AR="$AR" MKOCTFILE_CC="$CC" @@ -2402,7 +2402,7 @@ ## Find JAVA_HOME for JRE by running java and querying properties. JAVA_TMP_HOME=`"$JAVA" -classpath ${srcdir}/build-aux OctJavaQry JAVA_HOME` ## Strip directory back to top-level installation dir (JAVA_HOME for JDK). - JAVA_HOME=`echo $JAVA_TMP_HOME | sed -e 's|[[/\\]]bin[[/\\]]\?$||' | sed -e 's|[[/\\]]jre[[/\\]]\?$||'` + JAVA_HOME=`echo $JAVA_TMP_HOME | $SED -e 's|[[/\\]]bin[[/\\]]\?$||' | $SED -e 's|[[/\\]]jre[[/\\]]\?$||'` fi case $host_os in @@ -2440,10 +2440,10 @@ ## Check Java version is recent enough. AC_MSG_CHECKING([for Java version]) - java_version=[`"$JAVA" -version 2>&1 | sed -n -e 's/^[^ ]* version[^0-9"]*"\([^"]*\)"/\1/p'`] + java_version=[`"$JAVA" -version 2>&1 | $SED -n -e 's/^[^ ]* version[^0-9"]*"\([^"]*\)"/\1/p'`] AC_MSG_RESULT([$java_version]) - java_major=[`echo $java_version | sed -e 's/^\([0-9][0-9]*\)\.\([0-9][0-9]*\)\..*$/\1/'`] - java_minor=[`echo $java_version | sed -e 's/^\([0-9][0-9]*\)\.\([0-9][0-9]*\)\..*$/\2/'`] + java_major=[`echo $java_version | $SED -e 's/^\([0-9][0-9]*\)\.\([0-9][0-9]*\)\..*$/\1/'`] + java_minor=[`echo $java_version | $SED -e 's/^\([0-9][0-9]*\)\.\([0-9][0-9]*\)\..*$/\2/'`] if test $java_major -ge 1 && test $java_minor -ge 5; then : # Version is ok. Do nothing. else @@ -2491,7 +2491,7 @@ if test -z "$JAVA_LDPATH"; then ## Run Java to try and determine library path to libjvm.so. JAVA_TMP_LDPATH=`$JAVA -classpath ${srcdir}/build-aux OctJavaQry JAVA_LDPATH` - JAVA_TMP_LDPATH=`echo $JAVA_TMP_LDPATH | sed -e "s/${PATH_SEPARATOR}/ /g"` + JAVA_TMP_LDPATH=`echo $JAVA_TMP_LDPATH | $SED -e "s/${PATH_SEPARATOR}/ /g"` for dir in $JAVA_TMP_LDPATH; do if test -f "$dir/$jvmlib"; then JAVA_LDPATH=$dir @@ -2581,7 +2581,7 @@ esac ## Verify jni.h include file exists. - JNI_PATH=`echo $JAVA_CPPFLAGS | sed -e 's/-I//g'` + JNI_PATH=`echo $JAVA_CPPFLAGS | $SED -e 's/-I//g'` have_jni=no for dir in $JNI_PATH; do if test -f "${dir}/jni.h"; then have_jni=yes; break; fi
--- a/doc/Makefile.am +++ b/doc/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's doc directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/doxyhtml/Makefile.am +++ b/doc/doxyhtml/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's doc/doxyhtml directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/icons/Makefile.am +++ b/doc/icons/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's doc/icons directory # -# Copyright (C) 2012 John W. Eaton +# Copyright (C) 2012-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/interpreter/Makefile.am +++ b/doc/interpreter/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's doc/interpreter directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/interpreter/arith.txi +++ b/doc/interpreter/arith.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/audio.txi +++ b/doc/interpreter/audio.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 Kurt Hornik +@c Copyright (C) 1996-2013 Kurt Hornik @c @c This file is part of Octave. @c
--- a/doc/interpreter/basics.txi +++ b/doc/interpreter/basics.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/bugs.txi +++ b/doc/interpreter/bugs.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/container.txi +++ b/doc/interpreter/container.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/contrib.txi +++ b/doc/interpreter/contrib.txi @@ -1,5 +1,5 @@ @c Copyright (C) 2012 John W. Eaton -@c Copyright (C) 2008-2012 Jaroslav Hajek +@c Copyright (C) 2008-2013 Jaroslav Hajek @c @c This file is part of Octave. @c @@ -36,13 +36,14 @@ @node How to Contribute @section How to Contribute -The mailing list for Octave development discussion and sending -contributions is @email{maintainers@@octave.org}. This concerns the -development of Octave core, i.e., code that goes to Octave directly. -You may consider developing and publishing a package instead; a great -place for this is the allied Octave-Forge project -(@url{http://octave.sourceforge.net}). Note that the Octave core project is -inherently more conservative and follows narrower rules. +The mailing list for Octave development discussion is +@email{maintainers@@octave.org}. Patches should be submitted to +@url{https://savannah.gnu.org/patch/?func=additem&group=octave, Octave's patch tracker}. +This concerns the development of Octave core, i.e., code that goes to Octave +directly. You may consider developing and publishing a package instead; +a great place for this is the allied Octave-Forge project +(@url{http://octave.sourceforge.net}). Note that the Octave core +project is inherently more conservative and follows narrower rules. @node Building the Development Sources @section Building the Development Sources @@ -197,7 +198,7 @@ comment header (use appropriate year, name and comment marks): @example -## Copyright (C) 1996-2012 John W. Eaton <jwe@@octave.org> +## Copyright (C) 1996-2013 John W. Eaton <jwe@@octave.org> ## ## This file is part of Octave. ##
--- a/doc/interpreter/contributors.in +++ b/doc/interpreter/contributors.in @@ -151,6 +151,7 @@ Dirk Laurie Maurice LeBrun Friedrich Leisch +Thorsten Liebig Jyh-miin Lin Timo Lindfors Benjamin Lindner
--- a/doc/interpreter/cp-idx.txi +++ b/doc/interpreter/cp-idx.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/data.txi +++ b/doc/interpreter/data.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/debug.txi +++ b/doc/interpreter/debug.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/diagperm.txi +++ b/doc/interpreter/diagperm.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2009-2012 Jaroslav Hajek +@c Copyright (C) 2009-2013 Jaroslav Hajek @c @c This file is part of Octave. @c
--- a/doc/interpreter/diffeq.txi +++ b/doc/interpreter/diffeq.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/emacs.txi +++ b/doc/interpreter/emacs.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 Kurt Hornik +@c Copyright (C) 1996-2013 Kurt Hornik @c @c This file is part of Octave. @c
--- a/doc/interpreter/errors.txi +++ b/doc/interpreter/errors.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/eval.txi +++ b/doc/interpreter/eval.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/expr.txi +++ b/doc/interpreter/expr.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/external.txi +++ b/doc/interpreter/external.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2007-2012 John W. Eaton and David Bateman +@c Copyright (C) 2007-2013 John W. Eaton and David Bateman @c Copyright (C) 2007 Paul Thomas and Christoph Spiel @c @c This file is part of Octave.
--- a/doc/interpreter/fn-idx.txi +++ b/doc/interpreter/fn-idx.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/func.txi +++ b/doc/interpreter/func.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/geometry.txi +++ b/doc/interpreter/geometry.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2007-2012 John W. Eaton and David Bateman +@c Copyright (C) 2007-2013 John W. Eaton and David Bateman @c @c This file is part of Octave. @c
--- a/doc/interpreter/geometryimages.m +++ b/doc/interpreter/geometryimages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/doc/interpreter/grammar.txi +++ b/doc/interpreter/grammar.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/gui.txi +++ b/doc/interpreter/gui.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2012 Rik Wehbring +@c Copyright (C) 2012-2013 Rik Wehbring @c @c This file is part of Octave. @c
--- a/doc/interpreter/image.txi +++ b/doc/interpreter/image.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/install.txi +++ b/doc/interpreter/install.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/interp.txi +++ b/doc/interpreter/interp.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2007-2012 John W. Eaton +@c Copyright (C) 2007-2013 John W. Eaton @c @c This file is part of Octave. @c @@ -82,12 +82,6 @@ @end float @end ifnotinfo -A simplified version of @code{interp1} that performs only linear -interpolation is available in @code{interp1q}. This argument is slightly -faster than @code{interp1} as to performs little error checking. - -@DOCSTRING(interp1q) - Fourier interpolation, is a resampling technique where a signal is converted to the frequency domain, padded with zeros and then reconverted to the time domain.
--- a/doc/interpreter/interpimages.m +++ b/doc/interpreter/interpimages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/doc/interpreter/intro.txi +++ b/doc/interpreter/intro.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/io.txi +++ b/doc/interpreter/io.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/java.txi +++ b/doc/interpreter/java.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2010-2012 Martin Hepperle +@c Copyright (C) 2010-2013 Martin Hepperle @c @c This file is part of Octave. @c
--- a/doc/interpreter/linalg.txi +++ b/doc/interpreter/linalg.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/macros.texi +++ b/doc/interpreter/macros.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 2012 John W. Eaton +@c Copyright (C) 2012-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/matrix.txi +++ b/doc/interpreter/matrix.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/mk_doc_cache.m +++ b/doc/interpreter/mk_doc_cache.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 John W. Eaton +## Copyright (C) 2009-2013 John W. Eaton ## ## 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
--- a/doc/interpreter/mkoctfile.1 +++ b/doc/interpreter/mkoctfile.1 @@ -1,4 +1,4 @@ -.\" Copyright (C) 2000-2012 Dirk Eddelbuettel +.\" Copyright (C) 2000-2013 Dirk Eddelbuettel .\" .\" This file is part of Octave. .\"
--- a/doc/interpreter/nonlin.txi +++ b/doc/interpreter/nonlin.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/numbers.txi +++ b/doc/interpreter/numbers.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/obsolete.txi +++ b/doc/interpreter/obsolete.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2010-2012 John W. Eaton +@c Copyright (C) 2010-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/octave-config.1 +++ b/doc/interpreter/octave-config.1 @@ -1,4 +1,4 @@ -.\" Copyright (C) 2003-2012 Dirk Eddelbuettel +.\" Copyright (C) 2003-2013 Dirk Eddelbuettel .\" .\" This file is part of Octave. .\"
--- a/doc/interpreter/octave.1 +++ b/doc/interpreter/octave.1 @@ -1,4 +1,4 @@ -.\" Copyright (C) 1996-2012 John W. Eaton +.\" Copyright (C) 1996-2013 John W. Eaton .\" .\" This file is part of Octave. .\"
--- a/doc/interpreter/octave.texi +++ b/doc/interpreter/octave.texi @@ -1,4 +1,4 @@ -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. % @@ -63,8 +63,7 @@ @ifnottex -Copyright @copyright{} 1996, 1997, 1999, 2000, 2001, 2002, 2005, 2006, -2007, 2011 John W. Eaton. +Copyright @copyright{} 1996-2013 John W. Eaton. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice
--- a/doc/interpreter/oop.txi +++ b/doc/interpreter/oop.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2008-2012 David Bateman +@c Copyright (C) 2008-2013 David Bateman @c Copyright (C) 2009 VZLU Prague @c @c This file is part of Octave.
--- a/doc/interpreter/op-idx.txi +++ b/doc/interpreter/op-idx.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/optim.txi +++ b/doc/interpreter/optim.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/package.txi +++ b/doc/interpreter/package.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2007-2012 Søren Hauberg +@c Copyright (C) 2007-2013 Søren Hauberg @c @c This file is part of Octave. @c
--- a/doc/interpreter/plot.txi +++ b/doc/interpreter/plot.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/plotimages.m +++ b/doc/interpreter/plotimages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton and David Bateman +## Copyright (C) 2007-2013 John W. Eaton and David Bateman ## ## This file is part of Octave. ##
--- a/doc/interpreter/poly.txi +++ b/doc/interpreter/poly.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/preface.txi +++ b/doc/interpreter/preface.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/quad.txi +++ b/doc/interpreter/quad.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/set.txi +++ b/doc/interpreter/set.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/signal.txi +++ b/doc/interpreter/signal.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/sparse.txi +++ b/doc/interpreter/sparse.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2004-2012 David Bateman +@c Copyright (C) 2004-2013 David Bateman @c @c This file is part of Octave. @c
--- a/doc/interpreter/sparseimages.m +++ b/doc/interpreter/sparseimages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/doc/interpreter/splineimages.m +++ b/doc/interpreter/splineimages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Ben Abbott, Jonas Lundgren +## Copyright (C) 2012-2013 Ben Abbott, Jonas Lundgren ## ## This file is part of Octave. ##
--- a/doc/interpreter/stats.txi +++ b/doc/interpreter/stats.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/stmt.txi +++ b/doc/interpreter/stmt.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/strings.txi +++ b/doc/interpreter/strings.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/system.txi +++ b/doc/interpreter/system.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/testfun.txi +++ b/doc/interpreter/testfun.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2005-2012 David Bateman +@c Copyright (C) 2005-2013 David Bateman @c Copyright (C) 2002-2005 Paul Kienzle @c @c This file is part of Octave.
--- a/doc/interpreter/tips.txi +++ b/doc/interpreter/tips.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/var.txi +++ b/doc/interpreter/var.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/interpreter/vectorize.txi +++ b/doc/interpreter/vectorize.txi @@ -1,4 +1,4 @@ -@c Copyright (C) 2012 Jordi Gutiérrez Hermoso +@c Copyright (C) 2012-2013 Jordi Gutiérrez Hermoso @c @c This file is part of Octave. @c
--- a/doc/liboctave/Makefile.am +++ b/doc/liboctave/Makefile.am @@ -1,7 +1,6 @@ # Makefile for Octave's doc/liboctave directory # -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -# 2005, 2006, 2007 John W. Eaton +# Copyright (C) 1996-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/liboctave/array.texi +++ b/doc/liboctave/array.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/bugs.texi +++ b/doc/liboctave/bugs.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/cp-idx.texi +++ b/doc/liboctave/cp-idx.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/dae.texi +++ b/doc/liboctave/dae.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/diffeq.texi +++ b/doc/liboctave/diffeq.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/error.texi +++ b/doc/liboctave/error.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/factor.texi +++ b/doc/liboctave/factor.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/fn-idx.texi +++ b/doc/liboctave/fn-idx.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/gpl.texi +++ b/doc/liboctave/gpl.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/install.texi +++ b/doc/liboctave/install.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/intro.texi +++ b/doc/liboctave/intro.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/liboctave.texi +++ b/doc/liboctave/liboctave.texi @@ -1,4 +1,4 @@ -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. % @@ -56,7 +56,7 @@ @ifnottex -Copyright (C) 1996, 1997 John W. Eaton. +Copyright (C) 1996-2013 John W. Eaton. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice
--- a/doc/liboctave/matvec.texi +++ b/doc/liboctave/matvec.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/nleqn.texi +++ b/doc/liboctave/nleqn.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/nlfunc.texi +++ b/doc/liboctave/nlfunc.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1997-2012 John W. Eaton +@c Copyright (C) 1997-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/ode.texi +++ b/doc/liboctave/ode.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/optim.texi +++ b/doc/liboctave/optim.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/preface.texi +++ b/doc/liboctave/preface.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/quad.texi +++ b/doc/liboctave/quad.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/liboctave/range.texi +++ b/doc/liboctave/range.texi @@ -1,4 +1,4 @@ -@c Copyright (C) 1996-2012 John W. Eaton +@c Copyright (C) 1996-2013 John W. Eaton @c @c This file is part of Octave. @c
--- a/doc/refcard/Makefile.am +++ b/doc/refcard/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's doc/refcard directory # -# Copyright (C) 1996-2012 John W. Eaton +# Copyright (C) 1996-2013 John W. Eaton # # This file is part of Octave. #
--- a/doc/refcard/refcard-a4.tex +++ b/doc/refcard/refcard-a4.tex @@ -2,7 +2,7 @@ % % Make a reference card that will fit on A4 paper. % -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. %
--- a/doc/refcard/refcard-legal.tex +++ b/doc/refcard/refcard-legal.tex @@ -2,7 +2,7 @@ % % Make a reference card that will fit on US legal paper. % -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. %
--- a/doc/refcard/refcard-letter.tex +++ b/doc/refcard/refcard-letter.tex @@ -3,7 +3,7 @@ % Make a reference card that will fit on US letter paper % (8-1/2 by 11 inches). % -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. %
--- a/doc/refcard/refcard.tex +++ b/doc/refcard/refcard.tex @@ -2,7 +2,7 @@ % % This file is TeX source for a reference card describing Octave. % -% Copyright (C) 1996-2012 John W. Eaton +% Copyright (C) 1996-2013 John W. Eaton % % This file is part of Octave. %
--- a/etc/HACKING +++ b/etc/HACKING @@ -333,7 +333,7 @@ ################################################################################ -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/examples/Makefile.am +++ b/examples/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's examples directory # -# Copyright (C) 1996-2012 John W. Eaton +# Copyright (C) 1996-2013 John W. Eaton # # This file is part of Octave. #
--- a/libgui/Makefile.am +++ b/libgui/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's libgui directory # -# Copyright (C) 2012 John W. Eaton +# Copyright (C) 2012-2013 John W. Eaton # # This file is part of Octave. #
--- a/libgui/languages/fr_FR.ts +++ b/libgui/languages/fr_FR.ts @@ -960,7 +960,7 @@ <message> <location line="+739"/> <source>Clear Clipboard</source> - <translation type="unfinished"></translation> + <translation>Effacer le presse-papiers</translation> </message> <message> <location line="+5"/> @@ -1030,22 +1030,22 @@ <message> <location line="+77"/> <source>Octave Packages</source> - <translation type="unfinished"></translation> + <translation>Paquets d'Octave</translation> </message> <message> <location line="+3"/> <source>Share Code</source> - <translation type="unfinished"></translation> + <translation>Partager Code</translation> </message> <message> <location line="+3"/> <source>Contribute to Octave</source> - <translation type="unfinished"></translation> + <translation>Contribuer à Octave</translation> </message> <message> <location line="+3"/> <source>Octave Developer Resources</source> - <translation type="unfinished"></translation> + <translation>Ressources développeurs d'Octave</translation> </message> <message> <location line="+32"/> @@ -1580,12 +1580,12 @@ <message> <location line="+20"/> <source>You seem to be using the Octave graphical interface for the first time on this computer. Click 'Finish' to write a configuration file and launch Octave GUI. </source> - <translation type="unfinished"></translation> + <translation>Il semble que vous exécutez l'interface graphique d'Octave pour la première fois sur cet ordinateur. Cliquez sur 'Fin' pour écrire un fichier de configuration et lancez l'interface graphique d'Octave.</translation> </message> <message> <location line="+10"/> <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source> - <translation type="unfinished"></translation> + <translation>Le fichier de configuration est stockée dans __% 1__. Si ce fichier existe, vous ne verrez pas cette boîte de dialogue lorsque d'Octave recommence.</translation> </message> <message> <location line="+10"/> @@ -1596,7 +1596,13 @@ <li>open the documentation browser of Octave GUI with the help menu.</li> </ul> </body></html></source> - <translation type="unfinished"></translation> + <translation><html><head/><body><p>Pour plus d'information sur d'Octave,lt;/p> +<ul> +<li>visiter <a href="http://octave.org"><span style=" text-decoration: underline; color:#0000ff;">http://octave.org</span></a>,</li> +<li> obtenir le documentation en ligne comme <a href="http://www.gnu.org/software/octave/doc/interpreter/index.html"><span style=" text-decoration: underline; color:#0000ff;">html</span></a>- or <a href="http://www.gnu.org/software/octave/octave.pdf"><span style=" text-decoration: underline; color:#0000ff;">pdf</span></a>-document, ou</li> +<li>ouvrir le navigateur de documentation de l'interface graphique d'Octave avec le menu d'aide.</li> +</ul> +</body></html></translation> </message> <message> <location line="-27"/>
--- a/libgui/qterminal/libqterminal/QTerminal.cc +++ b/libgui/qterminal/libqterminal/QTerminal.cc @@ -1,7 +1,7 @@ /* -Copyright (C) 2012 Michael Goffioul. -Copyright (C) 2012 Jacob Dawid. +Copyright (C) 2012-2013 Michael Goffioul. +Copyright (C) 2012-2013 Jacob Dawid. This file is part of QTerminal.
--- a/libgui/qterminal/libqterminal/QTerminal.h +++ b/libgui/qterminal/libqterminal/QTerminal.h @@ -1,7 +1,7 @@ /* -Copyright (C) 2012 Michael Goffioul. -Copyright (C) 2012 Jacob Dawid. +Copyright (C) 2012-2013 Michael Goffioul. +Copyright (C) 2012-2013 Jacob Dawid. This file is part of QTerminal.
--- a/libgui/qterminal/libqterminal/unix/BlockArray.cpp +++ b/libgui/qterminal/libqterminal/unix/BlockArray.cpp @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2000 by Stephan Kulow <coolo@kde.org> + Copyright (C) 2000, 2013 by Stephan Kulow <coolo@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/BlockArray.h +++ b/libgui/qterminal/libqterminal/unix/BlockArray.h @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2000 by Stephan Kulow <coolo@kde.org> + Copyright (C) 2000, 2013 by Stephan Kulow <coolo@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Character.h +++ b/libgui/qterminal/libqterminal/unix/Character.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, KDE's terminal. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/CharacterColor.h +++ b/libgui/qterminal/libqterminal/unix/CharacterColor.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, KDE's terminal. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Emulation.cpp +++ b/libgui/qterminal/libqterminal/unix/Emulation.cpp @@ -1,9 +1,9 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2007 Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> - Copyright (C) 1996 by Matthias Ettrich <ettrich@kde.org> + Copyright (C) 1996, 2013 by Matthias Ettrich <ettrich@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Emulation.h +++ b/libgui/qterminal/libqterminal/unix/Emulation.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Filter.cpp +++ b/libgui/qterminal/libqterminal/unix/Filter.cpp @@ -1,5 +1,5 @@ /* - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Filter.h +++ b/libgui/qterminal/libqterminal/unix/Filter.h @@ -1,5 +1,5 @@ /* - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/History.cpp +++ b/libgui/qterminal/libqterminal/unix/History.cpp @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> + Copyright (C) 1997-1998, 2013 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/History.h +++ b/libgui/qterminal/libqterminal/unix/History.h @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> + Copyright (C) 1997-1998, 2013 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/KeyboardTranslator.cpp +++ b/libgui/qterminal/libqterminal/unix/KeyboardTranslator.cpp @@ -1,7 +1,7 @@ /* This source file was part of Konsole, a terminal emulator. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/KeyboardTranslator.h +++ b/libgui/qterminal/libqterminal/unix/KeyboardTranslator.h @@ -1,7 +1,7 @@ /* This source file is part of Konsole, a terminal emulator. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.cpp +++ b/libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.cpp @@ -1,5 +1,5 @@ /* Copyright (C) 2008 e_k (e_k@users.sourceforge.net) - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
--- a/libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.h +++ b/libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.h @@ -1,5 +1,5 @@ /* Copyright (C) 2008 e_k (e_k@users.sourceforge.net) - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
--- a/libgui/qterminal/libqterminal/unix/Screen.cpp +++ b/libgui/qterminal/libqterminal/unix/Screen.cpp @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> + Copyright (C) 1997-1998, 2013 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Screen.h +++ b/libgui/qterminal/libqterminal/unix/Screen.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, KDE's terminal. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/ScreenWindow.cpp +++ b/libgui/qterminal/libqterminal/unix/ScreenWindow.cpp @@ -1,5 +1,5 @@ /* - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/ScreenWindow.h +++ b/libgui/qterminal/libqterminal/unix/ScreenWindow.h @@ -1,5 +1,5 @@ /* - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/SelfListener.cpp +++ b/libgui/qterminal/libqterminal/unix/SelfListener.cpp @@ -1,5 +1,5 @@ /* qterminal - a terminal widget for Qt - * Copyright (C) 2011 Jacob Dawid (jacob.dawid@googlemail.com) + * Copyright (C) 2011, 2013 Jacob Dawid (jacob.dawid@googlemail.com) * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as
--- a/libgui/qterminal/libqterminal/unix/SelfListener.h +++ b/libgui/qterminal/libqterminal/unix/SelfListener.h @@ -1,5 +1,5 @@ /* qterminal - a terminal widget for Qt - * Copyright (C) 2011 Jacob Dawid (jacob.dawid@googlemail.com) + * Copyright (C) 2011, 2013 Jacob Dawid (jacob.dawid@googlemail.com) * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as
--- a/libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.cpp +++ b/libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.cpp @@ -1,7 +1,7 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2006 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2006, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.h +++ b/libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2006-7 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2006-2007, 2013 by Robert Knight <robertknight@gmail.com> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/TerminalModel.cpp +++ b/libgui/qterminal/libqterminal/unix/TerminalModel.cpp @@ -5,7 +5,7 @@ Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008 - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> 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
--- a/libgui/qterminal/libqterminal/unix/TerminalModel.h +++ b/libgui/qterminal/libqterminal/unix/TerminalModel.h @@ -5,7 +5,7 @@ Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008 - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> 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
--- a/libgui/qterminal/libqterminal/unix/TerminalView.cpp +++ b/libgui/qterminal/libqterminal/unix/TerminalView.cpp @@ -5,7 +5,7 @@ Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008 - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> 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
--- a/libgui/qterminal/libqterminal/unix/TerminalView.h +++ b/libgui/qterminal/libqterminal/unix/TerminalView.h @@ -3,7 +3,7 @@ Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008 - Copyright (C) 2012 Jacob Dawid <jacob.dawid@googlemail.com> + Copyright (C) 2012-2013 Jacob Dawid <jacob.dawid@googlemail.com> 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
--- a/libgui/qterminal/libqterminal/unix/Vt102Emulation.cpp +++ b/libgui/qterminal/libqterminal/unix/Vt102Emulation.cpp @@ -1,6 +1,6 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> + Copyright (C) 1997-1998, 2013 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/Vt102Emulation.h +++ b/libgui/qterminal/libqterminal/unix/Vt102Emulation.h @@ -1,7 +1,7 @@ /* This file is part of Konsole, an X terminal. - Copyright (C) 2007 by Robert Knight <robertknight@gmail.com> + Copyright (C) 2007, 2013 by Robert Knight <robertknight@gmail.com> Copyright (C) 1997,1998 by Lars Doelle <lars.doelle@on-line.de> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/kpty.cpp +++ b/libgui/qterminal/libqterminal/unix/kpty.cpp @@ -1,7 +1,7 @@ /* This file is part of the KDE libraries - Copyright (C) 2002 Waldo Bastian <bastian@kde.org> + Copyright (C) 2002, 2013 Waldo Bastian <bastian@kde.org> Copyright (C) 2002-2003,2007 Oswald Buddenhagen <ossi@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/kpty.h +++ b/libgui/qterminal/libqterminal/unix/kpty.h @@ -1,6 +1,6 @@ /* This file is part of the KDE libraries - Copyright (C) 2003,2007 Oswald Buddenhagen <ossi@kde.org> + Copyright (C) 2003, 2007, 2013 Oswald Buddenhagen <ossi@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/unix/kpty_p.h +++ b/libgui/qterminal/libqterminal/unix/kpty_p.h @@ -1,6 +1,6 @@ /* This file is part of the KDE libraries - Copyright (C) 2003,2007 Oswald Buddenhagen <ossi@kde.org> + Copyright (C) 2003, 2007, 2013 Oswald Buddenhagen <ossi@kde.org> Rewritten for QT4 by e_k <e_k at users.sourceforge.net>, Copyright (C)2008
--- a/libgui/qterminal/libqterminal/win32/QTerminalColors.cpp +++ b/libgui/qterminal/libqterminal/win32/QTerminalColors.cpp @@ -1,6 +1,6 @@ /* -Copyright (C) 2011 Michael Goffioul. +Copyright (C) 2011, 2013 Michael Goffioul. This file is part of QConsole.
--- a/libgui/qterminal/libqterminal/win32/QTerminalColors.h +++ b/libgui/qterminal/libqterminal/win32/QTerminalColors.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011 Michael Goffioul. +Copyright (C) 2011, 2013 Michael Goffioul. This file is part of QConsole.
--- a/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp +++ b/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp @@ -1,6 +1,6 @@ /* -Copyright (C) 2011 Michael Goffioul. +Copyright (C) 2011, 2013 Michael Goffioul. This file is part of QConsole.
--- a/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.h +++ b/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011 Michael Goffioul. +Copyright (C) 2011, 2013 Michael Goffioul. This file is part of QConsole.
--- a/libgui/qterminal/qterminal/main.cpp +++ b/libgui/qterminal/qterminal/main.cpp @@ -1,4 +1,4 @@ -/* Copyright (C) 2008 e_k (e_k@users.sourceforge.net) +/* Copyright (C) 2008, 2013 e_k (e_k@users.sourceforge.net) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
--- a/libgui/src/documentation-dock-widget.cc +++ b/libgui/src/documentation-dock-widget.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/documentation-dock-widget.h +++ b/libgui/src/documentation-dock-widget.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/files-dock-widget.cc +++ b/libgui/src/files-dock-widget.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/files-dock-widget.h +++ b/libgui/src/files-dock-widget.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/history-dock-widget.cc +++ b/libgui/src/history-dock-widget.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/history-dock-widget.h +++ b/libgui/src/history-dock-widget.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
new file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..908f07e6251f0cbc93b27306598dc55368754f7d GIT binary patch literal 471 zc$@*(0Vw{7P)<h;3K|Lk000e1NJLTq000aC000aK1^@s6R&`wG00001b5ch_0Itp) z=>Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_0004MNkl<ZD9?S* zy)Q#y6bA6;y!UPE<C6ALv?vK_YB7sZgoH>;!XkDti-c7qL?TvZk@^RGCCnlQY7x{| zs0!M&uG{v$$3oK^;u+rIocDK<hftdF7<zm3s*||slJ#B)Lc!QOPRF(ei(jMzc%)DQ z({_P}BtdD+N1C^63V`)Ds8LcewX@<*FoT#)AzkiLARK@I0Wd2rnK<(c@XyNt5g^2W zV7?<KBw1j515#c2l;yY?o=dsk(wWImB*V68Ymt!Af0@mOJV66ZIz2taUk|K2Yi(No zEW+l3)CY2T`>;Gw*3i8C`C;KEV}UYYKp|1#ZIIpmQJ+sC@RHeIxjnawrRrAi`zkfs zeotFWsVropL1a{OZMd9*7s-*`u|Txg!M}2g=c%S0%gpswxye=l0R&wqYPotH+8ql- z``7QB?fpw}06^>F)kxiJtPomDaQ9|%0sw|L9`SFCnbU#r^7ZgvyD#EMjx45THmd*t N002ovPDHLkV1gZm&1C=p
new file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..547352555623c9c740f95c4e1224e7a8f01af2a9 GIT binary patch literal 462 zc$@*w0WtoGP)<h;3K|Lk000e1NJLTq000aC000aK1^@s6R&`wG00001b5ch_0Itp) z=>Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_0004DNkl<ZD9??O zJ4ixt6vn^vzc<C8Cs+{l28qVnTBU+$5Tb?}a)?$58bWF>dO$Q3Mbr|OOG9fzLs&F9 z2o;2uJ*<3SXri}!|EJ+*LtyorKF)*lox=fskk~j?#%2Q+lt2_k|Mooqz}?h2aYeQn z{D#XH0|4~;V#6I58drNm{!+D66a)U(!MnEFqjVC`1K0aQPvP<NvMQ^TW?t$anvu>I z2mpEx;_erlZ6}*$Ru!W9T;@4hK$w{YGXQ{@C}a>#lVc^~%2$>j=JN&s2ACNTM1suu zMGr(lFq~>4p4HS;&d?002!JIMm;jc=Vgd;Q2@;A*W~gN`JR%j^%V?|!LDZ}vTGOhY zNS&=;y(EZlgv7%4(hbWIr`2XT&VukBjBVvMyC>njw17>gND3VV-8_MP=@tM`xAxH2 zxSQk(PjDT7VPA~`0NUqMqjt~Z6#h%sS)3emZzW&j6ADC*4o@LL$N&HU07*qoM6N<$ Eg8TWn$N&HU
index 5587ddee1c2a3b144104b36b6165d7f571ae4136..4b533ed0b9f4717a6cf3096ddfa6191f03ed4702 GIT binary patch literal 475 zc$@*-0VMv3P)<h;3K|Lk000e1NJLTq000aC000aK1^@s6R&`wG00001b5ch_0Itp) z=>Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_0004QNkl<ZD9?qF zPbg(^9K}E1-@Wd8cqF=v1^E*(EU>big_$X(C^L!@HDfDDO_SM9v#^l`DP^Z#DK*&H zO{SExAa?$Y@ps0*(Y)Ss@9%5DO5xPmoX$CmbKntl4KI6tCVn^%b@NzYOVU5}6u<lc z@OJ7K&m!mZdc0~SrLSiW-vPAF90K6hv@hV~L?gyc^8k#2#+%FJY?_4s&J70@e!Mw; z(lYlxe;z;zCyufm)e%vx1w;fy#O6gPJI=^@5rnF-m`Fh)(YxH?PfNl0Q7*y~s&xS9 z9n~se^}d2=)FFEHzs(JfF9-uQYW3cvpdbcB!HB8_!7<@=Xj5)|N&1a7e77o_22??e zE6MZi;MJ~2v9+q%o&+Y;uAQN>MWK5GBCa9Nx(Fb^*XmS8-|A#$UE#+VN-~jZIv6Zn zdUDpR{<ZO<>A#vkw*LmeAK7{O2fzRKK>4?`P5^&&@A=~@zg&6^KTqYMehdDah|k~- RI8y)s002ovPDHLkV1gL+(pdli
new file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..3dde167dbaa609970883c562cb2d25342b1e8b33 GIT binary patch literal 477 zc$@*<0V4j1P)<h;3K|Lk000e1NJLTq000aC000aK1^@s6R&`wG00001b5ch_0Itp) z=>Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_0004SNkl<ZD9?3~ zy)Q#y6vm(PzPGIsRgEf@V35Xav^LSCF?4Fu%_0$tMI!tM;v*4}bRZZS!9YkPVqp+w zgu!=_mWxm=_qO-Guc4Z>(LU4pcz(lq4p2s}(bJ%B`ZiQ<#|nje@(uvdK5-LPINQ=3 z)f?TbY99cERuZLvdnOKbxE<c9Tfg8G%bJ2~nu%w-eKEN9(z_XHMquFq06+z@arUvN zhSTmxN|*GRfzsk4ayev!&raS;HM|#TUIzf`I#TKLfJd@TGNyg&5NRFedq!GYoUk-H z3C=3i)(dpJrU#bd=krQ>$7)HX(jG0LM$I3Scec6$*MwGp!Snr<d^*41Pv#`A;W^Kc zWc*(W{@BB^W8_SF<`S|knm8Qn-?o-b2>>v5VHJk7f%4Z$DcP~5&Q=+ac^^Q303bw# zKNJ7~5HTv6lu9Y--k8BiUJ;`c5D5vK2_u)S4Csbn0^?kvX-L2%GRzN6FSh&wyVjBP Td@2`_00000NkvXXu0mjfkmtxn
index 5e761587198608815a4625f26923e4c2c59d5ed1..33573170bbd8e08397055c87d0e437def53346e9 GIT binary patch literal 390 zc$@)-0eSw3P)<h;3K|Lk000e1NJLTq000XB000XJ1^@s6sjPP<00001b5ch_0Itp) z=>Px#24YJ`L;#8aasU8TV6Soj000SaNLh0L01FcU01FcV0GgZ_0003QNkl<Z7}I@_ z%}PRH7=)kq^N^;ZB7qei3nDDq1QAH!s$JkF=svuVx|AX!Xc;6%8y9W*0W--X3X-Il zofGQYLRv)XtcKxX7zQRtE9r<<)|d5V%>wv*&H`X2!I*Fv3D+@^Gk{RKK<_C#1;+I8 zx}a`Ot2?Iv;f(^K)!k!s5CZ}Lh-smtJYJX4(8UB}Ac0F+E#*XCxAgz$Z}8l)RYB&X zAaf<rM_ZXGL!%=sB|=!Wru;2cB^p<vegUy)w1x}@%2%gzU^U;(iO;Cd82kXezOTK# z;O3D)XbghAD2KA?TruV6^ZJdgZ`UauJtX&MuDrik`EZI!)v|r`n>ob{)+9I)*HqAt k<!Pb~HJsZF$-O&%0Qq2U<(-`g2><{907*qoM6N<$f-q#A82|tP
index afa477274e2bb7c27cb67bad87551e5910880b71..35f0d82a780da790e185a88d8a17fc5121cf1f8d GIT binary patch literal 428 zc$@*O0aN~oP)<h;3K|Lk000e1NJLTq000XB000XJ1^@s6sjPP<00001b5ch_0Itp) z=>Px#24YJ`L;#8aasU8TV6Soj000SaNLh0L01FZT01FZU(%pXi0003$Nkl<Z7}H(R zv1(Is9L4d^Klf&6Qf(7x2vX2NsZ-qQBeWnsK<93KkWg@Q5L{i{1qTa0L3M}~MQ{n+ zA&@rBZ78&tBtM51(SFx+IETaG9~$(VOq)cLX@kDIJY=uS;BBjQRcvi7&NnueLl&>N zT4m5>@2|Pb;A6WT=Q}$w+ux62uebb4d?DTu4;Vn!pnuqEz1-d2&S#@h6elOC9F0;{ zRT{)9sbKvVjauU1MW<8GH#eQ0ou$j7h?vdf#5HMwr_>V%HLNu!lQcO#j;bu>q=X;^ zGGc{<wH)Qeczo}4Jg&`=6LBL(BF#ycEOC+5x!>XWBk~5ZyiLwXOJYbmqWaD21gi|* z(0h!<ZT0+Sm``}mw~A*Ov?)LHq+q?IR*-%YM^qp9vBKds-~T%&qn|U)iJWP6=fOWw W^LuA2Z%cy!0000<MNUMnLSTZI0ku>B
--- a/libgui/src/m-editor/file-editor-interface.h +++ b/libgui/src/m-editor/file-editor-interface.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/m-editor/file-editor-tab.cc +++ b/libgui/src/m-editor/file-editor-tab.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -69,6 +69,7 @@ directory.append ("/"); _file_name = directory; + _file_system_watcher.setObjectName ("_qt_autotest_force_engine_poller"); _edit_area = new octave_qscintilla (this); // Connect signal for command execution to a slot of this tab which in turn @@ -89,7 +90,7 @@ _edit_area->markerDefine (QsciScintilla::RightTriangle, bookmark); _edit_area->markerDefine (QPixmap (":/actions/icons/redled.png"), breakpoint); - _edit_area->markerDefine (QPixmap (":/actions/icons/arrow_right.png"), + _edit_area->markerDefine (QPixmap (":/actions/icons/bookmark.png"), debugger_position); connect (_edit_area, SIGNAL (marginClicked (int, int, @@ -189,9 +190,10 @@ update_lexer (); // update the file editor with current editing directory - emit editor_state_changed (_copy_available, QDir::cleanPath (_file_name)); + emit editor_state_changed (_copy_available, _file_name); // add the new file to the mru list - emit mru_add_file (QDir::cleanPath (_file_name)); + + emit mru_add_file (_file_name); } void @@ -931,7 +933,14 @@ QString file_editor_tab::load_file (const QString& fileName) { - QFile file (fileName); + // get the absolute path + QFileInfo file_info = QFileInfo (fileName); + QString file_to_load; + if (file_info.exists ()) + file_to_load = file_info.canonicalFilePath (); + else + file_to_load = fileName; + QFile file (file_to_load); if (!file.open (QFile::ReadOnly)) return file.errorString (); @@ -941,7 +950,7 @@ QApplication::restoreOverrideCursor (); _copy_available = false; // no selection yet available - set_file_name (fileName); + set_file_name (file_to_load); update_window_title (false); // window title (no modification) _edit_area->setModified (false); // loaded file is not modified yet @@ -967,27 +976,34 @@ save_file_as (remove_on_success); return; } + // get the absolute path (if existing) + QFileInfo file_info = QFileInfo (saveFileName); + QString file_to_save; + if (file_info.exists ()) + file_to_save = file_info.canonicalFilePath (); + else + file_to_save = saveFileName; + QFile file (file_to_save); // stop watching file QStringList trackedFiles = _file_system_watcher.files (); - if (!trackedFiles.isEmpty ()) - _file_system_watcher.removePath (saveFileName); + if (trackedFiles.contains (file_to_save)) + _file_system_watcher.removePath (file_to_save); // open the file for writing - QFile file (saveFileName); if (!file.open (QIODevice::WriteOnly)) { // Unsuccessful, begin watching file again if it was being // watched previously. - if (trackedFiles.contains (saveFileName)) - _file_system_watcher.addPath (saveFileName); + if (trackedFiles.contains (file_to_save)) + _file_system_watcher.addPath (file_to_save); // Create a NonModal message about error. QMessageBox* msgBox = new QMessageBox (QMessageBox::Critical, tr ("Octave Editor"), tr ("Could not open file %1 for write:\n%2."). - arg (saveFileName).arg (file.errorString ()), + arg (file_to_save).arg (file.errorString ()), QMessageBox::Ok, 0); msgBox->setWindowModality (Qt::NonModal); msgBox->setAttribute (Qt::WA_DeleteOnClose); @@ -1000,11 +1016,17 @@ QTextStream out (&file); QApplication::setOverrideCursor (Qt::WaitCursor); out << _edit_area->text (); + out.flush (); QApplication::restoreOverrideCursor (); + file.flush (); file.close (); + // file exists now + file_info = QFileInfo (file); + file_to_save = file_info.canonicalFilePath (); + // save file name after closing file as set_file_name starts watching again - set_file_name (saveFileName); + set_file_name (file_to_save); // make absolute // set the window title to actual file name (not modified) update_window_title (false);
--- a/libgui/src/m-editor/file-editor-tab.h +++ b/libgui/src/m-editor/file-editor-tab.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/m-editor/file-editor.cc +++ b/libgui/src/m-editor/file-editor.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -277,7 +277,8 @@ add_file_editor_tab (fileEditorTab, ""); fileEditorTab->update_window_title (false); // file already loaded, add file to mru list here - handle_mru_add_file (QDir::cleanPath (openFileName)); + QFileInfo file_info = QFileInfo (openFileName); + handle_mru_add_file (file_info.canonicalFilePath ()); if (line > 0) { @@ -294,17 +295,66 @@ else { delete fileEditorTab; - // Create a NonModal message about error. - QMessageBox *msgBox - = new QMessageBox (QMessageBox::Critical, - tr ("Octave Editor"), - tr ("Could not open file %1 for read:\n%2."). - arg (openFileName).arg (result), - QMessageBox::Ok, this); + + if (QFile::exists (openFileName)) + { + // File not readable: create a NonModal message about error. + QMessageBox *msgBox + = new QMessageBox (QMessageBox::Critical, + tr ("Octave Editor"), + tr ("Could not open file\n%1\nfor read: %2."). + arg (openFileName).arg (result), + QMessageBox::Ok, this); - msgBox->setWindowModality (Qt::NonModal); - msgBox->setAttribute (Qt::WA_DeleteOnClose); - msgBox->show (); + msgBox->setWindowModality (Qt::NonModal); + msgBox->setAttribute (Qt::WA_DeleteOnClose); + msgBox->show (); + } + else + { + // File does not exist, should it be crated? + QMessageBox *msgBox; + int answer; + if (settings->value ("editor/create_new_file",false).toBool ()) + { + answer = QMessageBox::Yes; + } + else + { + msgBox = new QMessageBox (QMessageBox::Question, + tr ("Octave Editor"), + tr ("File\n%1\ndoes not exist. " + "Do you want to create it?").arg (openFileName), + QMessageBox::Yes | QMessageBox::No, this); + + msgBox->setAttribute (Qt::WA_DeleteOnClose); + answer = msgBox->exec (); + } + + if (answer == QMessageBox::Yes) + { + // create the file and call the editor again + QFile file (openFileName); + if (!file.open (QIODevice::WriteOnly)) + { + // error opening the file + msgBox = new QMessageBox (QMessageBox::Critical, + tr ("Octave Editor"), + tr ("Could not open file\n%1\nfor write: %2."). + arg (openFileName).arg (file.errorString ()), + QMessageBox::Ok, this); + + msgBox->setWindowModality (Qt::NonModal); + msgBox->setAttribute (Qt::WA_DeleteOnClose); + msgBox->show (); + } + else + { + file.close (); + request_open_file (openFileName); + } + } + } } } @@ -751,6 +801,18 @@ } void +file_editor::request_preferences (bool) +{ + emit request_settings_dialog ("editor"); +} + +void +file_editor::request_styles_preferences (bool) +{ + emit request_settings_dialog ("editor_styles"); +} + +void file_editor::construct (void) { QWidget *editor_widget = new QWidget (this); @@ -940,6 +1002,13 @@ editMenu->addAction (_remove_bookmark_action); editMenu->addSeparator (); editMenu->addAction (_goto_line_action); + editMenu->addSeparator (); + _preferences_action = + editMenu->addAction (QIcon (":/actions/icons/configure.png"), + tr ("&Preferences"), this, SLOT (request_preferences (bool))); + _styles_preferences_action = + editMenu->addAction (QIcon (":/actions/icons/configure.png"), + tr ("&Styles Preferences"), this, SLOT (request_styles_preferences (bool))); _menu_bar->addMenu (editMenu); _debug_menu = new QMenu (tr ("&Debug"), _menu_bar); @@ -981,6 +1050,9 @@ setWidget (editor_widget); // signals + connect (this, SIGNAL (request_settings_dialog (const QString&)), + main_win (), SLOT (process_settings_dialog_request (const QString&))); + connect (main_win (), SIGNAL (new_file_signal (const QString&)), this, SLOT (request_new_file (const QString&)));
--- a/libgui/src/m-editor/file-editor.h +++ b/libgui/src/m-editor/file-editor.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -98,6 +98,7 @@ void fetab_do_breakpoint_marker (bool insert, const QWidget* ID, int line = -1); void fetab_set_focus (const QWidget* ID); + void request_settings_dialog (const QString&); public slots: void focus (void); @@ -173,6 +174,8 @@ void request_open_file (const QString& fileName, int line = -1, bool debug_pointer = false, bool breakpoint_marker = false, bool insert = true); + void request_preferences (bool); + void request_styles_preferences (bool); private: @@ -222,6 +225,9 @@ QAction *_redo_action; QAction *_undo_action; + QAction *_preferences_action; + QAction *_styles_preferences_action; + QTabWidget *_tab_widget; int _marker_breakpoint;
--- a/libgui/src/m-editor/octave-qscintilla.cc +++ b/libgui/src/m-editor/octave-qscintilla.cc @@ -176,8 +176,9 @@ void octave_qscintilla::contextmenu_run (bool) { - QString command = selectedText (); - emit execute_command_in_terminal_signal (command); + QStringList commands = selectedText ().split (QRegExp("[\r\n]"),QString::SkipEmptyParts); + for (int i = 0; i < commands.size (); i++ ) + emit execute_command_in_terminal_signal (commands.at (i)); } #endif
--- a/libgui/src/main-window.cc +++ b/libgui/src/main-window.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -251,7 +251,9 @@ void main_window::display_release_notes (void) { - display_url_in_window (QUrl ("file://" OCTAVE_OCTETCDIR "/NEWS")); + std::string news_file = "file://" + Voct_etc_dir + "/NEWS"; + + display_url_in_window (QUrl (QString::fromStdString (news_file))); } void @@ -304,9 +306,9 @@ } void -main_window::process_settings_dialog_request (void) +main_window::process_settings_dialog_request (const QString& desired_tab) { - settings_dialog *settingsDialog = new settings_dialog (this); + settings_dialog *settingsDialog = new settings_dialog (this, desired_tab); int change_settings = settingsDialog->exec (); if (change_settings == QDialog::Accepted) { @@ -631,7 +633,7 @@ widget->make_widget (false); // no docking, just reparent // restore geometry - QVariant val = settings->value (name); + QVariant val = settings->value ("DockWidgets/" + name); widget->restoreGeometry (val.toByteArray ()); // make widget visible if desired @@ -1478,7 +1480,7 @@ this, SLOT (display_release_notes ())); connect (current_news_action, SIGNAL (triggered ()), - news_window, SLOT (show ())); + news_window, SLOT (focus ())); } void
--- a/libgui/src/main-window.h +++ b/libgui/src/main-window.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -115,7 +115,7 @@ void open_agora_page (void); void open_contribute_page (void); void open_developer_page (void); - void process_settings_dialog_request (void); + void process_settings_dialog_request (const QString& desired_tab = QString ()); void show_about_octave (void); void notice_settings (const QSettings *settings); void prepare_to_exit (void);
--- a/libgui/src/module.mk +++ b/libgui/src/module.mk @@ -6,6 +6,9 @@ octave_gui_ICONS = \ src/icons/arrow_right.png \ + src/icons/arrow_left.png \ + src/icons/arrow_up.png \ + src/icons/arrow_down.png \ src/icons/artsbuilderexecute.png \ src/icons/bookmark.png \ src/icons/bp_next.png \
--- a/libgui/src/news-dock-widget.cc +++ b/libgui/src/news-dock-widget.cc @@ -113,6 +113,15 @@ } void +news_dock_widget::copyClipboard () +{ + if (browser->hasFocus ()) + { + browser->copy (); + } +} + +void news_reader::process (void) { // Run this part in a separate thread so Octave can continue to run
--- a/libgui/src/news-dock-widget.h +++ b/libgui/src/news-dock-widget.h @@ -41,6 +41,9 @@ void display_news (const QString& news); + /* from octave_dock_widget */ + void copyClipboard (); + private: QTextBrowser *browser;
--- a/libgui/src/octave-dock-widget.cc +++ b/libgui/src/octave-dock-widget.cc @@ -38,7 +38,6 @@ { _parent = static_cast<QMainWindow *> (p); // store main window - setFeatures (QDockWidget::DockWidgetMovable); // not floatable or cloasable connect (this, SIGNAL (visibilityChanged (bool)), this, SLOT (handle_visibility_changed (bool))); @@ -46,6 +45,11 @@ connect (p, SIGNAL (settings_changed (const QSettings*)), this, SLOT (notice_settings (const QSettings*))); +#if defined (Q_OS_WIN32) + // windows: add an extra title bar that persists when floating + + setFeatures (QDockWidget::DockWidgetMovable); // not floatable or closeable + // the custom (extra) title bar of the widget _dock_action = new QAction (QIcon (":/actions/icons/widget-undock.png"), "", this); @@ -78,6 +82,18 @@ title_widget->setLayout (h_layout); setTitleBarWidget (title_widget); +#else + + // non windows: qt takes control of floating widgets + setFeatures (QDockWidget::DockWidgetMovable | + QDockWidget::DockWidgetClosable | + QDockWidget::DockWidgetFloatable); // floatable and closeable + + connect (this, SIGNAL (topLevelChanged (bool)), + this, SLOT (change_floating (bool))); + +#endif + // copy & paste handling connect (p, SIGNAL (copyClipboard_signal ()), this, SLOT (copyClipboard ())); connect (p, SIGNAL (pasteClipboard_signal()), this, SLOT (pasteClipboard ())); @@ -94,7 +110,7 @@ settings->beginGroup ("DockWidgets"); if (!parent ()) - { // widget is floating, save actual floating geometry + { // widget is floating (windows), save actual floating geometry floating = true; settings->setValue (name+"_floating_geometry", saveGeometry ()); } @@ -123,10 +139,12 @@ void octave_dock_widget::set_title (const QString& title) { +#if defined (Q_OS_WIN32) QHBoxLayout* h_layout = static_cast<QHBoxLayout *> (titleBarWidget ()->layout ()); QLabel *label = new QLabel (title); h_layout->insertWidget (0,label); +#endif setWindowTitle (title); } @@ -134,6 +152,10 @@ void octave_dock_widget::make_window () { +#if defined (Q_OS_WIN32) + + // windows: the widget has to be reparented (parent = 0) + QSettings *settings = resource_manager::get_settings (); // save the docking area for later redocking @@ -150,12 +172,24 @@ // restore the last geometry when floating restoreGeometry (settings->value ("DockWidgets/" + objectName ()+"_floating_geometry").toByteArray ()); + +#else + + // non windows: Just set the appripriate window flag + setWindowFlags (Qt::Window); + +#endif + } // dock the widget void octave_dock_widget::make_widget (bool dock) { +#if defined (Q_OS_WIN32) + + // windows: Since floating widget has no parent, we have to readd it + QSettings *settings = resource_manager::get_settings (); // save last floating geometry @@ -179,13 +213,24 @@ // adjust the (un)dock icon _dock_action->setIcon (QIcon (":/actions/icons/widget-undock.png")); _dock_action->setToolTip (tr ("Undock widget")); + +#else + + // non windows: just say we are a docked widget again + setWindowFlags (Qt::Widget); + +#endif } // slot for (un)dock action void -octave_dock_widget::change_floating (bool) -{ - if (parent()) +octave_dock_widget::change_floating (bool floating) + { +#if defined (Q_OS_WIN32) + if (parent()) +#else + if (floating) +#endif { make_window (); focus ();
--- a/libgui/src/octave-gui.cc +++ b/libgui/src/octave-gui.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -49,6 +49,29 @@ #include "main-window.h" #include "octave-gui.h" + +// custom message handler for filtering some messages from qt +void message_handler (QtMsgType type, const char *msg) + { + switch (type) { + case QtDebugMsg: + if (strcmp(msg,"QFileSystemWatcher: skipping native engine") > 0) + break; + fprintf(stderr, "Debug: %s\n", msg); + break; + case QtWarningMsg: + fprintf(stderr, "Warning: %s\n", msg); + break; + case QtCriticalMsg: + fprintf(stderr, "Critical: %s\n", msg); + break; + case QtFatalMsg: + fprintf(stderr, "Fatal: %s\n", msg); + abort(); + } + } + + // Dissociate from the controlling terminal, if any. static void @@ -96,6 +119,8 @@ if (fork) dissociate_terminal (); + qInstallMsgHandler(message_handler); + QApplication application (argc, argv); // Set the codec for all strings
--- a/libgui/src/octave-gui.h +++ b/libgui/src/octave-gui.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/libgui/src/octave-main-thread.cc +++ b/libgui/src/octave-main-thread.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/octave-main-thread.h +++ b/libgui/src/octave-main-thread.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/octave-qt-link.cc +++ b/libgui/src/octave-qt-link.cc @@ -1,8 +1,8 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid -Copyright (C) 2011-2012 John P. Swensen +Copyright (C) 2011-2013 Jacob Dawid +Copyright (C) 2011-2013 John P. Swensen This file is part of Octave.
--- a/libgui/src/octave-qt-link.h +++ b/libgui/src/octave-qt-link.h @@ -1,8 +1,8 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid -Copyright (C) 2011-2012 John P. Swensen +Copyright (C) 2011-2013 Jacob Dawid +Copyright (C) 2011-2013 John P. Swensen This file is part of Octave.
--- a/libgui/src/qtinfo/parser.cc +++ b/libgui/src/qtinfo/parser.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2009 P. L. Lucas -Copyright (C) 2012 Jacob Dawid +Copyright (C) 2012-2013 Jacob Dawid This file is part of Octave. @@ -280,7 +280,14 @@ QString type = re.cap (1); QString note = re.cap (3); QString url_link = re.cap (4); - QString link = re.cap (4); + QString link = re.cap (4) + re.cap(5); + QString spaces = QString(""); + QRegExp re_linebreak ("\n([ ]*)([^ ]*)([ ]*)"); + if (re_linebreak.indexIn (link,0) != -1) + { + link.replace (re_linebreak," "+re_linebreak.cap (2)+"\n"); // prevent line breaks in links + spaces = re_linebreak.cap (1); + } if (url_link.isEmpty ()) { @@ -297,13 +304,13 @@ QString href; if (type=="\n*") { - href="\n<img src=':/actions/icons/bookmark.png'/>"; + href="\n<img src=':/actions/icons/bookmark.png' width=10/>"; } else { - href="<img src=':/actions/icons/bookmark.png'/>"; + href="<img src=':/actions/icons/bookmark.png' width=10/>"; } - href += re.cap (2) + "<a href='" + url_link + "'>" + note + ":" + link + re.cap (5) + "</a>"; + href += re.cap(2) + "<a href='" + url_link + "'>" + note + ":" + link + "</a>" + spaces; f = re.matchedLength (); text.replace (i,f,href); i += href.size (); @@ -318,7 +325,7 @@ while ( (i = re.indexIn (text, i)) != -1) { QString t = re.cap (1); - QString bold = "<b>`" + t + "</b>'"; + QString bold = "<font style=\"color:Blue;font-weight:bold\">" + t + "</font>"; f = re.matchedLength (); text.replace (i,f,bold); @@ -333,8 +340,8 @@ text.replace ("<", "<"); text.replace (">", ">"); - text.replace ("\n* Menu:", "\n<b>Menu:</b>"); - text.replace ("*See also:*", "<b>See also:</b>"); + text.replace ("\n* Menu:", "\n<font style=\"text-decoration:underline;font-weight:bold\">Menu:</font>"); + text.replace ("See also:", "<font style=\"color:DarkRed;font-style:italic;font-weight:bold\">See also:</font>"); replace_colons (text); replace_links (text); } @@ -362,7 +369,7 @@ info_to_html (text2); text = text1 + "<a name='" + anchor - + "'/><img src=':/actions/icons/redled.png'><br> " + + "'/><img src=':/actions/icons/arrow_down.png'><br> " + text2; } else @@ -373,10 +380,10 @@ } QString navigationLinks = QString ( - "<img src=':/actions/icons/arrow_right.png'/> <b>Section:</b> %1<br>" - "<b>Previous Section:</b> <a href='%2'>%3</a><br>" - "<b>Next Section:</b> <a href='%4'>%5</a><br>" - "<b>Up:</b> <a href='%6'>%7</a><br>\n" + "<b>Section:</b> %1<br>" + "<img src=':/actions/icons/arrow_left.png'/> <b>Previous Section:</b> <a href='%2'>%3</a><br>" + "<img src=':/actions/icons/arrow_right.png'/> <b>Next Section:</b> <a href='%4'>%5</a><br>" + "<img src=':/actions/icons/arrow_up.png'/> <b>Up:</b> <a href='%6'>%7</a><br>\n" ) .arg (nodeName) .arg (QString (QUrl::toPercentEncoding (nodePrev, "", "'"))) @@ -387,7 +394,7 @@ .arg (nodeUp); - text.prepend ("<hr>\n<pre>"); + text.prepend ("<hr>\n<pre style=\"font-family:monospace\">"); text.append ("</pre>\n<hr><hr>\n"); text.prepend (navigationLinks); text.append (navigationLinks); @@ -589,11 +596,12 @@ line_start = node_text.lastIndexOf ("\n", pos); line_end = node_text.indexOf ("\n", pos); QString line = node_text.mid (line_start, line_end - line_start).trimmed (); + pos += re.matchedLength (); if (founds == 0) { results.append( - "<br>\n<img src=':/actions/icons/bookmark.png'> <a href='" + "<br>\n<img src=':/actions/icons/bookmark.png' width=10> <a href='" + QString(QUrl::toPercentEncoding(node,"","'")) + "'>"); results.append (node); @@ -605,8 +613,6 @@ results.append ("<br>\n"); founds++; - - pos += re.matchedLength (); } } io->close ();
--- a/libgui/src/qtinfo/parser.h +++ b/libgui/src/qtinfo/parser.h @@ -1,7 +1,7 @@ /* Copyright (C) 2009 P.L. Lucas -Copyright (C) 2012 Jacob Dawid +Copyright (C) 2012-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/qtinfo/webinfo.cc +++ b/libgui/src/qtinfo/webinfo.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2009 P. L. Lucas -Copyright (C) 2012 Jacob Dawid +Copyright (C) 2012-2013 Jacob Dawid This file is part of Octave. @@ -106,10 +106,14 @@ void webinfo::load_node (const QString& node_name) { + // no XREF in the tabs + QString tab_text = node_name; + tab_text.replace("XREF",""); + //Check if node has been already opened. for (int i = 0;i < _tab_bar->count (); i++) { - if (node_name == _tab_bar->tabText (i)) + if (tab_text == _tab_bar->tabText (i)) { _tab_bar->setCurrentIndex (i); return; @@ -118,7 +122,7 @@ QString text = _parser.search_node (node_name); int i = _parser.is_ref (node_name); - _text_browser = addNewTab (node_name); + _text_browser = addNewTab (tab_text); _text_browser->setHtml (_parser.node_text_to_html (text, i - 1, "anchor")); if (i != -1)
--- a/libgui/src/qtinfo/webinfo.h +++ b/libgui/src/qtinfo/webinfo.h @@ -1,7 +1,7 @@ /* Copyright (C) 2009 P. L. Lucas -Copyright (C) 2012 Jacob Dawid +Copyright (C) 2012-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/resource-manager.cc +++ b/libgui/src/resource-manager.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/resource-manager.h +++ b/libgui/src/resource-manager.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/resource.qrc +++ b/libgui/src/resource.qrc @@ -22,6 +22,9 @@ <file>icons/filesaveas.png</file> <file>icons/redled.png</file> <file>icons/arrow_right.png</file> + <file>icons/arrow_left.png</file> + <file>icons/arrow_up.png</file> + <file>icons/arrow_down.png</file> <file>icons/bookmark.png</file> <file>icons/question.png</file> <file>icons/star.png</file>
--- a/libgui/src/settings-dialog.cc +++ b/libgui/src/settings-dialog.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -31,6 +31,7 @@ #include <QDir> #include <QFileInfo> #include <QVector> +#include <QHash> #ifdef HAVE_QSCINTILLA #include <QScrollArea> @@ -50,7 +51,7 @@ #include <Qsci/qscilexerdiff.h> #endif -settings_dialog::settings_dialog (QWidget *p): +settings_dialog::settings_dialog (QWidget *p, const QString& desired_tab): QDialog (p), ui (new Ui::settings_dialog) { ui->setupUi (this); @@ -118,6 +119,7 @@ ui->editor_tab_width_spinbox->setValue (settings->value ("editor/tab_width",2).toInt ()); ui->editor_longWindowTitle->setChecked (settings->value ("editor/longWindowTitle",false).toBool ()); ui->editor_restoreSession->setChecked (settings->value ("editor/restoreSession",true).toBool ()); + ui->editor_create_new_file->setChecked (settings->value ("editor/create_new_file",false).toBool ()); ui->terminal_fontName->setCurrentFont (QFont (settings->value ("terminal/fontName","Courier New").toString()) ); ui->terminal_fontSize->setValue (settings->value ("terminal/fontSize",10).toInt ()); ui->showFileSize->setChecked (settings->value ("filesdockwidget/showFileSize",false).toBool()); @@ -194,7 +196,18 @@ delete lexer; #endif - ui->tabWidget->setCurrentIndex (settings->value("settings/last_tab",0).toInt ()); + // which tab is the desired one? + if (desired_tab.isEmpty ()) + ui->tabWidget->setCurrentIndex (settings->value("settings/last_tab",0).toInt ()); + else + { + QHash <QString, QWidget*> tab_hash; + tab_hash["editor"] = ui->tab_editor; + tab_hash["editor_styles"] = ui->tab_editor_styles; + ui->tabWidget->setCurrentIndex (ui->tabWidget->indexOf (tab_hash.value (desired_tab))); + } + + } settings_dialog::~settings_dialog () @@ -303,9 +316,9 @@ scroll_area_contents->setObjectName (QString (lexer->language ())+"_styles"); scroll_area_contents->setLayout (style_grid); scroll_area->setWidget (scroll_area_contents); - ui->tabs_editor_styles->addTab (scroll_area,lexer->language ()); + ui->tabs_editor_lexers->addTab (scroll_area,lexer->language ()); - ui->tabs_editor_styles->setCurrentIndex ( + ui->tabs_editor_lexers->setCurrentIndex ( settings->value("settings/last_editor_styles_tab",0).toInt ()); } #endif @@ -431,6 +444,7 @@ settings->setValue ("editor/tab_width", ui->editor_tab_width_spinbox->value ()); settings->setValue ("editor/longWindowTitle", ui->editor_longWindowTitle->isChecked()); settings->setValue ("editor/restoreSession", ui->editor_restoreSession->isChecked ()); + settings->setValue ("editor/create_new_file", ui->editor_create_new_file->isChecked ()); settings->setValue ("terminal/fontSize", ui->terminal_fontSize->value()); settings->setValue ("terminal/fontName", ui->terminal_fontName->currentFont().family()); settings->setValue ("filesdockwidget/showFileSize", ui->showFileSize->isChecked ()); @@ -499,7 +513,7 @@ void settings_dialog::write_lexer_settings (QsciLexer *lexer, QSettings *settings) { - QWidget *tab = ui->tabs_editor_styles-> + QWidget *tab = ui->tabs_editor_lexers-> findChild <QWidget *>(QString (lexer->language ())+"_styles"); int styles[MaxLexerStyles]; // array for saving valid styles (enum is not continuous) int max_style = get_valid_lexer_styles (lexer, styles); @@ -575,7 +589,7 @@ lexer->writeSettings (*settings); settings->setValue ( - "settings/last_editor_styles_tab",ui->tabs_editor_styles->currentIndex ()); + "settings/last_editor_styles_tab",ui->tabs_editor_lexers->currentIndex ()); } #endif
--- a/libgui/src/settings-dialog.h +++ b/libgui/src/settings-dialog.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave. @@ -40,7 +40,7 @@ class settings_dialog:public QDialog { Q_OBJECT public: - explicit settings_dialog (QWidget * parent); + explicit settings_dialog (QWidget * parent, const QString& desired_tab = QString ()); ~settings_dialog (); void write_changed_settings ();
--- a/libgui/src/settings-dialog.ui +++ b/libgui/src/settings-dialog.ui @@ -32,9 +32,9 @@ <item> <widget class="QTabWidget" name="tabWidget"> <property name="currentIndex"> - <number>1</number> + <number>2</number> </property> - <widget class="QWidget" name="tab_4"> + <widget class="QWidget" name="tab_general"> <property name="enabled"> <bool>true</bool> </property> @@ -190,7 +190,7 @@ </layout> </widget> </widget> - <widget class="QWidget" name="tab"> + <widget class="QWidget" name="tab_editor"> <attribute name="title"> <string>Editor</string> </attribute> @@ -203,7 +203,7 @@ <item> <layout class="QGridLayout" name="editor_common_settings_grid"> <property name="spacing"> - <number>-1</number> + <number>6</number> </property> <item row="2" column="0"> <widget class="QCheckBox" name="editor_ws_checkbox"> @@ -710,6 +710,19 @@ </property> </widget> </item> + <item> + <widget class="QCheckBox" name="editor_create_new file"> + <property name="sizePolicy"> + <sizepolicy hsizetype="Minimum" vsizetype="Fixed"> + <horstretch>0</horstretch> + <verstretch>0</verstretch> + </sizepolicy> + </property> + <property name="text"> + <string>Create non existing files without prompting</string> + </property> + </widget> + </item> </layout> </item> </layout> @@ -783,7 +796,7 @@ </item> </layout> </widget> - <widget class="QWidget" name="tab_6"> + <widget class="QWidget" name="tab_editor_styles"> <attribute name="title"> <string>Editor Styles</string> </attribute> @@ -826,7 +839,7 @@ </widget> </item> <item> - <widget class="QTabWidget" name="tabs_editor_styles"> + <widget class="QTabWidget" name="tabs_editor_lexers"> <property name="maximumSize"> <size> <width>676</width> @@ -838,7 +851,7 @@ </layout> </widget> </widget> - <widget class="QWidget" name="tab_5"> + <widget class="QWidget" name="tab_terminal"> <attribute name="title"> <string>Terminal</string> </attribute> @@ -1012,7 +1025,7 @@ </layout> </widget> </widget> - <widget class="QWidget" name="tab_2"> + <widget class="QWidget" name="tab_file_browser"> <attribute name="title"> <string>File Browser</string> </attribute> @@ -1139,7 +1152,7 @@ </layout> </widget> </widget> - <widget class="QWidget" name="tab_3"> + <widget class="QWidget" name="tab_network"> <attribute name="title"> <string>Network</string> </attribute>
--- a/libgui/src/terminal-dock-widget.cc +++ b/libgui/src/terminal-dock-widget.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/terminal-dock-widget.h +++ b/libgui/src/terminal-dock-widget.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/welcome-wizard.cc +++ b/libgui/src/welcome-wizard.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/welcome-wizard.h +++ b/libgui/src/welcome-wizard.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/workspace-model.cc +++ b/libgui/src/workspace-model.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/workspace-model.h +++ b/libgui/src/workspace-model.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/workspace-view.cc +++ b/libgui/src/workspace-view.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libgui/src/workspace-view.h +++ b/libgui/src/workspace-view.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid +Copyright (C) 2011-2013 Jacob Dawid This file is part of Octave.
--- a/libinterp/Makefile.am +++ b/libinterp/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's libinterp directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/builtins.h +++ b/libinterp/builtins.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/Cell.cc +++ b/libinterp/corefcn/Cell.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/Cell.h +++ b/libinterp/corefcn/Cell.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/__contourc__.cc +++ b/libinterp/corefcn/__contourc__.cc @@ -1,6 +1,6 @@ /* Contour lines for function evaluated on a grid. -Copyright (C) 2007-2012 Kai Habel +Copyright (C) 2007-2013 Kai Habel Copyright (C) 2004, 2007 Shai Ayal Adapted to an oct file from the stand alone contourl by Victro Munoz
--- a/libinterp/corefcn/__dispatch__.cc +++ b/libinterp/corefcn/__dispatch__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 John W. Eaton and Paul Kienzle +Copyright (C) 2001-2013 John W. Eaton and Paul Kienzle This file is part of Octave.
--- a/libinterp/corefcn/__lin_interpn__.cc +++ b/libinterp/corefcn/__lin_interpn__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 Alexander Barth +Copyright (C) 2007-2013 Alexander Barth This file is part of Octave.
--- a/libinterp/corefcn/__pchip_deriv__.cc +++ b/libinterp/corefcn/__pchip_deriv__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 Kai Habel +Copyright (C) 2002-2013 Kai Habel Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/corefcn/__qp__.cc +++ b/libinterp/corefcn/__qp__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 Gabriele Pannocchia +Copyright (C) 2000-2013 Gabriele Pannocchia This file is part of Octave.
--- a/libinterp/corefcn/balance.cc +++ b/libinterp/corefcn/balance.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/corefcn/besselj.cc +++ b/libinterp/corefcn/besselj.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 John W. Eaton +Copyright (C) 1997-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/betainc.cc +++ b/libinterp/corefcn/betainc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 John W. Eaton +Copyright (C) 1997-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/bitfcns.cc +++ b/libinterp/corefcn/bitfcns.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/bsxfun.cc +++ b/libinterp/corefcn/bsxfun.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/c-file-ptr-stream.cc +++ b/libinterp/corefcn/c-file-ptr-stream.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/c-file-ptr-stream.h +++ b/libinterp/corefcn/c-file-ptr-stream.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/cellfun.cc +++ b/libinterp/corefcn/cellfun.cc @@ -1,7 +1,7 @@ /* -Copyright (C) 2005-2012 Mohamed Kamoun -Copyright (C) 2006-2012 Bill Denney +Copyright (C) 2005-2013 Mohamed Kamoun +Copyright (C) 2006-2013 Bill Denney Copyright (C) 2009 Jaroslav Hajek Copyright (C) 2010 VZLU Prague
--- a/libinterp/corefcn/colloc.cc +++ b/libinterp/corefcn/colloc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/comment-list.cc +++ b/libinterp/corefcn/comment-list.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave. @@ -25,13 +25,10 @@ #endif #include "lo-utils.h" -#include "singleton-cleanup.h" #include "comment-list.h" #include "error.h" -octave_comment_buffer *octave_comment_buffer::instance = 0; - octave_comment_list * octave_comment_list::dup (void) const { @@ -46,61 +43,3 @@ return new_cl; } - -bool -octave_comment_buffer::instance_ok (void) -{ - bool retval = true; - - if (! instance) - { - instance = new octave_comment_buffer (); - - if (instance) - singleton_cleanup_list::add (cleanup_instance); - } - - if (! instance) - { - ::error ("unable to create comment buffer object"); - - retval = false; - } - - return retval; -} - -void -octave_comment_buffer::append (const std::string& s, - octave_comment_elt::comment_type t) -{ - if (instance_ok ()) - instance->do_append (s, t); -} - -octave_comment_list * -octave_comment_buffer::get_comment (void) -{ - return (instance_ok ()) ? instance->do_get_comment () : 0; -} - -void -octave_comment_buffer::do_append (const std::string& s, - octave_comment_elt::comment_type t) -{ - comment_list->append (s, t); -} - -octave_comment_list * -octave_comment_buffer::do_get_comment (void) -{ - octave_comment_list *retval = 0; - - if (comment_list && comment_list->length () > 0) - { - retval = comment_list; - comment_list = new octave_comment_list (); - } - - return retval; -}
--- a/libinterp/corefcn/comment-list.h +++ b/libinterp/corefcn/comment-list.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave. @@ -98,35 +98,4 @@ octave_comment_list *dup (void) const; }; -class -octave_comment_buffer -{ -public: - - octave_comment_buffer (void) - : comment_list (new octave_comment_list ()) { } - - ~octave_comment_buffer (void) { delete comment_list; } - - static bool instance_ok (void); - - static void append - (const std::string& s, - octave_comment_elt::comment_type t = octave_comment_elt::unknown); - - static octave_comment_list *get_comment (void); - -private: - - void do_append (const std::string& s, octave_comment_elt::comment_type t); - - octave_comment_list *do_get_comment (void); - - octave_comment_list *comment_list; - - static octave_comment_buffer *instance; - - static void cleanup_instance (void) { delete instance; instance = 0; } -}; - #endif
--- a/libinterp/corefcn/conv2.cc +++ b/libinterp/corefcn/conv2.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 Andy Adler +Copyright (C) 1999-2013 Andy Adler Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -330,6 +330,11 @@ { if (args(2).is_string ()) shape = args(2).string_value (); + else + { + error ("convn: SHAPE must be a string"); + return retval; + } } if (shape == "full") @@ -396,5 +401,162 @@ } /* - FIXME: Need tests for convn in addition to conv2. +## Check for bug #39314 +%!test +%! v = reshape ([1 2], [1 1 2]); +%! assert (convn (v, v), reshape ([1 4 4], [1 1 3])); +%! assert (convn (v, v, "same"), reshape ([4 4], [1 1 2])); +%! assert (convn (v, v, "valid"), 4); + +## The following test may look weird since we are using the output +## of convn to test itself. However, because calculations are done +## differently based on the shape option, it will help to catch some +## bugs. See also bug #39314 +%!shared a, b, c +%! ## test 3D by 3D +%! a = rand (10, 10, 10); +%! b = rand (3, 3, 3); +%! c = convn (a, b, "full"); +%!assert (convn (a, b, "same"), c(2:11,2:11,2:11)); +%!assert (convn (a, b, "valid"), c(3:10,3:10,3:10)); +%! +%! ## test 3D by 2D +%! a = rand (10, 10, 10); +%! b = rand (3, 3); +%! c = convn (a, b, "full"); +%!assert (convn (a, b, "same"), c(2:11,2:11,:)); +%!assert (convn (a, b, "valid"), c(3:10,3:10,:)); +%! +%! ## test 2D by 3D +%! a = rand (10, 10); +%! b = rand (3, 3, 3); +%! c = convn (a, b, "full"); +%!assert (convn (a, b, "same"), c(2:11,2:11,2)); +%!assert (convn (a, b, "valid"), c(3:10,3:10,3:2)); # a 7x7x0 matrix +%! +%! ## test multiple different number of dimensions, with odd +%! ## and even numbers +%! a = rand (10, 15, 7, 8, 10); +%! b = rand (4, 3, 2, 3); +%! c = convn (a, b, "full"); +%!assert (convn (a, b, "same"), c(3:12,2:16,2:8,2:9,:)) +%!assert (convn (a, b, "valid"), c(4:10,3:15,2:7,3:8,:)); + +%!shared a, b, c +%! a = reshape (floor (magic (16) /10), [4 8 4 2]); +%! b = reshape (magic (6), [4 3 3]); +%! c = zeros (7, 10, 6, 2); +%! c(:,:,1,1) = [ +%! 875 1415 1215 741 288 264 635 1109 687 171 +%! 110 467 1551 1790 1891 1651 1165 900 659 568 +%! 883 1047 1475 1964 2181 2302 2117 1674 579 234 +%! 940 2330 3099 2573 2306 2207 2442 2918 2272 1004 +%! 161 500 1564 2066 2355 2270 2099 1621 1144 831 +%! 644 622 886 1121 1652 1967 1907 1668 529 228 +%! 160 752 1232 768 360 284 668 1132 1380 864]; +%! c(:,:,2,1) = [ +%! 150 1174 1903 1971 2030 1719 1467 1420 1220 472 +%! 986 2243 2603 2385 2308 2530 2971 3181 2266 768 +%! 914 2443 3750 3782 3976 3821 3723 3709 2599 1178 +%! 1922 3374 5198 5472 5563 5853 5794 5543 3578 1820 +%! 1060 2471 3846 3724 3682 3803 3812 3927 2876 1390 +%! 470 2078 3283 3225 2701 2265 2165 2261 2324 1124 +%! 700 1130 1486 1515 1830 2097 2081 2028 1009 348]; +%! c(:,:,3,1) = [ +%! 1350 2127 2461 2082 1694 1909 2230 2621 1681 683 +%! 877 2473 4362 4556 4543 4314 3879 3703 2863 1497 +%! 1934 4219 5874 6117 5966 6051 5984 5714 3891 1562 +%! 1927 5997 8573 8456 8517 8025 7957 8101 6121 2500 +%! 1558 3533 5595 6064 6453 6491 6275 5743 3794 1832 +%! 1950 2762 3455 3423 4019 4578 4807 4857 2304 907 +%! 525 1860 2731 2392 1872 1724 1961 2312 2315 1141]; +%! c(:,:,4,1) = [ +%! 150 1317 2230 2621 2996 2767 2472 2049 1514 583 +%! 1429 3056 3879 3703 3756 3964 4394 4570 3111 1250 +%! 1833 4037 5984 5714 5846 5788 5883 6129 4157 2011 +%! 3143 5469 7957 8101 8063 8475 8564 8439 5306 2538 +%! 2001 4514 6275 5743 5391 5389 5578 6110 4473 1953 +%! 817 3196 4807 4857 4229 3659 3477 3375 3208 1400 +%! 750 1365 1961 2312 2840 2993 2722 2344 1092 323]; +%! c(:,:,5,1) = [ +%! 475 734 1296 1352 1400 1595 1557 1517 960 490 +%! 751 1977 2831 2746 2607 2665 2733 2833 2186 912 +%! 1065 3142 4344 4150 3768 3734 3876 4086 3366 1327 +%! 976 3712 5530 5921 6158 5802 5481 5071 3821 1491 +%! 1397 2996 3971 4003 4088 4180 4199 4146 2649 985 +%! 1273 2121 2555 2247 2378 2624 2908 3229 1788 705 +%! 365 1108 1530 1652 1550 1407 1274 1127 889 264]; +%! c(:,:,6,1) = [ +%! 0 133 345 683 982 1058 960 623 310 100 +%! 437 806 1313 1332 1383 1391 1397 1370 864 495 +%! 928 1573 2201 1928 1864 1932 2183 2445 1557 855 +%! 1199 2083 2739 2573 2507 2656 2786 2928 1795 736 +%! 912 1997 2404 2028 1692 1591 1803 2159 1603 599 +%! 345 1092 1526 1666 1593 1437 1275 1116 863 253 +%! 50 235 510 811 998 894 615 318 77 0]; +%! c(:,:,1,2) = [ +%! 840 1350 1176 697 293 320 674 1153 717 180 +%! 142 490 1563 1824 1929 1604 1132 857 624 587 +%! 890 1084 1539 1979 2238 2333 2072 1610 509 202 +%! 966 2263 3034 2518 2250 2235 2512 2992 2305 1016 +%! 200 561 1607 2107 2361 2277 2030 1548 1102 818 +%! 652 631 922 1128 1670 1997 1895 1665 467 197 +%! 160 744 1192 692 292 256 708 1208 1448 900]; +%! c(:,:,2,2) = [ +%! 179 1199 1886 1987 1997 1716 1479 1383 1215 485 +%! 988 2213 2552 2358 2304 2615 3011 3210 2246 744 +%! 921 2483 3747 3768 3960 3835 3712 3698 2588 1183 +%! 1903 3416 5254 5490 5572 5826 5761 5505 3502 1814 +%! 1064 2507 3825 3666 3680 3748 3821 3958 2892 1395 +%! 495 2129 3277 3228 2566 2216 2154 2250 2390 1154 +%! 700 1105 1472 1524 1856 2113 2059 2019 975 325]; +%! c(:,:,3,2) = [ +%! 1302 2104 2439 2006 1723 1931 2280 2685 1678 690 +%! 877 2507 4408 4580 4523 4233 3852 3647 2850 1516 +%! 1949 4238 5895 6143 6018 6063 5930 5656 3847 1538 +%! 1953 5975 8547 8433 8407 8060 7955 8069 6170 2506 +%! 1621 3536 5624 6117 6459 6456 6180 5666 3735 1815 +%! 1904 2751 3429 3366 4122 4622 4840 4864 2242 882 +%! 517 1843 2674 2337 1777 1686 2005 2367 2385 1175]; +%! c(:,:,4,2) = [ +%! 198 1346 2280 2685 2980 2759 2396 1982 1497 576 +%! 1413 2994 3852 3647 3756 4035 4418 4595 3109 1231 +%! 1873 4025 5930 5656 5792 5772 5909 6152 4185 2035 +%! 3110 5510 7955 8069 8139 8456 8541 8439 5276 2541 +%! 1964 4462 6180 5666 5315 5409 5631 6178 4536 1998 +%! 869 3215 4840 4864 4121 3579 3420 3386 3271 1430 +%! 725 1361 2005 2367 2925 3006 2667 2297 1054 325]; +%! c(:,:,5,2) = [ +%! 462 754 1285 1359 1441 1605 1556 1488 938 488 +%! 729 1967 2788 2732 2608 2683 2744 2830 2195 912 +%! 1052 3139 4302 4101 3742 3730 3895 4103 3403 1335 +%! 1007 3725 5577 5964 6165 5754 5407 5006 3846 1507 +%! 1375 2969 3951 3990 4144 4183 4200 4150 2661 998 +%! 1258 2090 2495 2188 2403 2664 2954 3279 1814 723 +%! 388 1127 1551 1673 1525 1390 1253 1139 912 275]; +%! c(:,:,6,2) = [ +%! 19 147 384 716 1016 1059 927 570 276 80 +%! 441 791 1298 1320 1401 1396 1409 1367 865 500 +%! 932 1537 2155 1870 1860 1946 2221 2487 1584 874 +%! 1201 2067 2705 2538 2512 2687 2806 2971 1812 756 +%! 925 1976 2363 1971 1636 1600 1844 2239 1664 626 +%! 372 1133 1558 1687 1570 1401 1243 1122 883 264 +%! 60 270 556 857 1024 870 569 282 66 0]; +%!assert (convn(a, b, "full"), c); +%!assert (convn(a, b, "same"), c(3:6,2:9,2:5,:)); +%!assert (convn(a, b, "valid"), c(4,3:8,3:4,:)); + +## test correct class +%!assert (class (convn (rand(5), rand(3))), "double"); +%!assert (class (convn (rand(5, "single"), rand(3))), "single"); +%!assert (class (convn (rand(5), rand(3, "single"))), "single"); +%!assert (class (convn (true (5), rand(3))), "double"); +%!assert (class (convn (true (5), rand(3, "single"))), "single"); +%!assert (class (convn (ones(5, "uint8"), rand(3))), "double"); +%!assert (class (convn (rand (3, "single"), ones(5, "uint8"))), "single"); + +%!error convn () +%!error convn (1) +%!error <SHAPE type not valid> convn (1,2, "NOT_A_SHAPE") +%!error convn (rand (3), 1, 1) */
--- a/libinterp/corefcn/cutils.c +++ b/libinterp/corefcn/cutils.c @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/cutils.h +++ b/libinterp/corefcn/cutils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/daspk.cc +++ b/libinterp/corefcn/daspk.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dasrt.cc +++ b/libinterp/corefcn/dasrt.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dassl.cc +++ b/libinterp/corefcn/dassl.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/data.cc +++ b/libinterp/corefcn/data.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague Copyright (C) 2012 Carlo de Falco
--- a/libinterp/corefcn/data.h +++ b/libinterp/corefcn/data.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/debug.cc +++ b/libinterp/corefcn/debug.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Ben Sapp +Copyright (C) 2001-2013 Ben Sapp Copyright (C) 2007-2009 John Swensen This file is part of Octave.
--- a/libinterp/corefcn/debug.h +++ b/libinterp/corefcn/debug.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Ben Sapp +Copyright (C) 2001-2013 Ben Sapp This file is part of Octave.
--- a/libinterp/corefcn/defaults.cc +++ b/libinterp/corefcn/defaults.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/defaults.in.h +++ b/libinterp/corefcn/defaults.in.h @@ -1,7 +1,7 @@ // %NO_EDIT_WARNING% /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/defun-dld.h +++ b/libinterp/corefcn/defun-dld.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/defun-int.h +++ b/libinterp/corefcn/defun-int.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/defun.cc +++ b/libinterp/corefcn/defun.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/defun.h +++ b/libinterp/corefcn/defun.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/det.cc +++ b/libinterp/corefcn/det.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dirfns.cc +++ b/libinterp/corefcn/dirfns.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dirfns.h +++ b/libinterp/corefcn/dirfns.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/display.cc +++ b/libinterp/corefcn/display.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/display.h +++ b/libinterp/corefcn/display.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dlmread.cc +++ b/libinterp/corefcn/dlmread.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jonathan Stickel +Copyright (C) 2008-2013 Jonathan Stickel Copyright (C) 2010 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/corefcn/dot.cc +++ b/libinterp/corefcn/dot.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 VZLU Prague +Copyright (C) 2009-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/dynamic-ld.cc +++ b/libinterp/corefcn/dynamic-ld.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/dynamic-ld.h +++ b/libinterp/corefcn/dynamic-ld.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/eig.cc +++ b/libinterp/corefcn/eig.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/error.cc +++ b/libinterp/corefcn/error.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/error.h +++ b/libinterp/corefcn/error.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/event-queue.h +++ b/libinterp/corefcn/event-queue.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/fft.cc +++ b/libinterp/corefcn/fft.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 David Bateman +Copyright (C) 1997-2013 David Bateman Copyright (C) 1996-1997 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/fft2.cc +++ b/libinterp/corefcn/fft2.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 David Bateman +Copyright (C) 1997-2013 David Bateman Copyright (C) 1996-1997 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/fftn.cc +++ b/libinterp/corefcn/fftn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/file-io.cc +++ b/libinterp/corefcn/file-io.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/file-io.h +++ b/libinterp/corefcn/file-io.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/filter.cc +++ b/libinterp/corefcn/filter.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/find.cc +++ b/libinterp/corefcn/find.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/gammainc.cc +++ b/libinterp/corefcn/gammainc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 John W. Eaton +Copyright (C) 1997-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/gcd.cc +++ b/libinterp/corefcn/gcd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 2010 Jaroslav Hajek, Jordi Gutiérrez Hermoso This file is part of Octave.
--- a/libinterp/corefcn/getgrent.cc +++ b/libinterp/corefcn/getgrent.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/getpwent.cc +++ b/libinterp/corefcn/getpwent.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/getrusage.cc +++ b/libinterp/corefcn/getrusage.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/givens.cc +++ b/libinterp/corefcn/givens.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/gl-render.cc +++ b/libinterp/corefcn/gl-render.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave. @@ -1392,6 +1392,8 @@ void opengl_renderer::draw_axes (const axes::properties& props) { + static double floatmax = std::numeric_limits<float>::max (); + double x_min = props.get_x_min (); double x_max = props.get_x_max (); double y_min = props.get_y_min (); @@ -1399,6 +1401,13 @@ double z_min = props.get_z_min (); double z_max = props.get_z_max (); + if (x_max > floatmax || y_max > floatmax || z_max > floatmax + || x_min < -floatmax || y_min < -floatmax || z_min < -floatmax) + { + warning ("gl-render: data values greater than float capacity. (1) Scale data, or (2) Use gnuplot"); + return; + } + setup_opengl_transformation (props); // draw axes object @@ -2549,6 +2558,12 @@ const ColumnVector p0 = xform.transform (x(0), y(0), 0); const ColumnVector p1 = xform.transform (x(1), y(1), 0); + if (xisnan (p0(0)) || xisnan (p0(1)) || xisnan (p1(0)) || xisnan (p1(1))) + { + warning ("gl-render: image x,y data too large to draw"); + return; + } + // image pixel size in screen pixel units float pix_dx, pix_dy; // image pixel size in normalized units
--- a/libinterp/corefcn/gl-render.h +++ b/libinterp/corefcn/gl-render.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/corefcn/gl2ps-renderer.cc +++ b/libinterp/corefcn/gl2ps-renderer.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Shai Ayal +Copyright (C) 2009-2013 Shai Ayal This file is part of Octave.
--- a/libinterp/corefcn/gl2ps-renderer.h +++ b/libinterp/corefcn/gl2ps-renderer.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Shai Ayal +Copyright (C) 2009-2013 Shai Ayal This file is part of Octave.
--- a/libinterp/corefcn/graphics.cc +++ b/libinterp/corefcn/graphics.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/graphics.in.h +++ b/libinterp/corefcn/graphics.in.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/gripes.cc +++ b/libinterp/corefcn/gripes.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/gripes.h +++ b/libinterp/corefcn/gripes.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/help.cc +++ b/libinterp/corefcn/help.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/help.h +++ b/libinterp/corefcn/help.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/hess.cc +++ b/libinterp/corefcn/hess.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/hex2num.cc +++ b/libinterp/corefcn/hex2num.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 David Bateman +Copyright (C) 2008-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/input.cc +++ b/libinterp/corefcn/input.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave. @@ -147,7 +147,7 @@ void octave_base_reader::do_input_echo (const std::string& input_string) const { - int do_echo = (LEXER && LEXER->reading_script_file) ? + int do_echo = reading_script_file () ? (Vecho_executing_commands & ECHO_SCRIPTS) : (Vecho_executing_commands & ECHO_CMD_LINE) && ! forced_interactive; @@ -295,6 +295,24 @@ return retval; } +bool +octave_base_reader::reading_fcn_file (void) const +{ + return lexer ? lexer->reading_fcn_file : false; +} + +bool +octave_base_reader::reading_classdef_file (void) const +{ + return lexer ? lexer->reading_classdef_file : false; +} + +bool +octave_base_reader::reading_script_file (void) const +{ + return lexer ? lexer->reading_script_file : false; +} + // Fix things up so that input can come from the standard input. This // may need to become much more complicated, which is why it's in a // separate function. @@ -553,19 +571,12 @@ frame.protect_var (VPS1); VPS1 = prompt; - if (! (interactive || forced_interactive) - || (LEXER && (LEXER->reading_fcn_file - || LEXER->reading_classdef_file - || LEXER->reading_script_file - || LEXER->input_from_eval_string ()))) + if (! (interactive || forced_interactive)) { frame.protect_var (forced_interactive); forced_interactive = true; } - // octave_parser constructor sets this for us. - frame.protect_var (LEXER); - octave_parser curr_parser; while (Vdebugging)
--- a/libinterp/corefcn/input.h +++ b/libinterp/corefcn/input.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave. @@ -34,6 +34,7 @@ #include "pager.h" class octave_value; +class octave_base_lexer; extern OCTINTERP_API FILE *get_input_from_stdin (void); @@ -86,9 +87,13 @@ friend class octave_input_reader; - octave_base_reader (void) : count (1), pflag (0) { } + octave_base_reader (octave_base_lexer *lxr) + : count (1), pflag (0), lexer (lxr) + { } - octave_base_reader (const octave_base_reader&) : count (1) { } + octave_base_reader (const octave_base_reader& x) + : count (1), pflag (x.pflag), lexer (x.lexer) + { } virtual ~octave_base_reader (void) { } @@ -113,12 +118,26 @@ std::string octave_gets (bool& eof); + virtual bool reading_fcn_file (void) const; + + virtual bool reading_classdef_file (void) const; + + virtual bool reading_script_file (void) const; + + virtual bool input_from_terminal (void) const { return false; } + + virtual bool input_from_file (void) const { return false; } + + virtual bool input_from_eval_string (void) const { return false; } + private: int count; int pflag; + octave_base_lexer *lexer; + void do_input_echo (const std::string&) const; static const std::string in_src; @@ -129,12 +148,16 @@ { public: - octave_terminal_reader (void) : octave_base_reader () { } + octave_terminal_reader (octave_base_lexer *lxr = 0) + : octave_base_reader (lxr) + { } std::string get_input (bool& eof); std::string input_source (void) const { return in_src; } + bool input_from_terminal (void) const { return true; } + private: static const std::string in_src; @@ -145,13 +168,15 @@ { public: - octave_file_reader (FILE *f_arg) - : octave_base_reader (), file (f_arg) { } + octave_file_reader (FILE *f_arg, octave_base_lexer *lxr = 0) + : octave_base_reader (lxr), file (f_arg) { } std::string get_input (bool& eof); std::string input_source (void) const { return in_src; } + bool input_from_file (void) const { return true; } + private: FILE *file; @@ -164,14 +189,17 @@ { public: - octave_eval_string_reader (const std::string& str) - : octave_base_reader (), eval_string (str) + octave_eval_string_reader (const std::string& str, + octave_base_lexer *lxr = 0) + : octave_base_reader (lxr), eval_string (str) { } std::string get_input (bool& eof); std::string input_source (void) const { return in_src; } + bool input_from_eval_string (void) const { return true; } + private: std::string eval_string; @@ -183,16 +211,16 @@ octave_input_reader { public: - octave_input_reader (void) - : rep (new octave_terminal_reader ()) + octave_input_reader (octave_base_lexer *lxr = 0) + : rep (new octave_terminal_reader (lxr)) { } - octave_input_reader (FILE *file) - : rep (new octave_file_reader (file)) + octave_input_reader (FILE *file, octave_base_lexer *lxr = 0) + : rep (new octave_file_reader (file, lxr)) { } - octave_input_reader (const std::string& str) - : rep (new octave_eval_string_reader (str)) + octave_input_reader (const std::string& str, octave_base_lexer *lxr = 0) + : rep (new octave_eval_string_reader (str, lxr)) { } octave_input_reader (const octave_input_reader& ir) @@ -238,6 +266,21 @@ return rep->input_source (); } + bool input_from_terminal (void) const + { + return rep->input_from_terminal (); + } + + bool input_from_file (void) const + { + return rep->input_from_file (); + } + + bool input_from_eval_string (void) const + { + return rep->input_from_eval_string (); + } + private: octave_base_reader *rep;
--- a/libinterp/corefcn/inv.cc +++ b/libinterp/corefcn/inv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/jit-ir.cc +++ b/libinterp/corefcn/jit-ir.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/jit-ir.h +++ b/libinterp/corefcn/jit-ir.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/jit-typeinfo.cc +++ b/libinterp/corefcn/jit-typeinfo.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/jit-typeinfo.h +++ b/libinterp/corefcn/jit-typeinfo.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/jit-util.cc +++ b/libinterp/corefcn/jit-util.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/jit-util.h +++ b/libinterp/corefcn/jit-util.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/kron.cc +++ b/libinterp/corefcn/kron.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/load-path.cc +++ b/libinterp/corefcn/load-path.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/load-path.h +++ b/libinterp/corefcn/load-path.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/load-save.cc +++ b/libinterp/corefcn/load-save.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave. @@ -380,7 +380,8 @@ #ifdef HAVE_HDF5 case LS_HDF5: - name = read_hdf5_data (stream, orig_fname, global, tc, doc); + name = read_hdf5_data (stream, orig_fname, global, tc, doc, + argv, argv_idx, argc); break; #endif /* HAVE_HDF5 */
--- a/libinterp/corefcn/load-save.h +++ b/libinterp/corefcn/load-save.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/lookup.cc +++ b/libinterp/corefcn/lookup.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 VZLU Prague a.s., Czech Republic +Copyright (C) 2008-2013 VZLU Prague a.s., Czech Republic This file is part of Octave.
--- a/libinterp/corefcn/ls-ascii-helper.cc +++ b/libinterp/corefcn/ls-ascii-helper.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Benjamin Lindner +Copyright (C) 2009-2013 Benjamin Lindner This file is part of Octave.
--- a/libinterp/corefcn/ls-ascii-helper.h +++ b/libinterp/corefcn/ls-ascii-helper.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Benjamin Lindner +Copyright (C) 2009-2013 Benjamin Lindner This file is part of Octave.
--- a/libinterp/corefcn/ls-hdf5.cc +++ b/libinterp/corefcn/ls-hdf5.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave. @@ -580,7 +580,8 @@ // and error. std::string read_hdf5_data (std::istream& is, const std::string& /* filename */, - bool& global, octave_value& tc, std::string& doc) + bool& global, octave_value& tc, std::string& doc, + const string_vector& argv, int argv_idx, int argc) { std::string retval; @@ -599,6 +600,37 @@ #endif H5Gget_num_objs (group_id, &num_obj); H5Gclose (group_id); + + // For large datasets and out-of-core functionality, + // check if only parts of the data is requested + bool load_named_vars = argv_idx < argc; + while (load_named_vars && hs.current_item < static_cast<int> (num_obj)) + { + std::vector<char> var_name; + bool found = false; + size_t len = 0; + + len = H5Gget_objname_by_idx (hs.file_id, hs.current_item, 0, 0); + var_name.resize (len+1); + H5Gget_objname_by_idx( hs.file_id, hs.current_item, &var_name[0], len+1); + + for (int i = argv_idx; i < argc; i++) + { + glob_match pattern (argv[i]); + if (pattern.match (std::string (&var_name[0]))) + { + found = true; + break; + } + } + + if (found) + break; + + hs.current_item++; + } + + if (hs.current_item < static_cast<int> (num_obj)) H5Giterate_retval = H5Giterate (hs.file_id, "/", &hs.current_item, hdf5_read_next_data, &d);
--- a/libinterp/corefcn/ls-hdf5.h +++ b/libinterp/corefcn/ls-hdf5.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave. @@ -180,7 +180,8 @@ extern OCTINTERP_API std::string read_hdf5_data (std::istream& is, const std::string& filename, bool& global, - octave_value& tc, std::string& doc); + octave_value& tc, std::string& doc, + const string_vector& argv, int argv_idx, int argc); extern OCTINTERP_API bool save_hdf5_data (std::ostream& os, const octave_value& tc,
--- a/libinterp/corefcn/ls-mat-ascii.cc +++ b/libinterp/corefcn/ls-mat-ascii.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-mat-ascii.h +++ b/libinterp/corefcn/ls-mat-ascii.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-mat4.cc +++ b/libinterp/corefcn/ls-mat4.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-mat4.h +++ b/libinterp/corefcn/ls-mat4.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-mat5.cc +++ b/libinterp/corefcn/ls-mat5.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-mat5.h +++ b/libinterp/corefcn/ls-mat5.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-oct-ascii.cc +++ b/libinterp/corefcn/ls-oct-ascii.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-oct-ascii.h +++ b/libinterp/corefcn/ls-oct-ascii.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-oct-binary.cc +++ b/libinterp/corefcn/ls-oct-binary.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-oct-binary.h +++ b/libinterp/corefcn/ls-oct-binary.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-utils.cc +++ b/libinterp/corefcn/ls-utils.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/ls-utils.h +++ b/libinterp/corefcn/ls-utils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/lsode.cc +++ b/libinterp/corefcn/lsode.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/lu.cc +++ b/libinterp/corefcn/lu.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/luinc.cc +++ b/libinterp/corefcn/luinc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/mappers.cc +++ b/libinterp/corefcn/mappers.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave. @@ -1056,8 +1056,9 @@ %! assert (gamma (x), v, sqrt (eps ("single"))); %!test -%! x = [-1, 0, 1, Inf]; -%! v = [Inf, Inf, 1, Inf]; +%! ## Test exceptional values +%! x = [-Inf, -1, -0, 0, 1, Inf, NaN]; +%! v = [NaN, NaN, -Inf, Inf, 1, Inf, NaN]; %! assert (gamma (x), v); %! assert (gamma (single (x)), single (v));
--- a/libinterp/corefcn/matherr.c +++ b/libinterp/corefcn/matherr.c @@ -1,6 +1,6 @@ /* -Copyright (C) 1997-2012 John W. Eaton +Copyright (C) 1997-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/matrix_type.cc +++ b/libinterp/corefcn/matrix_type.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/max.cc +++ b/libinterp/corefcn/max.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/md5sum.cc +++ b/libinterp/corefcn/md5sum.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/mex.cc +++ b/libinterp/corefcn/mex.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/mex.h +++ b/libinterp/corefcn/mex.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Paul Kienzle +Copyright (C) 2001-2013 Paul Kienzle This file is part of Octave.
--- a/libinterp/corefcn/mexproto.h +++ b/libinterp/corefcn/mexproto.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 Paul Kienzle +Copyright (C) 2006-2013 Paul Kienzle This file is part of Octave.
--- a/libinterp/corefcn/mgorth.cc +++ b/libinterp/corefcn/mgorth.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Carlo de Falco +Copyright (C) 2009-2013 Carlo de Falco Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/mxarray.in.h +++ b/libinterp/corefcn/mxarray.in.h @@ -1,7 +1,7 @@ // %NO_EDIT_WARNING% /* -Copyright (C) 2001-2012 Paul Kienzle +Copyright (C) 2001-2013 Paul Kienzle This file is part of Octave.
--- a/libinterp/corefcn/nproc.cc +++ b/libinterp/corefcn/nproc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Iain Murray +Copyright (C) 2012-2013 Iain Murray This file is part of Octave.
--- a/libinterp/corefcn/oct-errno.h +++ b/libinterp/corefcn/oct-errno.h @@ -1,7 +1,7 @@ // oct-errno.h.in /* -Copyright (C) 2005-2012 John W. Eaton +Copyright (C) 2005-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-errno.in.cc +++ b/libinterp/corefcn/oct-errno.in.cc @@ -1,7 +1,7 @@ // DO NOT EDIT! Generated automatically from oct-errno.in.cc by configure /* -Copyright (C) 2005-2012 John W. Eaton +Copyright (C) 2005-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-fstrm.cc +++ b/libinterp/corefcn/oct-fstrm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-fstrm.h +++ b/libinterp/corefcn/oct-fstrm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-handle.h +++ b/libinterp/corefcn/oct-handle.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-hdf5.h +++ b/libinterp/corefcn/oct-hdf5.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-hist.cc +++ b/libinterp/corefcn/oct-hist.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-hist.h +++ b/libinterp/corefcn/oct-hist.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-iostrm.cc +++ b/libinterp/corefcn/oct-iostrm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-iostrm.h +++ b/libinterp/corefcn/oct-iostrm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-lvalue.cc +++ b/libinterp/corefcn/oct-lvalue.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-lvalue.h +++ b/libinterp/corefcn/oct-lvalue.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-map.cc +++ b/libinterp/corefcn/oct-map.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/oct-map.h +++ b/libinterp/corefcn/oct-map.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/oct-obj.cc +++ b/libinterp/corefcn/oct-obj.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/oct-obj.h +++ b/libinterp/corefcn/oct-obj.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/oct-prcstrm.cc +++ b/libinterp/corefcn/oct-prcstrm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-prcstrm.h +++ b/libinterp/corefcn/oct-prcstrm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-procbuf.cc +++ b/libinterp/corefcn/oct-procbuf.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-procbuf.h +++ b/libinterp/corefcn/oct-procbuf.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-stdstrm.h +++ b/libinterp/corefcn/oct-stdstrm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-stream.cc +++ b/libinterp/corefcn/oct-stream.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-stream.h +++ b/libinterp/corefcn/oct-stream.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-strstrm.cc +++ b/libinterp/corefcn/oct-strstrm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct-strstrm.h +++ b/libinterp/corefcn/oct-strstrm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/oct.h +++ b/libinterp/corefcn/oct.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/octave-link.cc +++ b/libinterp/corefcn/octave-link.cc @@ -1,8 +1,8 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid -Copyright (C) 2011-2012 John P. Swensen +Copyright (C) 2011-2013 Jacob Dawid +Copyright (C) 2011-2013 John P. Swensen This file is part of Octave.
--- a/libinterp/corefcn/octave-link.h +++ b/libinterp/corefcn/octave-link.h @@ -1,8 +1,8 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2011-2012 Jacob Dawid -Copyright (C) 2011-2012 John P. Swensen +Copyright (C) 2011-2013 Jacob Dawid +Copyright (C) 2011-2013 John P. Swensen This file is part of Octave.
--- a/libinterp/corefcn/pager.cc +++ b/libinterp/corefcn/pager.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/pager.h +++ b/libinterp/corefcn/pager.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/pinv.cc +++ b/libinterp/corefcn/pinv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/pr-output.cc +++ b/libinterp/corefcn/pr-output.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/pr-output.h +++ b/libinterp/corefcn/pr-output.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/procstream.cc +++ b/libinterp/corefcn/procstream.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/procstream.h +++ b/libinterp/corefcn/procstream.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/profiler.cc +++ b/libinterp/corefcn/profiler.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Daniel Kraft +Copyright (C) 2012-2013 Daniel Kraft This file is part of Octave.
--- a/libinterp/corefcn/profiler.h +++ b/libinterp/corefcn/profiler.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Daniel Kraft +Copyright (C) 2012-2013 Daniel Kraft This file is part of Octave.
--- a/libinterp/corefcn/pt-jit.cc +++ b/libinterp/corefcn/pt-jit.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/pt-jit.h +++ b/libinterp/corefcn/pt-jit.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/corefcn/quad.cc +++ b/libinterp/corefcn/quad.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/quadcc.cc +++ b/libinterp/corefcn/quadcc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 Pedro Gonnet +Copyright (C) 2010-2013 Pedro Gonnet This file is part of Octave.
--- a/libinterp/corefcn/qz.cc +++ b/libinterp/corefcn/qz.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1998-2012 A. S. Hodel +Copyright (C) 1998-2013 A. S. Hodel This file is part of Octave.
--- a/libinterp/corefcn/rand.cc +++ b/libinterp/corefcn/rand.cc @@ -1,7 +1,7 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave. @@ -1157,7 +1157,7 @@ // Quick and dirty heuristic to decide if we allocate or not the // whole vector for tracking the truncated shuffle. - bool short_shuffle = m < n/5 && m < 1e5; + bool short_shuffle = m < n/5; if (! error_state) { @@ -1166,7 +1166,20 @@ double *rvec = r.fortran_vec (); octave_idx_type idx_len = short_shuffle ? m : n; - Array<octave_idx_type> idx (dim_vector (1, idx_len)); + Array<octave_idx_type> idx; + try + { + idx = Array<octave_idx_type> (dim_vector (1, idx_len)); + } + catch(std::bad_alloc) + { + // Looks like n is too big and short_shuffle is false. + // Let's try again, but this time with the alternative. + idx_len = m; + short_shuffle = true; + idx = Array<octave_idx_type> (dim_vector (1, idx_len)); + } + octave_idx_type *ivec = idx.fortran_vec (); for (octave_idx_type i = 0; i < idx_len; i++) @@ -1231,6 +1244,9 @@ %!assert (sort (randperm (20)), 1:20) %!assert (length (randperm (20,10)), 10) +## Test biggish N (bug #39378) +%!assert (length (randperm(30000^2, 100000)), 100000); + %!test %! rand ("seed", 0); %! for i = 1:100
--- a/libinterp/corefcn/rcond.cc +++ b/libinterp/corefcn/rcond.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 David Bateman +Copyright (C) 2008-2013 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/regexp.cc +++ b/libinterp/corefcn/regexp.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 2002-2005 Paul Kienzle This file is part of Octave.
--- a/libinterp/corefcn/schur.cc +++ b/libinterp/corefcn/schur.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/sighandlers.cc +++ b/libinterp/corefcn/sighandlers.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/sighandlers.h +++ b/libinterp/corefcn/sighandlers.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/siglist.c +++ b/libinterp/corefcn/siglist.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/siglist.h +++ b/libinterp/corefcn/siglist.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/sparse-xdiv.cc +++ b/libinterp/corefcn/sparse-xdiv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/corefcn/sparse-xdiv.h +++ b/libinterp/corefcn/sparse-xdiv.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/corefcn/sparse-xpow.cc +++ b/libinterp/corefcn/sparse-xpow.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/corefcn/sparse-xpow.h +++ b/libinterp/corefcn/sparse-xpow.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/corefcn/sparse.cc +++ b/libinterp/corefcn/sparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague
--- a/libinterp/corefcn/spparms.cc +++ b/libinterp/corefcn/spparms.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/corefcn/sqrtm.cc +++ b/libinterp/corefcn/sqrtm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Ross Lippert and Paul Kienzle +Copyright (C) 2001-2013 Ross Lippert and Paul Kienzle Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/str2double.cc +++ b/libinterp/corefcn/str2double.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 Jaroslav Hajek +Copyright (C) 2010-2013 Jaroslav Hajek Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/strfind.cc +++ b/libinterp/corefcn/strfind.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/strfns.cc +++ b/libinterp/corefcn/strfns.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/sub2ind.cc +++ b/libinterp/corefcn/sub2ind.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 VZLU Prague +Copyright (C) 2009-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/svd.cc +++ b/libinterp/corefcn/svd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/syl.cc +++ b/libinterp/corefcn/syl.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/symtab.cc +++ b/libinterp/corefcn/symtab.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/libinterp/corefcn/symtab.h +++ b/libinterp/corefcn/symtab.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/syscalls.cc +++ b/libinterp/corefcn/syscalls.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/sysdep.cc +++ b/libinterp/corefcn/sysdep.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/sysdep.h +++ b/libinterp/corefcn/sysdep.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/time.cc +++ b/libinterp/corefcn/time.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/toplev.cc +++ b/libinterp/corefcn/toplev.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave. @@ -539,11 +539,6 @@ // The big loop. - unwind_protect frame; - - // octave_parser constructor sets this for us. - frame.protect_var (LEXER); - octave_lexer *lxr = ((interactive || forced_interactive) ? new octave_lexer () : new octave_lexer (stdin)); @@ -555,8 +550,6 @@ { try { - unwind_protect inner_frame; - reset_error_handler (); parser.reset ();
--- a/libinterp/corefcn/toplev.h +++ b/libinterp/corefcn/toplev.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/tril.cc +++ b/libinterp/corefcn/tril.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/txt-eng-ft.cc +++ b/libinterp/corefcn/txt-eng-ft.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Michael Goffioul +Copyright (C) 2009-2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/corefcn/txt-eng-ft.h +++ b/libinterp/corefcn/txt-eng-ft.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Michael Goffioul +Copyright (C) 2009-2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/corefcn/txt-eng.h +++ b/libinterp/corefcn/txt-eng.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Michael Goffioul +Copyright (C) 2009-2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/corefcn/typecast.cc +++ b/libinterp/corefcn/typecast.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/urlwrite.cc +++ b/libinterp/corefcn/urlwrite.cc @@ -1,7 +1,7 @@ // urlwrite and urlread, a curl front-end for octave /* -Copyright (C) 2006-2012 Alexander Barth +Copyright (C) 2006-2013 Alexander Barth Copyright (C) 2009 David Bateman This file is part of Octave.
--- a/libinterp/corefcn/utils.cc +++ b/libinterp/corefcn/utils.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/utils.h +++ b/libinterp/corefcn/utils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/variables.cc +++ b/libinterp/corefcn/variables.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/variables.h +++ b/libinterp/corefcn/variables.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/xdiv.cc +++ b/libinterp/corefcn/xdiv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague
--- a/libinterp/corefcn/xdiv.h +++ b/libinterp/corefcn/xdiv.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/corefcn/xgl2ps.c +++ b/libinterp/corefcn/xgl2ps.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/xnorm.cc +++ b/libinterp/corefcn/xnorm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 VZLU Prague, a.s. +Copyright (C) 2008-2013 VZLU Prague, a.s. This file is part of Octave.
--- a/libinterp/corefcn/xnorm.h +++ b/libinterp/corefcn/xnorm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 VZLU Prague, a.s. +Copyright (C) 2008-2013 VZLU Prague, a.s. This file is part of Octave.
--- a/libinterp/corefcn/xpow.cc +++ b/libinterp/corefcn/xpow.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/corefcn/xpow.h +++ b/libinterp/corefcn/xpow.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/corefcn/zfstream.cc +++ b/libinterp/corefcn/zfstream.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 Ludwig Schwardt, Kevin Ruland +Copyright (C) 2005-2013 Ludwig Schwardt, Kevin Ruland This file is part of Octave.
--- a/libinterp/corefcn/zfstream.h +++ b/libinterp/corefcn/zfstream.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 Ludwig Schwardt, Kevin Ruland +Copyright (C) 2005-2013 Ludwig Schwardt, Kevin Ruland This file is part of Octave.
--- a/libinterp/dldfcn/__delaunayn__.cc +++ b/libinterp/dldfcn/__delaunayn__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 Kai Habel +Copyright (C) 2000-2013 Kai Habel This file is part of Octave.
--- a/libinterp/dldfcn/__dsearchn__.cc +++ b/libinterp/dldfcn/__dsearchn__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman This file is part of Octave.
--- a/libinterp/dldfcn/__eigs__.cc +++ b/libinterp/dldfcn/__eigs__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/libinterp/dldfcn/__fltk_uigetfile__.cc +++ b/libinterp/dldfcn/__fltk_uigetfile__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 Kai Habel +Copyright (C) 2010-2013 Kai Habel This file is part of Octave.
--- a/libinterp/dldfcn/__glpk__.cc +++ b/libinterp/dldfcn/__glpk__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 Nicolo' Giorgetti +Copyright (C) 2005-2013 Nicolo' Giorgetti Copyright (C) 2013 Sébastien Villemot <sebastien@debian.org> This file is part of Octave.
--- a/libinterp/dldfcn/__init_fltk__.cc +++ b/libinterp/dldfcn/__init_fltk__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 Shai Ayal +Copyright (C) 2007-2013 Shai Ayal This file is part of Octave.
--- a/libinterp/dldfcn/__init_gnuplot__.cc +++ b/libinterp/dldfcn/__init_gnuplot__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/dldfcn/__magick_read__.cc +++ b/libinterp/dldfcn/__magick_read__.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 Carnë Draug -Copyright (C) 2002-2012 Andy Adler +Copyright (C) 2002-2013 Andy Adler Copyright (C) 2008 Thomas L. Scofield Copyright (C) 2010 David Grundberg @@ -652,8 +652,9 @@ } catch (Magick::ErrorCoder& e) { - // FIXME: there's a WarningCoder and ErrorCoder. Shouldn't this - // exception cause an error? + // XXX: why is this error being caught as a warning? It has always + // been like this (function was added the first time to the + // Octave Forge image package with cset d756a7b6d533) warning ("Magick++ coder error: %s", e.what ()); } catch (Magick::Exception& e) @@ -1447,9 +1448,22 @@ idx = 0; Magick::Image img; - img.subImage (idx); - img.subRange (1); - img.ping (filename); + img.subImage (idx); // start ping from this image (in case of multi-page) + img.subRange (1); // ping only one of them + try + { + img.ping (filename); + } + catch (Magick::Warning& w) + { + warning ("Magick++ warning: %s", w.what ()); + } + catch (Magick::Exception& e) + { + error ("Magick++ exception: %s", e.what ()); + return retval; + } + static const char *fields[] = {"rows", "columns", "format", 0}; octave_scalar_map ping = octave_scalar_map (string_vector (fields)); ping.setfield ("rows", octave_value (img.rows ()));
--- a/libinterp/dldfcn/__voronoi__.cc +++ b/libinterp/dldfcn/__voronoi__.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 Kai Habel +Copyright (C) 2000-2013 Kai Habel This file is part of Octave.
--- a/libinterp/dldfcn/amd.cc +++ b/libinterp/dldfcn/amd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 David Bateman +Copyright (C) 2008-2013 David Bateman This file is part of Octave.
--- a/libinterp/dldfcn/ccolamd.cc +++ b/libinterp/dldfcn/ccolamd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/libinterp/dldfcn/chol.cc +++ b/libinterp/dldfcn/chol.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2008-2009 VZLU Prague
--- a/libinterp/dldfcn/colamd.cc +++ b/libinterp/dldfcn/colamd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/dldfcn/convhulln.cc +++ b/libinterp/dldfcn/convhulln.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 Kai Habel +Copyright (C) 2000-2013 Kai Habel This file is part of Octave.
--- a/libinterp/dldfcn/dmperm.cc +++ b/libinterp/dldfcn/dmperm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/libinterp/dldfcn/fftw.cc +++ b/libinterp/dldfcn/fftw.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 David Bateman +Copyright (C) 2006-2013 David Bateman This file is part of Octave.
--- a/libinterp/dldfcn/oct-qhull.h +++ b/libinterp/dldfcn/oct-qhull.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/dldfcn/qr.cc +++ b/libinterp/dldfcn/qr.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2008-2009 VZLU Prague
--- a/libinterp/dldfcn/symbfact.cc +++ b/libinterp/dldfcn/symbfact.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/libinterp/dldfcn/symrcm.cc +++ b/libinterp/dldfcn/symrcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 Michael Weitzel +Copyright (C) 2007-2013 Michael Weitzel This file is part of Octave.
--- a/libinterp/dldfcn/tsearch.cc +++ b/libinterp/dldfcn/tsearch.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 Andreas Stahel +Copyright (C) 2002-2013 Andreas Stahel This file is part of Octave.
--- a/libinterp/gendoc.pl +++ b/libinterp/gendoc.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -w # -# Copyright (C) 2012 Rik Wehbring +# Copyright (C) 2012-2013 Rik Wehbring # # This file is part of Octave. #
--- a/libinterp/genprops.awk +++ b/libinterp/genprops.awk @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/libinterp/mk-errno-list +++ b/libinterp/mk-errno-list @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 2005-2012 John W. Eaton +# Copyright (C) 2005-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/mk-pkg-add +++ b/libinterp/mk-pkg-add @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 2005-2012 John W. Eaton +# Copyright (C) 2005-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/mkbuiltins +++ b/libinterp/mkbuiltins @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 1996-2012 John W. Eaton +# Copyright (C) 1996-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/mkdefs +++ b/libinterp/mkdefs @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 1996-2012 John W. Eaton +# Copyright (C) 1996-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/mkdocs +++ b/libinterp/mkdocs @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 1999-2012 John W. Eaton +# Copyright (C) 1999-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/mkops +++ b/libinterp/mkops @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 1997-2012 John W. Eaton +# Copyright (C) 1997-2013 John W. Eaton # # This file is part of Octave. #
--- a/libinterp/oct-conf.in.h +++ b/libinterp/oct-conf.in.h @@ -1,7 +1,7 @@ // %NO_EDIT_WARNING% /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-base-diag.cc +++ b/libinterp/octave-value/ov-base-diag.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-base-diag.h +++ b/libinterp/octave-value/ov-base-diag.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-base-int.cc +++ b/libinterp/octave-value/ov-base-int.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-base-int.h +++ b/libinterp/octave-value/ov-base-int.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-base-mat.cc +++ b/libinterp/octave-value/ov-base-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-base-mat.h +++ b/libinterp/octave-value/ov-base-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1998-2012 John W. Eaton +Copyright (C) 1998-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-base-scalar.cc +++ b/libinterp/octave-value/ov-base-scalar.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-base-scalar.h +++ b/libinterp/octave-value/ov-base-scalar.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-base-sparse.cc +++ b/libinterp/octave-value/ov-base-sparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague
--- a/libinterp/octave-value/ov-base-sparse.h +++ b/libinterp/octave-value/ov-base-sparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-base.cc +++ b/libinterp/octave-value/ov-base.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-base.h +++ b/libinterp/octave-value/ov-base.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-bool-mat.cc +++ b/libinterp/octave-value/ov-bool-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-bool-mat.h +++ b/libinterp/octave-value/ov-bool-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-bool-sparse.cc +++ b/libinterp/octave-value/ov-bool-sparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-bool-sparse.h +++ b/libinterp/octave-value/ov-bool-sparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-bool.cc +++ b/libinterp/octave-value/ov-bool.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-bool.h +++ b/libinterp/octave-value/ov-bool.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-builtin.cc +++ b/libinterp/octave-value/ov-builtin.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-builtin.h +++ b/libinterp/octave-value/ov-builtin.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-cell.cc +++ b/libinterp/octave-value/ov-cell.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-cell.h +++ b/libinterp/octave-value/ov-cell.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-ch-mat.cc +++ b/libinterp/octave-value/ov-ch-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-ch-mat.h +++ b/libinterp/octave-value/ov-ch-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-class.cc +++ b/libinterp/octave-value/ov-class.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-class.h +++ b/libinterp/octave-value/ov-class.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-colon.cc +++ b/libinterp/octave-value/ov-colon.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-colon.h +++ b/libinterp/octave-value/ov-colon.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-complex.cc +++ b/libinterp/octave-value/ov-complex.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-complex.h +++ b/libinterp/octave-value/ov-complex.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-cs-list.cc +++ b/libinterp/octave-value/ov-cs-list.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-cs-list.h +++ b/libinterp/octave-value/ov-cs-list.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-diag.cc +++ b/libinterp/octave-value/ov-cx-diag.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-diag.h +++ b/libinterp/octave-value/ov-cx-diag.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-mat.cc +++ b/libinterp/octave-value/ov-cx-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-mat.h +++ b/libinterp/octave-value/ov-cx-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-sparse.cc +++ b/libinterp/octave-value/ov-cx-sparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-cx-sparse.h +++ b/libinterp/octave-value/ov-cx-sparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-dld-fcn.cc +++ b/libinterp/octave-value/ov-dld-fcn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-dld-fcn.h +++ b/libinterp/octave-value/ov-dld-fcn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-fcn-handle.cc +++ b/libinterp/octave-value/ov-fcn-handle.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. Copyright (C) 2010 Jaroslav Hajek
--- a/libinterp/octave-value/ov-fcn-handle.h +++ b/libinterp/octave-value/ov-fcn-handle.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-fcn-inline.cc +++ b/libinterp/octave-value/ov-fcn-inline.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman This file is part of Octave.
--- a/libinterp/octave-value/ov-fcn-inline.h +++ b/libinterp/octave-value/ov-fcn-inline.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman This file is part of Octave.
--- a/libinterp/octave-value/ov-fcn.cc +++ b/libinterp/octave-value/ov-fcn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-fcn.h +++ b/libinterp/octave-value/ov-fcn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-float.cc +++ b/libinterp/octave-value/ov-float.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-float.h +++ b/libinterp/octave-value/ov-float.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-complex.cc +++ b/libinterp/octave-value/ov-flt-complex.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-complex.h +++ b/libinterp/octave-value/ov-flt-complex.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-cx-diag.cc +++ b/libinterp/octave-value/ov-flt-cx-diag.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-cx-diag.h +++ b/libinterp/octave-value/ov-flt-cx-diag.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-cx-mat.cc +++ b/libinterp/octave-value/ov-flt-cx-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-cx-mat.h +++ b/libinterp/octave-value/ov-flt-cx-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-re-diag.cc +++ b/libinterp/octave-value/ov-flt-re-diag.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-re-diag.h +++ b/libinterp/octave-value/ov-flt-re-diag.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-re-mat.cc +++ b/libinterp/octave-value/ov-flt-re-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-flt-re-mat.h +++ b/libinterp/octave-value/ov-flt-re-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-int-traits.h +++ b/libinterp/octave-value/ov-int-traits.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int16.cc +++ b/libinterp/octave-value/ov-int16.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int16.h +++ b/libinterp/octave-value/ov-int16.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int32.cc +++ b/libinterp/octave-value/ov-int32.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int32.h +++ b/libinterp/octave-value/ov-int32.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int64.cc +++ b/libinterp/octave-value/ov-int64.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int64.h +++ b/libinterp/octave-value/ov-int64.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int8.cc +++ b/libinterp/octave-value/ov-int8.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-int8.h +++ b/libinterp/octave-value/ov-int8.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-intx.h +++ b/libinterp/octave-value/ov-intx.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-java.cc +++ b/libinterp/octave-value/ov-java.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/octave-value/ov-java.h +++ b/libinterp/octave-value/ov-java.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/libinterp/octave-value/ov-lazy-idx.cc +++ b/libinterp/octave-value/ov-lazy-idx.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-lazy-idx.h +++ b/libinterp/octave-value/ov-lazy-idx.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-mex-fcn.cc +++ b/libinterp/octave-value/ov-mex-fcn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-mex-fcn.h +++ b/libinterp/octave-value/ov-mex-fcn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-null-mat.cc +++ b/libinterp/octave-value/ov-null-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-null-mat.h +++ b/libinterp/octave-value/ov-null-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-oncleanup.cc +++ b/libinterp/octave-value/ov-oncleanup.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-oncleanup.h +++ b/libinterp/octave-value/ov-oncleanup.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-perm.cc +++ b/libinterp/octave-value/ov-perm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-perm.h +++ b/libinterp/octave-value/ov-perm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-range.cc +++ b/libinterp/octave-value/ov-range.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-range.h +++ b/libinterp/octave-value/ov-range.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-re-diag.cc +++ b/libinterp/octave-value/ov-re-diag.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-re-diag.h +++ b/libinterp/octave-value/ov-re-diag.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/octave-value/ov-re-mat.cc +++ b/libinterp/octave-value/ov-re-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-re-mat.h +++ b/libinterp/octave-value/ov-re-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-re-sparse.cc +++ b/libinterp/octave-value/ov-re-sparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-re-sparse.h +++ b/libinterp/octave-value/ov-re-sparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/octave-value/ov-scalar.cc +++ b/libinterp/octave-value/ov-scalar.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-scalar.h +++ b/libinterp/octave-value/ov-scalar.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-str-mat.cc +++ b/libinterp/octave-value/ov-str-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-str-mat.h +++ b/libinterp/octave-value/ov-str-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov-struct.cc +++ b/libinterp/octave-value/ov-struct.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-struct.h +++ b/libinterp/octave-value/ov-struct.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-type-conv.h +++ b/libinterp/octave-value/ov-type-conv.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-typeinfo.cc +++ b/libinterp/octave-value/ov-typeinfo.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-typeinfo.h +++ b/libinterp/octave-value/ov-typeinfo.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint16.cc +++ b/libinterp/octave-value/ov-uint16.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint16.h +++ b/libinterp/octave-value/ov-uint16.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint32.cc +++ b/libinterp/octave-value/ov-uint32.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint32.h +++ b/libinterp/octave-value/ov-uint32.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint64.cc +++ b/libinterp/octave-value/ov-uint64.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint64.h +++ b/libinterp/octave-value/ov-uint64.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint8.cc +++ b/libinterp/octave-value/ov-uint8.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-uint8.h +++ b/libinterp/octave-value/ov-uint8.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-usr-fcn.cc +++ b/libinterp/octave-value/ov-usr-fcn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov-usr-fcn.h +++ b/libinterp/octave-value/ov-usr-fcn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave-value/ov.cc +++ b/libinterp/octave-value/ov.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave-value/ov.h +++ b/libinterp/octave-value/ov.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/libinterp/octave.cc +++ b/libinterp/octave.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/octave.h +++ b/libinterp/octave.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-b-b.cc +++ b/libinterp/operators/op-b-b.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-b-bm.cc +++ b/libinterp/operators/op-b-bm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-b-sbm.cc +++ b/libinterp/operators/op-b-sbm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-bm-b.cc +++ b/libinterp/operators/op-bm-b.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Cai Jianming +Copyright (C) 2001-2013 Cai Jianming This file is part of Octave.
--- a/libinterp/operators/op-bm-bm.cc +++ b/libinterp/operators/op-bm-bm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-bm-sbm.cc +++ b/libinterp/operators/op-bm-sbm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-cdm-cdm.cc +++ b/libinterp/operators/op-cdm-cdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cdm-cm.cc +++ b/libinterp/operators/op-cdm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cdm-cs.cc +++ b/libinterp/operators/op-cdm-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cdm-dm.cc +++ b/libinterp/operators/op-cdm-dm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cdm-m.cc +++ b/libinterp/operators/op-cdm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cdm-s.cc +++ b/libinterp/operators/op-cdm-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cell.cc +++ b/libinterp/operators/op-cell.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-chm.cc +++ b/libinterp/operators/op-chm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-class.cc +++ b/libinterp/operators/op-class.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cm-cdm.cc +++ b/libinterp/operators/op-cm-cdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cm-cm.cc +++ b/libinterp/operators/op-cm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cm-cs.cc +++ b/libinterp/operators/op-cm-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cm-dm.cc +++ b/libinterp/operators/op-cm-dm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cm-m.cc +++ b/libinterp/operators/op-cm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cm-pm.cc +++ b/libinterp/operators/op-cm-pm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-cm-s.cc +++ b/libinterp/operators/op-cm-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cm-scm.cc +++ b/libinterp/operators/op-cm-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-cm-sm.cc +++ b/libinterp/operators/op-cm-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-cs-cm.cc +++ b/libinterp/operators/op-cs-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cs-cs.cc +++ b/libinterp/operators/op-cs-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cs-m.cc +++ b/libinterp/operators/op-cs-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cs-s.cc +++ b/libinterp/operators/op-cs-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-cs-scm.cc +++ b/libinterp/operators/op-cs-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-cs-sm.cc +++ b/libinterp/operators/op-cs-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-dm-cdm.cc +++ b/libinterp/operators/op-dm-cdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-cm.cc +++ b/libinterp/operators/op-dm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-cs.cc +++ b/libinterp/operators/op-dm-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-dm.cc +++ b/libinterp/operators/op-dm-dm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-m.cc +++ b/libinterp/operators/op-dm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-s.cc +++ b/libinterp/operators/op-dm-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-scm.cc +++ b/libinterp/operators/op-dm-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jason Riedy, Jaroslav Hajek +Copyright (C) 2009-2013 Jason Riedy, Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-sm.cc +++ b/libinterp/operators/op-dm-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jason Riedy, Jaroslav Hajek +Copyright (C) 2009-2013 Jason Riedy, Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dm-template.cc +++ b/libinterp/operators/op-dm-template.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-dms-template.cc +++ b/libinterp/operators/op-dms-template.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-double-conv.cc +++ b/libinterp/operators/op-double-conv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fcdm.cc +++ b/libinterp/operators/op-fcdm-fcdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fcm.cc +++ b/libinterp/operators/op-fcdm-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fcs.cc +++ b/libinterp/operators/op-fcdm-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fdm.cc +++ b/libinterp/operators/op-fcdm-fdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fm.cc +++ b/libinterp/operators/op-fcdm-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcdm-fs.cc +++ b/libinterp/operators/op-fcdm-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcm-fcdm.cc +++ b/libinterp/operators/op-fcm-fcdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcm-fcm.cc +++ b/libinterp/operators/op-fcm-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcm-fcs.cc +++ b/libinterp/operators/op-fcm-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcm-fdm.cc +++ b/libinterp/operators/op-fcm-fdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcm-fm.cc +++ b/libinterp/operators/op-fcm-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcm-fs.cc +++ b/libinterp/operators/op-fcm-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcm-pm.cc +++ b/libinterp/operators/op-fcm-pm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fcn.cc +++ b/libinterp/operators/op-fcn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/libinterp/operators/op-fcs-fcm.cc +++ b/libinterp/operators/op-fcs-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcs-fcs.cc +++ b/libinterp/operators/op-fcs-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcs-fm.cc +++ b/libinterp/operators/op-fcs-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fcs-fs.cc +++ b/libinterp/operators/op-fcs-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fdm-fcdm.cc +++ b/libinterp/operators/op-fdm-fcdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fdm-fcm.cc +++ b/libinterp/operators/op-fdm-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fdm-fcs.cc +++ b/libinterp/operators/op-fdm-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fdm-fdm.cc +++ b/libinterp/operators/op-fdm-fdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fdm-fm.cc +++ b/libinterp/operators/op-fdm-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fdm-fs.cc +++ b/libinterp/operators/op-fdm-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-float-conv.cc +++ b/libinterp/operators/op-float-conv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fm-fcdm.cc +++ b/libinterp/operators/op-fm-fcdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fm-fcm.cc +++ b/libinterp/operators/op-fm-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fm-fcs.cc +++ b/libinterp/operators/op-fm-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fm-fdm.cc +++ b/libinterp/operators/op-fm-fdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fm-fm.cc +++ b/libinterp/operators/op-fm-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fm-fs.cc +++ b/libinterp/operators/op-fm-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fm-pm.cc +++ b/libinterp/operators/op-fm-pm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-fs-fcm.cc +++ b/libinterp/operators/op-fs-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fs-fcs.cc +++ b/libinterp/operators/op-fs-fcs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fs-fm.cc +++ b/libinterp/operators/op-fs-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-fs-fs.cc +++ b/libinterp/operators/op-fs-fs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-i16-i16.cc +++ b/libinterp/operators/op-i16-i16.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-i32-i32.cc +++ b/libinterp/operators/op-i32-i32.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-i64-i64.cc +++ b/libinterp/operators/op-i64-i64.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-i8-i8.cc +++ b/libinterp/operators/op-i8-i8.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-int-concat.cc +++ b/libinterp/operators/op-int-concat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-int-conv.cc +++ b/libinterp/operators/op-int-conv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-int.h +++ b/libinterp/operators/op-int.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-m-cdm.cc +++ b/libinterp/operators/op-m-cdm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-m-cm.cc +++ b/libinterp/operators/op-m-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-m-cs.cc +++ b/libinterp/operators/op-m-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-m-dm.cc +++ b/libinterp/operators/op-m-dm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-m-m.cc +++ b/libinterp/operators/op-m-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-m-pm.cc +++ b/libinterp/operators/op-m-pm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-m-s.cc +++ b/libinterp/operators/op-m-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-m-scm.cc +++ b/libinterp/operators/op-m-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-m-sm.cc +++ b/libinterp/operators/op-m-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-pm-cm.cc +++ b/libinterp/operators/op-pm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-pm-fcm.cc +++ b/libinterp/operators/op-pm-fcm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-pm-fm.cc +++ b/libinterp/operators/op-pm-fm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-pm-m.cc +++ b/libinterp/operators/op-pm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-pm-pm.cc +++ b/libinterp/operators/op-pm-pm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-pm-scm.cc +++ b/libinterp/operators/op-pm-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jason Riedy +Copyright (C) 2009-2013 Jason Riedy This file is part of Octave.
--- a/libinterp/operators/op-pm-sm.cc +++ b/libinterp/operators/op-pm-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jason Riedy +Copyright (C) 2009-2013 Jason Riedy This file is part of Octave.
--- a/libinterp/operators/op-pm-template.cc +++ b/libinterp/operators/op-pm-template.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/operators/op-range.cc +++ b/libinterp/operators/op-range.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-s-cm.cc +++ b/libinterp/operators/op-s-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-s-cs.cc +++ b/libinterp/operators/op-s-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-s-m.cc +++ b/libinterp/operators/op-s-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-s-s.cc +++ b/libinterp/operators/op-s-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-s-scm.cc +++ b/libinterp/operators/op-s-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-s-sm.cc +++ b/libinterp/operators/op-s-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sbm-b.cc +++ b/libinterp/operators/op-sbm-b.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sbm-bm.cc +++ b/libinterp/operators/op-sbm-bm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sbm-sbm.cc +++ b/libinterp/operators/op-sbm-sbm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-cm.cc +++ b/libinterp/operators/op-scm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-cs.cc +++ b/libinterp/operators/op-scm-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-m.cc +++ b/libinterp/operators/op-scm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-s.cc +++ b/libinterp/operators/op-scm-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-scm.cc +++ b/libinterp/operators/op-scm-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-scm-sm.cc +++ b/libinterp/operators/op-scm-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-cm.cc +++ b/libinterp/operators/op-sm-cm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-cs.cc +++ b/libinterp/operators/op-sm-cs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-m.cc +++ b/libinterp/operators/op-sm-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-s.cc +++ b/libinterp/operators/op-sm-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-scm.cc +++ b/libinterp/operators/op-sm-scm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-sm-sm.cc +++ b/libinterp/operators/op-sm-sm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/libinterp/operators/op-str-m.cc +++ b/libinterp/operators/op-str-m.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-str-s.cc +++ b/libinterp/operators/op-str-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-str-str.cc +++ b/libinterp/operators/op-str-str.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-struct.cc +++ b/libinterp/operators/op-struct.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-ui16-ui16.cc +++ b/libinterp/operators/op-ui16-ui16.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-ui32-ui32.cc +++ b/libinterp/operators/op-ui32-ui32.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-ui64-ui64.cc +++ b/libinterp/operators/op-ui64-ui64.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/op-ui8-ui8.cc +++ b/libinterp/operators/op-ui8-ui8.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/operators/ops.h +++ b/libinterp/operators/ops.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/libinterp/parse-tree/lex.h +++ b/libinterp/parse-tree/lex.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave. @@ -501,8 +501,50 @@ bool eof; }; + // Collect comment text. + + class + comment_buffer + { + public: + + comment_buffer (void) : comment_list (0) { } + + ~comment_buffer (void) { delete comment_list; } + + void append (const std::string& s, octave_comment_elt::comment_type t) + { + if (! comment_list) + comment_list = new octave_comment_list (); + + comment_list->append (s, t); + } + + // Caller is expected to delete the returned value. + + octave_comment_list *get_comment (void) + { + octave_comment_list *retval = comment_list; + + comment_list = 0; + + return retval; + } + + void reset (void) + { + delete comment_list; + + comment_list = 0; + } + + private: + + octave_comment_list *comment_list; + }; + octave_base_lexer (void) - : lexical_feedback (), scanner (0), input_buf () + : lexical_feedback (), scanner (0), input_buf (), comment_buf () { init (); } @@ -553,6 +595,8 @@ void finish_comment (octave_comment_elt::comment_type typ); + octave_comment_list *get_comment (void) { return comment_buf.get_comment (); } + int handle_close_bracket (int bracket_type); bool looks_like_command_arg (void); @@ -591,6 +635,9 @@ // Object that reads and buffers input. input_buffer input_buf; + // Object that collects comment text. + comment_buffer comment_buf; + virtual void increment_promptflag (void) = 0; virtual void decrement_promptflag (void) = 0; @@ -643,9 +690,6 @@ int show_token (int tok); - // For unwind protect. - static void cleanup (octave_base_lexer *lexer) { delete lexer; } - protected: std::stack<int> start_state_stack; @@ -663,15 +707,15 @@ public: octave_lexer (void) - : octave_base_lexer (), input_reader () + : octave_base_lexer (), input_reader (this) { } octave_lexer (FILE *file) - : octave_base_lexer (), input_reader (file) + : octave_base_lexer (), input_reader (file, this) { } octave_lexer (const std::string& eval_string) - : octave_base_lexer (), input_reader (eval_string) + : octave_base_lexer (), input_reader (eval_string, this) { } void reset (void) @@ -696,17 +740,17 @@ bool input_from_terminal (void) const { - return input_source () == "terminal"; + return input_reader.input_from_terminal (); } bool input_from_file (void) const { - return input_source () == "file"; + return input_reader.input_from_file (); } bool input_from_eval_string (void) const { - return input_source () == "eval_string"; + return input_reader.input_from_eval_string (); } int fill_flex_buffer (char *buf, unsigned int max_size);
--- a/libinterp/parse-tree/lex.ll +++ b/libinterp/parse-tree/lex.ll @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave. @@ -649,6 +649,18 @@ } %{ +// End of a block of full-line comments. +%} + +<LINE_COMMENT_START><<EOF>> { + curr_lexer->lexer_debug ("<LINE_COMMENT_START><<EOF>>"); + + curr_lexer->finish_comment (octave_comment_elt::full_line); + + curr_lexer->pop_start_state (); + } + +%{ // Double-quoted character strings. %} @@ -2039,6 +2051,8 @@ yyrestart (stdin, scanner); lexical_feedback::reset (); + + comment_buf.reset (); } void @@ -2539,7 +2553,7 @@ if (copyright) typ = octave_comment_elt::copyright; - octave_comment_buffer::append (comment_text, typ); + comment_buf.append (comment_text, typ); comment_text = "";
--- a/libinterp/parse-tree/oct-parse.in.yy +++ b/libinterp/parse-tree/oct-parse.in.yy @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 David Grundberg Copyright (C) 2009-2010 VZLU Prague @@ -107,16 +107,6 @@ static void yyerror (octave_base_parser& parser, const char *s); -// Finish building a statement. -template <class T> -static tree_statement * -make_statement (T *arg) -{ - octave_comment_list *comment = octave_comment_buffer::get_comment (); - - return new tree_statement (arg, comment); -} - #define ABORT_PARSE \ do \ { \ @@ -136,6 +126,11 @@ // Bison declarations. +// The grammar currently has 14 shift/reduce conflicts. Ensure that +// we notice if that number changes. + +%expect 14 + // Don't add spaces around the = here; it causes some versions of // bison to fail to properly recognize the directive. @@ -418,11 +413,11 @@ ; statement : expression - { $$ = make_statement ($1); } + { $$ = parser.make_statement ($1); } | command - { $$ = make_statement ($1); } + { $$ = parser.make_statement ($1); } | word_list_cmd - { $$ = make_statement ($1); } + { $$ = parser.make_statement ($1); } ; // ================= @@ -1687,7 +1682,7 @@ ; stash_comment : // empty - { $$ = octave_comment_buffer::get_comment (); } + { $$ = lexer.get_comment (); } ; parse_error : LEXICAL_ERROR @@ -1762,11 +1757,6 @@ delete &lexer; } -void octave_base_parser::init (void) -{ - LEXER = &lexer; -} - void octave_base_parser::reset (void) { @@ -2447,7 +2437,7 @@ if (end_token_ok (end_tok, token::unwind_protect_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = unwind_tok->line (); int c = unwind_tok->column (); @@ -2479,7 +2469,7 @@ if (end_token_ok (end_tok, token::try_catch_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = try_tok->line (); int c = try_tok->column (); @@ -2499,6 +2489,9 @@ id = dynamic_cast<tree_identifier *> (expr); cleanup_stmts->pop_front (); + + stmt->set_expression (0); + delete stmt; } } } @@ -2530,7 +2523,7 @@ if (end_token_ok (end_tok, token::while_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); lexer.looping--; @@ -2558,7 +2551,7 @@ { maybe_warn_assign_as_truth_value (expr); - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); lexer.looping--; @@ -2585,7 +2578,7 @@ if (end_token_ok (end_tok, parfor ? token::parfor_end : token::for_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); lexer.looping--; @@ -2679,7 +2672,7 @@ if (end_token_ok (end_tok, token::if_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = if_tok->line (); int c = if_tok->column (); @@ -2732,7 +2725,7 @@ if (end_token_ok (end_tok, token::switch_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = switch_tok->line (); int c = switch_tok->column (); @@ -2916,7 +2909,7 @@ if (fcn) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); fcn->stash_trailing_comment (tc); fcn->stash_fcn_end_location (end_fcn_stmt->line (), @@ -3187,7 +3180,7 @@ bison_error ("invalid classdef definition, the class name must match the file name"); else if (end_token_ok (end_tok, token::classdef_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = tok_val->line (); int c = tok_val->column (); @@ -3218,7 +3211,7 @@ if (end_token_ok (end_tok, token::properties_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = tok_val->line (); int c = tok_val->column (); @@ -3245,7 +3238,7 @@ if (end_token_ok (end_tok, token::methods_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = tok_val->line (); int c = tok_val->column (); @@ -3272,7 +3265,7 @@ if (end_token_ok (end_tok, token::events_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = tok_val->line (); int c = tok_val->column (); @@ -3299,7 +3292,7 @@ if (end_token_ok (end_tok, token::enumeration_end)) { - octave_comment_list *tc = octave_comment_buffer::get_comment (); + octave_comment_list *tc = lexer.comment_buf.get_comment (); int l = tok_val->line (); int c = tok_val->column (); @@ -3649,6 +3642,16 @@ return list; } +// Finish building a statement. +template <class T> +tree_statement * +octave_base_parser::make_statement (T *arg) +{ + octave_comment_list *comment = lexer.get_comment (); + + return new tree_statement (arg, comment); +} + tree_statement_list * octave_base_parser::make_statement_list (tree_statement *stmt) { @@ -3729,8 +3732,6 @@ octave_push_parser::init (void) { parser_state = yypstate_new (); - - octave_base_parser::init (); } // Parse input from INPUT. Pass TRUE for EOF if the end of INPUT should @@ -3770,15 +3771,6 @@ static void safe_fclose (FILE *f) { - // FIXME -- comments at the end of an input file are - // discarded (otherwise, they would be appended to the next - // statement, possibly from the command line or another file, which - // can be quite confusing). - - octave_comment_list *tc = octave_comment_buffer::get_comment (); - - delete tc; - if (f) fclose (static_cast<FILE *> (f)); } @@ -4574,11 +4566,6 @@ { octave_value_list retval; - unwind_protect frame; - - // octave_base_parser constructor sets this for us. - frame.protect_var (LEXER); - octave_parser parser (eval_str); do @@ -4587,9 +4574,6 @@ parse_status = parser.run (); - // Unmark forced variables. - frame.run (1); - if (parse_status == 0) { if (parser.stmt_list)
--- a/libinterp/parse-tree/octave.gperf +++ b/libinterp/parse-tree/octave.gperf @@ -1,7 +1,7 @@ %{ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/parse.h +++ b/libinterp/parse-tree/parse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave. @@ -152,14 +152,10 @@ curr_class_name (), curr_package_name (), function_scopes (), primary_fcn_ptr (0), subfunction_names (), classdef_object (0), stmt_list (0), lexer (lxr) - { - init (); - } + { } ~octave_base_parser (void); - void init (void); - void reset (void); // Error mesages for mismatched end tokens. @@ -382,6 +378,10 @@ tree_statement_list * set_stmt_print_flag (tree_statement_list *, char, bool); + // Finish building a statement. + template <class T> + tree_statement *make_statement (T *arg); + // Create a statement list. tree_statement_list *make_statement_list (tree_statement *stmt);
--- a/libinterp/parse-tree/pt-all.h +++ b/libinterp/parse-tree/pt-all.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-arg-list.cc +++ b/libinterp/parse-tree/pt-arg-list.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-arg-list.h +++ b/libinterp/parse-tree/pt-arg-list.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-assign.cc +++ b/libinterp/parse-tree/pt-assign.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-assign.h +++ b/libinterp/parse-tree/pt-assign.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-binop.cc +++ b/libinterp/parse-tree/pt-binop.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-binop.h +++ b/libinterp/parse-tree/pt-binop.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-bp.cc +++ b/libinterp/parse-tree/pt-bp.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Ben Sapp +Copyright (C) 2001-2013 Ben Sapp This file is part of Octave.
--- a/libinterp/parse-tree/pt-bp.h +++ b/libinterp/parse-tree/pt-bp.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 Ben Sapp +Copyright (C) 2001-2013 Ben Sapp This file is part of Octave.
--- a/libinterp/parse-tree/pt-cbinop.cc +++ b/libinterp/parse-tree/pt-cbinop.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/parse-tree/pt-cbinop.h +++ b/libinterp/parse-tree/pt-cbinop.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/libinterp/parse-tree/pt-cell.cc +++ b/libinterp/parse-tree/pt-cell.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-cell.h +++ b/libinterp/parse-tree/pt-cell.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-check.cc +++ b/libinterp/parse-tree/pt-check.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-check.h +++ b/libinterp/parse-tree/pt-check.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-cmd.cc +++ b/libinterp/parse-tree/pt-cmd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-cmd.h +++ b/libinterp/parse-tree/pt-cmd.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-colon.cc +++ b/libinterp/parse-tree/pt-colon.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-colon.h +++ b/libinterp/parse-tree/pt-colon.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-const.cc +++ b/libinterp/parse-tree/pt-const.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-const.h +++ b/libinterp/parse-tree/pt-const.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-decl.cc +++ b/libinterp/parse-tree/pt-decl.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-decl.h +++ b/libinterp/parse-tree/pt-decl.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-eval.cc +++ b/libinterp/parse-tree/pt-eval.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-eval.h +++ b/libinterp/parse-tree/pt-eval.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-except.cc +++ b/libinterp/parse-tree/pt-except.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-except.h +++ b/libinterp/parse-tree/pt-except.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-exp.cc +++ b/libinterp/parse-tree/pt-exp.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-exp.h +++ b/libinterp/parse-tree/pt-exp.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-fcn-handle.cc +++ b/libinterp/parse-tree/pt-fcn-handle.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-fcn-handle.h +++ b/libinterp/parse-tree/pt-fcn-handle.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-id.cc +++ b/libinterp/parse-tree/pt-id.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-id.h +++ b/libinterp/parse-tree/pt-id.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-idx.cc +++ b/libinterp/parse-tree/pt-idx.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-idx.h +++ b/libinterp/parse-tree/pt-idx.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-jump.cc +++ b/libinterp/parse-tree/pt-jump.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-jump.h +++ b/libinterp/parse-tree/pt-jump.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-loop.cc +++ b/libinterp/parse-tree/pt-loop.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-loop.h +++ b/libinterp/parse-tree/pt-loop.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-mat.cc +++ b/libinterp/parse-tree/pt-mat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave. @@ -330,7 +330,8 @@ if (!any_class && val.is_object ()) any_class = true; - all_1x1 = all_1x1 && val.numel () == 1; + // Special treatment of sparse matrices to avoid out-of-memory error + all_1x1 = all_1x1 && ! val.is_sparse_type () && val.numel () == 1; } void
--- a/libinterp/parse-tree/pt-mat.h +++ b/libinterp/parse-tree/pt-mat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-misc.cc +++ b/libinterp/parse-tree/pt-misc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-misc.h +++ b/libinterp/parse-tree/pt-misc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-pr-code.cc +++ b/libinterp/parse-tree/pt-pr-code.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-pr-code.h +++ b/libinterp/parse-tree/pt-pr-code.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-select.cc +++ b/libinterp/parse-tree/pt-select.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-select.h +++ b/libinterp/parse-tree/pt-select.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-stmt.cc +++ b/libinterp/parse-tree/pt-stmt.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-stmt.h +++ b/libinterp/parse-tree/pt-stmt.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-unop.cc +++ b/libinterp/parse-tree/pt-unop.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-unop.h +++ b/libinterp/parse-tree/pt-unop.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt-walk.h +++ b/libinterp/parse-tree/pt-walk.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt.cc +++ b/libinterp/parse-tree/pt.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/pt.h +++ b/libinterp/parse-tree/pt.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/token.cc +++ b/libinterp/parse-tree/token.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/parse-tree/token.h +++ b/libinterp/parse-tree/token.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/template-inst/Array-jit.cc +++ b/libinterp/template-inst/Array-jit.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Max Brister +Copyright (C) 2012-2013 Max Brister This file is part of Octave.
--- a/libinterp/template-inst/Array-os.cc +++ b/libinterp/template-inst/Array-os.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/template-inst/Array-sym.cc +++ b/libinterp/template-inst/Array-sym.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/template-inst/Array-tc.cc +++ b/libinterp/template-inst/Array-tc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/libinterp/version.in.h +++ b/libinterp/version.in.h @@ -1,7 +1,7 @@ // %NO_EDIT_WARNING% /* -Copyright (C) 1992-2012 John W. Eaton +Copyright (C) 1992-2013 John W. Eaton This file is part of Octave. @@ -32,6 +32,8 @@ #define OCTAVE_COPYRIGHT %OCTAVE_COPYRIGHT% +#include <string> + extern std::string octave_www_statement (bool html = false); extern std::string octave_contrib_statement (bool html = false);
--- a/liboctave/Makefile.am +++ b/liboctave/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's liboctave directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/array/Array-C.cc +++ b/liboctave/array/Array-C.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/Array-b.cc +++ b/liboctave/array/Array-b.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-ch.cc +++ b/liboctave/array/Array-ch.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-d.cc +++ b/liboctave/array/Array-d.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/Array-f.cc +++ b/liboctave/array/Array-f.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/Array-fC.cc +++ b/liboctave/array/Array-fC.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/Array-i.cc +++ b/liboctave/array/Array-i.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-idx-vec.cc +++ b/liboctave/array/Array-idx-vec.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-s.cc +++ b/liboctave/array/Array-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-str.cc +++ b/liboctave/array/Array-str.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-util.cc +++ b/liboctave/array/Array-util.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/Array-util.h +++ b/liboctave/array/Array-util.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array-voidp.cc +++ b/liboctave/array/Array-voidp.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array.cc +++ b/liboctave/array/Array.cc @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/array/Array.h +++ b/liboctave/array/Array.h @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2010 VZLU Prague
--- a/liboctave/array/Array2.h +++ b/liboctave/array/Array2.h @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Array3.h +++ b/liboctave/array/Array3.h @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/ArrayN.h +++ b/liboctave/array/ArrayN.h @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/CColVector.cc +++ b/liboctave/array/CColVector.cc @@ -1,7 +1,7 @@ // ColumnVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -162,7 +162,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -186,7 +186,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -250,7 +250,7 @@ ComplexColumnVector ComplexColumnVector::extract (octave_idx_type r1, octave_idx_type r2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } octave_idx_type new_r = r2 - r1 + 1;
--- a/liboctave/array/CColVector.h +++ b/liboctave/array/CColVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/CDiagMatrix.cc +++ b/liboctave/array/CDiagMatrix.cc @@ -1,7 +1,7 @@ // DiagMatrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave. @@ -250,8 +250,8 @@ ComplexMatrix ComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/CDiagMatrix.h +++ b/liboctave/array/CDiagMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/CMatrix.cc +++ b/liboctave/array/CMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague, a.s. @@ -579,8 +579,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >= c1) { @@ -607,8 +607,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >=c1) { @@ -929,8 +929,8 @@ ComplexMatrix ComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } return index (idx_vector (r1, r2+1), idx_vector (c1, c2+1)); }
--- a/liboctave/array/CMatrix.h +++ b/liboctave/array/CMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/CNDArray.cc +++ b/liboctave/array/CNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/CNDArray.h +++ b/liboctave/array/CNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/CRowVector.cc +++ b/liboctave/array/CRowVector.cc @@ -1,7 +1,7 @@ // RowVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave. @@ -160,7 +160,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -184,7 +184,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -242,7 +242,7 @@ ComplexRowVector ComplexRowVector::extract (octave_idx_type c1, octave_idx_type c2) const { - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/CRowVector.h +++ b/liboctave/array/CRowVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/CSparse.cc +++ b/liboctave/array/CSparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague @@ -258,19 +258,26 @@ { SparseComplexMatrix result; dim_vector dv = dims (); - - if (dv.numel () == 0 || dim >= dv.length ()) - return result; + octave_idx_type nr = dv(0); + octave_idx_type nc = dv(1); + + + if (dim >= dv.length ()) + { + idx_arg.resize (dim_vector (nr, nc), 0); + return *this; + } if (dim < 0) dim = dv.first_non_singleton (); - octave_idx_type nr = dv(0); - octave_idx_type nc = dv(1); - if (dim == 0) { - idx_arg.clear (1, nc); + idx_arg.resize (dim_vector (nr == 0 ? 0 : 1, nc), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseComplexMatrix (nr == 0 ? 0 : 1, nc); + octave_idx_type nel = 0; for (octave_idx_type j = 0; j < nc; j++) { @@ -330,28 +337,24 @@ } else { - idx_arg.resize (dim_vector (nr, 1), 0); - - for (octave_idx_type i = cidx (0); i < cidx (1); i++) - idx_arg.elem (ridx (i)) = -1; + idx_arg.resize (dim_vector (nr, nc == 0 ? 0 : 1), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseComplexMatrix (nr, nc == 0 ? 0 : 1); + + OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr); + + for (octave_idx_type i = 0; i < nr; i++) + found [i] = 0; for (octave_idx_type j = 0; j < nc; j++) - for (octave_idx_type i = 0; i < nr; i++) - { - if (idx_arg.elem (i) != -1) - continue; - bool found = false; - for (octave_idx_type k = cidx (j); k < cidx (j+1); k++) - if (ridx (k) == i) - { - found = true; - break; - } - - if (!found) - idx_arg.elem (i) = j; - - } + for (octave_idx_type i = cidx(j); i < cidx(j+1); i++) + if (found [ridx (i)] == -j) + found [ridx (i)] = -j - 1; + + for (octave_idx_type i = 0; i < nr; i++) + if (found [i] > -nc && found [i] < 0) + idx_arg.elem (i) = -found [i]; for (octave_idx_type j = 0; j < nc; j++) { @@ -413,19 +416,25 @@ { SparseComplexMatrix result; dim_vector dv = dims (); - - if (dv.numel () == 0 || dim >= dv.length ()) - return result; + octave_idx_type nr = dv(0); + octave_idx_type nc = dv(1); + + if (dim >= dv.length ()) + { + idx_arg.resize (dim_vector (nr, nc), 0); + return *this; + } if (dim < 0) dim = dv.first_non_singleton (); - octave_idx_type nr = dv(0); - octave_idx_type nc = dv(1); - if (dim == 0) { - idx_arg.clear (1, nc); + idx_arg.resize (dim_vector (nr == 0 ? 0 : 1, nc), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseComplexMatrix (nr == 0 ? 0 : 1, nc); + octave_idx_type nel = 0; for (octave_idx_type j = 0; j < nc; j++) { @@ -485,28 +494,24 @@ } else { - idx_arg.resize (dim_vector (nr, 1), 0); - - for (octave_idx_type i = cidx (0); i < cidx (1); i++) - idx_arg.elem (ridx (i)) = -1; + idx_arg.resize (dim_vector (nr, nc == 0 ? 0 : 1), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseComplexMatrix (nr, nc == 0 ? 0 : 1); + + OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr); + + for (octave_idx_type i = 0; i < nr; i++) + found [i] = 0; for (octave_idx_type j = 0; j < nc; j++) - for (octave_idx_type i = 0; i < nr; i++) - { - if (idx_arg.elem (i) != -1) - continue; - bool found = false; - for (octave_idx_type k = cidx (j); k < cidx (j+1); k++) - if (ridx (k) == i) - { - found = true; - break; - } - - if (!found) - idx_arg.elem (i) = j; - - } + for (octave_idx_type i = cidx(j); i < cidx(j+1); i++) + if (found [ridx (i)] == -j) + found [ridx (i)] = -j - 1; + + for (octave_idx_type i = 0; i < nr; i++) + if (found [i] > -nc && found [i] < 0) + idx_arg.elem (i) = -found [i]; for (octave_idx_type j = 0; j < nc; j++) { @@ -556,6 +561,21 @@ return result; } +/* + +%!assert (max (max (speye (65536) * 1i)), sparse (1i)) +%!assert (min (min (speye (65536) * 1i)), sparse (0)) +%!assert (size (max (sparse (8, 0), [], 1)), [1, 0]) +%!assert (size (max (sparse (8, 0), [], 2)), [8, 0]) +%!assert (size (max (sparse (0, 8), [], 1)), [0, 8]) +%!assert (size (max (sparse (0, 8), [], 2)), [0, 1]) +%!assert (size (min (sparse (8, 0), [], 1)), [1, 0]) +%!assert (size (min (sparse (8, 0), [], 2)), [8, 0]) +%!assert (size (min (sparse (0, 8), [], 1)), [0, 8]) +%!assert (size (min (sparse (0, 8), [], 2)), [0, 1]) + +*/ + ComplexRowVector SparseComplexMatrix::row (octave_idx_type i) const {
--- a/liboctave/array/CSparse.h +++ b/liboctave/array/CSparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/DiagArray2.cc +++ b/liboctave/array/DiagArray2.cc @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/DiagArray2.h +++ b/liboctave/array/DiagArray2.h @@ -1,7 +1,7 @@ // Template array classes /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2010 VZLU Prague
--- a/liboctave/array/MArray-C.cc +++ b/liboctave/array/MArray-C.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-d.cc +++ b/liboctave/array/MArray-d.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-decl.h +++ b/liboctave/array/MArray-decl.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-defs.h +++ b/liboctave/array/MArray-defs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/MArray-f.cc +++ b/liboctave/array/MArray-f.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-fC.cc +++ b/liboctave/array/MArray-fC.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-i.cc +++ b/liboctave/array/MArray-i.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray-s.cc +++ b/liboctave/array/MArray-s.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArray.cc +++ b/liboctave/array/MArray.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/array/MArray.h +++ b/liboctave/array/MArray.h @@ -1,7 +1,7 @@ // Template array classes with like-type math ops /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/MArray2.h +++ b/liboctave/array/MArray2.h @@ -1,7 +1,7 @@ // Template array classes with like-type math ops /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MArrayN.h +++ b/liboctave/array/MArrayN.h @@ -1,7 +1,7 @@ // Template array classes with like-type math ops /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MDiagArray2.cc +++ b/liboctave/array/MDiagArray2.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/MDiagArray2.h +++ b/liboctave/array/MDiagArray2.h @@ -1,7 +1,7 @@ // Template array classes with like-type math ops /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/MSparse-C.cc +++ b/liboctave/array/MSparse-C.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/MSparse-d.cc +++ b/liboctave/array/MSparse-d.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/MSparse-defs.h +++ b/liboctave/array/MSparse-defs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/MSparse.cc +++ b/liboctave/array/MSparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/MSparse.h +++ b/liboctave/array/MSparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/Matrix.h +++ b/liboctave/array/Matrix.h @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/MatrixType.cc +++ b/liboctave/array/MatrixType.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 David Bateman +Copyright (C) 2006-2013 David Bateman Copyright (C) 2006 Andy Adler Copyright (C) 2009 VZLU Prague
--- a/liboctave/array/MatrixType.h +++ b/liboctave/array/MatrixType.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 David Bateman +Copyright (C) 2006-2013 David Bateman Copyright (C) 2006 Andy Adler This file is part of Octave.
--- a/liboctave/array/PermMatrix.cc +++ b/liboctave/array/PermMatrix.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/array/PermMatrix.h +++ b/liboctave/array/PermMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/array/Range.cc +++ b/liboctave/array/Range.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Range.h +++ b/liboctave/array/Range.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/Sparse-C.cc +++ b/liboctave/array/Sparse-C.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/Sparse-b.cc +++ b/liboctave/array/Sparse-b.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/Sparse-d.cc +++ b/liboctave/array/Sparse-d.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/Sparse.cc +++ b/liboctave/array/Sparse.cc @@ -1,7 +1,7 @@ // Template sparse array class /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague @@ -301,8 +301,6 @@ (*current_liboctave_error_handler) ("sparse: column index %d out of bound %d", r.extent (nc), nc); - rep = new typename Sparse<T>::SparseRep (nr, nc, (nzm > 0 ? nzm : 0)); - dimensions = dim_vector (nr, nc); octave_idx_type n = a.numel (), rl = r.length (nr), cl = c.length (nc); @@ -318,6 +316,9 @@ if ((rl != 1 && rl != n) || (cl != 1 && cl != n)) (*current_liboctave_error_handler) ("sparse: dimension mismatch"); + // Only create rep after input validation to avoid memory leak. + rep = new typename Sparse<T>::SparseRep (nr, nc, (nzm > 0 ? nzm : 0)); + if (rl <= 1 && cl <= 1) { if (n == 1 && a(0) != T ())
--- a/liboctave/array/Sparse.h +++ b/liboctave/array/Sparse.h @@ -1,7 +1,7 @@ // Template sparse classes /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague
--- a/liboctave/array/boolMatrix.cc +++ b/liboctave/array/boolMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/boolMatrix.h +++ b/liboctave/array/boolMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/boolNDArray.cc +++ b/liboctave/array/boolNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/boolNDArray.h +++ b/liboctave/array/boolNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/boolSparse.cc +++ b/liboctave/array/boolSparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague
--- a/liboctave/array/boolSparse.h +++ b/liboctave/array/boolSparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/chMatrix.cc +++ b/liboctave/array/chMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -169,8 +169,8 @@ charMatrix charMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/chMatrix.h +++ b/liboctave/array/chMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/chNDArray.cc +++ b/liboctave/array/chNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/chNDArray.h +++ b/liboctave/array/chNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/dColVector.cc +++ b/liboctave/array/dColVector.cc @@ -1,7 +1,7 @@ // ColumnVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -116,7 +116,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -169,7 +169,7 @@ ColumnVector ColumnVector::extract (octave_idx_type r1, octave_idx_type r2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } octave_idx_type new_r = r2 - r1 + 1;
--- a/liboctave/array/dColVector.h +++ b/liboctave/array/dColVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/dDiagMatrix.cc +++ b/liboctave/array/dDiagMatrix.cc @@ -1,7 +1,7 @@ // DiagMatrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave. @@ -159,8 +159,8 @@ Matrix DiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/dDiagMatrix.h +++ b/liboctave/array/dDiagMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/dMatrix.cc +++ b/liboctave/array/dMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek Copyright (C) 2009 VZLU Prague, a.s. @@ -425,8 +425,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >= c1) { @@ -603,8 +603,8 @@ Matrix Matrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } return index (idx_vector (r1, r2+1), idx_vector (c1, c2+1)); }
--- a/liboctave/array/dMatrix.h +++ b/liboctave/array/dMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/dNDArray.cc +++ b/liboctave/array/dNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/dNDArray.h +++ b/liboctave/array/dNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/dRowVector.cc +++ b/liboctave/array/dRowVector.cc @@ -1,7 +1,7 @@ // RowVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave. @@ -119,7 +119,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -164,7 +164,7 @@ RowVector RowVector::extract (octave_idx_type c1, octave_idx_type c2) const { - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/dRowVector.h +++ b/liboctave/array/dRowVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/dSparse.cc +++ b/liboctave/array/dSparse.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2010 VZLU Prague @@ -276,19 +276,25 @@ { SparseMatrix result; dim_vector dv = dims (); - - if (dv.numel () == 0 || dim >= dv.length ()) - return result; + octave_idx_type nr = dv(0); + octave_idx_type nc = dv(1); + + if (dim >= dv.length ()) + { + idx_arg.resize (dim_vector (nr, nc), 0); + return *this; + } if (dim < 0) dim = dv.first_non_singleton (); - octave_idx_type nr = dv(0); - octave_idx_type nc = dv(1); - if (dim == 0) { - idx_arg.clear (1, nc); + idx_arg.resize (dim_vector (nr == 0 ? 0 : 1, nc), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseMatrix (nr == 0 ? 0 : 1, nc); + octave_idx_type nel = 0; for (octave_idx_type j = 0; j < nc; j++) { @@ -342,28 +348,24 @@ } else { - idx_arg.resize (dim_vector (nr, 1), 0); - - for (octave_idx_type i = cidx (0); i < cidx (1); i++) - idx_arg.elem (ridx (i)) = -1; + idx_arg.resize (dim_vector (nr, nc == 0 ? 0 : 1), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseMatrix (nr, nc == 0 ? 0 : 1); + + OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr); + + for (octave_idx_type i = 0; i < nr; i++) + found [i] = 0; for (octave_idx_type j = 0; j < nc; j++) - for (octave_idx_type i = 0; i < nr; i++) - { - if (idx_arg.elem (i) != -1) - continue; - bool found = false; - for (octave_idx_type k = cidx (j); k < cidx (j+1); k++) - if (ridx (k) == i) - { - found = true; - break; - } - - if (!found) - idx_arg.elem (i) = j; - - } + for (octave_idx_type i = cidx(j); i < cidx(j+1); i++) + if (found [ridx (i)] == -j) + found [ridx (i)] = -j - 1; + + for (octave_idx_type i = 0; i < nr; i++) + if (found [i] > -nc && found [i] < 0) + idx_arg.elem (i) = -found [i]; for (octave_idx_type j = 0; j < nc; j++) { @@ -425,19 +427,25 @@ { SparseMatrix result; dim_vector dv = dims (); - - if (dv.numel () == 0 || dim >= dv.length ()) - return result; + octave_idx_type nr = dv(0); + octave_idx_type nc = dv(1); + + if (dim >= dv.length ()) + { + idx_arg.resize (dim_vector (nr, nc), 0); + return *this; + } if (dim < 0) dim = dv.first_non_singleton (); - octave_idx_type nr = dv(0); - octave_idx_type nc = dv(1); - if (dim == 0) { - idx_arg.clear (1, nc); + idx_arg.resize (dim_vector (nr == 0 ? 0 : 1, nc), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseMatrix (nr == 0 ? 0 : 1, nc); + octave_idx_type nel = 0; for (octave_idx_type j = 0; j < nc; j++) { @@ -491,28 +499,24 @@ } else { - idx_arg.resize (dim_vector (nr, 1), 0); - - for (octave_idx_type i = cidx (0); i < cidx (1); i++) - idx_arg.elem (ridx (i)) = -1; + idx_arg.resize (dim_vector (nr, nc == 0 ? 0 : 1), 0); + + if (nr == 0 || nc == 0 || dim >= dv.length ()) + return SparseMatrix (nr, nc == 0 ? 0 : 1); + + OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr); + + for (octave_idx_type i = 0; i < nr; i++) + found [i] = 0; for (octave_idx_type j = 0; j < nc; j++) - for (octave_idx_type i = 0; i < nr; i++) - { - if (idx_arg.elem (i) != -1) - continue; - bool found = false; - for (octave_idx_type k = cidx (j); k < cidx (j+1); k++) - if (ridx (k) == i) - { - found = true; - break; - } - - if (!found) - idx_arg.elem (i) = j; - - } + for (octave_idx_type i = cidx(j); i < cidx(j+1); i++) + if (found [ridx (i)] == -j) + found [ridx (i)] = -j - 1; + + for (octave_idx_type i = 0; i < nr; i++) + if (found [i] > -nc && found [i] < 0) + idx_arg.elem (i) = -found [i]; for (octave_idx_type j = 0; j < nc; j++) { @@ -562,6 +566,21 @@ return result; } +/* + +%!assert (max (max (speye (65536))), sparse (1)) +%!assert (min (min (speye (65536))), sparse (0)) +%!assert (size (max (sparse (8, 0), [], 1)), [1, 0]) +%!assert (size (max (sparse (8, 0), [], 2)), [8, 0]) +%!assert (size (max (sparse (0, 8), [], 1)), [0, 8]) +%!assert (size (max (sparse (0, 8), [], 2)), [0, 1]) +%!assert (size (min (sparse (8, 0), [], 1)), [1, 0]) +%!assert (size (min (sparse (8, 0), [], 2)), [8, 0]) +%!assert (size (min (sparse (0, 8), [], 1)), [0, 8]) +%!assert (size (min (sparse (0, 8), [], 2)), [0, 1]) + +*/ + RowVector SparseMatrix::row (octave_idx_type i) const { @@ -628,6 +647,7 @@ r.ridx (i) = a.ridx (i); } + r.maybe_compress (true); return r; } @@ -648,9 +668,17 @@ r.ridx (i) = a.ridx (i); } + r.maybe_compress (true); return r; } +/* + +%!assert(nnz(real(sparse([1i,1]))),1) +%!assert(nnz(real(sparse([1i,1]))),1) + +*/ + SparseMatrix atan2 (const double& x, const SparseMatrix& y) {
--- a/liboctave/array/dSparse.h +++ b/liboctave/array/dSparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/array/dim-vector.cc +++ b/liboctave/array/dim-vector.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyirght (C) 2009, 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/dim-vector.h +++ b/liboctave/array/dim-vector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyirght (C) 2009, 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/fCColVector.cc +++ b/liboctave/array/fCColVector.cc @@ -1,7 +1,7 @@ // ColumnVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -162,7 +162,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -186,7 +186,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -250,7 +250,7 @@ FloatComplexColumnVector FloatComplexColumnVector::extract (octave_idx_type r1, octave_idx_type r2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } octave_idx_type new_r = r2 - r1 + 1;
--- a/liboctave/array/fCColVector.h +++ b/liboctave/array/fCColVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/fCDiagMatrix.cc +++ b/liboctave/array/fCDiagMatrix.cc @@ -1,7 +1,7 @@ // DiagMatrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave. @@ -250,8 +250,8 @@ FloatComplexMatrix FloatComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/fCDiagMatrix.h +++ b/liboctave/array/fCDiagMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fCMatrix.cc +++ b/liboctave/array/fCMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague, a.s. @@ -581,8 +581,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >= c1) { @@ -609,8 +609,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >=c1) { @@ -931,8 +931,8 @@ FloatComplexMatrix FloatComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } return index (idx_vector (r1, r2+1), idx_vector (c1, c2+1)); }
--- a/liboctave/array/fCMatrix.h +++ b/liboctave/array/fCMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fCNDArray.cc +++ b/liboctave/array/fCNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/fCNDArray.h +++ b/liboctave/array/fCNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fCRowVector.cc +++ b/liboctave/array/fCRowVector.cc @@ -1,7 +1,7 @@ // RowVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave. @@ -160,7 +160,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -184,7 +184,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -242,7 +242,7 @@ FloatComplexRowVector FloatComplexRowVector::extract (octave_idx_type c1, octave_idx_type c2) const { - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/fCRowVector.h +++ b/liboctave/array/fCRowVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fColVector.cc +++ b/liboctave/array/fColVector.cc @@ -1,7 +1,7 @@ // ColumnVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave. @@ -115,7 +115,7 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } if (r2 >= r1) { @@ -168,7 +168,7 @@ FloatColumnVector FloatColumnVector::extract (octave_idx_type r1, octave_idx_type r2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } octave_idx_type new_r = r2 - r1 + 1;
--- a/liboctave/array/fColVector.h +++ b/liboctave/array/fColVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/array/fDiagMatrix.cc +++ b/liboctave/array/fDiagMatrix.cc @@ -1,7 +1,7 @@ // FloatDiagMatrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave. @@ -159,8 +159,8 @@ FloatMatrix FloatDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/fDiagMatrix.h +++ b/liboctave/array/fDiagMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fMatrix.cc +++ b/liboctave/array/fMatrix.cc @@ -1,7 +1,7 @@ // Matrix manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague, a.s. @@ -425,8 +425,8 @@ return *this; } - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } if (r2 >= r1 && c2 >= c1) { @@ -603,8 +603,8 @@ FloatMatrix FloatMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const { - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } return index (idx_vector (r1, r2+1), idx_vector (c1, c2+1)); }
--- a/liboctave/array/fMatrix.h +++ b/liboctave/array/fMatrix.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fNDArray.cc +++ b/liboctave/array/fNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/fNDArray.h +++ b/liboctave/array/fNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/fRowVector.cc +++ b/liboctave/array/fRowVector.cc @@ -1,7 +1,7 @@ // RowVector manipulations. /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave. @@ -119,7 +119,7 @@ return *this; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } if (c2 >= c1) { @@ -164,7 +164,7 @@ FloatRowVector FloatRowVector::extract (octave_idx_type c1, octave_idx_type c2) const { - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/array/fRowVector.h +++ b/liboctave/array/fRowVector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/idx-vector.cc +++ b/liboctave/array/idx-vector.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague
--- a/liboctave/array/idx-vector.h +++ b/liboctave/array/idx-vector.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/array/int16NDArray.cc +++ b/liboctave/array/int16NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int16NDArray.h +++ b/liboctave/array/int16NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int32NDArray.cc +++ b/liboctave/array/int32NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int32NDArray.h +++ b/liboctave/array/int32NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int64NDArray.cc +++ b/liboctave/array/int64NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int64NDArray.h +++ b/liboctave/array/int64NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int8NDArray.cc +++ b/liboctave/array/int8NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/int8NDArray.h +++ b/liboctave/array/int8NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/intNDArray.cc +++ b/liboctave/array/intNDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/array/intNDArray.h +++ b/liboctave/array/intNDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint16NDArray.cc +++ b/liboctave/array/uint16NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint16NDArray.h +++ b/liboctave/array/uint16NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint32NDArray.cc +++ b/liboctave/array/uint32NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint32NDArray.h +++ b/liboctave/array/uint32NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint64NDArray.cc +++ b/liboctave/array/uint64NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint64NDArray.h +++ b/liboctave/array/uint64NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint8NDArray.cc +++ b/liboctave/array/uint8NDArray.cc @@ -1,7 +1,7 @@ // N-D Array manipulations. /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/array/uint8NDArray.h +++ b/liboctave/array/uint8NDArray.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/Makefile.am +++ b/liboctave/cruft/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's liboctave/cruft directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/cruft/blas-xtra/cconv2.f +++ b/liboctave/cruft/blas-xtra/cconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/cdotc3.f +++ b/liboctave/cruft/blas-xtra/cdotc3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/cmatm3.f +++ b/liboctave/cruft/blas-xtra/cmatm3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/csconv2.f +++ b/liboctave/cruft/blas-xtra/csconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/dconv2.f +++ b/liboctave/cruft/blas-xtra/dconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/ddot3.f +++ b/liboctave/cruft/blas-xtra/ddot3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/dmatm3.f +++ b/liboctave/cruft/blas-xtra/dmatm3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/sconv2.f +++ b/liboctave/cruft/blas-xtra/sconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/sdot3.f +++ b/liboctave/cruft/blas-xtra/sdot3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/smatm3.f +++ b/liboctave/cruft/blas-xtra/smatm3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/zconv2.f +++ b/liboctave/cruft/blas-xtra/zconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/zdconv2.f +++ b/liboctave/cruft/blas-xtra/zdconv2.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/zdotc3.f +++ b/liboctave/cruft/blas-xtra/zdotc3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/blas-xtra/zmatm3.f +++ b/liboctave/cruft/blas-xtra/zmatm3.f @@ -1,4 +1,4 @@ -c Copyright (C) 2009-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2009-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/lapack-xtra/crsf2csf.f +++ b/liboctave/cruft/lapack-xtra/crsf2csf.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/lapack-xtra/zrsf2csf.f +++ b/liboctave/cruft/lapack-xtra/zrsf2csf.f @@ -1,4 +1,4 @@ -c Copyright (C) 2010-2012 VZLU Prague, a.s., Czech Republic +c Copyright (C) 2010-2013 VZLU Prague, a.s., Czech Republic c c Author: Jaroslav Hajek <highegg@gmail.com> c
--- a/liboctave/cruft/misc/blaswrap.c +++ b/liboctave/cruft/misc/blaswrap.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Jarno Rajahalme +Copyright (C) 2012-2013 Jarno Rajahalme This file is part of Octave.
--- a/liboctave/cruft/misc/cquit.c +++ b/liboctave/cruft/misc/cquit.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/f77-extern.cc +++ b/liboctave/cruft/misc/f77-extern.cc @@ -1,7 +1,7 @@ // misc-extern.cc -*- C++ -*- /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/f77-fcn.c +++ b/liboctave/cruft/misc/f77-fcn.c @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/f77-fcn.h +++ b/liboctave/cruft/misc/f77-fcn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/lo-error.c +++ b/liboctave/cruft/misc/lo-error.c @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/lo-error.h +++ b/liboctave/cruft/misc/lo-error.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/quit.cc +++ b/liboctave/cruft/misc/quit.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/misc/quit.h +++ b/liboctave/cruft/misc/quit.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/cruft/mkf77def.in +++ b/liboctave/cruft/mkf77def.in @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 2006-2012 John W. Eaton +# Copyright (C) 2006-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/CmplxAEPBAL.cc +++ b/liboctave/numeric/CmplxAEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/CmplxAEPBAL.h +++ b/liboctave/numeric/CmplxAEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/CmplxCHOL.cc +++ b/liboctave/numeric/CmplxCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/CmplxCHOL.h +++ b/liboctave/numeric/CmplxCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/CmplxGEPBAL.cc +++ b/liboctave/numeric/CmplxGEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxGEPBAL.h +++ b/liboctave/numeric/CmplxGEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxHESS.cc +++ b/liboctave/numeric/CmplxHESS.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxHESS.h +++ b/liboctave/numeric/CmplxHESS.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxLU.cc +++ b/liboctave/numeric/CmplxLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/CmplxLU.h +++ b/liboctave/numeric/CmplxLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxQR.cc +++ b/liboctave/numeric/CmplxQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/numeric/CmplxQR.h +++ b/liboctave/numeric/CmplxQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/CmplxQRP.cc +++ b/liboctave/numeric/CmplxQRP.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/CmplxQRP.h +++ b/liboctave/numeric/CmplxQRP.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxSCHUR.cc +++ b/liboctave/numeric/CmplxSCHUR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxSCHUR.h +++ b/liboctave/numeric/CmplxSCHUR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxSVD.cc +++ b/liboctave/numeric/CmplxSVD.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CmplxSVD.h +++ b/liboctave/numeric/CmplxSVD.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CollocWt.cc +++ b/liboctave/numeric/CollocWt.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/CollocWt.h +++ b/liboctave/numeric/CollocWt.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DAE.h +++ b/liboctave/numeric/DAE.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DAEFunc.h +++ b/liboctave/numeric/DAEFunc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DAERT.h +++ b/liboctave/numeric/DAERT.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DAERTFunc.h +++ b/liboctave/numeric/DAERTFunc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASPK-opts.in +++ b/liboctave/numeric/DASPK-opts.in @@ -1,4 +1,4 @@ -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/DASPK.cc +++ b/liboctave/numeric/DASPK.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASPK.h +++ b/liboctave/numeric/DASPK.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASRT-opts.in +++ b/liboctave/numeric/DASRT-opts.in @@ -1,4 +1,4 @@ -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/DASRT.cc +++ b/liboctave/numeric/DASRT.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASRT.h +++ b/liboctave/numeric/DASRT.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASSL-opts.in +++ b/liboctave/numeric/DASSL-opts.in @@ -1,4 +1,4 @@ -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/DASSL.cc +++ b/liboctave/numeric/DASSL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DASSL.h +++ b/liboctave/numeric/DASSL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/DET.h +++ b/liboctave/numeric/DET.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/EIG.cc +++ b/liboctave/numeric/EIG.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/EIG.h +++ b/liboctave/numeric/EIG.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/LSODE-opts.in +++ b/liboctave/numeric/LSODE-opts.in @@ -1,4 +1,4 @@ -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/LSODE.cc +++ b/liboctave/numeric/LSODE.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/LSODE.h +++ b/liboctave/numeric/LSODE.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/ODE.h +++ b/liboctave/numeric/ODE.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/ODEFunc.h +++ b/liboctave/numeric/ODEFunc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/ODES.cc +++ b/liboctave/numeric/ODES.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/ODES.h +++ b/liboctave/numeric/ODES.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/ODESFunc.h +++ b/liboctave/numeric/ODESFunc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/Quad-opts.in +++ b/liboctave/numeric/Quad-opts.in @@ -1,4 +1,4 @@ -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/numeric/Quad.cc +++ b/liboctave/numeric/Quad.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/Quad.h +++ b/liboctave/numeric/Quad.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxCHOL.cc +++ b/liboctave/numeric/SparseCmplxCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxCHOL.h +++ b/liboctave/numeric/SparseCmplxCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxLU.cc +++ b/liboctave/numeric/SparseCmplxLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxLU.h +++ b/liboctave/numeric/SparseCmplxLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxQR.cc +++ b/liboctave/numeric/SparseCmplxQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/numeric/SparseCmplxQR.h +++ b/liboctave/numeric/SparseCmplxQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/numeric/SparseQR.cc +++ b/liboctave/numeric/SparseQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/numeric/SparseQR.h +++ b/liboctave/numeric/SparseQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/numeric/SparsedbleCHOL.cc +++ b/liboctave/numeric/SparsedbleCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparsedbleCHOL.h +++ b/liboctave/numeric/SparsedbleCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparsedbleLU.cc +++ b/liboctave/numeric/SparsedbleLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/SparsedbleLU.h +++ b/liboctave/numeric/SparsedbleLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/base-aepbal.h +++ b/liboctave/numeric/base-aepbal.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/base-dae.h +++ b/liboctave/numeric/base-dae.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/base-de.h +++ b/liboctave/numeric/base-de.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/base-lu.cc +++ b/liboctave/numeric/base-lu.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/base-lu.h +++ b/liboctave/numeric/base-lu.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/base-min.h +++ b/liboctave/numeric/base-min.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/base-qr.cc +++ b/liboctave/numeric/base-qr.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/base-qr.h +++ b/liboctave/numeric/base-qr.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/bsxfun-decl.h +++ b/liboctave/numeric/bsxfun-decl.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/bsxfun-defs.cc +++ b/liboctave/numeric/bsxfun-defs.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/bsxfun.h +++ b/liboctave/numeric/bsxfun.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Jordi Gutiérrez Hermoso +Copyright (C) 2012-2013 Jordi Gutiérrez Hermoso This file is part of Octave.
--- a/liboctave/numeric/dbleAEPBAL.cc +++ b/liboctave/numeric/dbleAEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/dbleAEPBAL.h +++ b/liboctave/numeric/dbleAEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/dbleCHOL.cc +++ b/liboctave/numeric/dbleCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/dbleCHOL.h +++ b/liboctave/numeric/dbleCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/dbleGEPBAL.cc +++ b/liboctave/numeric/dbleGEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleGEPBAL.h +++ b/liboctave/numeric/dbleGEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleHESS.cc +++ b/liboctave/numeric/dbleHESS.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleHESS.h +++ b/liboctave/numeric/dbleHESS.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleLU.cc +++ b/liboctave/numeric/dbleLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/dbleLU.h +++ b/liboctave/numeric/dbleLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleQR.cc +++ b/liboctave/numeric/dbleQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/numeric/dbleQR.h +++ b/liboctave/numeric/dbleQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/dbleQRP.cc +++ b/liboctave/numeric/dbleQRP.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/dbleQRP.h +++ b/liboctave/numeric/dbleQRP.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleSCHUR.cc +++ b/liboctave/numeric/dbleSCHUR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleSCHUR.h +++ b/liboctave/numeric/dbleSCHUR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleSVD.cc +++ b/liboctave/numeric/dbleSVD.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/dbleSVD.h +++ b/liboctave/numeric/dbleSVD.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/eigs-base.cc +++ b/liboctave/numeric/eigs-base.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/numeric/fCmplxAEPBAL.cc +++ b/liboctave/numeric/fCmplxAEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/fCmplxAEPBAL.h +++ b/liboctave/numeric/fCmplxAEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/fCmplxCHOL.cc +++ b/liboctave/numeric/fCmplxCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/fCmplxCHOL.h +++ b/liboctave/numeric/fCmplxCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/fCmplxGEPBAL.cc +++ b/liboctave/numeric/fCmplxGEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxGEPBAL.h +++ b/liboctave/numeric/fCmplxGEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxHESS.cc +++ b/liboctave/numeric/fCmplxHESS.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxHESS.h +++ b/liboctave/numeric/fCmplxHESS.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxLU.cc +++ b/liboctave/numeric/fCmplxLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/fCmplxLU.h +++ b/liboctave/numeric/fCmplxLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxQR.cc +++ b/liboctave/numeric/fCmplxQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/numeric/fCmplxQR.h +++ b/liboctave/numeric/fCmplxQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/fCmplxQRP.cc +++ b/liboctave/numeric/fCmplxQRP.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/fCmplxQRP.h +++ b/liboctave/numeric/fCmplxQRP.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxSCHUR.cc +++ b/liboctave/numeric/fCmplxSCHUR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxSCHUR.h +++ b/liboctave/numeric/fCmplxSCHUR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxSVD.cc +++ b/liboctave/numeric/fCmplxSVD.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fCmplxSVD.h +++ b/liboctave/numeric/fCmplxSVD.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fEIG.cc +++ b/liboctave/numeric/fEIG.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/fEIG.h +++ b/liboctave/numeric/fEIG.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatAEPBAL.cc +++ b/liboctave/numeric/floatAEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/floatAEPBAL.h +++ b/liboctave/numeric/floatAEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/floatCHOL.cc +++ b/liboctave/numeric/floatCHOL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/floatCHOL.h +++ b/liboctave/numeric/floatCHOL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/floatGEPBAL.cc +++ b/liboctave/numeric/floatGEPBAL.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatGEPBAL.h +++ b/liboctave/numeric/floatGEPBAL.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatHESS.cc +++ b/liboctave/numeric/floatHESS.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatHESS.h +++ b/liboctave/numeric/floatHESS.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatLU.cc +++ b/liboctave/numeric/floatLU.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/floatLU.h +++ b/liboctave/numeric/floatLU.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatQR.cc +++ b/liboctave/numeric/floatQR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/numeric/floatQR.h +++ b/liboctave/numeric/floatQR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/numeric/floatQRP.cc +++ b/liboctave/numeric/floatQRP.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/floatQRP.h +++ b/liboctave/numeric/floatQRP.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatSCHUR.cc +++ b/liboctave/numeric/floatSCHUR.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatSCHUR.h +++ b/liboctave/numeric/floatSCHUR.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatSVD.cc +++ b/liboctave/numeric/floatSVD.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/floatSVD.h +++ b/liboctave/numeric/floatSVD.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/lo-mappers.cc +++ b/liboctave/numeric/lo-mappers.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/lo-mappers.h +++ b/liboctave/numeric/lo-mappers.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/lo-specfun.cc +++ b/liboctave/numeric/lo-specfun.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 Jaroslav Hajek Copyright (C) 2010 VZLU Prague @@ -366,16 +366,22 @@ { double result; - if (xisnan (x)) - result = x; - else if ((x <= 0 && D_NINT (x) == x) || xisinf (x)) + if (xisnan (x) || (x < 0 && (xisinf (x) || D_NINT (x) == x))) + result = octave_NaN; + else if (x == 0 && xnegative_sign (x)) + result = -octave_Inf; + else if (x == 0 || xisinf (x)) result = octave_Inf; else + { #if defined (HAVE_TGAMMA) - result = tgamma (x); + result = tgamma (x); #else - F77_XFCN (xdgamma, XDGAMMA, (x, result)); + F77_XFCN (xdgamma, XDGAMMA, (x, result)); #endif + if (xisinf (result) && (static_cast<int> (gnulib::floor (x)) % 2)) + result = -octave_Inf; + } return result; } @@ -431,16 +437,22 @@ { float result; - if (xisnan (x)) - result = x; - else if ((x <= 0 && D_NINT (x) == x) || xisinf (x)) + if (xisnan (x) || (x < 0 && (xisinf (x) || D_NINT (x) == x))) + result = octave_Float_NaN; + else if (x == 0 && xnegative_sign (x)) + result = -octave_Float_Inf; + else if (x == 0 || xisinf (x)) result = octave_Float_Inf; else -#if defined (HAVE_TGAMMAF) - result = tgammaf (x); + { +#if defined (HAVE_TGAMMA) + result = tgammaf (x); #else - F77_XFCN (xgamma, XGAMMA, (x, result)); + F77_XFCN (xgamma, XGAMMA, (x, result)); #endif + if (xisinf (result) && (static_cast<int> (gnulib::floor (x)) % 2)) + result = -octave_Float_Inf; + } return result; }
--- a/liboctave/numeric/lo-specfun.h +++ b/liboctave/numeric/lo-specfun.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2010 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/oct-convn.cc +++ b/liboctave/numeric/oct-convn.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave. @@ -88,7 +88,7 @@ { for (octave_idx_type ja = 0; ja < na - nb + 1; ja++) for (octave_idx_type jb = 0; jb < nb; jb++) - convolve_nd<T, R> (a + ma*(ja + jb), ad, acd, b + mb*jb, bd, bcd, + convolve_nd<T, R> (a + ma*(ja+jb), ad, acd, b + mb*(nb-jb-1), bd, bcd, c + ldc*ja, ccd, nd-1, inner); } else
--- a/liboctave/numeric/oct-convn.h +++ b/liboctave/numeric/oct-convn.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 Jaroslav Hajek +Copyright (C) 2009-2013 Jaroslav Hajek Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/numeric/oct-fftw.cc +++ b/liboctave/numeric/oct-fftw.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 John W. Eaton +Copyright (C) 2001-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/oct-fftw.h +++ b/liboctave/numeric/oct-fftw.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2001-2012 John W. Eaton +Copyright (C) 2001-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/oct-norm.cc +++ b/liboctave/numeric/oct-norm.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 VZLU Prague, a.s. +Copyright (C) 2008-2013 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/oct-norm.h +++ b/liboctave/numeric/oct-norm.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 VZLU Prague, a.s. +Copyright (C) 2008-2013 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/numeric/oct-rand.cc +++ b/liboctave/numeric/oct-rand.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/oct-rand.h +++ b/liboctave/numeric/oct-rand.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/oct-spparms.cc +++ b/liboctave/numeric/oct-spparms.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/oct-spparms.h +++ b/liboctave/numeric/oct-spparms.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/randgamma.c +++ b/liboctave/numeric/randgamma.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/randgamma.h +++ b/liboctave/numeric/randgamma.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/randmtzig.c +++ b/liboctave/numeric/randmtzig.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/randmtzig.h +++ b/liboctave/numeric/randmtzig.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/randpoisson.c +++ b/liboctave/numeric/randpoisson.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/randpoisson.h +++ b/liboctave/numeric/randpoisson.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 John W. Eaton +Copyright (C) 2006-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/numeric/sparse-base-chol.cc +++ b/liboctave/numeric/sparse-base-chol.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/sparse-base-chol.h +++ b/liboctave/numeric/sparse-base-chol.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/sparse-base-lu.cc +++ b/liboctave/numeric/sparse-base-lu.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/sparse-base-lu.h +++ b/liboctave/numeric/sparse-base-lu.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/numeric/sparse-dmsolve.cc +++ b/liboctave/numeric/sparse-dmsolve.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2006-2012 David Bateman +Copyright (C) 2006-2013 David Bateman This file is part of Octave. @@ -133,8 +133,8 @@ { r2 -= 1; c2 -= 1; - if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } - if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } + if (r1 > r2) { std::swap (r1, r2); } + if (c1 > c2) { std::swap (c1, c2); } octave_idx_type new_r = r2 - r1 + 1; octave_idx_type new_c = c2 - c1 + 1;
--- a/liboctave/operators/Sparse-diag-op-defs.h +++ b/liboctave/operators/Sparse-diag-op-defs.h @@ -1,6 +1,6 @@ /* -*- C++ -*- -Copyright (C) 2009-2012 Jason Riedy, Jaroslav Hajek +Copyright (C) 2009-2013 Jason Riedy, Jaroslav Hajek This file is part of Octave.
--- a/liboctave/operators/Sparse-op-defs.h +++ b/liboctave/operators/Sparse-op-defs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler Copyright (C) 2008 Jaroslav Hajek
--- a/liboctave/operators/Sparse-perm-op-defs.h +++ b/liboctave/operators/Sparse-perm-op-defs.h @@ -1,6 +1,6 @@ /* -*- C++ -*- -Copyright (C) 2009-2012 Jason Riedy +Copyright (C) 2009-2013 Jason Riedy This file is part of Octave.
--- a/liboctave/operators/mk-ops.awk +++ b/liboctave/operators/mk-ops.awk @@ -1,4 +1,4 @@ -# Copyright (C) 2003-2012 John W. Eaton +# Copyright (C) 2003-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/operators/mx-base.h +++ b/liboctave/operators/mx-base.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/operators/mx-defs.h +++ b/liboctave/operators/mx-defs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/operators/mx-ext.h +++ b/liboctave/operators/mx-ext.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1994-2012 John W. Eaton +Copyright (C) 1994-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/operators/mx-inlines.cc +++ b/liboctave/operators/mx-inlines.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague
--- a/liboctave/operators/mx-op-decl.h +++ b/liboctave/operators/mx-op-decl.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009 VZLU Prague, a.s.
--- a/liboctave/operators/mx-op-defs.h +++ b/liboctave/operators/mx-op-defs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague, a.s.
--- a/liboctave/operators/mx-ops +++ b/liboctave/operators/mx-ops @@ -1,4 +1,4 @@ -# Copyright (C) 2003-2012 John W. Eaton +# Copyright (C) 2003-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/operators/sparse-mk-ops.awk +++ b/liboctave/operators/sparse-mk-ops.awk @@ -1,4 +1,4 @@ -# Copyright (C) 2004-2012 John W. Eaton +# Copyright (C) 2004-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/operators/sparse-mx-ops +++ b/liboctave/operators/sparse-mx-ops @@ -1,4 +1,4 @@ -# Copyright (C) 2004-2012 John W. Eaton +# Copyright (C) 2004-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/operators/vx-ops +++ b/liboctave/operators/vx-ops @@ -1,4 +1,4 @@ -# Copyright (C) 2003-2012 John W. Eaton +# Copyright (C) 2003-2013 John W. Eaton # # This file is part of Octave. #
--- a/liboctave/system/dir-ops.cc +++ b/liboctave/system/dir-ops.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/dir-ops.h +++ b/liboctave/system/dir-ops.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/file-ops.cc +++ b/liboctave/system/file-ops.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/file-ops.h +++ b/liboctave/system/file-ops.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/file-stat.cc +++ b/liboctave/system/file-stat.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/file-stat.h +++ b/liboctave/system/file-stat.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/lo-sysdep.cc +++ b/liboctave/system/lo-sysdep.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/lo-sysdep.h +++ b/liboctave/system/lo-sysdep.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/mach-info.cc +++ b/liboctave/system/mach-info.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/mach-info.h +++ b/liboctave/system/mach-info.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-env.cc +++ b/liboctave/system/oct-env.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-env.h +++ b/liboctave/system/oct-env.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-group.cc +++ b/liboctave/system/oct-group.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-group.h +++ b/liboctave/system/oct-group.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-openmp.h +++ b/liboctave/system/oct-openmp.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 David Bateman +Copyright (C) 2010-2013 David Bateman This file is part of Octave.
--- a/liboctave/system/oct-passwd.cc +++ b/liboctave/system/oct-passwd.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-passwd.h +++ b/liboctave/system/oct-passwd.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-syscalls.cc +++ b/liboctave/system/oct-syscalls.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-syscalls.h +++ b/liboctave/system/oct-syscalls.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-time.cc +++ b/liboctave/system/oct-time.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-time.h +++ b/liboctave/system/oct-time.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-uname.cc +++ b/liboctave/system/oct-uname.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 John W. Eaton +Copyright (C) 2005-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/oct-uname.h +++ b/liboctave/system/oct-uname.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 John W. Eaton +Copyright (C) 2005-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/pathlen.h +++ b/liboctave/system/pathlen.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/sysdir.h +++ b/liboctave/system/sysdir.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/system/syswait.h +++ b/liboctave/system/syswait.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/action-container.h +++ b/liboctave/util/action-container.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/liboctave/util/base-list.h +++ b/liboctave/util/base-list.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/byte-swap.h +++ b/liboctave/util/byte-swap.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/caseless-str.h +++ b/liboctave/util/caseless-str.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 Shai Ayal +Copyright (C) 2007-2013 Shai Ayal This file is part of Octave.
--- a/liboctave/util/cmd-edit.cc +++ b/liboctave/util/cmd-edit.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/cmd-edit.h +++ b/liboctave/util/cmd-edit.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/cmd-hist.cc +++ b/liboctave/util/cmd-hist.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/cmd-hist.h +++ b/liboctave/util/cmd-hist.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/data-conv.cc +++ b/liboctave/util/data-conv.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/data-conv.h +++ b/liboctave/util/data-conv.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/f2c-main.c +++ b/liboctave/util/f2c-main.c @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/functor.h +++ b/liboctave/util/functor.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 John W. Eaton +Copyright (C) 2008-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/glob-match.cc +++ b/liboctave/util/glob-match.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/glob-match.h +++ b/liboctave/util/glob-match.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/kpse.cc +++ b/liboctave/util/kpse.cc @@ -3,6 +3,7 @@ /* Look up a filename in a path. +Copyright (C) 2003-2013 John W. Eaton Copyright (C) 1993, 94, 95, 96, 97, 98 Karl Berry. Copyright (C) 1993, 94, 95, 96, 97 Karl Berry & O. Weber. Copyright (C) 1992, 93, 94, 95, 96, 97 Free Software Foundation, Inc.
--- a/liboctave/util/lo-array-gripes.cc +++ b/liboctave/util/lo-array-gripes.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 John W. Eaton +Copyright (C) 2003-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/util/lo-array-gripes.h +++ b/liboctave/util/lo-array-gripes.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-cieee.c +++ b/liboctave/util/lo-cieee.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2002-2012 John W. Eaton +Copyright (C) 2002-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-cutils.c +++ b/liboctave/util/lo-cutils.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-cutils.h +++ b/liboctave/util/lo-cutils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-ieee.cc +++ b/liboctave/util/lo-ieee.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-ieee.h +++ b/liboctave/util/lo-ieee.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-macros.h +++ b/liboctave/util/lo-macros.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/liboctave/util/lo-math.h +++ b/liboctave/util/lo-math.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 John W. Eaton +Copyright (C) 2007-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-regexp.cc +++ b/liboctave/util/lo-regexp.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2012 John W. Eaton -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 2002-2005 Paul Kienzle This file is part of Octave.
--- a/liboctave/util/lo-regexp.h +++ b/liboctave/util/lo-regexp.h @@ -1,7 +1,7 @@ /* Copyright (C) 2012 John W. Eaton -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/util/lo-traits.h +++ b/liboctave/util/lo-traits.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 John W. Eaton +Copyright (C) 2009-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-utils.cc +++ b/liboctave/util/lo-utils.cc @@ -1,7 +1,7 @@ // utils.cc /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/lo-utils.h +++ b/liboctave/util/lo-utils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-alloc.cc +++ b/liboctave/util/oct-alloc.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-alloc.h +++ b/liboctave/util/oct-alloc.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-base64.cc +++ b/liboctave/util/oct-base64.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave. @@ -38,7 +38,7 @@ size_t outlen = base64_encode_alloc (inc, inlen, out); - if (! *out) + if (! out) { if (outlen == 0 && inlen != 0) (*current_liboctave_error_handler) @@ -74,8 +74,11 @@ else { if ((outlen % (sizeof (double) / sizeof (char))) != 0) - (*current_liboctave_error_handler) - ("base64_decode: incorrect input size"); + { + ::free (out); + (*current_liboctave_error_handler) + ("base64_decode: incorrect input size"); + } else { octave_idx_type len = (outlen * sizeof (char)) / sizeof (double);
--- a/liboctave/util/oct-base64.h +++ b/liboctave/util/oct-base64.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-binmap.h +++ b/liboctave/util/oct-binmap.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 VZLU Prague +Copyright (C) 2010-2013 VZLU Prague This file is part of Octave.
--- a/liboctave/util/oct-cmplx.h +++ b/liboctave/util/oct-cmplx.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1995-2012 John W. Eaton +Copyright (C) 1995-2013 John W. Eaton Copyright (C) 2009 VZLU Prague, a.s. This file is part of Octave.
--- a/liboctave/util/oct-glob.cc +++ b/liboctave/util/oct-glob.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 John W. Eaton +Copyright (C) 2010-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-glob.h +++ b/liboctave/util/oct-glob.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2010-2012 John W. Eaton +Copyright (C) 2010-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-inttypes.cc +++ b/liboctave/util/oct-inttypes.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/util/oct-inttypes.h +++ b/liboctave/util/oct-inttypes.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 John W. Eaton +Copyright (C) 2004-2013 John W. Eaton Copyright (C) 2008-2009 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/util/oct-locbuf.cc +++ b/liboctave/util/oct-locbuf.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/util/oct-locbuf.h +++ b/liboctave/util/oct-locbuf.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Jaroslav Hajek +Copyright (C) 2008-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/util/oct-md5.cc +++ b/liboctave/util/oct-md5.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman This file is part of Octave.
--- a/liboctave/util/oct-md5.h +++ b/liboctave/util/oct-md5.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2007-2012 David Bateman +Copyright (C) 2007-2013 David Bateman This file is part of Octave.
--- a/liboctave/util/oct-mem.h +++ b/liboctave/util/oct-mem.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2009-2012 VZLU Prague +Copyright (C) 2009-2013 VZLU Prague This file is part of Octave.
--- a/liboctave/util/oct-mutex.cc +++ b/liboctave/util/oct-mutex.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave.
--- a/liboctave/util/oct-mutex.h +++ b/liboctave/util/oct-mutex.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave.
--- a/liboctave/util/oct-refcount.h +++ b/liboctave/util/oct-refcount.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 Jaroslav Hajek +Copyright (C) 2012-2013 Jaroslav Hajek This file is part of Octave.
--- a/liboctave/util/oct-rl-edit.c +++ b/liboctave/util/oct-rl-edit.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-rl-edit.h +++ b/liboctave/util/oct-rl-edit.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-rl-hist.c +++ b/liboctave/util/oct-rl-hist.c @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-rl-hist.h +++ b/liboctave/util/oct-rl-hist.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2000-2012 John W. Eaton +Copyright (C) 2000-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/oct-shlib.cc +++ b/liboctave/util/oct-shlib.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/util/oct-shlib.h +++ b/liboctave/util/oct-shlib.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1999-2012 John W. Eaton +Copyright (C) 1999-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/util/oct-sort.cc +++ b/liboctave/util/oct-sort.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2003-2012 David Bateman +Copyright (C) 2003-2013 David Bateman Copyright (C) 2008-2009 Jaroslav Hajek Copyright (C) 2009-2010 VZLU Prague
--- a/liboctave/util/oct-sort.h +++ b/liboctave/util/oct-sort.h @@ -1,5 +1,5 @@ /* -Copyright (C) 2003-2012 David Bateman +Copyright (C) 2003-2013 David Bateman Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/liboctave/util/oct-sparse.h +++ b/liboctave/util/oct-sparse.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman This file is part of Octave.
--- a/liboctave/util/pathsearch.cc +++ b/liboctave/util/pathsearch.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/pathsearch.h +++ b/liboctave/util/pathsearch.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/singleton-cleanup.cc +++ b/liboctave/util/singleton-cleanup.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/sparse-sort.cc +++ b/liboctave/util/sparse-sort.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/util/sparse-sort.h +++ b/liboctave/util/sparse-sort.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2004-2012 David Bateman +Copyright (C) 2004-2013 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave.
--- a/liboctave/util/sparse-util.cc +++ b/liboctave/util/sparse-util.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/util/sparse-util.h +++ b/liboctave/util/sparse-util.h @@ -1,6 +1,6 @@ /* -Copyright (C) 2005-2012 David Bateman +Copyright (C) 2005-2013 David Bateman Copyright (C) 1998-2005 Andy Adler This file is part of Octave.
--- a/liboctave/util/statdefs.h +++ b/liboctave/util/statdefs.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/str-vec.cc +++ b/liboctave/util/str-vec.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/str-vec.h +++ b/liboctave/util/str-vec.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1996-2012 John W. Eaton +Copyright (C) 1996-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/sun-utils.h +++ b/liboctave/util/sun-utils.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/liboctave/util/unwind-prot.cc +++ b/liboctave/util/unwind-prot.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009 VZLU Prague This file is part of Octave.
--- a/liboctave/util/unwind-prot.h +++ b/liboctave/util/unwind-prot.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton Copyright (C) 2009-2010 VZLU Prague This file is part of Octave.
--- a/liboctave/util/url-transfer.cc +++ b/liboctave/util/url-transfer.cc @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2006-2012 Alexander Barth +Copyright (C) 2006-2013 Alexander Barth Copyright (C) 2009 David Bateman This file is part of Octave.
--- a/liboctave/util/url-transfer.h +++ b/liboctave/util/url-transfer.h @@ -1,7 +1,7 @@ /* Copyright (C) 2013 John W. Eaton -Copyright (C) 2006-2012 Alexander Barth +Copyright (C) 2006-2013 Alexander Barth Copyright (C) 2009 David Bateman This file is part of Octave.
--- a/m4/acinclude.m4 +++ b/m4/acinclude.m4 @@ -1,6 +1,6 @@ dnl aclocal.m4 -- extra macros for configuring Octave dnl -dnl Copyright (C) 1995-2012 John W. Eaton +dnl Copyright (C) 1995-2013 John W. Eaton dnl dnl This file is part of Octave. dnl @@ -70,7 +70,7 @@ dnl Otherwise, add FLAG to CFLAGS if the compiler accepts the flag. dnl AC_DEFUN([OCTAVE_CC_FLAG], [ - ac_safe=`echo "$1" | sed 'y% ./+-:=%___p___%'` + ac_safe=`echo "$1" | $SED 'y% ./+-:=%___p___%'` AC_MSG_CHECKING([whether ${CC-cc} accepts $1]) AC_CACHE_VAL([octave_cv_cc_flag_$ac_safe], [AC_LANG_PUSH(C) @@ -151,7 +151,7 @@ dnl argument and returning bool/int/real. dnl AC_DEFUN([OCTAVE_CHECK_FUNC_CMATH], [ - ac_safe=`echo "$1" | sed 'y% ./+-:=%___p___%'` + ac_safe=`echo "$1" | $SED 'y% ./+-:=%___p___%'` AC_CACHE_CHECK([for std::$1 in <cmath>], [octave_cv_func_cmath_$ac_safe], @@ -1109,7 +1109,7 @@ dnl Otherwise, add FLAG to CXXFLAGS if the compiler accepts the flag. dnl AC_DEFUN([OCTAVE_CXX_FLAG], [ - ac_safe=`echo "$1" | sed 'y%./+-:=%__p___%'` + ac_safe=`echo "$1" | $SED 'y%./+-:=%__p___%'` AC_MSG_CHECKING([whether ${CXX-g++} accepts $1]) AC_CACHE_VAL([octave_cv_cxx_flag_$ac_safe], [AC_LANG_PUSH(C++) @@ -1266,7 +1266,7 @@ dnl the flag. dnl AC_DEFUN([OCTAVE_F77_FLAG], [ - ac_safe=`echo "$1" | sed 'y%./+-:=%__p___%'` + ac_safe=`echo "$1" | $SED 'y%./+-:=%__p___%'` AC_MSG_CHECKING([whether ${F77-g77} accepts $1]) AC_CACHE_VAL([octave_cv_f77_flag_$ac_safe], [ AC_LANG_PUSH(Fortran 77)
--- a/oct-conf-post.in.h +++ b/oct-conf-post.in.h @@ -1,6 +1,6 @@ /* -Copyright (C) 1993-2012 John W. Eaton +Copyright (C) 1993-2013 John W. Eaton This file is part of Octave.
--- a/run-octave.in +++ b/run-octave.in @@ -2,7 +2,7 @@ ## ## run-octave -- run Octave in the build tree. ## -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/@ftp/ascii.m +++ b/scripts/@ftp/ascii.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/binary.m +++ b/scripts/@ftp/binary.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/cd.m +++ b/scripts/@ftp/cd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/close.m +++ b/scripts/@ftp/close.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/delete.m +++ b/scripts/@ftp/delete.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/dir.m +++ b/scripts/@ftp/dir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/display.m +++ b/scripts/@ftp/display.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/ftp.m +++ b/scripts/@ftp/ftp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/loadobj.m +++ b/scripts/@ftp/loadobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/mget.m +++ b/scripts/@ftp/mget.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/mkdir.m +++ b/scripts/@ftp/mkdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/mput.m +++ b/scripts/@ftp/mput.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/rename.m +++ b/scripts/@ftp/rename.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/rmdir.m +++ b/scripts/@ftp/rmdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/@ftp/saveobj.m +++ b/scripts/@ftp/saveobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 David Bateman +## Copyright (C) 2009-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/Makefile.am +++ b/scripts/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's scripts directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. # @@ -75,7 +75,6 @@ include strings/module.mk include testfun/module.mk include time/module.mk -include ui/module.mk nobase_fcnfile_DATA = $(FCN_FILES) $(GEN_FCN_FILES) $(JAR_FILES)
--- a/scripts/audio/lin2mu.m +++ b/scripts/audio/lin2mu.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/loadaudio.m +++ b/scripts/audio/loadaudio.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/mu2lin.m +++ b/scripts/audio/mu2lin.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/playaudio.m +++ b/scripts/audio/playaudio.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/record.m +++ b/scripts/audio/record.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/saveaudio.m +++ b/scripts/audio/saveaudio.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/setaudio.m +++ b/scripts/audio/setaudio.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/audio/wavread.m +++ b/scripts/audio/wavread.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Michael Zeising +## Copyright (C) 2005-2013 Michael Zeising ## ## This file is part of Octave. ##
--- a/scripts/audio/wavwrite.m +++ b/scripts/audio/wavwrite.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Michael Zeising +## Copyright (C) 2005-2013 Michael Zeising ## ## This file is part of Octave. ##
--- a/scripts/deprecated/__error_text__.m +++ b/scripts/deprecated/__error_text__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/deprecated/cor.m +++ b/scripts/deprecated/cor.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/deprecated/corrcoef.m +++ b/scripts/deprecated/corrcoef.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/deprecated/cut.m +++ b/scripts/deprecated/cut.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/deprecated/error_text.m +++ b/scripts/deprecated/error_text.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
rename from scripts/general/interp1q.m rename to scripts/deprecated/interp1q.m --- a/scripts/general/interp1q.m +++ b/scripts/deprecated/interp1q.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ## @@ -37,6 +37,14 @@ ## @end deftypefn function yi = interp1q (x, y, xi) + + persistent warned = false; + if (! warned) + warned = true; + warning ("Octave:deprecated-function", + "interp1q is obsolete and will be removed from a future version of Octave; use interp1 instead"); + endif + x = x(:); nx = rows (x); szy = size (y);
--- a/scripts/deprecated/isequalwithequalnans.m +++ b/scripts/deprecated/isequalwithequalnans.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2005-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/deprecated/isstr.m +++ b/scripts/deprecated/isstr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_convert_matrix.m +++ b/scripts/deprecated/java_convert_matrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_debug.m +++ b/scripts/deprecated/java_debug.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_get.m +++ b/scripts/deprecated/java_get.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_invoke.m +++ b/scripts/deprecated/java_invoke.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007 Michael Goffioul +## Copyright (C) 2007, 2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_new.m +++ b/scripts/deprecated/java_new.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_set.m +++ b/scripts/deprecated/java_set.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/java_unsigned_conversion.m +++ b/scripts/deprecated/java_unsigned_conversion.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/javafields.m +++ b/scripts/deprecated/javafields.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007 Michael Goffioul +## Copyright (C) 2007, 2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/deprecated/javamethods.m +++ b/scripts/deprecated/javamethods.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007 Michael Goffioul +## Copyright (C) 2007, 2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/deprecated/module.mk +++ b/scripts/deprecated/module.mk @@ -6,12 +6,13 @@ deprecated/corrcoef.m \ deprecated/cut.m \ deprecated/default_save_options.m \ - deprecated/java_debug.m \ deprecated/error_text.m \ deprecated/gen_doc_cache.m \ + deprecated/interp1q.m \ deprecated/isequalwithequalnans.m \ deprecated/isstr.m \ deprecated/java_convert_matrix.m \ + deprecated/java_debug.m \ deprecated/java_get.m \ deprecated/java_invoke.m \ deprecated/java_new.m \
--- a/scripts/deprecated/polyderiv.m +++ b/scripts/deprecated/polyderiv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/deprecated/shell_cmd.m +++ b/scripts/deprecated/shell_cmd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/deprecated/studentize.m +++ b/scripts/deprecated/studentize.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/deprecated/sylvester_matrix.m +++ b/scripts/deprecated/sylvester_matrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/acosd.m +++ b/scripts/elfun/acosd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/acot.m +++ b/scripts/elfun/acot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/acotd.m +++ b/scripts/elfun/acotd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/acoth.m +++ b/scripts/elfun/acoth.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/acsc.m +++ b/scripts/elfun/acsc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/acscd.m +++ b/scripts/elfun/acscd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/acsch.m +++ b/scripts/elfun/acsch.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/asec.m +++ b/scripts/elfun/asec.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/asecd.m +++ b/scripts/elfun/asecd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/asech.m +++ b/scripts/elfun/asech.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/asind.m +++ b/scripts/elfun/asind.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/atand.m +++ b/scripts/elfun/atand.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/cosd.m +++ b/scripts/elfun/cosd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/cot.m +++ b/scripts/elfun/cot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/cotd.m +++ b/scripts/elfun/cotd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/coth.m +++ b/scripts/elfun/coth.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/csc.m +++ b/scripts/elfun/csc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/cscd.m +++ b/scripts/elfun/cscd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/csch.m +++ b/scripts/elfun/csch.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/sec.m +++ b/scripts/elfun/sec.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/secd.m +++ b/scripts/elfun/secd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/sech.m +++ b/scripts/elfun/sech.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/elfun/sind.m +++ b/scripts/elfun/sind.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/elfun/tand.m +++ b/scripts/elfun/tand.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/accumarray.m +++ b/scripts/general/accumarray.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## Copyright (C) 2009-2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/general/accumdim.m +++ b/scripts/general/accumdim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 VZLU Prague +## Copyright (C) 2010-2013 VZLU Prague ## ## This file is part of Octave. ##
--- a/scripts/general/bicubic.m +++ b/scripts/general/bicubic.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Hoxide Ma +## Copyright (C) 2005-2013 Hoxide Ma ## ## This file is part of Octave. ##
rename from scripts/miscellaneous/bincoeff.m rename to scripts/general/bincoeff.m --- a/scripts/miscellaneous/bincoeff.m +++ b/scripts/general/bincoeff.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/general/bitcmp.m +++ b/scripts/general/bitcmp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/bitget.m +++ b/scripts/general/bitget.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/bitset.m +++ b/scripts/general/bitset.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## Copyright (C) 2012 Jordi Gutiérrez Hermoso ## ## This file is part of Octave.
--- a/scripts/general/blkdiag.m +++ b/scripts/general/blkdiag.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Daniel Calvelo +## Copyright (C) 2000-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/general/cart2pol.m +++ b/scripts/general/cart2pol.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/cart2sph.m +++ b/scripts/general/cart2sph.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/cell2mat.m +++ b/scripts/general/cell2mat.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Laurent Mazet +## Copyright (C) 2005-2013 Laurent Mazet ## Copyright (C) 2010 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/general/celldisp.m +++ b/scripts/general/celldisp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/chop.m +++ b/scripts/general/chop.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 John W. Eaton +## Copyright (C) 2010-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/circshift.m +++ b/scripts/general/circshift.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/common_size.m +++ b/scripts/general/common_size.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2009 VZLU Prague ## Copyright (C) 2009 Jaroslav Hajek ##
--- a/scripts/general/cplxpair.m +++ b/scripts/general/cplxpair.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/general/cumtrapz.m +++ b/scripts/general/cumtrapz.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/curl.m +++ b/scripts/general/curl.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Kai Habel +## Copyright (C) 2009-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/dblquad.m +++ b/scripts/general/dblquad.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/deal.m +++ b/scripts/general/deal.m @@ -1,4 +1,4 @@ -## Copyright (C) 1998-2012 Ariel Tankus +## Copyright (C) 1998-2013 Ariel Tankus ## ## This file is part of Octave. ##
--- a/scripts/general/del2.m +++ b/scripts/general/del2.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## Copyright (C) 2007 David Bateman ## ## This file is part of Octave.
--- a/scripts/general/display.m +++ b/scripts/general/display.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/divergence.m +++ b/scripts/general/divergence.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Kai Habel +## Copyright (C) 2009-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/fieldnames.m +++ b/scripts/general/fieldnames.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/general/flipdim.m +++ b/scripts/general/flipdim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/general/fliplr.m +++ b/scripts/general/fliplr.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/flipud.m +++ b/scripts/general/flipud.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/gradient.m +++ b/scripts/general/gradient.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/idivide.m +++ b/scripts/general/idivide.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/int2str.m +++ b/scripts/general/int2str.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/interp1.m +++ b/scripts/general/interp1.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/general/interp2.m +++ b/scripts/general/interp2.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/general/interp3.m +++ b/scripts/general/interp3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/interpft.m +++ b/scripts/general/interpft.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/general/interpn.m +++ b/scripts/general/interpn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/isa.m +++ b/scripts/general/isa.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/iscolumn.m +++ b/scripts/general/iscolumn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/isdir.m +++ b/scripts/general/isdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Alois Schloegl +## Copyright (C) 2004-2013 Alois Schloegl ## ## This file is part of Octave. ##
--- a/scripts/general/isequal.m +++ b/scripts/general/isequal.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2005-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/general/isequaln.m +++ b/scripts/general/isequaln.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2005-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/general/isrow.m +++ b/scripts/general/isrow.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/isscalar.m +++ b/scripts/general/isscalar.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/issquare.m +++ b/scripts/general/issquare.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/isvector.m +++ b/scripts/general/isvector.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/loadobj.m +++ b/scripts/general/loadobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/logspace.m +++ b/scripts/general/logspace.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/methods.m +++ b/scripts/general/methods.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/general/module.mk +++ b/scripts/general/module.mk @@ -8,6 +8,7 @@ general/accumarray.m \ general/accumdim.m \ general/bicubic.m \ + general/bincoeff.m \ general/bitcmp.m \ general/bitget.m \ general/bitset.m \ @@ -18,7 +19,6 @@ general/celldisp.m \ general/chop.m \ general/circshift.m \ - general/colon.m \ general/common_size.m \ general/cplxpair.m \ general/cumtrapz.m \ @@ -32,12 +32,10 @@ general/flipdim.m \ general/fliplr.m \ general/flipud.m \ - general/genvarname.m \ general/gradient.m \ general/idivide.m \ general/int2str.m \ general/interp1.m \ - general/interp1q.m \ general/interp2.m \ general/interp3.m \ general/interpn.m \
--- a/scripts/general/nargchk.m +++ b/scripts/general/nargchk.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/general/narginchk.m +++ b/scripts/general/narginchk.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Carnë Draug +## Copyright (C) 2012-2013 Carnë Draug ## ## This file is part of Octave. ##
--- a/scripts/general/nargoutchk.m +++ b/scripts/general/nargoutchk.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## Copyright (C) 2012 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/general/nextpow2.m +++ b/scripts/general/nextpow2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/general/nthargout.m +++ b/scripts/general/nthargout.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Jordi Gutiérrez Hermoso +## Copyright (C) 2012-2013 Jordi Gutiérrez Hermoso ## ## This file is part of Octave. ##
--- a/scripts/general/num2str.m +++ b/scripts/general/num2str.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/pol2cart.m +++ b/scripts/general/pol2cart.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/polyarea.m +++ b/scripts/general/polyarea.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 David M. Doolin +## Copyright (C) 1999-2013 David M. Doolin ## ## This file is part of Octave. ##
--- a/scripts/general/postpad.m +++ b/scripts/general/postpad.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/prepad.m +++ b/scripts/general/prepad.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/private/__isequal__.m +++ b/scripts/general/private/__isequal__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/general/private/__splinen__.m +++ b/scripts/general/private/__splinen__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/profexplore.m +++ b/scripts/general/profexplore.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Daniel Kraft +## Copyright (C) 2012-2013 Daniel Kraft ## ## This file is part of Octave. ##
--- a/scripts/general/profile.m +++ b/scripts/general/profile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Daniel Kraft +## Copyright (C) 2012-2013 Daniel Kraft ## ## This file is part of Octave. ##
--- a/scripts/general/profshow.m +++ b/scripts/general/profshow.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Daniel Kraft +## Copyright (C) 2012-2013 Daniel Kraft ## ## This file is part of Octave. ##
--- a/scripts/general/quadgk.m +++ b/scripts/general/quadgk.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/quadl.m +++ b/scripts/general/quadl.m @@ -1,4 +1,4 @@ -## Copyright (C) 1998-2012 Walter Gautschi +## Copyright (C) 1998-2013 Walter Gautschi ## ## This file is part of Octave. ##
--- a/scripts/general/quadv.m +++ b/scripts/general/quadv.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## Copyright (C) 2012 Alexander Klein ## ## This file is part of Octave.
--- a/scripts/general/randi.m +++ b/scripts/general/randi.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Rik Wehbring +## Copyright (C) 2010-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/general/rat.m +++ b/scripts/general/rat.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/general/repmat.m +++ b/scripts/general/repmat.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2008 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/general/rot90.m +++ b/scripts/general/rot90.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/general/rotdim.m +++ b/scripts/general/rotdim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman +## Copyright (C) 2004-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/saveobj.m +++ b/scripts/general/saveobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/shift.m +++ b/scripts/general/shift.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/general/shiftdim.m +++ b/scripts/general/shiftdim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John Eaton and David Bateman +## Copyright (C) 2004-2013 John Eaton and David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/sortrows.m +++ b/scripts/general/sortrows.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Daniel Calvelo +## Copyright (C) 2000-2013 Daniel Calvelo ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/general/sph2cart.m +++ b/scripts/general/sph2cart.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/structfun.m +++ b/scripts/general/structfun.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/general/subsindex.m +++ b/scripts/general/subsindex.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/general/trapz.m +++ b/scripts/general/trapz.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/general/triplequad.m +++ b/scripts/general/triplequad.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/convhull.m +++ b/scripts/geometry/convhull.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/geometry/delaunay.m +++ b/scripts/geometry/delaunay.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/geometry/delaunay3.m +++ b/scripts/geometry/delaunay3.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/geometry/delaunayn.m +++ b/scripts/geometry/delaunayn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/dsearch.m +++ b/scripts/geometry/dsearch.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/dsearchn.m +++ b/scripts/geometry/dsearchn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/griddata.m +++ b/scripts/geometry/griddata.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/geometry/griddata3.m +++ b/scripts/geometry/griddata3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/griddatan.m +++ b/scripts/geometry/griddatan.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/inpolygon.m +++ b/scripts/geometry/inpolygon.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Frederick (Rick) A Niles +## Copyright (C) 2006-2013 Frederick (Rick) A Niles ## and Søren Hauberg ## ## This file is part of Octave.
--- a/scripts/geometry/rectint.m +++ b/scripts/geometry/rectint.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/geometry/tsearchn.m +++ b/scripts/geometry/tsearchn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/geometry/voronoi.m +++ b/scripts/geometry/voronoi.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/geometry/voronoin.m +++ b/scripts/geometry/voronoin.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
rename from scripts/ui/errordlg.m rename to scripts/gui/errordlg.m --- a/scripts/ui/errordlg.m +++ b/scripts/gui/errordlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/gui/guidata.m +++ b/scripts/gui/guidata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/guihandles.m +++ b/scripts/gui/guihandles.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
rename from scripts/ui/helpdlg.m rename to scripts/gui/helpdlg.m --- a/scripts/ui/helpdlg.m +++ b/scripts/gui/helpdlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
rename from scripts/ui/inputdlg.m rename to scripts/gui/inputdlg.m --- a/scripts/ui/inputdlg.m +++ b/scripts/gui/inputdlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
rename from scripts/ui/listdlg.m rename to scripts/gui/listdlg.m --- a/scripts/ui/listdlg.m +++ b/scripts/gui/listdlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/gui/module.mk +++ b/scripts/gui/module.mk @@ -7,11 +7,18 @@ gui/private/__uigetdir_fltk__.m \ gui/private/__uigetfile_fltk__.m \ gui/private/__uiobject_split_args__.m \ - gui/private/__uiputfile_fltk__.m + gui/private/__uiputfile_fltk__.m \ + gui/private/message_dialog.m gui_FCN_FILES = \ + gui/errordlg.m \ gui/guidata.m \ gui/guihandles.m \ + gui/helpdlg.m \ + gui/inputdlg.m \ + gui/listdlg.m \ + gui/msgbox.m \ + gui/questdlg.m \ gui/uicontextmenu.m \ gui/uicontrol.m \ gui/uigetdir.m \ @@ -26,6 +33,7 @@ gui/uiwait.m \ gui/waitbar.m \ gui/waitforbuttonpress.m \ + gui/warndlg.m \ $(gui_PRIVATE_FCN_FILES) FCN_FILES += $(gui_FCN_FILES)
rename from scripts/ui/msgbox.m rename to scripts/gui/msgbox.m --- a/scripts/ui/msgbox.m +++ b/scripts/gui/msgbox.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__file_filter__.m +++ b/scripts/gui/private/__file_filter__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__fltk_file_filter__.m +++ b/scripts/gui/private/__fltk_file_filter__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__is_function__.m +++ b/scripts/gui/private/__is_function__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__uigetdir_fltk__.m +++ b/scripts/gui/private/__uigetdir_fltk__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__uigetfile_fltk__.m +++ b/scripts/gui/private/__uigetfile_fltk__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__uiobject_split_args__.m +++ b/scripts/gui/private/__uiobject_split_args__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/private/__uiputfile_fltk__.m +++ b/scripts/gui/private/__uiputfile_fltk__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
rename from scripts/ui/private/message_dialog.m rename to scripts/gui/private/message_dialog.m --- a/scripts/ui/private/message_dialog.m +++ b/scripts/gui/private/message_dialog.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
rename from scripts/ui/questdlg.m rename to scripts/gui/questdlg.m --- a/scripts/ui/questdlg.m +++ b/scripts/gui/questdlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/gui/uicontextmenu.m +++ b/scripts/gui/uicontextmenu.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uicontrol.m +++ b/scripts/gui/uicontrol.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uigetdir.m +++ b/scripts/gui/uigetdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/gui/uigetfile.m +++ b/scripts/gui/uigetfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/gui/uimenu.m +++ b/scripts/gui/uimenu.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/gui/uipanel.m +++ b/scripts/gui/uipanel.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uipushtool.m +++ b/scripts/gui/uipushtool.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uiputfile.m +++ b/scripts/gui/uiputfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/gui/uiresume.m +++ b/scripts/gui/uiresume.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uitoggletool.m +++ b/scripts/gui/uitoggletool.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uitoolbar.m +++ b/scripts/gui/uitoolbar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/uiwait.m +++ b/scripts/gui/uiwait.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/gui/waitbar.m +++ b/scripts/gui/waitbar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/gui/waitforbuttonpress.m +++ b/scripts/gui/waitforbuttonpress.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Petr Mikulik +## Copyright (C) 2004-2013 Petr Mikulik ## ## This file is part of Octave. ##
rename from scripts/ui/warndlg.m rename to scripts/gui/warndlg.m --- a/scripts/ui/warndlg.m +++ b/scripts/gui/warndlg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/help/__makeinfo__.m +++ b/scripts/help/__makeinfo__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/__unimplemented__.m +++ b/scripts/help/__unimplemented__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 John W. Eaton +## Copyright (C) 2010-2013 John W. Eaton ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/help/doc.m +++ b/scripts/help/doc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/doc_cache_create.m +++ b/scripts/help/doc_cache_create.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/get_first_help_sentence.m +++ b/scripts/help/get_first_help_sentence.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/help.m +++ b/scripts/help/help.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/lookfor.m +++ b/scripts/help/lookfor.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/print_usage.m +++ b/scripts/help/print_usage.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/private/__additional_help_message__.m +++ b/scripts/help/private/__additional_help_message__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/private/__strip_html_tags__.m +++ b/scripts/help/private/__strip_html_tags__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/type.m +++ b/scripts/help/type.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/help/which.m +++ b/scripts/help/which.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 John W. Eaton +## Copyright (C) 2009-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/autumn.m +++ b/scripts/image/autumn.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/bone.m +++ b/scripts/image/bone.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/brighten.m +++ b/scripts/image/brighten.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/cmpermute.m +++ b/scripts/image/cmpermute.m @@ -1,5 +1,5 @@ ## Copyright (C) 2004 Josep Mones i Teixidor -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/image/cmunique.m +++ b/scripts/image/cmunique.m @@ -1,5 +1,5 @@ ## Copyright (C) 2004 Josep Mones i Teixidor -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/image/colorcube.m +++ b/scripts/image/colorcube.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/image/colormap.m +++ b/scripts/image/colormap.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2012 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/image/contrast.m +++ b/scripts/image/contrast.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/image/cool.m +++ b/scripts/image/cool.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/copper.m +++ b/scripts/image/copper.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/flag.m +++ b/scripts/image/flag.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/gmap40.m +++ b/scripts/image/gmap40.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/image/gray.m +++ b/scripts/image/gray.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/gray2ind.m +++ b/scripts/image/gray2ind.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -45,7 +45,7 @@ error ("gray2ind: I must be a grayscale or binary image"); elseif (! isscalar (n) || n < 1 || n > 65536) error ("gray2ind: N must be a positive integer in the range [1, 65536]"); - elseif (! ismatrix (I) || ndims (I) != 2) + elseif (! ismatrix (I) || ndims (I) < 2) error ("gray2ind: I must be a grayscale or binary image"); endif
--- a/scripts/image/hot.m +++ b/scripts/image/hot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/hsv.m +++ b/scripts/image/hsv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/hsv2rgb.m +++ b/scripts/image/hsv2rgb.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/image.m +++ b/scripts/image/image.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -19,7 +19,8 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} image (@var{img}) ## @deftypefnx {Function File} {} image (@var{x}, @var{y}, @var{img}) -## @deftypefnx {Function File} {} image (@dots{}, "@var{property}", @var{value}, @dots{}) +## @deftypefnx {Function File} {} image (@dots{}, "@var{prop}", @var{val}, @dots{}) +## @deftypefnx {Function File} {} image ("@var{prop1}", @var{val1}, @dots{}) ## @deftypefnx {Function File} {@var{h} =} image (@dots{}) ## Display a matrix as an indexed color image. ## @@ -33,6 +34,9 @@ ## @strong{Warning:} @var{x} and @var{y} are ignored when using gnuplot 4.0 ## or earlier. ## +## Multiple property/value pairs may be specified for the image object, but +## they must appear in pairs. +## ## The optional return value @var{h} is a graphics handle to the image. ## ## Implementation Note: The origin (0, 0) for images is located in the @@ -44,6 +48,12 @@ ## solution is to display the image and then plot the reversed ydata ## using, for example, @code{flipud (ydata)}. ## +## Calling Forms: The @code{image} function can be called in two forms: +## High-Level and Low-Level. When invoked with normal options, the High-Level +## form is used which first calls @code{newplot} to prepare the graphic figure +## and axes. When the only inputs to @code{image} are property/value pairs +## the Low-Level form is used which creates a new instance of an image object +## and inserts it in the current axes. ## @seealso{imshow, imagesc, colormap} ## @end deftypefn @@ -55,15 +65,31 @@ [hax, varargin, nargin] = __plt_get_axis_arg__ ("image", varargin{:}); - if (isempty (hax)) - hax = gca (); - endif - chararg = find (cellfun ("isclass", varargin, "char"), 1, "first"); - if (nargin == 0 || chararg == 1) + do_new = true; + if (nargin == 0) img = imread ("default.img"); x = y = []; + elseif (chararg == 1) + ## Low-Level syntax + do_new = false; + x = y = img = []; + idx = find (strcmpi (varargin, "cdata"), 1); + if (idx) + img = varargin{idx+1}; + varargin(idx:idx+1) = []; + endif + idx = find (strcmpi (varargin, "xdata"), 1); + if (idx) + x = varargin{idx+1}; + varargin(idx:idx+1) = []; + endif + idx = find (strcmpi (varargin, "ydata"), 1); + if (idx) + y = varargin{idx+1}; + varargin(idx:idx+1) = []; + endif elseif (nargin == 1 || chararg == 2) img = varargin{1}; x = y = []; @@ -75,9 +101,25 @@ img = varargin{3}; chararg = 4; endif - - htmp = __img__ (hax, x, y, img, varargin{chararg:end}); - set (hax, "layer", "top"); + + oldfig = []; + if (! isempty (hax)) + oldfig = get (0, "currentfigure"); + endif + unwind_protect + if (do_new) + hax = newplot (hax); + elseif (isempty (hax)) + hax = gca (); + endif + + htmp = __img__ (hax, do_new, x, y, img, varargin{chararg:end}); + + unwind_protect_cleanup + if (! isempty (oldfig)) + set (0, "currentfigure", oldfig); + endif + end_unwind_protect if (nargout > 0) h = htmp; @@ -95,89 +137,89 @@ ## Created: July 1994 ## Adapted-By: jwe -function h = __img__ (hax, x, y, img, varargin) - - if (isempty (img)) - error ("__img__: matrix is empty"); - endif +function h = __img__ (hax, do_new, x, y, img, varargin) ## FIXME: Hack for integer formats which use zero-based indexing ## Hack favors correctness of display over size of image in memory. - ## True fix will be done in C++ code. + ## True fix must be done in C++ code for renderer. if (ndims (img) == 2 && (isinteger (img) || islogical (img))) img = single (img) + 1; endif - if (isempty (x)) - x = [1, columns(img)]; - endif + if (! isempty (img)) + + if (isempty (x)) + x = [1, columns(img)]; + endif - if (isempty (y)) - y = [1, rows(img)]; - endif + if (isempty (y)) + y = [1, rows(img)]; + endif - xdata = x([1, end]); - ydata = y([1, end]); + xdata = x([1, end]); + ydata = y([1, end]); - if (numel (x) > 2 && numel (y) > 2) - ## Test data for non-linear spacing which is unsupported - tol = .01; # 1% tolerance. FIXME: this value was chosen without thought. - dx = diff (x); - dxmean = (max (x) - min (x)) / (numel (x) - 1); - dx = abs ((dx - dxmean) / dxmean); - dy = diff (y); - dymean = (max (y) - min (y)) / (numel (y) - 1); - dy = abs ((dy - dymean) / dymean); - if (any (dx > tol) || any (dy > tol)) - warning ("image: non-linear X, Y data is ignored. IMG will be shown with linear mapping"); + if (numel (x) > 2 && numel (y) > 2) + ## Test data for non-linear spacing which is unsupported + tol = .01; # 1% tolerance. FIXME: this value was chosen without thought. + dx = diff (x); + dxmean = (max (x) - min (x)) / (numel (x) - 1); + dx = abs ((abs (dx) - dxmean) / dxmean); + dy = diff (y); + dymean = (max (y) - min (y)) / (numel (y) - 1); + dy = abs ((abs (dy) - dymean) / dymean); + if (any (dx > tol) || any (dy > tol)) + warning (["image: non-linear X, Y data is ignored. " ... + "IMG will be shown with linear mapping"]); + endif endif - endif + + endif # ! isempty (img) - htmp = __go_image__ (hax, "cdata", img, "xdata", xdata, "ydata", ydata, - "cdatamapping", "direct", varargin {:}); + h = __go_image__ (hax, "cdata", img, "xdata", xdata, "ydata", ydata, + "cdatamapping", "direct", varargin{:}); - px = __image_pixel_size__ (htmp); + if (do_new && ! ishold (hax)) + ## Set axis properties for new images - if (xdata(2) < xdata(1)) - xdata = fliplr (xdata); - elseif (xdata(2) == xdata(1)) - xdata = xdata(1) + [0, columns(img)-1]; - endif - if (ydata(2) < ydata(1)) - ydata = fliplr (ydata); - elseif (ydata(2) == ydata(1)) - ydata = ydata(1) + [0, rows(img)-1]; - endif - xlim = xdata + [-px(1), px(1)]; - ylim = ydata + [-px(2), px(2)]; + if (! isempty (img)) + px = __image_pixel_size__ (h); + + if (xdata(2) < xdata(1)) + xdata = fliplr (xdata); + elseif (xdata(2) == xdata(1)) + xdata = xdata(1) + [0, columns(img)-1]; + endif + if (ydata(2) < ydata(1)) + ydata = fliplr (ydata); + elseif (ydata(2) == ydata(1)) + ydata = ydata(1) + [0, rows(img)-1]; + endif + xlim = xdata + [-px(1), px(1)]; + ylim = ydata + [-px(2), px(2)]; - ## FIXME -- how can we do this and also get the {x,y}limmode - ## properties to remain "auto"? I suppose this adjustment should - ## happen automatically in axes::update_axis_limits instead of - ## explicitly setting the values here. But then what information is - ## available to axes::update_axis_limits to determine that the - ## adjustment is necessary? - set (hax, "xlim", xlim, "ylim", ylim); + ## FIXME -- how can we do this and also get the {x,y}limmode + ## properties to remain "auto"? I suppose this adjustment should + ## happen automatically in axes::update_axis_limits instead of + ## explicitly setting the values here. But then what information is + ## available to axes::update_axis_limits to determine that the + ## adjustment is necessary? + set (hax, "xlim", xlim, "ylim", ylim); - if (ndims (img) == 3) - if (isinteger (img)) - cls = class (img); - mn = intmin (cls); - mx = intmax (cls); - set (hax, "clim", double ([mn, mx])); - endif - endif + if (ndims (img) == 3) + if (isinteger (img)) + cls = class (img); + mn = intmin (cls); + mx = intmax (cls); + set (hax, "clim", double ([mn, mx])); + endif + endif - set (hax, "view", [0, 90]); + endif # ! isempty (img) - if (strcmp (get (hax, "nextplot"), "replace")) - ## Always reverse y-axis for images, unless hold is on - set (hax, "ydir", "reverse"); - endif + set (hax, "view", [0, 90], "ydir", "reverse", "layer", "bottom"); - if (nargout > 0) - h = htmp; - endif + endif # do_new endfunction @@ -202,3 +244,4 @@ %! h = image (-x, -y, img); %! title ("image (-x, -y, img)"); +## FIXME: Need %!tests for linear
--- a/scripts/image/imagesc.m +++ b/scripts/image/imagesc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -20,6 +20,8 @@ ## @deftypefn {Function File} {} imagesc (@var{img}) ## @deftypefnx {Function File} {} imagesc (@var{x}, @var{y}, @var{img}) ## @deftypefnx {Function File} {} imagesc (@dots{}, @var{climits}) +## @deftypefnx {Function File} {} imagesc (@dots{}, "@var{prop}", @var{val}, @dots{}) +## @deftypefnx {Function File} {} imagesc ("@var{prop1}", @var{val1}, @dots{}) ## @deftypefnx {Function File} {} imagesc (@var{hax}, @dots{}) ## @deftypefnx {Function File} {@var{h} =} imagesc (@dots{}) ## Display a scaled version of the matrix @var{img} as a color image. The @@ -33,6 +35,14 @@ ## of the matrix @var{img}. ## ## The optional return value @var{h} is a graphics handle to the image. +## +## Calling Forms: The @code{imagesc} function can be called in two forms: +## High-Level and Low-Level. When invoked with normal options, the High-Level +## form is used which first calls @code{newplot} to prepare the graphic figure +## and axes. When the only inputs to @code{image} are property/value pairs +## the Low-Level form is used which creates a new instance of an image object +## and inserts it in the current axes. +## ## @seealso{image, imshow, caxis} ## @end deftypefn @@ -42,23 +52,66 @@ function h = imagesc (varargin) - if (nargin < 1 || nargin > 4) + [hax, varargin, nargin] = __plt_get_axis_arg__ ("imagesc", varargin{:}); + + chararg = find (cellfun ("isclass", varargin, "char"), 1, "first"); + + do_new = true; + if (nargin == 0) print_usage (); - elseif (isscalar (varargin{1}) && ishandle (varargin{1})) - hax = varargin{1}; - if (! isaxes (hax)) - error ("imagesc: HAX argument must be an axes object"); + elseif (chararg == 1) + ## Low-Level syntax + do_new = false; + img = x = y = climits = []; + elseif (nargin == 1 || chararg == 2) + img = varargin{1}; + x = y = climits = []; + elseif (nargin == 2 || chararg == 3) + img = varargin{1}; + climits = varargin{2}; + x = y = []; + elseif (nargin == 3 || chararg == 4) + x = varargin{1}; + y = varargin{2}; + img = varargin{3}; + climits = []; + elseif (nargin == 4 || chararg == 5) + x = varargin{1}; + y = varargin{2}; + img = varargin{3}; + climits = varargin{4}; + endif + + oldfig = []; + if (! isempty (hax)) + oldfig = get (0, "currentfigure"); + endif + unwind_protect + if (do_new) + hax = newplot (hax); + elseif (isempty (hax)) + hax = gca (); endif - oldh = gca (); - unwind_protect - axes (h); - htmp = __imagesc__ (hax, varargin{2:end}); - unwind_protect_cleanup - axes (oldh); - end_unwind_protect - else - htmp = __imagesc__ (gca (), varargin{:}); - endif + + if (do_new) + htmp = image (x, y, img, "cdatamapping", "scaled", varargin{chararg:end}); + else + htmp = image ("cdatamapping", "scaled", varargin{:}); + endif + + if (do_new && ! ishold (hax)) + ## use given climits or guess them from the matrix + if (numel (climits) == 2 && climits(1) <= climits(2)) + set (hax, "clim", climits); + elseif (! isempty (climits)) + error ("imagesc: CLIMITS must be in form [lo, hi]"); + endif + endif + unwind_protect_cleanup + if (! isempty (oldfig)) + set (0, "currentfigure", oldfig); + endif + end_unwind_protect if (nargout > 0) h = htmp; @@ -66,31 +119,6 @@ endfunction -function h = __imagesc__ (ax, x, y, img, climits) - - if (nargin == 2) - img = x; - x = y = climits = []; - elseif (nargin == 3) - img = x; - climits = y; - x = y = []; - elseif (nargin == 4 && ! isscalar (x) && ! isscalar (y) && ! isscalar (img)) - climits = []; - endif - - h = image (ax, x, y, img); - set (h, "cdatamapping", "scaled"); - - ## use given climits or guess them from the matrix - if (numel (climits) == 2 && climits(1) <= climits(2)) - set (ax, "clim", climits); - elseif (! isempty (climits)) - error ("imagesc: CLIMITS must be in form [lo, hi]"); - endif - -endfunction - %!demo %! clf;
--- a/scripts/image/imfinfo.m +++ b/scripts/image/imfinfo.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Soren Hauberg +## Copyright (C) 2008-2013 Soren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/image/imread.m +++ b/scripts/image/imread.m @@ -1,5 +1,5 @@ ## Copyright (C) 2013 Carnë Draug -## Copyright (C) 2008-2012 Thomas L. Scofield +## Copyright (C) 2008-2013 Thomas L. Scofield ## Copyright (C) 2008 Kristian Rumberg ## Copyright (C) 2006 Thomas Weber ## Copyright (C) 2005 Stefan van der Walt
--- a/scripts/image/imshow.m +++ b/scripts/image/imshow.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -45,6 +45,19 @@ ## @table @asis ## @item @qcode{"displayrange"} ## @var{value1} is the display range as described above. +## +## @item "xdata" +## If @var{value1} is a two element vector, it must contain horizontal axis +## limits in the form [xmin xmax]; Otherwise @var{value1} must be a +## vector and only the first and last elements will be used for xmin and +## xmax respectively. +## +## @item "ydata" +## If @var{value1} is a two element vector, it must contain vertical axis +## limits in the form [ymin ymax]; Otherwise @var{value1} must be a +## vector and only the first and last elements will be used for ymin and +## ymax respectively. +## ## @end table ## ## The optional return value @var{h} is a graphics handle to the image. @@ -64,6 +77,7 @@ display_range = NA; true_color = false; indexed = false; + xdata = ydata = []; ## Get the image. if (ischar (im)) @@ -105,9 +119,21 @@ error ("imshow: argument number %d is invalid", narg+1); endif elseif (ischar (arg)) - switch (arg) + switch (tolower (arg)) case "displayrange"; display_range = varargin{narg++}; + case "xdata"; + xdata = varargin{narg++}; + if (! isvector (xdata)) + error ("imshow: xdata must be a vector") + endif + xdata = [xdata(1) xdata(end)]; + case "ydata"; + ydata = varargin{narg++}; + if (isvector (xdata)) + error ("imshow: expect a vector for ydata") + endif + ydata = [ydata(1) ydata(end)]; case {"truesize", "initialmagnification"} warning ("image: zoom argument ignored -- use GUI features"); otherwise @@ -161,9 +187,9 @@ endif if (true_color || indexed) - tmp = image ([], [], im); + tmp = image (xdata, ydata, im); else - tmp = image (im); + tmp = image (xdata, ydata, im); set (tmp, "cdatamapping", "scaled"); ## The backend is responsible for scaling to clim if necessary. set (gca (), "clim", display_range);
--- a/scripts/image/imwrite.m +++ b/scripts/image/imwrite.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 John W. Eaton +## Copyright (C) 2008-2013 John W. Eaton ## Copyright (C) 2013 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/image/ind2gray.m +++ b/scripts/image/ind2gray.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/ind2rgb.m +++ b/scripts/image/ind2rgb.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/iscolormap.m +++ b/scripts/image/iscolormap.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Carnë Draug +## Copyright (C) 2012-2013 Carnë Draug ## ## This file is part of Octave. ##
--- a/scripts/image/jet.m +++ b/scripts/image/jet.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/lines.m +++ b/scripts/image/lines.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Rik Wehbring +## Copyright (C) 2012-2013 Rik Wehbring ## ## This file is part of Octave. ##
--- a/scripts/image/ntsc2rgb.m +++ b/scripts/image/ntsc2rgb.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/ocean.m +++ b/scripts/image/ocean.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/pink.m +++ b/scripts/image/pink.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/prism.m +++ b/scripts/image/prism.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/private/__imfinfo__.m +++ b/scripts/image/private/__imfinfo__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Soren Hauberg +## Copyright (C) 2008-2013 Soren Hauberg ## Copyright (C) 2013 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/image/private/__imread__.m +++ b/scripts/image/private/__imread__.m @@ -1,5 +1,5 @@ ## Copyright (C) 2013 Carnë Draug -## Copyright (C) 2008-2012 Thomas L. Scofield +## Copyright (C) 2008-2013 Thomas L. Scofield ## Copyright (C) 2008 Kristian Rumberg ## Copyright (C) 2006 Thomas Weber ## Copyright (C) 2005 Stefan van der Walt
--- a/scripts/image/private/__imwrite__.m +++ b/scripts/image/private/__imwrite__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 John W. Eaton +## Copyright (C) 2008-2013 John W. Eaton ## Copyright (C) 2013 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/image/private/ind2x.m +++ b/scripts/image/private/ind2x.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2012 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/image/rainbow.m +++ b/scripts/image/rainbow.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/rgb2hsv.m +++ b/scripts/image/rgb2hsv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/rgb2ind.m +++ b/scripts/image/rgb2ind.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2012 Carnë Draug ## Copyright (C) 2013 Adam H Aitkenhead ##
--- a/scripts/image/rgb2ntsc.m +++ b/scripts/image/rgb2ntsc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/image/rgbplot.m +++ b/scripts/image/rgbplot.m @@ -1,5 +1,5 @@ -## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2012 Carnë Draug +## Copyright (C) 2012-2013 Rik Wehbring +## Copyright (C) 2012-2013 Carnë Draug ## ## This file is part of Octave. ##
--- a/scripts/image/spinmap.m +++ b/scripts/image/spinmap.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel +## Copyright (C) 2007-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/spring.m +++ b/scripts/image/spring.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/summer.m +++ b/scripts/image/summer.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/white.m +++ b/scripts/image/white.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/image/winter.m +++ b/scripts/image/winter.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Kai Habel +## Copyright (C) 1999-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/io/beep.m +++ b/scripts/io/beep.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/io/csvread.m +++ b/scripts/io/csvread.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/io/csvwrite.m +++ b/scripts/io/csvwrite.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/io/dlmwrite.m +++ b/scripts/io/dlmwrite.m @@ -1,4 +1,4 @@ -## Copyright (C) 2002-2012 Paul Kienzle +## Copyright (C) 2002-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/io/fileread.m +++ b/scripts/io/fileread.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 VZLU Prague +## Copyright (C) 2010-2013 VZLU Prague ## ## This file is part of Octave. ##
--- a/scripts/io/is_valid_file_id.m +++ b/scripts/io/is_valid_file_id.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 John W. Eaton +## Copyright (C) 2010-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/io/strread.m +++ b/scripts/io/strread.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Eric Chassande-Mottin, CNRS (France) +## Copyright (C) 2009-2013 Eric Chassande-Mottin, CNRS (France) ## Parts Copyright (C) 2012 Philip Nienhuis ## ## This file is part of Octave.
--- a/scripts/java/javaArray.m +++ b/scripts/java/javaArray.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007 Michael Goffioul +## Copyright (C) 2007, 2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/java/javaaddpath.m +++ b/scripts/java/javaaddpath.m @@ -1,5 +1,5 @@ -## Copyright (C) 2007 Michael Goffioul -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2007, 2013 Michael Goffioul +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/java/javaclasspath.m +++ b/scripts/java/javaclasspath.m @@ -1,5 +1,5 @@ -## Copyright (C) 2007 Michael Goffioul -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2007, 2013 Michael Goffioul +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/java/javamem.m +++ b/scripts/java/javamem.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010 Philip Nienhuis +## Copyright (C) 2010, 2013 Philip Nienhuis ## ## This file is part of Octave. ##
--- a/scripts/java/javarmpath.m +++ b/scripts/java/javarmpath.m @@ -1,5 +1,5 @@ -## Copyright (C) 2007 Michael Goffioul -## Copyright (C) 2010 Martin Hepperle +## Copyright (C) 2007, 2013 Michael Goffioul +## Copyright (C) 2010, 2013 Martin Hepperle ## ## This file is part of Octave. ##
--- a/scripts/java/org/octave/ClassHelper.java +++ b/scripts/java/org/octave/ClassHelper.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave. @@ -623,6 +623,10 @@ { return new Long (((Number) obj).longValue ()); } + else if (expType.equals (Float.TYPE) || expType.equals (Float.class)) + { + return new Float (((Number) obj).floatValue ()); + } } else if (isBooleanClass (expType)) {
--- a/scripts/java/org/octave/DlgListener.java +++ b/scripts/java/org/octave/DlgListener.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2010 Martin Hepperle +Copyright (C) 2010, 2013 Martin Hepperle This file is part of Octave.
--- a/scripts/java/org/octave/JDialogBox.java +++ b/scripts/java/org/octave/JDialogBox.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2010 Martin Hepperle +Copyright (C) 2010, 2013 Martin Hepperle This file is part of Octave.
--- a/scripts/java/org/octave/Matrix.java +++ b/scripts/java/org/octave/Matrix.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/scripts/java/org/octave/OctClassLoader.java +++ b/scripts/java/org/octave/OctClassLoader.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/scripts/java/org/octave/Octave.java +++ b/scripts/java/org/octave/Octave.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/scripts/java/org/octave/OctaveReference.java +++ b/scripts/java/org/octave/OctaveReference.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2007 Michael Goffioul +Copyright (C) 2007, 2013 Michael Goffioul This file is part of Octave.
--- a/scripts/java/org/octave/TeXcode.java +++ b/scripts/java/org/octave/TeXcode.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2010 Martin Hepperle +Copyright (C) 2010, 2013 Martin Hepperle This file is part of Octave.
--- a/scripts/java/org/octave/TeXtranslator.java +++ b/scripts/java/org/octave/TeXtranslator.java @@ -1,6 +1,6 @@ /* -Copyright (C) 2010 Martin Hepperle +Copyright (C) 2010, 2013 Martin Hepperle This file is part of Octave.
--- a/scripts/java/usejava.m +++ b/scripts/java/usejava.m @@ -1,5 +1,5 @@ -## Copyright (C) 2012 Rik Wehbring -## Parts Copyright (C) 2012 Philip Nienhuis +## Copyright (C) 2012-2013 Rik Wehbring +## Parts Copyright (C) 2012-2013 Philip Nienhuis ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/commutation_matrix.m +++ b/scripts/linear-algebra/commutation_matrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/cond.m +++ b/scripts/linear-algebra/cond.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/condest.m +++ b/scripts/linear-algebra/condest.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Regents of the University of California +## Copyright (C) 2007-2013 Regents of the University of California ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/cross.m +++ b/scripts/linear-algebra/cross.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/duplication_matrix.m +++ b/scripts/linear-algebra/duplication_matrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/expm.m +++ b/scripts/linear-algebra/expm.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek, Marco Caliari +## Copyright (C) 2008-2013 Jaroslav Hajek, Marco Caliari ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/housh.m +++ b/scripts/linear-algebra/housh.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 A. Scottedward Hodel +## Copyright (C) 1995-2013 A. Scottedward Hodel ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/isdefinite.m +++ b/scripts/linear-algebra/isdefinite.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 Gabriele Pannocchia +## Copyright (C) 2003-2013 Gabriele Pannocchia ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/ishermitian.m +++ b/scripts/linear-algebra/ishermitian.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/linear-algebra/issymmetric.m +++ b/scripts/linear-algebra/issymmetric.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/linear-algebra/krylov.m +++ b/scripts/linear-algebra/krylov.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 Auburn University. All rights reserved. +## Copyright (C) 1993-2013 Auburn University. All rights reserved. ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/logm.m +++ b/scripts/linear-algebra/logm.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 N. J. Higham +## Copyright (C) 2008-2013 N. J. Higham ## Copyright (C) 2010 Richard T. Guy ## Copyright (C) 2010 Marco Caliari ##
--- a/scripts/linear-algebra/normest.m +++ b/scripts/linear-algebra/normest.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman and Marco Caliari +## Copyright (C) 2006-2013 David Bateman and Marco Caliari ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/linear-algebra/null.m +++ b/scripts/linear-algebra/null.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/onenormest.m +++ b/scripts/linear-algebra/onenormest.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Regents of the University of California +## Copyright (C) 2007-2013 Regents of the University of California ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/orth.m +++ b/scripts/linear-algebra/orth.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/planerot.m +++ b/scripts/linear-algebra/planerot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/qzhess.m +++ b/scripts/linear-algebra/qzhess.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/rank.m +++ b/scripts/linear-algebra/rank.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/rref.m +++ b/scripts/linear-algebra/rref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/subspace.m +++ b/scripts/linear-algebra/subspace.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s., Czech Republic +## Copyright (C) 2008-2013 VZLU Prague, a.s., Czech Republic ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/trace.m +++ b/scripts/linear-algebra/trace.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/linear-algebra/vech.m +++ b/scripts/linear-algebra/vech.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/miscellaneous/ans.m +++ b/scripts/miscellaneous/ans.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/bug_report.m +++ b/scripts/miscellaneous/bug_report.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/bunzip2.m +++ b/scripts/miscellaneous/bunzip2.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Bill Denney +## Copyright (C) 2006-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/bzip2.m +++ b/scripts/miscellaneous/bzip2.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Thorsten Meyer +## Copyright (C) 2008-2013 Thorsten Meyer ## (based on gzip.m by David Bateman) ## ## This file is part of Octave.
--- a/scripts/miscellaneous/cast.m +++ b/scripts/miscellaneous/cast.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
rename from scripts/general/colon.m rename to scripts/miscellaneous/colon.m --- a/scripts/general/colon.m +++ b/scripts/miscellaneous/colon.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/comma.m +++ b/scripts/miscellaneous/comma.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/compare_versions.m +++ b/scripts/miscellaneous/compare_versions.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Bill Denney +## Copyright (C) 2006-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/computer.m +++ b/scripts/miscellaneous/computer.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/copyfile.m +++ b/scripts/miscellaneous/copyfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/debug.m +++ b/scripts/miscellaneous/debug.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/delete.m +++ b/scripts/miscellaneous/delete.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/dir.m +++ b/scripts/miscellaneous/dir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/dos.m +++ b/scripts/miscellaneous/dos.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/dump_prefs.m +++ b/scripts/miscellaneous/dump_prefs.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/edit.m +++ b/scripts/miscellaneous/edit.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ## @@ -44,15 +44,15 @@ ## @item ## If @code{@var{name}.cc} is specified, then it will search for ## @code{@var{name}.cc} in the path and try to modify it, otherwise it will -## create a new @file{.cc} file in @env{HOME}. If @var{name} happens to be an -## m-file or interpreter defined function, then the text of that +## create a new @file{.cc} file in the current directory. If @var{name} happens +## to be an m-file or interpreter defined function, then the text of that ## function will be inserted into the .cc file as a comment. ## ## @item ## If @file{@var{name}.ext} is on your path then it will be edited, otherwise -## the editor will be started with @file{@env{HOME}/@var{name}.ext} as the -## filename. If @file{@var{name}.ext} is not modifiable, it will be copied to -## @env{HOME} before editing. +## the editor will be started with @file{@var{name}.ext} in the current +## directory as the filename. If @file{@var{name}.ext} is not modifiable, +## it will be copied to @env{HOME} before editing. ## ## @strong{Warning:} You may need to clear @var{name} before the new definition ## is available. If you are editing a .cc file, you will need
--- a/scripts/miscellaneous/error_ids.m +++ b/scripts/miscellaneous/error_ids.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Juan Pablo Carbajal +## Copyright (C) 2012-2013 Juan Pablo Carbajal ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/fact.m +++ b/scripts/miscellaneous/fact.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Jordi Gutiérrez Hermoso +## Copyright (C) 2007-2013 Jordi Gutiérrez Hermoso ## Copyright (C) 2007 Stallmanfacts.com ## ## This file is part of Octave.
--- a/scripts/miscellaneous/fileattrib.m +++ b/scripts/miscellaneous/fileattrib.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/fileparts.m +++ b/scripts/miscellaneous/fileparts.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/fullfile.m +++ b/scripts/miscellaneous/fullfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
rename from scripts/general/genvarname.m rename to scripts/miscellaneous/genvarname.m --- a/scripts/general/genvarname.m +++ b/scripts/miscellaneous/genvarname.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney, Robert Platt +## Copyright (C) 2008-2013 Bill Denney, Robert Platt ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/getappdata.m +++ b/scripts/miscellaneous/getappdata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## 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
--- a/scripts/miscellaneous/getfield.m +++ b/scripts/miscellaneous/getfield.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Etienne Grossmann +## Copyright (C) 2000-2013 Etienne Grossmann ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/miscellaneous/gunzip.m +++ b/scripts/miscellaneous/gunzip.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Bill Denney +## Copyright (C) 2006-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/gzip.m +++ b/scripts/miscellaneous/gzip.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/info.m +++ b/scripts/miscellaneous/info.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Julian Schnidder +## Copyright (C) 2008-2013 Julian Schnidder ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/inputname.m +++ b/scripts/miscellaneous/inputname.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/isappdata.m +++ b/scripts/miscellaneous/isappdata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## 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
--- a/scripts/miscellaneous/isdeployed.m +++ b/scripts/miscellaneous/isdeployed.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/ismac.m +++ b/scripts/miscellaneous/ismac.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Thomas Treichl +## Copyright (C) 2007-2013 Thomas Treichl ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/ispc.m +++ b/scripts/miscellaneous/ispc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/isunix.m +++ b/scripts/miscellaneous/isunix.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/license.m +++ b/scripts/miscellaneous/license.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2005-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/list_primes.m +++ b/scripts/miscellaneous/list_primes.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/ls.m +++ b/scripts/miscellaneous/ls.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/ls_command.m +++ b/scripts/miscellaneous/ls_command.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/menu.m +++ b/scripts/miscellaneous/menu.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/mex.m +++ b/scripts/miscellaneous/mex.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/mexext.m +++ b/scripts/miscellaneous/mexext.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/mkoctfile.m +++ b/scripts/miscellaneous/mkoctfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Keith Goodman +## Copyright (C) 2006-2013 Keith Goodman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/module.mk +++ b/scripts/miscellaneous/module.mk @@ -6,11 +6,11 @@ miscellaneous_FCN_FILES = \ miscellaneous/ans.m \ - miscellaneous/bincoeff.m \ miscellaneous/bug_report.m \ miscellaneous/bunzip2.m \ miscellaneous/bzip2.m \ miscellaneous/cast.m \ + miscellaneous/colon.m \ miscellaneous/citation.m \ miscellaneous/comma.m \ miscellaneous/compare_versions.m \ @@ -28,6 +28,7 @@ miscellaneous/fileattrib.m \ miscellaneous/fileparts.m \ miscellaneous/fullfile.m \ + miscellaneous/genvarname.m \ miscellaneous/getappdata.m \ miscellaneous/getfield.m \ miscellaneous/gunzip.m \
--- a/scripts/miscellaneous/movefile.m +++ b/scripts/miscellaneous/movefile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/namelengthmax.m +++ b/scripts/miscellaneous/namelengthmax.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/news.m +++ b/scripts/miscellaneous/news.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/orderfields.m +++ b/scripts/miscellaneous/orderfields.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Paul Kienzle +## Copyright (C) 2006-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/pack.m +++ b/scripts/miscellaneous/pack.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 John W. Eaton +## Copyright (C) 1999-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/paren.m +++ b/scripts/miscellaneous/paren.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/parseparams.m +++ b/scripts/miscellaneous/parseparams.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Alexander Barth +## Copyright (C) 2006-2013 Alexander Barth ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/miscellaneous/perl.m +++ b/scripts/miscellaneous/perl.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Julian Schnidder +## Copyright (C) 2008-2013 Julian Schnidder ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/private/__xzip__.m +++ b/scripts/miscellaneous/private/__xzip__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Thorsten Meyer +## Copyright (C) 2008-2013 Thorsten Meyer ## based on the original gzip function by David Bateman ## ## This file is part of Octave.
--- a/scripts/miscellaneous/python.m +++ b/scripts/miscellaneous/python.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Julian Schnidder +## Copyright (C) 2008-2013 Julian Schnidder ## Copyright (C) 2012 Carnë Draug ## ## This file is part of Octave.
--- a/scripts/miscellaneous/recycle.m +++ b/scripts/miscellaneous/recycle.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/rmappdata.m +++ b/scripts/miscellaneous/rmappdata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## 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
--- a/scripts/miscellaneous/run.m +++ b/scripts/miscellaneous/run.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ## @@ -18,13 +18,23 @@ ## -*- texinfo -*- ## @deftypefn {Command} {} run @var{script} -## @deftypefnx {Function File} {} run (@var{script}) -## Run scripts in the current workspace that are not necessarily on the -## path. If @var{script} is the script to run, including its path, then -## @code{run} changes the directory to the directory where @var{script} is -## found. @code{run} then executes the script, and returns to the original -## directory. -## @seealso{system} +## @deftypefnx {Function File} {} run ("@var{script}") +## Run @var{script} in the current workspace. +## +## Scripts which reside in directories specified in Octave's load +## path, and which end with the extension @file{".m"}, can be run simply by +## typing their name. For scripts not located on the load path, use @code{run}. +## +## The file name @var{script} can be a bare, fully qualified, or relative +## filename and with or without a file extension. If no extension is specified, +## Octave will first search for a script with the @file{".m"} extension before +## falling back to the script name without an extension. +## +## Implementation Note: If @var{script} includes a path component, then +## @code{run} first changes the directory to the directory where @var{script} +## is found. @code{run} then executes the script, and returns to the original +## directory. +## @seealso{path, addpath, source} ## @end deftypefn function run (script) @@ -34,15 +44,25 @@ endif [d, f, ext] = fileparts (script); + if (! strcmp (ext, ".m")) + ## prefer files with .m extension for compatibility with Matlab + if (exist ([script ".m"], "file")) + f = [f ext]; + ext = ".m"; + script = [script ".m"]; + endif + endif + + if (! exist (script, "file")) + error ("run: file SCRIPT must exist and be a valid Octave scriptfile"); + endif + if (! isempty (d)) if (exist (d, "dir")) wd = pwd (); unwind_protect cd (d); - if (! exist ([f ext], "file")) - error ("run: file SCRIPT must exist and be a valid Octave scriptfile"); - endif - evalin ("caller", sprintf ("source (\"%s%s\");", f, ext), + evalin ("caller", sprintf ('source ("%s%s");', f, ext), "rethrow (lasterror ())"); unwind_protect_cleanup cd (wd); @@ -51,12 +71,20 @@ error ("run: the path %s doesn't exist", d); endif else - if (exist (script, "file")) - evalin ("caller", sprintf ("source (\"%s\");", script), - "rethrow (lasterror ())"); + if (! isempty (ext)) + script = which (script); else - error ("run: %s not found", script); + ## Search PATH with null extension ('.' will be stripped and ext = "") + script = which ([script "."]); endif + evalin ("caller", sprintf ('source ("%s");', script), + "rethrow (lasterror ())"); endif endfunction + +%% Test input validation +%!error run () +%!error run ("a", "b") +%!error <SCRIPT must exist> run ("__A_very_#unlikely#_file_name__") +
--- a/scripts/miscellaneous/semicolon.m +++ b/scripts/miscellaneous/semicolon.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/setappdata.m +++ b/scripts/miscellaneous/setappdata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## 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
--- a/scripts/miscellaneous/setfield.m +++ b/scripts/miscellaneous/setfield.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Etienne Grossmann +## Copyright (C) 2000-2013 Etienne Grossmann ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/miscellaneous/substruct.m +++ b/scripts/miscellaneous/substruct.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/miscellaneous/swapbytes.m +++ b/scripts/miscellaneous/swapbytes.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/symvar.m +++ b/scripts/miscellaneous/symvar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/tar.m +++ b/scripts/miscellaneous/tar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/tempdir.m +++ b/scripts/miscellaneous/tempdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/tempname.m +++ b/scripts/miscellaneous/tempname.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 John W. Eaton +## Copyright (C) 2003-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/unix.m +++ b/scripts/miscellaneous/unix.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 John W. Eaton +## Copyright (C) 2004-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/unpack.m +++ b/scripts/miscellaneous/unpack.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Bill Denney +## Copyright (C) 2006-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/untar.m +++ b/scripts/miscellaneous/untar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/unzip.m +++ b/scripts/miscellaneous/unzip.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/ver.m +++ b/scripts/miscellaneous/ver.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2005-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/version.m +++ b/scripts/miscellaneous/version.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/warning_ids.m +++ b/scripts/miscellaneous/warning_ids.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/what.m +++ b/scripts/miscellaneous/what.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/xor.m +++ b/scripts/miscellaneous/xor.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/miscellaneous/zip.m +++ b/scripts/miscellaneous/zip.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Sylvain Pelissier +## Copyright (C) 2006-2013 Sylvain Pelissier ## ## This file is part of Octave. ##
--- a/scripts/mk-pkg-add +++ b/scripts/mk-pkg-add @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 2002-2012 John W. Eaton +# Copyright (C) 2002-2013 John W. Eaton # # This file is part of Octave. #
--- a/scripts/mkdoc +++ b/scripts/mkdoc @@ -1,6 +1,6 @@ #! /bin/sh # -# Copyright (C) 1999-2012 John W. Eaton +# Copyright (C) 1999-2013 John W. Eaton # # This file is part of Octave. #
--- a/scripts/mkdoc.pl +++ b/scripts/mkdoc.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -w # -# Copyright (C) 2012 Rik Wehbring +# Copyright (C) 2012-2013 Rik Wehbring # # This file is part of Octave. #
--- a/scripts/optimization/__all_opts__.m +++ b/scripts/optimization/__all_opts__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 VZLU Prague +## Copyright (C) 2009-2013 VZLU Prague ## ## This file is part of Octave. ##
--- a/scripts/optimization/fminbnd.m +++ b/scripts/optimization/fminbnd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s. +## Copyright (C) 2008-2013 VZLU Prague, a.s. ## ## This file is part of Octave. ##
--- a/scripts/optimization/fminsearch.m +++ b/scripts/optimization/fminsearch.m @@ -1,5 +1,5 @@ ## Copyright (C) 2003,2012 Andy Adler -## Copyright (C) 2002 N.J.Higham +## Copyright (C) 2002, 2013 N.J.Higham ## ## This file is part of Octave. ## @@ -116,7 +116,7 @@ ## and Applied Mathematics, Philadelphia, PA, 1999. ## From Matrix Toolbox -## Copyright (C) 2002 N.J.Higham +## Copyright (C) 2002, 2013 N.J.Higham ## www.maths.man.ac.uk/~higham/mctoolbox ## ## Modifications for Octave by A.Adler 2003
--- a/scripts/optimization/fminunc.m +++ b/scripts/optimization/fminunc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s. +## Copyright (C) 2008-2013 VZLU Prague, a.s. ## ## This file is part of Octave. ##
--- a/scripts/optimization/fsolve.m +++ b/scripts/optimization/fsolve.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s. +## Copyright (C) 2008-2013 VZLU Prague, a.s. ## ## This file is part of Octave. ##
--- a/scripts/optimization/fzero.m +++ b/scripts/optimization/fzero.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s. +## Copyright (C) 2008-2013 VZLU Prague, a.s. ## ## This file is part of Octave. ##
--- a/scripts/optimization/glpk.m +++ b/scripts/optimization/glpk.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Nicolo' Giorgetti +## Copyright (C) 2005-2013 Nicolo' Giorgetti ## Copyright (C) 2013 Sébastien Villemot <sebastien@debian.org> ## ## This file is part of Octave.
--- a/scripts/optimization/lsqnonneg.m +++ b/scripts/optimization/lsqnonneg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## Copyright (C) 2008 Jaroslav Hajek ## Copyright (C) 2009 VZLU Prague ##
--- a/scripts/optimization/optimget.m +++ b/scripts/optimization/optimget.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek +## Copyright (C) 2008-2013 Jaroslav Hajek ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/optimization/optimset.m +++ b/scripts/optimization/optimset.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/optimization/pqpnonneg.m +++ b/scripts/optimization/pqpnonneg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## Copyright (C) 2008 Jaroslav Hajek ## Copyright (C) 2009 VZLU Prague ##
--- a/scripts/optimization/private/__fdjac__.m +++ b/scripts/optimization/private/__fdjac__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek +## Copyright (C) 2008-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/optimization/qp.m +++ b/scripts/optimization/qp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Gabriele Pannocchia. +## Copyright (C) 2000-2013 Gabriele Pannocchia. ## ## This file is part of Octave. ##
--- a/scripts/optimization/sqp.m +++ b/scripts/optimization/sqp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/path/matlabroot.m +++ b/scripts/path/matlabroot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott +## Copyright (C) 2008-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/path/pathdef.m +++ b/scripts/path/pathdef.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Bill Denney +## Copyright (C) 2005-2013 Bill Denney ## Copyright (C) 2007-2009 Ben Abbott ## ## This file is part of Octave.
--- a/scripts/path/savepath.m +++ b/scripts/path/savepath.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Bill Denney +## Copyright (C) 2005-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/pkg/pkg.m +++ b/scripts/pkg/pkg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## Copyright (C) 2012 Carlo de Falco ##
--- a/scripts/pkg/private/build.m +++ b/scripts/pkg/private/build.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/configure_make.m +++ b/scripts/pkg/private/configure_make.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/copy_files.m +++ b/scripts/pkg/private/copy_files.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/create_pkgadddel.m +++ b/scripts/pkg/private/create_pkgadddel.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/describe.m +++ b/scripts/pkg/private/describe.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/dirempty.m +++ b/scripts/pkg/private/dirempty.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/extract_pkg.m +++ b/scripts/pkg/private/extract_pkg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/finish_installation.m +++ b/scripts/pkg/private/finish_installation.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/fix_depends.m +++ b/scripts/pkg/private/fix_depends.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/fix_version.m +++ b/scripts/pkg/private/fix_version.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/generate_lookfor_cache.m +++ b/scripts/pkg/private/generate_lookfor_cache.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/get_description.m +++ b/scripts/pkg/private/get_description.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/get_forge_download.m +++ b/scripts/pkg/private/get_forge_download.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/get_forge_pkg.m +++ b/scripts/pkg/private/get_forge_pkg.m @@ -1,5 +1,5 @@ -## Copyright (C) 2005-2012 Søren Hauberg -## Copyright (C) 2010-2012 VZLU Prague, a.s. +## Copyright (C) 2005-2013 Søren Hauberg +## Copyright (C) 2010-2013 VZLU Prague, a.s. ## ## This file is part of Octave. ##
--- a/scripts/pkg/private/get_unsatisfied_deps.m +++ b/scripts/pkg/private/get_unsatisfied_deps.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/getarch.m +++ b/scripts/pkg/private/getarch.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/getarchdir.m +++ b/scripts/pkg/private/getarchdir.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/getarchprefix.m +++ b/scripts/pkg/private/getarchprefix.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/install.m +++ b/scripts/pkg/private/install.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave. @@ -336,7 +336,7 @@ ## we are checking if desc exists too because it's possible to ge to this point ## without creating it such as giving an invalid filename for the package if (exist ("desc", "var") && exist (fullfile (desc.dir, "packinfo", "NEWS"), "file")) - printf ("For information about changes from previous versions of the %s package, run 'news (\"%s\")'.\n", + printf ("For information about changes from previous versions of the %s package, run 'news %s'.\n", desc.name, desc.name); endif
--- a/scripts/pkg/private/installed_packages.m +++ b/scripts/pkg/private/installed_packages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/is_architecture_dependent.m +++ b/scripts/pkg/private/is_architecture_dependent.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/list_forge_packages.m +++ b/scripts/pkg/private/list_forge_packages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/load_package_dirs.m +++ b/scripts/pkg/private/load_package_dirs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/load_packages.m +++ b/scripts/pkg/private/load_packages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/load_packages_and_dependencies.m +++ b/scripts/pkg/private/load_packages_and_dependencies.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/packinfo_copy_file.m +++ b/scripts/pkg/private/packinfo_copy_file.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/parse_pkg_idx.m +++ b/scripts/pkg/private/parse_pkg_idx.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/prepare_installation.m +++ b/scripts/pkg/private/prepare_installation.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/print_package_description.m +++ b/scripts/pkg/private/print_package_description.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/rebuild.m +++ b/scripts/pkg/private/rebuild.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/repackage.m +++ b/scripts/pkg/private/repackage.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/save_order.m +++ b/scripts/pkg/private/save_order.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/shell.m +++ b/scripts/pkg/private/shell.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/uninstall.m +++ b/scripts/pkg/private/uninstall.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/unload_packages.m +++ b/scripts/pkg/private/unload_packages.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/verify_directory.m +++ b/scripts/pkg/private/verify_directory.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/pkg/private/write_index.m +++ b/scripts/pkg/private/write_index.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Søren Hauberg +## Copyright (C) 2005-2013 Søren Hauberg ## Copyright (C) 2010 VZLU Prague, a.s. ## ## This file is part of Octave.
--- a/scripts/plot/appearance/__clabel__.m +++ b/scripts/plot/appearance/__clabel__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/__getlegenddata__.m +++ b/scripts/plot/appearance/__getlegenddata__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 David Bateman +## Copyright (C) 2010-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/axis.m +++ b/scripts/plot/appearance/axis.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/box.m +++ b/scripts/plot/appearance/box.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/caxis.m +++ b/scripts/plot/appearance/caxis.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/clabel.m +++ b/scripts/plot/appearance/clabel.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/daspect.m +++ b/scripts/plot/appearance/daspect.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
rename from scripts/time/datetick.m rename to scripts/plot/appearance/datetick.m --- a/scripts/time/datetick.m +++ b/scripts/plot/appearance/datetick.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/diffuse.m +++ b/scripts/plot/appearance/diffuse.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Kai Habel +## Copyright (C) 2009-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/grid.m +++ b/scripts/plot/appearance/grid.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/gtext.m +++ b/scripts/plot/appearance/gtext.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/hidden.m +++ b/scripts/plot/appearance/hidden.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Michael Goffioul +## Copyright (C) 2007-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/legend.m +++ b/scripts/plot/appearance/legend.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 David Bateman +## Copyright (C) 2010-2013 David Bateman ## ## This file is part of Octave. ## @@ -160,7 +160,7 @@ if (isscalar (kids)) kids = get (kids, "children")(:); else - kids = flipud ([get(kids, "children"){:}](:)); + kids = flipud (vertcat (get (kids, "children"){:})); endif endif nargs = numel (varargin); @@ -879,8 +879,11 @@ "facecolor", facecolor, "edgecolor", edgecolor, "cdata", cdata, "userdata", hplots(k)); hobjects(end+1) = p1; + ## Copy clim from axes so that colors work out. + set (hlegend, "clim", get (ca(1), "clim")); endif ## FIXME: Probably need listeners, as for line objects + ## Changing clim, for example, won't update colors case "surface" facecolor = get (hplots(k), "facecolor");
--- a/scripts/plot/appearance/module.mk +++ b/scripts/plot/appearance/module.mk @@ -12,6 +12,7 @@ plot/appearance/caxis.m \ plot/appearance/clabel.m \ plot/appearance/daspect.m \ + plot/appearance/datetick.m \ plot/appearance/diffuse.m \ plot/appearance/grid.m \ plot/appearance/gtext.m \
--- a/scripts/plot/appearance/orient.m +++ b/scripts/plot/appearance/orient.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ## @@ -21,18 +21,26 @@ ## @deftypefnx {Function File} {} orient (@var{hfig}, @var{orientation}) ## @deftypefnx {Function File} {@var{orientation} =} orient () ## @deftypefnx {Function File} {@var{orientation} =} orient (@var{hfig}) -## Query or set the default print orientation. +## Query or set the print orientation for figure @var{hfig}. ## -## Valid values for @var{orientation} are @qcode{"landscape"}, -## @qcode{"portrait"}, and @qcode{"tall"}. +## Valid values for @var{orientation} are @qcode{"portrait"}, +## @qcode{"landscape"}, and @qcode{"tall"}. +## +## The @qcode{"landscape"} option changes the orientation so the plot width +## is larger than the plot height. The @qcode{"paperposition"} is also +## modified so that the plot fills the page, while leaving a 0.25 inch border. ## -## The @qcode{"tall"} option sets the orientation to portrait and fills -## the page with the plot, while leaving a 0.25 inch border. +## The @qcode{"tall"} option sets the orientation to @qcode{"portrait"} and +## fills the page with the plot, while leaving a 0.25 inch border. ## -## When called with no arguments, return the default print orientation. +## The @qcode{"portrait"} option (default) changes the orientation so the plot +## height is larger than the plot width. It also restores the default +## @qcode{"paperposition"} property. ## -## If the first argument @var{hfig} is a figure handle, then operate on this -## figure rather than the current figure returned by @code{gcf}. +## When called with no arguments, return the current print orientation. +## +## If the argument @var{hfig} is omitted, then operate on the current figure +## returned by @code{gcf}. ## @seealso{print, saveas} ## @end deftypefn @@ -51,39 +59,68 @@ cf = gcf (); endif - if (nargs == 0) - retval = get (cf, "paperorientation"); - elseif (nargin == 1) - orientation = varargin{1}; - if (strcmpi (orientation, "landscape") || strcmpi (orientation, "portrait")) - if (! strcmpi (get (cf, "paperorientation"), orientation)) - ## FIXME: with the proper listeners in place there won't be a need to - ## set the papersize and paperpostion here. + if (nargs > 1) + print_usage (); + endif + + paperunits = get (cf, "paperunits"); + unwind_protect + set (cf, "paperunits", "inches"); # All Matlab calculations assume inches. + + if (nargs == 0) + retval = get (cf, "paperorientation"); + if (strcmp (retval, "portrait")) papersize = get (cf, "papersize"); paperposition = get (cf, "paperposition"); - set (cf, "paperorientation", orientation); - set (cf, "papersize", papersize([2, 1])); - set (cf, "paperposition", paperposition([2, 1, 4, 3])); + if (paperposition == [0.25 0.25 (papersize - 0.5)]) + retval = "tall"; + endif endif - elseif (strcmpi (varargin{1}, 'tall')) - orient ("portrait"); - papersize = get (cf, "papersize"); - set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]); else - error ("orient: unknown ORIENTATION"); + orientation = varargin{1}; + if (strcmpi (orientation, "landscape") + || strcmpi (orientation, "portrait")) + if (! strcmpi (get (cf, "paperorientation"), orientation)) + ## FIXME: with the proper listeners in place there won't be a need to + ## set the papersize and paperposition here. + papersize = get (cf, "papersize"); + paperposition = get (cf, "paperposition"); + set (cf, "paperorientation", orientation); + set (cf, "papersize", papersize([2, 1])); + set (cf, "paperposition", paperposition([2, 1, 4, 3])); + endif + if (strcmpi (orientation, "portrait")) + ## portrait restores the default + ## FIXME: Should use "default" here, but Octave complains + ## that "paperposition" is not a default property. + set (cf, "paperposition", "factory"); + else + ## landscape also sets the plot to occupy the entire page + papersize = get (cf, "papersize"); + set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]); + endif + elseif (strcmpi (varargin{1}, "tall")) + orient ("portrait"); + papersize = get (cf, "papersize"); + set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]); + else + error ("orient: unknown ORIENTATION"); + endif endif - else - print_usage (); - endif + + unwind_protect_cleanup + set (cf, "paperunits", paperunits); + end_unwind_protect endfunction -%!shared papersize, paperposition, tallpaperposition, hfig +%!shared papersize, paperposition, fullpaperposition, hfig %! papersize = [8.5, 11]; %! paperposition = [0.25, 2.5, 8, 6]; -%! tallpaperposition = [0.25, 0.25, (papersize-0.5)]; +%! fullpaperposition = [0.25, 0.25, (papersize-0.5)]; %! hfig = figure ("visible", "off"); +%! set (hfig, "paperunits", "inches"); %! set (hfig, "paperorientation", "portrait"); %! set (hfig, "papersize", papersize); %! set (hfig, "paperposition", paperposition); @@ -98,7 +135,7 @@ %! orient landscape; %! assert (orient,"landscape") # change to landscape %! assert (get (hfig, "papersize"), papersize([2, 1])); -%! assert (get (hfig, "paperposition"), paperposition([2, 1, 4, 3])); +%! assert (get (hfig, "paperposition"), fullpaperposition([1, 2, 4, 3])); %!test %! orient portrait # change back to portrait @@ -109,17 +146,19 @@ %!test %! orient landscape; %! orient tall; -%! assert (orient, "portrait"); +%! assert (orient, "tall"); %! assert (get (hfig, "papersize"), papersize); -%! assert (get (hfig, "paperposition"), tallpaperposition); - -%!fail ("orient ('nobody')", "unknown ORIENTATION") +%! assert (get (hfig, "paperposition"), fullpaperposition); %!test %! orient portrait # errors don't change the state %! assert (orient, "portrait"); %! assert (get (hfig, "papersize"), papersize); -%! assert (get (hfig, "paperposition"), tallpaperposition); +%! assert (get (hfig, "paperposition"), paperposition); + +%% Test input validation +%!error orient (1.73, 2.5) +%!error <unknown ORIENTATION> orient ("nobody") %!test %! close (hfig);
--- a/scripts/plot/appearance/pbaspect.m +++ b/scripts/plot/appearance/pbaspect.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/private/__axis_label__.m +++ b/scripts/plot/appearance/private/__axis_label__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/private/__axis_limits__.m +++ b/scripts/plot/appearance/private/__axis_limits__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/shading.m +++ b/scripts/plot/appearance/shading.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Kai Habel +## Copyright (C) 2006-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/specular.m +++ b/scripts/plot/appearance/specular.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Kai Habel +## Copyright (C) 2009-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/text.m +++ b/scripts/plot/appearance/text.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/title.m +++ b/scripts/plot/appearance/title.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/view.m +++ b/scripts/plot/appearance/view.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/whitebg.m +++ b/scripts/plot/appearance/whitebg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 David Bateman +## Copyright (C) 2010-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/xlabel.m +++ b/scripts/plot/appearance/xlabel.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/xlim.m +++ b/scripts/plot/appearance/xlim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/ylabel.m +++ b/scripts/plot/appearance/ylabel.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/ylim.m +++ b/scripts/plot/appearance/ylim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/zlabel.m +++ b/scripts/plot/appearance/zlabel.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/appearance/zlim.m +++ b/scripts/plot/appearance/zlim.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/area.m +++ b/scripts/plot/draw/area.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Michael Goffioul +## Copyright (C) 2007-2013 Michael Goffioul ## Copyright (C) 2007-2009 David Bateman ## ## This file is part of Octave.
--- a/scripts/plot/draw/bar.m +++ b/scripts/plot/draw/bar.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/barh.m +++ b/scripts/plot/draw/barh.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/colorbar.m +++ b/scripts/plot/draw/colorbar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ## @@ -201,7 +201,9 @@ addproperty ("axes", cax, "handle", ax); if (vertical) - hi = image (cax, [0,1], [cmin, cmax], [1 : clen]'); + ## Use low-level form to avoid calling newplot which changes axes + hi = image (cax, "xdata", [0,1], "ydata", [cmin, cmax], + "cdata", [1 : clen]'); if (mirror) set (cax, "xtick", [], "xdir", "normal", "ydir", "normal", "ylim", cext, "ylimmode", "manual", @@ -212,7 +214,8 @@ "yaxislocation", "left", args{:}); endif else - hi = image (cax, [cmin, cmax], [0,1], [1 : clen]); + hi = image (cax, "xdata", [cmin, cmax], "ydata", [0,1], + "cdata", [1 : clen]); if (mirror) set (cax, "ytick", [], "xdir", "normal", "ydir", "normal", "xlim", cext, "xlimmode", "manual",
--- a/scripts/plot/draw/comet.m +++ b/scripts/plot/draw/comet.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott +## Copyright (C) 2008-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/comet3.m +++ b/scripts/plot/draw/comet3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott and John W. Eaton +## Copyright (C) 2010-2013 Ben Abbott and John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/compass.m +++ b/scripts/plot/draw/compass.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/contour.m +++ b/scripts/plot/draw/contour.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 Shai Ayal +## Copyright (C) 1993-2013 Shai Ayal ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/contour3.m +++ b/scripts/plot/draw/contour3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David BAteman +## Copyright (C) 2007-2013 David BAteman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/contourc.m +++ b/scripts/plot/draw/contourc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2003-2012 Shai Ayal +## Copyright (C) 2003-2013 Shai Ayal ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/contourf.m +++ b/scripts/plot/draw/contourf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel +## Copyright (C) 2007-2013 Kai Habel ## Copyright (C) 2003 Shai Ayal ## ## This file is part of Octave.
--- a/scripts/plot/draw/cylinder.m +++ b/scripts/plot/draw/cylinder.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Michael Goffioul and Kai Habel +## Copyright (C) 2007-2013 Michael Goffioul and Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ellipsoid.m +++ b/scripts/plot/draw/ellipsoid.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Sylvain Pelissier +## Copyright (C) 2007-2013 Sylvain Pelissier ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/errorbar.m +++ b/scripts/plot/draw/errorbar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Teemu Ikonen +## Copyright (C) 2000-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezcontour.m +++ b/scripts/plot/draw/ezcontour.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezcontourf.m +++ b/scripts/plot/draw/ezcontourf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezmesh.m +++ b/scripts/plot/draw/ezmesh.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezmeshc.m +++ b/scripts/plot/draw/ezmeshc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezplot.m +++ b/scripts/plot/draw/ezplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezplot3.m +++ b/scripts/plot/draw/ezplot3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezpolar.m +++ b/scripts/plot/draw/ezpolar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezsurf.m +++ b/scripts/plot/draw/ezsurf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/ezsurfc.m +++ b/scripts/plot/draw/ezsurfc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/feather.m +++ b/scripts/plot/draw/feather.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/fill.m +++ b/scripts/plot/draw/fill.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/fplot.m +++ b/scripts/plot/draw/fplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Paul Kienzle +## Copyright (C) 2005-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/hist.m +++ b/scripts/plot/draw/hist.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/isocolors.m +++ b/scripts/plot/draw/isocolors.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Martin Helm +## Copyright (C) 2009-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/isonormals.m +++ b/scripts/plot/draw/isonormals.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Martin Helm +## Copyright (C) 2009-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/isosurface.m +++ b/scripts/plot/draw/isosurface.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Martin Helm +## Copyright (C) 2009-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/line.m +++ b/scripts/plot/draw/line.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/loglog.m +++ b/scripts/plot/draw/loglog.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/loglogerr.m +++ b/scripts/plot/draw/loglogerr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Teemu Ikonen +## Copyright (C) 2000-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/mesh.m +++ b/scripts/plot/draw/mesh.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/meshc.m +++ b/scripts/plot/draw/meshc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/meshz.m +++ b/scripts/plot/draw/meshz.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/pareto.m +++ b/scripts/plot/draw/pareto.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## Copyright (C) 2003 Alberto Terruzzi ## ## This file is part of Octave.
--- a/scripts/plot/draw/patch.m +++ b/scripts/plot/draw/patch.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/pcolor.m +++ b/scripts/plot/draw/pcolor.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel +## Copyright (C) 2007-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/peaks.m +++ b/scripts/plot/draw/peaks.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Paul Kienzle +## Copyright (C) 2007-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/pie.m +++ b/scripts/plot/draw/pie.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/pie3.m +++ b/scripts/plot/draw/pie3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## Copyright (C) 2010 Kai Habel ## ## This file is part of Octave.
--- a/scripts/plot/draw/plot.m +++ b/scripts/plot/draw/plot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/plot3.m +++ b/scripts/plot/draw/plot3.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/plotmatrix.m +++ b/scripts/plot/draw/plotmatrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/plotyy.m +++ b/scripts/plot/draw/plotyy.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/polar.m +++ b/scripts/plot/draw/polar.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__add_datasource__.m +++ b/scripts/plot/draw/private/__add_datasource__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__bar__.m +++ b/scripts/plot/draw/private/__bar__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__contour__.m +++ b/scripts/plot/draw/private/__contour__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__errcomm__.m +++ b/scripts/plot/draw/private/__errcomm__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Teemu Ikonen +## Copyright (C) 2001-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__errplot__.m +++ b/scripts/plot/draw/private/__errplot__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Teemu Ikonen +## Copyright (C) 2000-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__ezplot__.m +++ b/scripts/plot/draw/private/__ezplot__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__interp_cube__.m +++ b/scripts/plot/draw/private/__interp_cube__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Martin Helm +## Copyright (C) 2009-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__line__.m +++ b/scripts/plot/draw/private/__line__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__marching_cube__.m +++ b/scripts/plot/draw/private/__marching_cube__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Martin Helm +## Copyright (C) 2009-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__patch__.m +++ b/scripts/plot/draw/private/__patch__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton, Shai Ayal, Kai Habel +## Copyright (C) 2007-2013 John W. Eaton, Shai Ayal, Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__pie__.m +++ b/scripts/plot/draw/private/__pie__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## Copyright (C) 2010 Kai Habel ## ## This file is part of Octave.
--- a/scripts/plot/draw/private/__plt__.m +++ b/scripts/plot/draw/private/__plt__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__quiver__.m +++ b/scripts/plot/draw/private/__quiver__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ## @@ -27,15 +27,19 @@ is3d = varargin{2}; autoscale = 0.9; - arrowsize = 0.2; + ## Matlab uses 0.2, but Octave's algorithm produces equivalent visual + ## results if arrowsize=0.33. Since this is just a non-dimensional + ## scaling factor we scale the arrowsize property value by 0.33/0.20 + ## in order to get equivalent visual results while keeping equivalent + ## property values. + arrowsize = 0.20; - firstnonnumeric = Inf; - for i = 3:nargin - if (! isnumeric (varargin{i})) - firstnonnumeric = i; - break; - endif - endfor + firstnonnumeric = find (! cellfun ("isnumeric", varargin(3:nargin)), 1); + if (isempty (firstnonnumeric)) + firstnonnumeric = Inf; + else + firstnonnumeric += 2; + endif ioff = 3; if (nargin < (6 + is3d) || firstnonnumeric < (6 + is3d)) @@ -88,34 +92,37 @@ [linespec, valid] = __pltopt__ ("quiver", arg, false); if (valid) have_line_spec = true; - if (strcmp (linespec.linestyle, "none")) + if (isempty (linespec.linestyle) || strcmp (linespec.linestyle, "none")) linespec.linestyle = "-"; endif else - args {end + 1} = arg; + args{end+1} = arg; if (ioff <= nargin) - args {end + 1} = varargin{ioff++}; + args{end+1} = varargin{ioff++}; endif endif else - args {end + 1} = arg; + args{end+1} = arg; if (ioff <= nargin) - args {end + 1} = varargin{ioff++}; + args{end+1} = varargin{ioff++}; endif endif endwhile + ## Normalize 0.20 to 1/3 for plotting + arrowsize /= 0.20 * 3; + if (autoscale && numel (u) > 1) ## Scale the arrows to fit in the grid if (isvector (x)) - ny = nx = length (x); + nx = ny = sqrt (length (x)); else - [nx, ny] = size (x); + [ny, nx] = size (x); # assume meshgrid fmt, x in columns, y in rows endif - dx = (max (x(:)) - min (x(:))) ./ nx; - dy = (max (y(:)) - min (y(:))) ./ ny; + dx = (max (x(:)) - min (x(:))) / nx; + dy = (max (y(:)) - min (y(:))) / ny; if (is3d) - dz = (max (z(:)) - min (z(:))) ./ max (size (z)); + dz = (max (z(:)) - min (z(:))) / max (nx, ny); len = max (sqrt (u(:).^2 + v(:).^2 + w(:).^2)); else dz = 0; @@ -124,14 +131,14 @@ if (len > 0) sd = sqrt (dx.^2 + dy.^2 + dz.^2) / len; if (sd != 0) - s = sqrt (2) * autoscale * sd; - else # special case of identical points with multiple vectors + s = autoscale * sd; + else # special case of identical points with multiple vectors s = autoscale; endif uu = s * u; vv = s * v; if (is3d) - ww = s*w; + ww = s * w; endif endif else @@ -144,6 +151,16 @@ hstate = get (h, "nextplot"); unwind_protect + + if (have_line_spec) + ls = linespec.linestyle; + lc = linespec.color; + else + ls = "-"; + lc = __next_line_color__ (); + endif + + ## Must occur after __next_line_color__ in order to work correctly. hg = hggroup (); if (is3d) args = __add_datasource__ ("quiver3", hg, @@ -183,105 +200,64 @@ zend = z + ww(:); endif + ## Draw arrow shaft as one line object + if (is3d) + h1 = plot3 ([x.'; xend.'; NaN(1, length (x))](:), + [y.'; yend.'; NaN(1, length (y))](:), + [z.'; zend.'; NaN(1, length (z))](:), + "linestyle", ls, "color", lc, "parent", hg); + else + h1 = plot ([x.'; xend.'; NaN(1, length (x))](:), + [y.'; yend.'; NaN(1, length (y))](:), + "linestyle", ls, "color", lc, "parent", hg); + endif + + xtmp = x + uu(:) * (1 - arrowsize); + ytmp = y + vv(:) * (1 - arrowsize); + + if (is3d) + xydist = sqrt (uu(:).^2 + vv(:).^2 + ww(:).^2) ./ ... + (sqrt (uu(:).^2 + vv(:).^2) + eps); + xarrw1 = xtmp + vv(:) .* xydist * arrowsize / 4; + xarrw2 = xtmp - vv(:) .* xydist * arrowsize / 4; + yarrw1 = ytmp - uu(:) .* xydist * arrowsize / 4; + yarrw2 = ytmp + uu(:) .* xydist * arrowsize / 4; + zarrw1 = zarrw2 = zend - ww(:) * arrowsize; + else + xarrw1 = xtmp + vv(:) * arrowsize / 3; + xarrw2 = xtmp - vv(:) * arrowsize / 3; + yarrw1 = ytmp - uu(:) * arrowsize / 3; + yarrw2 = ytmp + uu(:) * arrowsize / 3; + endif + + ## Draw arrowhead as one line object if (have_line_spec) - if (is3d) - h1 = plot3 ([x.'; xend.'; NaN(1, length (x))](:), - [y.'; yend.'; NaN(1, length (y))](:), - [z.'; zend.'; NaN(1, length (z))](:), - "linestyle", linespec.linestyle, - "color", linespec.color, "parent", hg); - else - h1 = plot ([x.'; xend.'; NaN(1, length (x))](:), - [y.'; yend.'; NaN(1, length (y))](:), - "linestyle", linespec.linestyle, - "color", linespec.color, "parent", hg); - endif - else - if (is3d) - h1 = plot3 ([x.'; xend.'; NaN(1, length (x))](:), - [y.'; yend.'; NaN(1, length (y))](:), - [z.'; zend.'; NaN(1, length (z))](:), - "color", "black", "parent", hg); - else - h1 = plot ([x.'; xend.'; NaN(1, length (x))](:), - [y.'; yend.'; NaN(1, length (y))](:), - "parent", hg); + if (! isempty (linespec.marker) && ! strcmp (linespec.marker, "none")) + ls = "none"; # No arrowhead drawn when marker present endif endif - xtmp = x + uu(:) .* (1 - arrowsize); - ytmp = y + vv(:) .* (1 - arrowsize); - if (is3d) - xarrw1 = xtmp + sqrt((y - yend).^2 + (z - zend).^2) * arrowsize / 3; - xarrw2 = xtmp - sqrt((y - yend).^2 + (z - zend).^2) * arrowsize / 3; - yarrw1 = ytmp - sqrt((x - xend).^2 + (z - zend).^2) * arrowsize / 3; - yarrw2 = ytmp + sqrt((x - xend).^2 + (z - zend).^2) * arrowsize / 3; - - zarrw1 = zarrw2 = zend - ww(:) * arrowsize; - else - xarrw1 = xtmp + (y - yend) * arrowsize / 3; - xarrw2 = xtmp - (y - yend) * arrowsize / 3; - yarrw1 = ytmp - (x - xend) * arrowsize / 3; - yarrw2 = ytmp + (x - xend) * arrowsize / 3; - endif - - if (have_line_spec) - if (isfield (linespec, "marker") - && ! strcmp (linespec.marker, "none")) - if (is3d) - h2 = plot3 ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), - [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), - [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:), - "linestyle", "none", "parent", hg); - else - h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), - [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), - "linestyle", "none", "parent", hg); - endif - else - if (is3d) - h2 = plot3 ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), - [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), - [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:), - "linestyle", linespec.linestyle, - "color", linespec.color, "parent", hg); - else - h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), - [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), - "linestyle", linespec.linestyle, - "color", linespec.color, "parent", hg); - endif - endif - elseif (is3d) h2 = plot3 ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:), - "color", "black", "parent", hg); + "linestyle", ls, "color", lc, "parent", hg); else h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:), - "parent", hg); + "linestyle", ls, "color", lc, "parent", hg); endif - if (! have_line_spec - || (isfield (linespec, "marker") - && strcmp (linespec.marker, "none"))) - if (is3d) - h3 = plot3 (x, y, z, "linestyle", "none", "marker", "none", - "parent", hg); - else - h3 = plot (x, y, "linestyle", "none", "marker", "none", "parent", hg); - endif + ## Draw arrow base marker as a third line object + if (! have_line_spec || isempty (linespec.marker)) + mk = "none"; else - if (is3d) - h3 = plot3 (x, y, z, "linestyle", "none", "marker", linespec.marker, - "parent", hg); - else - - h3 = plot (x, y, "linestyle", "none", "marker", linespec.marker, - "parent", hg); - endif + mk = linespec.marker; + endif + if (is3d) + h3 = plot3 (x, y, z, "linestyle", "none", "marker", mk, "parent", hg); + else + h3 = plot (x, y, "linestyle", "none", "marker", mk, "parent", hg); endif if (have_filled) ## FIXME: gnuplot doesn't respect the markerfacecolor field @@ -299,23 +275,23 @@ addlistener (hg, "autoscale", @update_data); addlistener (hg, "autoscalefactor", @update_data); - addproperty ("maxheadsize", hg, "data", arrowsize); + addproperty ("maxheadsize", hg, "data", arrowsize * .20*3); addlistener (hg, "maxheadsize", @update_data); addproperty ("showarrowhead", hg, "radio", "{on}|off", "on"); addlistener (hg, "showarrowhead", @update_props); addproperty ("color", hg, "linecolor", get (h1, "color")); + addproperty ("linestyle", hg, "linelinestyle", get (h1, "linestyle")); addproperty ("linewidth", hg, "linelinewidth", get (h1, "linewidth")); - addproperty ("linestyle", hg, "linelinestyle", get (h1, "linestyle")); addproperty ("marker", hg, "linemarker", get (h3, "marker")); addproperty ("markerfacecolor", hg, "linemarkerfacecolor", get (h3, "markerfacecolor")); addproperty ("markersize", hg, "linemarkersize", get (h3, "markersize")); addlistener (hg, "color", @update_props); + addlistener (hg, "linestyle", @update_props); addlistener (hg, "linewidth", @update_props); - addlistener (hg, "linestyle", @update_props); addlistener (hg, "marker", @update_props); addlistener (hg, "markerfacecolor", @update_props); addlistener (hg, "markersize", @update_props); @@ -332,7 +308,8 @@ endfunction -function update_data (h, d) +function update_data (h, ~) + x = get (h, "xdata"); y = get (h, "ydata"); z = get (h, "zdata"); @@ -343,6 +320,7 @@ s = get (h, "autoscalefactor"); arrowsize = get (h, "maxheadsize"); + arrowsize /= 0.20 * 3; kids = get (h, "children"); @@ -352,17 +330,17 @@ is3d = true; endif - if (strcmpi (get (h, "autoscale"), "on") && s != 0) + if (strcmp (get (h, "autoscale"), "on") && s != 0) ## Scale the arrows to fit in the grid if (isvector (x)) - ny = nx = length (x); + nx = ny = sqrt (length (x)); else - [nx, ny] = size (x); + [ny, nx] = size (x); endif - dx = (max (x(:)) - min (x(:))) ./ nx; - dy = (max (y(:)) - min (y(:))) ./ ny; + dx = (max (x(:)) - min (x(:))) / nx; + dy = (max (y(:)) - min (y(:))) / ny; if (is3d) - dz = (max (z(:)) - min (z(:))) ./ max (size (z)); + dz = (max (z(:)) - min (z(:))) / max (nx, ny); len = max (sqrt (u(:).^2 + v(:).^2 + w(:).^2)); else dz = 0; @@ -371,12 +349,12 @@ if (len > 0) sd = sqrt (dx.^2 + dy.^2 + dz.^2) / len; if (sd != 0) - s *= sqrt (2) * sd; + s *= sd; endif u = s * u; v = s * v; if (is3d) - w = s*w; + w = s * w; endif endif endif @@ -390,59 +368,57 @@ zend = z + w(:); endif - set (kids (3), "xdata", [x.'; xend.'; NaN(1, length (x))](:)); - set (kids (3), "ydata", [y.'; yend.'; NaN(1, length (y))](:)); + set (kids(3), "xdata", [x.'; xend.'; NaN(1, length (x))](:)); + set (kids(3), "ydata", [y.'; yend.'; NaN(1, length (y))](:)); if (is3d) - set (kids (3), "zdata", [z.'; zend.'; NaN(1, length (z))](:)); - endif - - xtmp = x + u(:) .* (1 - arrowsize); - ytmp = y + v(:) .* (1 - arrowsize); - xarrw1 = xtmp + (y - yend) * arrowsize / 3; - xarrw2 = xtmp - (y - yend) * arrowsize / 3; - yarrw1 = ytmp - (x - xend) * arrowsize / 3; - yarrw2 = ytmp + (x - xend) * arrowsize / 3; - if (is3d) - zarrw1 = zarrw2 = zend - w(:) * arrowsize; + set (kids(3), "zdata", [z.'; zend.'; NaN(1, length (z))](:)); endif - set (kids (2), "xdata", [x.'; xend.'; NaN(1, length (x))](:)); - set (kids (2), "ydata", [y.'; yend.'; NaN(1, length (y))](:)); + xtmp = x + u(:) * (1 - arrowsize); + ytmp = y + v(:) * (1 - arrowsize); + if (is3d) - set (kids (2), "zdata", [z.'; zend.'; NaN(1, length (z))](:)); + xydist = sqrt (u(:).^2 + v(:).^2 + w(:).^2) ./ ... + (sqrt (u(:).^2 + v(:).^2) + eps); + xarrw1 = xtmp + v(:) .* xydist * arrowsize / 4; + xarrw2 = xtmp - v(:) .* xydist * arrowsize / 4; + yarrw1 = ytmp - u(:) .* xydist * arrowsize / 4; + yarrw2 = ytmp + u(:) .* xydist * arrowsize / 4; + zarrw1 = zarrw2 = zend - w(:) * arrowsize; + else + xarrw1 = xtmp + v(:) * arrowsize / 3; + xarrw2 = xtmp - v(:) * arrowsize / 3; + yarrw1 = ytmp - u(:) * arrowsize / 3; + yarrw2 = ytmp + u(:) * arrowsize / 3; endif - set (kids (2), "xdata", [xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:)); - set (kids (2), "ydata", [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:)); + set (kids(2), "xdata", [x.'; xend.'; NaN(1, length (x))](:)); + set (kids(2), "ydata", [y.'; yend.'; NaN(1, length (y))](:)); if (is3d) - set (kids (2), "zdata", [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:)); + set (kids(2), "zdata", [z.'; zend.'; NaN(1, length (z))](:)); endif - set (kids (1), "xdata", x); - set (kids (1), "ydata", y); + set (kids(2), "xdata", [xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:)); + set (kids(2), "ydata", [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:)); if (is3d) - set (kids (1), "zdata", z); + set (kids(2), "zdata", [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:)); + endif + + set (kids(1), "xdata", x); + set (kids(1), "ydata", y); + if (is3d) + set (kids(1), "zdata", z); endif endfunction -function update_props (h, d) +function update_props (h, ~) kids = get (h, "children"); - set (kids(3), "color", get (h, "color"), - "linewidth", get (h, "linewidth"), - "linestyle", get (h, "linestyle")); - set (kids(2), "color", get (h, "color"), - "linewidth", get (h, "linewidth"), - "linestyle", get (h, "linestyle")); - if (strcmpi (get (h, "showarrowhead"), "on")) - set (kids (2), "visible", "on"); - else - set (kids (2), "visible", "off"); - endif - set (kids(1), "color", get (h, "color"), - "marker", get (h, "marker"), - "markerfacecolor", get (h, "markerfacecolor"), - "markersize", get (h, "markersize")); + set (kids([3 2]), {"color", "linestyle", "linewidth"}, + get (h, {"color", "linestyle", "linewidth"})); + set (kids(2), "visible", get (h, "showarrowhead")); + set (kids(1), {"color", "marker", "markerfacecolor", "markersize"}, + get (h, {"color", "marker", "markerfacecolor", "markersize"})); endfunction
--- a/scripts/plot/draw/private/__scatter__.m +++ b/scripts/plot/draw/private/__scatter__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/private/__stem__.m +++ b/scripts/plot/draw/private/__stem__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Michel D. Schmid +## Copyright (C) 2006-2013 Michel D. Schmid ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/quiver.m +++ b/scripts/plot/draw/quiver.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ## @@ -35,13 +35,13 @@ ## ## The variable @var{s} is a scalar defining a scaling factor to use for ## the arrows of the field relative to the mesh spacing. A value of 0 -## disables all scaling. The default value is 1. +## disables all scaling. The default value is 0.9. ## ## The style to use for the plot can be defined with a line style @var{style} ## of the same format as the @code{plot} command. ## If a marker is specified then markers at the grid points of the vectors are -## drawn rather than arrows. If the argument @qcode{"filled"} is given then the -## markers are filled. +## drawn rather than arrows. If the argument @qcode{"filled"} is given then +## the markers are filled. ## ## If the first argument @var{hax} is an axes handle, then plot into this axis, ## rather than the current axes returned by @code{gca}. @@ -50,6 +50,8 @@ ## A quiver object regroups the components of the quiver plot (body, arrow, ## and marker), and allows them to be changed together. ## +## Example: +## ## @example ## @group ## [x, y] = meshgrid (1:2:20); @@ -61,29 +63,29 @@ ## @seealso{quiver3, compass, feather, plot} ## @end deftypefn -function retval = quiver (varargin) +function h = quiver (varargin) [hax, varargin, nargin] = __plt_get_axis_arg__ ("quiver", varargin{:}); if (nargin < 2) print_usage (); - else + endif + oldfig = []; if (! isempty (hax)) oldfig = get (0, "currentfigure"); endif - unwind_protect - hax = newplot (hax); - htmp = __quiver__ (hax, false, varargin{:}); - unwind_protect_cleanup + unwind_protect + hax = newplot (hax); + htmp = __quiver__ (hax, false, varargin{:}); + unwind_protect_cleanup if (! isempty (oldfig)) set (0, "currentfigure", oldfig); endif - end_unwind_protect - endif + end_unwind_protect if (nargout > 0) - retval = htmp; + h = htmp; endif endfunction @@ -93,14 +95,15 @@ %! clf; %! [x,y] = meshgrid (1:2:20); %! h = quiver (x,y, sin (2*pi*x/10), sin (2*pi*y/10)); -%! set (h, 'maxheadsize', 0.33); +%! title ('quiver plot') %!demo %! clf; -%! axis ('equal'); %! x = linspace (0, 3, 80); %! y = sin (2*pi*x); %! theta = 2*pi*x + pi/2; -%! quiver (x, y, sin (theta)/10, cos (theta)/10); +%! quiver (x, y, sin (theta)/10, cos (theta)/10, 0.4); +%! axis equal tight; %! hold on; plot (x,y,'r'); hold off; +%! title ('quiver() with scaled arrows');
--- a/scripts/plot/draw/quiver3.m +++ b/scripts/plot/draw/quiver3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ## @@ -35,7 +35,7 @@ ## ## The variable @var{s} is a scalar defining a scaling factor to use for ## the arrows of the field relative to the mesh spacing. A value of 0 -## disables all scaling. The default value is 1. +## disables all scaling. The default value is 0.9. ## ## The style to use for the plot can be defined with a line style @var{style} ## of the same format as the @code{plot} command. @@ -64,33 +64,34 @@ ## @seealso{quiver, compass, feather, plot} ## @end deftypefn -function retval = quiver3 (varargin) +function h = quiver3 (varargin) [hax, varargin, nargin] = __plt_get_axis_arg__ ("quiver3", varargin{:}); if (nargin < 2) print_usage (); - else + endif + oldfig = []; if (! isempty (hax)) oldfig = get (0, "currentfigure"); endif - unwind_protect - hax = newplot (hax); - htmp = __quiver__ (hax, true, varargin{:}); + unwind_protect + hax = newplot (hax); + htmp = __quiver__ (hax, true, varargin{:}); - if (! ishold (hax)) - set (hax, "view", [-37.5, 30]); # 3D view - endif - unwind_protect_cleanup - if (! isempty (oldfig)) - set (0, "currentfigure", oldfig); - endif - end_unwind_protect - endif + if (! ishold (hax)) + set (hax, "view", [-37.5, 30], "box", "off", + "xgrid", "on", "ygrid", "on", "zgrid", "on"); + endif + unwind_protect_cleanup + if (! isempty (oldfig)) + set (0, "currentfigure", oldfig); + endif + end_unwind_protect if (nargout > 0) - retval = htmp; + h = htmp; endif endfunction @@ -99,24 +100,14 @@ %!demo %! clf; %! colormap ('default'); -%! [x,y] = meshgrid (-1:0.1:1); -%! z = sin (2*pi * sqrt (x.^2 + y.^2)); -%! theta = 2*pi * sqrt (x.^2 + y.^2) + pi/2; -%! mesh (x, y, z); -%! hold on; -%! quiver3 (x, y, z, sin (theta), cos (theta), ones (size (z))); -%! hold off; - -%!demo -%! clf; -%! colormap ('default'); %! [x, y, z] = peaks (25); %! surf (x, y, z); %! hold on; %! [u, v, w] = surfnorm (x, y, z / 10); %! h = quiver3 (x, y, z, u, v, w); -%! set (h, 'maxheadsize', 0.33); +%! set (h, 'maxheadsize', 0.25); %! hold off; +%! title ('quiver3 of surface normals to peaks() function'); %!demo %! clf; @@ -126,7 +117,9 @@ %! hold on; %! [u, v, w] = surfnorm (x, y, z / 10); %! h = quiver3 (x, y, z, u, v, w); -%! set (h, 'maxheadsize', 0.33); +%! set (h, 'maxheadsize', 0.25); %! hold off; %! shading interp; +%! title ({'quiver3 of surface normals to peaks() function'; ... +%! 'shading "interp"'});
--- a/scripts/plot/draw/rectangle.m +++ b/scripts/plot/draw/rectangle.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 David Bateman +## Copyright (C) 2012-2013 David Bateman ## ## This file is part of Octave. ## @@ -59,13 +59,17 @@ [hax, varargin] = __plt_get_axis_arg__ ("rectangle", varargin{:}); + if (isempty (hax)) + hax = gca (); + else + hax = hax(1); + endif + oldfig = []; if (! isempty (hax)) oldfig = get (0, "currentfigure"); endif unwind_protect - hax = newplot (hax); - htmp = __rectangle__ (hax, varargin{:}); unwind_protect_cleanup if (! isempty (oldfig)) @@ -85,6 +89,7 @@ curv2 = [0, 0]; ec = [0, 0, 0]; fc = "none"; + parent = []; while (iarg < length (varargin)) arg = varargin{iarg}; @@ -110,6 +115,9 @@ elseif (strcmpi (arg, "facecolor")) fc = varargin{iarg+1}; varargin(iarg:iarg+1) = []; + elseif (strcmpi (arg, "parent")) + parent = varargin{iarg+1}; + varargin(iarg:iarg+1) = []; else iarg ++; endif @@ -145,7 +153,11 @@ pos(2) + pos(4) + cy, pos(2) + c(2)]; endif - hg = hggroup (); + if (! isempty (parent)) + hg = hggroup ("parent", parent); + else + hg = hggroup ("parent", hax); + endif h = patch ("xdata", x(:), "ydata", y(:), "facecolor", fc, "edgecolor", ec, "parent", hg, varargin{:});
--- a/scripts/plot/draw/ribbon.m +++ b/scripts/plot/draw/ribbon.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel +## Copyright (C) 2007-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/rose.m +++ b/scripts/plot/draw/rose.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/scatter.m +++ b/scripts/plot/draw/scatter.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/scatter3.m +++ b/scripts/plot/draw/scatter3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/semilogx.m +++ b/scripts/plot/draw/semilogx.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/semilogxerr.m +++ b/scripts/plot/draw/semilogxerr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Teemu Ikonen +## Copyright (C) 2000-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/semilogy.m +++ b/scripts/plot/draw/semilogy.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/semilogyerr.m +++ b/scripts/plot/draw/semilogyerr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Teemu Ikonen +## Copyright (C) 2000-2013 Teemu Ikonen ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/shrinkfaces.m +++ b/scripts/plot/draw/shrinkfaces.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Martin Helm +## Copyright (C) 2012-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/slice.m +++ b/scripts/plot/draw/slice.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel, David Bateman +## Copyright (C) 2007-2013 Kai Habel, David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/sombrero.m +++ b/scripts/plot/draw/sombrero.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/sphere.m +++ b/scripts/plot/draw/sphere.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Michael Goffioul +## Copyright (C) 2007-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/stairs.m +++ b/scripts/plot/draw/stairs.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/stem.m +++ b/scripts/plot/draw/stem.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Michel D. Schmid +## Copyright (C) 2006-2013 Michel D. Schmid ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/stem3.m +++ b/scripts/plot/draw/stem3.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/surf.m +++ b/scripts/plot/draw/surf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Kai Habel +## Copyright (C) 2007-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/surface.m +++ b/scripts/plot/draw/surface.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -53,6 +53,8 @@ if (isempty (hax)) hax = gca (); + else + hax = hax(1); endif [htmp, bad_usage] = __surface__ (hax, varargin{:});
--- a/scripts/plot/draw/surfc.m +++ b/scripts/plot/draw/surfc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/surfl.m +++ b/scripts/plot/draw/surfl.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Kai Habel +## Copyright (C) 2009-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/surfnorm.m +++ b/scripts/plot/draw/surfnorm.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/tetramesh.m +++ b/scripts/plot/draw/tetramesh.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Martin Helm +## Copyright (C) 2012-2013 Martin Helm ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/trimesh.m +++ b/scripts/plot/draw/trimesh.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/triplot.m +++ b/scripts/plot/draw/triplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/draw/trisurf.m +++ b/scripts/plot/draw/trisurf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__actual_axis_position__.m +++ b/scripts/plot/util/__actual_axis_position__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Ben Abbott +## Copyright (C) 2009-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__default_plot_options__.m +++ b/scripts/plot/util/__default_plot_options__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__gnuplot_drawnow__.m +++ b/scripts/plot/util/__gnuplot_drawnow__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__next_line_color__.m +++ b/scripts/plot/util/__next_line_color__.m @@ -1,5 +1,5 @@ ## Copyright (C) 2013 Carl Osterwisch -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__next_line_style__.m +++ b/scripts/plot/util/__next_line_style__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 David Bateman +## Copyright (C) 2010-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/__plt_get_axis_arg__.m +++ b/scripts/plot/util/__plt_get_axis_arg__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -28,7 +28,6 @@ h = []; parent = find (strcmpi (varargin, "parent"), 1); - ## Look for a scalar which is a graphics handle but not the ## Root Figure (0) or an ordinary figure (integer). if (numel (varargin) > 0 && numel (varargin{1}) == 1 @@ -50,7 +49,7 @@ varargin(parent:parent+1) = []; else ## 'parent' property for some other type like hggroup - h = ancestor (htmp, "axes"); + h = [ancestor(htmp, "axes"), htmp]; endif else error ("%s: expecting parent value to be axes handle", caller);
--- a/scripts/plot/util/__pltopt__.m +++ b/scripts/plot/util/__pltopt__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/allchild.m +++ b/scripts/plot/util/allchild.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/plot/util/ancestor.m +++ b/scripts/plot/util/ancestor.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Michael Goffioul +## Copyright (C) 2007-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/axes.m +++ b/scripts/plot/util/axes.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/cla.m +++ b/scripts/plot/util/cla.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott +## Copyright (C) 2008-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/clf.m +++ b/scripts/plot/util/clf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/close.m +++ b/scripts/plot/util/close.m @@ -1,4 +1,4 @@ -## Copyright (C) 2002-2012 John W. Eaton +## Copyright (C) 2002-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/closereq.m +++ b/scripts/plot/util/closereq.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/colstyle.m +++ b/scripts/plot/util/colstyle.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 David Bateman +## Copyright (C) 2012-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/copyobj.m +++ b/scripts/plot/util/copyobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 pdiribarne +## Copyright (C) 2012-2013 pdiribarne ## ## 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
--- a/scripts/plot/util/figure.m +++ b/scripts/plot/util/figure.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/findall.m +++ b/scripts/plot/util/findall.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/plot/util/findfigs.m +++ b/scripts/plot/util/findfigs.m @@ -1,5 +1,5 @@ ## Copyright (C) 2008 Bill Denney -## Copyright (C) 2012 Carnë Draug +## Copyright (C) 2012-2013 Carnë Draug ## ## This file is part of Octave. ##
--- a/scripts/plot/util/findobj.m +++ b/scripts/plot/util/findobj.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Ben Abbott +## Copyright (C) 2007-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gca.m +++ b/scripts/plot/util/gca.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gcbf.m +++ b/scripts/plot/util/gcbf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Michael Goffioul +## Copyright (C) 2008-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gcbo.m +++ b/scripts/plot/util/gcbo.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Michael Goffioul +## Copyright (C) 2008-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gcf.m +++ b/scripts/plot/util/gcf.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gco.m +++ b/scripts/plot/util/gco.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Michael Goffioul +## Copyright (C) 2012-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/ginput.m +++ b/scripts/plot/util/ginput.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/gnuplot_binary.in +++ b/scripts/plot/util/gnuplot_binary.in @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 John W. Eaton +## Copyright (C) 2008-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/graphics_toolkit.m +++ b/scripts/plot/util/graphics_toolkit.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Michael Goffioul +## Copyright (C) 2008-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/hdl2struct.m +++ b/scripts/plot/util/hdl2struct.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 pdiribarne +## Copyright (C) 2012-2013 pdiribarne ## ## 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
--- a/scripts/plot/util/hggroup.m +++ b/scripts/plot/util/hggroup.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Michael Goffioul +## Copyright (C) 2008-2013 Michael Goffioul ## ## This file is part of Octave. ##
--- a/scripts/plot/util/hold.m +++ b/scripts/plot/util/hold.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/isfigure.m +++ b/scripts/plot/util/isfigure.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/ishghandle.m +++ b/scripts/plot/util/ishghandle.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/ishold.m +++ b/scripts/plot/util/ishold.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/isprop.m +++ b/scripts/plot/util/isprop.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/linkprop.m +++ b/scripts/plot/util/linkprop.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/meshgrid.m +++ b/scripts/plot/util/meshgrid.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/ndgrid.m +++ b/scripts/plot/util/ndgrid.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Alexander Barth +## Copyright (C) 2006-2013 Alexander Barth ## ## This file is part of Octave. ##
--- a/scripts/plot/util/newplot.m +++ b/scripts/plot/util/newplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -91,12 +91,19 @@ if (! isempty (hsave)) ## Find the first valid axes ca = ancestor (hsave, "axes", "toplevel"); + if (iscell (ca)) + ca = [ca{:}]; + endif ca = ca(find (ca, 1)); + hsave(hsave == ca) = []; ## Next, find the figure associated with any axis found if (! isempty (ca)) cf = ancestor (ca, "figure", "toplevel"); else cf = ancestor (hsave, "figure", "toplevel"); + if (iscell (cf)) + cf = [cf{:}]; + endif cf = cf(find (cf, 1)); endif endif @@ -138,8 +145,10 @@ if (isempty (ca)) ca = gca (); + deleteall = true; else set (cf, "currentaxes", ca); + deleteall = false; endif ## FIXME: Is this necessary anymore? @@ -157,10 +166,32 @@ case "add" ## Default case. Doesn't require action. case "replacechildren" - delete (get (ca, "children")); + if (! deleteall && ca != hsave) + ## preserve hsave and its parents, uncles, ... + kids = allchild (ca); + hkid = hsave; + while (! any (hkid == kids)) + hkid = get (hkid, "parent"); + endwhile + kids(kids == hkid) = []; + delete (kids); + else + delete (get (ca, "children")); + endif case "replace" - __go_axes_init__ (ca, "replace"); - __request_drawnow__ (); + if (! deleteall && ca != hsave) + ## preserve hsave and its parents, uncles, ... + kids = allchild (ca); + hkid = hsave; + while (! any (hkid == kids)) + hkid = get (hkid, "parent"); + endwhile + kids(kids == hkid) = []; + delete (kids); + else + __go_axes_init__ (ca, "replace"); + __request_drawnow__ (); + endif ## FIXME: The code above should perform the following: ########################### ## delete (allchild (ca)); @@ -192,3 +223,34 @@ %! close (hf); %! end_unwind_protect +%!test +%! hf = figure ("visible", "off"); +%! unwind_protect +%! hax = axes (); +%! hold on; +%! hg1 = hggroup (); +%! hg2 = hggroup ("parent", hg1); +%! li0 = line (1:10, 1:10); +%! li1 = line (1:10, -1:-1:-10, "parent", hg1); +%! li2 = line (1:10, sin (1:10), "parent", hg2); +%! hold off; +%! newplot (hg2); +%! assert (ishandle (li0), false); +%! assert (get (hax, "children"), hg1); +%! +%! ## kids are preserved for hggroups +%! kids = get (hg1, "children"); +%! newplot (hg1); +%! assert (get (hg1, "children"), kids); +%! +%! ## preserve objects +%! newplot (li1); +%! assert (ishandle (li1)); +%! +%! ## kids are deleted for axes +%! newplot (hax); +%! assert (isempty (get (hax, "children"))); +%! unwind_protect_cleanup +%! close (hf); +%! end_unwind_protect +
--- a/scripts/plot/util/print.m +++ b/scripts/plot/util/print.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ## @@ -314,7 +314,7 @@ props(1).value = {get(opts.figure, "units")}; set (opts.figure, "units", "pixels"); - ## graphics toolkit tranlates figure position to eps bbox in points + ## graphics toolkit translates figure position to eps bbox (points) fpos = get (opts.figure, "position"); props(2).h = opts.figure; props(2).name = "position"; @@ -322,9 +322,9 @@ fpos(3:4) = opts.canvas_size; set (opts.figure, "position", fpos); - ## Set figure background to none. This is done both for - ## consistency with Matlab and to elliminate the visible - ## box along the figure's perimeter. + ## Set figure background to none. + ## This is done both for consistency with Matlab and to eliminate + ## the visible box along the figure's perimeter. props(3).h = opts.figure; props(3).name = "color"; props(3).value{1} = get (props(3).h, props(3).name); @@ -405,7 +405,12 @@ ## This is done to work around the bbox being whole numbers. fontsize = fontsize * opts.scalefontsize; endif - set (h(ishandle (h)), "fontsize", fontsize); + ## FIXME: legend child objects need to be acted on first. + ## or legend fontsize callback will destroy them. + hlist = h(ishandle (h)); + haxes = strcmp (get (hlist, "type"), "axes"); + set (hlist(! haxes), "fontsize", fontsize); + set (hlist(haxes), "fontsize", fontsize); endif endif @@ -420,7 +425,7 @@ unwind_protect_cleanup ## restore modified properties if (isstruct (props)) - for n = numel (props):-1:1 + for n = 1:numel (props) if (ishandle (props(n).h)) set (props(n).h, props(n).name, props(n).value{1}); endif
--- a/scripts/plot/util/private/__add_default_menu__.m +++ b/scripts/plot/util/private/__add_default_menu__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__fltk_ginput__.m +++ b/scripts/plot/util/private/__fltk_ginput__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Shai Ayal +## Copyright (C) 2010-2013 Shai Ayal ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__fltk_print__.m +++ b/scripts/plot/util/private/__fltk_print__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Shai Ayal +## Copyright (C) 2010-2013 Shai Ayal ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__ghostscript__.m +++ b/scripts/plot/util/private/__ghostscript__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_get_var__.m +++ b/scripts/plot/util/private/__gnuplot_get_var__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Ben Abbott +## Copyright (C) 2009-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_ginput__.m +++ b/scripts/plot/util/private/__gnuplot_ginput__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Petr Mikulik +## Copyright (C) 2004-2013 Petr Mikulik ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_has_feature__.m +++ b/scripts/plot/util/private/__gnuplot_has_feature__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Ben Abbott +## Copyright (C) 2009-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_has_terminal__.m +++ b/scripts/plot/util/private/__gnuplot_has_terminal__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_open_stream__.m +++ b/scripts/plot/util/private/__gnuplot_open_stream__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Ben Abbott +## Copyright (C) 2009-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__gnuplot_print__.m +++ b/scripts/plot/util/private/__gnuplot_print__.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Daniel Heiserer +## Copyright (C) 1999-2013 Daniel Heiserer ## Copyright (C) 2001 Laurent Mazet ## ## This file is part of Octave.
--- a/scripts/plot/util/private/__gnuplot_version__.m +++ b/scripts/plot/util/private/__gnuplot_version__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Daniel Sebald +## Copyright (C) 2006-2013 Daniel Sebald ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__go_draw_axes__.m +++ b/scripts/plot/util/private/__go_draw_axes__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__go_draw_figure__.m +++ b/scripts/plot/util/private/__go_draw_figure__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__print_parse_opts__.m +++ b/scripts/plot/util/private/__print_parse_opts__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Shai Ayal +## Copyright (C) 2010-2013 Shai Ayal ## ## This file is part of Octave. ##
--- a/scripts/plot/util/private/__tight_eps_bbox__.m +++ b/scripts/plot/util/private/__tight_eps_bbox__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/plot/util/refresh.m +++ b/scripts/plot/util/refresh.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/refreshdata.m +++ b/scripts/plot/util/refreshdata.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/plot/util/saveas.m +++ b/scripts/plot/util/saveas.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Kai Habel +## Copyright (C) 2010-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/plot/util/shg.m +++ b/scripts/plot/util/shg.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/plot/util/struct2hdl.m +++ b/scripts/plot/util/struct2hdl.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 pdiribarne +## Copyright (C) 2012-2013 pdiribarne ## ## 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
--- a/scripts/plot/util/subplot.m +++ b/scripts/plot/util/subplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/compan.m +++ b/scripts/polynomial/compan.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/conv.m +++ b/scripts/polynomial/conv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/deconv.m +++ b/scripts/polynomial/deconv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/mkpp.m +++ b/scripts/polynomial/mkpp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/polynomial/mpoles.m +++ b/scripts/polynomial/mpoles.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 Ben Abbott +## Copyright (C) 2007-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/polynomial/pchip.m +++ b/scripts/polynomial/pchip.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Kai Habel +## Copyright (C) 2001-2013 Kai Habel ## ## This file is part of Octave. ##
--- a/scripts/polynomial/poly.m +++ b/scripts/polynomial/poly.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyaffine.m +++ b/scripts/polynomial/polyaffine.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Tony Richardson, Jaroslav Hajek +## Copyright (C) 2009-2013 Tony Richardson, Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyder.m +++ b/scripts/polynomial/polyder.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyeig.m +++ b/scripts/polynomial/polyeig.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Fotios Kasolis +## Copyright (C) 2012-2013 Fotios Kasolis ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyfit.m +++ b/scripts/polynomial/polyfit.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polygcd.m +++ b/scripts/polynomial/polygcd.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyint.m +++ b/scripts/polynomial/polyint.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyout.m +++ b/scripts/polynomial/polyout.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Auburn University. All rights reserved. +## Copyright (C) 1995-2013 Auburn University. All rights reserved. ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyreduce.m +++ b/scripts/polynomial/polyreduce.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyval.m +++ b/scripts/polynomial/polyval.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/polyvalm.m +++ b/scripts/polynomial/polyvalm.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/polynomial/ppder.m +++ b/scripts/polynomial/ppder.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s., Czech Republic +## Copyright (C) 2008-2013 VZLU Prague, a.s., Czech Republic ## ## This file is part of Octave. ##
--- a/scripts/polynomial/ppint.m +++ b/scripts/polynomial/ppint.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s., Czech Republic +## Copyright (C) 2008-2013 VZLU Prague, a.s., Czech Republic ## ## This file is part of Octave. ##
--- a/scripts/polynomial/ppjumps.m +++ b/scripts/polynomial/ppjumps.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 VZLU Prague, a.s., Czech Republic +## Copyright (C) 2008-2013 VZLU Prague, a.s., Czech Republic ## ## This file is part of Octave. ##
--- a/scripts/polynomial/ppval.m +++ b/scripts/polynomial/ppval.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ## @@ -74,9 +74,10 @@ dx = shiftdim (dx, ndv - 1); ## Use Horner scheme. - yi = Pidx; if (k > 1) yi = shiftdim (reshape (Pidx(1,:), dimvec), ndv - 1); + else + yi = shiftdim (reshape (Pidx, dimvec), ndv - 1); endif for i = 2 : k;
--- a/scripts/polynomial/residue.m +++ b/scripts/polynomial/residue.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2007 Ben Abbott ## ## This file is part of Octave.
--- a/scripts/polynomial/roots.m +++ b/scripts/polynomial/roots.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/polynomial/spline.m +++ b/scripts/polynomial/spline.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## Copyright (C) 2006 David Bateman ## ## This file is part of Octave.
--- a/scripts/polynomial/splinefit.m +++ b/scripts/polynomial/splinefit.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Ben Abbott, Jonas Lundgren +## Copyright (C) 2012-2013 Ben Abbott, Jonas Lundgren ## ## This file is part of Octave. ##
--- a/scripts/polynomial/unmkpp.m +++ b/scripts/polynomial/unmkpp.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/prefs/addpref.m +++ b/scripts/prefs/addpref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/getpref.m +++ b/scripts/prefs/getpref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/ispref.m +++ b/scripts/prefs/ispref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/private/loadprefs.m +++ b/scripts/prefs/private/loadprefs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/private/prefsfile.m +++ b/scripts/prefs/private/prefsfile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/private/saveprefs.m +++ b/scripts/prefs/private/saveprefs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/rmpref.m +++ b/scripts/prefs/rmpref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/prefs/setpref.m +++ b/scripts/prefs/setpref.m @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/set/intersect.m +++ b/scripts/set/intersect.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2008-2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/set/ismember.m +++ b/scripts/set/ismember.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/set/powerset.m +++ b/scripts/set/powerset.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Jaroslav Hajek +## Copyright (C) 2010-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/set/private/validargs.m +++ b/scripts/set/private/validargs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2009-2010 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/set/setdiff.m +++ b/scripts/set/setdiff.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2008-2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/set/setxor.m +++ b/scripts/set/setxor.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek +## Copyright (C) 2008-2013 Jaroslav Hajek ## Copyright (C) 2000, 2006-2007 Paul Kienzle ## ## This file is part of Octave.
--- a/scripts/set/union.m +++ b/scripts/set/union.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2008-2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/set/unique.m +++ b/scripts/set/unique.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2008-2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/signal/arch_fit.m +++ b/scripts/signal/arch_fit.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/signal/arch_rnd.m +++ b/scripts/signal/arch_rnd.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/signal/arch_test.m +++ b/scripts/signal/arch_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/signal/arma_rnd.m +++ b/scripts/signal/arma_rnd.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/autoreg_matrix.m +++ b/scripts/signal/autoreg_matrix.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/signal/bartlett.m +++ b/scripts/signal/bartlett.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ##
--- a/scripts/signal/blackman.m +++ b/scripts/signal/blackman.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ##
--- a/scripts/signal/detrend.m +++ b/scripts/signal/detrend.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/signal/diffpara.m +++ b/scripts/signal/diffpara.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/durbinlevinson.m +++ b/scripts/signal/durbinlevinson.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/fftconv.m +++ b/scripts/signal/fftconv.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/signal/fftfilt.m +++ b/scripts/signal/fftfilt.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -17,14 +17,15 @@ ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Function File} {} fftfilt (@var{b}, @var{x}, @var{n}) +## @deftypefn {Function File} {} fftfilt (@var{b}, @var{x}) +## @deftypefnx {Function File} {} fftfilt (@var{b}, @var{x}, @var{n}) ## ## With two arguments, @code{fftfilt} filters @var{x} with the FIR filter ## @var{b} using the FFT. ## ## Given the optional third argument, @var{n}, @code{fftfilt} uses the -## overlap-add method to filter @var{x} with @var{b} using an @var{n}-point -## FFT@. The FFT size must be an even power of 2 and must be greater than +## overlap-add method to filter @var{x} with @var{b} using an N-point +## FFT. The FFT size must be an even power of 2 and must be greater than ## or equal to the length of @var{b}. If the specified @var{n} does not ## meet these criteria, it is automatically adjusted to the nearest value ## that does.
--- a/scripts/signal/fftshift.m +++ b/scripts/signal/fftshift.m @@ -1,4 +1,4 @@ -## Copyright (C) 1997-2012 Vincent Cautaerts +## Copyright (C) 1997-2013 Vincent Cautaerts ## ## This file is part of Octave. ##
--- a/scripts/signal/filter2.m +++ b/scripts/signal/filter2.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/signal/fractdiff.m +++ b/scripts/signal/fractdiff.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/freqz.m +++ b/scripts/signal/freqz.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/signal/freqz_plot.m +++ b/scripts/signal/freqz_plot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2002-2012 John W. Eaton +## Copyright (C) 2002-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/signal/hamming.m +++ b/scripts/signal/hamming.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ##
--- a/scripts/signal/hanning.m +++ b/scripts/signal/hanning.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ##
--- a/scripts/signal/hurst.m +++ b/scripts/signal/hurst.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/ifftshift.m +++ b/scripts/signal/ifftshift.m @@ -1,4 +1,4 @@ -## Copyright (C) 1997-2012 Vincent Cautaerts +## Copyright (C) 1997-2013 Vincent Cautaerts ## ## This file is part of Octave. ##
--- a/scripts/signal/periodogram.m +++ b/scripts/signal/periodogram.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## Copyright (C) 2010 Alois Schloegl ## ## This file is part of Octave.
--- a/scripts/signal/private/rectangle_lw.m +++ b/scripts/signal/private/rectangle_lw.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/private/rectangle_sw.m +++ b/scripts/signal/private/rectangle_sw.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/private/triangle_lw.m +++ b/scripts/signal/private/triangle_lw.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/private/triangle_sw.m +++ b/scripts/signal/private/triangle_sw.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/sinc.m +++ b/scripts/signal/sinc.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/signal/sinetone.m +++ b/scripts/signal/sinetone.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/sinewave.m +++ b/scripts/signal/sinewave.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ##
--- a/scripts/signal/spectral_adf.m +++ b/scripts/signal/spectral_adf.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/spectral_xdf.m +++ b/scripts/signal/spectral_xdf.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/spencer.m +++ b/scripts/signal/spencer.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/signal/stft.m +++ b/scripts/signal/stft.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ## @@ -17,7 +17,12 @@ ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Function File} {[@var{y}, @var{c}] =} stft (@var{x}, @var{win_size}, @var{inc}, @var{num_coef}, @var{win_type}) +## @deftypefn {Function File} {@var{y} =} stft (@var{x}) +## @deftypefnx {Function File} {@var{y} =} stft (@var{x}, @var{win_size}) +## @deftypefnx {Function File} {@var{y} =} stft (@var{x}, @var{win_size}, @var{inc}) +## @deftypefnx {Function File} {@var{y} =} stft (@var{x}, @var{win_size}, @var{inc}, @var{num_coef}) +## @deftypefnx {Function File} {@var{y} =} stft (@var{x}, @var{win_size}, @var{inc}, @var{num_coef}, @var{win_type}) +## @deftypefnx {Function File} {[@var{y}, @var{c}] =} stft (@dots{}) ## Compute the short-time Fourier transform of the vector @var{x} with ## @var{num_coef} coefficients by applying a window of @var{win_size} data ## points and an increment of @var{inc} points. @@ -26,19 +31,19 @@ ## is applied: ## ## @table @asis -## @item @nospell{hanning} +## @item @qcode{"hanning"} ## win_type = 1 ## -## @item @nospell{hamming} +## @item @qcode{"hamming"} ## win_type = 2 ## -## @item rectangle +## @item @qcode{"rectangle"} ## win_type = 3 ## @end table ## ## The window names can be passed as strings or by the @var{win_type} number. ## -## If not all arguments are specified, the following defaults are used: +## The following defaults are used for unspecifed arguments: ## @var{win_size} = 80, @var{inc} = 24, @var{num_coef} = 64, and ## @var{win_type} = 1. ## @@ -49,71 +54,48 @@ ## @code{[@var{y}, @var{c}] = stft (@code{x}, @dots{})} returns the ## entire STFT-matrix @var{y} and a 3-element vector @var{c} containing ## the window size, increment, and window type, which is needed by the -## synthesis function. +## @code{synthesis} function. +## @seealso{synthesis} ## @end deftypefn ## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> ## Description: Short-Time Fourier Transform -function [y, c] = stft (x, win_size, inc, num_coef, win_type) +function [y, c] = stft (x, win_size = 80, inc = 24, num_coef = 64, win_type = 1) - ## Default values of unspecified arguments. - if (nargin < 5) - win_type = 1; - if (nargin < 4) - num_coef = 64; - if (nargin < 3) - inc = 24; - if (nargin < 2) - win_size = 80; - endif - endif - endif - elseif (nargin == 5) - if (ischar (win_type)) - if (strcmp (win_type, "hanning")) - win_type = 1; - elseif (strcmp (win_type, "hamming")) - win_type = 2; - elseif (strcmp (win_type, "rectangle")) - win_type = 3; - else - error ("stft: unknown window type '%s'", win_type); - endif - endif - else + if (nargin < 1 || nargin > 5) print_usage (); endif + if (ischar (win_type)) + switch (tolower (win_type)) + case "hanning" win_type = 1; + case "hamming" win_type = 2; + case "rectangle" win_type = 3; + otherwise + error ("stft: unknown window type '%s'", win_type); + endswitch + endif + ## Check whether X is a vector. - [nr, nc] = size (x); - if (nc != 1) - if (nr == 1) - x = x'; - nr = nc; - else - error ("stft: X must be a vector"); - endif + if (! isvector (x)) + error ("stft: X must be a vector"); endif + x = x(:); ncoef = 2 * num_coef; if (win_size > ncoef) win_size = ncoef; printf ("stft: window size adjusted to %f\n", win_size); endif - num_win = fix ((nr - win_size) / inc); + num_win = fix ((rows (x) - win_size) / inc); ## compute the window coefficients - if (win_type == 3) - ## Rectangular window. - win_coef = ones (win_size, 1); - elseif (win_type == 2) - ## Hamming window. - win_coef = hamming (win_size); - else - ## Hanning window. - win_coef = hanning (win_size); - endif + switch (win_type) + case 1 win_coef = hanning (win_size); + case 2 win_coef = hamming (win_size); + case 3 win_coef = ones (win_size, 1); + endswitch ## Create a matrix Z whose columns contain the windowed time-slices. z = zeros (ncoef, num_win + 1);
--- a/scripts/signal/synthesis.m +++ b/scripts/signal/synthesis.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Andreas Weingessel +## Copyright (C) 1995-2013 Andreas Weingessel ## ## This file is part of Octave. ## @@ -17,7 +17,7 @@ ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Function File} {} synthesis (@var{y}, @var{c}) +## @deftypefn {Function File} {@var{x} =} synthesis (@var{y}, @var{c}) ## Compute a signal from its short-time Fourier transform @var{y} and a ## 3-element vector @var{c} specifying window size, increment, and ## window type. @@ -27,6 +27,7 @@ ## @example ## [@var{y}, @var{c}] = stft (@var{x} , @dots{}) ## @end example +## @seealso{stft} ## @end deftypefn ## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> @@ -38,8 +39,7 @@ print_usage (); endif - [nr, nc] = size (c); - if (nr * nc != 3) + if (numel (c) != 3) error ("synthesis: C must contain exactly 3 elements"); endif @@ -59,12 +59,12 @@ z = real (ifft (y)); st = fix ((w_size-inc) / 2); - z = z(st:st+inc-1, :); - w_coeff = w_coeff(st:st+inc-1); + z = z(st+1:st+inc, :); + w_coeff = w_coeff(st+1:st+inc); nc = columns (z); for i = 1:nc - z(:, i) = z(:, i) ./ w_coeff; + z(:, i) ./= w_coeff; endfor x = reshape (z, inc * nc, 1);
--- a/scripts/signal/unwrap.m +++ b/scripts/signal/unwrap.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Bill Lash +## Copyright (C) 2000-2013 Bill Lash ## ## This file is part of Octave. ##
--- a/scripts/signal/yulewalker.m +++ b/scripts/signal/yulewalker.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/sparse/bicg.m +++ b/scripts/sparse/bicg.m @@ -1,5 +1,5 @@ ## Copyright (C) 2006 Sylvain Pelissier -## Copyright (C) 2012 Carlo de Falco +## Copyright (C) 2012-2013 Carlo de Falco ## ## 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
--- a/scripts/sparse/bicgstab.m +++ b/scripts/sparse/bicgstab.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Radek Salac +## Copyright (C) 2008-2013 Radek Salac ## Copyright (C) 2012 Carlo de Falco ## ## This file is part of Octave.
--- a/scripts/sparse/cgs.m +++ b/scripts/sparse/cgs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Radek Salac +## Copyright (C) 2008-2013 Radek Salac ## Copyright (C) 2012 Carlo de Falco ## ## This file is part of Octave.
--- a/scripts/sparse/colperm.m +++ b/scripts/sparse/colperm.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/eigs.m +++ b/scripts/sparse/eigs.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 David Bateman +## Copyright (C) 2005-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/sparse/etreeplot.m +++ b/scripts/sparse/etreeplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Ivana Varekova +## Copyright (C) 2005-2013 Ivana Varekova ## ## This file is part of Octave. ##
--- a/scripts/sparse/gmres.m +++ b/scripts/sparse/gmres.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Carlo de Falco +## Copyright (C) 2009-2013 Carlo de Falco ## ## This file is part of Octave. ##
--- a/scripts/sparse/gplot.m +++ b/scripts/sparse/gplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Ivana Varekova +## Copyright (C) 2005-2013 Ivana Varekova ## ## This file is part of Octave. ##
--- a/scripts/sparse/nonzeros.m +++ b/scripts/sparse/nonzeros.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/sparse/pcg.m +++ b/scripts/sparse/pcg.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Piotr Krzyzanowski +## Copyright (C) 2004-2013 Piotr Krzyzanowski ## ## This file is part of Octave. ## @@ -20,70 +20,68 @@ ## @deftypefn {Function File} {@var{x} =} pcg (@var{A}, @var{b}, @var{tol}, @var{maxit}, @var{m1}, @var{m2}, @var{x0}, @dots{}) ## @deftypefnx {Function File} {[@var{x}, @var{flag}, @var{relres}, @var{iter}, @var{resvec}, @var{eigest}] =} pcg (@dots{}) ## -## Solve the linear system of equations @code{@var{A} * @var{x} = @var{b}} -## by means of the Preconditioned Conjugate Gradient iterative -## method. The input arguments are +## Solve the linear system of equations @w{@code{@var{A} * @var{x} = @var{b}}} +## by means of the Preconditioned Conjugate Gradient iterative method. The +## input arguments are ## ## @itemize ## @item -## @var{A} can be either a square (preferably sparse) matrix or a -## function handle, inline function or string containing the name -## of a function which computes @code{@var{A} * @var{x}}. In principle -## @var{A} should be symmetric and positive definite; if @code{pcg} -## finds @var{A} to not be positive definite, you will get a warning -## message and the @var{flag} output parameter will be set. +## @var{A} can be either a square (preferably sparse) matrix or a function +## handle, inline function or string containing the name of a function which +## computes @w{@code{@var{A} * @var{x}}}. In principle, @var{A} should be +## symmetric and positive definite; if @code{pcg} finds @var{A} not to be +## positive definite, a warning is printed and the @var{flag} output will be +## set. ## ## @item -## @var{b} is the right hand side vector. +## @var{b} is the right-hand side vector. ## ## @item ## @var{tol} is the required relative tolerance for the residual error, -## @code{@var{b} - @var{A} * @var{x}}. The iteration stops if -## @code{norm (@var{b} - @var{A} * @var{x}) <= -## @var{tol} * norm (@var{b} - @var{A} * @var{x0})}. -## If @var{tol} is empty or is omitted, the function sets -## @code{@var{tol} = 1e-6} by default. +## @w{@code{@var{b} - @var{A} * @var{x}}}. The iteration stops if +## @w{@code{norm (@var{b} - @var{A} * @var{x})} @leq{} +## @w{@var{tol} * norm (@var{b})}}. +## If @var{tol} is omitted or empty then a tolerance of 1e-6 is used. ## ## @item -## @var{maxit} is the maximum allowable number of iterations; if -## @code{[]} is supplied for @code{maxit}, or @code{pcg} has less -## arguments, a default value equal to 20 is used. +## @var{maxit} is the maximum allowable number of iterations; if @var{maxit} +## is omitted or empty then a value of 20 is used. ## ## @item ## @var{m} = @var{m1} * @var{m2} is the (left) preconditioning matrix, so that ## the iteration is (theoretically) equivalent to solving by @code{pcg} -## @code{@var{P} * -## @var{x} = @var{m} \ @var{b}}, with @code{@var{P} = @var{m} \ @var{A}}. +## @w{@code{@var{P} * @var{x} = @var{m} \ @var{b}}}, with +## @w{@code{@var{P} = @var{m} \ @var{A}}}. ## Note that a proper choice of the preconditioner may dramatically ## improve the overall performance of the method. Instead of matrices ## @var{m1} and @var{m2}, the user may pass two functions which return ## the results of applying the inverse of @var{m1} and @var{m2} to ## a vector (usually this is the preferred way of using the preconditioner). -## If @code{[]} is supplied for @var{m1}, or @var{m1} is omitted, no -## preconditioning is applied. If @var{m2} is omitted, @var{m} = @var{m1} -## will be used as preconditioner. +## If @var{m1} is omitted or empty @code{[]} then no preconditioning is +## applied. If @var{m2} is omitted, @var{m} = @var{m1} will be used as +## a preconditioner. ## ## @item -## @var{x0} is the initial guess. If @var{x0} is empty or omitted, the +## @var{x0} is the initial guess. If @var{x0} is omitted or empty then the ## function sets @var{x0} to a zero vector by default. ## @end itemize ## -## The arguments which follow @var{x0} are treated as parameters, and -## passed in a proper way to any of the functions (@var{A} or @var{m}) -## which are passed to @code{pcg}. See the examples below for further -## details. The output arguments are +## The arguments which follow @var{x0} are treated as parameters, and passed in +## a proper way to any of the functions (@var{A} or @var{m}) which are passed +## to @code{pcg}. See the examples below for further details. The output +## arguments are ## ## @itemize ## @item ## @var{x} is the computed approximation to the solution of -## @code{@var{A} * @var{x} = @var{b}}. +## @w{@code{@var{A} * @var{x} = @var{b}}}. ## ## @item -## @var{flag} reports on the convergence. @code{@var{flag} = 0} means -## the solution converged and the tolerance criterion given by @var{tol} -## is satisfied. @code{@var{flag} = 1} means that the @var{maxit} limit -## for the iteration count was reached. @code{@var{flag} = 3} reports that -## the (preconditioned) matrix was found not positive definite. +## @var{flag} reports on the convergence. A value of 0 means the solution +## converged and the tolerance criterion given by @var{tol} is satisfied. +## A value of 1 means that the @var{maxit} limit for the iteration count was +## reached. A value of 3 indicates that the (preconditioned) matrix was found +## not to be positive definite. ## ## @item ## @var{relres} is the ratio of the final residual to its initial value, @@ -94,29 +92,28 @@ ## ## @item ## @var{resvec} describes the convergence history of the method. -## @code{@var{resvec} (i,1)} is the Euclidean norm of the residual, and -## @code{@var{resvec} (i,2)} is the preconditioned residual norm, -## after the (@var{i}-1)-th iteration, @code{@var{i} = -## 1, 2, @dots{}, @var{iter}+1}. The preconditioned residual norm -## is defined as +## @code{@var{resvec}(i,1)} is the Euclidean norm of the residual, and +## @code{@var{resvec}(i,2)} is the preconditioned residual norm, after the +## (@var{i}-1)-th iteration, @code{@var{i} = 1, 2, @dots{}, @var{iter}+1}. +## The preconditioned residual norm is defined as ## @code{norm (@var{r}) ^ 2 = @var{r}' * (@var{m} \ @var{r})} where ## @code{@var{r} = @var{b} - @var{A} * @var{x}}, see also the ## description of @var{m}. If @var{eigest} is not required, only -## @code{@var{resvec} (:,1)} is returned. +## @code{@var{resvec}(:,1)} is returned. ## ## @item -## @var{eigest} returns the estimate for the smallest @code{@var{eigest} -## (1)} and largest @code{@var{eigest} (2)} eigenvalues of the -## preconditioned matrix @code{@var{P} = @var{m} \ @var{A}}. In -## particular, if no preconditioning is used, the estimates for the -## extreme eigenvalues of @var{A} are returned. @code{@var{eigest} (1)} -## is an overestimate and @code{@var{eigest} (2)} is an underestimate, -## so that @code{@var{eigest} (2) / @var{eigest} (1)} is a lower bound -## for @code{cond (@var{P}, 2)}, which nevertheless in the limit should +## @var{eigest} returns the estimate for the smallest @code{@var{eigest}(1)} +## and largest @code{@var{eigest}(2)} eigenvalues of the preconditioned matrix +## @w{@code{@var{P} = @var{m} \ @var{A}}}. In particular, if no +## preconditioning is used, the estimates for the extreme eigenvalues of +## @var{A} are returned. @code{@var{eigest}(1)} is an overestimate and +## @code{@var{eigest}(2)} is an underestimate, so that +## @code{@var{eigest}(2) / @var{eigest}(1)} is a lower bound for +## @code{cond (@var{P}, 2)}, which nevertheless in the limit should ## theoretically be equal to the actual value of the condition number. ## The method which computes @var{eigest} works only for symmetric positive -## definite @var{A} and @var{m}, and the user is responsible for -## verifying this assumption. +## definite @var{A} and @var{m}, and the user is responsible for verifying this +## assumption. ## @end itemize ## ## Let us consider a trivial problem with a diagonal matrix (we exploit the @@ -134,7 +131,7 @@ ## @sc{Example 1:} Simplest use of @code{pcg} ## ## @example -## x = pcg (A,b) +## x = pcg (A, b) ## @end example ## ## @sc{Example 2:} @code{pcg} with a function which computes @@ -270,11 +267,12 @@ r = b - feval (A, x, varargin{:}); endif + b_norm = norm (b); resvec(1,1) = norm (r); alpha = 1; iter = 2; - while (resvec (iter-1,1) > tol * resvec (1,1) && iter < maxit) + while (resvec(iter-1,1) > tol * b_norm && iter < maxit) if (exist_m1) if (isnumeric (m1)) y = m1 \ r; @@ -294,7 +292,7 @@ z = y; endif tau = z' * r; - resvec (iter-1,2) = sqrt (tau); + resvec(iter-1,2) = sqrt (tau); beta = tau / oldtau; oldtau = tau; p = z + beta * p; @@ -320,7 +318,7 @@ ## EVS = eig (T(2:iter-1,2:iter-1)); ## fprintf (stderr,"PCG condest: %g (iteration: %d)\n", max (EVS)/min (EVS),iter); endif - resvec (iter,1) = norm (r); + resvec(iter,1) = norm (r); iter++; endwhile @@ -360,13 +358,13 @@ z = y; endif - resvec (iter-1,2) = sqrt (r' * z); + resvec(iter-1,2) = sqrt (r' * z); else resvec = resvec(:,1); endif flag = 0; - relres = resvec (iter-1,1) ./ resvec(1,1); + relres = resvec(iter-1,1) ./ resvec(1,1); iter -= 2; if (iter >= maxit - 2) flag = 1;
--- a/scripts/sparse/pcr.m +++ b/scripts/sparse/pcr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Piotr Krzyzanowski +## Copyright (C) 2004-2013 Piotr Krzyzanowski ## ## This file is part of Octave. ##
--- a/scripts/sparse/private/__sprand_impl__.m +++ b/scripts/sparse/private/__sprand_impl__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## Copyright (C) 2012 Jordi Gutiérrez Hermoso ## ## This file is part of Octave. @@ -70,6 +70,7 @@ k = min (length (idx), k); j = floor ((idx(1:k) - 1) / m); i = idx(1:k) - j * m; + j++; else idx = randperm (mn, k); [i, j] = ind2sub ([m, n], idx);
--- a/scripts/sparse/spaugment.m +++ b/scripts/sparse/spaugment.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/sparse/spconvert.m +++ b/scripts/sparse/spconvert.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/spdiags.m +++ b/scripts/sparse/spdiags.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/sparse/speye.m +++ b/scripts/sparse/speye.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/spfun.m +++ b/scripts/sparse/spfun.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/spones.m +++ b/scripts/sparse/spones.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/sprand.m +++ b/scripts/sparse/sprand.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/sparse/sprandn.m +++ b/scripts/sparse/sprandn.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/sparse/sprandsym.m +++ b/scripts/sparse/sprandsym.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 David Bateman and Andy Adler +## Copyright (C) 2004-2013 David Bateman and Andy Adler ## Copyright (C) 2012 Jordi Gutiérrez Hermoso ## ## This file is part of Octave.
--- a/scripts/sparse/spstats.m +++ b/scripts/sparse/spstats.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/sparse/spy.m +++ b/scripts/sparse/spy.m @@ -1,4 +1,4 @@ -## Copyright (C) 1998-2012 Andy Adler +## Copyright (C) 1998-2013 Andy Adler ## ## This file is part of Octave. ##
--- a/scripts/sparse/svds.m +++ b/scripts/sparse/svds.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 David Bateman +## Copyright (C) 2006-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/sparse/treelayout.m +++ b/scripts/sparse/treelayout.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ivana Varekova & Radek Salac +## Copyright (C) 2008-2013 Ivana Varekova & Radek Salac ## ## This file is part of Octave. ##
--- a/scripts/sparse/treeplot.m +++ b/scripts/sparse/treeplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Ivana Varekova +## Copyright (C) 2005-2013 Ivana Varekova ## ## This file is part of Octave. ##
--- a/scripts/specfun/bessel.m +++ b/scripts/specfun/bessel.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/specfun/beta.m +++ b/scripts/specfun/beta.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/specfun/betaln.m +++ b/scripts/specfun/betaln.m @@ -1,4 +1,4 @@ -## Copyright (C) 1998-2012 Nicol N. Schraudolph +## Copyright (C) 1998-2013 Nicol N. Schraudolph ## ## This file is part of Octave. ##
--- a/scripts/specfun/ellipke.m +++ b/scripts/specfun/ellipke.m @@ -1,6 +1,6 @@ -## Copyright (C) 2001 David Billinghurst -## Copyright (C) 2001 Paul Kienzle -## Copyright (C) 2003 Jaakko Ruohio +## Copyright (C) 2001, 2013 David Billinghurst +## Copyright (C) 2001, 2013 Paul Kienzle +## Copyright (C) 2003, 2013 Jaakko Ruohio ## ## This file is part of Octave. ##
--- a/scripts/specfun/expint.m +++ b/scripts/specfun/expint.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006 Sylvain Pelissier +## Copyright (C) 2006, 2013 Sylvain Pelissier ## ## This file is part of Octave. ##
--- a/scripts/specfun/factor.m +++ b/scripts/specfun/factor.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ## @@ -20,14 +20,17 @@ ## @deftypefn {Function File} {@var{p} =} factor (@var{q}) ## @deftypefnx {Function File} {[@var{p}, @var{n}] =} factor (@var{q}) ## -## Return prime factorization of @var{q}. That is, +## Return the prime factorization of @var{q}. That is, ## @code{prod (@var{p}) == @var{q}} and every element of @var{p} is a prime ## number. If @code{@var{q} == 1}, return 1. ## ## With two output arguments, return the unique primes @var{p} and ## their multiplicities. That is, @code{prod (@var{p} .^ @var{n}) == ## @var{q}}. -## @seealso{gcd, lcm} +## +## Implementation Note: The input @var{q} must not be greater than +## @code{bitmax} (9.0072e+15) in order to factor correctly. +## @seealso{gcd, lcm, isprime} ## @end deftypefn ## Author: Paul Kienzle @@ -54,6 +57,8 @@ return; endif + q = double (q); # For the time being, calcs rely on double precision var. + qorig = q; x = []; ## There is at most one prime greater than sqrt(q), and if it exists, ## it has multiplicity 1, so no need to consider any factors greater @@ -62,17 +67,25 @@ p = primes (sqrt (q)); while (q > 1) ## Find prime factors in remaining q. - p = p (rem (q, p) == 0); + p = p(rem (q, p) == 0); if (isempty (p)) ## Can't be reduced further, so q must itself be a prime. p = q; endif x = [x, p]; ## Reduce q. - q = q / prod (p); + q /= prod (p); endwhile x = sort (x); + ## Verify algorithm was succesful + q = prod (x); + if (q != qorig) + error ("factor: Input Q too large to factor"); + elseif (q > bitmax) + warning ("factor: Input Q too large. Answer is unreliable"); + endif + ## Determine muliplicity. if (nargout > 1) idx = find ([0, x] != [x, 0]); @@ -94,3 +107,8 @@ %! assert (all ([0,p] != [p,0])); %! endfor +%% Test input validation +%!error factor () +%!error <Q must be a scalar integer> factor ([1,2]) +%!error <Q must be a scalar integer> factor (1.5) +
--- a/scripts/specfun/factorial.m +++ b/scripts/specfun/factorial.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/specfun/isprime.m +++ b/scripts/specfun/isprime.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/specfun/lcm.m +++ b/scripts/specfun/lcm.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/specfun/legendre.m +++ b/scripts/specfun/legendre.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Kai Habel +## Copyright (C) 2000-2013 Kai Habel ## Copyright (C) 2008 Marco Caliari ## ## This file is part of Octave.
--- a/scripts/specfun/nchoosek.m +++ b/scripts/specfun/nchoosek.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Rolf Fabian and Paul Kienzle +## Copyright (C) 2001-2013 Rolf Fabian and Paul Kienzle ## Copyright (C) 2008 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/specfun/nthroot.m +++ b/scripts/specfun/nthroot.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## Copyright (C) 2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/specfun/perms.m +++ b/scripts/specfun/perms.m @@ -1,4 +1,4 @@ -## Copyright (C) 2001-2012 Paul Kienzle +## Copyright (C) 2001-2013 Paul Kienzle ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/specfun/pow2.m +++ b/scripts/specfun/pow2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/specfun/primes.m +++ b/scripts/specfun/primes.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/specfun/reallog.m +++ b/scripts/specfun/reallog.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/specfun/realpow.m +++ b/scripts/specfun/realpow.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/specfun/realsqrt.m +++ b/scripts/specfun/realsqrt.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/hadamard.m +++ b/scripts/special-matrix/hadamard.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 Paul Kienzle +## Copyright (C) 1993-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/hankel.m +++ b/scripts/special-matrix/hankel.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/hilb.m +++ b/scripts/special-matrix/hilb.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/invhilb.m +++ b/scripts/special-matrix/invhilb.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 Dirk Laurie +## Copyright (C) 1993-2013 Dirk Laurie ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/magic.m +++ b/scripts/special-matrix/magic.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Paul Kienzle +## Copyright (C) 1999-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/pascal.m +++ b/scripts/special-matrix/pascal.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Peter Ekberg +## Copyright (C) 1999-2013 Peter Ekberg ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/special-matrix/rosser.m +++ b/scripts/special-matrix/rosser.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Peter Ekberg +## Copyright (C) 1999-2013 Peter Ekberg ## ## This file is part of Octave. ##
--- a/scripts/special-matrix/toeplitz.m +++ b/scripts/special-matrix/toeplitz.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/special-matrix/vander.m +++ b/scripts/special-matrix/vander.m @@ -1,4 +1,4 @@ -## Copyright (C) 1993-2012 John W. Eaton +## Copyright (C) 1993-2013 John W. Eaton ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/special-matrix/wilkinson.m +++ b/scripts/special-matrix/wilkinson.m @@ -1,4 +1,4 @@ -## Copyright (C) 1999-2012 Peter Ekberg +## Copyright (C) 1999-2013 Peter Ekberg ## ## This file is part of Octave. ##
--- a/scripts/startup/__finish__.m +++ b/scripts/startup/__finish__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott +## Copyright (C) 2008-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/center.m +++ b/scripts/statistics/base/center.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/statistics/base/cloglog.m +++ b/scripts/statistics/base/cloglog.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/corr.m +++ b/scripts/statistics/base/corr.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/cov.m +++ b/scripts/statistics/base/cov.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/gls.m +++ b/scripts/statistics/base/gls.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/histc.m +++ b/scripts/statistics/base/histc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Søren Hauberg +## Copyright (C) 2009-2013 Søren Hauberg ## Copyright (C) 2009 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/statistics/base/iqr.m +++ b/scripts/statistics/base/iqr.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/kendall.m +++ b/scripts/statistics/base/kendall.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/kurtosis.m +++ b/scripts/statistics/base/kurtosis.m @@ -1,4 +1,5 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 2013 Julien Bect +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -18,33 +19,59 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} kurtosis (@var{x}) -## @deftypefnx {Function File} {} kurtosis (@var{x}, @var{dim}) -## Compute the kurtosis of the elements of the vector @var{x}. +## @deftypefnx {Function File} {} kurtosis (@var{x}, @var{flag}) +## @deftypefnx {Function File} {} kurtosis (@var{x}, @var{flag}, @var{dim}) +## Compute the sample kurtosis of the elements of @var{x}: ## @tex ## $$ -## {\rm kurtosis} (x) = {1\over N \sigma^4} \sum_{i=1}^N (x_i-\bar{x})^4 - 3 +## \kappa_1 = {{{1\over N}\, +## \sum_{i=1}^N (@var{x}_i - \bar{@var{x}})^4} \over \sigma^4}, ## $$ -## where $\bar{x}$ is the mean value of $x$. +## where $N$ is the length of @var{x}, $\bar{@var{x}}$ its mean, and $\sigma$ +## its (uncorrected) standard deviation. ## @end tex ## @ifnottex ## ## @example ## @group -## 1 sum ((x - mean(x)).^4) -## kurtosis (x) = --- * ---------------------- - 3 -## N std(x)^4 +## mean ((@var{x} - mean (@var{x})).^4) +## k1 = ------------------------ +## std (@var{x}).^4 ## @end group ## @end example ## ## @end ifnottex -## If @var{x} is a matrix, return the kurtosis over the -## first non-singleton dimension of the matrix. If the optional +## +## @noindent +## The optional argument @var{flag} controls which normalization is used. +## If @var{flag} is equal to 1 (default value, used when @var{flag} is omitted +## or empty), return the sample kurtosis as defined above. If @var{flag} is +## equal to 0, return the @w{"bias-corrected"} kurtosis coefficient instead: +## @tex +## $$ +## \kappa_0 = 3 + {\scriptstyle N - 1 \over \scriptstyle (N - 2)(N - 3)} \, +## \left( (N + 1)\, \kappa_1 - 3 (N - 1) \right) +## $$ +## @end tex +## @ifnottex +## +## @example +## @group +## N - 1 +## k0 = 3 + -------------- * ((N + 1) * k1 - 3 * (N - 1)) +## (N - 2)(N - 3) +## @end group +## @end example +## +## @end ifnottex +## The bias-corrected kurtosis coefficient is obtained by replacing the sample +## second and fourth central moments by their unbiased versions. It is an +## unbiased estimate of the population kurtosis for normal populations. +## +## If @var{x} is a matrix, or more generally a multi-dimensional array, return +## the kurtosis along the first non-singleton dimension. If the optional ## @var{dim} argument is given, operate along this dimension. ## -## Note: The definition of kurtosis above yields a kurtosis of zero for the -## stdnormal distribution and is sometimes referred to as "excess kurtosis". -## To calculate kurtosis without the normalization factor of @math{-3} use -## @code{moment (@var{x}, 4, 'c') / std (@var{x})^4}. ## @seealso{var, skewness, moment} ## @end deftypefn @@ -52,9 +79,9 @@ ## Created: 29 July 1994 ## Adapted-By: jwe -function retval = kurtosis (x, dim) +function y = kurtosis (x, flag, dim) - if (nargin != 1 && nargin != 2) + if (nargin < 1) || (nargin > 3) print_usage (); endif @@ -62,26 +89,44 @@ error ("kurtosis: X must be a numeric vector or matrix"); endif + if (nargin < 2 || isempty (flag)) + flag = 1; # default: do not use the "bias corrected" version + else + if ((! isscalar (flag)) || (flag != 0 && flag != 1)) + error ("kurtosis: FLAG must be 0 or 1"); + endif + endif + nd = ndims (x); sz = size (x); - if (nargin != 2) + if (nargin < 3) ## Find the first non-singleton dimension. (dim = find (sz > 1, 1)) || (dim = 1); else - if (!(isscalar (dim) && dim == fix (dim)) - || !(1 <= dim && dim <= nd)) + if (! (isscalar (dim) && dim == fix (dim)) || ! (1 <= dim && dim <= nd)) error ("kurtosis: DIM must be an integer and a valid dimension"); endif endif n = sz(dim); sz(dim) = 1; - x = center (x, dim); # center also promotes integer to double for next line - retval = zeros (sz, class (x)); - s = std (x, [], dim); - idx = find (s > 0); - x = sum (x.^4, dim); - retval(idx) = x(idx) ./ (n * s(idx) .^ 4) - 3; + + x = center (x, dim); # center also promotes integer, logical to double + v = var (x, 1, dim); # normalize with 1/N + y = sum (x .^ 4, dim); + idx = (v != 0); + y(idx) = y(idx) ./ (n * v(idx) .^ 2); + y(! idx) = NaN; + + ## Apply bias correction to the second and fourth central sample moment + if (flag == 0) + if (n > 3) + C = (n - 1) / ((n - 2) * (n - 3)); + y = 3 + C * ((n + 1) * y - 3 * (n - 1)); + else + y(:) = NaN; + endif + endif endfunction @@ -89,16 +134,38 @@ %!test %! x = [-1; 0; 0; 0; 1]; %! y = [x, 2*x]; -%! assert (kurtosis (y), [-1.4, -1.4], sqrt (eps)); +%! assert (kurtosis (y), [2.5, 2.5], sqrt (eps)); + +%!assert (kurtosis ([-3, 0, 1]) == kurtosis ([-1, 0, 3])) +%!assert (kurtosis (ones (3, 5)), NaN (1, 5)) + +%!assert (kurtosis ([1:5 10; 1:5 10], 0, 2), 5.4377317925288901 * [1; 1], 8 * eps) +%!assert (kurtosis ([1:5 10; 1:5 10], 1, 2), 2.9786509002956195 * [1; 1], 8 * eps) +%!assert (kurtosis ([1:5 10; 1:5 10], [], 2), 2.9786509002956195 * [1; 1], 8 * eps) -%!assert (kurtosis (single (1)), single (0)) +## Test behaviour on single input +%!assert (kurtosis (single ([1:5 10])), single (2.9786513), eps ("single")) +%!assert (kurtosis (single ([1 2]), 0), single (NaN)) + +## Verify no "divide-by-zero" warnings +%!test +%! wstate = warning ("query", "Octave:divide-by-zero"); +%! warning ("on", "Octave:divide-by-zero"); +%! unwind_protect +%! lastwarn (""); # clear last warning +%! kurtosis (1); +%! assert (lastwarn (), ""); +%! unwind_protect_cleanup +%! warning (wstate, "Octave:divide-by-zero"); +%! end_unwind_protect %% Test input validation %!error kurtosis () %!error kurtosis (1, 2, 3) -%!error kurtosis (['A'; 'B']) -%!error kurtosis (1, ones (2,2)) -%!error kurtosis (1, 1.5) -%!error kurtosis (1, 0) -%!error kurtosis (1, 3) - +%!error <X must be a numeric vector or matrix> kurtosis (['A'; 'B']) +%!error <FLAG must be 0 or 1> kurtosis (1, 2) +%!error <FLAG must be 0 or 1> kurtosis (1, [1 0]) +%!error <DIM must be an integer> kurtosis (1, [], ones (2,2)) +%!error <DIM must be an integer> kurtosis (1, [], 1.5) +%!error <DIM must be .* a valid dimension> kurtosis (1, [], 0) +%!error <DIM must be .* a valid dimension> kurtosis (1, [], 3)
--- a/scripts/statistics/base/logit.m +++ b/scripts/statistics/base/logit.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/mahalanobis.m +++ b/scripts/statistics/base/mahalanobis.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/mean.m +++ b/scripts/statistics/base/mean.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/meansq.m +++ b/scripts/statistics/base/meansq.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/statistics/base/median.m +++ b/scripts/statistics/base/median.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## Copyright (C) 2009-2010 VZLU Prague ## ## This file is part of Octave.
--- a/scripts/statistics/base/mode.m +++ b/scripts/statistics/base/mode.m @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/moment.m +++ b/scripts/statistics/base/moment.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/ols.m +++ b/scripts/statistics/base/ols.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/ppplot.m +++ b/scripts/statistics/base/ppplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/prctile.m +++ b/scripts/statistics/base/prctile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott +## Copyright (C) 2008-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/probit.m +++ b/scripts/statistics/base/probit.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/qqplot.m +++ b/scripts/statistics/base/qqplot.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ## @@ -18,8 +18,9 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {[@var{q}, @var{s}] =} qqplot (@var{x}) +## @deftypefnx {Function File} {[@var{q}, @var{s}] =} qqplot (@var{x}, @var{y}) ## @deftypefnx {Function File} {[@var{q}, @var{s}] =} qqplot (@var{x}, @var{dist}) -## @deftypefnx {Function File} {[@var{q}, @var{s}] =} qqplot (@var{x}, @var{dist}, @var{params}) +## @deftypefnx {Function File} {[@var{q}, @var{s}] =} qqplot (@var{x}, @var{y}, @var{params}) ## @deftypefnx {Function File} {} qqplot (@dots{}) ## Perform a QQ-plot (quantile plot). ## @@ -32,6 +33,9 @@ ## If the sample comes from F, except for a transformation of location ## and scale, the pairs will approximately follow a straight line. ## +## If the second argument is a vector @var{y} the empirical CDF of @var{y} +## is used as @var{dist}. +## ## The default for @var{dist} is the standard normal distribution. The ## optional argument @var{params} contains a list of parameters of ## @var{dist}. For example, for a quantile plot of the uniform @@ -52,7 +56,7 @@ ## Author: KH <Kurt.Hornik@wu-wien.ac.at> ## Description: Perform a QQ-plot (quantile plot) -function [q, s] = qqplot (x, dist, varargin) +function [qout, sout] = qqplot (x, dist, varargin) if (nargin < 1) print_usage (); @@ -65,8 +69,10 @@ if (nargin == 1) f = @stdnormal_inv; else - if ( exist (invname = sprintf ("%sinv", dist)) - || exist (invname = sprintf ("%s_inv", dist))) + if (isnumeric (dist)) + f = @(y) empirical_inv (y, dist); + elseif (ischar (dist) && (exist (invname = [dist "inv"]) + || exist (invname = [dist "%s_inv"]))) f = str2func (invname); else error ("qqplot: no inverse CDF found for distribution DIST"); @@ -77,24 +83,32 @@ n = length (x); t = ((1 : n)' - .5) / n; if (nargin <= 2) - q = feval (f, t); + q = f (t); q_label = func2str (f); else - q = feval (f, t, varargin{:}); - if (nargin > 3) - tmp = sprintf (", %g", varargin{2:end}); + q = f (t, varargin{:}); + if (nargin == 3) + q_label = sprintf ("%s with parameter %g", func2str (f), varargin{1}); else - tmp = ""; + q_label = sprintf ("%s with parameters %g", func2str (f), varargin{1}); + param_str = sprintf (", %g", varargin{2:end}); + q_label = [q_label param_str]; endif - q_label = sprintf ("%s with parameter(s) %g%s", - func2str (f), varargin{1}, tmp); endif if (nargout == 0) plot (q, s); + q_label = strrep (q_label, '_inv', '\_inv'); + if (q_label(1) == '@') + q_label = q_label(6:end); # Strip "@(y) " from anon. function + endif xlabel (q_label); ylabel ("sample points"); + else + qout = q; + sout = s; endif endfunction +
--- a/scripts/statistics/base/quantile.m +++ b/scripts/statistics/base/quantile.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Ben Abbott and Jaroslav Hajek +## Copyright (C) 2008-2013 Ben Abbott and Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/range.m +++ b/scripts/statistics/base/range.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/statistics/base/ranks.m +++ b/scripts/statistics/base/ranks.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/run_count.m +++ b/scripts/statistics/base/run_count.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/runlength.m +++ b/scripts/statistics/base/runlength.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Paul Kienzle +## Copyright (C) 2005-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/skewness.m +++ b/scripts/statistics/base/skewness.m @@ -1,5 +1,5 @@ ## Copyright (C) 2013 Julien Bect -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -148,9 +148,10 @@ %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single")) %!assert (skewness (single ([1 2]), 0), single (NaN)) -## Verify no "division-by-zero" warnings +## Verify no "divide-by-zero" warnings %!test %! wstate = warning ("query", "Octave:divide-by-zero"); +%! warning ("on", "Octave:divide-by-zero"); %! unwind_protect %! lastwarn (""); # clear last warning %! skewness (1);
--- a/scripts/statistics/base/spearman.m +++ b/scripts/statistics/base/spearman.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/statistics.m +++ b/scripts/statistics/base/statistics.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/std.m +++ b/scripts/statistics/base/std.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/table.m +++ b/scripts/statistics/base/table.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/var.m +++ b/scripts/statistics/base/var.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/base/zscore.m +++ b/scripts/statistics/base/zscore.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/betacdf.m +++ b/scripts/statistics/distributions/betacdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/betainv.m +++ b/scripts/statistics/distributions/betainv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/betapdf.m +++ b/scripts/statistics/distributions/betapdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## Copyright (C) 2010 Christos Dimitrakakis ## ## This file is part of Octave.
--- a/scripts/statistics/distributions/betarnd.m +++ b/scripts/statistics/distributions/betarnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/binocdf.m +++ b/scripts/statistics/distributions/binocdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/binoinv.m +++ b/scripts/statistics/distributions/binoinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/binopdf.m +++ b/scripts/statistics/distributions/binopdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/binornd.m +++ b/scripts/statistics/distributions/binornd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/cauchy_cdf.m +++ b/scripts/statistics/distributions/cauchy_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/cauchy_inv.m +++ b/scripts/statistics/distributions/cauchy_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/cauchy_pdf.m +++ b/scripts/statistics/distributions/cauchy_pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/cauchy_rnd.m +++ b/scripts/statistics/distributions/cauchy_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/chi2cdf.m +++ b/scripts/statistics/distributions/chi2cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/chi2inv.m +++ b/scripts/statistics/distributions/chi2inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/chi2pdf.m +++ b/scripts/statistics/distributions/chi2pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/chi2rnd.m +++ b/scripts/statistics/distributions/chi2rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/discrete_cdf.m +++ b/scripts/statistics/distributions/discrete_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2010-2012 David Bateman +## Copyright (C) 2010-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/discrete_inv.m +++ b/scripts/statistics/distributions/discrete_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/discrete_pdf.m +++ b/scripts/statistics/distributions/discrete_pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/discrete_rnd.m +++ b/scripts/statistics/distributions/discrete_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/empirical_cdf.m +++ b/scripts/statistics/distributions/empirical_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/empirical_inv.m +++ b/scripts/statistics/distributions/empirical_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/empirical_pdf.m +++ b/scripts/statistics/distributions/empirical_pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/empirical_rnd.m +++ b/scripts/statistics/distributions/empirical_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/expcdf.m +++ b/scripts/statistics/distributions/expcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/expinv.m +++ b/scripts/statistics/distributions/expinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/exppdf.m +++ b/scripts/statistics/distributions/exppdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/exprnd.m +++ b/scripts/statistics/distributions/exprnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/fcdf.m +++ b/scripts/statistics/distributions/fcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/finv.m +++ b/scripts/statistics/distributions/finv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/fpdf.m +++ b/scripts/statistics/distributions/fpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/frnd.m +++ b/scripts/statistics/distributions/frnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/gamcdf.m +++ b/scripts/statistics/distributions/gamcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/gaminv.m +++ b/scripts/statistics/distributions/gaminv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/gampdf.m +++ b/scripts/statistics/distributions/gampdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/gamrnd.m +++ b/scripts/statistics/distributions/gamrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/geocdf.m +++ b/scripts/statistics/distributions/geocdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/geoinv.m +++ b/scripts/statistics/distributions/geoinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/geopdf.m +++ b/scripts/statistics/distributions/geopdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/geornd.m +++ b/scripts/statistics/distributions/geornd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/hygecdf.m +++ b/scripts/statistics/distributions/hygecdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1997-2012 Kurt Hornik +## Copyright (C) 1997-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/hygeinv.m +++ b/scripts/statistics/distributions/hygeinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1997-2012 Kurt Hornik +## Copyright (C) 1997-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/hygepdf.m +++ b/scripts/statistics/distributions/hygepdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/hygernd.m +++ b/scripts/statistics/distributions/hygernd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1997-2012 Kurt Hornik +## Copyright (C) 1997-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/kolmogorov_smirnov_cdf.m +++ b/scripts/statistics/distributions/kolmogorov_smirnov_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/laplace_cdf.m +++ b/scripts/statistics/distributions/laplace_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/laplace_inv.m +++ b/scripts/statistics/distributions/laplace_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/laplace_pdf.m +++ b/scripts/statistics/distributions/laplace_pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/laplace_rnd.m +++ b/scripts/statistics/distributions/laplace_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logistic_cdf.m +++ b/scripts/statistics/distributions/logistic_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logistic_inv.m +++ b/scripts/statistics/distributions/logistic_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logistic_pdf.m +++ b/scripts/statistics/distributions/logistic_pdf.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logistic_rnd.m +++ b/scripts/statistics/distributions/logistic_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logncdf.m +++ b/scripts/statistics/distributions/logncdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/logninv.m +++ b/scripts/statistics/distributions/logninv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/lognpdf.m +++ b/scripts/statistics/distributions/lognpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/lognrnd.m +++ b/scripts/statistics/distributions/lognrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/nbincdf.m +++ b/scripts/statistics/distributions/nbincdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/nbininv.m +++ b/scripts/statistics/distributions/nbininv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/nbinpdf.m +++ b/scripts/statistics/distributions/nbinpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/nbinrnd.m +++ b/scripts/statistics/distributions/nbinrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/normcdf.m +++ b/scripts/statistics/distributions/normcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/norminv.m +++ b/scripts/statistics/distributions/norminv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/normpdf.m +++ b/scripts/statistics/distributions/normpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/normrnd.m +++ b/scripts/statistics/distributions/normrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/poisscdf.m +++ b/scripts/statistics/distributions/poisscdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/poissinv.m +++ b/scripts/statistics/distributions/poissinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/poisspdf.m +++ b/scripts/statistics/distributions/poisspdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/poissrnd.m +++ b/scripts/statistics/distributions/poissrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/stdnormal_cdf.m +++ b/scripts/statistics/distributions/stdnormal_cdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/stdnormal_inv.m +++ b/scripts/statistics/distributions/stdnormal_inv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/stdnormal_pdf.m +++ b/scripts/statistics/distributions/stdnormal_pdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/stdnormal_rnd.m +++ b/scripts/statistics/distributions/stdnormal_rnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/tcdf.m +++ b/scripts/statistics/distributions/tcdf.m @@ -1,6 +1,6 @@ ## Copyright (C) 2013 Julien Bect ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/tinv.m +++ b/scripts/statistics/distributions/tinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/tpdf.m +++ b/scripts/statistics/distributions/tpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/trnd.m +++ b/scripts/statistics/distributions/trnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unidcdf.m +++ b/scripts/statistics/distributions/unidcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unidinv.m +++ b/scripts/statistics/distributions/unidinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unidpdf.m +++ b/scripts/statistics/distributions/unidpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2007-2012 David Bateman +## Copyright (C) 2007-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unidrnd.m +++ b/scripts/statistics/distributions/unidrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 2005-2012 John W. Eaton +## Copyright (C) 2005-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unifcdf.m +++ b/scripts/statistics/distributions/unifcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unifinv.m +++ b/scripts/statistics/distributions/unifinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unifpdf.m +++ b/scripts/statistics/distributions/unifpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/unifrnd.m +++ b/scripts/statistics/distributions/unifrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/wblcdf.m +++ b/scripts/statistics/distributions/wblcdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/wblinv.m +++ b/scripts/statistics/distributions/wblinv.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/wblpdf.m +++ b/scripts/statistics/distributions/wblpdf.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/wblrnd.m +++ b/scripts/statistics/distributions/wblrnd.m @@ -1,5 +1,5 @@ ## Copyright (C) 2012 Rik Wehbring -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/distributions/wienrnd.m +++ b/scripts/statistics/distributions/wienrnd.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/statistics/models/logistic_regression.m +++ b/scripts/statistics/models/logistic_regression.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/models/private/logistic_regression_derivatives.m +++ b/scripts/statistics/models/private/logistic_regression_derivatives.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/models/private/logistic_regression_likelihood.m +++ b/scripts/statistics/models/private/logistic_regression_likelihood.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/anova.m +++ b/scripts/statistics/tests/anova.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/bartlett_test.m +++ b/scripts/statistics/tests/bartlett_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/chisquare_test_homogeneity.m +++ b/scripts/statistics/tests/chisquare_test_homogeneity.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/chisquare_test_independence.m +++ b/scripts/statistics/tests/chisquare_test_independence.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/cor_test.m +++ b/scripts/statistics/tests/cor_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/f_test_regression.m +++ b/scripts/statistics/tests/f_test_regression.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/hotelling_test.m +++ b/scripts/statistics/tests/hotelling_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/hotelling_test_2.m +++ b/scripts/statistics/tests/hotelling_test_2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/kolmogorov_smirnov_test.m +++ b/scripts/statistics/tests/kolmogorov_smirnov_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/kolmogorov_smirnov_test_2.m +++ b/scripts/statistics/tests/kolmogorov_smirnov_test_2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/kruskal_wallis_test.m +++ b/scripts/statistics/tests/kruskal_wallis_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/manova.m +++ b/scripts/statistics/tests/manova.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/mcnemar_test.m +++ b/scripts/statistics/tests/mcnemar_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/prop_test_2.m +++ b/scripts/statistics/tests/prop_test_2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/run_test.m +++ b/scripts/statistics/tests/run_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Friedrich Leisch +## Copyright (C) 1995-2013 Friedrich Leisch ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/sign_test.m +++ b/scripts/statistics/tests/sign_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/t_test.m +++ b/scripts/statistics/tests/t_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/t_test_2.m +++ b/scripts/statistics/tests/t_test_2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/t_test_regression.m +++ b/scripts/statistics/tests/t_test_regression.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/u_test.m +++ b/scripts/statistics/tests/u_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/var_test.m +++ b/scripts/statistics/tests/var_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/welch_test.m +++ b/scripts/statistics/tests/welch_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/wilcoxon_test.m +++ b/scripts/statistics/tests/wilcoxon_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/z_test.m +++ b/scripts/statistics/tests/z_test.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/statistics/tests/z_test_2.m +++ b/scripts/statistics/tests/z_test_2.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 Kurt Hornik +## Copyright (C) 1995-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/base2dec.m +++ b/scripts/strings/base2dec.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Daniel Calvelo +## Copyright (C) 2000-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/bin2dec.m +++ b/scripts/strings/bin2dec.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Daniel Calvelo +## Copyright (C) 1996-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/blanks.m +++ b/scripts/strings/blanks.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/cstrcat.m +++ b/scripts/strings/cstrcat.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/strings/deblank.m +++ b/scripts/strings/deblank.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/dec2base.m +++ b/scripts/strings/dec2base.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Daniel Calvelo +## Copyright (C) 2000-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/dec2bin.m +++ b/scripts/strings/dec2bin.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Daniel Calvelo +## Copyright (C) 1996-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/dec2hex.m +++ b/scripts/strings/dec2hex.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Daniel Calvelo +## Copyright (C) 1996-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/findstr.m +++ b/scripts/strings/findstr.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/hex2dec.m +++ b/scripts/strings/hex2dec.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Daniel Calvelo +## Copyright (C) 1996-2013 Daniel Calvelo ## ## This file is part of Octave. ##
--- a/scripts/strings/index.m +++ b/scripts/strings/index.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/isletter.m +++ b/scripts/strings/isletter.m @@ -1,4 +1,4 @@ -## Copyright (C) 1998-2012 John W. Eaton +## Copyright (C) 1998-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/strings/isstrprop.m +++ b/scripts/strings/isstrprop.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 John W. Eaton +## Copyright (C) 2008-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/strings/mat2str.m +++ b/scripts/strings/mat2str.m @@ -1,4 +1,4 @@ -## Copyright (C) 2002-2012 Rolf Fabian +## Copyright (C) 2002-2013 Rolf Fabian ## ## This file is part of Octave. ##
--- a/scripts/strings/ostrsplit.m +++ b/scripts/strings/ostrsplit.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Jaroslav Hajek +## Copyright (C) 2009-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/strings/regexptranslate.m +++ b/scripts/strings/regexptranslate.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/strings/rindex.m +++ b/scripts/strings/rindex.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/str2num.m +++ b/scripts/strings/str2num.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/strcat.m +++ b/scripts/strings/strcat.m @@ -1,4 +1,4 @@ -## Copyright (C) 1994-2012 John W. Eaton +## Copyright (C) 1994-2013 John W. Eaton ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/strings/strchr.m +++ b/scripts/strings/strchr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek +## Copyright (C) 2008-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/strings/strjust.m +++ b/scripts/strings/strjust.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2009 Jaroslav Hajek ## ## This file is part of Octave.
--- a/scripts/strings/strmatch.m +++ b/scripts/strings/strmatch.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## Copyright (C) 2003 Alois Schloegl ## Copyright (C) 2010 VZLU Prague ##
--- a/scripts/strings/strsplit.m +++ b/scripts/strings/strsplit.m @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 Jaroslav Hajek +## Copyright (C) 2009-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/scripts/strings/strtok.m +++ b/scripts/strings/strtok.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/strings/strtrim.m +++ b/scripts/strings/strtrim.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/strtrunc.m +++ b/scripts/strings/strtrunc.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 William Poetra Yoga Hadisoeseno +## Copyright (C) 2006-2013 William Poetra Yoga Hadisoeseno ## ## This file is part of Octave. ##
--- a/scripts/strings/substr.m +++ b/scripts/strings/substr.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 Kurt Hornik +## Copyright (C) 1996-2013 Kurt Hornik ## ## This file is part of Octave. ##
--- a/scripts/strings/untabify.m +++ b/scripts/strings/untabify.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 Ben Abbott +## Copyright (C) 2010-2013 Ben Abbott ## ## This file is part of Octave. ##
--- a/scripts/strings/validatestring.m +++ b/scripts/strings/validatestring.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/testfun/__printf_assert__.m +++ b/scripts/testfun/__printf_assert__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 David Bateman +## Copyright (C) 2005-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/testfun/__prog_output_assert__.m +++ b/scripts/testfun/__prog_output_assert__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 David Bateman +## Copyright (C) 2005-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/testfun/__run_test_suite__.m +++ b/scripts/testfun/__run_test_suite__.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 David Bateman +## Copyright (C) 2005-2013 David Bateman ## ## This file is part of Octave. ##
--- a/scripts/testfun/assert.m +++ b/scripts/testfun/assert.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/testfun/demo.m +++ b/scripts/testfun/demo.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/testfun/example.m +++ b/scripts/testfun/example.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/testfun/fail.m +++ b/scripts/testfun/fail.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Paul Kienzle +## Copyright (C) 2005-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/testfun/rundemos.m +++ b/scripts/testfun/rundemos.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 John W. Eaton +## Copyright (C) 2008-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/testfun/runtests.m +++ b/scripts/testfun/runtests.m @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 John W. Eaton +## Copyright (C) 2010-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/testfun/speed.m +++ b/scripts/testfun/speed.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/testfun/test.m +++ b/scripts/testfun/test.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 Paul Kienzle +## Copyright (C) 2005-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/addtodate.m +++ b/scripts/time/addtodate.m @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Bill Denney +## Copyright (C) 2008-2013 Bill Denney ## ## This file is part of Octave. ##
--- a/scripts/time/asctime.m +++ b/scripts/time/asctime.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/calendar.m +++ b/scripts/time/calendar.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/clock.m +++ b/scripts/time/clock.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/ctime.m +++ b/scripts/time/ctime.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/date.m +++ b/scripts/time/date.m @@ -1,4 +1,4 @@ -## Copyright (C) 1995-2012 John W. Eaton +## Copyright (C) 1995-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/datenum.m +++ b/scripts/time/datenum.m @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 Paul Kienzle +## Copyright (C) 2006-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/datestr.m +++ b/scripts/time/datestr.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/datevec.m +++ b/scripts/time/datevec.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/eomday.m +++ b/scripts/time/eomday.m @@ -1,4 +1,4 @@ -## Copyright (C) 2004-2012 Paul Kienzle +## Copyright (C) 2004-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/etime.m +++ b/scripts/time/etime.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/is_leap_year.m +++ b/scripts/time/is_leap_year.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/time/module.mk +++ b/scripts/time/module.mk @@ -9,7 +9,6 @@ time/date.m \ time/datenum.m \ time/datestr.m \ - time/datetick.m \ time/datevec.m \ time/eomday.m \ time/etime.m \
--- a/scripts/time/now.m +++ b/scripts/time/now.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
--- a/scripts/time/weekday.m +++ b/scripts/time/weekday.m @@ -1,4 +1,4 @@ -## Copyright (C) 2000-2012 Paul Kienzle +## Copyright (C) 2000-2013 Paul Kienzle ## ## This file is part of Octave. ##
deleted file mode 100644 --- a/scripts/ui/module.mk +++ /dev/null @@ -1,20 +0,0 @@ -FCN_FILE_DIRS += ui - -ui_PRIVATE_FCN_FILES = \ - ui/private/message_dialog.m - -ui_FCN_FILES = \ - ui/errordlg.m \ - ui/helpdlg.m \ - ui/inputdlg.m \ - ui/listdlg.m \ - ui/msgbox.m \ - ui/questdlg.m \ - ui/warndlg.m \ - $(ui_PRIVATE_FCN_FILES) - -FCN_FILES += $(ui_FCN_FILES) - -PKG_ADD_FILES += ui/PKG_ADD - -DIRSTAMP_FILES += ui/$(octave_dirstamp)
--- a/src/Makefile.am +++ b/src/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's src directory # -# Copyright (C) 1993-2012 John W. Eaton +# Copyright (C) 1993-2013 John W. Eaton # # This file is part of Octave. #
--- a/src/main-cli.cc +++ b/src/main-cli.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/src/main.cc +++ b/src/main.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2012 John W. Eaton +Copyright (C) 2012-2013 John W. Eaton This file is part of Octave.
--- a/src/mkoctfile.in.cc +++ b/src/mkoctfile.in.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave.
--- a/src/mkoctfile.in.sh +++ b/src/mkoctfile.in.sh @@ -3,7 +3,7 @@ ## mkoctfile -- create a .oct file suitable for dynamic linking by ## Octave. ## -## Copyright (C) 1996-2012 John W. Eaton +## Copyright (C) 1996-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/src/octave-config.in.cc +++ b/src/octave-config.in.cc @@ -1,6 +1,6 @@ /* -Copyright (C) 2008-2012 Michael Goffioul +Copyright (C) 2008-2013 Michael Goffioul This file is part of Octave.
--- a/src/octave-config.in.sh +++ b/src/octave-config.in.sh @@ -2,7 +2,7 @@ ## ## octave-config - reports some configuration values for Octave ## -## Copyright (C) 2001-2012 John W. Eaton +## Copyright (C) 2001-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -57,36 +57,37 @@ PREFIX=%OCTAVE_PREFIX% STARTUPFILEDIR=%OCTAVE_STARTUPFILEDIR% VERSION=%OCTAVE_VERSION% +SED=%SED% if [ -n "$OCTAVE_HOME" ]; then - ARCHLIBDIR="`echo $ARCHLIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - BINDIR="`echo $BINDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - DATADIR="`echo $DATADIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - DATAROOTDIR="`echo $DATAROOTDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - EXEC_PREFIX="`echo $EXEC_PREFIX | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - FCNFILEDIR="`echo $FCNFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - IMAGEDIR="`echo $IMAGEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - INCLUDEDIR="`echo $INCLUDEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - INFODIR="`echo $INFODIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - INFOFILE="`echo $INFOFILE | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LIBDIR="`echo $LIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LIBEXECDIR="`echo $LIBEXECDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALAPIARCHLIBDIR="`echo $LOCALAPIARCHLIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALAPIFCNFILEDIR="`echo $LOCALAPIFCNFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALAPIOCTFILEDIR="`echo $LOCALAPIOCTFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALARCHLIBDIR="`echo $LOCALARCHLIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALFCNFILEDIR="`echo $LOCALFCNFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALOCTFILEDIR="`echo $LOCALOCTFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALSTARTUPFILEDIR="`echo $LOCALSTARTUPFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALVERARCHLIBDIR="`echo $LOCALVERARCHLIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALVERFCNFILEDIR="`echo $LOCALVERFCNFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - LOCALVEROCTFILEDIR="`echo $LOCALVEROCTFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - MAN1DIR="`echo $MAN1DIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - MANDIR="`echo $MANDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - OCTFILEDIR="`echo $OCTFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - OCTINCLUDEDIR="`echo $OCTINCLUDEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - OCTLIBDIR="`echo $OCTLIBDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" - STARTUPFILEDIR="`echo $STARTUPFILEDIR | sed "s,^$PREFIX,$OCTAVE_HOME,"`" + ARCHLIBDIR="`echo $ARCHLIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + BINDIR="`echo $BINDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + DATADIR="`echo $DATADIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + DATAROOTDIR="`echo $DATAROOTDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + EXEC_PREFIX="`echo $EXEC_PREFIX | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + FCNFILEDIR="`echo $FCNFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + IMAGEDIR="`echo $IMAGEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + INCLUDEDIR="`echo $INCLUDEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + INFODIR="`echo $INFODIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + INFOFILE="`echo $INFOFILE | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LIBDIR="`echo $LIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LIBEXECDIR="`echo $LIBEXECDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALAPIARCHLIBDIR="`echo $LOCALAPIARCHLIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALAPIFCNFILEDIR="`echo $LOCALAPIFCNFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALAPIOCTFILEDIR="`echo $LOCALAPIOCTFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALARCHLIBDIR="`echo $LOCALARCHLIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALFCNFILEDIR="`echo $LOCALFCNFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALOCTFILEDIR="`echo $LOCALOCTFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALSTARTUPFILEDIR="`echo $LOCALSTARTUPFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALVERARCHLIBDIR="`echo $LOCALVERARCHLIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALVERFCNFILEDIR="`echo $LOCALVERFCNFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + LOCALVEROCTFILEDIR="`echo $LOCALVEROCTFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + MAN1DIR="`echo $MAN1DIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + MANDIR="`echo $MANDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + OCTFILEDIR="`echo $OCTFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + OCTINCLUDEDIR="`echo $OCTINCLUDEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + OCTLIBDIR="`echo $OCTLIBDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" + STARTUPFILEDIR="`echo $STARTUPFILEDIR | $SED "s,^$PREFIX,$OCTAVE_HOME,"`" PREFIX="$OCTAVE_HOME" fi
--- a/test/Makefile.am +++ b/test/Makefile.am @@ -1,6 +1,6 @@ # Makefile for Octave's test directory # -# Copyright (C) 1994-2012 John W. Eaton +# Copyright (C) 1994-2013 John W. Eaton # # This file is part of Octave. #
--- a/test/args.tst +++ b/test/args.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/build-bc-overload-tests.sh +++ b/test/build-bc-overload-tests.sh @@ -1,6 +1,6 @@ #! /bin/sh -# Copyright (C) 2010-2012 VZLU Prague +# Copyright (C) 2010-2013 VZLU Prague # # This file is part of Octave. #
--- a/test/build-sparse-tests.sh +++ b/test/build-sparse-tests.sh @@ -1,6 +1,6 @@ #!/bin/sh -# Copyright (C) 2006-2012 David Bateman +# Copyright (C) 2006-2013 David Bateman # # This file is part of Octave. #
--- a/test/classes/classes.tst +++ b/test/classes/classes.tst @@ -1,5 +1,5 @@ ## Copyright (C) 2013 Julien Bect -## Copyright (C) 2009-2012 Robert T. Short +## Copyright (C) 2009-2013 Robert T. Short ## ## This file is part of Octave. ##
--- a/test/ctor-vs-method/ctor-vs-method.tst +++ b/test/ctor-vs-method/ctor-vs-method.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/diag-perm.tst +++ b/test/diag-perm.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2009-2012 E. Jason Riedy +## Copyright (C) 2009-2013 E. Jason Riedy ## ## This file is part of Octave. ##
--- a/test/error.tst +++ b/test/error.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/eval-catch.tst +++ b/test/eval-catch.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/fcn-handle-derived-resolution/fcn-handle-derived-resolution.tst +++ b/test/fcn-handle-derived-resolution/fcn-handle-derived-resolution.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2012 John W. Eaton +## Copyright (C) 2012-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/fntests.m +++ b/test/fntests.m @@ -1,4 +1,4 @@ -## Copyright (C) 2005-2012 David Bateman +## Copyright (C) 2005-2013 David Bateman ## ## This file is part of Octave. ##
--- a/test/for.tst +++ b/test/for.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/func.tst +++ b/test/func.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 David Bateman +## Copyright (C) 2008-2013 David Bateman ## ## This file is part of Octave. ##
--- a/test/global.tst +++ b/test/global.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/if.tst +++ b/test/if.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/index.tst +++ b/test/index.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/io.tst +++ b/test/io.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/jit.tst +++ b/test/jit.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2012 Max Brister +## Copyright (C) 2012-2013 Max Brister ## ## This file is part of Octave. ##
--- a/test/line-continue.tst +++ b/test/line-continue.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ## @@ -26,6 +26,9 @@ %! b]; %! assert (y, x); +## FIXME: Next 3 tests use '\' continuation outside of a double-quoted string +## This behavior is deprecated and will be removed at some point. +## When it does these %!test %! x = [1;2]; %! y = [a... # comments here ok @@ -51,6 +54,10 @@ %! %!assert (f (), 1) +# String continuation using '\' +%!assert (["abc\ +%! def"], "abc def") + %!test %!assert (1 == 1 %! && 2 == 2
--- a/test/logical-index.tst +++ b/test/logical-index.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/nest/nest.tst +++ b/test/nest/nest.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/null-assign.tst +++ b/test/null-assign.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2008-2012 Jaroslav Hajek +## Copyright (C) 2008-2013 Jaroslav Hajek ## ## This file is part of Octave. ##
--- a/test/parser.tst +++ b/test/parser.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2010-2012 John W. Eaton +## Copyright (C) 2010-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/prefer.tst +++ b/test/prefer.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/range.tst +++ b/test/range.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/recursion.tst +++ b/test/recursion.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/return.tst +++ b/test/return.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/slice.tst +++ b/test/slice.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2007-2012 John W. Eaton +## Copyright (C) 2007-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/struct.tst +++ b/test/struct.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/switch.tst +++ b/test/switch.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/system.tst +++ b/test/system.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/transpose.tst +++ b/test/transpose.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##
--- a/test/try.tst +++ b/test/try.tst @@ -1,4 +1,4 @@ -## Copyright (C) 2006-2012 John W. Eaton +## Copyright (C) 2006-2013 John W. Eaton ## ## This file is part of Octave. ##