#! /bin/sh # # To apply this patch, cd to the top level Octave source directory and # run this file through /bin/sh. It will first remove any files that # have been deleted from the source distribution since the last # release and then update the sources with patch(1). # # Diffs for updating *.ps, *.dvi, and *.info* files are not included # because they can be recreated from the Texinfo files using TeX and # makeinfo. # # Diffs for updating parse.cc and y.tab.h are not included because # they can be recreated from the file parse.y using bison. # # Diffs for updating lex.cc are not included because it can be # recreated from lex.l using flex. # # Diffs for updating the configure script are not included because # it can be recreated from configure.in using autoconf. # # John W. Eaton # jwe@bevo.che.wisc.edu # University of Wisconsin-Madison # Department of Chemical Engineering if test -f src/octave.cc ; then true else echo '***********************************************************' 1>&2 echo 'You must run this script in the top-level octave directory!' 1>&2 echo '***********************************************************' 1>&2 exit 1 fi ### ### Special commands should go here. ### rm -rf test/octave.test/str-esc test/octave.test/fsolve echo 'patching existing files' patch -p1 << \PATCH_EOF diff -cNr octave-2.0.4/ChangeLog octave-2.0.5/ChangeLog *** octave-2.0.4/ChangeLog Thu Feb 20 02:58:18 1997 --- octave-2.0.5/ChangeLog Sat Mar 1 16:37:14 1997 *************** *** 1,3 **** --- 1,33 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Sat Mar 1 01:34:08 1997 John W. Eaton + + * octMakefile.in (dist): Also delete CVS junk + + * config.h.bot: Unconditionally define WITH_KPATHSEARCH. + + Fri Feb 28 01:56:52 1997 John W. Eaton + + * emacs/octave-mod.el (octave-end-keywords): Add endswitch. + (octave-end-keywords): Add otherwise and case. + (octave-else-keywords): Add switch. + (octave-abbrev-table): Add abbrevs for all of them. + + * configure.in (f77_rules_frag): Set default value to /dev/null + and redfine as needed. + (bsd_gcc_kluge_targets_frag): Likewise. + + Wed Feb 26 12:17:05 1997 John W. Eaton + + * octMakefile.in (maintainer-clean): Delete some more stuff. + + Fri Feb 21 20:38:25 1997 John W. Eaton + + * Makeconf.in (do-subst-config-vals): Remove extra -L from + RLD_FLAG substitution. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/INSTALL.OCTAVE octave-2.0.5/INSTALL.OCTAVE *** octave-2.0.4/INSTALL.OCTAVE Wed Feb 19 13:42:27 1997 --- octave-2.0.5/INSTALL.OCTAVE Sat Mar 1 12:21:22 1997 *************** *** 69,81 **** `gnu' in gnuplot is a coincidence--it is not related to the GNU project or the FSF in any but the most peripheral sense. ! For version {No Value For "VERSION"}, you must have the GNU C++ ! compiler (`gcc') version 2.7.2 or later to compile Octave. You ! will also need version 2.7.1 or 2.7.2 of the GNU C++ class library ! (`libg++'). If you plan to modify the parser you will also need ! GNU `bison' and `flex'. If you modify the documentation, you will ! need GNU Texinfo, along with the patch for the `makeinfo' program ! that is distributed with Octave. GNU Make, `gcc', and `libg++', `gnuplot', `bison', `flex', and Texinfo are all available from many anonymous ftp archives. The --- 69,81 ---- `gnu' in gnuplot is a coincidence--it is not related to the GNU project or the FSF in any but the most peripheral sense. ! For version 2.0.4, you must have the GNU C++ compiler (`gcc') ! version 2.7.2 or later to compile Octave. You will also need ! version 2.7.1 or 2.7.2 of the GNU C++ class library (`libg++'). ! If you plan to modify the parser you will also need GNU `bison' ! and `flex'. If you modify the documentation, you will need GNU ! Texinfo, along with the patch for the `makeinfo' program that is ! distributed with Octave. GNU Make, `gcc', and `libg++', `gnuplot', `bison', `flex', and Texinfo are all available from many anonymous ftp archives. The *************** *** 377,383 **** where VERSION stands for the current version number of the interpreter, and HOST_TYPE is the type of computer on which Octave is installed (for ! example, `{No Value For "TARGETHOSTTYPE"}'). If these directories don't exist, the script `install-octave' will create them for you. The installation script also creates the following --- 377,383 ---- where VERSION stands for the current version number of the interpreter, and HOST_TYPE is the type of computer on which Octave is installed (for ! example, `i586-pc-linux-gnu'). If these directories don't exist, the script `install-octave' will create them for you. The installation script also creates the following *************** *** 416,427 **** * Unpack the source distribution: ! gunzip -c octave-{No Value For "VERSION"}.tar.gz | tar xf - * Change your current directory to the top-level directory of the source distribution: ! cd octave-{No Value For "VERSION"} * Make the binary distribution: --- 416,427 ---- * Unpack the source distribution: ! gunzip -c octave-2.0.4.tar.gz | tar xf - * Change your current directory to the top-level directory of the source distribution: ! cd octave-2.0.4 * Make the binary distribution: *************** *** 429,434 **** This will create a compressed tar file ready for distribution. It will contain statically linked binaries and have a name like ! `octave-{No Value For "VERSION"}-{No Value For ! "TARGETHOSTTYPE"}.tar.gz' --- 429,433 ---- This will create a compressed tar file ready for distribution. It will contain statically linked binaries and have a name like ! `octave-2.0.4-i586-pc-linux-gnu.tar.gz' diff -cNr octave-2.0.4/Makeconf.in octave-2.0.5/Makeconf.in *** octave-2.0.4/Makeconf.in Thu Feb 13 21:00:28 1997 --- octave-2.0.5/Makeconf.in Fri Feb 21 20:38:19 1997 *************** *** 324,330 **** -e "s;%GCC_IEEE_FP_FLAG%;\"${GCC_IEEE_FP_FLAG}\";" \ -e "s;%LDFLAGS%;\"${LDFLAGS}\";" \ -e "s;%LIBFLAGS%;\"-L${libdir}\";" \ ! -e "s;%RLD_FLAG%;\"-L${RLD_FLAG}\";" \ -e "s;%CXXLIBS%;\"${CXXLIBS}\";" \ -e "s;%TERMLIBS%;\"${TERMLIBS}\";" \ -e "s;%LIBS%;\"${LIBS}\";" \ --- 324,330 ---- -e "s;%GCC_IEEE_FP_FLAG%;\"${GCC_IEEE_FP_FLAG}\";" \ -e "s;%LDFLAGS%;\"${LDFLAGS}\";" \ -e "s;%LIBFLAGS%;\"-L${libdir}\";" \ ! -e "s;%RLD_FLAG%;\"${RLD_FLAG}\";" \ -e "s;%CXXLIBS%;\"${CXXLIBS}\";" \ -e "s;%TERMLIBS%;\"${TERMLIBS}\";" \ -e "s;%LIBS%;\"${LIBS}\";" \ diff -cNr octave-2.0.4/NEWS octave-2.0.5/NEWS *** octave-2.0.4/NEWS Wed Feb 19 13:36:26 1997 --- octave-2.0.5/NEWS Fri Feb 28 20:56:54 1997 *************** *** 1,3 **** --- 1,14 ---- + Summary of changes for version 2.0.5: + ------------------------------------ + + * A `switch' statement is now available. See the Statements chapter + in the manual for details. + + * Commands like ls, save, and cd may now also be used as formal + parameters for functions. + + * More tests. + Summary of changes for version 2.0.4: ------------------------------------ diff -cNr octave-2.0.4/PROJECTS octave-2.0.5/PROJECTS *** octave-2.0.4/PROJECTS Wed Feb 19 13:21:40 1997 --- octave-2.0.5/PROJECTS Sat Mar 1 11:03:14 1997 *************** *** 69,81 **** * Optional inputs for fsqp. * Allow parameters to be passed through the call to fsolve() to the ! user-supplied function for Matlab compatibility. Don't place an upper limit on the number of arguments. * If possible, make economy QR factorization actually take advantage of the form of the result instead of just dropping columns. Lapack doesn't appear to do this yet. * Check matrix classes for proper handling of empty matrices. * Force all empty matrices to be 0x0 even when other dimensions have --- 69,85 ---- * Optional inputs for fsqp. * Allow parameters to be passed through the call to fsolve() to the ! user-supplied function for Matlab compatibility. Don't place an upper limit on the number of arguments. * If possible, make economy QR factorization actually take advantage of the form of the result instead of just dropping columns. Lapack doesn't appear to do this yet. + * Check matrices for symmetry before computing eigenvalues, etc., + and then use the routines for symmetric matrices for improved + performance. + * Check matrix classes for proper handling of empty matrices. * Force all empty matrices to be 0x0 even when other dimensions have *************** *** 414,420 **** * Make whos report total memory used by variables (and functions?). ! * Rewrite whos and the symbol_record_info class. ------- History: --- 418,426 ---- * Make whos report total memory used by variables (and functions?). ! * Rewrite whos and the symbol_record_info class. Write a built-in ! function that gives all the basic information, then write who and ! whos as M-files. ------- History: diff -cNr octave-2.0.4/config.h.bot octave-2.0.5/config.h.bot *** octave-2.0.4/config.h.bot Mon Dec 9 11:16:07 1996 --- octave-2.0.5/config.h.bot Sat Mar 1 01:32:15 1997 *************** *** 14,16 **** --- 14,18 ---- #define REINTERPRET_CAST(T, E) (T) (E) #define HEAVYWEIGHT_INDEXING 1 + + #define WITH_KPATHSEARCH 1 diff -cNr octave-2.0.4/config.h.in octave-2.0.5/config.h.in *** octave-2.0.4/config.h.in Mon Jan 27 13:05:28 1997 --- octave-2.0.5/config.h.in Sat Mar 1 12:17:40 1997 *************** *** 567,569 **** --- 567,571 ---- #define REINTERPRET_CAST(T, E) (T) (E) #define HEAVYWEIGHT_INDEXING 1 + + #define WITH_KPATHSEARCH 1 diff -cNr octave-2.0.4/configure octave-2.0.5/configure *** octave-2.0.4/configure Thu Feb 20 03:00:15 1997 --- octave-2.0.5/configure Sat Mar 1 16:39:39 1997 *************** *** 1,6 **** #! /bin/sh ! # From configure.in Revision: 1.257 --- 1,6 ---- #! /bin/sh ! # From configure.in Revision: 1.258 *************** *** 2842,2849 **** fi ! f77_rules_frag=Makefrag.f77 if $have_fortran_compiler; then cat << \EOF > $f77_rules_frag %.c : %.f --- 2842,2850 ---- fi ! f77_rules_frag=/dev/null if $have_fortran_compiler; then + f77_rules_frag=Makefrag.f77 cat << \EOF > $f77_rules_frag %.c : %.f *************** *** 2874,2880 **** oct_conflib=libconflib.a oct_obj_ext=o ! if { (eval echo configure:2878: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then $AR $ARFLAGS $oct_conflib conftest.$oct_obj_ext 1>&5 if test -n "$RANLIB"; then $RANLIB $oct_conflib 1>&5 --- 2875,2881 ---- oct_conflib=libconflib.a oct_obj_ext=o ! if { (eval echo configure:2879: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then $AR $ARFLAGS $oct_conflib conftest.$oct_obj_ext 1>&5 if test -n "$RANLIB"; then $RANLIB $oct_conflib 1>&5 *************** *** 2882,2888 **** fi rm -f conftest* echo $ac_n "checking for f_open in -lf2c""... $ac_c" 1>&6 ! echo "configure:2886: checking for f_open in -lf2c" >&5 ac_lib_var=`echo f2c'_'f_open | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 2883,2889 ---- fi rm -f conftest* echo $ac_n "checking for f_open in -lf2c""... $ac_c" 1>&6 ! echo "configure:2887: checking for f_open in -lf2c" >&5 ac_lib_var=`echo f2c'_'f_open | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 2890,2896 **** ac_save_LIBS="$LIBS" LIBS="-lf2c -L. -lconflib -lm $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 2902,2908 ---- f_open() ; return 0; } EOF ! if { (eval echo configure:2906: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 2926,2932 **** if test -z "$FLIBS"; then echo $ac_n "checking for d_sin in -lF77""... $ac_c" 1>&6 ! echo "configure:2930: checking for d_sin in -lF77" >&5 ac_lib_var=`echo F77'_'d_sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 2927,2933 ---- if test -z "$FLIBS"; then echo $ac_n "checking for d_sin in -lF77""... $ac_c" 1>&6 ! echo "configure:2931: checking for d_sin in -lF77" >&5 ac_lib_var=`echo F77'_'d_sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 2934,2940 **** ac_save_LIBS="$LIBS" LIBS="-lF77 -lm $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 2946,2952 ---- d_sin() ; return 0; } EOF ! if { (eval echo configure:2950: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 2968,2974 **** if test -n "$FLIBS"; then echo $ac_n "checking for f_rew in -lI77""... $ac_c" 1>&6 ! echo "configure:2972: checking for f_rew in -lI77" >&5 ac_lib_var=`echo I77'_'f_rew | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 2969,2975 ---- if test -n "$FLIBS"; then echo $ac_n "checking for f_rew in -lI77""... $ac_c" 1>&6 ! echo "configure:2973: checking for f_rew in -lI77" >&5 ac_lib_var=`echo I77'_'f_rew | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 2976,2982 **** ac_save_LIBS="$LIBS" LIBS="-lI77 -lF77 $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 2988,2994 ---- f_rew() ; return 0; } EOF ! if { (eval echo configure:2992: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 3052,3063 **** ### Checks for header files. echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 ! echo "configure:3056: checking for ANSI C header files" >&5 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 3053,3064 ---- ### Checks for header files. echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 ! echo "configure:3057: checking for ANSI C header files" >&5 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 3065,3071 **** #include EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" ! { (eval echo configure:3069: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* --- 3066,3072 ---- #include EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" ! { (eval echo configure:3070: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* *************** *** 3082,3088 **** if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat > conftest.$ac_ext < EOF --- 3083,3089 ---- if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat > conftest.$ac_ext < EOF *************** *** 3100,3106 **** if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat > conftest.$ac_ext < EOF --- 3101,3107 ---- if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat > conftest.$ac_ext < EOF *************** *** 3121,3127 **** : else cat > conftest.$ac_ext < #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') --- 3122,3128 ---- : else cat > conftest.$ac_ext < #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') *************** *** 3132,3138 **** exit (0); } EOF ! if { (eval echo configure:3136: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then : else --- 3133,3139 ---- exit (0); } EOF ! if { (eval echo configure:3137: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then : else *************** *** 3160,3171 **** do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr that defines DIR""... $ac_c" 1>&6 ! echo "configure:3164: checking for $ac_hdr that defines DIR" >&5 if eval "test \"`echo '$''{'ac_cv_header_dirent_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include <$ac_hdr> --- 3161,3172 ---- do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr that defines DIR""... $ac_c" 1>&6 ! echo "configure:3165: checking for $ac_hdr that defines DIR" >&5 if eval "test \"`echo '$''{'ac_cv_header_dirent_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include <$ac_hdr> *************** *** 3173,3179 **** DIR *dirp = 0; ; return 0; } EOF ! if { (eval echo configure:3177: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* eval "ac_cv_header_dirent_$ac_safe=yes" else --- 3174,3180 ---- DIR *dirp = 0; ; return 0; } EOF ! if { (eval echo configure:3178: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* eval "ac_cv_header_dirent_$ac_safe=yes" else *************** *** 3198,3204 **** # Two versions of opendir et al. are in -ldir and -lx on SCO Xenix. if test $ac_header_dirent = dirent.h; then echo $ac_n "checking for opendir in -ldir""... $ac_c" 1>&6 ! echo "configure:3202: checking for opendir in -ldir" >&5 ac_lib_var=`echo dir'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 3199,3205 ---- # Two versions of opendir et al. are in -ldir and -lx on SCO Xenix. if test $ac_header_dirent = dirent.h; then echo $ac_n "checking for opendir in -ldir""... $ac_c" 1>&6 ! echo "configure:3203: checking for opendir in -ldir" >&5 ac_lib_var=`echo dir'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 3206,3212 **** ac_save_LIBS="$LIBS" LIBS="-ldir $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 3218,3224 ---- opendir() ; return 0; } EOF ! if { (eval echo configure:3222: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 3239,3245 **** else echo $ac_n "checking for opendir in -lx""... $ac_c" 1>&6 ! echo "configure:3243: checking for opendir in -lx" >&5 ac_lib_var=`echo x'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 3240,3246 ---- else echo $ac_n "checking for opendir in -lx""... $ac_c" 1>&6 ! echo "configure:3244: checking for opendir in -lx" >&5 ac_lib_var=`echo x'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 3247,3253 **** ac_save_LIBS="$LIBS" LIBS="-lx $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 3259,3265 ---- opendir() ; return 0; } EOF ! if { (eval echo configure:3263: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 3281,3292 **** fi echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 ! echo "configure:3285: checking whether time.h and sys/time.h may both be included" >&5 if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 3282,3293 ---- fi echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 ! echo "configure:3286: checking whether time.h and sys/time.h may both be included" >&5 if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 3295,3301 **** struct tm *tp; ; return 0; } EOF ! if { (eval echo configure:3299: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_header_time=yes else --- 3296,3302 ---- struct tm *tp; ; return 0; } EOF ! if { (eval echo configure:3300: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_header_time=yes else *************** *** 3316,3327 **** fi echo $ac_n "checking for sys/wait.h that is POSIX.1 compatible""... $ac_c" 1>&6 ! echo "configure:3320: checking for sys/wait.h that is POSIX.1 compatible" >&5 if eval "test \"`echo '$''{'ac_cv_header_sys_wait_h'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 3317,3328 ---- fi echo $ac_n "checking for sys/wait.h that is POSIX.1 compatible""... $ac_c" 1>&6 ! echo "configure:3321: checking for sys/wait.h that is POSIX.1 compatible" >&5 if eval "test \"`echo '$''{'ac_cv_header_sys_wait_h'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 3337,3343 **** s = WIFEXITED (s) ? WEXITSTATUS (s) : 1; ; return 0; } EOF ! if { (eval echo configure:3341: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_header_sys_wait_h=yes else --- 3338,3344 ---- s = WIFEXITED (s) ? WEXITSTATUS (s) : 1; ; return 0; } EOF ! if { (eval echo configure:3342: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_header_sys_wait_h=yes else *************** *** 3366,3382 **** do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 ! echo "configure:3370: checking for $ac_hdr" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" ! { (eval echo configure:3380: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* --- 3367,3383 ---- do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 ! echo "configure:3371: checking for $ac_hdr" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" ! { (eval echo configure:3381: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* *************** *** 3414,3420 **** ### See if the optional nonlinear programming code is present. echo $ac_n "checking for npsol""... $ac_c" 1>&6 ! echo "configure:3418: checking for npsol" >&5 if test -f $srcdir/libcruft/npsol/npsol.f; then echo "$ac_t""yes" 1>&6 else --- 3415,3421 ---- ### See if the optional nonlinear programming code is present. echo $ac_n "checking for npsol""... $ac_c" 1>&6 ! echo "configure:3419: checking for npsol" >&5 if test -f $srcdir/libcruft/npsol/npsol.f; then echo "$ac_t""yes" 1>&6 else *************** *** 3426,3432 **** fi echo $ac_n "checking for qpsol""... $ac_c" 1>&6 ! echo "configure:3430: checking for qpsol" >&5 if test -f $srcdir/libcruft/qpsol/qpsol.f; then echo "$ac_t""yes" 1>&6 else --- 3427,3433 ---- fi echo $ac_n "checking for qpsol""... $ac_c" 1>&6 ! echo "configure:3431: checking for qpsol" >&5 if test -f $srcdir/libcruft/qpsol/qpsol.f; then echo "$ac_t""yes" 1>&6 else *************** *** 3438,3444 **** fi echo $ac_n "checking for fsqp""... $ac_c" 1>&6 ! echo "configure:3442: checking for fsqp" >&5 if test -f $srcdir/libcruft/fsqp/fsqpd.f; then echo "$ac_t""yes" 1>&6 else --- 3439,3445 ---- fi echo $ac_n "checking for fsqp""... $ac_c" 1>&6 ! echo "configure:3443: checking for fsqp" >&5 if test -f $srcdir/libcruft/fsqp/fsqpd.f; then echo "$ac_t""yes" 1>&6 else *************** *** 3460,3471 **** strnicmp tempnam umask unlink usleep vfprintf vsprintf waitpid do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:3464: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:3465: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 3489,3495 ---- ; return 0; } EOF ! if { (eval echo configure:3493: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 3514,3520 **** echo $ac_n "checking whether putenv uses malloc""... $ac_c" 1>&6 ! echo "configure:3518: checking whether putenv uses malloc" >&5 if eval "test \"`echo '$''{'octave_cv_func_putenv_malloc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 3515,3521 ---- echo $ac_n "checking whether putenv uses malloc""... $ac_c" 1>&6 ! echo "configure:3519: checking whether putenv uses malloc" >&5 if eval "test \"`echo '$''{'octave_cv_func_putenv_malloc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 3522,3528 **** octave_cv_func_putenv_malloc=no else cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then octave_cv_func_putenv_malloc=yes else --- 3576,3582 ---- exit (rstr1 == rstr2 ? 0 : 1); } EOF ! if { (eval echo configure:3580: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then octave_cv_func_putenv_malloc=yes else *************** *** 3596,3614 **** fi echo $ac_n "checking whether program_invocation_name is predefined""... $ac_c" 1>&6 ! echo "configure:3600: checking whether program_invocation_name is predefined" >&5 if eval "test \"`echo '$''{'octave_cv_var_program_inv_name'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_var_program_inv_name=yes else --- 3597,3615 ---- fi echo $ac_n "checking whether program_invocation_name is predefined""... $ac_c" 1>&6 ! echo "configure:3601: checking whether program_invocation_name is predefined" >&5 if eval "test \"`echo '$''{'octave_cv_var_program_inv_name'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_var_program_inv_name=yes else *************** *** 3638,3644 **** ;; *) echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6 ! echo "configure:3642: checking for dlopen in -ldl" >&5 ac_lib_var=`echo dl'_'dlopen | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 3639,3645 ---- ;; *) echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6 ! echo "configure:3643: checking for dlopen in -ldl" >&5 ac_lib_var=`echo dl'_'dlopen | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 3646,3652 **** ac_save_LIBS="$LIBS" LIBS="-ldl $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 3658,3664 ---- dlopen() ; return 0; } EOF ! if { (eval echo configure:3662: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 3687,3698 **** for ac_func in dlopen dlsym dlerror dlclose do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:3691: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:3692: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 3716,3722 ---- ; return 0; } EOF ! if { (eval echo configure:3720: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 3767,3773 **** if test "$WITH_SHL" = yes || test "$WITH_SHL" = maybe; then echo $ac_n "checking for shl_load in -ldld""... $ac_c" 1>&6 ! echo "configure:3771: checking for shl_load in -ldld" >&5 ac_lib_var=`echo dld'_'shl_load | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 3768,3774 ---- if test "$WITH_SHL" = yes || test "$WITH_SHL" = maybe; then echo $ac_n "checking for shl_load in -ldld""... $ac_c" 1>&6 ! echo "configure:3772: checking for shl_load in -ldld" >&5 ac_lib_var=`echo dld'_'shl_load | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 3775,3781 **** ac_save_LIBS="$LIBS" LIBS="-ldld $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 3787,3793 ---- shl_load() ; return 0; } EOF ! if { (eval echo configure:3791: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 3816,3827 **** for ac_func in shl_load shl_findsym do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:3820: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:3821: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 3845,3851 ---- ; return 0; } EOF ! if { (eval echo configure:3849: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 3906,3917 **** ### which one (if any) appears in sys/time.h. echo $ac_n "checking for gettimeofday""... $ac_c" 1>&6 ! echo "configure:3910: checking for gettimeofday" >&5 if eval "test \"`echo '$''{'ac_cv_func_gettimeofday'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:3911: checking for gettimeofday" >&5 if eval "test \"`echo '$''{'ac_cv_func_gettimeofday'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_gettimeofday=yes" else --- 3935,3941 ---- ; return 0; } EOF ! if { (eval echo configure:3939: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_gettimeofday=yes" else *************** *** 3949,3962 **** if eval "test \"`echo '$ac_cv_func_'gettimeofday`\" = yes"; then echo "$ac_t""yes" 1>&6 cat > conftest.$ac_ext < int main() { gettimeofday ((struct timeval *) 0,(struct timezone *) 0); ; return 0; } EOF ! if { (eval echo configure:3960: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then : else echo "configure: failed program was:" >&5 --- 3950,3963 ---- if eval "test \"`echo '$ac_cv_func_'gettimeofday`\" = yes"; then echo "$ac_t""yes" 1>&6 cat > conftest.$ac_ext < int main() { gettimeofday ((struct timeval *) 0,(struct timezone *) 0); ; return 0; } EOF ! if { (eval echo configure:3961: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then : else echo "configure: failed program was:" >&5 *************** *** 3984,3990 **** ### with functions from the BSD/NET2 math library. echo $ac_n "checking for quiet_nan in -lsunmath""... $ac_c" 1>&6 ! echo "configure:3988: checking for quiet_nan in -lsunmath" >&5 ac_lib_var=`echo sunmath'_'quiet_nan | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 3985,3991 ---- ### with functions from the BSD/NET2 math library. echo $ac_n "checking for quiet_nan in -lsunmath""... $ac_c" 1>&6 ! echo "configure:3989: checking for quiet_nan in -lsunmath" >&5 ac_lib_var=`echo sunmath'_'quiet_nan | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 3992,3998 **** ac_save_LIBS="$LIBS" LIBS="-lsunmath -lm $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 4004,4010 ---- quiet_nan() ; return 0; } EOF ! if { (eval echo configure:4008: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 4035,4041 **** case "$canonical_host_type" in *-*-linux*) echo $ac_n "checking for sin in -lm""... $ac_c" 1>&6 ! echo "configure:4039: checking for sin in -lm" >&5 ac_lib_var=`echo m'_'sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 4036,4042 ---- case "$canonical_host_type" in *-*-linux*) echo $ac_n "checking for sin in -lm""... $ac_c" 1>&6 ! echo "configure:4040: checking for sin in -lm" >&5 ac_lib_var=`echo m'_'sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 4043,4049 **** ac_save_LIBS="$LIBS" LIBS="-lm -lc $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 4055,4061 ---- sin() ; return 0; } EOF ! if { (eval echo configure:4059: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 4084,4090 **** ;; *) echo $ac_n "checking for sin in -lm""... $ac_c" 1>&6 ! echo "configure:4088: checking for sin in -lm" >&5 ac_lib_var=`echo m'_'sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 4085,4091 ---- ;; *) echo $ac_n "checking for sin in -lm""... $ac_c" 1>&6 ! echo "configure:4089: checking for sin in -lm" >&5 ac_lib_var=`echo m'_'sin | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 4092,4098 **** ac_save_LIBS="$LIBS" LIBS="-lm $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 4104,4110 ---- sin() ; return 0; } EOF ! if { (eval echo configure:4108: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 4164,4175 **** for ac_func in finite isnan isinf infinity quiet_nan do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:4168: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:4169: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 4193,4199 ---- ; return 0; } EOF ! if { (eval echo configure:4197: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 4224,4235 **** for ac_func in acosh asinh atanh erf erfc do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:4228: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:4229: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 4253,4259 ---- ; return 0; } EOF ! if { (eval echo configure:4257: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 4282,4293 **** ### Checks for OS specific cruft. echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 ! echo "configure:4286: checking for st_blksize in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4283,4294 ---- ### Checks for OS specific cruft. echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 ! echo "configure:4287: checking for st_blksize in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4295,4301 **** struct stat s; s.st_blksize; ; return 0; } EOF ! if { (eval echo configure:4299: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blksize=yes else --- 4296,4302 ---- struct stat s; s.st_blksize; ; return 0; } EOF ! if { (eval echo configure:4300: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blksize=yes else *************** *** 4316,4327 **** fi echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6 ! echo "configure:4320: checking for st_blocks in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blocks'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4317,4328 ---- fi echo $ac_n "checking for st_blocks in struct stat""... $ac_c" 1>&6 ! echo "configure:4321: checking for st_blocks in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_blocks'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4329,4335 **** struct stat s; s.st_blocks; ; return 0; } EOF ! if { (eval echo configure:4333: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blocks=yes else --- 4330,4336 ---- struct stat s; s.st_blocks; ; return 0; } EOF ! if { (eval echo configure:4334: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_blocks=yes else *************** *** 4352,4363 **** fi echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6 ! echo "configure:4356: checking for st_rdev in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_rdev'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4353,4364 ---- fi echo $ac_n "checking for st_rdev in struct stat""... $ac_c" 1>&6 ! echo "configure:4357: checking for st_rdev in struct stat" >&5 if eval "test \"`echo '$''{'ac_cv_struct_st_rdev'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4365,4371 **** struct stat s; s.st_rdev; ; return 0; } EOF ! if { (eval echo configure:4369: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_rdev=yes else --- 4366,4372 ---- struct stat s; s.st_rdev; ; return 0; } EOF ! if { (eval echo configure:4370: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_st_rdev=yes else *************** *** 4386,4397 **** fi echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6 ! echo "configure:4390: checking whether struct tm is in sys/time.h or time.h" >&5 if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4387,4398 ---- fi echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6 ! echo "configure:4391: checking whether struct tm is in sys/time.h or time.h" >&5 if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4399,4405 **** struct tm *tp; tp->tm_sec; ; return 0; } EOF ! if { (eval echo configure:4403: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_tm=time.h else --- 4400,4406 ---- struct tm *tp; tp->tm_sec; ; return 0; } EOF ! if { (eval echo configure:4404: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_tm=time.h else *************** *** 4420,4431 **** fi echo $ac_n "checking for tm_zone in struct tm""... $ac_c" 1>&6 ! echo "configure:4424: checking for tm_zone in struct tm" >&5 if eval "test \"`echo '$''{'ac_cv_struct_tm_zone'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include <$ac_cv_struct_tm> --- 4421,4432 ---- fi echo $ac_n "checking for tm_zone in struct tm""... $ac_c" 1>&6 ! echo "configure:4425: checking for tm_zone in struct tm" >&5 if eval "test \"`echo '$''{'ac_cv_struct_tm_zone'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include <$ac_cv_struct_tm> *************** *** 4433,4439 **** struct tm tm; tm.tm_zone; ; return 0; } EOF ! if { (eval echo configure:4437: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_tm_zone=yes else --- 4434,4440 ---- struct tm tm; tm.tm_zone; ; return 0; } EOF ! if { (eval echo configure:4438: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_struct_tm_zone=yes else *************** *** 4453,4464 **** else echo $ac_n "checking for tzname""... $ac_c" 1>&6 ! echo "configure:4457: checking for tzname" >&5 if eval "test \"`echo '$''{'ac_cv_var_tzname'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #ifndef tzname /* For SGI. */ --- 4454,4465 ---- else echo $ac_n "checking for tzname""... $ac_c" 1>&6 ! echo "configure:4458: checking for tzname" >&5 if eval "test \"`echo '$''{'ac_cv_var_tzname'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #ifndef tzname /* For SGI. */ *************** *** 4468,4474 **** atoi(*tzname); ; return 0; } EOF ! if { (eval echo configure:4472: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_var_tzname=yes else --- 4469,4475 ---- atoi(*tzname); ; return 0; } EOF ! if { (eval echo configure:4473: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_var_tzname=yes else *************** *** 4490,4496 **** fi echo $ac_n "checking whether closedir returns void""... $ac_c" 1>&6 ! echo "configure:4494: checking whether closedir returns void" >&5 if eval "test \"`echo '$''{'ac_cv_func_closedir_void'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 4491,4497 ---- fi echo $ac_n "checking whether closedir returns void""... $ac_c" 1>&6 ! echo "configure:4495: checking whether closedir returns void" >&5 if eval "test \"`echo '$''{'ac_cv_func_closedir_void'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 4498,4510 **** ac_cv_func_closedir_void=yes else cat > conftest.$ac_ext < #include <$ac_header_dirent> int closedir(); main() { exit(closedir(opendir(".")) != 0); } EOF ! if { (eval echo configure:4508: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_closedir_void=no else --- 4499,4511 ---- ac_cv_func_closedir_void=yes else cat > conftest.$ac_ext < #include <$ac_header_dirent> int closedir(); main() { exit(closedir(opendir(".")) != 0); } EOF ! if { (eval echo configure:4509: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_closedir_void=no else *************** *** 4528,4539 **** echo $ac_n "checking for gr_passwd in struct group""... $ac_c" 1>&6 ! echo "configure:4532: checking for gr_passwd in struct group" >&5 if eval "test \"`echo '$''{'octave_cv_struct_gr_passwd'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4529,4540 ---- echo $ac_n "checking for gr_passwd in struct group""... $ac_c" 1>&6 ! echo "configure:4533: checking for gr_passwd in struct group" >&5 if eval "test \"`echo '$''{'octave_cv_struct_gr_passwd'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4541,4547 **** struct group s; s.gr_passwd; ; return 0; } EOF ! if { (eval echo configure:4545: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* octave_cv_struct_gr_passwd=yes else --- 4542,4548 ---- struct group s; s.gr_passwd; ; return 0; } EOF ! if { (eval echo configure:4546: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* octave_cv_struct_gr_passwd=yes else *************** *** 4565,4571 **** TERMLIBS="" for termlib in ncurses curses termcap terminfo termlib; do echo $ac_n "checking for tputs in -l${termlib}""... $ac_c" 1>&6 ! echo "configure:4569: checking for tputs in -l${termlib}" >&5 ac_lib_var=`echo ${termlib}'_'tputs | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 4566,4572 ---- TERMLIBS="" for termlib in ncurses curses termcap terminfo termlib; do echo $ac_n "checking for tputs in -l${termlib}""... $ac_c" 1>&6 ! echo "configure:4570: checking for tputs in -l${termlib}" >&5 ac_lib_var=`echo ${termlib}'_'tputs | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 4573,4579 **** ac_save_LIBS="$LIBS" LIBS="-l${termlib} $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 4585,4591 ---- tputs() ; return 0; } EOF ! if { (eval echo configure:4589: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 4624,4639 **** fi echo $ac_n "checking for struct exception in math.h""... $ac_c" 1>&6 ! echo "configure:4628: checking for struct exception in math.h" >&5 cat > conftest.$ac_ext < int main() { struct exception *x; x->type; x->name; ; return 0; } EOF ! if { (eval echo configure:4637: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF --- 4625,4640 ---- fi echo $ac_n "checking for struct exception in math.h""... $ac_c" 1>&6 ! echo "configure:4629: checking for struct exception in math.h" >&5 cat > conftest.$ac_ext < int main() { struct exception *x; x->type; x->name; ; return 0; } EOF ! if { (eval echo configure:4638: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF *************** *** 4651,4662 **** ### Signal stuff. echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6 ! echo "configure:4655: checking return type of signal handlers" >&5 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4652,4663 ---- ### Signal stuff. echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6 ! echo "configure:4656: checking return type of signal handlers" >&5 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4673,4679 **** int i; ; return 0; } EOF ! if { (eval echo configure:4677: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_type_signal=void else --- 4674,4680 ---- int i; ; return 0; } EOF ! if { (eval echo configure:4678: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_type_signal=void else *************** *** 4692,4703 **** echo $ac_n "checking for sys_siglist declaration in signal.h or unistd.h""... $ac_c" 1>&6 ! echo "configure:4696: checking for sys_siglist declaration in signal.h or unistd.h" >&5 if eval "test \"`echo '$''{'ac_cv_decl_sys_siglist'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include --- 4693,4704 ---- echo $ac_n "checking for sys_siglist declaration in signal.h or unistd.h""... $ac_c" 1>&6 ! echo "configure:4697: checking for sys_siglist declaration in signal.h or unistd.h" >&5 if eval "test \"`echo '$''{'ac_cv_decl_sys_siglist'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include *************** *** 4709,4715 **** char *msg = *(sys_siglist + 1); ; return 0; } EOF ! if { (eval echo configure:4713: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_decl_sys_siglist=yes else --- 4710,4716 ---- char *msg = *(sys_siglist + 1); ; return 0; } EOF ! if { (eval echo configure:4714: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_decl_sys_siglist=yes else *************** *** 4730,4745 **** fi echo $ac_n "checking for sys_siglist variable""... $ac_c" 1>&6 ! echo "configure:4734: checking for sys_siglist variable" >&5 cat > conftest.$ac_ext < int main() { extern char *sys_siglist[]; printf ("%s\n", sys_siglist[1]); ; return 0; } EOF ! if { (eval echo configure:4743: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF --- 4731,4746 ---- fi echo $ac_n "checking for sys_siglist variable""... $ac_c" 1>&6 ! echo "configure:4735: checking for sys_siglist variable" >&5 cat > conftest.$ac_ext < int main() { extern char *sys_siglist[]; printf ("%s\n", sys_siglist[1]); ; return 0; } EOF ! if { (eval echo configure:4744: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF *************** *** 4755,4767 **** rm -f conftest* echo $ac_n "checking for type of signal functions""... $ac_c" 1>&6 ! echo "configure:4759: checking for type of signal functions" >&5 if eval "test \"`echo '$''{'octave_cv_signal_vintage'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < int main() { --- 4756,4768 ---- rm -f conftest* echo $ac_n "checking for type of signal functions""... $ac_c" 1>&6 ! echo "configure:4760: checking for type of signal functions" >&5 if eval "test \"`echo '$''{'octave_cv_signal_vintage'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < int main() { *************** *** 4774,4780 **** ; return 0; } EOF ! if { (eval echo configure:4778: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=posix else --- 4775,4781 ---- ; return 0; } EOF ! if { (eval echo configure:4779: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=posix else *************** *** 4783,4789 **** rm -rf conftest* cat > conftest.$ac_ext < int main() { --- 4784,4790 ---- rm -rf conftest* cat > conftest.$ac_ext < int main() { *************** *** 4793,4799 **** ; return 0; } EOF ! if { (eval echo configure:4797: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=4.2bsd else --- 4794,4800 ---- ; return 0; } EOF ! if { (eval echo configure:4798: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=4.2bsd else *************** *** 4802,4808 **** rm -rf conftest* cat > conftest.$ac_ext < --- 4803,4809 ---- rm -rf conftest* cat > conftest.$ac_ext < *************** *** 4815,4821 **** ; return 0; } EOF ! if { (eval echo configure:4819: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=svr3 else --- 4816,4822 ---- ; return 0; } EOF ! if { (eval echo configure:4820: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* octave_cv_signal_vintage=svr3 else *************** *** 4856,4862 **** echo $ac_n "checking if signal handlers must be reinstalled when invoked""... $ac_c" 1>&6 ! echo "configure:4860: checking if signal handlers must be reinstalled when invoked" >&5 if eval "test \"`echo '$''{'octave_cv_must_reinstall_sighandlers'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 4857,4863 ---- echo $ac_n "checking if signal handlers must be reinstalled when invoked""... $ac_c" 1>&6 ! echo "configure:4861: checking if signal handlers must be reinstalled when invoked" >&5 if eval "test \"`echo '$''{'octave_cv_must_reinstall_sighandlers'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 4864,4870 **** { echo "configure: error: cannot check signal handling if cross compiling" 1>&2; exit 1; } else cat > conftest.$ac_ext < --- 4865,4871 ---- { echo "configure: error: cannot check signal handling if cross compiling" 1>&2; exit 1; } else cat > conftest.$ac_ext < *************** *** 4906,4912 **** } EOF ! if { (eval echo configure:4910: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then octave_cv_must_reinstall_sighandlers=no else --- 4907,4913 ---- } EOF ! if { (eval echo configure:4911: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then octave_cv_must_reinstall_sighandlers=no else *************** *** 4932,4943 **** ### Type stuff. echo $ac_n "checking for mode_t""... $ac_c" 1>&6 ! echo "configure:4936: checking for mode_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 4933,4944 ---- ### Type stuff. echo $ac_n "checking for mode_t""... $ac_c" 1>&6 ! echo "configure:4937: checking for mode_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 4965,4976 **** fi echo $ac_n "checking for off_t""... $ac_c" 1>&6 ! echo "configure:4969: checking for off_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 4966,4977 ---- fi echo $ac_n "checking for off_t""... $ac_c" 1>&6 ! echo "configure:4970: checking for off_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 4998,5009 **** fi echo $ac_n "checking for pid_t""... $ac_c" 1>&6 ! echo "configure:5002: checking for pid_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 4999,5010 ---- fi echo $ac_n "checking for pid_t""... $ac_c" 1>&6 ! echo "configure:5003: checking for pid_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5031,5042 **** fi echo $ac_n "checking for size_t""... $ac_c" 1>&6 ! echo "configure:5035: checking for size_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 5032,5043 ---- fi echo $ac_n "checking for size_t""... $ac_c" 1>&6 ! echo "configure:5036: checking for size_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5064,5075 **** fi echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6 ! echo "configure:5068: checking for uid_t in sys/types.h" >&5 if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF --- 5065,5076 ---- fi echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6 ! echo "configure:5069: checking for uid_t in sys/types.h" >&5 if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF *************** *** 5098,5109 **** fi echo $ac_n "checking for dev_t""... $ac_c" 1>&6 ! echo "configure:5102: checking for dev_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_dev_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 5099,5110 ---- fi echo $ac_n "checking for dev_t""... $ac_c" 1>&6 ! echo "configure:5103: checking for dev_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_dev_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5131,5142 **** fi echo $ac_n "checking for ino_t""... $ac_c" 1>&6 ! echo "configure:5135: checking for ino_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_ino_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 5132,5143 ---- fi echo $ac_n "checking for ino_t""... $ac_c" 1>&6 ! echo "configure:5136: checking for ino_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_ino_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5164,5175 **** fi echo $ac_n "checking for nlink_t""... $ac_c" 1>&6 ! echo "configure:5168: checking for nlink_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_nlink_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 5165,5176 ---- fi echo $ac_n "checking for nlink_t""... $ac_c" 1>&6 ! echo "configure:5169: checking for nlink_t" >&5 if eval "test \"`echo '$''{'ac_cv_type_nlink_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5197,5208 **** fi echo $ac_n "checking for sigset_t""... $ac_c" 1>&6 ! echo "configure:5201: checking for sigset_t" >&5 if eval "test \"`echo '$''{'octave_cv_type_sigset_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS --- 5198,5209 ---- fi echo $ac_n "checking for sigset_t""... $ac_c" 1>&6 ! echo "configure:5202: checking for sigset_t" >&5 if eval "test \"`echo '$''{'octave_cv_type_sigset_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #if STDC_HEADERS *************** *** 5250,5261 **** for ac_func in getrusage times do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 ! echo "configure:5254: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:5255: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 5279,5285 ---- ; return 0; } EOF ! if { (eval echo configure:5283: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 5311,5317 **** ;; esac ! bsd_gcc_kluge_targets_frag= case "$canonical_host_type" in *-*-386bsd* | *-*-openbsd* | *-*-netbsd* | *-*-freebsd*) bsd_gcc_kluge_targets_frag=Makefrag.bsd --- 5312,5318 ---- ;; esac ! bsd_gcc_kluge_targets_frag=/dev/null case "$canonical_host_type" in *-*-386bsd* | *-*-openbsd* | *-*-netbsd* | *-*-freebsd*) bsd_gcc_kluge_targets_frag=Makefrag.bsd *************** *** 5349,5355 **** # Extract the first word of "flex", so it can be a program name with args. set dummy flex; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5353: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LEX'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5350,5356 ---- # Extract the first word of "flex", so it can be a program name with args. set dummy flex; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5354: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LEX'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5382,5388 **** *) ac_lib=l ;; esac echo $ac_n "checking for yywrap in -l$ac_lib""... $ac_c" 1>&6 ! echo "configure:5386: checking for yywrap in -l$ac_lib" >&5 ac_lib_var=`echo $ac_lib'_'yywrap | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 5383,5389 ---- *) ac_lib=l ;; esac echo $ac_n "checking for yywrap in -l$ac_lib""... $ac_c" 1>&6 ! echo "configure:5387: checking for yywrap in -l$ac_lib" >&5 ac_lib_var=`echo $ac_lib'_'yywrap | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 5390,5396 **** ac_save_LIBS="$LIBS" LIBS="-l$ac_lib $LIBS" cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else --- 5402,5408 ---- yywrap() ; return 0; } EOF ! if { (eval echo configure:5406: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else *************** *** 5443,5449 **** # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5447: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_YACC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5444,5450 ---- # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5448: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_YACC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5482,5488 **** esac echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6 ! echo "configure:5486: checking whether ln -s works" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5483,5489 ---- esac echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6 ! echo "configure:5487: checking whether ln -s works" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5506,5512 **** # Extract the first word of "runtest", so it can be a program name with args. set dummy runtest; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5510: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RUNTEST'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5507,5513 ---- # Extract the first word of "runtest", so it can be a program name with args. set dummy runtest; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5511: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RUNTEST'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5534,5540 **** # Extract the first word of "expect", so it can be a program name with args. set dummy expect; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5538: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_EXPECT'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5535,5541 ---- # Extract the first word of "expect", so it can be a program name with args. set dummy expect; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5539: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_EXPECT'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5575,5581 **** # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 ! echo "configure:5579: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 --- 5576,5582 ---- # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 ! echo "configure:5580: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 *************** *** 5638,5644 **** # Extract the first word of "gnuplot", so it can be a program name with args. set dummy gnuplot; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5642: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_GNUPLOT_BINARY'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5639,5645 ---- # Extract the first word of "gnuplot", so it can be a program name with args. set dummy gnuplot; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5643: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_GNUPLOT_BINARY'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 5665,5671 **** if test -n "$GNUPLOT_BINARY"; then echo $ac_n "checking to see if your gnuplot supports multiplot""... $ac_c" 1>&6 ! echo "configure:5669: checking to see if your gnuplot supports multiplot" >&5 if test -z "`echo 'set term unknown; set multiplot' | \ $GNUPLOT_BINARY 2>&1`"; then echo "$ac_t""yes" 1>&6 --- 5666,5672 ---- if test -n "$GNUPLOT_BINARY"; then echo $ac_n "checking to see if your gnuplot supports multiplot""... $ac_c" 1>&6 ! echo "configure:5670: checking to see if your gnuplot supports multiplot" >&5 if test -z "`echo 'set term unknown; set multiplot' | \ $GNUPLOT_BINARY 2>&1`"; then echo "$ac_t""yes" 1>&6 *************** *** 5677,5683 **** echo "$ac_t""no" 1>&6 fi echo $ac_n "checking to see if your gnuplot supports multiple plot windows""... $ac_c" 1>&6 ! echo "configure:5681: checking to see if your gnuplot supports multiple plot windows" >&5 if test -z "`echo 'set term x11 2' | $GNUPLOT_BINARY 2>&1`"; then echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF --- 5678,5684 ---- echo "$ac_t""no" 1>&6 fi echo $ac_n "checking to see if your gnuplot supports multiple plot windows""... $ac_c" 1>&6 ! echo "configure:5682: checking to see if your gnuplot supports multiple plot windows" >&5 if test -z "`echo 'set term x11 2' | $GNUPLOT_BINARY 2>&1`"; then echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF *************** *** 5712,5718 **** # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5716: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_DEFAULT_PAGER'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 5713,5719 ---- # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 ! echo "configure:5717: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_DEFAULT_PAGER'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else diff -cNr octave-2.0.4/configure.in octave-2.0.5/configure.in *** octave-2.0.4/configure.in Thu Feb 20 02:43:18 1997 --- octave-2.0.5/configure.in Fri Feb 28 02:26:31 1997 *************** *** 21,27 **** ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA ### 02111-1307, USA. ! AC_REVISION($Revision: 1.257 $) AC_PREREQ(2.9) AC_INIT(src/octave.cc) AC_CONFIG_HEADER(config.h) --- 21,27 ---- ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA ### 02111-1307, USA. ! AC_REVISION($Revision: 1.258 $) AC_PREREQ(2.9) AC_INIT(src/octave.cc) AC_CONFIG_HEADER(config.h) *************** *** 619,626 **** fi ! f77_rules_frag=Makefrag.f77 if $have_fortran_compiler; then changequote(,)dnl cat << \EOF > $f77_rules_frag --- 619,627 ---- fi ! f77_rules_frag=/dev/null if $have_fortran_compiler; then + f77_rules_frag=Makefrag.f77 changequote(,)dnl cat << \EOF > $f77_rules_frag *************** *** 987,993 **** ;; esac ! bsd_gcc_kluge_targets_frag= case "$canonical_host_type" in *-*-386bsd* | *-*-openbsd* | *-*-netbsd* | *-*-freebsd*) bsd_gcc_kluge_targets_frag=Makefrag.bsd --- 988,994 ---- ;; esac ! bsd_gcc_kluge_targets_frag=/dev/null case "$canonical_host_type" in *-*-386bsd* | *-*-openbsd* | *-*-netbsd* | *-*-freebsd*) bsd_gcc_kluge_targets_frag=Makefrag.bsd diff -cNr octave-2.0.4/doc/ChangeLog octave-2.0.5/doc/ChangeLog *** octave-2.0.4/doc/ChangeLog Thu Feb 20 02:58:57 1997 --- octave-2.0.5/doc/ChangeLog Sat Mar 1 15:23:49 1997 *************** *** 1,3 **** --- 1,25 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Fri Feb 28 20:53:40 1997 John W. Eaton + + * texinfo.tex: Update to latest version from Karl Berry, and apply + previous patch too. + + Thu Feb 27 03:34:48 1997 John W. Eaton + + * texinfo.tex (\codeunder): Maybe make it work for @var{} inside + @code{}. + + Wed Feb 26 12:03:48 1997 John W. Eaton + + * refcard/Makefile.in (mostlyclean clean): Delete log files. + + * liboctave/Makefile.in (mostlyclean clean): Delete more stuff. + + * faq/Makefile.in (mostlyclean clean): Delete some stuff. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/doc/conf.texi octave-2.0.5/doc/conf.texi *** octave-2.0.4/doc/conf.texi Wed Feb 19 13:10:27 1997 --- octave-2.0.5/doc/conf.texi Sat Mar 1 15:57:05 1997 *************** *** 2,7 **** @c This is part of the Octave manual. @c For copying conditions, see the file gpl.texi. ! @set VERSION 2.0.4 @set OCTAVEHOME /usr/local @set TARGETHOSTTYPE i586-pc-linux-gnu --- 2,7 ---- @c This is part of the Octave manual. @c For copying conditions, see the file gpl.texi. ! @set VERSION 2.0.5 @set OCTAVEHOME /usr/local @set TARGETHOSTTYPE i586-pc-linux-gnu diff -cNr octave-2.0.4/doc/faq/Makefile.in octave-2.0.5/doc/faq/Makefile.in *** octave-2.0.4/doc/faq/Makefile.in Fri Jan 24 22:37:27 1997 --- octave-2.0.5/doc/faq/Makefile.in Wed Feb 26 12:59:23 1997 *************** *** 49,56 **** FAQ.ps: FAQ.dvi -dvips -o FAQ.ps FAQ.dvi ! check install uninstall mostlyclean clean: ! .PHONY: check install uninstall mostlyclean clean tags: $(SOURCES) ctags $(SOURCES) --- 49,56 ---- FAQ.ps: FAQ.dvi -dvips -o FAQ.ps FAQ.dvi ! check install uninstall: ! .PHONY: check install uninstall tags: $(SOURCES) ctags $(SOURCES) *************** *** 60,65 **** --- 60,71 ---- spell: $(SPELL) .PHONY: spell + + mostlyclean clean: + rm -f FAQ.cp FAQ.fn FAQ.ky FAQ.pg FAQ.tp FAQ.vr \ + FAQ.cps FAQ.fns FAQ.kys FAQ.pgs FAQ.tps FAQ.vrs \ + FAQ.aux FAQ.log FAQ.toc + .PHONY: mostlyclean clean distclean: clean rm -f Makefile diff -cNr octave-2.0.4/doc/interpreter/arith.texi octave-2.0.5/doc/interpreter/arith.texi *** octave-2.0.4/doc/interpreter/arith.texi Mon Feb 17 15:29:22 1997 --- octave-2.0.5/doc/interpreter/arith.texi Fri Feb 28 21:12:15 1997 *************** *** 416,422 **** @section Special Functions @deftypefn {Mapping Function} {} beta (@var{a}, @var{b}) ! Returns the Beta function, @iftex @tex $$ --- 416,422 ---- @section Special Functions @deftypefn {Mapping Function} {} beta (@var{a}, @var{b}) ! Return the Beta function, @iftex @tex $$ *************** *** 433,439 **** @end deftypefn @deftypefn {Mapping Function} {} betai (@var{a}, @var{b}, @var{x}) ! Returns the incomplete Beta function, @iftex @tex $$ --- 433,439 ---- @end deftypefn @deftypefn {Mapping Function} {} betai (@var{a}, @var{b}, @var{x}) ! Return the incomplete Beta function, @iftex @tex $$ *************** *** 458,464 **** @end deftypefn @deftypefn {Mapping Function} {} bincoeff (@var{n}, @var{k}) ! Returns the binomial coefficient of @var{n} and @var{k}, defined as @iftex @tex $$ --- 458,464 ---- @end deftypefn @deftypefn {Mapping Function} {} bincoeff (@var{n}, @var{k}) ! Return the binomial coefficient of @var{n} and @var{k}, defined as @iftex @tex $$ *************** *** 576,582 **** @deftypefn {Mapping Function} {} lgamma (@var{a}, @var{x}) @deftypefnx {Mapping Function} {} gammaln (@var{a}, @var{x}) ! Returns the natural logarithm of the gamma function. @end deftypefn @deftypefn {Function File} {} cross (@var{x}, @var{y}) --- 576,582 ---- @deftypefn {Mapping Function} {} lgamma (@var{a}, @var{x}) @deftypefnx {Mapping Function} {} gammaln (@var{a}, @var{x}) ! Return the natural logarithm of the gamma function. @end deftypefn @deftypefn {Function File} {} cross (@var{x}, @var{y}) *************** *** 592,598 **** @end deftypefn @deftypefn {Function File} {} commutation_matrix (@var{m}, @var{n}) ! Returns the commutation matrix @iftex @tex $K_{m,n}$ --- 592,598 ---- @end deftypefn @deftypefn {Function File} {} commutation_matrix (@var{m}, @var{n}) ! Return the commutation matrix @iftex @tex $K_{m,n}$ *************** *** 654,660 **** @end deftypefn @deftypefn {Function File} {} duplication_matrix (@var{n}) ! Returns the duplication matrix @iftex @tex $D_n$ --- 654,660 ---- @end deftypefn @deftypefn {Function File} {} duplication_matrix (@var{n}) ! Return the duplication matrix @iftex @tex $D_n$ diff -cNr octave-2.0.4/doc/interpreter/control.texi octave-2.0.5/doc/interpreter/control.texi *** octave-2.0.4/doc/interpreter/control.texi Tue Feb 18 01:44:30 1997 --- octave-2.0.5/doc/interpreter/control.texi Thu Feb 27 02:55:57 1997 *************** *** 366,373 **** for square matrices @var{a}, @var{b}. If @var{b} is not square, then the function attempts to solve either @iftex - $AXA^T - X + B B^T = 0$ or $A^TXA - X + B^TB = 0$, @tex @end tex @ifinfo @code{a x a' - x + b b' = 0} or @code{a' x a - x + b' b = 0}, --- 366,373 ---- for square matrices @var{a}, @var{b}. If @var{b} is not square, then the function attempts to solve either @iftex @tex + $AXA^T - X + B B^T = 0$ or $A^TXA - X + B^TB = 0$, @end tex @ifinfo @code{a x a' - x + b b' = 0} or @code{a' x a - x + b' b = 0}, *************** *** 393,399 **** @deftypefn {Function File} {} is_observable (@var{a}, @var{c}, @var{tol}) Return 1 if the pair (@var{a}, @var{c}) is observable. ! Otherwise, return0. The optional argument @var{tol} is a roundoff parameter. If it is omitted, a value of @code{2*eps} is used. --- 393,399 ---- @deftypefn {Function File} {} is_observable (@var{a}, @var{c}, @var{tol}) Return 1 if the pair (@var{a}, @var{c}) is observable. ! Otherwise, return 0. The optional argument @var{tol} is a roundoff parameter. If it is omitted, a value of @code{2*eps} is used. *************** *** 533,540 **** @item k The state feedback gain, @iftex - $(A - B K)$ @tex @end tex @end iftex @ifinfo --- 533,540 ---- @item k The state feedback gain, @iftex @tex + $(A - B K)$ @end tex @end iftex @ifinfo diff -cNr octave-2.0.4/doc/interpreter/eval.texi octave-2.0.5/doc/interpreter/eval.texi *** octave-2.0.4/doc/interpreter/eval.texi Tue Feb 18 01:45:55 1997 --- octave-2.0.5/doc/interpreter/eval.texi Sat Feb 22 12:21:38 1997 *************** *** 66,78 **** by name, and use @code{feval} to call them. @end deftypefn - @cindex Fordyce, A. P. - @findex newtroot Here is a simple-minded function using @code{feval} that finds the root of a user-supplied function of one variable using Newton's method. @example @group function result = newtroot (fname, x) # usage: newtroot (fname, x) --- 66,78 ---- by name, and use @code{feval} to call them. @end deftypefn Here is a simple-minded function using @code{feval} that finds the root of a user-supplied function of one variable using Newton's method. @example @group + @cindex Fordyce, A. P. + @findex newtroot function result = newtroot (fname, x) # usage: newtroot (fname, x) diff -cNr octave-2.0.4/doc/interpreter/grammar.texi octave-2.0.5/doc/interpreter/grammar.texi *** octave-2.0.4/doc/interpreter/grammar.texi Wed Feb 19 13:24:29 1997 --- octave-2.0.5/doc/interpreter/grammar.texi Fri Feb 28 20:36:58 1997 *************** *** 25,40 **** @group all_va_args endwhile break for ! catch function ! continue global ! else gplot ! elseif gsplot ! end if end_try_catch return ! end_unwind_protect try ! endfor unwind_protect ! endfunction unwind_protect_cleanup ! endif while @end group @end example --- 25,42 ---- @group all_va_args endwhile break for ! case function ! catch global ! continue gplot ! else gsplot ! elseif if ! end otherwise end_try_catch return ! end_unwind_protect switch ! endfor try ! endfunction unwind_protect ! endif unwind_protect_cleanup ! endswitch while @end group @end example diff -cNr octave-2.0.4/doc/interpreter/intro.texi octave-2.0.5/doc/interpreter/intro.texi *** octave-2.0.4/doc/interpreter/intro.texi Wed Feb 19 13:25:05 1997 --- octave-2.0.5/doc/interpreter/intro.texi Wed Feb 26 23:03:32 1997 *************** *** 363,369 **** Examples of Octave code appear in this font or form: @code{svd (a)}. Names that represent arguments or metasyntactic variables appear ! in this font or form: @var{first-number}. @node Evaluation Notation, Printing Notation, Fonts, Conventions @subsection Evaluation Notation --- 363,372 ---- Examples of Octave code appear in this font or form: @code{svd (a)}. Names that represent arguments or metasyntactic variables appear ! in this font or form: @var{first-number}. Commands that you type ! sometimes appear in this font or form: @kbd{foo --bar --baz}. Specific ! keys on your keyboard appear in this font or form: @key{ANY}. ! @cindex any key @node Evaluation Notation, Printing Notation, Fonts, Conventions @subsection Evaluation Notation diff -cNr octave-2.0.4/doc/interpreter/io.texi octave-2.0.5/doc/interpreter/io.texi *** octave-2.0.4/doc/interpreter/io.texi Tue Feb 18 01:48:59 1997 --- octave-2.0.5/doc/interpreter/io.texi Fri Feb 28 21:10:58 1997 *************** *** 547,555 **** @item @samp{r+} Open an existing file for reading and writing. ! item @samp{w+} Open a file for reading or writing. The previous contents are ! discared. @item @samp{a+} Open or create a file for reading or writing at the end of the --- 547,555 ---- @item @samp{r+} Open an existing file for reading and writing. ! @item @samp{w+} Open a file for reading or writing. The previous contents are ! discarded. @item @samp{a+} Open or create a file for reading or writing at the end of the *************** *** 1443,1456 **** @subsection End of File and Errors @deftypefn {Built-in Function} {} feof (@var{fid}) ! Returns 1 if an end-of-file condition has been encountered for a given file and 0 otherwise. Note that it will only return 1 if the end of the file has already been encountered, not if the next read operation will result in an end-of-file condition. @end deftypefn @deftypefn {Built-in Function} {} ferror (@var{fid}) ! Returns 1 if an error condition has been encountered for a given file and 0 otherwise. Note that it will only return 1 if an error has already been encountered, not if the next operation will result in an error condition. --- 1443,1456 ---- @subsection End of File and Errors @deftypefn {Built-in Function} {} feof (@var{fid}) ! Return 1 if an end-of-file condition has been encountered for a given file and 0 otherwise. Note that it will only return 1 if the end of the file has already been encountered, not if the next read operation will result in an end-of-file condition. @end deftypefn @deftypefn {Built-in Function} {} ferror (@var{fid}) ! Return 1 if an error condition has been encountered for a given file and 0 otherwise. Note that it will only return 1 if an error has already been encountered, not if the next operation will result in an error condition. diff -cNr octave-2.0.4/doc/interpreter/linalg.texi octave-2.0.5/doc/interpreter/linalg.texi *** octave-2.0.4/doc/interpreter/linalg.texi Mon Feb 17 15:25:49 1997 --- octave-2.0.5/doc/interpreter/linalg.texi Fri Feb 28 21:10:38 1997 *************** *** 154,160 **** @end deftypefn @deftypefn {Function File} {} null (@var{a}, @var{tol}) ! Returns an orthonormal basis of the null space of @var{a}. The dimension of the null space is taken as the number of singular values of @var{a} not greater than @var{tol}. If the argument @var{tol} --- 154,160 ---- @end deftypefn @deftypefn {Function File} {} null (@var{a}, @var{tol}) ! Return an orthonormal basis of the null space of @var{a}. The dimension of the null space is taken as the number of singular values of @var{a} not greater than @var{tol}. If the argument @var{tol} *************** *** 166,172 **** @end deftypefn @deftypefn {Function File} {} orth (@var{a}, @var{tol}) ! Returns an orthonormal basis of the range space of @var{a}. The dimension of the range space is taken as the number of singular values of @var{a} greater than @var{tol}. If the argument @var{tol} is --- 166,172 ---- @end deftypefn @deftypefn {Function File} {} orth (@var{a}, @var{tol}) ! Return an orthonormal basis of the range space of @var{a}. The dimension of the range space is taken as the number of singular values of @var{a} greater than @var{tol}. If the argument @var{tol} is *************** *** 178,184 **** @end deftypefn @deftypefn {Function File} {} pinv (@var{x}, @var{tol}) ! Returns the pseudoinverse of @var{x}. Singular values less than @var{tol} are ignored. If the second argument is omitted, it is assumed that --- 178,184 ---- @end deftypefn @deftypefn {Function File} {} pinv (@var{x}, @var{tol}) ! Return the pseudoinverse of @var{x}. Singular values less than @var{tol} are ignored. If the second argument is omitted, it is assumed that *************** *** 287,293 **** @end example @end deftypefn ! @deftypefn {Loadable Function} {[@var{q}, @var{r}] =} qr (@var{a}) @cindex QR factorization Compute the QR factorization of @var{a}, using standard @sc{Lapack} subroutines. For example, given the matrix @code{a = [1, 2; 3, 4]}, --- 287,293 ---- @end example @end deftypefn ! @deftypefn {Loadable Function} {[@var{q}, @var{r}, @var{p}] =} qr (@var{a}) @cindex QR factorization Compute the QR factorization of @var{a}, using standard @sc{Lapack} subroutines. For example, given the matrix @code{a = [1, 2; 3, 4]}, *************** *** 336,348 **** @ifinfo @code{a} @end ifinfo ! is a tall, thin matrix). The @code{qr} factorization is @code{q * r = a} ! where @code{q} is an orthogonal matrix and @code{r} is upper triangular. ! The permuted @code{qr} factorization @code{[q, r, pi] = qr (a)} forms ! the @code{qr} factorization such that the diagonal entries of @code{r} ! are decreasing in magnitude order. For example, given the matrix ! @code{a = [1, 2; 3, 4]}, @example [q, r, pi] = qr(a) --- 336,356 ---- @ifinfo @code{a} @end ifinfo ! is a tall, thin matrix). The QR factorization is ! @iftex ! @tex ! $QR = A$ where $Q$ is an orthogonal matrix and $R$ is upper triangular. ! @end tex ! @end iftex ! @ifinfo ! @code{q * r = a} where @code{q} is an orthogonal matrix and @code{r} is ! upper triangular. ! @end ifinfo ! The permuted QR factorization @code{[@var{q}, @var{r}, @var{p}] = ! qr (@var{a})} forms the QR factorization such that the diagonal ! entries of @code{r} are decreasing in magnitude order. For example, ! given the matrix @code{a = [1, 2; 3, 4]}, @example [q, r, pi] = qr(a) *************** *** 368,379 **** 1 0 @end example ! The permuted @code{qr} factorization @code{[q, r, pi] = qr (a)} factorization allows the construction of an orthogonal basis of @code{span (a)}. @end deftypefn ! @deftypefn {Loadable Function} {@var{s}} schur (@var{a}) @deftypefnx {Loadable Function} {[@var{u}, @var{s}] =} schur (@var{a}, @var{opt}) @cindex Schur decomposition The Schur decomposition is used to compute eigenvalues of a --- 376,387 ---- 1 0 @end example ! The permuted @code{qr} factorization @code{[q, r, p] = qr (a)} factorization allows the construction of an orthogonal basis of @code{span (a)}. @end deftypefn ! @deftypefn {Loadable Function} {@var{s} =} schur (@var{a}) @deftypefnx {Loadable Function} {[@var{u}, @var{s}] =} schur (@var{a}, @var{opt}) @cindex Schur decomposition The Schur decomposition is used to compute eigenvalues of a *************** *** 663,670 **** @section Functions of a Matrix @deftypefn {Loadable Function} {} expm (@var{a}) ! Returns the exponential of a matrix, defined as the ! infinite Taylor series @iftex @tex $$ --- 671,678 ---- @section Functions of a Matrix @deftypefn {Loadable Function} {} expm (@var{a}) ! Return the exponential of a matrix, defined as the infinite Taylor ! series @iftex @tex $$ diff -cNr octave-2.0.4/doc/interpreter/matrix.texi octave-2.0.5/doc/interpreter/matrix.texi *** octave-2.0.4/doc/interpreter/matrix.texi Tue Feb 18 01:48:28 1997 --- octave-2.0.5/doc/interpreter/matrix.texi Fri Feb 28 21:10:09 1997 *************** *** 161,170 **** @end deftypefn @deftypefn {Loadable Function} {} find (@var{x}) ! The function @code{find} returns a vector of indices of nonzero elements ! of a matrix. To obtain a single index for each matrix element, Octave ! pretends that the columns of a matrix form one long vector (like Fortran ! arrays are stored). For example, @example @group --- 161,170 ---- @end deftypefn @deftypefn {Loadable Function} {} find (@var{x}) ! Return a vector of indices of nonzero elements of a matrix. To obtain a ! single index for each matrix element, Octave pretends that the columns ! of a matrix form one long vector (like Fortran arrays are stored). For ! example, @example @group *************** *** 235,241 **** @end deftypefn @deftypefn {Function File} {} rot90 (@var{x}, @var{n}) ! Returns a copy of @var{x} with the elements rotated counterclockwise in 90-degree increments. The second argument is optional, and specifies how many 90-degree rotations are to be applied (the default value is 1). Negative values of @var{n} rotate the matrix in a clockwise direction. --- 235,241 ---- @end deftypefn @deftypefn {Function File} {} rot90 (@var{x}, @var{n}) ! Return a copy of @var{x} with the elements rotated counterclockwise in 90-degree increments. The second argument is optional, and specifies how many 90-degree rotations are to be applied (the default value is 1). Negative values of @var{n} rotate the matrix in a clockwise direction. *************** *** 305,312 **** If @var{x} is a matrix, do the same for each column of @var{x}. @end deftypefn ! @deftypefn {Loadable Function} {[s, i] =} sort (@var{x}) ! Returns a copy of @var{x} with the elements elements arranged in increasing order. For matrices, @code{sort} orders the elements in each column. --- 305,312 ---- If @var{x} is a matrix, do the same for each column of @var{x}. @end deftypefn ! @deftypefn {Loadable Function} {[@var{s}, @var{i}] =} sort (@var{x}) ! Return a copy of @var{x} with the elements elements arranged in increasing order. For matrices, @code{sort} orders the elements in each column. *************** *** 365,371 **** @deftypefn {Function File} {} tril (@var{a}, @var{k}) @deftypefnx {Function File} {} triu (@var{a}, @var{k}) ! Return a new matrix form by extracting extract the lower (@code{tril}) or upper (@code{triu}) triangular part of the matrix @var{a}, and setting all other elements to zero. The second argument is optional, and specifies how many diagonals above or below the main diagonal should --- 365,371 ---- @deftypefn {Function File} {} tril (@var{a}, @var{k}) @deftypefnx {Function File} {} triu (@var{a}, @var{k}) ! Return a new matrix formed by extracting extract the lower (@code{tril}) or upper (@code{triu}) triangular part of the matrix @var{a}, and setting all other elements to zero. The second argument is optional, and specifies how many diagonals above or below the main diagonal should *************** *** 409,422 **** @end deftypefn @deftypefn {Function File} {} vec (@var{x}) ! For a matrix @var{x}, returns the vector obtained by stacking the ! columns of @var{x} one above the other. @end deftypefn @deftypefn {Function File} {} vech (@var{x}) ! For a square matrix @var{x}, returns the vector obtained from @var{x} ! by eliminating all supradiagonal elements and stacking the result ! one column above the other. @end deftypefn @node Special Utility Matrices, Famous Matrices, Rearranging Matrices, Matrix Manipulation --- 409,422 ---- @end deftypefn @deftypefn {Function File} {} vec (@var{x}) ! Return the vector obtained by stacking the columns of the matrix @var{x} ! one above the other. @end deftypefn @deftypefn {Function File} {} vech (@var{x}) ! Return the vector obtained by eliminating all supradiagonal elements of ! the square matrix @var{x} and stacking the result one column above the ! other. @end deftypefn @node Special Utility Matrices, Famous Matrices, Rearranging Matrices, Matrix Manipulation *************** *** 424,430 **** @deftypefn {Built-in Function} {} eye (@var{x}) @deftypefnx {Built-in Function} {} eye (@var{n}, @var{m}) ! Returns an identity matrix. If invoked with a single scalar argument, @code{eye} returns a square matrix with the dimension specified. If you supply two scalar arguments, @code{eye} takes them to be the number of rows and columns. If given a vector with two elements, @code{eye} uses --- 424,430 ---- @deftypefn {Built-in Function} {} eye (@var{x}) @deftypefnx {Built-in Function} {} eye (@var{n}, @var{m}) ! Return an identity matrix. If invoked with a single scalar argument, @code{eye} returns a square matrix with the dimension specified. If you supply two scalar arguments, @code{eye} takes them to be the number of rows and columns. If given a vector with two elements, @code{eye} uses *************** *** 459,465 **** @deftypefn {Built-in Function} {} ones (@var{x}) @deftypefnx {Built-in Function} {} ones (@var{n}, @var{m}) ! Returns a matrix whose elements are all 1. The arguments are handled the same as the arguments for @code{eye}. If you need to create a matrix whose values are all the same, you should --- 459,465 ---- @deftypefn {Built-in Function} {} ones (@var{x}) @deftypefnx {Built-in Function} {} ones (@var{n}, @var{m}) ! Return a matrix whose elements are all 1. The arguments are handled the same as the arguments for @code{eye}. If you need to create a matrix whose values are all the same, you should *************** *** 472,485 **** @deftypefn {Built-in Function} {} zeros (@var{x}) @deftypefnx {Built-in Function} {} zeros (@var{n}, @var{m}) ! Returns a matrix whose elements are all 0. The arguments are handled the same as the arguments for @code{eye}. @end deftypefn @deftypefn {Loadable Function} {} rand (@var{x}) @deftypefnx {Loadable Function} {} rand (@var{n}, @var{m}) @deftypefnx {Loadable Function} {} rand (@code{"seed"}, @var{x}) ! Returns a matrix with random elements uniformly distributed on the interval (0, 1). The arguments are handled the same as the arguments for @code{eye}. In addition, you can set the seed for the random number generator using the --- 472,485 ---- @deftypefn {Built-in Function} {} zeros (@var{x}) @deftypefnx {Built-in Function} {} zeros (@var{n}, @var{m}) ! Return a matrix whose elements are all 0. The arguments are handled the same as the arguments for @code{eye}. @end deftypefn @deftypefn {Loadable Function} {} rand (@var{x}) @deftypefnx {Loadable Function} {} rand (@var{n}, @var{m}) @deftypefnx {Loadable Function} {} rand (@code{"seed"}, @var{x}) ! Return a matrix with random elements uniformly distributed on the interval (0, 1). The arguments are handled the same as the arguments for @code{eye}. In addition, you can set the seed for the random number generator using the *************** *** 503,509 **** @deftypefn {Loadable Function} {} randn (@var{x}) @deftypefnx {Loadable Function} {} randn (@var{n}, @var{m}) @deftypefnx {Loadable Function} {} randn (@code{"seed"}, @var{x}) ! Returns a matrix with normally distributed random elements. The arguments are handled the same as the arguments for @code{eye}. In addition, you can set the seed for the random number generator using the form --- 503,509 ---- @deftypefn {Loadable Function} {} randn (@var{x}) @deftypefnx {Loadable Function} {} randn (@var{n}, @var{m}) @deftypefnx {Loadable Function} {} randn (@code{"seed"}, @var{x}) ! Return a matrix with normally distributed random elements. The arguments are handled the same as the arguments for @code{eye}. In addition, you can set the seed for the random number generator using the form *************** *** 570,576 **** Houston, TX 77030. @deftypefn {Built-in Function} {} diag (@var{v}, @var{k}) ! Returns a diagonal matrix with vector @var{v} on diagonal @var{k}. The second argument is optional. If it is positive, the vector is placed on the @var{k}-th super-diagonal. If it is negative, it is placed on the @var{-k}-th sub-diagonal. The default value of @var{k} is 0, and the --- 570,576 ---- Houston, TX 77030. @deftypefn {Built-in Function} {} diag (@var{v}, @var{k}) ! Return a diagonal matrix with vector @var{v} on diagonal @var{k}. The second argument is optional. If it is positive, the vector is placed on the @var{k}-th super-diagonal. If it is negative, it is placed on the @var{-k}-th sub-diagonal. The default value of @var{k} is 0, and the diff -cNr octave-2.0.4/doc/interpreter/octave.texi octave-2.0.5/doc/interpreter/octave.texi *** octave-2.0.4/doc/interpreter/octave.texi Wed Feb 19 22:41:57 1997 --- octave-2.0.5/doc/interpreter/octave.texi Fri Feb 28 20:38:06 1997 *************** *** 260,265 **** --- 260,266 ---- Statements * The if Statement:: + * The switch Statement:: * The while Statement:: * The for Statement:: * The break Statement:: diff -cNr octave-2.0.4/doc/interpreter/poly.texi octave-2.0.5/doc/interpreter/poly.texi *** octave-2.0.4/doc/interpreter/poly.texi Mon Feb 17 00:10:26 1997 --- octave-2.0.5/doc/interpreter/poly.texi Fri Feb 28 21:08:01 1997 *************** *** 101,112 **** @end deftypefn @deftypefn {Function File} {} polyderiv (@var{c}) ! Returns the coefficients of the derivative of the polynomial whose coefficients are given by vector @var{c}. @end deftypefn @deftypefn {Function File} {} polyfit (@var{n}, @var{y}, @var{n}) ! Returns the coefficients of a polynomial @var{p}(@var{x}) of degree @var{n} that minimizes @iftex @tex --- 101,112 ---- @end deftypefn @deftypefn {Function File} {} polyderiv (@var{c}) ! Return the coefficients of the derivative of the polynomial whose coefficients are given by vector @var{c}. @end deftypefn @deftypefn {Function File} {} polyfit (@var{n}, @var{y}, @var{n}) ! Return the coefficients of a polynomial @var{p}(@var{x}) of degree @var{n} that minimizes @iftex @tex *************** *** 122,128 **** @end deftypefn @deftypefn {Function File} {} polyinteg (@var{c}) ! Returns the coefficients of the integral the polynomial whose coefficients are represented by the vector @var{c}. The constant of integration is set to zero. --- 122,128 ---- @end deftypefn @deftypefn {Function File} {} polyinteg (@var{c}) ! Return the coefficients of the integral the polynomial whose coefficients are represented by the vector @var{c}. The constant of integration is set to zero. diff -cNr octave-2.0.4/doc/interpreter/set.texi octave-2.0.5/doc/interpreter/set.texi *** octave-2.0.4/doc/interpreter/set.texi Mon Feb 17 00:08:40 1997 --- octave-2.0.5/doc/interpreter/set.texi Fri Feb 28 21:07:17 1997 *************** *** 9,17 **** set is defined as a collection unique elements. @deftypefn {Function File} {} create_set (@var{x}) ! Given a matrix or vector of values, the function @code{create_set} ! returns a row vector containing unique values, sorted in ascending ! order. For example, @example @group --- 9,16 ---- set is defined as a collection unique elements. @deftypefn {Function File} {} create_set (@var{x}) ! Return a row vector containing the unique values in @var{x}, sorted in ! ascending order. For example, @example @group *************** *** 27,34 **** @example @group ! union ([ 1, 2, 3 ], [ 2, 3, 5 ]) ! @result{} [ 1, 2, 5 ] @end group @end example @end deftypefn --- 26,33 ---- @example @group ! union ([ 1, 2, 4 ], [ 2, 3, 5 ]) ! @result{} [ 1, 2, 3, 4, 5 ] @end group @end example @end deftypefn *************** *** 46,52 **** @end deftypefn @deftypefn {Function File} {} complement (@var{x}, @var{y}) ! Returns the elements of set @var{y} that are not in set @var{x}. For example, @example --- 45,51 ---- @end deftypefn @deftypefn {Function File} {} complement (@var{x}, @var{y}) ! Return the elements of set @var{y} that are not in set @var{x}. For example, @example diff -cNr octave-2.0.4/doc/interpreter/signal.texi octave-2.0.5/doc/interpreter/signal.texi *** octave-2.0.4/doc/interpreter/signal.texi Mon Feb 17 00:47:35 1997 --- octave-2.0.5/doc/interpreter/signal.texi Fri Feb 28 21:06:18 1997 *************** *** 62,72 **** @end deftypefn @deftypefn {Built-in Function} {} fftconv (@var{a}, @var{b}, @var{n}) ! This function returns the convolution of the vectors @var{a} and ! @var{b}, a vector with length equal to the @code{length (a) + length (b) ! - 1}. If @var{a} and @var{b} are the coefficient vectors of two ! polynomials, the returned value is the coefficient vector of the product ! polynomial. The computation uses the FFT by calling the function @code{fftfilt}. If the optional argument @var{n} is specified, an N-point FFT is used. --- 62,71 ---- @end deftypefn @deftypefn {Built-in Function} {} fftconv (@var{a}, @var{b}, @var{n}) ! Return the convolution of the vectors @var{a} and @var{b}, as a vector ! with length equal to the @code{length (a) + length (b) - 1}. If @var{a} ! and @var{b} are the coefficient vectors of two polynomials, the returned ! value is the coefficient vector of the product polynomial. The computation uses the FFT by calling the function @code{fftfilt}. If the optional argument @var{n} is specified, an N-point FFT is used. *************** *** 82,89 **** @end deftypefn @deftypefn {Loadable Function} {y =} filter (@var{b}, @var{a}, @var{x}) ! This function returns the solution to the following linear, ! time-invariant difference equation: @iftex @tex $$ --- 81,88 ---- @end deftypefn @deftypefn {Loadable Function} {y =} filter (@var{b}, @var{a}, @var{x}) ! Return the solution to the following linear, time-invariant difference ! equation: @iftex @tex $$ diff -cNr octave-2.0.4/doc/interpreter/stats.texi octave-2.0.5/doc/interpreter/stats.texi *** octave-2.0.4/doc/interpreter/stats.texi Mon Feb 17 00:47:29 1997 --- octave-2.0.5/doc/interpreter/stats.texi Fri Feb 28 21:05:09 1997 *************** *** 34,40 **** $$ {\rm median} (x) = \cases{x(\lceil N/2\rceil), & $N$ odd;\cr ! (x(N/2)+x((N/2)+1))/2, & $N$ even.} $$ @end tex @end iftex --- 34,40 ---- $$ {\rm median} (x) = \cases{x(\lceil N/2\rceil), & $N$ odd;\cr ! (x(N/2)+x(N/2+1))/2, & $N$ even.} $$ @end tex @end iftex *************** *** 74,80 **** each column and return them in a row vector. @end deftypefn ! @deftypefn {Function File} {} cov (@var{x} [, @var{y}]) If each row of @var{x} and @var{y} is an observation and each column is a variable, the (@var{i},@var{j})-th entry of @code{cov (@var{x}, @var{y})} is the covariance between the @var{i}-th --- 74,80 ---- each column and return them in a row vector. @end deftypefn ! @deftypefn {Function File} {} cov (@var{x}, @var{y}) If each row of @var{x} and @var{y} is an observation and each column is a variable, the (@var{i},@var{j})-th entry of @code{cov (@var{x}, @var{y})} is the covariance between the @var{i}-th *************** *** 82,88 **** with one argument, compute @code{cov (@var{x}, @var{x})}. @end deftypefn ! @deftypefn {Function File} {} corrcoef (@var{x} [, @var{y}]) If each row of @var{x} and @var{y} is an observation and each column is a variable, the (@var{i},@var{j})-th entry of @code{corrcoef (@var{x}, @var{y})} is the correlation between the --- 82,88 ---- with one argument, compute @code{cov (@var{x}, @var{x})}. @end deftypefn ! @deftypefn {Function File} {} corrcoef (@var{x}, @var{y}) If each row of @var{x} and @var{y} is an observation and each column is a variable, the (@var{i},@var{j})-th entry of @code{corrcoef (@var{x}, @var{y})} is the correlation between the *************** *** 112,120 **** @end deftypefn @deftypefn {Function File} {} mahalanobis (@var{x}, @var{y}) ! Returns Mahalanobis' D-square distance between the multivariate samples ! @var{x} and @var{y}, which must have the same number of components ! (columns), but may have a different number of observations (rows). @end deftypefn @deftypefn {Function File} {} skewness (@var{x}) --- 112,121 ---- @end deftypefn @deftypefn {Function File} {} mahalanobis (@var{x}, @var{y}) ! Return the Mahalanobis' D-square distance between the multivariate ! samples @var{x} and @var{y}, which must have the same number of ! components (columns), but may have a different number of observations ! (rows). @end deftypefn @deftypefn {Function File} {} skewness (@var{x}) *************** *** 122,128 **** @iftex @tex $$ ! {\rm skewness} (x) = {1\over N \sigma(x)^3} \sum_{i=1}^N (x_i)-\bar{x})^3 $$ @end tex @end iftex --- 123,129 ---- @iftex @tex $$ ! {\rm skewness} (x) = {1\over N \sigma(x)^3} \sum_{i=1}^N (x_i-\bar{x})^3 $$ @end tex @end iftex diff -cNr octave-2.0.4/doc/interpreter/stmt.texi octave-2.0.5/doc/interpreter/stmt.texi *** octave-2.0.4/doc/interpreter/stmt.texi Tue Feb 18 01:49:07 1997 --- octave-2.0.5/doc/interpreter/stmt.texi Fri Feb 28 20:51:15 1997 *************** *** 33,38 **** --- 33,39 ---- @menu * The if Statement:: + * The switch Statement:: * The while Statement:: * The for Statement:: * The break Statement:: *************** *** 42,48 **** * Continuation Lines:: @end menu ! @node The if Statement, The while Statement, Statements, Statements @section The @code{if} Statement @cindex @code{if} statement @cindex @code{else} statement --- 43,49 ---- * Continuation Lines:: @end menu ! @node The if Statement, The switch Statement, Statements, Statements @section The @code{if} Statement @cindex @code{if} statement @cindex @code{else} statement *************** *** 253,259 **** The default value of @code{warn_assign_as_truth_value} is 1. @end defvr ! @node The while Statement, The for Statement, The if Statement, Statements @section The @code{while} Statement @cindex @code{while} statement @cindex @code{endwhile} statement --- 254,357 ---- The default value of @code{warn_assign_as_truth_value} is 1. @end defvr ! @node The switch Statement, The while Statement, The if Statement, Statements ! @section The @code{switch} Statement ! @cindex @code{switch} statement ! @cindex @code{case} statement ! @cindex @code{otherwise} statement ! @cindex @code{endswitch} statement ! ! The @code{switch} statement was introduced in Octave 2.0.5. It should ! be considered experimental, and details of the implementation may change ! slightly in future versions of Octave. If you have comments or would ! like to share your experiences in trying to use this new command in real ! programs, please send them to ! @email{octave-maintainers@@bevo.che.wisc.edu}. (But if you think you've ! found a bug, please report it to @email{bug-octave@@bevo.che.wisc.edu}. ! ! The general form of the @code{switch} statement is ! ! @example ! @group ! switch @var{expression} ! case @var{label} ! @var{command_list} ! case @var{label} ! @var{command_list} ! @dots{} ! ! otherwise ! @var{command_list} ! endswitch ! @end group ! @end example ! ! @itemize @bullet ! @item ! The identifiers @code{switch}, @code{case}, @code{otherwise}, and ! @code{endswitch} are now keywords. ! ! @item ! The @var{label} may be any expression. ! ! @item ! Duplicate @var{label} values are not detected. The @var{command_list} ! corresponding to the first match will be executed. ! ! @item ! You must have at least one @code{case @var{label} @var{command_list}} ! clause. ! ! @item ! The @code{otherwise @var{command_list}} clause is optional. ! ! @item ! As with all other specific @code{end} keywords, @code{endswitch} may be ! replaced by @code{end}, but you can get better diagnostics if you use ! the specific forms. ! ! @item ! Cases are exclusive, so they don't `fall through' as do the cases ! in the switch statement of the C language. ! ! @item ! The @var{command_list} elements are not optional. Making the list ! optional would have meant requiring a separator between the label and ! the command list. Otherwise, things like ! ! @example ! @group ! switch (foo) ! case (1) -2 ! @dots{} ! @end group ! @end example ! ! @noindent ! would produce surprising results, as would ! ! @example ! @group ! switch (foo) ! case (1) ! case (2) ! doit (); ! @dots{} ! @end group ! @end example ! ! @noindent ! particularly for C programmers. ! ! @item ! The implementation is simple-minded and currently offers no real ! performance improvement over an equivalent @code{if} block, even if all ! the labels are integer constants. Perhaps a future variation on this ! could detect all constant integer labels and improve performance by ! using a jump table. ! @end itemize ! ! @node The while Statement, The for Statement, The switch Statement, Statements @section The @code{while} Statement @cindex @code{while} statement @cindex @code{endwhile} statement diff -cNr octave-2.0.4/doc/interpreter/strings.texi octave-2.0.5/doc/interpreter/strings.texi *** octave-2.0.4/doc/interpreter/strings.texi Tue Feb 18 01:47:05 1997 --- octave-2.0.5/doc/interpreter/strings.texi Fri Feb 28 21:04:56 1997 *************** *** 123,129 **** @section Creating Strings @deftypefn {Function File} {} blanks (@var{n}) ! Returns a string of @var{n} blanks. @end deftypefn @deftypefn {Function File} {} int2str (@var{n}) --- 123,129 ---- @section Creating Strings @deftypefn {Function File} {} blanks (@var{n}) ! Return a string of @var{n} blanks. @end deftypefn @deftypefn {Function File} {} int2str (@var{n}) *************** *** 154,161 **** s = [ "ab"; "cde" ] strcat (s, s, s) ! @result{} "ab ab ab " ! "cdecdecde" @end group @end example @end deftypefn --- 154,161 ---- s = [ "ab"; "cde" ] strcat (s, s, s) ! @result{} "ab ab ab " ! "cdecdecde" @end group @end example @end deftypefn *************** *** 170,188 **** string_fill_char = "X"; [ "these"; "are"; "strings" ] @result{} "theseXX" ! @result{} "areXXXX" ! @result{} "strings" @end group @end example @end defvr @deftypefn {Function File} {} str2mat (@var{s_1}, @dots{}, @var{s_n}) ! Returns a matrix containing the strings @var{s_1}, @dots{}, @var{s_n} as its rows. Each string is padded with blanks in order to form a valid matrix. @strong{Note:} ! This function is modelled after @sc{MATLAB}. In Octave, you can create a matrix of strings by @code{[@var{s_1}; @dots{}; @var{s_n}]} even if the strings are not all the same length. @end deftypefn --- 170,188 ---- string_fill_char = "X"; [ "these"; "are"; "strings" ] @result{} "theseXX" ! "areXXXX" ! "strings" @end group @end example @end defvr @deftypefn {Function File} {} str2mat (@var{s_1}, @dots{}, @var{s_n}) ! Return a matrix containing the strings @var{s_1}, @dots{}, @var{s_n} as its rows. Each string is padded with blanks in order to form a valid matrix. @strong{Note:} ! This function is modelled after @sc{Matlab}. In Octave, you can create a matrix of strings by @code{[@var{s_1}; @dots{}; @var{s_n}]} even if the strings are not all the same length. @end deftypefn *************** *** 199,205 **** @end deftypefn @deftypefn {Function File} {} findstr (@var{s}, @var{t}, @var{overlap}) ! Returns the vector of all positions in the longer of the two strings @var{s} and @var{t} where an occurrence of the shorter of the two starts. If the optional argument @var{overlap} is nonzero, the returned vector can include overlapping positions (this is the default). For example, --- 199,205 ---- @end deftypefn @deftypefn {Function File} {} findstr (@var{s}, @var{t}, @var{overlap}) ! Return the vector of all positions in the longer of the two strings @var{s} and @var{t} where an occurrence of the shorter of the two starts. If the optional argument @var{overlap} is nonzero, the returned vector can include overlapping positions (this is the default). For example, *************** *** 213,219 **** @end deftypefn @deftypefn {Function File} {} index (@var{s}, @var{t}) ! Returns the position of the first occurrence of the string @var{t} in the string @var{s}, or 0 if no occurrence is found. For example, @example --- 213,219 ---- @end deftypefn @deftypefn {Function File} {} index (@var{s}, @var{t}) ! Return the position of the first occurrence of the string @var{t} in the string @var{s}, or 0 if no occurrence is found. For example, @example *************** *** 225,231 **** @end deftypefn @deftypefn {Function File} {} rindex (@var{s}, @var{t}) ! Returns the position of the last occurrence of the string @var{t} in the string @var{s}, or 0 if no occurrence is found. For example, @example --- 225,231 ---- @end deftypefn @deftypefn {Function File} {} rindex (@var{s}, @var{t}) ! Return the position of the last occurrence of the string @var{t} in the string @var{s}, or 0 if no occurrence is found. For example, @example *************** *** 268,274 **** @end deftypefn @deftypefn {Function File} {} substr (@var{s}, @var{beg}, @var{len}) ! Returns the substring of @var{s} which starts at character number @var{beg} and is @var{len} characters long. For example, @example --- 268,274 ---- @end deftypefn @deftypefn {Function File} {} substr (@var{s}, @var{beg}, @var{len}) ! Return the substring of @var{s} which starts at character number @var{beg} and is @var{len} characters long. For example, @example *************** *** 287,294 **** @section String Conversions @deftypefn {Function File} {} bin2dec (@var{s}) ! Given a binary number represented as a string of zeros and ones, ! returns the corresponding decimal number. For example, @example bin2dec ("1110") --- 287,294 ---- @section String Conversions @deftypefn {Function File} {} bin2dec (@var{s}) ! Return a decimal number corresponding to the the binary number ! represented as a string of zeros and ones. For example, @example bin2dec ("1110") *************** *** 297,304 **** @end deftypefn @deftypefn {Function File} {} dec2bin (@var{n}) ! Given a nonnegative integer, returns the corresponding binary number as ! a string of ones and zeros. For example, @example dec2bin (14) --- 297,304 ---- @end deftypefn @deftypefn {Function File} {} dec2bin (@var{n}) ! Return a binary number corresponding the the nonnegative decimal number ! @var{n}, as a string of ones and zeros. For example, @example dec2bin (14) *************** *** 307,314 **** @end deftypefn @deftypefn {Function File} {} dec2hex (@var{n}) ! Given a nonnegative integer, returns the corresponding hexadecimal ! number as a string. For example, @example dec2hex (2748) --- 307,314 ---- @end deftypefn @deftypefn {Function File} {} dec2hex (@var{n}) ! Return the hexadecimal number corresponding to the nonnegative decimal ! number @var{n}, as a string. For example, @example dec2hex (2748) *************** *** 317,324 **** @end deftypefn @deftypefn {Function File} {} hex2dec (@var{s}) ! Given a hexadecimal number represented as a string, returns the ! corresponding decimal number. For example, @example hex2dec ("12B") --- 317,324 ---- @end deftypefn @deftypefn {Function File} {} hex2dec (@var{s}) ! Return the decimal number corresponding to the hexadecimal number stored ! in the string @var{s}. For example, @example hex2dec ("12B") *************** *** 356,362 **** @end deftypefn @deftypefn {Function File} {} toupper (@var{s}) ! Returns a copy of the string @var{s}, with each lower-case character replaced by the corresponding upper-case one; nonalphabetic characters are left unchanged. For example, --- 356,362 ---- @end deftypefn @deftypefn {Function File} {} toupper (@var{s}) ! Return a copy of the string @var{s}, with each lower-case character replaced by the corresponding upper-case one; nonalphabetic characters are left unchanged. For example, *************** *** 418,469 **** @end example @deftypefn {Mapping Function} {} isalnum (@var{s}) ! Returns true for characters that are letters or digits (@code{isalpha (@var{a})} or @code{isdigit (@var{})} is true). @end deftypefn @deftypefn {Mapping Function} {} isalpha (@var{s}) ! Returns true for characters that are letters (@code{isupper (@var{a})} or @code{islower (@var{})} is true). @end deftypefn @deftypefn {Mapping Function} {} isascii (@var{s}) ! Returns true for characters that are ASCII (in the range 0 to 127 decimal). @end deftypefn @deftypefn {Mapping Function} {} iscntrl (@var{s}) ! Returns true for control characters. @end deftypefn @deftypefn {Mapping Function} {} isdigit (@var{s}) ! Returns true for characters that are decimal digits. @end deftypefn @deftypefn {Mapping Function} {} isgraph (@var{s}) ! Returns true for printable characters (but not the space character). @end deftypefn @deftypefn {Mapping Function} {} islower (@var{s}) ! Returns true for characters that are lower case letters. @end deftypefn @deftypefn {Mapping Function} {} isprint (@var{s}) ! Returns true for printable characters (including the space character). @end deftypefn @deftypefn {Mapping Function} {} ispunct (@var{s}) ! Returns true for punctuation characters. @end deftypefn @deftypefn {Mapping Function} {} isspace (@var{s}) ! Returns true for whitespace characters (space, formfeed, newline, carriage return, tab, and vertical tab). @end deftypefn @deftypefn {Mapping Function} {} isupper (@var{s}) ! Returns true for upper case letters. @end deftypefn @deftypefn {Mapping Function} {} isxdigit (@var{s}) ! Returns true for characters that are hexadecimal digits. @end deftypefn --- 418,469 ---- @end example @deftypefn {Mapping Function} {} isalnum (@var{s}) ! Return 1 for characters that are letters or digits (@code{isalpha (@var{a})} or @code{isdigit (@var{})} is true). @end deftypefn @deftypefn {Mapping Function} {} isalpha (@var{s}) ! Return true for characters that are letters (@code{isupper (@var{a})} or @code{islower (@var{})} is true). @end deftypefn @deftypefn {Mapping Function} {} isascii (@var{s}) ! Return 1 for characters that are ASCII (in the range 0 to 127 decimal). @end deftypefn @deftypefn {Mapping Function} {} iscntrl (@var{s}) ! Return 1 for control characters. @end deftypefn @deftypefn {Mapping Function} {} isdigit (@var{s}) ! Return 1 for characters that are decimal digits. @end deftypefn @deftypefn {Mapping Function} {} isgraph (@var{s}) ! Return 1 for printable characters (but not the space character). @end deftypefn @deftypefn {Mapping Function} {} islower (@var{s}) ! Return 1 for characters that are lower case letters. @end deftypefn @deftypefn {Mapping Function} {} isprint (@var{s}) ! Return 1 for printable characters (including the space character). @end deftypefn @deftypefn {Mapping Function} {} ispunct (@var{s}) ! Return 1 for punctuation characters. @end deftypefn @deftypefn {Mapping Function} {} isspace (@var{s}) ! Return 1 for whitespace characters (space, formfeed, newline, carriage return, tab, and vertical tab). @end deftypefn @deftypefn {Mapping Function} {} isupper (@var{s}) ! Return 1 for upper case letters. @end deftypefn @deftypefn {Mapping Function} {} isxdigit (@var{s}) ! Return 1 for characters that are hexadecimal digits. @end deftypefn diff -cNr octave-2.0.4/doc/interpreter/struct.texi octave-2.0.5/doc/interpreter/struct.texi *** octave-2.0.4/doc/interpreter/struct.texi Sun Feb 16 22:48:26 1997 --- octave-2.0.5/doc/interpreter/struct.texi Fri Feb 28 21:21:31 1997 *************** *** 185,201 **** structures. @deftypefn {Built-in Function} {} is_struct (@var{expr}) ! Returns 1 if the value of the expression @var{expr} is a structure. @end deftypefn @deftypefn {Built-in Function} {} struct_contains (@var{expr}, @var{name}) ! This function returns 1 if the expression @var{expr} is a structure and it ! includes an element named @var{name}. The first argument must be a ! structure and the second must be a string. @end deftypefn ! @deftypefn {Built-in Function} {} struct_elements (@var{expr}) ! If the expression @var{expr} is a structure, this function returns a ! list of strings naming the elements of the structure. It is an error to ! call @code{struct_elements} with an argument that is not a structure. @end deftypefn --- 185,201 ---- structures. @deftypefn {Built-in Function} {} is_struct (@var{expr}) ! Return 1 if the value of the expression @var{expr} is a structure. @end deftypefn @deftypefn {Built-in Function} {} struct_contains (@var{expr}, @var{name}) ! Return 1 if the expression @var{expr} is a structure and it includes an ! element named @var{name}. The first argument must be a structure and ! the second must be a string. @end deftypefn ! @deftypefn {Built-in Function} {} struct_elements (@var{struct}) ! Return a list of strings naming the elements of the structure ! @var{struct}. It is an error to call @code{struct_elements} with an ! argument that is not a structure. @end deftypefn diff -cNr octave-2.0.4/doc/interpreter/system.texi octave-2.0.5/doc/interpreter/system.texi *** octave-2.0.4/doc/interpreter/system.texi Wed Feb 19 12:59:58 1997 --- octave-2.0.5/doc/interpreter/system.texi Fri Feb 28 20:58:43 1997 *************** *** 122,128 **** @example @group ! locatltime (time ()) @result{} @{ usec = 0 year = 97 --- 122,128 ---- @example @group ! localtime (time ()) @result{} @{ usec = 0 year = 97 *************** *** 141,148 **** @end deftypefn @deftypefn {Loadable Function} {} mktime (@var{tm_struct}) ! Convert a time structure to the number of seconds since the epoch. For ! example, @example @group --- 141,148 ---- @end deftypefn @deftypefn {Loadable Function} {} mktime (@var{tm_struct}) ! Convert a time structure corresponding to the local time to the number ! of seconds since the epoch. For example, @example @group *************** *** 336,342 **** @end deftypefn @deftypefn {Function File} {} date () ! Returns the date as a character string in the form DD-MMM-YY. For example, @example --- 336,342 ---- @end deftypefn @deftypefn {Function File} {} date () ! Return the date as a character string in the form DD-MMM-YY. For example, @example *************** *** 858,864 **** system-dependent error message. @end deftypefn ! @deftypefn {Built-in Function} {[fid, msg] =} dup2 (@var{old}, @var{new}) Duplicate a file descriptor. If successful, @var{fid} is greater than zero and contains the new file --- 858,864 ---- system-dependent error message. @end deftypefn ! @deftypefn {Built-in Function} {[@var{fid}, @var{msg}] =} dup2 (@var{old}, @var{new}) Duplicate a file descriptor. If successful, @var{fid} is greater than zero and contains the new file *************** *** 992,998 **** @section Environment Variables @deftypefn {Built-in Function} {} getenv (@var{var}) ! Returns the value of the environment variable @var{var}. For example, @example getenv ("PATH") --- 992,998 ---- @section Environment Variables @deftypefn {Built-in Function} {} getenv (@var{var}) ! Return the value of the environment variable @var{var}. For example, @example getenv ("PATH") *************** *** 1024,1030 **** @end deffn @deftypefn {Built-in Function} {} pwd () ! Returns the current working directory. @end deftypefn @defvr {Built-in Variable} PWD --- 1024,1030 ---- @end deffn @deftypefn {Built-in Function} {} pwd () ! Return the current working directory. @end deftypefn @defvr {Built-in Variable} PWD *************** *** 1130,1147 **** In the descriptions of the following functions, this data structure is referred to as a @var{grp_struct}. ! @deftypefn {Loadable Function} {grp_struct =} getgrent () Return an entry from the group database, opening it if necessary. Once the end of the data has been reached, @code{getgrent} returns 0. @end deftypefn ! @deftypefn {Loadable Function} {grp_struct =} getgrgid (@var{gid}). Return the first entry from the group database with the group ID @var{gid}. If the group ID does not exist in the database, @code{getgrgid} returns 0. @end deftypefn ! @deftypefn {Loadable Function} {grp_struct =} getgrnam (@var{name}) Return the first entry from the group database with the group name @var{name}. If the group name does not exist in the database, @code{getgrname} returns 0. --- 1130,1147 ---- In the descriptions of the following functions, this data structure is referred to as a @var{grp_struct}. ! @deftypefn {Loadable Function} {@var{grp_struct} =} getgrent () Return an entry from the group database, opening it if necessary. Once the end of the data has been reached, @code{getgrent} returns 0. @end deftypefn ! @deftypefn {Loadable Function} {@var{grp_struct} =} getgrgid (@var{gid}). Return the first entry from the group database with the group ID @var{gid}. If the group ID does not exist in the database, @code{getgrgid} returns 0. @end deftypefn ! @deftypefn {Loadable Function} {@var{grp_struct} =} getgrnam (@var{name}) Return the first entry from the group database with the group name @var{name}. If the group name does not exist in the database, @code{getgrname} returns 0. *************** *** 1181,1187 **** @end deftypefn @deftypefn {Built-in Function} {} version () ! Returns Octave's version number as a string. This is also the value of the built-in variable @code{OCTAVE_VERSION}. @end deftypefn --- 1181,1187 ---- @end deftypefn @deftypefn {Built-in Function} {} version () ! Return Octave's version number as a string. This is also the value of the built-in variable @code{OCTAVE_VERSION}. @end deftypefn diff -cNr octave-2.0.4/doc/interpreter/var.texi octave-2.0.5/doc/interpreter/var.texi *** octave-2.0.4/doc/interpreter/var.texi Wed Feb 19 13:08:44 1997 --- octave-2.0.5/doc/interpreter/var.texi Fri Feb 28 01:21:52 1997 *************** *** 353,358 **** --- 353,363 ---- Default value: @code{[]}. + @item default_save_format + @xref{Simple File I/O}. + + Default value: @code{"ascii"}. + @item do_fortran_indexing @xref{Index Expressions}. diff -cNr octave-2.0.4/doc/liboctave/Makefile.in octave-2.0.5/doc/liboctave/Makefile.in *** octave-2.0.4/doc/liboctave/Makefile.in Wed Feb 19 22:43:24 1997 --- octave-2.0.5/doc/liboctave/Makefile.in Wed Feb 26 12:06:17 1997 *************** *** 73,80 **** mostlyclean clean: rm -f liboctave.cp liboctave.fn liboctave.pg liboctave.tp \ ! liboctave.cps liboctave.fns liboctave.pgs liboctave.tps \ ! liboctave.aux liboctave.log liboctave.toc .PHONY: mostlyclean clean distclean: clean --- 73,82 ---- mostlyclean clean: rm -f liboctave.cp liboctave.fn liboctave.pg liboctave.tp \ ! liboctave.vr liboctave.ky liboctave.op liboctave.vrs \ ! liboctave.kys liboctave.ops liboctave.cps liboctave.fns \ ! liboctave.pgs liboctave.tps liboctave.aux liboctave.log \ ! liboctave.toc .PHONY: mostlyclean clean distclean: clean diff -cNr octave-2.0.4/doc/refcard/Makefile.in octave-2.0.5/doc/refcard/Makefile.in *** octave-2.0.4/doc/refcard/Makefile.in Fri Jan 24 22:37:22 1997 --- octave-2.0.5/doc/refcard/Makefile.in Wed Feb 26 12:29:17 1997 *************** *** 51,64 **** refcard-letter.ps: refcard-letter.dvi -dvips -T 11in,8.5in -o refcard-letter.ps refcard-letter.dvi ! check install uninstall mostlyclean clean: ! .PHONY: check install uninstall mostlyclean clean tags: $(SOURCES) ctags $(SOURCES) TAGS: $(SOURCES) etags $(SOURCES) distclean: clean rm -f Makefile --- 51,68 ---- refcard-letter.ps: refcard-letter.dvi -dvips -T 11in,8.5in -o refcard-letter.ps refcard-letter.dvi ! check install uninstall: ! .PHONY: check install uninstall tags: $(SOURCES) ctags $(SOURCES) TAGS: $(SOURCES) etags $(SOURCES) + + mostlyclean clean: + rm -f refcard-*.log + .PHONY: mostlyclean clean distclean: clean rm -f Makefile diff -cNr octave-2.0.4/doc/texinfo.tex octave-2.0.5/doc/texinfo.tex *** octave-2.0.4/doc/texinfo.tex Tue Feb 18 03:08:50 1997 --- octave-2.0.5/doc/texinfo.tex Fri Feb 28 20:54:43 1997 *************** *** 1,5 **** %% TeX macros to handle Texinfo files. ! %% $Id: texinfo.tex,v 1.4 1997/02/18 09:08:50 jwe Exp $ % Copyright (C) 1985, 86, 88, 90, 91, 92, 93, % 94, 95, 96, 97 Free Software Foundation, Inc. --- 1,5 ---- %% TeX macros to handle Texinfo files. ! %% $Id: texinfo.tex,v 1.6 1997/03/01 02:54:43 jwe Exp $ % Copyright (C) 1985, 86, 88, 90, 91, 92, 93, % 94, 95, 96, 97 Free Software Foundation, Inc. *************** *** 36,42 **** % This automatically updates the version number based on RCS. \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}} ! \deftexinfoversion$Revision: 1.4 $ \message{Loading texinfo package [Version \texinfoversion]:} % If in a .fmt file, print the version number --- 36,42 ---- % This automatically updates the version number based on RCS. \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}} ! \deftexinfoversion$Revision: 1.6 $ \message{Loading texinfo package [Version \texinfoversion]:} % If in a .fmt file, print the version number *************** *** 951,957 **** % At the `@end #1', redefine \E#1 to be its previous value. \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}% }% ! \temp} % We need to expand lots of \csname's, but we don't want to expand the % control sequences after we've constructed them. --- 951,958 ---- % At the `@end #1', redefine \E#1 to be its previous value. \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}% }% ! \temp ! } % We need to expand lots of \csname's, but we don't want to expand the % control sequences after we've constructed them. *************** *** 1328,1334 **** \def\realdash{-} \def\codedash{-\discretionary{}{}{}} ! \def\codeunder{\normalunderscore\discretionary{}{}{}} \def\codex #1{\tclose{#1}\endgroup} %\let\exp=\tclose %Was temporary --- 1329,1335 ---- \def\realdash{-} \def\codedash{-\discretionary{}{}{}} ! \def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}} \def\codex #1{\tclose{#1}\endgroup} %\let\exp=\tclose %Was temporary *************** *** 3392,3400 **** \let\}=\ptexrbrace \let\.=\ptexdot \let\*=\ptexstar ! \let\dots=\ptexdots% ! \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}% ! \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}% \def\@{@}% \let\bullet=\ptexbullet \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext --- 3393,3401 ---- \let\}=\ptexrbrace \let\.=\ptexdot \let\*=\ptexstar ! \let\dots=\ptexdots ! \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}} ! \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi} \def\@{@}% \let\bullet=\ptexbullet \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext diff -cNr octave-2.0.4/emacs/octave-mod.el octave-2.0.5/emacs/octave-mod.el *** octave-2.0.4/emacs/octave-mod.el Wed Jan 22 10:09:12 1997 --- octave-2.0.5/emacs/octave-mod.el Fri Feb 28 22:08:33 1997 *************** *** 55,60 **** --- 55,61 ---- (define-abbrev-table 'octave-abbrev-table ()) (define-abbrev octave-abbrev-table "`a" "all_va_args" nil) (define-abbrev octave-abbrev-table "`b" "break" nil) + (define-abbrev octave-abbrev-table "`cs" "case" nil) (define-abbrev octave-abbrev-table "`ca" "catch" nil) (define-abbrev octave-abbrev-table "`c" "continue" nil) (define-abbrev octave-abbrev-table "`el" "else" nil) *************** *** 64,69 **** --- 65,71 ---- (define-abbrev octave-abbrev-table "`ef" "endfor" nil) (define-abbrev octave-abbrev-table "`efu" "endfunction" nil) (define-abbrev octave-abbrev-table "`ei" "endif" nil) + (define-abbrev octave-abbrev-table "`es" "endswitch" nil) (define-abbrev octave-abbrev-table "`ew" "endwhile" nil) (define-abbrev octave-abbrev-table "`f" "for" nil) (define-abbrev octave-abbrev-table "`fu" "function" nil) *************** *** 71,78 **** --- 73,82 ---- (define-abbrev octave-abbrev-table "`gp" "gplot" nil) (define-abbrev octave-abbrev-table "`gs" "gsplot" nil) (define-abbrev octave-abbrev-table "`if" "if ()" nil) + (define-abbrev octave-abbrev-table "`o" "otherwise" nil) (define-abbrev octave-abbrev-table "`rp" "replot" nil) (define-abbrev octave-abbrev-table "`r" "return" nil) + (define-abbrev octave-abbrev-table "`s" "switch" nil) (define-abbrev octave-abbrev-table "`t" "try" nil) (define-abbrev octave-abbrev-table "`up" "unwind_protect" nil) (define-abbrev octave-abbrev-table "`upc" "unwind_protect_cleanup" nil) *************** *** 88,98 **** "Regexp to match the start of an Octave comment up to its body.") (defvar octave-begin-keywords ! '("for" "function" "if" "try" "unwind_protect" "while")) (defvar octave-else-keywords ! '("catch" "else" "elseif" "unwind_protect_cleanup")) (defvar octave-end-keywords ! '("end" "endfor" "endfunction" "endif" "end_try_catch" "end_unwind_protect" "endwhile")) (defvar octave-reserved-words --- 92,102 ---- "Regexp to match the start of an Octave comment up to its body.") (defvar octave-begin-keywords ! '("for" "function" "if" "switch" "try" "unwind_protect" "while")) (defvar octave-else-keywords ! '("case" "catch" "else" "elseif" "otherwise" "unwind_protect_cleanup")) (defvar octave-end-keywords ! '("end" "endfor" "endfunction" "endif" "endswitch" "end_try_catch" "end_unwind_protect" "endwhile")) (defvar octave-reserved-words *************** *** 319,324 **** --- 323,329 ---- '(("for" . ("end" "endfor")) ("function" . ("end" "endfunction")) ("if" . ("else" "elseif" "end" "endif")) + ("switch" . ("end" "endswitch")) ("try" . ("catch" "end" "end_try_catch")) ("unwind_protect" . ("unwind_protect_cleanup" "end" "end_unwind_protect")) diff -cNr octave-2.0.4/glob/Makefile octave-2.0.5/glob/Makefile *** octave-2.0.4/glob/Makefile Thu Feb 20 03:02:03 1997 --- octave-2.0.5/glob/Makefile Sat Mar 1 16:40:55 1997 *************** *** 28,34 **** CFLAGS = -g -O2 # Information determined by configure. ! DEFS = -DSTDC_HEADERS=1 -DHAVE_MEMORY_H=1 -DHAVE_UNISTD_H=1 -DHAVE_STRING_H=1 -DHAVE_DIRENT_H=1 -DHAVE_BCOPY=1 -DHAVE_BZERO=1 -DHAVE_ALLOCA_H=1 -DHAVE_ALLOCA=1 -DHAVE_STRCOLL=1 # How to invoke ar. AR = ar --- 28,34 ---- CFLAGS = -g -O2 # Information determined by configure. ! DEFS = -DSTDC_HEADERS=1 -DHAVE_MEMORY_H=1 -DHAVE_UNISTD_H=1 -DHAVE_STRING_H=1 -DHAVE_DIRENT_H=1 -DHAVE_ALLOCA_H=1 -DHAVE_ALLOCA=1 -DHAVE_STRCOLL=1 # How to invoke ar. AR = ar *************** *** 59,65 **** -rm -f libglob.a *.o core distclean glob-maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.h config.log realclean: distclean --- 59,69 ---- -rm -f libglob.a *.o core distclean glob-maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.cache \ ! config.h config.log ! ! maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.h config.log configure realclean: distclean diff -cNr octave-2.0.4/glob/Makefile.in octave-2.0.5/glob/Makefile.in *** octave-2.0.4/glob/Makefile.in Wed Oct 30 18:29:04 1996 --- octave-2.0.5/glob/Makefile.in Wed Feb 26 13:30:45 1997 *************** *** 59,65 **** -rm -f libglob.a *.o core distclean glob-maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.h config.log realclean: distclean --- 59,69 ---- -rm -f libglob.a *.o core distclean glob-maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.cache \ ! config.h config.log ! ! maintainer-clean:: ! -rm -f TAGS tags Makefile config.status config.h config.log configure realclean: distclean diff -cNr octave-2.0.4/glob/config.cache octave-2.0.5/glob/config.cache *** octave-2.0.4/glob/config.cache Wed Dec 31 18:00:00 1969 --- octave-2.0.5/glob/config.cache Wed Feb 26 13:23:50 1997 *************** *** 0 **** --- 1,34 ---- + # This file is a shell script that caches the results of configure + # tests run on this system so they can be shared between configure + # scripts and configure runs. It is not useful on other systems. + # If it contains results you don't want to keep, you may remove or edit it. + # + # By default, configure uses ./config.cache as the cache file, + # creating it if it does not exist already. You can give configure + # the --cache-file=FILE option to use a different cache file; that is + # what configure does when it calls configure scripts in + # subdirectories, so they share the cache. + # Giving --cache-file=/dev/null disables caching, for debugging configure. + # config.status only pays attention to the cache file if you give it the + # --recheck option to rerun configure. + # + ac_cv_c_const=${ac_cv_c_const='yes'} + ac_cv_func_alloca_works=${ac_cv_func_alloca_works='yes'} + ac_cv_func_closedir_void=${ac_cv_func_closedir_void='no'} + ac_cv_func_strcoll_works=${ac_cv_func_strcoll_works='yes'} + ac_cv_header_alloca_h=${ac_cv_header_alloca_h='yes'} + ac_cv_header_dirent_dirent_h=${ac_cv_header_dirent_dirent_h='yes'} + ac_cv_header_memory_h=${ac_cv_header_memory_h='yes'} + ac_cv_header_minix_config_h=${ac_cv_header_minix_config_h='no'} + ac_cv_header_stdc=${ac_cv_header_stdc='yes'} + ac_cv_header_string_h=${ac_cv_header_string_h='yes'} + ac_cv_header_unistd_h=${ac_cv_header_unistd_h='yes'} + ac_cv_lib_dir_opendir=${ac_cv_lib_dir_opendir='no'} + ac_cv_prog_AR=${ac_cv_prog_AR='ar'} + ac_cv_prog_CC=${ac_cv_prog_CC='gcc'} + ac_cv_prog_CPP=${ac_cv_prog_CPP='gcc -E'} + ac_cv_prog_RANLIB=${ac_cv_prog_RANLIB='ranlib'} + ac_cv_prog_cc_cross=${ac_cv_prog_cc_cross='no'} + ac_cv_prog_cc_g=${ac_cv_prog_cc_g='yes'} + ac_cv_prog_cc_works=${ac_cv_prog_cc_works='yes'} + ac_cv_prog_gcc=${ac_cv_prog_gcc='yes'} diff -cNr octave-2.0.4/glob/configure octave-2.0.5/glob/configure *** octave-2.0.4/glob/configure Thu Feb 20 02:59:58 1997 --- octave-2.0.5/glob/configure Sat Mar 1 16:39:27 1997 *************** *** 1243,1305 **** fi - for ac_func in bcopy bzero - do - echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 - echo "configure:1250: checking for $ac_func" >&5 - if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 - else - cat > conftest.$ac_ext < - /* Override any gcc2 internal prototype to avoid an error. */ - /* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ - char $ac_func(); - - int main() { - - /* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ - #if defined (__stub_$ac_func) || defined (__stub___$ac_func) - choke me - #else - $ac_func(); - #endif - - ; return 0; } - EOF - if { (eval echo configure:1278: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then - rm -rf conftest* - eval "ac_cv_func_$ac_func=yes" - else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_func_$ac_func=no" - fi - rm -f conftest* - fi - - if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then - echo "$ac_t""yes" 1>&6 - ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` - cat >> confdefs.h <&6 - fi - done - echo $ac_n "checking whether closedir returns void""... $ac_c" 1>&6 ! echo "configure:1303: checking whether closedir returns void" >&5 if eval "test \"`echo '$''{'ac_cv_func_closedir_void'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 1243,1250 ---- fi echo $ac_n "checking whether closedir returns void""... $ac_c" 1>&6 ! echo "configure:1248: checking whether closedir returns void" >&5 if eval "test \"`echo '$''{'ac_cv_func_closedir_void'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 1307,1319 **** ac_cv_func_closedir_void=yes else cat > conftest.$ac_ext < #include <$ac_header_dirent> int closedir(); main() { exit(closedir(opendir(".")) != 0); } EOF ! if { (eval echo configure:1317: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_closedir_void=no else --- 1252,1264 ---- ac_cv_func_closedir_void=yes else cat > conftest.$ac_ext < #include <$ac_header_dirent> int closedir(); main() { exit(closedir(opendir(".")) != 0); } EOF ! if { (eval echo configure:1262: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_closedir_void=no else *************** *** 1338,1356 **** # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works # for constant arguments. Useless! echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6 ! echo "configure:1342: checking for working alloca.h" >&5 if eval "test \"`echo '$''{'ac_cv_header_alloca_h'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < int main() { char *p = alloca(2 * sizeof(int)); ; return 0; } EOF ! if { (eval echo configure:1354: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_header_alloca_h=yes else --- 1283,1301 ---- # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works # for constant arguments. Useless! echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6 ! echo "configure:1287: checking for working alloca.h" >&5 if eval "test \"`echo '$''{'ac_cv_header_alloca_h'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < int main() { char *p = alloca(2 * sizeof(int)); ; return 0; } EOF ! if { (eval echo configure:1299: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_header_alloca_h=yes else *************** *** 1371,1382 **** fi echo $ac_n "checking for alloca""... $ac_c" 1>&6 ! echo "configure:1375: checking for alloca" >&5 if eval "test \"`echo '$''{'ac_cv_func_alloca_works'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:1320: checking for alloca" >&5 if eval "test \"`echo '$''{'ac_cv_func_alloca_works'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_func_alloca_works=yes else --- 1344,1350 ---- char *p = (char *) alloca(1); ; return 0; } EOF ! if { (eval echo configure:1348: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_func_alloca_works=yes else *************** *** 1431,1442 **** echo $ac_n "checking whether alloca needs Cray hooks""... $ac_c" 1>&6 ! echo "configure:1435: checking whether alloca needs Cray hooks" >&5 if eval "test \"`echo '$''{'ac_cv_os_cray'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:1380: checking whether alloca needs Cray hooks" >&5 if eval "test \"`echo '$''{'ac_cv_os_cray'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:1465: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&6 ! echo "configure:1410: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else --- 1434,1440 ---- ; return 0; } EOF ! if { (eval echo configure:1438: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else *************** *** 1516,1522 **** fi echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6 ! echo "configure:1520: checking stack direction for C alloca" >&5 if eval "test \"`echo '$''{'ac_cv_c_stack_direction'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 1461,1467 ---- fi echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6 ! echo "configure:1465: checking stack direction for C alloca" >&5 if eval "test \"`echo '$''{'ac_cv_c_stack_direction'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 1524,1530 **** ac_cv_c_stack_direction=0 else cat > conftest.$ac_ext < conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_c_stack_direction=1 else --- 1488,1494 ---- exit (find_stack_direction() < 0); } EOF ! if { (eval echo configure:1492: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_c_stack_direction=1 else *************** *** 1565,1571 **** fi echo $ac_n "checking for working strcoll""... $ac_c" 1>&6 ! echo "configure:1569: checking for working strcoll" >&5 if eval "test \"`echo '$''{'ac_cv_func_strcoll_works'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else --- 1510,1516 ---- fi echo $ac_n "checking for working strcoll""... $ac_c" 1>&6 ! echo "configure:1514: checking for working strcoll" >&5 if eval "test \"`echo '$''{'ac_cv_func_strcoll_works'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else *************** *** 1573,1579 **** ac_cv_func_strcoll_works=no else cat > conftest.$ac_ext < main () --- 1518,1524 ---- ac_cv_func_strcoll_works=no else cat > conftest.$ac_ext < main () *************** *** 1583,1589 **** strcoll ("123", "456") >= 0); } EOF ! if { (eval echo configure:1587: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_strcoll_works=yes else --- 1528,1534 ---- strcoll ("123", "456") >= 0); } EOF ! if { (eval echo configure:1532: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null then ac_cv_func_strcoll_works=yes else diff -cNr octave-2.0.4/glob/configure.in octave-2.0.5/glob/configure.in *** octave-2.0.4/glob/configure.in Sun Nov 3 19:44:42 1996 --- octave-2.0.5/glob/configure.in Wed Feb 26 13:18:18 1997 *************** *** 13,19 **** AC_HEADER_STDC AC_CHECK_HEADERS(memory.h unistd.h string.h) AC_HEADER_DIRENT - AC_CHECK_FUNCS(bcopy bzero) AC_FUNC_CLOSEDIR_VOID AC_FUNC_ALLOCA AC_FUNC_STRCOLL --- 13,18 ---- diff -cNr octave-2.0.4/glob/fnmatch.c octave-2.0.5/glob/fnmatch.c *** octave-2.0.4/glob/fnmatch.c Sun Nov 10 14:26:05 1996 --- octave-2.0.5/glob/fnmatch.c Wed Feb 26 13:22:51 1997 *************** *** 1,4 **** ! /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as --- 1,4 ---- ! /* Copyright (C) 1991, 1992, 1993, 1996 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as *************** *** 19,24 **** --- 19,29 ---- #include #endif + /* Enable GNU extensions in fnmatch.h. */ + #ifndef _GNU_SOURCE + #define _GNU_SOURCE 1 + #endif + #include #include #include *************** *** 73,78 **** --- 78,86 ---- if (!(flags & FNM_NOESCAPE)) { c = *p++; + if (c == '\0') + /* Trailing \ loses. */ + return FNM_NOMATCH; c = FOLD (c); } if (FOLD (*n) != c) *************** *** 84,93 **** (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/'))) return FNM_NOMATCH; ! for (c = *p++; c == '?' || c == '*'; c = *p++, ++n) ! if (((flags & FNM_FILE_NAME) && *n == '/') || ! (c == '?' && *n == '\0')) ! return FNM_NOMATCH; if (c == '\0') return 0; --- 92,115 ---- (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/'))) return FNM_NOMATCH; ! for (c = *p++; c == '?' || c == '*'; c = *p++) ! { ! if ((flags & FNM_FILE_NAME) && *n == '/') ! /* A slash does not match a wildcard under FNM_FILE_NAME. */ ! return FNM_NOMATCH; ! else if (c == '?') ! { ! /* A ? needs to match one character. */ ! if (*n == '\0') ! /* There isn't another character; no match. */ ! return FNM_NOMATCH; ! else ! /* One character of the string is consumed in matching ! this ? wildcard, so *??? won't match if there are ! less than three characters. */ ! ++n; ! } ! } if (c == '\0') return 0; *************** *** 124,130 **** register char cstart = c, cend = c; if (!(flags & FNM_NOESCAPE) && c == '\\') ! cstart = cend = *p++; cstart = cend = FOLD (cstart); --- 146,156 ---- register char cstart = c, cend = c; if (!(flags & FNM_NOESCAPE) && c == '\\') ! { ! if (*p == '\0') ! return FNM_NOMATCH; ! cstart = cend = *p++; ! } cstart = cend = FOLD (cstart); *************** *** 171,178 **** c = *p++; if (!(flags & FNM_NOESCAPE) && c == '\\') ! /* XXX 1003.2d11 is unclear if this is right. */ ! ++p; } if (not) return FNM_NOMATCH; --- 197,208 ---- c = *p++; if (!(flags & FNM_NOESCAPE) && c == '\\') ! { ! if (*p == '\0') ! return FNM_NOMATCH; ! /* XXX 1003.2d11 is unclear if this is right. */ ! ++p; ! } } if (not) return FNM_NOMATCH; diff -cNr octave-2.0.4/glob/fnmatch.h octave-2.0.5/glob/fnmatch.h *** octave-2.0.4/glob/fnmatch.h Sun Jun 25 14:56:32 1995 --- octave-2.0.5/glob/fnmatch.h Wed Feb 26 13:22:51 1997 *************** *** 23,29 **** extern "C" { #endif ! #if defined (__cplusplus) || (defined (__STDC__) && __STDC__) #undef __P #define __P(protos) protos #else /* Not C++ or ANSI C. */ --- 23,30 ---- extern "C" { #endif ! #if (defined (__cplusplus) || (defined (__STDC__) && __STDC__) \ ! || defined (WIN32)) #undef __P #define __P(protos) protos #else /* Not C++ or ANSI C. */ diff -cNr octave-2.0.4/glob/glob.c octave-2.0.5/glob/glob.c *** octave-2.0.4/glob/glob.c Sun Nov 10 14:25:50 1996 --- octave-2.0.5/glob/glob.c Wed Feb 26 13:22:51 1997 *************** *** 1,4 **** ! /* Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as --- 1,4 ---- ! /* Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as *************** *** 24,31 **** --- 24,37 ---- #include #endif + /* Enable GNU extensions in glob.h. */ + #ifndef _GNU_SOURCE + #define _GNU_SOURCE 1 + #endif + #include #include + #include /* Comment out all this code if we are using the GNU C Library, and are not *************** *** 36,43 **** program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ ! #if defined (_LIBC) || !defined (__GNU_LIBRARY__) #ifdef STDC_HEADERS #include --- 42,56 ---- program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ ! #define GLOB_INTERFACE_VERSION 1 ! #if !defined (_LIBC) && defined (__GNU_LIBRARY__) && __GNU_LIBRARY__ > 1 ! #include ! #if _GNU_GLOB_INTERFACE_VERSION == GLOB_INTERFACE_VERSION ! #define ELIDE_CODE ! #endif ! #endif + #ifndef ELIDE_CODE #ifdef STDC_HEADERS #include *************** *** 52,57 **** --- 65,74 ---- #endif #endif + #if !defined (_AMIGA) && !defined (VMS) && !defined(WIN32) + #include + #endif + #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS) extern int errno; #endif *************** *** 61,88 **** #endif ! #if defined (POSIX) || defined (HAVE_DIRENT_H) || defined (__GNU_LIBRARY__) ! #include ! #ifndef __GNU_LIBRARY__ ! #define D_NAMLEN(d) strlen((d)->d_name) ! #else /* GNU C library. */ ! #define D_NAMLEN(d) ((d)->d_namlen) ! #endif /* Not GNU C library. */ ! #else /* Not POSIX or HAVE_DIRENT_H. */ ! #define direct dirent ! #define D_NAMLEN(d) ((d)->d_namlen) ! #ifdef HAVE_SYS_NDIR_H ! #include ! #endif /* HAVE_SYS_NDIR_H */ ! #ifdef HAVE_SYS_DIR_H ! #include ! #endif /* HAVE_SYS_DIR_H */ ! #ifdef HAVE_NDIR_H ! #include ! #endif /* HAVE_NDIR_H */ ! #endif /* POSIX or HAVE_DIRENT_H or __GNU_LIBRARY__. */ ! #if defined (POSIX) && !defined (__GNU_LIBRARY__) /* Posix does not require that the d_ino field be present, and some systems do not provide it. */ #define REAL_DIR_ENTRY(dp) 1 --- 78,112 ---- #endif ! #if defined (HAVE_DIRENT_H) || defined (__GNU_LIBRARY__) ! # include ! # define NAMLEN(dirent) strlen((dirent)->d_name) ! #else ! # define dirent direct ! # define NAMLEN(dirent) (dirent)->d_namlen ! # ifdef HAVE_SYS_NDIR_H ! # include ! # endif ! # ifdef HAVE_SYS_DIR_H ! # include ! # endif ! # ifdef HAVE_NDIR_H ! # include ! # endif ! # ifdef HAVE_VMSDIR_H ! # include "vmsdir.h" ! # endif /* HAVE_VMSDIR_H */ ! #endif ! ! /* In GNU systems, defines this macro for us. */ ! #ifdef _D_NAMLEN ! #undef NAMLEN ! #define NAMLEN(d) _D_NAMLEN(d) ! #endif ! ! ! #if (defined (POSIX) || defined (WIN32)) && !defined (__GNU_LIBRARY__) /* Posix does not require that the d_ino field be present, and some systems do not provide it. */ #define REAL_DIR_ENTRY(dp) 1 *************** *** 96,101 **** --- 120,127 ---- #define ANSI_STRING #else /* No standard headers. */ + extern char *getenv (); + #ifdef HAVE_STRING_H #include #define ANSI_STRING *************** *** 139,145 **** --- 165,176 ---- #ifdef __GNUC__ __inline #endif + #ifndef __SASC + #ifdef WIN32 + static void * + #else static char * + #endif my_realloc (p, n) char *p; unsigned int n; *************** *** 151,157 **** return (char *) realloc (p, n); } #define realloc my_realloc ! #endif #if !defined(__alloca) && !defined(__GNU_LIBRARY__) --- 182,189 ---- return (char *) realloc (p, n); } #define realloc my_realloc ! #endif /* __SASC */ ! #endif /* __GNU_LIBRARY__ */ #if !defined(__alloca) && !defined(__GNU_LIBRARY__) *************** *** 160,170 **** #undef alloca #define alloca(n) __builtin_alloca (n) #else /* Not GCC. */ ! #if defined (sparc) || defined (HAVE_ALLOCA_H) #include ! #else /* Not sparc or HAVE_ALLOCA_H. */ #ifndef _AIX extern char *alloca (); #endif /* Not _AIX. */ #endif /* sparc or HAVE_ALLOCA_H. */ #endif /* GCC. */ --- 192,206 ---- #undef alloca #define alloca(n) __builtin_alloca (n) #else /* Not GCC. */ ! #ifdef HAVE_ALLOCA_H #include ! #else /* Not HAVE_ALLOCA_H. */ #ifndef _AIX + #ifdef WIN32 + #include + #else extern char *alloca (); + #endif /* WIN32 */ #endif /* Not _AIX. */ #endif /* sparc or HAVE_ALLOCA_H. */ #endif /* GCC. */ *************** *** 173,178 **** --- 209,224 ---- #endif + #ifndef __GNU_LIBRARY__ + #define __stat stat + #ifdef STAT_MACROS_BROKEN + #undef S_ISDIR + #endif + #ifndef S_ISDIR + #define S_ISDIR(mode) (((mode) & S_IFMT) == S_IFDIR) + #endif + #endif + #ifndef STDC_HEADERS #undef size_t #define size_t unsigned int *************** *** 197,206 **** #undef GLOB_PERIOD #include - __ptr_t (*__glob_opendir_hook) __P ((const char *directory)); - const char *(*__glob_readdir_hook) __P ((__ptr_t stream)); - void (*__glob_closedir_hook) __P ((__ptr_t stream)); - static int glob_pattern_p __P ((const char *pattern, int quote)); static int glob_in_dir __P ((const char *pattern, const char *directory, int flags, --- 243,248 ---- *************** *** 236,247 **** --- 278,416 ---- return -1; } + if (flags & GLOB_BRACE) + { + const char *begin = strchr (pattern, '{'); + if (begin != NULL) + { + int firstc; + size_t restlen; + const char *p, *end, *next; + unsigned int depth = 0; + + /* Find the end of the brace expression, by counting braces. + While we're at it, notice the first comma at top brace level. */ + end = begin + 1; + next = NULL; + while (1) + { + switch (*end++) + { + case ',': + if (depth == 0 && next == NULL) + next = end; + continue; + case '{': + ++depth; + continue; + case '}': + if (depth-- == 0) + break; + continue; + case '\0': + return glob (pattern, flags &~ GLOB_BRACE, errfunc, pglob); + } + break; + } + restlen = strlen (end) + 1; + if (next == NULL) + next = end; + + /* We have a brace expression. BEGIN points to the opening {, + NEXT points past the terminator of the first element, and END + points past the final }. We will accumulate result names from + recursive runs for each brace alternative in the buffer using + GLOB_APPEND. */ + + if (!(flags & GLOB_APPEND)) + { + /* This call is to set a new vector, so clear out the + vector so we can append to it. */ + pglob->gl_pathc = 0; + pglob->gl_pathv = NULL; + } + firstc = pglob->gl_pathc; + + /* In this loop P points to the beginning of the current element + and NEXT points past its terminator. */ + p = begin + 1; + while (1) + { + /* Construct a whole name that is one of the brace + alternatives in a temporary buffer. */ + int result; + size_t bufsz = (begin - pattern) + (next - 1 - p) + restlen; + #ifdef __GNUC__ + char onealt[bufsz]; + #else + char *onealt = malloc (bufsz); + if (onealt == NULL) + { + if (!(flags & GLOB_APPEND)) + globfree (pglob); + return GLOB_NOSPACE; + } + #endif + memcpy (onealt, pattern, begin - pattern); + memcpy (&onealt[begin - pattern], p, next - 1 - p); + memcpy (&onealt[(begin - pattern) + (next - 1 - p)], + end, restlen); + result = glob (onealt, + ((flags & ~(GLOB_NOCHECK|GLOB_NOMAGIC)) | + GLOB_APPEND), errfunc, pglob); + #ifndef __GNUC__ + free (onealt); + #endif + + /* If we got an error, return it. */ + if (result && result != GLOB_NOMATCH) + { + if (!(flags & GLOB_APPEND)) + globfree (pglob); + return result; + } + + /* Advance past this alternative and process the next. */ + p = next; + depth = 0; + scan: + switch (*p++) + { + case ',': + if (depth == 0) + { + /* Found the next alternative. Loop to glob it. */ + next = p; + continue; + } + goto scan; + case '{': + ++depth; + goto scan; + case '}': + if (depth-- == 0) + /* End of the brace expression. Break out of the loop. */ + break; + goto scan; + } + } + + if (pglob->gl_pathc == firstc && + !(flags & (GLOB_NOCHECK|GLOB_NOMAGIC))) + return GLOB_NOMATCH; + } + } + /* Find the filename. */ filename = strrchr (pattern, '/'); if (filename == NULL) { filename = pattern; + #ifdef _AMIGA + dirname = (char *) ""; + #else dirname = (char *) "."; + #endif dirlen = 0; } else if (filename == pattern) *************** *** 277,282 **** --- 446,502 ---- oldcount = pglob->gl_pathc; + #ifndef VMS + if ((flags & GLOB_TILDE) && dirname[0] == '~') + { + if (dirname[1] == '\0') + { + /* Look up home directory. */ + dirname = getenv ("HOME"); + #ifdef _AMIGA + if (dirname == NULL || dirname[0] == '\0') + dirname = "SYS:"; + #else + #ifdef WIN32 + if (dirname == NULL || dirname[0] == '\0') + dirname = "c:/users/default"; /* poor default */ + #else + if (dirname == NULL || dirname[0] == '\0') + { + extern char *getlogin __P ((void)); + char *name = getlogin (); + if (name != NULL) + { + struct passwd *p = getpwnam (name); + if (p != NULL) + dirname = p->pw_dir; + } + } + if (dirname == NULL || dirname[0] == '\0') + dirname = (char *) "~"; /* No luck. */ + #endif /* WIN32 */ + #endif + } + else + { + #ifdef _AMIGA + if (dirname == NULL || dirname[0] == '\0') + dirname = "SYS:"; + #else + #ifdef WIN32 + if (dirname == NULL || dirname[0] == '\0') + dirname = "c:/users/default"; /* poor default */ + #else + /* Look up specific user's home directory. */ + struct passwd *p = getpwnam (dirname + 1); + if (p != NULL) + dirname = p->pw_dir; + #endif /* WIN32 */ + #endif + } + } + #endif /* Not VMS. */ + if (glob_pattern_p (dirname, !(flags & GLOB_NOESCAPE))) { /* The directory name contains metacharacters, so we *************** *** 394,402 **** } } if (!(flags & GLOB_NOSORT)) /* Sort the vector. */ ! qsort ((__ptr_t) & pglob->gl_pathv[oldcount], pglob->gl_pathc - oldcount, sizeof (char *), collated_compare); --- 614,645 ---- } } + if (flags & GLOB_MARK) + { + /* Append slashes to directory names. */ + int i; + struct stat st; + for (i = oldcount; i < pglob->gl_pathc; ++i) + if (((flags & GLOB_ALTDIRFUNC) ? + (*pglob->gl_stat) (pglob->gl_pathv[i], &st) : + __stat (pglob->gl_pathv[i], &st)) == 0 && + S_ISDIR (st.st_mode)) + { + size_t len = strlen (pglob->gl_pathv[i]) + 2; + char *new = realloc (pglob->gl_pathv[i], len); + if (new == NULL) + { + globfree (pglob); + return GLOB_NOSPACE; + } + strcpy (&new[len - 2], "/"); + pglob->gl_pathv[i] = new; + } + } + if (!(flags & GLOB_NOSORT)) /* Sort the vector. */ ! qsort ((__ptr_t) &pglob->gl_pathv[oldcount], pglob->gl_pathc - oldcount, sizeof (char *), collated_compare); *************** *** 497,503 **** return 1; case '\\': ! if (quote) ++p; break; --- 740,746 ---- return 1; case '\\': ! if (quote && p[1] != '\0') ++p; break; *************** *** 546,553 **** { flags |= GLOB_MAGCHAR; ! stream = (__glob_opendir_hook ? (*__glob_opendir_hook) (directory) ! : (__ptr_t) opendir (directory)); if (stream == NULL) { if ((errfunc != NULL && (*errfunc) (directory, errno)) || --- 789,797 ---- { flags |= GLOB_MAGCHAR; ! stream = ((flags & GLOB_ALTDIRFUNC) ? ! (*pglob->gl_opendir) (directory) : ! (__ptr_t) opendir (directory)); if (stream == NULL) { if ((errfunc != NULL && (*errfunc) (directory, errno)) || *************** *** 559,602 **** { const char *name; size_t len; - if (__glob_readdir_hook) - { - name = (*__glob_readdir_hook) (stream); - if (name == NULL) - break; - len = 0; - } - else - { - struct dirent *d = readdir ((DIR *) stream); - if (d == NULL) - break; - if (! REAL_DIR_ENTRY (d)) - continue; - name = d->d_name; - #ifdef HAVE_D_NAMLEN - len = d->d_namlen; - #else - len = 0; - #endif - } - if (fnmatch (pattern, name, (!(flags & GLOB_PERIOD) ? FNM_PERIOD : 0) | ! ((flags & GLOB_NOESCAPE) ? FNM_NOESCAPE : 0)) == 0) { struct globlink *new = (struct globlink *) __alloca (sizeof (struct globlink)); ! if (len == 0) ! len = strlen (name); new->name ! = (char *) malloc (len + ((flags & GLOB_MARK) ? 1 : 0) + 1); if (new->name == NULL) goto memory_error; memcpy ((__ptr_t) new->name, name, len); - if (flags & GLOB_MARK) - new->name[len++] = '/'; new->name[len] = '\0'; new->next = names; names = new; --- 803,834 ---- { const char *name; size_t len; + struct dirent *d = ((flags & GLOB_ALTDIRFUNC) ? + (*pglob->gl_readdir) (stream) : + readdir ((DIR *) stream)); + if (d == NULL) + break; + if (! REAL_DIR_ENTRY (d)) + continue; + + name = d->d_name; if (fnmatch (pattern, name, (!(flags & GLOB_PERIOD) ? FNM_PERIOD : 0) | ! ((flags & GLOB_NOESCAPE) ? FNM_NOESCAPE : 0) ! #ifdef _AMIGA ! | FNM_CASEFOLD ! #endif ! ) == 0) { struct globlink *new = (struct globlink *) __alloca (sizeof (struct globlink)); ! len = NAMLEN (d); new->name ! = (char *) malloc (len + 1); if (new->name == NULL) goto memory_error; memcpy ((__ptr_t) new->name, name, len); new->name[len] = '\0'; new->next = names; names = new; *************** *** 605,622 **** } } if (nfound == 0 && (flags & GLOB_NOCHECK)) { size_t len = strlen (pattern); nfound = 1; names = (struct globlink *) __alloca (sizeof (struct globlink)); names->next = NULL; ! names->name = (char *) malloc (len + ((flags & GLOB_MARK) ? 1 : 0) + 1); if (names->name == NULL) goto memory_error; memcpy (names->name, pattern, len); - if (flags & GLOB_MARK) - names->name[len++] = '/'; names->name[len] = '\0'; } --- 837,856 ---- } } + if (nfound == 0 && (flags & GLOB_NOMAGIC) && + ! glob_pattern_p (pattern, !(flags & GLOB_NOESCAPE))) + flags |= GLOB_NOCHECK; + if (nfound == 0 && (flags & GLOB_NOCHECK)) { size_t len = strlen (pattern); nfound = 1; names = (struct globlink *) __alloca (sizeof (struct globlink)); names->next = NULL; ! names->name = (char *) malloc (len + 1); if (names->name == NULL) goto memory_error; memcpy (names->name, pattern, len); names->name[len] = '\0'; } *************** *** 642,651 **** if (stream != NULL) { int save = errno; ! if (__glob_closedir_hook) ! (*__glob_closedir_hook) (stream); else ! (void) closedir ((DIR *) stream); errno = save; } return nfound == 0 ? GLOB_NOMATCH : 0; --- 876,885 ---- if (stream != NULL) { int save = errno; ! if (flags & GLOB_ALTDIRFUNC) ! (*pglob->gl_closedir) (stream); else ! closedir ((DIR *) stream); errno = save; } return nfound == 0 ? GLOB_NOMATCH : 0; *************** *** 653,662 **** memory_error: { int save = errno; ! if (__glob_closedir_hook) ! (*__glob_closedir_hook) (stream); else ! (void) closedir ((DIR *) stream); errno = save; } while (names != NULL) --- 887,896 ---- memory_error: { int save = errno; ! if (flags & GLOB_ALTDIRFUNC) ! (*pglob->gl_closedir) (stream); else ! closedir ((DIR *) stream); errno = save; } while (names != NULL) *************** *** 668,671 **** return GLOB_NOSPACE; } ! #endif /* _LIBC or not __GNU_LIBRARY__. */ --- 902,906 ---- return GLOB_NOSPACE; } ! #endif /* Not ELIDE_CODE. */ ! diff -cNr octave-2.0.4/glob/glob.h octave-2.0.5/glob/glob.h *** octave-2.0.4/glob/glob.h Sun Jun 25 14:56:32 1995 --- octave-2.0.5/glob/glob.h Wed Feb 26 13:22:51 1997 *************** *** 1,4 **** ! /* Copyright (C) 1991, 1992 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as --- 1,4 ---- ! /* Copyright (C) 1991, 1992, 1995, 1996 Free Software Foundation, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as *************** *** 25,31 **** #endif #undef __ptr_t ! #if defined (__cplusplus) || (defined (__STDC__) && __STDC__) #undef __P #define __P(protos) protos #define __ptr_t void * --- 25,32 ---- #endif #undef __ptr_t ! #if (defined (__cplusplus) || (defined (__STDC__) && __STDC__) \ ! || defined (WIN32)) #undef __P #define __P(protos) protos #define __ptr_t void * *************** *** 47,56 **** #define GLOB_NOESCAPE (1 << 6)/* Backslashes don't quote metacharacters. */ #define GLOB_PERIOD (1 << 7)/* Leading `.' can be matched by metachars. */ #define __GLOB_FLAGS (GLOB_ERR|GLOB_MARK|GLOB_NOSORT|GLOB_DOOFFS| \ ! GLOB_NOESCAPE|GLOB_NOCHECK|GLOB_APPEND|GLOB_PERIOD) #if !defined (_POSIX_C_SOURCE) || _POSIX_C_SOURCE < 2 || defined (_BSD_SOURCE) #define GLOB_MAGCHAR (1 << 8)/* Set in gl_flags if any metachars seen. */ #endif /* Error returns from `glob'. */ --- 48,63 ---- #define GLOB_NOESCAPE (1 << 6)/* Backslashes don't quote metacharacters. */ #define GLOB_PERIOD (1 << 7)/* Leading `.' can be matched by metachars. */ #define __GLOB_FLAGS (GLOB_ERR|GLOB_MARK|GLOB_NOSORT|GLOB_DOOFFS| \ ! GLOB_NOESCAPE|GLOB_NOCHECK|GLOB_APPEND| \ ! GLOB_PERIOD|GLOB_ALTDIRFUNC|GLOB_BRACE| \ ! GLOB_NOMAGIC|GLOB_TILDE) #if !defined (_POSIX_C_SOURCE) || _POSIX_C_SOURCE < 2 || defined (_BSD_SOURCE) #define GLOB_MAGCHAR (1 << 8)/* Set in gl_flags if any metachars seen. */ + #define GLOB_ALTDIRFUNC (1 << 9)/* Use gl_opendir et al functions. */ + #define GLOB_BRACE (1 << 10)/* Expand "{a,b}" to "a" "b". */ + #define GLOB_NOMAGIC (1 << 11)/* If no magic chars, return the pattern. */ + #define GLOB_TILDE (1 <<12)/* Expand ~user and ~ to home directories. */ #endif /* Error returns from `glob'. */ *************** *** 59,70 **** --- 66,88 ---- #define GLOB_NOMATCH 3 /* No matches found. */ /* Structure describing a globbing run. */ + #if !defined (_AMIGA) && !defined (VMS) /* Buggy compiler. */ + struct stat; + #endif typedef struct { int gl_pathc; /* Count of paths matched by the pattern. */ char **gl_pathv; /* List of matched pathnames. */ int gl_offs; /* Slots to reserve in `gl_pathv'. */ int gl_flags; /* Set to FLAGS, maybe | GLOB_MAGCHAR. */ + + /* If the GLOB_ALTDIRFUNC flag is set, the following functions + are used instead of the normal file access functions. */ + void (*gl_closedir) __P ((void *)); + struct dirent *(*gl_readdir) __P ((void *)); + __ptr_t (*gl_opendir) __P ((const char *)); + int (*gl_lstat) __P ((const char *, struct stat *)); + int (*gl_stat) __P ((const char *, struct stat *)); } glob_t; /* Do glob searching for PATTERN, placing results in PGLOB. *************** *** 82,94 **** /* Free storage allocated in PGLOB by a previous `glob' call. */ extern void globfree __P ((glob_t *__pglob)); - - #if !defined (_POSIX_C_SOURCE) || _POSIX_C_SOURCE < 2 || defined (_GNU_SOURCE) - /* If they are not NULL, `glob' uses these functions to read directories. */ - extern __ptr_t (*__glob_opendir_hook) __P ((const char *__directory)); - extern const char *(*__glob_readdir_hook) __P ((__ptr_t __stream)); - extern void (*__glob_closedir_hook) __P ((__ptr_t __stream)); - #endif #ifdef __cplusplus } --- 100,105 ---- diff -cNr octave-2.0.4/info/ChangeLog octave-2.0.5/info/ChangeLog *** octave-2.0.4/info/ChangeLog Sat Jan 25 22:33:55 1997 --- octave-2.0.5/info/ChangeLog Wed Feb 26 12:48:13 1997 *************** *** 1,3 **** --- 1,7 ---- + Wed Feb 26 12:30:51 1997 John W. Eaton + + * Makefile.in (maintainer-clean): New target. + Sat Jan 25 22:33:43 1997 John W. Eaton * Makefile.in (bin-dist): New target. diff -cNr octave-2.0.4/info/Makefile.in octave-2.0.5/info/Makefile.in *** octave-2.0.4/info/Makefile.in Sat Jan 25 22:40:02 1997 --- octave-2.0.5/info/Makefile.in Wed Feb 26 12:49:10 1997 *************** *** 1,5 **** # Makefile for texinfo/info. -*- Indented-Text -*- ! # $Id: Makefile.in,v 1.38 1997/01/26 04:40:02 jwe Exp $ # # Copyright (C) 1993,96 Free Software Foundation, Inc. --- 1,5 ---- # Makefile for texinfo/info. -*- Indented-Text -*- ! # $Id: Makefile.in,v 1.41 1997/02/26 18:49:10 jwe Exp $ # # Copyright (C) 1993,96 Free Software Foundation, Inc. *************** *** 155,162 **** mostlyclean: clean ! realclean: distclean ! $(RM) info.info info-stnd.info dist: all-info all-dvi ln $(DISTFILES) ../`cat ../.fname`/info --- 155,162 ---- mostlyclean: clean ! maintainer-clean realclean: distclean ! $(RM) info.info info-stnd.info $(DVI) config.h configure config.h.in dist: all-info all-dvi ln $(DISTFILES) ../`cat ../.fname`/info diff -cNr octave-2.0.4/kpathsea/Makefile octave-2.0.5/kpathsea/Makefile *** octave-2.0.4/kpathsea/Makefile Thu Feb 20 03:02:13 1997 --- octave-2.0.5/kpathsea/Makefile Sat Mar 1 16:41:01 1997 *************** *** 481,487 **** # Although we can remake configure and c-auto.h.in, we don't remove # them, since many people may lack Autoconf. Use configclean for that. maintainer-clean:: distclean ! rm -f TAGS *.info* extraclean:: rm -f *.aux *.bak *.bbl *.blg *.dvi *.log *.orig *.pl *.rej --- 481,487 ---- # Although we can remake configure and c-auto.h.in, we don't remove # them, since many people may lack Autoconf. Use configclean for that. maintainer-clean:: distclean ! rm -f TAGS *.info* configure stamp-auto extraclean:: rm -f *.aux *.bak *.bbl *.blg *.dvi *.log *.orig *.pl *.rej diff -cNr octave-2.0.4/libcruft/ChangeLog octave-2.0.5/libcruft/ChangeLog *** octave-2.0.4/libcruft/ChangeLog Thu Feb 20 02:58:51 1997 --- octave-2.0.5/libcruft/ChangeLog Sat Mar 1 15:23:45 1997 *************** *** 1,3 **** --- 1,11 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Wed Feb 26 12:08:39 1997 John W. Eaton + + * Makefile.in (maintainer-clean): Also remove configure. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/libcruft/Makefile.in octave-2.0.5/libcruft/Makefile.in *** octave-2.0.4/libcruft/Makefile.in Fri Feb 14 16:22:06 1997 --- octave-2.0.5/libcruft/Makefile.in Wed Feb 26 12:08:39 1997 *************** *** 114,120 **** if $(SHARED_LIBS); then rm -f *.$(SHLEXT); fi maintainer-clean:: ! rm -f *.a *.o Makefile Makerules so_locations tags TAGS if $(SHARED_LIBS); then rm -f *.$(SHLEXT); fi dist: --- 114,120 ---- if $(SHARED_LIBS); then rm -f *.$(SHLEXT); fi maintainer-clean:: ! rm -f *.a *.o configure Makefile Makerules so_locations tags TAGS if $(SHARED_LIBS); then rm -f *.$(SHLEXT); fi dist: diff -cNr octave-2.0.4/liboctave/Array2-idx.h octave-2.0.5/liboctave/Array2-idx.h *** octave-2.0.4/liboctave/Array2-idx.h Thu Feb 13 15:03:01 1997 --- octave-2.0.5/liboctave/Array2-idx.h Fri Feb 21 17:31:50 1997 *************** *** 279,287 **** } } } ! else if (idx_j.is_colon_equiv (nr, 1)) { ! if (idx_i.is_colon_equiv (nc, 1)) resize (0, 0); else { --- 279,287 ---- } } } ! else if (idx_j.is_colon_equiv (nc, 1)) { ! if (idx_i.is_colon_equiv (nr, 1)) resize (0, 0); else { diff -cNr octave-2.0.4/liboctave/ChangeLog octave-2.0.5/liboctave/ChangeLog *** octave-2.0.4/liboctave/ChangeLog Thu Feb 20 02:58:48 1997 --- octave-2.0.5/liboctave/ChangeLog Sat Mar 1 15:23:42 1997 *************** *** 1,3 **** --- 1,36 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Fri Feb 28 20:11:23 1997 John W. Eaton + + * CmplxQR.cc (ComplexQR::init): New function. + (ComplexQR::ComplexQR): Use it. Use initializer list too. + * CmplxQRP.cc (ComplexQRP::init): New function. + Get sizes right in all cases. + (ComplexQR::ComplexQRP): Use it. Use initializer list too. + + * dbleQR.cc (QR::init): New function. + (QR::QR): Use it. Use initializer list too. + * dbleQRP.cc (QRP::init): New function. + Get sizes right in all cases. + (QR::QRP): Use it. Use initializer list too. + + Wed Feb 26 15:46:28 1997 John W. Eaton + + * mach-info.cc (oct_mach_info::string_to_float_format): + Recognize "vaxg", not "vax_g". + + Fri Feb 21 16:07:56 1997 John W. Eaton + + * Array2-idx.h (Array2::maybe_delete_elements): Use correct + dimension in check for colon equivalent index. + * idx-vector.cc (IDX_VEC_REP::is_colon_equiv): A single-element + index whose value is 0 is also colon eqivalent for n == 1. + + * lo-ieee.cc (octave_ieee_init): Reorder #ifdef stuff to put + system-specific tests first. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/liboctave/CmplxQR.cc octave-2.0.5/liboctave/CmplxQR.cc *** octave-2.0.4/liboctave/CmplxQR.cc Tue May 21 23:46:09 1996 --- octave-2.0.5/liboctave/CmplxQR.cc Thu Feb 27 19:53:31 1997 *************** *** 45,50 **** --- 45,57 ---- } ComplexQR::ComplexQR (const ComplexMatrix& a, QR::type qr_type) + : q (), r () + { + init (a, qr_type); + } + + void + ComplexQR::init (const ComplexMatrix& a, QR::type qr_type) { int m = a.rows (); int n = a.cols (); diff -cNr octave-2.0.4/liboctave/CmplxQR.h octave-2.0.5/liboctave/CmplxQR.h *** octave-2.0.4/liboctave/CmplxQR.h Sat Mar 2 19:16:15 1996 --- octave-2.0.5/liboctave/CmplxQR.h Thu Feb 27 19:55:22 1997 *************** *** 39,45 **** ComplexQR (void) : q (), r () { } ! ComplexQR (const ComplexMatrix& A, QR::type qr_type = QR::std); ComplexQR (const ComplexQR& a) : q (a.q), r (a.r) { } --- 39,45 ---- ComplexQR (void) : q (), r () { } ! ComplexQR (const ComplexMatrix&, QR::type = QR::std); ComplexQR (const ComplexQR& a) : q (a.q), r (a.r) { } *************** *** 55,64 **** ~ComplexQR (void) { } ComplexMatrix Q (void) const { return q; } ComplexMatrix R (void) const { return r; } ! friend ostream& operator << (ostream& os, const ComplexQR& a); protected: --- 55,67 ---- ~ComplexQR (void) { } + void init (const ComplexMatrix&, QR::type = QR::std); + ComplexMatrix Q (void) const { return q; } + ComplexMatrix R (void) const { return r; } ! friend ostream& operator << (ostream&, const ComplexQR&); protected: diff -cNr octave-2.0.4/liboctave/CmplxQRP.cc octave-2.0.5/liboctave/CmplxQRP.cc *** octave-2.0.4/liboctave/CmplxQRP.cc Mon Nov 4 21:37:33 1996 --- octave-2.0.5/liboctave/CmplxQRP.cc Thu Feb 27 21:01:17 1997 *************** *** 49,54 **** --- 49,61 ---- // It would be best to share some of this code with ComplexQR class... ComplexQRP::ComplexQRP (const ComplexMatrix& a, QR::type qr_type) + : ComplexQR (), p () + { + init (a, qr_type); + } + + void + ComplexQRP::init (const ComplexMatrix& a, QR::type qr_type) { assert (qr_type != QR::raw); *************** *** 62,85 **** return; } ! int min_mn = m < n ? m : n; ! Array tau (min_mn); Complex *ptau = tau.fortran_vec (); ! int lwork = n; Array work (lwork); Complex *pwork = work.fortran_vec (); int info = 0; ! ComplexMatrix A_fact; if (m > n) ! { ! A_fact.resize (m, m); ! A_fact.insert (a, 0, 0); ! } ! else ! A_fact = a; Complex *tmp_data = A_fact.fortran_vec (); --- 69,86 ---- return; } ! Array tau (m < n ? m : n); Complex *ptau = tau.fortran_vec (); ! int lwork = 3*n > 32*m ? 3*n : 32*m; Array work (lwork); Complex *pwork = work.fortran_vec (); int info = 0; ! ComplexMatrix A_fact = a; if (m > n) ! A_fact.resize (m, m, 0.0); Complex *tmp_data = A_fact.fortran_vec (); *************** *** 101,107 **** // Form Permutation matrix (if economy is requested, return the // indices only!) ! if (qr_type == QR::economy && m > n) { p.resize (1, n, 0.0); for (int j = 0; j < n; j++) --- 102,108 ---- // Form Permutation matrix (if economy is requested, return the // indices only!) ! if (qr_type == QR::economy) { p.resize (1, n, 0.0); for (int j = 0; j < n; j++) *************** *** 114,131 **** p.elem (jpvt.elem (j) - 1, j) = 1.0; } - volatile int n2; - if (qr_type == QR::economy && m > n) ! { ! n2 = n; ! r.resize (n, n, 0.0); ! } else ! { ! n2 = m; ! r.resize (m, n, 0.0); ! } for (int j = 0; j < n; j++) { --- 115,126 ---- p.elem (jpvt.elem (j) - 1, j) = 1.0; } if (qr_type == QR::economy && m > n) ! r.resize (n, n, 0.0); else ! r.resize (m, n, 0.0); ! ! int min_mn = m < n ? m : n; for (int j = 0; j < n; j++) { *************** *** 134,144 **** r.elem (i, j) = A_fact.elem (i, j); } ! lwork = 32*m; ! work.resize (lwork); ! Complex *pwork = work.fortran_vec (); ! F77_XFCN (zungqr, ZUNGQR, (m, m, min_mn, tmp_data, m, ptau, pwork, lwork, info)); if (f77_exception_encountered) --- 129,139 ---- r.elem (i, j) = A_fact.elem (i, j); } ! int n2 = m; ! if (qr_type == QR::economy) ! n2 = min_mn; ! F77_XFCN (zungqr, ZUNGQR, (m, n2, min_mn, tmp_data, m, ptau, pwork, lwork, info)); if (f77_exception_encountered) diff -cNr octave-2.0.4/liboctave/CmplxQRP.h octave-2.0.5/liboctave/CmplxQRP.h *** octave-2.0.4/liboctave/CmplxQRP.h Sat Mar 2 19:16:15 1996 --- octave-2.0.5/liboctave/CmplxQRP.h Thu Feb 27 19:54:58 1997 *************** *** 38,44 **** ComplexQRP (void) : ComplexQR (), p () { } ! ComplexQRP (const ComplexMatrix& A, QR::type qr_type = QR::std); ComplexQRP (const ComplexQRP& a) : ComplexQR (a), p (a.p) { } --- 38,44 ---- ComplexQRP (void) : ComplexQR (), p () { } ! ComplexQRP (const ComplexMatrix&, QR::type = QR::std); ComplexQRP (const ComplexQRP& a) : ComplexQR (a), p (a.p) { } *************** *** 54,62 **** ~ComplexQRP (void) { } Matrix P (void) const { return p; } ! friend ostream& operator << (ostream& os, const ComplexQRP& a); private: --- 54,64 ---- ~ComplexQRP (void) { } + void init (const ComplexMatrix&, QR::type = QR::std); + Matrix P (void) const { return p; } ! friend ostream& operator << (ostream&, const ComplexQRP&); private: diff -cNr octave-2.0.4/liboctave/dbleQR.cc octave-2.0.5/liboctave/dbleQR.cc *** octave-2.0.4/liboctave/dbleQR.cc Tue May 21 23:46:30 1996 --- octave-2.0.5/liboctave/dbleQR.cc Thu Feb 27 20:10:16 1997 *************** *** 45,50 **** --- 45,57 ---- } QR::QR (const Matrix& a, QR::type qr_type) + : q (), r () + { + init (a, qr_type); + } + + void + QR::init (const Matrix& a, QR::type qr_type) { int m = a.rows (); int n = a.cols (); diff -cNr octave-2.0.4/liboctave/dbleQR.h octave-2.0.5/liboctave/dbleQR.h *** octave-2.0.4/liboctave/dbleQR.h Sat Mar 2 19:16:15 1996 --- octave-2.0.5/liboctave/dbleQR.h Thu Feb 27 19:06:57 1997 *************** *** 45,51 **** QR (void) : q (), r () { } ! QR (const Matrix& A, type qr_type = QR::std); QR (const QR& a) : q (a.q), r (a.r) { } --- 45,51 ---- QR (void) : q (), r () { } ! QR (const Matrix&, QR::type = QR::std); QR (const QR& a) : q (a.q), r (a.r) { } *************** *** 61,71 **** ~QR (void) { } Matrix Q (void) const { return q; } Matrix R (void) const { return r; } ! friend ostream& operator << (ostream& os, const QR& a); protected: --- 61,73 ---- ~QR (void) { } + void init (const Matrix&, QR::type); + Matrix Q (void) const { return q; } Matrix R (void) const { return r; } ! friend ostream& operator << (ostream&, const QR&); protected: diff -cNr octave-2.0.4/liboctave/dbleQRP.cc octave-2.0.5/liboctave/dbleQRP.cc *** octave-2.0.4/liboctave/dbleQRP.cc Mon Nov 4 21:37:12 1996 --- octave-2.0.5/liboctave/dbleQRP.cc Thu Feb 27 20:59:44 1997 *************** *** 49,54 **** --- 49,61 ---- // It would be best to share some of this code with QR class... QRP::QRP (const Matrix& a, QR::type qr_type) + : QR (), p () + { + init (a, qr_type); + } + + void + QRP::init (const Matrix& a, QR::type qr_type) { assert (qr_type != QR::raw); *************** *** 61,84 **** return; } ! int min_mn = m < n ? m : n; ! Array tau (min_mn); double *ptau = tau.fortran_vec (); ! int lwork = 3*n; Array work (lwork); double *pwork = work.fortran_vec (); int info = 0; ! Matrix A_fact; if (m > n) ! { ! A_fact.resize (m, m); ! A_fact.insert (a, 0, 0); ! } ! else ! A_fact = a; double *tmp_data = A_fact.fortran_vec (); --- 68,85 ---- return; } ! Array tau (m < n ? m : n); double *ptau = tau.fortran_vec (); ! int lwork = 3*n > 32*m ? 3*n : 32*m; Array work (lwork); double *pwork = work.fortran_vec (); int info = 0; ! Matrix A_fact = a; if (m > n) ! A_fact.resize (m, m, 0.0); double *tmp_data = A_fact.fortran_vec (); *************** *** 96,102 **** // Form Permutation matrix (if economy is requested, return the // indices only!) ! if (qr_type == QR::economy && m > n) { p.resize (1, n, 0.0); for (int j = 0; j < n; j++) --- 97,103 ---- // Form Permutation matrix (if economy is requested, return the // indices only!) ! if (qr_type == QR::economy) { p.resize (1, n, 0.0); for (int j = 0; j < n; j++) *************** *** 109,126 **** p.elem (jpvt.elem (j) - 1, j) = 1.0; } - volatile int n2; - if (qr_type == QR::economy && m > n) ! { ! n2 = n; ! r.resize (n, n, 0.0); ! } else ! { ! n2 = m; ! r.resize (m, n, 0.0); ! } for (int j = 0; j < n; j++) { --- 110,121 ---- p.elem (jpvt.elem (j) - 1, j) = 1.0; } if (qr_type == QR::economy && m > n) ! r.resize (n, n, 0.0); else ! r.resize (m, n, 0.0); ! ! int min_mn = m < n ? m : n; for (int j = 0; j < n; j++) { *************** *** 129,139 **** r.elem (i, j) = A_fact.elem (i, j); } ! lwork = 32*m; ! work.resize (lwork); ! double *pwork = work.fortran_vec (); ! F77_XFCN (dorgqr, DORGQR, (m, m, min_mn, tmp_data, m, ptau, pwork, lwork, info)); if (f77_exception_encountered) --- 124,134 ---- r.elem (i, j) = A_fact.elem (i, j); } ! int n2 = m; ! if (qr_type == QR::economy) ! n2 = min_mn; ! F77_XFCN (dorgqr, DORGQR, (m, n2, min_mn, tmp_data, m, ptau, pwork, lwork, info)); if (f77_exception_encountered) diff -cNr octave-2.0.4/liboctave/dbleQRP.h octave-2.0.5/liboctave/dbleQRP.h *** octave-2.0.4/liboctave/dbleQRP.h Sat Mar 2 19:16:15 1996 --- octave-2.0.5/liboctave/dbleQRP.h Thu Feb 27 19:54:32 1997 *************** *** 38,44 **** QRP (void) : QR (), p () { } ! QRP (const Matrix& A, QR::type qr_type = QR::std); QRP (const QRP& a) : QR (a), p (a.p) { } --- 38,44 ---- QRP (void) : QR (), p () { } ! QRP (const Matrix&, QR::type = QR::std); QRP (const QRP& a) : QR (a), p (a.p) { } *************** *** 55,63 **** ~QRP (void) { } Matrix P (void) const { return p; } ! friend ostream& operator << (ostream& os, const QRP& a); protected: --- 55,65 ---- ~QRP (void) { } + void init (const Matrix&, QR::type = QR::std); + Matrix P (void) const { return p; } ! friend ostream& operator << (ostream&, const QRP&); protected: diff -cNr octave-2.0.4/liboctave/idx-vector.cc octave-2.0.5/liboctave/idx-vector.cc *** octave-2.0.4/liboctave/idx-vector.cc Mon Dec 2 00:18:47 1996 --- octave-2.0.5/liboctave/idx-vector.cc Fri Feb 21 17:45:49 1997 *************** *** 470,476 **** delete [] tmp_data; } else ! colon_equiv = 0; colon_equiv_checked = 1; } --- 470,476 ---- delete [] tmp_data; } else ! colon_equiv = (len == 1 && n == 1 && data[0] == 0); colon_equiv_checked = 1; } diff -cNr octave-2.0.4/liboctave/lo-ieee.cc octave-2.0.5/liboctave/lo-ieee.cc *** octave-2.0.4/liboctave/lo-ieee.cc Wed Feb 19 09:42:30 1997 --- octave-2.0.5/liboctave/lo-ieee.cc Fri Feb 21 16:07:55 1997 *************** *** 65,80 **** // Some version of gcc on some old version of Linux used to crash when // trying to make Inf and NaN. ! #if defined (HAVE_INFINITY) ! octave_Inf = infinity (); ! #elif defined (linux) ! octave_Inf = HUGE_VAL; #elif defined (__alpha__) extern unsigned int DINFINITY[2]; octave_Inf = (*((double *) (DINFINITY))); ! #elif defined (SCO) ! double tmp = 1.0; ! octave_Inf = 1.0 / (tmp - tmp); #else double tmp = 1e+10; octave_Inf = tmp; --- 65,80 ---- // Some version of gcc on some old version of Linux used to crash when // trying to make Inf and NaN. ! #if defined (SCO) ! double tmp = 1.0; ! octave_Inf = 1.0 / (tmp - tmp); #elif defined (__alpha__) extern unsigned int DINFINITY[2]; octave_Inf = (*((double *) (DINFINITY))); ! #elif defined (HAVE_INFINITY) ! octave_Inf = infinity (); ! #elif defined (linux) ! octave_Inf = HUGE_VAL; #else double tmp = 1e+10; octave_Inf = tmp; *************** *** 91,103 **** #if defined (HAVE_ISNAN) ! #if defined (HAVE_QUIET_NAN) ! octave_NaN = quiet_nan (0L); ! #elif defined (linux) octave_NaN = NAN; #elif defined (__alpha__) extern unsigned int DQNAN[2]; octave_NaN = (*((double *) (DQNAN))); #else octave_NaN = octave_Inf / octave_Inf; #endif --- 91,103 ---- #if defined (HAVE_ISNAN) ! #if defined (linux) octave_NaN = NAN; #elif defined (__alpha__) extern unsigned int DQNAN[2]; octave_NaN = (*((double *) (DQNAN))); + #elif defined (HAVE_QUIET_NAN) + octave_NaN = quiet_nan (0L); #else octave_NaN = octave_Inf / octave_Inf; #endif diff -cNr octave-2.0.4/liboctave/mach-info.cc octave-2.0.5/liboctave/mach-info.cc *** octave-2.0.4/liboctave/mach-info.cc Sun Jul 14 17:30:15 1996 --- octave-2.0.5/liboctave/mach-info.cc Wed Feb 26 15:50:49 1997 *************** *** 185,191 **** retval = oct_mach_info::ieee_little_endian; else if (s == "vaxd" || s == "d") retval = oct_mach_info::vax_d; ! else if (s == "vax_g" || s == "g") retval = oct_mach_info::vax_g; else if (s == "cray" || s == "c") retval = oct_mach_info::cray; --- 185,191 ---- retval = oct_mach_info::ieee_little_endian; else if (s == "vaxd" || s == "d") retval = oct_mach_info::vax_d; ! else if (s == "vaxg" || s == "g") retval = oct_mach_info::vax_g; else if (s == "cray" || s == "c") retval = oct_mach_info::cray; diff -cNr octave-2.0.4/make/ChangeLog octave-2.0.5/make/ChangeLog *** octave-2.0.4/make/ChangeLog Thu Feb 13 21:26:16 1997 --- octave-2.0.5/make/ChangeLog Wed Feb 26 12:40:26 1997 *************** *** 1,3 **** --- 1,7 ---- + Wed Feb 26 12:40:12 1997 John W. Eaton + + * misc.make (maintainer-clean): Also remove configure and stamp-auto. + Thu Feb 13 21:26:03 1997 John W. Eaton * common.make (SH_LD, SH_LDFLAGS): Substitute here. diff -cNr octave-2.0.4/make/misc.make octave-2.0.5/make/misc.make *** octave-2.0.4/make/misc.make Tue May 14 22:35:37 1996 --- octave-2.0.5/make/misc.make Wed Feb 26 12:40:06 1997 *************** *** 19,25 **** # Although we can remake configure and c-auto.h.in, we don't remove # them, since many people may lack Autoconf. Use configclean for that. maintainer-clean:: distclean ! rm -f TAGS *.info* extraclean:: rm -f *.aux *.bak *.bbl *.blg *.dvi *.log *.orig *.pl *.rej --- 19,25 ---- # Although we can remake configure and c-auto.h.in, we don't remove # them, since many people may lack Autoconf. Use configclean for that. maintainer-clean:: distclean ! rm -f TAGS *.info* configure stamp-auto extraclean:: rm -f *.aux *.bak *.bbl *.blg *.dvi *.log *.orig *.pl *.rej diff -cNr octave-2.0.4/octMakefile.in octave-2.0.5/octMakefile.in *** octave-2.0.4/octMakefile.in Tue Feb 18 03:12:35 1997 --- octave-2.0.5/octMakefile.in Sat Mar 1 16:37:55 1997 *************** *** 125,133 **** .PHONY: clean mostlyclean distclean maintainer-clean maintainer-clean distclean:: ! rm -f octMakefile octave-bug Makeconf config.cache ! rm -f config.h config.log config.status Makerules.f77 ! rm -f mk-oct-links mkoctfile # Rules for making a source distribution. --- 125,134 ---- .PHONY: clean mostlyclean distclean maintainer-clean maintainer-clean distclean:: ! rm -f configure config.h.in octMakefile octave-bug Makefile \ ! Makeconf config.cache config.h config.log config.status \ ! Makerules.f77 mk-oct-links mkoctfile BUGS INSTALL.OCTAVE \ ! Makefrag.f77 # Rules for making a source distribution. *************** *** 150,157 **** rm -rf `cat .fname` tar xf `cat .fname`.tar find `cat .fname` \( \( -name RCS -a -type d \) \ ! -o \( -name OLD -a -type d \) -o -name "=*" \ ! -o -name '*~' -o -name '#*#' -o -name config.log \ -o -name config.status -o -name c-auto.h \) -print | xargs rm -rf rm -f `cat .fname`/test/octave.test/*.m rm -rf `cat .fname`/test/octave.test/npsol --- 151,158 ---- rm -rf `cat .fname` tar xf `cat .fname`.tar find `cat .fname` \( \( -name RCS -a -type d \) \ ! -o \( -name CVS -a -type d \) -o \( -name OLD -a -type d \) \ ! -o -name "=*" -o -name '*~' -o -name '#*#' -o -name config.log \ -o -name config.status -o -name c-auto.h \) -print | xargs rm -rf rm -f `cat .fname`/test/octave.test/*.m rm -rf `cat .fname`/test/octave.test/npsol *************** *** 223,230 **** rm -rf `cat .fname` tar xf `cat .fname`.tar find `cat .fname` \( \( -name RCS -a -type d \) \ ! -o \( -name OLD -a -type d \) -o -name "=*" \ ! -o -name '*~' -o -name '#*#' -o -name Makefile \ -o -name c-auto.h \) -print | xargs rm -rf rm -f `cat .fname`/test/octave.test/*.m rm -rf `cat .fname`/test/octave.test/npsol --- 224,231 ---- rm -rf `cat .fname` tar xf `cat .fname`.tar find `cat .fname` \( \( -name RCS -a -type d \) \ ! -o \( -name CVS -a -type d \) -o \( -name OLD -a -type d \) \ ! -o -name "=*" -o -name '*~' -o -name '#*#' -o -name Makefile \ -o -name c-auto.h \) -print | xargs rm -rf rm -f `cat .fname`/test/octave.test/*.m rm -rf `cat .fname`/test/octave.test/npsol diff -cNr octave-2.0.4/readline/Makefile.in octave-2.0.5/readline/Makefile.in *** octave-2.0.4/readline/Makefile.in Fri Feb 14 16:21:26 1997 --- octave-2.0.5/readline/Makefile.in Wed Feb 26 12:38:51 1997 *************** *** 228,237 **** $(RM) -f stamp-history stamp-readline (if [ -d doc ]; then cd doc; $(MAKE) $(MFLAGS) $@; fi) (if [ -d examples ]; then cd examples; $(MAKE) $(MFLAGS) $@; fi) ! if $(SHARED_LIBS); then rm -f *.$(SHLEXT); fi maintainer-clean realclean distclean:: ! rm -f Makefile config.log config.status stamp-picdir -rmdir pic dist: --- 228,238 ---- $(RM) -f stamp-history stamp-readline (if [ -d doc ]; then cd doc; $(MAKE) $(MFLAGS) $@; fi) (if [ -d examples ]; then cd examples; $(MAKE) $(MFLAGS) $@; fi) ! if $(SHARED_LIBS); then $(RM) -f *.$(SHLEXT); fi maintainer-clean realclean distclean:: ! $(RM) -f Makefile config.log config.status stamp-picdir \ ! configure config.h config.h.in -rmdir pic dist: diff -cNr octave-2.0.4/scripts/ChangeLog octave-2.0.5/scripts/ChangeLog *** octave-2.0.4/scripts/ChangeLog Thu Feb 20 02:58:45 1997 --- octave-2.0.5/scripts/ChangeLog Sat Mar 1 15:23:36 1997 *************** *** 1,3 **** --- 1,47 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Wed Feb 26 01:48:28 1997 John W. Eaton + + * Makefile.in (maintainer-clean): Also remove configure. + + * signal/fftconv.m: Check inputs with is_vector(), not is_matrix(). + + * general/is_matrix.m: Return zero for empty matrices. + + Tue Feb 25 15:16:04 1997 John W. Eaton + + * linear-algebra/vech.m: Size result just once. + + Sun Feb 23 00:15:57 1997 John W. Eaton + + * general/is_square.m: Handle empty matrices correctly. + * general/is_symmetric.m: Handle empty matrices and strings. + + Sat Feb 22 01:06:22 1997 John W. Eaton + + * polynomial/conv.m: Check inputs with is_vector(), not is_matrix(). + * polynomial/deconv.m: Likewise. + * polynomial/polyderiv.m: Likewise. + * polynomial/polyinteg.m: Likewise. + * polynomial/polyreduce.m: Likewise. + * polynomial/polyval.m: Likewise. + * polynomial/polyvalm.m: Likewise. + * general/postpad.m: Likewise. + * general/prepad.m: Likewise. + + * polynomial/compan.m: Check input with is_vector(), not + is_matrix(). Handle scalar case. + + Fri Feb 21 13:36:58 1997 John W. Eaton + + * plot/contour.m: Order data so that it is consistent with + meshgrid and mesh. + + * plot/meshdom.m, plot/meshgrid.m: Change help message. + * plot/sombrero.m: Use meshgrid, not meshdom. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/scripts/Makefile.in octave-2.0.5/scripts/Makefile.in *** octave-2.0.4/scripts/Makefile.in Mon Jan 27 16:03:33 1997 --- octave-2.0.5/scripts/Makefile.in Wed Feb 26 12:10:04 1997 *************** *** 67,73 **** rm -f Makefile config.log config.status maintainer-clean:: ! rm -f tags TAGS Makefile config.log config.status dist: ln $(DISTFILES) ../`cat ../.fname`/scripts --- 67,73 ---- rm -f Makefile config.log config.status maintainer-clean:: ! rm -f tags TAGS configure Makefile config.log config.status dist: ln $(DISTFILES) ../`cat ../.fname`/scripts diff -cNr octave-2.0.4/scripts/elfun/acot.m octave-2.0.5/scripts/elfun/acot.m *** octave-2.0.4/scripts/elfun/acot.m Mon Jul 15 17:31:34 1996 --- octave-2.0.5/scripts/elfun/acot.m Thu Feb 27 13:11:18 1997 *************** *** 27,32 **** usage ("acot (z)"); endif ! w = atan (1 ./ z); endfunction --- 27,32 ---- usage ("acot (z)"); endif ! w = pi/2 - atan (z); endfunction diff -cNr octave-2.0.4/scripts/general/is_matrix.m octave-2.0.5/scripts/general/is_matrix.m *** octave-2.0.4/scripts/general/is_matrix.m Sun Feb 9 22:05:45 1997 --- octave-2.0.5/scripts/general/is_matrix.m Wed Feb 26 01:48:27 1997 *************** *** 29,35 **** if (nargin == 1) [nr, nc] = size (x); ! retval = (nr >= 0 && nc >= 0); else usage ("is_matrix (x)"); endif --- 29,35 ---- if (nargin == 1) [nr, nc] = size (x); ! retval = (nr > 0 && nc > 0); else usage ("is_matrix (x)"); endif diff -cNr octave-2.0.4/scripts/general/is_square.m octave-2.0.5/scripts/general/is_square.m *** octave-2.0.4/scripts/general/is_square.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/general/is_square.m Sat Feb 22 16:02:15 1997 *************** *** 32,38 **** if (nargin == 1) [nr, nc] = size (x); ! if (nr == nc) retval = nr; else retval = 0; --- 32,38 ---- if (nargin == 1) [nr, nc] = size (x); ! if (nr == nc && nr > 0) retval = nr; else retval = 0; diff -cNr octave-2.0.4/scripts/general/is_symmetric.m octave-2.0.5/scripts/general/is_symmetric.m *** octave-2.0.4/scripts/general/is_symmetric.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/general/is_symmetric.m Sat Feb 22 16:16:31 1997 *************** *** 30,42 **** function retval = is_symmetric (x,tol) if (nargin == 1 || nargin == 2) ! if ((retval = is_square (x))) if (nargin == 1) tol = eps; endif ! if (norm (x - x') / norm(x) > tol) ! retval = 0; endif endif else --- 30,48 ---- function retval = is_symmetric (x,tol) + retval = 0; + if (nargin == 1 || nargin == 2) ! [nr, nc] = size (x); ! if (nr == nc && nr > 0) if (nargin == 1) tol = eps; endif ! if (isstr (x)) ! x = toascii (x); ! endif ! if (norm (x - x') / norm(x) <= tol) ! retval = nr; endif endif else diff -cNr octave-2.0.4/scripts/general/postpad.m octave-2.0.5/scripts/general/postpad.m *** octave-2.0.4/scripts/general/postpad.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/general/postpad.m Sat Feb 22 02:35:00 1997 *************** *** 38,44 **** usage ("postpad (x, l) or postpad (x, l, c)"); endif ! if (is_matrix (x)) error ("first argument must be a vector"); elseif (! is_scalar (l)) error ("second argument must be a scaler"); --- 38,44 ---- usage ("postpad (x, l) or postpad (x, l, c)"); endif ! if (! is_vector (x)) error ("first argument must be a vector"); elseif (! is_scalar (l)) error ("second argument must be a scaler"); diff -cNr octave-2.0.4/scripts/general/prepad.m octave-2.0.5/scripts/general/prepad.m *** octave-2.0.4/scripts/general/prepad.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/general/prepad.m Sat Feb 22 02:34:47 1997 *************** *** 38,44 **** usage ("prepad (x, l) or prepad (x, l, c)"); endif ! if (is_matrix (x)) error ("first argument must be a vector"); elseif (! is_scalar (l)) error ("second argument must be a scaler"); --- 38,44 ---- usage ("prepad (x, l) or prepad (x, l, c)"); endif ! if (! is_vector (x)) error ("first argument must be a vector"); elseif (! is_scalar (l)) error ("second argument must be a scaler"); diff -cNr octave-2.0.4/scripts/linear-algebra/vech.m octave-2.0.5/scripts/linear-algebra/vech.m *** octave-2.0.4/scripts/linear-algebra/vech.m Tue Nov 19 17:59:44 1996 --- octave-2.0.5/scripts/linear-algebra/vech.m Tue Feb 25 15:15:01 1997 *************** *** 40,45 **** --- 40,46 ---- ## This should be quicker than having an inner `for' loop as well. ## Ideally, vech should be written in C++. n = rows (x); + v = zeros ((n+1)*n/2, 1); count = 0; for j = 1 : n i = j : n; diff -cNr octave-2.0.4/scripts/plot/contour.m octave-2.0.5/scripts/plot/contour.m *** octave-2.0.4/scripts/plot/contour.m Sun Feb 9 20:15:03 1997 --- octave-2.0.5/scripts/plot/contour.m Fri Feb 21 20:33:30 1997 *************** *** 53,64 **** x = x'; endif len = 3 * ylen; ! zz = zeros (xlen, ylen); k = 1; for i = 1:3:len zz(:,i) = x; zz(:,i+1) = y(k) * ones (xlen, 1); ! zz(:,i+2) = z(:,k); k++; endfor gset nosurface; --- 53,64 ---- x = x'; endif len = 3 * ylen; ! zz = zeros (xlen, len); k = 1; for i = 1:3:len zz(:,i) = x; zz(:,i+1) = y(k) * ones (xlen, 1); ! zz(:,i+2) = z(k,:)'; k++; endfor gset nosurface; diff -cNr octave-2.0.4/scripts/plot/meshdom.m octave-2.0.5/scripts/plot/meshdom.m *** octave-2.0.4/scripts/plot/meshdom.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/plot/meshdom.m Fri Feb 21 13:35:32 1997 *************** *** 19,31 **** ## usage: [xx, yy] = meshdom (x, y) ## ! ## Given vectors of x and y coordinates, return two matrices ! ## corresponding to the x and y coordinates of the mesh. ! ## ! ## See the file sombrero.m for an example of using mesh and meshdom. ! ## ! ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ! ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title ## Author: jwe --- 19,26 ---- ## usage: [xx, yy] = meshdom (x, y) ## ! ## Note: this function is provided for compatibility with older versions ! ## of Matlab. You should use meshgrid() instead. ## Author: jwe diff -cNr octave-2.0.4/scripts/plot/meshgrid.m octave-2.0.5/scripts/plot/meshgrid.m *** octave-2.0.4/scripts/plot/meshgrid.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/plot/meshgrid.m Fri Feb 21 13:36:41 1997 *************** *** 25,30 **** --- 25,32 ---- ## ## [xx, yy] = meshgrid (x) is an abbreviation for [xx, yy] = meshgrid (x, x). ## + ## See sombrero.m for an example of using meshgrid. + ## ## See also: plot, semilogx, semilogy, loglog, polar, mesh, meshdom, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title diff -cNr octave-2.0.4/scripts/plot/sombrero.m octave-2.0.5/scripts/plot/sombrero.m *** octave-2.0.4/scripts/plot/sombrero.m Mon Jan 20 12:28:33 1997 --- octave-2.0.5/scripts/plot/sombrero.m Fri Feb 21 13:39:40 1997 *************** *** 32,42 **** usage ("sombrero (n)"); endif ! x = y = linspace (-8, 8, n)'; ! [xx, yy] = meshdom (x, y); ! r = sqrt (xx .^ 2 + yy .^ 2) + eps; ! z = sin (r) ./ r; ! mesh (x, y, z); endfunction --- 32,46 ---- usage ("sombrero (n)"); endif ! if (n > 1) ! x = y = linspace (-8, 8, n)'; ! [xx, yy] = meshgrid (x, y); ! r = sqrt (xx .^ 2 + yy .^ 2) + eps; ! z = sin (r) ./ r; ! mesh (x, y, z); ! else ! error ("sombrero: number of grid lines must be greater than 1"); ! endif endfunction diff -cNr octave-2.0.4/scripts/polynomial/compan.m octave-2.0.5/scripts/polynomial/compan.m *** octave-2.0.4/scripts/polynomial/compan.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/polynomial/compan.m Sat Feb 22 01:06:21 1997 *************** *** 52,69 **** usage ("compan (vector)"); endif ! if(is_matrix (c)) error("compan: expecting a vector argument."); endif ## Ensure that c is a row vector. ! if(rows(c) > 1) c = c.'; endif n = length (c); ! A = diag (ones (n-2, 1), -1); ! A (1, :) = -c (2:n) /c (1); endfunction --- 52,74 ---- usage ("compan (vector)"); endif ! if (! is_vector (c)) error("compan: expecting a vector argument."); endif ## Ensure that c is a row vector. ! if (rows (c) > 1) c = c.'; endif n = length (c); ! ! if (n == 1) ! A = []; ! else ! A = diag (ones (n-2, 1), -1); ! A(1,:) = -c(2:n) / c(1); ! endif endfunction diff -cNr octave-2.0.4/scripts/polynomial/conv.m octave-2.0.5/scripts/polynomial/conv.m *** octave-2.0.4/scripts/polynomial/conv.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/polynomial/conv.m Sat Feb 22 01:17:40 1997 *************** *** 39,45 **** usage ("conv(a, b)"); endif ! if (is_matrix (a) || is_matrix (b)) error("conv: both arguments must be vectors"); endif --- 39,45 ---- usage ("conv(a, b)"); endif ! if (! (is_vector (a) && is_vector (b))) error("conv: both arguments must be vectors"); endif diff -cNr octave-2.0.4/scripts/polynomial/deconv.m octave-2.0.5/scripts/polynomial/deconv.m *** octave-2.0.4/scripts/polynomial/deconv.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/polynomial/deconv.m Sat Feb 22 01:24:56 1997 *************** *** 41,47 **** usage ("deconv (y, a)"); endif ! if (is_matrix (y) || is_matrix (a)) error("conv: both arguments must be vectors"); endif --- 41,47 ---- usage ("deconv (y, a)"); endif ! if (! (is_vector (y) && is_vector (a))) error("conv: both arguments must be vectors"); endif diff -cNr octave-2.0.4/scripts/polynomial/polyderiv.m octave-2.0.5/scripts/polynomial/polyderiv.m *** octave-2.0.4/scripts/polynomial/polyderiv.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/polynomial/polyderiv.m Sat Feb 22 01:39:31 1997 *************** *** 35,41 **** usage ("polyderiv (vector)"); endif ! if (is_matrix (p)) error ("argument must be a vector"); endif --- 35,41 ---- usage ("polyderiv (vector)"); endif ! if (! is_vector (p)) error ("argument must be a vector"); endif diff -cNr octave-2.0.4/scripts/polynomial/polyinteg.m octave-2.0.5/scripts/polynomial/polyinteg.m *** octave-2.0.4/scripts/polynomial/polyinteg.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/polynomial/polyinteg.m Sat Feb 22 02:04:38 1997 *************** *** 37,43 **** usage ("polyinteg (vector)"); endif ! if (is_matrix (p)) error ("argument must be a vector"); endif --- 37,43 ---- usage ("polyinteg (vector)"); endif ! if (! (is_vector (p) || isempty (p))) error ("argument must be a vector"); endif diff -cNr octave-2.0.4/scripts/polynomial/polyreduce.m octave-2.0.5/scripts/polynomial/polyreduce.m *** octave-2.0.4/scripts/polynomial/polyreduce.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/polynomial/polyreduce.m Sat Feb 22 02:32:03 1997 *************** *** 31,50 **** function p = polyreduce (p) ! index = find (p == 0); ! if (length (index) != 0) ! index = find (index == 1:length (index)); if (length (index) != 0) ! if (length (p) > 1) ! p = p (index (length (index))+1:length (p)); ! endif - if (length (p) == 0) - p = 0; endif endif --- 31,62 ---- function p = polyreduce (p) ! if (nargin != 1) ! usage ("polyreduce (p)"); ! endif ! if (! (is_vector (p) || isempty (p))) ! error ("polyreduce: argument must be a vector"); ! endif ! if (! isempty (p)) ! ! index = find (p == 0); if (length (index) != 0) ! index = find (index == 1:length (index)); ! ! if (length (index) != 0) ! ! if (length (p) > 1) ! p = p (index (length (index))+1:length (p)); ! endif ! ! if (length (p) == 0) ! p = 0; ! endif endif endif diff -cNr octave-2.0.4/scripts/polynomial/polyval.m octave-2.0.5/scripts/polynomial/polyval.m *** octave-2.0.4/scripts/polynomial/polyval.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/polynomial/polyval.m Sat Feb 22 02:14:10 1997 *************** *** 45,52 **** usage ("polyval (c, x)"); endif ! if(is_matrix (c)) error ("poly: first argument must be a vector."); endif if (length (c) == 0) --- 45,57 ---- usage ("polyval (c, x)"); endif ! if (! (is_vector (c) || isempty (c))) error ("poly: first argument must be a vector."); + endif + + if (isempty (x)) + y = []; + return; endif if (length (c) == 0) diff -cNr octave-2.0.4/scripts/polynomial/polyvalm.m octave-2.0.5/scripts/polynomial/polyvalm.m *** octave-2.0.4/scripts/polynomial/polyvalm.m Thu Jul 11 16:25:22 1996 --- octave-2.0.5/scripts/polynomial/polyvalm.m Sat Feb 22 02:24:10 1997 *************** *** 46,52 **** usage ("polyvalm (c, x)"); endif ! if (is_matrix (c)) error("poly: first argument must be a vector."); endif --- 46,52 ---- usage ("polyvalm (c, x)"); endif ! if (! (is_vector (c) || isempty (c))) error("poly: first argument must be a vector."); endif *************** *** 54,60 **** error("poly: second argument must be a square matrix."); endif ! [v, d] = eig(x); y = v * diag (polyval (c, diag (d))) * v'; --- 54,65 ---- error("poly: second argument must be a square matrix."); endif ! if (isempty (c)) ! y = []; ! return; ! endif ! ! [v, d] = eig (x); y = v * diag (polyval (c, diag (d))) * v'; diff -cNr octave-2.0.4/scripts/signal/fftconv.m octave-2.0.5/scripts/signal/fftconv.m *** octave-2.0.4/scripts/signal/fftconv.m Mon Jul 15 17:20:21 1996 --- octave-2.0.5/scripts/signal/fftconv.m Wed Feb 26 02:20:50 1997 *************** *** 37,43 **** usage ("fftconv (b, x [, N])"); endif ! if (is_matrix (a) || is_matrix (b)) error ("fftconv: both a and b should be vectors"); endif la = length (a); --- 37,43 ---- usage ("fftconv (b, x [, N])"); endif ! if (! (is_vector (a) && is_vector (b))) error ("fftconv: both a and b should be vectors"); endif la = length (a); diff -cNr octave-2.0.4/scripts/special-matrix/hadamard.m octave-2.0.5/scripts/special-matrix/hadamard.m *** octave-2.0.4/scripts/special-matrix/hadamard.m Thu Jul 11 22:58:02 1996 --- octave-2.0.5/scripts/special-matrix/hadamard.m Tue Feb 25 12:45:00 1997 *************** *** 31,41 **** usage ("hadamard (n)"); endif ! if (k < 1) ! retval = 1; else ! tmp = hadamard (k-1); ! retval = [tmp, tmp; tmp, -tmp]; endif endfunction --- 31,45 ---- usage ("hadamard (n)"); endif ! if (is_scalar (k)) ! if (k < 1) ! retval = 1; ! else ! tmp = hadamard (k-1); ! retval = [tmp, tmp; tmp, -tmp]; ! endif else ! error ("hadamard: expecting scalar argument"); endif endfunction diff -cNr octave-2.0.4/src/ChangeLog octave-2.0.5/src/ChangeLog *** octave-2.0.4/src/ChangeLog Thu Feb 20 02:58:40 1997 --- octave-2.0.5/src/ChangeLog Sat Mar 1 15:23:31 1997 *************** *** 1,3 **** --- 1,89 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + + Sat Mar 1 01:34:08 1997 John W. Eaton + + * Makefile.in (stamp-oct-links): New target. Make links in build + directory too, so that the tests will work. + + * quad.cc: If quad is defined, undefine it. + + * octave.cc: If WITH_KPATHSEARCH is defined, don't define + program_invocation_name or program_invocation_short_name. + + * strftime.c: Update to current version from FSF. + * time.cc (Fstrftime): Call strftime with buf = 0 to get buffer + size, then call again to actually format the time struct. + + Fri Feb 28 01:49:48 1997 John W. Eaton + + Implement switch statement: + + * parse.y (Vwarn_variable_switch_label): New static variable. + (warn_variable_switch_label): New function. + (symbols_of_parse): Provide warn_variable_switch_label as Octave + variable here. + (make_switch_case, finish_switch_command): New functions. + (maybe_warn_variable_switch_label): New function. + (end_error): Handle endswitch. + (switch_command, case_list, case_list1, switch_case, default_case): + New nonterminals. + (command): Add switch_command here. + * lex.l (is_keyword): Handle switch, case, otherwise, and endswitch. + * octave_gperf: Recognize switch, case, otherwise, and endswitch. + * token.h (end_tok_type): New item, switch_end. + * pt-cmd.cc (tree_switch_command): New class. + * pt-misc.cc (tree_switch_case, tree_switch_case_list): New classes. + * pt-pr-code.cc (tree_print_code::visit_switch_case, + tree_print_code::visit_switch_case_list, + tree_print_code::visit_switch_command): New functions. + * pt-walk.h (tree_walker::visit_switch_case, + tree_walker::visit_switch_case_list, + tree_walker::visit_switch_command): New pure virtual declarations. + Implement new switch statement. + * SLList-misc.cc: Instantiate lists of pointers to + tree_switch_case objects too. + + * lex.h, lex.l, parse.y: Delete all references to lexer_flags::iffing. + + * syswait.h: Include sys/wait.h on NeXT systems, but don't use the + WIFEXTED, WEXITSTATUS, and WIFSIGNALLED macros defined there. + Also define waitpid in terms of wait4. From Rex A. Dieter + . + + Wed Feb 26 16:43:31 1997 John W. Eaton + + * oct-stream.cc (octave_base_stream::do_scanf): Don't report an + error if a conversion fails or we reach EOF. + + Tue Feb 25 22:21:05 1997 John W. Eaton + + * time.cc (strftime): increase initial buffer size. + + Mon Feb 24 17:49:21 1997 John W. Eaton + + * pt-fvc.cc (tree_builtin::eval): Enable checking for max number + of arguments. + + * error.cc (handle_message): Don't fail if args is empty. + + Sun Feb 23 22:42:52 1997 John W. Eaton + + * lex.h (lexical_feedback::looking_at_return_list): New field. + (lexical_feedback::looking_at_parameter_list): Ditto. + * lex.l (lexical_feedback::init): Initialize them. + (handle_identifier): Use them. + * parse.y: Likewise. + + Fri Feb 21 15:35:18 1997 John W. Eaton + + * lex.l: Require flex 2.5 or later (we really want 2.5.4 or later, + but there seems to be no good way to check the patchlevel). + + * oct-stream.cc (octave_base_stream::oscanf): Instead of returning + an error, just quit processing after a conversion fails. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/src/Makefile.in octave-2.0.5/src/Makefile.in *** octave-2.0.4/src/Makefile.in Tue Feb 18 19:10:35 1997 --- octave-2.0.5/src/Makefile.in Sat Mar 1 15:20:04 1997 *************** *** 171,178 **** BINDISTFILES = octave $(OCT_FILES) endif ! all: libraries $(OCT_FILES) octave .PHONY: all stamp-prereq: stamp-picdir defaults.h oct-conf.h touch stamp-prereq --- 171,184 ---- BINDISTFILES = octave $(OCT_FILES) endif ! all: libraries stamp-oct-links octave .PHONY: all + + stamp-oct-links: $(OCT_FILES) + if [ -n "$(OCT_FILES)" ]; then \ + $(srcdir)/mk-oct-links . $(addprefix $(srcdir)/, $(DLD_SRC)) ; \ + fi + touch stamp-oct-links stamp-prereq: stamp-picdir defaults.h oct-conf.h touch stamp-prereq diff -cNr octave-2.0.4/src/SLList-misc.cc octave-2.0.5/src/SLList-misc.cc *** octave-2.0.4/src/SLList-misc.cc Mon Dec 9 23:50:55 1996 --- octave-2.0.5/src/SLList-misc.cc Fri Feb 28 12:54:43 1997 *************** *** 39,47 **** template class SLNode; template class SLList; template class SLList; template class SLNode; - /* ;;; Local Variables: *** --- 39,49 ---- template class SLNode; template class SLList; + template class SLList; + template class SLNode; + template class SLList; template class SLNode; /* ;;; Local Variables: *** diff -cNr octave-2.0.4/src/error.cc octave-2.0.5/src/error.cc *** octave-2.0.4/src/error.cc Thu Jan 23 00:39:00 1997 --- octave-2.0.5/src/error.cc Mon Feb 24 17:49:20 1997 *************** *** 211,230 **** int nargin = args.length (); ! octave_value arg = ((nargin > 1) ? Fsprintf (args, 1) : args) (0); ! ! if (arg.is_defined ()) { ! if (arg.is_string ()) ! { ! tstr = arg.string_value (); ! msg = tstr.c_str (); ! if (! msg) return retval; } - else if (arg.is_empty ()) - return retval; } // Ugh. --- 211,233 ---- int nargin = args.length (); ! if (nargin > 0) { ! octave_value arg = ((nargin > 1) ? Fsprintf (args, 1) : args) (0); ! if (arg.is_defined ()) ! { ! if (arg.is_string ()) ! { ! tstr = arg.string_value (); ! msg = tstr.c_str (); ! ! if (! msg) ! return retval; ! } ! else if (arg.is_empty ()) return retval; } } // Ugh. diff -cNr octave-2.0.4/src/lex.h octave-2.0.5/src/lex.h *** octave-2.0.4/src/lex.h Mon May 13 08:43:07 1996 --- octave-2.0.5/src/lex.h Fri Feb 28 13:59:10 1997 *************** *** 137,151 **** // Nonzero means we're in the middle of defining a function. int defining_func; // GAG. Stupid kludge so that [[1,2][3,4]] will work. int do_comma_insert; // Nonzero means we think we are looking at a set command. int doing_set; - - // Nonzero means we're in the middle of defining a conditional - // expression. - int iffing; // Nonzero means we're looking at the range part of a plot command. int in_plot_range; --- 137,153 ---- // Nonzero means we're in the middle of defining a function. int defining_func; + // Nonzero means we're parsing the return list for a function. + int looking_at_return_list; + + // Nonzero means we're parsing the parameter list for a function. + int looking_at_parameter_list; + // GAG. Stupid kludge so that [[1,2][3,4]] will work. int do_comma_insert; // Nonzero means we think we are looking at a set command. int doing_set; // Nonzero means we're looking at the range part of a plot command. int in_plot_range; diff -cNr octave-2.0.4/src/lex.l octave-2.0.5/src/lex.l *** octave-2.0.4/src/lex.l Wed Feb 19 12:31:55 1997 --- octave-2.0.5/src/lex.l Fri Feb 28 14:32:10 1997 *************** *** 63,68 **** --- 63,74 ---- #include #include + #if ! (defined (FLEX_SCANNER) \ + && defined (YY_FLEX_MAJOR_VERSION) && YY_FLEX_MAJOR_VERSION >= 2 \ + && defined (YY_FLEX_MINOR_VERSION) && YY_FLEX_MINOR_VERSION >= 5) + #error lex.l requires flex version 2.5.4 or later + #endif + // Flags that need to be shared between the lexer and parser. lexical_feedback lexer_flags; *************** *** 953,963 **** --- 959,971 ---- { case all_va_args_kw: case break_kw: + case case_kw: case catch_kw: case continue_kw: case else_kw: case elseif_kw: case global_kw: + case otherwise_kw: case return_kw: case unwind_protect_cleanup_kw: break; *************** *** 986,991 **** --- 994,1003 ---- yylval.tok_val = new token (token::if_end, l, c); break; + case endswitch_kw: + yylval.tok_val = new token (token::switch_end, l, c); + break; + case endwhile_kw: yylval.tok_val = new token (token::while_end, l, c); break; *************** *** 997,1007 **** break; case if_kw: - promptflag--; - lexer_flags.iffing++; - break; - case try_kw: case unwind_protect_kw: promptflag--; break; --- 1009,1016 ---- break; case if_kw: case try_kw: + case switch_kw: case unwind_protect_kw: promptflag--; break; *************** *** 1753,1765 **** // Kluge alert. // // If we are looking at a text style function, set up to gobble its ! // arguments. If the following token is `=', force the symbol to be // inserted as a variable in the current symbol table. if (is_text_function_name (tok) && ! is_variable (tok)) { ! if (next_tok_is_eq) ! force_local_variable (tok); else if (! next_tok_is_paren) { if (tok == "gset") --- 1762,1781 ---- // Kluge alert. // // If we are looking at a text style function, set up to gobble its ! // arguments. ! // ! // If the following token is `=', or if we are parsing a function ! // return list or function parameter list, force the symbol to be // inserted as a variable in the current symbol table. if (is_text_function_name (tok) && ! is_variable (tok)) { ! if (next_tok_is_eq ! || lexer_flags.looking_at_return_list ! || lexer_flags.looking_at_parameter_list) ! { ! force_local_variable (tok); ! } else if (! next_tok_is_paren) { if (tok == "gset") *************** *** 1871,1876 **** --- 1887,1896 ---- beginning_of_function = 0; defining_func = 0; + // Not parsing a function return or parameter list. + looking_at_return_list = 0; + looking_at_parameter_list = 0; + // Not initially defining a matrix list. braceflag = 0; *************** *** 1891,1897 **** plotting = 0; // Not initially inside a loop or if statement. - iffing = 0; looping = 0; // Not initially looking at indirect references. --- 1911,1916 ---- diff -cNr octave-2.0.4/src/oct-gperf.h octave-2.0.5/src/oct-gperf.h *** octave-2.0.4/src/oct-gperf.h Thu Feb 20 03:03:13 1997 --- octave-2.0.5/src/oct-gperf.h Sat Mar 1 16:41:54 1997 *************** *** 5,10 **** --- 5,11 ---- { all_va_args_kw, break_kw, + case_kw, catch_kw, continue_kw, else_kw, *************** *** 15,20 **** --- 16,22 ---- endfor_kw, endfunction_kw, endif_kw, + endswitch_kw, endwhile_kw, for_kw, function_kw, *************** *** 22,29 **** --- 24,33 ---- gplot_kw, gsplot_kw, if_kw, + otherwise_kw, replot_kw, return_kw, + switch_kw, try_kw, unwind_protect_kw, unwind_protect_cleanup_kw, *************** *** 31,37 **** }; struct octave_kw { char *name; int tok; octave_kw_id kw_id; }; ! /* maximum key range = 45, duplicates = 0 */ #ifdef __GNUC__ inline --- 35,41 ---- }; struct octave_kw { char *name; int tok; octave_kw_id kw_id; }; ! /* maximum key range = 48, duplicates = 0 */ #ifdef __GNUC__ inline *************** *** 41,59 **** { static const unsigned char asso_values[] = { ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, ! 47, 47, 47, 47, 47, 47, 47, 20, 5, 15, ! 0, 0, 0, 15, 15, 0, 47, 0, 5, 47, ! 3, 47, 0, 47, 10, 0, 25, 0, 47, 10, ! 47, 5, 47, 47, 47, 47, 47, 47, }; return len + asso_values[str[len - 1]] + asso_values[str[0]]; } --- 45,63 ---- { static const unsigned char asso_values[] = { ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, ! 50, 50, 50, 50, 50, 50, 50, 20, 5, 15, ! 0, 0, 0, 15, 15, 0, 50, 0, 5, 50, ! 28, 0, 0, 50, 10, 0, 25, 10, 50, 10, ! 50, 5, 50, 50, 50, 50, 50, 50, }; return len + asso_values[str[len - 1]] + asso_values[str[0]]; } *************** *** 66,76 **** { enum { ! TOTAL_KEYWORDS = 25, MIN_WORD_LENGTH = 2, MAX_WORD_LENGTH = 22, MIN_HASH_VALUE = 2, ! MAX_HASH_VALUE = 46, }; static const struct octave_kw wordlist[] = --- 70,80 ---- { enum { ! TOTAL_KEYWORDS = 29, MIN_WORD_LENGTH = 2, MAX_WORD_LENGTH = 22, MIN_HASH_VALUE = 2, ! MAX_HASH_VALUE = 49, }; static const struct octave_kw wordlist[] = *************** *** 83,120 **** {"elseif", ELSEIF, elseif_kw}, {"",}, {"endwhile", END, endwhile_kw}, ! {"",}, {"break", BREAK, break_kw}, ! {"function", FCN, function_kw}, ! {"",}, {"for", FOR, for_kw}, ! {"endfunction", END, endfunction_kw}, {"while", WHILE, while_kw}, {"endfor", END, endfor_kw}, {"",}, {"",}, ! {"return", FUNC_RET, return_kw}, ! {"",}, {"",}, ! {"unwind_protect_cleanup", CLEANUP, unwind_protect_cleanup_kw}, {"continue", CONTINUE, continue_kw}, ! {"",}, {"",}, {"global", GLOBAL, global_kw}, {"",}, {"end_try_catch", END, end_try_catch_kw}, {"",}, {"",}, {"all_va_args", ALL_VA_ARGS, all_va_args_kw}, ! {"",}, {"try", TRY, try_kw}, {"",}, {"catch", CATCH, catch_kw}, ! {"",}, {"",}, {"",}, ! {"unwind_protect", UNWIND, unwind_protect_kw}, {"",}, {"replot", PLOT, replot_kw}, {"",}, {"end_unwind_protect", END, end_unwind_protect_kw}, ! {"",}, {"gplot", PLOT, gplot_kw}, {"gsplot", PLOT, gsplot_kw}, }; if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) --- 87,128 ---- {"elseif", ELSEIF, elseif_kw}, {"",}, {"endwhile", END, endwhile_kw}, ! {"otherwise", OTHERWISE, otherwise_kw}, {"break", BREAK, break_kw}, ! {"",}, {"",}, {"for", FOR, for_kw}, ! {"",}, {"while", WHILE, while_kw}, {"endfor", END, endfor_kw}, {"",}, {"",}, ! {"case", CASE, case_kw}, ! {"",}, ! {"switch", SWITCH, switch_kw}, ! {"",}, {"continue", CONTINUE, continue_kw}, ! {"endswitch", END, endswitch_kw}, ! {"",}, {"global", GLOBAL, global_kw}, {"",}, {"end_try_catch", END, end_try_catch_kw}, {"",}, {"",}, {"all_va_args", ALL_VA_ARGS, all_va_args_kw}, ! {"unwind_protect_cleanup", CLEANUP, unwind_protect_cleanup_kw}, {"try", TRY, try_kw}, {"",}, {"catch", CATCH, catch_kw}, ! {"function", FCN, function_kw}, ! {"",}, {"",}, ! {"endfunction", END, endfunction_kw}, {"",}, {"replot", PLOT, replot_kw}, {"",}, {"end_unwind_protect", END, end_unwind_protect_kw}, ! {"return", FUNC_RET, return_kw}, {"gplot", PLOT, gplot_kw}, {"gsplot", PLOT, gsplot_kw}, + {"",}, {"",}, + {"unwind_protect", UNWIND, unwind_protect_kw}, }; if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) diff -cNr octave-2.0.4/src/oct-stream.cc octave-2.0.5/src/oct-stream.cc *** octave-2.0.4/src/oct-stream.cc Fri Feb 14 17:23:55 1997 --- octave-2.0.5/src/oct-stream.cc Wed Feb 26 16:43:29 1997 *************** *** 999,1005 **** is.scan (fmt, &dummy); } ! break; case 'd': case 'i': case 'o': case 'u': case 'x': { --- 999,1005 ---- is.scan (fmt, &dummy); } ! break; case 'd': case 'i': case 'o': case 'u': case 'x': { *************** *** 1008,1014 **** do_scanf_conv (is, fmt, &tmp, mval, data, count, nr, max_size, discard); } ! break; case 'e': case 'f': case 'g': { --- 1008,1014 ---- do_scanf_conv (is, fmt, &tmp, mval, data, count, nr, max_size, discard); } ! break; case 'e': case 'f': case 'g': { *************** *** 1017,1023 **** do_scanf_conv (is, fmt, &tmp, mval, data, count, nr, max_size, discard); } ! break; case 'c': is.unsetf (ios::skipws); --- 1017,1023 ---- do_scanf_conv (is, fmt, &tmp, mval, data, count, nr, max_size, discard); } ! break; case 'c': is.unsetf (ios::skipws); *************** *** 1070,1076 **** is.setf (flags); } ! break; case 'p': case '[': error ("fscanf: unsupported format specifier"); --- 1070,1076 ---- is.setf (flags); } ! break; case 'p': case '[': error ("fscanf: unsupported format specifier"); *************** *** 1087,1106 **** } else if (! is) { ! if (is.eof ()) { ! if (nr > 0) { ! if (count > nr) ! { ! final_nr = nr; ! final_nc = (count - 1) / nr + 1; ! } ! else ! { ! final_nr = count; ! final_nc = 1; ! } } else { --- 1087,1098 ---- } else if (! is) { ! if (nr > 0) { ! if (count > nr) { ! final_nr = nr; ! final_nc = (count - 1) / nr + 1; } else { *************** *** 1110,1128 **** } else { ! error ("fscanf: read error"); ! // XXX FIXME XXX -- is this the right thing to do? ! // What about other streams? ! if (name () == "stdin") ! { ! is.clear (); ! // Skip to end of line. ! bool err; ! do_gets (-1, err, false, "fscanf"); ! } } break; --- 1102,1121 ---- } else { ! final_nr = count; ! final_nc = 1; ! } ! // XXX FIXME XXX -- is this the right thing to do? ! // What about other streams? ! if (name () == "stdin") ! { ! is.clear (); ! // Skip to end of line. ! bool err; ! do_gets (-1, err, false, "fscanf"); } break; *************** *** 1224,1290 **** } } else ! invalid_operation ("fscanf", "writing"); return retval; } ! template ! octave_value ! do_oscanf_num_conv (istream& is, const char *fmt, T valptr, bool discard) { ! octave_value retval; ! ! is.scan (fmt, valptr); ! ! if (is) ! { ! if (! discard) ! retval = (double) (*valptr); ! } ! else ! error ("fscanf: conversion failed"); ! ! return retval; ! } ! ! template octave_value ! do_oscanf_num_conv (istream&, const char*, int*, bool); ! ! #if 0 ! template octave_value ! do_oscanf_num_conv (istream&, const char*, float*, bool); ! #endif ! ! template octave_value ! do_oscanf_num_conv (istream&, const char*, double*, bool); ! ! static inline octave_value ! do_oscanf_str_conv (istream& is, const char *fmt, char *sptr, ! int maxlen, bool discard) ! { ! octave_value retval; ! ! is.scan (fmt, sptr); ! ! if (is) ! { ! if (! discard) ! { ! sptr[maxlen] = '\0'; ! retval = sptr; ! } ! } ! else ! error ("fscanf: conversion failed"); ! ! return retval; ! } ! ! octave_value ! octave_base_stream::do_oscanf (const scanf_format_elt *elt) ! { ! octave_value retval; istream *isp = input_stream (); --- 1217,1232 ---- } } else ! invalid_operation ("fscanf", "reading"); return retval; } ! bool ! octave_base_stream::do_oscanf (const scanf_format_elt *elt, ! octave_value& retval) { ! bool quit = false; istream *isp = input_stream (); *************** *** 1306,1312 **** { int dummy; ! is.scan (fmt, &dummy); } break; --- 1248,1255 ---- { int dummy; ! if (! is.scan (fmt, &dummy)) ! quit = true; } break; *************** *** 1314,1320 **** { int tmp; ! retval = do_oscanf_num_conv (is, fmt, &tmp, discard); } break; --- 1257,1269 ---- { int tmp; ! if (is.scan (fmt, &tmp)) ! { ! if (! discard) ! retval = (double) tmp; ! } ! else ! quit = true; } break; *************** *** 1322,1328 **** { double tmp; ! retval = do_oscanf_num_conv (is, fmt, &tmp, discard); } break; --- 1271,1283 ---- { double tmp; ! if (is.scan (fmt, &tmp)) ! { ! if (! discard) ! retval = tmp; ! } ! else ! quit = true; } break; *************** *** 1334,1340 **** char *tmp = new char[width + 1]; ! retval = do_oscanf_str_conv (is, fmt, tmp, width, discard); is.setf (flags); --- 1289,1304 ---- char *tmp = new char[width + 1]; ! if (is.scan (fmt, tmp)) ! { ! if (! discard) ! { ! tmp[width] = '\0'; ! retval = tmp; ! } ! } ! else ! quit = true; is.setf (flags); *************** *** 1349,1355 **** int width = elt->width ? elt->width : 65535; char *tmp = new char [width+1]; ! retval = do_oscanf_str_conv (is, fmt, tmp, width, discard); delete [] tmp; } --- 1313,1328 ---- int width = elt->width ? elt->width : 65535; char *tmp = new char [width+1]; ! if (is.scan (fmt, tmp)) ! { ! if (! discard) ! { ! tmp[width] = '\0'; ! retval = tmp; ! } ! } ! else ! quit = true; delete [] tmp; } *************** *** 1383,1389 **** } } ! return retval; } octave_value_list --- 1356,1362 ---- } } ! return quit; } octave_value_list *************** *** 1451,1480 **** int num_values = 0; for (int i = 0; i < nconv; i++) { ! octave_value tmp = do_oscanf (elt); ! if (tmp.is_defined ()) ! retval (num_values++) = tmp; ! if (! ok ()) break; ! elt = fmt_list.next (); } retval.resize (num_values); ! // Pick up any trailing stuff. ! if (ok () && len > nconv) ! do_oscanf (elt); } break; } } else ! invalid_operation ("fscanf", "writing"); return retval; } --- 1424,1467 ---- int num_values = 0; + bool quit = false; + for (int i = 0; i < nconv; i++) { ! octave_value tmp; ! quit = do_oscanf (elt, tmp); ! if (quit) break; + else + { + if (tmp.is_defined ()) + retval (num_values++) = tmp; ! if (! ok ()) ! break; ! elt = fmt_list.next (); ! } } retval.resize (num_values); ! if (! quit) ! { ! // Pick up any trailing stuff. ! if (ok () && len > nconv) ! { ! octave_value tmp; ! do_oscanf (elt, tmp); ! } ! } } break; } } else ! invalid_operation ("fscanf", "reading"); return retval; } diff -cNr octave-2.0.4/src/oct-stream.h octave-2.0.5/src/oct-stream.h *** octave-2.0.4/src/oct-stream.h Sun Jan 19 22:39:28 1997 --- octave-2.0.5/src/oct-stream.h Fri Feb 21 15:22:24 1997 *************** *** 317,323 **** octave_value scanf (const string& fmt, const Matrix& size, int& count); ! octave_value do_oscanf (const scanf_format_elt *elt); octave_value_list oscanf (const string& fmt); --- 317,323 ---- octave_value scanf (const string& fmt, const Matrix& size, int& count); ! bool do_oscanf (const scanf_format_elt *elt, octave_value&); octave_value_list oscanf (const string& fmt); diff -cNr octave-2.0.4/src/octave.cc octave-2.0.5/src/octave.cc *** octave-2.0.4/src/octave.cc Sun Feb 2 22:48:39 1997 --- octave-2.0.5/src/octave.cc Sat Mar 1 01:32:01 1997 *************** *** 83,89 **** #endif // Don't redefine the variables if glibc already has. ! #if defined (HAVE_PROGRAM_INVOCATION_NAME) extern char *program_invocation_name; extern char *program_invocation_short_name; #else --- 83,89 ---- #endif // Don't redefine the variables if glibc already has. ! #if defined (HAVE_PROGRAM_INVOCATION_NAME) || defined (WITH_KPATHSEARCH) extern char *program_invocation_name; extern char *program_invocation_short_name; #else diff -cNr octave-2.0.4/src/octave.gperf octave-2.0.5/src/octave.gperf *** octave-2.0.4/src/octave.gperf Sat Sep 30 16:57:45 1995 --- octave-2.0.5/src/octave.gperf Fri Feb 28 13:17:02 1997 *************** *** 4,9 **** --- 4,10 ---- { all_va_args_kw, break_kw, + case_kw, catch_kw, continue_kw, else_kw, *************** *** 14,19 **** --- 15,21 ---- endfor_kw, endfunction_kw, endif_kw, + endswitch_kw, endwhile_kw, for_kw, function_kw, *************** *** 21,28 **** --- 23,32 ---- gplot_kw, gsplot_kw, if_kw, + otherwise_kw, replot_kw, return_kw, + switch_kw, try_kw, unwind_protect_kw, unwind_protect_cleanup_kw, *************** *** 34,39 **** --- 38,44 ---- %% all_va_args, ALL_VA_ARGS, all_va_args_kw break, BREAK, break_kw + case, CASE, case_kw catch, CATCH, catch_kw continue, CONTINUE, continue_kw else, ELSE, else_kw *************** *** 44,49 **** --- 49,55 ---- endfor, END, endfor_kw endfunction, END, endfunction_kw endif, END, endif_kw + endswitch, END, endswitch_kw endwhile, END, endwhile_kw for, FOR, for_kw function, FCN, function_kw *************** *** 51,58 **** --- 57,66 ---- gplot, PLOT, gplot_kw gsplot, PLOT, gsplot_kw if, IF, if_kw + otherwise, OTHERWISE, otherwise_kw replot, PLOT, replot_kw return, FUNC_RET, return_kw + switch, SWITCH, switch_kw try, TRY, try_kw unwind_protect, UNWIND, unwind_protect_kw unwind_protect_cleanup, CLEANUP, unwind_protect_cleanup_kw diff -cNr octave-2.0.4/src/parse.y octave-2.0.5/src/parse.y *** octave-2.0.4/src/parse.y Thu Jan 23 09:48:49 1997 --- octave-2.0.5/src/parse.y Fri Feb 28 16:10:15 1997 *************** *** 72,77 **** --- 72,80 ---- // static bool Vwarn_assign_as_truth_value; + // If TRUE, generate a warning for variable swich labels. + static bool Vwarn_variable_switch_label; + // If TRUE, generate a warning for the comma in things like // // octave> global a, b = 2 *************** *** 119,124 **** --- 122,130 ---- // test in a logical expression. static void maybe_warn_assign_as_truth_value (tree_expression *expr); + // Maybe print a warning about switch labels that aren't constants. + static void maybe_warn_variable_switch_label (tree_expression *expr); + // Create a plot command. static tree_plot_command *make_plot_command (token *tok, plot_limits *range, subplot_list *list); *************** *** 196,201 **** --- 202,216 ---- static tree_if_clause *make_elseif_clause (tree_expression *expr, tree_statement_list *list); + // Finish a switch command. + static tree_switch_command *finish_switch_command + (token *switch_tok, tree_expression *expr, + tree_switch_case_list *list, token *end_tok); + + // Build a switch case. + static tree_switch_case *make_switch_case + (tree_expression *expr, tree_statement_list *list); + // Build an assignment to a variable. static tree_expression *make_simple_assignment (tree_index_expression *var, token *eq_tok, tree_expression *expr); *************** *** 271,276 **** --- 286,294 ---- tree_if_command *tree_if_command_type; tree_if_clause *tree_if_clause_type; tree_if_command_list *tree_if_command_list_type; + tree_switch_command *tree_switch_command_type; + tree_switch_case *tree_switch_case_type; + tree_switch_case_list *tree_switch_case_list_type; tree_global *tree_global_type; tree_global_init_list *tree_global_init_list_type; tree_global_command *tree_global_command_type; *************** *** 300,305 **** --- 318,324 ---- %token TEXT STYLE %token FOR WHILE %token IF ELSEIF ELSE + %token SWITCH CASE OTHERWISE %token BREAK CONTINUE FUNC_RET %token UNWIND CLEANUP %token TRY CATCH *************** *** 333,338 **** --- 352,360 ---- %type if_command %type elseif_clause else_clause %type if_cmd_list1 if_cmd_list + %type switch_command + %type switch_case default_case + %type case_list1 case_list %type global_decl2 %type global_decl1 %type global_decl *************** *** 618,628 **** { $$ = $1; } | global_decl { $$ = $1; } | if_command ! { ! lexer_flags.iffing--; ! $$ = $1; ! } | UNWIND opt_sep opt_list CLEANUP opt_sep opt_list END { if (! ($$ = make_unwind_command ($1, $3, $6, $7))) --- 640,649 ---- { $$ = $1; } | global_decl { $$ = $1; } + | switch_command + { $$ = $1; } | if_command ! { $$ = $1; } | UNWIND opt_sep opt_list CLEANUP opt_sep opt_list END { if (! ($$ = make_unwind_command ($1, $3, $6, $7))) *************** *** 699,704 **** --- 720,758 ---- { $$ = new tree_if_clause ($3); } ; + switch_command : SWITCH expression opt_sep case_list END + { + if (! ($$ = finish_switch_command ($1, $2, $4, $5))) + ABORT_PARSE; + } + ; + + case_list : case_list1 + { $$ = $1; } + | case_list1 default_case + { + $1->append ($2); + $$ = $1; + } + ; + + case_list1 : switch_case + { $$ = new tree_switch_case_list ($1); } + | case_list1 switch_case + { + $1->append ($2); + $$ = $1; + } + ; + + switch_case : CASE opt_sep expression opt_sep list + { $$ = make_switch_case ($3, $5); } + ; + + default_case : OTHERWISE opt_sep opt_list + { $$ = new tree_switch_case ($3); } + ; + screwed_again : // empty { lexer_flags.maybe_screwed_again++; } ; *************** *** 855,860 **** --- 909,918 ---- { curr_sym_tab = global_sym_tab; } ; + in_return_list : // empty + { lexer_flags.looking_at_return_list = 1; } + ; + local_symtab : // empty { curr_sym_tab = tmp_local_sym_tab; } ; *************** *** 887,907 **** { $$ = finish_function_def ($1, $4); } ; ! return_list_x : '[' safe local_symtab ; return_list : return_list_x ']' ! { $$ = new tree_parameter_list (); } | return_list_x ELLIPSIS ']' { tree_parameter_list *tmp = new tree_parameter_list (); tmp->mark_varargs_only (); $$ = tmp; } | return_list1 ']' ! { $$ = $1; } | return_list1 ',' ELLIPSIS ']' { $1->mark_varargs (); $$ = $1; } --- 945,973 ---- { $$ = finish_function_def ($1, $4); } ; ! return_list_x : '[' safe local_symtab in_return_list ; return_list : return_list_x ']' ! { ! lexer_flags.looking_at_return_list = 0; ! $$ = new tree_parameter_list (); ! } | return_list_x ELLIPSIS ']' { + lexer_flags.looking_at_return_list = 0; tree_parameter_list *tmp = new tree_parameter_list (); tmp->mark_varargs_only (); $$ = tmp; } | return_list1 ']' ! { ! lexer_flags.looking_at_return_list = 0; ! $$ = $1; ! } | return_list1 ',' ELLIPSIS ']' { + lexer_flags.looking_at_return_list = 0; $1->mark_varargs (); $$ = $1; } *************** *** 981,986 **** --- 1047,1056 ---- } ; + in_param_list : // empty + { lexer_flags.looking_at_parameter_list = 1; } + ; + param_list : '(' ')' { lexer_flags.quote_is_transpose = 0; *************** *** 995,1006 **** --- 1065,1078 ---- } | param_list1 ')' { + lexer_flags.looking_at_parameter_list = 0; lexer_flags.quote_is_transpose = 0; $1->mark_as_formal_parameters (); $$ = $1; } | param_list1 ',' ELLIPSIS ')' { + lexer_flags.looking_at_parameter_list = 0; lexer_flags.quote_is_transpose = 0; $1->mark_as_formal_parameters (); $1->mark_varargs (); *************** *** 1008,1015 **** } ; ! param_list1 : '(' identifier ! { $$ = new tree_parameter_list ($2); } | param_list1 ',' identifier { $1->append ($3); --- 1080,1087 ---- } ; ! param_list1 : '(' in_param_list identifier ! { $$ = new tree_parameter_list ($3); } | param_list1 ',' identifier { $1->append ($3); *************** *** 1262,1267 **** --- 1334,1343 ---- end_error ("try", ettype, l, c); break; + case token::switch_end: + end_error ("switch", ettype, l, c); + break; + case token::unwind_protect_end: end_error ("unwind_protect", ettype, l, c); break; *************** *** 1333,1338 **** --- 1409,1425 ---- } } + // Maybe print a warning about switch labels that aren't constants. + + static void + maybe_warn_variable_switch_label (tree_expression *expr) + { + if (Vwarn_variable_switch_label && ! expr->is_constant ()) + { + warning ("variable switch label"); + } + } + // Create a plot command. static tree_plot_command * *************** *** 1957,1962 **** --- 2044,2078 ---- return new tree_if_clause (expr, list); } + // Finish a switch command. + + static tree_switch_command * + finish_switch_command (token *switch_tok, tree_expression *expr, + tree_switch_case_list *list, token *end_tok) + { + tree_switch_command *retval = 0; + + if (! check_end (end_tok, token::switch_end)) + { + int l = switch_tok->line (); + int c = switch_tok->column (); + + retval = new tree_switch_command (expr, list, l, c); + } + + return retval; + } + + // Build a switch case. + + static tree_switch_case * + make_switch_case (tree_expression *expr, tree_statement_list *list) + { + maybe_warn_variable_switch_label (expr); + + return new tree_switch_case (expr, list); + } + // Build an assignment to a variable. static tree_expression * *************** *** 2256,2261 **** --- 2372,2386 ---- return 0; } + static int + warn_variable_switch_label (void) + { + Vwarn_variable_switch_label + = check_preference ("warn_variable_switch_label"); + + return 0; + } + void symbols_of_parse (void) { *************** *** 2269,2276 **** "produce warning if function name conflicts with file name"); DEFVAR (warn_missing_semicolon, 0.0, 0, warn_missing_semicolon, ! "produce a warning if a statement in a function file is not terminated with a semicolon"); } /* --- 2394,2404 ---- "produce warning if function name conflicts with file name"); DEFVAR (warn_missing_semicolon, 0.0, 0, warn_missing_semicolon, ! "produce a warning if a statement in a function file is not\n\ terminated with a semicolon"); + + DEFVAR (warn_variable_switch_label, 0.0, 0, warn_variable_switch_label, + "produce warning for variables used as switch labels"); } /* diff -cNr octave-2.0.4/src/pt-cmd.cc octave-2.0.5/src/pt-cmd.cc *** octave-2.0.4/src/pt-cmd.cc Thu Jan 23 09:52:10 1997 --- octave-2.0.5/src/pt-cmd.cc Fri Feb 28 13:42:55 1997 *************** *** 517,522 **** --- 517,566 ---- tw.visit_if_command (*this); } + // Switch. + + tree_switch_command::~tree_switch_command (void) + { + delete expr; + delete list; + } + + void + tree_switch_command::eval (void) + { + if (expr) + { + octave_value val = expr->eval (0); + + if (! error_state) + { + if (list) + list->eval (val); + + if (error_state) + eval_error (); + } + else + eval_error (); + } + else + ::error ("missing value in switch command near line %d, column %d", + line (), column ()); + } + + void + tree_switch_command::eval_error (void) + { + ::error ("evaluating switch command near line %d, column %d", + line (), column ()); + } + + void + tree_switch_command::accept (tree_walker& tw) + { + tw.visit_switch_command (*this); + } + // Simple exception handling. tree_try_catch_command::~tree_try_catch_command (void) diff -cNr octave-2.0.4/src/pt-cmd.h octave-2.0.5/src/pt-cmd.h *** octave-2.0.4/src/pt-cmd.h Thu Jan 23 09:53:37 1997 --- octave-2.0.5/src/pt-cmd.h Fri Feb 28 13:54:48 1997 *************** *** 34,39 **** --- 34,40 ---- class tree_statement_list; class tree_global_init_list; class tree_if_command_list; + class tree_switch_case_list; class tree_expression; class tree_index_expression; class tree_identifier; *************** *** 46,51 **** --- 47,53 ---- class tree_while_command; class tree_for_command; class tree_if_command; + class tree_switch_command; class tree_try_catch_command; class tree_unwind_protect_command; class tree_no_op_command; *************** *** 212,219 **** void eval (void); - void eval_error (void); - tree_if_command_list *cmd_list (void) { return list; } void accept (tree_walker& tw); --- 214,219 ---- *************** *** 222,227 **** --- 222,262 ---- // List of if commands (if, elseif, elseif, ... else, endif) tree_if_command_list *list; + }; + + // Switch. + + class + tree_switch_command : public tree_command + { + public: + + tree_switch_command (int l = -1, int c = -1) + : tree_command (l, c), expr (0), list (0) { } + + tree_switch_command (tree_expression *e, tree_switch_case_list *lst, + int l = -1, int c = -1) + : tree_command (l, c), expr (e), list (lst) { } + + ~tree_switch_command (void); + + void eval (void); + + void eval_error (void); + + tree_expression *switch_value (void) { return expr; } + + tree_switch_case_list *case_list (void) { return list; } + + void accept (tree_walker& tw); + + private: + + // Value on which to switch. + tree_expression *expr; + + // List of cases (case 1, case 2, ..., default) + tree_switch_case_list *list; }; // Simple exception handling. diff -cNr octave-2.0.4/src/pt-fvc.cc octave-2.0.5/src/pt-fvc.cc *** octave-2.0.4/src/pt-fvc.cc Thu Feb 13 14:30:57 1997 --- octave-2.0.5/src/pt-fvc.cc Mon Feb 24 20:54:13 1997 *************** *** 779,797 **** } else if (is_mapper) { ! // XXX FIXME XXX -- should we just assume nargin_max == 1? ! // ! // if (nargin > nargin_max) ! // ::error ("%s: too many arguments", my_name.c_str ()); ! // else ! if (nargin > 0 && args(0).is_defined ()) ! { ! octave_value tmp = apply_mapper_fcn (args(0), mapper_fcn, 0); ! retval(0) = tmp; ! } else { ! ::error ("%s: too few arguments", my_name.c_str ()); } } else --- 779,797 ---- } else if (is_mapper) { ! if (nargin > 1) ! ::error ("%s: too many arguments", my_name.c_str ()); ! else if (nargin < 1) ! ::error ("%s: too few arguments", my_name.c_str ()); else { ! if (args(0).is_defined ()) ! { ! octave_value tmp = apply_mapper_fcn (args(0), mapper_fcn, 0); ! retval(0) = tmp; ! } ! else ! ::error ("%s: argument undefined", my_name.c_str ()); } } else diff -cNr octave-2.0.4/src/pt-misc.cc octave-2.0.5/src/pt-misc.cc *** octave-2.0.4/src/pt-misc.cc Thu Dec 5 22:03:32 1996 --- octave-2.0.5/src/pt-misc.cc Fri Feb 28 15:23:32 1997 *************** *** 529,534 **** --- 529,623 ---- tw.visit_if_command_list (*this); } + // Switch. + + tree_switch_case::~tree_switch_case (void) + { + delete label; + delete list; + } + + bool + tree_switch_case::label_matches (const octave_value& val) + { + bool retval = false; + + octave_value label_value = label->eval (false); + + if (! error_state) + { + if (label_value.is_defined ()) + { + octave_value tmp = do_binary_op (octave_value::eq, + val, label_value); + + if (! error_state) + { + if (tmp.is_defined ()) + retval = tmp.is_true (); + else + eval_error (); + } + else + eval_error (); + } + else + eval_error (); + } + else + eval_error (); + + return retval; + } + + int + tree_switch_case::eval (const octave_value& val) + { + int retval = 0; + + if (is_default_case () || label_matches (val)) + { + if (list) + list->eval (true); + + retval = 1; + } + + return retval; + } + + void + tree_switch_case::eval_error (void) + { + ::error ("evaluating switch case label"); + } + + void + tree_switch_case::accept (tree_walker& tw) + { + tw.visit_switch_case (*this); + } + + // List of switch cases. + + void + tree_switch_case_list::eval (const octave_value& val) + { + for (Pix p = first (); p != 0; next (p)) + { + tree_switch_case *t = this->operator () (p); + + if (t->eval (val) || error_state) + break; + } + } + + void + tree_switch_case_list::accept (tree_walker& tw) + { + tw.visit_switch_case_list (*this); + } + /* ;;; Local Variables: *** ;;; mode: C++ *** diff -cNr octave-2.0.4/src/pt-misc.h octave-2.0.5/src/pt-misc.h *** octave-2.0.4/src/pt-misc.h Sun May 12 02:16:36 1996 --- octave-2.0.5/src/pt-misc.h Fri Feb 28 15:17:40 1997 *************** *** 47,52 **** --- 47,56 ---- class tree_va_return_list; class tree_global; class tree_global_init_list; + class tree_if_clause; + class tree_if_command_list; + class tree_switch_case; + class tree_switch_case_list; class tree_walker; *************** *** 369,374 **** --- 373,442 ---- } void eval (void); + + void accept (tree_walker& tw); + }; + + class + tree_switch_case + { + public: + + tree_switch_case (void) : label (0), list (0) { } + + tree_switch_case (tree_statement_list *l) + : label (0), list (l) { } + + tree_switch_case (tree_expression *e, tree_statement_list *l) + : label (e), list (l) { } + + ~tree_switch_case (void); + + bool is_default_case (void) + { return ! label; } + + bool label_matches (const octave_value& val); + + int eval (const octave_value& val); + + void eval_error (void); + + tree_expression *case_label (void) { return label; } + + tree_statement_list *commands (void) { return list; } + + void accept (tree_walker& tw); + + private: + + // The case label. + tree_expression *label; + + // The list of statements to evaluate if the label matches. + tree_statement_list *list; + }; + + class + tree_switch_case_list : public SLList + { + public: + + tree_switch_case_list (void) + : SLList () { } + + tree_switch_case_list (tree_switch_case *t) + : SLList () { append (t); } + + ~tree_switch_case_list (void) + { + while (! empty ()) + { + tree_switch_case *t = remove_front (); + delete t; + } + } + + void eval (const octave_value& val); void accept (tree_walker& tw); }; diff -cNr octave-2.0.4/src/pt-pr-code.cc octave-2.0.5/src/pt-pr-code.cc *** octave-2.0.4/src/pt-pr-code.cc Thu Jan 23 09:40:29 1997 --- octave-2.0.5/src/pt-pr-code.cc Fri Feb 28 14:46:26 1997 *************** *** 413,418 **** --- 413,489 ---- } void + tree_print_code::visit_switch_case (tree_switch_case& cs) + { + indent (); + + if (cs.is_default_case ()) + os << "otherwise"; + else + os << "case "; + + tree_expression *label = cs.case_label (); + + if (label) + label->accept (*this); + + newline (); + + increment_indent_level (); + + tree_statement_list *list = cs.commands (); + + if (list) + { + list->accept (*this); + + decrement_indent_level (); + } + } + + void + tree_print_code::visit_switch_case_list (tree_switch_case_list& lst) + { + Pix p = lst.first (); + + while (p) + { + tree_switch_case *elt = lst (p); + + if (elt) + elt->accept (*this); + + lst.next (p); + } + } + + void + tree_print_code::visit_switch_command (tree_switch_command& cmd) + { + indent (); + + os << "switch "; + + tree_expression *expr = cmd.switch_value (); + + if (expr) + expr->accept (*this); + + newline (); + + increment_indent_level (); + + tree_switch_case_list *list = cmd.case_list (); + + if (list) + list->accept (*this); + + indent (); + + os << "endswitch"; + } + + void tree_print_code::visit_index_expression (tree_index_expression& expr) { indent (); diff -cNr octave-2.0.4/src/pt-pr-code.h octave-2.0.5/src/pt-pr-code.h *** octave-2.0.4/src/pt-pr-code.h Thu Jan 23 09:57:10 1997 --- octave-2.0.5/src/pt-pr-code.h Fri Feb 28 12:47:42 1997 *************** *** 78,83 **** --- 78,89 ---- void visit_if_command_list (tree_if_command_list&); + void visit_switch_case (tree_switch_case&); + + void visit_switch_case_list (tree_switch_case_list&); + + void visit_switch_command (tree_switch_command&); + void visit_index_expression (tree_index_expression&); void visit_indirect_ref (tree_indirect_ref&); diff -cNr octave-2.0.4/src/pt-walk.h octave-2.0.5/src/pt-walk.h *** octave-2.0.4/src/pt-walk.h Thu Jan 23 09:38:18 1997 --- octave-2.0.5/src/pt-walk.h Fri Feb 28 13:44:38 1997 *************** *** 84,89 **** --- 84,98 ---- visit_if_command_list (tree_if_command_list&) = 0; virtual void + visit_switch_case (tree_switch_case&) = 0; + + virtual void + visit_switch_case_list (tree_switch_case_list&) = 0; + + virtual void + visit_switch_command (tree_switch_command&) = 0; + + virtual void visit_index_expression (tree_index_expression&) = 0; virtual void diff -cNr octave-2.0.4/src/quad.cc octave-2.0.5/src/quad.cc *** octave-2.0.4/src/quad.cc Sun Nov 3 02:22:47 1996 --- octave-2.0.5/src/quad.cc Sat Mar 1 14:57:23 1997 *************** *** 41,46 **** --- 41,50 ---- #include "utils.h" #include "variables.h" + #if defined (quad) + #undef quad + #endif + // Global pointer for user defined function required by quadrature functions. static tree_fvc *quad_fcn; diff -cNr octave-2.0.4/src/strftime.c octave-2.0.5/src/strftime.c *** octave-2.0.4/src/strftime.c Wed Oct 30 12:44:01 1996 --- octave-2.0.5/src/strftime.c Sat Mar 1 01:06:17 1997 *************** *** 1,10 **** ! /* strftime - custom formatting of date and/or time ! Copyright (C) 1989, 1991, 1992 Free Software Foundation, Inc. ! This program is free software; you can redistribute it and/or modify ! it under the terms of the GNU General Public License as published by ! the Free Software Foundation; either version 2, or (at your option) ! any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of --- 1,12 ---- ! /* Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc. ! NOTE: The canonical source of this file is maintained with the GNU C ! Library. Bugs can be reported to bug-glibc@prep.ai.mit.edu. ! ! This program is free software; you can redistribute it and/or modify it ! under the terms of the GNU General Public License as published by the ! Free Software Foundation; either version 2, or (at your option) any ! later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of *************** *** 12,478 **** GNU General Public License for more details. You should have received a copy of the GNU General Public License ! along with this program; if not, write to the Free Software ! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ ! /* Note: this version of strftime lacks locale support, ! but it is standalone. ! Performs `%' substitutions similar to those in printf. Except ! where noted, substituted fields have a fixed size; numeric fields are ! padded if necessary. Padding is with zeros by default; for fields ! that display a single number, padding can be changed or inhibited by ! following the `%' with one of the modifiers described below. Unknown ! field specifiers are copied as normal characters. All other ! characters are copied to the output without change. ! ! Supports a superset of the ANSI C field specifiers. ! ! Literal character fields: ! % % ! n newline ! t tab ! ! Numeric modifiers (a nonstandard extension): ! - do not pad the field ! _ pad the field with spaces ! ! Time fields: ! %H hour (00..23) ! %I hour (01..12) ! %k hour ( 0..23) ! %l hour ( 1..12) ! %M minute (00..59) ! %p locale's AM or PM ! %r time, 12-hour (hh:mm:ss [AP]M) ! %R time, 24-hour (hh:mm) ! %s time in seconds since 00:00:00, Jan 1, 1970 (a nonstandard extension) ! %S second (00..61) ! %T time, 24-hour (hh:mm:ss) ! %X locale's time representation (%H:%M:%S) ! %Z time zone (EDT), or nothing if no time zone is determinable ! ! Date fields: ! %a locale's abbreviated weekday name (Sun..Sat) ! %A locale's full weekday name, variable length (Sunday..Saturday) ! %b locale's abbreviated month name (Jan..Dec) ! %B locale's full month name, variable length (January..December) ! %c locale's date and time (Sat Nov 04 12:02:33 EST 1989) ! %C century (00..99) ! %d day of month (01..31) ! %e day of month ( 1..31) ! %D date (mm/dd/yy) ! %h same as %b ! %j day of year (001..366) ! %m month (01..12) ! %U week number of year with Sunday as first day of week (00..53) ! %w day of week (0..6) ! %W week number of year with Monday as first day of week (00..53) ! %x locale's date representation (mm/dd/yy) ! %y last two digits of year (00..99) ! %Y year (1970...) ! David MacKenzie */ ! #ifdef HAVE_CONFIG_H ! #include #endif ! #include ! #ifdef HAVE_SYS_TYPES_H ! #include #endif ! #if defined(TIME_WITH_SYS_TIME) ! #include ! #include #else ! #if defined(HAVE_SYS_TIME_H) ! #include #else ! #include #endif #endif ! #ifndef STDC_HEADERS ! time_t mktime (); #endif ! #if defined(HAVE_TZNAME) ! extern char *tzname[2]; #endif - /* Types of padding for numbers in date and time. */ - enum padding - { - none, blank, zero - }; ! static char const* const days[] = { ! "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ! }; ! static char const * const months[] = { ! "January", "February", "March", "April", "May", "June", ! "July", "August", "September", "October", "November", "December" ! }; ! ! /* Add character C to STRING and increment LENGTH, ! unless LENGTH would exceed MAX. */ ! ! #define add_char(c) \ ! do \ ! { \ ! if (length + 1 <= max) \ ! string[length++] = (c); \ ! } \ ! while (0) - /* Add a 2 digit number to STRING, padding if specified. - Return the number of characters added, up to MAX. */ static int ! add_num2 (string, num, max, pad) ! char *string; ! int num; ! int max; ! enum padding pad; ! { ! int top = num / 10; ! int length = 0; ! ! if (top == 0 && pad == blank) ! add_char (' '); ! else if (top != 0 || pad == zero) ! add_char (top + '0'); ! add_char (num % 10 + '0'); ! return length; } - /* Add a 3 digit number to STRING, padding if specified. - Return the number of characters added, up to MAX. */ static int ! add_num3 (string, num, max, pad) ! char *string; ! int num; ! int max; ! enum padding pad; ! { ! int top = num / 100; ! int mid = (num - top * 100) / 10; ! int length = 0; ! ! if (top == 0 && pad == blank) ! add_char (' '); ! else if (top != 0 || pad == zero) ! add_char (top + '0'); ! if (mid == 0 && top == 0 && pad == blank) ! add_char (' '); ! else if (mid != 0 || top != 0 || pad == zero) ! add_char (mid + '0'); ! add_char (num % 10 + '0'); ! return length; } - /* Like strncpy except return the number of characters copied. */ ! static int ! add_str (to, from, max) ! char *to; ! const char *from; ! int max; ! { ! int i; ! for (i = 0; from[i] && i <= max; ++i) ! to[i] = from[i]; ! return i; ! } ! static int ! add_num_time_t (string, max, num) ! char *string; ! int max; ! time_t num; ! { ! /* This buffer is large enough to hold the character representation ! (including the trailing NUL) of any unsigned decimal quantity ! whose binary representation fits in 128 bits. */ ! char buf[40]; ! int length; ! ! if (sizeof (num) > 16) ! abort (); ! sprintf (buf, "%lu", (unsigned long) num); ! length = add_str (string, buf, max); ! return length; ! } ! /* Return the week in the year of the time in TM, with the weeks ! starting on Sundays. */ ! static int ! sun_week (tm) ! struct tm *tm; ! { ! int dl; ! /* Set `dl' to the day in the year of the last day of the week previous ! to the one containing the day specified in TM. If the day specified ! in TM is in the first week of the year, `dl' will be negative or 0. ! Otherwise, calculate the number of complete weeks before our week ! (dl / 7) and add any partial week at the start of the year (dl % 7). */ ! dl = tm->tm_yday - tm->tm_wday; ! return dl <= 0 ? 0 : dl / 7 + (dl % 7 != 0); ! } ! /* Return the week in the year of the time in TM, with the weeks ! starting on Mondays. */ ! static int ! mon_week (tm) ! struct tm *tm; ! { ! int dl, wday; ! if (tm->tm_wday == 0) ! wday = 6; ! else ! wday = tm->tm_wday - 1; ! dl = tm->tm_yday - wday; ! return dl <= 0 ? 0 : dl / 7 + (dl % 7 != 0); ! } ! #if !defined(HAVE_TM_ZONE) && !defined(HAVE_TZNAME) ! char * ! zone_name (tp) ! struct tm *tp; ! { ! char *timezone (); ! struct timeval tv; ! struct timezone tz; ! gettimeofday (&tv, &tz); ! return timezone (tz.tz_minuteswest, tp->tm_isdst); ! } ! #endif ! /* Format the time given in TM according to FORMAT, and put the ! results in STRING. ! Return the number of characters (not including terminating null) ! that were put into STRING, or 0 if the length would have ! exceeded MAX. */ ! size_t ! strftime (string, max, format, tm) ! char *string; ! size_t max; ! const char *format; ! const struct tm *tm; ! { ! enum padding pad; /* Type of padding to apply. */ ! size_t length = 0; /* Characters put in STRING so far. */ ! for (; *format && length < max; ++format) ! { ! if (*format != '%') ! add_char (*format); ! else { ! ++format; ! /* Modifiers: */ ! if (*format == '-') { ! pad = none; ! ++format; } ! else if (*format == '_') { ! pad = blank; ! ++format; } ! else ! pad = zero; ! switch (*format) { ! /* Literal character fields: */ ! case 0: ! case '%': ! add_char ('%'); ! break; ! case 'n': ! add_char ('\n'); ! break; ! case 't': ! add_char ('\t'); ! break; ! default: ! add_char (*format); ! break; ! /* Time fields: */ ! case 'H': ! case 'k': ! length += ! add_num2 (&string[length], tm->tm_hour, max - length, ! *format == 'H' ? pad : blank); ! break; ! case 'I': ! case 'l': { ! int hour12; ! if (tm->tm_hour == 0) ! hour12 = 12; ! else if (tm->tm_hour > 12) ! hour12 = tm->tm_hour - 12; ! else ! hour12 = tm->tm_hour; ! length += ! add_num2 (&string[length], hour12, max - length, ! *format == 'I' ? pad : blank); } ! break; ! case 'M': ! length += ! add_num2 (&string[length], tm->tm_min, max - length, pad); ! break; ! case 'p': ! if (tm->tm_hour < 12) ! add_char ('A'); ! else ! add_char ('P'); ! add_char ('M'); ! break; ! case 'r': ! length += ! strftime (&string[length], max - length, "%I:%M:%S %p", tm); ! break; ! case 'R': ! length += ! strftime (&string[length], max - length, "%H:%M", tm); ! break; ! case 's': { ! struct tm writable_tm; ! writable_tm = *tm; ! length += add_num_time_t (&string[length], max - length, ! mktime (&writable_tm)); } - break; ! case 'S': ! length += ! add_num2 (&string[length], tm->tm_sec, max - length, pad); ! break; ! case 'T': ! length += ! strftime (&string[length], max - length, "%H:%M:%S", tm); ! break; ! case 'X': ! length += ! strftime (&string[length], max - length, "%H:%M:%S", tm); ! break; ! case 'Z': ! #ifdef HAVE_TM_ZONE ! length += add_str (&string[length], tm->tm_zone, max - length); ! #else ! #ifdef HAVE_TZNAME ! if (tm->tm_isdst && tzname[1] && *tzname[1]) ! length += add_str (&string[length], tzname[1], max - length); ! else ! length += add_str (&string[length], tzname[0], max - length); ! #else ! length += add_str (&string[length], zone_name (tm), max - length); #endif #endif ! break; ! /* Date fields: */ ! case 'a': ! add_char (days[tm->tm_wday][0]); ! add_char (days[tm->tm_wday][1]); ! add_char (days[tm->tm_wday][2]); ! break; ! case 'A': ! length += ! add_str (&string[length], days[tm->tm_wday], max - length); ! break; ! case 'b': ! case 'h': ! add_char (months[tm->tm_mon][0]); ! add_char (months[tm->tm_mon][1]); ! add_char (months[tm->tm_mon][2]); ! break; ! case 'B': ! length += ! add_str (&string[length], months[tm->tm_mon], max - length); ! break; ! case 'c': ! length += ! strftime (&string[length], max - length, ! "%a %b %d %H:%M:%S %Z %Y", tm); ! break; ! case 'C': ! length += ! add_num2 (&string[length], (tm->tm_year + 1900) / 100, ! max - length, pad); ! break; ! case 'd': ! length += ! add_num2 (&string[length], tm->tm_mday, max - length, pad); ! break; ! case 'e': ! length += ! add_num2 (&string[length], tm->tm_mday, max - length, blank); ! break; ! case 'D': ! length += ! strftime (&string[length], max - length, "%m/%d/%y", tm); ! break; ! case 'j': ! length += ! add_num3 (&string[length], tm->tm_yday + 1, max - length, pad); ! break; ! case 'm': ! length += ! add_num2 (&string[length], tm->tm_mon + 1, max - length, pad); ! break; ! case 'U': ! length += ! add_num2 (&string[length], sun_week (tm), max - length, pad); ! break; ! case 'w': ! add_char (tm->tm_wday + '0'); ! break; ! case 'W': ! length += ! add_num2 (&string[length], mon_week (tm), max - length, pad); ! break; ! case 'x': ! length += ! strftime (&string[length], max - length, "%m/%d/%y", tm); ! break; ! case 'y': ! length += ! add_num2 (&string[length], tm->tm_year % 100, ! max - length, pad); ! break; ! case 'Y': ! add_char ((tm->tm_year + 1900) / 1000 + '0'); ! length += ! add_num3 (&string[length], ! (1900 + tm->tm_year) % 1000, max - length, zero); break; ! } } } ! add_char (0); ! return length - 1; } --- 14,891 ---- GNU General Public License for more details. You should have received a copy of the GNU General Public License ! along with this program; if not, write to the Free Software Foundation, ! Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ ! #ifdef HAVE_CONFIG_H ! # include ! #endif ! #ifdef _LIBC ! # define HAVE_LIMITS_H 1 ! # define HAVE_MBLEN 1 ! # define HAVE_MBRLEN 1 ! # define HAVE_STRUCT_ERA_ENTRY 1 ! # define HAVE_TM_GMTOFF 1 ! # define HAVE_TM_ZONE 1 ! # define MULTIBYTE_IS_FORMAT_SAFE 1 ! # define STDC_HEADERS 1 ! # include ! # include "../locale/localeinfo.h" ! #endif ! #include /* Some systems define `time_t' here. */ ! #ifdef TIME_WITH_SYS_TIME ! # include ! # include ! #else ! # ifdef HAVE_SYS_TIME_H ! # include ! # else ! # include ! # endif #endif ! #if HAVE_TZNAME ! extern char *tzname[]; ! #endif ! ! /* Do multibyte processing if multibytes are supported, unless ! multibyte sequences are safe in formats. Multibyte sequences are ! safe if they cannot contain byte sequences that look like format ! conversion specifications. The GNU C Library uses UTF8 multibyte ! encoding, which is safe for formats, but strftime.c can be used ! with other C libraries that use unsafe encodings. */ ! #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE) ! ! #if DO_MULTIBYTE ! # if HAVE_MBRLEN ! # include ! # else ! /* Simulate mbrlen with mblen as best we can. */ ! # define mbstate_t int ! # define mbrlen(s, n, ps) mblen (s, n) ! # define mbsinit(ps) (*(ps) == 0) ! # endif ! static const mbstate_t mbstate_zero; ! #endif ! #if HAVE_LIMITS_H ! # include ! #endif ! ! #if STDC_HEADERS ! # include ! # include ! # include ! #else ! # define memcpy(d, s, n) bcopy (s, d, n) #endif ! #ifndef __P ! #if defined (__GNUC__) || (defined (__STDC__) && __STDC__) ! #define __P(args) args #else ! #define __P(args) () ! #endif /* GCC. */ ! #endif /* Not __P. */ ! ! #ifndef PTR ! #ifdef __STDC__ ! #define PTR void * #else ! #define PTR char * #endif #endif ! #ifndef CHAR_BIT ! #define CHAR_BIT 8 #endif ! #define TYPE_SIGNED(t) ((t) -1 < 0) ! ! /* Bound on length of the string representing an integer value of type t. ! Subtract one for the sign bit if t is signed; ! 302 / 1000 is log10 (2) rounded up; ! add one for integer division truncation; ! add one more for a minus sign if t is signed. */ ! #define INT_STRLEN_BOUND(t) \ ! ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 100 + 1 + TYPE_SIGNED (t)) ! ! #define TM_YEAR_BASE 1900 ! ! #ifndef __isleap ! /* Nonzero if YEAR is a leap year (every 4 years, ! except every 100th isn't, and every 400th is). */ ! #define __isleap(year) \ ! ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0)) #endif ! #ifdef _LIBC ! # define gmtime_r __gmtime_r ! # define localtime_r __localtime_r ! #else ! # if ! HAVE_LOCALTIME_R ! # if ! HAVE_TM_GMTOFF ! /* Approximate gmtime_r as best we can in its absence. */ ! #define gmtime_r my_gmtime_r ! static struct tm *gmtime_r __P ((const time_t *, struct tm *)); ! static struct tm * ! gmtime_r (t, tp) ! const time_t *t; ! struct tm *tp; { ! struct tm *l = gmtime (t); ! if (! l) ! return 0; ! *tp = *l; ! return tp; ! } ! # endif /* ! HAVE_TM_GMTOFF */ ! /* Approximate localtime_r as best we can in its absence. */ ! #define localtime_r my_localtime_r ! static struct tm *localtime_r __P ((const time_t *, struct tm *)); ! static struct tm * ! localtime_r (t, tp) ! const time_t *t; ! struct tm *tp; { ! struct tm *l = localtime (t); ! if (! l) ! return 0; ! *tp = *l; ! return tp; ! } ! # endif /* ! HAVE_LOCALTIME_R */ ! #endif /* ! defined (_LIBC) */ + #define add(n, f) \ + do \ + { \ + i += (n); \ + if (i >= maxsize) \ + return 0; \ + else \ + if (p) \ + { \ + f; \ + p += (n); \ + } \ + } while (0) + #define cpy(n, s) add ((n), memcpy((PTR) p, (PTR) (s), (n))) + + #if ! HAVE_TM_GMTOFF + /* Yield the difference between *A and *B, + measured in seconds, ignoring leap seconds. */ + static int tm_diff __P ((const struct tm *, const struct tm *)); static int ! tm_diff (a, b) ! const struct tm *a; ! const struct tm *b; ! { ! /* Compute intervening leap days correctly even if year is negative. ! Take care to avoid int overflow in leap day calculations, ! but it's OK to assume that A and B are close to each other. */ ! int a4 = (a->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (a->tm_year & 3); ! int b4 = (b->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (b->tm_year & 3); ! int a100 = a4 / 25 - (a4 % 25 < 0); ! int b100 = b4 / 25 - (b4 % 25 < 0); ! int a400 = a100 >> 2; ! int b400 = b100 >> 2; ! int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400); ! int years = a->tm_year - b->tm_year; ! int days = (365 * years + intervening_leap_days ! + (a->tm_yday - b->tm_yday)); ! return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour)) ! + (a->tm_min - b->tm_min)) ! + (a->tm_sec - b->tm_sec)); } + #endif /* ! HAVE_TM_GMTOFF */ + + /* The number of days from the first day of the first ISO week of this + year to the year day YDAY with week day WDAY. ISO weeks start on + Monday; the first ISO week has the year's first Thursday. YDAY may + be as small as YDAY_MINIMUM. */ + #define ISO_WEEK_START_WDAY 1 /* Monday */ + #define ISO_WEEK1_WDAY 4 /* Thursday */ + #define YDAY_MINIMUM (-366) + static int iso_week_days __P ((int, int)); + #ifdef __GNUC__ + inline + #endif static int ! iso_week_days (yday, wday) ! int yday; ! int wday; ! { ! /* Add enough to the first operand of % to make it nonnegative. */ ! int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7; ! return (yday ! - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7 ! + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY); } ! #ifndef _NL_CURRENT ! static char const weekday_name[][10] = ! { ! "Sunday", "Monday", "Tuesday", "Wednesday", ! "Thursday", "Friday", "Saturday" ! }; ! static char const month_name[][10] = ! { ! "January", "February", "March", "April", "May", "June", ! "July", "August", "September", "October", "November", "December" ! }; ! #endif ! /* Write information from TP into S according to the format ! string FORMAT, writing no more that MAXSIZE characters ! (including the terminating '\0') and returning number of ! characters written. If S is NULL, nothing will be written ! anywhere, so to determine how many characters would be ! written, use NULL for S and (size_t) UINT_MAX for MAXSIZE. */ ! size_t ! strftime (s, maxsize, format, tp) ! char *s; ! size_t maxsize; ! const char *format; ! register const struct tm *tp; ! { ! int hour12 = tp->tm_hour; ! #ifdef _NL_CURRENT ! const char *const a_wkday = _NL_CURRENT (LC_TIME, ABDAY_1 + tp->tm_wday); ! const char *const f_wkday = _NL_CURRENT (LC_TIME, DAY_1 + tp->tm_wday); ! const char *const a_month = _NL_CURRENT (LC_TIME, ABMON_1 + tp->tm_mon); ! const char *const f_month = _NL_CURRENT (LC_TIME, MON_1 + tp->tm_mon); ! const char *const ampm = _NL_CURRENT (LC_TIME, ! hour12 > 11 ? PM_STR : AM_STR); ! size_t aw_len = strlen (a_wkday); ! size_t am_len = strlen (a_month); ! size_t ap_len = strlen (ampm); ! #else ! const char *const f_wkday = weekday_name[tp->tm_wday]; ! const char *const f_month = month_name[tp->tm_mon]; ! const char *const a_wkday = f_wkday; ! const char *const a_month = f_month; ! const char *const ampm = "AMPM" + 2 * (hour12 > 11); ! size_t aw_len = 3; ! size_t am_len = 3; ! size_t ap_len = 2; ! #endif ! size_t wkday_len = strlen (f_wkday); ! size_t month_len = strlen (f_month); ! const char *zone; ! size_t zonelen; ! register size_t i = 0; ! register char *p = s; ! register const char *f; ! ! zone = 0; ! #if HAVE_TM_ZONE ! zone = (const char *) tp->tm_zone; ! #endif ! #if HAVE_TZNAME ! if (!(zone && *zone) && tp->tm_isdst >= 0) ! zone = tzname[tp->tm_isdst]; ! #endif ! if (! zone) ! zone = ""; /* POSIX.2 requires the empty string here. */ ! zonelen = strlen (zone); ! if (hour12 > 12) ! hour12 -= 12; ! else ! if (hour12 == 0) hour12 = 12; ! for (f = format; *f != '\0'; ++f) ! { ! int pad; /* Padding for number ('-', '_', or 0). */ ! int modifier; /* Field modifier ('E', 'O', or 0). */ ! int digits; /* Max digits for numeric format. */ ! int number_value; /* Numeric value to be printed. */ ! int negative_number; /* 1 if the number is negative. */ ! const char *subfmt; ! char *bufp; ! char buf[1 + (sizeof (int) < sizeof (time_t) ! ? INT_STRLEN_BOUND (time_t) ! : INT_STRLEN_BOUND (int))]; ! #if DO_MULTIBYTE ! switch (*f) ! { ! case '%': ! break; ! case '\a': case '\b': case '\t': case '\n': ! case '\v': case '\f': case '\r': ! case ' ': case '!': case '"': case '#': case '&': case'\'': ! case '(': case ')': case '*': case '+': case ',': case '-': ! case '.': case '/': case '0': case '1': case '2': case '3': ! case '4': case '5': case '6': case '7': case '8': case '9': ! case ':': case ';': case '<': case '=': case '>': case '?': ! case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': ! case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': ! case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': ! case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': ! case 'Y': case 'Z': case '[': case'\\': case ']': case '^': ! case '_': case 'a': case 'b': case 'c': case 'd': case 'e': ! case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': ! case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': ! case 'r': case 's': case 't': case 'u': case 'v': case 'w': ! case 'x': case 'y': case 'z': case '{': case '|': case '}': ! case '~': ! /* The C Standard requires these 98 characters (plus '%') to ! be in the basic execution character set. None of these ! characters can start a multibyte sequence, so they need ! not be analyzed further. */ ! add (1, *p = *f); ! continue; ! ! default: ! /* Copy this multibyte sequence until we reach its end, find ! an error, or come back to the initial shift state. */ ! { ! mbstate_t mbstate = mbstate_zero; ! size_t len = 0; ! do ! { ! size_t bytes = mbrlen (f + len, (size_t) -1, &mbstate); ! if (bytes == 0) ! break; ! if (bytes == (size_t) -2 || bytes == (size_t) -1) ! { ! len++; ! break; ! } ! ! len += bytes; ! } ! while (! mbsinit (&mbstate)); ! cpy (len, f); ! continue; ! } ! } ! #else /* ! DO_MULTIBYTE */ ! /* Either multibyte encodings are not supported, or they are ! safe for formats, so any non-'%' byte can be copied through. */ ! if (*f != '%') ! { ! add (1, *p = *f); ! continue; ! } ! ! #endif /* ! DO_MULTIBYTE */ ! ! /* Check for flags that can modify a number format. */ ! ++f; ! switch (*f) ! { ! case '_': ! case '-': ! pad = *f++; ! break; ! ! default: ! pad = 0; ! break; ! } ! ! /* Check for modifiers. */ ! switch (*f) { ! case 'E': ! case 'O': ! modifier = *f++; ! break; ! ! default: ! modifier = 0; ! break; ! } ! ! /* Now do the specified format. */ ! switch (*f) ! { ! #define DO_NUMBER(d, v) \ ! digits = d; number_value = v; goto do_number ! #define DO_NUMBER_SPACEPAD(d, v) \ ! digits = d; number_value = v; goto do_number_spacepad ! ! case '%': ! if (modifier != 0) ! goto bad_format; ! add (1, *p = *f); ! break; ! ! case 'a': ! if (modifier != 0) ! goto bad_format; ! cpy (aw_len, a_wkday); ! break; ! ! case 'A': ! if (modifier != 0) ! goto bad_format; ! cpy (wkday_len, f_wkday); ! break; ! ! case 'b': ! case 'h': /* POSIX.2 extension. */ ! if (modifier != 0) ! goto bad_format; ! cpy (am_len, a_month); ! break; ! ! case 'B': ! if (modifier != 0) ! goto bad_format; ! cpy (month_len, f_month); ! break; ! ! case 'c': ! if (modifier == 'O') ! goto bad_format; ! #ifdef _NL_CURRENT ! if (! (modifier == 'E' ! && *(subfmt = _NL_CURRENT (LC_TIME, ERA_D_T_FMT)) != '\0')) ! subfmt = _NL_CURRENT (LC_TIME, D_T_FMT); ! #else ! subfmt = "%a %b %e %H:%M:%S %Y"; ! #endif ! ! subformat: ! { ! size_t len = strftime (p, maxsize - i, subfmt, tp); ! if (len == 0 && *subfmt) ! return 0; ! add (len, ;); ! } ! break; ! ! case 'C': /* POSIX.2 extension. */ ! if (modifier == 'O') ! goto bad_format; ! #if HAVE_STRUCT_ERA_ENTRY ! if (modifier == 'E') { ! struct era_entry *era = _nl_get_era_entry (tp); ! if (era) ! { ! size_t len = strlen (era->name_fmt); ! cpy (len, era->name_fmt); ! break; ! } } ! #endif ! { ! int year = tp->tm_year + TM_YEAR_BASE; ! DO_NUMBER (1, year / 100 - (year % 100 < 0)); ! } ! ! case 'x': ! if (modifier == 'O') ! goto bad_format; ! #ifdef _NL_CURRENT ! if (! (modifier == 'E' ! && *(subfmt = _NL_CURRENT (LC_TIME, ERA_D_FMT)) != '\0')) ! subfmt = _NL_CURRENT (LC_TIME, D_FMT); ! goto subformat; ! #endif ! /* Fall through. */ ! case 'D': /* POSIX.2 extension. */ ! if (modifier != 0) ! goto bad_format; ! subfmt = "%m/%d/%y"; ! goto subformat; ! ! case 'd': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, tp->tm_mday); ! ! case 'e': /* POSIX.2 extension. */ ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER_SPACEPAD (2, tp->tm_mday); ! ! /* All numeric formats set DIGITS and NUMBER_VALUE and then ! jump to one of these two labels. */ ! ! do_number_spacepad: ! /* Force `_' flag. */ ! pad = '_'; ! ! do_number: ! /* Format the number according to the MODIFIER flag. */ ! ! #ifdef _NL_CURRENT ! if (modifier == 'O' && 0 <= number_value) { ! /* Get the locale specific alternate representation of ! the number NUMBER_VALUE. If none exist NULL is returned. */ ! const char *cp = _nl_get_alt_digit (number_value); ! ! if (cp != NULL) ! { ! size_t digitlen = strlen (cp); ! if (digitlen != 0) ! { ! cpy (digitlen, cp); ! break; ! } ! } } ! #endif ! { ! unsigned int u = number_value; ! bufp = buf + sizeof (buf); ! negative_number = number_value < 0; ! ! if (negative_number) ! u = -u; ! ! do ! *--bufp = u % 10 + '0'; ! while ((u /= 10) != 0); ! } ! ! do_number_sign_and_padding: ! if (negative_number) ! *--bufp = '-'; ! ! if (pad != '-') { ! int padding = digits - (buf + sizeof (buf) - bufp); ! if (pad == '_') ! { ! while (0 < padding--) ! *--bufp = ' '; ! } ! else ! { ! bufp += negative_number; ! while (0 < padding--) ! *--bufp = '0'; ! if (negative_number) ! *--bufp = '-'; ! } ! } ! ! cpy (buf + sizeof (buf) - bufp, bufp); ! break; ! ! ! case 'H': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, tp->tm_hour); ! ! case 'I': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, hour12); ! ! case 'k': /* GNU extension. */ ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER_SPACEPAD (2, tp->tm_hour); ! ! case 'l': /* GNU extension. */ ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER_SPACEPAD (2, hour12); ! ! case 'j': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (3, 1 + tp->tm_yday); ! ! case 'M': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, tp->tm_min); ! ! case 'm': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, tp->tm_mon + 1); ! ! case 'n': /* POSIX.2 extension. */ ! add (1, *p = '\n'); ! break; ! ! case 'p': ! cpy (ap_len, ampm); ! break; ! ! case 'R': /* GNU extension. */ ! subfmt = "%H:%M"; ! goto subformat; ! ! case 'r': /* POSIX.2 extension. */ ! #ifdef _NL_CURRENT ! if (*(subfmt = _NL_CURRENT (LC_TIME, T_FMT_AMPM)) == '\0') ! #endif ! subfmt = "%I:%M:%S %p"; ! goto subformat; ! ! case 'S': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, tp->tm_sec); ! ! case 's': /* GNU extension. */ ! { ! struct tm ltm; ! time_t t; ! ! ltm = *tp; ! t = mktime (<m); ! ! /* Generate string value for T using time_t arithmetic; ! this works even if sizeof (long) < sizeof (time_t). */ ! ! bufp = buf + sizeof (buf); ! negative_number = t < 0; ! ! do { ! int d = t % 10; ! t /= 10; ! ! if (negative_number) ! { ! d = -d; ! ! /* Adjust if division truncates to minus infinity. */ ! if (0 < -1 % 10 && d < 0) ! { ! t++; ! d += 10; ! } ! } ! *--bufp = d + '0'; } ! while (t != 0); ! digits = 1; ! goto do_number_sign_and_padding; ! } ! ! case 'X': ! if (modifier == 'O') ! goto bad_format; ! #ifdef _NL_CURRENT ! if (! (modifier == 'E' ! && *(subfmt = _NL_CURRENT (LC_TIME, ERA_T_FMT)) != '\0')) ! subfmt = _NL_CURRENT (LC_TIME, T_FMT); ! goto subformat; ! #endif ! /* Fall through. */ ! case 'T': /* POSIX.2 extension. */ ! subfmt = "%H:%M:%S"; ! goto subformat; ! ! case 't': /* POSIX.2 extension. */ ! add (1, *p = '\t'); ! break; ! ! case 'u': /* POSIX.2 extension. */ ! DO_NUMBER (1, (tp->tm_wday - 1 + 7) % 7 + 1); ! ! case 'U': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, (tp->tm_yday - tp->tm_wday + 7) / 7); ! ! case 'V': ! case 'g': /* GNU extension. */ ! case 'G': /* GNU extension. */ ! if (modifier == 'E') ! goto bad_format; ! { ! int year = tp->tm_year + TM_YEAR_BASE; ! int days = iso_week_days (tp->tm_yday, tp->tm_wday); ! ! if (days < 0) { ! /* This ISO week belongs to the previous year. */ ! year--; ! days = iso_week_days (tp->tm_yday + (365 + __isleap (year)), ! tp->tm_wday); ! } ! else ! { ! int d = iso_week_days (tp->tm_yday - (365 + __isleap (year)), ! tp->tm_wday); ! if (0 <= d) ! { ! /* This ISO week belongs to the next year. */ ! year++; ! days = d; ! } } ! switch (*f) ! { ! case 'g': ! DO_NUMBER (2, (year % 100 + 100) % 100); ! ! case 'G': ! DO_NUMBER (1, year); ! ! default: ! DO_NUMBER (2, days / 7 + 1); ! } ! } ! ! case 'W': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (2, (tp->tm_yday - (tp->tm_wday - 1 + 7) % 7 + 7) / 7); ! ! case 'w': ! if (modifier == 'E') ! goto bad_format; ! ! DO_NUMBER (1, tp->tm_wday); ! ! case 'Y': ! #if HAVE_STRUCT_ERA_ENTRY ! if (modifier == 'E') ! { ! struct era_entry *era = _nl_get_era_entry (tp); ! if (era) ! { ! subfmt = strchr (era->name_fmt, '\0') + 1; ! goto subformat; ! } ! } #endif + if (modifier == 'O') + goto bad_format; + else + DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE); + + case 'y': + #if HAVE_STRUCT_ERA_ENTRY + if (modifier == 'E') + { + struct era_entry *era = _nl_get_era_entry (tp); + if (era) + { + int delta = tp->tm_year - era->start_date[0]; + DO_NUMBER (1, (era->offset + + (era->direction == '-' ? -delta : delta))); + } + } #endif ! DO_NUMBER (2, (tp->tm_year % 100 + 100) % 100); ! case 'Z': ! cpy (zonelen, zone); ! break; ! ! case 'z': /* GNU extension. */ ! if (tp->tm_isdst < 0) ! break; ! ! { ! int diff; ! #if HAVE_TM_GMTOFF ! diff = tp->tm_gmtoff; ! #else ! struct tm gtm; ! struct tm ltm; ! time_t lt; ! ! ltm = *tp; ! lt = mktime (<m); ! ! if (lt == (time_t) -1) ! { ! /* mktime returns -1 for errors, but -1 is also a ! valid time_t value. Check whether an error really ! occurred. */ ! struct tm tm; ! localtime_r (<, &tm); ! ! if ((ltm.tm_sec ^ tm.tm_sec) ! | (ltm.tm_min ^ tm.tm_min) ! | (ltm.tm_hour ^ tm.tm_hour) ! | (ltm.tm_mday ^ tm.tm_mday) ! | (ltm.tm_mon ^ tm.tm_mon) ! | (ltm.tm_year ^ tm.tm_year)) ! break; ! } ! ! if (! gmtime_r (<, >m)) break; ! ! diff = tm_diff (<m, >m); ! #endif ! ! if (diff < 0) ! { ! add (1, *p = '-'); ! diff = -diff; ! } ! else ! add (1, *p = '+'); ! ! diff /= 60; ! DO_NUMBER (4, (diff / 60) * 100 + diff % 60); ! } ! ! case '\0': /* GNU extension: % at end of format. */ ! --f; ! /* Fall through. */ ! default: ! /* Unknown format; output the format, including the '%', ! since this is most likely the right thing to do if a ! multibyte string has been misparsed. */ ! bad_format: ! { ! int flen; ! for (flen = 1; f[1 - flen] != '%'; flen++) ! continue; ! cpy (flen, &f[1 - flen]); ! } ! break; } } ! ! if (p) ! *p = '\0'; ! return i; } diff -cNr octave-2.0.4/src/syswait.h octave-2.0.5/src/syswait.h *** octave-2.0.4/src/syswait.h Mon Jan 20 11:22:39 1997 --- octave-2.0.5/src/syswait.h Fri Feb 28 13:05:11 1997 *************** *** 29,36 **** #include #endif ! #ifdef HAVE_SYS_WAIT_H #include #endif // NeXT has sys/wait.h, but it is not compatible with POSIX.1, so we --- 29,51 ---- #include #endif ! #if defined (NeXT) && ! defined (_POSIX_SOURCE) ! #define HAVE_SYS_WAIT_H ! #endif ! ! #if defined HAVE_SYS_WAIT_H #include + #endif + + #if defined (NeXT) + #define HAVE_WAITPID 1 + #define waitpid(a, b, c) \ + wait4 ((a) == -1 ? 0 : (a), (union wait *)(b), c, 0) + + // Use the defaults below + #undef WIFEXITED + #undef WEXITSTATUS + #undef WIFSIGNALLED #endif // NeXT has sys/wait.h, but it is not compatible with POSIX.1, so we diff -cNr octave-2.0.4/src/time.cc octave-2.0.5/src/time.cc *** octave-2.0.4/src/time.cc Sun Nov 3 02:22:45 1996 --- octave-2.0.5/src/time.cc Sat Mar 1 01:25:39 1997 *************** *** 26,31 **** --- 26,33 ---- #include + #include + #include "defun-dld.h" #include "error.h" #include "help.h" *************** *** 55,64 **** #if defined (HAVE_TM_ZONE) m ["zone"] = tm->tm_zone; #elif defined (HAVE_TZNAME) ! if (tm->tm_isdst && tzname[1] && *tzname[1]) ! m ["zone"] = tzname[1]; ! else ! m ["zone"] = tzname[0]; #else m ["zone"] = zone_name (tm); #endif --- 57,64 ---- #if defined (HAVE_TM_ZONE) m ["zone"] = tm->tm_zone; #elif defined (HAVE_TZNAME) ! if (tm->tm_isdst == 0 || tm->tm_isdst == 1) ! m ["zone"] = tzname[tm->tm_isdst]; #else m ["zone"] = zone_name (tm); #endif *************** *** 249,254 **** --- 249,255 ---- %T time, 24-hour (hh:mm:ss)\n\ %X locale's time representation (%H:%M:%S)\n\ %Z time zone (EDT), or nothing if no time zone is determinable\n\ + %z offset from GMT\n\ \n\ Date fields:\n\ \n\ *************** *** 285,299 **** if (! error_state) { ! int bufsize = 128; ! char *buf = new char [bufsize]; ! while (! strftime (buf, bufsize, fmt.c_str (), tm)) ! { ! delete [] buf; ! bufsize *= 2; ! buf = new char [bufsize]; ! } retval = buf; --- 286,300 ---- if (! error_state) { ! const char *fmt_str = fmt.c_str (); ! ! size_t bufsize = strftime (0, (size_t) UINT_MAX, fmt_str, tm); ! ! char *buf = new char [++bufsize]; ! ! buf[0] = '\0'; ! strftime (buf, bufsize, fmt_str, tm); retval = buf; diff -cNr octave-2.0.4/src/token.h octave-2.0.5/src/token.h *** octave-2.0.4/src/token.h Sat Mar 2 19:45:43 1996 --- octave-2.0.5/src/token.h Fri Feb 28 12:28:48 1997 *************** *** 51,56 **** --- 51,57 ---- for_end, function_end, if_end, + switch_end, while_end, try_catch_end, unwind_protect_end, diff -cNr octave-2.0.4/src/version.h octave-2.0.5/src/version.h *** octave-2.0.4/src/version.h Wed Feb 19 10:13:29 1997 --- octave-2.0.5/src/version.h Thu Feb 27 03:48:54 1997 *************** *** 20,26 **** */ ! #define OCTAVE_VERSION "2.0.4" #define OCTAVE_COPYRIGHT \ "Copyright (C) 1996 John W. Eaton." --- 20,26 ---- */ ! #define OCTAVE_VERSION "2.0.5" #define OCTAVE_COPYRIGHT \ "Copyright (C) 1996 John W. Eaton." diff -cNr octave-2.0.4/test/ChangeLog octave-2.0.5/test/ChangeLog *** octave-2.0.4/test/ChangeLog Thu Feb 20 02:58:13 1997 --- octave-2.0.5/test/ChangeLog Sat Mar 1 15:23:17 1997 *************** *** 1,3 **** --- 1,7 ---- + Sat Mar 1 15:23:14 1997 John W. Eaton + + * Version 2.0.5 released. + Thu Feb 20 02:58:05 1997 John W. Eaton * Version 2.0.4 released. diff -cNr octave-2.0.4/test/Makefile.in octave-2.0.5/test/Makefile.in *** octave-2.0.4/test/Makefile.in Thu Dec 12 02:21:53 1996 --- octave-2.0.5/test/Makefile.in Sat Mar 1 15:14:01 1997 *************** *** 22,28 **** OCTAVE_BINARY = ../src/octave ! OCTAVE_SCRIPT_PATH = .:../src:$(srcdir)/../scripts// # Complete directory trees to distribute. DISTDIRS = config octave.test --- 22,28 ---- OCTAVE_BINARY = ../src/octave ! OCTAVE_SCRIPT_PATH = .:$(TOPDIR)/src//:$(srcdir)/../scripts// # Complete directory trees to distribute. DISTDIRS = config octave.test diff -cNr octave-2.0.4/test/octave.test/arith/abs-1.m octave-2.0.5/test/octave.test/arith/abs-1.m *** octave-2.0.4/test/octave.test/arith/abs-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/abs-1.m Mon Feb 24 21:24:19 1997 *************** *** 0 **** --- 1 ---- + abs (1) == 1 && abs (-3.5) == 3.5 && abs (3+4i) == 5 && abs (3-4i) == 5 diff -cNr octave-2.0.4/test/octave.test/arith/abs-2.m octave-2.0.5/test/octave.test/arith/abs-2.m *** octave-2.0.4/test/octave.test/arith/abs-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/abs-2.m Mon Feb 24 21:41:05 1997 *************** *** 0 **** --- 1 ---- + all (all (abs ([1.1, 3i; 3+4i, -3-4i]) == [1.1, 3; 5, 5])) diff -cNr octave-2.0.4/test/octave.test/arith/abs-3.m octave-2.0.5/test/octave.test/arith/abs-3.m *** octave-2.0.4/test/octave.test/arith/abs-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/abs-3.m Mon Feb 24 21:17:46 1997 *************** *** 0 **** --- 1 ---- + abs () diff -cNr octave-2.0.4/test/octave.test/arith/abs-4.m octave-2.0.5/test/octave.test/arith/abs-4.m *** octave-2.0.4/test/octave.test/arith/abs-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/abs-4.m Mon Feb 24 21:17:54 1997 *************** *** 0 **** --- 1 ---- + abs (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acos-1.m octave-2.0.5/test/octave.test/arith/acos-1.m *** octave-2.0.4/test/octave.test/arith/acos-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acos-1.m Tue Feb 25 23:32:59 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + x = [1, rt3/2, rt2/2, 1/2, 0, -1/2, -rt2/2, -rt3/2, -1]; + all (abs (acos (x) - v) < sqrt (eps)) + + diff -cNr octave-2.0.4/test/octave.test/arith/acos-2.m octave-2.0.5/test/octave.test/arith/acos-2.m *** octave-2.0.4/test/octave.test/arith/acos-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acos-2.m Tue Feb 25 22:42:02 1997 *************** *** 0 **** --- 1 ---- + acos () diff -cNr octave-2.0.4/test/octave.test/arith/acos-3.m octave-2.0.5/test/octave.test/arith/acos-3.m *** octave-2.0.4/test/octave.test/arith/acos-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acos-3.m Tue Feb 25 22:42:03 1997 *************** *** 0 **** --- 1 ---- + acos (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acosh-1.m octave-2.0.5/test/octave.test/arith/acosh-1.m *** octave-2.0.4/test/octave.test/arith/acosh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acosh-1.m Tue Feb 25 23:51:29 1997 *************** *** 0 **** --- 1,4 ---- + v = [0, pi/2*i, pi*i, pi/2*i]; + x = [1, 0, -1, 0]; + all (abs (acosh (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/acosh-2.m octave-2.0.5/test/octave.test/arith/acosh-2.m *** octave-2.0.4/test/octave.test/arith/acosh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acosh-2.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + acosh () diff -cNr octave-2.0.4/test/octave.test/arith/acosh-3.m octave-2.0.5/test/octave.test/arith/acosh-3.m *** octave-2.0.4/test/octave.test/arith/acosh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acosh-3.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + acosh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acot-1.m octave-2.0.5/test/octave.test/arith/acot-1.m *** octave-2.0.4/test/octave.test/arith/acot-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acot-1.m Thu Feb 27 13:18:54 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6]; + x = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3]; + all (abs (acot (x) - v) < sqrt (eps)) + + diff -cNr octave-2.0.4/test/octave.test/arith/acot-2.m octave-2.0.5/test/octave.test/arith/acot-2.m *** octave-2.0.4/test/octave.test/arith/acot-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acot-2.m Tue Feb 25 22:42:07 1997 *************** *** 0 **** --- 1 ---- + acot () diff -cNr octave-2.0.4/test/octave.test/arith/acot-3.m octave-2.0.5/test/octave.test/arith/acot-3.m *** octave-2.0.4/test/octave.test/arith/acot-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acot-3.m Tue Feb 25 22:42:07 1997 *************** *** 0 **** --- 1 ---- + acot (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acoth-1.m octave-2.0.5/test/octave.test/arith/acoth-1.m *** octave-2.0.4/test/octave.test/arith/acoth-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acoth-1.m Wed Feb 26 00:07:25 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6]; + x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3]; + all (abs (acoth (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/acoth-2.m octave-2.0.5/test/octave.test/arith/acoth-2.m *** octave-2.0.4/test/octave.test/arith/acoth-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acoth-2.m Tue Feb 25 22:42:15 1997 *************** *** 0 **** --- 1 ---- + acoth () diff -cNr octave-2.0.4/test/octave.test/arith/acoth-3.m octave-2.0.5/test/octave.test/arith/acoth-3.m *** octave-2.0.4/test/octave.test/arith/acoth-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acoth-3.m Tue Feb 25 22:42:15 1997 *************** *** 0 **** --- 1 ---- + acoth (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acsc-1.m octave-2.0.5/test/octave.test/arith/acsc-1.m *** octave-2.0.4/test/octave.test/arith/acsc-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsc-1.m Tue Feb 25 23:46:10 1997 *************** *** 0 **** --- 1,6 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6]; + x = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2]; + all (abs (acsc (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/acsc-2.m octave-2.0.5/test/octave.test/arith/acsc-2.m *** octave-2.0.4/test/octave.test/arith/acsc-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsc-2.m Tue Feb 25 22:42:04 1997 *************** *** 0 **** --- 1 ---- + acsc () diff -cNr octave-2.0.4/test/octave.test/arith/acsc-3.m octave-2.0.5/test/octave.test/arith/acsc-3.m *** octave-2.0.4/test/octave.test/arith/acsc-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsc-3.m Tue Feb 25 22:42:04 1997 *************** *** 0 **** --- 1 ---- + acsc (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/acsch-1.m octave-2.0.5/test/octave.test/arith/acsch-1.m *** octave-2.0.4/test/octave.test/arith/acsch-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsch-1.m Tue Feb 25 23:50:57 1997 *************** *** 0 **** --- 1,4 ---- + v = [pi/2*i, -pi/2*i]; + x = [-i, i]; + all (abs (acsch (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/acsch-2.m octave-2.0.5/test/octave.test/arith/acsch-2.m *** octave-2.0.4/test/octave.test/arith/acsch-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsch-2.m Tue Feb 25 22:42:13 1997 *************** *** 0 **** --- 1 ---- + acsch () diff -cNr octave-2.0.4/test/octave.test/arith/acsch-3.m octave-2.0.5/test/octave.test/arith/acsch-3.m *** octave-2.0.4/test/octave.test/arith/acsch-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/acsch-3.m Tue Feb 25 22:42:13 1997 *************** *** 0 **** --- 1 ---- + acsch (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/arg-1.m octave-2.0.5/test/octave.test/arith/arg-1.m *** octave-2.0.4/test/octave.test/arith/arg-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/arg-1.m Mon Feb 24 21:36:52 1997 *************** *** 0 **** --- 1 ---- + arg (1) == 0 && arg (i) == pi/2 && arg (-1) == pi && arg (-i) == -pi/2 diff -cNr octave-2.0.4/test/octave.test/arith/arg-2.m octave-2.0.5/test/octave.test/arith/arg-2.m *** octave-2.0.4/test/octave.test/arith/arg-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/arg-2.m Mon Feb 24 21:37:50 1997 *************** *** 0 **** --- 1 ---- + all (all (arg ([1, i; -1, -i]) == [0, pi/2; pi, -pi/2])) diff -cNr octave-2.0.4/test/octave.test/arith/arg-3.m octave-2.0.5/test/octave.test/arith/arg-3.m *** octave-2.0.4/test/octave.test/arith/arg-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/arg-3.m Mon Feb 24 21:18:32 1997 *************** *** 0 **** --- 1 ---- + arg () diff -cNr octave-2.0.4/test/octave.test/arith/arg-4.m octave-2.0.5/test/octave.test/arith/arg-4.m *** octave-2.0.4/test/octave.test/arith/arg-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/arg-4.m Mon Feb 24 21:18:39 1997 *************** *** 0 **** --- 1 ---- + arg (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/arith.exp octave-2.0.5/test/octave.test/arith/arith.exp *** octave-2.0.4/test/octave.test/arith/arith.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/arith.exp Wed Feb 26 01:13:23 1997 *************** *** 0 **** --- 1,731 ---- + ## The following functions need to have tests written for them: + + # nexpow2 + # pow2 + # beta + # betai + # erf + # erfc + # erfinv + # gamma + # gammai + # lgamma + # cross + # commutation_matrix + # duplication_matrix + + set test ceil-1 + set prog_output "ans = 1" + do_test ceil-1.m + + set test ceil-2 + set prog_output "ans = 1" + do_test ceil-2.m + + set test ceil-3 + set prog_output "error:.*" + do_test ceil-3.m + + set test ceil-4 + set prog_output "error:.*" + do_test ceil-4.m + + set test exp-1 + set prog_output "ans = 1" + do_test exp-1.m + + set test exp-2 + set prog_output "ans = 1" + do_test exp-2.m + + set test exp-3 + set prog_output "error:.*" + do_test exp-3.m + + set test exp-4 + set prog_output "error:.*" + do_test exp-4.m + + set test fix-1 + set prog_output "ans = 1" + do_test fix-1.m + + set test fix-2 + set prog_output "ans = 1" + do_test fix-2.m + + set test fix-3 + set prog_output "error:.*" + do_test fix-3.m + + set test fix-4 + set prog_output "error:.*" + do_test fix-4.m + + set test floor-1 + set prog_output "ans = 1" + do_test floor-1.m + + set test floor-2 + set prog_output "ans = 1" + do_test floor-2.m + + set test floor-3 + set prog_output "error:.*" + do_test floor-3.m + + set test floor-4 + set prog_output "error:.*" + do_test floor-4.m + + set test gcd-1 + set prog_output "ans = 1" + do_test gcd-1.m + + set test gcd-2 + set prog_output "usage:.*" + do_test gcd-2.m + + set test gcd-3 + set prog_output "error:.*" + do_test gcd-3.m + + set test lcm-1 + set prog_output "ans = 1" + do_test lcm-1.m + + set test lcm-2 + set prog_output "usage:.*" + do_test lcm-2.m + + set test lcm-3 + set prog_output "error:.*" + do_test lcm-3.m + + set test max-1 + set prog_output "ans = 1" + do_test max-1.m + + set test max-2 + set prog_output "ans = 1" + do_test max-2.m + + set test max-3 + set prog_output "\n... max:.*" + do_test max-3.m + + set test max-4 + set prog_output "\n... max:.*" + do_test max-4.m + + set test min-1 + set prog_output "ans = 1" + do_test min-1.m + + set test min-2 + set prog_output "ans = 1" + do_test min-2.m + + set test min-3 + set prog_output "\n... min:.*" + do_test min-3.m + + set test min-4 + set prog_output "\n... min:.*" + do_test min-4.m + + set test rem-1 + set prog_output "ans = 1" + do_test rem-1.m + + set test rem-2 + set prog_output "ans = 1" + do_test rem-2.m + + set test rem-3 + set prog_output "usage:.*" + do_test rem-3.m + + set test rem-4 + set prog_output "usage:.*" + do_test rem-4.m + + set test rem-5 + set prog_output "error:.*" + do_test rem-5.m + + set test rem-6 + set prog_output "error:.*" + do_test rem-6.m + + set test round-1 + set prog_output "ans = 1" + do_test round-1.m + + set test round-2 + set prog_output "ans = 1" + do_test round-2.m + + set test round-3 + set prog_output "error:.*" + do_test round-3.m + + set test round-4 + set prog_output "error:.*" + do_test round-4.m + + set test sign-1 + set prog_output "ans = 1" + do_test sign-1.m + + set test sign-2 + set prog_output "ans = 1" + do_test sign-2.m + + set test sign-3 + set prog_output "error:.*" + do_test sign-3.m + + set test sign-4 + set prog_output "error:.*" + do_test sign-4.m + + set test sqrt-1 + set prog_output "ans = 1" + do_test sqrt-1.m + + set test sqrt-2 + set prog_output "ans = 1" + do_test sqrt-2.m + + set test sqrt-3 + set prog_output "error:.*" + do_test sqrt-3.m + + set test sqrt-4 + set prog_output "error:.*" + do_test sqrt-4.m + + set test abs-1 + set prog_output "ans = 1" + do_test abs-1.m + + set test abs-2 + set prog_output "ans = 1" + do_test abs-2.m + + set test abs-3 + set prog_output "error:.*" + do_test abs-3.m + + set test abs-4 + set prog_output "error:.*" + do_test abs-4.m + + set test xor-1 + set prog_output "ans = 1" + do_test xor-1.m + + set test xor-2 + set prog_output "ans = 1" + do_test xor-2.m + + set test xor-3 + set prog_output "error:.*" + do_test xor-3.m + + set test xor-4 + set prog_output "error:.*" + do_test xor-4.m + + set test arg-1 + set prog_output "ans = 1" + do_test arg-1.m + + set test arg-2 + set prog_output "ans = 1" + do_test arg-2.m + + set test arg-3 + set prog_output "error:.*" + do_test arg-3.m + + set test arg-4 + set prog_output "error:.*" + do_test arg-4.m + + set test conj-1 + set prog_output "ans = 1" + do_test conj-1.m + + set test conj-2 + set prog_output "ans = 1" + do_test conj-2.m + + set test conj-3 + set prog_output "error:.*" + do_test conj-3.m + + set test conj-4 + set prog_output "error:.*" + do_test conj-4.m + + set test imag-1 + set prog_output "ans = 1" + do_test imag-1.m + + set test imag-2 + set prog_output "ans = 1" + do_test imag-2.m + + set test imag-3 + set prog_output "error:.*" + do_test imag-3.m + + set test imag-4 + set prog_output "error:.*" + do_test imag-4.m + + set test real-1 + set prog_output "ans = 1" + do_test real-1.m + + set test real-2 + set prog_output "ans = 1" + do_test real-2.m + + set test real-3 + set prog_output "error:.*" + do_test real-3.m + + set test real-4 + set prog_output "error:.*" + do_test real-4.m + + set test log-1 + set prog_output "ans = 1" + do_test log-1.m + + set test log-2 + set prog_output "error:.*" + do_test log-2.m + + set test log-3 + set prog_output "error:.*" + do_test log-3.m + + set test log10-1 + set prog_output "ans = 1" + do_test log10-1.m + + set test log10-2 + set prog_output "error:.*" + do_test log10-2.m + + set test log10-3 + set prog_output "error:.*" + do_test log10-3.m + + set test log2-1 + set prog_output "ans = 1" + do_test log2-1.m + + set test log2-2 + set prog_output "error:.*" + do_test log2-2.m + + set test log2-3 + set prog_output "error:.*" + do_test log2-3.m + + set test sin-1 + set prog_output "ans = 1" + do_test sin-1.m + + set test sin-2 + set prog_output "error:.*" + do_test sin-2.m + + set test sin-3 + set prog_output "error:.*" + do_test sin-3.m + + set test cos-1 + set prog_output "ans = 1" + do_test cos-1.m + + set test cos-2 + set prog_output "error:.*" + do_test cos-2.m + + set test cos-3 + set prog_output "error:.*" + do_test cos-3.m + + set test tan-1 + set prog_output "ans = 1" + do_test tan-1.m + + set test tan-2 + set prog_output "error:.*" + do_test tan-2.m + + set test tan-3 + set prog_output "error:.*" + do_test tan-3.m + + set test sec-1 + set prog_output "ans = 1" + do_test sec-1.m + + set test sec-2 + set prog_output "error:.*" + do_test sec-2.m + + set test sec-3 + set prog_output "error:.*" + do_test sec-3.m + + set test csc-1 + set prog_output "ans = 1" + do_test csc-1.m + + set test csc-2 + set prog_output "error:.*" + do_test csc-2.m + + set test csc-3 + set prog_output "error:.*" + do_test csc-3.m + + set test cot-1 + set prog_output "ans = 1" + do_test cot-1.m + + set test cot-2 + set prog_output "error:.*" + do_test cot-2.m + + set test cot-3 + set prog_output "error:.*" + do_test cot-3.m + + set test asin-1 + set prog_output "ans = 1" + do_test asin-1.m + + set test asin-2 + set prog_output "error:.*" + do_test asin-2.m + + set test asin-3 + set prog_output "error:.*" + do_test asin-3.m + + set test acos-1 + set prog_output "ans = 1" + do_test acos-1.m + + set test acos-2 + set prog_output "error:.*" + do_test acos-2.m + + set test acos-3 + set prog_output "error:.*" + do_test acos-3.m + + set test atan-1 + set prog_output "ans = 1" + do_test atan-1.m + + set test atan-2 + set prog_output "error:.*" + do_test atan-2.m + + set test atan-3 + set prog_output "error:.*" + do_test atan-3.m + + set test asec-1 + set prog_output "ans = 1" + do_test asec-1.m + + set test asec-2 + set prog_output "error:.*" + do_test asec-2.m + + set test asec-3 + set prog_output "error:.*" + do_test asec-3.m + + set test acsc-1 + set prog_output "ans = 1" + do_test acsc-1.m + + set test acsc-2 + set prog_output "error:.*" + do_test acsc-2.m + + set test acsc-3 + set prog_output "error:.*" + do_test acsc-3.m + + set test acot-1 + set prog_output "ans = 1" + do_test acot-1.m + + set test acot-2 + set prog_output "error:.*" + do_test acot-2.m + + set test acot-3 + set prog_output "error:.*" + do_test acot-3.m + + set test sinh-1 + set prog_output "ans = 1" + do_test sinh-1.m + + set test sinh-2 + set prog_output "error:.*" + do_test sinh-2.m + + set test sinh-3 + set prog_output "error:.*" + do_test sinh-3.m + + set test cosh-1 + set prog_output "ans = 1" + do_test cosh-1.m + + set test cosh-2 + set prog_output "error:.*" + do_test cosh-2.m + + set test cosh-3 + set prog_output "error:.*" + do_test cosh-3.m + + set test tanh-1 + set prog_output "ans = 1" + do_test tanh-1.m + + set test tanh-2 + set prog_output "error:.*" + do_test tanh-2.m + + set test tanh-3 + set prog_output "error:.*" + do_test tanh-3.m + + set test sech-1 + set prog_output "ans = 1" + do_test sech-1.m + + set test sech-2 + set prog_output "error:.*" + do_test sech-2.m + + set test sech-3 + set prog_output "error:.*" + do_test sech-3.m + + set test csch-1 + set prog_output "ans = 1" + do_test csch-1.m + + set test csch-2 + set prog_output "error:.*" + do_test csch-2.m + + set test csch-3 + set prog_output "error:.*" + do_test csch-3.m + + set test coth-1 + set prog_output "ans = 1" + do_test coth-1.m + + set test coth-2 + set prog_output "error:.*" + do_test coth-2.m + + set test coth-3 + set prog_output "error:.*" + do_test coth-3.m + + set test asinh-1 + set prog_output "ans = 1" + do_test asinh-1.m + + set test asinh-2 + set prog_output "error:.*" + do_test asinh-2.m + + set test asinh-3 + set prog_output "error:.*" + do_test asinh-3.m + + set test acosh-1 + set prog_output "ans = 1" + do_test acosh-1.m + + set test acosh-2 + set prog_output "error:.*" + do_test acosh-2.m + + set test acosh-3 + set prog_output "error:.*" + do_test acosh-3.m + + set test atanh-1 + set prog_output "ans = 1" + do_test atanh-1.m + + set test atanh-2 + set prog_output "error:.*" + do_test atanh-2.m + + set test atanh-3 + set prog_output "error:.*" + do_test atanh-3.m + + set test asech-1 + set prog_output "ans = 1" + do_test asech-1.m + + set test asech-2 + set prog_output "error:.*" + do_test asech-2.m + + set test asech-3 + set prog_output "error:.*" + do_test asech-3.m + + set test acsch-1 + set prog_output "ans = 1" + do_test acsch-1.m + + set test acsch-2 + set prog_output "error:.*" + do_test acsch-2.m + + set test acsch-3 + set prog_output "error:.*" + do_test acsch-3.m + + set test acoth-1 + set prog_output "ans = 1" + do_test acoth-1.m + + set test acoth-2 + set prog_output "error:.*" + do_test acoth-2.m + + set test acoth-3 + set prog_output "error:.*" + do_test acoth-3.m + + set test atan2-1 + set prog_output "ans = 1" + do_test atan2-1.m + + set test atan2-2 + set prog_output "\n... atan2:.*" + do_test atan2-2.m + + set test atan2-3 + set prog_output "\n... atan2:.*" + do_test atan2-3.m + + set test sum-1 + set prog_output "ans = 1" + do_test sum-1.m + + set test sum-2 + set prog_output "ans = 1" + do_test sum-2.m + + set test sum-3 + set prog_output "\n... sum:.*" + do_test sum-3.m + + set test sum-4 + set prog_output "\n... sum:.*" + do_test sum-4.m + + set test prod-1 + set prog_output "ans = 1" + do_test prod-1.m + + set test prod-2 + set prog_output "ans = 1" + do_test prod-2.m + + set test prod-3 + set prog_output "\n... prod:.*" + do_test prod-3.m + + set test prod-4 + set prog_output "\n... prod:.*" + do_test prod-4.m + + set test cumsum-1 + set prog_output "ans = 1" + do_test cumsum-1.m + + set test cumsum-2 + set prog_output "ans = 1" + do_test cumsum-2.m + + set test cumsum-3 + set prog_output "\n... cumsum:.*" + do_test cumsum-3.m + + set test cumsum-4 + set prog_output "\n... cumsum:.*" + do_test cumsum-4.m + + set test cumprod-1 + set prog_output "ans = 1" + do_test cumprod-1.m + + set test cumprod-2 + set prog_output "ans = 1" + do_test cumprod-2.m + + set test cumprod-3 + set prog_output "\n... cumprod:.*" + do_test cumprod-3.m + + set test cumprod-4 + set prog_output "\n... cumprod:.*" + do_test cumprod-4.m + + set test sumsq-1 + set prog_output "ans = 1" + do_test sumsq-1.m + + set test sumsq-2 + set prog_output "ans = 1" + do_test sumsq-2.m + + set test sumsq-3 + set prog_output "\n... sumsq:.*" + do_test sumsq-3.m + + set test sumsq-4 + set prog_output "\n... sumsq:.*" + do_test sumsq-4.m + + set test bincoeff-1 + set prog_output "ans = 1" + do_test bincoeff-1.m + + set test bincoeff-2 + set prog_output "usage:.*" + do_test bincoeff-2.m + + set test bincoeff-3 + set prog_output "usage.*" + do_test bincoeff-3.m diff -cNr octave-2.0.4/test/octave.test/arith/asec-1.m octave-2.0.5/test/octave.test/arith/asec-1.m *** octave-2.0.4/test/octave.test/arith/asec-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asec-1.m Tue Feb 25 23:32:58 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + x = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1]; + all (abs (asec (x) - v) < sqrt (eps)) + + diff -cNr octave-2.0.4/test/octave.test/arith/asec-2.m octave-2.0.5/test/octave.test/arith/asec-2.m *** octave-2.0.4/test/octave.test/arith/asec-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asec-2.m Tue Feb 25 22:42:03 1997 *************** *** 0 **** --- 1 ---- + asec () diff -cNr octave-2.0.4/test/octave.test/arith/asec-3.m octave-2.0.5/test/octave.test/arith/asec-3.m *** octave-2.0.4/test/octave.test/arith/asec-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asec-3.m Tue Feb 25 22:42:04 1997 *************** *** 0 **** --- 1 ---- + asec (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/asech-1.m octave-2.0.5/test/octave.test/arith/asech-1.m *** octave-2.0.4/test/octave.test/arith/asech-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asech-1.m Tue Feb 25 23:33:02 1997 *************** *** 0 **** --- 1,4 ---- + v = [0, pi*i]; + x = [1, -1]; + all (abs (asech (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/asech-2.m octave-2.0.5/test/octave.test/arith/asech-2.m *** octave-2.0.4/test/octave.test/arith/asech-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asech-2.m Tue Feb 25 22:42:13 1997 *************** *** 0 **** --- 1 ---- + asech () diff -cNr octave-2.0.4/test/octave.test/arith/asech-3.m octave-2.0.5/test/octave.test/arith/asech-3.m *** octave-2.0.4/test/octave.test/arith/asech-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asech-3.m Tue Feb 25 22:42:13 1997 *************** *** 0 **** --- 1 ---- + asech (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/asin-1.m octave-2.0.5/test/octave.test/arith/asin-1.m *** octave-2.0.4/test/octave.test/arith/asin-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asin-1.m Tue Feb 25 23:44:10 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [0, pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6, 0]; + x = [0, 1/2, rt2/2, rt3/2, 1, rt3/2, rt2/2, 1/2, 0]; + all (abs (asin (x) - v) < sqrt (eps)) + + diff -cNr octave-2.0.4/test/octave.test/arith/asin-2.m octave-2.0.5/test/octave.test/arith/asin-2.m *** octave-2.0.4/test/octave.test/arith/asin-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asin-2.m Tue Feb 25 22:42:02 1997 *************** *** 0 **** --- 1 ---- + asin () diff -cNr octave-2.0.4/test/octave.test/arith/asin-3.m octave-2.0.5/test/octave.test/arith/asin-3.m *** octave-2.0.4/test/octave.test/arith/asin-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asin-3.m Tue Feb 25 22:42:02 1997 *************** *** 0 **** --- 1 ---- + asin (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/asinh-1.m octave-2.0.5/test/octave.test/arith/asinh-1.m *** octave-2.0.4/test/octave.test/arith/asinh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asinh-1.m Tue Feb 25 23:49:25 1997 *************** *** 0 **** --- 1,4 ---- + v = [0, pi/2*i, 0, -pi/2*i]; + x = [0, i, 0, -i]; + all (abs (asinh (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/asinh-2.m octave-2.0.5/test/octave.test/arith/asinh-2.m *** octave-2.0.4/test/octave.test/arith/asinh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asinh-2.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + asinh () diff -cNr octave-2.0.4/test/octave.test/arith/asinh-3.m octave-2.0.5/test/octave.test/arith/asinh-3.m *** octave-2.0.4/test/octave.test/arith/asinh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/asinh-3.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + asinh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/atan-1.m octave-2.0.5/test/octave.test/arith/atan-1.m *** octave-2.0.4/test/octave.test/arith/atan-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan-1.m Tue Feb 25 23:43:14 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [0, pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6, 0]; + x = [0, rt3/3, 1, rt3, -rt3, -1, -rt3/3, 0]; + all (abs (atan (x) - v) < sqrt (eps)) + + diff -cNr octave-2.0.4/test/octave.test/arith/atan-2.m octave-2.0.5/test/octave.test/arith/atan-2.m *** octave-2.0.4/test/octave.test/arith/atan-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan-2.m Tue Feb 25 22:42:03 1997 *************** *** 0 **** --- 1 ---- + atan () diff -cNr octave-2.0.4/test/octave.test/arith/atan-3.m octave-2.0.5/test/octave.test/arith/atan-3.m *** octave-2.0.4/test/octave.test/arith/atan-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan-3.m Tue Feb 25 22:42:03 1997 *************** *** 0 **** --- 1 ---- + atan (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/atan2-1.m octave-2.0.5/test/octave.test/arith/atan2-1.m *** octave-2.0.4/test/octave.test/arith/atan2-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan2-1.m Wed Feb 26 00:11:23 1997 *************** *** 0 **** --- 1,7 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + v = [0, pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6, 0]; + y = [0, rt3, 1, rt3, -rt3, -1, -rt3, 0]; + x = [1, 3, 1, 1, 1, 1, 3, 1]; + all (abs (atan2 (y, x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/atan2-2.m octave-2.0.5/test/octave.test/arith/atan2-2.m *** octave-2.0.4/test/octave.test/arith/atan2-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan2-2.m Tue Feb 25 22:42:21 1997 *************** *** 0 **** --- 1 ---- + atan2 () diff -cNr octave-2.0.4/test/octave.test/arith/atan2-3.m octave-2.0.5/test/octave.test/arith/atan2-3.m *** octave-2.0.4/test/octave.test/arith/atan2-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atan2-3.m Tue Feb 25 22:42:55 1997 *************** *** 0 **** --- 1 ---- + atan2 (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/arith/atanh-1.m octave-2.0.5/test/octave.test/arith/atanh-1.m *** octave-2.0.4/test/octave.test/arith/atanh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atanh-1.m Tue Feb 25 23:50:40 1997 *************** *** 0 **** --- 1,4 ---- + v = [0, 0]; + x = [0, 0]; + all (abs (atanh (x) - v) < sqrt (eps)) + diff -cNr octave-2.0.4/test/octave.test/arith/atanh-2.m octave-2.0.5/test/octave.test/arith/atanh-2.m *** octave-2.0.4/test/octave.test/arith/atanh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atanh-2.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + atanh () diff -cNr octave-2.0.4/test/octave.test/arith/atanh-3.m octave-2.0.5/test/octave.test/arith/atanh-3.m *** octave-2.0.4/test/octave.test/arith/atanh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/atanh-3.m Tue Feb 25 22:42:12 1997 *************** *** 0 **** --- 1 ---- + atanh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/bincoeff-1.m octave-2.0.5/test/octave.test/arith/bincoeff-1.m *** octave-2.0.4/test/octave.test/arith/bincoeff-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/bincoeff-1.m Wed Feb 26 00:35:13 1997 *************** *** 0 **** --- 1 ---- + bincoeff (5, 2) == 10 && bincoeff (50, 6) == 15890700 diff -cNr octave-2.0.4/test/octave.test/arith/bincoeff-2.m octave-2.0.5/test/octave.test/arith/bincoeff-2.m *** octave-2.0.4/test/octave.test/arith/bincoeff-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/bincoeff-2.m Wed Feb 26 00:34:25 1997 *************** *** 0 **** --- 1 ---- + bincoeff () diff -cNr octave-2.0.4/test/octave.test/arith/bincoeff-3.m octave-2.0.5/test/octave.test/arith/bincoeff-3.m *** octave-2.0.4/test/octave.test/arith/bincoeff-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/bincoeff-3.m Wed Feb 26 00:34:35 1997 *************** *** 0 **** --- 1 ---- + bincoeff (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/arith/ceil-1.m octave-2.0.5/test/octave.test/arith/ceil-1.m *** octave-2.0.4/test/octave.test/arith/ceil-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/ceil-1.m Mon Feb 24 20:56:37 1997 *************** *** 0 **** --- 1 ---- + all (ceil ([2, 1.1, -1.1, -1]) == [2, 2, -1, -1]) diff -cNr octave-2.0.4/test/octave.test/arith/ceil-2.m octave-2.0.5/test/octave.test/arith/ceil-2.m *** octave-2.0.4/test/octave.test/arith/ceil-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/ceil-2.m Mon Feb 24 20:22:26 1997 *************** *** 0 **** --- 1 ---- + all (ceil ([2+2i, 1.1+1.1i, -1.1-1.1i, -1-i]) == [2+2i, 2+2i, -1-i, -1-i]) diff -cNr octave-2.0.4/test/octave.test/arith/ceil-3.m octave-2.0.5/test/octave.test/arith/ceil-3.m *** octave-2.0.4/test/octave.test/arith/ceil-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/ceil-3.m Mon Feb 24 20:12:07 1997 *************** *** 0 **** --- 1 ---- + ceil () diff -cNr octave-2.0.4/test/octave.test/arith/ceil-4.m octave-2.0.5/test/octave.test/arith/ceil-4.m *** octave-2.0.4/test/octave.test/arith/ceil-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/ceil-4.m Mon Feb 24 20:12:16 1997 *************** *** 0 **** --- 1 ---- + ceil (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/conj-1.m octave-2.0.5/test/octave.test/arith/conj-1.m *** octave-2.0.4/test/octave.test/arith/conj-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/conj-1.m Mon Feb 24 21:40:49 1997 *************** *** 0 **** --- 1 ---- + conj (1) == 1 && conj (i) == -i && conj (1+i) == 1-i && conj (1-i) == 1+i diff -cNr octave-2.0.4/test/octave.test/arith/conj-2.m octave-2.0.5/test/octave.test/arith/conj-2.m *** octave-2.0.4/test/octave.test/arith/conj-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/conj-2.m Mon Feb 24 21:23:19 1997 *************** *** 0 **** --- 1 ---- + all (all (conj ([-1, -i; -1+i, -1-i]) == [-1, i; -1-i, -1+i])) diff -cNr octave-2.0.4/test/octave.test/arith/conj-3.m octave-2.0.5/test/octave.test/arith/conj-3.m *** octave-2.0.4/test/octave.test/arith/conj-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/conj-3.m Mon Feb 24 21:18:53 1997 *************** *** 0 **** --- 1 ---- + conj () diff -cNr octave-2.0.4/test/octave.test/arith/conj-4.m octave-2.0.5/test/octave.test/arith/conj-4.m *** octave-2.0.4/test/octave.test/arith/conj-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/conj-4.m Mon Feb 24 21:18:59 1997 *************** *** 0 **** --- 1 ---- + conj (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/cos-1.m octave-2.0.5/test/octave.test/arith/cos-1.m *** octave-2.0.4/test/octave.test/arith/cos-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cos-1.m Tue Feb 25 23:32:56 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + v = [1, rt3/2, rt2/2, 1/2, 0, -1/2, -rt2/2, -rt3/2, -1]; + all (abs (cos (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/cos-2.m octave-2.0.5/test/octave.test/arith/cos-2.m *** octave-2.0.4/test/octave.test/arith/cos-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cos-2.m Tue Feb 25 22:41:58 1997 *************** *** 0 **** --- 1 ---- + cos () diff -cNr octave-2.0.4/test/octave.test/arith/cos-3.m octave-2.0.5/test/octave.test/arith/cos-3.m *** octave-2.0.4/test/octave.test/arith/cos-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cos-3.m Tue Feb 25 22:41:58 1997 *************** *** 0 **** --- 1 ---- + cos (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/cosh-1.m octave-2.0.5/test/octave.test/arith/cosh-1.m *** octave-2.0.4/test/octave.test/arith/cosh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cosh-1.m Tue Feb 25 23:47:50 1997 *************** *** 0 **** --- 1,3 ---- + x = [0, pi/2*i, pi*i, 3*pi/2*i]; + v = [1, 0, -1, 0]; + all (abs (cosh (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/cosh-2.m octave-2.0.5/test/octave.test/arith/cosh-2.m *** octave-2.0.4/test/octave.test/arith/cosh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cosh-2.m Tue Feb 25 22:42:07 1997 *************** *** 0 **** --- 1 ---- + cosh () diff -cNr octave-2.0.4/test/octave.test/arith/cosh-3.m octave-2.0.5/test/octave.test/arith/cosh-3.m *** octave-2.0.4/test/octave.test/arith/cosh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cosh-3.m Tue Feb 25 22:42:07 1997 *************** *** 0 **** --- 1 ---- + cosh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/cot-1.m octave-2.0.5/test/octave.test/arith/cot-1.m *** octave-2.0.4/test/octave.test/arith/cot-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cot-1.m Tue Feb 25 23:32:54 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6]; + v = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3]; + all (abs (cot (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/cot-2.m octave-2.0.5/test/octave.test/arith/cot-2.m *** octave-2.0.4/test/octave.test/arith/cot-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cot-2.m Tue Feb 25 22:42:01 1997 *************** *** 0 **** --- 1 ---- + cot () diff -cNr octave-2.0.4/test/octave.test/arith/cot-3.m octave-2.0.5/test/octave.test/arith/cot-3.m *** octave-2.0.4/test/octave.test/arith/cot-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cot-3.m Tue Feb 25 22:42:01 1997 *************** *** 0 **** --- 1 ---- + cot (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/coth-1.m octave-2.0.5/test/octave.test/arith/coth-1.m *** octave-2.0.4/test/octave.test/arith/coth-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/coth-1.m Tue Feb 25 23:47:47 1997 *************** *** 0 **** --- 1,3 ---- + x = [pi/2*i, 3*pi/2*i]; + v = [0, 0]; + all (abs (coth (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/coth-2.m octave-2.0.5/test/octave.test/arith/coth-2.m *** octave-2.0.4/test/octave.test/arith/coth-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/coth-2.m Tue Feb 25 22:42:11 1997 *************** *** 0 **** --- 1 ---- + coth () diff -cNr octave-2.0.4/test/octave.test/arith/coth-3.m octave-2.0.5/test/octave.test/arith/coth-3.m *** octave-2.0.4/test/octave.test/arith/coth-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/coth-3.m Tue Feb 25 22:42:11 1997 *************** *** 0 **** --- 1 ---- + coth (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/csc-1.m octave-2.0.5/test/octave.test/arith/csc-1.m *** octave-2.0.4/test/octave.test/arith/csc-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csc-1.m Tue Feb 25 23:32:50 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6]; + v = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2]; + all (abs (csc (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/csc-2.m octave-2.0.5/test/octave.test/arith/csc-2.m *** octave-2.0.4/test/octave.test/arith/csc-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csc-2.m Tue Feb 25 22:42:00 1997 *************** *** 0 **** --- 1 ---- + csc () diff -cNr octave-2.0.4/test/octave.test/arith/csc-3.m octave-2.0.5/test/octave.test/arith/csc-3.m *** octave-2.0.4/test/octave.test/arith/csc-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csc-3.m Tue Feb 25 22:42:00 1997 *************** *** 0 **** --- 1 ---- + csc (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/csch-1.m octave-2.0.5/test/octave.test/arith/csch-1.m *** octave-2.0.4/test/octave.test/arith/csch-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csch-1.m Tue Feb 25 23:47:35 1997 *************** *** 0 **** --- 1,3 ---- + x = [pi/2*i, 3*pi/2*i]; + v = [-i, i]; + all (abs (csch (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/csch-2.m octave-2.0.5/test/octave.test/arith/csch-2.m *** octave-2.0.4/test/octave.test/arith/csch-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csch-2.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + csch () diff -cNr octave-2.0.4/test/octave.test/arith/csch-3.m octave-2.0.5/test/octave.test/arith/csch-3.m *** octave-2.0.4/test/octave.test/arith/csch-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/csch-3.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + csch (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/cumprod-1.m octave-2.0.5/test/octave.test/arith/cumprod-1.m *** octave-2.0.4/test/octave.test/arith/cumprod-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumprod-1.m Mon Feb 24 22:23:55 1997 *************** *** 0 **** --- 1,2 ---- + (cumprod ([1, 2, 3]) == [1, 2, 6] && cumprod ([-1; -2; -3]) == [-1; 2; -6] + && cumprod ([i, 2+i, -3+2i, 4]) == [i, -1+2i, -1-8i, -4-32i]) diff -cNr octave-2.0.4/test/octave.test/arith/cumprod-2.m octave-2.0.5/test/octave.test/arith/cumprod-2.m *** octave-2.0.4/test/octave.test/arith/cumprod-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumprod-2.m Mon Feb 24 22:31:24 1997 *************** *** 0 **** --- 1,2 ---- + all (all (cumprod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) + == [1, 2, 3; i, 4i, 9i; -1+i, -8+8i, -27+27i])) diff -cNr octave-2.0.4/test/octave.test/arith/cumprod-3.m octave-2.0.5/test/octave.test/arith/cumprod-3.m *** octave-2.0.4/test/octave.test/arith/cumprod-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumprod-3.m Mon Feb 24 22:16:47 1997 *************** *** 0 **** --- 1 ---- + cumprod () diff -cNr octave-2.0.4/test/octave.test/arith/cumprod-4.m octave-2.0.5/test/octave.test/arith/cumprod-4.m *** octave-2.0.4/test/octave.test/arith/cumprod-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumprod-4.m Mon Feb 24 22:16:55 1997 *************** *** 0 **** --- 1 ---- + cumprod (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/cumsum-1.m octave-2.0.5/test/octave.test/arith/cumsum-1.m *** octave-2.0.4/test/octave.test/arith/cumsum-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumsum-1.m Mon Feb 24 22:30:38 1997 *************** *** 0 **** --- 1,2 ---- + (cumsum ([1, 2, 3]) == [1, 3, 6] && cumsum ([-1; -2; -3]) == [-1; -3; -6] + && cumsum ([i, 2+i, -3+2i, 4]) == [i, 2+2i, -1+4i, 3+4i]) diff -cNr octave-2.0.4/test/octave.test/arith/cumsum-2.m octave-2.0.5/test/octave.test/arith/cumsum-2.m *** octave-2.0.4/test/octave.test/arith/cumsum-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumsum-2.m Mon Feb 24 22:22:15 1997 *************** *** 0 **** --- 1,2 ---- + all (all (cumsum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) + == [1, 2, 3; 1+i, 2+2i, 3+3i; 2+2i, 4+4i, 6+6i])) diff -cNr octave-2.0.4/test/octave.test/arith/cumsum-3.m octave-2.0.5/test/octave.test/arith/cumsum-3.m *** octave-2.0.4/test/octave.test/arith/cumsum-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumsum-3.m Mon Feb 24 22:16:31 1997 *************** *** 0 **** --- 1 ---- + cumsum () diff -cNr octave-2.0.4/test/octave.test/arith/cumsum-4.m octave-2.0.5/test/octave.test/arith/cumsum-4.m *** octave-2.0.4/test/octave.test/arith/cumsum-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/cumsum-4.m Mon Feb 24 22:16:38 1997 *************** *** 0 **** --- 1 ---- + cumsum (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/exp-1.m octave-2.0.5/test/octave.test/arith/exp-1.m *** octave-2.0.4/test/octave.test/arith/exp-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/exp-1.m Thu Feb 27 21:04:41 1997 *************** *** 0 **** --- 1 ---- + all (exp ([0, 1, -1, -1000]) - [1, e, 1/e, 0] < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/exp-2.m octave-2.0.5/test/octave.test/arith/exp-2.m *** octave-2.0.4/test/octave.test/arith/exp-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/exp-2.m Sat Mar 1 15:46:07 1997 *************** *** 0 **** --- 1 ---- + abs (exp (1+i) - e * (cos (1) + sin (1) * i)) < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/arith/exp-3.m octave-2.0.5/test/octave.test/arith/exp-3.m *** octave-2.0.4/test/octave.test/arith/exp-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/exp-3.m Mon Feb 24 20:25:52 1997 *************** *** 0 **** --- 1 ---- + exp () diff -cNr octave-2.0.4/test/octave.test/arith/exp-4.m octave-2.0.5/test/octave.test/arith/exp-4.m *** octave-2.0.4/test/octave.test/arith/exp-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/exp-4.m Mon Feb 24 20:25:57 1997 *************** *** 0 **** --- 1 ---- + exp (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/fix-1.m octave-2.0.5/test/octave.test/arith/fix-1.m *** octave-2.0.4/test/octave.test/arith/fix-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/fix-1.m Mon Feb 24 20:47:23 1997 *************** *** 0 **** --- 1 ---- + all (fix ([1.1, 1, -1.1, -1]) == [1, 1, -1, -1]) diff -cNr octave-2.0.4/test/octave.test/arith/fix-2.m octave-2.0.5/test/octave.test/arith/fix-2.m *** octave-2.0.4/test/octave.test/arith/fix-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/fix-2.m Mon Feb 24 20:48:11 1997 *************** *** 0 **** --- 1 ---- + all (fix ([1.1+1.1i, 1+i, -1.1-1.1i, -1-i]) == [1+i, 1+i, -1-i, -1-i]) diff -cNr octave-2.0.4/test/octave.test/arith/fix-3.m octave-2.0.5/test/octave.test/arith/fix-3.m *** octave-2.0.4/test/octave.test/arith/fix-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/fix-3.m Mon Feb 24 20:46:22 1997 *************** *** 0 **** --- 1 ---- + fix () diff -cNr octave-2.0.4/test/octave.test/arith/fix-4.m octave-2.0.5/test/octave.test/arith/fix-4.m *** octave-2.0.4/test/octave.test/arith/fix-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/fix-4.m Mon Feb 24 20:46:16 1997 *************** *** 0 **** --- 1 ---- + fix (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/floor-1.m octave-2.0.5/test/octave.test/arith/floor-1.m *** octave-2.0.4/test/octave.test/arith/floor-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/floor-1.m Mon Feb 24 20:23:03 1997 *************** *** 0 **** --- 1 ---- + all (floor ([2, 1.1, -1.1, -1]) == [2, 1, -2, -1]) diff -cNr octave-2.0.4/test/octave.test/arith/floor-2.m octave-2.0.5/test/octave.test/arith/floor-2.m *** octave-2.0.4/test/octave.test/arith/floor-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/floor-2.m Mon Feb 24 20:23:59 1997 *************** *** 0 **** --- 1 ---- + all (floor ([2+2i, 1.1+1.1i, -1.1-1.1i, -1-i]) == [2+2i, 1+i, -2-2i, -1-i]) diff -cNr octave-2.0.4/test/octave.test/arith/floor-3.m octave-2.0.5/test/octave.test/arith/floor-3.m *** octave-2.0.4/test/octave.test/arith/floor-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/floor-3.m Mon Feb 24 20:14:15 1997 *************** *** 0 **** --- 1 ---- + floor () diff -cNr octave-2.0.4/test/octave.test/arith/floor-4.m octave-2.0.5/test/octave.test/arith/floor-4.m *** octave-2.0.4/test/octave.test/arith/floor-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/floor-4.m Mon Feb 24 20:14:09 1997 *************** *** 0 **** --- 1 ---- + floor (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/gcd-1.m octave-2.0.5/test/octave.test/arith/gcd-1.m *** octave-2.0.4/test/octave.test/arith/gcd-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/gcd-1.m Wed Feb 26 01:13:56 1997 *************** *** 0 **** --- 1,2 ---- + (gcd (200, 300, 50, 35) == gcd ([200, 300, 50, 35]) + && gcd ([200, 300, 50, 35]) == 5) diff -cNr octave-2.0.4/test/octave.test/arith/gcd-2.m octave-2.0.5/test/octave.test/arith/gcd-2.m *** octave-2.0.4/test/octave.test/arith/gcd-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/gcd-2.m Wed Feb 26 00:53:57 1997 *************** *** 0 **** --- 1 ---- + gcd () diff -cNr octave-2.0.4/test/octave.test/arith/gcd-3.m octave-2.0.5/test/octave.test/arith/gcd-3.m *** octave-2.0.4/test/octave.test/arith/gcd-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/gcd-3.m Wed Feb 26 00:53:50 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + gcd (s) diff -cNr octave-2.0.4/test/octave.test/arith/imag-1.m octave-2.0.5/test/octave.test/arith/imag-1.m *** octave-2.0.4/test/octave.test/arith/imag-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/imag-1.m Mon Feb 24 20:50:30 1997 *************** *** 0 **** --- 1 ---- + imag (1) == 0 && imag (i) == 1 && imag (1+i) == 1 diff -cNr octave-2.0.4/test/octave.test/arith/imag-2.m octave-2.0.5/test/octave.test/arith/imag-2.m *** octave-2.0.4/test/octave.test/arith/imag-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/imag-2.m Mon Feb 24 20:51:08 1997 *************** *** 0 **** --- 1 ---- + all (all (imag ([i, 1; 1, i]) == eye (2))) diff -cNr octave-2.0.4/test/octave.test/arith/imag-3.m octave-2.0.5/test/octave.test/arith/imag-3.m *** octave-2.0.4/test/octave.test/arith/imag-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/imag-3.m Mon Feb 24 20:49:50 1997 *************** *** 0 **** --- 1 ---- + imag () diff -cNr octave-2.0.4/test/octave.test/arith/imag-4.m octave-2.0.5/test/octave.test/arith/imag-4.m *** octave-2.0.4/test/octave.test/arith/imag-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/imag-4.m Mon Feb 24 20:49:34 1997 *************** *** 0 **** --- 1 ---- + imag (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/lcm-1.m octave-2.0.5/test/octave.test/arith/lcm-1.m *** octave-2.0.4/test/octave.test/arith/lcm-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/lcm-1.m Wed Feb 26 00:56:41 1997 *************** *** 0 **** --- 1 ---- + lcm (3, 5, 7, 15) == lcm ([3, 5, 7, 15]) && lcm ([3, 5, 7,15]) == 105 diff -cNr octave-2.0.4/test/octave.test/arith/lcm-2.m octave-2.0.5/test/octave.test/arith/lcm-2.m *** octave-2.0.4/test/octave.test/arith/lcm-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/lcm-2.m Wed Feb 26 00:53:38 1997 *************** *** 0 **** --- 1 ---- + lcm () diff -cNr octave-2.0.4/test/octave.test/arith/lcm-3.m octave-2.0.5/test/octave.test/arith/lcm-3.m *** octave-2.0.4/test/octave.test/arith/lcm-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/lcm-3.m Wed Feb 26 00:53:34 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + lcm (s) diff -cNr octave-2.0.4/test/octave.test/arith/log-1.m octave-2.0.5/test/octave.test/arith/log-1.m *** octave-2.0.4/test/octave.test/arith/log-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log-1.m Wed Feb 26 00:12:30 1997 *************** *** 0 **** --- 1 ---- + all (abs (log ([1, e, e^2]) - [0, 1, 2]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/log-2.m octave-2.0.5/test/octave.test/arith/log-2.m *** octave-2.0.4/test/octave.test/arith/log-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log-2.m Tue Feb 25 22:40:25 1997 *************** *** 0 **** --- 1 ---- + log () diff -cNr octave-2.0.4/test/octave.test/arith/log-3.m octave-2.0.5/test/octave.test/arith/log-3.m *** octave-2.0.4/test/octave.test/arith/log-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log-3.m Tue Feb 25 22:40:42 1997 *************** *** 0 **** --- 1 ---- + log (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/log10-1.m octave-2.0.5/test/octave.test/arith/log10-1.m *** octave-2.0.4/test/octave.test/arith/log10-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log10-1.m Wed Feb 26 00:13:14 1997 *************** *** 0 **** --- 1 ---- + all (abs (log10 ([0.01, 0.1, 1, 10, 100]) - [-2, -1, 0, 1, 2]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/log10-2.m octave-2.0.5/test/octave.test/arith/log10-2.m *** octave-2.0.4/test/octave.test/arith/log10-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log10-2.m Tue Feb 25 22:41:42 1997 *************** *** 0 **** --- 1 ---- + log10 () diff -cNr octave-2.0.4/test/octave.test/arith/log10-3.m octave-2.0.5/test/octave.test/arith/log10-3.m *** octave-2.0.4/test/octave.test/arith/log10-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log10-3.m Tue Feb 25 22:41:51 1997 *************** *** 0 **** --- 1 ---- + log10 (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/log2-1.m octave-2.0.5/test/octave.test/arith/log2-1.m *** octave-2.0.4/test/octave.test/arith/log2-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log2-1.m Wed Feb 26 00:13:57 1997 *************** *** 0 **** --- 1 ---- + all (abs (log2 ([1/4, 1/2, 1, 2, 4]) - [-2, -1, 0, 1, 2]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/log2-2.m octave-2.0.5/test/octave.test/arith/log2-2.m *** octave-2.0.4/test/octave.test/arith/log2-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log2-2.m Tue Feb 25 22:41:56 1997 *************** *** 0 **** --- 1 ---- + log2 () diff -cNr octave-2.0.4/test/octave.test/arith/log2-3.m octave-2.0.5/test/octave.test/arith/log2-3.m *** octave-2.0.4/test/octave.test/arith/log2-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/log2-3.m Tue Feb 25 22:41:56 1997 *************** *** 0 **** --- 1 ---- + log2 (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/max-1.m octave-2.0.5/test/octave.test/arith/max-1.m *** octave-2.0.4/test/octave.test/arith/max-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/max-1.m Mon Feb 24 21:13:24 1997 *************** *** 0 **** --- 1 ---- + max ([1, 4, 2, 3]) == 4 && max ([1; -10; 5; -2]) == 5 diff -cNr octave-2.0.4/test/octave.test/arith/max-2.m octave-2.0.5/test/octave.test/arith/max-2.m *** octave-2.0.4/test/octave.test/arith/max-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/max-2.m Mon Feb 24 21:14:36 1997 *************** *** 0 **** --- 1 ---- + all (max ([4, i 4.999; -2, 2, 3+4i]) == [4, 2, 3+4i]) diff -cNr octave-2.0.4/test/octave.test/arith/max-3.m octave-2.0.5/test/octave.test/arith/max-3.m *** octave-2.0.4/test/octave.test/arith/max-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/max-3.m Mon Feb 24 21:13:01 1997 *************** *** 0 **** --- 1 ---- + max () diff -cNr octave-2.0.4/test/octave.test/arith/max-4.m octave-2.0.5/test/octave.test/arith/max-4.m *** octave-2.0.4/test/octave.test/arith/max-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/max-4.m Mon Feb 24 21:43:33 1997 *************** *** 0 **** --- 1 ---- + max (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/arith/min-1.m octave-2.0.5/test/octave.test/arith/min-1.m *** octave-2.0.4/test/octave.test/arith/min-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/min-1.m Mon Feb 24 21:07:35 1997 *************** *** 0 **** --- 1 ---- + min ([1, 4, 2, 3]) == 1 && min ([1; -10; 5; -2]) == -10 diff -cNr octave-2.0.4/test/octave.test/arith/min-2.m octave-2.0.5/test/octave.test/arith/min-2.m *** octave-2.0.4/test/octave.test/arith/min-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/min-2.m Mon Feb 24 21:12:53 1997 *************** *** 0 **** --- 1 ---- + all (min ([4, i; -2, 2]) == [-2, i]) diff -cNr octave-2.0.4/test/octave.test/arith/min-3.m octave-2.0.5/test/octave.test/arith/min-3.m *** octave-2.0.4/test/octave.test/arith/min-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/min-3.m Mon Feb 24 21:11:25 1997 *************** *** 0 **** --- 1 ---- + min () diff -cNr octave-2.0.4/test/octave.test/arith/min-4.m octave-2.0.5/test/octave.test/arith/min-4.m *** octave-2.0.4/test/octave.test/arith/min-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/min-4.m Mon Feb 24 21:43:23 1997 *************** *** 0 **** --- 1 ---- + min (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/arith/prod-1.m octave-2.0.5/test/octave.test/arith/prod-1.m *** octave-2.0.4/test/octave.test/arith/prod-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/prod-1.m Mon Feb 24 22:18:08 1997 *************** *** 0 **** --- 1,2 ---- + (prod ([1, 2, 3]) == 6 && prod ([-1; -2; -3]) == -6 + && prod ([i, 2+i, -3+2i, 4]) == -4-32i) diff -cNr octave-2.0.4/test/octave.test/arith/prod-2.m octave-2.0.5/test/octave.test/arith/prod-2.m *** octave-2.0.4/test/octave.test/arith/prod-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/prod-2.m Mon Feb 24 22:18:59 1997 *************** *** 0 **** --- 1,2 ---- + all (all (prod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) + == [-1+i, -8+8i, -27+27i])) diff -cNr octave-2.0.4/test/octave.test/arith/prod-3.m octave-2.0.5/test/octave.test/arith/prod-3.m *** octave-2.0.4/test/octave.test/arith/prod-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/prod-3.m Mon Feb 24 22:16:58 1997 *************** *** 0 **** --- 1 ---- + prod () diff -cNr octave-2.0.4/test/octave.test/arith/prod-4.m octave-2.0.5/test/octave.test/arith/prod-4.m *** octave-2.0.4/test/octave.test/arith/prod-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/prod-4.m Mon Feb 24 22:16:20 1997 *************** *** 0 **** --- 1 ---- + prod (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/real-1.m octave-2.0.5/test/octave.test/arith/real-1.m *** octave-2.0.4/test/octave.test/arith/real-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/real-1.m Mon Feb 24 20:51:33 1997 *************** *** 0 **** --- 1 ---- + real (1) == 1 && real (i) == 0 && real (1+i) == 1 diff -cNr octave-2.0.4/test/octave.test/arith/real-2.m octave-2.0.5/test/octave.test/arith/real-2.m *** octave-2.0.4/test/octave.test/arith/real-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/real-2.m Mon Feb 24 20:51:53 1997 *************** *** 0 **** --- 1 ---- + all (all (real ([1, i; i, 1]) == eye (2))) diff -cNr octave-2.0.4/test/octave.test/arith/real-3.m octave-2.0.5/test/octave.test/arith/real-3.m *** octave-2.0.4/test/octave.test/arith/real-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/real-3.m Sat Mar 1 15:53:16 1997 *************** *** 0 **** --- 1 ---- + real () diff -cNr octave-2.0.4/test/octave.test/arith/real-4.m octave-2.0.5/test/octave.test/arith/real-4.m *** octave-2.0.4/test/octave.test/arith/real-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/real-4.m Mon Feb 24 20:49:27 1997 *************** *** 0 **** --- 1 ---- + real (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/rem-1.m octave-2.0.5/test/octave.test/arith/rem-1.m *** octave-2.0.4/test/octave.test/arith/rem-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-1.m Mon Feb 24 22:07:36 1997 *************** *** 0 **** --- 1 ---- + all (all (rem ([1, 2, 3; -1, -2, -3], 2) == [1, 0, 1; -1, 0, -1])) diff -cNr octave-2.0.4/test/octave.test/arith/rem-2.m octave-2.0.5/test/octave.test/arith/rem-2.m *** octave-2.0.4/test/octave.test/arith/rem-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-2.m Mon Feb 24 22:08:29 1997 *************** *** 0 **** --- 1,2 ---- + all (all (rem ([1, 2, 3; -1, -2, -3], 2 * ones (2, 3)) + == [1, 0, 1; -1, 0, -1])) diff -cNr octave-2.0.4/test/octave.test/arith/rem-3.m octave-2.0.5/test/octave.test/arith/rem-3.m *** octave-2.0.4/test/octave.test/arith/rem-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-3.m Mon Feb 24 22:05:16 1997 *************** *** 0 **** --- 1 ---- + rem () diff -cNr octave-2.0.4/test/octave.test/arith/rem-4.m octave-2.0.5/test/octave.test/arith/rem-4.m *** octave-2.0.4/test/octave.test/arith/rem-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-4.m Mon Feb 24 22:05:13 1997 *************** *** 0 **** --- 1 ---- + rem (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/arith/rem-5.m octave-2.0.5/test/octave.test/arith/rem-5.m *** octave-2.0.4/test/octave.test/arith/rem-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-5.m Mon Feb 24 22:07:58 1997 *************** *** 0 **** --- 1 ---- + rem ([1, 2], [3, 4, 5]) diff -cNr octave-2.0.4/test/octave.test/arith/rem-6.m octave-2.0.5/test/octave.test/arith/rem-6.m *** octave-2.0.4/test/octave.test/arith/rem-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/rem-6.m Mon Feb 24 22:08:04 1997 *************** *** 0 **** --- 1 ---- + rem (i, 1) diff -cNr octave-2.0.4/test/octave.test/arith/round-1.m octave-2.0.5/test/octave.test/arith/round-1.m *** octave-2.0.4/test/octave.test/arith/round-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/round-1.m Mon Feb 24 21:28:49 1997 *************** *** 0 **** --- 1,2 ---- + (round (1) == 1 && round (1.1) = 1 && round (5.5) == 6 + && round (i) == i && round (2.5+3.5i) == 3+4i && round (-2.6) == -3) diff -cNr octave-2.0.4/test/octave.test/arith/round-2.m octave-2.0.5/test/octave.test/arith/round-2.m *** octave-2.0.4/test/octave.test/arith/round-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/round-2.m Mon Feb 24 21:29:22 1997 *************** *** 0 **** --- 1 ---- + all (all (round ([1.1, -2.4; -3.7, 7.1]) == [1, -2; -4, 7])) diff -cNr octave-2.0.4/test/octave.test/arith/round-3.m octave-2.0.5/test/octave.test/arith/round-3.m *** octave-2.0.4/test/octave.test/arith/round-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/round-3.m Mon Feb 24 21:16:39 1997 *************** *** 0 **** --- 1 ---- + round () diff -cNr octave-2.0.4/test/octave.test/arith/round-4.m octave-2.0.5/test/octave.test/arith/round-4.m *** octave-2.0.4/test/octave.test/arith/round-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/round-4.m Mon Feb 24 21:16:47 1997 *************** *** 0 **** --- 1 ---- + round (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sec-1.m octave-2.0.5/test/octave.test/arith/sec-1.m *** octave-2.0.4/test/octave.test/arith/sec-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sec-1.m Tue Feb 25 23:32:55 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + v = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1]; + all (abs (sec (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/sec-2.m octave-2.0.5/test/octave.test/arith/sec-2.m *** octave-2.0.4/test/octave.test/arith/sec-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sec-2.m Tue Feb 25 22:42:00 1997 *************** *** 0 **** --- 1 ---- + sec () diff -cNr octave-2.0.4/test/octave.test/arith/sec-3.m octave-2.0.5/test/octave.test/arith/sec-3.m *** octave-2.0.4/test/octave.test/arith/sec-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sec-3.m Tue Feb 25 22:42:00 1997 *************** *** 0 **** --- 1 ---- + sec (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sech-1.m octave-2.0.5/test/octave.test/arith/sech-1.m *** octave-2.0.4/test/octave.test/arith/sech-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sech-1.m Tue Feb 25 23:33:02 1997 *************** *** 0 **** --- 1,3 ---- + x = [0, pi*i]; + v = [1, -1]; + all (abs (sech (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/sech-2.m octave-2.0.5/test/octave.test/arith/sech-2.m *** octave-2.0.4/test/octave.test/arith/sech-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sech-2.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + sech () diff -cNr octave-2.0.4/test/octave.test/arith/sech-3.m octave-2.0.5/test/octave.test/arith/sech-3.m *** octave-2.0.4/test/octave.test/arith/sech-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sech-3.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + sech (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sign-1.m octave-2.0.5/test/octave.test/arith/sign-1.m *** octave-2.0.4/test/octave.test/arith/sign-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sign-1.m Mon Feb 24 21:29:56 1997 *************** *** 0 **** --- 1 ---- + sign (-2) == -1 && sign (3) == 1 && sign (0) == 0 diff -cNr octave-2.0.4/test/octave.test/arith/sign-2.m octave-2.0.5/test/octave.test/arith/sign-2.m *** octave-2.0.4/test/octave.test/arith/sign-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sign-2.m Mon Feb 24 21:30:29 1997 *************** *** 0 **** --- 1 ---- + all (all (sign ([1, -pi; e, 0]) == [1, -1; 1, 0])) diff -cNr octave-2.0.4/test/octave.test/arith/sign-3.m octave-2.0.5/test/octave.test/arith/sign-3.m *** octave-2.0.4/test/octave.test/arith/sign-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sign-3.m Mon Feb 24 21:17:05 1997 *************** *** 0 **** --- 1 ---- + sign () diff -cNr octave-2.0.4/test/octave.test/arith/sign-4.m octave-2.0.5/test/octave.test/arith/sign-4.m *** octave-2.0.4/test/octave.test/arith/sign-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sign-4.m Mon Feb 24 21:17:10 1997 *************** *** 0 **** --- 1 ---- + sign (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sin-1.m octave-2.0.5/test/octave.test/arith/sin-1.m *** octave-2.0.4/test/octave.test/arith/sin-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sin-1.m Tue Feb 25 23:32:56 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + v = [0, 1/2, rt2/2, rt3/2, 1, rt3/2, rt2/2, 1/2, 0]; + all (abs (sin (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/sin-2.m octave-2.0.5/test/octave.test/arith/sin-2.m *** octave-2.0.4/test/octave.test/arith/sin-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sin-2.m Tue Feb 25 22:41:57 1997 *************** *** 0 **** --- 1 ---- + sin () diff -cNr octave-2.0.4/test/octave.test/arith/sin-3.m octave-2.0.5/test/octave.test/arith/sin-3.m *** octave-2.0.4/test/octave.test/arith/sin-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sin-3.m Tue Feb 25 22:41:57 1997 *************** *** 0 **** --- 1 ---- + sin (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sinh-1.m octave-2.0.5/test/octave.test/arith/sinh-1.m *** octave-2.0.4/test/octave.test/arith/sinh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sinh-1.m Tue Feb 25 23:47:43 1997 *************** *** 0 **** --- 1,3 ---- + x = [0, pi/2*i, pi*i, 3*pi/2*i]; + v = [0, i, 0, -i]; + all (abs (sinh (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/sinh-2.m octave-2.0.5/test/octave.test/arith/sinh-2.m *** octave-2.0.4/test/octave.test/arith/sinh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sinh-2.m Tue Feb 25 23:19:18 1997 *************** *** 0 **** --- 1 ---- + sinh () diff -cNr octave-2.0.4/test/octave.test/arith/sinh-3.m octave-2.0.5/test/octave.test/arith/sinh-3.m *** octave-2.0.4/test/octave.test/arith/sinh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sinh-3.m Tue Feb 25 23:19:26 1997 *************** *** 0 **** --- 1 ---- + sinh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sqrt-1.m octave-2.0.5/test/octave.test/arith/sqrt-1.m *** octave-2.0.4/test/octave.test/arith/sqrt-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sqrt-1.m Thu Feb 27 12:51:04 1997 *************** *** 0 **** --- 1,2 ---- + (sqrt (4) == 2 && sqrt (-1) == i + && abs (sqrt (1+i) - exp (0.5 * log (1+i))) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/sqrt-2.m octave-2.0.5/test/octave.test/arith/sqrt-2.m *** octave-2.0.4/test/octave.test/arith/sqrt-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sqrt-2.m Fri Feb 28 23:46:30 1997 *************** *** 0 **** --- 1,3 ---- + all (all (abs (sqrt ([4, -4; i, 1-i]) + - [2, 2i; exp (0.5 * log (i)), exp (0.5 * log (1-i))]) + < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/arith/sqrt-3.m octave-2.0.5/test/octave.test/arith/sqrt-3.m *** octave-2.0.4/test/octave.test/arith/sqrt-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sqrt-3.m Mon Feb 24 21:17:30 1997 *************** *** 0 **** --- 1 ---- + sqrt () diff -cNr octave-2.0.4/test/octave.test/arith/sqrt-4.m octave-2.0.5/test/octave.test/arith/sqrt-4.m *** octave-2.0.4/test/octave.test/arith/sqrt-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sqrt-4.m Mon Feb 24 21:17:39 1997 *************** *** 0 **** --- 1 ---- + sqrt (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sum-1.m octave-2.0.5/test/octave.test/arith/sum-1.m *** octave-2.0.4/test/octave.test/arith/sum-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sum-1.m Mon Feb 24 22:13:46 1997 *************** *** 0 **** --- 1,2 ---- + (sum ([1, 2, 3]) == 6 && sum ([-1; -2; -3]) == -6 + && sum ([i, 2+i, -3+2i, 4]) == 3+4i) diff -cNr octave-2.0.4/test/octave.test/arith/sum-2.m octave-2.0.5/test/octave.test/arith/sum-2.m *** octave-2.0.4/test/octave.test/arith/sum-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sum-2.m Mon Feb 24 22:22:25 1997 *************** *** 0 **** --- 1 ---- + all (all (sum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) == [2+2i, 4+4i, 6+6i])) diff -cNr octave-2.0.4/test/octave.test/arith/sum-3.m octave-2.0.5/test/octave.test/arith/sum-3.m *** octave-2.0.4/test/octave.test/arith/sum-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sum-3.m Mon Feb 24 22:16:04 1997 *************** *** 0 **** --- 1 ---- + sum () diff -cNr octave-2.0.4/test/octave.test/arith/sum-4.m octave-2.0.5/test/octave.test/arith/sum-4.m *** octave-2.0.4/test/octave.test/arith/sum-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sum-4.m Mon Feb 24 22:16:09 1997 *************** *** 0 **** --- 1 ---- + sum (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/sumsq-1.m octave-2.0.5/test/octave.test/arith/sumsq-1.m *** octave-2.0.4/test/octave.test/arith/sumsq-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sumsq-1.m Mon Feb 24 22:26:26 1997 *************** *** 0 **** --- 1 ---- + sumsq ([1, 2, 3]) == 14 && sumsq ([-1; -2; 4i]) == -11 diff -cNr octave-2.0.4/test/octave.test/arith/sumsq-2.m octave-2.0.5/test/octave.test/arith/sumsq-2.m *** octave-2.0.4/test/octave.test/arith/sumsq-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sumsq-2.m Mon Feb 24 22:27:59 1997 *************** *** 0 **** --- 1 ---- + all (all (sumsq ([1, 2, 3; 2, 3, 4; 4i, 6i, 2]) == [-11, -23, 29])) diff -cNr octave-2.0.4/test/octave.test/arith/sumsq-3.m octave-2.0.5/test/octave.test/arith/sumsq-3.m *** octave-2.0.4/test/octave.test/arith/sumsq-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sumsq-3.m Mon Feb 24 22:17:04 1997 *************** *** 0 **** --- 1 ---- + sumsq () diff -cNr octave-2.0.4/test/octave.test/arith/sumsq-4.m octave-2.0.5/test/octave.test/arith/sumsq-4.m *** octave-2.0.4/test/octave.test/arith/sumsq-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/sumsq-4.m Mon Feb 24 22:17:21 1997 *************** *** 0 **** --- 1 ---- + sumsq (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/tan-1.m octave-2.0.5/test/octave.test/arith/tan-1.m *** octave-2.0.4/test/octave.test/arith/tan-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tan-1.m Tue Feb 25 23:32:55 1997 *************** *** 0 **** --- 1,5 ---- + rt2 = sqrt (2); + rt3 = sqrt (3); + x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi]; + v = [0, rt3/3, 1, rt3, -rt3, -1, -rt3/3, 0]; + all (abs (tan (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/tan-2.m octave-2.0.5/test/octave.test/arith/tan-2.m *** octave-2.0.4/test/octave.test/arith/tan-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tan-2.m Tue Feb 25 22:41:59 1997 *************** *** 0 **** --- 1 ---- + tan () diff -cNr octave-2.0.4/test/octave.test/arith/tan-3.m octave-2.0.5/test/octave.test/arith/tan-3.m *** octave-2.0.4/test/octave.test/arith/tan-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tan-3.m Tue Feb 25 22:41:59 1997 *************** *** 0 **** --- 1 ---- + tan (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/tanh-1.m octave-2.0.5/test/octave.test/arith/tanh-1.m *** octave-2.0.4/test/octave.test/arith/tanh-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tanh-1.m Tue Feb 25 23:33:00 1997 *************** *** 0 **** --- 1,3 ---- + x = [0, pi*i]; + v = [0, 0]; + all (abs (tanh (x) - v) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/arith/tanh-2.m octave-2.0.5/test/octave.test/arith/tanh-2.m *** octave-2.0.4/test/octave.test/arith/tanh-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tanh-2.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + tanh () diff -cNr octave-2.0.4/test/octave.test/arith/tanh-3.m octave-2.0.5/test/octave.test/arith/tanh-3.m *** octave-2.0.4/test/octave.test/arith/tanh-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/tanh-3.m Tue Feb 25 22:42:08 1997 *************** *** 0 **** --- 1 ---- + tanh (1, 2) diff -cNr octave-2.0.4/test/octave.test/arith/xor-1.m octave-2.0.5/test/octave.test/arith/xor-1.m *** octave-2.0.4/test/octave.test/arith/xor-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/xor-1.m Mon Feb 24 21:40:21 1997 *************** *** 0 **** --- 1,2 ---- + (xor ([1, 1, 0, 0], [0, 1, 0, 1]) == [1, 0, 0, 1] + && xor ([i, i, 0, 0], [1, 0, 1, 0]) == [0, 1, 1, 0]) diff -cNr octave-2.0.4/test/octave.test/arith/xor-2.m octave-2.0.5/test/octave.test/arith/xor-2.m *** octave-2.0.4/test/octave.test/arith/xor-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/xor-2.m Mon Feb 24 21:21:27 1997 *************** *** 0 **** --- 1 ---- + all (all (xor (eye (2), fliplr (eye (2))) == ones (2))) diff -cNr octave-2.0.4/test/octave.test/arith/xor-3.m octave-2.0.5/test/octave.test/arith/xor-3.m *** octave-2.0.4/test/octave.test/arith/xor-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/xor-3.m Mon Feb 24 21:18:17 1997 *************** *** 0 **** --- 1 ---- + xor () diff -cNr octave-2.0.4/test/octave.test/arith/xor-4.m octave-2.0.5/test/octave.test/arith/xor-4.m *** octave-2.0.4/test/octave.test/arith/xor-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/arith/xor-4.m Mon Feb 24 21:18:23 1997 *************** *** 0 **** --- 1 ---- + xor (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/audio/audio.exp octave-2.0.5/test/octave.test/audio/audio.exp *** octave-2.0.4/test/octave.test/audio/audio.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/audio/audio.exp Wed Feb 26 01:02:37 1997 *************** *** 0 **** --- 1,7 ---- + ## The following functions need to have tests written for them: + + # lin2mu + # mu2lin + # loadaudio + # saveaudio + # setaudio diff -cNr octave-2.0.4/test/octave.test/control/control.exp octave-2.0.5/test/octave.test/control/control.exp *** octave-2.0.4/test/octave.test/control/control.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/control/control.exp Wed Feb 26 01:02:40 1997 *************** *** 0 **** --- 1,16 ---- + ## The following functions need to have tests written for them: + + # abcddim + # are + # c2d + # dare + # dgram + # dlqe + # dlqr + # dlyap + # is_controllable + # is_observable + # lqe + # lqr + # lyap + # tzero diff -cNr octave-2.0.4/test/octave.test/diffeq/dassl_options-1.m octave-2.0.5/test/octave.test/diffeq/dassl_options-1.m *** octave-2.0.4/test/octave.test/diffeq/dassl_options-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/dassl_options-1.m Wed Feb 26 01:10:45 1997 *************** *** 0 **** --- 1,2 ---- + dassl_options ("absolute tolerance", eps); + dassl_options ("absolute tolerance") == eps diff -cNr octave-2.0.4/test/octave.test/diffeq/dassl_options-2.m octave-2.0.5/test/octave.test/diffeq/dassl_options-2.m *** octave-2.0.4/test/octave.test/diffeq/dassl_options-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/dassl_options-2.m Wed Feb 26 01:10:33 1997 *************** *** 0 **** --- 1 ---- + dassl_options () diff -cNr octave-2.0.4/test/octave.test/diffeq/dassl_options-3.m octave-2.0.5/test/octave.test/diffeq/dassl_options-3.m *** octave-2.0.4/test/octave.test/diffeq/dassl_options-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/dassl_options-3.m Wed Feb 26 01:10:31 1997 *************** *** 0 **** --- 1 ---- + dassl_options ("foo", 1, 2) diff -cNr octave-2.0.4/test/octave.test/diffeq/diffeq.exp octave-2.0.5/test/octave.test/diffeq/diffeq.exp *** octave-2.0.4/test/octave.test/diffeq/diffeq.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/diffeq.exp Wed Feb 26 01:08:18 1997 *************** *** 0 **** --- 1,29 ---- + ## The following functions need to have tests written for them: + + # lsode + + set test lsode_options-1 + set prog_output "ans = 1" + do_test lsode_options-1.m + + set test lsode_options-2 + set prog_output "\n... lsode_options:.*" + do_test lsode_options-2.m + + set test lsode_options-3 + set prog_output "\n... lsode_options:.*" + do_test lsode_options-3.m + + # dassl + + set test dassl_options-1 + set prog_output "ans = 1" + do_test dassl_options-1.m + + set test dassl_options-2 + set prog_output "\n... dassl_options:.*" + do_test dassl_options-2.m + + set test dassl_options-3 + set prog_output "\n... dassl_options:.*" + do_test dassl_options-3.m diff -cNr octave-2.0.4/test/octave.test/diffeq/lsode_options-1.m octave-2.0.5/test/octave.test/diffeq/lsode_options-1.m *** octave-2.0.4/test/octave.test/diffeq/lsode_options-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/lsode_options-1.m Wed Feb 26 01:10:25 1997 *************** *** 0 **** --- 1,2 ---- + lsode_options ("absolute tolerance", eps); + lsode_options ("absolute tolerance") == eps diff -cNr octave-2.0.4/test/octave.test/diffeq/lsode_options-2.m octave-2.0.5/test/octave.test/diffeq/lsode_options-2.m *** octave-2.0.4/test/octave.test/diffeq/lsode_options-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/lsode_options-2.m Wed Feb 26 01:10:00 1997 *************** *** 0 **** --- 1 ---- + lsode_options () diff -cNr octave-2.0.4/test/octave.test/diffeq/lsode_options-3.m octave-2.0.5/test/octave.test/diffeq/lsode_options-3.m *** octave-2.0.4/test/octave.test/diffeq/lsode_options-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/diffeq/lsode_options-3.m Wed Feb 26 01:10:03 1997 *************** *** 0 **** --- 1 ---- + lsode_options ("foo", 1, 2) diff -cNr octave-2.0.4/test/octave.test/error/error-1.m octave-2.0.5/test/octave.test/error/error-1.m *** octave-2.0.4/test/octave.test/error/error-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/error-1.m Mon Feb 24 17:44:35 1997 *************** *** 0 **** --- 1,3 ---- + function g () error ("foo"); endfunction + function f () g (); endfunction + f (); diff -cNr octave-2.0.4/test/octave.test/error/error-2.m octave-2.0.5/test/octave.test/error/error-2.m *** octave-2.0.4/test/octave.test/error/error-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/error-2.m Mon Feb 24 17:42:17 1997 *************** *** 0 **** --- 1,3 ---- + function g () error ("foo\n"); endfunction + function f () g endfunction + f diff -cNr octave-2.0.4/test/octave.test/error/error-3.m octave-2.0.5/test/octave.test/error/error-3.m *** octave-2.0.4/test/octave.test/error/error-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/error-3.m Mon Feb 24 17:42:08 1997 *************** *** 0 **** --- 1 ---- + error () diff -cNr octave-2.0.4/test/octave.test/error/error-4.m octave-2.0.5/test/octave.test/error/error-4.m *** octave-2.0.4/test/octave.test/error/error-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/error-4.m Mon Feb 24 17:41:48 1997 *************** *** 0 **** --- 1 ---- + error ("foo\n") diff -cNr octave-2.0.4/test/octave.test/error/error.exp octave-2.0.5/test/octave.test/error/error.exp *** octave-2.0.4/test/octave.test/error/error.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/error.exp Mon Feb 24 17:58:41 1997 *************** *** 0 **** --- 1,44 ---- + set test error-1 + set prog_output "error: foo\nerror: evaluating index expression near line 1, column 15\nerror: called from `g'\nerror: called from `f'" + do_test error-1.m + + set test error-2 + set prog_output "error: foo" + do_test error-2.m + + set test error-3 + set prog_output "error: unspecified error" + do_test error-3.m + + set test error-4 + set prog_output "error: foo" + do_test error-4.m + + set test warning-1 + set prog_output "warning: foo" + do_test warning-1.m + + set test warning-2 + set prog_output "warning: unspecified warning" + do_test warning-2.m + + set test warning-3 + set prog_output "warning: foo" + do_test warning-3.m + + set test usage-1 + set prog_output "usage: foo\nerror: called from `g'\nerror: called from `f'" + do_test usage-1.m + + set test usage-2 + set prog_output "usage: foo" + do_test usage-2.m + + set test usage-3 + set prog_output "usage: unknown" + do_test usage-3.m + + set test usage-4 + set prog_output "usage: foo" + do_test usage-4.m + diff -cNr octave-2.0.4/test/octave.test/error/usage-1.m octave-2.0.5/test/octave.test/error/usage-1.m *** octave-2.0.4/test/octave.test/error/usage-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/usage-1.m Mon Feb 24 17:45:10 1997 *************** *** 0 **** --- 1,3 ---- + function g () usage ("foo"); endfunction + function f () g (); endfunction + f (); diff -cNr octave-2.0.4/test/octave.test/error/usage-2.m octave-2.0.5/test/octave.test/error/usage-2.m *** octave-2.0.4/test/octave.test/error/usage-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/usage-2.m Mon Feb 24 17:45:23 1997 *************** *** 0 **** --- 1,3 ---- + function g () usage ("foo\n"); endfunction + function f () g endfunction + f diff -cNr octave-2.0.4/test/octave.test/error/usage-3.m octave-2.0.5/test/octave.test/error/usage-3.m *** octave-2.0.4/test/octave.test/error/usage-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/usage-3.m Mon Feb 24 17:45:35 1997 *************** *** 0 **** --- 1 ---- + usage () diff -cNr octave-2.0.4/test/octave.test/error/usage-4.m octave-2.0.5/test/octave.test/error/usage-4.m *** octave-2.0.4/test/octave.test/error/usage-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/usage-4.m Mon Feb 24 17:45:46 1997 *************** *** 0 **** --- 1 ---- + usage ("foo\n") diff -cNr octave-2.0.4/test/octave.test/error/warning-1.m octave-2.0.5/test/octave.test/error/warning-1.m *** octave-2.0.4/test/octave.test/error/warning-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/warning-1.m Mon Feb 24 17:44:41 1997 *************** *** 0 **** --- 1,3 ---- + function g () warning ("foo") endfunction + function f () g (); endfunction + f (); diff -cNr octave-2.0.4/test/octave.test/error/warning-2.m octave-2.0.5/test/octave.test/error/warning-2.m *** octave-2.0.4/test/octave.test/error/warning-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/warning-2.m Mon Feb 24 17:44:47 1997 *************** *** 0 **** --- 1 ---- + warning () diff -cNr octave-2.0.4/test/octave.test/error/warning-3.m octave-2.0.5/test/octave.test/error/warning-3.m *** octave-2.0.4/test/octave.test/error/warning-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/error/warning-3.m Mon Feb 24 17:44:54 1997 *************** *** 0 **** --- 1 ---- + warning ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/image/image.exp octave-2.0.5/test/octave.test/image/image.exp *** octave-2.0.4/test/octave.test/image/image.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/image/image.exp Wed Feb 26 01:02:35 1997 *************** *** 0 **** --- 1,14 ---- + ## The following functions need to have tests written for them: + + # colormap + # gray + # image + # imagesc + # imshow + # ind2gray + # ind2rgb + # rgb2ntsc + # ntsc2rgb + # ocean + # rgb2ind + # saveimage diff -cNr octave-2.0.4/test/octave.test/index/dfi-f/index.exp octave-2.0.5/test/octave.test/index/dfi-f/index.exp *** octave-2.0.4/test/octave.test/index/dfi-f/index.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/index/dfi-f/index.exp Mon Feb 24 22:40:50 1997 *************** *** 1,6 **** ! # Tests with do_fortran_indexing == "false" ! # scalar tests set test index-s-1 set prog_output "ans = 1" --- 1,6 ---- ! ## Tests with do_fortran_indexing == "false" ! ## scalar tests set test index-s-1 set prog_output "ans = 1" *************** *** 82,88 **** set prog_output "error:.*" do_test s-20.m ! # vector tests set test index-v-1 set prog_output "ans = 4" --- 82,88 ---- set prog_output "error:.*" do_test s-20.m ! ## vector tests set test index-v-1 set prog_output "ans = 4" *************** *** 144,150 **** set prog_output "ans = 1" do_test v-15.m ! # matrix tests set test index-m-1 set prog_output "ans = 1" --- 144,150 ---- set prog_output "ans = 1" do_test v-15.m ! ## matrix tests set test index-m-1 set prog_output "ans = 1" diff -cNr octave-2.0.4/test/octave.test/index/dfi-t/index.exp octave-2.0.5/test/octave.test/index/dfi-t/index.exp *** octave-2.0.4/test/octave.test/index/dfi-t/index.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/index/dfi-t/index.exp Mon Feb 24 22:40:49 1997 *************** *** 1,6 **** ! # Tests with do_fortran_indexing == "true" ! # scalar tests set test index-s-1 set prog_output "ans = 1" --- 1,6 ---- ! ## Tests with do_fortran_indexing == "true" ! ## scalar tests set test index-s-1 set prog_output "ans = 1" *************** *** 82,88 **** set prog_output "error:.*" do_test s-20.m ! # vector tests set test index-v-1 set prog_output "ans = 4" --- 82,88 ---- set prog_output "error:.*" do_test s-20.m ! ## vector tests set test index-v-1 set prog_output "ans = 4" *************** *** 144,150 **** set prog_output "ans = 1" do_test v-15.m ! # matrix tests set test index-m-1 set prog_output "ans = 1" --- 144,150 ---- set prog_output "ans = 1" do_test v-15.m ! ## matrix tests set test index-m-1 set prog_output "ans = 1" diff -cNr octave-2.0.4/test/octave.test/io/binary-io-1.m octave-2.0.5/test/octave.test/io/binary-io-1.m *** octave-2.0.4/test/octave.test/io/binary-io-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/binary-io-1.m Thu Feb 27 03:31:15 1997 *************** *** 0 **** --- 1,40 ---- + type_list = ["char"; "char*1"; "integer*1"; "int8"; + "schar"; "signed char"; "uchar"; "unsigned char"; + "short"; "ushort"; "unsigned short"; "int"; + "uint"; "unsigned int"; "long"; "ulong"; "unsigned long"; + "float"; "float32"; "real*4"; "double"; "float64"; + "real*8"; "int16"; "integer*2"; "int32"; "integer*4"]; + + n = rows (type_list); + + nm = tmpnam (); + + id = fopen (nm, "w"); + + if (id > 0) + + for i = 1:n + fwrite (id, i, deblank (type_list(i,:))); + endfor + + fclose (id); + + id = fopen (nm, "r"); + + if (id > 0) + + x = zeros (1, n); + + for i = 1:n + x(i) = fread (id, [1, 1], deblank (type_list(i,:))); + endfor + + if (x == 1:n) + printf ("ok\n"); + endif + + endif + + endif + + unlink (nm); diff -cNr octave-2.0.4/test/octave.test/io/fclose-1.m octave-2.0.5/test/octave.test/io/fclose-1.m *** octave-2.0.4/test/octave.test/io/fclose-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fclose-1.m Wed Feb 26 15:23:17 1997 *************** *** 0 **** --- 1 ---- + fclose (0) diff -cNr octave-2.0.4/test/octave.test/io/fclose-2.m octave-2.0.5/test/octave.test/io/fclose-2.m *** octave-2.0.4/test/octave.test/io/fclose-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fclose-2.m Wed Feb 26 15:23:07 1997 *************** *** 0 **** --- 1 ---- + fclose (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/feof-1.m octave-2.0.5/test/octave.test/io/feof-1.m *** octave-2.0.4/test/octave.test/io/feof-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/feof-1.m Wed Feb 26 17:13:37 1997 *************** *** 0 **** --- 1 ---- + feof () diff -cNr octave-2.0.4/test/octave.test/io/feof-2.m octave-2.0.5/test/octave.test/io/feof-2.m *** octave-2.0.4/test/octave.test/io/feof-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/feof-2.m Wed Feb 26 17:13:44 1997 *************** *** 0 **** --- 1 ---- + feof (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/feof-3.m octave-2.0.5/test/octave.test/io/feof-3.m *** octave-2.0.4/test/octave.test/io/feof-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/feof-3.m Wed Feb 26 17:13:51 1997 *************** *** 0 **** --- 1 ---- + feof ("foo") diff -cNr octave-2.0.4/test/octave.test/io/ferror-1.m octave-2.0.5/test/octave.test/io/ferror-1.m *** octave-2.0.4/test/octave.test/io/ferror-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ferror-1.m Wed Feb 26 17:16:04 1997 *************** *** 0 **** --- 1 ---- + ferror () diff -cNr octave-2.0.4/test/octave.test/io/ferror-2.m octave-2.0.5/test/octave.test/io/ferror-2.m *** octave-2.0.4/test/octave.test/io/ferror-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ferror-2.m Wed Feb 26 17:16:27 1997 *************** *** 0 **** --- 1 ---- + ferror (1, "clear", 2) diff -cNr octave-2.0.4/test/octave.test/io/ferror-3.m octave-2.0.5/test/octave.test/io/ferror-3.m *** octave-2.0.4/test/octave.test/io/ferror-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ferror-3.m Wed Feb 26 17:16:19 1997 *************** *** 0 **** --- 1 ---- + ferror ("foo") diff -cNr octave-2.0.4/test/octave.test/io/fgetl-1.m octave-2.0.5/test/octave.test/io/fgetl-1.m *** octave-2.0.4/test/octave.test/io/fgetl-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgetl-1.m Wed Feb 26 17:06:46 1997 *************** *** 0 **** --- 1 ---- + fgetl () diff -cNr octave-2.0.4/test/octave.test/io/fgetl-2.m octave-2.0.5/test/octave.test/io/fgetl-2.m *** octave-2.0.4/test/octave.test/io/fgetl-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgetl-2.m Wed Feb 26 17:06:54 1997 *************** *** 0 **** --- 1 ---- + fgetl (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/io/fgetl-3.m octave-2.0.5/test/octave.test/io/fgetl-3.m *** octave-2.0.4/test/octave.test/io/fgetl-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgetl-3.m Wed Feb 26 17:07:24 1997 *************** *** 0 **** --- 1 ---- + fgetl ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/io/fgets-1.m octave-2.0.5/test/octave.test/io/fgets-1.m *** octave-2.0.4/test/octave.test/io/fgets-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgets-1.m Wed Feb 26 17:07:52 1997 *************** *** 0 **** --- 1 ---- + fgets () diff -cNr octave-2.0.4/test/octave.test/io/fgets-2.m octave-2.0.5/test/octave.test/io/fgets-2.m *** octave-2.0.4/test/octave.test/io/fgets-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgets-2.m Wed Feb 26 17:07:58 1997 *************** *** 0 **** --- 1 ---- + fgets (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/io/fgets-3.m octave-2.0.5/test/octave.test/io/fgets-3.m *** octave-2.0.4/test/octave.test/io/fgets-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fgets-3.m Sat Mar 1 15:53:17 1997 *************** *** 0 **** --- 1 ---- + fgets ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/io/file-io-1.m octave-2.0.5/test/octave.test/io/file-io-1.m *** octave-2.0.4/test/octave.test/io/file-io-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/file-io-1.m Wed Feb 26 18:48:51 1997 *************** *** 0 **** --- 1,6 ---- + ## fputs + ## fgetl + ## fgets + ## fprintf + ## fscanf + diff -cNr octave-2.0.4/test/octave.test/io/file-pos-1.m octave-2.0.5/test/octave.test/io/file-pos-1.m *** octave-2.0.4/test/octave.test/io/file-pos-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/file-pos-1.m Thu Feb 27 03:22:41 1997 *************** *** 0 **** --- 1,35 ---- + nm = tmpnam (); + id = fopen (nm, "w"); + if (id > 0) + fprintf (id, "%d\n", 1:100); + fclose (id); + id = fopen (nm, "r"); + if (id > 0) + for i = 1:101 + fgets (id); + endfor + if (feof (id)) + fclose (id); + id = fopen (nm, "r"); + pos_one = ftell (id); + s_one = fgets (id); + for i = 1:48 + s = fgets (id); + endfor + pos_fifty = ftell (id); + s_fifty = fgets (id); + fseek (id, pos_one, SEEK_SET); + s_one_x = fgets (id); + fseek (id, pos_fifty, SEEK_SET); + s_fifty_x = fgets (id); + if (s_one == s_one_x && s_fifty == s_fifty_x) + frewind (id); + s_one_x = fgets (id); + if (s_one == s_one_x) + printf ("ok\n"); + endif + endif + endif + endif + endif + unlink (nm); diff -cNr octave-2.0.4/test/octave.test/io/fopen-1.m octave-2.0.5/test/octave.test/io/fopen-1.m *** octave-2.0.4/test/octave.test/io/fopen-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-1.m Wed Feb 26 15:43:38 1997 *************** *** 0 **** --- 1,30 ---- + arch_list = ["native"; "ieee-le"; "ieee-be"; "vaxd"; "vaxg"; "cray"]; + + status = 1; + + for i = 1:6 + arch = deblank (arch_list (i,:)) + for j = 1:2 + if (j == 1) + mode_list = ["w"; "r"; "a"]; + else + mode_list = ["w+"; "r+"; "a+"]; + endif + nm = tmpnam (); + for k = 1:3 + mode = deblank (mode_list (k,:)); + if ((id = fopen (nm, mode, arch)) < 0) + status = 0; break; + endif + fclose (id); + endfor + if (status == 0) + break; + endif + endfor + if (status == 0) + break; + endif + endfor + + status == 1 diff -cNr octave-2.0.4/test/octave.test/io/fopen-2.m octave-2.0.5/test/octave.test/io/fopen-2.m *** octave-2.0.4/test/octave.test/io/fopen-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-2.m Sat Mar 1 15:53:17 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + fopen (s) diff -cNr octave-2.0.4/test/octave.test/io/fopen-3.m octave-2.0.5/test/octave.test/io/fopen-3.m *** octave-2.0.4/test/octave.test/io/fopen-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-3.m Wed Feb 26 15:26:01 1997 *************** *** 0 **** --- 1 ---- + fopen ("foo", "x") diff -cNr octave-2.0.4/test/octave.test/io/fopen-4.m octave-2.0.5/test/octave.test/io/fopen-4.m *** octave-2.0.4/test/octave.test/io/fopen-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-4.m Wed Feb 26 15:25:52 1997 *************** *** 0 **** --- 1 ---- + fopen ("foo", "w", "noodle") diff -cNr octave-2.0.4/test/octave.test/io/fopen-5.m octave-2.0.5/test/octave.test/io/fopen-5.m *** octave-2.0.4/test/octave.test/io/fopen-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-5.m Wed Feb 26 15:25:41 1997 *************** *** 0 **** --- 1 ---- + fopen () diff -cNr octave-2.0.4/test/octave.test/io/fopen-6.m octave-2.0.5/test/octave.test/io/fopen-6.m *** octave-2.0.4/test/octave.test/io/fopen-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fopen-6.m Wed Feb 26 15:25:34 1997 *************** *** 0 **** --- 1 ---- + fopen ("foo", "w", "native", 1) diff -cNr octave-2.0.4/test/octave.test/io/fprintf-1.m octave-2.0.5/test/octave.test/io/fprintf-1.m *** octave-2.0.4/test/octave.test/io/fprintf-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fprintf-1.m Wed Feb 26 17:08:53 1997 *************** *** 0 **** --- 1 ---- + fprintf () diff -cNr octave-2.0.4/test/octave.test/io/fprintf-2.m octave-2.0.5/test/octave.test/io/fprintf-2.m *** octave-2.0.4/test/octave.test/io/fprintf-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fprintf-2.m Wed Feb 26 17:09:07 1997 *************** *** 0 **** --- 1 ---- + fprintf ("foo") diff -cNr octave-2.0.4/test/octave.test/io/fprintf-3.m octave-2.0.5/test/octave.test/io/fprintf-3.m *** octave-2.0.4/test/octave.test/io/fprintf-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fprintf-3.m Wed Feb 26 17:09:20 1997 *************** *** 0 **** --- 1 ---- + fprintf ("foo", "bar") diff -cNr octave-2.0.4/test/octave.test/io/fputs-1.m octave-2.0.5/test/octave.test/io/fputs-1.m *** octave-2.0.4/test/octave.test/io/fputs-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fputs-1.m Wed Feb 26 17:05:38 1997 *************** *** 0 **** --- 1 ---- + fputs () diff -cNr octave-2.0.4/test/octave.test/io/fputs-2.m octave-2.0.5/test/octave.test/io/fputs-2.m *** octave-2.0.4/test/octave.test/io/fputs-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fputs-2.m Wed Feb 26 17:05:50 1997 *************** *** 0 **** --- 1 ---- + fputs (1, "foo", 1) diff -cNr octave-2.0.4/test/octave.test/io/fputs-3.m octave-2.0.5/test/octave.test/io/fputs-3.m *** octave-2.0.4/test/octave.test/io/fputs-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fputs-3.m Wed Feb 26 17:05:57 1997 *************** *** 0 **** --- 1 ---- + fputs (1, 1) diff -cNr octave-2.0.4/test/octave.test/io/fread-1.m octave-2.0.5/test/octave.test/io/fread-1.m *** octave-2.0.4/test/octave.test/io/fread-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fread-1.m Wed Feb 26 17:11:44 1997 *************** *** 0 **** --- 1 ---- + fread () diff -cNr octave-2.0.4/test/octave.test/io/fread-2.m octave-2.0.5/test/octave.test/io/fread-2.m *** octave-2.0.4/test/octave.test/io/fread-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fread-2.m Wed Feb 26 17:12:04 1997 *************** *** 0 **** --- 1 ---- + fread (1, 2, "char", 1, "native", 2) diff -cNr octave-2.0.4/test/octave.test/io/fread-3.m octave-2.0.5/test/octave.test/io/fread-3.m *** octave-2.0.4/test/octave.test/io/fread-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fread-3.m Wed Feb 26 17:12:11 1997 *************** *** 0 **** --- 1 ---- + fread ("foo") diff -cNr octave-2.0.4/test/octave.test/io/frewind-1.m octave-2.0.5/test/octave.test/io/frewind-1.m *** octave-2.0.4/test/octave.test/io/frewind-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/frewind-1.m Wed Feb 26 17:19:27 1997 *************** *** 0 **** --- 1 ---- + frewind () diff -cNr octave-2.0.4/test/octave.test/io/frewind-2.m octave-2.0.5/test/octave.test/io/frewind-2.m *** octave-2.0.4/test/octave.test/io/frewind-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/frewind-2.m Wed Feb 26 17:19:45 1997 *************** *** 0 **** --- 1 ---- + frewind (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/frewind-3.m octave-2.0.5/test/octave.test/io/frewind-3.m *** octave-2.0.4/test/octave.test/io/frewind-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/frewind-3.m Wed Feb 26 17:19:39 1997 *************** *** 0 **** --- 1 ---- + frewind ("foo") diff -cNr octave-2.0.4/test/octave.test/io/fscanf-1.m octave-2.0.5/test/octave.test/io/fscanf-1.m *** octave-2.0.4/test/octave.test/io/fscanf-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fscanf-1.m Wed Feb 26 17:10:20 1997 *************** *** 0 **** --- 1 ---- + fscanf () diff -cNr octave-2.0.4/test/octave.test/io/fscanf-2.m octave-2.0.5/test/octave.test/io/fscanf-2.m *** octave-2.0.4/test/octave.test/io/fscanf-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fscanf-2.m Wed Feb 26 17:10:29 1997 *************** *** 0 **** --- 1 ---- + fscanf (1) diff -cNr octave-2.0.4/test/octave.test/io/fscanf-3.m octave-2.0.5/test/octave.test/io/fscanf-3.m *** octave-2.0.4/test/octave.test/io/fscanf-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fscanf-3.m Wed Feb 26 17:10:41 1997 *************** *** 0 **** --- 1 ---- + fscanf ("foo", "bar") diff -cNr octave-2.0.4/test/octave.test/io/fseek-1.m octave-2.0.5/test/octave.test/io/fseek-1.m *** octave-2.0.4/test/octave.test/io/fseek-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fseek-1.m Wed Feb 26 17:18:26 1997 *************** *** 0 **** --- 1 ---- + fseek () diff -cNr octave-2.0.4/test/octave.test/io/fseek-2.m octave-2.0.5/test/octave.test/io/fseek-2.m *** octave-2.0.4/test/octave.test/io/fseek-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fseek-2.m Wed Feb 26 17:18:56 1997 *************** *** 0 **** --- 1 ---- + fseek (1, 0, SEEK_SET, 1) diff -cNr octave-2.0.4/test/octave.test/io/fseek-3.m octave-2.0.5/test/octave.test/io/fseek-3.m *** octave-2.0.4/test/octave.test/io/fseek-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fseek-3.m Wed Feb 26 17:19:09 1997 *************** *** 0 **** --- 1 ---- + fseek ("foo", 0, SEEK_SET) diff -cNr octave-2.0.4/test/octave.test/io/ftell-1.m octave-2.0.5/test/octave.test/io/ftell-1.m *** octave-2.0.4/test/octave.test/io/ftell-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ftell-1.m Wed Feb 26 17:17:19 1997 *************** *** 0 **** --- 1 ---- + ftell () diff -cNr octave-2.0.4/test/octave.test/io/ftell-2.m octave-2.0.5/test/octave.test/io/ftell-2.m *** octave-2.0.4/test/octave.test/io/ftell-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ftell-2.m Wed Feb 26 17:17:38 1997 *************** *** 0 **** --- 1 ---- + ftell (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/ftell-3.m octave-2.0.5/test/octave.test/io/ftell-3.m *** octave-2.0.4/test/octave.test/io/ftell-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/ftell-3.m Wed Feb 26 17:17:45 1997 *************** *** 0 **** --- 1 ---- + ftell ("foo") diff -cNr octave-2.0.4/test/octave.test/io/fwrite-1.m octave-2.0.5/test/octave.test/io/fwrite-1.m *** octave-2.0.4/test/octave.test/io/fwrite-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fwrite-1.m Wed Feb 26 17:12:17 1997 *************** *** 0 **** --- 1 ---- + fwrite () diff -cNr octave-2.0.4/test/octave.test/io/fwrite-2.m octave-2.0.5/test/octave.test/io/fwrite-2.m *** octave-2.0.4/test/octave.test/io/fwrite-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fwrite-2.m Wed Feb 26 17:12:42 1997 *************** *** 0 **** --- 1 ---- + fwrite (1, rand (10), "char", 1, "native", 2) diff -cNr octave-2.0.4/test/octave.test/io/fwrite-3.m octave-2.0.5/test/octave.test/io/fwrite-3.m *** octave-2.0.4/test/octave.test/io/fwrite-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/fwrite-3.m Wed Feb 26 17:21:39 1997 *************** *** 0 **** --- 1 ---- + fwrite ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/io/io.exp octave-2.0.5/test/octave.test/io/io.exp *** octave-2.0.4/test/octave.test/io/io.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/io.exp Thu Feb 27 03:33:20 1997 *************** *** 0 **** --- 1,263 ---- + ## The following functions need to have tests written for them: + + # disp + # save + # load + # fputs + # fgetl + # fgets + # fprintf + # fscanf + # ferror + + set test puts-1 + set prog_output "foo\nans = 0" + do_test puts-1.m + + set test puts-2 + set prog_output "ans = -1" + do_test puts-2.m + + set test puts-3 + set prog_output "usage:.*" + do_test puts-3.m + + set test puts-4 + set prog_output "usage:.*" + do_test puts-4.m + + set test sscanf-1 + set prog_output "ans = 1" + do_test sscanf-1.m + + set test sscanf-2 + set prog_output "\n... sscanf:.*" + do_test sscanf-2.m + + set test sscanf-3 + set prog_output "error:.*" + do_test sscanf-3.m + + set test sscanf-4 + set prog_output "\n... sscanf:.*" + do_test sscanf-4.m + + set test printf-1 + set prog_output "test: 1\nans = 2" + do_test printf-1.m + + set test printf-2 + set prog_output "error:.*" + do_test printf-2.m + + set test printf-3 + set prog_output "usage:.*" + do_test printf-3.m + + set test sprintf-1 + set prog_output "ans = 1" + do_test sprintf-1.m + + set test sprintf-2 + set prog_output "error:.*" + do_test sprintf-2.m + + set test sprintf-3 + set prog_output "\n... sprintf:." + do_test sprintf-3.m + + set test fopen-1 + set prog_output "ans = 1" + do_test fopen-1.m + + set test fopen-2 + set prog_output "error:.*" + do_test fopen-2.m + + set test fopen-3 + set prog_output "error:.*" + do_test fopen-3.m + + set test fopen-4 + set prog_output "error:.*" + do_test fopen-4.m + + set test fopen-5 + set prog_output "\n... fopen:.*" + do_test fopen-5.m + + set test fopen-6 + set prog_output "\n... fopen:.*" + do_test fopen-6.m + + set test fclose-1 + set prog_output "error:.*" + do_test fclose-1.m + + set test fclose-2 + set prog_output "\n... fclose:.*" + do_test fclose-2.m + + set test tmpnam-1 + set prog_output "ans = 1" + do_test tmpnam-1.m + + set test tmpnam-2 + set prog_output "\n... tmpnam:.*" + do_test tmpnam-2.m + + ## set test file-io-1 + ## set prog_output "ok" + ## do_test file-io-1.m + + set test binary-io-1 + set prog_output "ok" + do_test binary-io-1.m + + set test file-pos-1 + set prog_output "ok" + do_test file-pos-1.m + + set test fputs-1 + set prog_output "\n... fputs:.*" + do_test fputs-1.m + + set test fputs-2 + set prog_output "\n... fputs:.*" + do_test fputs-2.m + + set test fputs-3 + set prog_output "ans = -1" + do_test fputs-3.m + + set test fgetl-1 + set prog_output "\n... fgetl:.*" + do_test fgetl-1.m + + set test fgetl-2 + set prog_output "\n... fgetl:.*" + do_test fgetl-2.m + + set test fgetl-3 + set prog_output "error:.*" + do_test fgetl-3.m + + set test fgets-1 + set prog_output "\n... fgets:.*" + do_test fgets-1.m + + set test fgets-2 + set prog_output "\n... fgets:.*" + do_test fgets-2.m + + set test fgets-3 + set prog_output "error:.*" + do_test fgets-3.m + + set test fprintf-1 + set prog_output "\n... fprintf:.*" + do_test fprintf-1.m + + set test fprintf-2 + set prog_output "\n... fprintf:.*" + do_test fprintf-2.m + + set test fprintf-3 + set prog_output "error:.*" + do_test fprintf-3.m + + set test fscanf-1 + set prog_output "\n... fscanf:.*" + do_test fscanf-1.m + + set test fscanf-2 + set prog_output "\n... fscanf:.*" + do_test fscanf-2.m + + set test fscanf-3 + set prog_output "error:.*" + do_test fscanf-3.m + + set test fread-1 + set prog_output "\n... fread:.*" + do_test fread-1.m + + set test fread-2 + set prog_output "\n... fread:.*" + do_test fread-2.m + + set test fread-3 + set prog_output "error:.*" + do_test fread-3.m + + set test fwrite-1 + set prog_output "\n... fwrite:.*" + do_test fwrite-1.m + + set test fwrite-2 + set prog_output "\n... fwrite:.*" + do_test fwrite-2.m + + set test fwrite-3 + set prog_output "error:.*" + do_test fwrite-3.m + + set test feof-1 + set prog_output "\n... feof:.*" + do_test feof-1.m + + set test feof-2 + set prog_output "\n... feof:.*" + do_test feof-2.m + + set test feof-3 + set prog_output "error:.*" + do_test feof-3.m + + set test ferror-1 + set prog_output "\n... ferror:.*" + do_test ferror-1.m + + set test ferror-2 + set prog_output "\n... ferror:.*" + do_test ferror-2.m + + set test ferror-3 + set prog_output "error:.*" + do_test ferror-3.m + + set test ftell-1 + set prog_output "\n... ftell:.*" + do_test ftell-1.m + + set test ftell-2 + set prog_output "\n... ftell:.*" + do_test ftell-2.m + + set test ftell-3 + set prog_output "error:.*" + do_test ftell-3.m + + set test fseek-1 + set prog_output "\n... fseek:.*" + do_test fseek-1.m + + set test fseek-2 + set prog_output "\n... fseek:.*" + do_test fseek-2.m + + set test fseek-3 + set prog_output "error:.*" + do_test fseek-3.m + + set test frewind-1 + set prog_output "\n... frewind:.*" + do_test frewind-1.m + + set test frewind-2 + set prog_output "\n... frewind:.*" + do_test frewind-2.m + + set test frewind-3 + set prog_output "error:.*" + do_test frewind-3.m diff -cNr octave-2.0.4/test/octave.test/io/printf-1.m octave-2.0.5/test/octave.test/io/printf-1.m *** octave-2.0.4/test/octave.test/io/printf-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/printf-1.m Wed Feb 26 15:06:10 1997 *************** *** 0 **** --- 1 ---- + printf ("%s: %d\n", "test", 1) diff -cNr octave-2.0.4/test/octave.test/io/printf-2.m octave-2.0.5/test/octave.test/io/printf-2.m *** octave-2.0.4/test/octave.test/io/printf-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/printf-2.m Wed Feb 26 15:05:14 1997 *************** *** 0 **** --- 1 ---- + printf (1) diff -cNr octave-2.0.4/test/octave.test/io/printf-3.m octave-2.0.5/test/octave.test/io/printf-3.m *** octave-2.0.4/test/octave.test/io/printf-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/printf-3.m Wed Feb 26 15:04:59 1997 *************** *** 0 **** --- 1 ---- + printf () diff -cNr octave-2.0.4/test/octave.test/io/puts-1.m octave-2.0.5/test/octave.test/io/puts-1.m *** octave-2.0.4/test/octave.test/io/puts-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/puts-1.m Wed Feb 26 15:04:13 1997 *************** *** 0 **** --- 1 ---- + puts ("foo\n") diff -cNr octave-2.0.4/test/octave.test/io/puts-2.m octave-2.0.5/test/octave.test/io/puts-2.m *** octave-2.0.4/test/octave.test/io/puts-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/puts-2.m Wed Feb 26 15:03:58 1997 *************** *** 0 **** --- 1 ---- + puts (1) diff -cNr octave-2.0.4/test/octave.test/io/puts-3.m octave-2.0.5/test/octave.test/io/puts-3.m *** octave-2.0.4/test/octave.test/io/puts-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/puts-3.m Wed Feb 26 15:03:35 1997 *************** *** 0 **** --- 1 ---- + puts () diff -cNr octave-2.0.4/test/octave.test/io/puts-4.m octave-2.0.5/test/octave.test/io/puts-4.m *** octave-2.0.4/test/octave.test/io/puts-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/puts-4.m Wed Feb 26 15:03:31 1997 *************** *** 0 **** --- 1 ---- + puts (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/sprintf-1.m octave-2.0.5/test/octave.test/io/sprintf-1.m *** octave-2.0.4/test/octave.test/io/sprintf-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sprintf-1.m Wed Feb 26 15:20:40 1997 *************** *** 0 **** --- 1,3 ---- + [s, msg, status] = sprintf ("%s: %d\n", "test", 1); + + s == "test: 1\n" && isstr (msg) && status == 2 diff -cNr octave-2.0.4/test/octave.test/io/sprintf-2.m octave-2.0.5/test/octave.test/io/sprintf-2.m *** octave-2.0.4/test/octave.test/io/sprintf-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sprintf-2.m Wed Feb 26 15:19:11 1997 *************** *** 0 **** --- 1 ---- + sprintf (1) diff -cNr octave-2.0.4/test/octave.test/io/sprintf-3.m octave-2.0.5/test/octave.test/io/sprintf-3.m *** octave-2.0.4/test/octave.test/io/sprintf-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sprintf-3.m Wed Feb 26 15:19:07 1997 *************** *** 0 **** --- 1 ---- + sprintf () diff -cNr octave-2.0.4/test/octave.test/io/sscanf-1.m octave-2.0.5/test/octave.test/io/sscanf-1.m *** octave-2.0.4/test/octave.test/io/sscanf-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sscanf-1.m Wed Feb 26 15:17:57 1997 *************** *** 0 **** --- 1,7 ---- + [a, b, c] = sscanf ("1.2 3 foo", "%f%d%s", "C"); + [v1, c1, m1] = sscanf ("1 2 3 4 5 6", "%d") + [v2, c2, m2] = sscanf ("1 2 bar 3 4 5 6", "%d") + + (a == 1.2 && b == 3 && c == "foo" + && v1 == [1; 2; 3; 4; 5; 6] && c1 == 6 && isstr (m1) + && v2 == [1; 2] && c2 == 2 && isstr (m2)) diff -cNr octave-2.0.4/test/octave.test/io/sscanf-2.m octave-2.0.5/test/octave.test/io/sscanf-2.m *** octave-2.0.4/test/octave.test/io/sscanf-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sscanf-2.m Wed Feb 26 15:08:07 1997 *************** *** 0 **** --- 1 ---- + sscanf () diff -cNr octave-2.0.4/test/octave.test/io/sscanf-3.m octave-2.0.5/test/octave.test/io/sscanf-3.m *** octave-2.0.4/test/octave.test/io/sscanf-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sscanf-3.m Wed Feb 26 15:09:10 1997 *************** *** 0 **** --- 1 ---- + sscanf (1, 2) diff -cNr octave-2.0.4/test/octave.test/io/sscanf-4.m octave-2.0.5/test/octave.test/io/sscanf-4.m *** octave-2.0.4/test/octave.test/io/sscanf-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/sscanf-4.m Wed Feb 26 15:08:51 1997 *************** *** 0 **** --- 1 ---- + sscanf ("foo", "bar", "C", 1) diff -cNr octave-2.0.4/test/octave.test/io/tmpnam-1.m octave-2.0.5/test/octave.test/io/tmpnam-1.m *** octave-2.0.4/test/octave.test/io/tmpnam-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/tmpnam-1.m Wed Feb 26 15:22:13 1997 *************** *** 0 **** --- 1 ---- + isstr (tmpnam ()) diff -cNr octave-2.0.4/test/octave.test/io/tmpnam-2.m octave-2.0.5/test/octave.test/io/tmpnam-2.m *** octave-2.0.4/test/octave.test/io/tmpnam-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/io/tmpnam-2.m Wed Feb 26 15:22:24 1997 *************** *** 0 **** --- 1 ---- + tmpnam (1) diff -cNr octave-2.0.4/test/octave.test/linalg/chol-1.m octave-2.0.5/test/octave.test/linalg/chol-1.m *** octave-2.0.4/test/octave.test/linalg/chol-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/chol-1.m Mon Feb 24 16:54:17 1997 *************** *** 0 **** --- 1,2 ---- + rt2 = sqrt (2); + all (all (abs (chol ([2, 1; 1, 1]) - [rt2, 1/rt2; 0, 1/rt2]) < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/chol-2.m octave-2.0.5/test/octave.test/linalg/chol-2.m *** octave-2.0.4/test/octave.test/linalg/chol-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/chol-2.m Mon Feb 24 16:54:59 1997 *************** *** 0 **** --- 1 ---- + chol ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/linalg/chol-3.m octave-2.0.5/test/octave.test/linalg/chol-3.m *** octave-2.0.4/test/octave.test/linalg/chol-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/chol-3.m Mon Feb 24 16:54:42 1997 *************** *** 0 **** --- 1 ---- + chol ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/chol-4.m octave-2.0.5/test/octave.test/linalg/chol-4.m *** octave-2.0.4/test/octave.test/linalg/chol-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/chol-4.m Mon Feb 24 16:54:47 1997 *************** *** 0 **** --- 1 ---- + chol () diff -cNr octave-2.0.4/test/octave.test/linalg/chol-5.m octave-2.0.5/test/octave.test/linalg/chol-5.m *** octave-2.0.4/test/octave.test/linalg/chol-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/chol-5.m Mon Feb 24 16:54:52 1997 *************** *** 0 **** --- 1 ---- + chol (1, 2) diff -cNr octave-2.0.4/test/octave.test/linalg/cond-1.m octave-2.0.5/test/octave.test/linalg/cond-1.m *** octave-2.0.4/test/octave.test/linalg/cond-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/cond-1.m Mon Feb 24 16:46:24 1997 *************** *** 0 **** --- 1 ---- + cond ([1, 2; 2, 1]) - 3 < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/linalg/cond-2.m octave-2.0.5/test/octave.test/linalg/cond-2.m *** octave-2.0.4/test/octave.test/linalg/cond-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/cond-2.m Mon Feb 24 16:48:26 1997 *************** *** 0 **** --- 1 ---- + cond ([1, 2, 3; 4, 5, 6; 7, 8, 9]) > 1.0e+16 diff -cNr octave-2.0.4/test/octave.test/linalg/cond-3.m octave-2.0.5/test/octave.test/linalg/cond-3.m *** octave-2.0.4/test/octave.test/linalg/cond-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/cond-3.m Mon Feb 24 16:46:40 1997 *************** *** 0 **** --- 1 ---- + cond () diff -cNr octave-2.0.4/test/octave.test/linalg/cond-4.m octave-2.0.5/test/octave.test/linalg/cond-4.m *** octave-2.0.4/test/octave.test/linalg/cond-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/cond-4.m Mon Feb 24 16:46:33 1997 *************** *** 0 **** --- 1 ---- + cond (1, 2) diff -cNr octave-2.0.4/test/octave.test/linalg/det-1.m octave-2.0.5/test/octave.test/linalg/det-1.m *** octave-2.0.4/test/octave.test/linalg/det-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/det-1.m Mon Feb 24 15:10:05 1997 *************** *** 0 **** --- 1 ---- + det ([1, 2; 3, 4]) == -2 diff -cNr octave-2.0.4/test/octave.test/linalg/det-2.m octave-2.0.5/test/octave.test/linalg/det-2.m *** octave-2.0.4/test/octave.test/linalg/det-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/det-2.m Mon Feb 24 15:10:18 1997 *************** *** 0 **** --- 1 ---- + det () diff -cNr octave-2.0.4/test/octave.test/linalg/det-3.m octave-2.0.5/test/octave.test/linalg/det-3.m *** octave-2.0.4/test/octave.test/linalg/det-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/det-3.m Mon Feb 24 15:10:26 1997 *************** *** 0 **** --- 1 ---- + det (1, 2) diff -cNr octave-2.0.4/test/octave.test/linalg/det-4.m octave-2.0.5/test/octave.test/linalg/det-4.m *** octave-2.0.4/test/octave.test/linalg/det-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/det-4.m Mon Feb 24 15:39:04 1997 *************** *** 0 **** --- 1 ---- + det ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/eig-1.m octave-2.0.5/test/octave.test/linalg/eig-1.m *** octave-2.0.4/test/octave.test/linalg/eig-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/eig-1.m Mon Feb 24 15:56:44 1997 *************** *** 0 **** --- 1 ---- + all (eig ([1, 2; 2, 1]) - [3; -1] < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/eig-2.m octave-2.0.5/test/octave.test/linalg/eig-2.m *** octave-2.0.4/test/octave.test/linalg/eig-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/eig-2.m Mon Feb 24 15:50:53 1997 *************** *** 0 **** --- 1,4 ---- + [v, d] = eig ([1, 2; 2, 1]); + x = 1 / sqrt (2); + (abs (d - [3, 0; 0, -1] < sqrt (eps)) + && abs (v - [x, -x; x, x] < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/eig-3.m octave-2.0.5/test/octave.test/linalg/eig-3.m *** octave-2.0.4/test/octave.test/linalg/eig-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/eig-3.m Mon Feb 24 15:15:01 1997 *************** *** 0 **** --- 1 ---- + eig () diff -cNr octave-2.0.4/test/octave.test/linalg/eig-4.m octave-2.0.5/test/octave.test/linalg/eig-4.m *** octave-2.0.4/test/octave.test/linalg/eig-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/eig-4.m Mon Feb 24 15:15:15 1997 *************** *** 0 **** --- 1 ---- + eig ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/linalg/eig-5.m octave-2.0.5/test/octave.test/linalg/eig-5.m *** octave-2.0.4/test/octave.test/linalg/eig-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/eig-5.m Mon Feb 24 15:38:42 1997 *************** *** 0 **** --- 1 ---- + eig ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/hess-1.m octave-2.0.5/test/octave.test/linalg/hess-1.m *** octave-2.0.4/test/octave.test/linalg/hess-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/hess-1.m Mon Feb 24 16:59:51 1997 *************** *** 0 **** --- 1,3 ---- + a = [1, 2, 3; 5, 4, 6; 8, 7, 9]; + [p, h] = hess (a); + size (p) == [3, 3] && size (h) == [3, 3] && abs (a - p * h * p') < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/linalg/hess-2.m octave-2.0.5/test/octave.test/linalg/hess-2.m *** octave-2.0.4/test/octave.test/linalg/hess-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/hess-2.m Mon Feb 24 16:58:46 1997 *************** *** 0 **** --- 1 ---- + hess () diff -cNr octave-2.0.4/test/octave.test/linalg/hess-3.m octave-2.0.5/test/octave.test/linalg/hess-3.m *** octave-2.0.4/test/octave.test/linalg/hess-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/hess-3.m Mon Feb 24 16:58:40 1997 *************** *** 0 **** --- 1 ---- + hess ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/linalg/hess-4.m octave-2.0.5/test/octave.test/linalg/hess-4.m *** octave-2.0.4/test/octave.test/linalg/hess-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/hess-4.m Mon Feb 24 16:58:31 1997 *************** *** 0 **** --- 1 ---- + hess ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/inv-1.m octave-2.0.5/test/octave.test/linalg/inv-1.m *** octave-2.0.4/test/octave.test/linalg/inv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/inv-1.m Mon Feb 24 15:17:03 1997 *************** *** 0 **** --- 1 ---- + all (all (inv ([1, 2; 3, 4]) - [-2, 1; 1.5, -0.5] < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/inv-2.m octave-2.0.5/test/octave.test/linalg/inv-2.m *** octave-2.0.4/test/octave.test/linalg/inv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/inv-2.m Mon Feb 24 15:16:14 1997 *************** *** 0 **** --- 1 ---- + inv () diff -cNr octave-2.0.4/test/octave.test/linalg/inv-3.m octave-2.0.5/test/octave.test/linalg/inv-3.m *** octave-2.0.4/test/octave.test/linalg/inv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/inv-3.m Mon Feb 24 15:16:06 1997 *************** *** 0 **** --- 1 ---- + inv ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/linalg/inv-4.m octave-2.0.5/test/octave.test/linalg/inv-4.m *** octave-2.0.4/test/octave.test/linalg/inv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/inv-4.m Mon Feb 24 15:38:22 1997 *************** *** 0 **** --- 1 ---- + inv ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/linalg.exp octave-2.0.5/test/octave.test/linalg/linalg.exp *** octave-2.0.4/test/octave.test/linalg/linalg.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/linalg.exp Wed Feb 26 01:06:22 1997 *************** *** 0 **** --- 1,255 ---- + ## The following functions need to have tests written for them: + + # balance + # givens + # norm + # null + # orth + # pinv + # rank + # expm + # logm + # sqrtm + # kron + # qzhess + # qzval + + set test cond-1 + set prog_output "ans = 1" + do_test cond-1.m + + set test cond-2 + set prog_output "ans = 1" + do_test cond-2.m + + set test cond-3 + set prog_output "usage:.*" + do_test cond-3.m + + set test cond-4 + set prog_output "usage:.*" + do_test cond-4.m + + set test det-1 + set prog_output "ans = 1" + do_test det-1.m + + set test det-2 + set prog_output "\n... det:.*" + do_test det-2.m + + set test det-3 + set prog_output "\n... det:.*" + do_test det-3.m + + set test det-4 + set prog_output "error:.*" + do_test det-4.m + + set test eig-1 + set prog_output "ans = 1" + do_test eig-1.m + + set test eig-2 + set prog_output "ans = 1" + do_test eig-2.m + + set test eig-3 + set prog_output "\n... eig:.*" + do_test eig-3.m + + set test eig-4 + set prog_output "\n... eig:.*" + do_test eig-4.m + + set test eig-5 + set prog_output "error:.*" + do_test eig-5.m + + set test inv-1 + set prog_output "ans = 1" + do_test inv-1.m + + set test inv-2 + set prog_output "\n... inv:.*" + do_test inv-2.m + + set test inv-3 + set prog_output "\n... inv:.*" + do_test inv-3.m + + set test inv-4 + set prog_output "error:.*" + do_test inv-4.m + + set test trace-1 + set prog_output "ans = 1" + do_test trace-1.m + + set test trace-2 + set prog_output "ans = 1" + do_test trace-2.m + + set test trace-3 + set prog_output "ans = 1" + do_test trace-3.m + + set test trace-4 + set prog_output "usage:.*" + do_test trace-4.m + + set test trace-5 + set prog_output "usage:.*" + do_test trace-5.m + + set test chol-1 + set prog_output "ans = 1" + do_test chol-1.m + + set test chol-2 + set prog_output "error:.*" + do_test chol-2.m + + set test chol-3 + set prog_output "error:.*" + do_test chol-3.m + + set test chol-4 + set prog_output "\n... chol:.*" + do_test chol-4.m + + set test chol-5 + set prog_output "\n... chol:.*" + do_test chol-5.m + + set test hess-1 + set prog_output "ans = 1" + do_test hess-1.m + + set test hess-2 + set prog_output "\n... hess:.*" + do_test hess-2.m + + set test hess-3 + set prog_output "\n... hess:.*" + do_test hess-3.m + + set test hess-4 + set prog_output "error:.*" + do_test hess-4.m + + set test lu-1 + set prog_output "ans = 1" + do_test lu-1.m + + set test lu-2 + set prog_output "ans = 1" + do_test lu-2.m + + set test lu-3 + set prog_output "ans = 1" + do_test lu-3.m + + set test lu-4 + set prog_output "\n... lu:.*" + do_test lu-4.m + + set test lu-5 + set prog_output "\n... lu:.*" + do_test lu-5.m + + set test lu-6 + set prog_output "error:.*" + do_test lu-6.m + + set test qr-1 + set prog_output "ans = 1" + do_test qr-1.m + + set test qr-2 + set prog_output "ans = 1" + do_test qr-2.m + + set test qr-3 + set prog_output "ans = 1" + do_test qr-3.m + + set test qr-4 + set prog_output "ans = 1" + do_test qr-4.m + + set test qr-5 + set prog_output "\n... qr:.*" + do_test qr-5.m + + set test qr-6 + set prog_output "\n... qr:.*" + do_test qr-6.m + + set test schur-1 + set prog_output "ans = 1" + do_test schur-1.m + + set test schur-2 + set prog_output "\n... schur:.*" + do_test schur-2.m + + set test schur-3 + set prog_output "error:.*" + do_test schur-3.m + + set test schur-4 + set prog_output "error:.*" + do_test schur-4.m + + set test svd-1 + set prog_output "ans = 1" + do_test svd-1.m + + set test svd-2 + set prog_output "ans = 1" + do_test svd-2.m + + set test svd-3 + set prog_output "ans = 1" + do_test svd-3.m + + set test svd-4 + set prog_output "ans = 1" + do_test svd-4.m + + set test svd-5 + set prog_output "ans = 1" + do_test svd-5.m + + set test svd-6 + set prog_output "ans = 1" + do_test svd-6.m + + set test svd-7 + set prog_output "\n... svd:.*" + do_test svd-7.m + + set test svd-8 + set prog_output "\n... svd:.*" + do_test svd-8.m + + set test svd-9 + set prog_output "\n... svd:.*" + do_test svd-9.m + + set test syl-1 + set prog_output "ans = 1" + do_test syl-1.m + + set test syl-2 + set prog_output "\n... syl:.*" + do_test syl-2.m + + set test syl-3 + set prog_output "\n... syl:.*" + do_test syl-3.m + + set test syl-4 + set prog_output "error:.*" + do_test syl-4.m diff -cNr octave-2.0.4/test/octave.test/linalg/lu-1.m octave-2.0.5/test/octave.test/linalg/lu-1.m *** octave-2.0.4/test/octave.test/linalg/lu-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-1.m Mon Feb 24 15:34:55 1997 *************** *** 0 **** --- 1 ---- + all (all (lu ([1, 2; 3, 4]) - [1/3, 1; 1, 0] < eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/lu-2.m octave-2.0.5/test/octave.test/linalg/lu-2.m *** octave-2.0.4/test/octave.test/linalg/lu-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-2.m Mon Feb 24 15:50:35 1997 *************** *** 0 **** --- 1,3 ---- + [l, u] = lu ([1, 2; 3, 4]) + (abs (l - [1/3, 1; 1, 0] < sqrt (eps)) + && abs (u - [3, 4; 0, 2/3] < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/lu-3.m octave-2.0.5/test/octave.test/linalg/lu-3.m *** octave-2.0.4/test/octave.test/linalg/lu-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-3.m Mon Feb 24 16:15:21 1997 *************** *** 0 **** --- 1,4 ---- + [l, u, p] = lu ([1, 2; 3, 4]); + (abs (l - [1, 0; 1/3, 1]) < sqrt (eps) + && abs (u - [3, 4; 0, 2/3]) < sqrt (eps) + && abs (p - [0, 1; 1, 0]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/lu-4.m octave-2.0.5/test/octave.test/linalg/lu-4.m *** octave-2.0.4/test/octave.test/linalg/lu-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-4.m Mon Feb 24 15:58:41 1997 *************** *** 0 **** --- 1 ---- + lu () diff -cNr octave-2.0.4/test/octave.test/linalg/lu-5.m octave-2.0.5/test/octave.test/linalg/lu-5.m *** octave-2.0.4/test/octave.test/linalg/lu-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-5.m Mon Feb 24 15:58:36 1997 *************** *** 0 **** --- 1 ---- + lu ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/linalg/lu-6.m octave-2.0.5/test/octave.test/linalg/lu-6.m *** octave-2.0.4/test/octave.test/linalg/lu-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/lu-6.m Mon Feb 24 15:37:41 1997 *************** *** 0 **** --- 1 ---- + lu ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/qr-1.m octave-2.0.5/test/octave.test/linalg/qr-1.m *** octave-2.0.4/test/octave.test/linalg/qr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-1.m Thu Feb 27 20:06:07 1997 *************** *** 0 **** --- 1,10 ---- + a = [0, 2, 1; 2, 1, 2]; + + [q, r] = qr (a); + + [qe, re] = qr (a, 0); + + (size (q) == [2, 2] && size (r) == [2, 3] + && abs (q * r - a) < sqrt (eps) + && size (qe) == [2, 2] && size (re) == [2, 3] + && abs (qe * re - a) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/qr-2.m octave-2.0.5/test/octave.test/linalg/qr-2.m *** octave-2.0.4/test/octave.test/linalg/qr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-2.m Thu Feb 27 21:03:16 1997 *************** *** 0 **** --- 1,10 ---- + a = [0, 2, 1; 2, 1, 2]; + + [q, r, p] = qr (a); # not giving right dimensions. XXX FIXME XXX + + [qe, re, pe] = qr (a, 0); + + (size (q) == [2, 2] && size (r) == [2, 3] && size (p) == [3, 3] + && abs (q * r - a * p) < sqrt (eps) + && size (qe) == [2, 2] && size (re) == [2, 3] && size (pe) == [1, 3] + && abs (qe * re - a(:,pe)) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/qr-3.m octave-2.0.5/test/octave.test/linalg/qr-3.m *** octave-2.0.4/test/octave.test/linalg/qr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-3.m Thu Feb 27 20:11:59 1997 *************** *** 0 **** --- 1,10 ---- + a = [0, 2; 2, 1; 1, 2]; + + [q, r] = qr (a); + + [qe, re] = qr (a, 0); + + (size (q) == [3, 3] && size (r) == [3, 2] + && abs (a - q * r) < sqrt (eps) + && size (qe) == [3, 2] && size (re) == [2, 2] + && abs (a - qe * re) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/qr-4.m octave-2.0.5/test/octave.test/linalg/qr-4.m *** octave-2.0.4/test/octave.test/linalg/qr-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-4.m Thu Feb 27 20:14:26 1997 *************** *** 0 **** --- 1,10 ---- + a = [0, 2; 2, 1; 1, 2]; + + [q, r, p] = qr (a); + + [qe, re, pe] = qr (a, 0); + + (size (q) == [3, 3] && size (r) == [3, 2] && size (p) == [2, 2] + && abs (a * p - q * r) < sqrt (eps) + && size (qe) == [3, 2] && size (re) == [2, 2] && size (pe) == [1, 2] + && abs (a(:,pe) - qe * re) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/qr-5.m octave-2.0.5/test/octave.test/linalg/qr-5.m *** octave-2.0.4/test/octave.test/linalg/qr-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-5.m Mon Feb 24 16:01:10 1997 *************** *** 0 **** --- 1 ---- + qr () diff -cNr octave-2.0.4/test/octave.test/linalg/qr-6.m octave-2.0.5/test/octave.test/linalg/qr-6.m *** octave-2.0.4/test/octave.test/linalg/qr-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/qr-6.m Mon Feb 24 16:01:23 1997 *************** *** 0 **** --- 1 ---- + qr ([1, 2; 3, 4], 0, 2) diff -cNr octave-2.0.4/test/octave.test/linalg/schur-1.m octave-2.0.5/test/octave.test/linalg/schur-1.m *** octave-2.0.4/test/octave.test/linalg/schur-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/schur-1.m Mon Feb 24 17:02:05 1997 *************** *** 0 **** --- 1,3 ---- + a = [1, 2, 3; 4, 5, 9; 7, 8, 6]; + [u, s] = schur (a); + size (u) == [3, 3] && size (s) == [3, 3] && abs (s - u' * a * u) < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/linalg/schur-2.m octave-2.0.5/test/octave.test/linalg/schur-2.m *** octave-2.0.4/test/octave.test/linalg/schur-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/schur-2.m Mon Feb 24 17:02:25 1997 *************** *** 0 **** --- 1 ---- + schur () diff -cNr octave-2.0.4/test/octave.test/linalg/schur-3.m octave-2.0.5/test/octave.test/linalg/schur-3.m *** octave-2.0.4/test/octave.test/linalg/schur-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/schur-3.m Mon Feb 24 17:02:38 1997 *************** *** 0 **** --- 1 ---- + schur ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/linalg/schur-4.m octave-2.0.5/test/octave.test/linalg/schur-4.m *** octave-2.0.4/test/octave.test/linalg/schur-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/schur-4.m Mon Feb 24 17:02:49 1997 *************** *** 0 **** --- 1 ---- + schur ([1, 2, 3; 4, 5, 6]) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-1.m octave-2.0.5/test/octave.test/linalg/svd-1.m *** octave-2.0.4/test/octave.test/linalg/svd-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-1.m Mon Feb 24 16:01:56 1997 *************** *** 0 **** --- 1 ---- + all (abs (svd ([1, 2; 2, 1]) - [3; 1]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-10.m octave-2.0.5/test/octave.test/linalg/svd-10.m *** octave-2.0.4/test/octave.test/linalg/svd-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-10.m Mon Feb 24 15:29:22 1997 *************** *** 0 **** --- 1 ---- + all (svd ([eye(3), eye(3)]) - [rt2; rt2; rt2] < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-2.m octave-2.0.5/test/octave.test/linalg/svd-2.m *** octave-2.0.4/test/octave.test/linalg/svd-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-2.m Mon Feb 24 15:49:13 1997 *************** *** 0 **** --- 1,5 ---- + [u, s, v] = svd ([1, 2; 2, 1]); + x = 1 / sqrt (2); + (abs (u - [-x, -x; -x, x] < sqrt (eps)) + && abs (s - [3, 0; 0, 1] < sqrt (eps)) + && abs (v - [-x, x; -x, -x] < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-3.m octave-2.0.5/test/octave.test/linalg/svd-3.m *** octave-2.0.4/test/octave.test/linalg/svd-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-3.m Mon Feb 24 16:04:47 1997 *************** *** 0 **** --- 1,4 ---- + a = [1, 2, 3; 4, 5, 6]; + [u, s, v] = svd (a); + (size (u) == [2, 2] && size (s) == [2, 3] && size (v) == [3, 3] + && abs (a - u * s * v') < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-4.m octave-2.0.5/test/octave.test/linalg/svd-4.m *** octave-2.0.4/test/octave.test/linalg/svd-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-4.m Mon Feb 24 16:02:30 1997 *************** *** 0 **** --- 1,4 ---- + a = [1, 2; 3, 4; 5, 6]; + [u, s, v] = svd (a); + (size (u) == [3, 3] && size (s) == [3, 2] && size (v) == [2, 2] + && abs (a - u * s * v') < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-5.m octave-2.0.5/test/octave.test/linalg/svd-5.m *** octave-2.0.4/test/octave.test/linalg/svd-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-5.m Mon Feb 24 16:04:52 1997 *************** *** 0 **** --- 1,4 ---- + a = [1, 2, 3; 4, 5, 6]; + [u, s, v] = svd (a, 1); + (size (u) == [2, 2] && size (s) == [2, 2] && size (v) == [3, 2] + && abs (a - u * s * v') < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-6.m octave-2.0.5/test/octave.test/linalg/svd-6.m *** octave-2.0.4/test/octave.test/linalg/svd-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-6.m Mon Feb 24 16:02:42 1997 *************** *** 0 **** --- 1,4 ---- + a = [1, 2; 3, 4; 5, 6]; + [u, s, v] = svd (a, 1); + (size (u) == [3, 2] && size (s) == [2, 2] && size (v) == [2, 2] + && abs (a - u * s * v') < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-7.m octave-2.0.5/test/octave.test/linalg/svd-7.m *** octave-2.0.4/test/octave.test/linalg/svd-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-7.m Mon Feb 24 15:25:43 1997 *************** *** 0 **** --- 1 ---- + svd () diff -cNr octave-2.0.4/test/octave.test/linalg/svd-8.m octave-2.0.5/test/octave.test/linalg/svd-8.m *** octave-2.0.4/test/octave.test/linalg/svd-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-8.m Mon Feb 24 15:26:04 1997 *************** *** 0 **** --- 1 ---- + svd ([1, 2; 4, 5], 2, 3) diff -cNr octave-2.0.4/test/octave.test/linalg/svd-9.m octave-2.0.5/test/octave.test/linalg/svd-9.m *** octave-2.0.4/test/octave.test/linalg/svd-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/svd-9.m Mon Feb 24 15:26:18 1997 *************** *** 0 **** --- 1 ---- + [u, v] = svd ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/linalg/syl-1.m octave-2.0.5/test/octave.test/linalg/syl-1.m *** octave-2.0.4/test/octave.test/linalg/syl-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/syl-1.m Mon Feb 24 17:21:42 1997 *************** *** 0 **** --- 1,2 ---- + x = syl ([1, 2; 3, 4], [5, 6; 7, 8], [9, 10; 11, 12]); + all (all (abs (x - [-1/2, -2/3; -2/3, -1/2]) < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/linalg/syl-2.m octave-2.0.5/test/octave.test/linalg/syl-2.m *** octave-2.0.4/test/octave.test/linalg/syl-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/syl-2.m Mon Feb 24 17:05:03 1997 *************** *** 0 **** --- 1 ---- + syl () diff -cNr octave-2.0.4/test/octave.test/linalg/syl-3.m octave-2.0.5/test/octave.test/linalg/syl-3.m *** octave-2.0.4/test/octave.test/linalg/syl-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/syl-3.m Mon Feb 24 17:05:18 1997 *************** *** 0 **** --- 1 ---- + syl (1, 2, 3, 4) diff -cNr octave-2.0.4/test/octave.test/linalg/syl-4.m octave-2.0.5/test/octave.test/linalg/syl-4.m *** octave-2.0.4/test/octave.test/linalg/syl-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/syl-4.m Mon Feb 24 17:05:46 1997 *************** *** 0 **** --- 1 ---- + syl ([1, 2; 3, 4], [1, 2, 3; 4, 5, 6], [4, 3]) diff -cNr octave-2.0.4/test/octave.test/linalg/trace-1.m octave-2.0.5/test/octave.test/linalg/trace-1.m *** octave-2.0.4/test/octave.test/linalg/trace-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/trace-1.m Mon Feb 24 16:49:53 1997 *************** *** 0 **** --- 1 ---- + trace ([1, 2; 3, 4]) == 5 diff -cNr octave-2.0.4/test/octave.test/linalg/trace-2.m octave-2.0.5/test/octave.test/linalg/trace-2.m *** octave-2.0.4/test/octave.test/linalg/trace-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/trace-2.m Mon Feb 24 16:50:15 1997 *************** *** 0 **** --- 1 ---- + trace ([1, 2; 3, 4; 5, 6]) == 5 diff -cNr octave-2.0.4/test/octave.test/linalg/trace-3.m octave-2.0.5/test/octave.test/linalg/trace-3.m *** octave-2.0.4/test/octave.test/linalg/trace-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/trace-3.m Mon Feb 24 16:51:22 1997 *************** *** 0 **** --- 1 ---- + trace ([1, 3, 5; 2, 4, 6]) == 5 diff -cNr octave-2.0.4/test/octave.test/linalg/trace-4.m octave-2.0.5/test/octave.test/linalg/trace-4.m *** octave-2.0.4/test/octave.test/linalg/trace-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/trace-4.m Mon Feb 24 16:51:34 1997 *************** *** 0 **** --- 1 ---- + trace () diff -cNr octave-2.0.4/test/octave.test/linalg/trace-5.m octave-2.0.5/test/octave.test/linalg/trace-5.m *** octave-2.0.4/test/octave.test/linalg/trace-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/linalg/trace-5.m Mon Feb 24 16:51:39 1997 *************** *** 0 **** --- 1 ---- + trace (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/all-1.m octave-2.0.5/test/octave.test/matrix/all-1.m *** octave-2.0.4/test/octave.test/matrix/all-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/all-1.m Tue Feb 25 01:27:20 1997 *************** *** 0 **** --- 1,3 ---- + x = ones (3); + x(1,1) = 0; + all (all (rand (3) + 1) == [1, 1, 1]) == 1 && all (all (x) == [0, 1, 1]) == 1 diff -cNr octave-2.0.4/test/octave.test/matrix/all-2.m octave-2.0.5/test/octave.test/matrix/all-2.m *** octave-2.0.4/test/octave.test/matrix/all-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/all-2.m Tue Feb 25 01:23:34 1997 *************** *** 0 **** --- 1 ---- + all () diff -cNr octave-2.0.4/test/octave.test/matrix/all-3.m octave-2.0.5/test/octave.test/matrix/all-3.m *** octave-2.0.4/test/octave.test/matrix/all-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/all-3.m Tue Feb 25 01:23:46 1997 *************** *** 0 **** --- 1 ---- + all (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/any-1.m octave-2.0.5/test/octave.test/matrix/any-1.m *** octave-2.0.4/test/octave.test/matrix/any-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/any-1.m Tue Feb 25 01:48:32 1997 *************** *** 0 **** --- 1,3 ---- + x = zeros (3); + x(3,3) = 1; + all (any (x) == [0, 0, 1]) == 1 && all (any (ones (3)) == [1, 1, 1]) == 1 diff -cNr octave-2.0.4/test/octave.test/matrix/any-2.m octave-2.0.5/test/octave.test/matrix/any-2.m *** octave-2.0.4/test/octave.test/matrix/any-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/any-2.m Tue Feb 25 01:23:51 1997 *************** *** 0 **** --- 1 ---- + any () diff -cNr octave-2.0.4/test/octave.test/matrix/any-3.m octave-2.0.5/test/octave.test/matrix/any-3.m *** octave-2.0.4/test/octave.test/matrix/any-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/any-3.m Tue Feb 25 01:23:56 1997 *************** *** 0 **** --- 1 ---- + any (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/diag-1.m octave-2.0.5/test/octave.test/matrix/diag-1.m *** octave-2.0.4/test/octave.test/matrix/diag-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diag-1.m Tue Feb 25 15:41:06 1997 *************** *** 0 **** --- 1,31 ---- + d = [1; 2; 3]; + + d0 = [1, 0, 0; + 0, 2, 0; + 0, 0, 3]; + + d1 = [0, 1, 0, 0; + 0, 0, 2, 0; + 0, 0, 0, 3; + 0, 0, 0, 0]; + + d2 = [0, 0, 1, 0, 0; + 0, 0, 0, 2, 0; + 0, 0, 0, 0, 3; + 0, 0, 0, 0, 0; + 0, 0, 0, 0, 0]; + + dm1 = [0, 0, 0, 0; + 1, 0, 0, 0; + 0, 2, 0, 0; + 0, 0, 3, 0]; + + dm2 = [0, 0, 0, 0, 0; + 0, 0, 0, 0, 0; + 1, 0, 0, 0, 0; + 0, 2, 0, 0, 0; + 0, 0, 3, 0, 0]; + + (diag (d) == d0 && diag (d, 1) == d1 && diag (d, 2) == d2 + && diag (d, -1) == dm1 && diag (d, -2) == dm2 + && diag (d0) == d && diag (d1, 1) == d && diag (dm1, -1) == d) diff -cNr octave-2.0.4/test/octave.test/matrix/diag-2.m octave-2.0.5/test/octave.test/matrix/diag-2.m *** octave-2.0.4/test/octave.test/matrix/diag-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diag-2.m Tue Feb 25 15:34:44 1997 *************** *** 0 **** --- 1 ---- + diag () diff -cNr octave-2.0.4/test/octave.test/matrix/diag-3.m octave-2.0.5/test/octave.test/matrix/diag-3.m *** octave-2.0.4/test/octave.test/matrix/diag-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diag-3.m Tue Feb 25 15:34:52 1997 *************** *** 0 **** --- 1 ---- + diag (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/diff-1.m octave-2.0.5/test/octave.test/matrix/diff-1.m *** octave-2.0.4/test/octave.test/matrix/diff-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diff-1.m Tue Feb 25 11:58:49 1997 *************** *** 0 **** --- 1,5 ---- + (diff ([1, 2, 3, 4]) == [1, 1, 1] + && diff ([1, 3, 7, 19], 2) == [2, 8] + && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1]) == [4, 2; 3, 3; 1, -1; -6, -5] + && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1], 3) == [-1, -5; -5, 0] + && isempty (diff (1))) diff -cNr octave-2.0.4/test/octave.test/matrix/diff-2.m octave-2.0.5/test/octave.test/matrix/diff-2.m *** octave-2.0.4/test/octave.test/matrix/diff-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diff-2.m Tue Feb 25 12:00:25 1997 *************** *** 0 **** --- 1 ---- + diff ([1, 2; 3, 4], -1) diff -cNr octave-2.0.4/test/octave.test/matrix/diff-3.m octave-2.0.5/test/octave.test/matrix/diff-3.m *** octave-2.0.4/test/octave.test/matrix/diff-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diff-3.m Tue Feb 25 12:00:12 1997 *************** *** 0 **** --- 1 ---- + diff ("foo") diff -cNr octave-2.0.4/test/octave.test/matrix/diff-4.m octave-2.0.5/test/octave.test/matrix/diff-4.m *** octave-2.0.4/test/octave.test/matrix/diff-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diff-4.m Tue Feb 25 12:00:06 1997 *************** *** 0 **** --- 1 ---- + diff () diff -cNr octave-2.0.4/test/octave.test/matrix/diff-5.m octave-2.0.5/test/octave.test/matrix/diff-5.m *** octave-2.0.4/test/octave.test/matrix/diff-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/diff-5.m Tue Feb 25 11:59:59 1997 *************** *** 0 **** --- 1 ---- + diff (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/eye-1.m octave-2.0.5/test/octave.test/matrix/eye-1.m *** octave-2.0.4/test/octave.test/matrix/eye-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/eye-1.m Tue Feb 25 01:30:00 1997 *************** *** 0 **** --- 1,4 ---- + i33 = [1, 0, 0; 0, 1, 0; 0, 0, 1]; + i23 = [1, 0, 0; 0, 1, 0]; + (eye (3) == i33 && eye (size (i33)) == i33 && eye (3, 3) == i33 + && eye (2, 3) == i23 && eye (3, 2) == i23') diff -cNr octave-2.0.4/test/octave.test/matrix/eye-2.m octave-2.0.5/test/octave.test/matrix/eye-2.m *** octave-2.0.4/test/octave.test/matrix/eye-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/eye-2.m Tue Feb 25 01:24:20 1997 *************** *** 0 **** --- 1 ---- + eye (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/find-1.m octave-2.0.5/test/octave.test/matrix/find-1.m *** octave-2.0.4/test/octave.test/matrix/find-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/find-1.m Tue Feb 25 11:49:23 1997 *************** *** 0 **** --- 1,3 ---- + (find ([1, 0, 1, 0, 1]) == [1, 3, 5] + && find ([1; 0; 3; 0; 1]) == [1; 3; 5] + && find ([0, 0, 2; 0, 3, 0; -1, 0, 0]) == [3; 5; 7]) diff -cNr octave-2.0.4/test/octave.test/matrix/find-2.m octave-2.0.5/test/octave.test/matrix/find-2.m *** octave-2.0.4/test/octave.test/matrix/find-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/find-2.m Tue Feb 25 11:52:10 1997 *************** *** 0 **** --- 1,3 ---- + [i, j, v] = find ([0, 0, 2; 0, 3, 0; -1, 0, 0]); + + i == [3; 2; 1] && j == [1; 2; 3] && v == [-1; 3; 2] diff -cNr octave-2.0.4/test/octave.test/matrix/find-3.m octave-2.0.5/test/octave.test/matrix/find-3.m *** octave-2.0.4/test/octave.test/matrix/find-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/find-3.m Tue Feb 25 11:52:56 1997 *************** *** 0 **** --- 1 ---- + find () diff -cNr octave-2.0.4/test/octave.test/matrix/find-4.m octave-2.0.5/test/octave.test/matrix/find-4.m *** octave-2.0.4/test/octave.test/matrix/find-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/find-4.m Tue Feb 25 11:53:02 1997 *************** *** 0 **** --- 1 ---- + find (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/fliplr-1.m octave-2.0.5/test/octave.test/matrix/fliplr-1.m *** octave-2.0.4/test/octave.test/matrix/fliplr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/fliplr-1.m Tue Feb 25 01:37:30 1997 *************** *** 0 **** --- 1,3 ---- + (fliplr ([1, 2; 3, 4]) == [2, 1; 4, 3] + && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5] + && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4]) diff -cNr octave-2.0.4/test/octave.test/matrix/fliplr-2.m octave-2.0.5/test/octave.test/matrix/fliplr-2.m *** octave-2.0.4/test/octave.test/matrix/fliplr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/fliplr-2.m Tue Feb 25 01:36:10 1997 *************** *** 0 **** --- 1,2 ---- + fliplr () + diff -cNr octave-2.0.4/test/octave.test/matrix/fliplr-3.m octave-2.0.5/test/octave.test/matrix/fliplr-3.m *** octave-2.0.4/test/octave.test/matrix/fliplr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/fliplr-3.m Tue Feb 25 01:36:16 1997 *************** *** 0 **** --- 1 ---- + fliplr (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/flipud-1.m octave-2.0.5/test/octave.test/matrix/flipud-1.m *** octave-2.0.4/test/octave.test/matrix/flipud-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/flipud-1.m Tue Feb 25 01:38:42 1997 *************** *** 0 **** --- 1,3 ---- + (flipud ([1, 2; 3, 4]) == [3, 4; 1, 2] + && flipud ([1, 2; 3, 4; 5, 6]) == [5, 6; 3, 4; 1, 2] + && flipud ([1, 2, 3; 4, 5, 6]) == [4, 5, 6; 1, 2, 3]) diff -cNr octave-2.0.4/test/octave.test/matrix/flipud-2.m octave-2.0.5/test/octave.test/matrix/flipud-2.m *** octave-2.0.4/test/octave.test/matrix/flipud-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/flipud-2.m Tue Feb 25 01:36:00 1997 *************** *** 0 **** --- 1 ---- + flipud () diff -cNr octave-2.0.4/test/octave.test/matrix/flipud-3.m octave-2.0.5/test/octave.test/matrix/flipud-3.m *** octave-2.0.4/test/octave.test/matrix/flipud-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/flipud-3.m Tue Feb 25 01:35:51 1997 *************** *** 0 **** --- 1 ---- + flipud (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/hadamard-1.m octave-2.0.5/test/octave.test/matrix/hadamard-1.m *** octave-2.0.4/test/octave.test/matrix/hadamard-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hadamard-1.m Tue Feb 25 12:24:11 1997 *************** *** 0 **** --- 1,2 ---- + (hadamard (1) == [1, 1; 1, -1] + && hadamard (2) == [1, 1, 1, 1; 1, -1, 1, -1; 1, 1, -1, -1; 1, -1, -1, 1]) diff -cNr octave-2.0.4/test/octave.test/matrix/hadamard-2.m octave-2.0.5/test/octave.test/matrix/hadamard-2.m *** octave-2.0.4/test/octave.test/matrix/hadamard-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hadamard-2.m Tue Feb 25 12:41:02 1997 *************** *** 0 **** --- 1 ---- + hadamard ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/matrix/hadamard-3.m octave-2.0.5/test/octave.test/matrix/hadamard-3.m *** octave-2.0.4/test/octave.test/matrix/hadamard-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hadamard-3.m Tue Feb 25 12:23:04 1997 *************** *** 0 **** --- 1 ---- + hadamard () diff -cNr octave-2.0.4/test/octave.test/matrix/hadamard-4.m octave-2.0.5/test/octave.test/matrix/hadamard-4.m *** octave-2.0.4/test/octave.test/matrix/hadamard-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hadamard-4.m Tue Feb 25 12:22:57 1997 *************** *** 0 **** --- 1 ---- + hadamard (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/hankel-1.m octave-2.0.5/test/octave.test/matrix/hankel-1.m *** octave-2.0.4/test/octave.test/matrix/hankel-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hankel-1.m Tue Feb 25 12:28:46 1997 *************** *** 0 **** --- 1,2 ---- + (hankel (1) == 1 && hankel ([1, 2]) == [1, 2; 2, 0] + && hankel ([1, 2], [2; -1; -3]) == [1, 2, -1; 2, -1, -3]) diff -cNr octave-2.0.4/test/octave.test/matrix/hankel-2.m octave-2.0.5/test/octave.test/matrix/hankel-2.m *** octave-2.0.4/test/octave.test/matrix/hankel-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hankel-2.m Tue Feb 25 12:25:39 1997 *************** *** 0 **** --- 1 ---- + hankel ([1, 2; 3, 4], [1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/matrix/hankel-3.m octave-2.0.5/test/octave.test/matrix/hankel-3.m *** octave-2.0.4/test/octave.test/matrix/hankel-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hankel-3.m Tue Feb 25 12:25:25 1997 *************** *** 0 **** --- 1 ---- + hankel () diff -cNr octave-2.0.4/test/octave.test/matrix/hankel-4.m octave-2.0.5/test/octave.test/matrix/hankel-4.m *** octave-2.0.4/test/octave.test/matrix/hankel-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hankel-4.m Tue Feb 25 12:25:17 1997 *************** *** 0 **** --- 1 ---- + hankel (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/hilb-1.m octave-2.0.5/test/octave.test/matrix/hilb-1.m *** octave-2.0.4/test/octave.test/matrix/hilb-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hilb-1.m Tue Feb 25 01:34:32 1997 *************** *** 0 **** --- 1,2 ---- + (hilb (2) == [1, 1/2; 1/2, 1/3] + && hilb (3) == [1, 1/2, 1/3; 1/2, 1/3, 1/4; 1/3, 1/4, 1/5]) diff -cNr octave-2.0.4/test/octave.test/matrix/hilb-2.m octave-2.0.5/test/octave.test/matrix/hilb-2.m *** octave-2.0.4/test/octave.test/matrix/hilb-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hilb-2.m Tue Feb 25 01:32:26 1997 *************** *** 0 **** --- 1 ---- + hilb () diff -cNr octave-2.0.4/test/octave.test/matrix/hilb-3.m octave-2.0.5/test/octave.test/matrix/hilb-3.m *** octave-2.0.4/test/octave.test/matrix/hilb-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/hilb-3.m Tue Feb 25 01:32:32 1997 *************** *** 0 **** --- 1 ---- + hilb (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/invhilb-1.m octave-2.0.5/test/octave.test/matrix/invhilb-1.m *** octave-2.0.4/test/octave.test/matrix/invhilb-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/invhilb-1.m Tue Feb 25 12:21:37 1997 *************** *** 0 **** --- 1,8 ---- + result4 = [16, -120, 240, -140; + -120, 1200, -2700, 1680; + 240, -2700, 6480, -4200; + -140, 1680, -4200, 2800]; + + (invhilb (1) == 1 && invhilb (2) == [4, -6; -6, 12] + && invhilb (4) == result4 + && abs (invhilb (7) * hilb (7) - eye (7)) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/matrix/invhilb-2.m octave-2.0.5/test/octave.test/matrix/invhilb-2.m *** octave-2.0.4/test/octave.test/matrix/invhilb-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/invhilb-2.m Tue Feb 25 12:16:55 1997 *************** *** 0 **** --- 1 ---- + invhilb ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/matrix/invhilb-3.m octave-2.0.5/test/octave.test/matrix/invhilb-3.m *** octave-2.0.4/test/octave.test/matrix/invhilb-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/invhilb-3.m Tue Feb 25 12:16:38 1997 *************** *** 0 **** --- 1 ---- + invhilb () diff -cNr octave-2.0.4/test/octave.test/matrix/invhilb-4.m octave-2.0.5/test/octave.test/matrix/invhilb-4.m *** octave-2.0.4/test/octave.test/matrix/invhilb-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/invhilb-4.m Tue Feb 25 12:16:31 1997 *************** *** 0 **** --- 1 ---- + invhilb (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/linspace-1.m octave-2.0.5/test/octave.test/matrix/linspace-1.m *** octave-2.0.4/test/octave.test/matrix/linspace-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/linspace-1.m Tue Feb 25 12:34:34 1997 *************** *** 0 **** --- 1,6 ---- + x1 = linspace (1, 2); + x2 = linspace (1, 2, 10); + x3 = linspace (1, -2, 10); + (size (x1) == [1, 100] && x1(1) == 1 && x1(100) == 2 + && size (x2) == [1, 10] && x2(1) == 1 && x2(10) == 2 + && size (x3) == [1, 10] && x3(1) == 1 && x3(10) == -2) diff -cNr octave-2.0.4/test/octave.test/matrix/linspace-2.m octave-2.0.5/test/octave.test/matrix/linspace-2.m *** octave-2.0.4/test/octave.test/matrix/linspace-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/linspace-2.m Tue Feb 25 12:32:41 1997 *************** *** 0 **** --- 1 ---- + linspace ([1, 2; 3, 4], 5, 6) diff -cNr octave-2.0.4/test/octave.test/matrix/linspace-3.m octave-2.0.5/test/octave.test/matrix/linspace-3.m *** octave-2.0.4/test/octave.test/matrix/linspace-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/linspace-3.m Tue Feb 25 12:32:30 1997 *************** *** 0 **** --- 1 ---- + linspace () diff -cNr octave-2.0.4/test/octave.test/matrix/linspace-4.m octave-2.0.5/test/octave.test/matrix/linspace-4.m *** octave-2.0.4/test/octave.test/matrix/linspace-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/linspace-4.m Tue Feb 25 12:32:16 1997 *************** *** 0 **** --- 1 ---- + linspace (1, 2, 3, 4) diff -cNr octave-2.0.4/test/octave.test/matrix/logspace-1.m octave-2.0.5/test/octave.test/matrix/logspace-1.m *** octave-2.0.4/test/octave.test/matrix/logspace-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/logspace-1.m Sat Mar 1 15:25:39 1997 *************** *** 0 **** --- 1,8 ---- + x1 = logspace (1, 2); + x2 = logspace (1, 2, 10); + x3 = logspace (1, -2, 10); + x4 = logspace (1, pi, 10); + (size (x1) == [1, 50] && x1(1) == 10 && x1(50) == 100 + && size (x2) == [1, 10] && x2(1) == 10 && x2(10) == 100 + && size (x3) == [1, 10] && x3(1) == 10 && x3(10) == 0.01 + && size (x4) == [1, 10] && x4(1) == 10 && abs (x4(10) - pi) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/matrix/logspace-2.m octave-2.0.5/test/octave.test/matrix/logspace-2.m *** octave-2.0.4/test/octave.test/matrix/logspace-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/logspace-2.m Tue Feb 25 12:31:54 1997 *************** *** 0 **** --- 1 ---- + logspace ([1, 2; 3, 4], 5, 6) diff -cNr octave-2.0.4/test/octave.test/matrix/logspace-3.m octave-2.0.5/test/octave.test/matrix/logspace-3.m *** octave-2.0.4/test/octave.test/matrix/logspace-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/logspace-3.m Tue Feb 25 12:32:31 1997 *************** *** 0 **** --- 1 ---- + logspace () diff -cNr octave-2.0.4/test/octave.test/matrix/logspace-4.m octave-2.0.5/test/octave.test/matrix/logspace-4.m *** octave-2.0.4/test/octave.test/matrix/logspace-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/logspace-4.m Tue Feb 25 12:31:24 1997 *************** *** 0 **** --- 1 ---- + logspace (1, 2, 3, 4) diff -cNr octave-2.0.4/test/octave.test/matrix/matrix.exp octave-2.0.5/test/octave.test/matrix/matrix.exp *** octave-2.0.4/test/octave.test/matrix/matrix.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/matrix.exp Tue Feb 25 17:31:48 1997 *************** *** 0 **** --- 1,359 ---- + set test all-1 + set prog_output "ans = 1" + do_test all-1.m + + set test all-2 + set prog_output "\n... all:.*" + do_test all-2.m + + set test all-3 + set prog_output "\n... all:.*" + do_test all-3.m + + set test any-1 + set prog_output "ans = 1" + do_test any-1.m + + set test any-2 + set prog_output "\n... any:.*" + do_test any-2.m + + set test any-3 + set prog_output "\n... any:.*" + do_test any-3.m + + set test diff-1 + set prog_output "ans = 1" + do_test diff-1.m + + set test diff-2 + set prog_output "error:.*" + do_test diff-2.m + + set test diff-3 + set prog_output "error:.*" + do_test diff-3.m + + set test diff-4 + set prog_output "usage:.*" + do_test diff-4.m + + set test diff-5 + set prog_output "usage:.*" + do_test diff-5.m + + set test find-1 + set prog_output "ans = 1" + do_test find-1.m + + set test find-2 + set prog_output "ans = 1" + do_test find-2.m + + set test find-3 + set prog_output "\n... find:.*" + do_test find-3.m + + set test find-4 + set prog_output "\n... find:.*" + do_test find-4.m + + set test fliplr-1 + set prog_output "ans = 1" + do_test fliplr-1.m + + set test fliplr-2 + set prog_output "usage:.*" + do_test fliplr-2.m + + set test fliplr-3 + set prog_output "usage:.*" + do_test fliplr-3.m + + set test flipud-1 + set prog_output "ans = 1" + do_test flipud-1.m + + set test flipud-2 + set prog_output "usage:.*" + do_test flipud-2.m + + set test flipud-3 + set prog_output "usage:.*" + do_test flipud-3.m + + set test rot90-1 + set prog_output "ans = 1" + do_test rot90-1.m + + set test rot90-2 + set prog_output "usage:.*" + do_test rot90-2.m + + set test rot90-3 + set prog_output "usage:.*" + do_test rot90-3.m + + set test reshape-1 + set prog_output "ans = 1" + do_test reshape-1.m + + set test reshape-2 + set prog_output "error:.*" + do_test reshape-2.m + + set test reshape-3 + set prog_output "usage:.*" + do_test reshape-3.m + + set test reshape-4 + set prog_output "usage:.*" + do_test reshape-4.m + + set test shift-1 + set prog_output "ans = 1" + do_test shift-1.m + + set test shift-2 + set prog_output "usage:.*" + do_test shift-2.m + + set test shift-3 + set prog_output "usage:.*" + do_test shift-3.m + + set test sort-1 + set prog_output "ans = 1" + do_test sort-1.m + + set test sort-2 + set prog_output "\n... sort:.*" + do_test sort-2.m + + set test sort-3 + set prog_output "\n... sort:.*" + do_test sort-3.m + + set test tril-1 + set prog_output "ans = 1" + do_test tril-1.m + + set test tril-2 + set prog_output "usage:.*" + do_test tril-2.m + + set test tril-3 + set prog_output "usage:.*" + do_test tril-3.m + + set test triu-1 + set prog_output "ans = 1" + do_test triu-1.m + + set test triu-2 + set prog_output "usage:.*" + do_test triu-2.m + + set test triu-3 + set prog_output "usage:.*" + do_test triu-3.m + + set test vec-1 + set prog_output "ans = 1" + do_test vec-1.m + + set test vec-2 + set prog_output "usage:.*" + do_test vec-2.m + + set test vec-3 + set prog_output "usage:.*" + do_test vec-3.m + + set test vech-1 + set prog_output "ans = 1" + do_test vech-1.m + + set test vech-2 + set prog_output "usage:.*" + do_test vech-2.m + + set test vech-3 + set prog_output "usage:.*" + do_test vech-3.m + + set test eye-1 + set prog_output "ans = 1" + do_test eye-1.m + + set test eye-2 + set prog_output "\n... eye:.*" + do_test eye-2.m + + set test ones-1 + set prog_output "ans = 1" + do_test ones-1.m + + set test ones-2 + set prog_output "\n... ones:.*" + do_test ones-2.m + + set test zeros-1 + set prog_output "ans = 1" + do_test zeros-1.m + + set test zeros-2 + set prog_output "\n... zeros:.*" + do_test zeros-2.m + + set test rand-1 + set prog_output "ans = 1" + do_test rand-1.m + + set test rand-2 + set prog_output "\n... rand:.*" + do_test rand-2.m + + set test randn-1 + set prog_output "ans = 1" + do_test randn-1.m + + set test randn-2 + set prog_output "\n... randn:.*" + do_test randn-2.m + + set test diag-1 + set prog_output "ans = 1" + do_test diag-1.m + + set test diag-2 + set prog_output "\n... diag:.*" + do_test diag-2.m + + set test diag-3 + set prog_output "\n... diag:.*" + do_test diag-3.m + + set test linspace-1 + set prog_output "ans = 1" + do_test linspace-1.m + + set test linspace-2 + set prog_output "error:.*" + do_test linspace-2.m + + set test linspace-3 + set prog_output "\n... linspace:.*" + do_test linspace-3.m + + set test linspace-4 + set prog_output "\n... linspace:.*" + do_test linspace-4.m + + set test logspace-1 + set prog_output "ans = 1" + do_test logspace-1.m + + set test logspace-2 + set prog_output "error:.*" + do_test logspace-2.m + + set test logspace-3 + set prog_output "usage:.*" + do_test logspace-3.m + + set test logspace-4 + set prog_output "usage:.*" + do_test logspace-4.m + + set test hadamard-1 + set prog_output "ans = 1" + do_test hadamard-1.m + + set test hadamard-2 + set prog_output "error:.*" + do_test hadamard-2.m + + set test hadamard-3 + set prog_output "usage:.*" + do_test hadamard-3.m + + set test hadamard-4 + set prog_output "usage:.*" + do_test hadamard-4.m + + set test hankel-1 + set prog_output "ans = 1" + do_test hankel-1.m + + set test hankel-2 + set prog_output "error:.*" + do_test hankel-2.m + + set test hankel-3 + set prog_output "usage:.*" + do_test hankel-3.m + + set test hankel-4 + set prog_output "usage:.*" + do_test hankel-4.m + + set test hilb-1 + set prog_output "ans = 1" + do_test hilb-1.m + + set test hilb-2 + set prog_output "usage:.*" + do_test hilb-2.m + + set test hilb-3 + set prog_output "usage:.*" + do_test hilb-3.m + + set test invhilb-1 + set prog_output "ans = 1" + do_test invhilb-1.m + + set test invhilb-2 + set prog_output "error:.*" + do_test invhilb-2.m + + set test invhilb-3 + set prog_output "usage:.*" + do_test invhilb-3.m + + set test invhilb-4 + set prog_output "usage:.*" + do_test invhilb-4.m + + set test toeplitz-1 + set prog_output "ans = 1" + do_test toeplitz-1.m + + set test toeplitz-2 + set prog_output "error:.*" + do_test toeplitz-2.m + + set test toeplitz-3 + set prog_output "usage:.*" + do_test toeplitz-3.m + + set test toeplitz-4 + set prog_output "usage:.*" + do_test toeplitz-4.m + + set test vander-1 + set prog_output "ans = 1" + do_test vander-1.m + + set test vander-2 + set prog_output "error:.*" + do_test vander-2.m + + set test vander-3 + set prog_output "usage:.*" + do_test vander-3.m + + set test vander-4 + set prog_output "usage:.*" + do_test vander-4.m diff -cNr octave-2.0.4/test/octave.test/matrix/ones-1.m octave-2.0.5/test/octave.test/matrix/ones-1.m *** octave-2.0.4/test/octave.test/matrix/ones-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/ones-1.m Tue Feb 25 01:31:13 1997 *************** *** 0 **** --- 1,4 ---- + x33 = [1, 1, 1; 1, 1, 1; 1, 1, 1]; + x23 = [1, 1, 1; 1, 1, 1]; + (ones (3) == x33 && ones (size (x33)) == x33 && ones (3, 3) == x33 + && ones (2, 3) == x23 && ones (3, 2) == x23') diff -cNr octave-2.0.4/test/octave.test/matrix/ones-2.m octave-2.0.5/test/octave.test/matrix/ones-2.m *** octave-2.0.4/test/octave.test/matrix/ones-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/ones-2.m Tue Feb 25 01:24:39 1997 *************** *** 0 **** --- 1 ---- + ones (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/rand-1.m octave-2.0.5/test/octave.test/matrix/rand-1.m *** octave-2.0.4/test/octave.test/matrix/rand-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/rand-1.m Tue Feb 25 15:57:34 1997 *************** *** 0 **** --- 1,5 ---- + rand ("seed", 0.5); + r1 = rand (100); + rand ("seed", 0.5); + r2 = rand (100); + rand (100) < 1 && rand (100) > 0 && r1 == r2 diff -cNr octave-2.0.4/test/octave.test/matrix/rand-2.m octave-2.0.5/test/octave.test/matrix/rand-2.m *** octave-2.0.4/test/octave.test/matrix/rand-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/rand-2.m Tue Feb 25 15:53:48 1997 *************** *** 0 **** --- 1 ---- + rand (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/randn-1.m octave-2.0.5/test/octave.test/matrix/randn-1.m *** octave-2.0.4/test/octave.test/matrix/randn-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/randn-1.m Tue Feb 25 16:00:22 1997 *************** *** 0 **** --- 1,5 ---- + randn ("seed", 0.5); + r1 = randn (100); + randn ("seed", 0.5); + r2 = randn (100); + all (all (r1 == r2)) diff -cNr octave-2.0.4/test/octave.test/matrix/randn-2.m octave-2.0.5/test/octave.test/matrix/randn-2.m *** octave-2.0.4/test/octave.test/matrix/randn-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/randn-2.m Tue Feb 25 15:53:55 1997 *************** *** 0 **** --- 1 ---- + randn (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/reshape-1.m octave-2.0.5/test/octave.test/matrix/reshape-1.m *** octave-2.0.4/test/octave.test/matrix/reshape-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/reshape-1.m Tue Feb 25 12:03:51 1997 *************** *** 0 **** --- 1,4 ---- + (size (reshape (rand (4, 4), 2, 8)) == [2, 8] + && size (reshape (rand (4, 4), 8, 2)) == [8, 2] + && size (reshape (rand (15, 4), 1, 60)) == [1, 60] + && size (reshape (rand (15, 4), 60, 1)) == [60, 1]) diff -cNr octave-2.0.4/test/octave.test/matrix/reshape-2.m octave-2.0.5/test/octave.test/matrix/reshape-2.m *** octave-2.0.4/test/octave.test/matrix/reshape-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/reshape-2.m Tue Feb 25 12:02:22 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + reshape (s, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/reshape-3.m octave-2.0.5/test/octave.test/matrix/reshape-3.m *** octave-2.0.4/test/octave.test/matrix/reshape-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/reshape-3.m Tue Feb 25 12:01:31 1997 *************** *** 0 **** --- 1 ---- + reshape () diff -cNr octave-2.0.4/test/octave.test/matrix/reshape-4.m octave-2.0.5/test/octave.test/matrix/reshape-4.m *** octave-2.0.4/test/octave.test/matrix/reshape-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/reshape-4.m Tue Feb 25 12:01:18 1997 *************** *** 0 **** --- 1 ---- + reshape (1, 2, 3, 4) diff -cNr octave-2.0.4/test/octave.test/matrix/rot90-1.m octave-2.0.5/test/octave.test/matrix/rot90-1.m *** octave-2.0.4/test/octave.test/matrix/rot90-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/rot90-1.m Tue Feb 25 01:42:54 1997 *************** *** 0 **** --- 1,11 ---- + x1 = [1, 2; + 3, 4]; + x2 = [2, 4; + 1, 3]; + x3 = [4, 3; + 2, 1]; + x4 = [3, 1; + 4, 2]; + + (rot90 (x1)== x2 && rot90 (x1, 2) == x3 && rot90 (x1, 3) == x4 + && rot90 (x1, 4) == x1 && rot90 (x1, 5) == x2 && rot90 (x1, -1) == x4) diff -cNr octave-2.0.4/test/octave.test/matrix/rot90-2.m octave-2.0.5/test/octave.test/matrix/rot90-2.m *** octave-2.0.4/test/octave.test/matrix/rot90-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/rot90-2.m Tue Feb 25 01:35:42 1997 *************** *** 0 **** --- 1 ---- + rot90 () diff -cNr octave-2.0.4/test/octave.test/matrix/rot90-3.m octave-2.0.5/test/octave.test/matrix/rot90-3.m *** octave-2.0.4/test/octave.test/matrix/rot90-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/rot90-3.m Tue Feb 25 01:46:53 1997 *************** *** 0 **** --- 1 ---- + rot90 (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/shift-1.m octave-2.0.5/test/octave.test/matrix/shift-1.m *** octave-2.0.4/test/octave.test/matrix/shift-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/shift-1.m Tue Feb 25 15:06:04 1997 *************** *** 0 **** --- 1,12 ---- + a = [1, 2, 3]; + b = [4, 5, 6]; + c = [7, 8, 9]; + + r = [a, b, c]; + m = [a; b; c]; + + (shift (r, 3) == [c, a, b] + && shift (r, -6) == [c, a, b] + && shift (r, -3) == [b, c, a] + && shift (m, 1) == [c; a; b] + && shift (m, -2) == [c; a; b]) diff -cNr octave-2.0.4/test/octave.test/matrix/shift-2.m octave-2.0.5/test/octave.test/matrix/shift-2.m *** octave-2.0.4/test/octave.test/matrix/shift-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/shift-2.m Tue Feb 25 15:01:47 1997 *************** *** 0 **** --- 1 ---- + shift () diff -cNr octave-2.0.4/test/octave.test/matrix/shift-3.m octave-2.0.5/test/octave.test/matrix/shift-3.m *** octave-2.0.4/test/octave.test/matrix/shift-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/shift-3.m Tue Feb 25 15:01:57 1997 *************** *** 0 **** --- 1 ---- + shift (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/sort-1.m octave-2.0.5/test/octave.test/matrix/sort-1.m *** octave-2.0.4/test/octave.test/matrix/sort-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/sort-1.m Tue Feb 25 15:52:08 1997 *************** *** 0 **** --- 1,5 ---- + a = [1, 2; 2, 3; 3, 1]; + s = [1, 1; 2, 2; 3, 3]; + i = [1, 3; 2, 1; 3, 2]; + [xs, xi] = sort (a); + sort (a) == s && xs == s && xi == i diff -cNr octave-2.0.4/test/octave.test/matrix/sort-2.m octave-2.0.5/test/octave.test/matrix/sort-2.m *** octave-2.0.4/test/octave.test/matrix/sort-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/sort-2.m Tue Feb 25 15:50:55 1997 *************** *** 0 **** --- 1 ---- + sort () diff -cNr octave-2.0.4/test/octave.test/matrix/sort-3.m octave-2.0.5/test/octave.test/matrix/sort-3.m *** octave-2.0.4/test/octave.test/matrix/sort-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/sort-3.m Tue Feb 25 15:51:05 1997 *************** *** 0 **** --- 1 ---- + sort (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/toeplitz-1.m octave-2.0.5/test/octave.test/matrix/toeplitz-1.m *** octave-2.0.4/test/octave.test/matrix/toeplitz-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/toeplitz-1.m Tue Feb 25 12:15:31 1997 *************** *** 0 **** --- 1,3 ---- + (toeplitz (1) == 1 + && toeplitz ([1, 2, 3], [1; -3; -5]) == [1, -3, -5; 2, 1, -3; 3, 2, 1] + && toeplitz ([1, 2, 3], [1; -3i; -5i]) == [1, -3i, -5i; 2, 1, -3i; 3, 2, 1]) diff -cNr octave-2.0.4/test/octave.test/matrix/toeplitz-2.m octave-2.0.5/test/octave.test/matrix/toeplitz-2.m *** octave-2.0.4/test/octave.test/matrix/toeplitz-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/toeplitz-2.m Tue Feb 25 12:11:29 1997 *************** *** 0 **** --- 1 ---- + toeplitz ([1, 2; 3, 4], 1) diff -cNr octave-2.0.4/test/octave.test/matrix/toeplitz-3.m octave-2.0.5/test/octave.test/matrix/toeplitz-3.m *** octave-2.0.4/test/octave.test/matrix/toeplitz-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/toeplitz-3.m Tue Feb 25 12:11:02 1997 *************** *** 0 **** --- 1 ---- + toeplitz () diff -cNr octave-2.0.4/test/octave.test/matrix/toeplitz-4.m octave-2.0.5/test/octave.test/matrix/toeplitz-4.m *** octave-2.0.4/test/octave.test/matrix/toeplitz-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/toeplitz-4.m Tue Feb 25 12:10:54 1997 *************** *** 0 **** --- 1 ---- + toeplitz (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/tril-1.m octave-2.0.5/test/octave.test/matrix/tril-1.m *** octave-2.0.4/test/octave.test/matrix/tril-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/tril-1.m Tue Feb 25 15:42:54 1997 *************** *** 0 **** --- 1,13 ---- + a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; + + l0 = [1, 0, 0; 4, 5, 0; 7, 8, 9; 10, 11, 12]; + l1 = [1, 2, 0; 4, 5, 6; 7, 8, 9; 10, 11, 12]; + l2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; + lm1 = [0, 0, 0; 4, 0, 0; 7, 8, 0; 10, 11, 12]; + lm2 = [0, 0, 0; 0, 0, 0; 7, 0, 0; 10, 11, 0]; + lm3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 10, 0, 0]; + lm4 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; + + (tril (a, -4) == lm4 && tril (a, -3) == lm3 + && tril (a, -2) == lm2 && tril (a, -1) == lm1 + && tril (a) == l0 && tril (a, 1) == l1 && tril (a, 2) == l2) diff -cNr octave-2.0.4/test/octave.test/matrix/tril-2.m octave-2.0.5/test/octave.test/matrix/tril-2.m *** octave-2.0.4/test/octave.test/matrix/tril-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/tril-2.m Tue Feb 25 15:42:15 1997 *************** *** 0 **** --- 1 ---- + tril () diff -cNr octave-2.0.4/test/octave.test/matrix/tril-3.m octave-2.0.5/test/octave.test/matrix/tril-3.m *** octave-2.0.4/test/octave.test/matrix/tril-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/tril-3.m Tue Feb 25 15:17:59 1997 *************** *** 0 **** --- 1 ---- + tril (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/triu-1.m octave-2.0.5/test/octave.test/matrix/triu-1.m *** octave-2.0.4/test/octave.test/matrix/triu-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/triu-1.m Tue Feb 25 15:43:03 1997 *************** *** 0 **** --- 1,13 ---- + a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; + + u0 = [1, 2, 3; 0, 5, 6; 0, 0, 9; 0, 0, 0]; + u1 = [0, 2, 3; 0, 0, 6; 0, 0, 0; 0, 0, 0]; + u2 = [0, 0, 3; 0, 0, 0; 0, 0, 0; 0, 0, 0]; + u3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; + um1 = [1, 2, 3; 4, 5, 6; 0, 8, 9; 0, 0, 12]; + um2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 0, 11, 12]; + um3 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; + + (triu (a, -3) == um3 && triu (a, -2) == um2 + && triu (a, -1) == um1 && triu (a) == u0 && triu (a, 1) == u1 + && triu (a, 2) == u2 && triu (a, 3) == u3) diff -cNr octave-2.0.4/test/octave.test/matrix/triu-2.m octave-2.0.5/test/octave.test/matrix/triu-2.m *** octave-2.0.4/test/octave.test/matrix/triu-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/triu-2.m Tue Feb 25 15:17:46 1997 *************** *** 0 **** --- 1 ---- + triu () diff -cNr octave-2.0.4/test/octave.test/matrix/triu-3.m octave-2.0.5/test/octave.test/matrix/triu-3.m *** octave-2.0.4/test/octave.test/matrix/triu-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/triu-3.m Tue Feb 25 15:17:38 1997 *************** *** 0 **** --- 1 ---- + triu (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/matrix/vander-1.m octave-2.0.5/test/octave.test/matrix/vander-1.m *** octave-2.0.4/test/octave.test/matrix/vander-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vander-1.m Tue Feb 25 12:13:25 1997 *************** *** 0 **** --- 1,3 ---- + (vander (1) == 1 && vander ([1, 2, 3]) == vander ([1; 2; 3]) + && vander ([1, 2, 3]) == [1, 1, 1; 4, 2, 1; 9, 3, 1] + && vander ([1, 2, 3]*i) == [-1, i, 1; -4, 2i, 1; -9, 3i, 1]) diff -cNr octave-2.0.4/test/octave.test/matrix/vander-2.m octave-2.0.5/test/octave.test/matrix/vander-2.m *** octave-2.0.4/test/octave.test/matrix/vander-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vander-2.m Tue Feb 25 12:08:53 1997 *************** *** 0 **** --- 1 ---- + vander ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/matrix/vander-3.m octave-2.0.5/test/octave.test/matrix/vander-3.m *** octave-2.0.4/test/octave.test/matrix/vander-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vander-3.m Tue Feb 25 12:08:37 1997 *************** *** 0 **** --- 1 ---- + vander () diff -cNr octave-2.0.4/test/octave.test/matrix/vander-4.m octave-2.0.5/test/octave.test/matrix/vander-4.m *** octave-2.0.4/test/octave.test/matrix/vander-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vander-4.m Tue Feb 25 12:08:32 1997 *************** *** 0 **** --- 1 ---- + vander (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/vec-1.m octave-2.0.5/test/octave.test/matrix/vec-1.m *** octave-2.0.4/test/octave.test/matrix/vec-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vec-1.m Tue Feb 25 15:08:17 1997 *************** *** 0 **** --- 1 ---- + vec ([1, 2; 3, 4]) == [1; 3; 2; 4] && vec ([1, 3, 2, 4]) == [1; 3; 2; 4] diff -cNr octave-2.0.4/test/octave.test/matrix/vec-2.m octave-2.0.5/test/octave.test/matrix/vec-2.m *** octave-2.0.4/test/octave.test/matrix/vec-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vec-2.m Tue Feb 25 15:07:39 1997 *************** *** 0 **** --- 1 ---- + vec () diff -cNr octave-2.0.4/test/octave.test/matrix/vec-3.m octave-2.0.5/test/octave.test/matrix/vec-3.m *** octave-2.0.4/test/octave.test/matrix/vec-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vec-3.m Tue Feb 25 15:07:34 1997 *************** *** 0 **** --- 1 ---- + vec (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/vech-1.m octave-2.0.5/test/octave.test/matrix/vech-1.m *** octave-2.0.4/test/octave.test/matrix/vech-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vech-1.m Tue Feb 25 15:11:10 1997 *************** *** 0 **** --- 1 ---- + all (vech ([1, 2, 3; 4, 5, 6; 7, 8, 9]) == [1; 4; 7; 5; 8; 9]) diff -cNr octave-2.0.4/test/octave.test/matrix/vech-2.m octave-2.0.5/test/octave.test/matrix/vech-2.m *** octave-2.0.4/test/octave.test/matrix/vech-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vech-2.m Tue Feb 25 15:08:56 1997 *************** *** 0 **** --- 1 ---- + vech () diff -cNr octave-2.0.4/test/octave.test/matrix/vech-3.m octave-2.0.5/test/octave.test/matrix/vech-3.m *** octave-2.0.4/test/octave.test/matrix/vech-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/vech-3.m Tue Feb 25 15:08:50 1997 *************** *** 0 **** --- 1 ---- + vech (1, 2) diff -cNr octave-2.0.4/test/octave.test/matrix/zeros-1.m octave-2.0.5/test/octave.test/matrix/zeros-1.m *** octave-2.0.4/test/octave.test/matrix/zeros-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/zeros-1.m Tue Feb 25 01:31:39 1997 *************** *** 0 **** --- 1,4 ---- + x33 = [0, 0, 0; 0, 0, 0; 0, 0, 0]; + x23 = [0, 0, 0; 0, 0, 0]; + (zeros (3) == x33 && zeros (size (x33)) == x33 && zeros (3, 3) == x33 + && zeros (2, 3) == x23 && zeros (3, 2) == x23') diff -cNr octave-2.0.4/test/octave.test/matrix/zeros-2.m octave-2.0.5/test/octave.test/matrix/zeros-2.m *** octave-2.0.4/test/octave.test/matrix/zeros-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/matrix/zeros-2.m Tue Feb 25 01:24:49 1997 *************** *** 0 **** --- 1 ---- + zeros (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/nonlin/fsolve-1.m octave-2.0.5/test/octave.test/nonlin/fsolve-1.m *** octave-2.0.4/test/octave.test/nonlin/fsolve-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/fsolve-1.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,45 ---- + x_opt = [ 0.599054; + 2.395931; + 2.005014 ]; + + tol = 1.0e-5; + + function retval = f (p) + + x = p(1); + y = p(2); + z = p(3); + + retval = zeros (3, 1); + + retval(1) = sin(x) + y**2 + log(z) - 7; + retval(2) = 3*x + 2**y -z**3 + 1; + retval(3) = x + y + z - 5; + + end + + [x, info] = fsolve ("f", [ 0.5, 2.0, 2.5 ]); + + val = f (x); + + info_bad = (info != 1); + solution_bad = sum (abs (x - x_opt) > tol); + value_bad = sum (abs (val) > tol); + + if (info_bad) + printf ("info bad\n"); + else + printf ("info good\n"); + endif + + if (solution_bad) + printf ("solution bad\n"); + else + printf ("solution good\n"); + endif + + if (value_bad) + printf ("value bad\n"); + else + printf ("value good\n"); + endif diff -cNr octave-2.0.4/test/octave.test/nonlin/fsolve-2.m octave-2.0.5/test/octave.test/nonlin/fsolve-2.m *** octave-2.0.4/test/octave.test/nonlin/fsolve-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/fsolve-2.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,48 ---- + x_opt = [ -0.767297326653401; + 0.590671081117440; + 1.47190018629642; + -1.52719341133957 ]; + + tol = 1.0e-5; + + function retval = f (p) + + x = p(1); + y = p(2); + z = p(3); + w = p(4); + + retval = zeros (4, 1); + + retval(1) = 3*x + 4*y + exp (z + w) - 1.007; + retval(2) = 6*x - 4*y + exp (3*z + w) - 11; + retval(3) = x^4 - 4*y^2 + 6*z - 8*w - 20; + retval(4) = x^2 + 2*y^3 + z - w - 4; + + end + + [x, info] = fsolve ("f", [-1, 1, 2, -1]); + + val = f (x); + + info_bad = (info != 1); + solution_bad = sum (abs (x - x_opt) > tol); + value_bad = sum (abs (val) > tol); + + if (info_bad) + printf ("info bad\n"); + else + printf ("info good\n"); + endif + + if (solution_bad) + printf ("solution bad\n"); + else + printf ("solution good\n"); + endif + + if (value_bad) + printf ("value bad\n"); + else + printf ("value good\n"); + endif diff -cNr octave-2.0.4/test/octave.test/nonlin/fsolve_options-1.m octave-2.0.5/test/octave.test/nonlin/fsolve_options-1.m *** octave-2.0.4/test/octave.test/nonlin/fsolve_options-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/fsolve_options-1.m Wed Feb 26 01:05:55 1997 *************** *** 0 **** --- 1,2 ---- + fsolve_options ("tolerance", eps); + fsolve_options ("tolerance") == eps diff -cNr octave-2.0.4/test/octave.test/nonlin/fsolve_options-2.m octave-2.0.5/test/octave.test/nonlin/fsolve_options-2.m *** octave-2.0.4/test/octave.test/nonlin/fsolve_options-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/fsolve_options-2.m Wed Feb 26 01:04:45 1997 *************** *** 0 **** --- 1 ---- + fsolve_options () diff -cNr octave-2.0.4/test/octave.test/nonlin/fsolve_options-3.m octave-2.0.5/test/octave.test/nonlin/fsolve_options-3.m *** octave-2.0.4/test/octave.test/nonlin/fsolve_options-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/fsolve_options-3.m Wed Feb 26 01:05:10 1997 *************** *** 0 **** --- 1 ---- + fsolve_options ("foo", 1, 2) diff -cNr octave-2.0.4/test/octave.test/nonlin/nonlin.exp octave-2.0.5/test/octave.test/nonlin/nonlin.exp *** octave-2.0.4/test/octave.test/nonlin/nonlin.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/nonlin/nonlin.exp Wed Feb 26 17:30:42 1997 *************** *** 0 **** --- 1,19 ---- + set test fsolve-1 + set prog_output "info good\nsolution good\nvalue good" + do_test fsolve-1.m + + set test fsolve-2 + set prog_output "info good\nsolution good\nvalue good" + do_test fsolve-2.m + + set test fsolve_options-1 + set prog_output "ans = 1" + do_test fsolve_options-1.m + + set test fsolve_options-2 + set prog_output "\n... fsolve_options:.*" + do_test fsolve_options-2.m + + set test fsolve_options-3 + set prog_output "\n... fsolve_options:.*" + do_test fsolve_options-3.m diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-1.m octave-2.0.5/test/octave.test/number/is_matrix-1.m *** octave-2.0.4/test/octave.test/number/is_matrix-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-1.m Sat Feb 22 15:38:21 1997 *************** *** 0 **** --- 1 ---- + is_matrix (1) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-10.m octave-2.0.5/test/octave.test/number/is_matrix-10.m *** octave-2.0.4/test/octave.test/number/is_matrix-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-10.m Sat Feb 22 15:45:41 1997 *************** *** 0 **** --- 1 ---- + is_matrix ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-2.m octave-2.0.5/test/octave.test/number/is_matrix-2.m *** octave-2.0.4/test/octave.test/number/is_matrix-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-2.m Sat Feb 22 15:38:59 1997 *************** *** 0 **** --- 1 ---- + is_matrix ([1, 2, 3]) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-3.m octave-2.0.5/test/octave.test/number/is_matrix-3.m *** octave-2.0.4/test/octave.test/number/is_matrix-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-3.m Wed Feb 26 17:32:18 1997 *************** *** 0 **** --- 1,3 ---- + ## Yes, this is right, is_matrix() checks for non-empty matrices. + + is_matrix ([]) == 0 diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-4.m octave-2.0.5/test/octave.test/number/is_matrix-4.m *** octave-2.0.4/test/octave.test/number/is_matrix-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-4.m Sat Feb 22 15:40:28 1997 *************** *** 0 **** --- 1 ---- + is_matrix ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-5.m octave-2.0.5/test/octave.test/number/is_matrix-5.m *** octave-2.0.4/test/octave.test/number/is_matrix-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-5.m Sat Feb 22 15:40:47 1997 *************** *** 0 **** --- 1 ---- + is_matrix ("t") diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-6.m octave-2.0.5/test/octave.test/number/is_matrix-6.m *** octave-2.0.4/test/octave.test/number/is_matrix-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-6.m Sat Feb 22 15:41:11 1997 *************** *** 0 **** --- 1 ---- + is_matrix ("test") diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-7.m octave-2.0.5/test/octave.test/number/is_matrix-7.m *** octave-2.0.4/test/octave.test/number/is_matrix-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-7.m Sat Feb 22 15:49:38 1997 *************** *** 0 **** --- 1 ---- + is_matrix (["test"; "ing"]) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-8.m octave-2.0.5/test/octave.test/number/is_matrix-8.m *** octave-2.0.4/test/octave.test/number/is_matrix-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-8.m Sat Feb 22 15:41:26 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_matrix (s) diff -cNr octave-2.0.4/test/octave.test/number/is_matrix-9.m octave-2.0.5/test/octave.test/number/is_matrix-9.m *** octave-2.0.4/test/octave.test/number/is_matrix-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_matrix-9.m Sat Feb 22 15:41:51 1997 *************** *** 0 **** --- 1 ---- + is_matrix () diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-1.m octave-2.0.5/test/octave.test/number/is_scalar-1.m *** octave-2.0.4/test/octave.test/number/is_scalar-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-1.m Sat Feb 22 15:45:56 1997 *************** *** 0 **** --- 1 ---- + is_scalar (1) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-10.m octave-2.0.5/test/octave.test/number/is_scalar-10.m *** octave-2.0.4/test/octave.test/number/is_scalar-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-10.m Sat Feb 22 15:59:51 1997 *************** *** 0 **** --- 1 ---- + is_scalar (1, 2) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-2.m octave-2.0.5/test/octave.test/number/is_scalar-2.m *** octave-2.0.4/test/octave.test/number/is_scalar-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-2.m Sat Feb 22 15:46:06 1997 *************** *** 0 **** --- 1 ---- + is_scalar ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-3.m octave-2.0.5/test/octave.test/number/is_scalar-3.m *** octave-2.0.4/test/octave.test/number/is_scalar-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-3.m Sat Feb 22 15:46:22 1997 *************** *** 0 **** --- 1 ---- + is_scalar ([]) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-4.m octave-2.0.5/test/octave.test/number/is_scalar-4.m *** octave-2.0.4/test/octave.test/number/is_scalar-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-4.m Sat Feb 22 15:46:33 1997 *************** *** 0 **** --- 1 ---- + is_scalar ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-5.m octave-2.0.5/test/octave.test/number/is_scalar-5.m *** octave-2.0.4/test/octave.test/number/is_scalar-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-5.m Sat Feb 22 15:46:40 1997 *************** *** 0 **** --- 1 ---- + is_scalar ("t") diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-6.m octave-2.0.5/test/octave.test/number/is_scalar-6.m *** octave-2.0.4/test/octave.test/number/is_scalar-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-6.m Sat Feb 22 15:46:49 1997 *************** *** 0 **** --- 1 ---- + is_scalar ("test") diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-7.m octave-2.0.5/test/octave.test/number/is_scalar-7.m *** octave-2.0.4/test/octave.test/number/is_scalar-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-7.m Sat Feb 22 15:47:24 1997 *************** *** 0 **** --- 1 ---- + is_scalar (["test"; "ing"]) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-8.m octave-2.0.5/test/octave.test/number/is_scalar-8.m *** octave-2.0.4/test/octave.test/number/is_scalar-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-8.m Sat Feb 22 15:47:40 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_scalar (s) diff -cNr octave-2.0.4/test/octave.test/number/is_scalar-9.m octave-2.0.5/test/octave.test/number/is_scalar-9.m *** octave-2.0.4/test/octave.test/number/is_scalar-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_scalar-9.m Sat Feb 22 15:59:41 1997 *************** *** 0 **** --- 1 ---- + is_scalar () diff -cNr octave-2.0.4/test/octave.test/number/is_square-1.m octave-2.0.5/test/octave.test/number/is_square-1.m *** octave-2.0.4/test/octave.test/number/is_square-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-1.m Sat Feb 22 15:50:34 1997 *************** *** 0 **** --- 1 ---- + is_square (1) diff -cNr octave-2.0.4/test/octave.test/number/is_square-10.m octave-2.0.5/test/octave.test/number/is_square-10.m *** octave-2.0.4/test/octave.test/number/is_square-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-10.m Sat Feb 22 15:52:39 1997 *************** *** 0 **** --- 1 ---- + is_square () diff -cNr octave-2.0.4/test/octave.test/number/is_square-11.m octave-2.0.5/test/octave.test/number/is_square-11.m *** octave-2.0.4/test/octave.test/number/is_square-11.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-11.m Sat Feb 22 15:53:04 1997 *************** *** 0 **** --- 1 ---- + is_square ([1, 2; 3, 4], 2) diff -cNr octave-2.0.4/test/octave.test/number/is_square-2.m octave-2.0.5/test/octave.test/number/is_square-2.m *** octave-2.0.4/test/octave.test/number/is_square-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-2.m Sat Feb 22 15:50:43 1997 *************** *** 0 **** --- 1 ---- + is_square ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/number/is_square-3.m octave-2.0.5/test/octave.test/number/is_square-3.m *** octave-2.0.4/test/octave.test/number/is_square-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-3.m Sat Feb 22 15:50:50 1997 *************** *** 0 **** --- 1 ---- + is_square ([]) diff -cNr octave-2.0.4/test/octave.test/number/is_square-4.m octave-2.0.5/test/octave.test/number/is_square-4.m *** octave-2.0.4/test/octave.test/number/is_square-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-4.m Sat Feb 22 16:00:57 1997 *************** *** 0 **** --- 1 ---- + is_square ([1, 2; 3, 4]) == 2 diff -cNr octave-2.0.4/test/octave.test/number/is_square-5.m octave-2.0.5/test/octave.test/number/is_square-5.m *** octave-2.0.4/test/octave.test/number/is_square-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-5.m Sat Feb 22 15:51:22 1997 *************** *** 0 **** --- 1 ---- + is_square ("t") diff -cNr octave-2.0.4/test/octave.test/number/is_square-6.m octave-2.0.5/test/octave.test/number/is_square-6.m *** octave-2.0.4/test/octave.test/number/is_square-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-6.m Sat Feb 22 15:51:31 1997 *************** *** 0 **** --- 1 ---- + is_square ("test") diff -cNr octave-2.0.4/test/octave.test/number/is_square-7.m octave-2.0.5/test/octave.test/number/is_square-7.m *** octave-2.0.4/test/octave.test/number/is_square-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-7.m Sat Feb 22 16:08:23 1997 *************** *** 0 **** --- 1 ---- + is_square (["test"; "ing"; "1"; "2"]) == 4 diff -cNr octave-2.0.4/test/octave.test/number/is_square-8.m octave-2.0.5/test/octave.test/number/is_square-8.m *** octave-2.0.4/test/octave.test/number/is_square-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-8.m Sat Feb 22 15:52:13 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_square (s) diff -cNr octave-2.0.4/test/octave.test/number/is_square-9.m octave-2.0.5/test/octave.test/number/is_square-9.m *** octave-2.0.4/test/octave.test/number/is_square-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_square-9.m Sat Feb 22 15:52:24 1997 *************** *** 0 **** --- 1 ---- + is_square ([1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-1.m octave-2.0.5/test/octave.test/number/is_symmetric-1.m *** octave-2.0.4/test/octave.test/number/is_symmetric-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-1.m Sat Feb 22 15:53:36 1997 *************** *** 0 **** --- 1 ---- + is_symmetric (1) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-10.m octave-2.0.5/test/octave.test/number/is_symmetric-10.m *** octave-2.0.4/test/octave.test/number/is_symmetric-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-10.m Sat Feb 22 15:55:48 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ([1, 2; 2, 1], 0, 0) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-11.m octave-2.0.5/test/octave.test/number/is_symmetric-11.m *** octave-2.0.4/test/octave.test/number/is_symmetric-11.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-11.m Sat Feb 22 15:55:54 1997 *************** *** 0 **** --- 1 ---- + is_symmetric () diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-2.m octave-2.0.5/test/octave.test/number/is_symmetric-2.m *** octave-2.0.4/test/octave.test/number/is_symmetric-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-2.m Sat Feb 22 15:53:45 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-3.m octave-2.0.5/test/octave.test/number/is_symmetric-3.m *** octave-2.0.4/test/octave.test/number/is_symmetric-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-3.m Sat Feb 22 15:54:02 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ([]) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-4.m octave-2.0.5/test/octave.test/number/is_symmetric-4.m *** octave-2.0.4/test/octave.test/number/is_symmetric-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-4.m Sat Feb 22 16:03:49 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ([1, 2; 2, 1]) == 2 diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-5.m octave-2.0.5/test/octave.test/number/is_symmetric-5.m *** octave-2.0.4/test/octave.test/number/is_symmetric-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-5.m Sat Feb 22 15:54:24 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ("t") diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-6.m octave-2.0.5/test/octave.test/number/is_symmetric-6.m *** octave-2.0.4/test/octave.test/number/is_symmetric-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-6.m Sat Feb 22 15:54:36 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ("test") diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-7.m octave-2.0.5/test/octave.test/number/is_symmetric-7.m *** octave-2.0.4/test/octave.test/number/is_symmetric-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-7.m Sat Feb 22 16:18:08 1997 *************** *** 0 **** --- 1 ---- + is_symmetric (["te"; "et"]) == 2 diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-8.m octave-2.0.5/test/octave.test/number/is_symmetric-8.m *** octave-2.0.4/test/octave.test/number/is_symmetric-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-8.m Sat Feb 22 15:55:13 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_symmetric (s) diff -cNr octave-2.0.4/test/octave.test/number/is_symmetric-9.m octave-2.0.5/test/octave.test/number/is_symmetric-9.m *** octave-2.0.4/test/octave.test/number/is_symmetric-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_symmetric-9.m Sat Feb 22 16:18:02 1997 *************** *** 0 **** --- 1 ---- + is_symmetric ([1, 2.1; 2, 1.1], 0.2) == 2 diff -cNr octave-2.0.4/test/octave.test/number/is_vector-1.m octave-2.0.5/test/octave.test/number/is_vector-1.m *** octave-2.0.4/test/octave.test/number/is_vector-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-1.m Sat Feb 22 15:41:37 1997 *************** *** 0 **** --- 1 ---- + is_vector (1) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-10.m octave-2.0.5/test/octave.test/number/is_vector-10.m *** octave-2.0.4/test/octave.test/number/is_vector-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-10.m Sat Mar 1 15:53:15 1997 *************** *** 0 **** --- 1 ---- + is_vector ([1, 2], 2) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-2.m octave-2.0.5/test/octave.test/number/is_vector-2.m *** octave-2.0.4/test/octave.test/number/is_vector-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-2.m Sat Feb 22 15:42:27 1997 *************** *** 0 **** --- 1 ---- + is_vector ([1; 2; 3]) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-3.m octave-2.0.5/test/octave.test/number/is_vector-3.m *** octave-2.0.4/test/octave.test/number/is_vector-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-3.m Sat Feb 22 15:42:55 1997 *************** *** 0 **** --- 1 ---- + is_vector ([]) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-4.m octave-2.0.5/test/octave.test/number/is_vector-4.m *** octave-2.0.4/test/octave.test/number/is_vector-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-4.m Sat Feb 22 15:43:21 1997 *************** *** 0 **** --- 1 ---- + is_vector ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-5.m octave-2.0.5/test/octave.test/number/is_vector-5.m *** octave-2.0.4/test/octave.test/number/is_vector-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-5.m Sat Feb 22 15:43:33 1997 *************** *** 0 **** --- 1 ---- + is_vector ("t") diff -cNr octave-2.0.4/test/octave.test/number/is_vector-6.m octave-2.0.5/test/octave.test/number/is_vector-6.m *** octave-2.0.4/test/octave.test/number/is_vector-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-6.m Sat Feb 22 15:43:46 1997 *************** *** 0 **** --- 1 ---- + is_vector ("test") diff -cNr octave-2.0.4/test/octave.test/number/is_vector-7.m octave-2.0.5/test/octave.test/number/is_vector-7.m *** octave-2.0.4/test/octave.test/number/is_vector-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-7.m Sat Feb 22 15:44:24 1997 *************** *** 0 **** --- 1 ---- + is_vector (["test"; "ing"]) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-8.m octave-2.0.5/test/octave.test/number/is_vector-8.m *** octave-2.0.4/test/octave.test/number/is_vector-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-8.m Sat Feb 22 15:44:47 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_vector (s) diff -cNr octave-2.0.4/test/octave.test/number/is_vector-9.m octave-2.0.5/test/octave.test/number/is_vector-9.m *** octave-2.0.4/test/octave.test/number/is_vector-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/is_vector-9.m Sat Feb 22 15:44:57 1997 *************** *** 0 **** --- 1 ---- + is_vector () diff -cNr octave-2.0.4/test/octave.test/number/number.exp octave-2.0.5/test/octave.test/number/number.exp *** octave-2.0.4/test/octave.test/number/number.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/number/number.exp Sat Feb 22 16:18:12 1997 *************** *** 0 **** --- 1,207 ---- + set test is_matrix-1 + set prog_output "ans = 1" + do_test is_matrix-1.m + + set test is_matrix-2 + set prog_output "ans = 1" + do_test is_matrix-2.m + + set test is_matrix-3 + set prog_output "ans = 1" + do_test is_matrix-3.m + + set test is_matrix-4 + set prog_output "ans = 1" + do_test is_matrix-4.m + + set test is_matrix-5 + set prog_output "ans = 1" + do_test is_matrix-5.m + + set test is_matrix-6 + set prog_output "ans = 1" + do_test is_matrix-6.m + + set test is_matrix-7 + set prog_output "ans = 1" + do_test is_matrix-7.m + + set test is_matrix-8 + set prog_output "ans = 0" + do_test is_matrix-8.m + + set test is_matrix-9 + set prog_output "error:.*" + do_test is_matrix-9.m + + set test is_matrix-10 + set prog_output "error:.*" + do_test is_matrix-10.m + + set test is_vector-1 + set prog_output "ans = 1" + do_test is_vector-1.m + + set test is_vector-2 + set prog_output "ans = 1" + do_test is_vector-2.m + + set test is_vector-3 + set prog_output "ans = 0" + do_test is_vector-3.m + + set test is_vector-4 + set prog_output "ans = 0" + do_test is_vector-4.m + + set test is_vector-5 + set prog_output "ans = 1" + do_test is_vector-5.m + + set test is_vector-6 + set prog_output "ans = 1" + do_test is_vector-6.m + + set test is_vector-7 + set prog_output "ans = 0" + do_test is_vector-7.m + + set test is_vector-8 + set prog_output "ans = 0" + do_test is_vector-8.m + + set test is_vector-9 + set prog_output "error:.*" + do_test is_vector-9.m + + set test is_vector-10 + set prog_output "error:.*" + do_test is_vector-10.m + + set test is_scalar-1 + set prog_output "ans = 1" + do_test is_scalar-1.m + + set test is_scalar-2 + set prog_output "ans = 0" + do_test is_scalar-2.m + + set test is_scalar-3 + set prog_output "ans = 0" + do_test is_scalar-3.m + + set test is_scalar-4 + set prog_output "ans = 0" + do_test is_scalar-4.m + + set test is_scalar-5 + set prog_output "ans = 1" + do_test is_scalar-5.m + + set test is_scalar-6 + set prog_output "ans = 0" + do_test is_scalar-6.m + + set test is_scalar-7 + set prog_output "ans = 0" + do_test is_scalar-7.m + + set test is_scalar-8 + set prog_output "ans = 0" + do_test is_scalar-8.m + + set test is_scalar-9 + set prog_output "error:.*" + do_test is_scalar-9.m + + set test is_scalar-10 + set prog_output "error:.*" + do_test is_scalar-10.m + + set test is_square-1 + set prog_output "ans = 1" + do_test is_square-1.m + + set test is_square-2 + set prog_output "ans = 0" + do_test is_square-2.m + + set test is_square-3 + set prog_output "ans = 0" + do_test is_square-3.m + + set test is_square-4 + set prog_output "ans = 1" + do_test is_square-4.m + + set test is_square-5 + set prog_output "ans = 1" + do_test is_square-5.m + + set test is_square-6 + set prog_output "ans = 0" + do_test is_square-6.m + + set test is_square-7 + set prog_output "ans = 1" + do_test is_square-7.m + + set test is_square-8 + set prog_output "ans = 0" + do_test is_square-8.m + + set test is_square-9 + set prog_output "ans = 0" + do_test is_square-9.m + + set test is_square-10 + set prog_output "error:.*" + do_test is_square-10.m + + set test is_square-11 + set prog_output "error:.*" + do_test is_square-11.m + + set test is_symmetric-1 + set prog_output "ans = 1" + do_test is_symmetric-1.m + + set test is_symmetric-2 + set prog_output "ans = 0" + do_test is_symmetric-2.m + + set test is_symmetric-3 + set prog_output "ans = 0" + do_test is_symmetric-3.m + + set test is_symmetric-4 + set prog_output "ans = 1" + do_test is_symmetric-4.m + + set test is_symmetric-5 + set prog_output "ans = 1" + do_test is_symmetric-5.m + + set test is_symmetric-6 + set prog_output "ans = 0" + do_test is_symmetric-6.m + + set test is_symmetric-7 + set prog_output "ans = 1" + do_test is_symmetric-7.m + + set test is_symmetric-8 + set prog_output "ans = 0" + do_test is_symmetric-8.m + + set test is_symmetric-9 + set prog_output "ans = 1" + do_test is_symmetric-9.m + + set test is_symmetric-10 + set prog_output "error:.*" + do_test is_symmetric-10.m + + set test is_symmetric-11 + set prog_output "error:.*" + do_test is_symmetric-11.m diff -cNr octave-2.0.4/test/octave.test/optim/optim.exp octave-2.0.5/test/octave.test/optim/optim.exp *** octave-2.0.4/test/octave.test/optim/optim.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/optim/optim.exp Wed Feb 26 01:02:49 1997 *************** *** 0 **** --- 1,4 ---- + ## The following functions need to have tests written for them: + + # gls + # ols diff -cNr octave-2.0.4/test/octave.test/plot/plot.exp octave-2.0.5/test/octave.test/plot/plot.exp *** octave-2.0.4/test/octave.test/plot/plot.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/plot/plot.exp Wed Feb 26 01:07:03 1997 *************** *** 0 **** --- 1,6 ---- + ## The following functions need to have tests written for them: + + # bar + # hist + # stairs + # meshgrid diff -cNr octave-2.0.4/test/octave.test/poly/compan-1.m octave-2.0.5/test/octave.test/poly/compan-1.m *** octave-2.0.4/test/octave.test/poly/compan-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-1.m Sat Feb 22 01:10:58 1997 *************** *** 0 **** --- 1 ---- + all (all (compan ([1, 2, 3]) == [-2, -3; 1, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/compan-2.m octave-2.0.5/test/octave.test/poly/compan-2.m *** octave-2.0.4/test/octave.test/poly/compan-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-2.m Sat Feb 22 01:11:44 1997 *************** *** 0 **** --- 1 ---- + all (all (compan ([1; 2; 3]) == [-2, -3; 1, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/compan-3.m octave-2.0.5/test/octave.test/poly/compan-3.m *** octave-2.0.4/test/octave.test/poly/compan-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-3.m Sat Feb 22 01:13:46 1997 *************** *** 0 **** --- 1 ---- + isempty (compan (4)) diff -cNr octave-2.0.4/test/octave.test/poly/compan-4.m octave-2.0.5/test/octave.test/poly/compan-4.m *** octave-2.0.4/test/octave.test/poly/compan-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-4.m Sat Feb 22 01:57:31 1997 *************** *** 0 **** --- 1 ---- + all (all (compan ([3, 2, 1]) == [-2/3, -1/3; 1, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/compan-5.m octave-2.0.5/test/octave.test/poly/compan-5.m *** octave-2.0.4/test/octave.test/poly/compan-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-5.m Sat Feb 22 01:15:23 1997 *************** *** 0 **** --- 1 ---- + compan ([1,2;3,4]) diff -cNr octave-2.0.4/test/octave.test/poly/compan-6.m octave-2.0.5/test/octave.test/poly/compan-6.m *** octave-2.0.4/test/octave.test/poly/compan-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/compan-6.m Sat Feb 22 01:15:33 1997 *************** *** 0 **** --- 1 ---- + compan ([]) diff -cNr octave-2.0.4/test/octave.test/poly/conv-1.m octave-2.0.5/test/octave.test/poly/conv-1.m *** octave-2.0.4/test/octave.test/poly/conv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-1.m Sat Feb 22 01:19:41 1997 *************** *** 0 **** --- 1 ---- + all (all (conv (ones (3, 1), ones (3, 1)) == [1, 2, 3, 2, 1])) diff -cNr octave-2.0.4/test/octave.test/poly/conv-2.m octave-2.0.5/test/octave.test/poly/conv-2.m *** octave-2.0.4/test/octave.test/poly/conv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-2.m Sat Feb 22 01:20:13 1997 *************** *** 0 **** --- 1 ---- + all (all (conv (ones (1, 3), ones (3, 1)) == [1, 2, 3, 2, 1])) diff -cNr octave-2.0.4/test/octave.test/poly/conv-3.m octave-2.0.5/test/octave.test/poly/conv-3.m *** octave-2.0.4/test/octave.test/poly/conv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-3.m Sat Feb 22 01:21:23 1997 *************** *** 0 **** --- 1 ---- + all (all (conv (3, [1, 2, 3]) == [3, 6, 9])) diff -cNr octave-2.0.4/test/octave.test/poly/conv-4.m octave-2.0.5/test/octave.test/poly/conv-4.m *** octave-2.0.4/test/octave.test/poly/conv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-4.m Sat Feb 22 01:21:58 1997 *************** *** 0 **** --- 1 ---- + conv ([1, 2; 3, 4], 3) diff -cNr octave-2.0.4/test/octave.test/poly/conv-5.m octave-2.0.5/test/octave.test/poly/conv-5.m *** octave-2.0.4/test/octave.test/poly/conv-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-5.m Sat Feb 22 01:22:16 1997 *************** *** 0 **** --- 1 ---- + conv (2, 3) diff -cNr octave-2.0.4/test/octave.test/poly/conv-6.m octave-2.0.5/test/octave.test/poly/conv-6.m *** octave-2.0.4/test/octave.test/poly/conv-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/conv-6.m Sat Feb 22 01:22:53 1997 *************** *** 0 **** --- 1 ---- + conv (2, []) diff -cNr octave-2.0.4/test/octave.test/poly/deconv-1.m octave-2.0.5/test/octave.test/poly/deconv-1.m *** octave-2.0.4/test/octave.test/poly/deconv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/deconv-1.m Sat Feb 22 01:30:17 1997 *************** *** 0 **** --- 1,2 ---- + [b, r] = deconv ([3, 6, 9, 9], [1, 2, 3]); + all (all (b == [3, 0])) && r == 9 diff -cNr octave-2.0.4/test/octave.test/poly/deconv-2.m octave-2.0.5/test/octave.test/poly/deconv-2.m *** octave-2.0.4/test/octave.test/poly/deconv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/deconv-2.m Sat Feb 22 01:30:27 1997 *************** *** 0 **** --- 1,2 ---- + [b, r] = deconv ([3, 6], [1, 2, 3]); + b == 0 && all (all (r == [3, 6])) diff -cNr octave-2.0.4/test/octave.test/poly/deconv-3.m octave-2.0.5/test/octave.test/poly/deconv-3.m *** octave-2.0.4/test/octave.test/poly/deconv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/deconv-3.m Sat Feb 22 01:30:39 1997 *************** *** 0 **** --- 1,2 ---- + [b, r] = deconv ([3, 6], [1; 2; 3]); + b == 0 && all (all (r == [3, 6])) diff -cNr octave-2.0.4/test/octave.test/poly/deconv-4.m octave-2.0.5/test/octave.test/poly/deconv-4.m *** octave-2.0.4/test/octave.test/poly/deconv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/deconv-4.m Sat Feb 22 01:29:44 1997 *************** *** 0 **** --- 1 ---- + [b, r] = deconv ([3, 6], [1, 2; 3, 4]); diff -cNr octave-2.0.4/test/octave.test/poly/deconv-5.m octave-2.0.5/test/octave.test/poly/deconv-5.m *** octave-2.0.4/test/octave.test/poly/deconv-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/deconv-5.m Sat Feb 22 01:31:17 1997 *************** *** 0 **** --- 1,2 ---- + [b, r] = deconv ([3; 6], [1, 2, 3]); + b == 0 && all (all (r == [3, 6])) diff -cNr octave-2.0.4/test/octave.test/poly/poly-1.m octave-2.0.5/test/octave.test/poly/poly-1.m *** octave-2.0.4/test/octave.test/poly/poly-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/poly-1.m Sat Feb 22 01:37:52 1997 *************** *** 0 **** --- 1 ---- + all (all (poly ([1, 2, 3]) == [1, -6, 11, -6])) diff -cNr octave-2.0.4/test/octave.test/poly/poly-2.m octave-2.0.5/test/octave.test/poly/poly-2.m *** octave-2.0.4/test/octave.test/poly/poly-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/poly-2.m Sat Feb 22 01:35:10 1997 *************** *** 0 **** --- 1 ---- + all (all (poly ([1, 2; 3, 4]) - [1, -5, -2] < 2 * eps)) diff -cNr octave-2.0.4/test/octave.test/poly/poly-3.m octave-2.0.5/test/octave.test/poly/poly-3.m *** octave-2.0.4/test/octave.test/poly/poly-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/poly-3.m Sat Feb 22 01:36:31 1997 *************** *** 0 **** --- 1 ---- + poly ([1, 2, 3; 4, 5, 6]) diff -cNr octave-2.0.4/test/octave.test/poly/poly-4.m octave-2.0.5/test/octave.test/poly/poly-4.m *** octave-2.0.4/test/octave.test/poly/poly-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/poly-4.m Sat Feb 22 01:37:58 1997 *************** *** 0 **** --- 1 ---- + poly ([]) diff -cNr octave-2.0.4/test/octave.test/poly/poly.exp octave-2.0.5/test/octave.test/poly/poly.exp *** octave-2.0.4/test/octave.test/poly/poly.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/poly.exp Sat Feb 22 02:28:35 1997 *************** *** 0 **** --- 1,203 ---- + set test compan-1 + set prog_output "ans = 1" + do_test compan-1.m + + set test compan-2 + set prog_output "ans = 1" + do_test compan-2.m + + set test compan-3 + set prog_output "ans = 1" + do_test compan-3.m + + set test compan-4 + set prog_output "ans = 1" + do_test compan-4.m + + set test compan-5 + set prog_output "error:.*" + do_test compan-5.m + + set test compan-6 + set prog_output "error:.*" + do_test compan-6.m + + set test conv-1 + set prog_output "ans = 1" + do_test conv-1.m + + set test conv-2 + set prog_output "ans = 1" + do_test conv-2.m + + set test conv-3 + set prog_output "ans = 1" + do_test conv-3.m + + set test conv-4 + set prog_output "error:.*" + do_test conv-4.m + + set test conv-5 + set prog_output "ans = 6" + do_test conv-5.m + + set test conv-6 + set prog_output "error:.*" + do_test conv-6.m + + set test deconv-1 + set prog_output "ans = 1" + do_test deconv-1.m + + set test deconv-2 + set prog_output "ans = 1" + do_test deconv-2.m + + set test deconv-3 + set prog_output "ans = 1" + do_test deconv-3.m + + set test deconv-4 + set prog_output "error:.*" + do_test deconv-4.m + + set test deconv-5 + set prog_output "error:.*" + do_test deconv-5.m + + set test poly-1 + set prog_output "ans = 1" + do_test poly-1.m + + set test poly-2 + set prog_output "ans = 1" + do_test poly-2.m + + set test poly-3 + set prog_output "error:.*" + do_test poly-3.m + + set test poly-4 + set prog_output "ans = 1" + do_test poly-4.m + + set test polyderiv-1 + set prog_output "ans = 1" + do_test polyderiv-1.m + + set test polyderiv-2 + set prog_output "ans = 1" + do_test polyderiv-2.m + + set test polyderiv-3 + set prog_output "error:.*" + do_test polyderiv-3.m + + set test polyderiv-4 + set prog_output "error:.*" + do_test polyderiv-4.m + + set test polyfit-1 + set prog_output "ans = 1" + do_test polyfit-1.m + + set test polyfit-2 + set prog_output "ans = 1" + do_test polyfit-2.m + + set test polyfit-3 + set prog_output "error:.*" + do_test polyfit-3.m + + set test polyfit-4 + set prog_output "error:.*" + do_test polyfit-4.m + + set test polyfit-5 + set prog_output "error:.*" + do_test polyfit-5.m + + set test polyinteg-1 + set prog_output "ans = 1" + do_test polyinteg-1.m + + set test polyinteg-2 + set prog_output "ans = 1" + do_test polyinteg-2.m + + set test polyinteg-3 + set prog_output "ans = 1" + do_test polyinteg-3.m + + set test polyinteg-4 + set prog_output "error:.*" + do_test polyinteg-4.m + + set test polyreduce-1 + set prog_output "ans = 1" + do_test polyreduce-1.m + + set test polyreduce-2 + set prog_output "ans = 1" + do_test polyreduce-2.m + + set test polyreduce-3 + set prog_output "ans = 1" + do_test polyreduce-3.m + + set test polyreduce-4 + set prog_output "ans = 1" + do_test polyreduce-4.m + + set test polyreduce-5 + set prog_output "error:.*" + do_test polyreduce-5.m + + set test polyval-1 + set prog_output "ans = 1" + do_test polyval-1.m + + set test polyval-2 + set prog_output "ans = 1" + do_test polyval-2.m + + set test polyval-3 + set prog_output "ans = 1" + do_test polyval-3.m + + set test polyval-4 + set prog_output "ans = 1" + do_test polyval-4.m + + set test polyval-5 + set prog_output "error:.*" + do_test polyval-5.m + + set test polyval-6 + set prog_output "ans = 1" + do_test polyval-6.m + + set test polyvalm-1 + set prog_output "ans = 1" + do_test polyvalm-1.m + + set test polyvalm-2 + set prog_output "error:.*" + do_test polyvalm-2.m + + set test residue-1 + set prog_output "ans = 1" + do_test residue-1.m + + set test roots-1 + set prog_output "ans = 1" + do_test roots-1.m + + set test roots-2 + set prog_output "ans = 1" + do_test roots-2.m + + set test roots-3 + set prog_output "error:.*" + do_test roots-3.m diff -cNr octave-2.0.4/test/octave.test/poly/polyderiv-1.m octave-2.0.5/test/octave.test/poly/polyderiv-1.m *** octave-2.0.4/test/octave.test/poly/polyderiv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyderiv-1.m Sat Mar 1 15:53:17 1997 *************** *** 0 **** --- 1 ---- + all (all (polyderiv ([1, 2, 3]) == [2, 2])) diff -cNr octave-2.0.4/test/octave.test/poly/polyderiv-2.m octave-2.0.5/test/octave.test/poly/polyderiv-2.m *** octave-2.0.4/test/octave.test/poly/polyderiv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyderiv-2.m Sat Feb 22 01:40:19 1997 *************** *** 0 **** --- 1 ---- + polyderiv (13) == 0 diff -cNr octave-2.0.4/test/octave.test/poly/polyderiv-3.m octave-2.0.5/test/octave.test/poly/polyderiv-3.m *** octave-2.0.4/test/octave.test/poly/polyderiv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyderiv-3.m Sat Feb 22 01:40:40 1997 *************** *** 0 **** --- 1 ---- + polyderiv ([]) diff -cNr octave-2.0.4/test/octave.test/poly/polyderiv-4.m octave-2.0.5/test/octave.test/poly/polyderiv-4.m *** octave-2.0.4/test/octave.test/poly/polyderiv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyderiv-4.m Sat Feb 22 01:40:51 1997 *************** *** 0 **** --- 1 ---- + polyderiv ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/poly/polyfit-1.m octave-2.0.5/test/octave.test/poly/polyfit-1.m *** octave-2.0.4/test/octave.test/poly/polyfit-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyfit-1.m Sat Feb 22 01:47:21 1997 *************** *** 0 **** --- 1,2 ---- + x = [-2, -1, 0, 1, 2]; + all (all (polyfit (x, x.^2+x+1, 2) - [1; 1; 1] < 4*eps)) diff -cNr octave-2.0.4/test/octave.test/poly/polyfit-2.m octave-2.0.5/test/octave.test/poly/polyfit-2.m *** octave-2.0.4/test/octave.test/poly/polyfit-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyfit-2.m Sat Mar 1 12:00:01 1997 *************** *** 0 **** --- 1,2 ---- + x = [-2, -1, 0, 1, 2]; + all (all (abs (polyfit (x, x.^2+x+1, 3) - [0; 1; 1; 1]) < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/poly/polyfit-3.m octave-2.0.5/test/octave.test/poly/polyfit-3.m *** octave-2.0.4/test/octave.test/poly/polyfit-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyfit-3.m Sat Feb 22 01:48:54 1997 *************** *** 0 **** --- 1 ---- + polyfit ([1, 2; 3, 4], [1, 2; 3, 4], 4) diff -cNr octave-2.0.4/test/octave.test/poly/polyfit-4.m octave-2.0.5/test/octave.test/poly/polyfit-4.m *** octave-2.0.4/test/octave.test/poly/polyfit-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyfit-4.m Sat Feb 22 01:49:19 1997 *************** *** 0 **** --- 1,2 ---- + x = [-2, -1, 0, 1, 2]; + polyfit (x, x.^2+x+1) diff -cNr octave-2.0.4/test/octave.test/poly/polyfit-5.m octave-2.0.5/test/octave.test/poly/polyfit-5.m *** octave-2.0.4/test/octave.test/poly/polyfit-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyfit-5.m Sat Feb 22 01:49:35 1997 *************** *** 0 **** --- 1,2 ---- + x = [-2, -1, 0, 1, 2]; + polyfit (x, x.^2+x+1, []) diff -cNr octave-2.0.4/test/octave.test/poly/polyinteg-1.m octave-2.0.5/test/octave.test/poly/polyinteg-1.m *** octave-2.0.4/test/octave.test/poly/polyinteg-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyinteg-1.m Sat Feb 22 02:02:42 1997 *************** *** 0 **** --- 1 ---- + all (all (polyinteg ([2, 2]) == [1, 2, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/polyinteg-2.m octave-2.0.5/test/octave.test/poly/polyinteg-2.m *** octave-2.0.4/test/octave.test/poly/polyinteg-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyinteg-2.m Sat Feb 22 02:02:57 1997 *************** *** 0 **** --- 1 ---- + isempty (polyinteg ([])) diff -cNr octave-2.0.4/test/octave.test/poly/polyinteg-3.m octave-2.0.5/test/octave.test/poly/polyinteg-3.m *** octave-2.0.4/test/octave.test/poly/polyinteg-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyinteg-3.m Sat Feb 22 02:05:00 1997 *************** *** 0 **** --- 1 ---- + all (all (polyinteg (3) == [3, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/polyinteg-4.m octave-2.0.5/test/octave.test/poly/polyinteg-4.m *** octave-2.0.4/test/octave.test/poly/polyinteg-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyinteg-4.m Sat Feb 22 02:05:21 1997 *************** *** 0 **** --- 1 ---- + polyinteg ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/poly/polyreduce-1.m octave-2.0.5/test/octave.test/poly/polyreduce-1.m *** octave-2.0.4/test/octave.test/poly/polyreduce-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyreduce-1.m Sat Feb 22 02:08:00 1997 *************** *** 0 **** --- 1 ---- + all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3])) diff -cNr octave-2.0.4/test/octave.test/poly/polyreduce-2.m octave-2.0.5/test/octave.test/poly/polyreduce-2.m *** octave-2.0.4/test/octave.test/poly/polyreduce-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyreduce-2.m Sat Feb 22 02:08:20 1997 *************** *** 0 **** --- 1 ---- + all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0])) diff -cNr octave-2.0.4/test/octave.test/poly/polyreduce-3.m octave-2.0.5/test/octave.test/poly/polyreduce-3.m *** octave-2.0.4/test/octave.test/poly/polyreduce-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyreduce-3.m Sat Feb 22 02:08:43 1997 *************** *** 0 **** --- 1 ---- + all (all (polyreduce ([1, 0, 3]) == [1, 0, 3])) diff -cNr octave-2.0.4/test/octave.test/poly/polyreduce-4.m octave-2.0.5/test/octave.test/poly/polyreduce-4.m *** octave-2.0.4/test/octave.test/poly/polyreduce-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyreduce-4.m Sat Feb 22 02:09:07 1997 *************** *** 0 **** --- 1 ---- + isempty (polyreduce ([])) diff -cNr octave-2.0.4/test/octave.test/poly/polyreduce-5.m octave-2.0.5/test/octave.test/poly/polyreduce-5.m *** octave-2.0.4/test/octave.test/poly/polyreduce-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyreduce-5.m Sat Feb 22 02:09:29 1997 *************** *** 0 **** --- 1 ---- + polyreduce ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/poly/polyval-1.m octave-2.0.5/test/octave.test/poly/polyval-1.m *** octave-2.0.4/test/octave.test/poly/polyval-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-1.m Sat Feb 22 02:12:00 1997 *************** *** 0 **** --- 1 ---- + polyval ([1, 1, 1], 2) == 7 diff -cNr octave-2.0.4/test/octave.test/poly/polyval-2.m octave-2.0.5/test/octave.test/poly/polyval-2.m *** octave-2.0.4/test/octave.test/poly/polyval-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-2.m Sat Feb 22 02:14:48 1997 *************** *** 0 **** --- 1 ---- + all (all (polyval ([1, 1, 1], [0; 1; 2]) == [1; 3; 7])) diff -cNr octave-2.0.4/test/octave.test/poly/polyval-3.m octave-2.0.5/test/octave.test/poly/polyval-3.m *** octave-2.0.4/test/octave.test/poly/polyval-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-3.m Sat Feb 22 02:15:18 1997 *************** *** 0 **** --- 1 ---- + isempty (polyval ([1, 1, 1], [])) diff -cNr octave-2.0.4/test/octave.test/poly/polyval-4.m octave-2.0.5/test/octave.test/poly/polyval-4.m *** octave-2.0.4/test/octave.test/poly/polyval-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-4.m Sat Feb 22 02:16:15 1997 *************** *** 0 **** --- 1 ---- + all (all (polyval ([1, 1, 1], [-1, 0; 1, 2]) == [1, 1; 3, 7])) diff -cNr octave-2.0.4/test/octave.test/poly/polyval-5.m octave-2.0.5/test/octave.test/poly/polyval-5.m *** octave-2.0.4/test/octave.test/poly/polyval-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-5.m Sat Feb 22 02:16:47 1997 *************** *** 0 **** --- 1 ---- + polyval ([1, 2; 3, 4], [-1, 0; 1, 2]) diff -cNr octave-2.0.4/test/octave.test/poly/polyval-6.m octave-2.0.5/test/octave.test/poly/polyval-6.m *** octave-2.0.4/test/octave.test/poly/polyval-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyval-6.m Sat Feb 22 02:17:08 1997 *************** *** 0 **** --- 1 ---- + isempty (polyval ([], [-1, 0; 1, 2])) diff -cNr octave-2.0.4/test/octave.test/poly/polyvalm-1.m octave-2.0.5/test/octave.test/poly/polyvalm-1.m *** octave-2.0.4/test/octave.test/poly/polyvalm-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyvalm-1.m Sat Feb 22 02:24:39 1997 *************** *** 0 **** --- 1 ---- + isempty (polyvalm ([], [1, 2; 3, 4])) diff -cNr octave-2.0.4/test/octave.test/poly/polyvalm-2.m octave-2.0.5/test/octave.test/poly/polyvalm-2.m *** octave-2.0.4/test/octave.test/poly/polyvalm-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/polyvalm-2.m Sat Feb 22 02:27:03 1997 *************** *** 0 **** --- 1 ---- + polyvalm ([1, 1, 1], [1, 2; 3, 4; 5, 6]) diff -cNr octave-2.0.4/test/octave.test/poly/residue-1.m octave-2.0.5/test/octave.test/poly/residue-1.m *** octave-2.0.4/test/octave.test/poly/residue-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/residue-1.m Sat Feb 22 02:37:12 1997 *************** *** 0 **** --- 1,7 ---- + b = [1, 1, 1]; + a = [1, -5, 8, -4]; + [r, p, k, e] = residue (b, a); + (abs (r - [-2; 7; 3]) < sqrt (eps) + && abs (p - [2; 2; 1]) < sqrt (eps) + && isempty (k) + && e == [1; 2; 1]) diff -cNr octave-2.0.4/test/octave.test/poly/roots-1.m octave-2.0.5/test/octave.test/poly/roots-1.m *** octave-2.0.4/test/octave.test/poly/roots-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/roots-1.m Sat Feb 22 02:21:23 1997 *************** *** 0 **** --- 1 ---- + all (all (abs (roots ([1, -6, 11, -6]) - [3; 2; 1]) < sqrt (eps))) diff -cNr octave-2.0.4/test/octave.test/poly/roots-2.m octave-2.0.5/test/octave.test/poly/roots-2.m *** octave-2.0.4/test/octave.test/poly/roots-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/roots-2.m Sat Feb 22 02:21:40 1997 *************** *** 0 **** --- 1 ---- + isempty (roots ([])) diff -cNr octave-2.0.4/test/octave.test/poly/roots-3.m octave-2.0.5/test/octave.test/poly/roots-3.m *** octave-2.0.4/test/octave.test/poly/roots-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/poly/roots-3.m Sat Feb 22 02:21:53 1997 *************** *** 0 **** --- 1 ---- + roots ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/prefer/prefer.exp octave-2.0.5/test/octave.test/prefer/prefer.exp *** octave-2.0.4/test/octave.test/prefer/prefer.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/prefer/prefer.exp Mon Feb 24 22:40:48 1997 *************** *** 1,4 **** ! # whitespace_in_literal_matrix set test whitespace-in-literal-matrix-1 set prog_output "parse error.*" --- 1,4 ---- ! ## whitespace_in_literal_matrix set test whitespace-in-literal-matrix-1 set prog_output "parse error.*" *************** *** 44,50 **** set prog_output "ans = 1" do_test prefer-11.m ! # implicit_str_to_num_ok set test implicit-str-to-num-ok-1 set prog_output "ans = 100" --- 44,50 ---- set prog_output "ans = 1" do_test prefer-11.m ! ## implicit_str_to_num_ok set test implicit-str-to-num-ok-1 set prog_output "ans = 100" *************** *** 54,60 **** set prog_output "error:.*" do_test prefer-13.m ! # ok_to_lose_imaginary_part set test ok-to-lose-imaginary-part-1 set prog_output "ans = 1" --- 54,60 ---- set prog_output "error:.*" do_test prefer-13.m ! ## ok_to_lose_imaginary_part set test ok-to-lose-imaginary-part-1 set prog_output "ans = 1" *************** *** 68,74 **** set prog_output "warning:.*" do_test prefer-16.m ! # prefer_column_vectors set test prefer-column-vectors-1 set prog_output "ans = 1" --- 68,74 ---- set prog_output "warning:.*" do_test prefer-16.m ! ## prefer_column_vectors set test prefer-column-vectors-1 set prog_output "ans = 1" *************** *** 78,84 **** set prog_output "ans = 1" do_test prefer-18.m ! # print_answer_id_name set test print-answer-id-name-1 set prog_output "1" --- 78,84 ---- set prog_output "ans = 1" do_test prefer-18.m ! ## print_answer_id_name set test print-answer-id-name-1 set prog_output "1" *************** *** 88,94 **** set prog_output "a = 1" do_test prefer-20.m ! # print_empty_dimensions set test print-empty-dimensions-1 set prog_output "[]" --- 88,94 ---- set prog_output "a = 1" do_test prefer-20.m ! ## print_empty_dimensions set test print-empty-dimensions-1 set prog_output "[]" *************** *** 98,106 **** set prog_output "[](3x0)" do_test prefer-22.m ! # propagate_empty_matrices ! # This should maybe test more functions... set test propagate-empty-matrices-1 set prog_output "error:.*" --- 98,106 ---- set prog_output "[](3x0)" do_test prefer-22.m ! ## propagate_empty_matrices ! ## This should maybe test more functions... set test propagate-empty-matrices-1 set prog_output "error:.*" *************** *** 110,116 **** set prog_output "ans = 1" do_test prefer-24.m ! # return_last_computed_value set test return-last-computed-value-1 set prog_output "ans = 1" --- 110,116 ---- set prog_output "ans = 1" do_test prefer-24.m ! ## return_last_computed_value set test return-last-computed-value-1 set prog_output "ans = 1" *************** *** 120,126 **** set prog_output "" do_test prefer-26.m ! # save_precision set test save-precision-1 set prog_output "3" --- 120,126 ---- set prog_output "" do_test prefer-26.m ! ## save_precision set test save-precision-1 set prog_output "3" *************** *** 130,136 **** set prog_output "3.1416" do_test prefer-28.m ! # silent_functions set test silent-functions-1 set prog_output "ans = 1" --- 130,136 ---- set prog_output "3.1416" do_test prefer-28.m ! ## silent_functions set test silent-functions-1 set prog_output "ans = 1" *************** *** 140,146 **** set prog_output "" do_test prefer-30.m ! # treat_neg_dim_as_zero set test treat-neg-dim-as-zero-1 set prog_output "error:.*" --- 140,146 ---- set prog_output "" do_test prefer-30.m ! ## treat_neg_dim_as_zero set test treat-neg-dim-as-zero-1 set prog_output "error:.*" *************** *** 154,160 **** set prog_output "ans = 1" do_test prefer-33.m ! # warn_assign_as_truth_value set test warn-assign-as-truth-value-1 set prog_output "" --- 154,160 ---- set prog_output "ans = 1" do_test prefer-33.m ! ## warn_assign_as_truth_value set test warn-assign-as-truth-value-1 set prog_output "" *************** *** 164,170 **** set prog_output "warning:.*" do_test prefer-35.m ! # warn_comma_in_global_decl set test warn-comma-in-global-decl-1 set prog_output "" --- 164,170 ---- set prog_output "warning:.*" do_test prefer-35.m ! ## warn_comma_in_global_decl set test warn-comma-in-global-decl-1 set prog_output "" *************** *** 174,180 **** set prog_output "warning:.*" do_test prefer-37.m ! # warn_divide_by_zero set test warn-divide-by-zero-1 set prog_output "ans = 1" --- 174,180 ---- set prog_output "warning:.*" do_test prefer-37.m ! ## warn_divide_by_zero set test warn-divide-by-zero-1 set prog_output "ans = 1" diff -cNr octave-2.0.4/test/octave.test/quad/quad-1.m octave-2.0.5/test/octave.test/quad/quad-1.m *** octave-2.0.4/test/octave.test/quad/quad-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad-1.m Mon Feb 24 18:10:47 1997 *************** *** 0 **** --- 1,3 ---- + function y = f (x) y = x + 1; endfunction + [v, ier, nfun, err] = quad ("f", 0, 5); + ier == 0 && v - 17.5 < sqrt (eps) && nfun > 0 && err < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/quad/quad-2.m octave-2.0.5/test/octave.test/quad/quad-2.m *** octave-2.0.4/test/octave.test/quad/quad-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad-2.m Mon Feb 24 18:19:27 1997 *************** *** 0 **** --- 1,5 ---- + function y = f (x) + y = x .* sin (1 ./ x) .* sqrt (abs (1 - x)); + endfunction + [v, ier, nfun, err] = quad ("f", 0, 3); + (ier == 0 || ier == 1) && v - 1.98194122455795 < sqrt (eps) && nfun > 0 diff -cNr octave-2.0.4/test/octave.test/quad/quad-3.m octave-2.0.5/test/octave.test/quad/quad-3.m *** octave-2.0.4/test/octave.test/quad/quad-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad-3.m Mon Feb 24 18:12:32 1997 *************** *** 0 **** --- 1 ---- + quad () diff -cNr octave-2.0.4/test/octave.test/quad/quad-4.m octave-2.0.5/test/octave.test/quad/quad-4.m *** octave-2.0.4/test/octave.test/quad/quad-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad-4.m Mon Feb 24 18:12:48 1997 *************** *** 0 **** --- 1 ---- + quad ("f", 1, 2, 3, 4, 5) diff -cNr octave-2.0.4/test/octave.test/quad/quad.exp octave-2.0.5/test/octave.test/quad/quad.exp *** octave-2.0.4/test/octave.test/quad/quad.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad.exp Wed Feb 26 01:03:00 1997 *************** *** 0 **** --- 1,31 ---- + ## The following functions need to have tests written for them: + + # colloc + + set test quad-1 + set prog_output "ans = 1" + do_test quad-1.m + + set test quad-2 + set prog_output "ans = 1" + do_test quad-2.m + + set test quad-3 + set prog_output "\n... quad:.*" + do_test quad-3.m + + set test quad-4 + set prog_output "\n... quad:.*" + do_test quad-4.m + + set test quad_options-1 + set prog_output "ans = 1" + do_test quad_options-1.m + + set test quad_options-2 + set prog_output "\n... quad_options:.*" + do_test quad_options-2.m + + set test quad_options-3 + set prog_output "\n... quad_options:.*" + do_test quad_options-3.m diff -cNr octave-2.0.4/test/octave.test/quad/quad_options-1.m octave-2.0.5/test/octave.test/quad/quad_options-1.m *** octave-2.0.4/test/octave.test/quad/quad_options-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad_options-1.m Mon Feb 24 18:17:22 1997 *************** *** 0 **** --- 1,2 ---- + quad_options ("absolute tolerance", eps); + quad_options ("absolute tolerance") == eps diff -cNr octave-2.0.4/test/octave.test/quad/quad_options-2.m octave-2.0.5/test/octave.test/quad/quad_options-2.m *** octave-2.0.4/test/octave.test/quad/quad_options-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad_options-2.m Mon Feb 24 18:07:01 1997 *************** *** 0 **** --- 1 ---- + quad_options () diff -cNr octave-2.0.4/test/octave.test/quad/quad_options-3.m octave-2.0.5/test/octave.test/quad/quad_options-3.m *** octave-2.0.4/test/octave.test/quad/quad_options-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/quad/quad_options-3.m Mon Feb 24 18:06:58 1997 *************** *** 0 **** --- 1 ---- + quad_options (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/set/complement-1.m octave-2.0.5/test/octave.test/set/complement-1.m *** octave-2.0.4/test/octave.test/set/complement-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/complement-1.m Sat Feb 22 13:05:14 1997 *************** *** 0 **** --- 1 ---- + all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6])) diff -cNr octave-2.0.4/test/octave.test/set/complement-2.m octave-2.0.5/test/octave.test/set/complement-2.m *** octave-2.0.4/test/octave.test/set/complement-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/complement-2.m Sat Feb 22 13:05:26 1997 *************** *** 0 **** --- 1 ---- + all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6])) diff -cNr octave-2.0.4/test/octave.test/set/complement-3.m octave-2.0.5/test/octave.test/set/complement-3.m *** octave-2.0.4/test/octave.test/set/complement-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/complement-3.m Sat Feb 22 13:05:43 1997 *************** *** 0 **** --- 1 ---- + isempty (complement ([1, 2, 3], [3, 2, 1])) diff -cNr octave-2.0.4/test/octave.test/set/complement-4.m octave-2.0.5/test/octave.test/set/complement-4.m *** octave-2.0.4/test/octave.test/set/complement-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/complement-4.m Sat Feb 22 13:05:55 1997 *************** *** 0 **** --- 1 ---- + complement (1) diff -cNr octave-2.0.4/test/octave.test/set/complement-5.m octave-2.0.5/test/octave.test/set/complement-5.m *** octave-2.0.4/test/octave.test/set/complement-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/complement-5.m Sat Feb 22 13:06:02 1997 *************** *** 0 **** --- 1 ---- + complement (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/set/create_set-1.m octave-2.0.5/test/octave.test/set/create_set-1.m *** octave-2.0.4/test/octave.test/set/create_set-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/create_set-1.m Sat Feb 22 13:07:38 1997 *************** *** 0 **** --- 1 ---- + all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4])) diff -cNr octave-2.0.4/test/octave.test/set/create_set-2.m octave-2.0.5/test/octave.test/set/create_set-2.m *** octave-2.0.4/test/octave.test/set/create_set-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/create_set-2.m Sat Feb 22 13:07:36 1997 *************** *** 0 **** --- 1 ---- + all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4])) diff -cNr octave-2.0.4/test/octave.test/set/create_set-3.m octave-2.0.5/test/octave.test/set/create_set-3.m *** octave-2.0.4/test/octave.test/set/create_set-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/create_set-3.m Sat Feb 22 12:53:59 1997 *************** *** 0 **** --- 1 ---- + isempty (create_set ([])) diff -cNr octave-2.0.4/test/octave.test/set/create_set-4.m octave-2.0.5/test/octave.test/set/create_set-4.m *** octave-2.0.4/test/octave.test/set/create_set-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/create_set-4.m Sat Feb 22 12:54:13 1997 *************** *** 0 **** --- 1 ---- + create_set (1, 2) diff -cNr octave-2.0.4/test/octave.test/set/intersection-1.m octave-2.0.5/test/octave.test/set/intersection-1.m *** octave-2.0.4/test/octave.test/set/intersection-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/intersection-1.m Sat Feb 22 13:02:47 1997 *************** *** 0 **** --- 1 ---- + all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3])) diff -cNr octave-2.0.4/test/octave.test/set/intersection-2.m octave-2.0.5/test/octave.test/set/intersection-2.m *** octave-2.0.4/test/octave.test/set/intersection-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/intersection-2.m Sat Feb 22 13:02:59 1997 *************** *** 0 **** --- 1 ---- + all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3])) diff -cNr octave-2.0.4/test/octave.test/set/intersection-3.m octave-2.0.5/test/octave.test/set/intersection-3.m *** octave-2.0.4/test/octave.test/set/intersection-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/intersection-3.m Sat Feb 22 13:04:07 1997 *************** *** 0 **** --- 1 ---- + isempty (intersection ([1, 2, 3], [4; 5; 6])) diff -cNr octave-2.0.4/test/octave.test/set/intersection-4.m octave-2.0.5/test/octave.test/set/intersection-4.m *** octave-2.0.4/test/octave.test/set/intersection-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/intersection-4.m Sat Feb 22 13:04:21 1997 *************** *** 0 **** --- 1 ---- + intersection (1) diff -cNr octave-2.0.4/test/octave.test/set/intersection-5.m octave-2.0.5/test/octave.test/set/intersection-5.m *** octave-2.0.4/test/octave.test/set/intersection-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/intersection-5.m Sat Feb 22 13:04:29 1997 *************** *** 0 **** --- 1 ---- + intersection (1, 2, 5) diff -cNr octave-2.0.4/test/octave.test/set/set.exp octave-2.0.5/test/octave.test/set/set.exp *** octave-2.0.4/test/octave.test/set/set.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/set.exp Sat Feb 22 12:59:42 1997 *************** *** 0 **** --- 1,75 ---- + set test create_set-1 + set prog_output "ans = 1" + do_test create_set-1.m + + set test create_set-2 + set prog_output "ans = 1" + do_test create_set-2.m + + set test create_set-3 + set prog_output "ans = 1" + do_test create_set-3.m + + set test create_set-4 + set prog_output "error:.*" + do_test create_set-4.m + + set test union-1 + set prog_output "ans = 1" + do_test union-1.m + + set test union-2 + set prog_output "ans = 1" + do_test union-2.m + + set test union-3 + set prog_output "ans = 1" + do_test union-3.m + + set test union-4 + set prog_output "error:.*" + do_test union-4.m + + set test union-5 + set prog_output "error:.*" + do_test union-5.m + + set test intersection-1 + set prog_output "ans = 1" + do_test intersection-1.m + + set test intersection-2 + set prog_output "ans = 1" + do_test intersection-2.m + + set test intersection-3 + set prog_output "ans = 1" + do_test intersection-3.m + + set test intersection-4 + set prog_output "error:.*" + do_test intersection-4.m + + set test intersection-5 + set prog_output "error:.*" + do_test intersection-5.m + + set test complement-1 + set prog_output "ans = 1" + do_test complement-1.m + + set test complement-2 + set prog_output "ans = 1" + do_test complement-2.m + + set test complement-3 + set prog_output "ans = 1" + do_test complement-3.m + + set test complement-4 + set prog_output "error:.*" + do_test complement-4.m + + set test complement-5 + set prog_output "error:.*" + do_test complement-5.m diff -cNr octave-2.0.4/test/octave.test/set/union-1.m octave-2.0.5/test/octave.test/set/union-1.m *** octave-2.0.4/test/octave.test/set/union-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/union-1.m Sat Feb 22 13:02:11 1997 *************** *** 0 **** --- 1 ---- + all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5])) diff -cNr octave-2.0.4/test/octave.test/set/union-2.m octave-2.0.5/test/octave.test/set/union-2.m *** octave-2.0.4/test/octave.test/set/union-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/union-2.m Sat Feb 22 13:02:22 1997 *************** *** 0 **** --- 1 ---- + all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5])) diff -cNr octave-2.0.4/test/octave.test/set/union-3.m octave-2.0.5/test/octave.test/set/union-3.m *** octave-2.0.4/test/octave.test/set/union-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/union-3.m Sat Feb 22 13:03:56 1997 *************** *** 0 **** --- 1 ---- + all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9])) diff -cNr octave-2.0.4/test/octave.test/set/union-4.m octave-2.0.5/test/octave.test/set/union-4.m *** octave-2.0.4/test/octave.test/set/union-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/union-4.m Sat Feb 22 12:58:24 1997 *************** *** 0 **** --- 1 ---- + union (1) diff -cNr octave-2.0.4/test/octave.test/set/union-5.m octave-2.0.5/test/octave.test/set/union-5.m *** octave-2.0.4/test/octave.test/set/union-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/set/union-5.m Sat Feb 22 12:58:40 1997 *************** *** 0 **** --- 1 ---- + union (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/signal/signal.exp octave-2.0.5/test/octave.test/signal/signal.exp *** octave-2.0.4/test/octave.test/signal/signal.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/signal/signal.exp Wed Feb 26 01:02:38 1997 *************** *** 0 **** --- 1,12 ---- + ## The following functions need to have tests written for them: + + # detrend + # fft + # ifft + # fft2 + # ifft2 + # fftconv + # fftfilt + # filter + # freqz + # sinc diff -cNr octave-2.0.4/test/octave.test/stats/corrcoef-1.m octave-2.0.5/test/octave.test/stats/corrcoef-1.m *** octave-2.0.4/test/octave.test/stats/corrcoef-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/corrcoef-1.m Wed Feb 26 17:31:17 1997 *************** *** 0 **** --- 1,5 ---- + x = rand (10); + cc1 = corrcoef (x); + cc2 = corrcoef (x, x); + (size (cc1) == [10, 10] && size (cc2) == [10, 10] + && abs (cc1 - cc2) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/stats/corrcoef-2.m octave-2.0.5/test/octave.test/stats/corrcoef-2.m *** octave-2.0.4/test/octave.test/stats/corrcoef-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/corrcoef-2.m Wed Feb 26 13:33:59 1997 *************** *** 0 **** --- 1 ---- + corrcoef () diff -cNr octave-2.0.4/test/octave.test/stats/corrcoef-3.m octave-2.0.5/test/octave.test/stats/corrcoef-3.m *** octave-2.0.4/test/octave.test/stats/corrcoef-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/corrcoef-3.m Wed Feb 26 13:34:20 1997 *************** *** 0 **** --- 1 ---- + corrcoef (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/stats/cov-1.m octave-2.0.5/test/octave.test/stats/cov-1.m *** octave-2.0.4/test/octave.test/stats/cov-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/cov-1.m Wed Feb 26 13:43:46 1997 *************** *** 0 **** --- 1,4 ---- + x = rand (10); + cx1 = cov (x); + cx2 = cov (x, x); + size (cx1) == [10, 10] && size (cx2) == [10, 10] && cx1 == cx2 diff -cNr octave-2.0.4/test/octave.test/stats/cov-2.m octave-2.0.5/test/octave.test/stats/cov-2.m *** octave-2.0.4/test/octave.test/stats/cov-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/cov-2.m Wed Feb 26 13:33:58 1997 *************** *** 0 **** --- 1 ---- + cov () diff -cNr octave-2.0.4/test/octave.test/stats/cov-3.m octave-2.0.5/test/octave.test/stats/cov-3.m *** octave-2.0.4/test/octave.test/stats/cov-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/cov-3.m Wed Feb 26 13:34:10 1997 *************** *** 0 **** --- 1 ---- + cov (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/stats/kurtosis-1.m octave-2.0.5/test/octave.test/stats/kurtosis-1.m *** octave-2.0.4/test/octave.test/stats/kurtosis-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/kurtosis-1.m Wed Feb 26 13:53:24 1997 *************** *** 0 **** --- 1,3 ---- + x = [-1; 0; 0; 0; 1]; + y = [x, 2*x]; + all (abs (kurtosis (y) - [-1.4, -1.4]) < sqrt (eps)) diff -cNr octave-2.0.4/test/octave.test/stats/kurtosis-2.m octave-2.0.5/test/octave.test/stats/kurtosis-2.m *** octave-2.0.4/test/octave.test/stats/kurtosis-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/kurtosis-2.m Wed Feb 26 13:34:00 1997 *************** *** 0 **** --- 1 ---- + kurtosis () diff -cNr octave-2.0.4/test/octave.test/stats/kurtosis-3.m octave-2.0.5/test/octave.test/stats/kurtosis-3.m *** octave-2.0.4/test/octave.test/stats/kurtosis-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/kurtosis-3.m Wed Feb 26 13:34:00 1997 *************** *** 0 **** --- 1 ---- + kurtosis (1, 2) diff -cNr octave-2.0.4/test/octave.test/stats/mahalanobis-2.m octave-2.0.5/test/octave.test/stats/mahalanobis-2.m *** octave-2.0.4/test/octave.test/stats/mahalanobis-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/mahalanobis-2.m Wed Feb 26 13:34:00 1997 *************** *** 0 **** --- 1 ---- + mahalanobis () diff -cNr octave-2.0.4/test/octave.test/stats/mahalanobis-3.m octave-2.0.5/test/octave.test/stats/mahalanobis-3.m *** octave-2.0.4/test/octave.test/stats/mahalanobis-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/mahalanobis-3.m Wed Feb 26 13:34:29 1997 *************** *** 0 **** --- 1 ---- + mahalanobis (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/stats/mean-1.m octave-2.0.5/test/octave.test/stats/mean-1.m *** octave-2.0.4/test/octave.test/stats/mean-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/mean-1.m Wed Feb 26 13:36:03 1997 *************** *** 0 **** --- 1,4 ---- + x = -10:10; + y = x'; + z = [y, y+10]; + mean (x) == 0 && mean (y) == 0 && mean (z) == [0, 10] diff -cNr octave-2.0.4/test/octave.test/stats/mean-2.m octave-2.0.5/test/octave.test/stats/mean-2.m *** octave-2.0.4/test/octave.test/stats/mean-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/mean-2.m Wed Feb 26 13:33:36 1997 *************** *** 0 **** --- 1 ---- + mean () diff -cNr octave-2.0.4/test/octave.test/stats/mean-3.m octave-2.0.5/test/octave.test/stats/mean-3.m *** octave-2.0.4/test/octave.test/stats/mean-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/mean-3.m Wed Feb 26 13:33:47 1997 *************** *** 0 **** --- 1 ---- + mean (1, 2) diff -cNr octave-2.0.4/test/octave.test/stats/median-1.m octave-2.0.5/test/octave.test/stats/median-1.m *** octave-2.0.4/test/octave.test/stats/median-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/median-1.m Wed Feb 26 13:39:24 1997 *************** *** 0 **** --- 1,9 ---- + x = [1, 2, 3, 4, 5, 6]; + x2 = x'; + y = [1, 2, 3, 4, 5, 6, 7]; + y2 = y'; + + (median (x) == median (x2) && median (x) == 3.5 + && median (y) == median (y2) && median (y) == 4 + && median ([x2, 2*x2]) == [3.5, 7] + && median ([y2, 3*y2]) == [4, 12]) diff -cNr octave-2.0.4/test/octave.test/stats/median-2.m octave-2.0.5/test/octave.test/stats/median-2.m *** octave-2.0.4/test/octave.test/stats/median-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/median-2.m Wed Feb 26 13:33:57 1997 *************** *** 0 **** --- 1 ---- + median () diff -cNr octave-2.0.4/test/octave.test/stats/median-3.m octave-2.0.5/test/octave.test/stats/median-3.m *** octave-2.0.4/test/octave.test/stats/median-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/median-3.m Wed Feb 26 13:33:57 1997 *************** *** 0 **** --- 1 ---- + median (1, 2) diff -cNr octave-2.0.4/test/octave.test/stats/skewness-2.m octave-2.0.5/test/octave.test/stats/skewness-2.m *** octave-2.0.4/test/octave.test/stats/skewness-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/skewness-2.m Wed Feb 26 13:34:01 1997 *************** *** 0 **** --- 1 ---- + skewness () diff -cNr octave-2.0.4/test/octave.test/stats/skewness-3.m octave-2.0.5/test/octave.test/stats/skewness-3.m *** octave-2.0.4/test/octave.test/stats/skewness-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/skewness-3.m Wed Feb 26 13:34:01 1997 *************** *** 0 **** --- 1 ---- + skewness (1, 2) diff -cNr octave-2.0.4/test/octave.test/stats/stats.exp octave-2.0.5/test/octave.test/stats/stats.exp *** octave-2.0.4/test/octave.test/stats/stats.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/stats.exp Wed Feb 26 13:56:39 1997 *************** *** 0 **** --- 1,100 ---- + ## The following functions need to have tests written for them: + + # mahalanobis (test for success) + # skewness (test for success) + + set test mean-1 + set prog_output "ans = 1" + do_test mean-1.m + + set test mean-2 + set prog_output "usage:.*" + do_test mean-2.m + + set test mean-3 + set prog_output "usage:.*" + do_test mean-3.m + + set test median-1 + set prog_output "ans = 1" + do_test median-1.m + + set test median-2 + set prog_output "usage:.*" + do_test median-2.m + + set test median-3 + set prog_output "usage:.*" + do_test median-3.m + + set test std-1 + set prog_output "ans = 1" + do_test std-1.m + + set test std-2 + set prog_output "usage:.*" + do_test std-2.m + + set test std-3 + set prog_output "usage:.*" + do_test std-3.m + + set test cov-1 + set prog_output "ans = 1" + do_test cov-1.m + + set test cov-2 + set prog_output "usage:.*" + do_test cov-2.m + + set test cov-3 + set prog_output "usage:.*" + do_test cov-3.m + + set test corrcoef-1 + set prog_output "ans = 1" + do_test corrcoef-1.m + + set test corrcoef-2 + set prog_output "usage:.*" + do_test corrcoef-2.m + + set test corrcoef-3 + set prog_output "usage:.*" + do_test corrcoef-3.m + + set test kurtosis-1 + set prog_output "ans = 1" + do_test kurtosis-1.m + + set test kurtosis-2 + set prog_output "usage:.*" + do_test kurtosis-2.m + + set test kurtosis-3 + set prog_output "usage:.*" + do_test kurtosis-3.m + + # set test mahalanobis-1 + # set prog_output "ans = 1" + # do_test mahalanobis-1.m + + set test mahalanobis-2 + set prog_output "usage:.*" + do_test mahalanobis-2.m + + set test mahalanobis-3 + set prog_output "usage:.*" + do_test mahalanobis-3.m + + # set test skewness-1 + # set prog_output "ans = 1" + # do_test skewness-1.m + + set test skewness-2 + set prog_output "usage:.*" + do_test skewness-2.m + + set test skewness-3 + set prog_output "usage:.*" + do_test skewness-3.m diff -cNr octave-2.0.4/test/octave.test/stats/std-1.m octave-2.0.5/test/octave.test/stats/std-1.m *** octave-2.0.4/test/octave.test/stats/std-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/std-1.m Wed Feb 26 13:41:32 1997 *************** *** 0 **** --- 1,3 ---- + x = ones (10, 2); + y = [1, 3]; + std (x) == [0, 0] && abs (std (y) - sqrt (2)) < sqrt (eps) diff -cNr octave-2.0.4/test/octave.test/stats/std-2.m octave-2.0.5/test/octave.test/stats/std-2.m *** octave-2.0.4/test/octave.test/stats/std-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/std-2.m Wed Feb 26 13:33:58 1997 *************** *** 0 **** --- 1 ---- + std () diff -cNr octave-2.0.4/test/octave.test/stats/std-3.m octave-2.0.5/test/octave.test/stats/std-3.m *** octave-2.0.4/test/octave.test/stats/std-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/stats/std-3.m Wed Feb 26 13:33:58 1997 *************** *** 0 **** --- 1 ---- + std (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/bin2dec-1.m octave-2.0.5/test/octave.test/string/bin2dec-1.m *** octave-2.0.4/test/octave.test/string/bin2dec-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/bin2dec-1.m Tue Feb 25 00:19:51 1997 *************** *** 0 **** --- 1 ---- + bin2dec ("1110") == 14 diff -cNr octave-2.0.4/test/octave.test/string/bin2dec-2.m octave-2.0.5/test/octave.test/string/bin2dec-2.m *** octave-2.0.4/test/octave.test/string/bin2dec-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/bin2dec-2.m Tue Feb 25 00:17:12 1997 *************** *** 0 **** --- 1 ---- + bin2dec () diff -cNr octave-2.0.4/test/octave.test/string/bin2dec-3.m octave-2.0.5/test/octave.test/string/bin2dec-3.m *** octave-2.0.4/test/octave.test/string/bin2dec-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/bin2dec-3.m Tue Feb 25 00:17:51 1997 *************** *** 0 **** --- 1 ---- + bin2dec ("str", 1) diff -cNr octave-2.0.4/test/octave.test/string/blanks-1.m octave-2.0.5/test/octave.test/string/blanks-1.m *** octave-2.0.4/test/octave.test/string/blanks-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/blanks-1.m Tue Feb 25 00:05:00 1997 *************** *** 0 **** --- 1 ---- + strcmp (blanks (3), " ") diff -cNr octave-2.0.4/test/octave.test/string/blanks-2.m octave-2.0.5/test/octave.test/string/blanks-2.m *** octave-2.0.4/test/octave.test/string/blanks-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/blanks-2.m Tue Feb 25 00:03:40 1997 *************** *** 0 **** --- 1 ---- + blanks () diff -cNr octave-2.0.4/test/octave.test/string/blanks-3.m octave-2.0.5/test/octave.test/string/blanks-3.m *** octave-2.0.4/test/octave.test/string/blanks-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/blanks-3.m Tue Feb 25 00:03:32 1997 *************** *** 0 **** --- 1 ---- + blanks (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/deblank-1.m octave-2.0.5/test/octave.test/string/deblank-1.m *** octave-2.0.4/test/octave.test/string/deblank-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/deblank-1.m Tue Feb 25 00:36:58 1997 *************** *** 0 **** --- 1 ---- + strcmp (deblank (" f o o "), " f o o") diff -cNr octave-2.0.4/test/octave.test/string/deblank-2.m octave-2.0.5/test/octave.test/string/deblank-2.m *** octave-2.0.4/test/octave.test/string/deblank-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/deblank-2.m Tue Feb 25 00:35:40 1997 *************** *** 0 **** --- 1 ---- + deblank () diff -cNr octave-2.0.4/test/octave.test/string/deblank-3.m octave-2.0.5/test/octave.test/string/deblank-3.m *** octave-2.0.4/test/octave.test/string/deblank-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/deblank-3.m Tue Feb 25 00:35:32 1997 *************** *** 0 **** --- 1 ---- + deblank ("foo", "bar") diff -cNr octave-2.0.4/test/octave.test/string/deblank-4.m octave-2.0.5/test/octave.test/string/deblank-4.m *** octave-2.0.4/test/octave.test/string/deblank-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/deblank-4.m Tue Feb 25 00:35:24 1997 *************** *** 0 **** --- 1 ---- + deblank (1) diff -cNr octave-2.0.4/test/octave.test/string/dec2bin-1.m octave-2.0.5/test/octave.test/string/dec2bin-1.m *** octave-2.0.4/test/octave.test/string/dec2bin-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2bin-1.m Tue Feb 25 00:20:16 1997 *************** *** 0 **** --- 1 ---- + strcmp (dec2bin (14), "1110") diff -cNr octave-2.0.4/test/octave.test/string/dec2bin-2.m octave-2.0.5/test/octave.test/string/dec2bin-2.m *** octave-2.0.4/test/octave.test/string/dec2bin-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2bin-2.m Tue Feb 25 00:18:53 1997 *************** *** 0 **** --- 1 ---- + dec2bin () diff -cNr octave-2.0.4/test/octave.test/string/dec2bin-3.m octave-2.0.5/test/octave.test/string/dec2bin-3.m *** octave-2.0.4/test/octave.test/string/dec2bin-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2bin-3.m Tue Feb 25 00:19:05 1997 *************** *** 0 **** --- 1 ---- + dec2bin (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/dec2hex-1.m octave-2.0.5/test/octave.test/string/dec2hex-1.m *** octave-2.0.4/test/octave.test/string/dec2hex-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2hex-1.m Tue Feb 25 00:20:36 1997 *************** *** 0 **** --- 1 ---- + strcmp (dec2hex (2748), "abc") diff -cNr octave-2.0.4/test/octave.test/string/dec2hex-2.m octave-2.0.5/test/octave.test/string/dec2hex-2.m *** octave-2.0.4/test/octave.test/string/dec2hex-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2hex-2.m Tue Feb 25 00:19:07 1997 *************** *** 0 **** --- 1 ---- + dec2hex () diff -cNr octave-2.0.4/test/octave.test/string/dec2hex-3.m octave-2.0.5/test/octave.test/string/dec2hex-3.m *** octave-2.0.4/test/octave.test/string/dec2hex-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/dec2hex-3.m Tue Feb 25 00:19:08 1997 *************** *** 0 **** --- 1 ---- + dec2hex (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/findstr-1.m octave-2.0.5/test/octave.test/string/findstr-1.m *** octave-2.0.4/test/octave.test/string/findstr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/findstr-1.m Tue Feb 25 01:05:25 1997 *************** *** 0 **** --- 1,3 ---- + (findstr ("abababa", "a") == [1, 3, 5, 7] + && findstr ("abababa", "aba") == [1, 3, 5] + && findstr ("abababa", "aba", 0) == [1, 5]) diff -cNr octave-2.0.4/test/octave.test/string/findstr-2.m octave-2.0.5/test/octave.test/string/findstr-2.m *** octave-2.0.4/test/octave.test/string/findstr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/findstr-2.m Tue Feb 25 00:46:22 1997 *************** *** 0 **** --- 1 ---- + findstr () diff -cNr octave-2.0.4/test/octave.test/string/findstr-3.m octave-2.0.5/test/octave.test/string/findstr-3.m *** octave-2.0.4/test/octave.test/string/findstr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/findstr-3.m Tue Feb 25 00:46:43 1997 *************** *** 0 **** --- 1 ---- + findstr ("foo", "bar", 3, 4) diff -cNr octave-2.0.4/test/octave.test/string/hex2dec-1.m octave-2.0.5/test/octave.test/string/hex2dec-1.m *** octave-2.0.4/test/octave.test/string/hex2dec-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/hex2dec-1.m Tue Feb 25 00:21:01 1997 *************** *** 0 **** --- 1 ---- + hex2dec ("12b") == 299 && hex2dec ("12B") == 299 diff -cNr octave-2.0.4/test/octave.test/string/hex2dec-2.m octave-2.0.5/test/octave.test/string/hex2dec-2.m *** octave-2.0.4/test/octave.test/string/hex2dec-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/hex2dec-2.m Tue Feb 25 00:18:27 1997 *************** *** 0 **** --- 1 ---- + hex2dec () diff -cNr octave-2.0.4/test/octave.test/string/hex2dec-3.m octave-2.0.5/test/octave.test/string/hex2dec-3.m *** octave-2.0.4/test/octave.test/string/hex2dec-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/hex2dec-3.m Tue Feb 25 00:18:27 1997 *************** *** 0 **** --- 1 ---- + hex2dec ("str", 1) diff -cNr octave-2.0.4/test/octave.test/string/index-1.m octave-2.0.5/test/octave.test/string/index-1.m *** octave-2.0.4/test/octave.test/string/index-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/index-1.m Tue Feb 25 00:51:25 1997 *************** *** 0 **** --- 1 ---- + index ("foobarbaz", "b") == 4 && index ("foobarbaz", "z") == 9 diff -cNr octave-2.0.4/test/octave.test/string/index-2.m octave-2.0.5/test/octave.test/string/index-2.m *** octave-2.0.4/test/octave.test/string/index-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/index-2.m Tue Feb 25 00:46:50 1997 *************** *** 0 **** --- 1 ---- + index () diff -cNr octave-2.0.4/test/octave.test/string/index-3.m octave-2.0.5/test/octave.test/string/index-3.m *** octave-2.0.4/test/octave.test/string/index-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/index-3.m Tue Feb 25 00:47:55 1997 *************** *** 0 **** --- 1 ---- + index ("foo", "bar", 3) diff -cNr octave-2.0.4/test/octave.test/string/int2str-1.m octave-2.0.5/test/octave.test/string/int2str-1.m *** octave-2.0.4/test/octave.test/string/int2str-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/int2str-1.m Tue Feb 25 00:27:23 1997 *************** *** 0 **** --- 1 ---- + strcmp (int2str (-123), "-123") && strcmp (int2str (1.2), "1") diff -cNr octave-2.0.4/test/octave.test/string/int2str-2.m octave-2.0.5/test/octave.test/string/int2str-2.m *** octave-2.0.4/test/octave.test/string/int2str-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/int2str-2.m Sat Mar 1 15:53:15 1997 *************** *** 0 **** --- 1 ---- + int2str () diff -cNr octave-2.0.4/test/octave.test/string/int2str-3.m octave-2.0.5/test/octave.test/string/int2str-3.m *** octave-2.0.4/test/octave.test/string/int2str-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/int2str-3.m Tue Feb 25 00:26:40 1997 *************** *** 0 **** --- 1 ---- + int2str (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isalnum-1.m octave-2.0.5/test/octave.test/string/isalnum-1.m *** octave-2.0.4/test/octave.test/string/isalnum-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalnum-1.m Mon Feb 24 23:23:21 1997 *************** *** 0 **** --- 1,9 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("A"):toascii("Z"))+1) = 1; + result ((toascii("0"):toascii("9"))+1) = 1; + result ((toascii("a"):toascii("z"))+1) = 1; + + all (isalnum (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isalnum-2.m octave-2.0.5/test/octave.test/string/isalnum-2.m *** octave-2.0.4/test/octave.test/string/isalnum-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalnum-2.m Mon Feb 24 22:50:33 1997 *************** *** 0 **** --- 1 ---- + isalnum (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isalnum-3.m octave-2.0.5/test/octave.test/string/isalnum-3.m *** octave-2.0.4/test/octave.test/string/isalnum-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalnum-3.m Mon Feb 24 22:50:18 1997 *************** *** 0 **** --- 1 ---- + isalnum () diff -cNr octave-2.0.4/test/octave.test/string/isalpha-1.m octave-2.0.5/test/octave.test/string/isalpha-1.m *** octave-2.0.4/test/octave.test/string/isalpha-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalpha-1.m Mon Feb 24 23:23:21 1997 *************** *** 0 **** --- 1,8 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("A"):toascii("Z"))+1) = 1; + result ((toascii("a"):toascii("z"))+1) = 1; + + all (isalpha (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isalpha-2.m octave-2.0.5/test/octave.test/string/isalpha-2.m *** octave-2.0.4/test/octave.test/string/isalpha-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalpha-2.m Mon Feb 24 22:51:09 1997 *************** *** 0 **** --- 1 ---- + isalpha (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isalpha-3.m octave-2.0.5/test/octave.test/string/isalpha-3.m *** octave-2.0.4/test/octave.test/string/isalpha-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isalpha-3.m Mon Feb 24 22:51:15 1997 *************** *** 0 **** --- 1 ---- + isalpha () diff -cNr octave-2.0.4/test/octave.test/string/isascii-1.m octave-2.0.5/test/octave.test/string/isascii-1.m *** octave-2.0.4/test/octave.test/string/isascii-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isascii-1.m Mon Feb 24 23:23:20 1997 *************** *** 0 **** --- 1,5 ---- + charset = setstr (0:127); + + result = ones (1, 128); + + all (isascii (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isascii-2.m octave-2.0.5/test/octave.test/string/isascii-2.m *** octave-2.0.4/test/octave.test/string/isascii-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isascii-2.m Mon Feb 24 22:51:23 1997 *************** *** 0 **** --- 1 ---- + isascii (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isascii-3.m octave-2.0.5/test/octave.test/string/isascii-3.m *** octave-2.0.4/test/octave.test/string/isascii-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isascii-3.m Mon Feb 24 22:51:23 1997 *************** *** 0 **** --- 1 ---- + isascii () diff -cNr octave-2.0.4/test/octave.test/string/iscntrl-1.m octave-2.0.5/test/octave.test/string/iscntrl-1.m *** octave-2.0.4/test/octave.test/string/iscntrl-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/iscntrl-1.m Mon Feb 24 23:26:27 1997 *************** *** 0 **** --- 1,8 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result (1:32) = 1; + result (128) = 1; + + all (iscntrl (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/iscntrl-2.m octave-2.0.5/test/octave.test/string/iscntrl-2.m *** octave-2.0.4/test/octave.test/string/iscntrl-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/iscntrl-2.m Mon Feb 24 22:51:23 1997 *************** *** 0 **** --- 1 ---- + iscntrl (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/iscntrl-3.m octave-2.0.5/test/octave.test/string/iscntrl-3.m *** octave-2.0.4/test/octave.test/string/iscntrl-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/iscntrl-3.m Mon Feb 24 22:51:24 1997 *************** *** 0 **** --- 1 ---- + iscntrl () diff -cNr octave-2.0.4/test/octave.test/string/isdigit-1.m octave-2.0.5/test/octave.test/string/isdigit-1.m *** octave-2.0.4/test/octave.test/string/isdigit-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isdigit-1.m Mon Feb 24 23:23:19 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("0"):toascii("9"))+1) = 1; + + all (isdigit (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isdigit-2.m octave-2.0.5/test/octave.test/string/isdigit-2.m *** octave-2.0.4/test/octave.test/string/isdigit-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isdigit-2.m Mon Feb 24 22:51:24 1997 *************** *** 0 **** --- 1 ---- + isdigit (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isdigit-3.m octave-2.0.5/test/octave.test/string/isdigit-3.m *** octave-2.0.4/test/octave.test/string/isdigit-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isdigit-3.m Mon Feb 24 22:51:24 1997 *************** *** 0 **** --- 1 ---- + isdigit () diff -cNr octave-2.0.4/test/octave.test/string/isgraph-1.m octave-2.0.5/test/octave.test/string/isgraph-1.m *** octave-2.0.4/test/octave.test/string/isgraph-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isgraph-1.m Mon Feb 24 23:23:18 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result (34:127) = 1; + + all (isgraph (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isgraph-2.m octave-2.0.5/test/octave.test/string/isgraph-2.m *** octave-2.0.4/test/octave.test/string/isgraph-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isgraph-2.m Mon Feb 24 22:51:25 1997 *************** *** 0 **** --- 1 ---- + isgraph (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isgraph-3.m octave-2.0.5/test/octave.test/string/isgraph-3.m *** octave-2.0.4/test/octave.test/string/isgraph-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isgraph-3.m Mon Feb 24 22:51:25 1997 *************** *** 0 **** --- 1 ---- + isgraph () diff -cNr octave-2.0.4/test/octave.test/string/islower-1.m octave-2.0.5/test/octave.test/string/islower-1.m *** octave-2.0.4/test/octave.test/string/islower-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/islower-1.m Mon Feb 24 23:23:18 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("a"):toascii("z"))+1) = 1; + + all (islower (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/islower-2.m octave-2.0.5/test/octave.test/string/islower-2.m *** octave-2.0.4/test/octave.test/string/islower-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/islower-2.m Mon Feb 24 22:51:26 1997 *************** *** 0 **** --- 1 ---- + islower (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/islower-3.m octave-2.0.5/test/octave.test/string/islower-3.m *** octave-2.0.4/test/octave.test/string/islower-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/islower-3.m Mon Feb 24 22:51:26 1997 *************** *** 0 **** --- 1 ---- + islower () diff -cNr octave-2.0.4/test/octave.test/string/isprint-1.m octave-2.0.5/test/octave.test/string/isprint-1.m *** octave-2.0.4/test/octave.test/string/isprint-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isprint-1.m Mon Feb 24 23:25:53 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result (33:127) = 1; + + all (isprint (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isprint-2.m octave-2.0.5/test/octave.test/string/isprint-2.m *** octave-2.0.4/test/octave.test/string/isprint-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isprint-2.m Mon Feb 24 22:51:26 1997 *************** *** 0 **** --- 1 ---- + isprint (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isprint-3.m octave-2.0.5/test/octave.test/string/isprint-3.m *** octave-2.0.4/test/octave.test/string/isprint-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isprint-3.m Mon Feb 24 22:51:27 1997 *************** *** 0 **** --- 1 ---- + isprint () diff -cNr octave-2.0.4/test/octave.test/string/ispunct-1.m octave-2.0.5/test/octave.test/string/ispunct-1.m *** octave-2.0.4/test/octave.test/string/ispunct-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/ispunct-1.m Mon Feb 24 23:23:17 1997 *************** *** 0 **** --- 1,10 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result (34:48) = 1; + result (59:65) = 1; + result (92:97) = 1; + result (124:127) = 1; + + all (ispunct (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/ispunct-2.m octave-2.0.5/test/octave.test/string/ispunct-2.m *** octave-2.0.4/test/octave.test/string/ispunct-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/ispunct-2.m Mon Feb 24 22:51:27 1997 *************** *** 0 **** --- 1 ---- + ispunct (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/ispunct-3.m octave-2.0.5/test/octave.test/string/ispunct-3.m *** octave-2.0.4/test/octave.test/string/ispunct-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/ispunct-3.m Mon Feb 24 22:51:27 1997 *************** *** 0 **** --- 1 ---- + ispunct () diff -cNr octave-2.0.4/test/octave.test/string/isspace-1.m octave-2.0.5/test/octave.test/string/isspace-1.m *** octave-2.0.4/test/octave.test/string/isspace-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isspace-1.m Mon Feb 24 23:23:16 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result (toascii (" \f\n\r\t\v")+1) = 1; + + all (isspace (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isspace-2.m octave-2.0.5/test/octave.test/string/isspace-2.m *** octave-2.0.4/test/octave.test/string/isspace-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isspace-2.m Mon Feb 24 22:51:28 1997 *************** *** 0 **** --- 1 ---- + isspace (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isspace-3.m octave-2.0.5/test/octave.test/string/isspace-3.m *** octave-2.0.4/test/octave.test/string/isspace-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isspace-3.m Mon Feb 24 22:51:28 1997 *************** *** 0 **** --- 1 ---- + isspace () diff -cNr octave-2.0.4/test/octave.test/string/isstr-1.m octave-2.0.5/test/octave.test/string/isstr-1.m *** octave-2.0.4/test/octave.test/string/isstr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-1.m Sat Feb 22 17:01:02 1997 *************** *** 0 **** --- 1 ---- + isstr (1) diff -cNr octave-2.0.4/test/octave.test/string/isstr-10.m octave-2.0.5/test/octave.test/string/isstr-10.m *** octave-2.0.4/test/octave.test/string/isstr-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-10.m Sat Feb 22 17:03:44 1997 *************** *** 0 **** --- 1 ---- + isstr () diff -cNr octave-2.0.4/test/octave.test/string/isstr-11.m octave-2.0.5/test/octave.test/string/isstr-11.m *** octave-2.0.4/test/octave.test/string/isstr-11.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-11.m Sat Feb 22 17:03:51 1997 *************** *** 0 **** --- 1 ---- + isstr ("test", 1) diff -cNr octave-2.0.4/test/octave.test/string/isstr-2.m octave-2.0.5/test/octave.test/string/isstr-2.m *** octave-2.0.4/test/octave.test/string/isstr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-2.m Sat Feb 22 17:01:11 1997 *************** *** 0 **** --- 1 ---- + isstr ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/string/isstr-3.m octave-2.0.5/test/octave.test/string/isstr-3.m *** octave-2.0.4/test/octave.test/string/isstr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-3.m Sat Feb 22 17:02:36 1997 *************** *** 0 **** --- 1 ---- + isstr ([]) diff -cNr octave-2.0.4/test/octave.test/string/isstr-4.m octave-2.0.5/test/octave.test/string/isstr-4.m *** octave-2.0.4/test/octave.test/string/isstr-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-4.m Sat Feb 22 17:02:43 1997 *************** *** 0 **** --- 1 ---- + isstr ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/string/isstr-5.m octave-2.0.5/test/octave.test/string/isstr-5.m *** octave-2.0.4/test/octave.test/string/isstr-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-5.m Sat Feb 22 17:02:55 1997 *************** *** 0 **** --- 1 ---- + isstr ("") diff -cNr octave-2.0.4/test/octave.test/string/isstr-6.m octave-2.0.5/test/octave.test/string/isstr-6.m *** octave-2.0.4/test/octave.test/string/isstr-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-6.m Sat Feb 22 17:03:04 1997 *************** *** 0 **** --- 1 ---- + isstr ("t") diff -cNr octave-2.0.4/test/octave.test/string/isstr-7.m octave-2.0.5/test/octave.test/string/isstr-7.m *** octave-2.0.4/test/octave.test/string/isstr-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-7.m Sat Feb 22 17:03:12 1997 *************** *** 0 **** --- 1 ---- + isstr ("test") diff -cNr octave-2.0.4/test/octave.test/string/isstr-8.m octave-2.0.5/test/octave.test/string/isstr-8.m *** octave-2.0.4/test/octave.test/string/isstr-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-8.m Sat Feb 22 17:03:25 1997 *************** *** 0 **** --- 1 ---- + isstr (["test"; "ing"]) diff -cNr octave-2.0.4/test/octave.test/string/isstr-9.m octave-2.0.5/test/octave.test/string/isstr-9.m *** octave-2.0.4/test/octave.test/string/isstr-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isstr-9.m Sat Feb 22 17:03:38 1997 *************** *** 0 **** --- 1,2 ---- + s.a = "test"; + isstr (s) diff -cNr octave-2.0.4/test/octave.test/string/isupper-1.m octave-2.0.5/test/octave.test/string/isupper-1.m *** octave-2.0.4/test/octave.test/string/isupper-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isupper-1.m Mon Feb 24 23:23:12 1997 *************** *** 0 **** --- 1,7 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("A"):toascii("Z"))+1) = 1; + + all (isupper (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isupper-2.m octave-2.0.5/test/octave.test/string/isupper-2.m *** octave-2.0.4/test/octave.test/string/isupper-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isupper-2.m Mon Feb 24 22:51:28 1997 *************** *** 0 **** --- 1 ---- + isupper (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isupper-3.m octave-2.0.5/test/octave.test/string/isupper-3.m *** octave-2.0.4/test/octave.test/string/isupper-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isupper-3.m Mon Feb 24 22:51:28 1997 *************** *** 0 **** --- 1 ---- + isupper () diff -cNr octave-2.0.4/test/octave.test/string/isxdigit-1.m octave-2.0.5/test/octave.test/string/isxdigit-1.m *** octave-2.0.4/test/octave.test/string/isxdigit-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isxdigit-1.m Mon Feb 24 23:22:42 1997 *************** *** 0 **** --- 1,9 ---- + charset = setstr (0:127); + + result = zeros (1, 128); + + result ((toascii("A"):toascii("F"))+1) = 1; + result ((toascii("0"):toascii("9"))+1) = 1; + result ((toascii("a"):toascii("f"))+1) = 1; + + all (isxdigit (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/isxdigit-2.m octave-2.0.5/test/octave.test/string/isxdigit-2.m *** octave-2.0.4/test/octave.test/string/isxdigit-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isxdigit-2.m Mon Feb 24 22:51:29 1997 *************** *** 0 **** --- 1 ---- + isxdigit (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/isxdigit-3.m octave-2.0.5/test/octave.test/string/isxdigit-3.m *** octave-2.0.4/test/octave.test/string/isxdigit-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/isxdigit-3.m Mon Feb 24 22:51:29 1997 *************** *** 0 **** --- 1 ---- + isxdigit () diff -cNr octave-2.0.4/test/octave.test/string/num2str-1.m octave-2.0.5/test/octave.test/string/num2str-1.m *** octave-2.0.4/test/octave.test/string/num2str-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/num2str-1.m Tue Feb 25 00:28:29 1997 *************** *** 0 **** --- 1 ---- + strcmp (num2str (123), "123") && strcmp (num2str (1.23), "1.23") diff -cNr octave-2.0.4/test/octave.test/string/num2str-2.m octave-2.0.5/test/octave.test/string/num2str-2.m *** octave-2.0.4/test/octave.test/string/num2str-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/num2str-2.m Tue Feb 25 00:26:13 1997 *************** *** 0 **** --- 1 ---- + num2str () diff -cNr octave-2.0.4/test/octave.test/string/num2str-3.m octave-2.0.5/test/octave.test/string/num2str-3.m *** octave-2.0.4/test/octave.test/string/num2str-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/num2str-3.m Tue Feb 25 00:26:21 1997 *************** *** 0 **** --- 1 ---- + num2str (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/rindex-1.m octave-2.0.5/test/octave.test/string/rindex-1.m *** octave-2.0.4/test/octave.test/string/rindex-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/rindex-1.m Tue Feb 25 01:05:44 1997 *************** *** 0 **** --- 1 ---- + rindex ("foobarbaz", "b") == 7 && rindex ("foobarbaz", "o") == 3 diff -cNr octave-2.0.4/test/octave.test/string/rindex-2.m octave-2.0.5/test/octave.test/string/rindex-2.m *** octave-2.0.4/test/octave.test/string/rindex-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/rindex-2.m Tue Feb 25 00:46:51 1997 *************** *** 0 **** --- 1 ---- + rindex () diff -cNr octave-2.0.4/test/octave.test/string/rindex-3.m octave-2.0.5/test/octave.test/string/rindex-3.m *** octave-2.0.4/test/octave.test/string/rindex-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/rindex-3.m Tue Feb 25 00:47:50 1997 *************** *** 0 **** --- 1 ---- + rindex ("foo", "bar", 3) diff -cNr octave-2.0.4/test/octave.test/string/setstr-1.m octave-2.0.5/test/octave.test/string/setstr-1.m *** octave-2.0.4/test/octave.test/string/setstr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/setstr-1.m Tue Feb 25 00:24:40 1997 *************** *** 0 **** --- 1 ---- + strcmp (setstr ([65, 83, 67, 73, 73]), "ASCII") diff -cNr octave-2.0.4/test/octave.test/string/setstr-2.m octave-2.0.5/test/octave.test/string/setstr-2.m *** octave-2.0.4/test/octave.test/string/setstr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/setstr-2.m Tue Feb 25 00:23:58 1997 *************** *** 0 **** --- 1 ---- + setstr () diff -cNr octave-2.0.4/test/octave.test/string/setstr-3.m octave-2.0.5/test/octave.test/string/setstr-3.m *** octave-2.0.4/test/octave.test/string/setstr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/setstr-3.m Tue Feb 25 00:24:07 1997 *************** *** 0 **** --- 1 ---- + setstr (2, 1) diff -cNr octave-2.0.4/test/octave.test/string/split-1.m octave-2.0.5/test/octave.test/string/split-1.m *** octave-2.0.4/test/octave.test/string/split-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/split-1.m Tue Feb 25 00:52:54 1997 *************** *** 0 **** --- 1 ---- + all (all (split ("Test string", "t") == ["Tes "; " s "; "ring"])) diff -cNr octave-2.0.4/test/octave.test/string/split-2.m octave-2.0.5/test/octave.test/string/split-2.m *** octave-2.0.4/test/octave.test/string/split-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/split-2.m Tue Feb 25 00:46:52 1997 *************** *** 0 **** --- 1 ---- + split () diff -cNr octave-2.0.4/test/octave.test/string/split-3.m octave-2.0.5/test/octave.test/string/split-3.m *** octave-2.0.4/test/octave.test/string/split-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/split-3.m Tue Feb 25 00:47:43 1997 *************** *** 0 **** --- 1 ---- + split ("foo", "bar", 3) diff -cNr octave-2.0.4/test/octave.test/string/str-esc-1.m octave-2.0.5/test/octave.test/string/str-esc-1.m *** octave-2.0.4/test/octave.test/string/str-esc-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-1.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 7; + if (strcmp ("\a", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-10.m octave-2.0.5/test/octave.test/string/str-esc-10.m *** octave-2.0.4/test/octave.test/string/str-esc-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-10.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 34; + if (strcmp ("\"", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-11.m octave-2.0.5/test/octave.test/string/str-esc-11.m *** octave-2.0.4/test/octave.test/string/str-esc-11.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-11.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 120; + if (strcmp ("\x", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-12.m octave-2.0.5/test/octave.test/string/str-esc-12.m *** octave-2.0.4/test/octave.test/string/str-esc-12.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-12.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = [7, 8, 12, 10, 13, 9, 11, 92, 39, 34]; + if (strcmp ("\a\b\f\n\r\t\v\\\'\"", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-2.m octave-2.0.5/test/octave.test/string/str-esc-2.m *** octave-2.0.4/test/octave.test/string/str-esc-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-2.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 8; + if (strcmp ("\b", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-3.m octave-2.0.5/test/octave.test/string/str-esc-3.m *** octave-2.0.4/test/octave.test/string/str-esc-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-3.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 12; + if (strcmp ("\f", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-4.m octave-2.0.5/test/octave.test/string/str-esc-4.m *** octave-2.0.4/test/octave.test/string/str-esc-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-4.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 10; + if (strcmp ("\n", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-5.m octave-2.0.5/test/octave.test/string/str-esc-5.m *** octave-2.0.4/test/octave.test/string/str-esc-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-5.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 13; + if (strcmp ("\r", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-6.m octave-2.0.5/test/octave.test/string/str-esc-6.m *** octave-2.0.4/test/octave.test/string/str-esc-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-6.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 9; + if (strcmp ("\t", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-7.m octave-2.0.5/test/octave.test/string/str-esc-7.m *** octave-2.0.4/test/octave.test/string/str-esc-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-7.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 11; + if (strcmp ("\v", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-8.m octave-2.0.5/test/octave.test/string/str-esc-8.m *** octave-2.0.4/test/octave.test/string/str-esc-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-8.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 92; + if (strcmp ("\\", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str-esc-9.m octave-2.0.5/test/octave.test/string/str-esc-9.m *** octave-2.0.4/test/octave.test/string/str-esc-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str-esc-9.m Thu Jul 18 21:14:42 1996 *************** *** 0 **** --- 1,4 ---- + x = 39; + if (strcmp ("\'", setstr (x))) + printf ("ok\n"); + endif diff -cNr octave-2.0.4/test/octave.test/string/str2mat-1.m octave-2.0.5/test/octave.test/string/str2mat-1.m *** octave-2.0.4/test/octave.test/string/str2mat-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2mat-1.m Tue Feb 25 00:34:03 1997 *************** *** 0 **** --- 1 ---- + strcmp (str2mat ("a", "bb", "ccc"), ["a "; "bb "; "ccc"]) diff -cNr octave-2.0.4/test/octave.test/string/str2mat-2.m octave-2.0.5/test/octave.test/string/str2mat-2.m *** octave-2.0.4/test/octave.test/string/str2mat-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2mat-2.m Tue Feb 25 00:34:19 1997 *************** *** 0 **** --- 1 ---- + str2mat () diff -cNr octave-2.0.4/test/octave.test/string/str2mat-3.m octave-2.0.5/test/octave.test/string/str2mat-3.m *** octave-2.0.4/test/octave.test/string/str2mat-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2mat-3.m Tue Feb 25 00:34:29 1997 *************** *** 0 **** --- 1 ---- + str2mat (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/string/str2num-1.m octave-2.0.5/test/octave.test/string/str2num-1.m *** octave-2.0.4/test/octave.test/string/str2num-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2num-1.m Tue Feb 25 00:22:42 1997 *************** *** 0 **** --- 1 ---- + str2num ("-1.3e2") == -130 && str2num ("[1, 2; 3, 4]") == [1, 2; 3, 4] diff -cNr octave-2.0.4/test/octave.test/string/str2num-2.m octave-2.0.5/test/octave.test/string/str2num-2.m *** octave-2.0.4/test/octave.test/string/str2num-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2num-2.m Tue Feb 25 00:21:38 1997 *************** *** 0 **** --- 1 ---- + str2num () diff -cNr octave-2.0.4/test/octave.test/string/str2num-3.m octave-2.0.5/test/octave.test/string/str2num-3.m *** octave-2.0.4/test/octave.test/string/str2num-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/str2num-3.m Tue Feb 25 00:21:49 1997 *************** *** 0 **** --- 1 ---- + str2num ("string", 1) diff -cNr octave-2.0.4/test/octave.test/string/strcat-1.m octave-2.0.5/test/octave.test/string/strcat-1.m *** octave-2.0.4/test/octave.test/string/strcat-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcat-1.m Tue Feb 25 00:32:00 1997 *************** *** 0 **** --- 1,2 ---- + (strcmp (strcat ("foo", "bar"), "foobar") + && strcmp (strcat (["a"; "bb"], ["foo"; "bar"]), ["a foo"; "bbbar"])) diff -cNr octave-2.0.4/test/octave.test/string/strcat-2.m octave-2.0.5/test/octave.test/string/strcat-2.m *** octave-2.0.4/test/octave.test/string/strcat-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcat-2.m Tue Feb 25 00:30:14 1997 *************** *** 0 **** --- 1 ---- + strcat () diff -cNr octave-2.0.4/test/octave.test/string/strcat-3.m octave-2.0.5/test/octave.test/string/strcat-3.m *** octave-2.0.4/test/octave.test/string/strcat-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcat-3.m Tue Feb 25 00:29:56 1997 *************** *** 0 **** --- 1 ---- + strcat (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/strcat-4.m octave-2.0.5/test/octave.test/string/strcat-4.m *** octave-2.0.4/test/octave.test/string/strcat-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcat-4.m Tue Feb 25 00:29:30 1997 *************** *** 0 **** --- 1 ---- + strcat ("err") diff -cNr octave-2.0.4/test/octave.test/string/strcmp-1.m octave-2.0.5/test/octave.test/string/strcmp-1.m *** octave-2.0.4/test/octave.test/string/strcmp-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcmp-1.m Tue Feb 25 00:55:45 1997 *************** *** 0 **** --- 1 ---- + strcmp ("foobar", "foobar") && strcmp ("fooba", "foobar") == 0 diff -cNr octave-2.0.4/test/octave.test/string/strcmp-2.m octave-2.0.5/test/octave.test/string/strcmp-2.m *** octave-2.0.4/test/octave.test/string/strcmp-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcmp-2.m Tue Feb 25 00:46:55 1997 *************** *** 0 **** --- 1 ---- + strcmp () diff -cNr octave-2.0.4/test/octave.test/string/strcmp-3.m octave-2.0.5/test/octave.test/string/strcmp-3.m *** octave-2.0.4/test/octave.test/string/strcmp-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strcmp-3.m Tue Feb 25 00:47:03 1997 *************** *** 0 **** --- 1 ---- + strcmp ("foo", "bar", 3) diff -cNr octave-2.0.4/test/octave.test/string/string.exp octave-2.0.5/test/octave.test/string/string.exp *** octave-2.0.4/test/octave.test/string/string.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/string.exp Tue Feb 25 00:56:05 1997 *************** *** 0 **** --- 1,527 ---- + set test str-esc-1 + set prog_output "ok" + do_test str-esc-1.m + + set test str-esc-2 + set prog_output "ok" + do_test str-esc-2.m + + set test str-esc-3 + set prog_output "ok" + do_test str-esc-3.m + + set test str-esc-4 + set prog_output "ok" + do_test str-esc-4.m + + set test str-esc-5 + set prog_output "ok" + do_test str-esc-5.m + + set test str-esc-6 + set prog_output "ok" + do_test str-esc-6.m + + set test str-esc-7 + set prog_output "ok" + do_test str-esc-7.m + + set test str-esc-8 + set prog_output "ok" + do_test str-esc-8.m + + set test str-esc-9 + set prog_output "ok" + do_test str-esc-9.m + + set test str-esc-10 + set prog_output "ok" + do_test str-esc-10.m + + set test str-esc-11 + set prog_output ".*unrecognized escape sequence.*" + do_test str-esc-11.m + + set test str-esc-12 + set prog_output "ok" + do_test str-esc-12.m + + set test string_fill_char-1 + set prog_output "ans = 1" + do_test string_fill_char-1.m + + set test string_fill_char-2 + set prog_output "ans = 1" + do_test string_fill_char-2.m + + set test isstr-1 + set prog_output "ans = 0" + do_test isstr-1.m + + set test isstr-2 + set prog_output "ans = 0" + do_test isstr-2.m + + set test isstr-3 + set prog_output "ans = 0" + do_test isstr-3.m + + set test isstr-4 + set prog_output "ans = 0" + do_test isstr-4.m + + set test isstr-5 + set prog_output "ans = 1" + do_test isstr-5.m + + set test isstr-6 + set prog_output "ans = 1" + do_test isstr-6.m + + set test isstr-7 + set prog_output "ans = 1" + do_test isstr-7.m + + set test isstr-8 + set prog_output "ans = 1" + do_test isstr-8.m + + set test isstr-9 + set prog_output "ans = 0" + do_test isstr-9.m + + set test isstr-10 + set prog_output "\n... isstr:.*" + do_test isstr-10.m + + set test isstr-11 + set prog_output "\n... isstr:.*" + do_test isstr-11.m + + set test blanks-1 + set prog_output "ans = 1" + do_test blanks-1.m + + set test blanks-2 + set prog_output "usage:.*" + do_test blanks-2.m + + set test blanks-3 + set prog_output "usage:.*" + do_test blanks-3.m + + set test int2str-1 + set prog_output "ans = 1" + do_test int2str-1.m + + set test int2str-2 + set prog_output "usage:.*" + do_test int2str-2.m + + set test int2str-3 + set prog_output "usage:.*" + do_test int2str-3.m + + set test num2str-1 + set prog_output "ans = 1" + do_test num2str-1.m + + set test num2str-2 + set prog_output "usage:.*" + do_test num2str-2.m + + set test num2str-3 + set prog_output "usage:.*" + do_test num2str-3.m + + set test setstr-1 + set prog_output "ans = 1" + do_test setstr-1.m + + set test setstr-2 + set prog_output "\n... setstr:.*" + do_test setstr-2.m + + set test setstr-3 + set prog_output "\n... setstr:.*" + do_test setstr-3.m + + set test strcat- + set prog_output "" + do_test strcat-.m + + set test strcat-2 + set prog_output "usage:.*" + do_test strcat-2.m + + set test strcat-3 + set prog_output "error:.*" + do_test strcat-3.m + + set test strcat-4 + set prog_output "usage:.*" + do_test strcat-4.m + + set test str2mat-1 + set prog_output "ans = 1" + do_test str2mat-1.m + + set test str2mat-2 + set prog_output "usage:.*" + do_test str2mat-2.m + + set test str2mat-3 + set prog_output "error:.*" + do_test str2mat-3.m + + set test deblank-1 + set prog_output "ans = 1" + do_test deblank-1.m + + set test deblank-2 + set prog_output "usage:.*" + do_test deblank-2.m + + set test deblank-3 + set prog_output "usage:.*" + do_test deblank-3.m + + set test deblank-4 + set prog_output "error:.*" + do_test deblank-4.m + + set test findstr-1 + set prog_output "ans = 1" + do_test findstr-1.m + + set test findstr-2 + set prog_output "usage:.*" + do_test findstr-2.m + + set test findstr-3 + set prog_output "usage:.*" + do_test findstr-3.m + + set test index-1 + set prog_output "ans = 1" + do_test index-1.m + + set test index-2 + set prog_output "usage:.*" + do_test index-2.m + + set test index-3 + set prog_output "usage:.*" + do_test index-3.m + + set test rindex-1 + set prog_output "ans = 1" + do_test rindex-1.m + + set test rindex-2 + set prog_output "usage:.*" + do_test rindex-2.m + + set test rindex-3 + set prog_output "usage:.*" + do_test rindex-3.m + + set test split-1 + set prog_output "ans = 1" + do_test split-1.m + + set test split-2 + set prog_output "usage:.*" + do_test split-2.m + + set test split-3 + set prog_output "usage:.*" + do_test split-3.m + + set test strrep-1 + set prog_output "ans = 1" + do_test strrep-1.m + + set test strrep-2 + set prog_output "usage:.*" + do_test strrep-2.m + + set test strrep-3 + set prog_output "usage:.*" + do_test strrep-3.m + + set test substr-1 + set prog_output "ans = 1" + do_test substr-1.m + + set test substr-2 + set prog_output "usage:.*" + do_test substr-2.m + + set test substr-3 + set prog_output "usage:.*" + do_test substr-3.m + + set test strcmp-1 + set prog_output "ans = 1" + do_test strcmp-1.m + + set test strcmp-2 + set prog_output "usage:.*" + do_test strcmp-2.m + + set test strcmp-3 + set prog_output "usage:.*" + do_test strcmp-3.m + + set test bin2dec-1 + set prog_output "ans = 1" + do_test bin2dec-1.m + + set test bin2dec-2 + set prog_output "usage:.*" + do_test bin2dec-2.m + + set test bin2dec-3 + set prog_output "usage:.*" + do_test bin2dec-3.m + + set test dec2bin-1 + set prog_output "ans = 1" + do_test dec2bin-1.m + + set test dec2bin-2 + set prog_output "usage:.*" + do_test dec2bin-2.m + + set test dec2bin-3 + set prog_output "usage:.*" + do_test dec2bin-3.m + + set test dec2hex-1 + set prog_output "ans = 1" + do_test dec2hex-1.m + + set test dec2hex-2 + set prog_output "usage:.*" + do_test dec2hex-2.m + + set test dec2hex-3 + set prog_output "usage:.*" + do_test dec2hex-3.m + + set test hex2dec-1 + set prog_output "ans = 1" + do_test hex2dec-1.m + + set test hex2dec-2 + set prog_output "usage:.*" + do_test hex2dec-2.m + + set test hex2dec-3 + set prog_output "usage:.*" + do_test hex2dec-3.m + + set test str2num-1 + set prog_output "ans = 1" + do_test str2num-1.m + + set test str2num-2 + set prog_output "usage:.*" + do_test str2num-2.m + + set test str2num-3 + set prog_output "usage:.*" + do_test str2num-3.m + + set test undo_string_escapes-1 + set prog_output "ans = 1" + do_test undo_string_escapes-1.m + + set test undo_string_escapes-2 + set prog_output "\n... undo_string_escapes:.*" + do_test undo_string_escapes-2.m + + set test undo_string_escapes-3 + set prog_output "\n... undo_string_escapes:.*" + do_test undo_string_escapes-3.m + + set test toascii-1 + set prog_output "ans = 1" + do_test toascii-1.m + + set test toascii-3 + set prog_output "error:.*" + do_test toascii-3.m + + set test toascii-3 + set prog_output "error:.*" + do_test toascii-3.m + + set test tolower-1 + set prog_output "ans = 1" + do_test tolower-1.m + + set test tolower-3 + set prog_output "error:.*" + do_test tolower-3.m + + set test tolower-3 + set prog_output "error:.*" + do_test tolower-3.m + + set test toupper-1 + set prog_output "ans = 1" + do_test toupper-1.m + + set test toupper-3 + set prog_output "error:.*" + do_test toupper-3.m + + set test toupper-3 + set prog_output "error:.*" + do_test toupper-3.m + + set test isalnum-1 + set prog_output "ans = 1" + do_test isalnum-1.m + + set test isalnum-2 + set prog_output "error:.*" + do_test isalnum-2.m + + set test isalnum-3 + set prog_output "error:.*" + do_test isalnum-3.m + + set test isalpha-1 + set prog_output "ans = 1" + do_test isalpha-1.m + + set test isalpha-2 + set prog_output "error:.*" + do_test isalpha-2.m + + set test isalpha-3 + set prog_output "error:.*" + do_test isalpha-3.m + + set test isascii-1 + set prog_output "ans = 1" + do_test isascii-1.m + + set test isascii-2 + set prog_output "error:.*" + do_test isascii-2.m + + set test isascii-3 + set prog_output "error:.*" + do_test isascii-3.m + + set test iscntrl-1 + set prog_output "ans = 1" + do_test iscntrl-1.m + + set test iscntrl-2 + set prog_output "error:.*" + do_test iscntrl-2.m + + set test iscntrl-3 + set prog_output "error:.*" + do_test iscntrl-3.m + + set test isdigit-1 + set prog_output "ans = 1" + do_test isdigit-1.m + + set test isdigit-2 + set prog_output "error:.*" + do_test isdigit-2.m + + set test isdigit-3 + set prog_output "error:.*" + do_test isdigit-3.m + + set test isgraph-1 + set prog_output "ans = 1" + do_test isgraph-1.m + + set test isgraph-2 + set prog_output "error:.*" + do_test isgraph-2.m + + set test isgraph-3 + set prog_output "error:.*" + do_test isgraph-3.m + + set test islower-1 + set prog_output "ans = 1" + do_test islower-1.m + + set test islower-2 + set prog_output "error:.*" + do_test islower-2.m + + set test islower-3 + set prog_output "error:.*" + do_test islower-3.m + + set test isprint-1 + set prog_output "ans = 1" + do_test isprint-1.m + + set test isprint-2 + set prog_output "error:.*" + do_test isprint-2.m + + set test isprint-3 + set prog_output "error:.*" + do_test isprint-3.m + + set test ispunct-1 + set prog_output "ans = 1" + do_test ispunct-1.m + + set test ispunct-2 + set prog_output "error:.*" + do_test ispunct-2.m + + set test ispunct-3 + set prog_output "error:.*" + do_test ispunct-3.m + + set test isspace-1 + set prog_output "ans = 1" + do_test isspace-1.m + + set test isspace-2 + set prog_output "error:.*" + do_test isspace-2.m + + set test isspace-3 + set prog_output "error:.*" + do_test isspace-3.m + + set test isupper-1 + set prog_output "ans = 1" + do_test isupper-1.m + + set test isupper-2 + set prog_output "error:.*" + do_test isupper-2.m + + set test isupper-3 + set prog_output "error:.*" + do_test isupper-3.m + + set test isxdigit-1 + set prog_output "ans = 1" + do_test isxdigit-1.m + + set test isxdigit-2 + set prog_output "error:.*" + do_test isxdigit-2.m + + set test isxdigit-3 + set prog_output "error:.*" + do_test isxdigit-3.m diff -cNr octave-2.0.4/test/octave.test/string/string_fill_char-1.m octave-2.0.5/test/octave.test/string/string_fill_char-1.m *** octave-2.0.4/test/octave.test/string/string_fill_char-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/string_fill_char-1.m Sat Feb 22 16:56:21 1997 *************** *** 0 **** --- 1,2 ---- + string_fill_char = "X"; + all (all (["these"; "are"; "strings"] == ["theseXX"; "areXXXX"; "strings"])) diff -cNr octave-2.0.4/test/octave.test/string/string_fill_char-2.m octave-2.0.5/test/octave.test/string/string_fill_char-2.m *** octave-2.0.4/test/octave.test/string/string_fill_char-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/string_fill_char-2.m Sat Feb 22 16:57:03 1997 *************** *** 0 **** --- 1 ---- + all (all (["these"; "are"; "strings"] == ["these "; "are "; "strings"])) diff -cNr octave-2.0.4/test/octave.test/string/strrep-1.m octave-2.0.5/test/octave.test/string/strrep-1.m *** octave-2.0.4/test/octave.test/string/strrep-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strrep-1.m Tue Feb 25 00:54:21 1997 *************** *** 0 **** --- 1,2 ---- + strcmp (strrep ("This is a test string", "is", "&%$"), + "Th&%$ &%$ a test string") diff -cNr octave-2.0.4/test/octave.test/string/strrep-2.m octave-2.0.5/test/octave.test/string/strrep-2.m *** octave-2.0.4/test/octave.test/string/strrep-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strrep-2.m Tue Feb 25 00:46:52 1997 *************** *** 0 **** --- 1 ---- + strrep () diff -cNr octave-2.0.4/test/octave.test/string/strrep-3.m octave-2.0.5/test/octave.test/string/strrep-3.m *** octave-2.0.4/test/octave.test/string/strrep-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/strrep-3.m Tue Feb 25 00:46:52 1997 *************** *** 0 **** --- 1 ---- + strrep ("foo", "bar", 3, 4) diff -cNr octave-2.0.4/test/octave.test/string/substr-1.m octave-2.0.5/test/octave.test/string/substr-1.m *** octave-2.0.4/test/octave.test/string/substr-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/substr-1.m Tue Feb 25 00:54:54 1997 *************** *** 0 **** --- 1 ---- + strcmp (substr ("This is a test string", 6, 9), "is a test") diff -cNr octave-2.0.4/test/octave.test/string/substr-2.m octave-2.0.5/test/octave.test/string/substr-2.m *** octave-2.0.4/test/octave.test/string/substr-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/substr-2.m Tue Feb 25 00:46:53 1997 *************** *** 0 **** --- 1 ---- + substr () diff -cNr octave-2.0.4/test/octave.test/string/substr-3.m octave-2.0.5/test/octave.test/string/substr-3.m *** octave-2.0.4/test/octave.test/string/substr-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/substr-3.m Tue Feb 25 00:47:22 1997 *************** *** 0 **** --- 1 ---- + substr ("foo", 2, 3, 4) diff -cNr octave-2.0.4/test/octave.test/string/toascii-1.m octave-2.0.5/test/octave.test/string/toascii-1.m *** octave-2.0.4/test/octave.test/string/toascii-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toascii-1.m Tue Feb 25 00:10:57 1997 *************** *** 0 **** --- 1,5 ---- + charset = setstr (0:127); + + result = 0:127; + + all (toascii (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/toascii-2.m octave-2.0.5/test/octave.test/string/toascii-2.m *** octave-2.0.4/test/octave.test/string/toascii-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toascii-2.m Tue Feb 25 00:06:55 1997 *************** *** 0 **** --- 1 ---- + toascii () diff -cNr octave-2.0.4/test/octave.test/string/toascii-3.m octave-2.0.5/test/octave.test/string/toascii-3.m *** octave-2.0.4/test/octave.test/string/toascii-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toascii-3.m Tue Feb 25 00:07:04 1997 *************** *** 0 **** --- 1 ---- + toascii (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/tolower-1.m octave-2.0.5/test/octave.test/string/tolower-1.m *** octave-2.0.4/test/octave.test/string/tolower-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/tolower-1.m Tue Feb 25 00:09:21 1997 *************** *** 0 **** --- 1,8 ---- + charset = setstr (0:127); + + result = charset; + + result ((toascii("A"):toascii("Z"))+1) \ + = result ((toascii("a"):toascii("z"))+1); + + all (tolower (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/tolower-2.m octave-2.0.5/test/octave.test/string/tolower-2.m *** octave-2.0.4/test/octave.test/string/tolower-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/tolower-2.m Tue Feb 25 00:06:37 1997 *************** *** 0 **** --- 1 ---- + tolower () diff -cNr octave-2.0.4/test/octave.test/string/tolower-3.m octave-2.0.5/test/octave.test/string/tolower-3.m *** octave-2.0.4/test/octave.test/string/tolower-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/tolower-3.m Tue Feb 25 00:06:47 1997 *************** *** 0 **** --- 1 ---- + tolower (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/toupper-1.m octave-2.0.5/test/octave.test/string/toupper-1.m *** octave-2.0.4/test/octave.test/string/toupper-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toupper-1.m Tue Feb 25 00:10:24 1997 *************** *** 0 **** --- 1,8 ---- + charset = setstr (0:127); + + result = charset; + + result ((toascii("a"):toascii("z"))+1) \ + = result ((toascii("A"):toascii("Z"))+1); + + all (toupper (charset) == result) diff -cNr octave-2.0.4/test/octave.test/string/toupper-2.m octave-2.0.5/test/octave.test/string/toupper-2.m *** octave-2.0.4/test/octave.test/string/toupper-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toupper-2.m Tue Feb 25 00:06:22 1997 *************** *** 0 **** --- 1 ---- + toupper () diff -cNr octave-2.0.4/test/octave.test/string/toupper-3.m octave-2.0.5/test/octave.test/string/toupper-3.m *** octave-2.0.4/test/octave.test/string/toupper-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/toupper-3.m Tue Feb 25 00:06:30 1997 *************** *** 0 **** --- 1 ---- + toupper (1, 2) diff -cNr octave-2.0.4/test/octave.test/string/undo_string_escapes-1.m octave-2.0.5/test/octave.test/string/undo_string_escapes-1.m *** octave-2.0.4/test/octave.test/string/undo_string_escapes-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/undo_string_escapes-1.m Tue Feb 25 00:14:52 1997 *************** *** 0 **** --- 1,2 ---- + strcmp (undo_string_escapes ("abc\a\b\n\r\t\v\f123"), + "abc\\a\\b\\n\\r\\t\\v\\f123") diff -cNr octave-2.0.4/test/octave.test/string/undo_string_escapes-2.m octave-2.0.5/test/octave.test/string/undo_string_escapes-2.m *** octave-2.0.4/test/octave.test/string/undo_string_escapes-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/undo_string_escapes-2.m Tue Feb 25 00:12:32 1997 *************** *** 0 **** --- 1 ---- + undo_string_escapes () diff -cNr octave-2.0.4/test/octave.test/string/undo_string_escapes-3.m octave-2.0.5/test/octave.test/string/undo_string_escapes-3.m *** octave-2.0.4/test/octave.test/string/undo_string_escapes-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/string/undo_string_escapes-3.m Tue Feb 25 00:12:45 1997 *************** *** 0 **** --- 1 ---- + undo_string_escapes ("string", 2) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-1.m octave-2.0.5/test/octave.test/struct/is_struct-1.m *** octave-2.0.4/test/octave.test/struct/is_struct-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-1.m Sat Feb 22 23:52:34 1997 *************** *** 0 **** --- 1 ---- + is_struct (1) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-10.m octave-2.0.5/test/octave.test/struct/is_struct-10.m *** octave-2.0.4/test/octave.test/struct/is_struct-10.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-10.m Sat Feb 22 23:54:40 1997 *************** *** 0 **** --- 1 ---- + is_struct () diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-11.m octave-2.0.5/test/octave.test/struct/is_struct-11.m *** octave-2.0.4/test/octave.test/struct/is_struct-11.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-11.m Sat Feb 22 23:54:56 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_struct (s, 1) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-2.m octave-2.0.5/test/octave.test/struct/is_struct-2.m *** octave-2.0.4/test/octave.test/struct/is_struct-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-2.m Sat Feb 22 23:52:46 1997 *************** *** 0 **** --- 1 ---- + is_struct ([1, 2]) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-3.m octave-2.0.5/test/octave.test/struct/is_struct-3.m *** octave-2.0.4/test/octave.test/struct/is_struct-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-3.m Sat Feb 22 23:52:55 1997 *************** *** 0 **** --- 1 ---- + is_struct ([]) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-4.m octave-2.0.5/test/octave.test/struct/is_struct-4.m *** octave-2.0.4/test/octave.test/struct/is_struct-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-4.m Sat Feb 22 23:53:11 1997 *************** *** 0 **** --- 1 ---- + is_struct ([1, 2; 3, 4]) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-5.m octave-2.0.5/test/octave.test/struct/is_struct-5.m *** octave-2.0.4/test/octave.test/struct/is_struct-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-5.m Sat Feb 22 23:53:25 1997 *************** *** 0 **** --- 1 ---- + is_struct ("t") diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-6.m octave-2.0.5/test/octave.test/struct/is_struct-6.m *** octave-2.0.4/test/octave.test/struct/is_struct-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-6.m Sat Feb 22 23:53:35 1997 *************** *** 0 **** --- 1 ---- + is_struct ("test") diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-7.m octave-2.0.5/test/octave.test/struct/is_struct-7.m *** octave-2.0.4/test/octave.test/struct/is_struct-7.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-7.m Sat Feb 22 23:53:49 1997 *************** *** 0 **** --- 1 ---- + is_struct (["test"; "ing"]) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-8.m octave-2.0.5/test/octave.test/struct/is_struct-8.m *** octave-2.0.4/test/octave.test/struct/is_struct-8.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-8.m Sat Feb 22 23:54:00 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + is_struct (s) diff -cNr octave-2.0.4/test/octave.test/struct/is_struct-9.m octave-2.0.5/test/octave.test/struct/is_struct-9.m *** octave-2.0.4/test/octave.test/struct/is_struct-9.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/is_struct-9.m Sat Feb 22 23:54:19 1997 *************** *** 0 **** --- 1,2 ---- + s.a.b = 1; + is_struct (s.a) diff -cNr octave-2.0.4/test/octave.test/struct/struct.exp octave-2.0.5/test/octave.test/struct/struct.exp *** octave-2.0.4/test/octave.test/struct/struct.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct.exp Sun Feb 23 00:10:31 1997 *************** *** 0 **** --- 1,87 ---- + set test is_struct-1 + set prog_output "ans = 0" + do_test is_struct-1.m + + set test is_struct-2 + set prog_output "ans = 0" + do_test is_struct-2.m + + set test is_struct-3 + set prog_output "ans = 0" + do_test is_struct-3.m + + set test is_struct-4 + set prog_output "ans = 0" + do_test is_struct-4.m + + set test is_struct-5 + set prog_output "ans = 0" + do_test is_struct-5.m + + set test is_struct-6 + set prog_output "ans = 0" + do_test is_struct-6.m + + set test is_struct-7 + set prog_output "ans = 0" + do_test is_struct-7.m + + set test is_struct-8 + set prog_output "ans = 1" + do_test is_struct-8.m + + set test is_struct-9 + set prog_output "ans = 1" + do_test is_struct-9.m + + set test is_struct-10 + set prog_output "\n... is_struct:.*" + do_test is_struct-10.m + + set test is_struct-11 + set prog_output "\n... is_struct:.*" + do_test is_struct-11.m + + set test struct_contains-1 + set prog_output "ans = 1" + do_test struct_contains-1.m + + set test struct_contains-2 + set prog_output "ans = 0" + do_test struct_contains-2.m + + set test struct_contains-3 + set prog_output "\n... struct_contains:.*" + do_test struct_contains-3.m + + set test struct_contains-4 + set prog_output "\n... struct_contains:.*" + do_test struct_contains-4.m + + set test struct_contains-5 + set prog_output "\n... struct_contains:.*" + do_test struct_contains-5.m + + set test struct_contains-6 + set prog_output "\n... struct_contains:.*" + do_test struct_contains-6.m + + set test struct_elements-1 + set prog_output "ans = 1" + do_test struct_elements-1.m + + set test struct_elements-2 + set prog_output "ans = 1" + do_test struct_elements-2.m + + set test struct_elements-3 + set prog_output "\n... struct_elements:.*" + do_test struct_elements-3.m + + set test struct_elements-4 + set prog_output "\n... struct_elements:.*" + do_test struct_elements-4.m + + set test struct_elements-5 + set prog_output "error:.*" + do_test struct_elements-5.m diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-1.m octave-2.0.5/test/octave.test/struct/struct_contains-1.m *** octave-2.0.4/test/octave.test/struct/struct_contains-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-1.m Sat Feb 22 23:56:10 1997 *************** *** 0 **** --- 1,3 ---- + s.aaa = 1; + s.a = 2; + struct_contains (s, "a") diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-2.m octave-2.0.5/test/octave.test/struct/struct_contains-2.m *** octave-2.0.4/test/octave.test/struct/struct_contains-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-2.m Sat Feb 22 23:56:29 1997 *************** *** 0 **** --- 1,3 ---- + s.aaa = 1; + s.a = 2; + struct_contains (s, "b") diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-3.m octave-2.0.5/test/octave.test/struct/struct_contains-3.m *** octave-2.0.4/test/octave.test/struct/struct_contains-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-3.m Sat Feb 22 23:56:40 1997 *************** *** 0 **** --- 1 ---- + struct_contains () diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-4.m octave-2.0.5/test/octave.test/struct/struct_contains-4.m *** octave-2.0.4/test/octave.test/struct/struct_contains-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-4.m Sat Feb 22 23:57:01 1997 *************** *** 0 **** --- 1,3 ---- + s.aaa = 1; + s.a = 2; + struct_contains (s, "a", 3) diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-5.m octave-2.0.5/test/octave.test/struct/struct_contains-5.m *** octave-2.0.4/test/octave.test/struct/struct_contains-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-5.m Sat Feb 22 23:57:22 1997 *************** *** 0 **** --- 1 ---- + struct_contains (1, "m") diff -cNr octave-2.0.4/test/octave.test/struct/struct_contains-6.m octave-2.0.5/test/octave.test/struct/struct_contains-6.m *** octave-2.0.4/test/octave.test/struct/struct_contains-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_contains-6.m Sat Feb 22 23:57:40 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 2; + struct_contains (s, 2) diff -cNr octave-2.0.4/test/octave.test/struct/struct_elements-1.m octave-2.0.5/test/octave.test/struct/struct_elements-1.m *** octave-2.0.4/test/octave.test/struct/struct_elements-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_elements-1.m Sun Feb 23 00:08:19 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + strcmp (struct_elements (s), "a") diff -cNr octave-2.0.4/test/octave.test/struct/struct_elements-2.m octave-2.0.5/test/octave.test/struct/struct_elements-2.m *** octave-2.0.4/test/octave.test/struct/struct_elements-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_elements-2.m Sun Feb 23 00:01:21 1997 *************** *** 0 **** --- 1,2 ---- + s.a.b = 1; + strcmp (struct_elements (s.a), "b") diff -cNr octave-2.0.4/test/octave.test/struct/struct_elements-3.m octave-2.0.5/test/octave.test/struct/struct_elements-3.m *** octave-2.0.4/test/octave.test/struct/struct_elements-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_elements-3.m Sun Feb 23 00:02:56 1997 *************** *** 0 **** --- 1 ---- + struct_elements () diff -cNr octave-2.0.4/test/octave.test/struct/struct_elements-4.m octave-2.0.5/test/octave.test/struct/struct_elements-4.m *** octave-2.0.4/test/octave.test/struct/struct_elements-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_elements-4.m Sat Mar 1 15:49:05 1997 *************** *** 0 **** --- 1,2 ---- + s.a = 1; + struct_elements (s, 1) diff -cNr octave-2.0.4/test/octave.test/struct/struct_elements-5.m octave-2.0.5/test/octave.test/struct/struct_elements-5.m *** octave-2.0.4/test/octave.test/struct/struct_elements-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/struct/struct_elements-5.m Sun Feb 23 00:03:19 1997 *************** *** 0 **** --- 1 ---- + struct_elements (1) diff -cNr octave-2.0.4/test/octave.test/switch/switch-1.m octave-2.0.5/test/octave.test/switch/switch-1.m *** octave-2.0.4/test/octave.test/switch/switch-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-1.m Fri Feb 28 21:57:39 1997 *************** *** 0 **** --- 1,10 ---- + a = 1; + b = 2; + c = 3; + + switch 0 case 1 x = a; case 2 x = b; otherwise x = c; endswitch + switch 1 case 1 y = a; case 2 y = b; otherwise y = c; endswitch + switch 2 case 1 z = a; case 2 z = b; otherwise z = c; endswitch + switch 3 case 1 p = a; case 2 p = b; otherwise p = c; endswitch + + x == c && y = a && z = b && p == c diff -cNr octave-2.0.4/test/octave.test/switch/switch-2.m octave-2.0.5/test/octave.test/switch/switch-2.m *** octave-2.0.4/test/octave.test/switch/switch-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-2.m Fri Feb 28 22:12:59 1997 *************** *** 0 **** --- 1,21 ---- + a = 1; + b = 2; + c = 3; + + x = zeros (1, 4); + + k = 1; + + for i = 0:3 + switch (i) + case a + x(k) = a; + case b + x(k) = b; + otherwise + x(k) = c; + endswitch + k++; + endfor + + all (x == [3, 1, 2, 3]) diff -cNr octave-2.0.4/test/octave.test/switch/switch-3.m octave-2.0.5/test/octave.test/switch/switch-3.m *** octave-2.0.4/test/octave.test/switch/switch-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-3.m Fri Feb 28 22:13:01 1997 *************** *** 0 **** --- 1,17 ---- + a = 1; + b = 2; + c = 3; + + x = zeros (1, 4); + + k = 1; + + for i = 0:3 + switch (i) + case a + x(k) = a; + endswitch + k++; + endfor + + all (x == [0, 1, 0, 0]) diff -cNr octave-2.0.4/test/octave.test/switch/switch-4.m octave-2.0.5/test/octave.test/switch/switch-4.m *** octave-2.0.4/test/octave.test/switch/switch-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-4.m Fri Feb 28 22:13:47 1997 *************** *** 0 **** --- 1 ---- + switch endswitch diff -cNr octave-2.0.4/test/octave.test/switch/switch-5.m octave-2.0.5/test/octave.test/switch/switch-5.m *** octave-2.0.4/test/octave.test/switch/switch-5.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-5.m Fri Feb 28 22:14:01 1997 *************** *** 0 **** --- 1 ---- + switch case endswitch diff -cNr octave-2.0.4/test/octave.test/switch/switch-6.m octave-2.0.5/test/octave.test/switch/switch-6.m *** octave-2.0.4/test/octave.test/switch/switch-6.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch-6.m Fri Feb 28 22:14:29 1997 *************** *** 0 **** --- 1 ---- + switch 1 default 1; endswitch diff -cNr octave-2.0.4/test/octave.test/switch/switch.exp octave-2.0.5/test/octave.test/switch/switch.exp *** octave-2.0.4/test/octave.test/switch/switch.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/switch/switch.exp Fri Feb 28 22:15:39 1997 *************** *** 0 **** --- 1,23 ---- + set test switch-1 + set prog_output "ans = 1" + do_test switch-1.m + + set test switch-2 + set prog_output "ans = 1" + do_test switch-2.m + + set test switch-3 + set prog_output "ans = 1" + do_test switch-3.m + + set test switch-4 + set prog_output "parse error.*" + do_test switch-4.m + + set test switch-5 + set prog_output "parse error.*" + do_test switch-5.m + + set test switch-6 + set prog_output "parse error.*" + do_test switch-6.m diff -cNr octave-2.0.4/test/octave.test/system/asctime-1.m octave-2.0.5/test/octave.test/system/asctime-1.m *** octave-2.0.4/test/octave.test/system/asctime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/asctime-1.m Tue Feb 25 17:33:18 1997 *************** *** 0 **** --- 1,2 ---- + t = time (); + strcmp (asctime (localtime (t)), ctime (t)) diff -cNr octave-2.0.4/test/octave.test/system/asctime-2.m octave-2.0.5/test/octave.test/system/asctime-2.m *** octave-2.0.4/test/octave.test/system/asctime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/asctime-2.m Tue Feb 25 16:31:36 1997 *************** *** 0 **** --- 1 ---- + asctime () diff -cNr octave-2.0.4/test/octave.test/system/asctime-3.m octave-2.0.5/test/octave.test/system/asctime-3.m *** octave-2.0.4/test/octave.test/system/asctime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/asctime-3.m Tue Feb 25 16:31:24 1997 *************** *** 0 **** --- 1 ---- + asctime (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/cd-1.m octave-2.0.5/test/octave.test/system/cd-1.m *** octave-2.0.4/test/octave.test/system/cd-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/cd-1.m Tue Feb 25 02:26:04 1997 *************** *** 0 **** --- 1,5 ---- + xdir = pwd (); + cd / + d1 = pwd (); + cd (xdir) + strcmp ("/", d1) && strcmp (pwd (), xdir) diff -cNr octave-2.0.4/test/octave.test/system/cd-2.m octave-2.0.5/test/octave.test/system/cd-2.m *** octave-2.0.4/test/octave.test/system/cd-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/cd-2.m Tue Feb 25 02:21:27 1997 *************** *** 0 **** --- 1 ---- + cd (1) diff -cNr octave-2.0.4/test/octave.test/system/clock-1.m octave-2.0.5/test/octave.test/system/clock-1.m *** octave-2.0.4/test/octave.test/system/clock-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/clock-1.m Tue Feb 25 21:21:19 1997 *************** *** 0 **** --- 1,3 ---- + t1 = clock; + t2 = str2num (strftime ("[%Y, %m, %e, %k, %M, %S]", localtime (time ()))); + etime (t1, t2) < 1 diff -cNr octave-2.0.4/test/octave.test/system/computer-1.m octave-2.0.5/test/octave.test/system/computer-1.m *** octave-2.0.4/test/octave.test/system/computer-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/computer-1.m Tue Feb 25 02:08:13 1997 *************** *** 0 **** --- 1 ---- + isstr (computer ()) && computer () == octave_config_info ("target_host_type") diff -cNr octave-2.0.4/test/octave.test/system/computer-2.m octave-2.0.5/test/octave.test/system/computer-2.m *** octave-2.0.4/test/octave.test/system/computer-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/computer-2.m Tue Feb 25 02:07:14 1997 *************** *** 0 **** --- 1 ---- + computer (2) diff -cNr octave-2.0.4/test/octave.test/system/cputime-1.m octave-2.0.5/test/octave.test/system/cputime-1.m *** octave-2.0.4/test/octave.test/system/cputime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/cputime-1.m Tue Feb 25 20:57:04 1997 *************** *** 0 **** --- 1,6 ---- + [t1, u1, s1] = cputime (); + for i = 1:200 + sin (i); + endfor + [t2, u2, s2] = cputime (); + t1 == u1 + s1 && t2 == u2 + s2 && t2 >= t1 && u2 >= u2 && s2 >= s2 diff -cNr octave-2.0.4/test/octave.test/system/ctime-1.m octave-2.0.5/test/octave.test/system/ctime-1.m *** octave-2.0.4/test/octave.test/system/ctime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/ctime-1.m Tue Feb 25 17:32:53 1997 *************** *** 0 **** --- 1,2 ---- + t = time (); + strcmp (asctime (localtime (t)), ctime (t)) diff -cNr octave-2.0.4/test/octave.test/system/ctime-2.m octave-2.0.5/test/octave.test/system/ctime-2.m *** octave-2.0.4/test/octave.test/system/ctime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/ctime-2.m Tue Feb 25 16:21:05 1997 *************** *** 0 **** --- 1 ---- + ctime () diff -cNr octave-2.0.4/test/octave.test/system/ctime-3.m octave-2.0.5/test/octave.test/system/ctime-3.m *** octave-2.0.4/test/octave.test/system/ctime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/ctime-3.m Tue Feb 25 16:21:00 1997 *************** *** 0 **** --- 1 ---- + ctime (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/date-1.m octave-2.0.5/test/octave.test/system/date-1.m *** octave-2.0.4/test/octave.test/system/date-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/date-1.m Sat Mar 1 00:13:02 1997 *************** *** 0 **** --- 1 ---- + strcmp (date (), strftime ("%d-%b-%y", localtime (time ()))) diff -cNr octave-2.0.4/test/octave.test/system/endgrent-1.m octave-2.0.5/test/octave.test/system/endgrent-1.m *** octave-2.0.4/test/octave.test/system/endgrent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/endgrent-1.m Tue Feb 25 02:49:19 1997 *************** *** 0 **** --- 1 ---- + endgrent (1) diff -cNr octave-2.0.4/test/octave.test/system/endpwent-1.m octave-2.0.5/test/octave.test/system/endpwent-1.m *** octave-2.0.4/test/octave.test/system/endpwent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/endpwent-1.m Tue Feb 25 02:43:31 1997 *************** *** 0 **** --- 1 ---- + endpwent (1) diff -cNr octave-2.0.4/test/octave.test/system/etime-1.m octave-2.0.5/test/octave.test/system/etime-1.m *** octave-2.0.4/test/octave.test/system/etime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/etime-1.m Tue Feb 25 20:54:57 1997 *************** *** 0 **** --- 1,8 ---- + t1 = [1993, 8, 20, 4, 56, 1]; + t2 = [1993, 8, 21, 4, 56, 1]; + t3 = [1993, 8, 20, 5, 56, 1]; + t4 = [1993, 8, 20, 4, 57, 1]; + t5 = [1993, 8, 20, 4, 56, 14]; + + (etime (t2, t1) == 86400 && etime (t3, t1) == 3600 + && etime (t4, t1) == 60 && etime (t5, t1) == 13) diff -cNr octave-2.0.4/test/octave.test/system/etime-2.m octave-2.0.5/test/octave.test/system/etime-2.m *** octave-2.0.4/test/octave.test/system/etime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/etime-2.m Tue Feb 25 20:51:29 1997 *************** *** 0 **** --- 1 ---- + etime () diff -cNr octave-2.0.4/test/octave.test/system/etime-3.m octave-2.0.5/test/octave.test/system/etime-3.m *** octave-2.0.4/test/octave.test/system/etime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/etime-3.m Tue Feb 25 20:51:36 1997 *************** *** 0 **** --- 1 ---- + etime (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/system/file_in_path-1.m octave-2.0.5/test/octave.test/system/file_in_path-1.m *** octave-2.0.4/test/octave.test/system/file_in_path-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/file_in_path-1.m Tue Feb 25 21:20:10 1997 *************** *** 0 **** --- 1 ---- + isstr (file_in_path (LOADPATH, "date.m")) diff -cNr octave-2.0.4/test/octave.test/system/file_in_path-2.m octave-2.0.5/test/octave.test/system/file_in_path-2.m *** octave-2.0.4/test/octave.test/system/file_in_path-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/file_in_path-2.m Tue Feb 25 21:19:19 1997 *************** *** 0 **** --- 1 ---- + file_in_path ("foo", "bar", 1) diff -cNr octave-2.0.4/test/octave.test/system/file_in_path-3.m octave-2.0.5/test/octave.test/system/file_in_path-3.m *** octave-2.0.4/test/octave.test/system/file_in_path-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/file_in_path-3.m Tue Feb 25 21:19:32 1997 *************** *** 0 **** --- 1 ---- + file_in_path () diff -cNr octave-2.0.4/test/octave.test/system/file_in_path-4.m octave-2.0.5/test/octave.test/system/file_in_path-4.m *** octave-2.0.4/test/octave.test/system/file_in_path-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/file_in_path-4.m Tue Feb 25 21:19:45 1997 *************** *** 0 **** --- 1 ---- + file_in_path ("foo", "bar", "baz") diff -cNr octave-2.0.4/test/octave.test/system/fnmatch-1.m octave-2.0.5/test/octave.test/system/fnmatch-1.m *** octave-2.0.4/test/octave.test/system/fnmatch-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/fnmatch-1.m Tue Feb 25 21:17:46 1997 *************** *** 0 **** --- 1,6 ---- + string_fill_char = setstr (0); + (fnmatch ("a*a", ["aba"; "xxxba"; "aa"]) == [1; 0; 1] + && fnmatch (["a*a"; "b*b"], "bob") + && fnmatch ("x[0-5]*", ["x1"; "x6"]) == [1; 0] + && fnmatch ("x[0-5]*", ["x1"; "x6"; "x001"]) == [1; 0; 1] + && fnmatch ("x???y", ["xabcy"; "xy"]) == [1; 0]) diff -cNr octave-2.0.4/test/octave.test/system/fnmatch-2.m octave-2.0.5/test/octave.test/system/fnmatch-2.m *** octave-2.0.4/test/octave.test/system/fnmatch-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/fnmatch-2.m Tue Feb 25 21:11:21 1997 *************** *** 0 **** --- 1 ---- + fnmatch () diff -cNr octave-2.0.4/test/octave.test/system/fnmatch-3.m octave-2.0.5/test/octave.test/system/fnmatch-3.m *** octave-2.0.4/test/octave.test/system/fnmatch-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/fnmatch-3.m Sat Mar 1 15:53:16 1997 *************** *** 0 **** --- 1 ---- + fnmatch ("foo", "bar", 3) diff -cNr octave-2.0.4/test/octave.test/system/getegid-1.m octave-2.0.5/test/octave.test/system/getegid-1.m *** octave-2.0.4/test/octave.test/system/getegid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getegid-1.m Tue Feb 25 02:12:34 1997 *************** *** 0 **** --- 1 ---- + getegid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getegid-2.m octave-2.0.5/test/octave.test/system/getegid-2.m *** octave-2.0.4/test/octave.test/system/getegid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getegid-2.m Tue Feb 25 02:12:10 1997 *************** *** 0 **** --- 1 ---- + getegid (1) diff -cNr octave-2.0.4/test/octave.test/system/getenv-1.m octave-2.0.5/test/octave.test/system/getenv-1.m *** octave-2.0.4/test/octave.test/system/getenv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getenv-1.m Tue Feb 25 02:24:34 1997 *************** *** 0 **** --- 1 ---- + strcmp (getenv ("HOME"), tilde_expand ("~")) diff -cNr octave-2.0.4/test/octave.test/system/getenv-2.m octave-2.0.5/test/octave.test/system/getenv-2.m *** octave-2.0.4/test/octave.test/system/getenv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getenv-2.m Tue Feb 25 02:14:23 1997 *************** *** 0 **** --- 1 ---- + getenv () diff -cNr octave-2.0.4/test/octave.test/system/getenv-3.m octave-2.0.5/test/octave.test/system/getenv-3.m *** octave-2.0.4/test/octave.test/system/getenv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getenv-3.m Tue Feb 25 02:14:34 1997 *************** *** 0 **** --- 1 ---- + getenv ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/getenv-4.m octave-2.0.5/test/octave.test/system/getenv-4.m *** octave-2.0.4/test/octave.test/system/getenv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getenv-4.m Tue Feb 25 02:14:59 1997 *************** *** 0 **** --- 1 ---- + getenv (1) diff -cNr octave-2.0.4/test/octave.test/system/geteuid-1.m octave-2.0.5/test/octave.test/system/geteuid-1.m *** octave-2.0.4/test/octave.test/system/geteuid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/geteuid-1.m Tue Feb 25 02:12:33 1997 *************** *** 0 **** --- 1 ---- + geteuid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/geteuid-2.m octave-2.0.5/test/octave.test/system/geteuid-2.m *** octave-2.0.4/test/octave.test/system/geteuid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/geteuid-2.m Tue Feb 25 02:12:09 1997 *************** *** 0 **** --- 1 ---- + geteuid (1) diff -cNr octave-2.0.4/test/octave.test/system/getgid-1.m octave-2.0.5/test/octave.test/system/getgid-1.m *** octave-2.0.4/test/octave.test/system/getgid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgid-1.m Tue Feb 25 02:12:34 1997 *************** *** 0 **** --- 1 ---- + getgid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getgid-2.m octave-2.0.5/test/octave.test/system/getgid-2.m *** octave-2.0.4/test/octave.test/system/getgid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgid-2.m Tue Feb 25 02:12:12 1997 *************** *** 0 **** --- 1 ---- + getgid (1) diff -cNr octave-2.0.4/test/octave.test/system/getgrent-1.m octave-2.0.5/test/octave.test/system/getgrent-1.m *** octave-2.0.4/test/octave.test/system/getgrent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrent-1.m Tue Feb 25 02:44:57 1997 *************** *** 0 **** --- 1,6 ---- + x = getgrent (); + (is_struct (x) + && struct_contains (x, "name") + && struct_contains (x, "passwd") + && struct_contains (x, "gid") + && struct_contains (x, "mem")) diff -cNr octave-2.0.4/test/octave.test/system/getgrent-2.m octave-2.0.5/test/octave.test/system/getgrent-2.m *** octave-2.0.4/test/octave.test/system/getgrent-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrent-2.m Tue Feb 25 02:45:16 1997 *************** *** 0 **** --- 1 ---- + getgrent (1) diff -cNr octave-2.0.4/test/octave.test/system/getgrgid-1.m octave-2.0.5/test/octave.test/system/getgrgid-1.m *** octave-2.0.4/test/octave.test/system/getgrgid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrgid-1.m Tue Feb 25 02:46:50 1997 *************** *** 0 **** --- 1,4 ---- + x = getgrent (); + y = getgrgid (x.gid); + + strcmp (x.name, y.name) && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/getgrgid-2.m octave-2.0.5/test/octave.test/system/getgrgid-2.m *** octave-2.0.4/test/octave.test/system/getgrgid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrgid-2.m Tue Feb 25 02:46:56 1997 *************** *** 0 **** --- 1 ---- + getgrgid () diff -cNr octave-2.0.4/test/octave.test/system/getgrgid-3.m octave-2.0.5/test/octave.test/system/getgrgid-3.m *** octave-2.0.4/test/octave.test/system/getgrgid-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrgid-3.m Tue Feb 25 02:47:04 1997 *************** *** 0 **** --- 1 ---- + getgrgid (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/getgrnam-1.m octave-2.0.5/test/octave.test/system/getgrnam-1.m *** octave-2.0.4/test/octave.test/system/getgrnam-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrnam-1.m Tue Feb 25 02:47:48 1997 *************** *** 0 **** --- 1,4 ---- + x = getgrent (); + y = getgrnam (x.name); + + strcmp (x.name, y.name) && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/getgrnam-2.m octave-2.0.5/test/octave.test/system/getgrnam-2.m *** octave-2.0.4/test/octave.test/system/getgrnam-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrnam-2.m Tue Feb 25 02:47:51 1997 *************** *** 0 **** --- 1 ---- + getgrnam () diff -cNr octave-2.0.4/test/octave.test/system/getgrnam-3.m octave-2.0.5/test/octave.test/system/getgrnam-3.m *** octave-2.0.4/test/octave.test/system/getgrnam-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getgrnam-3.m Tue Feb 25 02:47:57 1997 *************** *** 0 **** --- 1 ---- + getgrnam ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/getpgrp-1.m octave-2.0.5/test/octave.test/system/getpgrp-1.m *** octave-2.0.4/test/octave.test/system/getpgrp-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpgrp-1.m Tue Feb 25 02:12:27 1997 *************** *** 0 **** --- 1 ---- + getpgrp () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getpgrp-2.m octave-2.0.5/test/octave.test/system/getpgrp-2.m *** octave-2.0.4/test/octave.test/system/getpgrp-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpgrp-2.m Tue Feb 25 02:12:03 1997 *************** *** 0 **** --- 1 ---- + getpgrp (1) diff -cNr octave-2.0.4/test/octave.test/system/getpid-1.m octave-2.0.5/test/octave.test/system/getpid-1.m *** octave-2.0.4/test/octave.test/system/getpid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpid-1.m Tue Feb 25 02:12:32 1997 *************** *** 0 **** --- 1 ---- + getpid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getpid-2.m octave-2.0.5/test/octave.test/system/getpid-2.m *** octave-2.0.4/test/octave.test/system/getpid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpid-2.m Tue Feb 25 02:12:07 1997 *************** *** 0 **** --- 1 ---- + getpid (1) diff -cNr octave-2.0.4/test/octave.test/system/getppid-1.m octave-2.0.5/test/octave.test/system/getppid-1.m *** octave-2.0.4/test/octave.test/system/getppid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getppid-1.m Tue Feb 25 02:12:32 1997 *************** *** 0 **** --- 1 ---- + getppid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getppid-2.m octave-2.0.5/test/octave.test/system/getppid-2.m *** octave-2.0.4/test/octave.test/system/getppid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getppid-2.m Tue Feb 25 02:12:09 1997 *************** *** 0 **** --- 1 ---- + getppid (1) diff -cNr octave-2.0.4/test/octave.test/system/getpwent-1.m octave-2.0.5/test/octave.test/system/getpwent-1.m *** octave-2.0.4/test/octave.test/system/getpwent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwent-1.m Tue Feb 25 02:50:32 1997 *************** *** 0 **** --- 1,9 ---- + s = getpwent (); + (is_struct (s) + && struct_contains (s, "name") + && struct_contains (s, "passwd") + && struct_contains (s, "uid") + && struct_contains (s, "gid") + && struct_contains (s, "gecos") + && struct_contains (s, "dir") + && struct_contains (s, "shell")) diff -cNr octave-2.0.4/test/octave.test/system/getpwent-2.m octave-2.0.5/test/octave.test/system/getpwent-2.m *** octave-2.0.4/test/octave.test/system/getpwent-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwent-2.m Tue Feb 25 02:37:59 1997 *************** *** 0 **** --- 1 ---- + getpwent (1) diff -cNr octave-2.0.4/test/octave.test/system/getpwnam-1.m octave-2.0.5/test/octave.test/system/getpwnam-1.m *** octave-2.0.4/test/octave.test/system/getpwnam-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwnam-1.m Tue Feb 25 02:52:53 1997 *************** *** 0 **** --- 1,4 ---- + x = getpwent (); + y = getpwnam (x.name); + + strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/getpwnam-2.m octave-2.0.5/test/octave.test/system/getpwnam-2.m *** octave-2.0.4/test/octave.test/system/getpwnam-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwnam-2.m Tue Feb 25 02:42:10 1997 *************** *** 0 **** --- 1 ---- + getpwnam () diff -cNr octave-2.0.4/test/octave.test/system/getpwnam-3.m octave-2.0.5/test/octave.test/system/getpwnam-3.m *** octave-2.0.4/test/octave.test/system/getpwnam-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwnam-3.m Tue Feb 25 02:42:23 1997 *************** *** 0 **** --- 1 ---- + getpwnam ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/getpwuid-1.m octave-2.0.5/test/octave.test/system/getpwuid-1.m *** octave-2.0.4/test/octave.test/system/getpwuid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwuid-1.m Tue Feb 25 02:51:22 1997 *************** *** 0 **** --- 1,4 ---- + x = getpwent (); + y = getpwuid (x.uid); + + strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/getpwuid-2.m octave-2.0.5/test/octave.test/system/getpwuid-2.m *** octave-2.0.4/test/octave.test/system/getpwuid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwuid-2.m Tue Feb 25 02:41:26 1997 *************** *** 0 **** --- 1 ---- + getpwuid () diff -cNr octave-2.0.4/test/octave.test/system/getpwuid-3.m octave-2.0.5/test/octave.test/system/getpwuid-3.m *** octave-2.0.4/test/octave.test/system/getpwuid-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getpwuid-3.m Tue Feb 25 02:41:33 1997 *************** *** 0 **** --- 1 ---- + getpwuid (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/getrusage-1.m octave-2.0.5/test/octave.test/system/getrusage-1.m *** octave-2.0.4/test/octave.test/system/getrusage-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getrusage-1.m Tue Feb 25 02:09:09 1997 *************** *** 0 **** --- 1 ---- + is_struct (getrusage ()) diff -cNr octave-2.0.4/test/octave.test/system/getuid-1.m octave-2.0.5/test/octave.test/system/getuid-1.m *** octave-2.0.4/test/octave.test/system/getuid-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getuid-1.m Tue Feb 25 02:12:33 1997 *************** *** 0 **** --- 1 ---- + getuid () > 0 diff -cNr octave-2.0.4/test/octave.test/system/getuid-2.m octave-2.0.5/test/octave.test/system/getuid-2.m *** octave-2.0.4/test/octave.test/system/getuid-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/getuid-2.m Tue Feb 25 02:12:10 1997 *************** *** 0 **** --- 1 ---- + getuid (1) diff -cNr octave-2.0.4/test/octave.test/system/glob-1.m octave-2.0.5/test/octave.test/system/glob-1.m *** octave-2.0.4/test/octave.test/system/glob-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/glob-1.m Tue Feb 25 22:02:50 1997 *************** *** 0 **** --- 1 ---- + isstr (glob ("/*")) diff -cNr octave-2.0.4/test/octave.test/system/glob-2.m octave-2.0.5/test/octave.test/system/glob-2.m *** octave-2.0.4/test/octave.test/system/glob-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/glob-2.m Tue Feb 25 22:02:56 1997 *************** *** 0 **** --- 1 ---- + glob () diff -cNr octave-2.0.4/test/octave.test/system/glob-3.m octave-2.0.5/test/octave.test/system/glob-3.m *** octave-2.0.4/test/octave.test/system/glob-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/glob-3.m Tue Feb 25 22:03:05 1997 *************** *** 0 **** --- 1 ---- + glob ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/gmtime-1.m octave-2.0.5/test/octave.test/system/gmtime-1.m *** octave-2.0.4/test/octave.test/system/gmtime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/gmtime-1.m Tue Feb 25 17:33:59 1997 *************** *** 0 **** --- 1,13 ---- + ts = gmtime (time ()); + (is_struct (ts) + && struct_contains (ts, "usec") + && struct_contains (ts, "year") + && struct_contains (ts, "mon") + && struct_contains (ts, "mday") + && struct_contains (ts, "sec") + && struct_contains (ts, "zone") + && struct_contains (ts, "min") + && struct_contains (ts, "wday") + && struct_contains (ts, "hour") + && struct_contains (ts, "isdst") + && struct_contains (ts, "yday")) diff -cNr octave-2.0.4/test/octave.test/system/gmtime-2.m octave-2.0.5/test/octave.test/system/gmtime-2.m *** octave-2.0.4/test/octave.test/system/gmtime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/gmtime-2.m Tue Feb 25 16:22:38 1997 *************** *** 0 **** --- 1 ---- + gmtime () diff -cNr octave-2.0.4/test/octave.test/system/gmtime-3.m octave-2.0.5/test/octave.test/system/gmtime-3.m *** octave-2.0.4/test/octave.test/system/gmtime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/gmtime-3.m Tue Feb 25 16:22:30 1997 *************** *** 0 **** --- 1 ---- + gmtime (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/is_leap_year-1.m octave-2.0.5/test/octave.test/system/is_leap_year-1.m *** octave-2.0.4/test/octave.test/system/is_leap_year-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/is_leap_year-1.m Tue Feb 25 20:59:44 1997 *************** *** 0 **** --- 1,3 ---- + (is_leap_year (2000) == 1 && is_leap_year (1976) == 1 + && is_leap_year (1000) == 0 && is_leap_year (1800) == 0 + && is_leap_year (1600) == 1) diff -cNr octave-2.0.4/test/octave.test/system/is_leap_year-2.m octave-2.0.5/test/octave.test/system/is_leap_year-2.m *** octave-2.0.4/test/octave.test/system/is_leap_year-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/is_leap_year-2.m Tue Feb 25 20:58:26 1997 *************** *** 0 **** --- 1 ---- + is_leap_year (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/isieee-1.m octave-2.0.5/test/octave.test/system/isieee-1.m *** octave-2.0.4/test/octave.test/system/isieee-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/isieee-1.m Tue Feb 25 02:06:34 1997 *************** *** 0 **** --- 1 ---- + isieee () == 1 || isieee () == 0 diff -cNr octave-2.0.4/test/octave.test/system/localtime-1.m octave-2.0.5/test/octave.test/system/localtime-1.m *** octave-2.0.4/test/octave.test/system/localtime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/localtime-1.m Tue Feb 25 17:33:08 1997 *************** *** 0 **** --- 1,13 ---- + ts = localtime (time ()) + (is_struct (ts) + && struct_contains (ts, "usec") + && struct_contains (ts, "year") + && struct_contains (ts, "mon") + && struct_contains (ts, "mday") + && struct_contains (ts, "sec") + && struct_contains (ts, "zone") + && struct_contains (ts, "min") + && struct_contains (ts, "wday") + && struct_contains (ts, "hour") + && struct_contains (ts, "isdst") + && struct_contains (ts, "yday")) diff -cNr octave-2.0.4/test/octave.test/system/localtime-2.m octave-2.0.5/test/octave.test/system/localtime-2.m *** octave-2.0.4/test/octave.test/system/localtime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/localtime-2.m Tue Feb 25 16:26:17 1997 *************** *** 0 **** --- 1 ---- + localtime () diff -cNr octave-2.0.4/test/octave.test/system/localtime-3.m octave-2.0.5/test/octave.test/system/localtime-3.m *** octave-2.0.4/test/octave.test/system/localtime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/localtime-3.m Tue Feb 25 16:26:26 1997 *************** *** 0 **** --- 1 ---- + localtime (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/ls-1.m octave-2.0.5/test/octave.test/system/ls-1.m *** octave-2.0.4/test/octave.test/system/ls-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/ls-1.m Tue Feb 25 02:27:05 1997 *************** *** 0 **** --- 1 ---- + ls (1) diff -cNr octave-2.0.4/test/octave.test/system/lstat-1.m octave-2.0.5/test/octave.test/system/lstat-1.m *** octave-2.0.4/test/octave.test/system/lstat-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/lstat-1.m Tue Feb 25 22:25:07 1997 *************** *** 0 **** --- 1,14 ---- + [s, err, msg] = lstat ("/"); + (err == 0 + && is_struct (s) + && struct_contains (s, "dev") + && struct_contains (s, "ino") + && struct_contains (s, "modestr") + && struct_contains (s, "nlink") + && struct_contains (s, "uid") + && struct_contains (s, "gid") + && struct_contains (s, "size") + && struct_contains (s, "atime") + && struct_contains (s, "mtime") + && struct_contains (s, "ctime") + && isstr (msg)) diff -cNr octave-2.0.4/test/octave.test/system/lstat-2.m octave-2.0.5/test/octave.test/system/lstat-2.m *** octave-2.0.4/test/octave.test/system/lstat-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/lstat-2.m Tue Feb 25 22:08:16 1997 *************** *** 0 **** --- 1 ---- + lstat () diff -cNr octave-2.0.4/test/octave.test/system/lstat-3.m octave-2.0.5/test/octave.test/system/lstat-3.m *** octave-2.0.4/test/octave.test/system/lstat-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/lstat-3.m Tue Feb 25 22:08:04 1997 *************** *** 0 **** --- 1 ---- + lstat ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/mk-rm-dir-1.m octave-2.0.5/test/octave.test/system/mk-rm-dir-1.m *** octave-2.0.4/test/octave.test/system/mk-rm-dir-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mk-rm-dir-1.m Tue Feb 25 21:59:00 1997 *************** *** 0 **** --- 1,6 ---- + nm = tmpnam (); + e1 = mkdir (nm); + [s2, e2] = stat (nm); + e3 = rmdir (nm); + [s4, e4] = stat (nm); + (! e1 && strcmp (s2.modestr(1), "d") && ! e3 && e4 < 0) diff -cNr octave-2.0.4/test/octave.test/system/mkdir-1.m octave-2.0.5/test/octave.test/system/mkdir-1.m *** octave-2.0.4/test/octave.test/system/mkdir-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mkdir-1.m Tue Feb 25 21:59:22 1997 *************** *** 0 **** --- 1 ---- + mkdir () diff -cNr octave-2.0.4/test/octave.test/system/mkdir-2.m octave-2.0.5/test/octave.test/system/mkdir-2.m *** octave-2.0.4/test/octave.test/system/mkdir-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mkdir-2.m Tue Feb 25 21:59:17 1997 *************** *** 0 **** --- 1 ---- + mkdir ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/mktime-1.m octave-2.0.5/test/octave.test/system/mktime-1.m *** octave-2.0.4/test/octave.test/system/mktime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mktime-1.m Tue Feb 25 17:24:57 1997 *************** *** 0 **** --- 1,2 ---- + t = time (); + mktime (localtime (t)) == t diff -cNr octave-2.0.4/test/octave.test/system/mktime-2.m octave-2.0.5/test/octave.test/system/mktime-2.m *** octave-2.0.4/test/octave.test/system/mktime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mktime-2.m Tue Feb 25 16:26:34 1997 *************** *** 0 **** --- 1 ---- + mktime () diff -cNr octave-2.0.4/test/octave.test/system/mktime-3.m octave-2.0.5/test/octave.test/system/mktime-3.m *** octave-2.0.4/test/octave.test/system/mktime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/mktime-3.m Tue Feb 25 16:26:11 1997 *************** *** 0 **** --- 1 ---- + mktime (1, 2, 3) diff -cNr octave-2.0.4/test/octave.test/system/octave_config_info-1.m octave-2.0.5/test/octave.test/system/octave_config_info-1.m *** octave-2.0.4/test/octave.test/system/octave_config_info-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/octave_config_info-1.m Tue Feb 25 02:09:25 1997 *************** *** 0 **** --- 1 ---- + is_struct (octave_config_info ()) diff -cNr octave-2.0.4/test/octave.test/system/pause-1.m octave-2.0.5/test/octave.test/system/pause-1.m *** octave-2.0.4/test/octave.test/system/pause-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/pause-1.m Sat Mar 1 15:53:16 1997 *************** *** 0 **** --- 1,2 ---- + pause (0); + printf ("ok\n"); diff -cNr octave-2.0.4/test/octave.test/system/pause-2.m octave-2.0.5/test/octave.test/system/pause-2.m *** octave-2.0.4/test/octave.test/system/pause-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/pause-2.m Tue Feb 25 21:03:45 1997 *************** *** 0 **** --- 1 ---- + pause (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/putenv-1.m octave-2.0.5/test/octave.test/system/putenv-1.m *** octave-2.0.4/test/octave.test/system/putenv-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/putenv-1.m Tue Feb 25 02:17:52 1997 *************** *** 0 **** --- 1,2 ---- + putenv ("foobar", "baz"); + strcmp (getenv ("foobar"), "baz") diff -cNr octave-2.0.4/test/octave.test/system/putenv-2.m octave-2.0.5/test/octave.test/system/putenv-2.m *** octave-2.0.4/test/octave.test/system/putenv-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/putenv-2.m Tue Feb 25 02:16:55 1997 *************** *** 0 **** --- 1 ---- + putenv () diff -cNr octave-2.0.4/test/octave.test/system/putenv-3.m octave-2.0.5/test/octave.test/system/putenv-3.m *** octave-2.0.4/test/octave.test/system/putenv-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/putenv-3.m Tue Feb 25 02:17:07 1997 *************** *** 0 **** --- 1 ---- + putenv ("foo", "bar", 1) diff -cNr octave-2.0.4/test/octave.test/system/putenv-4.m octave-2.0.5/test/octave.test/system/putenv-4.m *** octave-2.0.4/test/octave.test/system/putenv-4.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/putenv-4.m Tue Feb 25 02:17:21 1997 *************** *** 0 **** --- 1 ---- + putenv (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/pwd-1.m octave-2.0.5/test/octave.test/system/pwd-1.m *** octave-2.0.4/test/octave.test/system/pwd-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/pwd-1.m Tue Feb 25 02:19:26 1997 *************** *** 0 **** --- 1 ---- + isstr (pwd ()) && strcmp (pwd (), PWD) diff -cNr octave-2.0.4/test/octave.test/system/pwd-2.m octave-2.0.5/test/octave.test/system/pwd-2.m *** octave-2.0.4/test/octave.test/system/pwd-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/pwd-2.m Sat Mar 1 15:53:17 1997 *************** *** 0 **** --- 1 ---- + diff -cNr octave-2.0.4/test/octave.test/system/readdir-1.m octave-2.0.5/test/octave.test/system/readdir-1.m *** octave-2.0.4/test/octave.test/system/readdir-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/readdir-1.m Tue Feb 25 22:00:48 1997 *************** *** 0 **** --- 1,2 ---- + [files, status, msg] = readdir ("/"); + isstr (files) && status == 0 && msg == "" diff -cNr octave-2.0.4/test/octave.test/system/readdir-2.m octave-2.0.5/test/octave.test/system/readdir-2.m *** octave-2.0.4/test/octave.test/system/readdir-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/readdir-2.m Tue Feb 25 22:01:32 1997 *************** *** 0 **** --- 1 ---- + readdir () diff -cNr octave-2.0.4/test/octave.test/system/readdir-3.m octave-2.0.5/test/octave.test/system/readdir-3.m *** octave-2.0.4/test/octave.test/system/readdir-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/readdir-3.m Tue Feb 25 22:01:25 1997 *************** *** 0 **** --- 1 ---- + readdir ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/rename-1.m octave-2.0.5/test/octave.test/system/rename-1.m *** octave-2.0.4/test/octave.test/system/rename-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/rename-1.m Tue Feb 25 22:13:46 1997 *************** *** 0 **** --- 1,16 ---- + from = tmpnam (); + to = tmpnam (); + id = fopen (from, "w"); + if (id > 0 && fclose (id) == 0) + [s, e] = stat (from); + if (! e) + if (rename (from, to) == 0) + [s, e] = stat (from); + if (e < 0) + [s, e] = stat (to); + e == 0 + unlink (to); + endif + endif + endif + endif diff -cNr octave-2.0.4/test/octave.test/system/rename-2.m octave-2.0.5/test/octave.test/system/rename-2.m *** octave-2.0.4/test/octave.test/system/rename-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/rename-2.m Tue Feb 25 22:09:55 1997 *************** *** 0 **** --- 1 ---- + rename () diff -cNr octave-2.0.4/test/octave.test/system/rename-3.m octave-2.0.5/test/octave.test/system/rename-3.m *** octave-2.0.4/test/octave.test/system/rename-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/rename-3.m Tue Feb 25 22:10:07 1997 *************** *** 0 **** --- 1 ---- + rename ("foo", "bar", 1) diff -cNr octave-2.0.4/test/octave.test/system/rmdir-1.m octave-2.0.5/test/octave.test/system/rmdir-1.m *** octave-2.0.4/test/octave.test/system/rmdir-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/rmdir-1.m Tue Feb 25 21:59:30 1997 *************** *** 0 **** --- 1 ---- + rmdir () diff -cNr octave-2.0.4/test/octave.test/system/rmdir-2.m octave-2.0.5/test/octave.test/system/rmdir-2.m *** octave-2.0.4/test/octave.test/system/rmdir-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/rmdir-2.m Tue Feb 25 21:59:37 1997 *************** *** 0 **** --- 1 ---- + rmdir ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/setgrent-1.m octave-2.0.5/test/octave.test/system/setgrent-1.m *** octave-2.0.4/test/octave.test/system/setgrent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/setgrent-1.m Tue Feb 25 02:48:52 1997 *************** *** 0 **** --- 1,5 ---- + x = getgrent (); + setgrent (); + y = getgrent (); + + strcmp (x.name, y.name) && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/setgrent-2.m octave-2.0.5/test/octave.test/system/setgrent-2.m *** octave-2.0.4/test/octave.test/system/setgrent-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/setgrent-2.m Tue Feb 25 02:48:28 1997 *************** *** 0 **** --- 1 ---- + setgrent (1) diff -cNr octave-2.0.4/test/octave.test/system/setpwent-1.m octave-2.0.5/test/octave.test/system/setpwent-1.m *** octave-2.0.4/test/octave.test/system/setpwent-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/setpwent-1.m Tue Feb 25 02:52:04 1997 *************** *** 0 **** --- 1,5 ---- + x = getpwent (); + setpwent (); + y = getpwent (); + + strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid diff -cNr octave-2.0.4/test/octave.test/system/setpwent-2.m octave-2.0.5/test/octave.test/system/setpwent-2.m *** octave-2.0.4/test/octave.test/system/setpwent-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/setpwent-2.m Tue Feb 25 02:42:58 1997 *************** *** 0 **** --- 1 ---- + setpwent (1) diff -cNr octave-2.0.4/test/octave.test/system/sleep-1.m octave-2.0.5/test/octave.test/system/sleep-1.m *** octave-2.0.4/test/octave.test/system/sleep-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/sleep-1.m Tue Feb 25 21:03:29 1997 *************** *** 0 **** --- 1,2 ---- + sleep (0); + printf ("ok\n"); diff -cNr octave-2.0.4/test/octave.test/system/sleep-2.m octave-2.0.5/test/octave.test/system/sleep-2.m *** octave-2.0.4/test/octave.test/system/sleep-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/sleep-2.m Tue Feb 25 21:01:37 1997 *************** *** 0 **** --- 1 ---- + sleep () diff -cNr octave-2.0.4/test/octave.test/system/sleep-3.m octave-2.0.5/test/octave.test/system/sleep-3.m *** octave-2.0.4/test/octave.test/system/sleep-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/sleep-3.m Sat Mar 1 15:53:16 1997 *************** *** 0 **** --- 1 ---- + sleep (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/stat-1.m octave-2.0.5/test/octave.test/system/stat-1.m *** octave-2.0.4/test/octave.test/system/stat-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/stat-1.m Tue Feb 25 22:25:00 1997 *************** *** 0 **** --- 1,14 ---- + [s, err, msg] = stat ("/"); + (err == 0 + && is_struct (s) + && struct_contains (s, "dev") + && struct_contains (s, "ino") + && struct_contains (s, "modestr") + && struct_contains (s, "nlink") + && struct_contains (s, "uid") + && struct_contains (s, "gid") + && struct_contains (s, "size") + && struct_contains (s, "atime") + && struct_contains (s, "mtime") + && struct_contains (s, "ctime") + && isstr (msg)) diff -cNr octave-2.0.4/test/octave.test/system/stat-2.m octave-2.0.5/test/octave.test/system/stat-2.m *** octave-2.0.4/test/octave.test/system/stat-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/stat-2.m Tue Feb 25 22:04:30 1997 *************** *** 0 **** --- 1 ---- + stat () diff -cNr octave-2.0.4/test/octave.test/system/stat-3.m octave-2.0.5/test/octave.test/system/stat-3.m *** octave-2.0.4/test/octave.test/system/stat-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/stat-3.m Tue Feb 25 22:04:38 1997 *************** *** 0 **** --- 1 ---- + stat ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/strftime-1.m octave-2.0.5/test/octave.test/system/strftime-1.m *** octave-2.0.4/test/octave.test/system/strftime-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/strftime-1.m Sat Mar 1 01:28:11 1997 *************** *** 0 **** --- 1,5 ---- + (isstr (strftime ("%%%n%t%H%I%k%l", localtime (time ()))) + && isstr (strftime ("%M%p%r%R%s%S%T", localtime (time ()))) + && isstr (strftime ("%X%Z%z%a%A%b%B", localtime (time ()))) + && isstr (strftime ("%c%C%d%e%D%h%j", localtime (time ()))) + && isstr (strftime ("%m%U%w%W%x%y%Y", localtime (time ())))) diff -cNr octave-2.0.4/test/octave.test/system/strftime-2.m octave-2.0.5/test/octave.test/system/strftime-2.m *** octave-2.0.4/test/octave.test/system/strftime-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/strftime-2.m Tue Feb 25 22:15:26 1997 *************** *** 0 **** --- 1 ---- + strftime () diff -cNr octave-2.0.4/test/octave.test/system/strftime-3.m octave-2.0.5/test/octave.test/system/strftime-3.m *** octave-2.0.4/test/octave.test/system/strftime-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/strftime-3.m Tue Feb 25 22:15:11 1997 *************** *** 0 **** --- 1 ---- + strftime ("foo", localtime (time ()), 1) diff -cNr octave-2.0.4/test/octave.test/system/system.exp octave-2.0.5/test/octave.test/system/system.exp *** octave-2.0.4/test/octave.test/system/system.exp Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/system.exp Wed Feb 26 01:07:14 1997 *************** *** 0 **** --- 1,520 ---- + ## The following functions need to have tests written for them: + + # mkfifo + # system + # popen + # pclose + # fork + # exec + # pipe + # dup2 + # waitpid + # fcntl + + set test time-1 + set prog_output "ans = 1" + do_test time-1.m + + set test ctime-1 + set prog_output "ans = 1" + do_test ctime-1.m + + set test ctime-2 + set prog_output "usage:.*" + do_test ctime-2.m + + set test ctime-3 + set prog_output "usage:.*" + do_test ctime-3.m + + set test gmtime-1 + set prog_output "ans = 1" + do_test gmtime-1.m + + set test gmtime-2 + set prog_output "\n... gmtime:.*" + do_test gmtime-2.m + + set test gmtime-3 + set prog_output "\n... gmtime:.*" + do_test gmtime-3.m + + set test localtime-1 + set prog_output "ans = 1" + do_test localtime-1.m + + set test localtime-2 + set prog_output "\n... localtime:.*" + do_test localtime-2.m + + set test localtime-3 + set prog_output "\n... localtime:.*" + do_test localtime-3.m + + set test mktime-1 + set prog_output "ans = 1" + do_test mktime-1.m + + set test mktime-2 + set prog_output "\n... mktime:.*" + do_test mktime-2.m + + set test mktime-3 + set prog_output "\n... mktime:.*" + do_test mktime-3.m + + set test asctime-1 + set prog_output "ans = 1" + do_test asctime-1.m + + set test asctime-2 + set prog_output "usage:.*" + do_test asctime-2.m + + set test asctime-3 + set prog_output "usage:.*" + do_test asctime-3.m + + set test strftime-1 + set prog_output "ans = 1" + do_test strftime-1.m + + set test strftime-2 + set prog_output "\n... strftime:.*" + do_test strftime-2.m + + set test strftime-3 + set prog_output "\n... strftime:.*" + do_test strftime-3.m + + set test clock-1 + set prog_output "ans = 1" + do_test clock-1.m + + set test date-1 + set prog_output "ans = 1" + do_test date-1.m + + set test etime-1 + set prog_output "ans = 1" + do_test etime-1.m + + set test etime-2 + set prog_output "usage:.*" + do_test etime-2.m + + set test etime-3 + set prog_output "usage:.*" + do_test etime-3.m + + set test cputime-1 + set prog_output "ans = 1" + do_test cputime-1.m + + set test is_leap_year-1 + set prog_output "ans = 1" + do_test is_leap_year-1.m + + set test is_leap_year-2 + set prog_output "usage:.*" + do_test is_leap_year-2.m + + set test tic-toc-1 + set prog_output "ans = 1" + do_test tic-toc-1.m + + set test pause-1 + set prog_output "ok" + do_test pause-1.m + + set test pause-2 + set prog_output "\n... pause:.*" + do_test pause-2.m + + set test sleep-1 + set prog_output "ok" + do_test sleep-1.m + + set test sleep-2 + set prog_output "\n... sleep:.*" + do_test sleep-2.m + + set test sleep-3 + set prog_output "\n... sleep:.*" + do_test sleep-3.m + + set test usleep-1 + set prog_output "ok" + do_test usleep-1.m + + set test usleep-2 + set prog_output "\n... usleep:.*" + do_test usleep-2.m + + set test usleep-3 + set prog_output "\n... usleep:.*" + do_test usleep-3.m + + set test rename-1 + set prog_output "ans = 1" + do_test rename-1.m + + set test rename-2 + set prog_output "\n... rename:.*" + do_test rename-2.m + + set test rename-3 + set prog_output "\n... rename:.*" + do_test rename-3.m + + set test unlink-1 + set prog_output "ans = 1" + do_test unlink-1.m + + set test unlink-2 + set prog_output "\n... unlink:.*" + do_test unlink-2.m + + set test unlink-3 + set prog_output "\n... unlink:.*" + do_test unlink-3.m + + set test readdir-1 + set prog_output "ans = 1" + do_test readdir-1.m + + set test readdir-2 + set prog_output "\n... readdir:.*" + do_test readdir-2.m + + set test readdir-3 + set prog_output "\n... readdir:.*" + do_test readdir-3.m + + set test mk-rm-dir-1 + set prog_output "ans = 1" + do_test mk-rm-dir-1.m + + set test mkdir-1 + set prog_output "\n... mkdir:.*" + do_test mkdir-1.m + + set test mkdir-2 + set prog_output "\n... mkdir:.*" + do_test mkdir-2.m + + set test rmdir-1 + set prog_output "\n... rmdir:.*" + do_test rmdir-1.m + + set test rmdir-2 + set prog_output "\n... rmdir:.*" + do_test rmdir-2.m + + set test umask-1 + set prog_output "ans = 1" + do_test umask-1.m + + set test umask-2 + set prog_output "\n... umask:.*" + do_test umask-2.m + + set test umask-3 + set prog_output "\n... umask:.*" + do_test umask-3.m + + set test stat-1 + set prog_output "ans = 1" + do_test stat-1.m + + set test stat-2 + set prog_output "\n... stat:.*" + do_test stat-2.m + + set test stat-3 + set prog_output "\n... stat:.*" + do_test stat-3.m + + set test lstat-1 + set prog_output "ans = 1" + do_test lstat-1.m + + set test lstat-2 + set prog_output "\n... lstat:.*" + do_test lstat-2.m + + set test lstat-3 + set prog_output "\n... lstat:.*" + do_test lstat-3.m + + set test glob-1 + set prog_output "ans = 1" + do_test glob-1.m + + set test glob-2 + set prog_output "\n... glob:*" + do_test glob-2.m + + set test glob-3 + set prog_output "\n... glob:.*" + do_test glob-3.m + + set test fnmatch-1 + set prog_output "ans = 1" + do_test fnmatch-1.m + + set test fnmatch-2 + set prog_output "\n... fnmatch:.*" + do_test fnmatch-2.m + + set test fnmatch-3 + set prog_output "\n... fnmatch:.*" + do_test fnmatch-3.m + + set test file_in_path-1 + set prog_output "ans = 1" + do_test file_in_path-1.m + + set test file_in_path-2 + set prog_output "error:.*" + do_test file_in_path-2.m + + set test file_in_path-3 + set prog_output "\n... file_in_path:.*" + do_test file_in_path-3.m + + set test file_in_path-4 + set prog_output "\n... file_in_path:.*" + do_test file_in_path-4.m + + set test tilde_expand-1 + set prog_output "ans = 1" + do_test tilde_expand-1.m + + set test tilde_expand-2 + set prog_output "\n... tilde_expand:.*" + do_test tilde_expand-2.m + + set test tilde_expand-3 + set prog_output "\n... tilde_expand:.*" + do_test tilde_expand-3.m + + set test getpgrp-1 + set prog_output "ans = 1" + do_test getpgrp-1.m + + set test getpgrp-2 + set prog_output "\n... getpgrp" + do_test getpgrp-2.m + + set test getpid-1 + set prog_output "ans = 1" + do_test getpid-1.m + + set test getpid-2 + set prog_output "\n... getpid" + do_test getpid-2.m + + set test getppid-1 + set prog_output "ans = 1" + do_test getppid-1.m + + set test getppid-2 + set prog_output "\n... getppid" + do_test getppid-2.m + + set test geteuid-1 + set prog_output "ans = 1" + do_test geteuid-1.m + + set test geteuid-2 + set prog_output "\n... geteuid" + do_test geteuid-2.m + + set test getuid-1 + set prog_output "ans = 1" + do_test getuid-1.m + + set test getuid-2 + set prog_output "\n... getuid" + do_test getuid-2.m + + set test getegid-1 + set prog_output "ans = 1" + do_test getegid-1.m + + set test getegid-2 + set prog_output "\n... getegid" + do_test getegid-2.m + + set test getgid-1 + set prog_output "ans = 1" + do_test getgid-1.m + + set test getgid-2 + set prog_output "\n... getgid" + do_test getgid-2.m + + set test getenv-1 + set prog_output "ans = 1" + do_test getenv-1.m + + set test getenv-2 + set prog_output "\n... getenv:.*" + do_test getenv-2.m + + set test getenv-3 + set prog_output "\n... getenv:.*" + do_test getenv-3.m + + set test getenv-4 + set prog_output "error:.*" + do_test getenv-4.m + + set test putenv-1 + set prog_output "ans = 1" + do_test putenv-1.m + + set test putenv-2 + set prog_output "\n... putenv:.*" + do_test putenv-2.m + + set test putenv-3 + set prog_output "\n... putenv:.*" + do_test putenv-3.m + + set test putenv-4 + set prog_output "error:.*" + do_test putenv-4.m + + set test cd-1 + set prog_output "ans = 1" + do_test cd-1.m + + set test cd-2 + set prog_output "error:.*" + do_test cd-2.m + + set test pwd-1 + set prog_output "ans = 1" + do_test pwd-1.m + + set test ls-1 + set prog_output "error:.*" + do_test ls-1.m + + set test getpwent-1 + set prog_output "ans = 1" + do_test getpwent-1.m + + set test getpwent-2 + set prog_output "\n... getpwent:.*" + do_test getpwent-2.m + + set test getpwuid-1 + set prog_output "ans = 1" + do_test getpwuid-1.m + + set test getpwuid-2 + set prog_output "\n... getpwuid:.*" + do_test getpwuid-2.m + + set test getpwuid-3 + set prog_output "\n... getpwuid:.*" + do_test getpwuid-3.m + + set test getpwnam-1 + set prog_output "ans = 1" + do_test getpwnam-1.m + + set test getpwnam-2 + set prog_output "\n... getpwnam:.*" + do_test getpwnam-2.m + + set test getpwnam-3 + set prog_output "\n... getpwnam:.*" + do_test getpwnam-3.m + + set test setpwent-1 + set prog_output "ans = 1" + do_test setpwent-1.m + + set test setpwent-2 + set prog_output "\n... setpwent:.*" + do_test setpwent-2.m + + set test endpwent-1 + set prog_output "\n... endpwent:.*" + do_test endpwent-1.m + + set test getgrent-1 + set prog_output "ans = 1" + do_test getgrent-1.m + + set test getgrent-2 + set prog_output "\n... getgrent:.*" + do_test getgrent-2.m + + set test getgrgid-1 + set prog_output "ans = 1" + do_test getgrgid-1.m + + set test getgrgid-2 + set prog_output "\n... getgrgid:.*" + do_test getgrgid-2.m + + set test getgrgid-3 + set prog_output "\n... getgrgid:.*" + do_test getgrgid-3.m + + set test getgrnam-1 + set prog_output "ans = 1" + do_test getgrnam-1.m + + set test getgrnam-2 + set prog_output "\n... getgrnam:.*" + do_test getgrnam-2.m + + set test getgrnam-3 + set prog_output "\n... getgrnam:.*" + do_test getgrnam-3.m + + set test setgrent-1 + set prog_output "ans = 1" + do_test setgrent-1.m + + set test setgrent-2 + set prog_output "\n... setgrent:.*" + do_test setgrent-2.m + + set test endgrent-1 + set prog_output "\n... endgrent:.*" + do_test endgrent-1.m + + set test computer-1 + set prog_output "ans = 1" + do_test computer-1.m + + set test computer-2 + set prog_output "warning:.*" + do_test computer-2.m + + set test isieee-1 + set prog_output "ans = 1" + do_test isieee-1.m + + set test version-1 + set prog_output "ans = 1" + do_test version-1.m + + set test version-2 + set prog_output "warning:.*" + do_test version-2.m + + set test octave_config_info-1 + set prog_output "ans = 1" + do_test octave_config_info-1.m + + set test getrusage-1 + set prog_output "ans = 1" + do_test getrusage-1.m diff -cNr octave-2.0.4/test/octave.test/system/tic-toc-1.m octave-2.0.5/test/octave.test/system/tic-toc-1.m *** octave-2.0.4/test/octave.test/system/tic-toc-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/tic-toc-1.m Tue Feb 25 21:22:58 1997 *************** *** 0 **** --- 1,3 ---- + tic (); + sleep (2) + toc () > 0 diff -cNr octave-2.0.4/test/octave.test/system/tilde_expand-1.m octave-2.0.5/test/octave.test/system/tilde_expand-1.m *** octave-2.0.4/test/octave.test/system/tilde_expand-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/tilde_expand-1.m Tue Feb 25 21:09:55 1997 *************** *** 0 **** --- 1,4 ---- + x = getpwuid (getuid ()); + (strcmp (x.dir, tilde_expand ("~")) + && strcmp (x.dir, tilde_expand (sprintf ("~%s", x.name))) + && strcmp ("foobar", tilde_expand ("foobar"))) diff -cNr octave-2.0.4/test/octave.test/system/tilde_expand-2.m octave-2.0.5/test/octave.test/system/tilde_expand-2.m *** octave-2.0.4/test/octave.test/system/tilde_expand-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/tilde_expand-2.m Tue Feb 25 21:08:26 1997 *************** *** 0 **** --- 1 ---- + tilde_expand () diff -cNr octave-2.0.4/test/octave.test/system/tilde_expand-3.m octave-2.0.5/test/octave.test/system/tilde_expand-3.m *** octave-2.0.4/test/octave.test/system/tilde_expand-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/tilde_expand-3.m Tue Feb 25 21:08:19 1997 *************** *** 0 **** --- 1 ---- + tilde_expand ("str", 2) diff -cNr octave-2.0.4/test/octave.test/system/time-1.m octave-2.0.5/test/octave.test/system/time-1.m *** octave-2.0.4/test/octave.test/system/time-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/time-1.m Tue Feb 25 02:04:01 1997 *************** *** 0 **** --- 1 ---- + time () > 0 diff -cNr octave-2.0.4/test/octave.test/system/time-2.m octave-2.0.5/test/octave.test/system/time-2.m *** octave-2.0.4/test/octave.test/system/time-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/time-2.m Sat Mar 1 15:53:17 1997 *************** *** 0 **** --- 1 ---- + diff -cNr octave-2.0.4/test/octave.test/system/umask-1.m octave-2.0.5/test/octave.test/system/umask-1.m *** octave-2.0.4/test/octave.test/system/umask-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/umask-1.m Tue Feb 25 21:47:22 1997 *************** *** 0 **** --- 1,15 ---- + umask (0); + nm = tmpnam (); + id = fopen (nm, "w"); + s1 = stat (nm); + fclose (id); + unlink (nm); + + umask (777); + nm = tmpnam (); + id = fopen (nm, "w"); + s2 = stat (nm); + fclose (id); + unlink (nm); + + strcmp (s1.modestr, "-rw-rw-rw-") && strcmp (s2.modestr, "----------") diff -cNr octave-2.0.4/test/octave.test/system/umask-2.m octave-2.0.5/test/octave.test/system/umask-2.m *** octave-2.0.4/test/octave.test/system/umask-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/umask-2.m Tue Feb 25 21:43:24 1997 *************** *** 0 **** --- 1 ---- + umask () diff -cNr octave-2.0.4/test/octave.test/system/umask-3.m octave-2.0.5/test/octave.test/system/umask-3.m *** octave-2.0.4/test/octave.test/system/umask-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/umask-3.m Tue Feb 25 21:43:18 1997 *************** *** 0 **** --- 1 ---- + umask (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/unlink-1.m octave-2.0.5/test/octave.test/system/unlink-1.m *** octave-2.0.4/test/octave.test/system/unlink-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/unlink-1.m Tue Feb 25 21:54:00 1997 *************** *** 0 **** --- 1,8 ---- + nm = tmpnam (); + if ((id = fopen (nm, "w")) > 0) + [s, err] = stat (nm); + if (! err && fclose (id) == 0 && unlink (nm) == 0) + [s, err] = stat (nm); + err < 0 + endif + endif diff -cNr octave-2.0.4/test/octave.test/system/unlink-2.m octave-2.0.5/test/octave.test/system/unlink-2.m *** octave-2.0.4/test/octave.test/system/unlink-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/unlink-2.m Tue Feb 25 21:48:41 1997 *************** *** 0 **** --- 1 ---- + unlink () diff -cNr octave-2.0.4/test/octave.test/system/unlink-3.m octave-2.0.5/test/octave.test/system/unlink-3.m *** octave-2.0.4/test/octave.test/system/unlink-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/unlink-3.m Tue Feb 25 21:48:32 1997 *************** *** 0 **** --- 1 ---- + unlink ("foo", 1) diff -cNr octave-2.0.4/test/octave.test/system/usleep-1.m octave-2.0.5/test/octave.test/system/usleep-1.m *** octave-2.0.4/test/octave.test/system/usleep-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/usleep-1.m Tue Feb 25 21:03:34 1997 *************** *** 0 **** --- 1,2 ---- + usleep (0); + printf ("ok\n"); diff -cNr octave-2.0.4/test/octave.test/system/usleep-2.m octave-2.0.5/test/octave.test/system/usleep-2.m *** octave-2.0.4/test/octave.test/system/usleep-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/usleep-2.m Tue Feb 25 21:02:29 1997 *************** *** 0 **** --- 1 ---- + usleep () diff -cNr octave-2.0.4/test/octave.test/system/usleep-3.m octave-2.0.5/test/octave.test/system/usleep-3.m *** octave-2.0.4/test/octave.test/system/usleep-3.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/usleep-3.m Tue Feb 25 21:02:35 1997 *************** *** 0 **** --- 1 ---- + usleep (1, 2) diff -cNr octave-2.0.4/test/octave.test/system/version-1.m octave-2.0.5/test/octave.test/system/version-1.m *** octave-2.0.4/test/octave.test/system/version-1.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/version-1.m Tue Feb 25 02:05:44 1997 *************** *** 0 **** --- 1 ---- + isstr (version ()) && strcmp (version (), OCTAVE_VERSION) diff -cNr octave-2.0.4/test/octave.test/system/version-2.m octave-2.0.5/test/octave.test/system/version-2.m *** octave-2.0.4/test/octave.test/system/version-2.m Wed Dec 31 18:00:00 1969 --- octave-2.0.5/test/octave.test/system/version-2.m Tue Feb 25 02:05:20 1997 *************** *** 0 **** --- 1 ---- + version (1) diff -cNr octave-2.0.4/test/octave.test/zero-one/fff/zero-one.exp octave-2.0.5/test/octave.test/zero-one/fff/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/fff/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/fff/zero-one.exp Mon Feb 24 22:40:48 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "false" ! # prefer_column_vectors == "false" ! # do_fortran_indexing == "false" ! # scalar tests set test zero-one-fff-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "false" ! ## prefer_column_vectors == "false" ! ## do_fortran_indexing == "false" ! ## scalar tests set test zero-one-fff-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-fff-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-fff-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-fff-m-1 set prog_output "error:.*" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-fff-m-1 set prog_output "error:.*" diff -cNr octave-2.0.4/test/octave.test/zero-one/fft/zero-one.exp octave-2.0.5/test/octave.test/zero-one/fft/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/fft/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/fft/zero-one.exp Mon Feb 24 22:40:47 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "false" ! # prefer_column_vectors == "false" ! # do_fortran_indexing == "true" ! # scalar tests set test zero-one-fft-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "false" ! ## prefer_column_vectors == "false" ! ## do_fortran_indexing == "true" ! ## scalar tests set test zero-one-fft-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-fft-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-fft-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-fft-m-1 set prog_output "ans = *1" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-fft-m-1 set prog_output "ans = *1" diff -cNr octave-2.0.4/test/octave.test/zero-one/ftf/zero-one.exp octave-2.0.5/test/octave.test/zero-one/ftf/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/ftf/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/ftf/zero-one.exp Mon Feb 24 22:40:47 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "false" ! # prefer_column_vectors == "true" ! # do_fortran_indexing == "false" ! # scalar tests set test zero-one-ftf-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "false" ! ## prefer_column_vectors == "true" ! ## do_fortran_indexing == "false" ! ## scalar tests set test zero-one-ftf-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-ftf-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-ftf-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-ftf-m-1 set prog_output "error:.*" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-ftf-m-1 set prog_output "error:.*" diff -cNr octave-2.0.4/test/octave.test/zero-one/ftt/zero-one.exp octave-2.0.5/test/octave.test/zero-one/ftt/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/ftt/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/ftt/zero-one.exp Mon Feb 24 22:40:46 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "false" ! # prefer_column_vectors == "true" ! # do_fortran_indexing == "true" ! # scalar tests set test zero-one-ftt-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "false" ! ## prefer_column_vectors == "true" ! ## do_fortran_indexing == "true" ! ## scalar tests set test zero-one-ftt-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-ftt-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-ftt-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-ftt-m-1 set prog_output "ans = *1" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-ftt-m-1 set prog_output "ans = *1" diff -cNr octave-2.0.4/test/octave.test/zero-one/tff/zero-one.exp octave-2.0.5/test/octave.test/zero-one/tff/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/tff/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/tff/zero-one.exp Mon Feb 24 22:40:46 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "true" ! # prefer_column_vectors == "false" ! # do_fortran_indexing == "false" ! # scalar tests set test zero-one-tff-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "true" ! ## prefer_column_vectors == "false" ! ## do_fortran_indexing == "false" ! ## scalar tests set test zero-one-tff-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-tff-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-tff-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-tff-m-1 set prog_output "error:.*" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-tff-m-1 set prog_output "error:.*" diff -cNr octave-2.0.4/test/octave.test/zero-one/tft/zero-one.exp octave-2.0.5/test/octave.test/zero-one/tft/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/tft/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/tft/zero-one.exp Mon Feb 24 22:40:45 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "true" ! # prefer_column_vectors == "false" ! # do_fortran_indexing == "true" ! # scalar tests set test zero-one-tft-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "true" ! ## prefer_column_vectors == "false" ! ## do_fortran_indexing == "true" ! ## scalar tests set test zero-one-tft-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-tft-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-tft-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-tft-m-1 set prog_output "ans = *1" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-tft-m-1 set prog_output "ans = *1" diff -cNr octave-2.0.4/test/octave.test/zero-one/ttf/zero-one.exp octave-2.0.5/test/octave.test/zero-one/ttf/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/ttf/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/ttf/zero-one.exp Mon Feb 24 22:40:43 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "true" ! # prefer_column_vectors == "true" ! # do_fortran_indexing == "false" ! # scalar tests set test zero-one-ttf-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "true" ! ## prefer_column_vectors == "true" ! ## do_fortran_indexing == "false" ! ## scalar tests set test zero-one-ttf-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-ttf-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-ttf-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-ttf-m-1 set prog_output "error:.*" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-ttf-m-1 set prog_output "error:.*" diff -cNr octave-2.0.4/test/octave.test/zero-one/ttt/zero-one.exp octave-2.0.5/test/octave.test/zero-one/ttt/zero-one.exp *** octave-2.0.4/test/octave.test/zero-one/ttt/zero-one.exp Thu Jul 18 21:15:59 1996 --- octave-2.0.5/test/octave.test/zero-one/ttt/zero-one.exp Mon Feb 24 22:40:44 1997 *************** *** 1,10 **** ! # Tests with: ! # ! # prefer_zero_one_indexing == "true" ! # prefer_column_vectors == "true" ! # do_fortran_indexing == "true" ! # scalar tests set test zero-one-ttt-s-1 set prog_output "error:.*" --- 1,10 ---- ! ## Tests with: ! ## ! ## prefer_zero_one_indexing == "true" ! ## prefer_column_vectors == "true" ! ## do_fortran_indexing == "true" ! ## scalar tests set test zero-one-ttt-s-1 set prog_output "error:.*" *************** *** 22,28 **** set prog_output "ans = *1" do_test s-4.m ! # vector tests set test zero-one-ttt-v-1 set prog_output "ans = *1" --- 22,28 ---- set prog_output "ans = *1" do_test s-4.m ! ## vector tests set test zero-one-ttt-v-1 set prog_output "ans = *1" *************** *** 40,46 **** set prog_output "ans = *1" do_test v-4.m ! # matrix tests set test zero-one-ttt-m-1 set prog_output "ans = *1" --- 40,46 ---- set prog_output "ans = *1" do_test v-4.m ! ## matrix tests set test zero-one-ttt-m-1 set prog_output "ans = *1" PATCH_EOF