changeset 17856:97e49b588f5d classdef

maint: periodic merge of default to classdef
author John W. Eaton <jwe@octave.org>
date Tue, 05 Nov 2013 12:27:42 -0500
parents c4f5c781c3ca (current diff) bfbe5dcc9943 (diff)
children 6762a6d23010
files libgui/languages/pt_BR.ts libinterp/Makefile.am libinterp/corefcn/gl2ps.c libinterp/corefcn/gl2ps.h libinterp/corefcn/load-path.cc libinterp/corefcn/load-path.h libinterp/corefcn/ls-mat5.cc libinterp/corefcn/pt-jit.cc libinterp/corefcn/pt-jit.h libinterp/corefcn/symtab.cc libinterp/corefcn/symtab.h libinterp/octave-value/module.mk libinterp/octave-value/ov-fcn-handle.cc libinterp/octave-value/ov-fcn.h libinterp/octave-value/ov-usr-fcn.cc libinterp/octave-value/ov-usr-fcn.h libinterp/octave-value/ov.cc libinterp/octave.cc libinterp/parse-tree/lex.h libinterp/parse-tree/oct-parse.in.yy libinterp/parse-tree/parse.h libinterp/parse-tree/pt-all.h libinterp/parse-tree/pt-bp.h libinterp/parse-tree/pt-check.cc libinterp/parse-tree/pt-check.h libinterp/parse-tree/pt-eval.cc libinterp/parse-tree/pt-eval.h libinterp/parse-tree/pt-exp.h libinterp/parse-tree/pt-id.cc libinterp/parse-tree/pt-id.h libinterp/parse-tree/pt-pr-code.cc libinterp/parse-tree/pt-pr-code.h libinterp/parse-tree/pt-walk.h libinterp/parse-tree/token.h liboctave/util/base-list.h src/Makefile.am src/main.cc
diffstat 845 files changed, 24764 insertions(+), 24110 deletions(-) [+]
line wrap: on
line diff
--- a/.hgsubstate	Wed Oct 23 22:48:29 2013 -0400
+++ b/.hgsubstate	Tue Nov 05 12:27:42 2013 -0500
@@ -1,1 +1,1 @@
-6057744acd2c71c069a4b171c5fe1ff0d86c9e5f gnulib-hg
+6d4e36653a40da6604507406f2a97e3e64bf9dbf gnulib-hg
--- a/Makefile.am	Wed Oct 23 22:48:29 2013 -0400
+++ b/Makefile.am	Tue Nov 05 12:27:42 2013 -0500
@@ -64,6 +64,7 @@
   etc/README.gnuplot \
   etc/README.kpathsea \
   etc/gdbinit \
+  etc/octave.appdata.xml \
   run-octave.in
 
 include m4/module.mk
--- a/NEWS	Wed Oct 23 22:48:29 2013 -0400
+++ b/NEWS	Tue Nov 05 12:27:42 2013 -0500
@@ -1,22 +1,10 @@
-<pre>
-Summary of important user-visible changes for version 4.0:
+Summary of important user-visible changes for version 3.8:
 ---------------------------------------------------------
 
- ** A new GUI is now available with Octave.
-
- ** Warning states may now be set temporarily, until the end of the
-    current function, using the syntax
-
-      warning STATE ID "local"
-
-    in which STATE may be "on", "off", or "error".  Changes to warning
-    states that are set locally affect the current function and all
-    functions called from the current scope.  The previous warning state
-    is restored on return from the current function.  The "local"
-    option is ignored if used in the top-level workspace.
-
-Summary of important user-visible changes for version 3.8:
----------------------------------------------------------
+ ** A GUI is now available with Octave and is the default when starting
+    an interactive session.  The original command line interface is also
+    available and can be entered by using the "--no-gui" option when
+    invoking Octave.
 
  ** Octave now uses OpenGL graphics by default with FLTK widgets.  If
     OpenGL libraries or FLTK widgets are not available when Octave is
@@ -28,6 +16,12 @@
     Adding this command to your ~/.octaverc file will set the default
     for each session.
 
+ ** Printing or saving figures with OpenGL graphics requires the
+    gl2ps library which is no longer distributed with Octave.  The
+    software is widely available in most package managers.  If a
+    pre-compiled package does not exist for your system, you can find
+    the current sources at http://www.geuz.org/gl2ps/.
+
  ** Octave now supports nested functions with scoping rules that are
     compatible with Matlab.  A nested function is one declared and defined
     within the body of another function.  The nested function is only
@@ -110,6 +104,17 @@
     When classdef-style classes are added to Octave, the exception-id
     will become an MException object.
 
+ ** Warning states may now be set temporarily, until the end of the
+    current function, using the syntax
+
+      warning STATE ID "local"
+
+    in which STATE may be "on", "off", or "error".  Changes to warning
+    states that are set locally affect the current function and all
+    functions called from the current scope.  The previous warning state
+    is restored on return from the current function.  The "local"
+    option is ignored if used in the top-level workspace.
+
  ** Warning IDs renamed:
 
     Octave:array-as-scalar => Octave:array-to-scalar
@@ -158,7 +163,7 @@
     \sl          slanted     \slOblique Text     slanted font
     \rm          normal      \bfBold\rmNormal    normal font
     {}           group       {\bf Bold}Normal    group objects
-                             e^{i*\pi} = -1      complex example
+                             e^{i*\pi} = -1      group objects
 
  ** The m-files in the plot directory have been overhauled.
 
@@ -305,12 +310,12 @@
       copyobj                    history_save     rgbplot
       dawson                     imformats        save_default_options
       dblist                     importdata       shrinkfaces
-      debug_jit                  isaxes           splinefit
-      desktop                    iscolormap       stemleaf
-      doc_cache_create           isequaln         strjoin
-      ellipj                     jit_debug        struct2hdl
-      ellipke                    jit_enable       tetramesh
-      erfcinv                    jit_startcnt     waterfall
+      desktop                    isaxes           splinefit
+      doc_cache_create           iscolormap       stemleaf
+      ellipj                     isequaln         strjoin
+      ellipke                    jit_debug        struct2hdl
+      erfcinv                    jit_enable       tetramesh
+                                 jit_startcnt     waterfall
 
  ** Deprecated functions.
 
@@ -1477,4 +1482,3 @@
       spchol2inv          splu
 
 See NEWS.3 for old news.
-</pre>
--- a/bootstrap.conf	Wed Oct 23 22:48:29 2013 -0400
+++ b/bootstrap.conf	Tue Nov 05 12:27:42 2013 -0500
@@ -38,6 +38,8 @@
   fnmatch
   fopen
   fpucw
+  frexp
+  frexpf
   fseek
   ftell
   getcwd
@@ -70,7 +72,6 @@
   round
   roundf
   select
-  setenv
   sigaction
   signal
   sigprocmask
--- a/build-aux/common.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/build-aux/common.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -228,6 +228,13 @@
 FFTW_XLDFLAGS = $(FFTW3_LDFLAGS) $(FFTW3F_LDFLAGS)
 FFTW_XLIBS = $(FFTW3_LIBS) $(FFTW3F_LIBS)
 
+## Alias CPPFLAGS to CFLAGS.
+## This is closer to the true meaning of `pkg-config --cflags` output.
+FONTCONFIG_CPPFLAGS = @FONTCONFIG_CFLAGS@
+FONTCONFIG_CFLAGS = @FONTCONFIG_CFLAGS@
+
+## Alias CPPFLAGS to CFLAGS.
+FT2_CPPFLAGS = @FT2_CFLAGS@
 FT2_CFLAGS = @FT2_CFLAGS@
 FT2_LIBS = @FT2_LIBS@
 
@@ -238,6 +245,8 @@
 GRAPHICS_CFLAGS = @GRAPHICS_CFLAGS@
 GRAPHICS_LIBS = @GRAPHICS_LIBS@
 
+GL2PS_LIBS = @GL2PS_LIBS@
+
 HDF5_CPPFLAGS = @HDF5_CPPFLAGS@
 HDF5_LDFLAGS = @HDF5_LDFLAGS@
 HDF5_LIBS = @HDF5_LIBS@
@@ -257,6 +266,9 @@
 
 OPENGL_LIBS = @OPENGL_LIBS@
 
+PCRE_CPPFLAGS = @PCRE_CPPFLAGS@
+PCRE_LIBS = @PCRE_LIBS@
+
 PTHREAD_CFLAGS = @PTHREAD_CFLAGS@
 PTHREAD_LIBS = @PTHREAD_LIBS@
 
@@ -268,8 +280,6 @@
 QRUPDATE_LDFLAGS = @QRUPDATE_LDFLAGS@
 QRUPDATE_LIBS = @QRUPDATE_LIBS@
 
-REGEX_LIBS = @REGEX_LIBS@
-
 READLINE_LIBS = @READLINE_LIBS@
 
 SPARSE_XCPPFLAGS = \
@@ -553,6 +563,7 @@
   -e "s|%OCTAVE_CONF_FFTW3F_LDFLAGS%|\"${FFTW3F_LDFLAGS}\"|" \
   -e "s|%OCTAVE_CONF_FFTW3F_LIBS%|\"${FFTW3F_LIBS}\"|" \
   -e "s|%OCTAVE_CONF_FLIBS%|\"${FLIBS}\"|" \
+  -e "s|%OCTAVE_CONF_FONTCONFIG_CFLAGS%|\"${FONTCONFIG_CFLAGS}\"|" \
   -e "s|%OCTAVE_CONF_FPICFLAG%|\"${FPICFLAG}\"|" \
   -e "s|%OCTAVE_CONF_FT2_CFLAGS%|\"${FT2_CFLAGS}\"|" \
   -e "s|%OCTAVE_CONF_FT2_LIBS%|\"${FT2_LIBS}\"|" \
@@ -601,6 +612,8 @@
   -e "s|%OCTAVE_CONF_OCT_LINK_DEPS%|\"${OCT_LINK_DEPS}\"|" \
   -e "s|%OCTAVE_CONF_OCT_LINK_OPTS%|\"${OCT_LINK_OPTS}\"|" \
   -e "s|%OCTAVE_CONF_OPENGL_LIBS%|\"${OPENGL_LIBS}\"|" \
+  -e "s|%OCTAVE_CONF_PCRE_CPPFLAGS%|\"${PCRE_CPPFLAGS}\"|" \
+  -e "s|%OCTAVE_CONF_PCRE_LIBS%|\"${PCRE_LIBS}\"|" \
   -e "s|%OCTAVE_CONF_PREFIX%|\"${prefix}\"|" \
   -e "s|%OCTAVE_CONF_PTHREAD_CFLAGS%|\"${PTHREAD_CFLAGS}\"|" \
   -e "s|%OCTAVE_CONF_PTHREAD_LIBS%|\"${PTHREAD_LIBS}\"|" \
@@ -616,7 +629,6 @@
   -e "s|%OCTAVE_CONF_RANLIB%|\"${RANLIB}\"|" \
   -e "s|%OCTAVE_CONF_RDYNAMIC_FLAG%|\"${RDYNAMIC_FLAG}\"|" \
   -e "s|%OCTAVE_CONF_READLINE_LIBS%|\"${READLINE_LIBS}\"|" \
-  -e "s|%OCTAVE_CONF_REGEX_LIBS%|\"${REGEX_LIBS}\"|" \
   -e "s|%OCTAVE_CONF_SED%|\"${SED}\"|" \
   -e "s|%OCTAVE_CONF_SHARED_LIBS%|\"${SHARED_LIBS}\"|" \
   -e "s|%OCTAVE_CONF_SHLEXT%|\"${SHLEXT}\"|" \
--- a/configure.ac	Wed Oct 23 22:48:29 2013 -0400
+++ b/configure.ac	Tue Nov 05 12:27:42 2013 -0500
@@ -664,7 +664,7 @@
 
 ### Check for PCRE regex library.
 
-REGEX_LIBS=
+PCRE_LIBS=
 
 pcre_fail_msg="to build Octave, you must have the PCRE library and header files installed"
 
@@ -687,18 +687,19 @@
     ac_cv_pcre_h_macros_present=yes, ac_cv_pcre_h_macros_present=no)])
 
 if test $ac_cv_pcre_h_macros_present = yes; then
-  ## check for pcre-config, and if so, set XTRA_CXXFLAGS appropriately
+  ## check for pcre-config, and if so, get build variables
   AC_CHECK_PROG(HAVE_PCRE_CONFIG, pcre-config, [yes], [no])
   if test $HAVE_PCRE_CONFIG = yes; then
-    XTRA_CXXFLAGS="$XTRA_CXXFLAGS `pcre-config --cflags`"
-    REGEX_LIBS=`pcre-config --libs`
+    PCRE_CPPFLAGS=`pcre-config --cflags`
+    PCRE_LIBS=`pcre-config --libs`
   else
-    REGEX_LIBS="-lpcre"
+    PCRE_LIBS="-lpcre"
   fi
   save_LIBS="$LIBS"
-  LIBS="$REGEX_LIBS $LIBS"
+  LIBS="$PCRE_LIBS $LIBS"
   AC_CHECK_FUNCS([pcre_compile],
-    [AC_SUBST(REGEX_LIBS)],
+    [AC_SUBST(PCRE_CPPFLAGS)
+     AC_SUBST(PCRE_LIBS)],
     [AC_MSG_ERROR([$pcre_fail_msg])])
   LIBS="$save_LIBS"
 else
@@ -718,12 +719,12 @@
 
  ### Check for the LLVM library
 
-build_jit=no
+build_jit=yes
 AC_ARG_ENABLE([jit],
   [AS_HELP_STRING([--enable-jit],
     [(EXPERIMENTAL) enable JIT compiler])],
-  [if test "$enableval" = yes; then
-     build_jit=yes
+  [if test "$enableval" = no; then
+     build_jit=no
    fi],
   [])
 
@@ -772,9 +773,7 @@
     CPPFLAGS="-D__STDC_CONSTANT_MACROS -D__STDC_LIMIT_MACROS $LLVM_CPPFLAGS $CPPFLAGS"
     CXXFLAGS="$LLVM_CXXFLAGS $CXXFLAGS"
     AC_LANG_PUSH(C++)
-    AC_CHECK_HEADER([llvm/Support/TargetSelect.h], [
-      warn_llvm=
-      XTRA_CXXFLAGS="$XTRA_CXXFLAGS $LLVM_CXXFLAGS $LLVM_CPPFLAGS"])
+    AC_CHECK_HEADER([llvm/Support/TargetSelect.h], [warn_llvm=""])
 
     have_function_h=no
     AC_CHECK_HEADERS([llvm/IR/Function.h llvm/Function.h],
@@ -953,9 +952,9 @@
   ## packages add extra flags that are useful when building
   ## Graphics/ImageMagick++ extentions.  These extra flags break the
   ## Octave build. 
+  MAGICK_CPPFLAGS=`$PKG_CONFIG --cflags-only-I $magick++`
   MAGICK_LDFLAGS=`$PKG_CONFIG --libs-only-L $magick++`
   MAGICK_LIBS=`$PKG_CONFIG --libs-only-l $magick++`
-  MAGICK_CPPFLAGS=`$PKG_CONFIG --cflags-only-I $magick++`
 
   warn_magick="$magick++ library fails tests.  The imread function for reading image files will not be fully functional."
 
@@ -1072,25 +1071,24 @@
 
   PKG_CHECK_MODULES([FT2], [freetype2], [
     min_ft2_version=9.03
-    AC_MSG_CHECKING([for FreeType -- version >= $min_ft2_version])
+    AC_MSG_CHECKING([for FreeType2 version >= $min_ft2_version])
     $PKG_CONFIG freetype2 --atleast-version=$min_ft2_version
     ac_status=$?
     if test $ac_status = 0; then
       AC_MSG_RESULT(yes)
       AC_DEFINE(HAVE_FREETYPE, 1, [Define to 1 if you have Freetype library.])
-      XTRA_CXXFLAGS="$XTRA_CXXFLAGS $FT2_CFLAGS"
       save_LIBS="$LIBS"
       LIBS="$FT2_LIBS $LIBS"
       AC_CHECK_FUNCS([FT_Reference_Face])
       LIBS="$save_LIBS"
     else
       AC_MSG_RESULT(no)
-      warn_freetype="FreeType library not found.  Native graphics will be disabled."
+      warn_freetype="FreeType library >= 9.03 not found.  Native graphics will be disabled."
     fi])
 
   if test -n "$warn_freetype"; then
+    native_graphics=no
     OCTAVE_CONFIGURE_WARNING([warn_freetype])
-    native_graphics=no
   fi
 
   ## Check for fontconfig library
@@ -1100,7 +1098,6 @@
     PKG_CHECK_MODULES(FONTCONFIG, [fontconfig],
       [have_fontconfig=yes
        OPENGL_LIBS="$FONTCONFIG_LIBS $OPENGL_LIBS"
-       XTRA_CXXFLAGS="$XTRA_CXXFLAGS $FONTCONFIG_CFLAGS"
        AC_DEFINE(HAVE_FONTCONFIG, 1, [Define to 1 if fontconfig is present.])],
       [have_fontconfig=no
        warn_fontconfig="Fontconfig library not found.  Native graphics will be disabled."])
@@ -1190,6 +1187,15 @@
 AC_SUBST(GRAPHICS_CFLAGS)
 AC_SUBST(GRAPHICS_LIBS)
 
+## Check for gl2ps which is required for printing with OpenGL graphics
+if test $native_graphics = yes; then
+  AC_CHECK_HEADERS([gl2ps.h],
+    [GL2PS_LIBS="-lgl2ps"],
+    [AC_MSG_WARN([gl2ps library not found.  OpenGL printing is disabled.])])
+fi
+
+AC_SUBST(GL2PS_LIBS)
+
 ### Start determination of shared vs. static libraries
 
 ## Use -static if compiling on Alpha OSF/1 1.3 systems.
@@ -1904,13 +1910,13 @@
 
 if test "$cross_compiling" = yes && test -n "$ac_tool_prefix"; then
   CROSS_TOOL_PREFIX="$ac_tool_prefix"
-  MKOCTFILE_AR='$(shell echo $(AR) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_CC='$(shell echo $(CC) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_CXX='$(shell echo $(CXX) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_DL_LD='$(shell echo $(DL_LD) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_F77='$(shell echo $(F77) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_LD_CXX='$(shell echo $(LD_CXX) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
-  MKOCTFILE_RANLIB='$(shell echo $(RANLIB) | $SED "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_AR='$(shell echo $(AR) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_CC='$(shell echo $(CC) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_CXX='$(shell echo $(CXX) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_DL_LD='$(shell echo $(DL_LD) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_F77='$(shell echo $(F77) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_LD_CXX='$(shell echo $(LD_CXX) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
+  MKOCTFILE_RANLIB='$(shell echo $(RANLIB) | $(SED) "s,$(CROSS_TOOL_PREFIX),,")'
 else
   MKOCTFILE_AR="$AR"
   MKOCTFILE_CC="$CC"
@@ -2374,6 +2380,7 @@
 JAVA_LIBS=
 
 ## Fake loop so that "break" can be used to skip code blocks.
+warn_java=""
 while test $build_java = yes
 do
   ## Unset build_java.  Variable is set only if all configuration tests pass.
@@ -2381,8 +2388,8 @@
 
   ## Warn if JAVA_HOME is unset.  It is *strongly* advised to specify JAVA_HOME.
   if test -z "$JAVA_HOME"; then
-    AC_MSG_WARN([JAVA_HOME environment variable not initialized.])
-    AC_MSG_WARN([Auto-detection will proceed but is unreliable.])
+    warn_java_home="JAVA_HOME environment variable not initialized. Auto-detection will proceed but is unreliable."
+    OCTAVE_CONFIGURE_WARNING([warn_java_home])
   fi
 
   ## Search for a viable Java executable.
@@ -2394,7 +2401,7 @@
   AC_PATH_PROG(JAVA, java, [], [$JAVA_PATH])
 
   if test -z "$JAVA"; then
-    AC_MSG_WARN([No Java executable found.  Octave will not be able to call Java methods.])   
+    warn_java="No Java executable found.  Octave will not be able to call Java methods."
     break
   fi
 
@@ -2447,13 +2454,13 @@
   if test $java_major -ge 1 && test $java_minor -ge 5; then
     :  # Version is ok.  Do nothing.
   else
-    AC_MSG_WARN([Java version is too old (< 1.5).  Octave will not be able to call Java methods.])
+    warn_java="Java version is too old (< 1.5).  Octave will not be able to call Java methods."
     break
   fi
 
-  ## At this point Win32/MSVC systems have enough configuration data.  We
-  ## assume that all appropriate variables (e.g. INCLUDE and LIB) already have
-  ## the required paths to compile and link against JDK.
+  ## At this point Win32 systems have enough configuration data.
+  ## We assume that all appropriate variables (e.g. INCLUDE and LIB) already
+  ## contain the required paths to compile and link against JDK.
   case $host_os in
     msdosmsvc)
       build_java=yes
@@ -2462,14 +2469,20 @@
         [Define to 1 if Java is available and is at least version 1.5])
       break
     ;;
-    mingw*)
-      if test $have_msvc = yes; then
-        build_java=yes
-        JAVA_LIBS=-ladvapi32
-        AC_DEFINE(HAVE_JAVA, 1,
-          [Define to 1 if Java is available and is at least version 1.5])
-        break
+    mingw* | cygwin*)
+      build_java=yes
+      JAVA_LIBS=-ladvapi32
+      if test $have_msvc = no; then
+        if test -n "$JAVA_CPPFLAGS"; then
+          JAVA_CPPFLAGS="-I${JAVA_CPPFLAGS}/include -I${JAVA_CPPFLAGS}/include/win32"
+        else
+          JAVA_CPPFLAGS="-I${JAVA_HOME}/include -I${JAVA_HOME}/include/win32"
+        fi
+        LDFLAGS="$LDFLAGS -Wl,--export-all-symbols"
       fi
+      AC_DEFINE(HAVE_JAVA, 1,
+        [Define to 1 if Java is available and is at least version 1.5])
+      break
     ;;
   esac
 
@@ -2478,9 +2491,6 @@
     darwin*)
       jvmlib=libjvm.dylib
     ;;
-    mingw* | cygwin*)
-      jvmlib=jvm.dll
-    ;;
     *)
       jvmlib=libjvm.so
     ;;
@@ -2539,7 +2549,7 @@
 
   if test -z "$JAVA_LDPATH"; then
     AC_MSG_RESULT([not found])
-    AC_MSG_WARN([Library $jvmlib not found.  Octave will not be able to call Java methods.])
+    warn_java="Library $jvmlib not found.  Octave will not be able to call Java methods."
     break
   else
     AC_MSG_RESULT([$JAVA_LDPATH])
@@ -2562,15 +2572,6 @@
       fi
       JAVA_LIBS="-framework JavaVM"
     ;;
-    mingw* | cygwin*)
-      if test -n "$JAVA_CPPFLAGS"; then
-        JAVA_CPPFLAGS="-I${JAVA_CPPFLAGS}/include -I${JAVA_CPPFLAGS}/include/win32"
-      else
-        JAVA_CPPFLAGS="-I${JAVA_HOME}/include -I${JAVA_HOME}/include/win32"
-      fi
-      JAVA_LIBS=-ladvapi32
-      LDFLAGS="$LDFLAGS -Wl,--export-all-symbols"
-    ;;
     *)
       if test -n "$JAVA_CPPFLAGS"; then
         JAVA_CPPFLAGS="-I${JAVA_CPPFLAGS}/include -I${JAVA_CPPFLAGS}/include/linux"
@@ -2590,7 +2591,7 @@
     AC_MSG_RESULT([$dir])
   else
     AC_MSG_RESULT([not found])
-    AC_MSG_WARN([Include file <jni.h> not found.  Octave will not be able to call Java methods.])
+    warn_java="Include file <jni.h> not found.  Octave will not be able to call Java methods."
     break
   fi
 
@@ -2600,6 +2601,9 @@
     [Define to 1 if Java is available and is at least version 1.5])
   break
 done
+if test -n "$warn_java"; then
+  OCTAVE_CONFIGURE_WARNING([warn_java])
+fi
 
 AM_CONDITIONAL([AMCOND_HAVE_JAVA], [test $build_java = yes])
 AC_SUBST(JAVA)
@@ -2622,10 +2626,12 @@
   [if test "$enableval" = no; then build_gui=no; fi], [])
 
 if test $build_gui = yes; then
+
+  warn_gui=""
   ## Check for Qt libraries
   PKG_CHECK_MODULES(QT, [QtCore, QtGui, QtNetwork],
     [],
-    [AC_MSG_WARN([Qt libraries not found -- disabling GUI])
+    [warn_gui="Qt libraries not found -- disabling GUI"
      build_gui=no])
 
   if test $build_gui = yes; then
@@ -2636,7 +2642,7 @@
 
     ## Check for Qt4
     if ! `$PKG_CONFIG --atleast-version=4.0.0 QtCore`; then
-      AC_MSG_WARN([Qt >= 4.0.0 not found -- disabling GUI])
+      warn_gui="Qt >= 4.0.0 not found -- disabling GUI"
       build_gui=no
     fi
   fi
@@ -2650,7 +2656,7 @@
       AC_DEFINE(HAVE_QT, 1, 
         [Define to 1 if Qt is available (libraries, developer header files, utility programs (moc, uic, rcc, and lrelease))])
     else
-      AC_MSG_WARN([Qt utility programs moc, uic, rcc, and lrelease not found -- disabling GUI])
+      warn_gui="Qt utility programs moc, uic, rcc, and lrelease not found -- disabling GUI"
       build_gui=no
     fi
   fi
@@ -2658,7 +2664,7 @@
   if test $build_gui = yes; then
     OCTAVE_CHECK_FUNC_QABSTRACTITEMMODEL_BEGINRESETMODEL
     if test $octave_cv_func_qabstractitemmodel_beginresetmodel = no; then
-      AC_MSG_WARN([QAbstractItemModel::beginResetModel() not found -- disabling GUI])
+      warn_gui="QAbstractItemModel::beginResetModel() not found -- disabling GUI"
       build_gui=no
     fi
   fi
@@ -2691,7 +2697,8 @@
       AC_LANG_POP([C++])
     ])
     if test $octave_cv_lib_qscintilla = no; then
-      AC_MSG_WARN([Qscintilla library not found -- disabling built-in GUI editor])
+      warn_gui_editor="Qscintilla library not found -- disabling built-in GUI editor"
+      OCTAVE_CONFIGURE_WARNING([warn_gui_editor])
     else
       ## Let's assume Qscintilla library is at the same location as
       ## other regular Qt libraries.
@@ -2709,14 +2716,14 @@
     fi
 
     AC_CHECK_FUNCS([setlocale], [],
-      [AC_MSG_WARN([setlocale not found -- disabling GUI])
+      [warn_gui="setlocale not found -- disabling GUI"
        build_gui=no])
 
     if test $build_gui = yes; then
       case $host_os in
         mingw* | msdosmsvc*)
           AC_CHECK_FUNCS([setvbuf], [win32_terminal=yes],
-            [AC_MSG_WARN([setvbuf not found -- disabling GUI])
+            [warn_gui="setvbuf not found -- disabling GUI"
              build_gui=no])
           ;;
         *)
@@ -2730,6 +2737,10 @@
       esac
     fi
   fi
+
+  if test -n "$warn_gui"; then
+    OCTAVE_CONFIGURE_WARNING([warn_gui])
+  fi
 fi
 
 AM_CONDITIONAL([AMCOND_BUILD_GUI], [test $build_gui = yes])
@@ -2853,6 +2864,8 @@
   Magick++ LDFLAGS:            $MAGICK_LDFLAGS
   Magick++ libraries:          $MAGICK_LIBS
   OPENGL libraries:            $OPENGL_LIBS
+  PCRE CPPFLAGS:               $PCRE_CPPFLAGS
+  PCRE libraries:              $PCRE_LIBS
   PTHREAD flags:               $PTHREAD_CFLAGS
   PTHREAD libraries:           $PTHREAD_LIBS
   QHULL CPPFLAGS:              $QHULL_CPPFLAGS
@@ -2865,7 +2878,6 @@
   Qt LDFLAGS:                  $QT_LDFLAGS
   Qt libraries:                $QT_LIBS
   READLINE libraries:          $READLINE_LIBS
-  REGEX libraries:             $REGEX_LIBS
   TERM libraries:              $TERM_LIBS
   UMFPACK CPPFLAGS:            $UMFPACK_CPPFLAGS
   UMFPACK LDFLAGS:             $UMFPACK_LDFLAGS
--- a/doc/interpreter/basics.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/basics.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -156,6 +156,10 @@
 remote shell command or inside an Emacs shell buffer.  For another way
 to run Octave within Emacs, @pxref{Emacs Octave Support}.
 
+@item --jit-compiler
+@cindex @code{--jit-compiler}
+Enable the JIT compiler used for accelerating loops.
+
 @item --line-editing
 @cindex @code{--line-editing}
 Force readline use for command-line editing.
@@ -180,10 +184,6 @@
 Don't initialize the search path for function files to include default 
 locations.
 
-@item --no-jit-compiler
-@cindex @code{--no-jit-compiler}
-Disable the JIT compiler used for accelerating loops.
-
 @item --no-line-editing
 @cindex @code{--no-line-editing}
 Disable command-line editing.
--- a/doc/interpreter/contributors.in	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/contributors.in	Tue Nov 05 12:27:42 2013 -0500
@@ -138,6 +138,7 @@
 Daniel Kraft
 Aravindh Krishnamoorthy
 Oyvind Kristiansen
+Artem Krosheninnikov
 Piotr Krzyzanowski
 Volker Kuhlmann
 Tetsuro Kurita
@@ -190,6 +191,7 @@
 Todd Neal
 Philip Nienhuis
 Al Niessner
+Felipe G. Nievinski
 Rick Niles
 Takuji Nishimura
 Kai Noda
--- a/doc/interpreter/debug.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/debug.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -306,7 +306,7 @@
 foo;
 profile off;
 
-data = profile ('info');
+data = profile ("info");
 profshow (data, 10);
 @end group
 @end example
@@ -386,7 +386,7 @@
 bar (20);
 profile off;
 
-profshow (profile ('info'));
+profshow (profile ("info"));
 @end group
 @end example
 
@@ -424,7 +424,7 @@
 foo;
 profile off;
 
-profshow (profile ('info'), 10);
+profshow (profile ("info"), 10);
 @end group
 @end example
 
--- a/doc/interpreter/doccheck/aspell-octave.en.pws	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/doccheck/aspell-octave.en.pws	Tue Nov 05 12:27:42 2013 -0500
@@ -409,6 +409,7 @@
 Haddad
 HandleVisibility
 Hankel
+hanning
 Hanning
 hardcode
 hardcoding
@@ -429,6 +430,7 @@
 Higham
 Hindmarsh
 Hindmarsh's
+histc
 Hodel
 holomorphic
 Horner's
@@ -1167,6 +1169,7 @@
 xb
 xc
 xcorr
+xdata
 xdigit
 xerrorbar
 xerrorbars
@@ -1176,6 +1179,7 @@
 xGETRF
 xGTSV
 xl
+xmax
 xmin
 xPBTRF
 xPOTRF
@@ -1193,6 +1197,8 @@
 yerrorbar
 yerrorbars
 ylim
+ymax
+ymin
 yy
 YY
 yyyy
--- a/doc/interpreter/doccheck/mk_undocumented_list	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/doccheck/mk_undocumented_list	Tue Nov 05 12:27:42 2013 -0500
@@ -82,6 +82,7 @@
 comma
 debug
 dbnext
+end
 exit
 F_DUPFD
 F_GETFD
--- a/doc/interpreter/errors.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/errors.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -268,9 +268,9 @@
 @example
 @group
 function rand42
-  old_state = rand ('state');
-  restore_state = onCleanup (@@() rand ('state', old_state);
-  rand ('state', 42);
+  old_state = rand ("state");
+  restore_state = onCleanup (@@() rand ("state", old_state);
+  rand ("state", 42);
   @dots{}
 endfunction  # rand generator state restored by onCleanup
 @end group
--- a/doc/interpreter/gui.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/gui.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -68,10 +68,14 @@
 programs that do.  @strong{Warning:} The functions @code{uiwait},
 @code{uiresume}, and @code{waitfor} are only available for the FLTK tooolkit.
 
+@DOCSTRING(desktop)
+
 @DOCSTRING(guidata)
 
 @DOCSTRING(guihandles)
 
+@DOCSTRING(isguirunning)
+
 @DOCSTRING(uiwait)
 
 @DOCSTRING(uiresume)
--- a/doc/interpreter/install.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/install.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
 @cindex installing Octave
 
 The procedure for installing Octave from source on a Unix-like system is
-described below.  Building on other platforms will follow similar
+described next.  Building on other platforms will follow similar
 steps.  Note that this description applies to Octave releases.  Building
 the development sources from the Mercurial archive requires additional
 steps as described in @ref{Building the Development Sources}.
@@ -514,14 +514,15 @@
 instead of just @command{make}.
 
 @item
-If you encounter errors while compiling Octave, first check the list of
-known problems below to see if there is a workaround or solution for
-your problem.  If not,
+If you encounter errors while compiling Octave, first
+see @ref{Installation Problems} for a list of
+known problems and if there is a workaround or solution for
+your problem.  If not, see
 @ifclear INSTALLONLY
-@pxref{Trouble},
+@ref{Trouble}
 @end ifclear
 @ifset INSTALLONLY
-see the file BUGS
+the file BUGS
 @end ifset
 for information about how to report bugs.
 
--- a/doc/interpreter/interp.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/interp.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -56,10 +56,10 @@
 ddys = diff (diff (ys)./dti) ./ dti;
 ddyp = diff (diff (yp)./dti) ./ dti;
 figure (1);
-plot (ti,ys,'r-', ti,yp,'g-');
+plot (ti,ys,"r-", ti,yp,"g-");
 legend ("spline", "pchip", 4);
 figure (2);
-plot (ti,ddys,'r+', ti,ddyp,'g*');
+plot (ti,ddys,"r+", ti,ddyp,"g*");
 legend ("spline", "pchip");
 @end group
 @end example
@@ -102,8 +102,8 @@
 y = sin (4*t + 0.3) .* cos (3*t - 0.1);
 yp = sin (4*ti + 0.3) .* cos (3*ti - 0.1);
 plot (ti, yp, "g", ti, interp1 (t, y, ti, "spline"), "b", ...
-      ti, interpft (y, k), "c", t, y, 'r+');
-legend ('sin(4t+0.3)cos(3t-0.1', "spline", "interpft", "data");
+      ti, interpft (y, k), "c", t, y, "r+");
+legend ("sin(4t+0.3)cos(3t-0.1)", "spline", "interpft", "data");
 @end group
 @end example
 
--- a/doc/interpreter/intro.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/intro.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -524,7 +524,7 @@
 @example
 @group
 fieldnames ([1, 2; 3, 4])
-error: fieldnames: wrong type argument 'matrix'
+error: fieldnames: Invalid input argument
 @end group
 @end example
 
--- a/doc/interpreter/java.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/java.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -173,7 +173,7 @@
   persistent cacheval;  % speeds up repeated calls
 
   if isempty (cacheval)
-    cacheval = (exist ('OCTAVE_VERSION', 'builtin') > 0);
+    cacheval = (exist ("OCTAVE_VERSION", "builtin") > 0);
   end
 
   retval = cacheval;
@@ -253,11 +253,11 @@
 Example:
 
 @example
-octave> base_path = 'C:/Octave/java_files';
+octave> base_path = "C:/Octave/java_files";
 
 octave> % add two JARchives to the dynamic classpath
-octave> javaaddpath ([base_path, '/someclasses.jar']);
-octave> javaaddpath ([base_path, '/moreclasses.jar']);
+octave> javaaddpath ([base_path, "/someclasses.jar"]);
+octave> javaaddpath ([base_path, "/moreclasses.jar"]);
 
 octave> % check the dynamic classpath
 octave> p = javaclasspath;
@@ -267,7 +267,7 @@
 C:/Octave/java_files/moreclasses.jar
 
 octave> % remove the first element from the classpath
-octave> javarmpath ([base_path, '/someclasses.jar']);
+octave> javarmpath ([base_path, "/someclasses.jar"]);
 octave> p = javaclasspath;
 octave> disp (p@{1@});
 C:/Octave/java_files/moreclasses.jar
@@ -287,8 +287,8 @@
 @example
 @group
 % contents of .octaverc:
-addpath ('~/octave');
-javaaddpath ('~/octave/myclasses.jar');
+addpath ("~/octave");
+javaaddpath ("~/octave/myclasses.jar");
 @end group
 @end example
 
@@ -305,7 +305,7 @@
 Example:
 
 @example
-Passenger = javaObject ('package.FirstClass', row, seat);
+Passenger = javaObject ("package.FirstClass", row, seat);
 @end example
 
 @c ------------------------------------------------------------------------
@@ -377,7 +377,7 @@
 
 @example
 @group
-octave> javaMethod ('getProperty', 'java.lang.System', 'MyProperty');
+octave> javaMethod ("getProperty", "java.lang.System", "MyProperty");
 ans = 12.34
 @end group
 @end example
--- a/doc/interpreter/octave.texi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/octave.texi	Tue Nov 05 12:27:42 2013 -0500
@@ -795,6 +795,7 @@
 * The DESCRIPTION File::
 * The INDEX File::
 * PKG_ADD and PKG_DEL Directives::
+* Missing Components::
 
 External Code Interface
 
--- a/doc/interpreter/package.txi	Wed Oct 23 22:48:29 2013 -0400
+++ b/doc/interpreter/package.txi	Tue Nov 05 12:27:42 2013 -0500
@@ -309,6 +309,7 @@
 * The DESCRIPTION File::
 * The INDEX File::
 * PKG_ADD and PKG_DEL Directives::
+* Missing Components::
 @end menu
 
 @node The DESCRIPTION File
@@ -575,3 +576,13 @@
 @w{@code{PKG_ADD}} keyword is replaced with @w{@code{PKG_DEL}} and the commands
 get added to the @w{@code{PKG_DEL}} file.
 
+@node Missing Components
+@subsection Missing Components
+
+If a package relies on a component, such as another Octave package, that may
+not be present it may be useful to install a function which informs users what
+to do when a particular component is missing.  The function must be written by
+the package maintainer and registered with Octave using
+@code{missing_component_hook}.
+
+@DOCSTRING(missing_component_hook)
--- a/etc/HACKING	Wed Oct 23 22:48:29 2013 -0400
+++ b/etc/HACKING	Tue Nov 05 12:27:42 2013 -0500
@@ -131,10 +131,17 @@
 
 An overview of the directory layout of Octave's source files:
 
+  build-aux     -- scripts which support the build process
+
+
   doc           -- Texinfo documentation for Octave
 
 
-  examples      -- some example files
+  etc           -- miscellaneous files, such as this HACKING howto
+
+
+  examples      -- some example files (mkoctfile and mex samples, old class
+                   programming interface)
 
 
   gnulib-hg     -- gnulib subrepo.  This is a clone of the gnulib source
@@ -192,81 +199,75 @@
     numeric     C++ numerical algorithms and interfaces to the Fortran
                 algorithms
 
-    operators   code for operators that act on base classes such as Array
+    operators   code for operators that act on base classes (such as Array)
 
     system      OS-related functions
  
     util        utility and miscellaneous functions
 
-  libinterp     -- The interpreter itself plus lots of infrastructure
+  libinterp     -- the interpreter itself plus lots of infrastructure
                    around it.  Octave's extensive octave_value class
                    hierarchy for polymorphically handling all Octave
                    types is defined here.  The built-in functions are
                    also defined here.
 
-    octave-value     The octave_value class hierarchy.  These are the
+    octave-value     the octave_value class hierarchy.  These are the
                      container classes that hold various Octave data
                      types like struct numerical arrays, structure
                      arrays, and cell arrays.
 
     parse-tree       Classes that define the parse tree for the
-                     interpreter.
-
-    interp-core      Core utilities for the interpreter.  There are no
-                     DEFUN functions (callable from the scripting
-                     language) defined here.
+                     interpreter
 
-    interpfcn        Functions closely related to the interpreter.
-                     Includes DEFUN functions (callable from the
-                     scripting language).  Also may export C++ functions
-                     that are used in other parts of the interpreter.
+    corefcn          statically linked DEFUN functions (callable from
+                     the scripting langauge) as well as internal C++
+                     functions used by the interpreter.
 
-    corefcn          Statically linked DEFUN functions (callable from
-                     the scripting langauge).  No C++ functions exported
-                     for use in other parts of the interpreter.
-
-    dldfcn           Dynamically linked DEFUN functions (callable
+    dldfcn           dynamically linked DEFUN functions (callable
                      from the scripting language).  If you see "help
                      foo" telling you that foo is defined in foo.oct,
                      then foo.cc will be found here and contain the
                      source code.
 
-    operators        Definitions and template instantiations for
+    operators        definitions and template instantiations for
                      operators for all possible Octave type
-                     combinations.
+                     combinations
 
-    template-inst    Some C++ template instantiations.
+    template-inst    some C++ template instantiations
 
 
   libgui        -- the graphical user interface of GNU Octave
 
-    src              source files.
-
-      m-editor       source files for the m-file editor.
+    kb-layouts       various files need by the qterminal widget that has
+                     been derived from Konsole
 
-      qtinfo         source files for the Qt texinfo browser.
-
-      icons          icon files that will be compiled into the
-                     executable via a resource file.
+    languages        translation files and list of translators
 
     qterminal        Qt terminal widget
 
-    languages        translation files and list of translators.
+    src              source files
+
+      icons          icon files that will be compiled into the
+                     executable via a resource file
 
-    kb-layouts       various files need by the qterminal widget that has
-                     been derived from Konsole.
-      
+      m-editor       source files for the m-file editor
+
+      qtinfo         source files for the Qt texinfo browser
+
+
+  m4            -- m4 scripts used by configure during the build process
+
 
   scripts       -- functions written in the Octave language
 
+    @ftp             ftp object class
+
     audio            play and record sound files (system dependent)
 
     deprecated       older deprecated functions
 
     elfun            elementary mathematical functions
 
-    @ftp             ftp object class
-
     general          utility functions
 
     geometry         geometry algorithms
@@ -316,9 +317,14 @@
     time             time and date functions
 
 
+  src           -- code for the actual executables that are created.  This
+                   includes octave, octave-cli, octave-gui, as well as
+                   mkoctfile.
+
+
   test          -- tests for the interpreter
 
-    test_ .m         fixed tests for the interpreter
+    *.tst            fixed tests for the interpreter
 
     fntests.m        script to run function tests embedded in C++ and
                      .m files
@@ -327,7 +333,7 @@
 John W. Eaton
 jwe@octave.org
 
-Last updated: Fri, 4 Oct 2013 16:58:52 PDT 
+Last updated: Tue, 29 Oct 2013 11:42:47 PDT 
 
 
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/etc/octave.appdata.xml	Tue Nov 05 12:27:42 2013 -0500
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+  Copyright (C) 2013 Carnë Draug
+
+  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 3 of the License, 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
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+-->
+<application>
+  <id type="desktop">octave.desktop</id>
+  <licence>GPLv3+</licence>
+  <name>GNU Octave</name>
+  <summary>Interactive programming environment for numerical computations</summary>
+  <description>
+    <p>
+      GNU Octave is a high-level interpreted language, primarily intended for
+      numerical computations. It provides capabilities for the numerical
+      solution of linear and nonlinear problems, and for performing other
+      numerical experiments. It also provides extensive graphics capabilities
+      for data visualization and manipulation. Octave is normally used through
+      its interactive command line interface, but it can also be used to write
+      non-interactive programs. The Octave language is quite similar to
+      Matlab so that most programs are easily portable.
+    </p>
+    <p>
+      Octave has extensive tools for solving common numerical linear algebra
+      problems, finding the roots of nonlinear equations, integrating ordinary
+      functions, manipulating polynomials, and integrating ordinary
+      differential and differential-algebraic equations. It is easily
+      extensible and customizable via user-defined functions written in
+      Octave's own language, or using dynamically loaded modules written in
+      C++, C, Fortran, or other languages.
+    </p>
+  </description>
+  <screenshots>
+    <!--
+      From: http://people.freedesktop.org/~hughsient/appdata/
+      All screenshots should have a 16:9 aspect ratio, and should have
+      a width that is no smaller than 620px. Screenshots should be in PNG
+      or JPEG format. PNG is the preferred format.
+    -->
+    <screenshot type="default">http://www.gnu.org/software/octave/images/screenshot.png</screenshot>
+  </screenshots>
+  <url type="homepage">http://www.octave.org</url>
+  <updatecontact>maintainers@octave.org</updatecontact>
+  <project_group>GNU</project_group>
+</application>
--- a/examples/embedded.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/embedded.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -2,6 +2,7 @@
 #include <octave/oct.h>
 #include <octave/octave.h>
 #include <octave/parse.h>
+#include <octave/toplev.h>
 
 int
 main (void)
@@ -15,20 +16,20 @@
   octave_idx_type n = 2;
   octave_value_list in;
 
-  for (octave_idx_type i = 0; i < n; i++)  
+  for (octave_idx_type i = 0; i < n; i++)
     in(i) = octave_value (5 * (i + 2));
-  
+
   octave_value_list out = feval ("gcd", in, 1);
 
-  if (!error_state && out.length () > 0)
-    std::cout << "GCD of [" 
-              << in(0).int_value () 
-              << ", " 
+  if (! error_state && out.length () > 0)
+    std::cout << "GCD of ["
+              << in(0).int_value ()
+              << ", "
               << in(1).int_value ()
-              << "] is " << out(0).int_value () 
+              << "] is " << out(0).int_value ()
               << std::endl;
   else
     std::cout << "invalid\n";
 
-  return 0;
+  clean_up_and_exit (0);
 }
--- a/examples/fortdemo.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/fortdemo.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -5,8 +5,7 @@
 {
   F77_RET_T
   F77_FUNC (fortsub, FORTSUB)
-        (const int&, double*, F77_CHAR_ARG_DECL
-         F77_CHAR_ARG_LEN_DECL);
+    (const int&, double*, F77_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL);
 }
 
 DEFUN_DLD (fortdemo, args, , "Fortran Demo")
@@ -25,8 +24,8 @@
           octave_idx_type na = a.numel ();
           OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
 
-          F77_XFCN (fortsub, FORTSUB, (na, av, ctmp
-                    F77_CHAR_ARG_LEN (128)));
+          F77_XFCN (fortsub, FORTSUB,
+                    (na, av, ctmp F77_CHAR_ARG_LEN (128)));
 
           retval(1) = std::string (ctmp);
           retval(0) = a;
--- a/examples/helloworld.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/helloworld.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -1,7 +1,7 @@
 #include <octave/oct.h>
 
 DEFUN_DLD (helloworld, args, nargout,
-  "Hello World Help String")
+           "Hello World Help String")
 {
   int nargin = args.length ();
 
--- a/examples/make_int.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/make_int.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -72,10 +72,10 @@
   bool is_numeric_type (void) const { return true; }
 
   bool valid_as_scalar_index (void) const
-    { return scalar == 1; }
+  { return scalar == 1; }
 
   bool valid_as_zero_index (void) const
-    { return scalar == 0; }
+  { return scalar == 0; }
 
   bool is_true (void) const { return (scalar != 0); }
 
@@ -88,7 +88,7 @@
   Complex complex_value (bool = false) const { return scalar; }
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return  ComplexMatrix (1, 1, Complex (scalar)); }
+  { return  ComplexMatrix (1, 1, Complex (scalar)); }
 
   octave_value gnot (void) const { return octave_value ((double) ! scalar); }
 
@@ -231,7 +231,7 @@
 DEFBINOP_OP (el_or, integer, integer, ||)
 
 DEFUN_DLD (make_int, args, ,
-  "int_val = make_int (val)\n\
+           "int_val = make_int (val)\n\
 \n\
 Creates an integer variable from VAL.")
 {
@@ -243,7 +243,7 @@
       mlock ();
 
       octave_stdout << "installing integer type at type-id = "
-           << octave_integer::static_type_id () << "\n";
+                    << octave_integer::static_type_id () << "\n";
 
       INSTALL_UNOP (op_not, octave_integer, gnot);
       INSTALL_UNOP (op_uminus, octave_integer, uminus);
@@ -289,7 +289,7 @@
 }
 
 DEFUN_DLD (doit, args, ,
-  "doit (I)")
+           "doit (I)")
 {
   octave_value_list retval;
 
--- a/examples/mycell.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/mycell.c	Tue Nov 05 12:27:42 2013 -0500
@@ -12,7 +12,7 @@
 
   n = mxGetNumberOfElements (prhs[0]);
   n = (n > nlhs ? nlhs : n);
-  
+
   for (i = 0; i < n; i++)
     plhs[i] = mxDuplicateArray (mxGetCell (prhs[0], i));
 }
--- a/examples/myfeval.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/myfeval.c	Tue Nov 05 12:27:42 2013 -0500
@@ -10,7 +10,7 @@
 
   mexPrintf ("I have %d inputs and %d outputs\n", nrhs, nlhs);
 
-  if (nrhs < 1 || ! mxIsString (prhs[0])) 
+  if (nrhs < 1 || ! mxIsString (prhs[0]))
     mexErrMsgTxt ("ARG1 must be a function name");
 
   str = mxArrayToString (prhs[0]);
--- a/examples/myfunc.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/myfunc.c	Tue Nov 05 12:27:42 2013 -0500
@@ -11,5 +11,5 @@
   if (strcmp (nm, "myfunc") == 0)
     mexPrintf ("This is the principal function\n", nm);
 
-  return; 
+  return;
 }
--- a/examples/mypow2.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/mypow2.c	Tue Nov 05 12:27:42 2013 -0500
@@ -7,14 +7,15 @@
   mwSize n;
   mwIndex i;
   double *vri, *vro;
-  
+
   if (nrhs != 1 || ! mxIsNumeric (prhs[0]))
     mexErrMsgTxt ("ARG1 must be a matrix");
 
   n = mxGetNumberOfElements (prhs[0]);
-  plhs[0] = mxCreateNumericArray 
-    (mxGetNumberOfDimensions (prhs[0]), mxGetDimensions (prhs[0]),
-     mxGetClassID (prhs[0]), mxIsComplex (prhs[0]));
+  plhs[0] = mxCreateNumericArray (mxGetNumberOfDimensions (prhs[0]),
+                                  mxGetDimensions (prhs[0]),
+                                  mxGetClassID (prhs[0]),
+                                  mxIsComplex (prhs[0]));
   vri = mxGetPr (prhs[0]);
   vro = mxGetPr (plhs[0]);
 
--- a/examples/myprop.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/myprop.c	Tue Nov 05 12:27:42 2013 -0500
@@ -13,11 +13,11 @@
     mexErrMsgTxt ("handle expected to be a double scalar");
   if (!mxIsChar (prhs[1]))
     mexErrMsgTxt ("expected property to be a string");
-  
+
   handle = mxGetScalar (prhs[0]);
   mxGetString (prhs[1], property, 256);
   plhs[0] = mxDuplicateArray (mexGet (handle, property));
-  
+
   if (nrhs == 3)
     if (mexSet (handle, property, mxDuplicateArray (prhs[2])))
       mexErrMsgTxt ("failed to set property");
--- a/examples/myset.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/myset.c	Tue Nov 05 12:27:42 2013 -0500
@@ -29,6 +29,6 @@
     }
 
   // WARNING!! Can't do this in MATLAB!  Must copy variable first.
-  mxSetName (prhs[1], str);  
+  mxSetName (prhs[1], str);
   mexPutArray (prhs[1], "caller");
 }
--- a/examples/mystring.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/mystring.c	Tue Nov 05 12:27:42 2013 -0500
@@ -9,8 +9,8 @@
   mwIndex i, j;
   mxChar *pi, *po;
 
-  if (nrhs != 1 || ! mxIsChar (prhs[0]) || 
-      mxGetNumberOfDimensions (prhs[0]) > 2)
+  if (nrhs != 1 || ! mxIsChar (prhs[0])
+      || mxGetNumberOfDimensions (prhs[0]) > 2)
     mexErrMsgTxt ("ARG1 must be a char matrix");
 
   m = mxGetM (prhs[0]);
--- a/examples/mystruct.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/mystruct.c	Tue Nov 05 12:27:42 2013 -0500
@@ -15,8 +15,7 @@
   for (i = 0; i < mxGetNumberOfFields (prhs[0]); i++)
     for (j = 0; j < mxGetNumberOfElements (prhs[0]); j++)
       {
-        mexPrintf ("field %s(%d) = ", 
-                   mxGetFieldNameByNumber (prhs[0], i), j);
+        mexPrintf ("field %s(%d) = ", mxGetFieldNameByNumber (prhs[0], i), j);
         v = mxGetFieldByNumber (prhs[0], j, i);
         mexCallMATLAB (0, NULL, 1, &v, "disp");
       }
--- a/examples/oct_demo.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/oct_demo.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,7 @@
 // from gcc about an unused function parameter.
 
 DEFUN_DLD (oct_demo, args, ,
-  "[...] = oct_demo (...)\n\
+           "[...] = oct_demo (...)\n\
 \n\
 Print a greeting followed by the values of all the arguments passed.\n\
 Return all arguments in reverse order.")
--- a/examples/oregonator.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/examples/oregonator.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -1,7 +1,7 @@
 #include <octave/oct.h>
 
 DEFUN_DLD (oregonator, args, ,
-  "The `oregonator'.\n\
+           "The `oregonator'.\n\
 \n\
 Reference:\n\
 \n\
--- a/libgui/Makefile.am	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/Makefile.am	Tue Nov 05 12:27:42 2013 -0500
@@ -32,6 +32,7 @@
   languages/fr_FR.ts \
   languages/nl_NL.ts \
   languages/pt_BR.ts \
+  languages/pt_PT.ts \
   languages/ru_RU.ts \
   languages/uk_UA.ts
 
--- a/libgui/languages/be_BY.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/be_BY.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -89,6 +89,79 @@
     </message>
 </context>
 <context>
+    <name>QsciLexerBash</name>
+    <message>
+        <location filename="../../../qsci/qscilexerbash.cpp" line="+208"/>
+        <source>Default</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Error</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Comment</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Number</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Double-quoted string</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted string</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Operator</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Identifier</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Scalar</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Parameter expansion</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Backticks</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Here document delimiter</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted here document</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
+<context>
     <name>QsciLexerBatch</name>
     <message>
         <location filename="../../../qsci/qscilexerbatch.cpp" line="+179"/>
@@ -697,25 +770,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -727,12 +796,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation type="unfinished">&amp;Новы файл</translation>
     </message>
@@ -772,12 +841,12 @@
         <translation type="unfinished">&amp;Капіяваць</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation type="unfinished">Вы&amp;разаць</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation type="unfinished"></translation>
     </message>
@@ -827,7 +896,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation type="unfinished"></translation>
     </message>
@@ -837,7 +906,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation type="unfinished"></translation>
     </message>
@@ -852,12 +926,53 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-85"/>
-        <source>&amp;Find and Replace</source>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
         <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation type="unfinished"></translation>
     </message>
@@ -872,12 +987,22 @@
         <translation type="unfinished">&amp;Файл</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation type="unfinished">&amp;Змяніць</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation type="unfinished"></translation>
     </message>
@@ -890,7 +1015,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation type="unfinished"></translation>
     </message>
@@ -916,15 +1041,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -932,7 +1057,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
@@ -958,13 +1083,13 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1451,18 +1576,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation type="unfinished">Загрузіць прастору зменных</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation type="unfinished">Пра Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation type="unfinished">&amp;Файл</translation>
     </message>
@@ -1522,18 +1647,33 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1593,17 +1733,27 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation type="unfinished">Файлавы аглядальнік</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1633,6 +1783,21 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation type="unfinished"></translation>
@@ -1653,7 +1818,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1688,7 +1853,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1709,7 +1874,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation type="unfinished">Дакументацыя</translation>
     </message>
@@ -1725,20 +1890,28 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1746,8 +1919,23 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
         <translation type="unfinished"></translation>
     </message>
 </context>
@@ -1887,6 +2075,11 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation type="unfinished"></translation>
@@ -1922,7 +2115,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1947,7 +2140,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+620"/>
+        <location line="+633"/>
         <source>emacs</source>
         <translation type="unfinished">emacs</translation>
     </message>
@@ -2037,7 +2230,7 @@
         <translation type="unfinished">HttpProxy</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2052,7 +2245,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation type="unfinished">Socks5Proxy</translation>
     </message>
@@ -2077,14 +2270,14 @@
         <translation type="unfinished">Пароль:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2099,7 +2292,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2135,7 +2328,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2148,38 +2341,43 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
-&lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
-&lt;/ul&gt;
-&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+74"/>
         <source>Finish</source>
         <translation type="unfinished"></translation>
     </message>
--- a/libgui/languages/de_DE.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/de_DE.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -104,26 +104,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation>Octave Editor</translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Octave Dateien (*.m);;Alle Dateien (*)</translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation>Kann die Datei &lt;b&gt;%1&lt;/b&gt; nicht zum Lesen öffnen:
-%2.</translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -137,12 +132,12 @@
         <translation>Der zugehörige Editor-Reiter ist nicht mehr vorhanden und wurde wahrscheinlich geschlossen.</translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation>&amp;%1 %2</translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation>&amp;Neue Datei</translation>
     </message>
@@ -182,12 +177,12 @@
         <translation>&amp;Kopieren</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation>&amp;Ausschneiden</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation>Einfügen</translation>
     </message>
@@ -237,7 +232,7 @@
         <translation>&amp;Kommentieren</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation>Kommentar &amp;entfernen</translation>
     </message>
@@ -247,7 +242,12 @@
         <translation>&amp;Zuletzt bearbeitete Dateien</translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>Funktion b&amp;earbeiten</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation>S&amp;chließen</translation>
     </message>
@@ -262,12 +262,61 @@
         <translation>Andere Dokumente schließen</translation>
     </message>
     <message>
-        <location line="-85"/>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Markierten Quellcode au&amp;sführen</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Hilfe</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>&amp;Hilfe zum Schlüsselwort</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>&amp;Dokumentation zum Schlüsselwort</translation>
+    </message>
+    <message>
+        <location line="-147"/>
         <source>&amp;Find and Replace</source>
         <translation>&amp;Suchen und Ersetzen</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Die Datei
+%1
+konnte nicht zum Lesen geöffnet werden:
+%2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>Die Datei
+%1
+existiert nicht. Soll sie erzeugt werden?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Die Datei
+%1
+konnte nicht zum Schreiben geöffnet werden:
+%2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation>Datei speichern und ausführen</translation>
     </message>
@@ -282,12 +331,22 @@
         <translation>&amp;Datei</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
-        <translation>&amp;Editieren</translation>
+        <translation>&amp;Bearbeiten</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Einstellungen</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>&amp;Stil-Einstellungen</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation>&amp;Debuggen</translation>
     </message>
@@ -300,7 +359,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation>Gehe zu Zeile</translation>
     </message>
@@ -326,15 +385,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation>Octave Editor</translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -345,7 +404,7 @@
 %2</translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Octave Dateien (*.m);;All Files (*)</translation>
     </message>
@@ -375,14 +434,14 @@
 wurde gelöscht oder umbenannt. Soll die Datei jetzt gespeichert werden?%2</translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation>Die Datei %1  konnte nicht zum Schreiben geöffnet werden:
 %2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation>Die Datei %1 wurde von einer anderen Anwendung verändert. Soll der neue Inhalt geladen werden?</translation>
     </message>
@@ -871,18 +930,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation>Lade Arbeitsumgebung</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation>Über Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation>&amp;Datei</translation>
     </message>
@@ -924,7 +983,7 @@
     <message>
         <location line="+52"/>
         <source>&amp;Edit</source>
-        <translation>&amp;Editieren</translation>
+        <translation>&amp;Bearbeiten</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -942,18 +1001,33 @@
         <translation>Einfügen</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation>Arbeitsumgebung speichern als</translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation>Die Datei &apos;%1&apos; mit Versionshinweisen ist leer.</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation>Die Datei &apos;%1&apos; mit Versionshinweisen kann nicht gelesen werden.</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Versionshinweise zu Octave</translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation>Arbeitsverzeichnis setzen</translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation>Zwischenablage leeren</translation>
     </message>
@@ -1013,17 +1087,27 @@
         <translation>Dateibrowser anzeigen</translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Fenster mit Neuigkeiten anzeigen</translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation>Dateibrowser</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Neuigkeiten</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation>Fensterlayout auf Grundeinstellung zurücksetzen</translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation>Octave Pakete</translation>
     </message>
@@ -1035,7 +1119,7 @@
     <message>
         <location line="+3"/>
         <source>Contribute to Octave</source>
-        <translation>Bei Octave mitwirken</translation>
+        <translation>Zu Octave beitragen</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -1053,6 +1137,21 @@
         <translation>Im Internet</translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Neuigkeiten</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Versionshinweise</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Neuigkeiten der Gemeinschaft</translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation>Neues Verzeichnis eingeben</translation>
@@ -1073,7 +1172,7 @@
         <translation>Verzeichnis suchen</translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation>Arbeitsumgebung laden</translation>
     </message>
@@ -1108,7 +1207,7 @@
         <translation>Dokumentation anzeigen</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation>Befehlsfenster</translation>
     </message>
@@ -1129,7 +1228,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation>Dokumentation</translation>
     </message>
@@ -1145,20 +1244,28 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Neuigkeiten der Gemeinschaft</translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translation>Fenster lösen</translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translation>Fenster verbergen</translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translation>Fenster andocken</translation>
     </message>
@@ -1166,10 +1273,25 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
         <translation>Hilfe zu</translation>
     </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Dokumentation zu</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Bearbeite</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>Markierter Quellcode au&amp;sführen</translation>
+    </message>
 </context>
 <context>
     <name>octave_qt_link</name>
@@ -1307,6 +1429,11 @@
         <translation>Editor Dateien der letzten Sitzung wiederherstellen</translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Nicht existente Dateien ohne Nachfrage erzeugen</translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation>Externen Editor verwenden</translation>
@@ -1342,7 +1469,7 @@
         <translation>Schriftart</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation>Zeilennummern anzeigen</translation>
     </message>
@@ -1367,7 +1494,7 @@
         <translation>Grafische Icons</translation>
     </message>
     <message>
-        <location line="+620"/>
+        <location line="+633"/>
         <source>emacs</source>
         <translation>emacs</translation>
     </message>
@@ -1457,7 +1584,7 @@
         <translation>HTTP Proxy</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation>Icons der Unterfenster</translation>
     </message>
@@ -1472,7 +1599,7 @@
         <translation>Icongröße</translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation>Socks5Proxy</translation>
     </message>
@@ -1497,14 +1624,14 @@
         <translation>Passwort:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation>Systemeinstellung</translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation>IBeam-Cursor</translation>
     </message>
@@ -1519,7 +1646,7 @@
         <translation>Unterstrichener Cursor</translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation>Differenz zur Standardgröße</translation>
     </message>
@@ -1555,7 +1682,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation>Suchbegriff eingeben und mit &apos;Enter&apos; die Suche starten</translation>
     </message>
@@ -1568,44 +1695,54 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation>Willkommen zu GNU Octave</translation>
     </message>
     <message>
-        <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>Willkommen zu Octave!</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
         <translation>Die grafische Nutzerschnittstelle von Octave wird offenbar das erste Mal gestartet. Ein Klick auf &apos;Beenden&apos; erstellt eine Standard-Konfigurationsdatei und startet Octave GUI.</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation>Die Konfigurationsdatei wid in __%1__ gespeichert. Wenn diese Datei existiert, erscheint dieser Dialog beim nächsten Start von Octave nicht mehr.</translation>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>Die Konfigurationsdatei wird in %1 gespeichert. Wenn diese Datei existiert, erscheint dieser Dialog beim nächsten Start von Octave nicht mehr.</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</source>
-        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Weitere Informationsquellen zu Octave:&lt;/p&gt;
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Für mehr Informationen über Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;Homepage &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; Online-Dokumentation als &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- oder &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-Dokument&lt;/li&gt;
-&lt;li&gt;Dokumentations-Browser von Octave GUI im Hilfe-Menü&lt;/li&gt;
+&lt;li&gt;Besuchen Sie &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Holen Sie sich die Dokumentation online als &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt; oder &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-Dokument&lt;/li&gt;
+&lt;li&gt;Öffnen Sie den Dokumentations-Browser von Octave GUI im Hilfe-Menü&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation>Willkommen zu Octave!</translation>
-    </message>
-    <message>
-        <location line="+74"/>
+        <location line="+20"/>
         <source>Finish</source>
         <translation>Beenden</translation>
     </message>
--- a/libgui/languages/en_US.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/en_US.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -104,25 +104,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -134,12 +130,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation type="unfinished"></translation>
     </message>
@@ -179,12 +175,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation type="unfinished"></translation>
     </message>
@@ -234,7 +230,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation type="unfinished"></translation>
     </message>
@@ -244,7 +240,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation type="unfinished"></translation>
     </message>
@@ -259,12 +260,53 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-85"/>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="-147"/>
         <source>&amp;Find and Replace</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation type="unfinished"></translation>
     </message>
@@ -279,12 +321,22 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation type="unfinished"></translation>
     </message>
@@ -297,7 +349,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation type="unfinished"></translation>
     </message>
@@ -323,15 +375,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -339,7 +391,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
@@ -365,13 +417,13 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation type="unfinished"></translation>
     </message>
@@ -858,18 +910,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation type="unfinished"></translation>
     </message>
@@ -929,18 +981,33 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1000,17 +1067,27 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1040,6 +1117,21 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation type="unfinished"></translation>
@@ -1060,7 +1152,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1095,7 +1187,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1116,7 +1208,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1132,20 +1224,28 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1153,8 +1253,23 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
         <translation type="unfinished"></translation>
     </message>
 </context>
@@ -1294,6 +1409,11 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation type="unfinished"></translation>
@@ -1329,7 +1449,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1354,7 +1474,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+620"/>
+        <location line="+633"/>
         <source>emacs</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1444,7 +1564,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1459,7 +1579,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1484,14 +1604,14 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1506,7 +1626,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1542,7 +1662,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1555,38 +1675,43 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+74"/>
+        <location line="+20"/>
         <source>Finish</source>
         <translation type="unfinished"></translation>
     </message>
--- a/libgui/languages/es_ES.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/es_ES.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -104,25 +104,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation>Editor de Octave</translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Archivos de Octave (*.m);;Todos los archivos (*)</translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation>No se ha podido abrir el archivo %1 para su lectura:\n%2.</translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -134,12 +130,12 @@
         <translation>La pestaña para la edición del archivo ha desaparecido.  Es probable que se haya cerrado por algún medio.</translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation>&amp;%1 %2</translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation>Archivo &amp;nuevo</translation>
     </message>
@@ -179,12 +175,12 @@
         <translation>&amp;Copiar</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation>Cor&amp;tar</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation>Pegar</translation>
     </message>
@@ -234,7 +230,7 @@
         <translation>&amp;Comentar</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation>&amp;Eliminar comentario</translation>
     </message>
@@ -244,7 +240,12 @@
         <translation>Archivos &amp;recientes</translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>&amp;Editar función</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation>C&amp;errar</translation>
     </message>
@@ -259,12 +260,55 @@
         <translation>Cerrar otros archivos</translation>
     </message>
     <message>
-        <location line="-85"/>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Ejecutar &amp;Selección</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Ayuda</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>&amp;Ayuda en palabras clave</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>&amp;Documentación de palabras clave</translation>
+    </message>
+    <message>
+        <location line="-147"/>
         <source>&amp;Find and Replace</source>
         <translation>&amp;Buscar y reemplazar</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>No se ha podido abrir el archivo %1 para lectura: %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>El archivo %1 no existe. ¿Desea crearlo?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>No se ha podido abrir el archivo
+%1
+para escritura: %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation>Guardar archivo y ejecutar</translation>
     </message>
@@ -279,12 +323,22 @@
         <translation>&amp;Archivo</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation>&amp;Editar</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Preferencias</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Preferencias de &amp;estilos</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation>&amp;Depurar</translation>
     </message>
@@ -297,7 +351,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation>Ir a línea</translation>
     </message>
@@ -323,15 +377,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation>Editor de Octave</translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -339,7 +393,7 @@
         <translation>El archivo\n%1\n está a punto de ser cerrado pero ha sido modificado.\n%2</translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Archivos de Octave(*.m);;Todos los archivos(*)</translation>
     </message>
@@ -365,13 +419,13 @@
         <translation>Al parecer el archivo\n%1\n ha sido eliminado o renombrado.¿Desea guardarlo ahora?%2</translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation>No se ha podido abrir el archivo %1 para escritura:\n%2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation>Al parecer el archivo \&apos;%1\&apos; ha sido modificado por otra aplicación. ¿Desea recargarlo?</translation>
     </message>
@@ -859,18 +913,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation>Cargar espacio de trabajo</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation>Acerca de Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation>&amp;Archivo</translation>
     </message>
@@ -931,18 +985,33 @@
         <translation>Pegar</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation>Guardar espacio de trabajo como</translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation>El archivo de las notas de versión %1 está vacío.</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation>El archivo de las notas de versión %1 no puede ser leído.</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Notas de la versión de Octave</translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation>Fijar directorio de trabajo</translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation>Limpiar el Portapapeles</translation>
     </message>
@@ -1002,17 +1071,27 @@
         <translation>Mostrar explorador de archivos</translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Mostrar ventana de noticias</translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation>Explorador de archivos</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Noticias</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation>Reestablecer esquema de ventana predeterminado</translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation>Paquetes de Octave</translation>
     </message>
@@ -1042,6 +1121,21 @@
         <translation>En línea</translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Noticias</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Notas de la versión</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Noticias de la comunidad</translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation>Introducir nombre de directorio</translation>
@@ -1062,7 +1156,7 @@
         <translation>Explorar directorios</translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation>Cargar espacio de trabajo</translation>
     </message>
@@ -1097,7 +1191,7 @@
         <translation>Mostrar documentación</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation>Ventana de comandos</translation>
     </message>
@@ -1118,7 +1212,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation>Documentación</translation>
     </message>
@@ -1134,22 +1228,30 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Noticias de la comunidad</translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translatorcomment>Uso &quot;widget&quot; por ser el término usual: http://es.wikipedia.org/wiki/Widget</translatorcomment>
         <translation>Desacoplar widget</translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translatorcomment>Uso &quot;widget&quot; por ser el término usual: http://es.wikipedia.org/wiki/Widget</translatorcomment>
         <translation>Ocultar widget</translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translatorcomment>Uso &quot;widget&quot; por ser el término usual: http://es.wikipedia.org/wiki/Widget</translatorcomment>
         <translation>Acoplar widget</translation>
@@ -1158,9 +1260,24 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
-        <translation>Ayuda</translation>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation>Ayuda sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Documentación sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Editar</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>&amp;Ejecutar selección</translation>
     </message>
 </context>
 <context>
@@ -1306,6 +1423,11 @@
         <translation>Restaurar las pestañas del editor de la sesión anterior en el arranque </translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Crear archivos no existentes sin preguntar</translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation>Utilizar editor de archivos personalizado</translation>
@@ -1341,7 +1463,7 @@
         <translation>Tipo de fuente</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation>Mostrar numeros de línea</translation>
     </message>
@@ -1361,7 +1483,7 @@
         <translation>Mostrar ruta completa en el título de la ventana</translation>
     </message>
     <message>
-        <location line="+548"/>
+        <location line="+561"/>
         <source>emacs</source>
         <translation>emacs</translation>
     </message>
@@ -1451,7 +1573,7 @@
         <translation>HttpProxy</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation>Íconos para widget acoplados</translation>
     </message>
@@ -1466,7 +1588,7 @@
         <translation>Tamaño de ícono</translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation>&quot;Socks5Proxy&quot;</translation>
     </message>
@@ -1491,14 +1613,14 @@
         <translation>Contraseña:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation>Configuración del sistema</translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation>cursor IBeam</translation>
     </message>
@@ -1513,7 +1635,7 @@
         <translation>cursor subrayado</translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation>Diferencia con el tamaño predeterminado</translation>
     </message>
@@ -1549,7 +1671,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation>Escriba aquí y pulse la tecla de &apos;Retorno&apos; para buscar</translation>
     </message>
@@ -1562,44 +1684,54 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation>Bienvenido a GNU Octave</translation>
     </message>
     <message>
-        <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation>Al parecer usted utiiza la interfase gráfica de Octave por primera vez en este ordenador.  Presione &apos;Finalizar&apos; para generar un archivo de configuración e iniciar Octave GUI.</translation>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>¡Bienvenido a Octave!</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation>La configuración ha sido guardada en __%1__. Si ese archivo existe, usted no verá este diálogo cuando Octave inicie de nuevo.</translation>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation>Al parecer usted utilza la interfaz gráfica de Octave por primera vez en este dispositivo de cómputo.  Presione el botón &apos;Finalizar&apos; para escribir un archivo de configuración e iniciar Octave GUI.</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>El archivo de configuración ha sido guardado en %1. Si ese archivo existe, usted no verá este diálogo cuando Octave comience de nuevo.</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</source>
-        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Para mayor información acerca de Octave,&lt;/p&gt;
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Para mas información acerca de Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visite &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; para obtener la documentación en linea como &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- o &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;como documento &lt;/span&gt;&lt;/a&gt;-pdf, o&lt;/li&gt;
-&lt;li&gt;abrir el navegador de documentación de Octave GUI con el menú de ayuda.&lt;/li&gt;
+&lt;li&gt;Visite &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Obtenga la información en linea como &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- o &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;documento &lt;/span&gt;&lt;/a&gt;-pdf&lt;/li&gt;
+&lt;li&gt;Abrir el navegador de la documentación de octave GUI con el menú de ayuda&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation>¡Bienvenido a Octave!</translation>
-    </message>
-    <message>
-        <location line="+74"/>
+        <location line="+20"/>
         <source>Finish</source>
         <translation>Terminar</translation>
     </message>
--- a/libgui/languages/fr_FR.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/fr_FR.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -104,26 +104,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation>Éditeur d&apos;Octave</translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Fichiers d&apos;Octave (*.m);;Tous les fichiers (*)</translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation>Impossible d&apos;ouvrir le fichier %1 pour lecture :
-%2.</translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -137,12 +132,12 @@
         <translation>L&apos;onglet éditeur de fichier associé a disparu. Il a probablement été fermé par un moyen quelconque.</translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation>&amp;%1 %2</translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation>&amp;Nouveau</translation>
     </message>
@@ -182,12 +177,12 @@
         <translation>&amp;Copier</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation>Co&amp;uper</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation>Coller</translation>
     </message>
@@ -237,7 +232,7 @@
         <translation>&amp;Commenter</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation>&amp;Décommenter</translation>
     </message>
@@ -247,7 +242,12 @@
         <translation>Fichiers &amp;récents</translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>&amp;Editer Fonction</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation>&amp;Fermer</translation>
     </message>
@@ -262,12 +262,59 @@
         <translation>Fermer les autres fichiers</translation>
     </message>
     <message>
-        <location line="-85"/>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Exécuter la &amp;Selection</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Aide</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>Aide sur le mot de clés</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>Documentation sur le mot de clés</translation>
+    </message>
+    <message>
+        <location line="-147"/>
         <source>&amp;Find and Replace</source>
         <translation>&amp;Rechercher et remplacer</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Impossible d&apos;ouvrir le fichier
+%1 
+pour lecture : %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>Le fichier
+%1
+n&apos;existe pas. Voulez-vous le créer.</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Impossible d&apos;ouvrir le fichier
+%1 
+pour écrire : %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation>Enregistrer et exécuter</translation>
     </message>
@@ -282,12 +329,22 @@
         <translation>&amp;Fichier</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation>&amp;Editer</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Préférences</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Préférences de &amp;Style</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation>&amp;Déboguer</translation>
     </message>
@@ -300,7 +357,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation>Aller à la ligne</translation>
     </message>
@@ -326,15 +383,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation>Éditeur d&apos;Octave</translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -345,7 +402,7 @@
 %2</translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation>Fichiers d&apos;Octave (*.m);;Tous les fichiers (*)</translation>
     </message>
@@ -377,14 +434,14 @@
 a été supprimé ou rénommé. Voulez-vous l&apos;enregistrer maintenant ?%2</translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation>Impossible d&apos;ouvrir le fichier %1 pour écrire :
 %2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation>Il semblerait que &apos;%1&apos; a été modifié par une autre application. Voulez-vous le récharger ?</translation>
     </message>
@@ -876,18 +933,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation>Charger l&apos;espace de travail</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation>À propos d&apos;Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation>&amp;Fichier</translation>
     </message>
@@ -947,18 +1004,33 @@
         <translation>Coller</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation>Enregistrer l&apos;espace de travail sous</translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Notes de la version d&apos;Octave</translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation>Définir le répertoire de travail</translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation>Effacer le presse-papiers</translation>
     </message>
@@ -1018,17 +1090,27 @@
         <translation>Afficher l&apos;explorateur de fichiers</translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Afficher Fenêtre des Nouvelles</translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation>Explorateur de fichiers</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Nouvelles</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation>Rétablir la disposition par défaut des fenêtres</translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation>Paquets d&apos;Octave</translation>
     </message>
@@ -1045,7 +1127,7 @@
     <message>
         <location line="+3"/>
         <source>Octave Developer Resources</source>
-        <translation>Ressources développeurs d'Octave</translation>
+        <translation>Ressources développeurs d&apos;Octave</translation>
     </message>
     <message>
         <location line="+32"/>
@@ -1058,6 +1140,21 @@
         <translation>En ligne</translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Nouvelles</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Notes de la version</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Nouvelles de la Communauté</translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation>Entrez le nom du répertoire</translation>
@@ -1078,7 +1175,7 @@
         <translation>Naviguer dans les répertoires</translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation>Charger l&apos;espace de travail</translation>
     </message>
@@ -1113,7 +1210,7 @@
         <translation>Afficher la documentation</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation>Fenêtre de commande</translation>
     </message>
@@ -1134,7 +1231,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation>Documentation</translation>
     </message>
@@ -1150,20 +1247,28 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Nouvelles de la Communauté</translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translation>Détacher le widget</translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translation>Cacher le widget</translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translation>Attacher le widget</translation>
     </message>
@@ -1171,9 +1276,24 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
-        <translation>aide</translation>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation>Aide sur</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Documentation sur</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Editer</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>&amp;Exécuter la Selection</translation>
     </message>
 </context>
 <context>
@@ -1317,6 +1437,11 @@
         <translation>Restaurer les onglets de la session précédente</translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Créer des fichiers non existants sans demander</translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation>Utiliser un éditeur externe</translation>
@@ -1352,7 +1477,7 @@
         <translation>Police</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation>Afficher les numéros des lignes</translation>
     </message>
@@ -1372,7 +1497,7 @@
         <translation>Afficher le chemin complet dans le titre de la fenetre</translation>
     </message>
     <message>
-        <location line="+548"/>
+        <location line="+561"/>
         <source>emacs</source>
         <translation>emacs</translation>
     </message>
@@ -1462,7 +1587,7 @@
         <translation>Proxy HTTP</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation>Jeu d&apos;icones pour les widgets</translation>
     </message>
@@ -1477,7 +1602,7 @@
         <translation>Taille des icones</translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation>Proxy Socks5</translation>
     </message>
@@ -1502,14 +1627,14 @@
         <translation>Mot de passe :</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation>Reglages système</translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation>Curseur Trait Vertical</translation>
     </message>
@@ -1524,7 +1649,7 @@
         <translation>Curseur Tiret Bas</translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation>Différence avec la taille par défaut</translation>
     </message>
@@ -1560,7 +1685,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation>Entrez le texte ici et appuyez sur &apos;Entrée&apos; pour lancer la recherche</translation>
     </message>
@@ -1573,44 +1698,56 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation>Bienvenu dans GNU Octave</translation>
     </message>
     <message>
-        <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>Bienvenu dans Octave!</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
         <translation>Il semble que vous exécutez l&apos;interface graphique d&apos;Octave pour la première fois sur cet ordinateur. Cliquez sur &apos;Fin&apos; pour écrire un fichier de configuration et lancez l&apos;interface graphique d&apos;Octave.</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation>Le fichier de configuration est stockée dans __% 1__. Si ce fichier existe, vous ne verrez pas cette boîte de dialogue lorsque d&apos;Octave recommence.</translation>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>Le fichier de configuration est stockée dans % 1. Si ce fichier existe, vous ne verrez pas cette boîte de dialogue lorsque d&apos;Octave recommence.</translation>
     </message>
     <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</source>
-        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Pour plus d'information sur d&apos;Octave,lt;/p&gt;
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Pour plus d&apos;information sur d&apos;Octave :&lt;/p&gt;
 &lt;ul&gt;
-&lt;li&gt;visiter &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt; 
-&lt;li&gt; obtenir le documentation en ligne comme &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, ou&lt;/li&gt;
-&lt;li&gt;ouvrir le navigateur de documentation de l'interface graphique d'Octave avec le menu d'aide.&lt;/li&gt;
+&lt;li&gt;Visiter &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Obtenir le documentation en ligne comme &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+
+;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Ouvrir le navigateur de documentation de l&apos;interface graphique d&apos;Octave avec le menu d&apos;aide.&lt;/li&gt;
 &lt;/ul&gt;
 &lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation>Bienvenu dans Octave!</translation>
-    </message>
-    <message>
-        <location line="+74"/>
+        <location line="+20"/>
         <source>Finish</source>
         <translation>Fin</translation>
     </message>
--- a/libgui/languages/nl_NL.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/nl_NL.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -6,7 +6,7 @@
     <message>
         <location filename="../src/dialog.cc" line="+250"/>
         <source>Select All</source>
-        <translation type="unfinished">Alles selecteren</translation>
+        <translation>Alles selecteren</translation>
     </message>
 </context>
 <context>
@@ -14,52 +14,52 @@
     <message>
         <location filename="../src/workspace-model.cc" line="+75"/>
         <source>automatic</source>
-        <translation type="unfinished">Automatisch</translation>
+        <translation>Automatisch</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>function</source>
-        <translation type="unfinished">Functie</translation>
+        <translation>Functie</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>global</source>
-        <translation type="unfinished">Gobaal</translation>
+        <translation>Gobaal</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>hidden</source>
-        <translation type="unfinished">Verborgen</translation>
+        <translation>Verborgen</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>inherited</source>
-        <translation type="unfinished">Overgeërfd</translation>
+        <translation>Overgeërfd</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>persistent</source>
-        <translation type="unfinished">Blijvend</translation>
+        <translation>Blijvend</translation>
     </message>
     <message>
         <location filename="../qterminal/libqterminal/QTerminal.cc" line="+64"/>
         <source>foreground</source>
-        <translation type="unfinished">Voorgrond</translation>
+        <translation>Voorgrond</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>background</source>
-        <translation type="unfinished">Achtergrond</translation>
+        <translation>Achtergrond</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>selection</source>
-        <translation type="unfinished">Selectie</translation>
+        <translation>Selectie</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>cursor</source>
-        <translation type="unfinished">Aanwijzer</translation>
+        <translation>Aanwijzer</translation>
     </message>
 </context>
 <context>
@@ -67,17 +67,17 @@
     <message>
         <location filename="../qterminal/libqterminal/QTerminal.h" line="+116"/>
         <source>Copy</source>
-        <translation type="unfinished">Kopiëren</translation>
+        <translation>Kopiëren</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Paste</source>
-        <translation type="unfinished">Plakken</translation>
+        <translation>Plakken</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Clear All</source>
-        <translation type="unfinished"></translation>
+        <translation>Alles wissen</translation>
     </message>
 </context>
 <context>
@@ -85,7 +85,80 @@
     <message>
         <location filename="../qterminal/libqterminal/win32/QWinTerminalImpl.cpp" line="+1527"/>
         <source>copied selection to clipboard</source>
-        <translation type="unfinished">selectie naar klembord gekopieerd</translation>
+        <translation>selectie is naar klembord gekopieerd</translation>
+    </message>
+</context>
+<context>
+    <name>QsciLexerBash</name>
+    <message>
+        <location filename="../../../qsci/qscilexerbash.cpp" line="+208"/>
+        <source>Default</source>
+        <translation>Standaardtekst</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Error</source>
+        <translation>Fout</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Comment</source>
+        <translation>Commentaar</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Number</source>
+        <translation>Getal</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Keyword</source>
+        <translation>Trefwoord</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Double-quoted string</source>
+        <translation>Tekst tussen dubbele aanhalingstekens</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted string</source>
+        <translation>Tekst tussen aanhalingstekens</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Operator</source>
+        <translation>Operator</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Identifier</source>
+        <translation>Identifier</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Scalar</source>
+        <translation>Skalair getal</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Parameter expansion</source>
+        <translation>Geëxpandeerde parameter</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Backticks</source>
+        <translation>Backticks</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Here document delimiter</source>
+        <translation>Here document  scheidingsteken</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted here document</source>
+        <translation>Here document tussen aanhalingstekens</translation>
     </message>
 </context>
 <context>
@@ -93,42 +166,42 @@
     <message>
         <location filename="../../../qsci/qscilexerbatch.cpp" line="+179"/>
         <source>Default</source>
-        <translation type="unfinished">Standaard</translation>
+        <translation>Standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Comment</source>
-        <translation type="unfinished">Commentaar</translation>
+        <translation>Commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Keyword</source>
-        <translation type="unfinished">Trefwoord</translation>
+        <translation>Trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Label</source>
-        <translation type="unfinished">Etiket</translation>
+        <translation>Label</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Hide command character</source>
-        <translation type="unfinished">Verberg opdrachtteken</translation>
+        <translation>Verberg opdrachtteken</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>External command</source>
-        <translation type="unfinished">Externe opdracht</translation>
+        <translation>Externe opdracht</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Variable</source>
-        <translation type="unfinished">Variabele</translation>
+        <translation>Variabele</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Operator</source>
-        <translation type="unfinished">Operator</translation>
+        <translation>Operator</translation>
     </message>
 </context>
 <context>
@@ -136,212 +209,212 @@
     <message>
         <location filename="../../../qsci/qscilexercpp.cpp" line="+352"/>
         <source>Default</source>
-        <translation type="unfinished">Verstekwaarde</translation>
+        <translation>Standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive default</source>
-        <translation type="unfinished">Inactieve verstekwaarde</translation>
+        <translation>Inactieve standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>C comment</source>
-        <translation type="unfinished">C commentaar</translation>
+        <translation>C commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive C comment</source>
-        <translation type="unfinished">Inactief C commentaar</translation>
+        <translation>Inactief C commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>C++ comment</source>
-        <translation type="unfinished">C++ commentaar</translation>
+        <translation>C++ commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive C++ comment</source>
-        <translation type="unfinished">Inactief C++ commentaar</translation>
+        <translation>Inactief C++ commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>JavaDoc style C comment</source>
-        <translation type="unfinished">C commentaar in JavaDoc stijl</translation>
+        <translation>C commentaar in JavaDoc stijl</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive JavaDoc style C comment</source>
-        <translation type="unfinished">Inactief C commentaar in JavaDoc stijl</translation>
+        <translation>Inactief C commentaar in JavaDoc stijl</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Number</source>
-        <translation type="unfinished">Getal</translation>
+        <translation>Getal</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive number</source>
-        <translation type="unfinished">Inactief getal</translation>
+        <translation>Inactief getal</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Keyword</source>
-        <translation type="unfinished">Trefwoord</translation>
+        <translation>Trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive keyword</source>
-        <translation type="unfinished">Inactief trefwoord</translation>
+        <translation>Inactief trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted string</source>
-        <translation type="unfinished">Tekst met dubbele aanhalingstekens</translation>
+        <translation>Tekst met dubbele aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive double-quoted string</source>
-        <translation type="unfinished">Inactieve tekst met dubbele aanhalingstekens</translation>
+        <translation>Inactieve tekst met dubbele aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Single-quoted string</source>
-        <translation type="unfinished">Tekst met aanhalingstekens</translation>
+        <translation>Tekst met aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive single-quoted string</source>
-        <translation type="unfinished">Inactieve tekst met aanhalingstekens</translation>
+        <translation>Inactieve tekst met aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>IDL UUID</source>
-        <translation type="unfinished"></translation>
+        <translation>IDL UUID</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive IDL UUID</source>
-        <translation type="unfinished"></translation>
+        <translation>Inactieve IDL UUID</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Pre-processor block</source>
-        <translation type="unfinished">Preprocessor blok</translation>
+        <translation>Preprocessor blok</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive pre-processor block</source>
-        <translation type="unfinished">Inactief preprocessor blok</translation>
+        <translation>Inactief preprocessor blok</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Operator</source>
-        <translation type="unfinished">Operator</translation>
+        <translation>Operator</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive operator</source>
-        <translation type="unfinished">Inactieve operator</translation>
+        <translation>Inactieve operator</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Identifier</source>
-        <translation type="unfinished">Identifier</translation>
+        <translation>Identifier</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive identifier</source>
-        <translation type="unfinished">Inactieve identifier</translation>
+        <translation>Inactieve identifier</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Unclosed string</source>
-        <translation type="unfinished">Niet afgesloten tekst</translation>
+        <translation>Niet afgesloten tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive unclosed string</source>
-        <translation type="unfinished">Inactieve niet afgesloten tekst</translation>
+        <translation>Inactieve niet afgesloten tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>C# verbatim string</source>
-        <translation type="unfinished">C# letterlijke tekst</translation>
+        <translation>C# letterlijke tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive C# verbatim string</source>
-        <translation type="unfinished">Inactieve C# letterlijke tekst</translation>
+        <translation>Inactieve C# letterlijke tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>JavaScript regular expression</source>
-        <translation type="unfinished">Javascript reguliere uitdrukking</translation>
+        <translation>Javascript reguliere uitdrukking</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive JavaScript regular expression</source>
-        <translation type="unfinished">Inatieve Javascript reguliere uitdrukking</translation>
+        <translation>Inatieve Javascript reguliere uitdrukking</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>JavaDoc style C++ comment</source>
-        <translation type="unfinished">C++ commentaar in JavaDoc stijl</translation>
+        <translation>C++ commentaar in JavaDoc stijl</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive JavaDoc style C++ comment</source>
-        <translation type="unfinished">Inactief C++ commentaar in JavaDoc stijl</translation>
+        <translation>Inactief C++ commentaar in JavaDoc stijl</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Secondary keywords and identifiers</source>
-        <translation type="unfinished">Secundaire trefwoorden en identifiers</translation>
+        <translation>Secundaire trefwoorden en identifiers</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive secondary keywords and identifiers</source>
-        <translation type="unfinished">Inactieve secundaire trefwoorden en identifiers</translation>
+        <translation>Inactieve secundaire trefwoorden en identifiers</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>JavaDoc keyword</source>
-        <translation type="unfinished">JavaDoc sleutelwoord</translation>
+        <translation>JavaDoc sleutelwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive JavaDoc keyword</source>
-        <translation type="unfinished">Inactief JavaDoc sleutelwoord</translation>
+        <translation>Inactief JavaDoc sleutelwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>JavaDoc keyword error</source>
-        <translation type="unfinished">fout JavaDoc trefwoord</translation>
+        <translation>fout JavaDoc trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive JavaDoc keyword error</source>
-        <translation type="unfinished">Inactief fout JavaDoc trefwoord</translation>
+        <translation>Inactief fout JavaDoc trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Global classes and typedefs</source>
-        <translation type="unfinished">Globale klassen en typedefs</translation>
+        <translation>Globale klassen en typedefs</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive global classes and typedefs</source>
-        <translation type="unfinished">Inactieve globale klassen en typedefs</translation>
+        <translation>Inactieve globale klassen en typedefs</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>C++ raw string</source>
-        <translation type="unfinished">C++ ruwe tekst</translation>
+        <translation>C++ ruwe tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Inactive C++ raw string</source>
-        <translation type="unfinished">Inactieve C++ ruwe tekst</translation>
+        <translation>Inactieve C++ ruwe tekst</translation>
     </message>
 </context>
 <context>
@@ -349,42 +422,42 @@
     <message>
         <location filename="../../../qsci/qscilexerdiff.cpp" line="+107"/>
         <source>Default</source>
-        <translation type="unfinished">Verstekwaarde</translation>
+        <translation>Standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Comment</source>
-        <translation type="unfinished">Commentaar</translation>
+        <translation>Commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Command</source>
-        <translation type="unfinished">Opdracht</translation>
+        <translation>Opdracht</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Header</source>
-        <translation type="unfinished">Koptekst</translation>
+        <translation>Koptekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Position</source>
-        <translation type="unfinished">Positie</translation>
+        <translation>Positie</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Removed line</source>
-        <translation type="unfinished">Verwijderde regel</translation>
+        <translation>Verwijderde regel</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Added line</source>
-        <translation type="unfinished">Toegevoegde regel</translation>
+        <translation>Toegevoegde regel</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Changed line</source>
-        <translation type="unfinished">Gewijzigde regel</translation>
+        <translation>Gewijzigde regel</translation>
     </message>
 </context>
 <context>
@@ -392,47 +465,47 @@
     <message>
         <location filename="../../../qsci/qscilexermatlab.cpp" line="+138"/>
         <source>Default</source>
-        <translation type="unfinished">Verstekwaarde</translation>
+        <translation>Standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Comment</source>
-        <translation type="unfinished">Commentaar</translation>
+        <translation>Commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Command</source>
-        <translation type="unfinished">Opdracht</translation>
+        <translation>Opdracht</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Number</source>
-        <translation type="unfinished">Getal</translation>
+        <translation>Getal</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Keyword</source>
-        <translation type="unfinished">Trefwoord</translation>
+        <translation>Trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Single-quoted string</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens</translation>
+        <translation>Tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Operator</source>
-        <translation type="unfinished">Operator</translation>
+        <translation>Operator</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Identifier</source>
-        <translation type="unfinished">Identifier</translation>
+        <translation>Identifier</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted string</source>
-        <translation type="unfinished">Tekst tussen dubbele aanhalingstekens</translation>
+        <translation>Tekst tussen dubbele aanhalingstekens</translation>
     </message>
 </context>
 <context>
@@ -440,207 +513,207 @@
     <message>
         <location filename="../../../qsci/qscilexerperl.cpp" line="+333"/>
         <source>Default</source>
-        <translation type="unfinished">Verstekwaarde</translation>
+        <translation>Standaardtekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Error</source>
-        <translation type="unfinished">Fout</translation>
+        <translation>Fout</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Comment</source>
-        <translation type="unfinished">Commentaar</translation>
+        <translation>Commentaar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>POD</source>
-        <translation type="unfinished">POD</translation>
+        <translation>POD</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Number</source>
-        <translation type="unfinished">Getal</translation>
+        <translation>Getal</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Keyword</source>
-        <translation type="unfinished">Trefwoord</translation>
+        <translation>Trefwoord</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted string</source>
-        <translation type="unfinished">Tekst tussen dubbele aanhalingstekens</translation>
+        <translation>Tekst tussen dubbele aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Single-quoted string</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens</translation>
+        <translation>Tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Operator</source>
-        <translation type="unfinished">Operator</translation>
+        <translation>Operator</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Identifier</source>
-        <translation type="unfinished">Identifier</translation>
+        <translation>Identifier</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Scalar</source>
-        <translation type="unfinished">Enkel getal</translation>
+        <translation>Skalair getal</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Array</source>
-        <translation type="unfinished">Array</translation>
+        <translation>Array</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Hash</source>
-        <translation type="unfinished">Hash</translation>
+        <translation>Hash</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Symbol table</source>
-        <translation type="unfinished">Symbooltabel</translation>
+        <translation>Symbooltabel</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Regular expression</source>
-        <translation type="unfinished">Reguliere uitdrukking</translation>
+        <translation>Reguliere uitdrukking</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Substitution</source>
-        <translation type="unfinished">Vervanging</translation>
+        <translation>Vervanging</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Backticks</source>
-        <translation type="unfinished"></translation>
+        <translation>Backticks</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Data section</source>
-        <translation type="unfinished">Data sectie</translation>
+        <translation>Data sectie</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Here document delimiter</source>
-        <translation type="unfinished">Here document  scheidingsteken</translation>
+        <translation>Here document  scheidingsteken</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Single-quoted here document</source>
-        <translation type="unfinished">Here document tussen aanhalingstekens</translation>
+        <translation>Here document tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted here document</source>
-        <translation type="unfinished">Here dicument tussen dubbele aanhalingstekens</translation>
+        <translation>Here dicument tussen dubbele aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Backtick here document</source>
-        <translation type="unfinished">Backtick here document</translation>
+        <translation>Backtick here document</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (q)</source>
-        <translation type="unfinished">q tekst tussen aanhalingstekens</translation>
+        <translation>q tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qq)</source>
-        <translation type="unfinished">qq tekst tussen aanhalingstekens</translation>
+        <translation>qq tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qx)</source>
-        <translation type="unfinished">qx tekst tussen aanhalingstekens</translation>
+        <translation>qx tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qr)</source>
-        <translation type="unfinished">qr tekst tussen aanhalingstekens</translation>
+        <translation>qr tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qw)</source>
-        <translation type="unfinished">qw tekst tussen aanhalingstekens</translation>
+        <translation>qw tekst tussen aanhalingstekens</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>POD verbatim</source>
-        <translation type="unfinished">POD letterlijk</translation>
+        <translation>POD letterlijk</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Subroutine prototype</source>
-        <translation type="unfinished"></translation>
+        <translation>Subroutine prototype</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Format identifier</source>
-        <translation type="unfinished">Sjabloon identifier</translation>
+        <translation>Sjabloon identifier</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Format body</source>
-        <translation type="unfinished">Sjabloon inhoud</translation>
+        <translation>Sjabloon inhoud</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted string (interpolated variable)</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens (geïnterpoleerde variabele)</translation>
+        <translation>Tekst tussen aanhalingstekens (geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Translation</source>
-        <translation type="unfinished">Vertaling</translation>
+        <translation>Vertaling</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Regular expression (interpolated variable)</source>
-        <translation type="unfinished">Reguliere uitdrukking (Geïnterpoleerde variabele)</translation>
+        <translation>Reguliere uitdrukking (Geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Substitution (interpolated variable)</source>
-        <translation type="unfinished">Vervanging</translation>
+        <translation>Vervanging</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Backticks (interpolated variable)</source>
-        <translation type="unfinished"></translation>
+        <translation>Backticks (geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Double-quoted here document (interpolated variable)</source>
-        <translation type="unfinished">Here document tussen dubbele aanhalingstekens (geïnterpoleerde variabele</translation>
+        <translation>Here document tussen dubbele aanhalingstekens (geïnterpoleerde variabele</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Backtick here document (interpolated variable)</source>
-        <translation type="unfinished">Backtick here document (geïnterpoleerde variabele)</translation>
+        <translation>Backtick here document (geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qq, interpolated variable)</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens (qq, geïnterpoleerde variabele)</translation>
+        <translation>Tekst tussen aanhalingstekens (qq, geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qx, interpolated variable)</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens (qx, geïnterpoleerde variabele)</translation>
+        <translation>Tekst tussen aanhalingstekens (qx, geïnterpoleerde variabele)</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Quoted string (qr, interpolated variable)</source>
-        <translation type="unfinished">Tekst tussen aanhalingstekens (qr, geïnterpoleerde variabele)</translation>
+        <translation>Tekst tussen aanhalingstekens (qr, geïnterpoleerde variabele)</translation>
     </message>
 </context>
 <context>
@@ -648,37 +721,37 @@
     <message>
         <location filename="../../../qsci/qsciscintilla.cpp" line="+4201"/>
         <source>&amp;Undo</source>
-        <translation type="unfinished">Ongedaan maken</translation>
+        <translation>Ongedaan maken</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>&amp;Redo</source>
-        <translation type="unfinished">He&amp;rhalen</translation>
+        <translation>He&amp;rhalen</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Cu&amp;t</source>
-        <translation type="unfinished">Knippen</translation>
+        <translation>Knippen</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>&amp;Copy</source>
-        <translation type="unfinished">Kopiëren</translation>
+        <translation>Kopiëren</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>&amp;Paste</source>
-        <translation type="unfinished">Plakken</translation>
+        <translation>Plakken</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Delete</source>
-        <translation type="unfinished">Verwijderen</translation>
+        <translation>Verwijderen</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Select All</source>
-        <translation type="unfinished">Alles kiezen</translation>
+        <translation>Alles selecteren</translation>
     </message>
 </context>
 <context>
@@ -691,32 +764,27 @@
     <message>
         <location line="+1"/>
         <source>See the documentation for help.</source>
-        <translation type="unfinished">Kijk in de documentatie voor hulp.</translation>
+        <translation>Kijk in de documentatie voor hulp.</translation>
     </message>
 </context>
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation></translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation type="unfinished">Octave bestanden (*.m);;Alle bestanden (*)</translation>
-    </message>
-    <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation>Bestand %1 kon niet geopend worden om te lezen:
-%2.</translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <translation>Octave bestanden (*.m);;Alle bestanden (*)</translation>
+    </message>
+    <message>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -730,12 +798,12 @@
         <translation>Het bijbehorende tabblad in de editor is verdwenen. Het is waarschijnlijk op een of andere manier gesloten.</translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation></translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation>&amp;Nieuw Bestand</translation>
     </message>
@@ -757,7 +825,7 @@
     <message>
         <location line="+3"/>
         <source>Print</source>
-        <translation type="unfinished">Afdrukken</translation>
+        <translation>Afdrukken</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -775,12 +843,12 @@
         <translation>Kopiëren</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation>Knippen</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation>Plakken</translation>
     </message>
@@ -827,47 +895,99 @@
     <message>
         <location line="+3"/>
         <source>&amp;Comment</source>
-        <translation type="unfinished">Zet om naar commentaar</translation>
-    </message>
-    <message>
-        <location line="+3"/>
+        <translation>Zet om naar commentaar</translation>
+    </message>
+    <message>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
-        <translation type="unfinished">Zet om naar code</translation>
+        <translation>Zet om naar code</translation>
     </message>
     <message>
         <location line="+63"/>
         <source>&amp;Recent Editor Files</source>
-        <translation type="unfinished">Recent geopend</translation>
-    </message>
-    <message>
-        <location line="+16"/>
+        <translation>Recent geopend</translation>
+    </message>
+    <message>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>Edit functie</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
-        <translation type="unfinished">Sluit bestand</translation>
+        <translation>Sluit bestand</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Close All</source>
-        <translation type="unfinished">Alle bestanden sluiten</translation>
+        <translation>Alle bestanden sluiten</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Close Other Files</source>
-        <translation type="unfinished">Andere bestanden sluiten</translation>
-    </message>
-    <message>
-        <location line="-85"/>
-        <source>&amp;Find and Replace</source>
-        <translation>Zoek en Vervang</translation>
+        <translation>Andere bestanden sluiten</translation>
+    </message>
+    <message>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Geselecteerde tekst uitvoeren</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>Hulp</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>Hulp bij sleutelwoord</translation>
     </message>
     <message>
         <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>Documentatie bij sleutelwoord</translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation>Zoek en Vervang</translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Kon bestand
+%1
+niet openen om in te lezen: %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>Bestand
+%1
+bestaat niet. Wilt u het laten aanmaken?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Kon bestand
+%1
+niet openen om te schrijven: %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation>Bestand opslaan en uitvoeren</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Go&amp;to Line</source>
-        <translation type="unfinished">Ga naar regel</translation>
+        <translation>Ga naar regel</translation>
     </message>
     <message>
         <location line="+53"/>
@@ -875,12 +995,22 @@
         <translation>Bestand</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation>B&amp;ewerken</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>Voorkeuren</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Stijlvoorkeuren</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation>&amp;Debuggen</translation>
     </message>
@@ -893,60 +1023,61 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
-        <translation type="unfinished">Ga naar regel ...</translation>
+        <translation>Ga naar regel ...</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Line number</source>
-        <translation type="unfinished">Regelnummer</translation>
+        <translation>Regelnummer</translation>
     </message>
     <message>
         <location line="+70"/>
         <source>&lt;unnamed&gt;</source>
-        <translation type="unfinished">naamloos</translation>
+        <translation>naamloos</translation>
     </message>
     <message>
         <location line="+40"/>
         <source>Do you want to save or discard the changes?</source>
-        <translation type="unfinished">Wil je de wijzigingen opslaan of niet?</translation>
+        <translation>Wil je de wijzigingen opslaan of niet?</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Do you want to cancel closing, save or discard the changes?</source>
-        <translation type="unfinished">Wil je niet meer afsluiten, het gewijzigde, of het originele bestand opslaan?</translation>
+        <translation>Wil je niet meer afsluiten, danwel het gewijzigde of het originele bestand opslaan?</translation>
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation></translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
 %2</source>
-        <translation type="unfinished">Het bestand
+        <translation>Het bestand
 %1
-dat gesloten moet worden is gewijzigd.</translation>
-    </message>
-    <message>
-        <location line="+189"/>
+dat gesloten moet worden is gewijzigd.
+%2</translation>
+    </message>
+    <message>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation type="unfinished">Octave bestanden (*.m);;Alle bestanden (*)</translation>
+        <translation>Octave bestanden (*.m);;Alle bestanden (*)</translation>
     </message>
     <message>
         <location line="+34"/>
         <source>File not saved! The selected file name
 %1
 is the same as the current file name</source>
-        <translation type="unfinished">Bestand niet opgeslagen! De gekozen bestandsnaam
+        <translation>Bestand niet opgeslagen! De gekozen bestandsnaam
 %1
 is identiek aan de huidige bestandsnaam</translation>
     </message>
@@ -955,7 +1086,7 @@
         <source>
 
 Warning: The contents in the editor is modified!</source>
-        <translation type="unfinished">
+        <translation>
 Opgelet: Het bestand in de editor is gewijzigd!</translation>
     </message>
     <message>
@@ -963,19 +1094,19 @@
         <source>It seems that the file
 %1
 has been deleted or renamed. Do you want to save it now?%2</source>
-        <translation type="unfinished">Het lijkt er op dat bestand
+        <translation>Het lijkt er op dat bestand
 %1
-is gewist of hernoemd. Wil je het nu opslaan?</translation>
-    </message>
-    <message>
-        <location line="-197"/>
+is gewist of hernoemd. Wil je het nu opslaan?%2</translation>
+    </message>
+    <message>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation>Kon bestand %1 niet openen om te schrijven:
 %2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation>Het lijkt erop dat &apos;%1&apos; is gewijzigd door een ander programma. Wil je het opnieuw laden?</translation>
     </message>
@@ -985,184 +1116,185 @@
     <message>
         <location filename="../src/files-dock-widget.cc" line="+67"/>
         <source>File Browser</source>
-        <translation type="unfinished">Bestandsbrowser</translation>
+        <translation>Bestandsbrowser</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Browse your files.</source>
-        <translation type="unfinished">Blader door uw bestanden.</translation>
+        <translation>Blader door uw bestanden.</translation>
     </message>
     <message>
         <location line="+18"/>
         <source>Enter the path or filename</source>
-        <translation type="unfinished">Voer pad- of bestandsnaam in</translation>
+        <translation>Voer pad- of bestandsnaam in</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Move up one directory</source>
-        <translation type="unfinished">Eén mapniveau omhoog</translation>
+        <translation>Eén mapniveau omhoog</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show octave directory</source>
-        <translation type="unfinished">Laat octave map zien</translation>
+        <translation>Laat octave map zien</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Goto current octave directory</source>
-        <translation type="unfinished">Ga naar huidige octave map</translation>
+        <translation>Ga naar huidige octave map</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Set octave directory</source>
-        <translation type="unfinished">Stel octave map in</translation>
+        <translation>Stel octave map in</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Set octave directroy to current browser directory</source>
-        <translation type="unfinished">Maak huidige browser map de Octave map</translation>
+        <translation>Maak huidige browser map de Octave map</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Actions on current directory</source>
-        <translation type="unfinished">Bewerkingen op huidige map</translation>
+        <translation>Bewerkingen op huidige map</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Home directory</source>
-        <translation type="unfinished">Laat home map zien</translation>
+        <translation>Laat home map zien</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Search directory</source>
-        <translation type="unfinished">Zoek in map</translation>
+        <translation>Zoek in map</translation>
     </message>
     <message>
         <location line="+3"/>
         <location line="+244"/>
         <source>Find Files ...</source>
-        <translation type="unfinished">Zoek bestanden ...</translation>
+        <translation>Zoek bestanden ...</translation>
     </message>
     <message>
         <location line="-240"/>
         <location line="+252"/>
         <source>New File</source>
-        <translation type="unfinished">Nieuw bestand</translation>
+        <translation>Nieuw bestand</translation>
     </message>
     <message>
         <location line="-249"/>
         <location line="+252"/>
         <source>New Directory</source>
-        <translation type="unfinished">Nieuwe map</translation>
+        <translation>Nieuwe map</translation>
     </message>
     <message>
         <location line="-223"/>
         <source>Doubleclick a file to open it</source>
-        <translation type="unfinished">Dubbelklik op bestandsnaam om te openen</translation>
+        <translation>Dubbelklik op bestandsnaam om te openen</translation>
     </message>
     <message>
         <location line="+185"/>
         <source>Open</source>
-        <translation type="unfinished">Open</translation>
+        <translation>Open</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Open in Default Application</source>
-        <translation type="unfinished">Open met bijbehorend programma</translation>
+        <translation>Open met bijbehorend programma</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Copy Selection to Clipboard</source>
-        <translation type="unfinished">Kopieer selectie naar klembord</translation>
+        <translation>Kopieer selectie naar klembord</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Run</source>
-        <translation type="unfinished">Voer uit</translation>
+        <translation>Voer uit</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Load Data</source>
-        <translation type="unfinished">Lees data in</translation>
+        <translation>Lees data in</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Set Current Directory</source>
-        <translation type="unfinished">Stel huidige map in</translation>
+        <translation>Stel huidige map in</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Rename</source>
-        <translation type="unfinished">Hernoemen</translation>
+        <translation>Hernoemen</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Delete</source>
-        <translation type="unfinished">Verwijderen</translation>
+        <translation>Verwijderen</translation>
     </message>
     <message>
         <location line="+107"/>
         <source>Rename file/directory</source>
-        <translation type="unfinished">Hernoem bestand/map</translation>
+        <translation>Hernoem bestand/map</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Rename file/directory:
 </source>
-        <translation type="unfinished">Hernoem bestand</translation>
+        <translation>Hernoem bestand
+</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>
  to: </source>
-        <translation type="unfinished">
+        <translation>
  naar: </translation>
     </message>
     <message>
         <location line="+25"/>
         <location line="+11"/>
         <source>Delete file/directory</source>
-        <translation type="unfinished">Wis bestand/map</translation>
+        <translation>Wis bestand/map</translation>
     </message>
     <message>
         <location line="-10"/>
         <source>Are you sure you want to delete
 </source>
-        <translation type="unfinished">Weet u zeker dat u dit wilt verwijderen
-        </translation>
+        <translation>Weet u zeker dat u dit wilt verwijderen:
+</translation>
     </message>
     <message>
         <location line="+11"/>
         <source>Can not delete a directory that is not empty</source>
-        <translation type="unfinished">Kan geen niet-lege map wissen</translation>
+        <translation>Kan een niet-lege map niet wissen</translation>
     </message>
     <message>
         <location line="+131"/>
         <source>Set directory of file browser</source>
-        <translation type="unfinished">Stel file browser map in</translation>
+        <translation>Stel file browser map in</translation>
     </message>
     <message>
         <location line="+28"/>
         <source>Create File</source>
-        <translation type="unfinished">Maak nieuw bestand</translation>
+        <translation>Maak nieuw bestand</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>Create file in
 </source>
-        <translation type="unfinished">Maak nieuw bestand in
+        <translation>Maak nieuw bestand in
 </translation>
     </message>
     <message>
         <location line="+17"/>
         <source>Create Directory</source>
-        <translation type="unfinished">Maak nieuwe map</translation>
+        <translation>Maak nieuwe map</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>Create folder in
 </source>
-        <translation type="unfinished">Maak nieuwe map in
+        <translation>Maak nieuwe map in
 </translation>
     </message>
 </context>
@@ -1201,7 +1333,7 @@
     <message>
         <location line="+1"/>
         <source>Find &amp;Previous</source>
-        <translation type="unfinished">Vorige zoeken</translation>
+        <translation>Vorige zoeken</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -1241,32 +1373,32 @@
     <message>
         <location line="+71"/>
         <source>Search from end</source>
-        <translation type="unfinished">vanaf einde terug zoeken</translation>
+        <translation>vanaf einde terug zoeken</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Search from start</source>
-        <translation type="unfinished">Zoeken vanaf begin</translation>
+        <translation>Zoeken vanaf begin</translation>
     </message>
     <message>
         <location line="+117"/>
         <source>Replace Result</source>
-        <translation type="unfinished">Resultaat vervangen</translation>
+        <translation>Resultaat vervangen</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>%1 items replaced</source>
-        <translation type="unfinished">%1 vervangingen</translation>
+        <translation>%1 vervangingen</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Find Result</source>
-        <translation type="unfinished">Zoek resultaat</translation>
+        <translation>Zoek resultaat</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>No more matches found</source>
-        <translation type="unfinished">Geen overeenkomsten meer gevonden</translation>
+        <translation>Geen overeenkomsten meer gevonden</translation>
     </message>
 </context>
 <context>
@@ -1274,142 +1406,142 @@
     <message>
         <location filename="../src/find-files-dialog.cc" line="+47"/>
         <source>Find Files</source>
-        <translation type="unfinished">Zoek bestanden</translation>
+        <translation>Zoek bestanden</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Named:</source>
-        <translation type="unfinished">Genaamd:</translation>
+        <translation>Genaamd:</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Enter the filename expression</source>
-        <translation type="unfinished">Voer de bestandnaam-expressie in</translation>
+        <translation>Voer de bestandnaam-expressie in</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Start in:</source>
-        <translation type="unfinished">Begin in:</translation>
+        <translation>Begin in:</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Enter the start directory</source>
-        <translation type="unfinished">Geef startmap op</translation>
+        <translation>Geef startmap op</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Browse...</source>
-        <translation type="unfinished">Bladeren ...</translation>
+        <translation>Bladeren ...</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Browse for start directory</source>
-        <translation type="unfinished">Blader naar begin map</translation>
+        <translation>Blader naar begin map</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Recurse directories</source>
-        <translation type="unfinished">Ook in onderliggende mappen</translation>
+        <translation>Ook in onderliggende mappen</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Search recursively through directories for matching files</source>
-        <translation type="unfinished">Zoek ook in onderliggende mappen naar overeenkomende bestanden</translation>
+        <translation>Zoek ook in onderliggende mappen naar overeenkomende bestanden</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Include directories</source>
-        <translation type="unfinished">Neem mappen ook mee</translation>
+        <translation>Neem mappen ook mee</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Include matching directories in search results</source>
-        <translation type="unfinished">Neem overeenkomende mappen mee in zoekresultaten</translation>
+        <translation>Neem overeenkomende mappen mee in zoekresultaten</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Name case insensitive</source>
-        <translation type="unfinished">Niet-hoofdlettergevoelige naam</translation>
+        <translation>Niet-hoofdlettergevoelige naam</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Set matching name is case insensitive</source>
-        <translation type="unfinished">Naam instellen op niet-hoofdlettergevoelig</translation>
+        <translation>Naam instellen op niet-hoofdlettergevoelig</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Contains text:</source>
-        <translation type="unfinished">Met tekst:</translation>
+        <translation>Met tekst:</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search must match text</source>
-        <translation type="unfinished">Zoeken naar overeenkomende tekst</translation>
+        <translation>Zoeken naar overeenkomende tekst</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Text to match</source>
-        <translation type="unfinished">Overeen te komen tekst</translation>
+        <translation>Overeen te komen tekst</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Text case insensitive</source>
-        <translation type="unfinished">Niet-hoofdlettergevoelige tekst</translation>
+        <translation>Niet-hoofdlettergevoelige tekst</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Set text content is case insensitive</source>
-        <translation type="unfinished">Tekst instellen op niet-hoofdlettergevoelig</translation>
+        <translation>Tekst instellen op niet-hoofdlettergevoelig</translation>
     </message>
     <message>
         <location line="+11"/>
         <source>Search results</source>
-        <translation type="unfinished">Zoekresultaten</translation>
+        <translation>Zoekresultaten</translation>
     </message>
     <message>
         <location line="+14"/>
         <source>Idle.</source>
-        <translation type="unfinished">Niet bezig.</translation>
+        <translation>Niet bezig.</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Find</source>
-        <translation type="unfinished">Zoek</translation>
+        <translation>Zoek</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Start search for matching files</source>
-        <translation type="unfinished">begin met zoeken naar overeenkomende bestanden</translation>
+        <translation>begin met zoeken naar overeenkomende bestanden</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Stop</source>
-        <translation type="unfinished">Stop</translation>
+        <translation>Stop</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Stop searching</source>
-        <translation type="unfinished">Stop met zoeken</translation>
+        <translation>Stop met zoeken</translation>
     </message>
     <message>
         <location line="+15"/>
         <source>File name/location</source>
-        <translation type="unfinished">Bestandsnaam/lokatie</translation>
+        <translation>Bestandsnaam/lokatie</translation>
     </message>
     <message>
         <location line="+17"/>
         <source>File contents</source>
-        <translation type="unfinished">Inhoud van bestand</translation>
+        <translation>Inhoud van bestand</translation>
     </message>
     <message>
         <location line="+99"/>
         <source>Searching...</source>
-        <translation type="unfinished">Bezig met zoeken...</translation>
+        <translation>Bezig met zoeken...</translation>
     </message>
     <message>
         <location line="+32"/>
         <source>Set search directory</source>
-        <translation type="unfinished">Stel zoekmap in</translation>
+        <translation>Stel zoekmap in</translation>
     </message>
 </context>
 <context>
@@ -1417,12 +1549,12 @@
     <message>
         <location filename="../src/find-files-model.cc" line="+76"/>
         <source>Filename</source>
-        <translation type="unfinished">Bestandsnaam</translation>
+        <translation>Bestandsnaam</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Directory</source>
-        <translation type="unfinished">Map</translation>
+        <translation>Map</translation>
     </message>
 </context>
 <context>
@@ -1430,7 +1562,7 @@
     <message>
         <location filename="../src/history-dock-widget.cc" line="+43"/>
         <source>Browse and search the command history.</source>
-        <translation type="unfinished">Bladeren en zoeken door de opdrachtgeschiedenis.</translation>
+        <translation>Bladeren en zoeken door de opdrachtgeschiedenis.</translation>
     </message>
     <message>
         <location line="+23"/>
@@ -1460,24 +1592,24 @@
     <message>
         <location line="+1"/>
         <source>Create script</source>
-        <translation type="unfinished">Nieuw script</translation>
+        <translation>Nieuw script</translation>
     </message>
 </context>
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation>Werkruimte laden</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation>Over Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation>Bestand</translation>
     </message>
@@ -1537,20 +1669,35 @@
         <translation>Plakken</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
-        <translation type="unfinished">Bewaar werkruimte als ...</translation>
-    </message>
-    <message>
-        <location line="-655"/>
+        <translation>Bewaar werkruimte als ...</translation>
+    </message>
+    <message>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation>Bestand met Release Notes &apos;%1&apos; is leeg.</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation>Bestand met Rlease Notes  &apos;%1&apos; kan nit worden gelezen.</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Octave Release Notes</translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
-        <translation type="unfinished">Stel werkmap in</translation>
-    </message>
-    <message>
-        <location line="+739"/>
+        <translation>Stel werkmap in</translation>
+    </message>
+    <message>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
-        <translation type="unfinished"></translation>
+        <translation>Wis klembord</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -1605,70 +1752,95 @@
     <message>
         <location line="+48"/>
         <source>Show File Browser</source>
-        <translation type="unfinished">Laat bestandsbrowser zien</translation>
-    </message>
-    <message>
-        <location line="+20"/>
+        <translation>Laat bestandsbrowser zien</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Laat Nieuwsvenster zien</translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
-        <translation type="unfinished">Bestandsbrowser</translation>
-    </message>
-    <message>
-        <location line="+14"/>
+        <translation>Bestandsbrowser</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Nieuws</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
-        <translation type="unfinished">Stel oorspronkelijke window layout opnieuw in</translation>
-    </message>
-    <message>
-        <location line="+77"/>
+        <translation>Stel oorspronkelijke window layout opnieuw in</translation>
+    </message>
+    <message>
+        <location line="+86"/>
         <source>Octave Packages</source>
-        <translation type="unfinished"></translation>
+        <translation>Octave packages</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Share Code</source>
-        <translation type="unfinished"></translation>
+        <translation>Deel code</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Contribute to Octave</source>
-        <translation type="unfinished"></translation>
+        <translation>Doneer aan Octave project</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Octave Developer Resources</source>
-        <translation type="unfinished"></translation>
+        <translation>Octave Ontwikkelaar Resurces</translation>
     </message>
     <message>
         <location line="+32"/>
         <source>On Disk</source>
-        <translation type="unfinished">Op schijf</translation>
+        <translation>Op schijf</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Online</source>
-        <translation type="unfinished">Online</translation>
+        <translation>Online</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>Nieuws</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Release notes</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Community Nieuws</translation>
     </message>
     <message>
         <location line="+30"/>
         <source>Enter directory name</source>
-        <translation type="unfinished">Geef mapnaam op</translation>
+        <translation>Geef mapnaam op</translation>
     </message>
     <message>
         <location line="+8"/>
         <source>Current Directory: </source>
-        <translation type="unfinished">Huidige map:</translation>
+        <translation>Huidige map:</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>One directory up</source>
-        <translation type="unfinished">Eén mapniveau omhoog</translation>
+        <translation>Eén mapniveau omhoog</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Browse directories</source>
-        <translation type="unfinished">Blader door mappen</translation>
-    </message>
-    <message>
-        <location line="-412"/>
+        <translation>Blader door mappen</translation>
+    </message>
+    <message>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation>Werkruimte laden</translation>
     </message>
@@ -1703,7 +1875,7 @@
         <translation>Documentatie weergeven</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation>Opdrachtvenster</translation>
     </message>
@@ -1724,7 +1896,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation>Documentatie</translation>
     </message>
@@ -1740,30 +1912,53 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation> Community nieuws</translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
-        <translation type="unfinished">Widget laten zweven</translation>
-    </message>
-    <message>
-        <location line="-119"/>
+        <translation>Widget laten zweven</translation>
+    </message>
+    <message>
+        <location line="-149"/>
         <source>Hide widget</source>
-        <translation type="unfinished">Widget verbergen</translation>
-    </message>
-    <message>
-        <location line="+86"/>
+        <translation>Widget verbergen</translation>
+    </message>
+    <message>
+        <location line="+104"/>
         <source>Dock widget</source>
-        <translation type="unfinished">Widget in venster opnemen</translation>
+        <translation>Widget in venster opnemen</translation>
     </message>
 </context>
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
-        <translation type="unfinished">hulp</translation>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation>Help over</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Documentatie over</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Edit</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>Voer selectie uit</translation>
     </message>
 </context>
 <context>
@@ -1771,32 +1966,32 @@
     <message>
         <location filename="../src/octave-qt-link.cc" line="+270"/>
         <source>The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.</source>
-        <translation type="unfinished">Het bestand %1 is niet in zoekpad.  Om de functie die je edit te debuggen moet je òf naar debetreffende map %2 gaan, of die map aan het zoekpad toevoegen.</translation>
+        <translation>Het bestand %1 is niet in zoekpad.  Om de functie die je edit te debuggen moet je òf naar debetreffende map %2 gaan, of die map aan het zoekpad toevoegen.</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>The file %1 is shadowed by a file with the same name in the load path.  To debug the function you are editing, change to the directory %2.</source>
-        <translation type="unfinished">Het bestand %1 is overschaduwd door een bestand met dezelfde naam in het zoekpad.  Ga naar de map %2 om de functie de je edit te kunnen debuggen.</translation>
+        <translation>Het bestand %1 is overschaduwd door een bestand met dezelfde naam in het zoekpad.  Ga naar de map %2 om de functie de je edit te kunnen debuggen.</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Change Directory or Add Directory to Load Path</source>
-        <translation type="unfinished">Ga naar andere map of Voeg map toe aan zoekpad</translation>
+        <translation>Ga naar andere map of Voeg map toe aan zoekpad</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Change Directory</source>
-        <translation type="unfinished">Ga naar andere map</translation>
+        <translation>Ga naar andere map</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Add Directory to Load Path</source>
-        <translation type="unfinished">Voeg map toe aan zoekpad</translation>
+        <translation>Voeg map toe aan zoekpad</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Cancel</source>
-        <translation type="unfinished">Afbreken</translation>
+        <translation>Afbreken</translation>
     </message>
 </context>
 <context>
@@ -1834,107 +2029,112 @@
     <message>
         <location line="+16"/>
         <source>Show white space</source>
-        <translation type="unfinished">Laat witruimtetekens zien</translation>
+        <translation>Laat witruimtetekens zien</translation>
     </message>
     <message>
         <location line="+27"/>
         <source>Do not show white spaces used for indentation</source>
-        <translation type="unfinished">Verberg witruimtetekens die worden gebruikt voor inspringen</translation>
+        <translation>Verberg witruimtetekens die worden gebruikt voor inspringen</translation>
     </message>
     <message>
         <location line="+28"/>
         <source>Color</source>
-        <translation type="unfinished">Kleur</translation>
+        <translation>Kleur</translation>
     </message>
     <message>
         <location line="+120"/>
         <source>Indent width</source>
-        <translation type="unfinished">Inspringafstand</translation>
+        <translation>Inspringafstand</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Tab indents line</source>
-        <translation type="unfinished">Inspringen met tab</translation>
+        <translation>Inspringen met tab</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Auto indentation</source>
-        <translation type="unfinished">Automatisch inspringen</translation>
+        <translation>Automatisch inspringen</translation>
     </message>
     <message>
         <location line="+20"/>
         <source>Tab width</source>
-        <translation type="unfinished">Tab breedte</translation>
+        <translation>Tab breedte</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show indentation guides</source>
-        <translation type="unfinished">Laat inspringraster zien</translation>
+        <translation>Laat inspringraster zien</translation>
     </message>
     <message>
         <location line="+17"/>
         <source>Backspace unindents line</source>
-        <translation type="unfinished">Backspace doet terug inspringen</translation>
+        <translation>Backspace doet terug inspringen</translation>
     </message>
     <message>
         <location line="+84"/>
         <source>Characters before list with suggestions is displayed</source>
-        <translation type="unfinished">Aantal tekens voordat lijst met suggesties wordt weergegeven</translation>
+        <translation>Aantal tekens voordat lijst met suggesties wordt weergegeven</translation>
     </message>
     <message>
         <location line="+71"/>
         <source>Match keywords</source>
-        <translation type="unfinished">Zoek op overeenkomende sleutelwoorden</translation>
+        <translation>Zoek overeenkomende sleutelwoorden</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>Case sensitive</source>
-        <translation type="unfinished">Hoofdlettergevoelig</translation>
+        <translation>Hoofdlettergevoelig</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>Replace word by suggested one</source>
-        <translation type="unfinished">Vervang woord door suggestie</translation>
+        <translation>Vervang woord door suggestie</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Match words in document</source>
-        <translation type="unfinished">Zoek overeenkomende worden in document</translation>
+        <translation>Zoek overeenkomende woorden in document</translation>
     </message>
     <message>
         <location line="+61"/>
         <source>Restore editor tabs from previous session on startup</source>
-        <translation type="unfinished">Herstel bij opstarten de editor tabs uit de vorige sessie</translation>
+        <translation>Herstel bij opstarten de editor tabs uit de vorige sessie</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Maak nieuwe bestanden aan zonder melding</translation>
     </message>
     <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
-        <translation type="unfinished">Gebruik een andere editor</translation>
+        <translation>Gebruik een andere editor</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Command  line (%f=file, %l=line):</source>
-        <translation type="unfinished">Opdrachtregel (%f=bestand, %l=regel):</translation>
+        <translation>Opdrachtregel (%f=bestand, %l=regel):</translation>
     </message>
     <message>
         <location line="+22"/>
         <source>Editor Styles</source>
-        <translation type="unfinished">Editorstijlen</translation>
+        <translation>Editorstijlen</translation>
     </message>
     <message>
         <location line="+24"/>
         <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Select font, font size (as difference to the default size), font decoration (bold, italic, underline), textcolor and background color (for the latter, the color pink (255,0,255) is a placeholder for the default background color)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished">Kies font, fontgrootte (als verschil met standaardgrootte), fonttype (vet, schuin, onderstreept), tekstkleur en achtergrondkleur (de kleur roze (255,0,255) dient alleen om de standaard-achtergrondkleur aan te duiden)</translation>
+        <translation>Kies font, fontgrootte (als verschil met standaardgrootte), fonttype (vet, schuin, onderstreept), tekstkleur en achtergrondkleur (de kleur roze (255,0,255) dient alleen om de standaard-achtergrondkleur aan te duiden)</translation>
     </message>
     <message>
         <location line="+76"/>
         <source>Use Foreground Color</source>
-        <translation type="unfinished">Gebruik voorgrondkleur</translation>
+        <translation>Gebruik voorgrondkleur</translation>
     </message>
     <message>
         <location line="+32"/>
         <source>Terminal Colors</source>
-        <translation type="unfinished">Terminalkleuren</translation>
+        <translation>Terminalkleuren</translation>
     </message>
     <message>
         <location line="+45"/>
@@ -1942,7 +2142,7 @@
         <translation>Lettertype</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation>Regelnummers weergeven</translation>
     </message>
@@ -1962,7 +2162,7 @@
         <translation>Hele pad in schermtitel weergeven</translation>
     </message>
     <message>
-        <location line="+548"/>
+        <location line="+561"/>
         <source>emacs</source>
         <translation></translation>
     </message>
@@ -1984,7 +2184,7 @@
     <message>
         <location line="+101"/>
         <source>Font size</source>
-        <translation type="unfinished">Lettergrootte</translation>
+        <translation>Lettergrootte</translation>
     </message>
     <message>
         <location line="+35"/>
@@ -2014,7 +2214,7 @@
     <message>
         <location line="+7"/>
         <source>Synchronize octave directory with the file browser</source>
-        <translation type="unfinished">Synchroniseer octave map met die van bestandsbrowser</translation>
+        <translation>Synchroniseer octave map met die van bestandsbrowser</translation>
     </message>
     <message>
         <location line="+7"/>
@@ -2024,12 +2224,12 @@
     <message>
         <location line="+21"/>
         <source>Workspace</source>
-        <translation type="unfinished">Werkruimte</translation>
+        <translation>Werkruimte</translation>
     </message>
     <message>
         <location line="+30"/>
         <source>Storage Class Colors</source>
-        <translation type="unfinished">Kleuren voor klasse</translation>
+        <translation>Kleuren voor klasse</translation>
     </message>
     <message>
         <location line="+35"/>
@@ -2052,22 +2252,22 @@
         <translation>http proxy</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
-        <translation type="unfinished">Iconenset voor dock widgets</translation>
+        <translation>Iconenset voor dock widgets</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Language (requires restart)</source>
-        <translation type="unfinished">Taal instellen (vereist herstart)</translation>
+        <translation>Taal instellen (vereist herstart)</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Icon size</source>
-        <translation type="unfinished">Icoongrootte</translation>
-    </message>
-    <message>
-        <location line="+1098"/>
+        <translation>Icoongrootte</translation>
+    </message>
+    <message>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation></translation>
     </message>
@@ -2092,51 +2292,51 @@
         <translation>Wachtwoord:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
-        <translation type="unfinished">Systeeminstelling</translation>
-    </message>
-    <message>
-        <location line="-268"/>
+        <translation>Systeeminstelling</translation>
+    </message>
+    <message>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
-        <translation type="unfinished">I-balkje</translation>
+        <translation>I-balkje</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Block Cursor</source>
-        <translation type="unfinished">Blokje</translation>
+        <translation>Blokje</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Underline Cursor</source>
-        <translation type="unfinished">Liggend streepje</translation>
-    </message>
-    <message>
-        <location line="+129"/>
+        <translation>Liggend streepje</translation>
+    </message>
+    <message>
+        <location line="+140"/>
         <source>Difference to the default size</source>
-        <translation type="unfinished">Verschil met standaardgrootte</translation>
+        <translation>Verschil met standaardgrootte</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Background color, pink (255,0,255) means default</source>
-        <translation type="unfinished">Achtergrondkleur; roze (255,0,255) staat voor standaardkleur</translation>
+        <translation>Achtergrondkleur; roze (255,0,255) staat voor standaardkleur</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>b</source>
-        <translation type="unfinished"></translation>
+        <translation>b</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>i</source>
-        <translation type="unfinished"></translation>
+        <translation>i</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>u</source>
-        <translation type="unfinished"></translation>
+        <translation>u</translation>
     </message>
 </context>
 <context>
@@ -2150,7 +2350,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation>Typ hier en druk op &apos;Enter&apos; om te zoeken</translation>
     </message>
@@ -2163,38 +2363,54 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation>Welkom bij GNU Octave</translation>
     </message>
     <message>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>Welkom bij Octave!</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation>Kennelijk gebruik je Octave&apos;s grafische interface voor het eerst. Klik op Finish, dan wordt er een standaard configuratiebestand aangemaakt en daarna de Octave GUI gestart.</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>Het configuratiebestand is opgeslagen als %1. Als dat bestand bestaat zal Octave bij een volgende start dee dialoog overslaan.</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Voor meer informatie over Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;ga naar &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Bekijk de documentatie online hier &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- of hier &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open de documentatie browser van de Octave GUI met het help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</translation>
+    </message>
+    <message>
         <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
-&lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
-&lt;/ul&gt;
-&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation>Welkom bij Octave!</translation>
-    </message>
-    <message>
-        <location line="+74"/>
         <source>Finish</source>
         <translation>Voltooien</translation>
     </message>
@@ -2224,12 +2440,12 @@
     <message>
         <location line="+1"/>
         <source>Storage Class</source>
-        <translation type="unfinished">Klasse</translation>
+        <translation>Klasse</translation>
     </message>
     <message>
         <location line="+107"/>
         <source>Right click to copy, rename, or display</source>
-        <translation type="unfinished">Klik rechts om te kopiëren, hernoemen of weergeven</translation>
+        <translation>Klik rechts om te kopiëren, hernoemen of weergeven</translation>
     </message>
 </context>
 <context>
@@ -2242,32 +2458,32 @@
     <message>
         <location line="+1"/>
         <source>View the variables in the active workspace.</source>
-        <translation type="unfinished">Bekijk de variabelen in de huidige werkruimte.</translation>
+        <translation>Bekijk de variabelen in de huidige werkruimte.</translation>
     </message>
     <message>
         <location line="+75"/>
         <source>Copy</source>
-        <translation type="unfinished">Kopiëren</translation>
+        <translation>Kopiëren</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Rename</source>
-        <translation type="unfinished">Hernoemen</translation>
+        <translation>Hernoemen</translation>
     </message>
     <message>
         <location line="+8"/>
         <source>Only top-level symbols may be renamed.</source>
-        <translation type="unfinished">Alleen hoofdsymbolen kunnen worden hernoemd.</translation>
+        <translation>Alleen hoofdsymbolen kunnen worden hernoemd.</translation>
     </message>
     <message>
         <location line="+125"/>
         <source>View the variables in the active workspace.&lt;br&gt;</source>
-        <translation type="unfinished">Bekijk variabelen in actieve werkruimte</translation>
+        <translation>Bekijk variabelen in actieve werkruimte</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Colors for the storage class:</source>
-        <translation type="unfinished">Kleuren voor klasse:</translation>
+        <translation>Kleuren voor klasse:</translation>
     </message>
 </context>
 </TS>
--- a/libgui/languages/pt_BR.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/pt_BR.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -14,7 +14,7 @@
     <message>
         <location filename="../src/workspace-model.cc" line="+75"/>
         <source>automatic</source>
-        <translation>automática</translation>
+        <translation>automático(a)</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -29,7 +29,7 @@
     <message>
         <location line="+1"/>
         <source>hidden</source>
-        <translation>oculta</translation>
+        <translation>oculto(a)</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -44,22 +44,22 @@
     <message>
         <location filename="../qterminal/libqterminal/QTerminal.cc" line="+64"/>
         <source>foreground</source>
-        <translation type="unfinished"></translation>
+        <translation>primeiro plano</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>background</source>
-        <translation type="unfinished"></translation>
+        <translation>fundo</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>selection</source>
-        <translation type="unfinished"></translation>
+        <translation>seleção</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>cursor</source>
-        <translation type="unfinished"></translation>
+        <translation>indicador</translation>
     </message>
 </context>
 <context>
@@ -67,17 +67,17 @@
     <message>
         <location filename="../qterminal/libqterminal/QTerminal.h" line="+116"/>
         <source>Copy</source>
-        <translation type="unfinished">Copiar</translation>
+        <translation>Copiar</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Paste</source>
-        <translation type="unfinished"></translation>
+        <translation>Colar</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Clear All</source>
-        <translation type="unfinished"></translation>
+        <translation>Limpar Tudo</translation>
     </message>
 </context>
 <context>
@@ -85,7 +85,7 @@
     <message>
         <location filename="../qterminal/libqterminal/win32/QWinTerminalImpl.cpp" line="+1527"/>
         <source>copied selection to clipboard</source>
-        <translation type="unfinished"></translation>
+        <translation>seleção copiada para a área de transferência</translation>
     </message>
 </context>
 <context>
@@ -104,42 +104,38 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
-        <translation>Editor Octave</translation>
+        <translation>Editor do Octave</translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation>Scripts Octave (*.m);;Todos Arquivos (*)</translation>
+        <translation>Scripts do Octave (*.m);;Todos os Arquivos (*)</translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation>Não foi possível abrir arquivo %1 para leitura: %2.</translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
-        <translation>Arquivo não salvo! Um arquivo com o nome selecionado %1 se encontra aberto no editor</translation>
+        <translation>Arquivo não salvo! Um arquivo com o nome selecionado %1 já está aberto no editor</translation>
     </message>
     <message>
         <location line="+28"/>
         <source>The associated file editor tab has disappeared.  It was likely closed by some means.</source>
-        <translation>A aba do editor associada ao arquivo desapareceu. Foi provavelmente fechada de alguma maneira.</translation>
+        <translation>A aba do editor associada ao arquivo desapareceu. Provavelmente foi fechada de alguma maneira.</translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation>&amp;%1 %2</translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation>&amp;Novo Arquivo</translation>
     </message>
@@ -179,14 +175,14 @@
         <translation>&amp;Copiar</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation>Recor&amp;tar</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
-        <translation>Co&amp;lar</translation>
+        <translation>Colar</translation>
     </message>
     <message>
         <location line="+2"/>
@@ -201,12 +197,12 @@
     <message>
         <location line="+2"/>
         <source>Toggle &amp;Bookmark</source>
-        <translation>Visualizar &amp;Marcador</translation>
+        <translation>Habilitar/desabilitar &amp;Marcador</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Remove All Bookmarks</source>
-        <translation>&amp;Remover Todos Marcadores</translation>
+        <translation>&amp;Remover Todos os Marcadores</translation>
     </message>
     <message>
         <location line="+4"/>
@@ -221,7 +217,7 @@
     <message>
         <location line="+3"/>
         <source>Toggle &amp;breakpoint</source>
-        <translation>Visualizar ponto de &amp;interrupção</translation>
+        <translation>Habilitar/desabilitar ponto de &amp;interrupção</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -234,24 +230,29 @@
         <translation>&amp;Comentar</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation>&amp;Descomentar</translation>
     </message>
     <message>
         <location line="+63"/>
         <source>&amp;Recent Editor Files</source>
-        <translation>Arquivos &amp;recentes</translation>
+        <translation>Arquivos &amp;Recentes</translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>&amp;Editar Função</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation>&amp;Fechar</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Close All</source>
-        <translation>Fechar &amp;Todos</translation>
+        <translation>Fechar Todos</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -259,19 +260,66 @@
         <translation>Fechar Outros Arquivos</translation>
     </message>
     <message>
-        <location line="-85"/>
-        <source>&amp;Find and Replace</source>
-        <translation>Procurar e Substituir</translation>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Executar &amp;Seleção</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Ajuda</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>&amp;Ajuda na Palavra-chave</translation>
     </message>
     <message>
         <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>&amp;Documentação na Palavra-chave</translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation>&amp;Buscar e Substituir</translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Não foi possível abrir aquivo
+%1
+para leitura: %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>Arquivo
+%1
+não existe. Deseja criá-lo?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Não foi possível abrir arquivo
+%1
+para escrita: %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
-        <translation>Salvar e Executar</translation>
+        <translation>Salvar Arquivo e Executar</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Go&amp;to Line</source>
-        <translation>Vá para Linha</translation>
+        <translation>Vá para &amp;Linha</translation>
     </message>
     <message>
         <location line="+53"/>
@@ -279,12 +327,22 @@
         <translation>&amp;Arquivo</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation>&amp;Editar</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Preferências</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Preferências de &amp;Estilo</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation>&amp;Depurar</translation>
     </message>
@@ -297,7 +355,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation>Vá para linha</translation>
     </message>
@@ -319,32 +377,32 @@
     <message>
         <location line="+5"/>
         <source>Do you want to cancel closing, save or discard the changes?</source>
-        <translation>Você deseja salvar, descartar as alterações ou cancelar fechamento?</translation>
+        <translation>Você deseja cancelar fechamento, salvar ou descartar as alterações?</translation>
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
-        <translation>Editor Octave</translation>
+        <translation>Editor do Octave</translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
 %2</source>
         <translation>O arquivo
 %1
-está prestes a ser fechado com modificações.
+está prestes a ser fechado mas foi modificado.
 %2</translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation>Scripts Octave (*.m);; Todos Arquivos (*)</translation>
+        <translation>Scripts Octave (*.m);; Todos os Arquivos (*)</translation>
     </message>
     <message>
         <location line="+34"/>
@@ -362,7 +420,7 @@
 Warning: The contents in the editor is modified!</source>
         <translation>
 
-Aviso: Os arquivos no editor foram modificados!</translation>
+Aviso: O conteúdo no editor foi modificado!</translation>
     </message>
     <message>
         <location line="+7"/>
@@ -374,14 +432,14 @@
 foi removido ou renomeado. Pretende salvá-lo agora?%2</translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation>Não foi possível abrir arquivo %1 para escrita:
 %2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation>Parece que o arquivo &apos;%1&apos; foi modificado por outra aplicação. Deseja recarregá-lo?</translation>
     </message>
@@ -396,58 +454,58 @@
     <message>
         <location line="+1"/>
         <source>Browse your files.</source>
-        <translation>Procure seus arquivos.</translation>
+        <translation>Explore seus arquivos.</translation>
     </message>
     <message>
         <location line="+18"/>
         <source>Enter the path or filename</source>
-        <translation>Informe o caminho ou nome do arquivo</translation>
+        <translation>Digite o caminho ou nome de arquivo</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Move up one directory</source>
-        <translation>Mova um diretório acima</translation>
+        <translation>Subir um nível de diretório</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show octave directory</source>
-        <translation>Mostre o diretório corrente</translation>
+        <translation>Exibir o diretório do Octave</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Goto current octave directory</source>
-        <translation>Vá para o diretório corrente</translation>
+        <translation>Vá para o diretório atual do Octave</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Set octave directory</source>
-        <translation>Mude o diretório corrente</translation>
+        <translation>Definir o diretório do Octave</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Set octave directroy to current browser directory</source>
-        <translation>Mude diretório corrente para o diretório atual do navegador</translation>
+        <translation>Definir diretório do Octave igual ao diretório atual no navegador</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Actions on current directory</source>
-        <translation>Ações no diretório corrente</translation>
+        <translation>Ações no diretório atual</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Home directory</source>
-        <translation>Mostre diretório corrente</translation>
+        <translation>Exibir diretório pessoal</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Search directory</source>
-        <translation>Procure no diretório</translation>
+        <translation>Buscar no diretório</translation>
     </message>
     <message>
         <location line="+3"/>
         <location line="+244"/>
         <source>Find Files ...</source>
-        <translation>Procurar arquivos...</translation>
+        <translation>Buscar arquivos...</translation>
     </message>
     <message>
         <location line="-240"/>
@@ -494,7 +552,7 @@
     <message>
         <location line="+6"/>
         <source>Set Current Directory</source>
-        <translation>Alterar Diretório Corrente </translation>
+        <translation>Definir Diretório Atual</translation>
     </message>
     <message>
         <location line="+7"/>
@@ -504,7 +562,7 @@
     <message>
         <location line="+1"/>
         <source>Delete</source>
-        <translation>Remover</translation>
+        <translation>Excluir</translation>
     </message>
     <message>
         <location line="+107"/>
@@ -534,17 +592,17 @@
         <location line="-10"/>
         <source>Are you sure you want to delete
 </source>
-        <translation>Você tem certeza que deseja remover</translation>
+        <translation>Você tem certeza que deseja excluir</translation>
     </message>
     <message>
         <location line="+11"/>
         <source>Can not delete a directory that is not empty</source>
-        <translation>Não é possível remover um diretório que não está vázio</translation>
+        <translation>Não é possível excluir um diretório que não está vázio</translation>
     </message>
     <message>
         <location line="+131"/>
         <source>Set directory of file browser</source>
-        <translation>Alterar diretório do navegador de arquivos</translation>
+        <translation>Definir diretório do navegador de arquivos</translation>
     </message>
     <message>
         <location line="+28"/>
@@ -574,82 +632,82 @@
     <message>
         <location filename="../src/m-editor/find-dialog.cc" line="+77"/>
         <source>Find &amp;what:</source>
-        <translation>Procure por:</translation>
+        <translation>&amp;Buscar por:</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Re&amp;place with:</source>
-        <translation>Substituir com:</translation>
+        <translation>&amp;Substituir por:</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Match &amp;case</source>
-        <translation>Considerar caixa alta/baixa</translation>
+        <translation>Considerar &amp;maiúsculas/minúsculas</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search from &amp;start</source>
-        <translation>Procurar do começo</translation>
+        <translation>Buscar a paritr do &amp;início</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>&amp;Wrap while searching</source>
-        <translation>Destacar durante busca</translation>
+        <translation>Retornar ao começo se encontrar &amp;final durante busca</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>&amp;Find Next</source>
-        <translation>Procurar Próximo</translation>
+        <translation>Buscar &amp;Próximo</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Find &amp;Previous</source>
-        <translation>Procurar Anterior</translation>
+        <translation>Buscar &amp;Anterior</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>&amp;Replace</source>
-        <translation>Substituir</translation>
+        <translation>&amp;Substituir</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Replace &amp;All</source>
-        <translation>Substituir Todos</translation>
+        <translation>Substituir &amp;Todos(as)</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>&amp;More</source>
-        <translation>Mais</translation>
+        <translation>&amp;Mais</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>&amp;Whole words</source>
-        <translation>Todas as palavras</translation>
+        <translation>Palavras &amp;inteiras</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Regular E&amp;xpressions</source>
-        <translation>Expressões Regulares</translation>
+        <translation>Expressões &amp;Regulares</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search &amp;backward</source>
-        <translation>Procure para trás</translation>
+        <translation>Buscar para &amp;trás</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search se&amp;lection</source>
-        <translation>Seleção de busca</translation>
+        <translation>Buscar dentre &amp;seleção</translation>
     </message>
     <message>
         <location line="+71"/>
         <source>Search from end</source>
-        <translation>Procurar do final</translation>
+        <translation>Buscar desde o final</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Search from start</source>
-        <translation>Procurar do começo</translation>
+        <translation>Buscar desde o início</translation>
     </message>
     <message>
         <location line="+117"/>
@@ -664,7 +722,7 @@
     <message>
         <location line="+10"/>
         <source>Find Result</source>
-        <translation>Procurar Resultado</translation>
+        <translation>Buscar Resultado</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -677,7 +735,7 @@
     <message>
         <location filename="../src/find-files-dialog.cc" line="+47"/>
         <source>Find Files</source>
-        <translation>Encontrar Arquivos</translation>
+        <translation>Buscar Arquivos</translation>
     </message>
     <message>
         <location line="+10"/>
@@ -687,7 +745,7 @@
     <message>
         <location line="+2"/>
         <source>Enter the filename expression</source>
-        <translation>Informe a expressão do nome do arquivo</translation>
+        <translation>Digite expressão para os nomes de arquivo</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -697,47 +755,47 @@
     <message>
         <location line="+4"/>
         <source>Enter the start directory</source>
-        <translation>Entrar no diretório de início</translation>
+        <translation>Digite diretório inicial</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Browse...</source>
-        <translation>Procurar...</translation>
+        <translation>Explorar...</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Browse for start directory</source>
-        <translation>Procurar por diretório de início</translation>
+        <translation>Explorar diretório inicial</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Recurse directories</source>
-        <translation>Recursão nos diretórios</translation>
+        <translation>Entrar em sub-diretórios</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Search recursively through directories for matching files</source>
-        <translation>Procure recursivamente pelos diretórios para encontrar arquivos</translation>
+        <translation>Buscar recursivamente nos diretórios por arquivos que correspondam</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Include directories</source>
-        <translation>Inclua diretórios</translation>
+        <translation>Inclur diretórios</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Include matching directories in search results</source>
-        <translation>Inclua diretórios explorados no resultado da busca</translation>
+        <translation>Incluir diretórios encontrados no resultado da busca</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Name case insensitive</source>
-        <translation>Não insensível a caixa alta/baixa</translation>
+        <translation>Insensível a maiúsculas/minúsculas</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Set matching name is case insensitive</source>
-        <translation>Altere se o nome é insensível a caixa do texto</translation>
+        <translation>Definir se nome é insensível a maúscula/minúscula</translation>
     </message>
     <message>
         <location line="+2"/>
@@ -747,42 +805,42 @@
     <message>
         <location line="+1"/>
         <source>Search must match text</source>
-        <translation>Busca precisa honrar texto</translation>
+        <translation>Busca deve encontrar texto</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Text to match</source>
-        <translation>Texto para honrar</translation>
+        <translation>Texto para encontrar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Text case insensitive</source>
-        <translation>Texto insensível a caixa alta/baixa</translation>
+        <translation>Texto insensível a maiúscula/minúscula</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Set text content is case insensitive</source>
-        <translation>Altere se conteúdo do texto é insensível a caixa alta/baixa</translation>
+        <translation>Definir se texto é insensível a maiúscula/minúscula</translation>
     </message>
     <message>
         <location line="+11"/>
         <source>Search results</source>
-        <translation>Resultados de Busca</translation>
+        <translation>Resultados da Busca</translation>
     </message>
     <message>
         <location line="+14"/>
         <source>Idle.</source>
-        <translation>Ocupado.</translation>
+        <translation>Parado.</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Find</source>
-        <translation>Procurar</translation>
+        <translation>Buscar</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Start search for matching files</source>
-        <translation>Iniciar procura por arquivos encontrados</translation>
+        <translation>Iniciar busca por arquivos</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -797,7 +855,7 @@
     <message>
         <location line="+15"/>
         <source>File name/location</source>
-        <translation>Nome do arquivo/localização</translation>
+        <translation>Nome/local do arquivo</translation>
     </message>
     <message>
         <location line="+17"/>
@@ -833,17 +891,17 @@
     <message>
         <location filename="../src/history-dock-widget.cc" line="+43"/>
         <source>Browse and search the command history.</source>
-        <translation>Pesquise no histórico de comandos.</translation>
+        <translation>Naveguar e buscar no histórico de comandos.</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Doubleclick a command to transfer it to the terminal.</source>
-        <translation>Clique duas vezes num comando para transferí-lo ao terminal.</translation>
+        <translation>Clique duas vezes em um comando para transferí-lo ao terminal.</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Enter text to filter the command history.</source>
-        <translation>Digite um texto para filtrar o hitórico de comandos.</translation>
+        <translation>Digite para filtrar o hitórico de comandos.</translation>
     </message>
     <message>
         <location line="+4"/>
@@ -869,20 +927,20 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation>Carregar ambiente de trabalho</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation>Sobre o Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
-        <translation>Arquivo</translation>
+        <translation>&amp;Arquivo</translation>
     </message>
     <message>
         <location line="+54"/>
@@ -922,7 +980,7 @@
     <message>
         <location line="+52"/>
         <source>&amp;Edit</source>
-        <translation>Editar</translation>
+        <translation>&amp;Editar</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -940,25 +998,40 @@
         <translation>Colar</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
-        <translation>Salvar Ambiente de Trabalho como</translation>
+        <translation>Salvar Ambiente de Trabalho Como</translation>
+    </message>
+    <message>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation>O arquivo de notas da versão &apos;%1&apos; está vazio.</translation>
     </message>
     <message>
-        <location line="-655"/>
-        <source>Set working directory</source>
-        <translation>Alterar diretório de trabalho</translation>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation>O arquivo de notas da versão &apos;%1&apos; não pode ser lido.</translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Notas da Versão do Octave</translation>
+    </message>
+    <message>
+        <location line="+157"/>
+        <source>Set working directory</source>
+        <translation>Definir diretório de trabalho</translation>
+    </message>
+    <message>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
-        <translation type="unfinished"></translation>
+        <translation>Limpar Área de Transferência</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Find Files...</source>
-        <translation>Encontrar Arquivos...</translation>
+        <translation>Buscar Arquivos...</translation>
     </message>
     <message>
         <location line="+5"/>
@@ -978,12 +1051,12 @@
     <message>
         <location line="+40"/>
         <source>De&amp;bug</source>
-        <translation>Depurar</translation>
+        <translation>De&amp;purar</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Step</source>
-        <translation>Passo</translation>
+        <translation>Passo-a-passo</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -1008,37 +1081,47 @@
     <message>
         <location line="+48"/>
         <source>Show File Browser</source>
-        <translation>Mostrar Navegador de Arquivos</translation>
+        <translation>Exibir Navegador de Arquivos</translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Exibir Janela de Novidades</translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation>Navegador de Arquivos</translation>
     </message>
     <message>
-        <location line="+14"/>
-        <source>Reset Default Window Layout</source>
-        <translation>Recuperar Disposição de Janelas Padrão</translation>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Novidades</translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+5"/>
+        <source>Reset Default Window Layout</source>
+        <translation>Restaurar Disposição de Janelas Padrão</translation>
+    </message>
+    <message>
+        <location line="+86"/>
         <source>Octave Packages</source>
-        <translation type="unfinished"></translation>
+        <translation>Pacotes do Octave</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Share Code</source>
-        <translation type="unfinished"></translation>
+        <translation>Compartilhar o Código</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Contribute to Octave</source>
-        <translation type="unfinished"></translation>
+        <translation>Contribuir com o Octave</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Octave Developer Resources</source>
-        <translation type="unfinished"></translation>
+        <translation>Recursos para Desenvolvedores do Octave</translation>
     </message>
     <message>
         <location line="+32"/>
@@ -1048,30 +1131,45 @@
     <message>
         <location line="+3"/>
         <source>Online</source>
-        <translation>Online</translation>
+        <translation>Na Internet</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Novidades</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Notas da Versão</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Novidades da Comunidade</translation>
     </message>
     <message>
         <location line="+30"/>
         <source>Enter directory name</source>
-        <translation>Informe nome do diretório</translation>
+        <translation>Digite nome do diretório</translation>
     </message>
     <message>
         <location line="+8"/>
         <source>Current Directory: </source>
-        <translation>Diretório Atual</translation>
+        <translation>Diretório Atual:</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>One directory up</source>
-        <translation>Um diretório acima</translation>
+        <translation>Um nível de diretório acima</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Browse directories</source>
-        <translation>Procurar diretórios</translation>
+        <translation>Navegar por diretórios</translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation>Carregar ambiente de trabalho</translation>
     </message>
@@ -1083,30 +1181,30 @@
     <message>
         <location line="+6"/>
         <source>Show Command Window</source>
-        <translation>Mostrar Janela de Comandos</translation>
+        <translation>Exibir Janela de Comandos</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Command History</source>
-        <translation>Mostrar Histórico de Comandos</translation>
+        <translation>Exibir Histórico de Comandos</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Show Workspace</source>
-        <translation>Mostrar Ambiente de Trabalho</translation>
+        <translation>Exibir Ambiente de Trabalho</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Editor</source>
-        <translation>Mostrar Editor</translation>
+        <translation>Exibir Editor</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Documentation</source>
-        <translation>Mostrar Documentação</translation>
+        <translation>Exibir Documentação</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation>Janela de Comandos</translation>
     </message>
@@ -1127,7 +1225,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation>Documentação</translation>
     </message>
@@ -1139,34 +1237,57 @@
     <message>
         <location line="+7"/>
         <source>Report Bug</source>
-        <translation>Reportar Bug</translation>
+        <translation>Reportar Defeito</translation>
+    </message>
+</context>
+<context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Novidades da Comunidade</translation>
     </message>
 </context>
 <context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
-        <translation>Desacoplar widget</translation>
+        <translation>Desacoplar painel</translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
-        <translation>Esconder widget</translation>
+        <translation>Esconder painel</translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
-        <translation>Acoplar widget</translation>
+        <translation>Acoplar painel</translation>
     </message>
 </context>
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
-        <translation>ajuda</translation>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation>Ajuda sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Documentação sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Editar</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>&amp;Executar Seleção</translation>
     </message>
 </context>
 <context>
@@ -1174,27 +1295,27 @@
     <message>
         <location filename="../src/octave-qt-link.cc" line="+270"/>
         <source>The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.</source>
-        <translation>O arquivo %1 não existe no path. Para depurar a função, você precisa mudar para o diretório %2 ou adicionar esse diretório ao path.</translation>
+        <translation>O arquivo %1 não existe no caminho de pesquisa.  Para depurar a função que você está editando, é preciso ou mudar para o diretório %2 ou adicionar esse diretório ao caminho de pesquisa.</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>The file %1 is shadowed by a file with the same name in the load path.  To debug the function you are editing, change to the directory %2.</source>
-        <translation>O arquivo %1 é desconsiderado em prol de outro arquivo com mesmo nome no path. Para depurar a função, mude para o diretório %2.</translation>
+        <translation>Existe um arquivo com o mesmo nome %1 no caminho de pesquisa. Para depurar a função que você está editando, é preciso mudar para o diretório %2.</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Change Directory or Add Directory to Load Path</source>
-        <translation>Alterar diretório ou adicionar ao path</translation>
+        <translation>Mudar para Diretório ou Adicionar Diretório ao Caminho de Pesquisa</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Change Directory</source>
-        <translation>Alterar Diretório</translation>
+        <translation>Mudar para Diretório</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Add Directory to Load Path</source>
-        <translation>Adicionar diretório ao path</translation>
+        <translation>Adicionar diretório ao caminho de pesquisa</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -1217,17 +1338,17 @@
     <message>
         <location line="+97"/>
         <source>Octave logo only</source>
-        <translation>Apenas logotipo Octave</translation>
+        <translation>Apenas logotipo do Octave</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Letter icons</source>
-        <translation>Ícones de letra</translation>
+        <translation>Ícones de texto</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Graphic icons</source>
-        <translation>Ícones de gráficos</translation>
+        <translation>Ícones gráficos</translation>
     </message>
     <message>
         <location line="+39"/>
@@ -1237,12 +1358,12 @@
     <message>
         <location line="+16"/>
         <source>Show white space</source>
-        <translation>Mostrar espaço em branco</translation>
+        <translation>Exibir espaço em branco</translation>
     </message>
     <message>
         <location line="+27"/>
         <source>Do not show white spaces used for indentation</source>
-        <translation>Não mostre espaços em branco usados para identação</translation>
+        <translation>Não exibir espaços em branco usados para identação</translation>
     </message>
     <message>
         <location line="+28"/>
@@ -1252,62 +1373,67 @@
     <message>
         <location line="+120"/>
         <source>Indent width</source>
-        <translation>Tamanho de identação</translation>
+        <translation>Largura de identação</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Tab indents line</source>
-        <translation>Tab identa linha</translation>
+        <translation>Tecla Tab causa identação na linha</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Auto indentation</source>
-        <translation>Autoidentação</translation>
+        <translation>Auto-identação</translation>
     </message>
     <message>
         <location line="+20"/>
         <source>Tab width</source>
-        <translation>Tamanho de TAB</translation>
+        <translation>Largura do Tab</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show indentation guides</source>
-        <translation>Mostrar guias de identação</translation>
+        <translation>Exibir guias de identação</translation>
     </message>
     <message>
         <location line="+17"/>
         <source>Backspace unindents line</source>
-        <translation>Apagar remove identação na linha</translation>
+        <translation>Tecla Apagar remove identação na linha</translation>
     </message>
     <message>
         <location line="+84"/>
         <source>Characters before list with suggestions is displayed</source>
-        <translation>Número de caracteres para ativar lista de sugestões</translation>
+        <translation>Mínimo de caracteres para exibir lista de sugestões</translation>
     </message>
     <message>
         <location line="+71"/>
         <source>Match keywords</source>
-        <translation>Honrar palavras-chave</translation>
+        <translation>Buscar palavras-chave</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>Case sensitive</source>
-        <translation>Caixa alta/baixa</translation>
+        <translation>Sensível a maiúscula/minúscula</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>Replace word by suggested one</source>
-        <translation>Substituir palavra por outra sugerida</translation>
+        <translation>Substituir palavra por aquela sugerida</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Match words in document</source>
-        <translation>Honrar palavras no documento</translation>
+        <translation>Buscar palavras no documento</translation>
     </message>
     <message>
         <location line="+61"/>
         <source>Restore editor tabs from previous session on startup</source>
-        <translation>Reabrir abas da sessão anterior durante inicialização</translation>
+        <translation>Restaurar abas de edição da sessão anterior durante inicialização</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Criar arquivos inexistentes sem perguntar</translation>
     </message>
     <message>
         <location line="+47"/>
@@ -1317,7 +1443,7 @@
     <message>
         <location line="+10"/>
         <source>Command  line (%f=file, %l=line):</source>
-        <translation>Linha de comando (%f=file, %l=line):</translation>
+        <translation>Linha de comando (%f=arquivo, %l=linha):</translation>
     </message>
     <message>
         <location line="+22"/>
@@ -1327,12 +1453,12 @@
     <message>
         <location line="+24"/>
         <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Select font, font size (as difference to the default size), font decoration (bold, italic, underline), textcolor and background color (for the latter, the color pink (255,0,255) is a placeholder for the default background color)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</source>
-        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Selecionar fonte, tamanho de fonte (como diferença para o tamanho padrão), decoração de fonte (negrito, itálico, sublinhado), cor de texto e cor de fundo de tela (para o último, a cor rosa (255,0,255) é sinônimo da cor de fundo padrão)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</translation>
+        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Selecionar fonte, tamanho de fonte (na forma de diferença com relação a tamanho padrão), decoração da fonte (negrito, itálico, sublinhado), cor do texto e cor de fundo de tela (para o último, a cor rosa (255,0,255) é sinônimo da cor de fundo padrão)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
         <location line="+76"/>
         <source>Use Foreground Color</source>
-        <translation>Usar Cor do Plano de Frente</translation>
+        <translation>Usar Cor do Primeiro Plano</translation>
     </message>
     <message>
         <location line="+32"/>
@@ -1345,27 +1471,27 @@
         <translation>Fonte</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
-        <translation>Mostra número das linhas</translation>
+        <translation>Exibir número de linha</translation>
     </message>
     <message>
         <location line="+27"/>
         <source>Highlight current line</source>
-        <translation>Enfatizar linha corrente</translation>
+        <translation>Enfatizar linha atual</translation>
     </message>
     <message>
         <location line="+262"/>
         <source>Code completion</source>
-        <translation>Completação de código</translation>
+        <translation>Sguestões para copletar código</translation>
     </message>
     <message>
         <location line="-282"/>
         <source>Show complete path in window title</source>
-        <translation>Mostrar caminho completo no título da janela</translation>
+        <translation>Exibir caminho completo no título da janela</translation>
     </message>
     <message>
-        <location line="+548"/>
+        <location line="+561"/>
         <source>emacs</source>
         <translation>emacs</translation>
     </message>
@@ -1377,12 +1503,12 @@
     <message>
         <location line="+15"/>
         <source>Cursor type:</source>
-        <translation>Tipo do Cursor:</translation>
+        <translation>Tipo do Indicador:</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Cursor blinking</source>
-        <translation>Cursor piscando</translation>
+        <translation>Indicador piscante</translation>
     </message>
     <message>
         <location line="+101"/>
@@ -1397,22 +1523,22 @@
     <message>
         <location line="+6"/>
         <source>Show file size</source>
-        <translation>Mostrar tamanho do arquivo</translation>
+        <translation>Exibir tamanho do arquivo</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show file type</source>
-        <translation>Mostrar tipo do arquivo</translation>
+        <translation>Exibir tipo do arquivo</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show date of last modification</source>
-        <translation>Mostrar data de última modificação</translation>
+        <translation>Exibir data de última modificação</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show hidden files</source>
-        <translation>Mostrar arquivos ocultos</translation>
+        <translation>Exibir arquivos ocultos</translation>
     </message>
     <message>
         <location line="+7"/>
@@ -1422,7 +1548,7 @@
     <message>
         <location line="+7"/>
         <source>Alternating row colors</source>
-        <translation>Alternar cores das linhas</translation>
+        <translation>Cores de linhas alternantes</translation>
     </message>
     <message>
         <location line="+21"/>
@@ -1432,7 +1558,7 @@
     <message>
         <location line="+30"/>
         <source>Storage Class Colors</source>
-        <translation>Armazenar cores de classes</translation>
+        <translation>Cores das Classes de Armazenamento</translation>
     </message>
     <message>
         <location line="+35"/>
@@ -1452,32 +1578,32 @@
     <message>
         <location line="-33"/>
         <source>HttpProxy</source>
-        <translation>HttpProxy</translation>
+        <translation>Proxy HTTP</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
-        <translation>Conjunto de ícones para widgets</translation>
+        <translation>Conjunto de ícones para paineis</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Language (requires restart)</source>
-        <translation>Linguagem (requer reinicialização)</translation>
+        <translation>Idioma (reinicialização do Octave necessária)</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Icon size</source>
-        <translation>Tamanho de Ícone</translation>
+        <translation>Tamanho do Ícone</translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
-        <translation>Socks5Proxy</translation>
+        <translation>Proxy Socks 5</translation>
     </message>
     <message>
         <location line="-16"/>
         <source>Hostname:</source>
-        <translation>Hostname:</translation>
+        <translation>Nome do servidor:</translation>
     </message>
     <message>
         <location line="+54"/>
@@ -1487,7 +1613,7 @@
     <message>
         <location line="-27"/>
         <source>Username:</source>
-        <translation>Nome do usuário:</translation>
+        <translation>Nome de usuário:</translation>
     </message>
     <message>
         <location line="+37"/>
@@ -1495,31 +1621,31 @@
         <translation>Senha:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation>Configuração do sistema</translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
-        <translation type="unfinished"></translation>
+        <translation>Indicador IBeam</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Block Cursor</source>
-        <translation type="unfinished"></translation>
+        <translation>Indicador em Bloco</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Underline Cursor</source>
-        <translation type="unfinished"></translation>
+        <translation>Indicador Sublinhado</translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
-        <translation>Diferença do tamanho padrão</translation>
+        <translation>Diferença com relação ao tamanho de fonto padrão</translation>
     </message>
     <message>
         <location line="+6"/>
@@ -1553,9 +1679,9 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
-        <translation>Digite aqui e pressione &apos;Enter&apos; para procurar</translation>
+        <translation>Digite aqui e pressione &apos;Enter&apos; para buscar</translation>
     </message>
     <message>
         <location line="+4"/>
@@ -1566,38 +1692,54 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation>Bem-vindo ao GNU Octave</translation>
     </message>
     <message>
-        <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
-&lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
-&lt;/ul&gt;
-&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="-27"/>
+        <location line="+14"/>
         <source>Welcome to Octave!</source>
         <translation>Bem-vindo ao Octave!</translation>
     </message>
     <message>
-        <location line="+74"/>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation>Parece que você está usando a interface gráfica do Octave pela primeira vez neste computador. Clique &apos;Finalizar&apos; para gravar um arquivo de configuração e iniciar a interface do Octave.</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>O arquivo de configuração é armazenado em %1. Se o arquivo existir, você não verá esta caixa de diálogo quando o Octave reiniciar.</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Para mais informações sobre o Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visite &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Veja a documentação na Internet em &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Abra a documentação do Octave no menu de ajuda&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</translation>
+    </message>
+    <message>
+        <location line="+20"/>
         <source>Finish</source>
         <translation>Finalizar</translation>
     </message>
@@ -1632,7 +1774,7 @@
     <message>
         <location line="+107"/>
         <source>Right click to copy, rename, or display</source>
-        <translation>Clique com botão direito para copiar, renomear ou mostrar</translation>
+        <translation>Clique com botão direito para copiar, renomear ou exibir</translation>
     </message>
 </context>
 <context>
@@ -1645,7 +1787,7 @@
     <message>
         <location line="+1"/>
         <source>View the variables in the active workspace.</source>
-        <translation>Visualizar variáveis no ambiente de trabalho.</translation>
+        <translation>Visualizar variáveis no ambiente de trabalho ativo.</translation>
     </message>
     <message>
         <location line="+75"/>
@@ -1660,12 +1802,12 @@
     <message>
         <location line="+8"/>
         <source>Only top-level symbols may be renamed.</source>
-        <translation>Somente símbolos do nível de topo podem ser renomeados.</translation>
+        <translation>Somente símbolos do nível mais alto podem ser renomeados.</translation>
     </message>
     <message>
         <location line="+125"/>
         <source>View the variables in the active workspace.&lt;br&gt;</source>
-        <translation>Veja as variáveis no ambiente de trabalho ativo.&lt;br&gt;</translation>
+        <translation>Visualizar as variáveis no ambiente de trabalho ativo.&lt;br&gt;</translation>
     </message>
     <message>
         <location line="+1"/>
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgui/languages/pt_PT.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -0,0 +1,1824 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE TS>
+<TS version="2.0" language="pt_PT" sourcelanguage="pt_BR">
+<context>
+    <name>ListDialog</name>
+    <message>
+        <location filename="../src/dialog.cc" line="+250"/>
+        <source>Select All</source>
+        <translation>Seleccionar Tudo</translation>
+    </message>
+</context>
+<context>
+    <name>QObject</name>
+    <message>
+        <location filename="../src/workspace-model.cc" line="+75"/>
+        <source>automatic</source>
+        <translation>automático(a)</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>function</source>
+        <translation>função</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>global</source>
+        <translation>global</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>hidden</source>
+        <translation>oculto(a)</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>inherited</source>
+        <translation>herdada</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>persistent</source>
+        <translation>persistente</translation>
+    </message>
+    <message>
+        <location filename="../qterminal/libqterminal/QTerminal.cc" line="+64"/>
+        <source>foreground</source>
+        <translation>primeiro plano</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>background</source>
+        <translation>fundo</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>selection</source>
+        <translation>selecçao</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>cursor</source>
+        <translation>indicador</translation>
+    </message>
+</context>
+<context>
+    <name>QTerminal</name>
+    <message>
+        <location filename="../qterminal/libqterminal/QTerminal.h" line="+116"/>
+        <source>Copy</source>
+        <translation>Copiar</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Paste</source>
+        <translation>Colar</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Clear All</source>
+        <translation>Limpar Tudo</translation>
+    </message>
+</context>
+<context>
+    <name>QWinTerminalImpl</name>
+    <message>
+        <location filename="../qterminal/libqterminal/win32/QWinTerminalImpl.cpp" line="+1527"/>
+        <source>copied selection to clipboard</source>
+        <translation>selecçao copiada para a área de transferência</translation>
+    </message>
+</context>
+<context>
+    <name>documentation_dock_widget</name>
+    <message>
+        <location filename="../src/documentation-dock-widget.cc" line="+34"/>
+        <source>Documentation</source>
+        <translation>Documentação</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>See the documentation for help.</source>
+        <translation>Veja a documentação para ajuda.</translation>
+    </message>
+</context>
+<context>
+    <name>file_editor</name>
+    <message>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
+        <location line="+28"/>
+        <source>Octave Editor</source>
+        <translation>Editor do Octave</translation>
+    </message>
+    <message>
+        <location line="-249"/>
+        <source>Octave Files (*.m);;All Files (*)</source>
+        <translation>Scripts de Octave (*.m);;Todos os Ficheiros (*)</translation>
+    </message>
+    <message>
+        <location line="+222"/>
+        <source>File not saved! A file with the selected name
+%1
+is already open in the editor</source>
+        <translation>Ficheiro não foi gravado! Um ficheiro com o nome selecionado
+%1
+já está aberto no editor</translation>
+    </message>
+    <message>
+        <location line="+28"/>
+        <source>The associated file editor tab has disappeared.  It was likely closed by some means.</source>
+        <translation>A aba do editor associada ao ficheiro desapareceu. Foi provavelmente fechada de alguma maneira.</translation>
+    </message>
+    <message>
+        <location line="+228"/>
+        <source>&amp;%1 %2</source>
+        <translation>&amp;%1 %2</translation>
+    </message>
+    <message>
+        <location line="+173"/>
+        <source>&amp;New File</source>
+        <translation>&amp;Novo Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Open File</source>
+        <translation>&amp;Abrir Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Save File</source>
+        <translation>&amp;Guardar Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Save File &amp;As</source>
+        <translation>Guardar Ficheiro &amp;Como</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Print</source>
+        <translation>Imprimir</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Undo</source>
+        <translation>&amp;Desfazer</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Redo</source>
+        <translation>&amp;Refazer</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Copy</source>
+        <translation>&amp;Copiar</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Cu&amp;t</source>
+        <translation>Cor&amp;tar</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Paste</source>
+        <translation>Colar</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Next Bookmark</source>
+        <translation>&amp;Próximo Marcador</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Pre&amp;vious Bookmark</source>
+        <translation>Marcardor &amp;Anterior</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Toggle &amp;Bookmark</source>
+        <translation>Habilitar/desabilitar &amp;Marcador</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Remove All Bookmarks</source>
+        <translation>&amp;Remover Todos os Marcadores</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>&amp;Next breakpoint</source>
+        <translation>Ponto de interrupção &amp;seguinte</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Pre&amp;vious breakpoint</source>
+        <translation>Ponto de interrupção &amp;anterior</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Toggle &amp;breakpoint</source>
+        <translation>Habilitar/desabilitar ponto de &amp;interrupção</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Remove All breakpoints</source>
+        <translation>&amp;Remover Todos os Pontos de interrupção</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Comment</source>
+        <translation>&amp;Comentar</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Uncomment</source>
+        <translation>&amp;Descomentar</translation>
+    </message>
+    <message>
+        <location line="+63"/>
+        <source>&amp;Recent Editor Files</source>
+        <translation>Ficheiros &amp;recentes</translation>
+    </message>
+    <message>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>&amp;Editar Função</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>&amp;Close</source>
+        <translation>&amp;Fechar</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Close All</source>
+        <translation>Fechar Todos</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Close Other Files</source>
+        <translation>Fechar os Outros Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation>Executar &amp;Selecção</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Ajuda</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>&amp;Ajuda da Palavra-chave</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>&amp;Documentação da Palavra-chave</translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation>&amp;Buscar e Substituir</translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Não foi possível abrir o ficheiro
+%1
+para leitura: %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>O ficheiro
+%1
+não existe. Deseja criá-lo?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Não foi possível abrir o ficheiro
+%1
+para escrita: %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
+        <source>Save File And Run</source>
+        <translation>Guardar Ficheiro e Executar</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Go&amp;to Line</source>
+        <translation>Ir para &amp;Linha</translation>
+    </message>
+    <message>
+        <location line="+53"/>
+        <source>&amp;File</source>
+        <translation>&amp;Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+39"/>
+        <source>&amp;Edit</source>
+        <translation>&amp;Editar</translation>
+    </message>
+    <message>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Preferências</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Preferências de &amp;Estilo</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Debug</source>
+        <translation>&amp;Depurar</translation>
+    </message>
+    <message>
+        <location line="+9"/>
+        <source>&amp;Run</source>
+        <translation>&amp;Executar</translation>
+    </message>
+</context>
+<context>
+    <name>file_editor_tab</name>
+    <message>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
+        <source>Goto line</source>
+        <translation>Ir para linha</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Line number</source>
+        <translation>Número da linha</translation>
+    </message>
+    <message>
+        <location line="+70"/>
+        <source>&lt;unnamed&gt;</source>
+        <translation>&lt;sem_nome&gt;</translation>
+    </message>
+    <message>
+        <location line="+40"/>
+        <source>Do you want to save or discard the changes?</source>
+        <translation>Você deseja guardar ou descartar as alterações?</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Do you want to cancel closing, save or discard the changes?</source>
+        <translation>Você deseja cancelar o fecho, guardar, ou descartar as alterações?</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <location line="+129"/>
+        <location line="+115"/>
+        <location line="+66"/>
+        <location line="+22"/>
+        <source>Octave Editor</source>
+        <translation>Editor do Octave</translation>
+    </message>
+    <message>
+        <location line="-331"/>
+        <source>The file
+%1
+is about to be closed but has been modified.
+%2</source>
+        <translation>O ficheiro
+%1
+está prestes a ser fechado mas foi modificado.
+%2</translation>
+    </message>
+    <message>
+        <location line="+210"/>
+        <source>Octave Files (*.m);;All Files (*)</source>
+        <translation>Ficheiros de Octave (*.m);; Todos os Ficheiros (*)</translation>
+    </message>
+    <message>
+        <location line="+34"/>
+        <source>File not saved! The selected file name
+%1
+is the same as the current file name</source>
+        <translation>O ficheiro não foi guardado! O nome seleccionado
+%1
+é o mesmo do que o ficheiro actual</translation>
+    </message>
+    <message>
+        <location line="+81"/>
+        <source>
+
+Warning: The contents in the editor is modified!</source>
+        <translation>
+
+Aviso: O conteúdo no editor foi modificado!</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>It seems that the file
+%1
+has been deleted or renamed. Do you want to save it now?%2</source>
+        <translation>Parece que o ficheiro
+%1
+foi removido ou renomeado. Pretende guardá-lo agora?%2</translation>
+    </message>
+    <message>
+        <location line="-203"/>
+        <source>Could not open file %1 for write:
+%2.</source>
+        <translation>Não foi possível abrir o ficheiro %1 para escrita:
+%2.</translation>
+    </message>
+    <message>
+        <location line="+181"/>
+        <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
+        <translation>Parece que o ficheiro &apos;%1&apos; foi modificado por outro aplicativo. Deseja recarregá-lo?</translation>
+    </message>
+</context>
+<context>
+    <name>files_dock_widget</name>
+    <message>
+        <location filename="../src/files-dock-widget.cc" line="+67"/>
+        <source>File Browser</source>
+        <translation>Navegador de Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Browse your files.</source>
+        <translation>Navegue pelos seus ficheiros.</translation>
+    </message>
+    <message>
+        <location line="+18"/>
+        <source>Enter the path or filename</source>
+        <translation>Introduza o caminho ou nome do ficheiro</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Move up one directory</source>
+        <translation>Subir um nível de directório</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Show octave directory</source>
+        <translation>Mostrar o directório actual do Octave</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Goto current octave directory</source>
+        <translation>Ir para o directório actual do Octave</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Set octave directory</source>
+        <translation>Definir o directório actual do Octave</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Set octave directroy to current browser directory</source>
+        <translation>Definir o directório actual do Octave para o directório actual do navegador</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Actions on current directory</source>
+        <translation>Acções no directório actual</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Show Home directory</source>
+        <translation>Mostrar directório pessoal</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Search directory</source>
+        <translation>Procurar no directório</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <location line="+244"/>
+        <source>Find Files ...</source>
+        <translation>Procurar Ficheiros...</translation>
+    </message>
+    <message>
+        <location line="-240"/>
+        <location line="+252"/>
+        <source>New File</source>
+        <translation>Novo Ficheiro</translation>
+    </message>
+    <message>
+        <location line="-249"/>
+        <location line="+252"/>
+        <source>New Directory</source>
+        <translation>Novo Directório</translation>
+    </message>
+    <message>
+        <location line="-223"/>
+        <source>Doubleclick a file to open it</source>
+        <translation>Clique duas vezes num ficheiro para abri-lo</translation>
+    </message>
+    <message>
+        <location line="+185"/>
+        <source>Open</source>
+        <translation>Abrir</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Open in Default Application</source>
+        <translation>Abrir no Aplicativo Padrão</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Copy Selection to Clipboard</source>
+        <translation>Copiar Selecção para Área de Transferência</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Run</source>
+        <translation>Executar</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Load Data</source>
+        <translation>Carregar Dados</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Set Current Directory</source>
+        <translation>Definir Directório Actual</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Rename</source>
+        <translation>Renomear</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Delete</source>
+        <translation>Excluir</translation>
+    </message>
+    <message>
+        <location line="+107"/>
+        <source>Rename file/directory</source>
+        <translation>Renomear ficheiro/directório</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Rename file/directory:
+</source>
+        <translation>Renomear ficheiro/directório:
+</translation>
+    </message>
+    <message>
+        <location line="+0"/>
+        <source>
+ to: </source>
+        <translation>
+ para:</translation>
+    </message>
+    <message>
+        <location line="+25"/>
+        <location line="+11"/>
+        <source>Delete file/directory</source>
+        <translation>Remover ficheiro/directório</translation>
+    </message>
+    <message>
+        <location line="-10"/>
+        <source>Are you sure you want to delete
+</source>
+        <translation>Tem a certeza que deseja remover
+</translation>
+    </message>
+    <message>
+        <location line="+11"/>
+        <source>Can not delete a directory that is not empty</source>
+        <translation>Não é possível remover um directório que não está vazio</translation>
+    </message>
+    <message>
+        <location line="+131"/>
+        <source>Set directory of file browser</source>
+        <translation>Definir directório do navegador de ficheiros</translation>
+    </message>
+    <message>
+        <location line="+28"/>
+        <source>Create File</source>
+        <translation>Criar Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+0"/>
+        <source>Create file in
+</source>
+        <translation>Criar ficheiro em
+</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Create Directory</source>
+        <translation>Criar Directório</translation>
+    </message>
+    <message>
+        <location line="+0"/>
+        <source>Create folder in
+</source>
+        <translation>Criar directório em
+</translation>
+    </message>
+</context>
+<context>
+    <name>find_dialog</name>
+    <message>
+        <location filename="../src/m-editor/find-dialog.cc" line="+77"/>
+        <source>Find &amp;what:</source>
+        <translation>Procurar por:</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Re&amp;place with:</source>
+        <translation>&amp;Substituir por:</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Match &amp;case</source>
+        <translation>Equivaler capitalização</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Search from &amp;start</source>
+        <translation>Procurar a partir do início</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>&amp;Wrap while searching</source>
+        <translation>Dar a volta durante a procura</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Find Next</source>
+        <translation>Buscar &amp;Próximo</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Find &amp;Previous</source>
+        <translation>Buscar &amp;Anterior</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>&amp;Replace</source>
+        <translation>&amp;Substituir</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Replace &amp;All</source>
+        <translation>Substituir &amp;Todos(as)</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;More</source>
+        <translation>&amp;Mais</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>&amp;Whole words</source>
+        <translation>Palavras inteiras</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Regular E&amp;xpressions</source>
+        <translation>Expressões &amp;Regulares</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Search &amp;backward</source>
+        <translation>Procurar para trás</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Search se&amp;lection</source>
+        <translation>Procurar dentro da selecção</translation>
+    </message>
+    <message>
+        <location line="+71"/>
+        <source>Search from end</source>
+        <translation>Procurar a partir do fim</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Search from start</source>
+        <translation>Procurar a partir do início</translation>
+    </message>
+    <message>
+        <location line="+117"/>
+        <source>Replace Result</source>
+        <translation>Substituir Resultado</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>%1 items replaced</source>
+        <translation>%1 itens substituidos</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Find Result</source>
+        <translation>Buscar Resultado</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>No more matches found</source>
+        <translation>Não foi encontrado mais nenhum resultado</translation>
+    </message>
+</context>
+<context>
+    <name>find_files_dialog</name>
+    <message>
+        <location filename="../src/find-files-dialog.cc" line="+47"/>
+        <source>Find Files</source>
+        <translation>Procurar Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Named:</source>
+        <translation>Chamados:</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Enter the filename expression</source>
+        <translation>Introduza a expressão para o nome do ficheiro</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Start in:</source>
+        <translation>Iniciar em:</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Enter the start directory</source>
+        <translation>Introduzir o directório inicial</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Browse...</source>
+        <translation>Navegar...</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Browse for start directory</source>
+        <translation>Navegar por directório inicial</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Recurse directories</source>
+        <translation>Entrar em sub-directórios</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Search recursively through directories for matching files</source>
+        <translation>Procurar recursivamente pelos directórios por ficheiros correspondentes</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Include directories</source>
+        <translation>Incluir directórios</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Include matching directories in search results</source>
+        <translation>Incluir directórios correspondentes nos resultado da pesquisa</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Name case insensitive</source>
+        <translation>Insensível à capitalização</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Set matching name is case insensitive</source>
+        <translation>Definir se o nome é insensível à capitalização</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Contains text:</source>
+        <translation>Contém texto:</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Search must match text</source>
+        <translation>Pesquisa precisa corresponder ao texto</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Text to match</source>
+        <translation>Texto para corresponder</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Text case insensitive</source>
+        <translation>Texto insensível à capitalização</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Set text content is case insensitive</source>
+        <translation>Definir se o texto é insensível à capitalização</translation>
+    </message>
+    <message>
+        <location line="+11"/>
+        <source>Search results</source>
+        <translation>Resultados de pesquisa</translation>
+    </message>
+    <message>
+        <location line="+14"/>
+        <source>Idle.</source>
+        <translation>Parado.</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Find</source>
+        <translation>Buscar</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Start search for matching files</source>
+        <translation>Iniciar procura por ficheiros correspondentes</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Stop</source>
+        <translation>Parar</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Stop searching</source>
+        <translation>Parar procura</translation>
+    </message>
+    <message>
+        <location line="+15"/>
+        <source>File name/location</source>
+        <translation>Nome/localização do ficheiro</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>File contents</source>
+        <translation>Conteúdo do ficheiro</translation>
+    </message>
+    <message>
+        <location line="+99"/>
+        <source>Searching...</source>
+        <translation>Procurando...</translation>
+    </message>
+    <message>
+        <location line="+32"/>
+        <source>Set search directory</source>
+        <translation>Definir directório de procura</translation>
+    </message>
+</context>
+<context>
+    <name>find_files_model</name>
+    <message>
+        <location filename="../src/find-files-model.cc" line="+76"/>
+        <source>Filename</source>
+        <translation>Nome do Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Directory</source>
+        <translation>Directório</translation>
+    </message>
+</context>
+<context>
+    <name>history_dock_widget</name>
+    <message>
+        <location filename="../src/history-dock-widget.cc" line="+43"/>
+        <source>Browse and search the command history.</source>
+        <translation>Navegar e procurar no histórico de comandos.</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>Doubleclick a command to transfer it to the terminal.</source>
+        <translation>Clique duas vezes num comando para transferí-lo para o terminal.</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Enter text to filter the command history.</source>
+        <translation>Introduza texto para filtrar o histórico de comandos.</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Command History</source>
+        <translation>Histórico de Comandos</translation>
+    </message>
+    <message>
+        <location line="+20"/>
+        <source>Copy</source>
+        <translation>Copiar</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Evaluate</source>
+        <translation>Avaliar</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Create script</source>
+        <translation>Criar script</translation>
+    </message>
+</context>
+<context>
+    <name>main_window</name>
+    <message>
+        <location filename="../src/main-window.cc" line="+163"/>
+        <source>Load Workspace</source>
+        <translation>Carregar ambiente de trabalho</translation>
+    </message>
+    <message>
+        <location line="+435"/>
+        <location line="+847"/>
+        <source>About Octave</source>
+        <translation>Sobre o Octave</translation>
+    </message>
+    <message>
+        <location line="-369"/>
+        <source>&amp;File</source>
+        <translation>Ficheiro</translation>
+    </message>
+    <message>
+        <location line="+54"/>
+        <source>New</source>
+        <translation>Novo</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Script</source>
+        <translation>Script</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Function</source>
+        <translation>Função</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Figure</source>
+        <translation>Figura</translation>
+    </message>
+    <message>
+        <location line="-58"/>
+        <source>Open...</source>
+        <translation>Abrir...</translation>
+    </message>
+    <message>
+        <location line="+20"/>
+        <source>Preferences...</source>
+        <translation>Preferências...</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Exit</source>
+        <translation>Sair</translation>
+    </message>
+    <message>
+        <location line="+52"/>
+        <source>&amp;Edit</source>
+        <translation>&amp;Editar</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Undo</source>
+        <translation>Desfazer</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Copy</source>
+        <translation>Copiar</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Paste</source>
+        <translation>Colar</translation>
+    </message>
+    <message>
+        <location line="-1026"/>
+        <location line="+946"/>
+        <source>Save Workspace As</source>
+        <translation>Guardar Ambiente de Trabalho como</translation>
+    </message>
+    <message>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation>O ficheiro de notas da versão &apos;%1&apos; está vazio.</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation>O ficheiro de notas da versão &apos;%1&apos; não pode ser lido.</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation>Notas da Versão do Octave</translation>
+    </message>
+    <message>
+        <location line="+157"/>
+        <source>Set working directory</source>
+        <translation>Definir directório de trabalho</translation>
+    </message>
+    <message>
+        <location line="+736"/>
+        <source>Clear Clipboard</source>
+        <translation>Limpar Área de Transferência</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Find Files...</source>
+        <translation>Encontrar Ficheiros...</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Clear Command Window</source>
+        <translation>Limpar Janela de Comandos</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Clear Command History</source>
+        <translation>Limpar Histórico de Comandos</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Clear Workspace</source>
+        <translation>Limpar Ambiente de Trabalho</translation>
+    </message>
+    <message>
+        <location line="+40"/>
+        <source>De&amp;bug</source>
+        <translation>De&amp;purar</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Step</source>
+        <translation>Passo-a-passo</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Step in</source>
+        <translation>Passo adentro</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Step out</source>
+        <translation>Passo a fora</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Continue</source>
+        <translation>Continuar</translation>
+    </message>
+    <message>
+        <location line="+8"/>
+        <source>Exit Debug Mode</source>
+        <translation>Sair do Modo de Depuração</translation>
+    </message>
+    <message>
+        <location line="+48"/>
+        <source>Show File Browser</source>
+        <translation>Mostrar Navegador de Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Exibir Janela de Novidades</translation>
+    </message>
+    <message>
+        <location line="+11"/>
+        <source>File Browser</source>
+        <translation>Navegador de Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Novidades</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>Reset Default Window Layout</source>
+        <translation>Restaurar Disposição de Janelas Padrão</translation>
+    </message>
+    <message>
+        <location line="+86"/>
+        <source>Octave Packages</source>
+        <translation>Pacotes do Octave</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Share Code</source>
+        <translation>Partilhar Código</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Contribute to Octave</source>
+        <translation>Contribuir para o Octave</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Octave Developer Resources</source>
+        <translation>Recursos para Programadores do Octave</translation>
+    </message>
+    <message>
+        <location line="+32"/>
+        <source>On Disk</source>
+        <translation>No Disco</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Online</source>
+        <translation>Na Internet</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Novidades</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation>Notas da Versão</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Novidades da Comunidade</translation>
+    </message>
+    <message>
+        <location line="+30"/>
+        <source>Enter directory name</source>
+        <translation>Introduzir nome do directório</translation>
+    </message>
+    <message>
+        <location line="+8"/>
+        <source>Current Directory: </source>
+        <translation>Directório Actual</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>One directory up</source>
+        <translation>Um nível de directório acima</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Browse directories</source>
+        <translation>Navegar directórios</translation>
+    </message>
+    <message>
+        <location line="-445"/>
+        <source>Load workspace</source>
+        <translation>Carregar ambiente de trabalho</translation>
+    </message>
+    <message>
+        <location line="+200"/>
+        <source>&amp;Window</source>
+        <translation>&amp;Janela</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Show Command Window</source>
+        <translation>Exibir Janela de Comandos</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Show Command History</source>
+        <translation>Exibir Histórico de Comandos</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Show Workspace</source>
+        <translation>Exibir Ambiente de Trabalho</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Show Editor</source>
+        <translation>Exibir Editor</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Show Documentation</source>
+        <translation>Exibir Documentação</translation>
+    </message>
+    <message>
+        <location line="+8"/>
+        <source>Command Window</source>
+        <translation>Janela de Comandos</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Command History</source>
+        <translation>Histórico de Comandos</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Workspace</source>
+        <translation>Ambiente de trabalho</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Editor</source>
+        <translation>Editor</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <location line="+132"/>
+        <source>Documentation</source>
+        <translation>Documentação</translation>
+    </message>
+    <message>
+        <location line="-48"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Ajuda</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Report Bug</source>
+        <translation>Reportar Defeito</translation>
+    </message>
+</context>
+<context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Novidades da Comunidade</translation>
+    </message>
+</context>
+<context>
+    <name>octave_dock_widget</name>
+    <message>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
+        <source>Undock widget</source>
+        <translation>Desacoplar painel</translation>
+    </message>
+    <message>
+        <location line="-149"/>
+        <source>Hide widget</source>
+        <translation>Esconder painel</translation>
+    </message>
+    <message>
+        <location line="+104"/>
+        <source>Dock widget</source>
+        <translation>Acoplar painel</translation>
+    </message>
+</context>
+<context>
+    <name>octave_qscintilla</name>
+    <message>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation>Ajuda sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation>Documentação sobre</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Editar</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
+        <translation>&amp;Executar Selecção</translation>
+    </message>
+</context>
+<context>
+    <name>octave_qt_link</name>
+    <message>
+        <location filename="../src/octave-qt-link.cc" line="+270"/>
+        <source>The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.</source>
+        <translation>O ficheiro %1 não existe no caminho de pesquisa. Para depurar a função que está a ser editada, é preciso mudar para o directório %2 ou adicionar esse directório ao caminho de pesquisa.</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>The file %1 is shadowed by a file with the same name in the load path.  To debug the function you are editing, change to the directory %2.</source>
+        <translation>O ficheiro %1 é ignorado a favor de outro ficheiro no caminho de pesquisa com o mesmo nome. Para depurar a função, é preciso mudar para o directório %2.</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Change Directory or Add Directory to Load Path</source>
+        <translation>Alterar directório ou adicionar ao caminho de pesquisa</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Change Directory</source>
+        <translation>Alterar Directório</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Add Directory to Load Path</source>
+        <translation>Adicionar directório ao caminho de pesquisa</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Cancel</source>
+        <translation>Cancelar</translation>
+    </message>
+</context>
+<context>
+    <name>settings_dialog</name>
+    <message>
+        <location filename="../src/settings-dialog.ui" line="+29"/>
+        <source>Settings</source>
+        <translation>Configurações</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>General</source>
+        <translation>Geral</translation>
+    </message>
+    <message>
+        <location line="+97"/>
+        <source>Octave logo only</source>
+        <translation>Apenas logotipo do Octave</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Letter icons</source>
+        <translation>Ícones de letras</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Graphic icons</source>
+        <translation>Ícones gráficos</translation>
+    </message>
+    <message>
+        <location line="+39"/>
+        <source>Editor</source>
+        <translation>Editor</translation>
+    </message>
+    <message>
+        <location line="+16"/>
+        <source>Show white space</source>
+        <translation>Mostrar espaços em branco</translation>
+    </message>
+    <message>
+        <location line="+27"/>
+        <source>Do not show white spaces used for indentation</source>
+        <translation>Não mostrar espaços em branco usados para identação</translation>
+    </message>
+    <message>
+        <location line="+28"/>
+        <source>Color</source>
+        <translation>Cor</translation>
+    </message>
+    <message>
+        <location line="+120"/>
+        <source>Indent width</source>
+        <translation>Largura da identação</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Tab indents line</source>
+        <translation>Tabulador identa linha</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Auto indentation</source>
+        <translation>Auto-identação</translation>
+    </message>
+    <message>
+        <location line="+20"/>
+        <source>Tab width</source>
+        <translation>Largura do tabulador</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Show indentation guides</source>
+        <translation>Exibir guias de identação</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Backspace unindents line</source>
+        <translation>Tecla Apagar remove identação na linha</translation>
+    </message>
+    <message>
+        <location line="+84"/>
+        <source>Characters before list with suggestions is displayed</source>
+        <translation>Número de caracteres para activar lista de sugestões</translation>
+    </message>
+    <message>
+        <location line="+71"/>
+        <source>Match keywords</source>
+        <translation>Buscar palavras-chave</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Case sensitive</source>
+        <translation>Sensível à capitalização</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Replace word by suggested one</source>
+        <translation>Substituir palavra pela sugerida</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>Match words in document</source>
+        <translation>Buscar palavras no documento</translation>
+    </message>
+    <message>
+        <location line="+61"/>
+        <source>Restore editor tabs from previous session on startup</source>
+        <translation>Restaurar abas de edição da sessão anterior durante inicialização</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation>Criar ficheiros inexistentes sem perguntar</translation>
+    </message>
+    <message>
+        <location line="+47"/>
+        <source>Use custom file editor</source>
+        <translation>Usar editor de texto externo</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Command  line (%f=file, %l=line):</source>
+        <translation>Linha de comando (%f=arquivo, %l=linha):</translation>
+    </message>
+    <message>
+        <location line="+22"/>
+        <source>Editor Styles</source>
+        <translation>Estilos do Editor</translation>
+    </message>
+    <message>
+        <location line="+24"/>
+        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Select font, font size (as difference to the default size), font decoration (bold, italic, underline), textcolor and background color (for the latter, the color pink (255,0,255) is a placeholder for the default background color)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</source>
+        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Seleccionar tipo de letra, tamanho (como diferença para o tamanho padrão), decoração (negrito, itálico, sublinhado), cor do texto e cor do fundo de tela (para o último, a cor rosa (255,0,255) é sinônimo da cor de fundo padrão)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</translation>
+    </message>
+    <message>
+        <location line="+76"/>
+        <source>Use Foreground Color</source>
+        <translation>Usar Cor do Primeiro Plano</translation>
+    </message>
+    <message>
+        <location line="+32"/>
+        <source>Terminal Colors</source>
+        <translation>Cores do Terminal</translation>
+    </message>
+    <message>
+        <location line="+45"/>
+        <source>Font</source>
+        <translation>Tipo de Letra</translation>
+    </message>
+    <message>
+        <location line="-757"/>
+        <source>Show line numbers</source>
+        <translation>Exibir número de linha</translation>
+    </message>
+    <message>
+        <location line="+27"/>
+        <source>Highlight current line</source>
+        <translation>Enfatizar linha actual</translation>
+    </message>
+    <message>
+        <location line="+262"/>
+        <source>Code completion</source>
+        <translation>Sguestões para copletar código</translation>
+    </message>
+    <message>
+        <location line="-282"/>
+        <source>Show complete path in window title</source>
+        <translation>Exibir caminho completo no título da janela</translation>
+    </message>
+    <message>
+        <location line="+561"/>
+        <source>emacs</source>
+        <translation>emacs</translation>
+    </message>
+    <message>
+        <location line="+67"/>
+        <source>Terminal</source>
+        <translation>Terminal</translation>
+    </message>
+    <message>
+        <location line="+15"/>
+        <source>Cursor type:</source>
+        <translation>Tipo de Cursor:</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>Cursor blinking</source>
+        <translation>Indicador piscante</translation>
+    </message>
+    <message>
+        <location line="+101"/>
+        <source>Font size</source>
+        <translation>Tamanho da letra</translation>
+    </message>
+    <message>
+        <location line="+35"/>
+        <source>File Browser</source>
+        <translation>Navegador de Ficheiros</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Show file size</source>
+        <translation>Mostrar tamanho do ficheiro</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Show file type</source>
+        <translation>Mostrar tipo de ficheiro</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Show date of last modification</source>
+        <translation>Mostrar data da última modificação</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Show hidden files</source>
+        <translation>Mostrar ficheiros escondidos</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Synchronize octave directory with the file browser</source>
+        <translation>Sincronizar directório do Octave com directório do navegador de ficheiros</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Alternating row colors</source>
+        <translation>Cores de linhas alternantes</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>Workspace</source>
+        <translation>Ambiente de trabalho</translation>
+    </message>
+    <message>
+        <location line="+30"/>
+        <source>Storage Class Colors</source>
+        <translation>Cores das Classes de Armazenamento</translation>
+    </message>
+    <message>
+        <location line="+35"/>
+        <source>Network</source>
+        <translation>Rede</translation>
+    </message>
+    <message>
+        <location line="+45"/>
+        <source>Use proxy server</source>
+        <translation>Usar servidor proxy</translation>
+    </message>
+    <message>
+        <location line="+10"/>
+        <source>Proxy Type:</source>
+        <translation>Tipo de Proxy:</translation>
+    </message>
+    <message>
+        <location line="-33"/>
+        <source>HttpProxy</source>
+        <translation>Proxy HTTP</translation>
+    </message>
+    <message>
+        <location line="-1120"/>
+        <source>Icon set for dock widgets</source>
+        <translation>Conjunto de ícones para paineis</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Language (requires restart)</source>
+        <translation>Idioma (reinicialização do Octave necessária)</translation>
+    </message>
+    <message>
+        <location line="+7"/>
+        <source>Icon size</source>
+        <translation>Tamanho do Ícone</translation>
+    </message>
+    <message>
+        <location line="+1111"/>
+        <source>Socks5Proxy</source>
+        <translation>Proxy Socks 5</translation>
+    </message>
+    <message>
+        <location line="-16"/>
+        <source>Hostname:</source>
+        <translation>Nome do servidor:</translation>
+    </message>
+    <message>
+        <location line="+54"/>
+        <source>Port:</source>
+        <translation>Porta:</translation>
+    </message>
+    <message>
+        <location line="-27"/>
+        <source>Username:</source>
+        <translation>Nome do utilizador:</translation>
+    </message>
+    <message>
+        <location line="+37"/>
+        <source>Password:</source>
+        <translation>Senha:</translation>
+    </message>
+    <message>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
+        <location line="+4"/>
+        <location line="+346"/>
+        <source>System setting</source>
+        <translation>Configuração do sistema</translation>
+    </message>
+    <message>
+        <location line="-279"/>
+        <source>IBeam Cursor</source>
+        <translation>Indicador IBeam</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Block Cursor</source>
+        <translation>Indicador em Bloco</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Underline Cursor</source>
+        <translation>Indicador Sublinhado</translation>
+    </message>
+    <message>
+        <location line="+140"/>
+        <source>Difference to the default size</source>
+        <translation>Diferença com relação ao tamanho de fonto padrão</translation>
+    </message>
+    <message>
+        <location line="+6"/>
+        <source>Background color, pink (255,0,255) means default</source>
+        <translation>Cor de fundo, rosa (255,0,255) significa padrão</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>b</source>
+        <translation>b</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>i</source>
+        <translation>i</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>u</source>
+        <translation>u</translation>
+    </message>
+</context>
+<context>
+    <name>terminal_dock_widget</name>
+    <message>
+        <location filename="../src/terminal-dock-widget.cc" line="+38"/>
+        <source>Command Window</source>
+        <translation>Janela de Comandos</translation>
+    </message>
+</context>
+<context>
+    <name>webinfo</name>
+    <message>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
+        <source>Type here and press &apos;Return&apos; to search</source>
+        <translation>Digite aqui e pressione &apos;Enter&apos; para buscar</translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>Global search</source>
+        <translation>Procura global</translation>
+    </message>
+</context>
+<context>
+    <name>welcome_wizard</name>
+    <message>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
+        <source>Welcome to GNU Octave</source>
+        <translation>Bem-vindo ao GNU Octave</translation>
+    </message>
+    <message>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>Bem-vindo ao Octave!</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation>Parece que você está a usar a interface gráfica do Octave pela primeira vez neste computador. Clique &apos;Finalizar&apos; para escrever um ficheiro de configuração e iniciar o Octave.</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>O ficheiro de configuração é armazenado em %1. Se o ficheiro existir, este diálogo não volta aparecer quando o Octave reiniciar.</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Para mais informações sobre o Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visite &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Veja a documentação na Internet em &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Abra a documentação do Octave no menu de ajuda&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</translation>
+    </message>
+    <message>
+        <location line="+20"/>
+        <source>Finish</source>
+        <translation>Finalizar</translation>
+    </message>
+</context>
+<context>
+    <name>workspace_model</name>
+    <message>
+        <location filename="../src/workspace-model.cc" line="-42"/>
+        <source>Name</source>
+        <translation>Nome</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Class</source>
+        <translation>Classe</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Dimension</source>
+        <translation>Dimensão</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Value</source>
+        <translation>Valor</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Storage Class</source>
+        <translation>Classe de Armazenamento</translation>
+    </message>
+    <message>
+        <location line="+107"/>
+        <source>Right click to copy, rename, or display</source>
+        <translation>Clique com botão direito para copiar, renomear ou exibir</translation>
+    </message>
+</context>
+<context>
+    <name>workspace_view</name>
+    <message>
+        <location filename="../src/workspace-view.cc" line="+47"/>
+        <source>Workspace</source>
+        <translation>Ambiente de trabalho</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>View the variables in the active workspace.</source>
+        <translation>Visualizar variáveis no ambiente de trabalho ativo.</translation>
+    </message>
+    <message>
+        <location line="+75"/>
+        <source>Copy</source>
+        <translation>Copiar</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Rename</source>
+        <translation>Renomear</translation>
+    </message>
+    <message>
+        <location line="+8"/>
+        <source>Only top-level symbols may be renamed.</source>
+        <translation>Apenas símbolos do nível maisl alto podem ser renomeados.</translation>
+    </message>
+    <message>
+        <location line="+125"/>
+        <source>View the variables in the active workspace.&lt;br&gt;</source>
+        <translation>Visualizar as variáveis no ambiente de trabalho ativo.&lt;br&gt;</translation>
+    </message>
+    <message>
+        <location line="+1"/>
+        <source>Colors for the storage class:</source>
+        <translation>Cores para classe de armazenamento:</translation>
+    </message>
+</context>
+</TS>
--- a/libgui/languages/ru_RU.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/ru_RU.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -6,7 +6,7 @@
     <message>
         <location filename="../src/dialog.cc" line="+250"/>
         <source>Select All</source>
-        <translation type="unfinished"></translation>
+        <translation>Выбрать всё</translation>
     </message>
 </context>
 <context>
@@ -67,17 +67,17 @@
     <message>
         <location filename="../qterminal/libqterminal/QTerminal.h" line="+116"/>
         <source>Copy</source>
-        <translation type="unfinished"></translation>
+        <translation>Копировать</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Paste</source>
-        <translation type="unfinished"></translation>
+        <translation>Вставить</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Clear All</source>
-        <translation type="unfinished"></translation>
+        <translation>Очистить всё</translation>
     </message>
 </context>
 <context>
@@ -85,7 +85,7 @@
     <message>
         <location filename="../qterminal/libqterminal/win32/QWinTerminalImpl.cpp" line="+1527"/>
         <source>copied selection to clipboard</source>
-        <translation type="unfinished"></translation>
+        <translation>выделенное скопировано в буфер обмена</translation>
     </message>
 </context>
 <context>
@@ -93,40 +93,38 @@
     <message>
         <location filename="../src/documentation-dock-widget.cc" line="+34"/>
         <source>Documentation</source>
-        <translation type="unfinished">Документация</translation>
+        <translation>Документация</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>See the documentation for help.</source>
-        <translation type="unfinished"></translation>
+        <translation>Для получения помощи смотрите документацию.</translation>
     </message>
 </context>
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
-        <translation type="unfinished"></translation>
+        <translation>Редактор Octave</translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation type="unfinished"></translation>
+        <translation>Файлы Octave (*.m);;Все файлы (*)</translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
-        <translation type="unfinished"></translation>
+        <translation>Файл не сохранен! Файл с выбранным именем
+%1
+уже открыт в редакторе</translation>
     </message>
     <message>
         <location line="+28"/>
@@ -134,172 +132,234 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;%1 %2</translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
-        <translation type="unfinished">Созд&amp;ать</translation>
+        <translation>Созд&amp;ать</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Open File</source>
-        <translation type="unfinished">&amp;Открыть</translation>
+        <translation>&amp;Открыть</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Save File</source>
-        <translation type="unfinished">&amp;Сохранить</translation>
+        <translation>&amp;Сохранить</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Save File &amp;As</source>
-        <translation type="unfinished">Сохранить &amp;как</translation>
+        <translation>Сохранить &amp;как</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Print</source>
-        <translation type="unfinished"></translation>
+        <translation>Печать</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Undo</source>
-        <translation type="unfinished">О&amp;тменить</translation>
+        <translation>О&amp;тменить</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Redo</source>
-        <translation type="unfinished">&amp;Повторить</translation>
+        <translation>&amp;Повторить</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Copy</source>
-        <translation type="unfinished">&amp;Копировать</translation>
-    </message>
-    <message>
-        <location line="+3"/>
-        <source>Cu&amp;t</source>
-        <translation type="unfinished">Вы&amp;резать</translation>
+        <translation>&amp;Копировать</translation>
     </message>
     <message>
         <location line="+4"/>
+        <source>Cu&amp;t</source>
+        <translation>Вы&amp;резать</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Paste</source>
-        <translation type="unfinished"></translation>
+        <translation>Вставить</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>&amp;Next Bookmark</source>
-        <translation type="unfinished">С&amp;ледующая закладка</translation>
+        <translation>С&amp;ледующая закладка</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Pre&amp;vious Bookmark</source>
-        <translation type="unfinished">Пр&amp;едыдущая закладка</translation>
+        <translation>Пр&amp;едыдущая закладка</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Toggle &amp;Bookmark</source>
-        <translation type="unfinished">&amp;Установить/снять закладку</translation>
+        <translation>&amp;Установить/снять закладку</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Remove All Bookmarks</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Удалить все закладки</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>&amp;Next breakpoint</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Следующая точка останова</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Pre&amp;vious breakpoint</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Предыдущая точка останова</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Toggle &amp;breakpoint</source>
-        <translation type="unfinished"></translation>
+        <translation>Установить/снять &amp;точку останова</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Remove All breakpoints</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Удалить все точки останова</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>&amp;Comment</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Закомментировать</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Раскомментировать</translation>
     </message>
     <message>
         <location line="+63"/>
         <source>&amp;Recent Editor Files</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Недавние файлы редактора</translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation>&amp;Редактировать функцию</translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Закрыть</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Close All</source>
-        <translation type="unfinished"></translation>
+        <translation>Закрыть всё</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Close Other Files</source>
+        <translation>Закрыть другие файлы</translation>
+    </message>
+    <message>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-85"/>
-        <source>&amp;Find and Replace</source>
-        <translation type="unfinished"></translation>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation>&amp;Помощь</translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
+        <translation>&amp;Помощь по зарезервированному слову</translation>
     </message>
     <message>
         <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation>&amp;Документация по зарезервированному слову</translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation>&amp;Найти и заменить</translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation>Не удалось открыть файл
+%1
+для чтения: %2.</translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation>Файл
+%1
+не существует. Вы хотите создать его?</translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation>Не удалось открыть файл
+%1
+для записи: %2.</translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
-        <translation type="unfinished"></translation>
+        <translation>Сохранить и запустить файл</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Go&amp;to Line</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Перейти к строчке</translation>
     </message>
     <message>
         <location line="+53"/>
         <source>&amp;File</source>
-        <translation type="unfinished">&amp;Файл</translation>
+        <translation>&amp;Файл</translation>
+    </message>
+    <message>
+        <location line="+39"/>
+        <source>&amp;Edit</source>
+        <translation>&amp;Правка</translation>
     </message>
     <message>
-        <location line="+36"/>
-        <source>&amp;Edit</source>
-        <translation type="unfinished">&amp;Правка</translation>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation>&amp;Настройки</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation>Настройки &amp;стиля</translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Отладка</translation>
     </message>
     <message>
         <location line="+9"/>
         <source>&amp;Run</source>
-        <translation type="unfinished">&amp;Запуск</translation>
+        <translation>&amp;Запуск</translation>
     </message>
 </context>
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
-        <translation type="unfinished"></translation>
+        <translation>Перейти к строчке</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -309,71 +369,81 @@
     <message>
         <location line="+70"/>
         <source>&lt;unnamed&gt;</source>
-        <translation type="unfinished"></translation>
+        <translation>&lt;без названия&gt;</translation>
     </message>
     <message>
         <location line="+40"/>
         <source>Do you want to save or discard the changes?</source>
-        <translation type="unfinished"></translation>
+        <translation>Вы хотите сохранить или отменить изменения?</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Do you want to cancel closing, save or discard the changes?</source>
-        <translation type="unfinished"></translation>
+        <translation>Вы хотите отменить закрытие, сохранить или отменить изменения?</translation>
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
-        <translation type="unfinished"></translation>
+        <translation>Редактор Octave</translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
 %2</source>
-        <translation type="unfinished"></translation>
+        <translation>Файл
+%1
+должен быть закрыть, но он был изменен.
+%2</translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
-        <translation type="unfinished"></translation>
+        <translation>Файлы Octave (*.m);;Все файлы (*)</translation>
     </message>
     <message>
         <location line="+34"/>
         <source>File not saved! The selected file name
 %1
 is the same as the current file name</source>
-        <translation type="unfinished"></translation>
+        <translation>Файл не сохранен! Выбранное имя файла
+%1
+такое же, как и название текущего файла</translation>
     </message>
     <message>
         <location line="+81"/>
         <source>
 
 Warning: The contents in the editor is modified!</source>
-        <translation type="unfinished"></translation>
+        <translation>
+
+Предупреждение: содержимое в редакторе было изменено!</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>It seems that the file
 %1
 has been deleted or renamed. Do you want to save it now?%2</source>
-        <translation type="unfinished"></translation>
+        <translation>Кажется, файл
+%1
+был удален или переименован. Вы хотите сохранить его?%2</translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
-        <translation type="unfinished"></translation>
+        <translation>Не удалось открыть файл %1 для записи:
+%2.</translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
-        <translation type="unfinished"></translation>
+        <translation>Кажется, файл &apos;%1&apos; был изменен другим приложением. Вы хотите обновить его содержимое?</translation>
     </message>
 </context>
 <context>
@@ -381,17 +451,17 @@
     <message>
         <location filename="../src/files-dock-widget.cc" line="+67"/>
         <source>File Browser</source>
-        <translation type="unfinished">Файловый менеджер</translation>
+        <translation>Файловый менеджер</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Browse your files.</source>
-        <translation type="unfinished">Просмотр файлов.</translation>
+        <translation>Просмотр файлов.</translation>
     </message>
     <message>
         <location line="+18"/>
         <source>Enter the path or filename</source>
-        <translation type="unfinished"></translation>
+        <translation>Введите путь или имя файла</translation>
     </message>
     <message>
         <location line="+10"/>
@@ -401,17 +471,17 @@
     <message>
         <location line="+3"/>
         <source>Show octave directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать директорию Octave</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Goto current octave directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Перейти к текущей директории Octave</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Set octave directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Установить директорию Octave</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -426,7 +496,7 @@
     <message>
         <location line="+3"/>
         <source>Show Home directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать домашнюю директорию</translation>
     </message>
     <message>
         <location line="+10"/>
@@ -437,98 +507,98 @@
         <location line="+3"/>
         <location line="+244"/>
         <source>Find Files ...</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти файлы...</translation>
     </message>
     <message>
         <location line="-240"/>
         <location line="+252"/>
         <source>New File</source>
-        <translation type="unfinished"></translation>
+        <translation>Новый файл</translation>
     </message>
     <message>
         <location line="-249"/>
         <location line="+252"/>
         <source>New Directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Новая директория</translation>
     </message>
     <message>
         <location line="-223"/>
         <source>Doubleclick a file to open it</source>
-        <translation type="unfinished"></translation>
+        <translation>Двойной щелчок по файлу для открытия</translation>
     </message>
     <message>
         <location line="+185"/>
         <source>Open</source>
-        <translation type="unfinished"></translation>
+        <translation>Открыть</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Open in Default Application</source>
-        <translation type="unfinished"></translation>
+        <translation>Открыть в приложении по умолчанию</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Copy Selection to Clipboard</source>
-        <translation type="unfinished"></translation>
+        <translation>Скопировать выделенное в буфер обмена</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Run</source>
-        <translation type="unfinished"></translation>
+        <translation>Запуск</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Load Data</source>
-        <translation type="unfinished"></translation>
+        <translation>Загрузить данные</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Set Current Directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Установить текущую директорию</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Rename</source>
-        <translation type="unfinished"></translation>
+        <translation>Переименовать</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Delete</source>
-        <translation type="unfinished"></translation>
+        <translation>Удалить</translation>
     </message>
     <message>
         <location line="+107"/>
         <source>Rename file/directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Переименовать файл/директорию</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Rename file/directory:
 </source>
-        <translation type="unfinished"></translation>
+        <translation>Переименовать файл/директорию:</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>
  to: </source>
-        <translation type="unfinished"></translation>
+        <translation> в: </translation>
     </message>
     <message>
         <location line="+25"/>
         <location line="+11"/>
         <source>Delete file/directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Удалить файл/директорию</translation>
     </message>
     <message>
         <location line="-10"/>
         <source>Are you sure you want to delete
 </source>
-        <translation type="unfinished"></translation>
+        <translation>Вы уверены, что хотите удалить</translation>
     </message>
     <message>
         <location line="+11"/>
         <source>Can not delete a directory that is not empty</source>
-        <translation type="unfinished"></translation>
+        <translation>Невозможно удалить непустую директорию</translation>
     </message>
     <message>
         <location line="+131"/>
@@ -538,24 +608,24 @@
     <message>
         <location line="+28"/>
         <source>Create File</source>
-        <translation type="unfinished"></translation>
+        <translation>Создать файл</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>Create file in
 </source>
-        <translation type="unfinished"></translation>
+        <translation>Создать файл в</translation>
     </message>
     <message>
         <location line="+17"/>
         <source>Create Directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Создать директорию</translation>
     </message>
     <message>
         <location line="+0"/>
         <source>Create folder in
 </source>
-        <translation type="unfinished"></translation>
+        <translation>Создать папку в</translation>
     </message>
 </context>
 <context>
@@ -563,22 +633,22 @@
     <message>
         <location filename="../src/m-editor/find-dialog.cc" line="+77"/>
         <source>Find &amp;what:</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Найти:</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Re&amp;place with:</source>
-        <translation type="unfinished"></translation>
+        <translation>За&amp;менить на:</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Match &amp;case</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Учитывать регистр</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search from &amp;start</source>
-        <translation type="unfinished"></translation>
+        <translation>И&amp;скать с начала</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -588,27 +658,27 @@
     <message>
         <location line="+2"/>
         <source>&amp;Find Next</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти &amp;следующее</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Find &amp;Previous</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти п&amp;редыдущее</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>&amp;Replace</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Заменить</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Replace &amp;All</source>
-        <translation type="unfinished"></translation>
+        <translation>Заменить &amp;все</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>&amp;More</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Больше</translation>
     </message>
     <message>
         <location line="+13"/>
@@ -618,12 +688,12 @@
     <message>
         <location line="+1"/>
         <source>Regular E&amp;xpressions</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Регулярные выражения</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Search &amp;backward</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Искать в обратном направлении</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -633,12 +703,12 @@
     <message>
         <location line="+71"/>
         <source>Search from end</source>
-        <translation type="unfinished"></translation>
+        <translation>Искать с конца</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Search from start</source>
-        <translation type="unfinished"></translation>
+        <translation>Искать с начала</translation>
     </message>
     <message>
         <location line="+117"/>
@@ -658,7 +728,7 @@
     <message>
         <location line="+1"/>
         <source>No more matches found</source>
-        <translation type="unfinished"></translation>
+        <translation>Больше совпадений не найдено</translation>
     </message>
 </context>
 <context>
@@ -666,7 +736,7 @@
     <message>
         <location filename="../src/find-files-dialog.cc" line="+47"/>
         <source>Find Files</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти файлы</translation>
     </message>
     <message>
         <location line="+10"/>
@@ -706,7 +776,7 @@
     <message>
         <location line="+2"/>
         <source>Search recursively through directories for matching files</source>
-        <translation type="unfinished"></translation>
+        <translation>Искать рекурсивно в директориях подходящие файлы</translation>
     </message>
     <message>
         <location line="+2"/>
@@ -731,7 +801,7 @@
     <message>
         <location line="+2"/>
         <source>Contains text:</source>
-        <translation type="unfinished"></translation>
+        <translation>Содержит текст:</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -766,7 +836,7 @@
     <message>
         <location line="+2"/>
         <source>Find</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -776,7 +846,7 @@
     <message>
         <location line="+3"/>
         <source>Stop</source>
-        <translation type="unfinished"></translation>
+        <translation>Завершить</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -786,12 +856,12 @@
     <message>
         <location line="+15"/>
         <source>File name/location</source>
-        <translation type="unfinished"></translation>
+        <translation>Имя/местоположение файла</translation>
     </message>
     <message>
         <location line="+17"/>
         <source>File contents</source>
-        <translation type="unfinished"></translation>
+        <translation>Содержимое файла</translation>
     </message>
     <message>
         <location line="+99"/>
@@ -801,7 +871,7 @@
     <message>
         <location line="+32"/>
         <source>Set search directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Установить директорию для поиска</translation>
     </message>
 </context>
 <context>
@@ -809,12 +879,12 @@
     <message>
         <location filename="../src/find-files-model.cc" line="+76"/>
         <source>Filename</source>
-        <translation type="unfinished"></translation>
+        <translation>Имя файла</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Директория</translation>
     </message>
 </context>
 <context>
@@ -822,71 +892,71 @@
     <message>
         <location filename="../src/history-dock-widget.cc" line="+43"/>
         <source>Browse and search the command history.</source>
-        <translation type="unfinished">Просмотр и поиск в журнале выполненных команд.</translation>
+        <translation>Просмотр и поиск в журнале выполненных команд.</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Doubleclick a command to transfer it to the terminal.</source>
-        <translation type="unfinished">Двойной щелчок по команде перенесёт её в командную строку.</translation>
+        <translation>Двойной щелчок по команде перенесёт её в командную строку.</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Enter text to filter the command history.</source>
-        <translation type="unfinished">Введите текст для фильтрации выполненных команд.</translation>
+        <translation>Введите текст для фильтрации выполненных команд.</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Command History</source>
-        <translation type="unfinished">Журнал выполненных команд</translation>
+        <translation>Журнал выполненных команд</translation>
     </message>
     <message>
         <location line="+20"/>
         <source>Copy</source>
-        <translation type="unfinished"></translation>
+        <translation>Копировать</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Evaluate</source>
-        <translation type="unfinished"></translation>
+        <translation>Выполнить</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Create script</source>
-        <translation type="unfinished"></translation>
+        <translation>Создать скрипт</translation>
     </message>
 </context>
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
-        <translation type="unfinished">Загрузить область переменных</translation>
+        <translation>Загрузить область переменных</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
-        <translation type="unfinished">Об Octave</translation>
+        <translation>Об Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
-        <translation type="unfinished">&amp;Файл</translation>
+        <translation>&amp;Файл</translation>
     </message>
     <message>
         <location line="+54"/>
         <source>New</source>
-        <translation type="unfinished"></translation>
+        <translation>Новый</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Script</source>
-        <translation type="unfinished"></translation>
+        <translation>Скрипт</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Function</source>
-        <translation type="unfinished"></translation>
+        <translation>Функция</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -896,68 +966,83 @@
     <message>
         <location line="-58"/>
         <source>Open...</source>
-        <translation type="unfinished"></translation>
+        <translation>Открыть...</translation>
     </message>
     <message>
         <location line="+20"/>
         <source>Preferences...</source>
-        <translation type="unfinished"></translation>
+        <translation>Настройки...</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Exit</source>
-        <translation type="unfinished">Выход</translation>
+        <translation>Выход</translation>
     </message>
     <message>
         <location line="+52"/>
         <source>&amp;Edit</source>
-        <translation type="unfinished">&amp;Правка</translation>
+        <translation>&amp;Правка</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Undo</source>
-        <translation type="unfinished"></translation>
+        <translation>Отменить</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Copy</source>
-        <translation type="unfinished"></translation>
+        <translation>Копировать</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Paste</source>
-        <translation type="unfinished"></translation>
+        <translation>Вставить</translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Find Files...</source>
-        <translation type="unfinished"></translation>
+        <translation>Найти файлы...</translation>
     </message>
     <message>
         <location line="+5"/>
         <source>Clear Command Window</source>
-        <translation type="unfinished"></translation>
+        <translation>Очистить командное окно</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Clear Command History</source>
-        <translation type="unfinished"></translation>
+        <translation>Очистить журнал выполненных команд</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -967,57 +1052,67 @@
     <message>
         <location line="+40"/>
         <source>De&amp;bug</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Отладка</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Step</source>
-        <translation type="unfinished"></translation>
+        <translation>Шаг</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Step in</source>
-        <translation type="unfinished"></translation>
+        <translation>Шаг вперед</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Step out</source>
-        <translation type="unfinished"></translation>
+        <translation>Шаг назад</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Continue</source>
-        <translation type="unfinished"></translation>
+        <translation>Продолжить</translation>
     </message>
     <message>
         <location line="+8"/>
         <source>Exit Debug Mode</source>
-        <translation type="unfinished"></translation>
+        <translation>Выйти из режима отладки</translation>
     </message>
     <message>
         <location line="+48"/>
         <source>Show File Browser</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать файловый менеджер</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation>Показывать окно новостей</translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+11"/>
         <source>File Browser</source>
-        <translation type="unfinished">Файловый менеджер</translation>
+        <translation>Файловый менеджер</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation>Новости</translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
-        <translation type="unfinished"></translation>
+        <translation>Пакеты Octave</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Share Code</source>
-        <translation type="unfinished"></translation>
+        <translation>Поделиться кодом</translation>
     </message>
     <message>
         <location line="+3"/>
@@ -1027,134 +1122,172 @@
     <message>
         <location line="+3"/>
         <source>Octave Developer Resources</source>
-        <translation type="unfinished"></translation>
+        <translation>Ресурсы разработчика Octave</translation>
     </message>
     <message>
         <location line="+32"/>
         <source>On Disk</source>
-        <translation type="unfinished"></translation>
+        <translation>На диске</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Online</source>
+        <translation>Онлайн</translation>
+    </message>
+    <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation>&amp;Новости</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation>Новости сообщества</translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
-        <translation type="unfinished"></translation>
+        <translation>Введите название директории</translation>
     </message>
     <message>
         <location line="+8"/>
         <source>Current Directory: </source>
-        <translation type="unfinished"></translation>
+        <translation>Текущая директория: </translation>
     </message>
     <message>
         <location line="+4"/>
         <source>One directory up</source>
-        <translation type="unfinished"></translation>
+        <translation>Одной директорией вверх</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Browse directories</source>
-        <translation type="unfinished"></translation>
+        <translation>Просмотр директорий</translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
-        <translation type="unfinished"></translation>
+        <translation>Загрузить область переменных</translation>
     </message>
     <message>
         <location line="+200"/>
         <source>&amp;Window</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Окно</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Show Command Window</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать командное окно</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Command History</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать журнал выполненных команд</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Show Workspace</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать область переменных</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Editor</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать редактор</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Show Documentation</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать документацию</translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
-        <translation type="unfinished"></translation>
+        <translation>Командное окно</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Command History</source>
-        <translation type="unfinished">Журнал выполненных команд</translation>
+        <translation>Журнал выполненных команд</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Workspace</source>
-        <translation type="unfinished">Область переменных</translation>
+        <translation>Область переменных</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Editor</source>
-        <translation type="unfinished">Редактор</translation>
+        <translation>Редактор</translation>
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
-        <translation type="unfinished">Документация</translation>
+        <translation>Документация</translation>
     </message>
     <message>
         <location line="-48"/>
         <source>&amp;Help</source>
-        <translation type="unfinished"></translation>
+        <translation>&amp;Помощь</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Report Bug</source>
-        <translation type="unfinished">Сообщить об ошибке</translation>
+        <translation>Сообщить об ошибке</translation>
+    </message>
+</context>
+<context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation>Новости сообщества</translation>
     </message>
 </context>
 <context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
-        <translation type="unfinished"></translation>
+        <translation>Открепить виджет</translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
-        <translation type="unfinished"></translation>
+        <translation>Спрятать виджет</translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
-        <translation type="unfinished"></translation>
+        <translation>Закрепить виджет</translation>
     </message>
 </context>
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation>Редактировать</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
         <translation type="unfinished"></translation>
     </message>
 </context>
@@ -1163,7 +1296,7 @@
     <message>
         <location filename="../src/octave-qt-link.cc" line="+270"/>
         <source>The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.</source>
-        <translation type="unfinished"></translation>
+        <translation>Файл %1 не существует в пути загрузки.  Чтобы отладить редактируемую вами функцию, вы должны либо изменить директорию на %2, или добавить эту директорию в путь загрузки.</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -1173,22 +1306,22 @@
     <message>
         <location line="+2"/>
         <source>Change Directory or Add Directory to Load Path</source>
-        <translation type="unfinished"></translation>
+        <translation>Изменить директорию или добавить директорию в путь загрузки</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>Change Directory</source>
-        <translation type="unfinished"></translation>
+        <translation>Изменить директорию</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Add Directory to Load Path</source>
-        <translation type="unfinished"></translation>
+        <translation>Добавить директорию в путь загрузки</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Cancel</source>
-        <translation type="unfinished"></translation>
+        <translation>Отмена</translation>
     </message>
 </context>
 <context>
@@ -1196,17 +1329,17 @@
     <message>
         <location filename="../src/settings-dialog.ui" line="+29"/>
         <source>Settings</source>
-        <translation type="unfinished">Параметры</translation>
+        <translation>Параметры</translation>
     </message>
     <message>
         <location line="+13"/>
         <source>General</source>
-        <translation type="unfinished"></translation>
+        <translation>Основное</translation>
     </message>
     <message>
         <location line="+97"/>
         <source>Octave logo only</source>
-        <translation type="unfinished"></translation>
+        <translation type="unfinished">Только логотип Octave</translation>
     </message>
     <message>
         <location line="+10"/>
@@ -1216,27 +1349,27 @@
     <message>
         <location line="+46"/>
         <source>Editor</source>
-        <translation type="unfinished">Редактор</translation>
+        <translation>Редактор</translation>
     </message>
     <message>
         <location line="+16"/>
         <source>Show white space</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать пробелы</translation>
     </message>
     <message>
         <location line="+27"/>
         <source>Do not show white spaces used for indentation</source>
-        <translation type="unfinished"></translation>
+        <translation>Не показывать пробелы, используемые для отступов</translation>
     </message>
     <message>
         <location line="+28"/>
         <source>Color</source>
-        <translation type="unfinished"></translation>
+        <translation>Цвет</translation>
     </message>
     <message>
         <location line="+120"/>
         <source>Indent width</source>
-        <translation type="unfinished"></translation>
+        <translation>Ширина отступа</translation>
     </message>
     <message>
         <location line="+7"/>
@@ -1246,7 +1379,7 @@
     <message>
         <location line="+7"/>
         <source>Auto indentation</source>
-        <translation type="unfinished"></translation>
+        <translation>Авто-отступы</translation>
     </message>
     <message>
         <location line="+20"/>
@@ -1276,7 +1409,7 @@
     <message>
         <location line="+13"/>
         <source>Case sensitive</source>
-        <translation type="unfinished"></translation>
+        <translation>Чувствительный к регистру</translation>
     </message>
     <message>
         <location line="+13"/>
@@ -1291,6 +1424,11 @@
     <message>
         <location line="+61"/>
         <source>Restore editor tabs from previous session on startup</source>
+        <translation>Восстанавливать вкладки редактора с предыдущей сессии во время запуска</translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
@@ -1311,7 +1449,7 @@
     <message>
         <location line="+24"/>
         <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Select font, font size (as difference to the default size), font decoration (bold, italic, underline), textcolor and background color (for the latter, the color pink (255,0,255) is a placeholder for the default background color)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
+        <translation>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;Выберите шрифт, размер шрифта (отличный от размера по умолчанию), стиль шрифта (жирный, курсив, подчеркнутый),цвет текста и цвет заднего фона (для последнего розовый цвет (255,0,255) используется по умолчанию)&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
         <location line="+76"/>
@@ -1326,27 +1464,27 @@
     <message>
         <location line="+45"/>
         <source>Font</source>
-        <translation type="unfinished"></translation>
+        <translation>Шрифт</translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать количество строк</translation>
     </message>
     <message>
         <location line="+27"/>
         <source>Highlight current line</source>
-        <translation type="unfinished"></translation>
+        <translation>Подсвечивать текущую строку</translation>
     </message>
     <message>
         <location line="+262"/>
         <source>Code completion</source>
-        <translation type="unfinished"></translation>
+        <translation>Дополнение кода</translation>
     </message>
     <message>
         <location line="-282"/>
         <source>Show complete path in window title</source>
-        <translation type="unfinished"></translation>
+        <translation>Показывать полный путь в заголовке окна</translation>
     </message>
     <message>
         <location line="-72"/>
@@ -1354,69 +1492,69 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+620"/>
+        <location line="+633"/>
         <source>emacs</source>
-        <translation type="unfinished">emacs</translation>
+        <translation>emacs</translation>
     </message>
     <message>
         <location line="+67"/>
         <source>Terminal</source>
-        <translation type="unfinished">Командная строка</translation>
+        <translation>Командная строка</translation>
     </message>
     <message>
         <location line="+15"/>
         <source>Cursor type:</source>
-        <translation type="unfinished"></translation>
+        <translation>Тип курсора:</translation>
     </message>
     <message>
         <location line="+23"/>
         <source>Cursor blinking</source>
-        <translation type="unfinished"></translation>
+        <translation>Мигающий курсор</translation>
     </message>
     <message>
         <location line="+101"/>
         <source>Font size</source>
-        <translation type="unfinished"></translation>
+        <translation>Размер шрифта</translation>
     </message>
     <message>
         <location line="+35"/>
         <source>File Browser</source>
-        <translation type="unfinished">Файловый менеджер</translation>
+        <translation>Файловый менеджер</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Show file size</source>
-        <translation type="unfinished">Показывать размер файлов</translation>
+        <translation>Показывать размер файлов</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show file type</source>
-        <translation type="unfinished">Показывать типы файлов</translation>
+        <translation>Показывать типы файлов</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show date of last modification</source>
-        <translation type="unfinished">Показывать дату последнего изменения</translation>
+        <translation>Показывать дату последнего изменения</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Show hidden files</source>
-        <translation type="unfinished">Показывать скрытые файлы</translation>
+        <translation>Показывать скрытые файлы</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Synchronize octave directory with the file browser</source>
-        <translation type="unfinished"></translation>
+        <translation>Синхронизировать директорию octave с файловым менеджером</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Alternating row colors</source>
-        <translation type="unfinished">Чередующиеся цвета строк</translation>
+        <translation>Чередующиеся цвета строк</translation>
     </message>
     <message>
         <location line="+21"/>
         <source>Workspace</source>
-        <translation type="unfinished">Область переменных</translation>
+        <translation>Область переменных</translation>
     </message>
     <message>
         <location line="+30"/>
@@ -1426,72 +1564,72 @@
     <message>
         <location line="+35"/>
         <source>Network</source>
-        <translation type="unfinished"></translation>
+        <translation>Сеть</translation>
     </message>
     <message>
         <location line="+45"/>
         <source>Use proxy server</source>
-        <translation type="unfinished"></translation>
+        <translation>Использовать прокси-сервер</translation>
     </message>
     <message>
         <location line="+10"/>
         <source>Proxy Type:</source>
-        <translation type="unfinished"></translation>
+        <translation>Тип прокси:</translation>
     </message>
     <message>
         <location line="-33"/>
         <source>HttpProxy</source>
-        <translation type="unfinished"></translation>
+        <translation>HttpProxy</translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Language (requires restart)</source>
-        <translation type="unfinished"></translation>
+        <translation>Язык (требуется перезапуск)</translation>
     </message>
     <message>
         <location line="+7"/>
         <source>Icon size</source>
-        <translation type="unfinished"></translation>
+        <translation>Размер иконок</translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
-        <translation type="unfinished"></translation>
+        <translation>Socks5Proxy</translation>
     </message>
     <message>
         <location line="-16"/>
         <source>Hostname:</source>
-        <translation type="unfinished"></translation>
+        <translation>Имя хоста:</translation>
     </message>
     <message>
         <location line="+54"/>
         <source>Port:</source>
-        <translation type="unfinished"></translation>
+        <translation>Порт:</translation>
     </message>
     <message>
         <location line="-27"/>
         <source>Username:</source>
-        <translation type="unfinished"></translation>
+        <translation>Имя пользователя:</translation>
     </message>
     <message>
         <location line="+37"/>
         <source>Password:</source>
-        <translation type="unfinished">Пароль:</translation>
+        <translation>Пароль:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1506,29 +1644,29 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
-        <translation type="unfinished"></translation>
+        <translation>Отличие то размера по умолчанию</translation>
     </message>
     <message>
         <location line="+6"/>
         <source>Background color, pink (255,0,255) means default</source>
-        <translation type="unfinished"></translation>
+        <translation>Цвет заднего фона, розовый (255,0,255) по умолчанию</translation>
     </message>
     <message>
         <location line="+2"/>
         <source>b</source>
-        <translation type="unfinished"></translation>
+        <translation>b</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>i</source>
-        <translation type="unfinished"></translation>
+        <translation>i</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>u</source>
-        <translation type="unfinished"></translation>
+        <translation>u</translation>
     </message>
 </context>
 <context>
@@ -1536,59 +1674,75 @@
     <message>
         <location filename="../src/terminal-dock-widget.cc" line="+38"/>
         <source>Command Window</source>
-        <translation type="unfinished"></translation>
+        <translation>Командное окно</translation>
     </message>
 </context>
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
-        <translation type="unfinished"></translation>
+        <translation>Вводите сюда и нажмите &apos;Enter&apos;, чтобы начать поиск</translation>
     </message>
     <message>
         <location line="+4"/>
         <source>Global search</source>
-        <translation type="unfinished"></translation>
+        <translation>Глобальный поиск</translation>
     </message>
 </context>
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
-        <translation type="unfinished"></translation>
+        <translation>Добро пожаловать в GNU Octave</translation>
+    </message>
+    <message>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation>Добро пожаловать в Octave!</translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation>Кажется, вы используете графический интерфейс для Octave впервые на этом компьютере. Щелкните на кнопку &apos;Завершить&apos;, чтобы записать конфигурационный файл и запустить интерфейс для Octave.</translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation>Конфигурационный файл хранится в %1. Если этот файл существует, вы больше не увидите это всплывающее окно при запуске Octave.</translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;Для получения дополнительной информации об Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Посетите &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Получите документацию онлайн в виде&lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- или &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-документа&lt;/li&gt;
+&lt;li&gt;Откройте просмотрщик документации через меню &quot;Помощь&quot;&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</translation>
     </message>
     <message>
         <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
-&lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
-&lt;/ul&gt;
-&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+74"/>
         <source>Finish</source>
-        <translation type="unfinished"></translation>
+        <translation>Завершить</translation>
     </message>
 </context>
 <context>
@@ -1596,22 +1750,22 @@
     <message>
         <location filename="../src/workspace-model.cc" line="-42"/>
         <source>Name</source>
-        <translation type="unfinished">Идентификатор</translation>
+        <translation>Идентификатор</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Class</source>
-        <translation type="unfinished"></translation>
+        <translation>Тип</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Dimension</source>
-        <translation type="unfinished"></translation>
+        <translation>Размерность</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>Value</source>
-        <translation type="unfinished">Значение</translation>
+        <translation>Значение</translation>
     </message>
     <message>
         <location line="+1"/>
@@ -1621,7 +1775,7 @@
     <message>
         <location line="+107"/>
         <source>Right click to copy, rename, or display</source>
-        <translation type="unfinished"></translation>
+        <translation>Правый щелчок для копирования, переименования или отображения</translation>
     </message>
 </context>
 <context>
@@ -1629,22 +1783,22 @@
     <message>
         <location filename="../src/workspace-view.cc" line="+47"/>
         <source>Workspace</source>
-        <translation type="unfinished">Область переменных</translation>
+        <translation>Область переменных</translation>
     </message>
     <message>
         <location line="+1"/>
         <source>View the variables in the active workspace.</source>
-        <translation type="unfinished">Просмотр содержимого текущей области переменных.</translation>
+        <translation>Просмотр содержимого текущей области переменных.</translation>
     </message>
     <message>
         <location line="+75"/>
         <source>Copy</source>
-        <translation type="unfinished"></translation>
+        <translation>Копировать</translation>
     </message>
     <message>
         <location line="+3"/>
         <source>Rename</source>
-        <translation type="unfinished"></translation>
+        <translation>Переименовать</translation>
     </message>
     <message>
         <location line="+8"/>
@@ -1654,7 +1808,7 @@
     <message>
         <location line="+125"/>
         <source>View the variables in the active workspace.&lt;br&gt;</source>
-        <translation type="unfinished"></translation>
+        <translation>Просмотр содержимого текущей области переменных.&lt;br&gt; </translation>
     </message>
     <message>
         <location line="+1"/>
--- a/libgui/languages/translators	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/translators	Tue Nov 05 12:27:42 2013 -0500
@@ -1,6 +1,6 @@
 # Below Octave GUI translators are listed with their e-mails
 # to be able to inform them about generic translation file changes.
-# The gerenic file that can be used as a template for new
+# The generic file that can be used as a template for new
 # translation files is en_US.ts
 be_BY Mihas Varantsou <meequz@gmail.com>
 de_DE Jacob Dawid <jacob.dawid@googlemail.com>
@@ -8,6 +8,7 @@
 es_ES Valentin Ortega-Clavero <arcanos3030@gmail.com>
 fr_FR David Bateman <dbateman@free.fr>, Catalin Codreanu <codreanu.catalin@gmail.com>
 pt_BR Júlio Hoffimann Mendes <julio.hoffimann@gmail.com>
+pt_PT Carnë Draug <carandraug@octave.org>
 ru_RU Andriy Shinkarchuck <adriano32.gnu@gmail.com>
 uk_UA Andriy Shinkarchuck <adriano32.gnu@gmail.com>
 nl_NL Sander van Rijn <svr003@gmail.com>
--- a/libgui/languages/uk_UA.ts	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/languages/uk_UA.ts	Tue Nov 05 12:27:42 2013 -0500
@@ -89,6 +89,79 @@
     </message>
 </context>
 <context>
+    <name>QsciLexerBash</name>
+    <message>
+        <location filename="../../../qsci/qscilexerbash.cpp" line="+208"/>
+        <source>Default</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Error</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Comment</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Number</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Double-quoted string</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted string</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Operator</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Identifier</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Scalar</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Parameter expansion</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Backticks</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Here document delimiter</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Single-quoted here document</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
+<context>
     <name>QsciLexerBatch</name>
     <message>
         <location filename="../../../qsci/qscilexerbatch.cpp" line="+179"/>
@@ -697,25 +770,21 @@
 <context>
     <name>file_editor</name>
     <message>
-        <location filename="../src/m-editor/file-editor.cc" line="+300"/>
-        <location line="+49"/>
+        <location filename="../src/m-editor/file-editor.cc" line="+304"/>
+        <location line="+21"/>
+        <location line="+17"/>
+        <location line="+57"/>
         <location line="+28"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-199"/>
+        <location line="-249"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+123"/>
-        <source>Could not open file %1 for read:
-%2.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+49"/>
+        <location line="+222"/>
         <source>File not saved! A file with the selected name
 %1
 is already open in the editor</source>
@@ -727,12 +796,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+205"/>
+        <location line="+228"/>
         <source>&amp;%1 %2</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+160"/>
+        <location line="+173"/>
         <source>&amp;New File</source>
         <translation type="unfinished">&amp;Створити</translation>
     </message>
@@ -772,12 +841,12 @@
         <translation type="unfinished">&amp;Копіювати</translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+4"/>
         <source>Cu&amp;t</source>
         <translation type="unfinished">Виріза&amp;ти</translation>
     </message>
     <message>
-        <location line="+4"/>
+        <location line="+5"/>
         <source>Paste</source>
         <translation type="unfinished"></translation>
     </message>
@@ -827,7 +896,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+3"/>
+        <location line="+2"/>
         <source>&amp;Uncomment</source>
         <translation type="unfinished"></translation>
     </message>
@@ -837,7 +906,12 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+16"/>
+        <location line="+9"/>
+        <source>&amp;Edit Function</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+10"/>
         <source>&amp;Close</source>
         <translation type="unfinished"></translation>
     </message>
@@ -852,12 +926,53 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-85"/>
-        <source>&amp;Find and Replace</source>
+        <location line="+49"/>
+        <source>Run &amp;Selection</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Help</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>&amp;Help on Keyword</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
         <location line="+3"/>
+        <source>&amp;Documentation on Keyword</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="-147"/>
+        <source>&amp;Find and Replace</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="-584"/>
+        <source>Could not open file
+%1
+for read: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+21"/>
+        <source>File
+%1
+does not exist. Do you want to create it?</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+17"/>
+        <source>Could not open file
+%1
+for write: %2.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+549"/>
         <source>Save File And Run</source>
         <translation type="unfinished"></translation>
     </message>
@@ -872,12 +987,22 @@
         <translation type="unfinished">&amp;Файл</translation>
     </message>
     <message>
-        <location line="+36"/>
+        <location line="+39"/>
         <source>&amp;Edit</source>
         <translation type="unfinished">&amp;Правка</translation>
     </message>
     <message>
-        <location line="+21"/>
+        <location line="+22"/>
+        <source>&amp;Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>&amp;Styles Preferences</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
         <source>&amp;Debug</source>
         <translation type="unfinished"></translation>
     </message>
@@ -890,7 +1015,7 @@
 <context>
     <name>file_editor_tab</name>
     <message>
-        <location filename="../src/m-editor/file-editor-tab.cc" line="+726"/>
+        <location filename="../src/m-editor/file-editor-tab.cc" line="+755"/>
         <source>Goto line</source>
         <translation type="unfinished"></translation>
     </message>
@@ -916,15 +1041,15 @@
     </message>
     <message>
         <location line="+4"/>
-        <location line="+114"/>
-        <location line="+109"/>
+        <location line="+129"/>
+        <location line="+115"/>
         <location line="+66"/>
         <location line="+22"/>
         <source>Octave Editor</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-310"/>
+        <location line="-331"/>
         <source>The file
 %1
 is about to be closed but has been modified.
@@ -932,7 +1057,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+189"/>
+        <location line="+210"/>
         <source>Octave Files (*.m);;All Files (*)</source>
         <translation type="unfinished"></translation>
     </message>
@@ -958,13 +1083,13 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-197"/>
+        <location line="-203"/>
         <source>Could not open file %1 for write:
 %2.</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+175"/>
+        <location line="+181"/>
         <source>It seems that &apos;%1&apos; has been modified by another application. Do you want to reload it?</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1451,18 +1576,18 @@
 <context>
     <name>main_window</name>
     <message>
-        <location filename="../src/main-window.cc" line="+160"/>
+        <location filename="../src/main-window.cc" line="+163"/>
         <source>Load Workspace</source>
         <translation type="unfinished">Завантажити область змінних</translation>
     </message>
     <message>
-        <location line="+388"/>
-        <location line="+835"/>
+        <location line="+435"/>
+        <location line="+847"/>
         <source>About Octave</source>
         <translation type="unfinished">Про Octave</translation>
     </message>
     <message>
-        <location line="-354"/>
+        <location line="-369"/>
         <source>&amp;File</source>
         <translation type="unfinished">&amp;Файл</translation>
     </message>
@@ -1522,18 +1647,33 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-982"/>
-        <location line="+902"/>
+        <location line="-1026"/>
+        <location line="+946"/>
         <source>Save Workspace As</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-655"/>
+        <location line="-826"/>
+        <source>The release notes file &apos;%1&apos; is empty.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+4"/>
+        <source>The release notes file &apos;%1&apos; cannot be read.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+13"/>
+        <source>Octave Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+157"/>
         <source>Set working directory</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+739"/>
+        <location line="+736"/>
         <source>Clear Clipboard</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1593,17 +1733,27 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+20"/>
+        <location line="+12"/>
+        <source>Show News Window</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+11"/>
         <source>File Browser</source>
         <translation type="unfinished">Файловий менеджер</translation>
     </message>
     <message>
-        <location line="+14"/>
+        <location line="+12"/>
+        <source>News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
         <source>Reset Default Window Layout</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+77"/>
+        <location line="+86"/>
         <source>Octave Packages</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1633,6 +1783,21 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+12"/>
+        <source>&amp;News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Release Notes</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+30"/>
         <source>Enter directory name</source>
         <translation type="unfinished"></translation>
@@ -1653,7 +1818,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-412"/>
+        <location line="-445"/>
         <source>Load workspace</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1688,7 +1853,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+5"/>
+        <location line="+8"/>
         <source>Command Window</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1709,7 +1874,7 @@
     </message>
     <message>
         <location line="+3"/>
-        <location line="+120"/>
+        <location line="+132"/>
         <source>Documentation</source>
         <translation type="unfinished">Документація</translation>
     </message>
@@ -1725,20 +1890,28 @@
     </message>
 </context>
 <context>
+    <name>news_dock_widget</name>
+    <message>
+        <location filename="../src/news-dock-widget.cc" line="+44"/>
+        <source>Community News</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
+<context>
     <name>octave_dock_widget</name>
     <message>
-        <location filename="../src/octave-dock-widget.cc" line="+52"/>
-        <location line="+129"/>
+        <location filename="../src/octave-dock-widget.cc" line="+56"/>
+        <location line="+159"/>
         <source>Undock widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-119"/>
+        <location line="-149"/>
         <source>Hide widget</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+86"/>
+        <location line="+104"/>
         <source>Dock widget</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1746,8 +1919,23 @@
 <context>
     <name>octave_qscintilla</name>
     <message>
-        <location filename="../src/m-editor/octave-qscintilla.cc" line="+85"/>
-        <source>help</source>
+        <location filename="../src/m-editor/octave-qscintilla.cc" line="+127"/>
+        <source>Help on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Documentation on</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+2"/>
+        <source>Edit</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>&amp;Run Selection</source>
         <translation type="unfinished"></translation>
     </message>
 </context>
@@ -1887,6 +2075,11 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+13"/>
+        <source>Create non existing files without prompting</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+47"/>
         <source>Use custom file editor</source>
         <translation type="unfinished"></translation>
@@ -1922,7 +2115,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-744"/>
+        <location line="-757"/>
         <source>Show line numbers</source>
         <translation type="unfinished"></translation>
     </message>
@@ -1947,7 +2140,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+620"/>
+        <location line="+633"/>
         <source>emacs</source>
         <translation type="unfinished">emacs</translation>
     </message>
@@ -2037,7 +2230,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-1107"/>
+        <location line="-1120"/>
         <source>Icon set for dock widgets</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2052,7 +2245,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+1098"/>
+        <location line="+1111"/>
         <source>Socks5Proxy</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2077,14 +2270,14 @@
         <translation type="unfinished">Пароль:</translation>
     </message>
     <message>
-        <location filename="../src/settings-dialog.cc" line="+69"/>
+        <location filename="../src/settings-dialog.cc" line="+70"/>
         <location line="+4"/>
-        <location line="+334"/>
+        <location line="+346"/>
         <source>System setting</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="-268"/>
+        <location line="-279"/>
         <source>IBeam Cursor</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2099,7 +2292,7 @@
         <translation type="unfinished"></translation>
     </message>
     <message>
-        <location line="+129"/>
+        <location line="+140"/>
         <source>Difference to the default size</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2135,7 +2328,7 @@
 <context>
     <name>webinfo</name>
     <message>
-        <location filename="../src/qtinfo/webinfo.cc" line="+80"/>
+        <location filename="../src/qtinfo/webinfo.cc" line="+79"/>
         <source>Type here and press &apos;Return&apos; to search</source>
         <translation type="unfinished"></translation>
     </message>
@@ -2148,38 +2341,43 @@
 <context>
     <name>welcome_wizard</name>
     <message>
-        <location filename="../src/welcome-wizard.ui" line="+29"/>
+        <location filename="../src/welcome-wizard.cc" line="+40"/>
         <source>Welcome to GNU Octave</source>
         <translation type="unfinished"></translation>
     </message>
     <message>
+        <location line="+14"/>
+        <source>Welcome to Octave!</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+5"/>
+        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+3"/>
+        <source>The configuration file is stored in %1. If that file exists, you will not see this dialog when Octave starts again.</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
+        <location line="+23"/>
+        <source>&lt;html&gt;&lt;head&gt;
+&lt;style&gt;
+a:link { text-decoration: underline; color: #0000ff; }
+&lt;/style&gt;
+&lt;head/&gt;&lt;body&gt;
+&lt;p&gt;For more information about Octave:&lt;/p&gt;
+&lt;ul&gt;
+&lt;li&gt;Visit &lt;a href=&quot;http://octave.org&quot;&gt;http://octave.org&lt;/a&gt;&lt;/li&gt;
+&lt;li&gt;Get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;html&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document&lt;/li&gt;
+&lt;li&gt;Open the documentation browser of Octave GUI with the help menu&lt;/li&gt;
+&lt;/ul&gt;
+&lt;/body&gt;&lt;/html&gt;</source>
+        <translation type="unfinished"></translation>
+    </message>
+    <message>
         <location line="+20"/>
-        <source>You seem to be using the Octave graphical interface for the first  time on this computer.  Click &apos;Finish&apos; to write a configuration file  and launch Octave GUI. </source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>The configuration file is stored in __%1__. If that file exists, you will not see this dialog when Octave starts again.</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+10"/>
-        <source>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;For more information about Octave,&lt;/p&gt;
-&lt;ul&gt;
-&lt;li&gt;visit &lt;a href=&quot;http://octave.org&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;http://octave.org&lt;/span&gt;&lt;/a&gt;,&lt;/li&gt;
-&lt;li&gt; get the documentation online as &lt;a href=&quot;http://www.gnu.org/software/octave/doc/interpreter/index.html&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;html&lt;/span&gt;&lt;/a&gt;- or &lt;a href=&quot;http://www.gnu.org/software/octave/octave.pdf&quot;&gt;&lt;span style=&quot; text-decoration: underline; color:#0000ff;&quot;&gt;pdf&lt;/span&gt;&lt;/a&gt;-document, or&lt;/li&gt;
-&lt;li&gt;open the documentation browser of Octave GUI with the help menu.&lt;/li&gt;
-&lt;/ul&gt;
-&lt;/body&gt;&lt;/html&gt;</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="-27"/>
-        <source>Welcome to Octave!</source>
-        <translation type="unfinished"></translation>
-    </message>
-    <message>
-        <location line="+74"/>
         <source>Finish</source>
         <translation type="unfinished"></translation>
     </message>
--- a/libgui/qterminal/libqterminal/QTerminal.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/QTerminal.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -5,18 +5,19 @@
 
 This file is part of QTerminal.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QTerminal is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
--- a/libgui/qterminal/libqterminal/QTerminal.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/QTerminal.h	Tue Nov 05 12:27:42 2013 -0500
@@ -5,18 +5,19 @@
 
 This file is part of QTerminal.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QTerminal is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
@@ -56,11 +57,11 @@
   virtual QString selectedText () = 0;
 
   enum CursorType
-    {
-      UnderlineCursor,
-      BlockCursor,
-      IBeamCursor
-    };
+  {
+    UnderlineCursor,
+    BlockCursor,
+    IBeamCursor
+  };
 
   virtual void setCursorType (CursorType type, bool blinking)
   {
@@ -96,7 +97,7 @@
 
     _paste_action->setEnabled (cb->text().length() > 0);
     _copy_action->setEnabled (selectedText().length() > 0);
-    
+
     _contextMenu->move (mapToGlobal (at));
     _contextMenu->show ();
   }
@@ -112,12 +113,12 @@
     _contextMenu = new QMenu (this);
 
     _copy_action = _contextMenu->addAction (
-                             QIcon (":/actions/icons/editcopy.png"),
-                             tr ("Copy"), this, SLOT (copyClipboard ()));
+                     QIcon (":/actions/icons/editcopy.png"),
+                     tr ("Copy"), this, SLOT (copyClipboard ()));
 
     _paste_action = _contextMenu->addAction (
-                            QIcon (":/actions/icons/editpaste.png"),
-                            tr ("Paste"), this, SLOT (pasteClipboard ()));
+                      QIcon (":/actions/icons/editpaste.png"),
+                      tr ("Paste"), this, SLOT (pasteClipboard ()));
 
     _contextMenu->addSeparator ();
 
@@ -142,9 +143,9 @@
 
 private:
 
-    QMenu *_contextMenu;
-    QAction * _copy_action;
-    QAction * _paste_action;
+  QMenu *_contextMenu;
+  QAction * _copy_action;
+  QAction * _paste_action;
 };
 
 #endif // QTERMINAL_H
--- a/libgui/qterminal/libqterminal/unix/CharacterColor.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/CharacterColor.h	Tue Nov 05 12:27:42 2013 -0500
@@ -26,7 +26,7 @@
 #define CHARACTERCOLOR_H
 
 // Qt
-#include <QtGui/QColor>
+#include <QColor>
 
 /** 
  * An entry in a terminal display's color palette. 
--- a/libgui/qterminal/libqterminal/unix/Emulation.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Emulation.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -33,10 +33,10 @@
 #include <unistd.h>
 
 // Qt
-#include <QtGui/QApplication>
-#include <QtGui/QClipboard>
+#include <QApplication>
+#include <QClipboard>
 #include <QtCore/QHash>
-#include <QtGui/QKeyEvent>
+#include <QKeyEvent>
 #include <QtCore/QRegExp>
 #include <QtCore/QTextStream>
 #include <QtCore/QThread>
--- a/libgui/qterminal/libqterminal/unix/Emulation.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Emulation.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,7 +29,7 @@
 #include <stdio.h>
 
 // Qt 
-#include <QtGui/QKeyEvent>
+#include <QKeyEvent>
 
 #include <QtCore/QTextCodec>
 #include <QtCore/QTextStream>
--- a/libgui/qterminal/libqterminal/unix/Filter.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Filter.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -26,9 +26,9 @@
 #include <iostream>
 
 // Qt
-#include <QtGui/QAction>
-#include <QtGui/QApplication>
-#include <QtGui/QClipboard>
+#include <QAction>
+#include <QApplication>
+#include <QClipboard>
 #include <QtCore/QString>
 
 #include <QtCore/QSharedData>
--- a/libgui/qterminal/libqterminal/unix/Filter.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Filter.h	Tue Nov 05 12:27:42 2013 -0500
@@ -23,7 +23,7 @@
 #define FILTER_H
 
 // Qt
-#include <QtGui/QAction>
+#include <QAction>
 #include <QtCore/QList>
 #include <QtCore/QObject>
 #include <QtCore/QStringList>
--- a/libgui/qterminal/libqterminal/unix/KeyboardTranslator.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/KeyboardTranslator.h	Tue Nov 05 12:27:42 2013 -0500
@@ -27,7 +27,7 @@
 // Qt
 #include <QtCore/QHash>
 #include <QtCore/QList>
-#include <QtGui/QKeySequence>
+#include <QKeySequence>
 #include <QtCore/QMetaType>
 #include <QtCore/QVarLengthArray>
 #include <QtCore>
--- a/libgui/qterminal/libqterminal/unix/TerminalModel.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/TerminalModel.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -31,7 +31,7 @@
 #include <stdlib.h>
 
 // Qt
-#include <QtGui/QApplication>
+#include <QApplication>
 #include <QtCore/QByteRef>
 #include <QtCore/QDir>
 #include <QtCore/QFile>
--- a/libgui/qterminal/libqterminal/unix/TerminalView.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/TerminalView.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -27,20 +27,20 @@
 #include "unix/TerminalView.h"
 
 // Qt
-#include <QtGui/QApplication>
-#include <QtGui/QBoxLayout>
-#include <QtGui/QClipboard>
-#include <QtGui/QKeyEvent>
+#include <QApplication>
+#include <QBoxLayout>
+#include <QClipboard>
+#include <QKeyEvent>
 #include <QtCore/QEvent>
 #include <QtCore/QTime>
 #include <QtCore/QFile>
-#include <QtGui/QGridLayout>
-#include <QtGui/QLabel>
-#include <QtGui/QLayout>
-#include <QtGui/QPainter>
-#include <QtGui/QPixmap>
-#include <QtGui/QScrollBar>
-#include <QtGui/QStyle>
+#include <QGridLayout>
+#include <QLabel>
+#include <QLayout>
+#include <QPainter>
+#include <QPixmap>
+#include <QScrollBar>
+#include <QStyle>
 #include <QtCore>
 #include <QtGui>
 
@@ -661,9 +661,10 @@
 */
 void TerminalDisplay::setCursorPos(const int curx, const int cury)
 {
-  QPoint tL  = contentsRect().topLeft();
-  int    tLx = tL.x();
-  int    tLy = tL.y();
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bL  = contentsRect().bottomLeft();
+  int    tLx = bL.x();
+  int    tLy = bL.y()-2*_topMargin-_fontHeight*_lines+1;
 
   int xpos, ypos;
   ypos = _topMargin + tLy + _fontHeight*(cury-1) + _fontAscent;
@@ -715,7 +716,7 @@
   void* firstCharPos = &_image[ region.top() * this->_columns ];
   void* lastCharPos = &_image[ (region.top() + abs(lines)) * this->_columns ];
 
-  int top = _topMargin + (region.top() * _fontHeight);
+  int top = contentsRect().height() - _topMargin - (_lines * _fontHeight) + (region.top() * _fontHeight);
   int linesToMove = region.height() - abs(lines);
   int bytesToMove = linesToMove *
       this->_columns *
@@ -830,10 +831,10 @@
 
   int y,x,len;
 
-  QPoint tL  = contentsRect().topLeft();
-
-  int    tLx = tL.x();
-  int    tLy = tL.y();
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bL  = contentsRect().bottomLeft();
+  int    tLx = bL.x();
+  int    tLy = bL.y()-2*_topMargin-_fontHeight*_lines+1;
   _hasBlinker = false;
 
   CharacterColor cf;       // undefined
@@ -1098,8 +1099,13 @@
   if ( preeditLength == 0 )
     return QRect();
 
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bL  = contentsRect().bottomLeft();
+  int    tLx = bL.x();
+  int    tLy = bL.y()-2*_topMargin-_fontHeight*_lines+1;
+
   return QRect(_leftMargin + _fontWidth*cursorPosition().x(),
-               _topMargin + _fontHeight*cursorPosition().y(),
+               _topMargin + tLy + _fontHeight*cursorPosition().y(),
                _fontWidth*preeditLength,
                _fontHeight);
 }
@@ -1213,9 +1219,10 @@
 {
   //qDebug("%s %d drawContents and rect x=%d y=%d w=%d h=%d", __FILE__, __LINE__, rect.x(), rect.y(),rect.width(),rect.height());
 
-  QPoint topLeft  = contentsRect().topLeft();
-  // Take the topmost vertical position for the view.
-  int topLeftY = topLeft.y();
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bottomLeft  = contentsRect().bottomLeft();
+  int bottomLeftY = bottomLeft.y();
+  int topLeftY = bottomLeftY-2*_topMargin-_fontHeight*_lines+1;
 
   // In Konsole, the view has been centered. Don't do that here, since there
   // are strange hopping effects during a resize when the view does no match
@@ -1361,10 +1368,15 @@
 
 QRect TerminalView::imageToWidget(const QRect& imageArea) const
 {
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bL  = contentsRect().bottomLeft();
+  int    tLx = bL.x();
+  int    tLy = bL.y()-2*_topMargin-_fontHeight*_lines+1;
+
   //qDebug("%s %d imageToWidget", __FILE__, __LINE__);
   QRect result;
   result.setLeft( _leftMargin + _fontWidth * imageArea.left() );
-  result.setTop( _topMargin + _fontHeight * imageArea.top() );
+  result.setTop( _topMargin + tLy + _fontHeight * imageArea.top() );
   result.setWidth( _fontWidth * imageArea.width() );
   result.setHeight( _fontHeight * imageArea.height() );
 
@@ -1730,9 +1742,10 @@
       return;
     }
 
-  QPoint tL  = contentsRect().topLeft();
-  int    tLx = tL.x();
-  int    tLy = tL.y();
+  // Align contents with bottom of view by computing top coordinate
+  QPoint bL  = contentsRect().bottomLeft();
+  int    tLx = bL.x();
+  int    tLy = bL.y()-2*_topMargin-_fontHeight*_lines+1;
   int    scroll = _scrollBar->value();
 
   // we're in the process of moving the mouse with the left button pressed
--- a/libgui/qterminal/libqterminal/unix/TerminalView.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/TerminalView.h	Tue Nov 05 12:27:42 2013 -0500
@@ -25,9 +25,9 @@
 #define TERMINALVIEW_H
 
 // Qt
-#include <QtGui/QColor>
+#include <QColor>
 #include <QtCore/QPointer>
-#include <QtGui/QWidget>
+#include <QWidget>
 
 // Konsole
 #include "unix/Filter.h"
--- a/libgui/qterminal/libqterminal/unix/Vt102Emulation.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Vt102Emulation.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -40,7 +40,7 @@
 
 // Qt
 #include <QtCore/QEvent>
-#include <QtGui/QKeyEvent>
+#include <QKeyEvent>
 #include <QtCore/QByteRef>
 
 // Konsole
--- a/libgui/qterminal/libqterminal/unix/Vt102Emulation.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/unix/Vt102Emulation.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,7 +29,7 @@
 #include <stdio.h>
 
 // Qt 
-#include <QtGui/QKeyEvent>
+#include <QKeyEvent>
 #include <QtCore/QHash>
 #include <QtCore/QTimer>
 
--- a/libgui/qterminal/libqterminal/win32/QTerminalColors.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/win32/QTerminalColors.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -4,18 +4,19 @@
 
 This file is part of QConsole.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QConsole is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
--- a/libgui/qterminal/libqterminal/win32/QTerminalColors.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/win32/QTerminalColors.h	Tue Nov 05 12:27:42 2013 -0500
@@ -4,18 +4,19 @@
 
 This file is part of QConsole.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QConsole is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
--- a/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp	Tue Nov 05 12:27:42 2013 -0500
@@ -4,18 +4,19 @@
 
 This file is part of QConsole.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QConsole is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
--- a/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/qterminal/libqterminal/win32/QWinTerminalImpl.h	Tue Nov 05 12:27:42 2013 -0500
@@ -4,18 +4,19 @@
 
 This file is part of QConsole.
 
-Foobar is free software: you can redistribute it and/or modify
+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 3 of the License, or
 (at your option) any later version.
 
-QConsole is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+along with this program.  If not,
+see <http://www.gnu.org/licenses/>.
 
 */
 
--- a/libgui/src/color-picker.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/color-picker.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -31,9 +31,9 @@
 {
   _color = old_color;
   setFlat (true);
-  setFocusPolicy(Qt::NoFocus);  // no focus, would changes the color
+  setFocusPolicy (Qt::NoFocus);  // no focus, would changes the color
   update_button ();
-  connect(this, SIGNAL (clicked ()), SLOT (select_color ()));
+  connect (this, SIGNAL (clicked ()), SLOT (select_color ()));
 }
 
 // slot for bitton clicked: selct a new color using QColorDialog
@@ -56,12 +56,12 @@
   QWidget *p = parentWidget ();
 
   QString bordercolor
-    = p ? p->palette().text().color().name() : QString ("#000000");
+    = p ? p->palette ().text ().color ().name () : QString ("#000000");
 
-  QString css = QString("background-color: %1; border: 1px solid %2;")
-                        .arg(_color.name())
-                        .arg(bordercolor);
+  QString css = QString ("background-color: %1; border: 1px solid %2;")
+                .arg (_color.name ())
+                .arg (bordercolor);
 
-  setStyleSheet(css);
+  setStyleSheet (css);
   repaint ();
 }
--- a/libgui/src/color-picker.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/color-picker.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,7 @@
   Q_OBJECT
 
 public:
-  color_picker (QColor color = QColor(0,0,0), QWidget *parent = 0);
+  color_picker (QColor color = QColor (0,0,0), QWidget *parent = 0);
   QColor color () const { return _color; }
 
 private slots:
--- a/libgui/src/dialog.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/dialog.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -46,7 +46,8 @@
 
 QUIWidgetCreator::QUIWidgetCreator (void)
   : QObject (), dialog_result (-1), dialog_button (),
-    string_list (new QStringList ()), list_index (new QIntList ()), path_name (new QString ())
+    string_list (new QStringList ()), list_index (new QIntList ()),
+    path_name (new QString ())
 { }
 
 
@@ -264,7 +265,7 @@
   mainLayout->addLayout (buttonsLayout);
   setLayout (mainLayout);
   if (fixed_layout)
-    layout()->setSizeConstraint (QLayout::SetFixedSize);
+    layout ()->setSizeConstraint (QLayout::SetFixedSize);
 
   // If empty, make blank rather than use default OS behavior.
   setWindowTitle (title.isEmpty () ? " " : title);
@@ -330,64 +331,64 @@
 #define LINE_EDIT_FOLLOWS_PROMPT 0
 
 #if LINE_EDIT_FOLLOWS_PROMPT
-    // Prompt on left followed by input on right.
-    QGridLayout *promptInputLayout = new QGridLayout;
+  // Prompt on left followed by input on right.
+  QGridLayout *promptInputLayout = new QGridLayout;
 #else
-    // Prompt aligned above input.
-    QVBoxLayout *promptInputLayout = new QVBoxLayout;
+  // Prompt aligned above input.
+  QVBoxLayout *promptInputLayout = new QVBoxLayout;
 #endif
-    int N_gridrows = prompt.size ();
-    for (int i = 0; i < N_gridrows; i++)
-      {
-        QLabel *label = new QLabel (prompt.at (i));
-        QLineEdit *line_edit = new QLineEdit (defaults.at (i));
-        if (nr.at (i) > 0)
-          {
-            QSize qsize = line_edit->sizeHint ();
-            int intval = qsize.height () * nr.at (i);
-            line_edit->setFixedHeight (intval);
-            if (nc.at (i) > 0)
-              {
-                intval = qsize.height () * nc.at (i) / 2;
-                line_edit->setFixedWidth (intval);
-              }
-          }
-        input_line << line_edit;
+  int N_gridrows = prompt.size ();
+  for (int i = 0; i < N_gridrows; i++)
+    {
+      QLabel *label = new QLabel (prompt.at (i));
+      QLineEdit *line_edit = new QLineEdit (defaults.at (i));
+      if (nr.at (i) > 0)
+        {
+          QSize qsize = line_edit->sizeHint ();
+          int intval = qsize.height () * nr.at (i);
+          line_edit->setFixedHeight (intval);
+          if (nc.at (i) > 0)
+            {
+              intval = qsize.height () * nc.at (i) / 2;
+              line_edit->setFixedWidth (intval);
+            }
+        }
+      input_line << line_edit;
 #if LINE_EDIT_FOLLOWS_PROMPT
-        promptInputLayout->addWidget (label, i + 1, 0);
-        promptInputLayout->addWidget (line_edit, i + 1, 1);
+      promptInputLayout->addWidget (label, i + 1, 0);
+      promptInputLayout->addWidget (line_edit, i + 1, 1);
 #else
-        promptInputLayout->addWidget (label);
-        promptInputLayout->addWidget (line_edit);
+      promptInputLayout->addWidget (label);
+      promptInputLayout->addWidget (line_edit);
 #endif
-      }
+    }
 #undef LINE_EDIT_FOLLOWS_PROMPT
 
-    QPushButton *buttonOk = new QPushButton("OK");
-    QPushButton *buttonCancel = new QPushButton("Cancel");
-    QHBoxLayout *buttonsLayout = new QHBoxLayout;
-    buttonsLayout->addStretch (1);
-    buttonsLayout->addWidget (buttonOk);
-    buttonsLayout->addWidget (buttonCancel);
+  QPushButton *buttonOk = new QPushButton ("OK");
+  QPushButton *buttonCancel = new QPushButton ("Cancel");
+  QHBoxLayout *buttonsLayout = new QHBoxLayout;
+  buttonsLayout->addStretch (1);
+  buttonsLayout->addWidget (buttonOk);
+  buttonsLayout->addWidget (buttonCancel);
 
-    QVBoxLayout *mainLayout = new QVBoxLayout;
-    mainLayout->addLayout (promptInputLayout);
-    mainLayout->addSpacing (12);
-    mainLayout->addLayout (buttonsLayout);
-    setLayout (mainLayout);
+  QVBoxLayout *mainLayout = new QVBoxLayout;
+  mainLayout->addLayout (promptInputLayout);
+  mainLayout->addSpacing (12);
+  mainLayout->addLayout (buttonsLayout);
+  setLayout (mainLayout);
 
-    // If empty, make blank rather than use default OS behavior.
-    setWindowTitle (title.isEmpty () ? " " : title);
+  // If empty, make blank rather than use default OS behavior.
+  setWindowTitle (title.isEmpty () ? " " : title);
 
-    connect (buttonOk, SIGNAL (clicked ()),
-             this, SLOT (buttonOk_clicked ()));
+  connect (buttonOk, SIGNAL (clicked ()),
+           this, SLOT (buttonOk_clicked ()));
 
-    connect (buttonCancel, SIGNAL (clicked ()),
-             this, SLOT (buttonCancel_clicked ()));
+  connect (buttonCancel, SIGNAL (clicked ()),
+           this, SLOT (buttonCancel_clicked ()));
 
-    connect (this, SIGNAL (finish_input (const QStringList&, int)),
-             &uiwidget_creator,
-             SLOT (input_finished (const QStringList&, int)));
+  connect (this, SIGNAL (finish_input (const QStringList&, int)),
+           &uiwidget_creator,
+           SLOT (input_finished (const QStringList&, int)));
 }
 
 
@@ -413,7 +414,7 @@
   done (QDialog::Rejected);
 }
 
-  
+
 void
 InputDialog::reject (void)
 {
@@ -423,7 +424,7 @@
 FileDialog::FileDialog (const QStringList& name_filters, const QString& title,
                         const QString& filename, const QString& dirname,
                         const QString& multimode)
-  : QFileDialog()
+  : QFileDialog ()
 {
   // Create a NonModal message.
   setWindowModality (Qt::NonModal);
@@ -438,10 +439,10 @@
     }
   else if (multimode == "create") // uiputfile
     {
-      setFileMode (QFileDialog::AnyFile); 
+      setFileMode (QFileDialog::AnyFile);
       setAcceptMode (QFileDialog::AcceptSave);
       setOption (QFileDialog::DontConfirmOverwrite, false);
-      setConfirmOverwrite(true);
+      setConfirmOverwrite (true);
     }
   else if (multimode == "dir")    // uigetdir
     {
@@ -459,7 +460,7 @@
   setNameFilters (name_filters);
 
   selectFile (filename);
-  
+
   connect (this,
            SIGNAL (finish_input (const QStringList&, const QString&, int)),
            &uiwidget_creator,
@@ -476,7 +477,7 @@
 
 }
 
-void FileDialog::accept(void)
+void FileDialog::accept (void)
 {
   QStringList string_result;
   QString path;
@@ -495,7 +496,7 @@
 
   QStringList name_filters = nameFilters ();
   idx = name_filters.indexOf (selectedNameFilter ()) + 1;
-  
+
   // send the selected info
   emit finish_input (string_result, path, idx);
   done (QDialog::Accepted);
--- a/libgui/src/dialog.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/dialog.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_guifcn_dialog_h)
-#define octave_guifcn_dialog_h 1
+#if !defined (octave_dialog_h)
+#define octave_dialog_h 1
 
 #include <QMutex>
 #include <QWaitCondition>
@@ -104,8 +104,8 @@
 
   const QStringList *get_string_list (void) { return string_list; }
 
-  bool signal_filedialog (const QStringList& filters, const QString& title, 
-                          const QString& filename, const QString& dirname, 
+  bool signal_filedialog (const QStringList& filters, const QString& title,
+                          const QString& filename, const QString& dirname,
                           const QString &multimode)
   {
     emit create_filedialog (filters, title, filename, dirname, multimode);
@@ -252,7 +252,7 @@
 public:
 
   explicit FileDialog (const QStringList& filters,
-                       const QString& title, const QString& filename, 
+                       const QString& title, const QString& filename,
                        const QString& dirname, const QString& multimode);
 
 signals:
--- a/libgui/src/documentation-dock-widget.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/documentation-dock-widget.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,8 +37,8 @@
   _webinfo = new webinfo (this);
   setWidget (_webinfo);
 
-  connect (p, SIGNAL(show_doc_signal(const QString &)),
-   this, SLOT(showDoc(const QString &)));
+  connect (p, SIGNAL (show_doc_signal (const QString &)),
+           this, SLOT (showDoc (const QString &)));
 }
 
 void
--- a/libgui/src/files-dock-widget.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/files-dock-widget.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -63,7 +63,7 @@
   : octave_dock_widget (p)
 {
   setObjectName ("FilesDockWidget");
-  setWindowIcon (QIcon(":/actions/icons/logo.png"));
+  setWindowIcon (QIcon (":/actions/icons/logo.png"));
   set_title (tr ("File Browser"));
   setToolTip (tr ("Browse your files."));
 
@@ -84,53 +84,60 @@
 
   _current_directory = new QComboBox (_navigation_tool_bar);
   _current_directory->setToolTip (tr ("Enter the path or filename"));
-  _current_directory->setEditable(true);
-  _current_directory->setMaxCount(MaxMRUDirs);
-  _current_directory->setInsertPolicy(QComboBox::NoInsert);
-  _current_directory->setSizeAdjustPolicy (QComboBox::AdjustToMinimumContentsLengthWithIcon);
-  QSizePolicy sizePol(QSizePolicy::Expanding, QSizePolicy::Preferred);
-  _current_directory->setSizePolicy(sizePol);
+  _current_directory->setEditable (true);
+  _current_directory->setMaxCount (MaxMRUDirs);
+  _current_directory->setInsertPolicy (QComboBox::NoInsert);
+  _current_directory->setSizeAdjustPolicy (
+    QComboBox::AdjustToMinimumContentsLengthWithIcon);
+  QSizePolicy sizePol (QSizePolicy::Expanding, QSizePolicy::Preferred);
+  _current_directory->setSizePolicy (sizePol);
 
-  QAction *directory_up_action = new QAction (QIcon(":/actions/icons/up.png"),
+  QAction *directory_up_action = new QAction (QIcon (":/actions/icons/up.png"),
                                               "", _navigation_tool_bar);
   directory_up_action->setToolTip (tr ("Move up one directory"));
 
-  _sync_browser_directory_action = new QAction (QIcon(":/actions/icons/reload.png"),
-                                                tr("Show octave directory"), _navigation_tool_bar);
-  _sync_browser_directory_action->setToolTip (tr ("Goto current octave directory"));
+  _sync_browser_directory_action
+    = new QAction (QIcon (":/actions/icons/reload.png"),
+                   tr ("Show octave directory"), _navigation_tool_bar);
+  _sync_browser_directory_action->setToolTip (
+    tr ("Goto current octave directory"));
   _sync_browser_directory_action->setEnabled ("false");
 
-  _sync_octave_directory_action = new QAction (QIcon(":/actions/icons/ok.png"),
-                                               tr("Set octave directory"), _navigation_tool_bar);
-  _sync_octave_directory_action->setToolTip (tr ("Set octave directroy to current browser directory"));
+  _sync_octave_directory_action
+    = new QAction (QIcon (":/actions/icons/ok.png"),
+                   tr ("Set octave directory"), _navigation_tool_bar);
+  _sync_octave_directory_action->setToolTip (
+    tr ("Set octave directroy to current browser directory"));
   _sync_octave_directory_action->setEnabled ("false");
 
-  QToolButton * popdown_button = new QToolButton();
-  popdown_button->setToolTip(tr ("Actions on current directory"));
-  QMenu * popdown_menu = new QMenu();
+  QToolButton * popdown_button = new QToolButton ();
+  popdown_button->setToolTip (tr ("Actions on current directory"));
+  QMenu * popdown_menu = new QMenu ();
   popdown_menu->addAction (QIcon (":/actions/icons/home.png"),
                            tr ("Show Home directory"),
                            this, SLOT (popdownmenu_home (bool)));
-  popdown_menu->addAction(_sync_browser_directory_action);
-  popdown_menu->addAction(_sync_octave_directory_action);
-  popdown_button->setMenu(popdown_menu);
-  popdown_button->setPopupMode(QToolButton::InstantPopup);
-  popdown_button->setDefaultAction(new QAction(QIcon(":/actions/icons/gear.png"),"", _navigation_tool_bar));
+  popdown_menu->addAction (_sync_browser_directory_action);
+  popdown_menu->addAction (_sync_octave_directory_action);
+  popdown_button->setMenu (popdown_menu);
+  popdown_button->setPopupMode (QToolButton::InstantPopup);
+  popdown_button->setDefaultAction (new QAction (
+                                      QIcon (":/actions/icons/gear.png"), "",
+                                      _navigation_tool_bar));
 
-  popdown_menu->addSeparator();
+  popdown_menu->addSeparator ();
   popdown_menu->addAction (QIcon (":/actions/icons/search.png"),
                            tr ("Search directory"),
                            this, SLOT (popdownmenu_search_dir (bool)));
-  popdown_menu->addSeparator();
-  popdown_menu->addAction( tr ("Find Files ..."),
-                          this, SLOT(popdownmenu_findfiles(bool)));
-  popdown_menu->addSeparator();
-  popdown_menu->addAction(QIcon(":/actions/icons/filenew.png"),
-                          tr ("New File"),
-                          this, SLOT(popdownmenu_newfile(bool)));
-  popdown_menu->addAction(QIcon(":/actions/icons/folder_new.png"),
-                          tr ("New Directory"),
-                          this, SLOT(popdownmenu_newdir(bool)));
+  popdown_menu->addSeparator ();
+  popdown_menu->addAction ( tr ("Find Files ..."),
+                            this, SLOT (popdownmenu_findfiles (bool)));
+  popdown_menu->addSeparator ();
+  popdown_menu->addAction (QIcon (":/actions/icons/filenew.png"),
+                           tr ("New File"),
+                           this, SLOT (popdownmenu_newfile (bool)));
+  popdown_menu->addAction (QIcon (":/actions/icons/folder_new.png"),
+                           tr ("New Directory"),
+                           this, SLOT (popdownmenu_newdir (bool)));
 
   _navigation_tool_bar->addWidget (_current_directory);
   _navigation_tool_bar->addAction (directory_up_action);
@@ -148,7 +155,7 @@
   _file_system_model = new QFileSystemModel (this);
   _file_system_model->setFilter (QDir::NoDotAndDotDot | QDir::AllEntries);
   QModelIndex rootPathIndex = _file_system_model->setRootPath (
-                                                  curr_dir.absolutePath ());
+                                curr_dir.absolutePath ());
 
   // Attach the model to the QTreeView and set the root index
   _file_tree_view = new FileTreeViewer (container);
@@ -162,26 +169,31 @@
 
   // get sort column and order as well as cloumn state (order and width)
   QSettings *settings = resource_manager::get_settings ();
-  // FIXME -- what should happen if settings is 0?
+  // FIXME: what should happen if settings is 0?
   _file_tree_view->sortByColumn (
-              settings->value ("filesdockwidget/sort_files_by_column",0).toInt (),
-              static_cast<Qt::SortOrder>(settings->value ("filesdockwidget/sort_files_by_order",Qt::AscendingOrder).toUInt ())
+    settings->value ("filesdockwidget/sort_files_by_column",0).toInt (),
+    static_cast<Qt::SortOrder>
+    (settings->value ("filesdockwidget/sort_files_by_order",
+                      Qt::AscendingOrder).toUInt ())
   );
-  _file_tree_view->header ()->restoreState (settings->value ("filesdockwidget/column_state").toByteArray ());
-  
-  QStringList mru_dirs = settings->value ("filesdockwidget/mru_dir_list").toStringList ();
-  _current_directory->addItems(mru_dirs);
+  _file_tree_view->header ()->restoreState (
+    settings->value ("filesdockwidget/column_state").toByteArray ());
 
-  _current_directory->setEditText(_file_system_model->fileInfo (rootPathIndex).
-                              absoluteFilePath ());
+  QStringList mru_dirs =
+    settings->value ("filesdockwidget/mru_dir_list").toStringList ();
+  _current_directory->addItems (mru_dirs);
+
+  _current_directory->setEditText (
+    _file_system_model->fileInfo (rootPathIndex).  absoluteFilePath ());
 
   connect (_file_tree_view, SIGNAL (doubleClicked (const QModelIndex &)),
            this, SLOT (item_double_clicked (const QModelIndex &)));
 
   // add context menu to tree_view
-  _file_tree_view->setContextMenuPolicy(Qt::CustomContextMenu);
-  connect(_file_tree_view, SIGNAL(customContextMenuRequested(const QPoint &)), 
-           this, SLOT(contextmenu_requested(const QPoint &)));
+  _file_tree_view->setContextMenuPolicy (Qt::CustomContextMenu);
+  connect (_file_tree_view,
+           SIGNAL (customContextMenuRequested (const QPoint &)),
+           this, SLOT (contextmenu_requested (const QPoint &)));
 
   // Layout the widgets vertically with the toolbar on top
   QVBoxLayout *vbox_layout = new QVBoxLayout ();
@@ -192,10 +204,11 @@
 
   container->setLayout (vbox_layout);
 
-  // TODO: Add right-click contextual menus for copying, pasting, deleting files (and others)
+  // TODO: Add right-click contextual menus for copying, pasting,
+  //       deleting files (and others).
 
-  connect (_current_directory->lineEdit(), SIGNAL (returnPressed ()),
-            this, SLOT (accept_directory_line_edit ()));
+  connect (_current_directory->lineEdit (), SIGNAL (returnPressed ()),
+           this, SLOT (accept_directory_line_edit ()));
 
   connect (_current_directory, SIGNAL (activated (const QString &)),
            this, SLOT (set_current_directory (const QString &)));
@@ -207,7 +220,7 @@
   _current_directory->setCompleter (completer);
 
   setFocusProxy (_current_directory);
-  
+
   _sync_octave_dir = true;   // default, overwirtten with notice_settings ()
   _octave_dir = "";
 }
@@ -219,13 +232,14 @@
   Qt::SortOrder sort_order = _file_tree_view->header ()->sortIndicatorOrder ();
   settings->setValue ("filesdockwidget/sort_files_by_column", sort_column);
   settings->setValue ("filesdockwidget/sort_files_by_order", sort_order);
-  settings->setValue ("filesdockwidget/column_state", _file_tree_view->header ()->saveState ());
+  settings->setValue ("filesdockwidget/column_state",
+                      _file_tree_view->header ()->saveState ());
 
   QStringList dirs;
-  for(int i=0; i< _current_directory->count(); i++)
-  {
-    dirs.append(_current_directory->itemText(i));
-  }
+  for (int i=0; i< _current_directory->count (); i++)
+    {
+      dirs.append (_current_directory->itemText (i));
+    }
   settings->setValue ("filesdockwidget/mru_dir_list", dirs);
 
   settings->sync ();
@@ -254,7 +268,9 @@
 void
 files_dock_widget::change_directory_up (void)
 {
-  QDir dir = QDir (_file_system_model->filePath (_file_tree_view->rootIndex ()));
+  QDir dir
+    = QDir (_file_system_model->filePath (_file_tree_view->rootIndex ()));
+
   dir.cdUp ();
   display_directory (dir.absolutePath ());
 }
@@ -262,7 +278,9 @@
 void
 files_dock_widget::do_sync_octave_directory (void)
 {
-  QDir dir = QDir (_file_system_model->filePath (_file_tree_view->rootIndex ()));
+  QDir dir
+    = QDir (_file_system_model->filePath (_file_tree_view->rootIndex ()));
+
   emit displayed_directory_changed (dir.absolutePath ());
 }
 
@@ -293,16 +311,18 @@
           _file_system_model->setRootPath (fileInfo.absoluteFilePath ());
           _file_system_model->sort (0, Qt::AscendingOrder);
           if (_sync_octave_dir && set_octave_dir)
-            process_set_current_dir(fileInfo.absoluteFilePath ());
+            process_set_current_dir (fileInfo.absoluteFilePath ());
 
-          // see if its in the list, and if it is, remove it and then, put at top of the list
-          int index = _current_directory->findText(fileInfo.absoluteFilePath ());
-          if(index != -1)
-          {
-             _current_directory->removeItem(index);
-          }
-          _current_directory->insertItem(0, fileInfo.absoluteFilePath ());
-          _current_directory->setCurrentIndex(0);
+          // see if its in the list, and if it is,
+          // remove it and then, put at top of the list
+          int index
+            = _current_directory->findText (fileInfo.absoluteFilePath ());
+          if (index != -1)
+            {
+              _current_directory->removeItem (index);
+            }
+          _current_directory->insertItem (0, fileInfo.absoluteFilePath ());
+          _current_directory->setCurrentIndex (0);
         }
       else
         {
@@ -330,34 +350,34 @@
   QDesktopServices::openUrl (QUrl::fromLocalFile (file));
 }
 
-void 
+void
 files_dock_widget::contextmenu_requested (const QPoint& mpos)
 {
 
-  QMenu menu(this);
+  QMenu menu (this);
 
   QModelIndex index = _file_tree_view->indexAt (mpos);
   //QAbstractItemModel *m = _file_tree_view->model ();
 
-  if (index.isValid())
-    { 
-      QFileInfo info = _file_system_model->fileInfo(index);
+  if (index.isValid ())
+    {
+      QFileInfo info = _file_system_model->fileInfo (index);
 
-      menu.addAction (QIcon (":/actions/icons/fileopen.png"), tr("Open"),
-                     this, SLOT(contextmenu_open(bool)));
+      menu.addAction (QIcon (":/actions/icons/fileopen.png"), tr ("Open"),
+                      this, SLOT (contextmenu_open (bool)));
 
-      menu.addAction (tr("Open in Default Application"),
+      menu.addAction (tr ("Open in Default Application"),
                       this, SLOT (contextmenu_open_in_app (bool)));
 
-      menu.addAction (tr("Copy Selection to Clipboard"),
+      menu.addAction (tr ("Copy Selection to Clipboard"),
                       this, SLOT (contextmenu_copy_selection (bool)));
 
       if (info.isFile () && info.suffix () == "m")
         menu.addAction (QIcon (":/actions/icons/artsbuilderexecute.png"),
-                        tr("Run"), this, SLOT(contextmenu_run(bool)));
+                        tr ("Run"), this, SLOT (contextmenu_run (bool)));
 
       if (info.isFile ())
-        menu.addAction (tr("Load Data"), this, SLOT(contextmenu_load(bool)));
+        menu.addAction (tr ("Load Data"), this, SLOT (contextmenu_load (bool)));
 
       if (info.isDir ())
         {
@@ -366,26 +386,27 @@
                           tr ("Set Current Directory"),
                           this, SLOT (contextmenu_setcurrentdir (bool)));
           menu.addSeparator ();
-          menu.addAction (tr ("Find Files ..."), this, SLOT(contextmenu_findfiles(bool)));
+          menu.addAction (tr ("Find Files ..."), this,
+                          SLOT (contextmenu_findfiles (bool)));
         }
 
-      menu.addSeparator();
-      menu.addAction (tr ("Rename"), this, SLOT(contextmenu_rename(bool)));
-      menu.addAction (QIcon(":/actions/icons/editdelete.png"), tr("Delete"),
-                      this, SLOT(contextmenu_delete(bool)));
+      menu.addSeparator ();
+      menu.addAction (tr ("Rename"), this, SLOT (contextmenu_rename (bool)));
+      menu.addAction (QIcon (":/actions/icons/editdelete.png"), tr ("Delete"),
+                      this, SLOT (contextmenu_delete (bool)));
 
-      if (info.isDir())
+      if (info.isDir ())
         {
-          menu.addSeparator();
+          menu.addSeparator ();
           menu.addAction (QIcon (":/actions/icons/filenew.png"),
                           tr ("New File"),
-                          this, SLOT(contextmenu_newfile(bool)));
+                          this, SLOT (contextmenu_newfile (bool)));
           menu.addAction (QIcon (":/actions/icons/folder_new.png"),
-                          tr("New Directory"),
-                          this, SLOT(contextmenu_newdir(bool)));
+                          tr ("New Directory"),
+                          this, SLOT (contextmenu_newdir (bool)));
         }
 
-      menu.exec(_file_tree_view->mapToGlobal(mpos));
+      menu.exec (_file_tree_view->mapToGlobal (mpos));
 
     }
 }
@@ -397,9 +418,9 @@
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  for( QModelIndexList::iterator it = rows.begin (); it != rows.end (); it++)
+  for ( QModelIndexList::iterator it = rows.begin (); it != rows.end (); it++)
     {
-      item_double_clicked(*it);
+      item_double_clicked (*it);
     }
 }
 
@@ -443,7 +464,7 @@
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
+      QFileInfo info = _file_system_model->fileInfo (index);
 
       emit load_file_signal (info.fileName ());
     }
@@ -459,146 +480,151 @@
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
+      QFileInfo info = _file_system_model->fileInfo (index);
       emit run_file_signal (info);
     }
 }
 
-void 
+void
 files_dock_widget::contextmenu_rename (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
-  if(rows.size() > 0)
+  if (rows.size () > 0)
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
-      QDir path = info.absoluteDir();
-      QString old_name = info.fileName();
+      QFileInfo info = _file_system_model->fileInfo (index);
+      QDir path = info.absoluteDir ();
+      QString old_name = info.fileName ();
       bool ok;
 
-      QString new_name = QInputDialog::getText (this, tr("Rename file/directory"), 
-                                                tr("Rename file/directory:\n") + old_name + tr("\n to: "),
-                                                QLineEdit::Normal, old_name, &ok);
-      if(ok && new_name.length()>0)
+      QString new_name
+        = QInputDialog::getText (this, tr ("Rename file/directory"),
+                                 tr ("Rename file/directory:\n")
+                                 + old_name + tr ("\n to: "),
+                                 QLineEdit::Normal, old_name, &ok);
+      if (ok && new_name.length () > 0)
         {
-          new_name = path.absolutePath() + "/" + new_name;
-          old_name = path.absolutePath() + "/" + old_name;
-          path.rename(old_name, new_name);
-          _file_system_model->revert();
+          new_name = path.absolutePath () + "/" + new_name;
+          old_name = path.absolutePath () + "/" + old_name;
+          path.rename (old_name, new_name);
+          _file_system_model->revert ();
         }
     }
 
 }
 
-void 
+void
 files_dock_widget::contextmenu_delete (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  for( QModelIndexList::iterator it = rows.begin (); it != rows.end (); it++)
+  for ( QModelIndexList::iterator it = rows.begin (); it != rows.end (); it++)
     {
       QModelIndex index = *it;
 
-      QFileInfo info = _file_system_model->fileInfo(index);
-
-      if(QMessageBox::question(this, tr("Delete file/directory"), 
-                               tr("Are you sure you want to delete\n") + info.filePath(),
-                               QMessageBox::Yes|QMessageBox::No) == QMessageBox::Yes) 
-        {
-           if(info.isDir())
-             {
-               // see if direcory is empty
-               QDir path(info.absoluteFilePath());
-               QList<QFileInfo> fileLst = path.entryInfoList(QDir::AllEntries | QDir::NoDotAndDotDot);
+      QFileInfo info = _file_system_model->fileInfo (index);
 
-               if(fileLst.count() != 0)
-                 QMessageBox::warning(this, tr("Delete file/directory"),
-                                      tr("Can not delete a directory that is not empty"));
-               else
-                 _file_system_model->rmdir(index);
-             }
-           else
-             {
-               _file_system_model->remove(index);
-             }
+      if (QMessageBox::question (this, tr ("Delete file/directory"),
+                                 tr ("Are you sure you want to delete\n")
+                                 + info.filePath (),
+                                 QMessageBox::Yes|QMessageBox::No)
+          == QMessageBox::Yes)
+        {
+          if (info.isDir ())
+            {
+              // see if direcory is empty
+              QDir path (info.absoluteFilePath ());
+              QList<QFileInfo> fileLst = path.entryInfoList (QDir::AllEntries |
+                                         QDir::NoDotAndDotDot);
 
-           _file_system_model->revert();
+              if (fileLst.count () != 0)
+                QMessageBox::warning (this, tr ("Delete file/directory"),
+                                      tr ("Can not delete a directory that is not empty"));
+              else
+                _file_system_model->rmdir (index);
+            }
+          else
+            {
+              _file_system_model->remove (index);
+            }
+
+          _file_system_model->revert ();
 
         }
     }
 }
 
-void 
+void
 files_dock_widget::contextmenu_newfile (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  if(rows.size() > 0)
+  if (rows.size () > 0)
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
-      QString parent_dir = info.filePath();
+      QFileInfo info = _file_system_model->fileInfo (index);
+      QString parent_dir = info.filePath ();
 
-      process_new_file(parent_dir);
+      process_new_file (parent_dir);
     }
 }
 
-void 
+void
 files_dock_widget::contextmenu_newdir (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  if(rows.size() > 0)
+  if (rows.size () > 0)
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
-      QString parent_dir = info.filePath();
+      QFileInfo info = _file_system_model->fileInfo (index);
+      QString parent_dir = info.filePath ();
 
-      process_new_dir(parent_dir);
+      process_new_dir (parent_dir);
     }
 }
 
-void 
+void
 files_dock_widget::contextmenu_setcurrentdir (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  if(rows.size() > 0)
+  if (rows.size () > 0)
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
+      QFileInfo info = _file_system_model->fileInfo (index);
 
-      if(info.isDir())
+      if (info.isDir ())
         {
-          process_set_current_dir(info.absoluteFilePath ());
+          process_set_current_dir (info.absoluteFilePath ());
         }
     }
 }
 
-void 
+void
 files_dock_widget::contextmenu_findfiles (bool)
 {
   QItemSelectionModel *m = _file_tree_view->selectionModel ();
   QModelIndexList rows = m->selectedRows ();
 
-  if(rows.size() > 0)
+  if (rows.size () > 0)
     {
       QModelIndex index = rows[0];
 
-      QFileInfo info = _file_system_model->fileInfo(index);
+      QFileInfo info = _file_system_model->fileInfo (index);
 
-      if(info.isDir())
+      if (info.isDir ())
         {
-          process_find_files(info.absoluteFilePath ());
+          process_find_files (info.absoluteFilePath ());
         }
     }
 }
@@ -615,16 +641,22 @@
 
   // file names are always shown, other columns can be hidden by settings
   _file_tree_view->setColumnHidden (0, false);
-  _file_tree_view->setColumnHidden (1, !settings->value ("filesdockwidget/showFileSize",false).toBool ());
-  _file_tree_view->setColumnHidden (2, !settings->value ("filesdockwidget/showFileType",false).toBool ());
-  _file_tree_view->setColumnHidden (3, !settings->value ("filesdockwidget/showLastModified",false).toBool ());
-  _file_tree_view->setAlternatingRowColors (settings->value ("filesdockwidget/useAlternatingRowColors",true).toBool ());
+  _file_tree_view->setColumnHidden (1,
+    !settings->value ("filesdockwidget/showFileSize",false).toBool ());
+  _file_tree_view->setColumnHidden (2,
+    !settings->value ("filesdockwidget/showFileType",false).toBool ());
+  _file_tree_view->setColumnHidden (3,
+    !settings->value ("filesdockwidget/showLastModified",false).toBool ());
+  _file_tree_view->setAlternatingRowColors (
+    settings->value ("filesdockwidget/useAlternatingRowColors",true).toBool ());
   if (settings->value ("filesdockwidget/showHiddenFiles",false).toBool ())
     {
       // TODO: React on option for hidden files.
     }
-  // enalbe the buttons to sync octave/browser dir only if this is not done by default
-  _sync_octave_dir = settings->value ("filesdockwidget/sync_octave_directory",false).toBool ();
+  // enable the buttons to sync octave/browser dir
+  // only if this is not done by default
+  _sync_octave_dir
+    = settings->value ("filesdockwidget/sync_octave_directory",false).toBool ();
   _sync_octave_directory_action->setEnabled (!_sync_octave_dir);
   _sync_browser_directory_action->setEnabled (!_sync_octave_dir);
 
@@ -637,9 +669,9 @@
 files_dock_widget::popdownmenu_home (bool)
 {
   QString dir = qgetenv ("HOME");
-  if (dir.isEmpty())
+  if (dir.isEmpty ())
     dir = QDir::homePath ();
-  
+
   set_current_directory (dir);
 }
 
@@ -647,27 +679,28 @@
 files_dock_widget::popdownmenu_search_dir (bool)
 {
   QString dir = QFileDialog::getExistingDirectory
-    (this, tr ("Set directory of file browser"),_file_system_model->rootPath(),
-     QFileDialog::DontUseNativeDialog);
+                  (this, tr ("Set directory of file browser"),
+                   _file_system_model->rootPath (),
+                   QFileDialog::DontUseNativeDialog);
   set_current_directory (dir);
 }
 
 void
 files_dock_widget::popdownmenu_findfiles (bool)
 {
-      process_find_files(_file_system_model->rootPath());
+  process_find_files (_file_system_model->rootPath ());
 }
 
 void
 files_dock_widget::popdownmenu_newdir (bool)
 {
-      process_new_dir(_file_system_model->rootPath());
+  process_new_dir (_file_system_model->rootPath ());
 }
 
 void
 files_dock_widget::popdownmenu_newfile (bool)
 {
-      process_new_file(_file_system_model->rootPath());
+  process_new_file (_file_system_model->rootPath ());
 }
 
 void
@@ -675,15 +708,16 @@
 {
   bool ok;
 
-  QString name = QInputDialog::getText (this, tr("Create File"), tr("Create file in\n") + parent_dir,
-                                       QLineEdit::Normal, "New File.txt", &ok);
-  if(ok && name.length()>0)
+  QString name = QInputDialog::getText (this, tr ("Create File"),
+                                        tr ("Create file in\n") + parent_dir,
+                                        QLineEdit::Normal, "New File.txt", &ok);
+  if (ok && name.length () > 0)
     {
       name = parent_dir + "/" + name;
 
-      QFile file(name);
-      file.open(QIODevice::WriteOnly);
-      _file_system_model->revert();
+      QFile file (name);
+      file.open (QIODevice::WriteOnly);
+      _file_system_model->revert ();
     }
 }
 
@@ -692,24 +726,26 @@
 {
   bool ok;
 
-  QString name = QInputDialog::getText (this, tr("Create Directory"), tr("Create folder in\n") + parent_dir,
-                                       QLineEdit::Normal, "New Directory", &ok);
-  if(ok && name.length()>0)
+  QString name = QInputDialog::getText (this, tr ("Create Directory"),
+                                        tr ("Create folder in\n") + parent_dir,
+                                        QLineEdit::Normal, "New Directory",
+                                        &ok);
+  if (ok && name.length () > 0)
     {
-     QDir dir(parent_dir);
-      dir.mkdir(name);
-      _file_system_model->revert();
+      QDir dir (parent_dir);
+      dir.mkdir (name);
+      _file_system_model->revert ();
     }
 }
 
-void files_dock_widget::process_set_current_dir(const QString & dir)
+void files_dock_widget::process_set_current_dir (const QString & dir)
 {
   emit displayed_directory_changed (dir);
 }
 
-void files_dock_widget::process_find_files(const QString & dir)
+void files_dock_widget::process_find_files (const QString & dir)
 {
-  emit find_files_signal(dir);
+  emit find_files_signal (dir);
 }
 
 void
@@ -737,7 +773,7 @@
       QClipboard *clipboard = QApplication::clipboard ();
       QString str =  clipboard->text ();
       QLineEdit * edit = _current_directory->lineEdit ();
-      if (edit && str.length () > 0) 
+      if (edit && str.length () > 0)
         edit->insert (str);
     }
 }
--- a/libgui/src/files-dock-widget.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/files-dock-widget.h	Tue Nov 05 12:27:42 2013 -0500
@@ -97,8 +97,8 @@
   void contextmenu_findfiles (bool);
 
   /* popdown menu options */
-  void popdownmenu_newfile(bool);
-  void popdownmenu_newdir(bool);
+  void popdownmenu_newfile (bool);
+  void popdownmenu_newdir (bool);
   void popdownmenu_search_dir (bool);
   void popdownmenu_findfiles (bool);
   void popdownmenu_home (bool);
@@ -125,10 +125,10 @@
   void find_files_signal (const QString &startdir);
 
 private:
-  void process_new_file(const QString &parent_name);
-  void process_new_dir(const QString &parent_name);
-  void process_set_current_dir(const QString &parent_name);
-  void process_find_files(const QString &dir_name);
+  void process_new_file (const QString &parent_name);
+  void process_new_dir (const QString &parent_name);
+  void process_set_current_dir (const QString &parent_name);
+  void process_find_files (const QString &dir_name);
 
   /** set a new directory or open a file **/
   void display_directory (const QString& dir, bool set_octave_dir = true);
--- a/libgui/src/find-files-dialog.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/find-files-dialog.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -42,15 +42,15 @@
 #include <QGroupBox>
 
 find_files_dialog::find_files_dialog (QWidget * p)
- : QDialog (p)
+  : QDialog (p)
 {
-  setWindowTitle (tr("Find Files"));
+  setWindowTitle (tr ("Find Files"));
   setWindowIcon (QIcon (":/actions/icons/search.png"));
 
   _dir_iterator = 0;
 
   _timer = new QTimer (this);
-  connect(_timer, SIGNAL(timeout()), this, SLOT(look_for_files()));
+  connect (_timer, SIGNAL (timeout ()), this, SLOT (look_for_files ()));
 
   QSettings *settings = resource_manager::get_settings ();
 
@@ -58,77 +58,90 @@
   _file_name_edit = new QLineEdit;
   _file_name_edit->setToolTip (tr ("Enter the filename expression"));
 
-  _file_name_edit->setText (settings->value ("findfiles/file_name","*").toString ());
+  _file_name_edit->setText (settings->value ("findfiles/file_name",
+                                             "*").toString ());
   file_name_label->setBuddy (_file_name_edit);
 
   QLabel * start_dir_label = new QLabel (tr ("Start in:"));
 
   _start_dir_edit = new QLineEdit;
-  _start_dir_edit->setText (settings->value ("findfiles/start_dir",QDir::currentPath()).toString());
+  _start_dir_edit->setText (settings->value ("findfiles/start_dir",
+                            QDir::currentPath ()).toString ());
   _start_dir_edit->setToolTip (tr ("Enter the start directory"));
   start_dir_label->setBuddy (_start_dir_edit);
 
   _browse_button = new QPushButton (tr ("Browse..."));
   _browse_button->setToolTip (tr ("Browse for start directory"));
-  connect(_browse_button, SIGNAL(clicked()), this, SLOT(browse_folders()));
+  connect (_browse_button, SIGNAL (clicked ()), this, SLOT (browse_folders ()));
 
   _recurse_dirs_check = new QCheckBox (tr ("Recurse directories"));
-  _recurse_dirs_check->setChecked (settings->value ("findfiles/recurse_dirs", false).toBool());
-  _recurse_dirs_check->setToolTip (tr ("Search recursively through directories for matching files"));
+  _recurse_dirs_check->setChecked (settings->value ("findfiles/recurse_dirs",
+                                                    false).toBool ());
+  _recurse_dirs_check->setToolTip (
+    tr ("Search recursively through directories for matching files"));
 
   _include_dirs_check = new QCheckBox (tr ("Include directories"));
-  _include_dirs_check->setChecked (settings->value ("findfiles/include_dirs", false).toBool());
-  _include_dirs_check->setToolTip (tr ("Include matching directories in search results"));
+  _include_dirs_check->setChecked (settings->value ("findfiles/include_dirs",
+                                                    false).toBool ());
+  _include_dirs_check->setToolTip (
+    tr ("Include matching directories in search results"));
 
   _name_case_check = new QCheckBox (tr ("Name case insensitive"));
-  _name_case_check->setChecked (settings->value ("findfiles/name_case", false).toBool());
+  _name_case_check->setChecked (settings->value ("findfiles/name_case",
+                                                 false).toBool ());
   _name_case_check->setToolTip (tr ("Set matching name is case insensitive"));
 
-  _contains_text_check = new QCheckBox (tr("Contains text:"));
+  _contains_text_check = new QCheckBox (tr ("Contains text:"));
   _contains_text_check->setToolTip (tr ("Search must match text"));
-  _contains_text_check->setChecked (settings->value ("findfiles/check_text", false).toBool());
+  _contains_text_check->setChecked (settings->value ("findfiles/check_text",
+                                                      false).toBool ());
 
   _contains_text_edit = new QLineEdit ();
   _contains_text_edit->setToolTip (tr ("Text to match"));
-  _contains_text_edit->setText (settings->value ("findfiles/contains_text", "").toString());
+  _contains_text_edit->setText (settings->value ("findfiles/contains_text",
+                                                 "").toString ());
 
-  _content_case_check = new QCheckBox (tr("Text case insensitive"));
-  _content_case_check->setChecked (settings->value ("findfiles/content_case", false).toBool());
+  _content_case_check = new QCheckBox (tr ("Text case insensitive"));
+  _content_case_check->setChecked (settings->value ("findfiles/content_case",
+                                                    false).toBool ());
   _content_case_check->setToolTip (tr ("Set text content is case insensitive"));
-  
+
   find_files_model * model = new find_files_model (this);
 
   _file_list = new QTableView;
   _file_list->setWordWrap (false);
   _file_list->setModel (model);
   _file_list->setShowGrid (false);
-  _file_list->setSelectionBehavior(QAbstractItemView::SelectRows);
-  _file_list->setSelectionMode(QAbstractItemView::SingleSelection);
-  _file_list->setAlternatingRowColors(true);
+  _file_list->setSelectionBehavior (QAbstractItemView::SelectRows);
+  _file_list->setSelectionMode (QAbstractItemView::SingleSelection);
+  _file_list->setAlternatingRowColors (true);
   _file_list->setToolTip (tr ("Search results"));
   _file_list->setSortingEnabled (true);
-  _file_list->horizontalHeader ()->restoreState (settings->value ("findfiles/column_state").toByteArray ());
+  _file_list->horizontalHeader ()->restoreState (
+    settings->value ("findfiles/column_state").toByteArray ());
   _file_list->horizontalHeader ()->setSortIndicatorShown (true);
   _file_list->horizontalHeader ()->setClickable (true);
   _file_list->horizontalHeader ()->setStretchLastSection (true);
   _file_list->sortByColumn (
-              settings->value ("findfiles/sort_files_by_column",0).toInt (),
-              static_cast<Qt::SortOrder>(settings->value ("findfiles/sort_files_by_order",Qt::AscendingOrder).toUInt ()));
+                settings->value ("findfiles/sort_files_by_column",0).toInt (),
+                static_cast<Qt::SortOrder>
+                  (settings->value ("findfiles/sort_files_by_order",
+                                    Qt::AscendingOrder).toUInt ()));
 
-  connect (_file_list, SIGNAL(doubleClicked(const QModelIndex&)),
-           this,       SLOT(item_double_clicked(const QModelIndex &)));
+  connect (_file_list, SIGNAL (doubleClicked (const QModelIndex&)),
+           this,       SLOT (item_double_clicked (const QModelIndex &)));
 
   _status_bar = new QStatusBar;
-  _status_bar->showMessage (tr("Idle."));
+  _status_bar->showMessage (tr ("Idle."));
 
-  _find_button =  new QPushButton (tr("Find"));
+  _find_button =  new QPushButton (tr ("Find"));
   _find_button->setToolTip (tr ("Start search for matching files"));
-  connect (_find_button, SIGNAL(clicked()), this, SLOT(start_find()));
+  connect (_find_button, SIGNAL (clicked ()), this, SLOT (start_find ()));
 
-  _stop_button =  new QPushButton (tr("Stop"));
+  _stop_button =  new QPushButton (tr ("Stop"));
   _stop_button->setToolTip (tr ("Stop searching"));
   _stop_button->setEnabled (false);
-  connect (_stop_button, SIGNAL(clicked()), this, SLOT(stop_find()));
+  connect (_stop_button, SIGNAL (clicked ()), this, SLOT (stop_find ()));
 
   // layout everything
   QDialogButtonBox * button_box = new QDialogButtonBox (Qt::Vertical);
@@ -141,9 +154,9 @@
            this,          SLOT (close ()));
 
   // name options
-  QGroupBox * name_group = new QGroupBox(tr("File name/location"));
+  QGroupBox * name_group = new QGroupBox (tr ("File name/location"));
   QGridLayout * name_layout = new QGridLayout;
-  name_group->setLayout(name_layout);
+  name_group->setLayout (name_layout);
 
   name_layout->addWidget (file_name_label,1,1, 1,1);
   name_layout->addWidget (_file_name_edit,1,2, 1,-1);
@@ -158,9 +171,9 @@
   name_layout->addWidget (_name_case_check,3,3);
 
   // content options
-  QGroupBox * content_group = new QGroupBox(tr("File contents"));
+  QGroupBox * content_group = new QGroupBox (tr ("File contents"));
   QGridLayout * content_layout = new QGridLayout;
-  content_group->setLayout(content_layout);
+  content_group->setLayout (content_layout);
   content_layout->addWidget (_contains_text_check,4,1);
   content_layout->addWidget (_contains_text_edit,4,2,1,3);
   content_layout->setColumnStretch (2,1);
@@ -178,7 +191,7 @@
 
   setLayout (main_layout);
 
-  connect (this, SIGNAL(finished(int)), this, SLOT(handle_done(int)));
+  connect (this, SIGNAL (finished (int)), this, SLOT (handle_done (int)));
 }
 
 find_files_dialog::~find_files_dialog ()
@@ -186,64 +199,70 @@
   QSettings *settings = resource_manager::get_settings ();
 
   int sort_column = _file_list->horizontalHeader ()->sortIndicatorSection ();
-  Qt::SortOrder sort_order = _file_list->horizontalHeader ()->sortIndicatorOrder ();
+  Qt::SortOrder sort_order
+    = _file_list->horizontalHeader ()->sortIndicatorOrder ();
   settings->setValue ("findfiles/sort_files_by_column", sort_column);
   settings->setValue ("findfiles/sort_files_by_order", sort_order);
-  settings->setValue ("findfiles/column_state", _file_list->horizontalHeader ()->saveState ());
+  settings->setValue ("findfiles/column_state",
+                      _file_list->horizontalHeader ()->saveState ());
 
-  settings->setValue ("findfiles/file_name", _file_name_edit->text());
+  settings->setValue ("findfiles/file_name", _file_name_edit->text ());
 
-  settings->setValue ("findfiles/start_dir", _start_dir_edit->text());
+  settings->setValue ("findfiles/start_dir", _start_dir_edit->text ());
 
-  settings->setValue ("findfiles/recurse_dirs", _recurse_dirs_check->text());
-  settings->setValue ("findfiles/include_dirs", _include_dirs_check->text());
-  settings->setValue ("findfiles/name_case", _name_case_check->text());
+  settings->setValue ("findfiles/recurse_dirs", _recurse_dirs_check->text ());
+  settings->setValue ("findfiles/include_dirs", _include_dirs_check->text ());
+  settings->setValue ("findfiles/name_case", _name_case_check->text ());
 
-  settings->setValue ("findfiles/contains_text", _contains_text_edit->text());
-  settings->setValue ("findfiles/check_text", _contains_text_check->isChecked ());
-  settings->setValue ("findfiles/content_case", _content_case_check->isChecked ());
+  settings->setValue ("findfiles/contains_text", _contains_text_edit->text ());
+  settings->setValue ("findfiles/check_text",
+                      _contains_text_check->isChecked ());
+  settings->setValue ("findfiles/content_case",
+                      _content_case_check->isChecked ());
 
   settings->sync ();
 
-  if(_dir_iterator)
+  if (_dir_iterator)
     delete _dir_iterator;
 }
 
 void find_files_dialog::handle_done (int)
 {
-  // make sure we stopped processing 
+  // make sure we stopped processing
   stop_find ();
 }
 
-void find_files_dialog::set_search_dir(const QString &dir)
+void find_files_dialog::set_search_dir (const QString &dir)
 {
-  stop_find();
-  _start_dir_edit->setText(dir);
+  stop_find ();
+  _start_dir_edit->setText (dir);
 }
 
-void 
+void
 find_files_dialog::start_find ()
 {
-  stop_find();
+  stop_find ();
 
-  find_files_model *m = static_cast<find_files_model *> (_file_list->model());
-  m->clear();
+  find_files_model *m = static_cast<find_files_model *> (_file_list->model ());
+  m->clear ();
 
   QDirIterator::IteratorFlags flags = QDirIterator::NoIteratorFlags;
-  if (_recurse_dirs_check->isChecked ())  flags |= QDirIterator::Subdirectories;
+  if (_recurse_dirs_check->isChecked ())
+    flags |= QDirIterator::Subdirectories;
 
   QDir::Filters filters = QDir::Dirs|QDir::NoDotAndDotDot|QDir::Files;
   if (!_name_case_check->isChecked ())
     filters |=  QDir::CaseSensitive;
 
   QStringList nameFilters;
-  nameFilters.append (_file_name_edit->text());
+  nameFilters.append (_file_name_edit->text ());
 
   if (_dir_iterator) delete _dir_iterator;
 
-  _dir_iterator = new QDirIterator (_start_dir_edit->text(), nameFilters, filters, flags);
-  
-  // enable/disable widgets 
+  _dir_iterator = new QDirIterator (_start_dir_edit->text (), nameFilters,
+                                    filters, flags);
+
+  // enable/disable widgets
   _find_button->setEnabled (false);
   _stop_button->setEnabled (true);
   _close_button->setEnabled (false);
@@ -257,11 +276,11 @@
   _content_case_check->setEnabled (false);
   _contains_text_edit->setEnabled (false);
 
-  _status_bar->showMessage (tr("Searching..."));
+  _status_bar->showMessage (tr ("Searching..."));
   _timer->start (0);
 }
 
-void 
+void
 find_files_dialog::stop_find ()
 {
   _timer->stop ();
@@ -279,18 +298,18 @@
   _content_case_check->setEnabled (true);
   _contains_text_edit->setEnabled (true);
 
-  find_files_model *m = static_cast<find_files_model *> (_file_list->model());
-  QString res_str = QString ("%1 matches").arg(m->rowCount());
+  find_files_model *m = static_cast<find_files_model *> (_file_list->model ());
+  QString res_str = QString ("%1 matches").arg (m->rowCount ());
 
   _status_bar->showMessage (res_str);
 }
 
-void 
+void
 find_files_dialog::browse_folders ()
 {
   QString dir =
-    QFileDialog::getExistingDirectory (this, tr ("Set search directory"), 
-      _start_dir_edit->text());
+    QFileDialog::getExistingDirectory (this, tr ("Set search directory"),
+                                       _start_dir_edit->text ());
 
   if (! dir.isEmpty ())
     {
@@ -298,43 +317,44 @@
     }
 }
 
-void 
+void
 find_files_dialog::item_double_clicked (const QModelIndex &idx)
 {
   find_files_model *m = static_cast<find_files_model *> (_file_list->model ());
 
   QFileInfo info = m->fileInfo (idx);
 
-  if(idx.column () == 1)
+  if (idx.column () == 1)
     {
       // clicked in directory part
-      emit dir_selected (info.absolutePath());
+      emit dir_selected (info.absolutePath ());
     }
   else
     {
       // clicked in filename part
-      if(info.isDir ())
-        emit dir_selected (info.absoluteFilePath());
+      if (info.isDir ())
+        emit dir_selected (info.absoluteFilePath ());
       else
-        emit file_selected (info.absoluteFilePath());
+        emit file_selected (info.absoluteFilePath ());
     }
 }
 
 void
 find_files_dialog::look_for_files ()
 {
-  if(_dir_iterator && _dir_iterator->hasNext ())
+  if (_dir_iterator && _dir_iterator->hasNext ())
     {
       QFileInfo info (_dir_iterator->next ());
-    
-      find_files_model *m = static_cast<find_files_model *> (_file_list->model ());
+
+      find_files_model *m
+        = static_cast<find_files_model *> (_file_list->model ());
 
-      if(is_match (info))
+      if (is_match (info))
         m->addFile (info);
-    } 
+    }
   else
     {
-      stop_find (); 
+      stop_find ();
     }
 }
 
@@ -343,8 +363,8 @@
   bool match = true;
   if (info.isDir ())
     {
-      if(!_include_dirs_check->isChecked ()) match = false;
-      if(_contains_text_check->isChecked ()) match = false;
+      if (!_include_dirs_check->isChecked ()) match = false;
+      if (_contains_text_check->isChecked ()) match = false;
     }
   else
     {
@@ -353,7 +373,7 @@
         {
           match = false;
 
-          QFile file(info.absoluteFilePath ());
+          QFile file (info.absoluteFilePath ());
           if (file.open (QIODevice::ReadOnly))
             {
               QTextStream stream (&file);
@@ -362,19 +382,19 @@
               QString match_str = _contains_text_edit->text ();
 
               Qt::CaseSensitivity cs = _content_case_check->isChecked () ?
-                   Qt::CaseInsensitive : Qt::CaseSensitive;
+                                       Qt::CaseInsensitive : Qt::CaseSensitive;
 
               do
                 {
                   line = stream.readLine ();
                   match = line.contains (match_str, cs);
                 }
-              while(!line.isNull () && match == false);
+              while (!line.isNull () && match == false);
             }
 
         }
     }
 
-  return match; 
+  return match;
 }
 
--- a/libgui/src/find-files-dialog.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/find-files-dialog.h	Tue Nov 05 12:27:42 2013 -0500
@@ -19,8 +19,8 @@
 <http://www.gnu.org/licenses/>.
 
 */
-#if !defined (find_files_dialog_h)
-#define find_files_dialog_h
+#if !defined (octave_find_files_dialog_h)
+#define octave_find_files_dialog_h
 
 #include <QDialog>
 #include <QModelIndex>
@@ -46,7 +46,7 @@
   void dir_selected (const QString &fileName);
 
 public slots:
-  void set_search_dir(const QString &dir);
+  void set_search_dir (const QString &dir);
 
 private slots:
   void start_find ();
@@ -54,9 +54,9 @@
   void browse_folders ();
   void look_for_files ();
   void item_double_clicked (const QModelIndex&);
-  void handle_done(int);
+  void handle_done (int);
 private:
-  bool is_match(const QFileInfo &info);
+  bool is_match (const QFileInfo &info);
   QLineEdit * _start_dir_edit;
   QLineEdit * _file_name_edit;
   QPushButton * _stop_button;
@@ -75,5 +75,5 @@
   QStatusBar * _status_bar;
 };
 
-#endif // find_files_dialog_h
+#endif // octave_find_files_dialog_h
 
--- a/libgui/src/find-files-model.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/find-files-model.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,37 +33,38 @@
   }
   QVariant getValue (const QFileInfo &f) const
   {
-     QVariant val;
-     int col = (_sortorder > 0) ? _sortorder : -_sortorder;
+    QVariant val;
+    int col = (_sortorder > 0) ? _sortorder : -_sortorder;
 
-     switch (col-1)
-       {
-         case 0:
-           val = QVariant (f.fileName());
-           break;
+    switch (col-1)
+      {
+      case 0:
+        val = QVariant (f.fileName ());
+        break;
 
-         case 1:
-           val = QVariant (f.absolutePath());
-           break;
+      case 1:
+        val = QVariant (f.absolutePath ());
+        break;
 
-         default:
-            break;
-        }
-     return val;
+      default:
+        break;
+      }
+    return val;
   }
   bool lessThan (const QVariant &left, const QVariant &right) const
   {
-    return left.toString ().compare (right.toString (), Qt::CaseInsensitive) < 0;
+    return
+      left.toString ().compare (right.toString (), Qt::CaseInsensitive) < 0;
   }
   bool operator () (const QFileInfo &left, const QFileInfo &right) const
   {
-     QVariant leftval = getValue(left);
-     QVariant rightval = getValue(right);
+    QVariant leftval = getValue (left);
+    QVariant rightval = getValue (right);
 
-     if (_sortorder > 0)
-        return lessThan(leftval, rightval);
-     else
-        return ! lessThan(leftval, rightval);
+    if (_sortorder > 0)
+      return lessThan (leftval, rightval);
+    else
+      return ! lessThan (leftval, rightval);
   }
 private:
   int _sortorder;
@@ -71,7 +72,7 @@
 
 
 find_files_model::find_files_model (QObject *p)
-  : QAbstractListModel(p)
+  : QAbstractListModel (p)
 {
   _columnNames.append (tr ("Filename"));
   _columnNames.append (tr ("Directory"));
@@ -82,86 +83,87 @@
 {
 }
 
-void 
+void
 find_files_model::clear ()
 {
-  beginResetModel();
+  beginResetModel ();
 
-  _files.clear();
+  _files.clear ();
 
   endResetModel ();
 }
 
-void 
+void
 find_files_model::addFile (const QFileInfo &info)
 {
   beginInsertRows (QModelIndex (), _files.size (), _files.size () );
 
-  QList<QFileInfo>::Iterator it; 
-  find_file_less_than less_than(_sortorder);
+  QList<QFileInfo>::Iterator it;
+  find_file_less_than less_than (_sortorder);
 
-  for (it=_files.begin ();it!=_files.end ();it++)
+  for (it=_files.begin (); it!=_files.end (); it++)
     {
       if (less_than (info, *it)) break;
     }
 
   _files.insert (it, info);
 
-  endInsertRows (); 
+  endInsertRows ();
 }
 
-int 
+int
 find_files_model::rowCount (const QModelIndex &) const
 {
-  return _files.size();
+  return _files.size ();
 }
 
-int 
+int
 find_files_model::columnCount (const QModelIndex &) const
 {
   return _columnNames.size ();
 }
 
-QVariant 
+QVariant
 find_files_model::data (const QModelIndex& idx, int role) const
 {
   QVariant retval;
 
   if (idx.isValid ())
     {
-      if(role == Qt::DisplayRole)
-      {
-        switch (idx.column ())
-          {
-          case 0:
-            retval = QVariant (_files[idx.row()].fileName());
-            break;
+      if (role == Qt::DisplayRole)
+        {
+          switch (idx.column ())
+            {
+            case 0:
+              retval = QVariant (_files[idx.row ()].fileName ());
+              break;
 
-          case 1:
-            retval = QVariant (_files[idx.row()].absolutePath());
-            break;
+            case 1:
+              retval = QVariant (_files[idx.row ()].absolutePath ());
+              break;
 
-          default:
-            break;
-          }
-      }
-      else if(role == Qt:: DecorationRole)
-      {
-        switch (idx.column())
-          {
-          case 0:
-            retval = fileIcon(idx);
-          default:
-            break;
-          }
-      }
+            default:
+              break;
+            }
+        }
+      else if (role == Qt:: DecorationRole)
+        {
+          switch (idx.column ())
+            {
+            case 0:
+              retval = fileIcon (idx);
+            default:
+              break;
+            }
+        }
     }
 
   return retval;
 }
 
-QVariant 
-find_files_model::headerData (int section, Qt::Orientation orientation, int role) const
+QVariant
+find_files_model::headerData (int section, Qt::Orientation orientation,
+                              int role) const
 {
   if (orientation == Qt::Horizontal && role == Qt::DisplayRole)
     return _columnNames[section];
@@ -172,7 +174,7 @@
 void
 find_files_model::sort (int column, Qt::SortOrder order)
 {
-  if(column >= 0)
+  if (column >= 0)
     {
       if (order == Qt::DescendingOrder)
         _sortorder = -(column+1);
@@ -190,13 +192,13 @@
     }
 }
 
-QFileInfo 
+QFileInfo
 find_files_model::fileInfo (const QModelIndex & p) const
 {
-  if(p.isValid ())
-  {
-    return _files[p.row()];
-  }
+  if (p.isValid ())
+    {
+      return _files[p.row ()];
+    }
   return QFileInfo ();
 }
 
@@ -204,9 +206,9 @@
 find_files_model::fileIcon (const QModelIndex &p) const
 {
   QFileIconProvider icon_provider;
-  if(p.isValid ())
-  {
-    return icon_provider.icon (_files[p.row()]);
-  }
+  if (p.isValid ())
+    {
+      return icon_provider.icon (_files[p.row ()]);
+    }
   return QIcon ();
 }
--- a/libgui/src/find-files-model.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/find-files-model.h	Tue Nov 05 12:27:42 2013 -0500
@@ -19,8 +19,8 @@
 <http://www.gnu.org/licenses/>.
 
 */
-#if !defined (find_files_model_h)
-#define find_files_model_h
+#if !defined (octave_find_files_model_h)
+#define octave_find_files_model_h
 
 #include <QAbstractListModel>
 #include <QStringList>
@@ -34,16 +34,16 @@
   Q_OBJECT
 
 public:
-  find_files_model(QObject *p=0);
+  find_files_model (QObject *p=0);
   ~find_files_model ();
 
-  void clear();
+  void clear ();
 
-  void addFile(const QFileInfo &info);
+  void addFile (const QFileInfo &info);
 
-  int rowCount(const QModelIndex & p=QModelIndex()) const;
+  int rowCount (const QModelIndex & p=QModelIndex ()) const;
 
-  int columnCount(const QModelIndex & p=QModelIndex()) const;
+  int columnCount (const QModelIndex & p=QModelIndex ()) const;
 
   QVariant data (const QModelIndex& idx, int role) const;
 
@@ -60,5 +60,5 @@
   int _sortorder;
 };
 
-#endif // find_files_model_h
+#endif // octave_find_files_model_h
 
--- a/libgui/src/history-dock-widget.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/history-dock-widget.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -63,16 +63,20 @@
   _history_list_view->setModel (&_sort_filter_proxy_model);
   _history_list_view->setAlternatingRowColors (true);
   _history_list_view->setEditTriggers (QAbstractItemView::NoEditTriggers);
-  _history_list_view->setStatusTip (tr ("Doubleclick a command to transfer it to the terminal."));
+  _history_list_view->setStatusTip (
+    tr ("Doubleclick a command to transfer it to the terminal."));
   _history_list_view->setSelectionMode (QAbstractItemView::ExtendedSelection);
-  _history_list_view->setContextMenuPolicy(Qt::CustomContextMenu);
-  connect(_history_list_view, SIGNAL(customContextMenuRequested(const QPoint &)), this, SLOT(ctxMenu(const QPoint &)));
+  _history_list_view->setContextMenuPolicy (Qt::CustomContextMenu);
+  connect (_history_list_view,
+           SIGNAL (customContextMenuRequested (const QPoint &)), this,
+           SLOT (ctxMenu (const QPoint &)));
 
   _filter_line_edit = new QLineEdit (this);
-  _filter_line_edit->setStatusTip (tr ("Enter text to filter the command history."));
+  _filter_line_edit->setStatusTip (
+    tr ("Enter text to filter the command history."));
   QVBoxLayout *vbox_layout = new QVBoxLayout ();
 
-  setWindowIcon (QIcon(":/actions/icons/logo.png"));
+  setWindowIcon (QIcon (":/actions/icons/logo.png"));
   set_title (tr ("Command History"));
   setWidget (new QWidget ());
 
@@ -91,43 +95,46 @@
   setFocusProxy (_filter_line_edit);
 }
 
-void history_dock_widget::ctxMenu(const QPoint &xpos) {
-    QMenu menu(this);
-    menu.addAction(tr("Copy"), this, SLOT(handle_contextmenu_copy(bool)));
-    menu.addAction(tr("Evaluate"), this, SLOT(handle_contextmenu_evaluate(bool)));
-    menu.addAction(tr("Create script"), this, SLOT(handle_contextmenu_create_script(bool)));
-    menu.exec(_history_list_view->mapToGlobal(xpos));
+void history_dock_widget::ctxMenu (const QPoint &xpos)
+{
+  QMenu menu (this);
+  menu.addAction (tr ("Copy"), this, SLOT (handle_contextmenu_copy (bool)));
+  menu.addAction (tr ("Evaluate"), this,
+                  SLOT (handle_contextmenu_evaluate (bool)));
+  menu.addAction (tr ("Create script"), this,
+                  SLOT (handle_contextmenu_create_script (bool)));
+  menu.exec (_history_list_view->mapToGlobal (xpos));
 }
 
-void history_dock_widget::handle_contextmenu_copy(bool)
+void history_dock_widget::handle_contextmenu_copy (bool)
 {
   QString text;
-  QItemSelectionModel *selectionModel = _history_list_view->selectionModel();
-  QModelIndexList rows = selectionModel->selectedRows();
+  QItemSelectionModel *selectionModel = _history_list_view->selectionModel ();
+  QModelIndexList rows = selectionModel->selectedRows ();
   QModelIndexList::iterator it;
   bool prev_valid_row = false;
-  for (it = rows.begin(); it != rows.end(); it++)
+  for (it = rows.begin (); it != rows.end (); it++)
     {
-      if ((*it).isValid())
+      if ((*it).isValid ())
         {
           if (prev_valid_row)
             text += "\n";
-          text += (*it).data().toString();
+          text += (*it).data ().toString ();
           prev_valid_row = true;
         }
     }
-  QApplication::clipboard()->setText(text);
+  QApplication::clipboard ()->setText (text);
 }
 
-void history_dock_widget::handle_contextmenu_evaluate(bool)
+void history_dock_widget::handle_contextmenu_evaluate (bool)
 {
-  QItemSelectionModel *selectionModel = _history_list_view->selectionModel();
-  QModelIndexList rows = selectionModel->selectedRows();
+  QItemSelectionModel *selectionModel = _history_list_view->selectionModel ();
+  QModelIndexList rows = selectionModel->selectedRows ();
   QModelIndexList::iterator it;
-  for (it = rows.begin() ; it != rows.end(); it++)
+  for (it = rows.begin () ; it != rows.end (); it++)
     {
-      if ((*it).isValid())
-        emit command_double_clicked ((*it).data().toString());
+      if ((*it).isValid ())
+        emit command_double_clicked ((*it).data ().toString ());
     }
 }
 
@@ -145,7 +152,7 @@
         {
           if (prev_valid_row)
             text += "\n";
-          text += (*it).data().toString();
+          text += (*it).data ().toString ();
           prev_valid_row = true;
         }
     }
@@ -158,7 +165,7 @@
 void
 history_dock_widget::handle_double_click (QModelIndex modelIndex)
 {
-  emit command_double_clicked (modelIndex.data().toString());
+  emit command_double_clicked (modelIndex.data ().toString ());
 }
 
 void
@@ -194,9 +201,9 @@
 void
 history_dock_widget::copyClipboard ()
 {
-  if(_history_list_view->hasFocus())
-    handle_contextmenu_copy(true);
-  if(_filter_line_edit->hasFocus () && _filter_line_edit->hasSelectedText ())
+  if (_history_list_view->hasFocus ())
+    handle_contextmenu_copy (true);
+  if (_filter_line_edit->hasFocus () && _filter_line_edit->hasSelectedText ())
     {
       QClipboard *clipboard = QApplication::clipboard ();
       clipboard->setText ( _filter_line_edit->selectedText ());
@@ -206,11 +213,11 @@
 void
 history_dock_widget::pasteClipboard ()
 {
-  if(_filter_line_edit->hasFocus ())
+  if (_filter_line_edit->hasFocus ())
     {
       QClipboard *clipboard = QApplication::clipboard ();
       QString str =  clipboard->text ();
-      if (str.length() > 0)
+      if (str.length () > 0)
         _filter_line_edit->insert (str);
     }
 }
--- a/libgui/src/history-dock-widget.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/history-dock-widget.h	Tue Nov 05 12:27:42 2013 -0500
@@ -57,10 +57,10 @@
 private slots:
 
   void handle_double_click (QModelIndex modelIndex);
-  void handle_contextmenu_copy(bool flag);
-  void handle_contextmenu_evaluate(bool flag);
-  void handle_contextmenu_create_script(bool flag);
-  void ctxMenu(const QPoint &pos);
+  void handle_contextmenu_copy (bool flag);
+  void handle_contextmenu_evaluate (bool flag);
+  void handle_contextmenu_create_script (bool flag);
+  void ctxMenu (const QPoint &pos);
 
   void copyClipboard ();
   void pasteClipboard ();
Binary file libgui/src/icons/zoom-in.png has changed
Binary file libgui/src/icons/zoom-out.png has changed
--- a/libgui/src/m-editor/file-editor-interface.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/file-editor-interface.h	Tue Nov 05 12:27:42 2013 -0500
@@ -31,7 +31,7 @@
 {
   Q_OBJECT
 
-  public:
+public:
   file_editor_interface (QWidget *p)
     : octave_dock_widget (p)
   {
--- a/libgui/src/m-editor/file-editor-tab.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/file-editor-tab.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -198,7 +198,7 @@
 
 void
 file_editor_tab::handle_margin_clicked (int margin, int line,
-                                       Qt::KeyboardModifiers state)
+                                        Qt::KeyboardModifiers state)
 {
   if (margin == 1)
     {
@@ -268,8 +268,9 @@
           lexer = new QsciLexerDiff ();
         }
       else if (_file_name.isEmpty ()
-                || _file_name.at (_file_name.count () - 1) == '/')
-        { // new, no yet named file: let us assume it is octave
+               || _file_name.at (_file_name.count () - 1) == '/')
+        {
+          // new, no yet named file: let us assume it is octave
 #if defined (HAVE_LEXER_OCTAVE)
           lexer = new QsciLexerOctave ();
 #elif defined (HAVE_LEXER_MATLAB)
@@ -279,7 +280,8 @@
 #endif
         }
       else
-        { // other or no extension
+        {
+          // other or no extension
           lexer = new QsciLexerBash ();
         }
     }
@@ -290,12 +292,13 @@
       // get path to prepared api info
       QDesktopServices desktopServices;
       QString prep_apis_path
-          = desktopServices.storageLocation (QDesktopServices::HomeLocation)
-            + "/.config/octave/"  + QString(OCTAVE_VERSION) + "/qsci/";
+        = desktopServices.storageLocation (QDesktopServices::HomeLocation)
+          + "/.config/octave/"  + QString(OCTAVE_VERSION) + "/qsci/";
       _prep_apis_file = prep_apis_path + lexer->lexer () + ".pap";
 
       if (!_lexer_apis->loadPrepared (_prep_apis_file))
-        { // no prepared info loaded, prepare and save if possible
+        {
+          // no prepared info loaded, prepare and save if possible
 
           // create raw apis info
           QString keyword;
@@ -313,7 +316,8 @@
           disconnect (_lexer_apis, SIGNAL (apiPreparationFinished ()), 0, 0);
           // check whether path for prepared info exists or can be created
           if (QDir("/").mkpath (prep_apis_path))
-            { // path exists, apis info can be saved there
+            {
+              // path exists, apis info can be saved there
               connect (_lexer_apis, SIGNAL (apiPreparationFinished ()),
                        this, SLOT (save_apis_info ()));
             }
@@ -721,7 +725,7 @@
 
   if (!_find_dialog)
     {
-      _find_dialog = new find_dialog (_edit_area, 
+      _find_dialog = new find_dialog (_edit_area,
                                       qobject_cast<QWidget *> (sender ()));
       connect (_find_dialog, SIGNAL (finished (int)),
                this, SLOT (handle_find_dialog_finished (int)));
@@ -795,7 +799,8 @@
             }
         }
       //set selection on (un)commented section
-      _edit_area->setSelection (lineFrom, 0, lineTo, _edit_area->text (lineTo).length ());
+      _edit_area->setSelection (lineFrom, 0, lineTo,
+                                _edit_area->text (lineTo).length ());
     }
   else
     {
@@ -863,7 +868,7 @@
       QString available_actions;
 
       if (_app_closing)
-          available_actions = tr ("Do you want to save or discard the changes?");
+        available_actions = tr ("Do you want to save or discard the changes?");
       else
         {
           buttons = buttons | QMessageBox::Cancel;  // cancel is allowed
@@ -900,7 +905,7 @@
       // Nothing was modified, just remove from editor.
       emit tab_remove_request ();
     }
- 
+
   return decision;
 }
 
@@ -972,7 +977,7 @@
   // should be performed.
   if (saveFileName.isEmpty ()
       || saveFileName.at (saveFileName.count () - 1) == '/')
-     {
+    {
       save_file_as (remove_on_success);
       return;
     }
@@ -1240,9 +1245,9 @@
   if (settings->value ("editor/codeCompletion", true).toBool ())  // auto compl.
     {
       bool match_keywords = settings->value
-        ("editor/codeCompletion_keywords",true).toBool ();
+                            ("editor/codeCompletion_keywords",true).toBool ();
       bool match_document = settings->value
-        ("editor/codeCompletion_document",true).toBool ();
+                            ("editor/codeCompletion_document",true).toBool ();
 
       QsciScintilla::AutoCompletionSource source = QsciScintilla::AcsNone;
       if (match_keywords)
@@ -1250,9 +1255,8 @@
           source = QsciScintilla::AcsAll;
         else
           source = QsciScintilla::AcsAPIs;
-      else
-        if (match_document)
-          source = QsciScintilla::AcsDocument;
+      else if (match_document)
+        source = QsciScintilla::AcsDocument;
       _edit_area->setAutoCompletionSource (source);
 
       _edit_area->setAutoCompletionReplaceWord
--- a/libgui/src/m-editor/file-editor-tab.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/file-editor-tab.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (file_editor_tab_h)
-#define file_editor_tab_h 1
+#if !defined (octave_file_editor_tab_h)
+#define octave_file_editor_tab_h 1
 
 #include <QWidget>
 #include <QCloseEvent>
@@ -153,11 +153,11 @@
 private:
 
   enum editor_markers
-    {
-      bookmark,
-      breakpoint,
-      debugger_position
-    };
+  {
+    bookmark,
+    breakpoint,
+    debugger_position
+  };
 
   struct bp_info
   {
--- a/libgui/src/m-editor/file-editor.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/file-editor.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -75,7 +75,10 @@
   settings->sync ();
 
   for (int index = _tab_widget->count ()-1; index >= 0; index--)
-    emit fetab_close_request (_tab_widget->widget (index),true); // true: app closing
+    {
+      // true: app closing
+      emit fetab_close_request (_tab_widget->widget (index), true);
+    }
 
   if (_mru_file_menu)
     delete _mru_file_menu;
@@ -213,7 +216,7 @@
     }
 
   return retval;
-}    
+}
 
 void
 file_editor::request_open_file (const QString& openFileName, int line,
@@ -298,13 +301,14 @@
 
                   if (QFile::exists (openFileName))
                     {
-                      // File not readable: create a NonModal message about error.
+                      // File not readable:
+                      // create a NonModal message about error.
                       QMessageBox *msgBox
                         = new QMessageBox (QMessageBox::Critical,
-                                   tr ("Octave Editor"),
-                                   tr ("Could not open file\n%1\nfor read: %2.").
-                                   arg (openFileName).arg (result),
-                                   QMessageBox::Ok, this);
+                                           tr ("Octave Editor"),
+                                           tr ("Could not open file\n%1\nfor read: %2.").
+                                           arg (openFileName).arg (result),
+                                           QMessageBox::Ok, this);
 
                       msgBox->setWindowModality (Qt::NonModal);
                       msgBox->setAttribute (Qt::WA_DeleteOnClose);
@@ -315,17 +319,19 @@
                       // File does not exist, should it be crated?
                       QMessageBox *msgBox;
                       int answer;
-                      if (settings->value ("editor/create_new_file",false).toBool ())
+                      if (settings->value ("editor/create_new_file",
+                                           false).toBool ())
                         {
                           answer = QMessageBox::Yes;
                         }
                       else
                         {
-                           msgBox = new QMessageBox (QMessageBox::Question,
-                               tr ("Octave Editor"),
-                               tr ("File\n%1\ndoes not exist. "
-                                   "Do you want to create it?").arg (openFileName),
-                               QMessageBox::Yes | QMessageBox::No, this);
+                          msgBox = new QMessageBox (QMessageBox::Question,
+                                                    tr ("Octave Editor"),
+                                                    tr ("File\n%1\ndoes not exist. "
+                                                        "Do you want to create it?").arg (openFileName),
+                                                    QMessageBox::Yes
+                                                    | QMessageBox::No, this);
 
                           msgBox->setAttribute (Qt::WA_DeleteOnClose);
                           answer = msgBox->exec ();
@@ -339,10 +345,10 @@
                             {
                               // error opening the file
                               msgBox = new QMessageBox (QMessageBox::Critical,
-                                   tr ("Octave Editor"),
-                                   tr ("Could not open file\n%1\nfor write: %2.").
-                                   arg (openFileName).arg (file.errorString ()),
-                                   QMessageBox::Ok, this);
+                                                        tr ("Octave Editor"),
+                                                        tr ("Could not open file\n%1\nfor write: %2.").
+                                                        arg (openFileName).arg (file.errorString ()),
+                                                        QMessageBox::Ok, this);
 
                               msgBox->setWindowModality (Qt::NonModal);
                               msgBox->setAttribute (Qt::WA_DeleteOnClose);
@@ -376,7 +382,8 @@
 
 
 void
-file_editor::check_conflict_save (const QString& saveFileName, bool remove_on_success)
+file_editor::check_conflict_save (const QString& saveFileName,
+                                  bool remove_on_success)
 {
   // Have all file editor tabs signal what their file names are.
   editor_tab_map.clear ();
@@ -542,13 +549,13 @@
 void
 file_editor::request_save_file_as (void)
 {
-   emit fetab_save_file_as (_tab_widget->currentWidget ());
+  emit fetab_save_file_as (_tab_widget->currentWidget ());
 }
 
 void
 file_editor::request_print_file (void)
 {
-   emit fetab_print_file (_tab_widget->currentWidget ());
+  emit fetab_print_file (_tab_widget->currentWidget ());
 }
 
 
@@ -654,26 +661,26 @@
   for (int i = 0; i < num_files; ++i)
     {
       QString text = tr ("&%1 %2").
-          arg ((i+1) % int (MaxMRUFiles)).arg (_mru_files.at (i));
+                     arg ((i+1) % int (MaxMRUFiles)).arg (_mru_files.at (i));
       _mru_file_actions[i]->setText (text);
       _mru_file_actions[i]->setData (_mru_files.at (i));
       _mru_file_actions[i]->setVisible (true);
     }
 
-    // hide unused mru-menu entries
-    for (int j = num_files; j < MaxMRUFiles; ++j)
-      _mru_file_actions[j]->setVisible (false);
+  // hide unused mru-menu entries
+  for (int j = num_files; j < MaxMRUFiles; ++j)
+    _mru_file_actions[j]->setVisible (false);
 
-    // delete entries in string-list beyond MaxMRUFiles
-    while (_mru_files.size () > MaxMRUFiles)
-      _mru_files.removeLast ();
+  // delete entries in string-list beyond MaxMRUFiles
+  while (_mru_files.size () > MaxMRUFiles)
+    _mru_files.removeLast ();
 
-    // save actual mru-list in settings
-    QSettings *settings = resource_manager::get_settings ();
+  // save actual mru-list in settings
+  QSettings *settings = resource_manager::get_settings ();
 
-    // FIXME -- what should happen if settings is 0?
-    settings->setValue ("editor/mru_file_list", _mru_files);
-    settings->sync ();
+  // FIXME: what should happen if settings is 0?
+  settings->setValue ("editor/mru_file_list", _mru_files);
+  settings->sync ();
 }
 
 void
@@ -747,7 +754,7 @@
             }
         }
     }
-    check_actions ();
+  check_actions ();
 }
 
 void
@@ -817,7 +824,7 @@
 {
   QWidget *editor_widget = new QWidget (this);
 
-  // FIXME -- what was the intended purpose of this unused variable?
+  // FIXME: what was the intended purpose of this unused variable?
   // QStyle *editor_style = QApplication::style ();
 
   _menu_bar = new QMenuBar (editor_widget);
@@ -832,26 +839,26 @@
                                       tr ("&Open File"), _tool_bar);
 
   _save_action = new QAction (QIcon (":/actions/icons/filesave.png"),
-                                      tr ("&Save File"), _tool_bar);
+                              tr ("&Save File"), _tool_bar);
 
   _save_as_action = new QAction (QIcon (":/actions/icons/filesaveas.png"),
-                                tr ("Save File &As"), _tool_bar);
+                                 tr ("Save File &As"), _tool_bar);
 
   _print_action = new QAction ( QIcon (":/actions/icons/fileprint.png"),
                                 tr ("Print"), _tool_bar);
 
   _undo_action = new QAction (QIcon (":/actions/icons/undo.png"),
-                                      tr ("&Undo"), _tool_bar);
+                              tr ("&Undo"), _tool_bar);
 
   _redo_action = new QAction (QIcon (":/actions/icons/redo.png"),
-                                      tr ("&Redo"), _tool_bar);
+                              tr ("&Redo"), _tool_bar);
 
   _copy_action = new QAction (QIcon (":/actions/icons/editcopy.png"),
                               tr ("&Copy"), _tool_bar);
   _copy_action->setEnabled (false);
 
   _cut_action = new QAction (QIcon (":/actions/icons/editcut.png"),
-                              tr ("Cu&t"), _tool_bar);
+                             tr ("Cu&t"), _tool_bar);
   _cut_action->setEnabled (false);
 
   _paste_action
@@ -860,7 +867,8 @@
 
   _next_bookmark_action = new QAction (tr ("&Next Bookmark"), _tool_bar);
 
-  _previous_bookmark_action = new QAction (tr ("Pre&vious Bookmark"), _tool_bar);
+  _previous_bookmark_action = new QAction (tr ("Pre&vious Bookmark"),
+                                           _tool_bar);
 
   _toggle_bookmark_action = new QAction (tr ("Toggle &Bookmark"), _tool_bar);
 
@@ -886,7 +894,7 @@
     = new QAction (tr ("&Uncomment"), _tool_bar);
 
   _find_action = new QAction (QIcon (":/actions/icons/search.png"),
-                                      tr ("&Find and Replace"), _tool_bar);
+                              tr ("&Find and Replace"), _tool_bar);
 
   _run_action = new QAction (QIcon (":/actions/icons/artsbuilderexecute.png"),
                              tr ("Save File And Run"), _tool_bar);
@@ -895,12 +903,12 @@
 
   // the mru-list and an empty array of actions
   QSettings *settings = resource_manager::get_settings ();
-  // FIXME -- what should happen if settings is 0?
+  // FIXME: what should happen if settings is 0?
   _mru_files = settings->value ("editor/mru_file_list").toStringList ();
   for (int i = 0; i < MaxMRUFiles; ++i)
     {
-       _mru_file_actions[i] = new QAction (this);
-       _mru_file_actions[i]->setVisible (false);
+      _mru_file_actions[i] = new QAction (this);
+      _mru_file_actions[i]->setVisible (false);
     }
 
   // some actions are disabled from the beginning
@@ -963,19 +971,19 @@
 
   fileMenu->addSeparator ();
   _close_action =
-      fileMenu->addAction (QIcon::fromTheme("window-close",
-                                  QIcon (":/actions/icons/fileclose.png")),
-                       tr ("&Close"), this, SLOT (request_close_file (bool)));
+    fileMenu->addAction (QIcon::fromTheme("window-close",
+                                          QIcon (":/actions/icons/fileclose.png")),
+                         tr ("&Close"), this, SLOT (request_close_file (bool)));
   _close_all_action =
-      fileMenu->addAction (QIcon::fromTheme("window-close",
-                                      QIcon (":/actions/icons/fileclose.png")),
-                       tr ("Close All"),
-                       this, SLOT (request_close_all_files (bool)));
-  _close_others_action = 
-  fileMenu->addAction (QIcon::fromTheme("window-close",
-                                      QIcon (":/actions/icons/fileclose.png")),
-                       tr ("Close Other Files"),
-                       this, SLOT (request_close_other_files (bool)));
+    fileMenu->addAction (QIcon::fromTheme("window-close",
+                                          QIcon (":/actions/icons/fileclose.png")),
+                         tr ("Close All"),
+                         this, SLOT (request_close_all_files (bool)));
+  _close_others_action =
+    fileMenu->addAction (QIcon::fromTheme("window-close",
+                                          QIcon (":/actions/icons/fileclose.png")),
+                         tr ("Close Other Files"),
+                         this, SLOT (request_close_other_files (bool)));
 
   fileMenu->addSeparator ();
   fileMenu->addAction (_print_action);
@@ -1004,11 +1012,13 @@
   editMenu->addAction (_goto_line_action);
   editMenu->addSeparator ();
   _preferences_action =
-     editMenu->addAction (QIcon (":/actions/icons/configure.png"),
-       tr ("&Preferences"), this, SLOT (request_preferences (bool)));
+    editMenu->addAction (QIcon (":/actions/icons/configure.png"),
+                         tr ("&Preferences"),
+                         this, SLOT (request_preferences (bool)));
   _styles_preferences_action =
     editMenu->addAction (QIcon (":/actions/icons/configure.png"),
-      tr ("&Styles Preferences"), this, SLOT (request_styles_preferences (bool)));
+                         tr ("&Styles Preferences"),
+                         this, SLOT (request_styles_preferences (bool)));
   _menu_bar->addMenu (editMenu);
 
   _debug_menu = new QMenu (tr ("&Debug"), _menu_bar);
@@ -1024,7 +1034,7 @@
   _run_menu->addAction (_run_action);
   _context_run_action =
     _run_menu->addAction (QIcon (), tr ("Run &Selection"),
-                           this, SLOT (request_context_run (bool)));
+                          this, SLOT (request_context_run (bool)));
   _context_run_action->setEnabled (false);
   _menu_bar->addMenu (_run_menu);
 
@@ -1051,7 +1061,8 @@
 
   // signals
   connect (this, SIGNAL (request_settings_dialog (const QString&)),
-           main_win (), SLOT (process_settings_dialog_request (const QString&)));
+           main_win (),
+           SLOT (process_settings_dialog_request (const QString&)));
 
   connect (main_win (), SIGNAL (new_file_signal (const QString&)),
            this, SLOT (request_new_file (const QString&)));
@@ -1147,13 +1158,14 @@
   if (settings->value ("editor/restoreSession", true).toBool ())
     {
       QStringList sessionFileNames
-        = settings->value ("editor/savedSessionTabs", QStringList ()).toStringList ();
+        = settings->value ("editor/savedSessionTabs",
+                           QStringList ()).toStringList ();
 
       for (int n = 0; n < sessionFileNames.count (); ++n)
         request_open_file (sessionFileNames.at (n));
     }
 
-    check_actions ();
+  check_actions ();
 }
 
 void
@@ -1183,7 +1195,7 @@
 
   connect (f, SIGNAL (run_file_signal (const QFileInfo&)),
            main_win (), SLOT (run_file_in_terminal (const QFileInfo&)));
-  
+
   connect (f, SIGNAL (execute_command_in_terminal_signal (const QString&)),
            main_win (), SLOT (execute_command_in_terminal (const QString&)));
 
@@ -1300,20 +1312,20 @@
 {
   QWidget * foc_w = focusWidget ();
 
-  if(foc_w && foc_w->inherits ("octave_qscintilla"))
-  {
-    request_copy ();
-  }
+  if (foc_w && foc_w->inherits ("octave_qscintilla"))
+    {
+      request_copy ();
+    }
 }
 void
 file_editor::pasteClipboard ()
 {
   QWidget * foc_w = focusWidget ();
 
-  if(foc_w && foc_w->inherits ("octave_qscintilla"))
-  {
-    request_paste ();
-  }
+  if (foc_w && foc_w->inherits ("octave_qscintilla"))
+    {
+      request_paste ();
+    }
 }
 
 void
@@ -1322,7 +1334,9 @@
   if (set)
     {
       _comment_selection_action->setShortcut (Qt::ControlModifier + Qt::Key_R);
-      _uncomment_selection_action->setShortcut (Qt::SHIFT + Qt::ControlModifier + Qt::Key_R);
+      _uncomment_selection_action->setShortcut (Qt::SHIFT
+                                                + Qt::ControlModifier
+                                                + Qt::Key_R);
 
       _copy_action->setShortcut (QKeySequence::Copy);
       _cut_action->setShortcut (QKeySequence::Cut);
--- a/libgui/src/m-editor/find-dialog.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/find-dialog.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -158,7 +158,7 @@
   _find_next_button->setDefault (true);
   _find_result_available = false;
 
-  // move to dialog to side of the parent if there is room on the desktop to do so.
+  // move dialog to side of the parent if there is room on the desktop to do so.
   QWidget * desktop = QApplication::desktop ();
   int xp = p->x () + p->frameGeometry ().width ();
   int yp=  p->y ();
@@ -215,9 +215,11 @@
   bool do_forward = true;
 
   if (_find_result_available)
-    { // we found a match last time, cursor is at the end of the match
+    {
+      // we found a match last time, cursor is at the end of the match
       if (!forward)
-        {  // backward: go back one position or we will find the same again
+        {
+          // backward: go back one position or we will find the same again
           do_forward = false;
           _edit_area->getCursorPosition (&line,&col);
           if (col > 0)
@@ -237,18 +239,19 @@
 
   if (_edit_area)
     {
-      _find_result_available = _edit_area->findFirst (_search_line_edit->text (),
-                                                      _regex_check_box->isChecked (),
-                                                      _case_check_box->isChecked (),
-                                                      _whole_words_check_box->isChecked (),
-                                                      do_wrap,
-                                                      do_forward,
-                                                      line,col,
-                                                      true
+      _find_result_available
+        = _edit_area->findFirst (_search_line_edit->text (),
+                                _regex_check_box->isChecked (),
+                                _case_check_box->isChecked (),
+                                _whole_words_check_box->isChecked (),
+                                do_wrap,
+                                do_forward,
+                                line,col,
+                                true
 #ifdef HAVE_QSCI_VERSION_2_6_0
-                                                      , true
+                                , true
 #endif
-                                                      );
+                                );
     }
   if (_find_result_available)
     _from_start_check_box->setChecked (0);
@@ -284,7 +287,8 @@
     {
       cs = Qt::CaseInsensitive;
     }
-  strDiff = QString::compare(_search_line_edit->text(),_replace_line_edit->text(),cs);
+  strDiff = QString::compare (_search_line_edit->text(),
+                              _replace_line_edit->text(), cs);
 
   // replace all if strings are different
   if (_edit_area && strDiff )
@@ -307,7 +311,7 @@
 void
 find_dialog::no_matches_message ()
 {
- 	QMessageBox msg_box (QMessageBox::Information, tr ("Find Result"),
+  QMessageBox msg_box (QMessageBox::Information, tr ("Find Result"),
                        tr ("No more matches found"), QMessageBox::Ok, this);
   msg_box.exec ();
 }
--- a/libgui/src/m-editor/find-dialog.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/find-dialog.h	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
 class find_dialog : public QDialog
 {
   Q_OBJECT
-  public:
+public:
   find_dialog (QsciScintilla* edit_area, QWidget *parent = 0);
   void init_search_text ();
 
--- a/libgui/src/m-editor/octave-qscintilla.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/octave-qscintilla.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,14 +34,15 @@
 #include "file-editor-tab.h"
 
 octave_qscintilla::octave_qscintilla (QWidget *p)
-    : QsciScintilla (p)
+  : QsciScintilla (p)
 { }
 
 octave_qscintilla::~octave_qscintilla ()
 { }
 
 void
-octave_qscintilla::get_global_textcursor_pos (QPoint *global_pos, QPoint *local_pos)
+octave_qscintilla::get_global_textcursor_pos (QPoint *global_pos,
+                                              QPoint *local_pos)
 {
   long position = SendScintilla (QsciScintillaBase::SCI_GETCURRENTPOS);
   long point_x  = SendScintilla
@@ -99,16 +100,18 @@
   QPoint global_pos, local_pos;
 
   if (e->reason () == QContextMenuEvent::Mouse)
-    { // context menu by mouse
+    {
+      // context menu by mouse
       global_pos = e->globalPos ();            // global mouse position
       local_pos  = e->pos ();                  // local mouse position
     }
   else
-    { // context menu by keyboard or other: get point of text cursor
+    {
+      // context menu by keyboard or other: get point of text cursor
       get_global_textcursor_pos (&global_pos, &local_pos);
       QRect editor_rect = geometry ();      // editor rect mapped to global
       editor_rect.moveTopLeft
-              (parentWidget ()->mapToGlobal (editor_rect.topLeft ()));
+      (parentWidget ()->mapToGlobal (editor_rect.topLeft ()));
       if (!editor_rect.contains (global_pos))  // is cursor outside editor?
         global_pos = editor_rect.topLeft ();   // yes, take top left corner
     }
@@ -125,11 +128,12 @@
       if (!_word_at_cursor.isEmpty ())
         {
           context_menu->addAction (tr ("Help on") + " " + _word_at_cursor,
-                                  this, SLOT (contextmenu_help (bool)));
-          context_menu->addAction (tr ("Documentation on") + " " + _word_at_cursor,
-                                  this, SLOT (contextmenu_doc (bool)));
+                                   this, SLOT (contextmenu_help (bool)));
+          context_menu->addAction (tr ("Documentation on")
+                                   + " " + _word_at_cursor,
+                                   this, SLOT (contextmenu_doc (bool)));
           context_menu->addAction (tr ("Edit") + " " + _word_at_cursor,
-                                  this, SLOT (contextmenu_edit (bool)));
+                                   this, SLOT (contextmenu_edit (bool)));
         }
       context_menu->addSeparator ();   // separator before custom entries
       if (hasSelectedText ())
@@ -176,7 +180,8 @@
 void
 octave_qscintilla::contextmenu_run (bool)
 {
-  QStringList commands = selectedText ().split (QRegExp("[\r\n]"),QString::SkipEmptyParts);
+  QStringList commands = selectedText ().split (QRegExp("[\r\n]"),
+                                                QString::SkipEmptyParts);
   for (int i = 0; i < commands.size (); i++ )
     emit execute_command_in_terminal_signal (commands.at (i));
 }
--- a/libgui/src/m-editor/octave-qscintilla.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/m-editor/octave-qscintilla.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 // Author: Torsten <ttl@justmail.de>
 
-#if !defined (octave_qscintilla_h)
-#define octave_qscintilla_h 1
+#if !defined (octave_octave_qscintilla_h)
+#define octave_octave_qscintilla_h 1
 
 #include <Qsci/qsciscintilla.h>
 #include <QMenu>
--- a/libgui/src/main-window.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/main-window.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -39,6 +39,7 @@
 #include <QFileDialog>
 #include <QMessageBox>
 #include <QIcon>
+#include <QTextStream>
 
 #include <utility>
 
@@ -102,7 +103,7 @@
   delete history_window;
   delete status_bar;
   delete _workspace_model;
-  if (find_files_dlg) 
+  if (find_files_dlg)
     {
       delete find_files_dlg;
       find_files_dlg = 0;
@@ -146,7 +147,8 @@
 main_window::handle_save_workspace_request (void)
 {
   QString file =
-    QFileDialog::getSaveFileName (this, tr ("Save Workspace As"), ".", 0, 0, QFileDialog::DontUseNativeDialog);
+    QFileDialog::getSaveFileName (this, tr ("Save Workspace As"), ".", 0, 0,
+                                  QFileDialog::DontUseNativeDialog);
 
   if (! file.isEmpty ())
     octave_link::post_event (this, &main_window::save_workspace_callback,
@@ -159,7 +161,8 @@
   QString file = file_arg;
 
   if (file.isEmpty ())
-    file = QFileDialog::getOpenFileName (this, tr ("Load Workspace"), ".", 0, 0, QFileDialog::DontUseNativeDialog);
+    file = QFileDialog::getOpenFileName (this, tr ("Load Workspace"), ".", 0, 0,
+                                         QFileDialog::DontUseNativeDialog);
 
   if (! file.isEmpty ())
     octave_link::post_event (this, &main_window::load_workspace_callback,
@@ -232,7 +235,7 @@
   _cmd_queue->append (command);   // queue command
   _cmd_queue_mutex.unlock ();
 
-  if (_cmd_processing.tryAcquire ())   // if callback is not processing, post event
+  if (_cmd_processing.tryAcquire ())  // if callback not processing, post event
     octave_link::post_event (this, &main_window::execute_command_callback);
 }
 
@@ -251,18 +254,33 @@
 void
 main_window::display_release_notes (void)
 {
-  std::string news_file = "file://" + Voct_etc_dir + "/NEWS";
+  std::string news_file = Voct_etc_dir + "/NEWS";
+
+  QString news;
 
-  display_url_in_window (QUrl (QString::fromStdString (news_file)));
-}
+  QFile *file = new QFile (QString::fromStdString (news_file));
+  if (file->open (QFile::ReadOnly))
+    {
+      QTextStream *stream = new QTextStream (file);
+      news = stream->readAll ();
+      if (! news.isEmpty ())
+        {
+          news.prepend ("<pre>");
+          news.append ("</pre>");
+        }
+      else
+        news = (tr ("The release notes file '%1' is empty.")
+                . arg (QString::fromStdString (news_file)));
+    }
+  else
+    news = (tr ("The release notes file '%1' cannot be read.")
+            . arg (QString::fromStdString (news_file)));
 
-void
-main_window::display_url_in_window (const QUrl& url)
-{
+
   QWidget *w = new QWidget;
 
   QTextBrowser *browser = new QTextBrowser (w);
-  browser->setSource (url);
+  browser->setText (news);
 
   QVBoxLayout *vlayout = new QVBoxLayout;
   vlayout->addWidget (browser);
@@ -331,27 +349,30 @@
     = settings->value ("DockWidgets/widget_icon_set", "NONE").toString ();
 
   static struct
-    {
-      QString name;
-      QString path;
-    }
+  {
+    QString name;
+    QString path;
+  }
 
   widget_icon_data[] =
-    { // array of possible icon sets (name, path (complete for NONE))
-      // the first entry here is the default!
-      {"NONE",    ":/actions/icons/logo.png"},
-      {"GRAPHIC", ":/actions/icons/graphic_logo_"},
-      {"LETTER",  ":/actions/icons/letter_logo_"},
-      {"", ""} // end marker has empty name
-    };
+  {
+    // array of possible icon sets (name, path (complete for NONE))
+    // the first entry here is the default!
+    {"NONE",    ":/actions/icons/logo.png"},
+    {"GRAPHIC", ":/actions/icons/graphic_logo_"},
+    {"LETTER",  ":/actions/icons/letter_logo_"},
+    {"", ""} // end marker has empty name
+  };
 
   int count = 0;
   int icon_set_found = 0; // default
 
   while (!widget_icon_data[count].name.isEmpty ())
-    { // while not end of data
+    {
+      // while not end of data
       if (widget_icon_data[count].name == icon_set)
-        { // data of desired icon set found
+        {
+          // data of desired icon set found
           icon_set_found = count;
           break;
         }
@@ -371,10 +392,10 @@
         }
     }
   if (widget_icon_data[icon_set_found].name != "NONE")
-     _release_notes_icon = widget_icon_data[icon_set_found].path
-                           + "ReleaseWidget.png";
+    _release_notes_icon = widget_icon_data[icon_set_found].path
+                          + "ReleaseWidget.png";
   else
-     _release_notes_icon = ":/actions/icons/logo.png";
+    _release_notes_icon = ":/actions/icons/logo.png";
 
   int icon_size = settings->value ("toolbar_icon_size",24).toInt ();
   _main_tool_bar->setIconSize (QSize (icon_size,icon_size));
@@ -425,11 +446,12 @@
 main_window::browse_for_directory (void)
 {
   QString dir
-    = QFileDialog::getExistingDirectory (this, tr ("Set working directory"), 0, QFileDialog::DontUseNativeDialog);
+    = QFileDialog::getExistingDirectory (this, tr ("Set working directory"), 0,
+                                         QFileDialog::DontUseNativeDialog);
 
   set_current_working_directory (dir);
 
-  // FIXME -- on Windows systems, the command window freezes after the
+  // FIXME: on Windows systems, the command window freezes after the
   // previous actions.  Forcing the focus appears to unstick it.
 
   focus_command_window ();
@@ -441,7 +463,7 @@
   // Change to dir if it is an existing directory.
 
   QString xdir = dir.isEmpty () ? "." : dir;
-    
+
   QFileInfo fileInfo (xdir);
 
   if (fileInfo.exists () && fileInfo.isDir ())
@@ -597,14 +619,15 @@
 
   if (!settings)
     {
-      qDebug("Error: QSettings pointer from resource manager is NULL.");
+      qDebug ("Error: QSettings pointer from resource manager is NULL.");
       return;
     }
 
   set_window_layout (settings);
 
   // restore the list of the last directories
-  QStringList curr_dirs = settings->value ("MainWindow/current_directory_list").toStringList ();
+  QStringList curr_dirs
+    = settings->value ("MainWindow/current_directory_list").toStringList ();
   for (int i=0; i < curr_dirs.size (); i++)
     {
       _current_directory_combo_box->addItem (curr_dirs.at (i));
@@ -655,7 +678,7 @@
 
   // show floating widgets after main win to ensure "Octave" in central menu
   foreach (octave_dock_widget *widget, float_and_visible)
-     widget->setVisible (true);
+    widget->setVisible (true);
 
 }
 
@@ -665,7 +688,7 @@
   QSettings *settings = resource_manager::get_settings ();
   if (!settings)
     {
-      qDebug("Error: QSettings pointer from resource manager is NULL.");
+      qDebug ("Error: QSettings pointer from resource manager is NULL.");
       return;
     }
 
@@ -700,9 +723,9 @@
       if (edit && edit->hasSelectedText ())
         {
           QClipboard *clipboard = QApplication::clipboard ();
-          clipboard->setText (edit->selectedText ()); 
+          clipboard->setText (edit->selectedText ());
         }
-    } 
+    }
   else
     emit copyClipboard_signal ();
 }
@@ -717,9 +740,9 @@
       QString str =  clipboard->text ();
       if (edit && str.length () > 0)
         {
-          edit->insert (str); 
+          edit->insert (str);
         }
-    } 
+    }
   else
     emit pasteClipboard_signal ();
 }
@@ -762,12 +785,14 @@
                                        const QStringList&)),
            this,
            SLOT (handle_create_inputlayout (const QStringList&, const QString&,
-                                            const QFloatList&, const QFloatList&,
+                                            const QFloatList&,
+                                            const QFloatList&,
                                             const QStringList&)));
 
   connect (&uiwidget_creator,
            SIGNAL (create_filedialog (const QStringList &,const QString&,
-                                      const QString&, const QString&, const QString&)),
+                                      const QString&, const QString&,
+                                      const QString&)),
            this,
            SLOT (handle_create_filedialog (const QStringList &, const QString&,
                                            const QString&, const QString&,
@@ -830,8 +855,8 @@
 
 void
 main_window::handle_create_filedialog (const QStringList& filters,
-                                       const QString& title, 
-                                       const QString& filename, 
+                                       const QString& title,
+                                       const QString& filename,
                                        const QString& dirname,
                                        const QString& multimode)
 {
@@ -905,8 +930,8 @@
   addDockWidget (Qt::LeftDockWidgetArea, workspace_window);
   addDockWidget (Qt::LeftDockWidgetArea, history_window);
 
-  int win_x = QApplication::desktop()->width();
-  int win_y = QApplication::desktop()->height();
+  int win_x = QApplication::desktop ()->width ();
+  int win_y = QApplication::desktop ()->height ();
 
   if (win_x > 960)
     win_x = 960;
@@ -934,7 +959,9 @@
   connect (this,
            SIGNAL (update_breakpoint_marker_signal (bool, const QString&, int)),
            editor_window,
-           SLOT (handle_update_breakpoint_marker_request (bool, const QString&, int)));
+           SLOT (handle_update_breakpoint_marker_request (bool,
+                                                          const QString&,
+                                                          int)));
 #endif
 
   QDir curr_dir;
@@ -960,12 +987,12 @@
            SIGNAL (set_workspace_signal
                    (bool, const QString&, const QStringList&,
                     const QStringList&, const QStringList&,
-                    const QStringList&)),
+                    const QStringList&, const QIntList&)),
            _workspace_model,
            SLOT (set_workspace
                  (bool, const QString&, const QStringList&,
                   const QStringList&, const QStringList&,
-                  const QStringList&)));
+                  const QStringList&, const QIntList&)));
 
   connect (_octave_qt_link, SIGNAL (clear_workspace_signal ()),
            _workspace_model, SLOT (clear_workspace ()));
@@ -1019,7 +1046,8 @@
   connect (_octave_qt_link,
            SIGNAL (update_breakpoint_marker_signal (bool, const QString&, int)),
            this,
-           SLOT (handle_update_breakpoint_marker_request (bool, const QString&, int)));
+           SLOT (handle_update_breakpoint_marker_request (bool, const QString&,
+                                                          int)));
 
   connect (_octave_qt_link,
            SIGNAL (show_doc_signal (const QString &)),
@@ -1174,12 +1202,12 @@
     = edit_menu->addAction (tr ("Clear Command Window"));
 
   QAction *clear_command_history
-    = edit_menu->addAction(tr ("Clear Command History"));
+    = edit_menu->addAction (tr ("Clear Command History"));
 
   QAction *clear_workspace_action
     = edit_menu->addAction (tr ("Clear Workspace"));
 
-  connect (_find_files_action, SIGNAL (triggered()),
+  connect (_find_files_action, SIGNAL (triggered ()),
            this, SLOT (find_files ()));
 
   connect (clear_command_window_action, SIGNAL (triggered ()),
@@ -1220,17 +1248,20 @@
   _debug_menu = p->addMenu (tr ("De&bug"));
 
   _debug_step_over = construct_debug_menu_item
-    (":/actions/icons/db_step.png", tr ("Step"), Qt::Key_F10);
+                       (":/actions/icons/db_step.png", tr ("Step"),
+                        Qt::Key_F10);
 
   _debug_step_into = construct_debug_menu_item
-    (":/actions/icons/db_step_in.png", tr ("Step in"), Qt::Key_F11);
+                       (":/actions/icons/db_step_in.png", tr ("Step in"),
+                        Qt::Key_F11);
 
   _debug_step_out = construct_debug_menu_item
-    (":/actions/icons/db_step_out.png", tr ("Step out"),
-     Qt::ShiftModifier + Qt::Key_F11);
+                      (":/actions/icons/db_step_out.png", tr ("Step out"),
+                       Qt::ShiftModifier + Qt::Key_F11);
 
   _debug_continue = construct_debug_menu_item
-    (":/actions/icons/db_cont.png", tr ("Continue"), Qt::Key_F5);
+                      (":/actions/icons/db_cont.png", tr ("Continue"),
+                       Qt::Key_F5);
 
   _debug_menu->addSeparator ();
 #ifdef HAVE_QSCINTILLA
@@ -1238,8 +1269,8 @@
 #endif
 
   _debug_quit = construct_debug_menu_item
-    (":/actions/icons/db_stop.png", tr ("Exit Debug Mode"),
-     Qt::ShiftModifier + Qt::Key_F5);
+                (":/actions/icons/db_stop.png", tr ("Exit Debug Mode"),
+                 Qt::ShiftModifier + Qt::Key_F5);
 
   connect (_debug_step_over, SIGNAL (triggered ()),
            this, SLOT (debug_step_over ()));
@@ -1280,48 +1311,62 @@
   QKeySequence ctrl_shift = Qt::ControlModifier + Qt::ShiftModifier;
 
   QAction *show_command_window_action = construct_window_menu_item
-    (window_menu, tr ("Show Command Window"), true, ctrl_shift + Qt::Key_0);
+                                        (window_menu,
+                                         tr ("Show Command Window"), true,
+                                         ctrl_shift + Qt::Key_0);
 
   QAction *show_history_action = construct_window_menu_item
-    (window_menu, tr ("Show Command History"), true, ctrl_shift + Qt::Key_1);
+                                 (window_menu, tr ("Show Command History"),
+                                  true, ctrl_shift + Qt::Key_1);
 
   QAction *show_file_browser_action =  construct_window_menu_item
-    (window_menu, tr ("Show File Browser"), true, ctrl_shift + Qt::Key_2);
+                                       (window_menu, tr ("Show File Browser"),
+                                        true, ctrl_shift + Qt::Key_2);
 
   QAction *show_workspace_action = construct_window_menu_item
-    (window_menu, tr ("Show Workspace"), true, ctrl_shift + Qt::Key_3);
+                                   (window_menu, tr ("Show Workspace"), true,
+                                    ctrl_shift + Qt::Key_3);
 
   QAction *show_editor_action = construct_window_menu_item
-    (window_menu, tr ("Show Editor"), true, ctrl_shift + Qt::Key_4);
+                                (window_menu, tr ("Show Editor"), true,
+                                 ctrl_shift + Qt::Key_4);
 
   QAction *show_documentation_action = construct_window_menu_item
-    (window_menu, tr ("Show Documentation"), true, ctrl_shift + Qt::Key_5);
+                                       (window_menu, tr ("Show Documentation"),
+                                        true, ctrl_shift + Qt::Key_5);
 
   QAction *show_news_action = construct_window_menu_item
-    (window_menu, tr ("Show News Window"), true, ctrl_shift + Qt::Key_6);
+                              (window_menu, tr ("Show News Window"), true,
+                               ctrl_shift + Qt::Key_6);
 
   window_menu->addSeparator ();
 
   QAction *command_window_action = construct_window_menu_item
-    (window_menu, tr ("Command Window"), false, ctrl + Qt::Key_0);
+                                   (window_menu, tr ("Command Window"), false,
+                                    ctrl + Qt::Key_0);
 
   QAction *history_action = construct_window_menu_item
-    (window_menu, tr ("Command History"), false, ctrl + Qt::Key_1);
+                            (window_menu, tr ("Command History"), false,
+                             ctrl + Qt::Key_1);
 
   QAction *file_browser_action = construct_window_menu_item
-    (window_menu, tr ("File Browser"), false, ctrl + Qt::Key_2);
+                                 (window_menu, tr ("File Browser"), false,
+                                  ctrl + Qt::Key_2);
 
   QAction *workspace_action = construct_window_menu_item
-    (window_menu, tr ("Workspace"), false, ctrl + Qt::Key_3);
+                              (window_menu, tr ("Workspace"), false,
+                               ctrl + Qt::Key_3);
 
   QAction *editor_action = construct_window_menu_item
-    (window_menu, tr ("Editor"), false, ctrl + Qt::Key_4);
+                           (window_menu, tr ("Editor"), false,
+                            ctrl + Qt::Key_4);
 
   QAction *documentation_action = construct_window_menu_item
-    (window_menu, tr ("Documentation"), false, ctrl + Qt::Key_5);
+                                  (window_menu, tr ("Documentation"), false,
+                                   ctrl + Qt::Key_5);
 
   QAction *news_action = construct_window_menu_item
-    (window_menu, tr ("News"), false, ctrl + Qt::Key_6);
+                         (window_menu, tr ("News"), false, ctrl + Qt::Key_6);
 
   window_menu->addSeparator ();
 
@@ -1503,29 +1548,30 @@
   _current_directory_combo_box = new QComboBox (this);
   _current_directory_combo_box->setFixedWidth (current_directory_width);
   _current_directory_combo_box->setEditable (true);
-  _current_directory_combo_box->setInsertPolicy(QComboBox::NoInsert);
+  _current_directory_combo_box->setInsertPolicy (QComboBox::NoInsert);
   _current_directory_combo_box->setToolTip (tr ("Enter directory name"));
-  _current_directory_combo_box->setMaxVisibleItems (current_directory_max_visible);
+  _current_directory_combo_box->setMaxVisibleItems (
+    current_directory_max_visible);
   _current_directory_combo_box->setMaxCount (current_directory_max_count);
-  QSizePolicy sizePol(QSizePolicy::Expanding, QSizePolicy::Preferred);
-  _current_directory_combo_box->setSizePolicy(sizePol);
+  QSizePolicy sizePol (QSizePolicy::Expanding, QSizePolicy::Preferred);
+  _current_directory_combo_box->setSizePolicy (sizePol);
 
   // addWidget takes ownership of the objects so there is no
   // need to delete these upon destroying this main_window.
   _main_tool_bar->addWidget (new QLabel (tr ("Current Directory: ")));
   _main_tool_bar->addWidget (_current_directory_combo_box);
   QAction *current_dir_up = _main_tool_bar->addAction (
-                                          QIcon (":/actions/icons/up.png"),
-                                          tr ("One directory up"));
+                              QIcon (":/actions/icons/up.png"),
+                              tr ("One directory up"));
   QAction *current_dir_search = _main_tool_bar->addAction (
-                                          QIcon (":/actions/icons/search.png"),
-                                          tr ("Browse directories"));
+                                  QIcon (":/actions/icons/search.png"),
+                                  tr ("Browse directories"));
 
   connect (_current_directory_combo_box, SIGNAL (activated (QString)),
            this, SLOT (set_current_working_directory (QString)));
 
-  connect (_current_directory_combo_box->lineEdit(), SIGNAL (returnPressed ()),
-            this, SLOT (accept_directory_line_edit ()));
+  connect (_current_directory_combo_box->lineEdit (), SIGNAL (returnPressed ()),
+           this, SLOT (accept_directory_line_edit ()));
 
   connect (current_dir_search, SIGNAL (triggered ()),
            this, SLOT (browse_for_directory ()));
@@ -1563,7 +1609,7 @@
   /* bool status = */ symbol_table::rename (names.first, names.second);
 
   // if (status)
-    octave_link::set_workspace (true, symbol_table::workspace_info ());
+  octave_link::set_workspace (true, symbol_table::workspace_info ());
 
   //  else
   //    ; // we need an octave_link action that runs a GUI error option.
@@ -1608,7 +1654,7 @@
       _cmd_queue_mutex.lock (); // critical path
       std::string command = _cmd_queue->takeFirst ().toStdString ();
       if (_cmd_queue->isEmpty ())
-        _cmd_processing.release ();  // command queue empty, processing will stop
+        _cmd_processing.release ();  // cmd queue empty, processing will stop
       else
         repost = true;          // not empty, repost at end
       _cmd_queue_mutex.unlock ();
@@ -1693,7 +1739,7 @@
 }
 
 void
-main_window::find_files(const QString &start_dir)
+main_window::find_files (const QString &start_dir)
 {
 
   if (! find_files_dlg)
@@ -1703,11 +1749,12 @@
       connect (find_files_dlg, SIGNAL (finished (int)),
                this, SLOT (find_files_finished (int)));
 
-      connect (find_files_dlg, SIGNAL (dir_selected(const QString &)),
-               file_browser_window, SLOT(set_current_directory(const QString&)));
+      connect (find_files_dlg, SIGNAL (dir_selected (const QString &)),
+               file_browser_window,
+               SLOT (set_current_directory (const QString&)));
 
-      connect (find_files_dlg, SIGNAL (file_selected(const QString &)),
-               this, SLOT(open_file(const QString &)));
+      connect (find_files_dlg, SIGNAL (file_selected (const QString &)),
+               this, SLOT (open_file (const QString &)));
 
       find_files_dlg->setWindowModality (Qt::NonModal);
     }
@@ -1717,14 +1764,14 @@
       find_files_dlg->show ();
     }
 
-  find_files_dlg->set_search_dir(start_dir);
+  find_files_dlg->set_search_dir (start_dir);
 
   find_files_dlg->activateWindow ();
 
 }
 
-void 
-main_window::find_files_finished(int)
+void
+main_window::find_files_finished (int)
 {
 
 }
@@ -1740,7 +1787,9 @@
 
       _exit_action->setShortcut (QKeySequence::Quit);
 
-      _find_files_action->setShortcut (Qt::ControlModifier + Qt::ShiftModifier + Qt::Key_F);
+      _find_files_action->setShortcut (Qt::ControlModifier
+                                       + Qt::ShiftModifier
+                                       + Qt::Key_F);
 
     }
   else
--- a/libgui/src/main-window.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/main-window.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,11 +21,11 @@
 
 */
 
-#if !defined (main_window_h)
-#define main_window_h 1
+#if !defined (octave_main_window_h)
+#define octave_main_window_h 1
 
 // Qt includes
-#include <QtGui/QMainWindow>
+#include <QMainWindow>
 #include <QThread>
 #include <QTabWidget>
 #include <QMdiArea>
@@ -115,7 +115,8 @@
   void open_agora_page (void);
   void open_contribute_page (void);
   void open_developer_page (void);
-  void process_settings_dialog_request (const QString& desired_tab = QString ());
+  void process_settings_dialog_request (const QString& desired_tab
+                                                         = QString ());
   void show_about_octave (void);
   void notice_settings (const QSettings *settings);
   void prepare_to_exit (void);
@@ -128,8 +129,8 @@
   void change_directory_up (void);
   void accept_directory_line_edit (void);
 
-  void execute_command_in_terminal(const QString& dir);
-  void run_file_in_terminal(const QFileInfo& info);
+  void execute_command_in_terminal (const QString& dir);
+  void run_file_in_terminal (const QFileInfo& info);
 
   void handle_new_figure_request (void);
 
@@ -173,16 +174,16 @@
                                   const QFloatList&, const QFloatList&,
                                   const QStringList&);
 
-  void handle_create_filedialog (const QStringList &filters, 
-                                 const QString& title, const QString& filename, 
+  void handle_create_filedialog (const QStringList &filters,
+                                 const QString& title, const QString& filename,
                                  const QString &dirname,
                                  const QString& multimode);
 
   void handle_show_doc (const QString &file);
 
-  // find files dialog 
-  void find_files(const QString &startdir=QDir::currentPath());
-  void find_files_finished(int);
+  // find files dialog
+  void find_files (const QString &startdir=QDir::currentPath ());
+  void find_files_finished (int);
 
   // setting global shortcuts
   void set_global_shortcuts (bool enable);
@@ -222,8 +223,6 @@
 
   void construct_tool_bar (void);
 
-  void display_url_in_window (const QUrl& url);
-
   void establish_octave_link (void);
 
   void save_workspace_callback (const std::string& file);
--- a/libgui/src/news-dock-widget.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/news-dock-widget.h	Tue Nov 05 12:27:42 2013 -0500
@@ -52,22 +52,22 @@
 class news_reader : public QObject
 {
   Q_OBJECT
- 
+
 public:
 
   news_reader (const QString& xbase_url, const QString& xpage)
     : QObject (), base_url (xbase_url), page (xpage) { }
- 
+
 public slots:
 
-    void process (void);
- 
+  void process (void);
+
 signals:
 
   void display_news_signal (const QString& news);
 
   void finished (void);
- 
+
 private:
 
   QString base_url;
--- a/libgui/src/octave-dock-widget.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-dock-widget.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
 
 
 octave_dock_widget::octave_dock_widget (QWidget *p)
-    : QDockWidget (p)
+  : QDockWidget (p)
 {
 
   _parent = static_cast<QMainWindow *> (p);     // store main window
@@ -58,8 +58,8 @@
            this, SLOT (change_floating (bool)));
   QToolButton *dock_button = new QToolButton (this);
   dock_button->setDefaultAction (_dock_action);
-  dock_button->setFocusPolicy(Qt::NoFocus);
-  dock_button->setIconSize(QSize(12,12));
+  dock_button->setFocusPolicy (Qt::NoFocus);
+  dock_button->setIconSize (QSize (12,12));
 
   QAction *close_action = new QAction
                    (QIcon (":/actions/icons/widget-close.png"), "", this );
@@ -68,8 +68,8 @@
            this, SLOT (change_visibility (bool)));
   QToolButton *close_button = new QToolButton (this);
   close_button->setDefaultAction (close_action);
-  close_button->setFocusPolicy(Qt::NoFocus);
-  close_button->setIconSize(QSize(12,12));
+  close_button->setFocusPolicy (Qt::NoFocus);
+  close_button->setIconSize (QSize (12,12));
 
   QHBoxLayout *h_layout = new QHBoxLayout ();
   h_layout->addStretch (100);
@@ -95,8 +95,10 @@
 #endif
 
   // copy & paste handling
-  connect (p, SIGNAL (copyClipboard_signal ()), this, SLOT (copyClipboard ()));
-  connect (p, SIGNAL (pasteClipboard_signal()), this, SLOT (pasteClipboard ()));
+  connect (p, SIGNAL (copyClipboard_signal ()),
+           this, SLOT (copyClipboard ()));
+  connect (p, SIGNAL (pasteClipboard_signal ()),
+           this, SLOT (pasteClipboard ()));
 }
 
 octave_dock_widget::~octave_dock_widget ()
@@ -110,7 +112,8 @@
   settings->beginGroup ("DockWidgets");
 
   if (!parent ())
-    { // widget is floating (windows), save actual floating geometry
+    {
+      // widget is floating (windows), save actual floating geometry
       floating = true;
       settings->setValue (name+"_floating_geometry", saveGeometry ());
     }
@@ -141,7 +144,7 @@
 {
 #if defined (Q_OS_WIN32)
   QHBoxLayout* h_layout =
-      static_cast<QHBoxLayout *> (titleBarWidget ()->layout ());
+    static_cast<QHBoxLayout *> (titleBarWidget ()->layout ());
   QLabel *label = new QLabel (title);
   h_layout->insertWidget (0,label);
 #endif
@@ -170,8 +173,8 @@
   _dock_action->setToolTip (tr ("Dock widget"));
 
   // restore the last geometry when floating
-  restoreGeometry (settings->value
-          ("DockWidgets/" + objectName ()+"_floating_geometry").toByteArray ());
+  restoreGeometry (settings->value ("DockWidgets/" + objectName ()
+                                    + "_floating_geometry").toByteArray ());
 
 #else
 
@@ -198,12 +201,14 @@
   settings->sync ();
 
   if (dock)
-    { // add widget to last saved docking area (dock=true is default)
+    {
+      // add widget to last saved docking area (dock=true is default)
       int area = settings->value ("DockWidgets/" + objectName () + "_dock_area",
-                                   Qt::TopDockWidgetArea).toInt ();
+                                  Qt::TopDockWidgetArea).toInt ();
       _parent->addDockWidget (static_cast<Qt::DockWidgetArea> (area), this);
 
-      // FIXME: restoreGeometry is ignored for docked widgets and its child widget
+      // FIXME: restoreGeometry is ignored for docked widgets
+      //        and its child widget
       // restoreGeometry (settings->value
       //        ("DockWidgets/" + objectName ()).toByteArray ());
     }
@@ -225,9 +230,9 @@
 // slot for (un)dock action
 void
 octave_dock_widget::change_floating (bool floating)
- {
+{
 #if defined (Q_OS_WIN32)
-   if (parent())
+  if (parent ())
 #else
   if (floating)
 #endif
@@ -251,7 +256,7 @@
 QWidget *
 octave_dock_widget::focusWidget ()
 {
-    QWidget * w = QApplication::focusWidget ();
-    if(w && w->focusProxy ()) w = w->focusProxy ();
-    return w;
+  QWidget * w = QApplication::focusWidget ();
+  if (w && w->focusProxy ()) w = w->focusProxy ();
+  return w;
 }
--- a/libgui/src/octave-dock-widget.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-dock-widget.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_dock_widget_h)
-#define octave_dock_widget_h 1
+#if !defined (octave_octave_dock_widget_h)
+#define octave_octave_dock_widget_h 1
 
 #include <QDockWidget>
 #include <QSettings>
@@ -58,7 +58,7 @@
     QDockWidget::closeEvent (e);
   }
 
-  QWidget * focusWidget();
+  QWidget * focusWidget ();
 
 public slots:
 
--- a/libgui/src/octave-gui.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-gui.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -24,8 +24,10 @@
 #include <config.h>
 #endif
 
-#include <QtGui/QApplication>
+#include <QApplication>
+#include <QCoreApplication>
 #include <QTextCodec>
+#include <QThread>
 #include <QTranslator>
 
 #include <iostream>
@@ -42,6 +44,7 @@
 #include "oct-syscalls.h"
 #include "syswait.h"
 
+#include "octave.h"
 #include "sighandlers.h"
 
 #include "welcome-wizard.h"
@@ -49,126 +52,136 @@
 #include "main-window.h"
 #include "octave-gui.h"
 
+// Allow the Octave interpreter to start as in CLI mode with a
+// QApplication context so that it can use Qt for things like plotting
+// and UI widgets.
 
-// custom message handler for filtering some messages from qt
-void message_handler (QtMsgType type, const char *msg)
- {
-     switch (type) {
-     case QtDebugMsg:
-         if (strcmp(msg,"QFileSystemWatcher: skipping native engine") > 0)
-           break;
-         fprintf(stderr, "Debug: %s\n", msg);
-         break;
-     case QtWarningMsg:
-         fprintf(stderr, "Warning: %s\n", msg);
-         break;
-     case QtCriticalMsg:
-         fprintf(stderr, "Critical: %s\n", msg);
-         break;
-     case QtFatalMsg:
-         fprintf(stderr, "Fatal: %s\n", msg);
-         abort();
-     }
- }
+class octave_cli_thread : public QThread
+{
+public:
+
+  octave_cli_thread (int argc, char **argv)
+    : m_argc (argc), m_argv (argv), m_result (0) { }
+
+  int result (void) const { return m_result; }
+
+protected:
+
+  void run (void)
+  {
+    octave_initialize_interpreter (m_argc, m_argv, 0);
+
+    m_result = octave_execute_interpreter ();
+
+    QCoreApplication::exit (m_result);
+  }
+
+private:
+
+  int m_argc;
+  char** m_argv;
+  int m_result;
+};
 
 
-// Dissociate from the controlling terminal, if any.
+// Custom message handler for filtering some messages from Qt.
 
-static void
-dissociate_terminal (void)
+void message_handler (QtMsgType type, const char *msg)
 {
-#if ! (defined (__WIN32__) || defined (__APPLE__)) || defined (__CYGWIN__)
- 
-  pid_t pid = fork ();
+  switch (type)
+    {
+    case QtDebugMsg:
+      if (strncmp (msg, "QFileSystemWatcher: skipping native engine",42) != 0)
+        std::cerr << "Debug: " << msg << std::endl;
+      break;
+
+    case QtWarningMsg:
+      std::cerr << "Warning: " << msg << std::endl;
+      break;
+
+    case QtCriticalMsg:
+      std::cerr << "Critical: " << msg << std::endl;
+      break;
 
-  if (pid < 0)
+    case QtFatalMsg:
+      std::cerr << "Fatal: " << msg << std::endl;
+      abort ();
+
+    default:
+      break;
+    }
+}
+
+// If START_GUI is false, we still set up the QApplication so that we
+// can use Qt widgets for plot windows.
+
+int
+octave_start_gui (int argc, char *argv[], bool start_gui)
+{
+  qInstallMsgHandler (message_handler);
+
+  if (start_gui)
     {
-      std::cerr << "fork failed!" << std::endl;;
-      exit (1);
-    }
-  else if (pid == 0)
-    {
-      // Child.
+      QApplication application (argc, argv);
+
+      // Set the codec for all strings
+      QTextCodec::setCodecForCStrings (QTextCodec::codecForName ("UTF-8"));
+
+      // install translators for the gui and qt text
+      QTranslator gui_tr, qt_tr, qsci_tr;
+      resource_manager::config_translators (&qt_tr,&qsci_tr,&gui_tr);
+      application.installTranslator (&qt_tr);
+      application.installTranslator (&qsci_tr);
+      application.installTranslator (&gui_tr);
+
+      while (true)
+        {
+          if (resource_manager::is_first_run ())
+            {
+              welcome_wizard welcomeWizard;
+              welcomeWizard.exec ();
+              resource_manager::reload_settings ();
+            }
+          else
+            {
+              // update network-settings
+              resource_manager::update_network_settings ();
 
-      if (setsid () < 0)
-        {
-          std::cerr << "setsid error" << std::endl;
-          exit (1);
+#if ! defined (__WIN32__) || defined (__CYGWIN__)
+              // If we were started from a launcher, TERM might not be
+              // defined, but we provide a terminal with xterm
+              // capabilities.
+
+              std::string term = octave_env::getenv ("TERM");
+
+              if (term.empty ())
+                octave_env::putenv ("TERM", "xterm");
+#else
+              std::string term = octave_env::getenv ("TERM");
+
+              if (term.empty ())
+                octave_env::putenv ("TERM", "cygwin");
+#endif
+
+              // create main window, read settings, and show window
+              main_window w;
+              w.read_settings ();  // get widget settings and window layout
+              w.focus_command_window ();
+              w.connect_visibility_changed (); // connect signals for changes
+                                               // in visibility not before w
+                                               // is shown
+              return application.exec ();
+            }
         }
     }
   else
     {
-      // Parent
-
-      install_gui_driver_signal_handlers (pid);
-
-      int status;
-
-      waitpid (pid, &status, 0);
-
-      exit (octave_wait::ifexited (status)
-            ? octave_wait::exitstatus (status) : 127);
-    }
-
-#endif
-}
+      QCoreApplication application (argc, argv);
 
-int
-octave_start_gui (int argc, char *argv[], bool fork)
-{
-  if (fork)
-    dissociate_terminal ();
-
-  qInstallMsgHandler(message_handler);
-
-  QApplication application (argc, argv);
-
-  // Set the codec for all strings
-  QTextCodec::setCodecForCStrings(QTextCodec::codecForName("UTF-8"));
-
-  // install translators for the gui and qt text
-  QTranslator gui_tr, qt_tr, qsci_tr;
-  resource_manager::config_translators (&qt_tr,&qsci_tr,&gui_tr);
-  application.installTranslator (&qt_tr);
-  application.installTranslator (&qsci_tr);
-  application.installTranslator (&gui_tr);
+      octave_cli_thread main_thread (argc, argv);
 
-  while (true)
-    {
-      if (resource_manager::is_first_run ())
-        {
-          welcome_wizard welcomeWizard;
-          welcomeWizard.exec ();
-          resource_manager::reload_settings ();
-        }
-      else
-        {
-          // update network-settings
-          resource_manager::update_network_settings ();
-
-#if ! defined (__WIN32__) || defined (__CYGWIN__)
-          // If we were started from a launcher, TERM might not be
-          // defined, but we provide a terminal with xterm
-          // capabilities.
+      main_thread.start ();
 
-          std::string term = octave_env::getenv ("TERM");
-
-          if (term.empty ())
-            octave_env::putenv ("TERM", "xterm");
-#else
-          std::string term = octave_env::getenv ("TERM");
-
-          if (term.empty ())
-            octave_env::putenv ("TERM", "cygwin");
-#endif
-
-          // create main window, read settings, and show window
-          main_window w;
-          w.read_settings ();  // get widget settings and window layout
-          w.focus_command_window ();
-          w.connect_visibility_changed (); // connect signals for changes in
-                                           // visibility not before w is shown
-          return application.exec ();
-        }
+      return application.exec ();
     }
 }
--- a/libgui/src/octave-gui.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-gui.h	Tue Nov 05 12:27:42 2013 -0500
@@ -24,6 +24,6 @@
 #define octave_octave_gui_h 1
 
 extern OCTGUI_API int octave_start_gui (int argc, char **argv,
-                                        bool fork = true);
+                                        bool start_gui = true);
 
 #endif
--- a/libgui/src/octave-main-thread.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-main-thread.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -25,7 +25,6 @@
 #include <config.h>
 #endif
 
-#include <clocale>
 #include <string>
 
 #include "builtin-defun-decls.h"
@@ -39,9 +38,6 @@
 void
 octave_main_thread::run (void)
 {
-  // Matlab uses "C" locale for LC_NUMERIC class regardless of local setting
-  setlocale (LC_NUMERIC, "C");
-
   octave_initialize_interpreter (octave_cmdline_argc, octave_cmdline_argv,
                                  octave_embedded);
 
--- a/libgui/src/octave-qt-link.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-qt-link.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -114,7 +114,7 @@
   uiwidget_creator.wait ();
 
   // The GUI has sent a signal and the process has been awakened.
-  return uiwidget_creator.get_dialog_button().toStdString ();
+  return uiwidget_creator.get_dialog_button ().toStdString ();
 }
 
 static QStringList
@@ -153,10 +153,10 @@
       name.replace (QRegExp ("\\(.*\\)"), "");
       ext.replace (";", " ");
 
-      if (name.length() == 0)
+      if (name.length () == 0)
         {
           // No name field.  Build one from the extensions.
-          name = ext.toUpper() + " Files";
+          name = ext.toUpper () + " Files";
         }
 
       retval.append (name + " (" + ext + ")");
@@ -250,7 +250,8 @@
     retval.push_back (it->toStdString ());
 
   retval.push_back (uiwidget_creator.get_dialog_path ()->toStdString ());
-  retval.push_back ((QString ("%1").arg (uiwidget_creator.get_dialog_result ())).toStdString ());
+  retval.push_back ((QString ("%1").arg (
+                       uiwidget_creator.get_dialog_result ())).toStdString ());
 
   return retval;
 }
@@ -267,8 +268,8 @@
 
   QString msg
     = (addpath_option
-       ? tr ("The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.").arg(qfile).arg(qdir)
-       : tr ("The file %1 is shadowed by a file with the same name in the load path.  To debug the function you are editing, change to the directory %2.").arg(qfile).arg(qdir));
+       ? tr ("The file %1 does not exist in the load path.  To debug the function you are editing, you must either change to the directory %2 or add that directory to the load path.").arg (qfile).arg (qdir)
+       : tr ("The file %1 is shadowed by a file with the same name in the load path.  To debug the function you are editing, change to the directory %2.").arg (qfile).arg (qdir));
 
   QString title = tr ("Change Directory or Add Directory to Load Path");
 
@@ -324,6 +325,7 @@
   QStringList class_names;
   QStringList dimensions;
   QStringList values;
+  QIntList complex_flags;
 
   for (std::list<workspace_element>::const_iterator it = ws.begin ();
        it != ws.end (); it++)
@@ -333,10 +335,11 @@
       class_names.append (QString::fromStdString (it->class_name ()));
       dimensions.append (QString::fromStdString (it->dimension ()));
       values.append (QString::fromStdString (it->value ()));
+      complex_flags.append (it->complex_flag ());
     }
 
   emit set_workspace_signal (top_level, scopes, symbols, class_names,
-                             dimensions, values);
+                             dimensions, values, complex_flags);
 }
 
 void
@@ -402,7 +405,8 @@
 octave_qt_link::do_update_breakpoint (bool insert,
                                       const std::string& file, int line)
 {
-  emit update_breakpoint_marker_signal (insert, QString::fromStdString (file), line);
+  emit update_breakpoint_marker_signal (insert, QString::fromStdString (file),
+                                        line);
 }
 
 void
--- a/libgui/src/octave-qt-link.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/octave-qt-link.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,6 +35,9 @@
 #include "octave-link.h"
 #include "octave-main-thread.h"
 
+// Defined for purposes of sending QList<int> as part of signal.
+typedef QList<int> QIntList;
+
 // \class OctaveLink
 // \brief Provides threadsafe access to octave.
 // \author Jacob Dawid
@@ -85,7 +88,7 @@
                    const std::list<std::string>& defaults);
 
   std::list<std::string>
-  do_file_dialog (const filter_list& filter, const std::string& title, 
+  do_file_dialog (const filter_list& filter, const std::string& title,
                   const std::string &filename, const std::string &pathname,
                   const std::string& multimode);
 
@@ -153,7 +156,8 @@
                              const QStringList& symbols,
                              const QStringList& class_names,
                              const QStringList& dimensions,
-                             const QStringList& values);
+                             const QStringList& values,
+                             const QIntList& complex_flags);
 
   void clear_workspace_signal (void);
 
--- a/libgui/src/qtinfo/parser.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/qtinfo/parser.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -166,7 +166,7 @@
   while (!io->atEnd ())
     {
       QString text = get_next_node (io);
-      if(node == get_node_name (text))
+      if (node == get_node_name (text))
         {
           return text;
         }
@@ -187,12 +187,14 @@
     {
       io->getChar (&c);
       if (c)
-        { // first char is not equal 0
+        {
+          // first char is not equal 0
           io->ungetChar (c);
           line = io->readLine ();
         }
       else
-        { // 0 was read -> image -> text length changes
+        {
+          // 0 was read -> image -> text length changes
           line_buffer = io->readLine ();  // image tag that is not needed
           line = io->readLine ();         // firsts line of text message
           for (i=1; i<line_buffer.size ()+6; i++)  // correct the size
@@ -233,7 +235,7 @@
 {
   QString firstLine = get_first_line (text);
   QStringList nodes = firstLine.split (",");
-  for (int i = 0;i < nodes.size (); i++)
+  for (int i = 0; i < nodes.size (); i++)
     {
       QString node = nodes.at (i).trimmed ();
 
@@ -272,7 +274,7 @@
 static void
 replace_links (QString& text)
 {
-  QRegExp re ("(\\*[N|n]ote|\n\\*)([ |\n]+)([^:]+):([^:\\.,]*)([:,\\.])");
+  QRegExp re ("(\\*[N|n]ote|\n\\*)([ |\n]+)([^:]+):([^:\\.,]*)([:,\\.]+)");
   int i = 0, f;
 
   while ( (i = re.indexIn (text,i)) != -1)
@@ -280,20 +282,34 @@
       QString type     = re.cap (1);
       QString note     = re.cap (3);
       QString url_link = re.cap (4);
-      QString link     = re.cap (4) + re.cap(5);
-      QString spaces = QString("");
-      QRegExp re_linebreak ("\n([ ]*)([^ ]*)([ ]*)");
-      if (re_linebreak.indexIn (link,0) != -1)
-        {
-          link.replace (re_linebreak,"&nbsp;"+re_linebreak.cap (2)+"\n");   // prevent line breaks in links
-          spaces = re_linebreak.cap (1);
-        }
+      QString term     = re.cap (5);
 
       if (url_link.isEmpty ())
         {
           url_link = note;
         }
 
+      term.replace(":","");
+      note.replace(":","");
+      note.replace (QRegExp ("`([^']+)'"),"\\1");   // no extra format in links
+
+      QRegExp re_break ("(\n[ ]*)");
+
+      if (note == "fig" || note == "tab")
+        url_link.prepend("#");
+
+      QString href;
+      if (type == "\n*")
+        href="\n";
+
+      if (re_break.indexIn (url_link) != -1)
+        term += re_break.cap (1);
+      else if (re_break.indexIn (re.cap (2)) != -1)
+        href = re_break.cap (1) + " ";
+      else if (re_break.indexIn (note) != -1)
+        term += re_break.cap (1);
+      note.replace(re_break,"&nbsp;");
+
       url_link = url_link.trimmed ();
       url_link.replace ("\n"," ");
       url_link.replace (QRegExp ("  +")," ");
@@ -301,16 +317,8 @@
       url_link.replace ("</b>","");
       url_link = QUrl::toPercentEncoding (url_link, "", "'");
 
-      QString href;
-      if (type=="\n*")
-        {
-          href="\n<img src=':/actions/icons/bookmark.png' width=10/>";
-        }
-      else
-        {
-          href="<img src=':/actions/icons/bookmark.png' width=10/>";
-        }
-      href += re.cap(2) + "<a href='" + url_link + "'>" + note + ":" + link + "</a>" + spaces;
+      href += "<img src=':/actions/icons/bookmark.png' width=10/>";
+      href +=  "&nbsp;<a href='" + url_link + "'>" + note + "</a>" + term;
       f = re.matchedLength ();
       text.replace (i,f,href);
       i += href.size ();
@@ -325,7 +333,8 @@
   while ( (i = re.indexIn (text, i)) != -1)
     {
       QString t = re.cap (1);
-      QString bold = "<font style=\"color:Blue;font-weight:bold\">" + t + "</font>";
+      QString bold = "<font style=\"color:SteelBlue;font-weight:bold\">" + t +
+                     "</font>";
 
       f = re.matchedLength ();
       text.replace (i,f,bold);
@@ -340,10 +349,12 @@
   text.replace ("<", "&lt;");
   text.replace (">", "&gt;");
 
-  text.replace ("\n* Menu:", "\n<font style=\"text-decoration:underline;font-weight:bold\">Menu:</font>");
-  text.replace ("See also:", "<font style=\"color:DarkRed;font-style:italic;font-weight:bold\">See also:</font>");
+  text.replace ("\n* Menu:",
+                "\n<font style=\"color:DarkRed;font-weight:bold\">Menu:</font>");
+  text.replace ("See also:",
+                "<font style=\"color:DarkRed;font-style:italic;font-weight:bold\">See also:</font>");
+  replace_links (text);
   replace_colons (text);
-  replace_links (text);
 }
 
 QString
@@ -369,8 +380,8 @@
       info_to_html (text2);
 
       text = text1 + "<a name='" + anchor
-                   + "'/><img src=':/actions/icons/arrow_down.png'><br>&nbsp;"
-                   + text2;
+             + "'/><img src=':/actions/icons/arrow_down.png'><br>&nbsp;"
+             + text2;
     }
   else
     {
@@ -380,7 +391,7 @@
     }
 
   QString navigationLinks = QString (
-        "<b>Section:</b> %1<br>"
+        "<b>Section:</b> <font style=\"color:DarkRed\">%1</font><br>"
         "<img src=':/actions/icons/arrow_left.png'/> <b>Previous Section:</b> <a href='%2'>%3</a><br>"
         "<img src=':/actions/icons/arrow_right.png'/> <b>Next Section:</b> <a href='%4'>%5</a><br>"
         "<img src=':/actions/icons/arrow_up.png'/> <b>Up:</b> <a href='%6'>%7</a><br>\n"
@@ -393,7 +404,6 @@
       .arg (QString (QUrl::toPercentEncoding (nodeUp, "", "'")))
       .arg (nodeUp);
 
-
   text.prepend ("<hr>\n<pre style=\"font-family:monospace\">");
   text.append ("</pre>\n<hr><hr>\n");
   text.prepend (navigationLinks);
@@ -412,7 +422,7 @@
   QRegExp re_files ("([^:]+): (\\d+)\n");
   int foundCount = 0;
 
-  for(int i = 0; i < _info_files.size (); i++)
+  for (int i = 0; i < _info_files.size (); i++)
     {
       QFileInfo fileInfo = _info_files.at (i);
 
@@ -432,7 +442,8 @@
               int pos = 0;
               QString last_node;
 
-              while ((pos = re.indexIn (nodeText, pos)) != -1) {
+              while ((pos = re.indexIn (nodeText, pos)) != -1)
+                {
                   QString type = re.cap (1);
                   QString node = re.cap (2);
                   int index = re.cap (3).toInt ();
@@ -460,12 +471,13 @@
               foundCount++;
               int pos = 0;
 
-              while ( (pos = re_files.indexIn (nodeText, pos)) != -1) {
+              while ( (pos = re_files.indexIn (nodeText, pos)) != -1)
+                {
                   QString fileCap = re_files.cap (1).trimmed ();
                   int index = re_files.cap (2).toInt ();
 
                   info_file_item item;
-                  for (int j = 0;j < _info_files.size (); j++)
+                  for (int j = 0; j < _info_files.size (); j++)
                     {
                       QFileInfo info = _info_files.at (j);
                       if (info.fileName ().startsWith (fileCap))
@@ -581,7 +593,8 @@
           int pos = 0;
           int founds = 0;
 
-          for (; founds < words.size () && node_text.indexOf (words.at (founds)) >= 0; founds++)
+          for (; founds < words.size ()
+                 && node_text.indexOf (words.at (founds)) >= 0; founds++)
             { }
 
           if (founds<words.size ())
@@ -590,20 +603,22 @@
             }
           founds = 0;
 
-          while ( (pos = re.indexIn (node_text, pos)) != -1 && founds < max_founds)
+          while ((pos = re.indexIn (node_text, pos)) != -1
+                 && founds < max_founds)
             {
               int line_start, line_end;
               line_start = node_text.lastIndexOf ("\n", pos);
               line_end = node_text.indexOf ("\n", pos);
-              QString line = node_text.mid (line_start, line_end - line_start).trimmed ();
+              QString line = node_text.mid (line_start,
+                                            line_end - line_start).trimmed ();
               pos += re.matchedLength ();
 
               if (founds == 0)
                 {
                   results.append(
-                        "<br>\n<img src=':/actions/icons/bookmark.png' width=10> <a href='"
-                        + QString(QUrl::toPercentEncoding(node,"","'")) +
-                        "'>");
+                    "<br>\n<img src=':/actions/icons/bookmark.png' width=10> <a href='"
+                    + QString(QUrl::toPercentEncoding(node,"","'")) +
+                    "'>");
                   results.append (node);
                   results.append ("</a><br>\n");
                 }
@@ -623,13 +638,13 @@
   return results;
 }
 
-QString 
+QString
 parser::find_ref (const QString &ref_name)
 {
   QString text = "";
 
   QHash<QString,node_position>::iterator it;
-  for (it=_ref_map.begin ();it!=_ref_map.end ();++it)
+  for (it=_ref_map.begin (); it!=_ref_map.end (); ++it)
     {
       QString k = it.key ();
       node_position p = it.value ();
--- a/libgui/src/qtinfo/parser.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/qtinfo/parser.h	Tue Nov 05 12:27:42 2013 -0500
@@ -39,14 +39,15 @@
  * If you make a queue with info files, position will be the number of bytes
  * from begining to node position.</p>
  * <p>
- * But is not so easy. There is headers, and qtinfo must not take these headers into account.
+ * But is not so easy. There is headers, and qtinfo must not take these
+ * headers into account.
  * </p>
  * <p>
  * This class also translates info files to html.
  * </p>
  */
 class parser
-    : public QObject
+  : public QObject
 {
   Q_OBJECT
 
@@ -59,13 +60,13 @@
 
   QString find_ref (const QString &name);
 
-  /** Checks if this node is reference. If node is reference, it will be returned its position
-    * in text, else  it will be returned -1.
+  /** Checks if this node is reference. If node is reference, it will be
+   *  returned its position in text, else it will be returned -1.
     */
   int is_ref (const QString& node);
 
-  /**Translates text of node to Html. If anchorPos is not -1, then anchor is inserted in that
-    * position.
+  /** Translates text of node to Html. If anchorPos is not -1, then anchor is
+   *  inserted in that position.
     */
   QString node_text_to_html (const QString& text, int anchorPos = -1,
                              const QString& anchor = QString ());
--- a/libgui/src/qtinfo/webinfo.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/qtinfo/webinfo.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -49,7 +49,8 @@
   setLayout (vbox_layout);
 
   QHBoxLayout *hbox_layout = new QHBoxLayout ();
-  hbox_layout->setMargin (2);
+  hbox_layout->setMargin (0);
+  hbox_layout->setSpacing (0);
   vbox_layout->addLayout (hbox_layout);
 
   _tab_bar = new QTabBar (this);
@@ -60,12 +61,10 @@
   hbox_layout->addWidget (_tab_bar);
 
   _zoom_in_button = new QToolButton (this);
-  _zoom_in_button->setSizePolicy (QSizePolicy::Fixed,QSizePolicy::Preferred);
   _zoom_in_button->setIcon (QIcon (":/actions/icons/zoom-in.png"));
   hbox_layout->addWidget (_zoom_in_button);
 
   _zoom_out_button = new QToolButton (this);
-  _zoom_out_button->setSizePolicy (QSizePolicy::Fixed,QSizePolicy::Preferred);
   _zoom_out_button->setIcon (QIcon (":/actions/icons/zoom-out.png"));
   hbox_layout->addWidget (_zoom_out_button);
 
@@ -77,15 +76,18 @@
 
   _search_line_edit = new QLineEdit(this);
 #ifdef HAVE_SETPLACEHOLDERTEXT
-  _search_line_edit->setPlaceholderText (tr ("Type here and press \'Return\' to search"));
+  _search_line_edit->setPlaceholderText (
+    tr ("Type here and press \'Return\' to search"));
 #endif
   hbox_layout->addWidget (_search_line_edit);
 
   _search_check_box = new QCheckBox (tr ("Global search"));
   hbox_layout->addWidget (_search_check_box);
 
-  connect (_tab_bar, SIGNAL (tabCloseRequested (int)), this, SLOT (close_tab (int)));
-  connect (_tab_bar, SIGNAL (currentChanged (int)), this, SLOT (current_tab_changed (int)));
+  connect (_tab_bar, SIGNAL (tabCloseRequested (int)), this,
+           SLOT (close_tab (int)));
+  connect (_tab_bar, SIGNAL (currentChanged (int)), this,
+           SLOT (current_tab_changed (int)));
   connect (_zoom_in_button, SIGNAL (clicked ()), this, SLOT (zoom_in ()));
   connect (_zoom_out_button, SIGNAL (clicked ()), this, SLOT (zoom_out ()));
   connect (_search_line_edit, SIGNAL (returnPressed ()), this, SLOT (search ()));
@@ -111,7 +113,7 @@
   tab_text.replace("XREF","");
 
   //Check if node has been already opened.
-  for (int i = 0;i < _tab_bar->count (); i++)
+  for (int i = 0; i < _tab_bar->count (); i++)
     {
       if (tab_text == _tab_bar->tabText (i))
         {
@@ -135,7 +137,10 @@
 webinfo::link_clicked (const QUrl & link)
 {
   QString node = link.toString ();
-  load_node (node);
+  if (node.at (0) != '#')
+    load_node (node);
+  else
+    _text_browser->scrollToAnchor (node);
 }
 
 void
@@ -159,8 +164,10 @@
   _text_browser->setOpenLinks (false);
   _text_browser->show ();
 
-  connect (_text_browser, SIGNAL (anchorClicked (const QUrl &)), this, SLOT (link_clicked (const QUrl &)) );
-  disconnect(_tab_bar, SIGNAL (currentChanged(int)), this, SLOT (current_tab_changed (int)));
+  connect (_text_browser, SIGNAL (anchorClicked (const QUrl &)), this,
+           SLOT (link_clicked (const QUrl &)) );
+  disconnect(_tab_bar, SIGNAL (currentChanged(int)), this,
+             SLOT (current_tab_changed (int)));
 
   int ns = _stacked_widget->addWidget (_text_browser);
   _stacked_widget->setCurrentIndex (ns);
@@ -171,7 +178,8 @@
   tab_data.setValue (static_cast<void*> (_text_browser));
   _tab_bar->setTabData (nt, tab_data);
 
-  connect (_tab_bar, SIGNAL (currentChanged (int)), this, SLOT (current_tab_changed (int)));
+  connect (_tab_bar, SIGNAL (currentChanged (int)), this,
+           SLOT (current_tab_changed (int)));
 
   if (_text_browser->font () != _font_web)
     {
@@ -205,11 +213,11 @@
   else
     {
       // not found
-     load_node("Top");
+      load_node("Top");
     }
 
-   if (_text_browser)
-     _text_browser->setFocus(); 
+  if (_text_browser)
+    _text_browser->setFocus();
 }
 
 void
@@ -265,7 +273,7 @@
     {
       QClipboard *clipboard = QApplication::clipboard ();
       QString str =  clipboard->text ();
-      if (str.length () > 0) 
+      if (str.length () > 0)
         _search_line_edit->insert (str);
     }
 }
--- a/libgui/src/qtinfo/webinfo.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/qtinfo/webinfo.h	Tue Nov 05 12:27:42 2013 -0500
@@ -40,8 +40,8 @@
   webinfo (QWidget *parent = 0);
   void set_info_path (const QString& info_path);
   void load_node (const QString& node_name);
- 
-  void load_ref (const QString &ref_name); 
+
+  void load_ref (const QString &ref_name);
 
 public slots:
   void link_clicked (const QUrl& link);
--- a/libgui/src/resource-manager.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/resource-manager.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -29,7 +29,7 @@
 #include <QFile>
 #include <QDir>
 #include <QNetworkProxy>
- #include <QLibraryInfo>
+#include <QLibraryInfo>
 
 #include "error.h"
 #include "file-ops.h"
@@ -89,24 +89,25 @@
 {
   bool loaded;
 
-  QString qt_trans_dir = QLibraryInfo::location(QLibraryInfo::TranslationsPath);
+  QString qt_trans_dir
+    = QLibraryInfo::location (QLibraryInfo::TranslationsPath);
   QSettings *settings = resource_manager::get_settings ();
-  // FIXME -- what should happen if settings is 0?
+  // FIXME: what should happen if settings is 0?
 
   // get the locale from the settings
   QString language = settings->value ("language","SYSTEM").toString ();
   if (language == "SYSTEM")
-      language = QLocale::system().name();    // get system wide locale
+    language = QLocale::system ().name ();    // get system wide locale
 
   // load the translator file for qt strings
-  loaded = qt_tr->load("qt_" + language, qt_trans_dir);
+  loaded = qt_tr->load ("qt_" + language, qt_trans_dir);
   if (!loaded) // try lower case
-    qt_tr->load("qt_" + language.toLower (), qt_trans_dir);
+    qt_tr->load ("qt_" + language.toLower (), qt_trans_dir);
 
   // load the translator file for qscintilla settings
-  loaded = qsci_tr->load("qscintilla_" + language, qt_trans_dir);
+  loaded = qsci_tr->load ("qscintilla_" + language, qt_trans_dir);
   if (!loaded) // try lower case
-    qsci_tr->load("qscintilla_" + language.toLower (), qt_trans_dir);
+    qsci_tr->load ("qscintilla_" + language.toLower (), qt_trans_dir);
 
   // load the translator file for gui strings
   gui_tr->load (language, get_gui_translation_dir ());
@@ -178,7 +179,7 @@
 
   if (!QFile::exists (settings_file))
     {
-      QDir("/").mkpath (settings_path);
+      QDir ("/").mkpath (settings_path);
       QFile::copy (default_qt_settings_file (), settings_file);
       first_run = true;
     }
@@ -227,7 +228,7 @@
   QNetworkProxy::setApplicationProxy (proxy);
 }
 
-QStringList 
+QStringList
 resource_manager::storage_class_names (void)
 {
   return workspace_model::storage_class_names ();
@@ -239,7 +240,7 @@
   return workspace_model::storage_class_default_colors ();
 }
 
-QStringList 
+QStringList
 resource_manager::terminal_color_names (void)
 {
   return QTerminal::color_names ();
--- a/libgui/src/settings-dialog.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/settings-dialog.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -57,7 +57,7 @@
   ui->setupUi (this);
 
   QSettings *settings = resource_manager::get_settings ();
-  // FIXME -- what should happen if settings is 0?
+  // FIXME: what should happen if settings is 0?
 
   // look for available language files and the actual settings
   QString qm_dir_name = resource_manager::get_gui_translation_dir ();
@@ -65,32 +65,37 @@
   QFileInfoList qm_files = qm_dir.entryInfoList (QStringList ("*.qm"),
                                                  QDir::Files | QDir::Readable,
                                                  QDir::Name);
-  for (int i = 0; i < qm_files.length (); i++)    // insert available languages
+  for (int i = 0; i < qm_files.length (); i++)   // insert available languages
     ui->comboBox_language->addItem (qm_files.at (i).baseName ());
-  ui->comboBox_language->insertItem (0,tr("System setting")); // System at beginning
-  ui->comboBox_language->insertSeparator (1);         // separator after System
+  // System at beginning
+  ui->comboBox_language->insertItem (0,tr ("System setting"));
+  ui->comboBox_language->insertSeparator (1);    // separator after System
   QString language = settings->value ("language","SYSTEM").toString ();
   if (language == "SYSTEM")
-    language = tr("System setting");
+    language = tr ("System setting");
   int selected = ui->comboBox_language->findText (language);
   if (selected >= 0)
     ui->comboBox_language->setCurrentIndex (selected);
   else
     ui->comboBox_language->setCurrentIndex (0);  // System is default
 
-  ui->toolbar_icon_size->setValue (settings->value ("toolbar_icon_size",24).toInt ());
+  ui->toolbar_icon_size->setValue (settings->value ("toolbar_icon_size",
+                                                    24).toInt ());
 
   // which icon has to be selected
   QString widget_icon_set =
-      settings->value ("DockWidgets/widget_icon_set","NONE").toString ();
+    settings->value ("DockWidgets/widget_icon_set","NONE").toString ();
   ui->general_icon_octave-> setChecked (true);  // the default (if invalid set)
   ui->general_icon_octave-> setChecked (widget_icon_set == "NONE");
   ui->general_icon_graphic-> setChecked (widget_icon_set == "GRAPHIC");
   ui->general_icon_letter-> setChecked (widget_icon_set == "LETTER");
 
-  ui->useCustomFileEditor->setChecked (settings->value ("useCustomFileEditor",false).toBool ());
-  ui->customFileEditor->setText (settings->value ("customFileEditor").toString ());
-  ui->editor_showLineNumbers->setChecked (settings->value ("editor/showLineNumbers",true).toBool () );
+  ui->useCustomFileEditor->setChecked (settings->value ("useCustomFileEditor",
+                                                        false).toBool ());
+  ui->customFileEditor->setText (
+    settings->value ("customFileEditor").toString ());
+  ui->editor_showLineNumbers->setChecked (
+    settings->value ("editor/showLineNumbers",true).toBool () );
 
   QVariant default_var = QColor (240, 240, 240);
   QColor setting_color = settings->value ("editor/highlight_current_line_color",
@@ -101,43 +106,73 @@
   _editor_current_line_color->setEnabled (false);
   connect (ui->editor_highlightCurrentLine, SIGNAL (toggled (bool)),
            _editor_current_line_color, SLOT (setEnabled (bool)));
-  ui->editor_highlightCurrentLine->setChecked (settings->value ("editor/highlightCurrentLine",true).toBool () );
+  ui->editor_highlightCurrentLine->setChecked (
+    settings->value ("editor/highlightCurrentLine",true).toBool () );
 
-  ui->editor_codeCompletion->setChecked (settings->value ("editor/codeCompletion",true).toBool () );
-  ui->editor_spinbox_ac_threshold->setValue (settings->value ("editor/codeCompletion_threshold",2).toInt ());
-  ui->editor_checkbox_ac_keywords->setChecked (settings->value ("editor/codeCompletion_keywords",true).toBool ());
-  ui->editor_checkbox_ac_document->setChecked (settings->value ("editor/codeCompletion_document",false).toBool ());
-  ui->editor_checkbox_ac_case->setChecked (settings->value ("editor/codeCompletion_case",true).toBool ());
-  ui->editor_checkbox_ac_replace->setChecked (settings->value ("editor/codeCompletion_replace",false).toBool ());
-  ui->editor_ws_checkbox->setChecked (settings->value ("editor/show_white_space",false).toBool ());
-  ui->editor_ws_indent_checkbox->setChecked (settings->value ("editor/show_white_space_indent",false).toBool ());
-  ui->editor_auto_ind_checkbox->setChecked (settings->value ("editor/auto_indent",true).toBool ());
-  ui->editor_tab_ind_checkbox->setChecked (settings->value ("editor/tab_indents_line",false).toBool ());
-  ui->editor_bs_unind_checkbox->setChecked (settings->value ("editor/backspace_unindents_line",false).toBool ());
-  ui->editor_ind_guides_checkbox->setChecked (settings->value ("editor/show_indent_guides",false).toBool ());
-  ui->editor_ind_width_spinbox->setValue (settings->value ("editor/indent_width",2).toInt ());
-  ui->editor_tab_width_spinbox->setValue (settings->value ("editor/tab_width",2).toInt ());
-  ui->editor_longWindowTitle->setChecked (settings->value ("editor/longWindowTitle",false).toBool ());
-  ui->editor_restoreSession->setChecked (settings->value ("editor/restoreSession",true).toBool ());
-  ui->editor_create_new_file->setChecked (settings->value ("editor/create_new_file",false).toBool ());
-  ui->terminal_fontName->setCurrentFont (QFont (settings->value ("terminal/fontName","Courier New").toString()) );
-  ui->terminal_fontSize->setValue (settings->value ("terminal/fontSize",10).toInt ());
-  ui->showFileSize->setChecked (settings->value ("filesdockwidget/showFileSize",false).toBool());
-  ui->showFileType->setChecked (settings->value ("filesdockwidget/showFileType",false).toBool());
-  ui->showLastModified->setChecked (settings->value ("filesdockwidget/showLastModified",false).toBool());
-  ui->showHiddenFiles->setChecked (settings->value ("filesdockwidget/showHiddenFiles",false).toBool());
-  ui->useAlternatingRowColors->setChecked (settings->value ("filesdockwidget/useAlternatingRowColors",true).toBool());
-  ui->sync_octave_directory->setChecked (settings->value ("filesdockwidget/sync_octave_directory",true).toBool());
-  ui->useProxyServer->setChecked (settings->value ("useProxyServer",false).toBool ());
+  ui->editor_codeCompletion->setChecked (
+    settings->value ("editor/codeCompletion", true).toBool () );
+  ui->editor_spinbox_ac_threshold->setValue (
+    settings->value ("editor/codeCompletion_threshold",2).toInt ());
+  ui->editor_checkbox_ac_keywords->setChecked (
+    settings->value ("editor/codeCompletion_keywords",true).toBool ());
+  ui->editor_checkbox_ac_document->setChecked (
+    settings->value ("editor/codeCompletion_document",false).toBool ());
+  ui->editor_checkbox_ac_case->setChecked (
+    settings->value ("editor/codeCompletion_case",true).toBool ());
+  ui->editor_checkbox_ac_replace->setChecked (
+    settings->value ("editor/codeCompletion_replace",false).toBool ());
+  ui->editor_ws_checkbox->setChecked (
+    settings->value ("editor/show_white_space", false).toBool ());
+  ui->editor_ws_indent_checkbox->setChecked (
+    settings->value ("editor/show_white_space_indent",false).toBool ());
+  ui->editor_auto_ind_checkbox->setChecked (
+    settings->value ("editor/auto_indent", true).toBool ());
+  ui->editor_tab_ind_checkbox->setChecked (
+    settings->value ("editor/tab_indents_line",false).toBool ());
+  ui->editor_bs_unind_checkbox->setChecked (
+    settings->value ("editor/backspace_unindents_line",false).toBool ());
+  ui->editor_ind_guides_checkbox->setChecked (
+    settings->value ("editor/show_indent_guides",false).toBool ());
+  ui->editor_ind_width_spinbox->setValue (
+    settings->value ("editor/indent_width", 2).toInt ());
+  ui->editor_tab_width_spinbox->setValue (
+    settings->value ("editor/tab_width", 2).toInt ());
+  ui->editor_longWindowTitle->setChecked (
+    settings->value ("editor/longWindowTitle",false).toBool ());
+  ui->editor_restoreSession->setChecked (
+    settings->value ("editor/restoreSession", true).toBool ());
+  ui->editor_create_new_file->setChecked (
+    settings->value ("editor/create_new_file",false).toBool ());
+  ui->terminal_fontName->setCurrentFont (QFont (
+    settings->value ("terminal/fontName","Courier New").toString ()) );
+  ui->terminal_fontSize->setValue (
+    settings->value ("terminal/fontSize", 10).toInt ());
+  ui->showFileSize->setChecked (
+    settings->value ("filesdockwidget/showFileSize", false).toBool ());
+  ui->showFileType->setChecked (
+    settings->value ("filesdockwidget/showFileType", false).toBool ());
+  ui->showLastModified->setChecked (
+    settings->value ("filesdockwidget/showLastModified",false).toBool ());
+  ui->showHiddenFiles->setChecked (
+    settings->value ("filesdockwidget/showHiddenFiles",false).toBool ());
+  ui->useAlternatingRowColors->setChecked (
+    settings->value ("filesdockwidget/useAlternatingRowColors",true).toBool ());
+  ui->sync_octave_directory->setChecked (
+    settings->value ("filesdockwidget/sync_octave_directory",true).toBool ());
+  ui->useProxyServer->setChecked (
+    settings->value ("useProxyServer", false).toBool ());
   ui->proxyHostName->setText (settings->value ("proxyHostName").toString ());
-  ui->terminal_cursorBlinking->setChecked (settings->value ("terminal/cursorBlinking",true).toBool ());
-  ui->terminal_cursorUseForegroundColor->setChecked (settings->value ("terminal/cursorUseForegroundColor",true).toBool ());
+  ui->terminal_cursorBlinking->setChecked (
+    settings->value ("terminal/cursorBlinking",true).toBool ());
+  ui->terminal_cursorUseForegroundColor->setChecked (
+    settings->value ("terminal/cursorUseForegroundColor",true).toBool ());
 
-  QString cursorType = settings->value ("terminal/cursorType","ibeam").toString ();
+  QString cursorType
+    = settings->value ("terminal/cursorType", "ibeam").toString ();
 
   QStringList items;
-  items << QString("0") << QString("1") << QString("2");
-  ui->terminal_cursorType->addItems(items);
+  items << QString ("0") << QString ("1") << QString ("2");
+  ui->terminal_cursorType->addItems (items);
   ui->terminal_cursorType->setItemText (0, tr ("IBeam Cursor"));
   ui->terminal_cursorType->setItemText (1, tr ("Block Cursor"));
   ui->terminal_cursorType->setItemText (2, tr ("Underline Cursor"));
@@ -151,7 +186,8 @@
 
   int currentIndex = 0;
   QString proxyTypeString = settings->value ("proxyType").toString ();
-  while ( (currentIndex < ui->proxyType->count ()) && (ui->proxyType->currentText () != proxyTypeString))
+  while ( (currentIndex < ui->proxyType->count ())
+          && (ui->proxyType->currentText () != proxyTypeString))
     {
       currentIndex++;
       ui->proxyType->setCurrentIndex (currentIndex);
@@ -198,13 +234,15 @@
 
   // which tab is the desired one?
   if (desired_tab.isEmpty ())
-    ui->tabWidget->setCurrentIndex (settings->value("settings/last_tab",0).toInt ());
+    ui->tabWidget->setCurrentIndex (settings->value ("settings/last_tab",
+                                    0).toInt ());
   else
     {
       QHash <QString, QWidget*> tab_hash;
       tab_hash["editor"] = ui->tab_editor;
       tab_hash["editor_styles"] = ui->tab_editor_styles;
-      ui->tabWidget->setCurrentIndex (ui->tabWidget->indexOf (tab_hash.value (desired_tab)));
+      ui->tabWidget->setCurrentIndex (
+        ui->tabWidget->indexOf (tab_hash.value (desired_tab)));
     }
 
 
@@ -224,7 +262,7 @@
   int actual_style = 0;
   while (actual_style < MaxStyleNumber && max_style < MaxLexerStyles)
     {
-      if ((lexer->description(actual_style)) != "")  // valid style
+      if ((lexer->description (actual_style)) != "")  // valid style
         styles[max_style++] = actual_style;
       actual_style++;
     }
@@ -235,7 +273,8 @@
 settings_dialog::read_lexer_settings (QsciLexer *lexer, QSettings *settings)
 {
   lexer->readSettings (*settings);
-  int styles[MaxLexerStyles];  // array for saving valid styles (enum is not continuous)
+  int styles[MaxLexerStyles];  // array for saving valid styles
+                               // (enum is not continuous)
   int max_style = get_valid_lexer_styles (lexer, styles);
   QGridLayout *style_grid = new QGridLayout ();
   QVector<QLabel*> description (max_style);
@@ -285,17 +324,17 @@
             bg_color[i] = new color_picker (dummy_color);
           else
             bg_color[i] = new color_picker (lexer->paper (styles[i]));
-            bg_color[i]->setToolTip
-                  (tr ("Background color, pink (255,0,255) means default"));
+          bg_color[i]->setToolTip
+          (tr ("Background color, pink (255,0,255) means default"));
         }
-      attrib_font[0+3*i] = new QCheckBox (tr("b"));
-      attrib_font[1+3*i] = new QCheckBox (tr("i"));
-      attrib_font[2+3*i] = new QCheckBox (tr("u"));
-      attrib_font[0+3*i]->setChecked(Qt::Checked && actual_font.bold ());
+      attrib_font[0+3*i] = new QCheckBox (tr ("b"));
+      attrib_font[1+3*i] = new QCheckBox (tr ("i"));
+      attrib_font[2+3*i] = new QCheckBox (tr ("u"));
+      attrib_font[0+3*i]->setChecked (Qt::Checked && actual_font.bold ());
       attrib_font[0+3*i]->setObjectName (actual_name+"_bold");
-      attrib_font[1+3*i]->setChecked(Qt::Checked && actual_font.italic ());
+      attrib_font[1+3*i]->setChecked (Qt::Checked && actual_font.italic ());
       attrib_font[1+3*i]->setObjectName (actual_name+"_italic");
-      attrib_font[2+3*i]->setChecked(Qt::Checked && actual_font.underline ());
+      attrib_font[2+3*i]->setChecked (Qt::Checked && actual_font.underline ());
       attrib_font[2+3*i]->setObjectName (actual_name+"_underline");
       color[i] = new color_picker (lexer->color (styles[i]));
       color[i]->setObjectName (actual_name+"_color");
@@ -319,15 +358,16 @@
   ui->tabs_editor_lexers->addTab (scroll_area,lexer->language ());
 
   ui->tabs_editor_lexers->setCurrentIndex (
-          settings->value("settings/last_editor_styles_tab",0).toInt ());
+    settings->value ("settings/last_editor_styles_tab",0).toInt ());
 }
-#endif  
+#endif
 
 void
 settings_dialog::read_workspace_colors (QSettings *settings)
 {
 
-  QList<QColor> default_colors = resource_manager::storage_class_default_colors ();
+  QList<QColor> default_colors =
+    resource_manager::storage_class_default_colors ();
   QStringList class_names = resource_manager::storage_class_names ();
   QString class_chars = resource_manager::storage_class_chars ();
   int nr_of_classes = class_chars.length ();
@@ -343,7 +383,8 @@
       description[i] = new QLabel ("    " + class_names.at (i));
       description[i]->setAlignment (Qt::AlignRight);
       QVariant default_var = default_colors.at (i);
-      QColor setting_color = settings->value ("workspaceview/color_"+class_chars.mid (i,1),
+      QColor setting_color = settings->value ("workspaceview/color_"
+                                              + class_chars.mid (i,1),
                                               default_var).value<QColor> ();
       color[i] = new color_picker (setting_color);
       color[i]->setObjectName ("color_"+class_chars.mid (i, 1));
@@ -382,7 +423,8 @@
       description[i] = new QLabel ("    " + class_names.at (i));
       description[i]->setAlignment (Qt::AlignRight);
       QVariant default_var = default_colors.at (i);
-      QColor setting_color = settings->value ("terminal/color_"+class_chars.mid (i,1),
+      QColor setting_color = settings->value ("terminal/color_"
+                                              + class_chars.mid (i,1),
                                               default_var).value<QColor> ();
       color[i] = new color_picker (setting_color);
       color[i]->setObjectName ("terminal_color_"+class_chars.mid (i, 1));
@@ -405,7 +447,7 @@
 settings_dialog::write_changed_settings ()
 {
   QSettings *settings = resource_manager::get_settings ();
-  // FIXME -- what should happen if settings is 0?
+  // FIXME: what should happen if settings is 0?
 
   // the icon set
   QString widget_icon_set = "NONE";
@@ -417,50 +459,80 @@
 
   // language
   QString language = ui->comboBox_language->currentText ();
-  if (language == tr("System setting"))
+  if (language == tr ("System setting"))
     language = "SYSTEM";
   settings->setValue ("language", language);
 
   // other settings
   settings->setValue ("toolbar_icon_size", ui->toolbar_icon_size->value ());
-  settings->setValue ("useCustomFileEditor", ui->useCustomFileEditor->isChecked ());
+  settings->setValue ("useCustomFileEditor",
+                      ui->useCustomFileEditor->isChecked ());
   settings->setValue ("customFileEditor", ui->customFileEditor->text ());
-  settings->setValue ("editor/showLineNumbers", ui->editor_showLineNumbers->isChecked ());
-  settings->setValue ("editor/highlightCurrentLine", ui->editor_highlightCurrentLine->isChecked ());
-  settings->setValue ("editor/highlight_current_line_color",_editor_current_line_color->color ());
-  settings->setValue ("editor/codeCompletion", ui->editor_codeCompletion->isChecked ());
-  settings->setValue ("editor/codeCompletion_threshold", ui->editor_spinbox_ac_threshold->value ());
-  settings->setValue ("editor/codeCompletion_keywords", ui->editor_checkbox_ac_keywords->isChecked ());
-  settings->setValue ("editor/codeCompletion_document", ui->editor_checkbox_ac_document->isChecked ());
-  settings->setValue ("editor/codeCompletion_case", ui->editor_checkbox_ac_case->isChecked ());
-  settings->setValue ("editor/codeCompletion_replace", ui->editor_checkbox_ac_replace->isChecked ());
-  settings->setValue ("editor/show_white_space", ui->editor_ws_checkbox->isChecked ());
-  settings->setValue ("editor/show_white_space_indent", ui->editor_ws_indent_checkbox->isChecked ());
-  settings->setValue ("editor/auto_indent", ui->editor_auto_ind_checkbox->isChecked ());
-  settings->setValue ("editor/tab_indents_line", ui->editor_tab_ind_checkbox->isChecked ());
-  settings->setValue ("editor/backspace_unindents_line", ui->editor_bs_unind_checkbox->isChecked ());
-  settings->setValue ("editor/show_indent_guides", ui->editor_ind_guides_checkbox->isChecked ());
-  settings->setValue ("editor/indent_width", ui->editor_ind_width_spinbox->value ());
-  settings->setValue ("editor/tab_width", ui->editor_tab_width_spinbox->value ());
-  settings->setValue ("editor/longWindowTitle", ui->editor_longWindowTitle->isChecked());
-  settings->setValue ("editor/restoreSession", ui->editor_restoreSession->isChecked ());
-  settings->setValue ("editor/create_new_file", ui->editor_create_new_file->isChecked ());
-  settings->setValue ("terminal/fontSize", ui->terminal_fontSize->value());
-  settings->setValue ("terminal/fontName", ui->terminal_fontName->currentFont().family());
-  settings->setValue ("filesdockwidget/showFileSize", ui->showFileSize->isChecked ());
-  settings->setValue ("filesdockwidget/showFileType", ui->showFileType->isChecked ());
-  settings->setValue ("filesdockwidget/showLastModified", ui->showLastModified->isChecked ());
-  settings->setValue ("filesdockwidget/showHiddenFiles", ui->showHiddenFiles->isChecked ());
-  settings->setValue ("filesdockwidget/useAlternatingRowColors", ui->useAlternatingRowColors->isChecked ());
-  settings->setValue ("filesdockwidget/sync_octave_directory", ui->sync_octave_directory->isChecked ());
+  settings->setValue ("editor/showLineNumbers",
+                      ui->editor_showLineNumbers->isChecked ());
+  settings->setValue ("editor/highlightCurrentLine",
+                      ui->editor_highlightCurrentLine->isChecked ());
+  settings->setValue ("editor/highlight_current_line_color",
+                      _editor_current_line_color->color ());
+  settings->setValue ("editor/codeCompletion",
+                      ui->editor_codeCompletion->isChecked ());
+  settings->setValue ("editor/codeCompletion_threshold",
+                      ui->editor_spinbox_ac_threshold->value ());
+  settings->setValue ("editor/codeCompletion_keywords",
+                      ui->editor_checkbox_ac_keywords->isChecked ());
+  settings->setValue ("editor/codeCompletion_document",
+                      ui->editor_checkbox_ac_document->isChecked ());
+  settings->setValue ("editor/codeCompletion_case",
+                      ui->editor_checkbox_ac_case->isChecked ());
+  settings->setValue ("editor/codeCompletion_replace",
+                      ui->editor_checkbox_ac_replace->isChecked ());
+  settings->setValue ("editor/show_white_space",
+                      ui->editor_ws_checkbox->isChecked ());
+  settings->setValue ("editor/show_white_space_indent",
+                      ui->editor_ws_indent_checkbox->isChecked ());
+  settings->setValue ("editor/auto_indent",
+                      ui->editor_auto_ind_checkbox->isChecked ());
+  settings->setValue ("editor/tab_indents_line",
+                      ui->editor_tab_ind_checkbox->isChecked ());
+  settings->setValue ("editor/backspace_unindents_line",
+                      ui->editor_bs_unind_checkbox->isChecked ());
+  settings->setValue ("editor/show_indent_guides",
+                      ui->editor_ind_guides_checkbox->isChecked ());
+  settings->setValue ("editor/indent_width",
+                      ui->editor_ind_width_spinbox->value ());
+  settings->setValue ("editor/tab_width",
+                      ui->editor_tab_width_spinbox->value ());
+  settings->setValue ("editor/longWindowTitle",
+                      ui->editor_longWindowTitle->isChecked ());
+  settings->setValue ("editor/restoreSession",
+                      ui->editor_restoreSession->isChecked ());
+  settings->setValue ("editor/create_new_file",
+                      ui->editor_create_new_file->isChecked ());
+  settings->setValue ("terminal/fontSize", ui->terminal_fontSize->value ());
+  settings->setValue ("terminal/fontName",
+                      ui->terminal_fontName->currentFont ().family ());
+  settings->setValue ("filesdockwidget/showFileSize",
+                      ui->showFileSize->isChecked ());
+  settings->setValue ("filesdockwidget/showFileType",
+                      ui->showFileType->isChecked ());
+  settings->setValue ("filesdockwidget/showLastModified",
+                      ui->showLastModified->isChecked ());
+  settings->setValue ("filesdockwidget/showHiddenFiles",
+                      ui->showHiddenFiles->isChecked ());
+  settings->setValue ("filesdockwidget/useAlternatingRowColors",
+                      ui->useAlternatingRowColors->isChecked ());
+  settings->setValue ("filesdockwidget/sync_octave_directory",
+                      ui->sync_octave_directory->isChecked ());
   settings->setValue ("useProxyServer", ui->useProxyServer->isChecked ());
   settings->setValue ("proxyType", ui->proxyType->currentText ());
   settings->setValue ("proxyHostName", ui->proxyHostName->text ());
   settings->setValue ("proxyPort", ui->proxyPort->text ());
   settings->setValue ("proxyUserName", ui->proxyUserName->text ());
   settings->setValue ("proxyPassword", ui->proxyPassword->text ());
-  settings->setValue ("terminal/cursorBlinking", ui->terminal_cursorBlinking->isChecked ());
-  settings->setValue ("terminal/cursorUseForegroundColor", ui->terminal_cursorUseForegroundColor->isChecked ());
+  settings->setValue ("terminal/cursorBlinking",
+                      ui->terminal_cursorBlinking->isChecked ());
+  settings->setValue ("terminal/cursorUseForegroundColor",
+                      ui->terminal_cursorUseForegroundColor->isChecked ());
 
   // the cursor
   QString cursorType;
@@ -506,7 +578,7 @@
 
   write_terminal_colors (settings);
 
-  settings->setValue("settings/last_tab",ui->tabWidget->currentIndex ());
+  settings->setValue ("settings/last_tab",ui->tabWidget->currentIndex ());
 }
 
 #ifdef HAVE_QSCINTILLA
@@ -514,8 +586,9 @@
 settings_dialog::write_lexer_settings (QsciLexer *lexer, QSettings *settings)
 {
   QWidget *tab = ui->tabs_editor_lexers->
-            findChild <QWidget *>(QString (lexer->language ())+"_styles");
-  int styles[MaxLexerStyles];  // array for saving valid styles (enum is not continuous)
+                 findChild <QWidget *>(QString (lexer->language ())+"_styles");
+  int styles[MaxLexerStyles];  // array for saving valid styles
+                               // (enum is not continuous)
   int max_style = get_valid_lexer_styles (lexer, styles);
   QFontComboBox *select_font;
   QSpinBox *font_size;
@@ -543,9 +616,8 @@
           new_font = select_font->currentFont ();
           if (styles[i] == 0)
             default_font = new_font;
-          else
-            if (select_font->currentText () == lexer->description (0))
-              new_font = default_font;
+          else if (select_font->currentText () == lexer->description (0))
+            new_font = default_font;
         }
       if (font_size)
         {
@@ -603,7 +675,7 @@
   for (int i = 0; i < class_chars.length (); i++)
     {
       color = ui->workspace_colors_box->findChild <color_picker *>(
-                            "color_"+class_chars.mid (i,1));
+                "color_"+class_chars.mid (i,1));
       if (color)
         settings->setValue ("workspaceview/color_"+class_chars.mid (i,1),
                             color->color ());
@@ -620,7 +692,7 @@
   for (int i = 0; i < class_chars.length (); i++)
     {
       color = ui->terminal_colors_box->findChild <color_picker *>(
-                            "terminal_color_"+class_chars.mid (i,1));
+                "terminal_color_"+class_chars.mid (i,1));
       if (color)
         settings->setValue ("terminal/color_"+class_chars.mid (i,1),
                             color->color ());
--- a/libgui/src/settings-dialog.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/settings-dialog.h	Tue Nov 05 12:27:42 2013 -0500
@@ -40,7 +40,8 @@
 class settings_dialog:public QDialog
 {
   Q_OBJECT public:
-  explicit settings_dialog (QWidget * parent, const QString& desired_tab = QString ());
+  explicit settings_dialog (QWidget * parent,
+                            const QString& desired_tab = QString ());
   ~settings_dialog ();
   void write_changed_settings ();
 
@@ -59,7 +60,7 @@
 
   void read_terminal_colors (QSettings *settings);
   void write_terminal_colors (QSettings *settings);
-  
+
   color_picker *_editor_current_line_color;
 };
 
--- a/libgui/src/terminal-dock-widget.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/terminal-dock-widget.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
   terminal->setFocusPolicy (Qt::StrongFocus);
 
   setObjectName ("TerminalDockWidget");
-  setWindowIcon (QIcon(":/actions/icons/logo.png"));
+  setWindowIcon (QIcon (":/actions/icons/logo.png"));
   set_title (tr ("Command Window"));
 
   setWidget (terminal);
--- a/libgui/src/welcome-wizard.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/welcome-wizard.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -56,13 +56,14 @@
   ft.setPointSize (20);
   title->setFont (ft);
 
-  QLabel *msg_1 = new QLabel (tr ("You seem to be using the Octave graphical interface for the first  time on this computer.  Click 'Finish' to write a configuration file  and launch Octave GUI."));
+  QLabel *msg_1 = new QLabel (
+    tr ("You seem to be using the Octave graphical interface for the first time on this computer.  Click 'Finish' to write a configuration file and launch Octave."));
   msg_1->setWordWrap (true);
 
   QString msg_2_text = QString (tr ("The configuration file is stored in %1. "
                                     "If that file exists, you will not see this "
                                     "dialog when Octave starts again.").
-                                    arg (resource_manager::get_settings_file ()));
+                                arg (resource_manager::get_settings_file ()));
   QLabel *msg_2 = new QLabel (msg_2_text);
   msg_2->setWordWrap (true);
 
--- a/libgui/src/workspace-model.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/workspace-model.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -118,7 +118,7 @@
   if (orientation == Qt::Horizontal && role == Qt::DisplayRole)
     return _columnNames[section];
   else
-    return QVariant();
+    return QVariant ();
 }
 
 QVariant
@@ -131,7 +131,8 @@
       if (role == Qt::BackgroundColorRole)
         {
           QString class_chars = resource_manager::storage_class_chars ();
-          int actual_class = class_chars.indexOf (_scopes[idx.row()].toAscii ());
+          int actual_class
+            = class_chars.indexOf (_scopes[idx.row ()].toAscii ());
           if (actual_class >= 0)
             return QVariant (_storage_class_colors.at (actual_class));
           else
@@ -146,36 +147,54 @@
             {
             case 0:
               if (role == Qt::ToolTipRole)
-                retval = QVariant (tr ("Right click to copy, rename, or display"));
+                retval
+                  = QVariant (tr ("Right click to copy, rename, or display"));
               else
-                retval = QVariant (_symbols[idx.row()]);
+                retval = QVariant (_symbols[idx.row ()]);
               break;
 
             case 1:
-              retval = QVariant (_class_names[idx.row()]);
+              retval = QVariant (_class_names[idx.row ()]);
               break;
 
             case 2:
-              retval = QVariant (_dimensions[idx.row()]);
+              retval = QVariant (_dimensions[idx.row ()]);
               break;
 
             case 3:
-              retval = QVariant (_values[idx.row()]);
+              retval = QVariant (_values[idx.row ()]);
               break;
 
             case 4:
-              retval = QVariant ();
-              QString class_chars = resource_manager::storage_class_chars ();
-              int actual_class = class_chars.indexOf (_scopes[idx.row()].toAscii ());
-              if (actual_class >= 0)
-                {
-                  QStringList class_names = resource_manager::storage_class_names ();
-                  retval = QVariant (class_names.at (actual_class));
-                }
+              {
+                QString sclass;
+
+                QString class_chars = resource_manager::storage_class_chars ();
+
+                int actual_class
+                  = class_chars.indexOf (_scopes[idx.row ()].toAscii ());
+
+                if (actual_class >= 0)
+                  {
+                    QStringList class_names
+                      = resource_manager::storage_class_names ();
+
+                    sclass = class_names.at (actual_class);
+                  }
+
+                if (_complex_flags[idx.row ()])
+                  {
+                    if (sclass.isEmpty ())
+                      sclass = tr ("complex");
+                    else
+                      sclass += ", " + tr ("complex");
+                  }
+
+                retval = QVariant (sclass);
+              }
               break;
-
-          }
-      }
+            }
+        }
     }
 
   return retval;
@@ -189,7 +208,7 @@
 
   if (idx.column () == 0 && role == Qt::EditRole)
     {
-      QString qold_name = _symbols[idx.row()];
+      QString qold_name = _symbols[idx.row ()];
 
       QString qnew_name = value.toString ();
 
@@ -213,7 +232,8 @@
                                 const QStringList& symbols,
                                 const QStringList& class_names,
                                 const QStringList& dimensions,
-                                const QStringList& values)
+                                const QStringList& values,
+                                const QIntList& complex_flags)
 {
   _top_level = top_level;
   _scopes = scopes;
@@ -221,6 +241,7 @@
   _class_names = class_names;
   _dimensions = dimensions;
   _values = values;
+  _complex_flags = complex_flags;
 
   update_table ();
 
@@ -245,12 +266,13 @@
   _class_names = QStringList ();
   _dimensions = QStringList ();
   _values = QStringList ();
+  _complex_flags = QIntList ();
 }
 
 void
 workspace_model::update_table (void)
 {
-  beginResetModel();
+  beginResetModel ();
 
   // Nothing to do except tell the world to recalc.
 
@@ -262,14 +284,16 @@
 void
 workspace_model::notice_settings (const QSettings *settings)
 {
-  QList<QColor> default_colors = resource_manager::storage_class_default_colors ();
+  QList<QColor> default_colors =
+    resource_manager::storage_class_default_colors ();
   QString class_chars = resource_manager::storage_class_chars ();
 
   for (int i = 0; i < class_chars.length (); i++)
     {
       QVariant default_var = default_colors.at (i);
-      QColor setting_color = settings->value ("workspaceview/color_"+class_chars.mid (i,1),
-                                             default_var).value<QColor> ();
+      QColor setting_color = settings->value ("workspaceview/color_"
+                                              + class_chars.mid (i,1),
+                                              default_var).value<QColor> ();
       _storage_class_colors.replace (i,setting_color);
     }
 }
--- a/libgui/src/workspace-model.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/workspace-model.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (workspace_model_h)
-#define workspace_model_h 1
+#if !defined (octave_workspace_model_h)
+#define octave_workspace_model_h 1
 
 #include <QAbstractTableModel>
 #include <QVector>
@@ -33,6 +33,9 @@
 #include <QColor>
 #include <QSettings>
 
+// Defined for purposes of sending QList<int> as part of signal.
+typedef QList<int> QIntList;
+
 class workspace_model
   : public QAbstractTableModel
 {
@@ -64,7 +67,8 @@
 
   bool is_top_level (void) const { return _top_level; }
 
-  QColor storage_class_color (int s_class) { return _storage_class_colors.at (s_class); }
+  QColor storage_class_color (int s_class)
+  { return _storage_class_colors.at (s_class); }
 
 public slots:
 
@@ -73,7 +77,8 @@
                       const QStringList& symbols,
                       const QStringList& class_names,
                       const QStringList& dimensions,
-                      const QStringList& values);
+                      const QStringList& values,
+                      const QIntList& complex_flags);
 
   void clear_workspace (void);
 
@@ -96,6 +101,7 @@
   QStringList _class_names;
   QStringList _dimensions;
   QStringList _values;
+  QIntList _complex_flags;
 
   QStringList _columnNames;
 
--- a/libgui/src/workspace-view.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/workspace-view.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -67,13 +67,14 @@
   QSettings *settings = resource_manager::get_settings ();
 
   // Initialize column order and width of the workspace
-  
-  view->horizontalHeader ()->restoreState (settings->value ("workspaceview/column_state").toByteArray ());
+
+  view->horizontalHeader ()->restoreState (
+    settings->value ("workspaceview/column_state").toByteArray ());
 
   // Connect signals and slots.
 
   connect (view, SIGNAL (customContextMenuRequested (const QPoint&)),
-           this, SLOT(contextmenu_requested (const QPoint&)));
+           this, SLOT (contextmenu_requested (const QPoint&)));
 
   connect (this, SIGNAL (command_requested (const QString&)),
            p, SLOT (execute_command_in_terminal (const QString&)));
@@ -84,8 +85,8 @@
 {
   QSettings *settings = resource_manager::get_settings ();
 
-  settings->setValue("workspaceview/column_state",
-                     view->horizontalHeader ()->saveState ());
+  settings->setValue ("workspaceview/column_state",
+                      view->horizontalHeader ()->saveState ());
 
   settings->sync ();
 }
@@ -112,12 +113,12 @@
   QAbstractItemModel *m = view->model ();
 
   // if it isnt Local, Glocal etc, allow the ctx menu
-  if (index.isValid() && index.column () == 0)
+  if (index.isValid () && index.column () == 0)
     {
-      index = index.sibling (index.row(), 0);
+      index = index.sibling (index.row (), 0);
 
       QMap<int, QVariant> item_data = m->itemData (index);
-  
+
       QString var_name = item_data[0].toString ();
 
       menu.addAction (tr ("Copy"), this,
@@ -136,13 +137,13 @@
 
       menu.addSeparator ();
 
-      menu.addAction ("disp(" + var_name + ")", this,
+      menu.addAction ("disp (" + var_name + ")", this,
                       SLOT (handle_contextmenu_disp ()));
 
-      menu.addAction ("plot(" + var_name + ")", this,
+      menu.addAction ("plot (" + var_name + ")", this,
                       SLOT (handle_contextmenu_plot ()));
 
-      menu.addAction ("stem(" + var_name + ")", this,
+      menu.addAction ("stem (" + var_name + ")", this,
                       SLOT (handle_contextmenu_stem ()));
 
       menu.exec (view->mapToGlobal (qpos));
@@ -156,12 +157,12 @@
 
   if (index.isValid ())
     {
-      index = index.sibling(index.row(), 0);
+      index = index.sibling (index.row (), 0);
 
       QAbstractItemModel *m = view->model ();
 
       QMap<int, QVariant> item_data = m->itemData (index);
-  
+
       QString var_name = item_data[0].toString ();
 
       QClipboard *clipboard = QApplication::clipboard ();
@@ -177,12 +178,12 @@
 
   if (index.isValid ())
     {
-      index = index.sibling(index.row(), 0);
+      index = index.sibling (index.row (), 0);
 
       QAbstractItemModel *m = view->model ();
 
       QMap<int, QVariant> item_data = m->itemData (index);
-  
+
       QString var_name = item_data[0].toString ();
 
       QInputDialog* inputDialog = new QInputDialog ();
@@ -225,12 +226,12 @@
 
   if (index.isValid ())
     {
-      index = index.sibling(index.row(), 0);
+      index = index.sibling (index.row (), 0);
 
       QAbstractItemModel *m = view->model ();
 
       QMap<int, QVariant> item_data = m->itemData (index);
-  
+
       QString var_name = item_data[0].toString ();
 
       emit command_requested (cmdname + " (" + var_name + ");");
@@ -256,13 +257,14 @@
   _model->notice_settings (settings); // update colors of model first
 
   QString tool_tip;
-  tool_tip  =  QString (tr ("View the variables in the active workspace.<br>"));
-  tool_tip +=  QString (tr ("Colors for the storage class:"));
+  tool_tip  = QString (tr ("View the variables in the active workspace.<br>"));
+  tool_tip += QString (tr ("Colors for the storage class:"));
   for (int i = 0; i < resource_manager::storage_class_chars ().length (); i++)
     {
-      tool_tip +=  QString ("<div style=\"background-color:%1;color:#000000\">%2</div>")
-               .arg (_model->storage_class_color (i).name ())
-               .arg (resource_manager::storage_class_names ().at (i));
+      tool_tip +=
+        QString ("<div style=\"background-color:%1;color:#000000\">%2</div>")
+        .arg (_model->storage_class_color (i).name ())
+        .arg (resource_manager::storage_class_names ().at (i));
     }
   setToolTip (tool_tip);
 }
--- a/libgui/src/workspace-view.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libgui/src/workspace-view.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (workspace_view_h)
-#define workspace_view_h 1
+#if !defined (octave_workspace_view_h)
+#define octave_workspace_view_h 1
 
 #include <QItemDelegate>
 #include <QTableView>
@@ -69,7 +69,7 @@
 
   void handle_model_changed (void);
 
-  void copyClipboard();
+  void copyClipboard ();
 
 private:
 
--- a/libinterp/Makefile.am	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/Makefile.am	Tue Nov 05 12:27:42 2013 -0500
@@ -109,6 +109,7 @@
   builtins.h \
   builtin-defun-decls.h \
   octave.h \
+  options-usage.h \
   $(OCTAVE_VALUE_INC) \
   $(PARSE_TREE_INC) \
   $(PARSER_INC) \
@@ -227,19 +228,15 @@
 DLL_CXXDEFS = @OCTINTERP_DLL_DEFS@
 
 ## Rule to build a DEF file from a .cc file
-##
-## FIXME -- This rule should be fixed to avoid using special
-## flags like JAVA_CPPFLAGS for every file.  How could it be written
-## so that it uses octave_value_liboctave_value_la_CPPFLAGS when
-## generating the octave-value/*.df files?
-## 
-## FIXME -- Shouldn't the build stop if CPP fails here?
+## See also module.mk files for overrides when speciall CPPFLAGS are needed.
+## FIXME: Shouldn't the build stop if CPP fails here?  Yes (10/31/2013)
 %.df: %.cc
 	$(CXXCPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
-	  $(AM_CPPFLAGS) $(JAVA_CPPFLAGS) $(CPPFLAGS) \
+	  $(AM_CPPFLAGS) $(LLVM_CPPFLAGS) $(CPPFLAGS) \
 	  $(AM_CXXFLAGS) $(CXXFLAGS) \
-	  -DMAKE_BUILTINS $< | $(srcdir)/mkdefs $(srcdir) $< > $@-t
-	mv $@-t $@
+	  -DMAKE_BUILTINS $< > $@-t
+	$(srcdir)/mkdefs $(srcdir) $< < $@-t > $@
+	rm $@-t
 
 ## Rules to build test files
 
--- a/libinterp/corefcn/Cell.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/Cell.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (Cell_h)
-#define Cell_h 1
+#if !defined (octave_Cell_h)
+#define octave_Cell_h 1
 
 #include <string>
 
@@ -89,7 +89,7 @@
                const octave_value& fill_val = Matrix ());
 
   Cell reshape (const dim_vector& new_dims) const
-    { return Array<octave_value>::reshape (new_dims); }
+  { return Array<octave_value>::reshape (new_dims); }
 
   octave_idx_type nnz (void) const;
 
@@ -145,6 +145,6 @@
 
 template<>
 inline Cell octave_value_extract<Cell> (const octave_value& v)
-  { return v.cell_value (); }
+{ return v.cell_value (); }
 
 #endif
--- a/libinterp/corefcn/__contourc__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/__contourc__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -164,7 +164,7 @@
         }
 
       // Find stop edge.
-      // FIXME -- perhaps this should use a while loop?
+      // FIXME: perhaps this should use a while loop?
       for (unsigned int k = 1; k <= 4; k++)
         {
           if (start_edge == 0 || start_edge == 2)
@@ -298,7 +298,7 @@
 }
 
 DEFUN (__contourc__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __contourc__ (@var{x}, @var{y}, @var{z}, @var{levels})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/__dispatch__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/__dispatch__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -40,7 +40,7 @@
 #include "variables.h"
 
 DEFUN (__dispatch__, args, nargout,
-  "Undocumented internal function")
+       "Undocumented internal function")
 {
   octave_value retval;
 
--- a/libinterp/corefcn/__lin_interpn__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/__lin_interpn__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -268,7 +268,7 @@
 //This function only performs linear interpolation.
 
 DEFUN (__lin_interpn__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{vi} =} __lin_interpn__ (@var{x1}, @var{x2}, @dots{}, @var{xn}, @var{v}, @var{y1}, @var{y2}, @dots{}, @var{yn})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/__pchip_deriv__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/__pchip_deriv__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,7 @@
 // for piecewise polynomials.
 
 DEFUN (__pchip_deriv__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __pchip_deriv__ (@var{x}, @var{y}, @var{dim})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/__qp__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/__qp__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -230,7 +230,7 @@
 
           octave_idx_type dimZ = n - rank;
 
-          // FIXME -- still remain to handle the case of
+          // FIXME: still remain to handle the case of
           // non-full rank active set matrix.
 
           // Computing the Y matrix (orthogonal to Z)
@@ -480,7 +480,7 @@
 }
 
 DEFUN (__qp__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{x}, @var{lambda}, @var{info}, @var{iter}] =} __qp__ (@var{x0}, @var{H}, @var{q}, @var{Aeq}, @var{beq}, @var{Ain}, @var{bin}, @var{maxit})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/balance.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/balance.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -47,7 +47,7 @@
 #include "utils.h"
 
 DEFUN (balance, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{AA} =} balance (@var{A})\n\
 @deftypefnx {Built-in Function} {@var{AA} =} balance (@var{A}, @var{opt})\n\
 @deftypefnx {Built-in Function} {[@var{DD}, @var{AA}] =} balance (@var{A}, @var{opt})\n\
@@ -110,11 +110,11 @@
       return retval;
     }
 
-  bool isfloat = args(0).is_single_type () ||
-    (! AEPcase && args(1).is_single_type ());
+  bool isfloat = args(0).is_single_type ()
+                 || (! AEPcase && args(1).is_single_type ());
 
-  bool complex_case = (args(0).is_complex_type () ||
-                       (! AEPcase && args(1).is_complex_type ()));
+  bool complex_case = args(0).is_complex_type ()
+                      || (! AEPcase && args(1).is_complex_type ());
 
   // Extract argument 1 parameter for both AEP and GEP.
   Matrix aa;
--- a/libinterp/corefcn/besselj.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/besselj.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -128,7 +128,8 @@
                     }
                   else
                     {
-                      FloatComplexNDArray x = x_arg.float_complex_array_value ();
+                      FloatComplexNDArray x
+                        = x_arg.float_complex_array_value ();
 
                       if (! error_state)
                         {
@@ -211,7 +212,8 @@
                         }
                       else
                         {
-                          FloatComplexNDArray x = x_arg.float_complex_array_value ();
+                          FloatComplexNDArray x
+                            = x_arg.float_complex_array_value ();
 
                           if (! error_state)
                             {
@@ -377,7 +379,7 @@
 }
 
 DEFUN (besselj, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{j}, @var{ierr}] =} besselj (@var{alpha}, @var{x}, @var{opt})\n\
 @deftypefnx {Built-in Function} {[@var{y}, @var{ierr}] =} bessely (@var{alpha}, @var{x}, @var{opt})\n\
 @deftypefnx {Built-in Function} {[@var{i}, @var{ierr}] =} besseli (@var{alpha}, @var{x}, @var{opt})\n\
@@ -451,7 +453,7 @@
 }
 
 DEFUN (bessely, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{y}, @var{ierr}] =} bessely (@var{alpha}, @var{x}, @var{opt})\n\
 See besselj.\n\
 @end deftypefn")
@@ -460,7 +462,7 @@
 }
 
 DEFUN (besseli, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{i}, @var{ierr}] =} besseli (@var{alpha}, @var{x}, @var{opt})\n\
 See besselj.\n\
 @end deftypefn")
@@ -469,7 +471,7 @@
 }
 
 DEFUN (besselk, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{k}, @var{ierr}] =} besselk (@var{alpha}, @var{x}, @var{opt})\n\
 See besselj.\n\
 @end deftypefn")
@@ -478,7 +480,7 @@
 }
 
 DEFUN (besselh, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{h}, @var{ierr}] =} besselh (@var{alpha}, @var{k}, @var{x}, @var{opt})\n\
 See besselj.\n\
 @end deftypefn")
@@ -522,14 +524,14 @@
 }
 
 DEFUN (airy, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{a}, @var{ierr}] =} airy (@var{k}, @var{z}, @var{opt})\n\
 Compute Airy functions of the first and second kind, and their\n\
 derivatives.\n\
 \n\
 @example\n\
 @group\n\
- K   Function   Scale factor (if 'opt' is supplied)\n\
+ K   Function   Scale factor (if \"opt\" is supplied)\n\
 ---  --------   ---------------------------------------\n\
  0   Ai (Z)     exp ((2/3) * Z * sqrt (Z))\n\
  1   dAi(Z)/dZ  exp ((2/3) * Z * sqrt (Z))\n\
--- a/libinterp/corefcn/betainc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/betainc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,7 @@
 //        be placed elsewhere in the Octave code hierarchy.
 
 DEFUN (betainc, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} betainc (@var{x}, @var{a}, @var{b})\n\
 Return the regularized incomplete Beta function,\n\
 @tex\n\
@@ -330,7 +330,7 @@
 */
 
 DEFUN (betaincinv, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} betaincinv (@var{y}, @var{a}, @var{b})\n\
 Compute the inverse of the incomplete Beta function, i.e., @var{x} such that\n\
 \n\
--- a/libinterp/corefcn/bitfcns.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/bitfcns.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -48,26 +48,26 @@
 #include <functional>
 
 #if !defined (HAVE_CXX_BITWISE_OP_TEMPLATES)
-namespace std 
+namespace std
 {
   template <typename T>
-  struct bit_and 
+  struct bit_and
   {
-  public: 
+  public:
     T operator() (const T & op1, const T & op2) const { return (op1 & op2); }
   };
 
   template <typename T>
-  struct bit_or 
+  struct bit_or
   {
-  public: 
+  public:
     T operator() (const T & op1, const T & op2) const { return (op1 | op2); }
   };
 
   template <typename T>
-  struct bit_xor 
+  struct bit_xor
   {
-  public: 
+  public:
     T operator() (const T & op1, const T & op2) const { return (op1 ^ op2); }
   };
 }
@@ -345,7 +345,7 @@
 }
 
 DEFUN (bitand, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} bitand (@var{x}, @var{y})\n\
 Return the bitwise AND of non-negative integers.\n\
 @var{x}, @var{y} must be in the range [0,bitmax]\n\
@@ -356,7 +356,7 @@
 }
 
 DEFUN (bitor, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} bitor (@var{x}, @var{y})\n\
 Return the bitwise OR of non-negative integers.\n\
 @var{x}, @var{y} must be in the range [0,bitmax]\n\
@@ -367,7 +367,7 @@
 }
 
 DEFUN (bitxor, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} bitxor (@var{x}, @var{y})\n\
 Return the bitwise XOR of non-negative integers.\n\
 @var{x}, @var{y} must be in the range [0,bitmax]\n\
@@ -496,7 +496,7 @@
   while (0)
 
 DEFUN (bitshift, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} bitshift (@var{a}, @var{k})\n\
 @deftypefnx {Built-in Function} {} bitshift (@var{a}, @var{k}, @var{n})\n\
 Return a @var{k} bit shift of @var{n}-digit unsigned\n\
@@ -543,7 +543,7 @@
         {
           if (nargin == 3)
             {
-              // FIXME -- for compatibility, we should accept an array
+              // FIXME: for compatibility, we should accept an array
               // or a scalar as the third argument.
               if (args(2).numel () > 1)
                 error ("bitshift: N must be a scalar integer");
@@ -583,27 +583,32 @@
         DO_SBITSHIFT (int64, nbits < 64 ? nbits : 64);
       else if (cname == "double")
         {
-          static const int bits_in_mantissa = std::numeric_limits<double>::digits;
+          static const int bits_in_mantissa
+            = std::numeric_limits<double>::digits;
+
           nbits = (nbits < bits_in_mantissa ? nbits : bits_in_mantissa);
           int64_t mask = max_mantissa_value<double> ();
           if (nbits < bits_in_mantissa)
             mask = mask >> (bits_in_mantissa - nbits);
           else if (nbits < 1)
             mask = 0;
-          int bits_in_type = sizeof (double) * std::numeric_limits<unsigned char>::digits;
+          int bits_in_type = sizeof (double)
+                             * std::numeric_limits<unsigned char>::digits;
           NDArray m = m_arg.array_value ();
           DO_BITSHIFT ( );
         }
       else if (cname == "single")
         {
-          static const int bits_in_mantissa = std::numeric_limits<float>::digits;
+          static const int bits_in_mantissa
+            = std::numeric_limits<float>::digits;
           nbits = (nbits < bits_in_mantissa ? nbits : bits_in_mantissa);
           int64_t mask = max_mantissa_value<float> ();
           if (nbits < bits_in_mantissa)
             mask = mask >> (bits_in_mantissa - nbits);
           else if (nbits < 1)
             mask = 0;
-          int bits_in_type = sizeof (float) * std::numeric_limits<unsigned char>::digits;
+          int bits_in_type = sizeof (float)
+                             * std::numeric_limits<unsigned char>::digits;
           FloatNDArray m = m_arg.float_array_value ();
           DO_BITSHIFT (Float);
         }
@@ -617,7 +622,7 @@
 }
 
 DEFUN (bitmax, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} bitmax ()\n\
 @deftypefnx {Built-in Function} {} bitmax (\"double\")\n\
 @deftypefnx {Built-in Function} {} bitmax (\"single\")\n\
@@ -652,7 +657,7 @@
 }
 
 DEFUN (flintmax, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} flintmax ()\n\
 @deftypefnx {Built-in Function} {} flintmax (\"double\")\n\
 @deftypefnx {Built-in Function} {} flintmax (\"single\")\n\
@@ -687,7 +692,7 @@
 }
 
 DEFUN (intmax, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} intmax (@var{type})\n\
 Return the largest integer that can be represented in an integer type.\n\
 The variable @var{type} can be\n\
@@ -757,7 +762,7 @@
 }
 
 DEFUN (intmin, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} intmin (@var{type})\n\
 Return the smallest integer that can be represented in an integer type.\n\
 The variable @var{type} can be\n\
@@ -827,7 +832,7 @@
 }
 
 DEFUN (sizemax, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} sizemax ()\n\
 Return the largest value allowed for the size of an array.\n\
 If Octave is compiled with 64-bit indexing, the result is of class int64,\n\
--- a/libinterp/corefcn/bsxfun.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/bsxfun.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -89,7 +89,8 @@
   return bsxfun_builtin_unknown;
 }
 
-typedef octave_value (*bsxfun_handler) (const octave_value&, const octave_value&);
+typedef octave_value (*bsxfun_handler) (const octave_value&,
+                                        const octave_value&);
 
 // Static table of handlers.
 bsxfun_handler bsxfun_handler_table[bsxfun_num_builtin_ops][btyp_num_types];
@@ -112,7 +113,8 @@
   return octave_value (bsxfun_rel (xa, ya));
 }
 
-// Pow needs a special handler for reals because of the potentially complex result.
+// pow() needs a special handler for reals
+// because of the potentially complex result.
 template <class NDA, class CNDA>
 static octave_value
 do_bsxfun_real_pow (const octave_value& x, const octave_value& y)
@@ -172,8 +174,10 @@
   bsxfun_handler_table[bsxfun_builtin_power][btyp_float] =
     do_bsxfun_real_pow<FloatNDArray, FloatComplexNDArray>;
 
-  REGISTER_OP_HANDLER (bsxfun_builtin_power, btyp_complex, ComplexNDArray, bsxfun_pow);
-  REGISTER_OP_HANDLER (bsxfun_builtin_power, btyp_float_complex, FloatComplexNDArray, bsxfun_pow);
+  REGISTER_OP_HANDLER (bsxfun_builtin_power, btyp_complex, ComplexNDArray,
+                       bsxfun_pow);
+  REGISTER_OP_HANDLER (bsxfun_builtin_power, btyp_float_complex,
+                       FloatComplexNDArray, bsxfun_pow);
 
   // For chars, we want just relational handlers.
   REGISTER_REL_HANDLER (bsxfun_builtin_eq, btyp_char, charNDArray, bsxfun_eq);
@@ -273,7 +277,7 @@
 }
 
 #if 0
-// FIXME -- this function is not used; is it OK to delete it?
+// FIXME: this function is not used; is it OK to delete it?
 static void
 update_index (octave_value_list& idx, const dim_vector& dv, octave_idx_type i)
 {
@@ -310,7 +314,7 @@
 }
 
 DEFUN (bsxfun, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} bsxfun (@var{f}, @var{A}, @var{B})\n\
 The binary singleton expansion function applier performs broadcasting,\n\
 that is, applies a binary function @var{f} element-by-element to two\n\
@@ -343,23 +347,26 @@
           if (func.is_undefined ())
             error ("bsxfun: invalid function name: %s", name.c_str ());
         }
-      else if (! (args(0).is_function_handle () || args(0).is_inline_function ()))
+      else if (! (args(0).is_function_handle ()
+               || args(0).is_inline_function ()))
         error ("bsxfun: F must be a string or function handle");
 
       const octave_value A = args (1);
       const octave_value B = args (2);
 
       if (func.is_builtin_function ()
-          || (func.is_function_handle () && ! A.is_object () && ! B.is_object ()))
+          || (func.is_function_handle ()
+              && ! A.is_object () && ! B.is_object ()))
         {
-          // This may break if the default behavior is overriden. But if you override
-          // arithmetic operators for builtin classes, you should expect mayhem
-          // anyway (constant folding etc). Querying is_overloaded may not be
-          // exactly what we need here.
+          // This may break if the default behavior is overriden.  But if you
+          // override arithmetic operators for builtin classes, you should
+          // expect mayhem anyway (constant folding etc).  Querying
+          // is_overloaded() may not be exactly what we need here.
           octave_function *fcn_val = func.function_value ();
           if (fcn_val)
             {
-              octave_value tmp = maybe_optimized_builtin (fcn_val->name (), A, B);
+              octave_value tmp = maybe_optimized_builtin (fcn_val->name (),
+                                                          A, B);
               if (tmp.is_defined ())
                 retval(0) = tmp;
             }
@@ -374,7 +381,7 @@
           octave_idx_type nd = nda;
 
           if (nda > ndb)
-              dvb.resize (nda, 1);
+            dvb.resize (nda, 1);
           else if (nda < ndb)
             {
               dva.resize (ndb, 1);
@@ -395,8 +402,10 @@
               dvc.resize (nd);
 
               for (octave_idx_type i = 0; i < nd; i++)
-                dvc (i) = (dva (i) < 1  ? dva (i) : (dvb (i) < 1 ? dvb (i) :
-                      (dva (i) > dvb (i) ? dva (i) : dvb (i))));
+                dvc (i) = (dva (i) < 1 ? dva (i)
+                                       : (dvb (i) < 1 ? dvb (i)
+                                                      : (dva (i) > dvb (i)
+                                                        ? dva (i) : dvb (i))));
 
               if (dva == dvb || dva.numel () == 1 || dvb.numel () == 1)
                 {
@@ -453,7 +462,8 @@
                       if (maybe_update_column (Bc, B, dvb, dvc, i, idxB))
                         inputs (1) = Bc;
 
-                      octave_value_list tmp = func.do_multi_index_op (1, inputs);
+                      octave_value_list tmp = func.do_multi_index_op (1,
+                                                                      inputs);
 
                       if (error_state)
                         break;
@@ -493,7 +503,8 @@
                                   if (tmp(0).is_real_type ())
                                     {
                                       have_FloatNDArray = true;
-                                      result_FloatNDArray = tmp(0).float_array_value ();
+                                      result_FloatNDArray
+                                        = tmp(0).float_array_value ();
                                       result_FloatNDArray.resize (dvc);
                                     }
                                   else
@@ -571,7 +582,8 @@
                                   result_FloatComplexNDArray =
                                     FloatComplexNDArray (result_FloatNDArray);
                                   result_FloatComplexNDArray.insert
-                                    (tmp(0).float_complex_array_value (), ra_idx);
+                                    (tmp(0).float_complex_array_value (),
+                                     ra_idx);
                                   have_FloatNDArray = false;
                                   have_FloatComplexNDArray = true;
                                 }
--- a/libinterp/corefcn/c-file-ptr-stream.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/c-file-ptr-stream.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
   buf_close ();
 }
 
-// FIXME -- I'm sure there is room for improvement here...
+// FIXME: I'm sure there is room for improvement here...
 
 c_file_ptr_buf::int_type
 c_file_ptr_buf::overflow (int_type c)
@@ -92,8 +92,8 @@
 c_file_ptr_buf::pbackfail (int_type c)
 {
 #if defined (CXX_ISO_COMPLIANT_LIBRARY)
-  return (c != traits_type::eof () && f) ? ungetc (c, f) :
-    traits_type::not_eof (c);
+  return (c != traits_type::eof () && f) ? ungetc (c, f)
+                                         : traits_type::not_eof (c);
 #else
   return (c != EOF && f) ? ungetc (c, f) : EOF;
 #endif
@@ -217,7 +217,7 @@
   buf_close ();
 }
 
-// FIXME -- I'm sure there is room for improvement here...
+// FIXME: I'm sure there is room for improvement here...
 
 c_zfile_ptr_buf::int_type
 c_zfile_ptr_buf::overflow (int_type c)
@@ -264,8 +264,8 @@
 c_zfile_ptr_buf::pbackfail (int_type c)
 {
 #if defined (CXX_ISO_COMPLIANT_LIBRARY)
-  return (c != traits_type::eof () && f) ? gzungetc (c, f) :
-    traits_type::not_eof (c);
+  return (c != traits_type::eof () && f) ? gzungetc (c, f)
+                                         : traits_type::not_eof (c);
 #else
   return (c != EOF && f) ? gzungetc (c, f) : EOF;
 #endif
@@ -336,7 +336,7 @@
 int
 c_zfile_ptr_buf::flush (void)
 {
-  // FIXME -- do we need something more complex here, passing
+  // FIXME: do we need something more complex here, passing
   // something other than 0 for the second argument to gzflush and
   // checking the return value, etc.?
 
--- a/libinterp/corefcn/c-file-ptr-stream.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/c-file-ptr-stream.h	Tue Nov 05 12:27:42 2013 -0500
@@ -44,7 +44,7 @@
 
   c_file_ptr_buf (FILE *f_arg, close_fcn cf_arg = file_close)
     : std::streambuf (), f (f_arg), cf (cf_arg)
-    { }
+  { }
 
   ~c_file_ptr_buf (void);
 
@@ -99,8 +99,7 @@
   c_file_ptr_buf& operator = (const c_file_ptr_buf&);
 };
 
-// FIXME -- the following three classes could probably share
-// some code...
+// FIXME: the following three classes could probably share some code...
 
 template <typename STREAM_T, typename FILE_T, typename BUF_T>
 class
@@ -118,7 +117,7 @@
   void stream_close (void) { if (buf) buf->buf_close (); }
 
   int seek (off_t offset, int origin)
-    { return buf ? buf->seek (offset, origin) : -1; }
+  { return buf ? buf->seek (offset, origin) : -1; }
 
   off_t tell (void) { return buf ? buf->tell () : -1; }
 
@@ -135,9 +134,12 @@
   c_file_ptr_stream& operator = (const c_file_ptr_stream&);
 };
 
-typedef c_file_ptr_stream<std::istream, FILE *, c_file_ptr_buf> i_c_file_ptr_stream;
-typedef c_file_ptr_stream<std::ostream, FILE *, c_file_ptr_buf> o_c_file_ptr_stream;
-typedef c_file_ptr_stream<std::iostream, FILE *, c_file_ptr_buf> io_c_file_ptr_stream;
+typedef c_file_ptr_stream<std::istream, FILE *, c_file_ptr_buf>
+  i_c_file_ptr_stream;
+typedef c_file_ptr_stream<std::ostream, FILE *, c_file_ptr_buf>
+  o_c_file_ptr_stream;
+typedef c_file_ptr_stream<std::iostream, FILE *, c_file_ptr_buf>
+  io_c_file_ptr_stream;
 
 #ifdef HAVE_ZLIB
 
@@ -162,7 +164,7 @@
 
   c_zfile_ptr_buf (gzFile f_arg, close_fcn cf_arg = file_close)
     : std::streambuf (), f (f_arg), cf (cf_arg)
-    { }
+  { }
 
   ~c_zfile_ptr_buf (void);
 
@@ -193,7 +195,7 @@
   int file_number () const { return -1; }
 
   int seek (off_t offset, int origin)
-    { return f ? gzseek (f, offset, origin) >= 0 : -1; }
+  { return f ? gzseek (f, offset, origin) >= 0 : -1; }
 
   off_t tell (void) { return f ? gztell (f) : -1; }
 
@@ -218,9 +220,12 @@
   c_zfile_ptr_buf& operator = (const c_zfile_ptr_buf&);
 };
 
-typedef c_file_ptr_stream<std::istream, gzFile, c_zfile_ptr_buf> i_c_zfile_ptr_stream;
-typedef c_file_ptr_stream<std::ostream, gzFile, c_zfile_ptr_buf> o_c_zfile_ptr_stream;
-typedef c_file_ptr_stream<std::iostream, gzFile, c_zfile_ptr_buf> io_c_zfile_ptr_stream;
+typedef c_file_ptr_stream<std::istream, gzFile, c_zfile_ptr_buf>
+  i_c_zfile_ptr_stream;
+typedef c_file_ptr_stream<std::ostream, gzFile, c_zfile_ptr_buf>
+  o_c_zfile_ptr_stream;
+typedef c_file_ptr_stream<std::iostream, gzFile, c_zfile_ptr_buf>
+  io_c_zfile_ptr_stream;
 
 #endif
 
--- a/libinterp/corefcn/cellfun.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/cellfun.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -70,13 +70,15 @@
                  octave_value& error_handler)
 {
   octave_value_list tmp;
-  try {
-    tmp = func.do_multi_index_op (nargout, inputlist);
-  }
-  catch (octave_execution_exception) {
-    if (error_handler.is_defined ())
-      error_state = 1;
-  }
+  try
+    {
+      tmp = func.do_multi_index_op (nargout, inputlist);
+    }
+  catch (octave_execution_exception)
+    {
+      if (error_handler.is_defined ())
+        error_state = 1;
+    }
 
   if (error_state)
     {
@@ -85,7 +87,9 @@
           octave_scalar_map msg;
           msg.assign ("identifier", last_error_id ());
           msg.assign ("message", last_error_message ());
-          msg.assign ("index", static_cast<double> (count + static_cast<octave_idx_type>(1)));
+          msg.assign ("index",
+                      static_cast<double> (count
+                                           + static_cast<octave_idx_type>(1)));
 
           octave_value_list errlist = inputlist;
           errlist.prepend (msg);
@@ -264,7 +268,7 @@
 }
 
 DEFUN (cellfun, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cellfun (@var{name}, @var{C})\n\
 @deftypefnx {Built-in Function} {} cellfun (\"size\", @var{C}, @var{k})\n\
 @deftypefnx {Built-in Function} {} cellfun (\"isclass\", @var{C}, @var{class})\n\
@@ -1038,7 +1042,7 @@
 // handle the nargout = 0 case.
 
 DEFUN (arrayfun, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {} arrayfun (@var{func}, @var{A})\n\
 @deftypefnx {Function File} {@var{x} =} arrayfun (@var{func}, @var{A})\n\
 @deftypefnx {Function File} {@var{x} =} arrayfun (@var{func}, @var{A}, @var{b}, @dots{})\n\
@@ -1156,7 +1160,7 @@
 
   if (nargin < 2)
     {
-      error_with_id ("Octave:invalid-fun-call", 
+      error_with_id ("Octave:invalid-fun-call",
                      "arrayfun: function requires at least 2 arguments");
       print_usage ();
       return retval;
@@ -1230,7 +1234,7 @@
 
       bool uniform_output = true;
       octave_value error_handler;
-      
+
       get_mapper_fun_options (args, nargin, uniform_output, error_handler);
 
       if (error_state)
@@ -1268,7 +1272,7 @@
                 {
                   if (mask[i] && inputs[i].dims () != fdims)
                     {
-                      error_with_id ("Octave:invalid-input-arg", 
+                      error_with_id ("Octave:invalid-input-arg",
                                      "arrayfun: dimensions mismatch");
                       return retval;
                     }
@@ -1316,7 +1320,7 @@
 
               if (nargout > 0 && tmp.length () < nargout)
                 {
-                  error_with_id ("Octave:invalid-fun-call", 
+                  error_with_id ("Octave:invalid-fun-call",
                                  "arrayfun: function returned fewer than nargout values");
                   return retval;
                 }
@@ -1429,7 +1433,7 @@
 
               if (nargout > 0 && tmp.length () < nargout)
                 {
-                  error_with_id ("Octave:invalid-fun-call", 
+                  error_with_id ("Octave:invalid-fun-call",
                                  "arrayfun: function returned fewer than nargout values");
                   return retval;
                 }
@@ -1461,7 +1465,7 @@
         }
     }
   else
-    error_with_id ("Octave:invalid-fun-call", 
+    error_with_id ("Octave:invalid-fun-call",
                    "arrayfun: argument NAME must be a string or function handle");
 
   return retval;
@@ -1776,7 +1780,7 @@
     }
 }
 
-// FIXME -- this is a mess, but if a size method for the object exists,
+// FIXME: this is a mess, but if a size method for the object exists,
 // we have to call it to get the size of the object instead of using the
 // internal dims method.
 
@@ -1802,7 +1806,7 @@
 {
   Cell retval;
 
-  // FIXME -- this copy is only needed because the octave_value::size
+  // FIXME: this copy is only needed because the octave_value::size
   // method is not const.
   octave_value array = obj;
 
@@ -1838,7 +1842,7 @@
 }
 
 DEFUN (num2cell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{C} =} num2cell (@var{A})\n\
 @deftypefnx {Built-in Function} {@var{C} =} num2cell (@var{A}, @var{dim})\n\
 Convert the numeric matrix @var{A} to a cell array.  If @var{dim} is\n\
@@ -2167,7 +2171,7 @@
 }
 
 DEFUN (mat2cell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{C} =} mat2cell (@var{A}, @var{m}, @var{n})\n\
 @deftypefnx {Built-in Function} {@var{C} =} mat2cell (@var{A}, @var{d1}, @var{d2}, @dots{})\n\
 @deftypefnx {Built-in Function} {@var{C} =} mat2cell (@var{A}, @var{r})\n\
@@ -2247,7 +2251,8 @@
         case btyp_complex:
           {
             if (sparse)
-              retval = do_mat2cell_2d (a.sparse_complex_matrix_value (), d, nargin-1);
+              retval = do_mat2cell_2d (a.sparse_complex_matrix_value (), d,
+                                       nargin-1);
             else
               retval = do_mat2cell (a.complex_array_value (), d, nargin - 1);
             break;
@@ -2337,7 +2342,7 @@
 }
 
 DEFUN (cellslices, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{sl} =} cellslices (@var{x}, @var{lb}, @var{ub}, @var{dim})\n\
 Given an array @var{x}, this function produces a cell array of slices from\n\
 the array determined by the index vectors @var{lb}, @var{ub}, for lower and\n\
@@ -2385,41 +2390,55 @@
                 {
                   // specialize for some dense arrays.
                   if (x.is_bool_type ())
-                    retcell = do_cellslices_nda (x.bool_array_value (), lb, ub, dim);
+                    retcell = do_cellslices_nda (x.bool_array_value (),
+                                                 lb, ub, dim);
                   else if (x.is_char_matrix ())
-                    retcell = do_cellslices_nda (x.char_array_value (), lb, ub, dim);
+                    retcell = do_cellslices_nda (x.char_array_value (),
+                                                 lb, ub, dim);
                   else if (x.is_integer_type ())
                     {
                       if (x.is_int8_type ())
-                        retcell = do_cellslices_nda (x.int8_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.int8_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_int16_type ())
-                        retcell = do_cellslices_nda (x.int16_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.int16_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_int32_type ())
-                        retcell = do_cellslices_nda (x.int32_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.int32_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_int64_type ())
-                        retcell = do_cellslices_nda (x.int64_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.int64_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_uint8_type ())
-                        retcell = do_cellslices_nda (x.uint8_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.uint8_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_uint16_type ())
-                        retcell = do_cellslices_nda (x.uint16_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.uint16_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_uint32_type ())
-                        retcell = do_cellslices_nda (x.uint32_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.uint32_array_value (),
+                                                     lb, ub, dim);
                       else if (x.is_uint64_type ())
-                        retcell = do_cellslices_nda (x.uint64_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.uint64_array_value (),
+                                                     lb, ub, dim);
                     }
                   else if (x.is_complex_type ())
                     {
                       if (x.is_single_type ())
-                        retcell = do_cellslices_nda (x.float_complex_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.float_complex_array_value (),
+                                                     lb, ub, dim);
                       else
-                        retcell = do_cellslices_nda (x.complex_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.complex_array_value (),
+                                                     lb, ub, dim);
                     }
                   else
                     {
                       if (x.is_single_type ())
-                        retcell = do_cellslices_nda (x.float_array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.float_array_value (),
+                                                     lb, ub, dim);
                       else
-                        retcell = do_cellslices_nda (x.array_value (), lb, ub, dim);
+                        retcell = do_cellslices_nda (x.array_value (),
+                                                     lb, ub, dim);
                     }
                 }
               else
@@ -2458,7 +2477,7 @@
 */
 
 DEFUN (cellindexmat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{y} =} cellindexmat (@var{x}, @var{varargin})\n\
 Given a cell array of matrices @var{x}, this function computes\n\
 \n\
--- a/libinterp/corefcn/colloc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/colloc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,7 @@
 #include "utils.h"
 
 DEFUN (colloc, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{r}, @var{amat}, @var{bmat}, @var{q}] =} colloc (@var{n}, \"left\", \"right\")\n\
 Compute derivative and integral weight matrices for orthogonal\n\
 collocation using the subroutines given in J. Villadsen and\n\
--- a/libinterp/corefcn/comment-list.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/comment-list.h	Tue Nov 05 12:27:42 2013 -0500
@@ -56,15 +56,15 @@
     : txt (oc.txt), typ (oc.typ) { }
 
   octave_comment_elt& operator = (const octave_comment_elt& oc)
-    {
-      if (this != &oc)
-        {
-          txt = oc.txt;
-          typ = oc.typ;
-        }
+  {
+    if (this != &oc)
+      {
+        txt = oc.txt;
+        typ = oc.typ;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   std::string text (void) const { return txt; }
 
@@ -89,11 +89,11 @@
   octave_comment_list (void) { }
 
   void append (const octave_comment_elt& elt)
-    { octave_base_list<octave_comment_elt>::append (elt); }
+  { octave_base_list<octave_comment_elt>::append (elt); }
 
   void append (const std::string& s,
                octave_comment_elt::comment_type t = octave_comment_elt::unknown)
-    { append (octave_comment_elt (s, t)); }
+  { append (octave_comment_elt (s, t)); }
 
   octave_comment_list *dup (void) const;
 };
--- a/libinterp/corefcn/conv2.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/conv2.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,7 @@
 enum Shape { SHAPE_FULL, SHAPE_SAME, SHAPE_VALID };
 
 DEFUN (conv2, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} conv2 (@var{A}, @var{B})\n\
 @deftypefnx {Built-in Function} {} conv2 (@var{v1}, @var{v2}, @var{m})\n\
 @deftypefnx {Built-in Function} {} conv2 (@dots{}, @var{shape})\n\
@@ -72,8 +72,8 @@
 
   if (nargin < 2)
     {
-     print_usage ();
-     return retval;
+      print_usage ();
+      return retval;
     }
   else if (nargin == 3)
     {
@@ -109,7 +109,7 @@
 
   if (separable)
     {
-     // If user requests separable, check first two params are vectors
+      // If user requests separable, check first two params are vectors
 
       if (! (1 == args(0).rows () || 1 == args(0).columns ())
           || ! (1 == args(1).rows () || 1 == args(1).columns ()))
@@ -291,7 +291,7 @@
 */
 
 DEFUN (convn, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{C} =} convn (@var{A}, @var{B})\n\
 @deftypefnx {Built-in Function} {@var{C} =} convn (@var{A}, @var{B}, @var{shape})\n\
 Return the n-D convolution of @var{A} and @var{B}.  The size of the result\n\
@@ -323,8 +323,8 @@
 
   if (nargin < 2 || nargin > 3)
     {
-     print_usage ();
-     return retval;
+      print_usage ();
+      return retval;
     }
   else if (nargin == 3)
     {
@@ -409,40 +409,51 @@
 %! assert (convn (v, v, "valid"), 4);
 
 ## The following test may look weird since we are using the output
-## of convn to test itself. However, because calculations are done
+## of convn to test itself.  However, because calculations are done
 ## differently based on the shape option, it will help to catch some
-## bugs. See also bug #39314
+## bugs.  See also bug #39314.
+## FIXME: The "valid" option uses an entirely different code path
+##        through C++ and Fortran to calculate inner convolution.
+##        The terms in the convolution added in reverse order compared
+##        to the "full" option.  This produces differences on the order
+##        of tens of eps.  This should be fixed, but in the meantime
+##        the tests will be marked as xtests.
 %!shared a, b, c
 %! ## test 3D by 3D
 %! a = rand (10, 10, 10);
 %! b = rand (3, 3, 3);
 %! c = convn (a, b, "full");
-%!assert (convn (a, b, "same"), c(2:11,2:11,2:11));
-%!assert (convn (a, b, "valid"), c(3:10,3:10,3:10));
+%!assert (convn (a, b, "same"), c(2:11,2:11,2:11))
+%!xtest
+%! assert (convn (a, b, "valid"), c(3:10,3:10,3:10));
 %!
+%!test
 %! ## test 3D by 2D
 %! a = rand (10, 10, 10);
 %! b = rand (3, 3);
 %! c = convn (a, b, "full");
-%!assert (convn (a, b, "same"), c(2:11,2:11,:));
-%!assert (convn (a, b, "valid"), c(3:10,3:10,:));
+%!assert (convn (a, b, "same"), c(2:11,2:11,:))
+%!xtest
+%! assert (convn (a, b, "valid"), c(3:10,3:10,:))
 %!
+%!test
 %! ## test 2D by 3D
 %! a = rand (10, 10);
 %! b = rand (3, 3, 3);
 %! c = convn (a, b, "full");
-%!assert (convn (a, b, "same"), c(2:11,2:11,2));
-%!assert (convn (a, b, "valid"), c(3:10,3:10,3:2)); # a 7x7x0 matrix
+%!assert (convn (a, b, "same"), c(2:11,2:11,2))
+%!assert (convn (a, b, "valid"), c(3:10,3:10,3:2))  # a 7x7x0 matrix
 %!
-%! ## test multiple different number of dimensions, with odd
-%! ## and even numbers
+%!test
+%! ## test multiple different number of dimensions, with odd and even numbers
 %! a = rand (10, 15, 7, 8, 10);
 %! b = rand (4, 3, 2, 3);
 %! c = convn (a, b, "full");
 %!assert (convn (a, b, "same"), c(3:12,2:16,2:8,2:9,:))
-%!assert (convn (a, b, "valid"), c(4:10,3:15,2:7,3:8,:));
+%!xtest
+%! assert (convn (a, b, "valid"), c(4:10,3:15,2:7,3:8,:))
 
-%!shared a, b, c
+%!test
 %! a = reshape (floor (magic (16) /10), [4 8 4 2]);
 %! b = reshape (magic (6), [4 3 3]);
 %! c = zeros (7, 10, 6, 2);
@@ -542,18 +553,18 @@
 %!    925  1976  2363  1971  1636  1600  1844  2239  1664   626
 %!    372  1133  1558  1687  1570  1401  1243  1122   883   264
 %!     60   270   556   857  1024   870   569   282    66     0];
-%!assert (convn(a, b, "full"), c);
-%!assert (convn(a, b, "same"), c(3:6,2:9,2:5,:));
-%!assert (convn(a, b, "valid"), c(4,3:8,3:4,:));
+%!assert (convn(a, b, "full"), c)
+%!assert (convn(a, b, "same"), c(3:6,2:9,2:5,:))
+%!assert (convn(a, b, "valid"), c(4,3:8,3:4,:))
 
 ## test correct class
-%!assert (class (convn (rand(5), rand(3))), "double");
-%!assert (class (convn (rand(5, "single"), rand(3))), "single");
-%!assert (class (convn (rand(5), rand(3, "single"))), "single");
-%!assert (class (convn (true (5), rand(3))), "double");
-%!assert (class (convn (true (5), rand(3, "single"))), "single");
-%!assert (class (convn (ones(5, "uint8"), rand(3))), "double");
-%!assert (class (convn (rand (3, "single"), ones(5, "uint8"))), "single");
+%!assert (class (convn (rand(5), rand(3))), "double")
+%!assert (class (convn (rand(5, "single"), rand(3))), "single")
+%!assert (class (convn (rand(5), rand(3, "single"))), "single")
+%!assert (class (convn (true (5), rand(3))), "double")
+%!assert (class (convn (true (5), rand(3, "single"))), "single")
+%!assert (class (convn (ones(5, "uint8"), rand(3))), "double")
+%!assert (class (convn (rand (3, "single"), ones(5, "uint8"))), "single")
 
 %!error convn ()
 %!error convn (1)
--- a/libinterp/corefcn/daspk.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/daspk.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -171,7 +171,7 @@
   while (0)
 
 DEFUN (daspk, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{x}, @var{xdot}, @var{istate}, @var{msg}] =} daspk (@var{fcn}, @var{x_0}, @var{xdot_0}, @var{t}, @var{t_crit})\n\
 Solve the set of differential-algebraic equations\n\
 @tex\n\
@@ -310,7 +310,7 @@
                   fname.append (fcn_name);
                   fname.append (" (x, xdot, t) y = ");
                   daspk_fcn = extract_function
-                    (c(0), "daspk", fcn_name, fname, "; endfunction");
+                              (c(0), "daspk", fcn_name, fname, "; endfunction");
                 }
 
               if (daspk_fcn)
@@ -323,8 +323,8 @@
                       jname = "function jac = ";
                       jname.append (jac_name);
                       jname.append (" (x, xdot, t, cj) jac = ");
-                      daspk_jac = extract_function
-                        (c(1), "daspk", jac_name, jname, "; endfunction");
+                      daspk_jac = extract_function (c(1), "daspk", jac_name,
+                                                    jname, "; endfunction");
 
                       if (!daspk_jac)
                         {
@@ -354,8 +354,8 @@
                       fname = "function y = ";
                       fname.append (fcn_name);
                       fname.append (" (x, xdot, t) y = ");
-                      daspk_fcn = extract_function
-                        (f_arg, "daspk", fcn_name, fname, "; endfunction");
+                      daspk_fcn = extract_function (f_arg, "daspk", fcn_name,
+                                                    fname, "; endfunction");
                     }
                   while (0);
                   break;
@@ -370,8 +370,8 @@
                         fname = "function y = ";
                         fname.append (fcn_name);
                         fname.append (" (x, xdot, t) y = ");
-                        daspk_fcn = extract_function
-                          (tmp(0), "daspk", fcn_name, fname, "; endfunction");
+                        daspk_fcn = extract_function (tmp(0), "daspk", fcn_name,
+                                                      fname, "; endfunction");
 
                         if (daspk_fcn)
                           {
@@ -379,9 +379,9 @@
                             jname = "function jac = ";
                             jname.append (jac_name);
                             jname.append (" (x, xdot, t, cj) jac = ");
-                            daspk_jac = extract_function
-                              (tmp(1), "daspk", jac_name, jname,
-                               "; endfunction");
+                            daspk_jac = extract_function (tmp(1), "daspk",
+                                                          jac_name, jname,
+                                                          "; endfunction");
 
                             if (!daspk_jac)
                               {
--- a/libinterp/corefcn/dasrt.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dasrt.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -207,7 +207,7 @@
   while (0)
 
 DEFUN (dasrt, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{x}, @var{xdot}, @var{t_out}, @var{istat}, @var{msg}] =} dasrt (@var{fcn}, [], @var{x_0}, @var{xdot_0}, @var{t})\n\
 @deftypefnx {Built-in Function} {@dots{} =} dasrt (@var{fcn}, @var{g}, @var{x_0}, @var{xdot_0}, @var{t})\n\
 @deftypefnx {Built-in Function} {@dots{} =} dasrt (@var{fcn}, [], @var{x_0}, @var{xdot_0}, @var{t}, @var{t_crit})\n\
@@ -397,8 +397,8 @@
               fname = "function y = ";
               fname.append (fcn_name);
               fname.append (" (x, xdot, t) y = ");
-              dasrt_f = extract_function
-                (c(0), "dasrt", fcn_name, fname, "; endfunction");
+              dasrt_f = extract_function (c(0), "dasrt", fcn_name, fname,
+                                          "; endfunction");
             }
 
           if (dasrt_f)
@@ -411,8 +411,8 @@
                   jname = "function jac = ";
                   jname.append (jac_name);
                   jname.append (" (x, xdot, t, cj) jac = ");
-                  dasrt_j = extract_function
-                    (c(1), "dasrt", jac_name, jname, "; endfunction");
+                  dasrt_j = extract_function (c(1), "dasrt", jac_name, jname,
+                                              "; endfunction");
 
                   if (!dasrt_j)
                     {
@@ -440,8 +440,8 @@
               fname = "function y = ";
               fname.append (fcn_name);
               fname.append (" (x, xdot, t) y = ");
-              dasrt_f = extract_function
-                (f_arg, "dasrt", fcn_name, fname, "; endfunction");
+              dasrt_f = extract_function (f_arg, "dasrt", fcn_name, fname,
+                                          "; endfunction");
               break;
 
             case 2:
@@ -454,8 +454,8 @@
                     fname = "function y = ";
                     fname.append (fcn_name);
                     fname.append (" (x, xdot, t) y = ");
-                    dasrt_f = extract_function
-                      (tmp(0), "dasrt", fcn_name, fname, "; endfunction");
+                    dasrt_f = extract_function (tmp(0), "dasrt", fcn_name,
+                                                fname, "; endfunction");
 
                     if (dasrt_f)
                       {
@@ -463,8 +463,8 @@
                         jname = "function jac = ";
                         jname.append (jac_name);
                         jname.append (" (x, xdot, t, cj) jac = ");
-                        dasrt_j = extract_function
-                          (tmp(1), "dasrt", jac_name, jname, "; endfunction");
+                        dasrt_j = extract_function (tmp(1), "dasrt", jac_name,
+                                                    jname, "; endfunction");
 
                         if (! dasrt_j)
                           dasrt_f = 0;
@@ -517,14 +517,13 @@
   ColumnVector stateprime (args(argp++).vector_value ());
 
   if (error_state)
-    DASRT_ABORT2
-       ("expecting time derivative of state vector as argument %d", argp);
+    DASRT_ABORT2 ("expecting time derivative of state vector as argument %d",
+                  argp);
 
   ColumnVector out_times (args(argp++).vector_value ());
 
   if (error_state)
-    DASRT_ABORT2
-        ("expecting output time vector as %s argument %d", argp);
+    DASRT_ABORT2 ("expecting output time vector as %s argument %d", argp);
 
   double tzero = out_times (0);
 
@@ -537,8 +536,7 @@
       crit_times = ColumnVector (args(argp++).vector_value ());
 
       if (error_state)
-        DASRT_ABORT2
-          ("expecting critical time vector as argument %d", argp);
+        DASRT_ABORT2 ("expecting critical time vector as argument %d", argp);
 
       crit_times_set = true;
     }
--- a/libinterp/corefcn/dassl.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dassl.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -171,7 +171,7 @@
   while (0)
 
 DEFUN (dassl, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{x}, @var{xdot}, @var{istate}, @var{msg}] =} dassl (@var{fcn}, @var{x_0}, @var{xdot_0}, @var{t}, @var{t_crit})\n\
 Solve the set of differential-algebraic equations\n\
 @tex\n\
@@ -310,8 +310,8 @@
                   fname = "function y = ";
                   fname.append (fcn_name);
                   fname.append (" (x, xdot, t) y = ");
-                  dassl_fcn = extract_function
-                    (c(0), "dassl", fcn_name, fname, "; endfunction");
+                  dassl_fcn = extract_function (c(0), "dassl", fcn_name, fname,
+                                                "; endfunction");
                 }
 
               if (dassl_fcn)
@@ -320,19 +320,19 @@
                     dassl_jac = c(1).function_value ();
                   else
                     {
-                        jac_name = unique_symbol_name ("__dassl_jac__");
-                        jname = "function jac = ";
-                        jname.append (jac_name);
-                        jname.append (" (x, xdot, t, cj) jac = ");
-                        dassl_jac = extract_function
-                          (c(1), "dassl", jac_name, jname, "; endfunction");
+                      jac_name = unique_symbol_name ("__dassl_jac__");
+                      jname = "function jac = ";
+                      jname.append (jac_name);
+                      jname.append (" (x, xdot, t, cj) jac = ");
+                      dassl_jac = extract_function (c(1), "dassl", jac_name,
+                                                    jname, "; endfunction");
 
-                        if (!dassl_jac)
-                          {
-                            if (fcn_name.length ())
-                              clear_function (fcn_name);
-                            dassl_fcn = 0;
-                          }
+                      if (!dassl_jac)
+                        {
+                          if (fcn_name.length ())
+                            clear_function (fcn_name);
+                          dassl_fcn = 0;
+                        }
                     }
                 }
             }
@@ -355,8 +355,8 @@
                       fname = "function y = ";
                       fname.append (fcn_name);
                       fname.append (" (x, xdot, t) y = ");
-                      dassl_fcn = extract_function
-                        (f_arg, "dassl", fcn_name, fname, "; endfunction");
+                      dassl_fcn = extract_function (f_arg, "dassl", fcn_name,
+                                                    fname, "; endfunction");
                     }
                   while (0);
                   break;
@@ -371,8 +371,8 @@
                         fname = "function y = ";
                         fname.append (fcn_name);
                         fname.append (" (x, xdot, t) y = ");
-                        dassl_fcn = extract_function
-                          (tmp(0), "dassl", fcn_name, fname, "; endfunction");
+                        dassl_fcn = extract_function (tmp(0), "dassl", fcn_name,
+                                                      fname, "; endfunction");
 
                         if (dassl_fcn)
                           {
@@ -380,9 +380,9 @@
                             jname = "function jac = ";
                             jname.append (jac_name);
                             jname.append (" (x, xdot, t, cj) jac = ");
-                            dassl_jac = extract_function
-                              (tmp(1), "dassl", jac_name, jname,
-                               "; endfunction");
+                            dassl_jac = extract_function (tmp(1), "dassl",
+                                                          jac_name, jname,
+                                                          "; endfunction");
 
                             if (!dassl_jac)
                               {
--- a/libinterp/corefcn/data.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/data.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -108,7 +108,7 @@
   return retval
 
 DEFUN (all, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} all (@var{x})\n\
 @deftypefnx {Built-in Function} {} all (@var{x}, @var{dim})\n\
 For a vector argument, return true (logical 1) if all elements of the vector\n\
@@ -155,7 +155,7 @@
 */
 
 DEFUN (any, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} any (@var{x})\n\
 @deftypefnx {Built-in Function} {} any (@var{x}, @var{dim})\n\
 For a vector argument, return true (logical 1) if any element of the vector\n\
@@ -211,7 +211,7 @@
 // These mapping functions may also be useful in other places, eh?
 
 DEFUN (atan2, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} atan2 (@var{y}, @var{x})\n\
 Compute atan (@var{y} / @var{x}) for corresponding elements of @var{y}\n\
 and @var{x}.  Signal an error if @var{y} and @var{x} do not match in size\n\
@@ -351,7 +351,7 @@
 }
 
 DEFUN (hypot, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} hypot (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} hypot (@var{x}, @var{y}, @var{z}, @dots{})\n\
 Compute the element-by-element square root of the sum of the squares of\n\
@@ -414,7 +414,7 @@
 }
 
 DEFUN (log2, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} log2 (@var{x})\n\
 @deftypefnx {Mapping Function} {[@var{f}, @var{e}] =} log2 (@var{x})\n\
 Compute the base-2 logarithm of each element of @var{x}.\n\
@@ -449,7 +449,7 @@
             {
               FloatNDArray f;
               FloatNDArray x = args(0).float_array_value ();
-              // FIXME -- should E be an int value?
+              // FIXME: should E be an int value?
               FloatMatrix e;
               map_2_xlog2 (x, f, e);
               retval(1) = e;
@@ -459,7 +459,7 @@
             {
               FloatComplexNDArray f;
               FloatComplexNDArray x = args(0).float_complex_array_value ();
-              // FIXME -- should E be an int value?
+              // FIXME: should E be an int value?
               FloatNDArray e;
               map_2_xlog2 (x, f, e);
               retval(1) = e;
@@ -470,7 +470,7 @@
         {
           NDArray f;
           NDArray x = args(0).array_value ();
-          // FIXME -- should E be an int value?
+          // FIXME: should E be an int value?
           Matrix e;
           map_2_xlog2 (x, f, e);
           retval(1) = e;
@@ -480,7 +480,7 @@
         {
           ComplexNDArray f;
           ComplexNDArray x = args(0).complex_array_value ();
-          // FIXME -- should E be an int value?
+          // FIXME: should E be an int value?
           NDArray e;
           map_2_xlog2 (x, f, e);
           retval(1) = e;
@@ -514,7 +514,7 @@
 */
 
 DEFUN (rem, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} rem (@var{x}, @var{y})\n\
 @deftypefnx {Mapping Function} {} fmod (@var{x}, @var{y})\n\
 Return the remainder of the division @code{@var{x} / @var{y}}, computed\n\
@@ -577,7 +577,8 @@
             }
           else
             error ("rem: cannot combine %s and %d",
-                   args(0).class_name ().c_str (), args(1).class_name ().c_str ());
+                   args(0).class_name ().c_str (),
+                   args(1).class_name ().c_str ());
         }
       else if (args(0).is_single_type () || args(1).is_single_type ())
         {
@@ -643,7 +644,7 @@
 DEFALIAS (fmod, rem)
 
 DEFUN (mod, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} mod (@var{x}, @var{y})\n\
 Compute the modulo of @var{x} and @var{y}.  Conceptually this is given by\n\
 \n\
@@ -710,7 +711,8 @@
             }
           else
             error ("mod: cannot combine %s and %d",
-                   args(0).class_name ().c_str (), args(1).class_name ().c_str ());
+                   args(0).class_name ().c_str (),
+                   args(1).class_name ().c_str ());
         }
       else if (args(0).is_single_type () || args(1).is_single_type ())
         {
@@ -793,7 +795,7 @@
 %!assert (mod (2.1, 0.2), 0.1, eps)
 */
 
-// FIXME: Need to convert the reduction functions of this file for single precision
+// FIXME: Need to convert reduction functions of this file for single precision
 
 #define NATIVE_REDUCTION_1(FCN, TYPE, DIM) \
   (arg.is_ ## TYPE ## _type ()) \
@@ -852,7 +854,8 @@
                     } \
                   else \
                     { \
-                      SparseComplexMatrix tmp = arg.sparse_complex_matrix_value (); \
+                      SparseComplexMatrix tmp \
+                        = arg.sparse_complex_matrix_value (); \
                       \
                       if (! error_state) \
                         retval = tmp.FCN (dim); \
@@ -1024,7 +1027,8 @@
                     } \
                   else if (arg.is_single_type ()) \
                     { \
-                      FloatComplexNDArray tmp = arg.float_complex_array_value (); \
+                      FloatComplexNDArray tmp \
+                        = arg.float_complex_array_value (); \
  \
                       if (! error_state) \
                         retval = tmp.FCN (dim); \
@@ -1053,7 +1057,7 @@
   return retval
 
 DEFUN (cumprod, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cumprod (@var{x})\n\
 @deftypefnx {Built-in Function} {} cumprod (@var{x}, @var{dim})\n\
 Cumulative product of elements along dimension @var{dim}.  If\n\
@@ -1086,7 +1090,7 @@
 */
 
 DEFUN (cumsum, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cumsum (@var{x})\n\
 @deftypefnx {Built-in Function} {} cumsum (@var{x}, @var{dim})\n\
 @deftypefnx {Built-in Function} {} cumsum (@dots{}, \"native\")\n\
@@ -1235,7 +1239,7 @@
 */
 
 DEFUN (diag, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{M} =} diag (@var{v})\n\
 @deftypefnx {Built-in Function} {@var{M} =} diag (@var{v}, @var{k})\n\
 @deftypefnx {Built-in Function} {@var{M} =} diag (@var{v}, @var{m}, @var{n})\n\
@@ -1366,7 +1370,7 @@
 */
 
 DEFUN (prod, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} prod (@var{x})\n\
 @deftypefnx {Built-in Function} {} prod (@var{x}, @var{dim})\n\
 Product of elements along dimension @var{dim}.  If @var{dim} is\n\
@@ -1658,7 +1662,7 @@
       retval = octave_value (new octave_class (m, cname, parents));
     }
 
- done:
+done:
   return retval;
 }
 
@@ -1709,7 +1713,8 @@
             all_dq_strings_p = false;
           if (all_real_p && ! args(i).is_real_type ())
             all_real_p = false;
-          if (all_cmplx_p && ! (args(i).is_complex_type () || args(i).is_real_type ()))
+          if (all_cmplx_p && ! (args(i).is_complex_type ()
+              || args(i).is_real_type ()))
             all_cmplx_p = false;
           if (!any_sparse_p && args(i).is_sparse_type ())
             any_sparse_p = true;
@@ -1798,7 +1803,8 @@
           dim_vector  dv = args(0).dims ();
 
           // Default concatenation.
-          bool (dim_vector::*concat_rule) (const dim_vector&, int) = &dim_vector::concat;
+          bool (dim_vector::*concat_rule) (const dim_vector&, int)
+            = &dim_vector::concat;
 
           if (dim == -1 || dim == -2)
             {
@@ -2081,7 +2087,7 @@
 */
 
 DEFUN (vertcat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} vertcat (@var{array1}, @var{array2}, @dots{}, @var{arrayN})\n\
 Return the vertical concatenation of N-D array objects, @var{array1},\n\
 @var{array2}, @dots{}, @var{arrayN} along dimension 1.\n\
@@ -2105,7 +2111,7 @@
 */
 
 DEFUN (cat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} cat (@var{dim}, @var{array1}, @var{array2}, @dots{}, @var{arrayN})\n\
 Return the concatenation of N-D array objects, @var{array1},\n\
 @var{array2}, @dots{}, @var{arrayN} along dimension @var{dim}.\n\
@@ -2175,7 +2181,7 @@
 /*
 %!function ret = __testcat (t1, t2, tr, cmplx)
 %!  assert (cat (1, cast ([], t1), cast ([], t2)), cast ([], tr));
-%! 
+%!
 %!  assert (cat (1, cast (1, t1), cast (2, t2)), cast ([1; 2], tr));
 %!  assert (cat (1, cast (1, t1), cast ([2; 3], t2)), cast ([1; 2; 3], tr));
 %!  assert (cat (1, cast ([1; 2], t1), cast (3, t2)), cast ([1; 2; 3], tr));
@@ -2184,7 +2190,7 @@
 %!  assert (cat (2, cast (1, t1), cast ([2, 3], t2)), cast ([1, 2, 3], tr));
 %!  assert (cat (2, cast ([1, 2], t1), cast (3, t2)), cast ([1, 2, 3], tr));
 %!  assert (cat (2, cast ([1, 2], t1), cast ([3, 4], t2)), cast ([1, 2, 3, 4], tr));
-%! 
+%!
 %!  assert ([cast(1, t1); cast(2, t2)], cast ([1; 2], tr));
 %!  assert ([cast(1, t1); cast([2; 3], t2)], cast ([1; 2; 3], tr));
 %!  assert ([cast([1; 2], t1); cast(3, t2)], cast ([1; 2; 3], tr));
@@ -2193,7 +2199,7 @@
 %!  assert ([cast(1, t1), cast([2, 3], t2)], cast ([1, 2, 3], tr));
 %!  assert ([cast([1, 2], t1), cast(3, t2)], cast ([1, 2, 3], tr));
 %!  assert ([cast([1, 2], t1), cast([3, 4], t2)], cast ([1, 2, 3, 4], tr));
-%! 
+%!
 %!  if (nargin == 3 || cmplx)
 %!    assert (cat (1, cast (1i, t1), cast (2, t2)), cast ([1i; 2], tr));
 %!    assert (cat (1, cast (1i, t1), cast ([2; 3], t2)), cast ([1i; 2; 3], tr));
@@ -2203,7 +2209,7 @@
 %!    assert (cat (2, cast (1i, t1), cast ([2, 3], t2)), cast ([1i, 2, 3], tr));
 %!    assert (cat (2, cast ([1i, 2], t1), cast (3, t2)), cast ([1i, 2, 3], tr));
 %!    assert (cat (2, cast ([1i, 2], t1), cast ([3, 4], t2)), cast ([1i, 2, 3, 4], tr));
-%! 
+%!
 %!    assert ([cast(1i, t1); cast(2, t2)], cast ([1i; 2], tr));
 %!    assert ([cast(1i, t1); cast([2; 3], t2)], cast ([1i; 2; 3], tr));
 %!    assert ([cast([1i; 2], t1); cast(3, t2)], cast ([1i; 2; 3], tr));
@@ -2212,7 +2218,7 @@
 %!    assert ([cast(1i, t1), cast([2, 3], t2)], cast ([1i, 2, 3], tr));
 %!    assert ([cast([1i, 2], t1), cast(3, t2)], cast ([1i, 2, 3], tr));
 %!    assert ([cast([1i, 2], t1), cast([3, 4], t2)], cast ([1i, 2, 3, 4], tr));
-%! 
+%!
 %!    assert (cat (1, cast (1, t1), cast (2i, t2)), cast ([1; 2i], tr));
 %!    assert (cat (1, cast (1, t1), cast ([2i; 3], t2)), cast ([1; 2i; 3], tr));
 %!    assert (cat (1, cast ([1; 2], t1), cast (3i, t2)), cast ([1; 2; 3i], tr));
@@ -2221,7 +2227,7 @@
 %!    assert (cat (2, cast (1, t1), cast ([2i, 3], t2)), cast ([1, 2i, 3], tr));
 %!    assert (cat (2, cast ([1, 2], t1), cast (3i, t2)), cast ([1, 2, 3i], tr));
 %!    assert (cat (2, cast ([1, 2], t1), cast ([3i, 4], t2)), cast ([1, 2, 3i, 4], tr));
-%! 
+%!
 %!    assert ([cast(1, t1); cast(2i, t2)], cast ([1; 2i], tr));
 %!    assert ([cast(1, t1); cast([2i; 3], t2)], cast ([1; 2i; 3], tr));
 %!    assert ([cast([1; 2], t1); cast(3i, t2)], cast ([1; 2; 3i], tr));
@@ -2230,7 +2236,7 @@
 %!    assert ([cast(1, t1), cast([2i, 3], t2)], cast ([1, 2i, 3], tr));
 %!    assert ([cast([1, 2], t1), cast(3i, t2)], cast ([1, 2, 3i], tr));
 %!    assert ([cast([1, 2], t1), cast([3i, 4], t2)], cast ([1, 2, 3i, 4], tr));
-%! 
+%!
 %!    assert (cat (1, cast (1i, t1), cast (2i, t2)), cast ([1i; 2i], tr));
 %!    assert (cat (1, cast (1i, t1), cast ([2i; 3], t2)), cast ([1i; 2i; 3], tr));
 %!    assert (cat (1, cast ([1i; 2], t1), cast (3i, t2)), cast ([1i; 2; 3i], tr));
@@ -2239,7 +2245,7 @@
 %!    assert (cat (2, cast (1i, t1), cast ([2i, 3], t2)), cast ([1i, 2i, 3], tr));
 %!    assert (cat (2, cast ([1i, 2], t1), cast (3i, t2)), cast ([1i, 2, 3i], tr));
 %!    assert (cat (2, cast ([1i, 2], t1), cast ([3i, 4], t2)), cast ([1i, 2, 3i, 4], tr));
-%! 
+%!
 %!    assert ([cast(1i, t1); cast(2i, t2)], cast ([1i; 2i], tr));
 %!    assert ([cast(1i, t1); cast([2i; 3], t2)], cast ([1i; 2i; 3], tr));
 %!    assert ([cast([1i; 2], t1); cast(3i, t2)], cast ([1i; 2; 3i], tr));
@@ -2324,7 +2330,7 @@
     {
       Array<int> vec = args(1).int_vector_value ();
 
-      // FIXME -- maybe we should create an idx_vector object
+      // FIXME: maybe we should create an idx_vector object
       // here and pass that to permute?
 
       int n = vec.length ();
@@ -2344,7 +2350,7 @@
 }
 
 DEFUN (permute, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} permute (@var{A}, @var{perm})\n\
 Return the generalized transpose for an N-D array object @var{A}.\n\
 The permutation vector @var{perm} must contain the elements\n\
@@ -2356,7 +2362,7 @@
 }
 
 DEFUN (ipermute, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ipermute (@var{A}, @var{iperm})\n\
 The inverse of the @code{permute} function.  The expression\n\
 \n\
@@ -2373,7 +2379,7 @@
 }
 
 DEFUN (length, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} length (@var{a})\n\
 Return the length of the object @var{a}.\n\
 \n\
@@ -2395,7 +2401,7 @@
 }
 
 DEFUN (ndims, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ndims (@var{a})\n\
 Return the number of dimensions of @var{a}.\n\
 For any array, the result will always be larger than or equal to 2.\n\
@@ -2421,7 +2427,7 @@
 }
 
 DEFUN (numel, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} numel (@var{a})\n\
 @deftypefnx {Built-in Function} {} numel (@var{a}, @var{idx1}, @var{idx2}, @dots{})\n\
 Return the number of elements in the object @var{a}.\n\
@@ -2468,7 +2474,7 @@
 }
 
 DEFUN (size, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} size (@var{a})\n\
 @deftypefnx {Built-in Function} {} size (@var{a}, @var{dim})\n\
 Return the number of rows and columns of @var{a}.\n\
@@ -2559,7 +2565,7 @@
 }
 
 DEFUN (size_equal, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} size_equal (@var{a}, @var{b}, @dots{})\n\
 Return true if the dimensions of all arguments agree.\n\
 Trailing singleton dimensions are ignored.\n\
@@ -2593,7 +2599,7 @@
 }
 
 DEFUN (nnz, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{scalar} =} nnz (@var{a})\n\
 Return the number of non zero elements in @var{a}.\n\
 @seealso{sparse, nzmax}\n\
@@ -2610,7 +2616,7 @@
 }
 
 DEFUN (nzmax, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{scalar} =} nzmax (@var{SM})\n\
 Return the amount of storage allocated to the sparse matrix @var{SM}.\n\
 Note that Octave tends to crop unused memory at the first opportunity\n\
@@ -2631,7 +2637,7 @@
 }
 
 DEFUN (rows, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rows (@var{a})\n\
 Return the number of rows of @var{a}.\n\
 @seealso{columns, size, length, numel, isscalar, isvector, ismatrix}\n\
@@ -2648,7 +2654,7 @@
 }
 
 DEFUN (columns, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} columns (@var{a})\n\
 Return the number of columns of @var{a}.\n\
 @seealso{rows, size, length, numel, isscalar, isvector, ismatrix}\n\
@@ -2665,7 +2671,7 @@
 }
 
 DEFUN (sum, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} sum (@var{x})\n\
 @deftypefnx {Built-in Function} {} sum (@var{x}, @var{dim})\n\
 @deftypefnx {Built-in Function} {} sum (@dots{}, \"native\")\n\
@@ -2795,7 +2801,7 @@
             MAKE_INT_BRANCH (uint32);
             MAKE_INT_BRANCH (uint64);
 #undef MAKE_INT_BRANCH
-            // GAGME: Accursed Matlab compatibility...
+              // GAGME: Accursed Matlab compatibility...
             case btyp_char:
               if (isextra)
                 retval = arg.array_value (true).xsum (dim);
@@ -2890,7 +2896,7 @@
 */
 
 DEFUN (sumsq, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} sumsq (@var{x})\n\
 @deftypefnx {Built-in Function} {} sumsq (@var{x}, @var{dim})\n\
 Sum of squares of elements along dimension @var{dim}.  If @var{dim}\n\
@@ -2929,7 +2935,7 @@
 */
 
 DEFUN (islogical, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} islogical (@var{x})\n\
 @deftypefnx {Built-in Function} {} isbool (@var{x})\n\
 Return true if @var{x} is a logical object.\n\
@@ -2963,7 +2969,7 @@
 */
 
 DEFUN (isinteger, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isinteger (@var{x})\n\
 Return true if @var{x} is an integer object (int8, uint8, int16, etc.).\n\
 Note that @w{@code{isinteger (14)}} is false because numeric constants in\n\
@@ -2982,7 +2988,7 @@
 }
 
 DEFUN (iscomplex, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} iscomplex (@var{x})\n\
 Return true if @var{x} is a complex-valued numeric object.\n\
 @seealso{isreal, isnumeric, islogical, ischar, isfloat, isa}\n\
@@ -2999,7 +3005,7 @@
 }
 
 DEFUN (isfloat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isfloat (@var{x})\n\
 Return true if @var{x} is a floating-point numeric object.\n\
 Objects of class double or single are floating-point objects.\n\
@@ -3016,11 +3022,11 @@
   return retval;
 }
 
-// FIXME -- perhaps this should be implemented with an
+// FIXME: perhaps this should be implemented with an
 // octave_value member function?
 
 DEFUN (complex, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} complex (@var{x})\n\
 @deftypefnx {Built-in Function} {} complex (@var{re}, @var{im})\n\
 Return a complex result from real arguments.  With 1 real argument @var{x},\n\
@@ -3138,7 +3144,9 @@
                     result = SparseComplexMatrix (re_val);
                   else
                     {
-                      result = SparseComplexMatrix (re_val.rows (), re_val.cols (), Complex (0, im_val (0)));
+                      result = SparseComplexMatrix (re_val.rows (),
+                                                    re_val.cols (),
+                                                    Complex (0, im_val (0)));
                       octave_idx_type nr = re_val.rows ();
                       octave_idx_type nc = re_val.cols ();
 
@@ -3158,9 +3166,11 @@
                 {
                   if (re_val.dims () == im_val.dims ())
                     {
-                      SparseComplexMatrix result = SparseComplexMatrix (re_val)
-                        + Complex (0, 1) * SparseComplexMatrix (im_val);
-                      retval = octave_value (new octave_sparse_complex_matrix (result));
+                      SparseComplexMatrix result;
+                      result = SparseComplexMatrix (re_val)
+                               + Complex (0, 1) * SparseComplexMatrix (im_val);
+                      retval = octave_value (
+                                 new octave_sparse_complex_matrix (result));
                     }
                   else
                     error ("complex: dimension mismatch");
@@ -3178,7 +3188,9 @@
                   float im_val = im.double_value ();
 
                   if (! error_state)
-                    retval = octave_value (new octave_float_complex (FloatComplex (re_val, im_val)));
+                    retval = octave_value (
+                               new octave_float_complex (FloatComplex (re_val,
+                                                                       im_val)));
                 }
               else
                 {
@@ -3186,12 +3198,14 @@
 
                   if (! error_state)
                     {
-                      FloatComplexNDArray result (im_val.dims (), FloatComplex ());
+                      FloatComplexNDArray result (im_val.dims (),
+                                                  FloatComplex ());
 
                       for (octave_idx_type i = 0; i < im_val.numel (); i++)
                         result.xelem (i) = FloatComplex (re_val, im_val(i));
 
-                      retval = octave_value (new octave_float_complex_matrix (result));
+                      retval = octave_value (
+                                 new octave_float_complex_matrix (result));
                     }
                 }
             }
@@ -3205,12 +3219,14 @@
 
                   if (! error_state)
                     {
-                      FloatComplexNDArray result (re_val.dims (), FloatComplex ());
+                      FloatComplexNDArray result (re_val.dims (),
+                                                  FloatComplex ());
 
                       for (octave_idx_type i = 0; i < re_val.numel (); i++)
                         result.xelem (i) = FloatComplex (re_val(i), im_val);
 
-                      retval = octave_value (new octave_float_complex_matrix (result));
+                      retval = octave_value (
+                                 new octave_float_complex_matrix (result));
                     }
                 }
               else
@@ -3221,12 +3237,15 @@
                     {
                       if (re_val.dims () == im_val.dims ())
                         {
-                          FloatComplexNDArray result (re_val.dims (), FloatComplex ());
+                          FloatComplexNDArray result (re_val.dims (),
+                                                      FloatComplex ());
 
                           for (octave_idx_type i = 0; i < re_val.numel (); i++)
-                            result.xelem (i) = FloatComplex (re_val(i), im_val(i));
-
-                          retval = octave_value (new octave_float_complex_matrix (result));
+                            result.xelem (i) = FloatComplex (re_val(i),
+                                                             im_val(i));
+
+                          retval = octave_value (
+                                     new octave_float_complex_matrix (result));
                         }
                       else
                         error ("complex: dimension mismatch");
@@ -3243,7 +3262,8 @@
               double im_val = im.double_value ();
 
               if (! error_state)
-                retval = octave_value (new octave_complex (Complex (re_val, im_val)));
+                retval = octave_value (new octave_complex (Complex (re_val,
+                                                                    im_val)));
             }
           else
             {
@@ -3291,7 +3311,8 @@
                       for (octave_idx_type i = 0; i < re_val.numel (); i++)
                         result.xelem (i) = Complex (re_val(i), im_val(i));
 
-                      retval = octave_value (new octave_complex_matrix (result));
+                      retval = octave_value (
+                                 new octave_complex_matrix (result));
                     }
                   else
                     error ("complex: dimension mismatch");
@@ -3309,7 +3330,7 @@
 }
 
 DEFUN (isreal, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isreal (@var{x})\n\
 Return true if @var{x} is a non-complex matrix or scalar.\n\
 For compatibility with @sc{matlab}, this includes logical and character\n\
@@ -3328,7 +3349,7 @@
 }
 
 DEFUN (isempty, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isempty (@var{a})\n\
 Return true if @var{a} is an empty matrix (any one of its dimensions is\n\
 zero).  Otherwise, return false.\n\
@@ -3351,7 +3372,7 @@
 */
 
 DEFUN (isnumeric, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isnumeric (@var{x})\n\
 Return true if @var{x} is a numeric object, i.e., an integer, real, or\n\
 complex array.  Logical and character arrays are not considered to be\n\
@@ -3386,7 +3407,7 @@
 */
 
 DEFUN (ismatrix, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ismatrix (@var{a})\n\
 Return true if @var{a} is a numeric, logical, or character matrix.\n\
 Scalars (1x1 matrices) and vectors (@nospell{1xN} or @nospell{Nx1} matrices)\n\
@@ -3401,7 +3422,9 @@
     {
       octave_value arg = args(0);
 
-      retval = arg.is_matrix_type () || arg.is_scalar_type () || arg.is_range ();
+      retval = arg.is_matrix_type ()
+               || arg.is_scalar_type ()
+               || arg.is_range ();
     }
   else
     print_usage ();
@@ -3488,7 +3511,7 @@
 
       check_dimensions (dims, fcn);
 
-      // FIXME -- perhaps this should be made extensible by
+      // FIXME: perhaps this should be made extensible by
       // using the class name to lookup a function to call to create
       // the new value.
 
@@ -3783,7 +3806,8 @@
           switch (dt)
             {
             case oct_data_conv::dt_single:
-              retval = FloatComplexNDArray (dims, static_cast<FloatComplex> (val));
+              retval = FloatComplexNDArray (dims,
+                                            static_cast<FloatComplex> (val));
               break;
 
             case oct_data_conv::dt_double:
@@ -3853,7 +3877,7 @@
 }
 
 DEFUN (ones, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} ones (@var{n})\n\
 @deftypefnx {Built-in Function} {} ones (@var{m}, @var{n})\n\
 @deftypefnx {Built-in Function} {} ones (@var{m}, @var{n}, @var{k}, @dots{})\n\
@@ -3902,7 +3926,7 @@
 */
 
 DEFUN (zeros, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} zeros (@var{n})\n\
 @deftypefnx {Built-in Function} {} zeros (@var{m}, @var{n})\n\
 @deftypefnx {Built-in Function} {} zeros (@var{m}, @var{n}, @var{k}, @dots{})\n\
@@ -3944,7 +3968,7 @@
 */
 
 DEFUN (Inf, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @c List other form of function in documentation index\n\
 @findex inf\n\
 \n\
@@ -4001,7 +4025,7 @@
 */
 
 DEFUN (NaN, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @c List other form of function in documentation index\n\
 @findex nan\n\
 \n\
@@ -4060,7 +4084,7 @@
 */
 
 DEFUN (e, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} e\n\
 @deftypefnx {Built-in Function} {} e (@var{n})\n\
 @deftypefnx {Built-in Function} {} e (@var{n}, @var{m})\n\
@@ -4095,7 +4119,7 @@
 }
 
 DEFUN (eps, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} eps\n\
 @deftypefnx {Built-in Function} {} eps (@var{x})\n\
 @deftypefnx {Built-in Function} {} eps (@var{n}, @var{m})\n\
@@ -4136,20 +4160,20 @@
           Array<float> x = args(0).float_array_value ();
 
           if (! error_state)
-            {              
+            {
               Array<float> epsval (x.dims ());
-              
+
               for (octave_idx_type i = 0; i < x.numel (); i++)
                 {
                   float val = ::fabsf (x(i));
                   if (xisnan (val) || xisinf (val))
                     epsval(i) = lo_ieee_nan_value ();
                   else if (val < std::numeric_limits<float>::min ())
-                    epsval(i) = powf (2.0, -149e0);                  
+                    epsval(i) = powf (2.0, -149e0);
                   else
                     {
                       int expon;
-                      frexpf (val, &expon);
+                      gnulib::frexpf (val, &expon);
                       epsval(i) = std::pow (static_cast <float> (2.0),
                                             static_cast <float> (expon - 24));
                     }
@@ -4175,7 +4199,7 @@
                   else
                     {
                       int expon;
-                      frexp (val, &expon);
+                      gnulib::frexp (val, &expon);
                       epsval(i) = std::pow (static_cast <double> (2.0),
                                             static_cast <double> (expon - 53));
                     }
@@ -4201,7 +4225,7 @@
 %!assert (eps (realmin/16), 2^(-1074))
 %!assert (eps (Inf), NaN)
 %!assert (eps (NaN), NaN)
-%!assert (eps ([1/2 1 2 realmax 0 realmin/2 realmin/16 Inf NaN]), 
+%!assert (eps ([1/2 1 2 realmax 0 realmin/2 realmin/16 Inf NaN]),
 %!             [2^(-53) 2^(-52) 2^(-51) 2^971 2^(-1074) 2^(-1074) 2^(-1074) NaN NaN])
 %!assert (eps (single (1/2)), single (2^(-24)))
 %!assert (eps (single (1)), single (2^(-23)))
@@ -4212,13 +4236,13 @@
 %!assert (eps (realmin ("single")/16), single (2^(-149)))
 %!assert (eps (single (Inf)), single (NaN))
 %!assert (eps (single (NaN)), single (NaN))
-%!assert (eps (single ([1/2 1 2 realmax("single") 0 realmin("single")/2 realmin("single")/16 Inf NaN])), 
+%!assert (eps (single ([1/2 1 2 realmax("single") 0 realmin("single")/2 realmin("single")/16 Inf NaN])),
 %!             single ([2^(-24) 2^(-23) 2^(-22) 2^104 2^(-149) 2^(-149) 2^(-149) NaN NaN]))
 
 */
 
 DEFUN (pi, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} pi\n\
 @deftypefnx {Built-in Function} {} pi (@var{n})\n\
 @deftypefnx {Built-in Function} {} pi (@var{n}, @var{m})\n\
@@ -4260,7 +4284,7 @@
 }
 
 DEFUN (realmax, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} realmax\n\
 @deftypefnx {Built-in Function} {} realmax (@var{n})\n\
 @deftypefnx {Built-in Function} {} realmax (@var{n}, @var{m})\n\
@@ -4294,7 +4318,7 @@
 }
 
 DEFUN (realmin, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} realmin\n\
 @deftypefnx {Built-in Function} {} realmin (@var{n})\n\
 @deftypefnx {Built-in Function} {} realmin (@var{n}, @var{m})\n\
@@ -4328,7 +4352,7 @@
 }
 
 DEFUN (I, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @c List other forms of function in documentation index\n\
 @findex i\n\
 @findex j\n\
@@ -4369,7 +4393,7 @@
 DEFALIAS (j, I);
 
 DEFUN (NA, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} NA\n\
 @deftypefnx {Built-in Function} {} NA (@var{n})\n\
 @deftypefnx {Built-in Function} {} NA (@var{n}, @var{m})\n\
@@ -4401,7 +4425,7 @@
 */
 
 DEFUN (false, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} false (@var{x})\n\
 @deftypefnx {Built-in Function} {} false (@var{n}, @var{m})\n\
 @deftypefnx {Built-in Function} {} false (@var{n}, @var{m}, @var{k}, @dots{})\n\
@@ -4417,7 +4441,7 @@
 }
 
 DEFUN (true, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} true (@var{x})\n\
 @deftypefnx {Built-in Function} {} true (@var{n}, @var{m})\n\
 @deftypefnx {Built-in Function} {} true (@var{n}, @var{m}, @var{k}, @dots{})\n\
@@ -4484,7 +4508,7 @@
 {
   octave_value retval;
 
-  // FIXME -- perhaps this should be made extensible by using
+  // FIXME: perhaps this should be made extensible by using
   // the class name to lookup a function to call to create the new
   // value.
 
@@ -4548,7 +4572,7 @@
 #undef INT_EYE_MATRIX
 
 DEFUN (eye, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} eye (@var{n})\n\
 @deftypefnx {Built-in Function} {} eye (@var{m}, @var{n})\n\
 @deftypefnx {Built-in Function} {} eye ([@var{m} @var{n}])\n\
@@ -4705,7 +4729,7 @@
 }
 
 DEFUN (linspace, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} linspace (@var{base}, @var{limit})\n\
 @deftypefnx {Built-in Function} {} linspace (@var{base}, @var{limit}, @var{n})\n\
 Return a row vector with @var{n} linearly spaced elements between\n\
@@ -4794,11 +4818,11 @@
 %!error linspace (1, 2, 3, 4)
 */
 
-// FIXME -- should accept dimensions as separate args for N-d
+// FIXME: should accept dimensions as separate args for N-d
 // arrays as well as 1-d and 2-d arrays.
 
 DEFUN (resize, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} resize (@var{x}, @var{m})\n\
 @deftypefnx {Built-in Function} {} resize (@var{x}, @var{m}, @var{n}, @dots{})\n\
 @deftypefnx {Built-in Function} {} resize (@var{x}, [@var{m} @var{n} @dots{}])\n\
@@ -4885,10 +4909,10 @@
   return retval;
 }
 
-// FIXME -- should use octave_idx_type for dimensions.
+// FIXME: should use octave_idx_type for dimensions.
 
 DEFUN (reshape, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} reshape (@var{A}, @var{m}, @var{n}, @dots{})\n\
 @deftypefnx {Built-in Function} {} reshape (@var{A}, [@var{m} @var{n} @dots{}])\n\
 @deftypefnx {Built-in Function} {} reshape (@var{A}, @dots{}, [], @dots{})\n\
@@ -4988,7 +5012,8 @@
               octave_idx_type size_empty_dim = a_nel / nel;
 
               if (a_nel != size_empty_dim * nel)
-                error ("reshape: SIZE is not divisible by the product of known dimensions (= %d)", nel);
+                error ("reshape: SIZE is not divisible by the product of known dimensions (= %d)",
+                       nel);
               else
                 new_dims(empty_dim-1) = size_empty_dim;
             }
@@ -5026,7 +5051,7 @@
 */
 
 DEFUN (vec, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{v} =} vec (@var{x})\n\
 @deftypefnx {Built-in Function} {@var{v} =} vec (@var{x}, @var{dim})\n\
 Return the vector obtained by stacking the columns of the matrix @var{x}\n\
@@ -5092,7 +5117,7 @@
 */
 
 DEFUN (squeeze, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} squeeze (@var{x})\n\
 Remove singleton dimensions from @var{x} and return the result.\n\
 Note that for compatibility with @sc{matlab}, all objects have\n\
@@ -5111,7 +5136,7 @@
 }
 
 DEFUN (full, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{FM} =} full (@var{SM})\n\
 Return a full storage matrix from a sparse, diagonal, permutation matrix\n\
 or a range.\n\
@@ -5131,7 +5156,7 @@
 // Compute various norms of the vector X.
 
 DEFUN (norm, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} norm (@var{A})\n\
 @deftypefnx {Built-in Function} {} norm (@var{A}, @var{p})\n\
 @deftypefnx {Built-in Function} {} norm (@var{A}, @var{p}, @var{opt})\n\
@@ -5340,7 +5365,7 @@
 
 %!test
 %! ## Test for norm returning NaN on sparse matrix (bug #30631)
-%! A = sparse (2,2); 
+%! A = sparse (2,2);
 %! A(2,1) = 1;
 %! assert (norm (A), 1);
 */
@@ -5359,7 +5384,7 @@
 }
 
 DEFUN (not, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} not (@var{x})\n\
 Return the logical NOT of @var{x}.  This function is equivalent to\n\
 @code{! x}.\n\
@@ -5370,7 +5395,7 @@
 }
 
 DEFUN (uplus, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uplus (@var{x})\n\
 This function and @w{@tcode{+ x}} are equivalent.\n\
 @seealso{uminus, plus, minus}\n\
@@ -5380,7 +5405,7 @@
 }
 
 DEFUN (uminus, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uminus (@var{x})\n\
 This function and @w{@tcode{- x}} are equivalent.\n\
 @seealso{uplus, minus}\n\
@@ -5390,7 +5415,7 @@
 }
 
 DEFUN (transpose, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} transpose (@var{x})\n\
 Return the transpose of @var{x}.\n\
 This function and @tcode{x.'} are equivalent.\n\
@@ -5421,7 +5446,7 @@
 */
 
 DEFUN (ctranspose, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ctranspose (@var{x})\n\
 Return the complex conjugate transpose of @var{x}.\n\
 This function and @tcode{x'} are equivalent.\n\
@@ -5483,19 +5508,19 @@
       break;
     case 2:
       retval = do_binary_op (op, args(0), args(1));
-     break;
+      break;
     default:
-     retval = do_binary_op (op, args(0), args(1));
-     for (int i = 2; i < nargin; i++)
-       retval.assign (aop, args(i));
-     break;
+      retval = do_binary_op (op, args(0), args(1));
+      for (int i = 2; i < nargin; i++)
+        retval.assign (aop, args(i));
+      break;
     }
 
   return retval;
 }
 
 DEFUN (plus, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} plus (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} plus (@var{x1}, @var{x2}, @dots{})\n\
 This function and @w{@tcode{x + y}} are equivalent.\n\
@@ -5515,7 +5540,7 @@
 }
 
 DEFUN (minus, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} minus (@var{x}, @var{y})\n\
 This function and @w{@tcode{x - y}} are equivalent.\n\
 @seealso{plus, uminus}\n\
@@ -5525,7 +5550,7 @@
 }
 
 DEFUN (mtimes, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} mtimes (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} mtimes (@var{x1}, @var{x2}, @dots{})\n\
 Return the matrix multiplication product of inputs.\n\
@@ -5546,7 +5571,7 @@
 }
 
 DEFUN (mrdivide, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} mrdivide (@var{x}, @var{y})\n\
 Return the matrix right division of @var{x} and @var{y}.\n\
 This function and @w{@tcode{x / y}} are equivalent.\n\
@@ -5557,7 +5582,7 @@
 }
 
 DEFUN (mpower, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} mpower (@var{x}, @var{y})\n\
 Return the matrix power operation of @var{x} raised to the @var{y} power.\n\
 This function and @w{@tcode{x ^ y}} are equivalent.\n\
@@ -5568,7 +5593,7 @@
 }
 
 DEFUN (mldivide, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} mldivide (@var{x}, @var{y})\n\
 Return the matrix left division of @var{x} and @var{y}.\n\
 This function and @w{@tcode{x @xbackslashchar{} y}} are equivalent.\n\
@@ -5579,7 +5604,7 @@
 }
 
 DEFUN (lt, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} lt (@var{x}, @var{y})\n\
 This function is equivalent to @w{@code{x < y}}.\n\
 @seealso{le, eq, ge, gt, ne}\n\
@@ -5589,7 +5614,7 @@
 }
 
 DEFUN (le, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} le (@var{x}, @var{y})\n\
 This function is equivalent to @w{@code{x <= y}}.\n\
 @seealso{eq, ge, gt, ne, lt}\n\
@@ -5599,7 +5624,7 @@
 }
 
 DEFUN (eq, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} eq (@var{x}, @var{y})\n\
 Return true if the two inputs are equal.\n\
 This function is equivalent to @w{@code{x == y}}.\n\
@@ -5610,7 +5635,7 @@
 }
 
 DEFUN (ge, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ge (@var{x}, @var{y})\n\
 This function is equivalent to @w{@code{x >= y}}.\n\
 @seealso{le, eq, gt, ne, lt}\n\
@@ -5620,7 +5645,7 @@
 }
 
 DEFUN (gt, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} gt (@var{x}, @var{y})\n\
 This function is equivalent to @w{@code{x > y}}.\n\
 @seealso{le, eq, ge, ne, lt}\n\
@@ -5630,7 +5655,7 @@
 }
 
 DEFUN (ne, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ne (@var{x}, @var{y})\n\
 Return true if the two inputs are not equal.\n\
 This function is equivalent to @w{@code{x != y}}.\n\
@@ -5641,7 +5666,7 @@
 }
 
 DEFUN (times, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} times (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} times (@var{x1}, @var{x2}, @dots{})\n\
 Return the element-by-element multiplication product of inputs.\n\
@@ -5662,7 +5687,7 @@
 }
 
 DEFUN (rdivide, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rdivide (@var{x}, @var{y})\n\
 Return the element-by-element right division of @var{x} and @var{y}.\n\
 This function and @w{@tcode{x ./ y}} are equivalent.\n\
@@ -5673,7 +5698,7 @@
 }
 
 DEFUN (power, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} power (@var{x}, @var{y})\n\
 Return the element-by-element operation of @var{x} raised to the\n\
 @var{y} power.  If several complex results are possible,\n\
@@ -5689,7 +5714,7 @@
 }
 
 DEFUN (ldivide, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ldivide (@var{x}, @var{y})\n\
 Return the element-by-element left division of @var{x} and @var{y}.\n\
 This function and @w{@tcode{x .@xbackslashchar{} y}} are equivalent.\n\
@@ -5700,7 +5725,7 @@
 }
 
 DEFUN (and, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} and (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} and (@var{x1}, @var{x2}, @dots{})\n\
 Return the logical AND of @var{x} and @var{y}.\n\
@@ -5721,7 +5746,7 @@
 }
 
 DEFUN (or, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} or (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} or (@var{x1}, @var{x2}, @dots{})\n\
 Return the logical OR of @var{x} and @var{y}.\n\
@@ -5744,7 +5769,7 @@
 static double tic_toc_timestamp = -1.0;
 
 DEFUN (tic, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} tic ()\n\
 @deftypefnx {Built-in Function} {@var{id} =} tic ()\n\
 @deftypefnx {Built-in Function} {} toc ()\n\
@@ -5813,7 +5838,7 @@
 }
 
 DEFUN (toc, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} toc ()\n\
 @deftypefnx {Built-in Function} {} toc (@var{id})\n\
 @deftypefnx {Built-in Function} {@var{val} =} toc (@dots{})\n\
@@ -5840,9 +5865,10 @@
 
               start_time
                 = (static_cast<double> (val / CLOCKS_PER_SEC)
-                   + static_cast<double> (val % CLOCKS_PER_SEC) / CLOCKS_PER_SEC);
-
-              // FIXME -- should we also check to see whether the start
+                   + static_cast<double> (val % CLOCKS_PER_SEC)
+                   / CLOCKS_PER_SEC);
+
+              // FIXME: should we also check to see whether the start
               // time is after the beginning of this Octave session?
             }
           else
@@ -5878,7 +5904,7 @@
 */
 
 DEFUN (cputime, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{total}, @var{user}, @var{system}] =} cputime ();\n\
 Return the CPU time used by your Octave session.  The first output is\n\
 the total time spent executing your process and is equal to the sum of\n\
@@ -5907,10 +5933,10 @@
   getrusage (RUSAGE_SELF, &ru);
 
   usr = static_cast<double> (ru.ru_utime.tv_sec) +
-    static_cast<double> (ru.ru_utime.tv_usec) * 1e-6;
+        static_cast<double> (ru.ru_utime.tv_usec) * 1e-6;
 
   sys = static_cast<double> (ru.ru_stime.tv_sec) +
-    static_cast<double> (ru.ru_stime.tv_usec) * 1e-6;
+        static_cast<double> (ru.ru_stime.tv_usec) * 1e-6;
 
 #else
 
@@ -5927,14 +5953,14 @@
   seconds = ticks / CLOCKS_PER_SEC;
 
   usr = static_cast<double> (seconds) + static_cast<double>(fraction) /
-    static_cast<double>(CLOCKS_PER_SEC);
+        static_cast<double>(CLOCKS_PER_SEC);
 
   ticks = t.tms_stime + t.tms_cstime;
   fraction = ticks % CLOCKS_PER_SEC;
   seconds = ticks / CLOCKS_PER_SEC;
 
   sys = static_cast<double> (seconds) + static_cast<double>(fraction) /
-    static_cast<double>(CLOCKS_PER_SEC);
+        static_cast<double>(CLOCKS_PER_SEC);
 
 #endif
 
@@ -5946,7 +5972,7 @@
 }
 
 DEFUN (sort, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{s}, @var{i}] =} sort (@var{x})\n\
 @deftypefnx {Built-in Function} {[@var{s}, @var{i}] =} sort (@var{x}, @var{dim})\n\
 @deftypefnx {Built-in Function} {[@var{s}, @var{i}] =} sort (@var{x}, @var{mode})\n\
@@ -6095,7 +6121,7 @@
       Array<octave_idx_type> sidx;
 
       retval(0) = arg.sort (sidx, dim, smode);
-      retval(1) = idx_vector (sidx, dv(dim)); // No checking, the extent is known.
+      retval(1) = idx_vector (sidx, dv(dim)); // No checking, extent is known.
     }
   else
     retval(0) = arg.sort (dim, smode);
@@ -6285,7 +6311,7 @@
 // This function does not yet support sparse matrices.
 
 DEFUN (__sort_rows_idx__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __sort_rows_idx__ (@var{a}, @var{mode})\n\
 Undocumented internal function.\n\
 @end deftypefn\n")
@@ -6334,9 +6360,9 @@
 static sortmode
 get_sort_mode_option (const octave_value& arg, const char *argn)
 {
-  // FIXME -- we initialize to UNSORTED here to avoid a GCC warning
+  // FIXME: we initialize to UNSORTED here to avoid a GCC warning
   // about possibly using sortmode uninitialized.
-  // FIXME -- shouldn't these modes be scoped inside a class?
+  // FIXME: shouldn't these modes be scoped inside a class?
   sortmode smode = UNSORTED;
 
   std::string mode = arg.string_value ();
@@ -6356,7 +6382,7 @@
 }
 
 DEFUN (issorted, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} issorted (@var{a})\n\
 @deftypefnx {Built-in Function} {} issorted (@var{a}, @var{mode})\n\
 @deftypefnx {Built-in Function} {} issorted (@var{a}, \"rows\", @var{mode})\n\
@@ -6467,7 +6493,7 @@
 */
 
 DEFUN (nth_element, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} nth_element (@var{x}, @var{n})\n\
 @deftypefnx {Built-in Function} {} nth_element (@var{x}, @var{n}, @var{dim})\n\
 Select the n-th smallest element of a vector, using the ordering defined by\n\
@@ -6575,7 +6601,7 @@
 }
 
 DEFUN (__accumarray_sum__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __accumarray_sum__ (@var{idx}, @var{vals}, @var{n})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -6602,14 +6628,18 @@
           if (vals.is_single_type ())
             {
               if (vals.is_complex_type ())
-                retval = do_accumarray_sum (idx, vals.float_complex_array_value (), n);
+                retval = do_accumarray_sum (idx, 
+                                            vals.float_complex_array_value (),
+                                            n);
               else
                 retval = do_accumarray_sum (idx, vals.float_array_value (), n);
             }
           else if (vals.is_numeric_type () || vals.is_bool_type ())
             {
               if (vals.is_complex_type ())
-                retval = do_accumarray_sum (idx, vals.complex_array_value (), n);
+                retval = do_accumarray_sum (idx,
+                                            vals.complex_array_value (),
+                                            n);
               else
                 retval = do_accumarray_sum (idx, vals.array_value (), n);
             }
@@ -6676,20 +6706,23 @@
                                              zero.double_value ());
               break;
             case btyp_float:
-              retval = do_accumarray_minmax (idx, vals.float_array_value (), n, ismin,
-                                             zero.float_value ());
+              retval = do_accumarray_minmax (idx, vals.float_array_value (), n,
+                                             ismin, zero.float_value ());
               break;
             case btyp_complex:
-              retval = do_accumarray_minmax (idx, vals.complex_array_value (), n, ismin,
-                                             zero.complex_value ());
+              retval = do_accumarray_minmax (idx, vals.complex_array_value (),
+                                             n, ismin, zero.complex_value ());
               break;
             case btyp_float_complex:
-              retval = do_accumarray_minmax (idx, vals.float_complex_array_value (), n, ismin,
+              retval = do_accumarray_minmax (idx,
+                                             vals.float_complex_array_value (),
+                                             n, ismin,
                                              zero.float_complex_value ());
               break;
 #define MAKE_INT_BRANCH(X) \
             case btyp_ ## X: \
-              retval = do_accumarray_minmax (idx, vals.X ## _array_value (), n, ismin, \
+              retval = do_accumarray_minmax (idx, vals.X ## _array_value (), \
+                                             n, ismin, \
                                              zero.X ## _scalar_value ()); \
               break
 
@@ -6718,7 +6751,7 @@
 }
 
 DEFUN (__accumarray_min__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __accumarray_min__ (@var{idx}, @var{vals}, @var{zero}, @var{n})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -6727,7 +6760,7 @@
 }
 
 DEFUN (__accumarray_max__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __accumarray_max__ (@var{idx}, @var{vals}, @var{zero}, @var{n})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -6766,7 +6799,7 @@
 }
 
 DEFUN (__accumdim_sum__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __accumdim_sum__ (@var{idx}, @var{vals}, @var{dim}, @var{n})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -6791,14 +6824,18 @@
           if (vals.is_single_type ())
             {
               if (vals.is_complex_type ())
-                retval = do_accumdim_sum (idx, vals.float_complex_array_value (), dim, n);
+                retval = do_accumdim_sum (idx,
+                                          vals.float_complex_array_value (),
+                                          dim, n);
               else
-                retval = do_accumdim_sum (idx, vals.float_array_value (), dim, n);
+                retval = do_accumdim_sum (idx, vals.float_array_value (),
+                                          dim, n);
             }
           else if (vals.is_numeric_type () || vals.is_bool_type ())
             {
               if (vals.is_complex_type ())
-                retval = do_accumdim_sum (idx, vals.complex_array_value (), dim, n);
+                retval = do_accumdim_sum (idx, vals.complex_array_value (),
+                                          dim, n);
               else
                 retval = do_accumdim_sum (idx, vals.array_value (), dim, n);
             }
@@ -6877,7 +6914,7 @@
     }
 
 DEFUN (merge, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} merge (@var{mask}, @var{tval}, @var{fval})\n\
 @deftypefnx {Built-in Function} {} ifelse (@var{mask}, @var{tval}, @var{fval})\n\
 Merge elements of @var{true_val} and @var{false_val}, depending on the\n\
@@ -6990,7 +7027,8 @@
       while (order > 0 && k > 0)
         {
           idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1);
-          retval = SparseT (retval.index (col1, sl1)) - SparseT (retval.index (col2, sl2));
+          retval = SparseT (retval.index (col1, sl1))
+                 - SparseT (retval.index (col2, sl2));
           assert (retval.columns () == k-1);
           order--;
           k--;
@@ -7002,7 +7040,8 @@
       while (order > 0 && k > 0)
         {
           idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1);
-          retval = SparseT (retval.index (sl1, col1)) - SparseT (retval.index (sl2, col2));
+          retval = SparseT (retval.index (sl1, col1))
+                 - SparseT (retval.index (sl2, col2));
           assert (retval.rows () == k-1);
           order--;
           k--;
@@ -7077,7 +7116,8 @@
   else if (array.is_sparse_type ())
     {
       if (array.is_complex_type ())
-        retval = do_sparse_diff (array.sparse_complex_matrix_value (), order, dim);
+        retval = do_sparse_diff (array.sparse_complex_matrix_value (),
+                                 order, dim);
       else
         retval = do_sparse_diff (array.sparse_matrix_value (), order, dim);
     }
@@ -7100,7 +7140,7 @@
 }
 
 DEFUN (diff, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} diff (@var{x})\n\
 @deftypefnx {Built-in Function} {} diff (@var{x}, @var{k})\n\
 @deftypefnx {Built-in Function} {} diff (@var{x}, @var{k}, @var{dim})\n\
@@ -7217,7 +7257,7 @@
 }
 
 DEFUN (repelems, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} repelems (@var{x}, @var{r})\n\
 Construct a vector of repeated elements from @var{x}.  @var{r}\n\
 is a 2x@var{N} integer matrix specifying which elements to repeat and\n\
@@ -7311,7 +7351,7 @@
 }
 
 DEFUN (base64_encode, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{s} =} base64_encode (@var{x})\n\
 Encode a double matrix or array @var{x} into the base64 format string\n\
 @var{s}.\n\
@@ -7324,12 +7364,12 @@
 
   if (nargin != 1)
     print_usage ();
-  else 
+  else
     {
-      if (! args(0).is_numeric_type ()) 
+      if (! args(0).is_numeric_type ())
         error ("base64_encode: encoding is supported only for numeric arrays");
-      else if (args(0).is_complex_type () 
-          || args(0).is_sparse_type ())
+      else if (args(0).is_complex_type ()
+               || args(0).is_sparse_type ())
         error ("base64_encode: encoding complex or sparse data is not supported");
       else if (args(0).is_integer_type ())
         {
@@ -7367,33 +7407,33 @@
         {
           const Array<float> in = args(0).float_array_value ();
           size_t inlen;
-          inlen = in.numel () * sizeof (float) / sizeof (char); 
+          inlen = in.numel () * sizeof (float) / sizeof (char);
           const char*  inc;
-          inc = reinterpret_cast<const char*> (in.data ());  
+          inc = reinterpret_cast<const char*> (in.data ());
           char* out;
-          if (! error_state 
-              && octave_base64_encode (inc, inlen, &out))
-            {
-              retval(0) = octave_value (out);
-              ::free (out);
-            }
-        }                 
-      else
-        {
-          const Array<double> in = args(0).array_value ();
-          size_t inlen;
-          inlen = in.numel () * sizeof (double) / sizeof (char); 
-          const char*  inc;
-          inc = reinterpret_cast<const char*> (in.data ());   
-          char* out;
-          if (! error_state 
+          if (! error_state
               && octave_base64_encode (inc, inlen, &out))
             {
               retval(0) = octave_value (out);
               ::free (out);
             }
         }
-    }  
+      else
+        {
+          const Array<double> in = args(0).array_value ();
+          size_t inlen;
+          inlen = in.numel () * sizeof (double) / sizeof (char);
+          const char*  inc;
+          inc = reinterpret_cast<const char*> (in.data ());
+          char* out;
+          if (! error_state
+              && octave_base64_encode (inc, inlen, &out))
+            {
+              retval(0) = octave_value (out);
+              ::free (out);
+            }
+        }
+    }
   return retval;
 }
 
@@ -7413,7 +7453,7 @@
 */
 
 DEFUN (base64_decode, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{x} =} base64_decode (@var{s})\n\
 @deftypefnx {Built-in Function} {@var{x} =} base64_decode (@var{s}, @var{dims})\n\
 Decode the double matrix or array @var{x} from the base64 encoded string\n\
@@ -7455,19 +7495,19 @@
             res = res.reshape (dims);
 
           retval = res;
-        }        
+        }
     }
 
-  return retval; 
+  return retval;
 }
 
 /*
 %!assert (base64_decode (base64_encode (pi)), pi)
 %!
-%!test 
+%!test
 %! in   = randn (10);
 %! outv = base64_decode (base64_encode (in));
-%! outm = base64_decode (base64_encode (in), size (in)); 
+%! outm = base64_decode (base64_encode (in), size (in));
 %! assert (outv, in(:).');
 %! assert (outm, in);
 
--- a/libinterp/corefcn/debug.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/debug.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -55,6 +55,7 @@
 #include "pt-stmt.h"
 #include "toplev.h"
 #include "unwind-prot.h"
+#include "utils.h"
 #include "variables.h"
 
 #include "debug.h"
@@ -360,8 +361,7 @@
 
   tree_statement_list *cmds = fcn->body ();
 
-  // FIXME -- move the operation on cmds to the
-  // tree_statement_list class?
+  // FIXME: move the operation on cmds to the tree_statement_list class?
 
   if (cmds)
     {
@@ -557,8 +557,8 @@
             {
               tree_statement_list *cmds = f->body ();
 
-              // FIXME -- move the operation on cmds to the
-              // tree_statement_list class?
+              // FIXME: move the operation on cmds to the
+              //        tree_statement_list class?
               if (cmds)
                 {
                   octave_value_list bkpts = cmds->list_breakpoints ();
@@ -607,7 +607,7 @@
 }
 
 DEFUN (dbstop, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{rline} =} dbstop (\"@var{func}\")\n\
 @deftypefnx {Built-in Function} {@var{rline} =} dbstop (\"@var{func}\", @var{line})\n\
 @deftypefnx {Built-in Function} {@var{rline} =} dbstop (\"@var{func}\", @var{line1}, @var{line2}, @dots{})\n\
@@ -652,7 +652,7 @@
 }
 
 DEFUN (dbclear, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} dbclear (\"@var{func}\")\n\
 @deftypefnx {Built-in Function} {} dbclear (\"@var{func}\", @var{line}, @dots{})\n\
 @deftypefnx {Built-in Function} {} dbclear (@var{line}, @dots{})\n\
@@ -691,7 +691,7 @@
 }
 
 DEFUN (dbstatus, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} dbstatus ()\n\
 @deftypefnx {Built-in Function} {@var{brk_list} =} dbstatus ()\n\
 @deftypefnx {Built-in Function} {@var{brk_list} =} dbstatus (\"@var{func}\")\n\
@@ -745,14 +745,14 @@
     }
   else
     {
-       octave_user_code *dbg_fcn = get_user_code ();
-       if (dbg_fcn)
-         {
-           symbol_name = dbg_fcn->name ();
-           fcn_list(0) = symbol_name;
-         }
+      octave_user_code *dbg_fcn = get_user_code ();
+      if (dbg_fcn)
+        {
+          symbol_name = dbg_fcn->name ();
+          fcn_list(0) = symbol_name;
+        }
 
-       bp_list = bp_table::get_breakpoint_list (fcn_list);
+      bp_list = bp_table::get_breakpoint_list (fcn_list);
     }
 
   if (nargout == 0)
@@ -807,7 +807,7 @@
 }
 
 DEFUN (dbwhere, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Command} {} dbwhere\n\
 In debugging mode, report the current file and line number where\n\
 execution is stopped.\n\
@@ -904,7 +904,7 @@
 }
 
 DEFUN (dbtype, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} dbtype\n\
 @deftypefnx {Command} {} dbtype @var{lineno}\n\
 @deftypefnx {Command} {} dbtype @var{startl:endl}\n\
@@ -952,7 +952,7 @@
             size_t ind = arg.find (':');
 
             if (ind != std::string::npos)  // (dbtype start:end)
-              {  
+              {
                 dbg_fcn = get_user_code ();
 
                 if (dbg_fcn)
@@ -1037,7 +1037,7 @@
 }
 
 DEFUN (dblist, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} dblist\n\
 @deftypefnx {Command} {} dblist @var{n}\n\
 In debugging mode, list @var{n} lines of the function being debugged\n\
@@ -1167,6 +1167,8 @@
 
           if (nframes_to_display > 0)
             {
+              octave_preserve_stream_state stream_state (os);
+
               os << "stopped in:\n\n";
 
               Cell names = stk.contents ("name");
@@ -1226,7 +1228,7 @@
 }
 
 DEFUN (dbstack, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} dbstack\n\
 @deftypefnx {Command} {} dbstack @var{n}\n\
 @deftypefnx {Command} {} dbstack @var{-completenames}\n\
@@ -1235,7 +1237,7 @@
 With optional argument @var{n}, omit the @var{n} innermost stack frames.\n\
 \n\
 Although accepted, the argument @var{-completenames} is silently ignored.\n\
-Octave always returns absolute file names. The arguments @var{n} and\n\
+Octave always returns absolute file names.  The arguments @var{n} and\n\
 @var{-completenames} can be both specified in any order.\n\
 \n\
 The optional return argument @var{stack} is a struct array with the\n\
@@ -1299,7 +1301,7 @@
 }
 
 DEFUN (dbup, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} dbup\n\
 @deftypefnx {Built-in Function} {} dbup (@var{n})\n\
 In debugging mode, move up the execution stack @var{n} frames.\n\
@@ -1315,7 +1317,7 @@
 }
 
 DEFUN (dbdown, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} dbdown\n\
 @deftypefnx {Built-in Function} {} dbdown (@var{n})\n\
 In debugging mode, move down the execution stack @var{n} frames.\n\
@@ -1331,7 +1333,7 @@
 }
 
 DEFUN (dbstep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} dbstep\n\
 @deftypefnx {Command} {} dbstep @var{n}\n\
 @deftypefnx {Command} {} dbstep in\n\
@@ -1410,7 +1412,7 @@
 DEFALIAS (dbnext, dbstep);
 
 DEFUN (dbcont, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Command} {} dbcont\n\
 Leave command-line debugging mode and continue code execution normally.\n\
 @seealso{dbstep, dbquit}\n\
@@ -1434,7 +1436,7 @@
 }
 
 DEFUN (dbquit, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Command} {} dbquit\n\
 Quit debugging mode immediately without further code execution and\n\
 return to the Octave prompt.\n\
@@ -1461,7 +1463,7 @@
 }
 
 DEFUN (isdebugmode, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isdebugmode ()\n\
 Return true if in debugging mode, otherwise false.\n\
 @seealso{dbwhere, dbstack, dbstatus}\n\
--- a/libinterp/corefcn/defaults.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/defaults.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -252,14 +252,14 @@
 
   if (tpath.empty ())
     tpath = Vlocal_ver_arch_lib_dir + dir_path::path_sep_str ()
-      + Vlocal_api_arch_lib_dir + dir_path::path_sep_str ()
-      + Vlocal_arch_lib_dir + dir_path::path_sep_str ()
-      + Varch_lib_dir + dir_path::path_sep_str ()
-      + Vbin_dir;
+            + Vlocal_api_arch_lib_dir + dir_path::path_sep_str ()
+            + Vlocal_arch_lib_dir + dir_path::path_sep_str ()
+            + Varch_lib_dir + dir_path::path_sep_str ()
+            + Vbin_dir;
 
   VEXEC_PATH = tpath;
 
-  // FIXME -- should we really be modifying PATH in the environment?
+  // FIXME: should we really be modifying PATH in the environment?
   // The way things are now, Octave will ignore directories set in the
   // PATH with calls like
   //
@@ -371,7 +371,8 @@
 
   if (lsf.empty ())
     {
-      Vlocal_site_defaults_file = subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR);
+      Vlocal_site_defaults_file
+        = subst_octave_home (OCTAVE_LOCALSTARTUPFILEDIR);
       Vlocal_site_defaults_file.append ("/octaverc");
     }
   else
@@ -466,7 +467,7 @@
 }
 
 DEFUN (EDITOR, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} EDITOR ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} EDITOR (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} EDITOR (@var{new_val}, \"local\")\n\
@@ -499,7 +500,7 @@
 */
 
 DEFUN (EXEC_PATH, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} EXEC_PATH ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} EXEC_PATH (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} EXEC_PATH (@var{new_val}, \"local\")\n\
@@ -537,7 +538,7 @@
 */
 
 DEFUN (IMAGE_PATH, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} IMAGE_PATH ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} IMAGE_PATH (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} IMAGE_PATH (@var{new_val}, \"local\")\n\
@@ -567,7 +568,7 @@
 */
 
 DEFUN (OCTAVE_HOME, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} OCTAVE_HOME ()\n\
 Return the name of the top-level Octave installation directory.\n\
 \n\
@@ -590,7 +591,7 @@
 */
 
 DEFUNX ("OCTAVE_VERSION", FOCTAVE_VERSION, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} OCTAVE_VERSION ()\n\
 Return the version number of Octave, as a string.\n\
 @end deftypefn")
--- a/libinterp/corefcn/defaults.in.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/defaults.in.h	Tue Nov 05 12:27:42 2013 -0500
@@ -225,7 +225,10 @@
 
 extern OCTINTERP_API void install_defaults (void);
 
-extern OCTINTERP_API void set_exec_path (const std::string& path = std::string ());
-extern OCTINTERP_API void set_image_path (const std::string& path = std::string ());
+extern OCTINTERP_API void
+set_exec_path (const std::string& path = std::string ());
+
+extern OCTINTERP_API void
+set_image_path (const std::string& path = std::string ());
 
 #endif
--- a/libinterp/corefcn/defun-int.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/defun-int.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,8 @@
 extern OCTINTERP_API void print_usage (void);
 extern OCTINTERP_API void print_usage (const std::string&);
 
-extern OCTINTERP_API void check_version (const std::string& version, const std::string& fcn);
+extern OCTINTERP_API void check_version (const std::string& version,
+                                         const std::string& fcn);
 
 extern OCTINTERP_API void
 install_builtin_function (octave_builtin::fcn f, const std::string& name,
@@ -59,8 +60,8 @@
 get_current_shlib (void);
 
 // This is a convenience class that calls the above function automatically at
-// construction time. When deriving new classes, you can either use it as a field
-// or as a parent (with multiple inheritance).
+// construction time. When deriving new classes, you can either use it as a
+// field or as a parent (with multiple inheritance).
 
 class octave_auto_shlib : public octave_shlib
 {
@@ -90,7 +91,8 @@
 
 typedef bool (*octave_dld_fcn_installer) (const octave_shlib&, bool relative);
 
-typedef octave_function * (*octave_dld_fcn_getter) (const octave_shlib&, bool relative);
+typedef octave_function * 
+  (*octave_dld_fcn_getter) (const octave_shlib&, bool relative);
 
 #define DEFINE_FUN_INSTALLER_FUN(name, doc) \
   DEFINE_FUNX_INSTALLER_FUN(#name, F ## name, G ## name, doc)
--- a/libinterp/corefcn/defun.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/defun.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -133,12 +133,14 @@
     {
       if (curr_fcn->is_dld_function ())
         {
-          octave_dld_function *dld = dynamic_cast<octave_dld_function *> (curr_fcn);
+          octave_dld_function *dld
+            = dynamic_cast<octave_dld_function *> (curr_fcn);
           retval = dld->get_shlib ();
         }
       else if (curr_fcn->is_mex_function ())
         {
-          octave_mex_function *mex = dynamic_cast<octave_mex_function *> (curr_fcn);
+          octave_mex_function *mex
+            = dynamic_cast<octave_mex_function *> (curr_fcn);
           retval = mex->get_shlib ();
         }
     }
@@ -148,7 +150,8 @@
 
 bool defun_isargout (int nargout, int iout)
 {
-  const std::list<octave_lvalue> *lvalue_list = octave_builtin::curr_lvalue_list;
+  const std::list<octave_lvalue> *lvalue_list
+    = octave_builtin::curr_lvalue_list;
   if (iout >= std::max (nargout, 1))
     return false;
   else if (lvalue_list)
@@ -172,7 +175,9 @@
 
 void defun_isargout (int nargout, int nout, bool *isargout)
 {
-  const std::list<octave_lvalue> *lvalue_list = octave_builtin::curr_lvalue_list;
+  const std::list<octave_lvalue> *lvalue_list
+    = octave_builtin::curr_lvalue_list;
+
   if (lvalue_list)
     {
       int k = 0;
--- a/libinterp/corefcn/det.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/det.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -48,7 +48,7 @@
    dynamic_cast<const CLASS *> (&arg.get_rep ()) : 0
 
 DEFUN (det, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} det (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{d}, @var{rcond}] =} det (@var{A})\n\
 Compute the determinant of @var{A}.\n\
@@ -106,13 +106,15 @@
         {
           if (isfloat)
             {
-              retval(0) = arg.float_complex_diag_matrix_value ().determinant ().value ();
+              retval(0) = arg.float_complex_diag_matrix_value ()
+                          .determinant ().value ();
               if (nargout > 1)
                 retval(1) = arg.float_complex_diag_matrix_value ().rcond ();
             }
           else
             {
-              retval(0) = arg.complex_diag_matrix_value ().determinant ().value ();
+              retval(0) = arg.complex_diag_matrix_value ()
+                          .determinant ().value ();
               if (nargout > 1)
                 retval(1) = arg.complex_diag_matrix_value ().rcond ();
             }
@@ -121,7 +123,8 @@
         {
           if (isfloat)
             {
-              retval(0) = arg.float_diag_matrix_value ().determinant ().value ();
+              retval(0) = arg.float_diag_matrix_value ()
+                          .determinant ().value ();
               if (nargout > 1)
                 retval(1) = arg.float_diag_matrix_value ().rcond ();
             }
@@ -200,7 +203,8 @@
               if (! error_state)
                 {
                   MAYBE_CAST (rep, octave_matrix);
-                  MatrixType mtype = rep ? rep -> matrix_type () : MatrixType ();
+                  MatrixType mtype = rep ? rep -> matrix_type ()
+                                         : MatrixType ();
                   DET det = m.determinant (mtype, info, rcond);
                   retval(1) = rcond;
                   retval(0) = info == -1 ? 0.0 : det.value ();
@@ -230,7 +234,8 @@
               if (! error_state)
                 {
                   MAYBE_CAST (rep, octave_complex_matrix);
-                  MatrixType mtype = rep ? rep -> matrix_type () : MatrixType ();
+                  MatrixType mtype = rep ? rep -> matrix_type () 
+                                         : MatrixType ();
                   ComplexDET det = m.determinant (mtype, info, rcond);
                   retval(1) = rcond;
                   retval(0) = info == -1 ? Complex (0.0) : det.value ();
--- a/libinterp/corefcn/dirfns.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dirfns.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -79,7 +79,7 @@
     {
       Vlast_chdir_time.stamp ();
 
-      // FIXME -- should these actions be handled as a list of functions
+      // FIXME: should these actions be handled as a list of functions
       // to call so users can add their own chdir handlers?
 
       load_path::update ();
@@ -93,7 +93,7 @@
 }
 
 DEFUN (cd, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} cd @var{dir}\n\
 @deftypefnx {Command} {} cd\n\
 @deftypefnx {Built-in Function} {@var{old_dir} =} cd @var{dir}\n\
@@ -155,7 +155,7 @@
 DEFALIAS (chdir, cd);
 
 DEFUN (pwd, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} pwd ()\n\
 @deftypefnx {Built-in Function} {@var{dir} =} pwd ()\n\
 Return the current working directory.\n\
@@ -166,7 +166,7 @@
 }
 
 DEFUN (readdir, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{files} =} readdir (@var{dir})\n\
 @deftypefnx {Built-in Function} {[@var{files}, @var{err}, @var{msg}] =} readdir (@var{dir})\n\
 Return the names of files in the directory @var{dir} as a cell array of\n\
@@ -217,7 +217,7 @@
 //        OTOH, that might cause trouble with compatibility later...
 
 DEFUNX ("mkdir", Fmkdir, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} mkdir @var{dir}\n\
 @deftypefnx {Built-in Function} {} mkdir (@var{parent}, @var{dir})\n\
 @deftypefnx {Built-in Function} {[@var{status}, @var{msg}, @var{msgid}] =} mkdir (@dots{})\n\
@@ -304,7 +304,7 @@
 }
 
 DEFUNX ("rmdir", Frmdir, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} rmdir @var{dir}\n\
 @deftypefnx {Built-in Function} {} rmdir (@var{dir}, \"s\")\n\
 @deftypefnx {Built-in Function} {[@var{status}, @var{msg}, @var{msgid}] =} rmdir (@dots{})\n\
@@ -379,7 +379,7 @@
 }
 
 DEFUNX ("link", Flink, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} link @var{old} @var{new}\n\
 @deftypefnx {Built-in Function} {[@var{err}, @var{msg}] =} link (@var{old}, @var{new})\n\
 Create a new link (also known as a hard link) to an existing file.\n\
@@ -426,7 +426,7 @@
 }
 
 DEFUNX ("symlink", Fsymlink, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} symlink @var{old} @var{new}\n\
 @deftypefnx {Built-in Function} {[@var{err}, @var{msg}] =} symlink (@var{old}, @var{new})\n\
 Create a symbolic link @var{new} which contains the string @var{old}.\n\
@@ -473,7 +473,7 @@
 }
 
 DEFUNX ("readlink", Freadlink, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} readlink @var{symlink}\n\
 @deftypefnx {Built-in Function} {[@var{result}, @var{err}, @var{msg}] =} readlink (@var{symlink})\n\
 Read the value of the symbolic link @var{symlink}.\n\
@@ -517,7 +517,7 @@
 }
 
 DEFUNX ("rename", Frename, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} rename @var{old} @var{new}\n\
 @deftypefnx {Built-in Function} {[@var{err}, @var{msg}] =} rename (@var{old}, @var{new})\n\
 Change the name of file @var{old} to @var{new}.\n\
@@ -564,7 +564,7 @@
 }
 
 DEFUN (glob, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} glob (@var{pattern})\n\
 Given an array of pattern strings (as a char array or a cell array) in\n\
 @var{pattern}, return a cell array of file names that match any of\n\
@@ -665,7 +665,7 @@
 */
 
 DEFUNX ("fnmatch", Ffnmatch, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fnmatch (@var{pattern}, @var{string})\n\
 Return true or false for each element of @var{string} that matches any of\n\
 the elements of the string array @var{pattern}, using the rules of\n\
@@ -703,7 +703,7 @@
 }
 
 DEFUN (filesep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} filesep ()\n\
 @deftypefnx {Built-in Function} {} filesep (\"all\")\n\
 Return the system-dependent character used to separate directory names.\n\
@@ -740,7 +740,7 @@
 }
 
 DEFUN (pathsep, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} pathsep ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} pathsep (@var{new_val})\n\
 Query or set the character used to separate directories in a path.\n\
@@ -785,7 +785,7 @@
 }
 
 DEFUN (confirm_recursive_rmdir, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} confirm_recursive_rmdir ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} confirm_recursive_rmdir (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} confirm_recursive_rmdir (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/display.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/display.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,7 +53,7 @@
     return 32;
   else if (CFStringCompare (pixelEncoding, CFSTR (IO16BitDirectPixels), 0) == 0)
     return 16;
-  else 
+  else
     return 8;
 }
 #endif
@@ -83,7 +83,7 @@
           dpy_avail = true;
         }
       else
-        warning ("no graphical display found");
+        err_msg = "no graphical display found";
 
 #elif defined (HAVE_FRAMEWORK_CARBON)
 
@@ -115,7 +115,7 @@
           dpy_avail = true;
         }
       else
-        warning ("no graphical display found");
+        err_msg = "no graphical display found";
 
 #elif defined (HAVE_X_WINDOWS)
 
@@ -145,20 +145,20 @@
                   ry = ht * 25.4 / ht_mm;
                 }
               else
-                warning ("X11 display has no default screen");
+                err_msg = "X11 display has no default screen";
 
               XCloseDisplay (display);
 
               dpy_avail = true;
             }
           else
-            warning ("unable to open X11 DISPLAY");
+            err_msg = "unable to open X11 DISPLAY";
         }
       else
-        warning ("X11 DISPLAY environment variable not set");
+        err_msg = "X11 DISPLAY environment variable not set";
 #else
 
-      warning ("no graphical display found");
+      err_msg = "no graphical display found";
 
 #endif
     }
--- a/libinterp/corefcn/display.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/display.h	Tue Nov 05 12:27:42 2013 -0500
@@ -23,6 +23,8 @@
 #if !defined (octave_display_h)
 #define octave_display_h 1
 
+#include <string>
+
 class Matrix;
 
 class display_info
@@ -30,7 +32,8 @@
 protected:
 
   display_info (bool query = true)
-    : ht (1), wd (1), dp (0), rx (72), ry (72), dpy_avail (false)
+    : ht (1), wd (1), dp (0), rx (72), ry (72), dpy_avail (false),
+      err_msg ()
   {
     init (query);
   }
@@ -64,7 +67,13 @@
 
   static bool display_available (void)
   {
-    return instance_ok () ? instance->do_display_available () : false;
+    std::string msg;
+    return instance_ok () ? instance->do_display_available (msg) : false;
+  }
+
+  static bool display_available (std::string& msg)
+  {
+    return instance_ok () ? instance->do_display_available (msg) : false;
   }
 
   // To disable querying the window system for defaults, this function
@@ -91,6 +100,8 @@
 
   bool dpy_avail;
 
+  std::string err_msg;
+
   int do_height (void) const { return ht; }
   int do_width (void) const { return wd; }
   int do_depth (void) const { return dp; }
@@ -98,7 +109,12 @@
   double do_x_dpi (void) const { return rx; }
   double do_y_dpi (void) const { return ry; }
 
-  bool do_display_available (void) const { return dpy_avail; }
+  bool do_display_available (std::string& msg) const
+  {
+    msg = err_msg;
+
+    return dpy_avail;
+  }
 
   void init (bool query = true);
 
--- a/libinterp/corefcn/dlmread.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dlmread.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -41,7 +41,8 @@
 #include "oct-obj.h"
 #include "utils.h"
 
-static const octave_idx_type idx_max =  std::numeric_limits<octave_idx_type>::max ();
+static const octave_idx_type idx_max =
+  std::numeric_limits<octave_idx_type>::max ();
 
 static bool
 read_cell_spec (std::istream& is, octave_idx_type& row, octave_idx_type& col)
@@ -156,7 +157,7 @@
 }
 
 DEFUN (dlmread, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{data} =} dlmread (@var{file})\n\
 @deftypefnx {Built-in Function} {@var{data} =} dlmread (@var{file}, @var{sep})\n\
 @deftypefnx {Built-in Function} {@var{data} =} dlmread (@var{file}, @var{sep}, @var{r0}, @var{c0})\n\
@@ -196,7 +197,7 @@
     {
       empty_value = args(nargin-1).double_value ();
       if (error_state)
-         return retval;
+        return retval;
       nargin -= 2;
     }
 
@@ -214,7 +215,7 @@
       // File name.
       std::string fname (args(0).string_value ());
       if (error_state)
-         return retval;
+        return retval;
 
       std::string tname = file_ops::tilde_expand (fname);
 
@@ -233,7 +234,7 @@
       octave_stream is = octave_stream_list::lookup (args(0), "dlmread");
 
       if (error_state)
-         return retval;
+        return retval;
 
       input = is.input_stream ();
 
--- a/libinterp/corefcn/dot.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dot.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -104,7 +104,7 @@
 }
 
 DEFUN (dot, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} dot (@var{x}, @var{y}, @var{dim})\n\
 Compute the dot product of two vectors.  If @var{x} and @var{y}\n\
 are matrices, calculate the dot products along the first\n\
@@ -170,7 +170,8 @@
                       get_red_dims (dimx, dimy, dim, dimz, m, n, k);
                       FloatComplexNDArray z(dimz);
                       if (! error_state)
-                        F77_XFCN (cdotc3, CDOTC3, (m, n, k, x.data (), y.data (),
+                        F77_XFCN (cdotc3, CDOTC3, (m, n, k,
+                                                   x.data (), y.data (),
                                                    z.fortran_vec ()));
                       retval = z;
                     }
@@ -181,7 +182,8 @@
                       get_red_dims (dimx, dimy, dim, dimz, m, n, k);
                       ComplexNDArray z(dimz);
                       if (! error_state)
-                        F77_XFCN (zdotc3, ZDOTC3, (m, n, k, x.data (), y.data (),
+                        F77_XFCN (zdotc3, ZDOTC3, (m, n, k,
+                                                   x.data (), y.data (),
                                                    z.fortran_vec ()));
                       retval = z;
                     }
@@ -263,7 +265,7 @@
 */
 
 DEFUN (blkmm, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} blkmm (@var{A}, @var{B})\n\
 Compute products of matrix blocks.  The blocks are given as\n\
 2-dimensional subarrays of the arrays @var{A}, @var{B}.\n\
@@ -317,7 +319,8 @@
                   FloatComplexNDArray y = argy.float_complex_array_value ();
                   FloatComplexNDArray z(dimz);
                   if (! error_state)
-                    F77_XFCN (cmatm3, CMATM3, (m, n, k, np, x.data (), y.data (),
+                    F77_XFCN (cmatm3, CMATM3, (m, n, k, np,
+                                               x.data (), y.data (),
                                                z.fortran_vec ()));
                   retval = z;
                 }
@@ -327,7 +330,8 @@
                   ComplexNDArray y = argy.complex_array_value ();
                   ComplexNDArray z(dimz);
                   if (! error_state)
-                    F77_XFCN (zmatm3, ZMATM3, (m, n, k, np, x.data (), y.data (),
+                    F77_XFCN (zmatm3, ZMATM3, (m, n, k, np,
+                                               x.data (), y.data (),
                                                z.fortran_vec ()));
                   retval = z;
                 }
@@ -340,7 +344,8 @@
                   FloatNDArray y = argy.float_array_value ();
                   FloatNDArray z(dimz);
                   if (! error_state)
-                    F77_XFCN (smatm3, SMATM3, (m, n, k, np, x.data (), y.data (),
+                    F77_XFCN (smatm3, SMATM3, (m, n, k, np,
+                                               x.data (), y.data (),
                                                z.fortran_vec ()));
                   retval = z;
                 }
@@ -350,7 +355,8 @@
                   NDArray y = argy.array_value ();
                   NDArray z(dimz);
                   if (! error_state)
-                    F77_XFCN (dmatm3, DMATM3, (m, n, k, np, x.data (), y.data (),
+                    F77_XFCN (dmatm3, DMATM3, (m, n, k, np,
+                                               x.data (), y.data (),
                                                z.fortran_vec ()));
                   retval = z;
                 }
--- a/libinterp/corefcn/dynamic-ld.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dynamic-ld.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -187,7 +187,7 @@
 octave_shlib_list::find_file (const std::string& file_name)
 {
   return (instance_ok ())
-    ? instance->do_find_file (file_name) : octave_shlib ();
+         ? instance->do_find_file (file_name) : octave_shlib ();
 }
 
 void
@@ -281,7 +281,7 @@
 
           if (! function)
             {
-              // FIXME -- can we determine this C mangling scheme
+              // FIXME: can we determine this C mangling scheme
               // automatically at run time or configure time?
 
               function = oct_file.search (fcn_name, name_uscore_mangler);
@@ -345,7 +345,7 @@
 
           if (! function)
             {
-              // FIXME -- can we determine this C mangling scheme
+              // FIXME: can we determine this C mangling scheme
               // automatically at run time or configure time?
 
               function = mex_file.search (fcn_name, mex_uscore_mangler);
@@ -416,20 +416,20 @@
 
 octave_function *
 octave_dynamic_loader::load_oct (const std::string& fcn_name,
-                                  const std::string& file_name,
-                                  bool relative)
+                                 const std::string& file_name,
+                                 bool relative)
 {
   return (instance_ok ())
-    ? instance->do_load_oct (fcn_name, file_name, relative) : 0;
+         ? instance->do_load_oct (fcn_name, file_name, relative) : 0;
 }
 
 octave_function *
 octave_dynamic_loader::load_mex (const std::string& fcn_name,
-                                  const std::string& file_name,
-                                  bool relative)
+                                 const std::string& file_name,
+                                 bool relative)
 {
   return (instance_ok ())
-    ? instance->do_load_mex (fcn_name, file_name, relative) : 0;
+         ? instance->do_load_mex (fcn_name, file_name, relative) : 0;
 }
 
 bool
--- a/libinterp/corefcn/dynamic-ld.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/dynamic-ld.h	Tue Nov 05 12:27:42 2013 -0500
@@ -42,13 +42,13 @@
 
   static octave_function *
   load_oct (const std::string& fcn_name,
-             const std::string& file_name = std::string (),
-             bool relative = false);
+            const std::string& file_name = std::string (),
+            bool relative = false);
 
   static octave_function *
   load_mex (const std::string& fcn_name,
-             const std::string& file_name = std::string (),
-             bool relative = false);
+            const std::string& file_name = std::string (),
+            bool relative = false);
 
   static bool remove_oct (const std::string& fcn_name, octave_shlib& shl);
 
@@ -70,13 +70,13 @@
 
   octave_function *
   do_load_oct (const std::string& fcn_name,
-                const std::string& file_name = std::string (),
-                bool relative = false);
+               const std::string& file_name = std::string (),
+               bool relative = false);
 
   octave_function *
   do_load_mex (const std::string& fcn_name,
-                const std::string& file_name = std::string (),
-                bool relative = false);
+               const std::string& file_name = std::string (),
+               bool relative = false);
 
   bool do_remove_oct (const std::string& fcn_name, octave_shlib& shl);
 
--- a/libinterp/corefcn/eig.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/eig.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
 #include "utils.h"
 
 DEFUN (eig, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{lambda} =} eig (@var{A})\n\
 @deftypefnx {Built-in Function} {@var{lambda} =} eig (@var{A}, @var{B})\n\
 @deftypefnx {Built-in Function} {[@var{V}, @var{lambda}] =} eig (@var{A})\n\
--- a/libinterp/corefcn/ellipj.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ellipj.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,7 @@
 }
 
 DEFUN (ellipj, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{sn}, @var{cn}, @var{dn}, @var{err}] =} ellipj (@var{u}, @var{m})\n\
 @deftypefnx {Built-in Function} {[@var{sn}, @var{cn}, @var{dn}, @var{err}] =} ellipj (@var{u}, @var{m}, @var{tol})\n\
 Compute the Jacobi elliptic functions @var{sn}, @var{cn}, and @var{dn}\n\
@@ -100,7 +100,8 @@
       if (u_arg.is_scalar_type ())
         {
           if (u_arg.is_real_type ())
-            {  // u real, m scalar
+            {
+              // u real, m scalar
               double u = args(0).double_value ();
 
               if (error_state)
@@ -121,7 +122,8 @@
               retval(0) = sn;
             }
           else
-            {  // u complex, m scalar
+            {
+              // u complex, m scalar
               Complex u = u_arg.complex_value ();
 
               if (error_state)
@@ -143,9 +145,10 @@
             }
         }
       else
-        {  // u is matrix, m is scalar
+        {
+          // u is matrix, m is scalar
           ComplexNDArray u = u_arg.complex_array_value ();
-          
+
           if (error_state)
             {
               gripe_ellipj_arg ("first");
@@ -187,9 +190,11 @@
       dim_vector sz_m = m.dims ();
 
       if (u_arg.is_scalar_type ())
-        {  // u is scalar, m is array
+        {
+          // u is scalar, m is array
           if (u_arg.is_real_type ())
-            {  // u is real scalar, m is array
+            {
+              // u is real scalar, m is array
               double u = u_arg.double_value ();
 
               if (error_state)
@@ -218,7 +223,8 @@
               retval(0) = sn;
             }
           else
-            {  // u is complex scalar, m is array
+            {
+              // u is complex scalar, m is array
               Complex u = u_arg.complex_value ();
 
               if (error_state)
@@ -248,9 +254,11 @@
             }
         }
       else
-        {  // u is array, m is array
+        {
+          // u is array, m is array
           if (u_arg.is_real_type ())
-            {  // u is real array, m is array
+            {
+              // u is real array, m is array
               NDArray u = u_arg.array_value ();
 
               if (error_state)
@@ -263,7 +271,8 @@
 
               if (sz_u.length () == 2 && sz_m.length () == 2
                   && sz_u(1) == 1 && sz_m(0) == 1)
-                {  // u is real column vector, m is row vector
+                {
+                  // u is real column vector, m is row vector
                   octave_idx_type ur = sz_u(0);
                   octave_idx_type mc = sz_m(1);
                   dim_vector sz_out (ur, mc);
@@ -276,7 +285,8 @@
 
                   for (octave_idx_type j = 0; j < mc; j++)
                     for (octave_idx_type i = 0; i < ur; i++)
-                      ellipj (pu[i], pm[j], sn(i,j), cn(i,j), dn(i,j), err(i,j));
+                      ellipj (pu[i], pm[j], sn(i,j), cn(i,j), dn(i,j),
+                              err(i,j));
 
                   if (nargout > 3)
                     retval(3) = err;
@@ -310,7 +320,8 @@
                 error ("ellipj: Invalid size combination for U and M");
             }
           else
-            {  // u is complex array, m is array
+            {
+              // u is complex array, m is array
               ComplexNDArray u = u_arg.complex_array_value ();
 
               if (error_state)
@@ -323,7 +334,8 @@
 
               if (sz_u.length () == 2 && sz_m.length () == 2
                   && sz_u(1) == 1 && sz_m(0) == 1)
-                {  // u is complex column vector, m is row vector
+                {
+                  // u is complex column vector, m is row vector
                   octave_idx_type ur = sz_u(0);
                   octave_idx_type mc = sz_m(1);
                   dim_vector sz_out (ur, mc);
@@ -336,7 +348,8 @@
 
                   for (octave_idx_type j = 0; j < mc; j++)
                     for (octave_idx_type i = 0; i < ur; i++)
-                      ellipj (pu[i], pm[j], sn(i,j), cn(i,j), dn(i,j), err(i,j));
+                      ellipj (pu[i], pm[j], sn(i,j), cn(i,j), dn(i,j),
+                              err(i,j));
 
                   if (nargout > 3)
                     retval(3) = err;
--- a/libinterp/corefcn/error.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/error.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -164,9 +164,9 @@
 
   output_buf << std::endl;
 
-  // FIXME -- we really want to capture the message before it
-  // has all the formatting goop attached to it.  We probably also
-  // want just the message, not the traceback information.
+  // FIXME: we really want to capture the message before it has all the
+  //        formatting goop attached to it.  We probably also want just the
+  //        message, not the traceback information.
 
   std::string msg_string = output_buf.str ();
 
@@ -197,9 +197,9 @@
   if (! buffer_error_messages)
     flush_octave_stdout ();
 
-  // FIXME -- we really want to capture the message before it
-  // has all the formatting goop attached to it.  We probably also
-  // want just the message, not the traceback information.
+  // FIXME: we really want to capture the message before it has all the
+  //        formatting goop attached to it.  We probably also want just the
+  //        message, not the traceback information.
 
   std::ostringstream output_buf;
 
@@ -231,7 +231,7 @@
             {
               cfn += ':';
               if (cfn.length () > base_msg.length ()
-                 || base_msg.compare (0, cfn.length (), cfn) != 0)
+                  || base_msg.compare (0, cfn.length (), cfn) != 0)
                 {
                   msg_string += cfn + ' ';
                 }
@@ -827,7 +827,7 @@
 }
 
 DEFUN (rethrow, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rethrow (@var{err})\n\
 Reissue a previous error as defined by @var{err}.  @var{err} is a structure\n\
 that must contain at least the @qcode{\"message\"} and @qcode{\"identifier\"}\n\
@@ -895,9 +895,8 @@
                 rethrow_error (id.c_str (), "%s", tmp_msg);
               delete [] tmp_msg;
 
-              // FIXME -- is this the right thing to do for
-              // Vlast_error_stack?  Should it be saved and restored
-              // with unwind_protect?
+              // FIXME: is this the right thing to do for Vlast_error_stack?
+              //        Should it be saved and restored with unwind_protect?
 
               Vlast_error_stack = err_stack;
 
@@ -924,7 +923,8 @@
                                 pr_where_1 ("error: called from '%s' near line %d, column %d",
                                             nm.c_str (), l, c);
                               else
-                                pr_where_1 ("error: called from '%d' near line %d", nm.c_str (), l);
+                                pr_where_1 ("error: called from '%d' near line %d",
+                                            nm.c_str (), l);
                             }
                         }
                     }
@@ -938,7 +938,8 @@
                                 pr_where_1 ("error: in file %s near line %d, column %d",
                                             file.c_str (), l, c);
                               else
-                                pr_where_1 ("error: in file %s near line %d", file.c_str (), l);
+                                pr_where_1 ("error: in file %s near line %d",
+                                            file.c_str (), l);
                             }
                         }
                       else
@@ -949,7 +950,8 @@
                                 pr_where_1 ("error: called from '%s' in file %s near line %d, column %d",
                                             nm.c_str (), file.c_str (), l, c);
                               else
-                                pr_where_1 ("error: called from '%d' in file %s near line %d", nm.c_str (), file.c_str (), l);
+                                pr_where_1 ("error: called from '%d' in file %s near line %d",
+                                            nm.c_str (), file.c_str (), l);
                             }
                         }
                     }
@@ -1005,7 +1007,7 @@
                 }
               else
                 nargs(0) = "call to " + caller
-                  + " with message identifier requires message";
+                           + " with message identifier requires message";
             }
         }
     }
@@ -1014,7 +1016,7 @@
 }
 
 DEFUN (error, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} error (@var{template}, @dots{})\n\
 @deftypefnx {Built-in Function} {} error (@var{id}, @var{template}, @dots{})\n\
 Format the optional arguments under the control of the template string\n\
@@ -1132,7 +1134,7 @@
               octave_value c = m.getfield ("message");
 
               if (c.is_string ())
-                 nargs(0) = c.string_value ();
+                nargs(0) = c.string_value ();
             }
 
           if (m.contains ("identifier"))
@@ -1140,12 +1142,12 @@
               octave_value c = m.getfield ("identifier");
 
               if (c.is_string ())
-                 id = c.string_value ();
+                id = c.string_value ();
             }
 
-          // FIXME -- also need to handle "stack" field in error
-          // structure, but that will require some more significant
-          // surgery on handle_message, error_with_id, etc.
+          // FIXME: also need to handle "stack" field in error structure,
+          //        but that will require some more significant surgery on
+          //        handle_message, error_with_id, etc.
         }
       else
         {
@@ -1216,7 +1218,7 @@
 }
 
 DEFUN (warning, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} warning (@var{template}, @dots{})\n\
 @deftypefnx {Built-in Function} {} warning (@var{id}, @var{template}, @dots{})\n\
 @deftypefnx {Built-in Function} {} warning (\"on\", @var{id})\n\
@@ -1307,8 +1309,7 @@
 
                   octave_value curr_state = val.contents ("state");
 
-                  // FIXME -- this might be better with a dictionary
-                  // object.
+                  // FIXME: this might be better with a dictionary object.
 
                   octave_value curr_warning_states
                     = symbol_table::varval (".saved_warning_states.",
@@ -1373,7 +1374,7 @@
                   // handle the current setting.
                   argc--;
                 }
-                  
+
               if (arg2 == "all")
                 {
                   octave_map tmp;
@@ -1479,9 +1480,9 @@
                         {
                           if (ident(i).string_value () == arg2)
                             {
-                              // FIXME -- if state for "all" is
-                              // same as arg1, we can simply remove the
-                              // item from the list.
+                              // FIXME: if state for "all" is  same as arg1,
+                              //        we can simply remove the item
+                              //        from the list.
 
                               state(i) = arg1;
                               warning_options.assign ("state", state);
@@ -1492,8 +1493,8 @@
 
                       if (! found)
                         {
-                          // FIXME -- if state for "all" is
-                          // same as arg1, we don't need to do anything.
+                          // FIXME: if state for "all" is same as arg1,
+                          //        we don't need to do anything.
 
                           ident.resize (dim_vector (1, nel+1));
                           state.resize (dim_vector (1, nel+1));
@@ -1646,7 +1647,7 @@
 }
 
 DEFUN (lasterror, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{lasterr} =} lasterror ()\n\
 @deftypefnx {Built-in Function} {} lasterror (@var{err})\n\
 @deftypefnx {Built-in Function} {} lasterror (\"reset\")\n\
@@ -1748,7 +1749,7 @@
 
               if (! error_state && new_err.contains ("stack"))
                 {
-                  new_err_stack = 
+                  new_err_stack =
                     new_err.getfield ("stack").scalar_map_value ();
 
                   if (! error_state && new_err_stack.contains ("file"))
@@ -1817,7 +1818,7 @@
 }
 
 DEFUN (lasterr, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{msg}, @var{msgid}] =} lasterr ()\n\
 @deftypefnx {Built-in Function} {} lasterr (@var{msg})\n\
 @deftypefnx {Built-in Function} {} lasterr (@var{msg}, @var{msgid})\n\
@@ -1868,7 +1869,7 @@
 }
 
 DEFUN (lastwarn, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{msg}, @var{msgid}] =} lastwarn ()\n\
 @deftypefnx {Built-in Function} {} lastwarn (@var{msg})\n\
 @deftypefnx {Built-in Function} {} lastwarn (@var{msg}, @var{msgid})\n\
@@ -1915,7 +1916,7 @@
 }
 
 DEFUN (usage, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} usage (@var{msg})\n\
 Print the message @var{msg}, prefixed by the string @samp{usage: }, and\n\
 set Octave's internal error state such that control will return to the\n\
@@ -1949,7 +1950,7 @@
 }
 
 DEFUN (beep_on_error, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} beep_on_error ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} beep_on_error (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} beep_on_error (@var{new_val}, \"local\")\n\
@@ -1965,7 +1966,7 @@
 }
 
 DEFUN (debug_on_error, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} debug_on_error ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} debug_on_error (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} debug_on_error (@var{new_val}, \"local\")\n\
@@ -1984,7 +1985,7 @@
 }
 
 DEFUN (debug_on_warning, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} debug_on_warning ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} debug_on_warning (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} debug_on_warning (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/error.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/error.h	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,9 @@
 
 extern OCTINTERP_API int warning_enabled (const std::string& id);
 
-extern OCTINTERP_API void vmessage (const char *name, const char *fmt, va_list args);
+extern OCTINTERP_API void
+vmessage (const char *name, const char *fmt, va_list args);
+
 extern OCTINTERP_API void message (const char *name, const char *fmt, ...);
 
 extern OCTINTERP_API void vusage (const char *fmt, va_list args);
@@ -56,7 +58,8 @@
 extern OCTINTERP_API void parse_error (const char *fmt, ...);
 
 extern OCTINTERP_API void
-vmessage_with_id (const char *id, const char *name, const char *fmt, va_list args);
+vmessage_with_id (const char *id, const char *name,
+                  const char *fmt, va_list args);
 
 extern OCTINTERP_API void
 message_with_id (const char *id, const char *name, const char *fmt, ...);
--- a/libinterp/corefcn/event-queue.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/event-queue.h	Tue Nov 05 12:27:42 2013 -0500
@@ -99,19 +99,19 @@
   event_queue_safe (void) : event_queue () { }
 
   ~event_queue_safe (void)
-    {
-      while (! empty ())
-        {
-          try
-            {
-              run_first ();
-            }
-          catch (...) // Yes, the black hole. Remember we're in a dtor.
-            {
-              gripe_exception ();
-            }
-        }
-    }
+  {
+    while (! empty ())
+      {
+        try
+          {
+            run_first ();
+          }
+        catch (...) // Yes, the black hole. Remember we're in a dtor.
+          {
+            gripe_exception ();
+          }
+      }
+  }
 
 private:
 
--- a/libinterp/corefcn/fft.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/fft.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -68,7 +68,8 @@
             {
               n_points = NINTbig (dval);
               if (n_points < 0)
-                error ("%s: number of points (N) must be greater than zero", fcn);
+                error ("%s: number of points (N) must be greater than zero",
+                       fcn);
             }
         }
     }
@@ -82,7 +83,8 @@
       if (xisnan (dval))
         error ("%s: DIM cannot be NaN", fcn);
       else if (dval < 1 || dval > dims.length ())
-        error ("%s: DIM must be a valid dimension along which to perform FFT", fcn);
+        error ("%s: DIM must be a valid dimension along which to perform FFT",
+               fcn);
       else
         // to be safe, cast it back to int since dim is an int
         dim = NINT (dval) - 1;
@@ -198,7 +200,7 @@
 
 
 DEFUN (fft, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} fft (@var{x})\n\
 @deftypefnx {Built-in Function} {} fft (@var{x}, @var{n})\n\
 @deftypefnx {Built-in Function} {} fft (@var{x}, @var{n}, @var{dim})\n\
@@ -227,7 +229,7 @@
 
 
 DEFUN (ifft, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} ifft (@var{x})\n\
 @deftypefnx {Built-in Function} {} ifft (@var{x}, @var{n})\n\
 @deftypefnx {Built-in Function} {} ifft (@var{x}, @var{n}, @var{dim})\n\
--- a/libinterp/corefcn/fft2.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/fft2.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -168,7 +168,7 @@
 }
 
 DEFUN (fft2, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} fft2 (@var{A})\n\
 @deftypefnx {Built-in Function} {} fft2 (@var{A}, @var{m}, @var{n})\n\
 Compute the two-dimensional discrete Fourier transform of @var{A} using\n\
@@ -189,7 +189,7 @@
 
 
 DEFUN (ifft2, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} ifft2 (@var{A})\n\
 @deftypefnx {Built-in Function} {} ifft2 (@var{A}, @var{m}, @var{n})\n\
 Compute the inverse two-dimensional discrete Fourier transform of @var{A}\n\
--- a/libinterp/corefcn/fftn.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/fftn.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -75,7 +75,8 @@
               if (xisnan (val(i,0)))
                 error ("%s: SIZE has invalid NaN entries", fcn);
               else if (NINTbig (val(i,0)) < 0)
-                error ("%s: all dimensions in SIZE must be greater than zero", fcn);
+                error ("%s: all dimensions in SIZE must be greater than zero",
+                       fcn);
               else
                 {
                   dims(i) = NINTbig(val(i,0));
@@ -150,7 +151,7 @@
 }
 
 DEFUN (fftn, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} fftn (@var{A})\n\
 @deftypefnx {Built-in Function} {} fftn (@var{A}, @var{size})\n\
 Compute the N-dimensional discrete Fourier transform of @var{A} using\n\
@@ -169,7 +170,7 @@
 }
 
 DEFUN (ifftn, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} ifftn (@var{A})\n\
 @deftypefnx {Built-in Function} {} ifftn (@var{A}, @var{size})\n\
 Compute the inverse N-dimensional discrete Fourier transform of @var{A}\n\
--- a/libinterp/corefcn/file-io.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/file-io.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -109,8 +109,8 @@
 
 // List of files to delete when we exit or crash.
 //
-// FIXME -- this should really be static, but that causes
-// problems on some systems.
+// FIXME: this should really be static,
+//        but that causes problems on some systems.
 std::stack <std::string> tmp_files;
 
 void
@@ -237,7 +237,7 @@
 }
 
 DEFUN (fclose, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} fclose (@var{fid})\n\
 @deftypefnx {Built-in Function} {} fclose (\"all\")\n\
 Close the specified file.  If successful, @code{fclose} returns 0,\n\
@@ -259,7 +259,7 @@
 }
 
 DEFUN (fclear, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fclear (@var{fid})\n\
 Clear the stream state for the specified file.\n\
 @seealso{fopen}\n\
@@ -285,7 +285,7 @@
 }
 
 DEFUN (fflush, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fflush (@var{fid})\n\
 Flush output to @var{fid}.  This is useful for ensuring that all\n\
 pending output makes it to the screen before some other event occurs.\n\
@@ -303,7 +303,7 @@
 
   if (nargin == 1)
     {
-      // FIXME -- any way to avoid special case for stdout?
+      // FIXME: any way to avoid special case for stdout?
 
       int fid = octave_stream_list::get_file_number (args (0));
 
@@ -328,7 +328,7 @@
 }
 
 DEFUN (fgetl, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{str} =} fgetl (@var{fid})\n\
 @deftypefnx {Built-in Function} {@var{str} =} fgetl (@var{fid}, @var{len})\n\
 Read characters from a file, stopping after a newline, or EOF,\n\
@@ -379,7 +379,7 @@
 }
 
 DEFUN (fgets, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{str} =} fgets (@var{fid})\n\
 @deftypefnx {Built-in Function} {@var{str} =} fgets (@var{fid}, @var{len})\n\
 Read characters from a file, stopping after a newline, or EOF,\n\
@@ -430,7 +430,7 @@
 }
 
 DEFUN (fskipl, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{nlines} =} fskipl (@var{fid})\n\
 @deftypefnx {Built-in Function} {@var{nlines} =} fskipl (@var{fid}, @var{count})\n\
 @deftypefnx {Built-in Function} {@var{nlines} =} fskipl (@var{fid}, Inf)\n\
@@ -540,7 +540,8 @@
                 {
                   FILE *fptr = gnulib::fopen (fname.c_str (), mode.c_str ());
 
-                  retval = octave_stdiostream::create (fname, fptr, md, flt_fmt);
+                  retval = octave_stdiostream::create (fname, fptr, md,
+                                                       flt_fmt);
 
                   if (! fptr)
                     retval.error (gnulib::strerror (errno));
@@ -586,7 +587,7 @@
 }
 
 DEFUN (fopen, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{fid}, @var{msg}] =} fopen (@var{name}, @var{mode}, @var{arch})\n\
 @deftypefnx {Built-in Function} {@var{fid_list} =} fopen (\"all\")\n\
 @deftypefnx {Built-in Function} {[@var{file}, @var{mode}, @var{arch}] =} fopen (@var{fid})\n\
@@ -714,10 +715,10 @@
   if (nargin > 0 && nargin < 4)
     {
       octave_value mode = (nargin == 2 || nargin == 3)
-        ? args(1) : octave_value ("r");
+                          ? args(1) : octave_value ("r");
 
       octave_value arch = (nargin == 3)
-        ? args(2) : octave_value ("native");
+                          ? args(2) : octave_value ("native");
 
       int fid = -1;
 
@@ -743,7 +744,7 @@
 }
 
 DEFUN (freport, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} freport ()\n\
 Print a list of which files have been opened, and whether they are open\n\
 for reading, writing, or both.  For example:\n\
@@ -776,7 +777,7 @@
 }
 
 DEFUN (frewind, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} frewind (@var{fid})\n\
 Move the file pointer to the beginning of the file @var{fid}, returning\n\
 0 for success, and -1 if an error was encountered.  It is equivalent to\n\
@@ -807,7 +808,7 @@
 }
 
 DEFUN (fseek, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} fseek (@var{fid}, @var{offset})\n\
 @deftypefnx {Built-in Function} {} fseek (@var{fid}, @var{offset}, @var{origin})\n\
 @deftypefnx {Built-in Function} {@var{status} =} fseek (@dots{})\n\
@@ -836,7 +837,7 @@
       if (! error_state)
         {
           octave_value origin_arg = (nargin == 3)
-            ? args(2) : octave_value (-1.0);
+                                    ? args(2) : octave_value (-1.0);
 
           retval = os.seek (args(1), origin_arg);
         }
@@ -848,7 +849,7 @@
 }
 
 DEFUN (ftell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ftell (@var{fid})\n\
 Return the position of the file pointer as the number of characters\n\
 from the beginning of the file @var{fid}.\n\
@@ -873,7 +874,7 @@
 }
 
 DEFUN (fprintf, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fprintf (@var{fid}, @var{template}, @dots{})\n\
 This function is just like @code{printf}, except that the output is\n\
 written to the stream @var{fid} instead of @code{stdout}.\n\
@@ -934,7 +935,7 @@
 }
 
 DEFUN (printf, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} printf (@var{template}, @dots{})\n\
 Print optional arguments under the control of the template string\n\
 @var{template} to the stream @code{stdout} and return the number of\n\
@@ -984,7 +985,7 @@
 }
 
 DEFUN (fputs, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fputs (@var{fid}, @var{string})\n\
 Write a string to a file with no formatting.\n\
 \n\
@@ -1012,7 +1013,7 @@
 }
 
 DEFUN (puts, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} puts (@var{string})\n\
 Write a string to the standard output with no formatting.\n\
 \n\
@@ -1033,7 +1034,7 @@
 }
 
 DEFUN (sprintf, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} sprintf (@var{template}, @dots{})\n\
 This is like @code{printf}, except that the output is returned as a\n\
 string.  Unlike the C library function, which requires you to provide a\n\
@@ -1093,7 +1094,7 @@
 }
 
 DEFUN (fscanf, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{val}, @var{count}, @var{errmsg}] =} fscanf (@var{fid}, @var{template}, @var{size})\n\
 @deftypefnx {Built-in Function} {[@var{v1}, @var{v2}, @dots{}, @var{count}, @var{errmsg}] =} fscanf (@var{fid}, @var{template}, \"C\")\n\
 In the first form, read from @var{fid} according to @var{template},\n\
@@ -1178,8 +1179,9 @@
                   octave_idx_type count = 0;
 
                   Array<double> size = (nargin == 3)
-                    ? args(2).vector_value ()
-                    : Array<double> (dim_vector (1, 1), lo_ieee_inf_value ());
+                                       ? args(2).vector_value ()
+                                       : Array<double> (dim_vector (1, 1),
+                                                        lo_ieee_inf_value ());
 
                   if (! error_state)
                     {
@@ -1222,7 +1224,7 @@
 }
 
 DEFUN (sscanf, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{val}, @var{count}, @var{errmsg}, @var{pos}] =} sscanf (@var{string}, @var{template}, @var{size})\n\
 @deftypefnx {Built-in Function} {[@var{v1}, @var{v2}, @dots{}, @var{count}, @var{errmsg}] =} sscanf (@var{string}, @var{template}, \"C\")\n\
 This is like @code{fscanf}, except that the characters are taken from the\n\
@@ -1283,15 +1285,15 @@
                       octave_idx_type count = 0;
 
                       Array<double> size = (nargin == 3)
-                        ? args(2).vector_value ()
-                        : Array<double> (dim_vector (1, 1),
-                                         lo_ieee_inf_value ());
+                                           ? args(2).vector_value ()
+                                           : Array<double> (dim_vector (1, 1),
+                                                            lo_ieee_inf_value ());
 
                       octave_value tmp = os.scanf (args(1), size, count, who);
 
                       if (! error_state)
                         {
-                          // FIXME -- is this the right thing to do?
+                          // FIXME: is this the right thing to do?
                           // Extract error message first, because getting
                           // position will clear it.
                           std::string errmsg = os.error ();
@@ -1304,7 +1306,8 @@
                         }
                     }
                   else
-                    ::error ("%s: format TEMPLATE must be a string", who.c_str ());
+                    ::error ("%s: format TEMPLATE must be a string",
+                             who.c_str ());
                 }
               else
                 ::error ("%s: unable to create temporary input buffer",
@@ -1319,7 +1322,7 @@
 }
 
 DEFUN (scanf, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{val}, @var{count}, @var{errmsg}] =} scanf (@var{template}, @var{size})\n\
 @deftypefnx {Built-in Function} {[@var{v1}, @var{v2}, @dots{}, @var{count}, @var{errmsg}]] =} scanf (@var{template}, \"C\")\n\
 This is equivalent to calling @code{fscanf} with @var{fid} = @code{stdin}.\n\
@@ -1400,7 +1403,7 @@
 }
 
 DEFUN (fread, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{val}, @var{count}] =} fread (@var{fid}, @var{size}, @var{precision}, @var{skip}, @var{arch})\n\
 Read binary data of type @var{precision} from the specified file ID\n\
 @var{fid}.\n\
@@ -1661,7 +1664,7 @@
 }
 
 DEFUN (fwrite, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{count} =} fwrite (@var{fid}, @var{data}, @var{precision}, @var{skip}, @var{arch})\n\
 Write data in binary form of type @var{precision} to the specified file\n\
 ID @var{fid}, returning the number of values successfully written to the\n\
@@ -1722,7 +1725,7 @@
 }
 
 DEFUNX ("feof", Ffeof, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} feof (@var{fid})\n\
 Return 1 if an end-of-file condition has been encountered for a given\n\
 file and 0 otherwise.  Note that it will only return 1 if the end of the\n\
@@ -1749,7 +1752,7 @@
 }
 
 DEFUNX ("ferror", Fferror, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{err}, @var{msg}] =} ferror (@var{fid})\n\
 @deftypefnx {Built-in Function} {[@var{err}, @var{msg}] =} ferror (@var{fid}, \"clear\")\n\
 Return 1 if an error condition has been encountered for the file ID\n\
@@ -1799,7 +1802,7 @@
 }
 
 DEFUN (popen, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{fid} =} popen (@var{command}, @var{mode})\n\
 Start a process and create a pipe.  The name of the command to run is\n\
 given by @var{command}.  The file identifier corresponding to the input\n\
@@ -1874,7 +1877,7 @@
 }
 
 DEFUNX ("pclose", Fpclose, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} pclose (@var{fid})\n\
 Close a file identifier that was opened by @code{popen}.  You may also\n\
 use @code{fclose} for the same purpose.\n\
@@ -1893,7 +1896,7 @@
 }
 
 DEFUNX ("tmpnam", Ftmpnam, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @c List other forms of function in documentation index\n\
 @findex octave_tmp_file_name\n\
 \n\
@@ -1941,7 +1944,7 @@
 DEFALIAS (octave_tmp_file_name, tmpnam);
 
 DEFUN (tmpfile, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{fid}, @var{msg}] =} tmpfile ()\n\
 Return the file ID corresponding to a new temporary file with a unique\n\
 name.  The file is opened in binary read/write (@qcode{\"w+b\"}) mode.\n\
@@ -1992,7 +1995,7 @@
 }
 
 DEFUN (mkstemp, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{fid}, @var{name}, @var{msg}] =} mkstemp (@var{template}, @var{delete})\n\
 Return the file ID corresponding to a new temporary file with a unique\n\
 name created from @var{template}.  The last six characters of @var{template}\n\
@@ -2107,7 +2110,7 @@
 }
 
 DEFUNX ("umask", Fumask, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} umask (@var{mask})\n\
 Set the permission mask for file creation.  The parameter @var{mask}\n\
 is an integer, interpreted as an octal number.  If successful,\n\
@@ -2169,7 +2172,7 @@
 }
 
 DEFUNX ("P_tmpdir", FP_tmpdir, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} P_tmpdir ()\n\
 Return the default name of the directory for temporary files on\n\
 this system.  The name of this directory is system dependent.\n\
@@ -2191,7 +2194,7 @@
 // this way for Matlab compatibility.
 
 DEFUNX ("SEEK_SET", FSEEK_SET, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} SEEK_SET ()\n\
 @deftypefnx {Built-in Function} {} SEEK_CUR ()\n\
 @deftypefnx {Built-in Function} {} SEEK_END ()\n\
@@ -2215,7 +2218,7 @@
 }
 
 DEFUNX ("SEEK_CUR", FSEEK_CUR, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} SEEK_CUR ()\n\
 Return the numerical value to pass to @code{fseek} to\n\
 position the file pointer relative to the current position.\n\
@@ -2226,7 +2229,7 @@
 }
 
 DEFUNX ("SEEK_END", FSEEK_END, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} SEEK_END ()\n\
 Return the numerical value to pass to @code{fseek} to\n\
 position the file pointer relative to the end of the file.\n\
@@ -2253,7 +2256,7 @@
 }
 
 DEFUNX ("stdin", Fstdin, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} stdin ()\n\
 Return the numeric value corresponding to the standard input stream.\n\
 When Octave is used interactively, this is filtered through the command\n\
@@ -2265,7 +2268,7 @@
 }
 
 DEFUNX ("stdout", Fstdout, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} stdout ()\n\
 Return the numeric value corresponding to the standard output stream.\n\
 Data written to the standard output is normally filtered through the pager.\n\
@@ -2276,7 +2279,7 @@
 }
 
 DEFUNX ("stderr", Fstderr, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} stderr ()\n\
 Return the numeric value corresponding to the standard error stream.\n\
 Even if paging is turned on, the standard error is not sent to the\n\
--- a/libinterp/corefcn/filter.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/filter.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -49,7 +49,8 @@
 filter (MArray<float>&, MArray<float>&, MArray<float>&, int dim);
 
 extern MArray<FloatComplex>
-filter (MArray<FloatComplex>&, MArray<FloatComplex>&, MArray<FloatComplex>&, int dim);
+filter (MArray<FloatComplex>&, MArray<FloatComplex>&, MArray<FloatComplex>&,
+        int dim);
 #endif
 
 template <class T>
@@ -169,7 +170,9 @@
 
           psi += si_offset;
 
-          for (octave_idx_type i = 0, idx = x_offset; i < x_len; i++, idx += x_stride)
+          for (octave_idx_type i = 0, idx = x_offset;
+               i < x_len;
+               i++, idx += x_stride)
             {
               py[idx] = psi[0] + pb[0] * px[idx];
 
@@ -202,7 +205,9 @@
 
           psi += si_offset;
 
-          for (octave_idx_type i = 0, idx = x_offset; i < x_len; i++, idx += x_stride)
+          for (octave_idx_type i = 0, idx = x_offset;
+               i < x_len;
+               i++, idx += x_stride)
             {
               py[idx] = psi[0] + pb[0] * px[idx];
 
@@ -264,12 +269,11 @@
       if (dim == x_dims.length ())
         dim = 0;
     }
-  else
-    if (dim < 0 || dim > x_dims.length ())
-      {
-        error ("filter: DIM must be a valid dimension");
-        return MArray<T> ();
-      }
+  else if (dim < 0 || dim > x_dims.length ())
+    {
+      error ("filter: DIM must be a valid dimension");
+      return MArray<T> ();
+    }
 
   octave_idx_type a_len = a.length ();
   octave_idx_type b_len = b.length ();
@@ -286,7 +290,7 @@
 }
 
 DEFUN (filter, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {y =} filter (@var{b}, @var{a}, @var{x})\n\
 @deftypefnx {Built-in Function} {[@var{y}, @var{sf}] =} filter (@var{b}, @var{a}, @var{x}, @var{si})\n\
 @deftypefnx {Built-in Function} {[@var{y}, @var{sf}] =} filter (@var{b}, @var{a}, @var{x}, [], @var{dim})\n\
@@ -658,7 +662,8 @@
         MArray<FloatComplex>&, int dim);
 
 template MArray<FloatComplex>
-filter (MArray<FloatComplex>&, MArray<FloatComplex>&, MArray<FloatComplex>&, int dim);
+filter (MArray<FloatComplex>&, MArray<FloatComplex>&, MArray<FloatComplex>&,
+        int dim);
 
 /*
 %!shared a, b, x, r
--- a/libinterp/corefcn/find.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/find.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -333,7 +333,7 @@
 }
 
 DEFUN (find, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{idx} =} find (@var{x})\n\
 @deftypefnx {Built-in Function} {@var{idx} =} find (@var{x}, @var{n})\n\
 @deftypefnx {Built-in Function} {@var{idx} =} find (@var{x}, @var{n}, @var{direction})\n\
--- a/libinterp/corefcn/gammainc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gammainc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN (gammainc, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} gammainc (@var{x}, @var{a})\n\
 @deftypefnx {Mapping Function} {} gammainc (@var{x}, @var{a}, \"lower\")\n\
 @deftypefnx {Mapping Function} {} gammainc (@var{x}, @var{a}, \"upper\")\n\
@@ -116,7 +116,8 @@
 
                       if (! error_state)
                         retval = lower ? gammainc (x, a)
-                          : static_cast<float>(1) - gammainc (x, a);
+                                       : static_cast<float>(1)
+                                         - gammainc (x, a);
                     }
                   else
                     {
@@ -124,7 +125,8 @@
 
                       if (! error_state)
                         retval = lower ? gammainc (x, a)
-                          : static_cast<float>(1) - gammainc (x, a);
+                                       : static_cast<float>(1)
+                                         - gammainc (x, a);
                     }
                 }
             }
@@ -140,7 +142,8 @@
 
                       if (! error_state)
                         retval = lower ? gammainc (x, a)
-                          : static_cast<float>(1) - gammainc (x, a);
+                                       : static_cast<float>(1)
+                                         - gammainc (x, a);
                     }
                   else
                     {
@@ -148,7 +151,8 @@
 
                       if (! error_state)
                         retval = lower ? gammainc (x, a)
-                          : static_cast<float>(1) - gammainc (x, a);
+                                       : static_cast<float>(1)
+                                         - gammainc (x, a);
                     }
                 }
             }
@@ -224,7 +228,7 @@
 %! v3 = gammainc (x.*x, a);
 %! assert (v1, v3, sqrt (eps ("single")));
 
-%!assert (gammainc (single (0:4), single (0.5), "upper"), 
+%!assert (gammainc (single (0:4), single (0.5), "upper"),
 %!        single (1)-gammainc (single (0:4), single (0.5)),
 %!        single (1e-7))
 */
--- a/libinterp/corefcn/gcd.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gcd.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -433,7 +433,7 @@
 }
 
 DEFUN (gcd, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{g} =} gcd (@var{a1}, @var{a2}, @dots{})\n\
 @deftypefnx {Built-in Function} {[@var{g}, @var{v1}, @dots{}] =} gcd (@var{a1}, @var{a2}, @dots{})\n\
 \n\
--- a/libinterp/corefcn/getgrent.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/getgrent.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -63,7 +63,7 @@
 }
 
 DEFUN (getgrent, args, ,
- "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{grp_struct} =} getgrent ()\n\
 Return an entry from the group database, opening it if necessary.\n\
 Once the end of data has been reached, @code{getgrent} returns 0.\n\
@@ -90,7 +90,7 @@
 }
 
 DEFUN (getgrgid, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{grp_struct} =} getgrgid (@var{gid}).\n\
 Return the first entry from the group database with the group ID\n\
 @var{gid}.  If the group ID does not exist in the database,\n\
@@ -130,7 +130,7 @@
 }
 
 DEFUN (getgrnam, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{grp_struct} =} getgrnam (@var{name})\n\
 Return the first entry from the group database with the group name\n\
 @var{name}.  If the group name does not exist in the database,\n\
@@ -163,7 +163,7 @@
 }
 
 DEFUN (setgrent, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} setgrent ()\n\
 Return the internal pointer to the beginning of the group database.\n\
 @end deftypefn")
@@ -189,7 +189,7 @@
 }
 
 DEFUN (endgrent, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} endgrent ()\n\
 Close the group database.\n\
 @end deftypefn")
--- a/libinterp/corefcn/getpwent.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/getpwent.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -66,7 +66,7 @@
 }
 
 DEFUN (getpwent, args, ,
- "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{pw_struct} =} getpwent ()\n\
 Return a structure containing an entry from the password database,\n\
 opening it if necessary.  Once the end of the data has been reached,\n\
@@ -94,7 +94,7 @@
 }
 
 DEFUN (getpwuid, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{pw_struct} =} getpwuid (@var{uid}).\n\
 Return a structure containing the first entry from the password database\n\
 with the user ID @var{uid}.  If the user ID does not exist in the\n\
@@ -134,7 +134,7 @@
 }
 
 DEFUN (getpwnam, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{pw_struct} =} getpwnam (@var{name})\n\
 Return a structure containing the first entry from the password database\n\
 with the user name @var{name}.  If the user name does not exist in the\n\
@@ -167,7 +167,7 @@
 }
 
 DEFUN (setpwent, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} setpwent ()\n\
 Return the internal pointer to the beginning of the password database.\n\
 @end deftypefn")
@@ -193,7 +193,7 @@
 }
 
 DEFUN (endpwent, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} endpwent ()\n\
 Close the password database.\n\
 @end deftypefn")
--- a/libinterp/corefcn/getrusage.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/getrusage.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,7 @@
 // System resource functions.
 
 DEFUN (getrusage, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} getrusage ()\n\
 Return a structure containing a number of statistics about the current\n\
 Octave process.  Not all fields are available on all systems.  If it is\n\
@@ -124,7 +124,7 @@
   octave_scalar_map m;
   octave_scalar_map tv_tmp;
 
-  // FIXME -- maybe encapsulate all of this in a liboctave class
+  // FIXME: maybe encapsulate all of this in a liboctave class
 #if defined (HAVE_GETRUSAGE)
 
   struct rusage ru;
--- a/libinterp/corefcn/givens.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/givens.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -31,7 +31,7 @@
 #include "oct-obj.h"
 
 DEFUN (givens, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{g} =} givens (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {[@var{c}, @var{s}] =} givens (@var{x}, @var{y})\n\
 @tex\n\
--- a/libinterp/corefcn/gl-render.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gl-render.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -62,16 +62,16 @@
         count (1) { }
 
     ~texture_rep (void)
-      {
-        if (valid)
-          glDeleteTextures (1, &id);
-      }
+    {
+      if (valid)
+        glDeleteTextures (1, &id);
+    }
 
     void bind (int mode) const
-      { if (valid) glBindTexture (mode, id); }
+    { if (valid) glBindTexture (mode, id); }
 
     void tex_coord (double q, double r) const
-      { if (valid) glTexCoord2d (q*tx, r*ty); }
+    { if (valid) glTexCoord2d (q*tx, r*ty); }
 
     GLuint id;
     int w, h;
@@ -91,37 +91,37 @@
 
   opengl_texture (const opengl_texture& tx)
     : rep (tx.rep)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   ~opengl_texture (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   opengl_texture& operator = (const opengl_texture& tx)
-    {
-      if (--rep->count == 0)
-        delete rep;
-
-      rep = tx.rep;
-      rep->count++;
-
-      return *this;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+
+    rep = tx.rep;
+    rep->count++;
+
+    return *this;
+  }
 
   static opengl_texture create (const octave_value& data);
 
   void bind (int mode = GL_TEXTURE_2D) const
-    { rep->bind (mode); }
+  { rep->bind (mode); }
 
   void tex_coord (double q, double r) const
-    { rep->tex_coord (q, r); }
+  { rep->tex_coord (q, r); }
 
   bool is_valid (void) const
-    { return rep->valid; }
+  { return rep->valid; }
 };
 
 static int
@@ -232,27 +232,27 @@
   opengl_tesselator (void) : glu_tess (0), fill () { init (); }
 
   virtual ~opengl_tesselator (void)
-    { if (glu_tess) gluDeleteTess (glu_tess); }
+  { if (glu_tess) gluDeleteTess (glu_tess); }
 
   void begin_polygon (bool filled = true)
-    {
-      gluTessProperty (glu_tess, GLU_TESS_BOUNDARY_ONLY,
-                       (filled ? GL_FALSE : GL_TRUE));
-      fill = filled;
-      gluTessBeginPolygon (glu_tess, this);
-    }
+  {
+    gluTessProperty (glu_tess, GLU_TESS_BOUNDARY_ONLY,
+                     (filled ? GL_FALSE : GL_TRUE));
+    fill = filled;
+    gluTessBeginPolygon (glu_tess, this);
+  }
 
   void end_polygon (void) const
-    { gluTessEndPolygon (glu_tess); }
+  { gluTessEndPolygon (glu_tess); }
 
   void begin_contour (void) const
-    { gluTessBeginContour (glu_tess); }
+  { gluTessBeginContour (glu_tess); }
 
   void end_contour (void) const
-    { gluTessEndContour (glu_tess); }
+  { gluTessEndContour (glu_tess); }
 
   void add_vertex (double *loc, void *data) const
-    { gluTessVertex (glu_tess, loc, data); }
+  { gluTessVertex (glu_tess, loc, data); }
 
 protected:
   virtual void begin (GLenum /*type*/) { }
@@ -267,47 +267,47 @@
   virtual void edge_flag (GLboolean /*flag*/) { }
 
   virtual void error (GLenum err)
-    { ::error ("OpenGL tesselation error (%d)", err); }
+  { ::error ("OpenGL tesselation error (%d)", err); }
 
   virtual void init (void)
-    {
-      glu_tess = gluNewTess ();
-
-      gluTessCallback (glu_tess, GLU_TESS_BEGIN_DATA,
-                       reinterpret_cast<fcn> (tess_begin));
-      gluTessCallback (glu_tess, GLU_TESS_END_DATA,
-                       reinterpret_cast<fcn> (tess_end));
-      gluTessCallback (glu_tess, GLU_TESS_VERTEX_DATA,
-                       reinterpret_cast<fcn> (tess_vertex));
-      gluTessCallback (glu_tess, GLU_TESS_COMBINE_DATA,
-                       reinterpret_cast<fcn> (tess_combine));
-      gluTessCallback (glu_tess, GLU_TESS_EDGE_FLAG_DATA,
-                       reinterpret_cast<fcn> (tess_edge_flag));
-      gluTessCallback (glu_tess, GLU_TESS_ERROR_DATA,
-                       reinterpret_cast<fcn> (tess_error));
-    }
+  {
+    glu_tess = gluNewTess ();
+
+    gluTessCallback (glu_tess, GLU_TESS_BEGIN_DATA,
+                     reinterpret_cast<fcn> (tess_begin));
+    gluTessCallback (glu_tess, GLU_TESS_END_DATA,
+                     reinterpret_cast<fcn> (tess_end));
+    gluTessCallback (glu_tess, GLU_TESS_VERTEX_DATA,
+                     reinterpret_cast<fcn> (tess_vertex));
+    gluTessCallback (glu_tess, GLU_TESS_COMBINE_DATA,
+                     reinterpret_cast<fcn> (tess_combine));
+    gluTessCallback (glu_tess, GLU_TESS_EDGE_FLAG_DATA,
+                     reinterpret_cast<fcn> (tess_edge_flag));
+    gluTessCallback (glu_tess, GLU_TESS_ERROR_DATA,
+                     reinterpret_cast<fcn> (tess_error));
+  }
 
   bool is_filled (void) const { return fill; }
 
 private:
   static void CALLBACK tess_begin (GLenum type, void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->begin (type); }
+  { reinterpret_cast<opengl_tesselator *> (t)->begin (type); }
 
   static void CALLBACK tess_end (void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->end (); }
+  { reinterpret_cast<opengl_tesselator *> (t)->end (); }
 
   static void CALLBACK tess_vertex (void *v, void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->vertex (v); }
+  { reinterpret_cast<opengl_tesselator *> (t)->vertex (v); }
 
   static void CALLBACK tess_combine (GLdouble c[3], void *v[4], GLfloat w[4],
                                      void **out,  void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->combine (c, v, w, out); }
+  { reinterpret_cast<opengl_tesselator *> (t)->combine (c, v, w, out); }
 
   static void CALLBACK tess_edge_flag (GLboolean flag, void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->edge_flag (flag); }
+  { reinterpret_cast<opengl_tesselator *> (t)->edge_flag (flag); }
 
   static void CALLBACK tess_error (GLenum err, void *t)
-    { reinterpret_cast<opengl_tesselator *> (t)->error (err); }
+  { reinterpret_cast<opengl_tesselator *> (t)->error (err); }
 
 private:
 
@@ -355,43 +355,43 @@
   vertex_data_rep *rep;
 
   vertex_data_rep *nil_rep (void) const
-    {
-      static vertex_data_rep *nr = new vertex_data_rep ();
-
-      return nr;
-    }
+  {
+    static vertex_data_rep *nr = new vertex_data_rep ();
+
+    return nr;
+  }
 
 public:
   vertex_data (void) : rep (nil_rep ())
-    { rep->count++; }
+  { rep->count++; }
 
   vertex_data (const vertex_data& v) : rep (v.rep)
-    { rep->count++; }
+  { rep->count++; }
 
   vertex_data (const Matrix& c, const Matrix& col, const Matrix& n,
                double a, float as, float ds, float ss, float se)
     : rep (new vertex_data_rep (c, col, n, a, as, ds, ss, se))
-    { }
+  { }
 
   vertex_data (vertex_data_rep *new_rep)
     : rep (new_rep) { }
 
   ~vertex_data (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   vertex_data& operator = (const vertex_data& v)
-    {
-      if (--rep->count == 0)
-        delete rep;
-
-      rep = v.rep;
-      rep->count++;
-
-      return *this;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+
+    rep = v.rep;
+    rep->count++;
+
+    return *this;
+  }
 
   vertex_data_rep *get_rep (void) const { return rep; }
 };
@@ -408,118 +408,118 @@
 
 protected:
   void begin (GLenum type)
-    {
-      //printf ("patch_tesselator::begin (%d)\n", type);
-      first = true;
-
-      if (color_mode == 2 || light_mode == 2)
-        glShadeModel (GL_SMOOTH);
-      else
-        glShadeModel (GL_FLAT);
-
-      if (is_filled ())
-        renderer->set_polygon_offset (true, 1+index);
-
-      glBegin (type);
-    }
+  {
+    //printf ("patch_tesselator::begin (%d)\n", type);
+    first = true;
+
+    if (color_mode == 2 || light_mode == 2)
+      glShadeModel (GL_SMOOTH);
+    else
+      glShadeModel (GL_FLAT);
+
+    if (is_filled ())
+      renderer->set_polygon_offset (true, 1+index);
+
+    glBegin (type);
+  }
 
   void end (void)
-    {
-      //printf ("patch_tesselator::end\n");
-      glEnd ();
-      renderer->set_polygon_offset (false);
-    }
+  {
+    //printf ("patch_tesselator::end\n");
+    glEnd ();
+    renderer->set_polygon_offset (false);
+  }
 
   void vertex (void *data)
-    {
-      vertex_data::vertex_data_rep *v
-          = reinterpret_cast<vertex_data::vertex_data_rep *> (data);
-      //printf ("patch_tesselator::vertex (%g, %g, %g)\n", v->coords(0), v->coords(1), v->coords(2));
-
-      // FIXME: why did I need to keep the first vertex of the face
-      // in JHandles? I think it's related to the fact that the
-      // tessellation process might re-order the vertices, such that
-      // the first one you get here might not be the first one of the face;
-      // but I can't figure out the actual reason.
-      if (color_mode > 0 && (first || color_mode == 2))
-        {
-          Matrix col = v->color;
-
-          if (col.numel () == 3)
-            {
-              glColor3dv (col.data ());
-              if (light_mode > 0)
-                {
-                  float buf[4] = { 0, 0, 0, 1 };
-
-                  for (int k = 0; k < 3; k++)
-                    buf[k] = (v->ambient * col(k));
-                  glMaterialfv (LIGHT_MODE, GL_AMBIENT, buf);
-
-                  for (int k = 0; k < 3; k++)
-                    buf[k] = (v->diffuse * col(k));
-                  glMaterialfv (LIGHT_MODE, GL_AMBIENT, buf);
-                }
-            }
-        }
-
-      if (light_mode > 0 && (first || light_mode == 2))
-        glNormal3dv (v->normal.data ());
-
-      glVertex3dv (v->coords.data ());
-
-      first = false;
-    }
+  {
+    vertex_data::vertex_data_rep *v
+      = reinterpret_cast<vertex_data::vertex_data_rep *> (data);
+    //printf ("patch_tesselator::vertex (%g, %g, %g)\n", v->coords(0), v->coords(1), v->coords(2));
+
+    // FIXME: why did I need to keep the first vertex of the face
+    // in JHandles? I think it's related to the fact that the
+    // tessellation process might re-order the vertices, such that
+    // the first one you get here might not be the first one of the face;
+    // but I can't figure out the actual reason.
+    if (color_mode > 0 && (first || color_mode == 2))
+      {
+        Matrix col = v->color;
+
+        if (col.numel () == 3)
+          {
+            glColor3dv (col.data ());
+            if (light_mode > 0)
+              {
+                float buf[4] = { 0, 0, 0, 1 };
+
+                for (int k = 0; k < 3; k++)
+                  buf[k] = (v->ambient * col(k));
+                glMaterialfv (LIGHT_MODE, GL_AMBIENT, buf);
+
+                for (int k = 0; k < 3; k++)
+                  buf[k] = (v->diffuse * col(k));
+                glMaterialfv (LIGHT_MODE, GL_AMBIENT, buf);
+              }
+          }
+      }
+
+    if (light_mode > 0 && (first || light_mode == 2))
+      glNormal3dv (v->normal.data ());
+
+    glVertex3dv (v->coords.data ());
+
+    first = false;
+  }
 
   void combine (GLdouble xyz[3], void *data[4], GLfloat w[4],
                 void **out_data)
-    {
-      //printf ("patch_tesselator::combine\n");
-
-      vertex_data::vertex_data_rep *v[4];
-      int vmax = 4;
-
-      for (int i = 0; i < 4; i++)
-        {
-          v[i] = reinterpret_cast<vertex_data::vertex_data_rep *> (data[i]);
-
-          if (vmax == 4 && ! v[i])
-            vmax = i;
-        }
-
-      Matrix vv (1, 3, 0.0);
-      Matrix cc;
-      Matrix nn (1, 3, 0.0);
-      double aa = 0.0;
-
-      vv(0) = xyz[0];
-      vv(1) = xyz[1];
-      vv(2) = xyz[2];
-
-      if (v[0]->color.numel ())
-        {
-          cc.resize (1, 3, 0.0);
-          for (int ic = 0; ic < 3; ic++)
-            for (int iv = 0; iv < vmax; iv++)
-              cc(ic) += (w[iv] * v[iv]->color (ic));
-        }
-
-      if (v[0]->normal.numel () > 0)
-        {
-          for (int in = 0; in < 3; in++)
-            for (int iv = 0; iv < vmax; iv++)
-              nn(in) += (w[iv] * v[iv]->normal (in));
-        }
-
-      for (int iv = 0; iv < vmax; iv++)
-        aa += (w[iv] * v[iv]->alpha);
-
-      vertex_data new_v (vv, cc, nn, aa, v[0]->ambient, v[0]->diffuse,
-                         v[0]->specular, v[0]->specular_exp);
-      tmp_vdata.push_back (new_v);
-
-      *out_data = new_v.get_rep ();
-    }
+  {
+    //printf ("patch_tesselator::combine\n");
+
+    vertex_data::vertex_data_rep *v[4];
+    int vmax = 4;
+
+    for (int i = 0; i < 4; i++)
+      {
+        v[i] = reinterpret_cast<vertex_data::vertex_data_rep *> (data[i]);
+
+        if (vmax == 4 && ! v[i])
+          vmax = i;
+      }
+
+    Matrix vv (1, 3, 0.0);
+    Matrix cc;
+    Matrix nn (1, 3, 0.0);
+    double aa = 0.0;
+
+    vv(0) = xyz[0];
+    vv(1) = xyz[1];
+    vv(2) = xyz[2];
+
+    if (v[0]->color.numel ())
+      {
+        cc.resize (1, 3, 0.0);
+        for (int ic = 0; ic < 3; ic++)
+          for (int iv = 0; iv < vmax; iv++)
+            cc(ic) += (w[iv] * v[iv]->color (ic));
+      }
+
+    if (v[0]->normal.numel () > 0)
+      {
+        for (int in = 0; in < 3; in++)
+          for (int iv = 0; iv < vmax; iv++)
+            nn(in) += (w[iv] * v[iv]->normal (in));
+      }
+
+    for (int iv = 0; iv < vmax; iv++)
+      aa += (w[iv] * v[iv]->alpha);
+
+    vertex_data new_v (vv, cc, nn, aa, v[0]->ambient, v[0]->diffuse,
+                       v[0]->specular, v[0]->specular_exp);
+    tmp_vdata.push_back (new_v);
+
+    *out_data = new_v.get_rep ();
+  }
 
 private:
 
@@ -600,7 +600,7 @@
   const figure::properties& figProps =
     dynamic_cast<const figure::properties&> (fig.get_properties ());
 
-  // Initialize OpenGL context 
+  // Initialize OpenGL context
 
   init_gl_context (figProps.is___enhanced__ (),
                    props.get_backgroundcolor_rgb ());
@@ -996,7 +996,8 @@
       std::string gridstyle = props.get_gridlinestyle ();
       std::string minorgridstyle = props.get_minorgridlinestyle ();
       bool do_xgrid = (props.is_xgrid () && (gridstyle != "none"));
-      bool do_xminorgrid = (props.is_xminorgrid () && (minorgridstyle != "none"));
+      bool do_xminorgrid = (props.is_xminorgrid ()
+                            && (minorgridstyle != "none"));
       bool do_xminortick = props.is_xminortick ();
       Matrix xticks = xform.xscale (props.get_xtick ().matrix_value ());
       Matrix xmticks = xform.xscale (props.get_xmtick ().matrix_value ());
@@ -1103,7 +1104,8 @@
       std::string gridstyle = props.get_gridlinestyle ();
       std::string minorgridstyle = props.get_minorgridlinestyle ();
       bool do_ygrid = (props.is_ygrid () && (gridstyle != "none"));
-      bool do_yminorgrid = (props.is_yminorgrid () && (minorgridstyle != "none"));
+      bool do_yminorgrid = (props.is_yminorgrid ()
+                            && (minorgridstyle != "none"));
       bool do_yminortick = props.is_yminortick ();
       Matrix yticks = xform.yscale (props.get_ytick ().matrix_value ());
       Matrix ymticks = xform.yscale (props.get_ymtick ().matrix_value ());
@@ -1201,7 +1203,8 @@
       std::string gridstyle = props.get_gridlinestyle ();
       std::string minorgridstyle = props.get_minorgridlinestyle ();
       bool do_zgrid = (props.is_zgrid () && (gridstyle != "none"));
-      bool do_zminorgrid = (props.is_zminorgrid () && (minorgridstyle != "none"));
+      bool do_zminorgrid = (props.is_zminorgrid ()
+                            && (minorgridstyle != "none"));
       bool do_zminortick = props.is_zminortick ();
       Matrix zticks = xform.zscale (props.get_ztick ().matrix_value ());
       Matrix zmticks = xform.zscale (props.get_zmtick ().matrix_value ());
@@ -1403,10 +1406,10 @@
 
   if (x_max > floatmax || y_max > floatmax || z_max > floatmax
       || x_min < -floatmax || y_min < -floatmax || z_min < -floatmax)
-  {
-    warning ("gl-render: data values greater than float capacity.  (1) Scale data, or (2) Use gnuplot");
-    return;
-  }
+    {
+      warning ("gl-render: data values greater than float capacity.  (1) Scale data, or (2) Use gnuplot");
+      return;
+    }
 
   setup_opengl_transformation (props);
 
@@ -1436,7 +1439,9 @@
   Matrix z = xform.zscale (props.get_zdata ().matrix_value ());
 
   bool has_z = (z.numel () > 0);
-  int n = static_cast<int> (std::min (std::min (x.numel (), y.numel ()), (has_z ? z.numel () : std::numeric_limits<int>::max ())));
+  int n = static_cast<int> (std::min (std::min (x.numel (), y.numel ()),
+                                      (has_z ? z.numel ()
+                                             : std::numeric_limits<int>::max ())));
   octave_uint8 clip_mask = (props.is_clipping () ? 0x7F : 0x40), clip_ok (0x40);
 
   std::vector<octave_uint8> clip (n);
@@ -1584,7 +1589,8 @@
   int ea_mode = (props.edgealpha_is_double () ? 0 :
                  (props.edgealpha_is ("flat") ? 1 : 2));
 
-  Matrix fcolor = (fc_mode == 3 ? Matrix (1, 3, 1.0) : props.get_facecolor_rgb ());
+  Matrix fcolor = (fc_mode == 3 ? Matrix (1, 3, 1.0)
+                                : props.get_facecolor_rgb ());
   Matrix ecolor = props.get_edgecolor_rgb ();
 
   float as = props.get_ambientstrength ();
@@ -1705,7 +1711,8 @@
 
                   // Vertex 1
                   if (fc_mode == 3)
-                    tex.tex_coord (double (i-1) / (zc-1), double (j-1) / (zr-1));
+                    tex.tex_coord (double (i-1) / (zc-1),
+                                   double (j-1) / (zr-1));
                   else if (fc_mode > 0)
                     {
                       // FIXME: is there a smarter way to do this?
@@ -1729,7 +1736,9 @@
                       d = sqrt (n(j-1,i-1,0) * n(j-1,i-1,0)
                                 + n(j-1,i-1,1) * n(j-1,i-1,1)
                                 + n(j-1,i-1,2) * n(j-1,i-1,2));
-                      glNormal3d (n(j-1,i-1,0)/d, n(j-1,i-1,1)/d, n(j-1,i-1,2)/d);
+                      glNormal3d (n(j-1,i-1,0)/d,
+                                  n(j-1,i-1,1)/d,
+                                  n(j-1,i-1,2)/d);
                     }
                   glVertex3d (x(j1,i-1), y(j-1,i1), z(j-1,i-1));
 
@@ -2276,7 +2285,7 @@
           }
 
         vdata[i+j*fr] =
-            vertex_data (vv, cc, nn, aa, as, ds, ss, se);
+          vertex_data (vv, cc, nn, aa, as, ds, ss, se);
       }
 
   if (fl_mode > 0 || el_mode > 0)
@@ -2387,7 +2396,8 @@
                     {
                       if (! clip(int (f(i,j) - 1)))
                         {
-                          vertex_data::vertex_data_rep *vv = vdata[i+j*fr].get_rep ();
+                          vertex_data::vertex_data_rep *vv
+                            = vdata[i+j*fr].get_rep ();
                           const Matrix m = vv->coords;
                           if (! flag)
                             {
@@ -2413,7 +2423,8 @@
 
                   for (int j = 0; j < count_f(i); j++)
                     {
-                      vertex_data::vertex_data_rep *vv = vdata[i+j*fr].get_rep ();
+                      vertex_data::vertex_data_rep *vv
+                        = vdata[i+j*fr].get_rep ();
                       tess.add_vertex (vv->coords.fortran_vec (), vv);
                     }
 
@@ -2434,8 +2445,9 @@
         }
     }
 
-  if (! props.marker_is ("none") &&
-      ! (props.markeredgecolor_is ("none") && props.markerfacecolor_is ("none")))
+  if (! props.marker_is ("none")
+      && ! (props.markeredgecolor_is ("none")
+            && props.markerfacecolor_is ("none")))
     {
       bool do_edge = ! props.markeredgecolor_is ("none");
       bool do_face = ! props.markerfacecolor_is ("none");
@@ -2455,11 +2467,11 @@
               // Single color specifications, we can simplify a little bit
 
               if (mfcolor.numel () == 0
-                   && ! props.markerfacecolor_is ("none"))
+                  && ! props.markerfacecolor_is ("none"))
                 mfcolor = mc;
 
               if (mecolor.numel () == 0
-                   && ! props.markeredgecolor_is ("none"))
+                  && ! props.markeredgecolor_is ("none"))
                 mecolor = mc;
             }
           else
@@ -2467,7 +2479,7 @@
               if (c.numel () == 0)
                 c = props.get_color_data ().matrix_value ();
               has_markerfacecolor = ((c.numel () > 0)
-                                    && (c.rows () == f.rows ()));
+                                     && (c.rows () == f.rows ()));
             }
         }
 
@@ -2494,9 +2506,9 @@
               }
 
             Matrix lc = (do_edge ? (mecolor.numel () == 0 ? cc : mecolor)
-                         : Matrix ());
+                                 : Matrix ());
             Matrix fc = (do_face ? (mfcolor.numel () == 0 ? cc : mfcolor)
-                         : Matrix ());
+                                 : Matrix ());
 
             draw_marker (v(idx,0), v(idx,1), (has_z ? v(idx,2) : 0), lc, fc);
           }
@@ -2621,7 +2633,7 @@
     {
       GLfloat vp[4];
       glGetFloatv (GL_VIEWPORT, vp);
-      // FIXME -- actually add the code to do it!
+      // FIXME: actually add the code to do it!
 
     }
 
@@ -3069,8 +3081,8 @@
 
 Matrix
 opengl_renderer::render_text (const std::string& txt,
-                            double x, double y, double z,
-                            int halign, int valign, double rotation)
+                              double x, double y, double z,
+                              int halign, int valign, double rotation)
 {
 #if HAVE_FREETYPE
   if (txt.empty ())
--- a/libinterp/corefcn/gl-render.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gl-render.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (gl_render_h)
-#define gl_render_h 1
+#if !defined (octave_gl_render_h)
+#define octave_gl_render_h 1
 
 #ifdef HAVE_WINDOWS_H
 #define WIN32_LEAN_AND_MEAN
--- a/libinterp/corefcn/gl2ps-renderer.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gl2ps-renderer.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -24,7 +24,7 @@
 #include <config.h>
 #endif
 
-#if defined (HAVE_OPENGL)
+#ifdef HAVE_GL2PS_H
 
 #include <cstdio>
 
@@ -71,10 +71,11 @@
 
       while (state == GL2PS_OVERFLOW)
         {
-          // For LaTeX output the fltk print process uses two drawnow() commands.
-          // The first one is for the pdf/ps/eps graph to be included.  The print_cmd
-          // is saved as old_print_cmd.  Then the second drawnow() outputs the tex-file
-          // and the graphic filename to be included is extracted from old_print_cmd.
+          // For LaTeX output the fltk print process uses 2 drawnow() commands.
+          // The first one is for the pdf/ps/eps graph to be included.  The
+          // print_cmd is saved as old_print_cmd.  Then the second drawnow()
+          // outputs the tex-file and the graphic filename to be included is
+          // extracted from old_print_cmd.
           std::string include_graph;
           std::size_t found_redirect = old_print_cmd.find (">");
           if (found_redirect != std::string::npos)
@@ -85,7 +86,8 @@
           if (n_begin != std::string::npos)
             {
               std::size_t n_end = include_graph.find_last_not_of (" ");
-              include_graph = include_graph.substr (n_begin, n_end - n_begin + 1);
+              include_graph = include_graph.substr (n_begin,
+                                                    n_end - n_begin + 1);
             }
           else
             include_graph = "foobar-inc";
@@ -183,7 +185,7 @@
   else
     fontname = "Helvetica";
 
-  // FIXME -- add support for bold and italic
+  // FIXME: add support for bold and italic
 }
 
 template <typename T>
--- a/libinterp/corefcn/gl2ps-renderer.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gl2ps-renderer.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,11 +20,13 @@
 
 */
 
-#if !defined (gl2ps_renderer_h)
-#define gl2ps_renderer_h 1
+#if !defined (octave_gl2ps_renderer_h)
+#define octave_gl2ps_renderer_h 1
+
+#ifdef HAVE_GL2PS_H
 
 #include "gl-render.h"
-#include "gl2ps.h"
+#include <gl2ps.h>
 
 class
 OCTINTERP_API
@@ -32,8 +34,7 @@
 {
 public:
   glps_renderer (FILE *_fp, const std::string& _term)
-    : opengl_renderer () , fp (_fp), term (_term),
-    fontsize (), fontname () { }
+    : opengl_renderer () , fp (_fp), term (_term), fontsize (), fontname () { }
 
   ~glps_renderer (void) { }
 
@@ -45,7 +46,6 @@
                       double x, double y, double z,
                       int halign, int valign, double rotation = 0.0);
 
-
   void set_font (const base_properties& props);
 
   void draw_text (const text::properties& props);
@@ -84,4 +84,6 @@
   std::string fontname;
 };
 
+#endif  // HAVE_GL2PS_H
+
 #endif
--- a/libinterp/corefcn/gl2ps.c	Wed Oct 23 22:48:29 2013 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,6078 +0,0 @@
-/*
- * GL2PS, an OpenGL to PostScript Printing Library
- * Copyright (C) 1999-2011 C. Geuzaine
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of either:
- *
- * a) the GNU Library General Public License as published by the Free
- * Software Foundation, either version 2 of the License, or (at your
- * option) any later version; or
- *
- * b) the GL2PS License as published by Christophe Geuzaine, either
- * version 2 of the License, 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
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
- * the GNU Library General Public License or the GL2PS License for
- * more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library in the file named "COPYING.LGPL";
- * if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
- * Cambridge, MA 02139, USA.
- *
- * You should have received a copy of the GL2PS License with this
- * library in the file named "COPYING.GL2PS"; if not, I will be glad
- * to provide one.
- *
- * For the latest info about gl2ps and a full list of contributors,
- * see http://www.geuz.org/gl2ps/.
- *
- * Please report all bugs and problems to <gl2ps@geuz.org>.
- */
-
-#include "gl2ps.h"
-
-#include <math.h>
-#include <string.h>
-#include <sys/types.h>
-#include <stdarg.h>
-#include <time.h>
-#include <float.h>
-
-#if defined(GL2PS_HAVE_ZLIB)
-#include <zlib.h>
-#endif
-
-#if defined(GL2PS_HAVE_LIBPNG)
-#include <png.h>
-#endif
-
-/*********************************************************************
- *
- * Private definitions, data structures and prototypes
- *
- *********************************************************************/
-
-/* Magic numbers (assuming that the order of magnitude of window
-   coordinates is 10^3) */
-
-#define GL2PS_EPSILON       5.0e-3F
-#define GL2PS_ZSCALE        1000.0F
-#define GL2PS_ZOFFSET       5.0e-2F
-#define GL2PS_ZOFFSET_LARGE 20.0F
-#define GL2PS_ZERO(arg)     (fabs(arg) < 1.e-20)
-
-/* Primitive types */
-
-#define GL2PS_NO_TYPE          -1
-#define GL2PS_TEXT             1
-#define GL2PS_POINT            2
-#define GL2PS_LINE             3
-#define GL2PS_QUADRANGLE       4
-#define GL2PS_TRIANGLE         5
-#define GL2PS_PIXMAP           6
-#define GL2PS_IMAGEMAP         7
-#define GL2PS_IMAGEMAP_WRITTEN 8
-#define GL2PS_IMAGEMAP_VISIBLE 9
-#define GL2PS_SPECIAL          10
-
-/* BSP tree primitive comparison */
-
-#define GL2PS_COINCIDENT  1
-#define GL2PS_IN_FRONT_OF 2
-#define GL2PS_IN_BACK_OF  3
-#define GL2PS_SPANNING    4
-
-/* 2D BSP tree primitive comparison */
-
-#define GL2PS_POINT_COINCIDENT 0
-#define GL2PS_POINT_INFRONT    1
-#define GL2PS_POINT_BACK       2
-
-/* Internal feedback buffer pass-through tokens */
-
-#define GL2PS_BEGIN_OFFSET_TOKEN   1
-#define GL2PS_END_OFFSET_TOKEN     2
-#define GL2PS_BEGIN_BOUNDARY_TOKEN 3
-#define GL2PS_END_BOUNDARY_TOKEN   4
-#define GL2PS_BEGIN_STIPPLE_TOKEN  5
-#define GL2PS_END_STIPPLE_TOKEN    6
-#define GL2PS_POINT_SIZE_TOKEN     7
-#define GL2PS_LINE_WIDTH_TOKEN     8
-#define GL2PS_BEGIN_BLEND_TOKEN    9
-#define GL2PS_END_BLEND_TOKEN      10
-#define GL2PS_SRC_BLEND_TOKEN      11
-#define GL2PS_DST_BLEND_TOKEN      12
-#define GL2PS_IMAGEMAP_TOKEN       13
-#define GL2PS_DRAW_PIXELS_TOKEN    14
-#define GL2PS_TEXT_TOKEN           15
-
-typedef enum {
-  T_UNDEFINED    = -1,
-  T_CONST_COLOR  = 1,
-  T_VAR_COLOR    = 1<<1,
-  T_ALPHA_1      = 1<<2,
-  T_ALPHA_LESS_1 = 1<<3,
-  T_VAR_ALPHA    = 1<<4
-} GL2PS_TRIANGLE_PROPERTY;
-
-typedef GLfloat GL2PSxyz[3];
-typedef GLfloat GL2PSplane[4];
-
-typedef struct _GL2PSbsptree2d GL2PSbsptree2d;
-
-struct _GL2PSbsptree2d {
-  GL2PSplane plane;
-  GL2PSbsptree2d *front, *back;
-};
-
-typedef struct {
-  GLint nmax, size, incr, n;
-  char *array;
-} GL2PSlist;
-
-typedef struct _GL2PSbsptree GL2PSbsptree;
-
-struct _GL2PSbsptree {
-  GL2PSplane plane;
-  GL2PSlist *primitives;
-  GL2PSbsptree *front, *back;
-};
-
-typedef struct {
-  GL2PSxyz xyz;
-  GL2PSrgba rgba;
-} GL2PSvertex;
-
-typedef struct {
-  GL2PSvertex vertex[3];
-  int prop;
-} GL2PStriangle;
-
-typedef struct {
-  GLshort fontsize;
-  char *str, *fontname;
-  /* Note: for a 'special' string, 'alignment' holds the format
-     (PostScript, PDF, etc.) of the special string */
-  GLint alignment;
-  GLfloat angle;
-} GL2PSstring;
-
-typedef struct {
-  GLsizei width, height;
-  /* Note: for an imagemap, 'type' indicates if it has already been
-     written to the file or not, and 'format' indicates if it is
-     visible or not */
-  GLenum format, type;
-  GLfloat zoom_x, zoom_y;
-  GLfloat *pixels;
-} GL2PSimage;
-
-typedef struct _GL2PSimagemap GL2PSimagemap;
-
-struct _GL2PSimagemap {
-  GL2PSimage *image;
-  GL2PSimagemap *next;
-};
-
-typedef struct {
-  GLshort type, numverts;
-  GLushort pattern;
-  char boundary, offset, culled;
-  GLint factor;
-  GLfloat width;
-  GL2PSvertex *verts;
-  union {
-    GL2PSstring *text;
-    GL2PSimage *image;
-  } data;
-} GL2PSprimitive;
-
-typedef struct {
-#if defined(GL2PS_HAVE_ZLIB)
-  Bytef *dest, *src, *start;
-  uLongf destLen, srcLen;
-#else
-  int dummy;
-#endif
-} GL2PScompress;
-
-typedef struct{
-  GL2PSlist* ptrlist;
-  int gsno, fontno, imno, shno, maskshno, trgroupno;
-  int gsobjno, fontobjno, imobjno, shobjno, maskshobjno, trgroupobjno;
-} GL2PSpdfgroup;
-
-typedef struct {
-  /* General */
-  GLint format, sort, options, colorsize, colormode, buffersize;
-  char *title, *producer, *filename;
-  GLboolean boundary, blending;
-  GLfloat *feedback, offset[2], lastlinewidth;
-  GLint viewport[4], blendfunc[2], lastfactor;
-  GL2PSrgba *colormap, lastrgba, threshold, bgcolor;
-  GLushort lastpattern;
-  GL2PSvertex lastvertex;
-  GL2PSlist *primitives, *auxprimitives;
-  FILE *stream;
-  GL2PScompress *compress;
-  GLboolean header;
-
-  /* BSP-specific */
-  GLint maxbestroot;
-
-  /* Occlusion culling-specific */
-  GLboolean zerosurfacearea;
-  GL2PSbsptree2d *imagetree;
-  GL2PSprimitive *primitivetoadd;
-
-  /* PDF-specific */
-  int streamlength;
-  GL2PSlist *pdfprimlist, *pdfgrouplist;
-  int *xreflist;
-  int objects_stack; /* available objects */
-  int extgs_stack; /* graphics state object number */
-  int font_stack; /* font object number */
-  int im_stack; /* image object number */
-  int trgroupobjects_stack; /* xobject numbers */
-  int shader_stack; /* shader object numbers */
-  int mshader_stack; /* mask shader object numbers */
-
-  /* for image map list */
-  GL2PSimagemap *imagemap_head;
-  GL2PSimagemap *imagemap_tail;
-} GL2PScontext;
-
-typedef struct {
-  void  (*printHeader)(void);
-  void  (*printFooter)(void);
-  void  (*beginViewport)(GLint viewport[4]);
-  GLint (*endViewport)(void);
-  void  (*printPrimitive)(void *data);
-  void  (*printFinalPrimitive)(void);
-  const char *file_extension;
-  const char *description;
-} GL2PSbackend;
-
-/* The gl2ps context. gl2ps is not thread safe (we should create a
-   local GL2PScontext during gl2psBeginPage) */
-
-static GL2PScontext *gl2ps = NULL;
-
-/* Need to forward-declare this one */
-
-static GLint gl2psPrintPrimitives(void);
-
-/*********************************************************************
- *
- * Utility routines
- *
- *********************************************************************/
-
-static void gl2psMsg(GLint level, const char *fmt, ...)
-{
-  va_list args;
-
-  if(!(gl2ps->options & GL2PS_SILENT)){
-    switch(level){
-    case GL2PS_INFO : fprintf(stderr, "GL2PS info: "); break;
-    case GL2PS_WARNING : fprintf(stderr, "GL2PS warning: "); break;
-    case GL2PS_ERROR : fprintf(stderr, "GL2PS error: "); break;
-    }
-    va_start(args, fmt);
-    vfprintf(stderr, fmt, args);
-    va_end(args);
-    fprintf(stderr, "\n");
-  }
-  /* if(level == GL2PS_ERROR) exit(1); */
-}
-
-static void *gl2psMalloc(size_t size)
-{
-  void *ptr;
-
-  if(!size) return NULL;
-  ptr = malloc(size);
-  if(!ptr){
-    gl2psMsg(GL2PS_ERROR, "Couldn't allocate requested memory");
-    return NULL;
-  }
-  return ptr;
-}
-
-static void *gl2psRealloc(void *ptr, size_t size)
-{
-  void *orig = ptr;
-  if(!size) return NULL;
-  ptr = realloc(orig, size);
-  if(!ptr){
-    gl2psMsg(GL2PS_ERROR, "Couldn't reallocate requested memory");
-    free(orig);
-    return NULL;
-  }
-  return ptr;
-}
-
-static void gl2psFree(void *ptr)
-{
-  if(!ptr) return;
-  free(ptr);
-}
-
-static int gl2psWriteBigEndian(unsigned long data, int bytes)
-{
-  int i;
-  int size = sizeof(unsigned long);
-  for(i = 1; i <= bytes; ++i){
-    fputc(0xff & (data >> (size - i) * 8), gl2ps->stream);
-  }
-  return bytes;
-}
-
-/* zlib compression helper routines */
-
-#if defined(GL2PS_HAVE_ZLIB)
-
-static void gl2psSetupCompress(void)
-{
-  gl2ps->compress = (GL2PScompress*)gl2psMalloc(sizeof(GL2PScompress));
-  gl2ps->compress->src = NULL;
-  gl2ps->compress->start = NULL;
-  gl2ps->compress->dest = NULL;
-  gl2ps->compress->srcLen = 0;
-  gl2ps->compress->destLen = 0;
-}
-
-static void gl2psFreeCompress(void)
-{
-  if(!gl2ps->compress)
-    return;
-  gl2psFree(gl2ps->compress->start);
-  gl2psFree(gl2ps->compress->dest);
-  gl2ps->compress->src = NULL;
-  gl2ps->compress->start = NULL;
-  gl2ps->compress->dest = NULL;
-  gl2ps->compress->srcLen = 0;
-  gl2ps->compress->destLen = 0;
-}
-
-static int gl2psAllocCompress(unsigned int srcsize)
-{
-  gl2psFreeCompress();
-
-  if(!gl2ps->compress || !srcsize)
-    return GL2PS_ERROR;
-
-  gl2ps->compress->srcLen = srcsize;
-  gl2ps->compress->destLen = (int)ceil(1.001 * gl2ps->compress->srcLen + 12);
-  gl2ps->compress->src = (Bytef*)gl2psMalloc(gl2ps->compress->srcLen);
-  gl2ps->compress->start = gl2ps->compress->src;
-  gl2ps->compress->dest = (Bytef*)gl2psMalloc(gl2ps->compress->destLen);
-
-  return GL2PS_SUCCESS;
-}
-
-static void *gl2psReallocCompress(unsigned int srcsize)
-{
-  if(!gl2ps->compress || !srcsize)
-    return NULL;
-
-  if(srcsize < gl2ps->compress->srcLen)
-    return gl2ps->compress->start;
-
-  gl2ps->compress->srcLen = srcsize;
-  gl2ps->compress->destLen = (int)ceil(1.001 * gl2ps->compress->srcLen + 12);
-  gl2ps->compress->src = (Bytef*)gl2psRealloc(gl2ps->compress->src,
-                                              gl2ps->compress->srcLen);
-  gl2ps->compress->start = gl2ps->compress->src;
-  gl2ps->compress->dest = (Bytef*)gl2psRealloc(gl2ps->compress->dest,
-                                               gl2ps->compress->destLen);
-
-  return gl2ps->compress->start;
-}
-
-static int gl2psWriteBigEndianCompress(unsigned long data, int bytes)
-{
-  int i;
-  int size = sizeof(unsigned long);
-  for(i = 1; i <= bytes; ++i){
-    *gl2ps->compress->src = (Bytef)(0xff & (data >> (size-i) * 8));
-    ++gl2ps->compress->src;
-  }
-  return bytes;
-}
-
-static int gl2psDeflate(void)
-{
-  /* For compatibility with older zlib versions, we use compress(...)
-     instead of compress2(..., Z_BEST_COMPRESSION) */
-  return compress(gl2ps->compress->dest, &gl2ps->compress->destLen,
-                  gl2ps->compress->start, gl2ps->compress->srcLen);
-}
-
-#endif
-
-static int gl2psPrintf(const char* fmt, ...)
-{
-  int ret;
-  va_list args;
-
-#if defined(GL2PS_HAVE_ZLIB)
-  unsigned int oldsize = 0;
-  static char buf[1000];
-  if(gl2ps->options & GL2PS_COMPRESS){
-    va_start(args, fmt);
-    ret = vsprintf(buf, fmt, args);
-    va_end(args);
-    oldsize = gl2ps->compress->srcLen;
-    gl2ps->compress->start = (Bytef*)gl2psReallocCompress(oldsize + ret);
-    memcpy(gl2ps->compress->start+oldsize, buf, ret);
-    ret = 0;
-  }
-  else{
-#endif
-    va_start(args, fmt);
-    ret = vfprintf(gl2ps->stream, fmt, args);
-    va_end(args);
-#if defined(GL2PS_HAVE_ZLIB)
-  }
-#endif
-  return ret;
-}
-
-static void gl2psPrintGzipHeader(void)
-{
-#if defined(GL2PS_HAVE_ZLIB)
-  char tmp[10] = {'\x1f', '\x8b', /* magic numbers: 0x1f, 0x8b */
-                  8, /* compression method: Z_DEFLATED */
-                  0, /* flags */
-                  0, 0, 0, 0, /* time */
-                  2, /* extra flags: max compression */
-                  '\x03'}; /* OS code: 0x03 (Unix) */
-
-  if(gl2ps->options & GL2PS_COMPRESS){
-    gl2psSetupCompress();
-    /* add the gzip file header */
-    fwrite(tmp, 10, 1, gl2ps->stream);
-  }
-#endif
-}
-
-static void gl2psPrintGzipFooter(void)
-{
-#if defined(GL2PS_HAVE_ZLIB)
-  int n;
-  uLong crc, len;
-  char tmp[8];
-
-  if(gl2ps->options & GL2PS_COMPRESS){
-    if(Z_OK != gl2psDeflate()){
-      gl2psMsg(GL2PS_ERROR, "Zlib deflate error");
-    }
-    else{
-      /* determine the length of the header in the zlib stream */
-      n = 2; /* CMF+FLG */
-      if(gl2ps->compress->dest[1] & (1<<5)){
-        n += 4; /* DICTID */
-      }
-      /* write the data, without the zlib header and footer */
-      fwrite(gl2ps->compress->dest+n, gl2ps->compress->destLen-(n+4),
-             1, gl2ps->stream);
-      /* add the gzip file footer */
-      crc = crc32(0L, gl2ps->compress->start, gl2ps->compress->srcLen);
-      for(n = 0; n < 4; ++n){
-        tmp[n] = (char)(crc & 0xff);
-        crc >>= 8;
-      }
-      len = gl2ps->compress->srcLen;
-      for(n = 4; n < 8; ++n){
-        tmp[n] = (char)(len & 0xff);
-        len >>= 8;
-      }
-      fwrite(tmp, 8, 1, gl2ps->stream);
-    }
-    gl2psFreeCompress();
-    gl2psFree(gl2ps->compress);
-    gl2ps->compress = NULL;
-  }
-#endif
-}
-
-/* The list handling routines */
-
-static void gl2psListRealloc(GL2PSlist *list, GLint n)
-{
-  if(!list){
-    gl2psMsg(GL2PS_ERROR, "Cannot reallocate NULL list");
-    return;
-  }
-  if(n <= 0) return;
-  if(!list->array){
-    list->nmax = n;
-    list->array = (char*)gl2psMalloc(list->nmax * list->size);
-  }
-  else{
-    if(n > list->nmax){
-      list->nmax = ((n - 1) / list->incr + 1) * list->incr;
-      list->array = (char*)gl2psRealloc(list->array,
-                                        list->nmax * list->size);
-    }
-  }
-}
-
-static GL2PSlist *gl2psListCreate(GLint n, GLint incr, GLint size)
-{
-  GL2PSlist *list;
-
-  if(n < 0) n = 0;
-  if(incr <= 0) incr = 1;
-  list = (GL2PSlist*)gl2psMalloc(sizeof(GL2PSlist));
-  list->nmax = 0;
-  list->incr = incr;
-  list->size = size;
-  list->n = 0;
-  list->array = NULL;
-  gl2psListRealloc(list, n);
-  return list;
-}
-
-static void gl2psListReset(GL2PSlist *list)
-{
-  if(!list) return;
-  list->n = 0;
-}
-
-static void gl2psListDelete(GL2PSlist *list)
-{
-  if(!list) return;
-  gl2psFree(list->array);
-  gl2psFree(list);
-}
-
-static void gl2psListAdd(GL2PSlist *list, void *data)
-{
-  if(!list){
-    gl2psMsg(GL2PS_ERROR, "Cannot add into unallocated list");
-    return;
-  }
-  list->n++;
-  gl2psListRealloc(list, list->n);
-  memcpy(&list->array[(list->n - 1) * list->size], data, list->size);
-}
-
-static int gl2psListNbr(GL2PSlist *list)
-{
-  if(!list)
-    return 0;
-  return list->n;
-}
-
-static void *gl2psListPointer(GL2PSlist *list, GLint index)
-{
-  if(!list){
-    gl2psMsg(GL2PS_ERROR, "Cannot point into unallocated list");
-    return NULL;
-  }
-  if((index < 0) || (index >= list->n)){
-    gl2psMsg(GL2PS_ERROR, "Wrong list index in gl2psListPointer");
-    return NULL;
-  }
-  return &list->array[index * list->size];
-}
-
-static void gl2psListSort(GL2PSlist *list,
-                          int (*fcmp)(const void *a, const void *b))
-{
-  if(!list)
-    return;
-  qsort(list->array, list->n, list->size, fcmp);
-}
-
-static void gl2psListAction(GL2PSlist *list, void (*action)(void *data))
-{
-  GLint i;
-
-  for(i = 0; i < gl2psListNbr(list); i++){
-    (*action)(gl2psListPointer(list, i));
-  }
-}
-
-static void gl2psListActionInverse(GL2PSlist *list, void (*action)(void *data))
-{
-  GLint i;
-
-  for(i = gl2psListNbr(list); i > 0; i--){
-    (*action)(gl2psListPointer(list, i-1));
-  }
-}
-
-#if defined(GL2PS_HAVE_LIBPNG)
-
-static void gl2psListRead(GL2PSlist *list, int index, void *data)
-{
-  if((index < 0) || (index >= list->n))
-    gl2psMsg(GL2PS_ERROR, "Wrong list index in gl2psListRead");
-  memcpy(data, &list->array[index * list->size], list->size);
-}
-
-static void gl2psEncodeBase64Block(unsigned char in[3], unsigned char out[4], int len)
-{
-  static const char cb64[] =
-    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
-
-  out[0] = cb64[ in[0] >> 2 ];
-  out[1] = cb64[ ((in[0] & 0x03) << 4) | ((in[1] & 0xf0) >> 4) ];
-  out[2] = (len > 1) ? cb64[ ((in[1] & 0x0f) << 2) | ((in[2] & 0xc0) >> 6) ] : '=';
-  out[3] = (len > 2) ? cb64[ in[2] & 0x3f ] : '=';
-}
-
-static void gl2psListEncodeBase64(GL2PSlist *list)
-{
-  unsigned char *buffer, in[3], out[4];
-  int i, n, index, len;
-
-  n = list->n * list->size;
-  buffer = (unsigned char*)gl2psMalloc(n * sizeof(unsigned char));
-  memcpy(buffer, list->array, n * sizeof(unsigned char));
-  gl2psListReset(list);
-
-  index = 0;
-  while(index < n) {
-    len = 0;
-    for(i = 0; i < 3; i++) {
-      if(index < n){
-        in[i] = buffer[index];
-        len++;
-      }
-      else{
-        in[i] = 0;
-      }
-      index++;
-    }
-    if(len) {
-      gl2psEncodeBase64Block(in, out, len);
-      for(i = 0; i < 4; i++)
-        gl2psListAdd(list, &out[i]);
-    }
-  }
-  gl2psFree(buffer);
-}
-
-#endif
-
-/* Helpers for rgba colors */
-
-static GLboolean gl2psSameColor(GL2PSrgba rgba1, GL2PSrgba rgba2)
-{
-  if(!GL2PS_ZERO(rgba1[0] - rgba2[0]) ||
-     !GL2PS_ZERO(rgba1[1] - rgba2[1]) ||
-     !GL2PS_ZERO(rgba1[2] - rgba2[2]))
-    return GL_FALSE;
-  return GL_TRUE;
-}
-
-static GLboolean gl2psVertsSameColor(const GL2PSprimitive *prim)
-{
-  int i;
-
-  for(i = 1; i < prim->numverts; i++){
-    if(!gl2psSameColor(prim->verts[0].rgba, prim->verts[i].rgba)){
-      return GL_FALSE;
-    }
-  }
-  return GL_TRUE;
-}
-
-static GLboolean gl2psSameColorThreshold(int n, GL2PSrgba rgba[],
-                                         GL2PSrgba threshold)
-{
-  int i;
-
-  if(n < 2) return GL_TRUE;
-
-  for(i = 1; i < n; i++){
-    if(fabs(rgba[0][0] - rgba[i][0]) > threshold[0] ||
-       fabs(rgba[0][1] - rgba[i][1]) > threshold[1] ||
-       fabs(rgba[0][2] - rgba[i][2]) > threshold[2])
-      return GL_FALSE;
-  }
-
-  return GL_TRUE;
-}
-
-static void gl2psSetLastColor(GL2PSrgba rgba)
-{
-  int i;
-  for(i = 0; i < 3; ++i){
-    gl2ps->lastrgba[i] = rgba[i];
-  }
-}
-
-static GLfloat gl2psGetRGB(GL2PSimage *im, GLuint x, GLuint y,
-                           GLfloat *red, GLfloat *green, GLfloat *blue)
-{
-
-  GLsizei width = im->width;
-  GLsizei height = im->height;
-  GLfloat *pixels = im->pixels;
-  GLfloat *pimag;
-
-  /* OpenGL image is from down to up, PS image is up to down */
-  switch(im->format){
-  case GL_RGBA:
-    pimag = pixels + 4 * (width * (height - 1 - y) + x);
-    break;
-  case GL_RGB:
-  default:
-    pimag = pixels + 3 * (width * (height - 1 - y) + x);
-    break;
-  }
-  *red = *pimag; pimag++;
-  *green = *pimag; pimag++;
-  *blue = *pimag; pimag++;
-
-  return (im->format == GL_RGBA) ? *pimag : 1.0F;
-}
-
-/* Helper routines for pixmaps */
-
-static GL2PSimage *gl2psCopyPixmap(GL2PSimage *im)
-{
-  int size;
-  GL2PSimage *image = (GL2PSimage*)gl2psMalloc(sizeof(GL2PSimage));
-
-  image->width = im->width;
-  image->height = im->height;
-  image->format = im->format;
-  image->type = im->type;
-  image->zoom_x = im->zoom_x;
-  image->zoom_y = im->zoom_y;
-
-  switch(image->format){
-  case GL_RGBA:
-    size = image->height * image->width * 4 * sizeof(GLfloat);
-    break;
-  case GL_RGB:
-  default:
-    size = image->height * image->width * 3 * sizeof(GLfloat);
-    break;
-  }
-
-  image->pixels = (GLfloat*)gl2psMalloc(size);
-  memcpy(image->pixels, im->pixels, size);
-
-  return image;
-}
-
-static void gl2psFreePixmap(GL2PSimage *im)
-{
-  if(!im)
-    return;
-  gl2psFree(im->pixels);
-  gl2psFree(im);
-}
-
-#if defined(GL2PS_HAVE_LIBPNG)
-
-#if !defined(png_jmpbuf)
-#  define png_jmpbuf(png_ptr) ((png_ptr)->jmpbuf)
-#endif
-
-static void gl2psUserWritePNG(png_structp png_ptr, png_bytep data, png_size_t length)
-{
-  unsigned int i;
-  GL2PSlist *png = (GL2PSlist*)png_get_io_ptr(png_ptr);
-  for(i = 0; i < length; i++)
-    gl2psListAdd(png, &data[i]);
-}
-
-static void gl2psUserFlushPNG(png_structp png_ptr)
-{
-  (void) png_ptr;  /* not used */
-}
-
-static void gl2psConvertPixmapToPNG(GL2PSimage *pixmap, GL2PSlist *png)
-{
-  png_structp png_ptr;
-  png_infop info_ptr;
-  unsigned char *row_data;
-  GLfloat dr, dg, db;
-  int row, col;
-
-  if(!(png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL)))
-    return;
-
-  if(!(info_ptr = png_create_info_struct(png_ptr))){
-    png_destroy_write_struct(&png_ptr, NULL);
-    return;
-  }
-
-  if(setjmp(png_jmpbuf(png_ptr))) {
-    png_destroy_write_struct(&png_ptr, &info_ptr);
-    return;
-  }
-
-  png_set_write_fn(png_ptr, (void *)png, gl2psUserWritePNG, gl2psUserFlushPNG);
-  png_set_compression_level(png_ptr, Z_DEFAULT_COMPRESSION);
-  png_set_IHDR(png_ptr, info_ptr, pixmap->width, pixmap->height, 8,
-               PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_BASE,
-               PNG_FILTER_TYPE_BASE);
-  png_write_info(png_ptr, info_ptr);
-
-  row_data = (unsigned char*)gl2psMalloc(3 * pixmap->width * sizeof(unsigned char));
-  for(row = 0; row < pixmap->height; row++){
-    for(col = 0; col < pixmap->width; col++){
-      gl2psGetRGB(pixmap, col, row, &dr, &dg, &db);
-      row_data[3*col] = (unsigned char)(255. * dr);
-      row_data[3*col+1] = (unsigned char)(255. * dg);
-      row_data[3*col+2] = (unsigned char)(255. * db);
-    }
-    png_write_row(png_ptr, (png_bytep)row_data);
-  }
-  gl2psFree(row_data);
-
-  png_write_end(png_ptr, info_ptr);
-  png_destroy_write_struct(&png_ptr, &info_ptr);
-}
-
-#endif
-
-/* Helper routines for text strings */
-
-static GLint gl2psAddText(GLint type, const char *str, const char *fontname,
-                          GLshort fontsize, GLint alignment, GLfloat angle)
-{
-  GLfloat pos[4];
-  GL2PSprimitive *prim;
-  GLboolean valid;
-
-  if(!gl2ps || !str || !fontname) return GL2PS_UNINITIALIZED;
-
-  if(gl2ps->options & GL2PS_NO_TEXT) return GL2PS_SUCCESS;
-
-  glGetBooleanv(GL_CURRENT_RASTER_POSITION_VALID, &valid);
-  if(GL_FALSE == valid) return GL2PS_SUCCESS; /* the primitive is culled */
-
-  glGetFloatv(GL_CURRENT_RASTER_POSITION, pos);
-
-  prim = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-  prim->type = type;
-  prim->boundary = 0;
-  prim->numverts = 1;
-  prim->verts = (GL2PSvertex*)gl2psMalloc(sizeof(GL2PSvertex));
-  prim->verts[0].xyz[0] = pos[0];
-  prim->verts[0].xyz[1] = pos[1];
-  prim->verts[0].xyz[2] = pos[2];
-  prim->culled = 0;
-  prim->offset = 0;
-  prim->pattern = 0;
-  prim->factor = 0;
-  prim->width = 1;
-  glGetFloatv(GL_CURRENT_RASTER_COLOR, prim->verts[0].rgba);
-  prim->data.text = (GL2PSstring*)gl2psMalloc(sizeof(GL2PSstring));
-  prim->data.text->str = (char*)gl2psMalloc((strlen(str)+1)*sizeof(char));
-  strcpy(prim->data.text->str, str);
-  prim->data.text->fontname = (char*)gl2psMalloc((strlen(fontname)+1)*sizeof(char));
-  strcpy(prim->data.text->fontname, fontname);
-  prim->data.text->fontsize = fontsize;
-  prim->data.text->alignment = alignment;
-  prim->data.text->angle = angle;
-
-  gl2psListAdd(gl2ps->auxprimitives, &prim);
-  glPassThrough(GL2PS_TEXT_TOKEN);
-
-  return GL2PS_SUCCESS;
-}
-
-static GL2PSstring *gl2psCopyText(GL2PSstring *t)
-{
-  GL2PSstring *text = (GL2PSstring*)gl2psMalloc(sizeof(GL2PSstring));
-  text->str = (char*)gl2psMalloc((strlen(t->str)+1)*sizeof(char));
-  strcpy(text->str, t->str);
-  text->fontname = (char*)gl2psMalloc((strlen(t->fontname)+1)*sizeof(char));
-  strcpy(text->fontname, t->fontname);
-  text->fontsize = t->fontsize;
-  text->alignment = t->alignment;
-  text->angle = t->angle;
-
-  return text;
-}
-
-static void gl2psFreeText(GL2PSstring *text)
-{
-  if(!text)
-    return;
-  gl2psFree(text->str);
-  gl2psFree(text->fontname);
-  gl2psFree(text);
-}
-
-/* Helpers for blending modes */
-
-static GLboolean gl2psSupportedBlendMode(GLenum sfactor, GLenum dfactor)
-{
-  /* returns TRUE if gl2ps supports the argument combination: only two
-     blending modes have been implemented so far */
-
-  if( (sfactor == GL_SRC_ALPHA && dfactor == GL_ONE_MINUS_SRC_ALPHA) ||
-      (sfactor == GL_ONE && dfactor == GL_ZERO) )
-    return GL_TRUE;
-  return GL_FALSE;
-}
-
-static void gl2psAdaptVertexForBlending(GL2PSvertex *v)
-{
-  /* Transforms vertex depending on the actual blending function -
-     currently the vertex v is considered as source vertex and his
-     alpha value is changed to 1.0 if source blending GL_ONE is
-     active. This might be extended in the future */
-
-  if(!v || !gl2ps)
-    return;
-
-  if(gl2ps->options & GL2PS_NO_BLENDING || !gl2ps->blending){
-    v->rgba[3] = 1.0F;
-    return;
-  }
-
-  switch(gl2ps->blendfunc[0]){
-  case GL_ONE:
-    v->rgba[3] = 1.0F;
-    break;
-  default:
-    break;
-  }
-}
-
-static void gl2psAssignTriangleProperties(GL2PStriangle *t)
-{
-  /* int i; */
-
-  t->prop = T_VAR_COLOR;
-
-  /* Uncommenting the following lines activates an even more fine
-     grained distinction between triangle types - please don't delete,
-     a remarkable amount of PDF handling code inside this file depends
-     on it if activated */
-  /*
-  t->prop = T_CONST_COLOR;
-  for(i = 0; i < 3; ++i){
-    if(!GL2PS_ZERO(t->vertex[0].rgba[i] - t->vertex[1].rgba[i]) ||
-       !GL2PS_ZERO(t->vertex[1].rgba[i] - t->vertex[2].rgba[i])){
-      t->prop = T_VAR_COLOR;
-      break;
-    }
-  }
-  */
-
-  if(!GL2PS_ZERO(t->vertex[0].rgba[3] - t->vertex[1].rgba[3]) ||
-     !GL2PS_ZERO(t->vertex[1].rgba[3] - t->vertex[2].rgba[3])){
-    t->prop |= T_VAR_ALPHA;
-  }
-  else{
-    if(t->vertex[0].rgba[3] < 1)
-      t->prop |= T_ALPHA_LESS_1;
-    else
-      t->prop |= T_ALPHA_1;
-  }
-}
-
-static void gl2psFillTriangleFromPrimitive(GL2PStriangle *t, GL2PSprimitive *p,
-                                           GLboolean assignprops)
-{
-  t->vertex[0] = p->verts[0];
-  t->vertex[1] = p->verts[1];
-  t->vertex[2] = p->verts[2];
-  if(GL_TRUE == assignprops)
-    gl2psAssignTriangleProperties(t);
-}
-
-static void gl2psInitTriangle(GL2PStriangle *t)
-{
-  int i;
-  GL2PSvertex vertex = { {-1.0F, -1.0F, -1.0F}, {-1.0F, -1.0F, -1.0F, -1.0F} };
-  for(i = 0; i < 3; i++)
-    t->vertex[i] = vertex;
-  t->prop = T_UNDEFINED;
-}
-
-/* Miscellaneous helper routines */
-
-static GL2PSprimitive *gl2psCopyPrimitive(GL2PSprimitive *p)
-{
-  GL2PSprimitive *prim;
-
-  if(!p){
-    gl2psMsg(GL2PS_ERROR, "Trying to copy an empty primitive");
-    return NULL;
-  }
-
-  prim = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-
-  prim->type = p->type;
-  prim->numverts = p->numverts;
-  prim->boundary = p->boundary;
-  prim->offset = p->offset;
-  prim->pattern = p->pattern;
-  prim->factor = p->factor;
-  prim->culled = p->culled;
-  prim->width = p->width;
-  prim->verts = (GL2PSvertex*)gl2psMalloc(p->numverts*sizeof(GL2PSvertex));
-  memcpy(prim->verts, p->verts, p->numverts * sizeof(GL2PSvertex));
-
-  switch(prim->type){
-  case GL2PS_PIXMAP :
-    prim->data.image = gl2psCopyPixmap(p->data.image);
-    break;
-  case GL2PS_TEXT :
-  case GL2PS_SPECIAL :
-    prim->data.text = gl2psCopyText(p->data.text);
-    break;
-  default:
-    break;
-  }
-
-  return prim;
-}
-
-static GLboolean gl2psSamePosition(GL2PSxyz p1, GL2PSxyz p2)
-{
-  if(!GL2PS_ZERO(p1[0] - p2[0]) ||
-     !GL2PS_ZERO(p1[1] - p2[1]) ||
-     !GL2PS_ZERO(p1[2] - p2[2]))
-    return GL_FALSE;
-  return GL_TRUE;
-}
-
-/*********************************************************************
- *
- * 3D sorting routines
- *
- *********************************************************************/
-
-static GLfloat gl2psComparePointPlane(GL2PSxyz point, GL2PSplane plane)
-{
-  return (plane[0] * point[0] +
-          plane[1] * point[1] +
-          plane[2] * point[2] +
-          plane[3]);
-}
-
-static GLfloat gl2psPsca(GLfloat *a, GLfloat *b)
-{
-  return (a[0]*b[0] + a[1]*b[1] + a[2]*b[2]);
-}
-
-static void gl2psPvec(GLfloat *a, GLfloat *b, GLfloat *c)
-{
-  c[0] = a[1]*b[2] - a[2]*b[1];
-  c[1] = a[2]*b[0] - a[0]*b[2];
-  c[2] = a[0]*b[1] - a[1]*b[0];
-}
-
-static GLfloat gl2psNorm(GLfloat *a)
-{
-  return (GLfloat)sqrt(a[0]*a[0] + a[1]*a[1] + a[2]*a[2]);
-}
-
-static void gl2psGetNormal(GLfloat *a, GLfloat *b, GLfloat *c)
-{
-  GLfloat norm;
-
-  gl2psPvec(a, b, c);
-  if(!GL2PS_ZERO(norm = gl2psNorm(c))){
-    c[0] = c[0] / norm;
-    c[1] = c[1] / norm;
-    c[2] = c[2] / norm;
-  }
-  else{
-    /* The plane is still wrong despite our tests in gl2psGetPlane.
-       Let's return a dummy value for now (this is a hack: we should
-       do more intelligent tests in GetPlane) */
-    c[0] = c[1] = 0.0F;
-    c[2] = 1.0F;
-  }
-}
-
-static void gl2psGetPlane(GL2PSprimitive *prim, GL2PSplane plane)
-{
-  GL2PSxyz v = {0.0F, 0.0F, 0.0F}, w = {0.0F, 0.0F, 0.0F};
-
-  switch(prim->type){
-  case GL2PS_TRIANGLE :
-  case GL2PS_QUADRANGLE :
-    v[0] = prim->verts[1].xyz[0] - prim->verts[0].xyz[0];
-    v[1] = prim->verts[1].xyz[1] - prim->verts[0].xyz[1];
-    v[2] = prim->verts[1].xyz[2] - prim->verts[0].xyz[2];
-    w[0] = prim->verts[2].xyz[0] - prim->verts[0].xyz[0];
-    w[1] = prim->verts[2].xyz[1] - prim->verts[0].xyz[1];
-    w[2] = prim->verts[2].xyz[2] - prim->verts[0].xyz[2];
-    if((GL2PS_ZERO(v[0]) && GL2PS_ZERO(v[1]) && GL2PS_ZERO(v[2])) ||
-       (GL2PS_ZERO(w[0]) && GL2PS_ZERO(w[1]) && GL2PS_ZERO(w[2]))){
-      plane[0] = plane[1] = 0.0F;
-      plane[2] = 1.0F;
-      plane[3] = -prim->verts[0].xyz[2];
-    }
-    else{
-      gl2psGetNormal(v, w, plane);
-      plane[3] =
-        - plane[0] * prim->verts[0].xyz[0]
-        - plane[1] * prim->verts[0].xyz[1]
-        - plane[2] * prim->verts[0].xyz[2];
-    }
-    break;
-  case GL2PS_LINE :
-    v[0] = prim->verts[1].xyz[0] - prim->verts[0].xyz[0];
-    v[1] = prim->verts[1].xyz[1] - prim->verts[0].xyz[1];
-    v[2] = prim->verts[1].xyz[2] - prim->verts[0].xyz[2];
-    if(GL2PS_ZERO(v[0]) && GL2PS_ZERO(v[1]) && GL2PS_ZERO(v[2])){
-      plane[0] = plane[1] = 0.0F;
-      plane[2] = 1.0F;
-      plane[3] = -prim->verts[0].xyz[2];
-    }
-    else{
-      if(GL2PS_ZERO(v[0]))      w[0] = 1.0F;
-      else if(GL2PS_ZERO(v[1])) w[1] = 1.0F;
-      else                      w[2] = 1.0F;
-      gl2psGetNormal(v, w, plane);
-      plane[3] =
-        - plane[0] * prim->verts[0].xyz[0]
-        - plane[1] * prim->verts[0].xyz[1]
-        - plane[2] * prim->verts[0].xyz[2];
-    }
-    break;
-  case GL2PS_POINT :
-  case GL2PS_PIXMAP :
-  case GL2PS_TEXT :
-  case GL2PS_SPECIAL :
-  case GL2PS_IMAGEMAP:
-    plane[0] = plane[1] = 0.0F;
-    plane[2] = 1.0F;
-    plane[3] = -prim->verts[0].xyz[2];
-    break;
-  default :
-    gl2psMsg(GL2PS_ERROR, "Unknown primitive type in BSP tree");
-    plane[0] = plane[1] = plane[3] = 0.0F;
-    plane[2] = 1.0F;
-    break;
-  }
-}
-
-static void gl2psCutEdge(GL2PSvertex *a, GL2PSvertex *b, GL2PSplane plane,
-                         GL2PSvertex *c)
-{
-  GL2PSxyz v;
-  GLfloat sect, psca;
-
-  v[0] = b->xyz[0] - a->xyz[0];
-  v[1] = b->xyz[1] - a->xyz[1];
-  v[2] = b->xyz[2] - a->xyz[2];
-
-  if(!GL2PS_ZERO(psca = gl2psPsca(plane, v)))
-    sect = -gl2psComparePointPlane(a->xyz, plane) / psca;
-  else
-    sect = 0.0F;
-
-  c->xyz[0] = a->xyz[0] + v[0] * sect;
-  c->xyz[1] = a->xyz[1] + v[1] * sect;
-  c->xyz[2] = a->xyz[2] + v[2] * sect;
-
-  c->rgba[0] = (1 - sect) * a->rgba[0] + sect * b->rgba[0];
-  c->rgba[1] = (1 - sect) * a->rgba[1] + sect * b->rgba[1];
-  c->rgba[2] = (1 - sect) * a->rgba[2] + sect * b->rgba[2];
-  c->rgba[3] = (1 - sect) * a->rgba[3] + sect * b->rgba[3];
-}
-
-static void gl2psCreateSplitPrimitive(GL2PSprimitive *parent, GL2PSplane plane,
-                                      GL2PSprimitive *child, GLshort numverts,
-                                      GLshort *index0, GLshort *index1)
-{
-  GLshort i;
-
-  if(parent->type == GL2PS_IMAGEMAP){
-    child->type = GL2PS_IMAGEMAP;
-    child->data.image = parent->data.image;
-  }
-  else{
-    if(numverts > 4){
-      gl2psMsg(GL2PS_WARNING, "%d vertices in polygon", numverts);
-      numverts = 4;
-    }
-    switch(numverts){
-    case 1 : child->type = GL2PS_POINT; break;
-    case 2 : child->type = GL2PS_LINE; break;
-    case 3 : child->type = GL2PS_TRIANGLE; break;
-    case 4 : child->type = GL2PS_QUADRANGLE; break;
-    default: child->type = GL2PS_NO_TYPE; break;
-    }
-  }
-
-  child->boundary = 0; /* FIXME: not done! */
-  child->culled = parent->culled;
-  child->offset = parent->offset;
-  child->pattern = parent->pattern;
-  child->factor = parent->factor;
-  child->width = parent->width;
-  child->numverts = numverts;
-  child->verts = (GL2PSvertex*)gl2psMalloc(numverts * sizeof(GL2PSvertex));
-
-  for(i = 0; i < numverts; i++){
-    if(index1[i] < 0){
-      child->verts[i] = parent->verts[index0[i]];
-    }
-    else{
-      gl2psCutEdge(&parent->verts[index0[i]], &parent->verts[index1[i]],
-                   plane, &child->verts[i]);
-    }
-  }
-}
-
-static void gl2psAddIndex(GLshort *index0, GLshort *index1, GLshort *nb,
-                          GLshort i, GLshort j)
-{
-  GLint k;
-
-  for(k = 0; k < *nb; k++){
-    if((index0[k] == i && index1[k] == j) ||
-       (index1[k] == i && index0[k] == j)) return;
-  }
-  index0[*nb] = i;
-  index1[*nb] = j;
-  (*nb)++;
-}
-
-static GLshort gl2psGetIndex(GLshort i, GLshort num)
-{
-  return (i < num - 1) ? i + 1 : 0;
-}
-
-static GLint gl2psTestSplitPrimitive(GL2PSprimitive *prim, GL2PSplane plane)
-{
-  GLint type = GL2PS_COINCIDENT;
-  GLshort i, j;
-  GLfloat d[5];
-
-  for(i = 0; i < prim->numverts; i++){
-    d[i] = gl2psComparePointPlane(prim->verts[i].xyz, plane);
-  }
-
-  if(prim->numverts < 2){
-    return 0;
-  }
-  else{
-    for(i = 0; i < prim->numverts; i++){
-      j = gl2psGetIndex(i, prim->numverts);
-      if(d[j] > GL2PS_EPSILON){
-        if(type == GL2PS_COINCIDENT)      type = GL2PS_IN_BACK_OF;
-        else if(type != GL2PS_IN_BACK_OF) return 1;
-        if(d[i] < -GL2PS_EPSILON)         return 1;
-      }
-      else if(d[j] < -GL2PS_EPSILON){
-        if(type == GL2PS_COINCIDENT)       type = GL2PS_IN_FRONT_OF;
-        else if(type != GL2PS_IN_FRONT_OF) return 1;
-        if(d[i] > GL2PS_EPSILON)           return 1;
-      }
-    }
-  }
-  return 0;
-}
-
-static GLint gl2psSplitPrimitive(GL2PSprimitive *prim, GL2PSplane plane,
-                                 GL2PSprimitive **front, GL2PSprimitive **back)
-{
-  GLshort i, j, in = 0, out = 0, in0[5], in1[5], out0[5], out1[5];
-  GLint type;
-  GLfloat d[5];
-
-  type = GL2PS_COINCIDENT;
-
-  for(i = 0; i < prim->numverts; i++){
-    d[i] = gl2psComparePointPlane(prim->verts[i].xyz, plane);
-  }
-
-  switch(prim->type){
-  case GL2PS_POINT :
-    if(d[0] > GL2PS_EPSILON)       type = GL2PS_IN_BACK_OF;
-    else if(d[0] < -GL2PS_EPSILON) type = GL2PS_IN_FRONT_OF;
-    else                           type = GL2PS_COINCIDENT;
-    break;
-  default :
-    for(i = 0; i < prim->numverts; i++){
-      j = gl2psGetIndex(i, prim->numverts);
-      if(d[j] > GL2PS_EPSILON){
-        if(type == GL2PS_COINCIDENT)      type = GL2PS_IN_BACK_OF;
-        else if(type != GL2PS_IN_BACK_OF) type = GL2PS_SPANNING;
-        if(d[i] < -GL2PS_EPSILON){
-          gl2psAddIndex(in0, in1, &in, i, j);
-          gl2psAddIndex(out0, out1, &out, i, j);
-          type = GL2PS_SPANNING;
-        }
-        gl2psAddIndex(out0, out1, &out, j, -1);
-      }
-      else if(d[j] < -GL2PS_EPSILON){
-        if(type == GL2PS_COINCIDENT)       type = GL2PS_IN_FRONT_OF;
-        else if(type != GL2PS_IN_FRONT_OF) type = GL2PS_SPANNING;
-        if(d[i] > GL2PS_EPSILON){
-          gl2psAddIndex(in0, in1, &in, i, j);
-          gl2psAddIndex(out0, out1, &out, i, j);
-          type = GL2PS_SPANNING;
-        }
-        gl2psAddIndex(in0, in1, &in, j, -1);
-      }
-      else{
-        gl2psAddIndex(in0, in1, &in, j, -1);
-        gl2psAddIndex(out0, out1, &out, j, -1);
-      }
-    }
-    break;
-  }
-
-  if(type == GL2PS_SPANNING){
-    *back = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-    *front = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-    gl2psCreateSplitPrimitive(prim, plane, *back, out, out0, out1);
-    gl2psCreateSplitPrimitive(prim, plane, *front, in, in0, in1);
-  }
-
-  return type;
-}
-
-static void gl2psDivideQuad(GL2PSprimitive *quad,
-                            GL2PSprimitive **t1, GL2PSprimitive **t2)
-{
-  *t1 = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-  *t2 = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-  (*t1)->type = (*t2)->type = GL2PS_TRIANGLE;
-  (*t1)->numverts = (*t2)->numverts = 3;
-  (*t1)->culled = (*t2)->culled = quad->culled;
-  (*t1)->offset = (*t2)->offset = quad->offset;
-  (*t1)->pattern = (*t2)->pattern = quad->pattern;
-  (*t1)->factor = (*t2)->factor = quad->factor;
-  (*t1)->width = (*t2)->width = quad->width;
-  (*t1)->verts = (GL2PSvertex*)gl2psMalloc(3 * sizeof(GL2PSvertex));
-  (*t2)->verts = (GL2PSvertex*)gl2psMalloc(3 * sizeof(GL2PSvertex));
-  (*t1)->verts[0] = quad->verts[0];
-  (*t1)->verts[1] = quad->verts[1];
-  (*t1)->verts[2] = quad->verts[2];
-  (*t1)->boundary = ((quad->boundary & 1) ? 1 : 0) | ((quad->boundary & 2) ? 2 : 0);
-  (*t2)->verts[0] = quad->verts[0];
-  (*t2)->verts[1] = quad->verts[2];
-  (*t2)->verts[2] = quad->verts[3];
-  (*t2)->boundary = ((quad->boundary & 4) ? 2 : 0) | ((quad->boundary & 8) ? 4 : 0);
-}
-
-static int gl2psCompareDepth(const void *a, const void *b)
-{
-  const GL2PSprimitive *q, *w;
-  GLfloat dq = 0.0F, dw = 0.0F, diff;
-  int i;
-
-  q = *(const GL2PSprimitive* const*)a;
-  w = *(const GL2PSprimitive* const*)b;
-
-  for(i = 0; i < q->numverts; i++){
-    dq += q->verts[i].xyz[2];
-  }
-  dq /= (GLfloat)q->numverts;
-
-  for(i = 0; i < w->numverts; i++){
-    dw += w->verts[i].xyz[2];
-  }
-  dw /= (GLfloat)w->numverts;
-
-  diff = dq - dw;
-  if(diff > 0.){
-    return -1;
-  }
-  else if(diff < 0.){
-    return 1;
-  }
-  else{
-    return 0;
-  }
-}
-
-static int gl2psTrianglesFirst(const void *a, const void *b)
-{
-  const GL2PSprimitive *q, *w;
-
-  q = *(const GL2PSprimitive* const*)a;
-  w = *(const GL2PSprimitive* const*)b;
-  return (q->type < w->type ? 1 : -1);
-}
-
-static GLint gl2psFindRoot(GL2PSlist *primitives, GL2PSprimitive **root)
-{
-  GLint i, j, count, best = 1000000, index = 0;
-  GL2PSprimitive *prim1, *prim2;
-  GL2PSplane plane;
-  GLint maxp;
-
-  if(!gl2psListNbr(primitives)){
-    gl2psMsg(GL2PS_ERROR, "Cannot fint root in empty primitive list");
-    return 0;
-  }
-
-  *root = *(GL2PSprimitive**)gl2psListPointer(primitives, 0);
-
-  if(gl2ps->options & GL2PS_BEST_ROOT){
-    maxp = gl2psListNbr(primitives);
-    if(maxp > gl2ps->maxbestroot){
-      maxp = gl2ps->maxbestroot;
-    }
-    for(i = 0; i < maxp; i++){
-      prim1 = *(GL2PSprimitive**)gl2psListPointer(primitives, i);
-      gl2psGetPlane(prim1, plane);
-      count = 0;
-      for(j = 0; j < gl2psListNbr(primitives); j++){
-        if(j != i){
-          prim2 = *(GL2PSprimitive**)gl2psListPointer(primitives, j);
-          count += gl2psTestSplitPrimitive(prim2, plane);
-        }
-        if(count > best) break;
-      }
-      if(count < best){
-        best = count;
-        index = i;
-        *root = prim1;
-        if(!count) return index;
-      }
-    }
-    /* if(index) gl2psMsg(GL2PS_INFO, "GL2PS_BEST_ROOT was worth it: %d", index); */
-    return index;
-  }
-  else{
-    return 0;
-  }
-}
-
-static void gl2psFreeImagemap(GL2PSimagemap *list)
-{
-  GL2PSimagemap *next;
-  while(list != NULL){
-    next = list->next;
-    gl2psFree(list->image->pixels);
-    gl2psFree(list->image);
-    gl2psFree(list);
-    list = next;
-  }
-}
-
-static void gl2psFreePrimitive(void *data)
-{
-  GL2PSprimitive *q;
-
-  q = *(GL2PSprimitive**)data;
-  gl2psFree(q->verts);
-  if(q->type == GL2PS_TEXT || q->type == GL2PS_SPECIAL){
-    gl2psFreeText(q->data.text);
-  }
-  else if(q->type == GL2PS_PIXMAP){
-    gl2psFreePixmap(q->data.image);
-  }
-  gl2psFree(q);
-}
-
-static void gl2psAddPrimitiveInList(GL2PSprimitive *prim, GL2PSlist *list)
-{
-  GL2PSprimitive *t1, *t2;
-
-  if(prim->type != GL2PS_QUADRANGLE){
-    gl2psListAdd(list, &prim);
-  }
-  else{
-    gl2psDivideQuad(prim, &t1, &t2);
-    gl2psListAdd(list, &t1);
-    gl2psListAdd(list, &t2);
-    gl2psFreePrimitive(&prim);
-  }
-
-}
-
-static void gl2psFreeBspTree(GL2PSbsptree **tree)
-{
-  if(*tree){
-    if((*tree)->back) gl2psFreeBspTree(&(*tree)->back);
-    if((*tree)->primitives){
-      gl2psListAction((*tree)->primitives, gl2psFreePrimitive);
-      gl2psListDelete((*tree)->primitives);
-    }
-    if((*tree)->front) gl2psFreeBspTree(&(*tree)->front);
-    gl2psFree(*tree);
-    *tree = NULL;
-  }
-}
-
-static GLboolean gl2psGreater(GLfloat f1, GLfloat f2)
-{
-  if(f1 > f2) return GL_TRUE;
-  else return GL_FALSE;
-}
-
-static GLboolean gl2psLess(GLfloat f1, GLfloat f2)
-{
-  if(f1 < f2) return GL_TRUE;
-  else return GL_FALSE;
-}
-
-static void gl2psBuildBspTree(GL2PSbsptree *tree, GL2PSlist *primitives)
-{
-  GL2PSprimitive *prim, *frontprim = NULL, *backprim = NULL;
-  GL2PSlist *frontlist, *backlist;
-  GLint i, index;
-
-  tree->front = NULL;
-  tree->back = NULL;
-  tree->primitives = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-  index = gl2psFindRoot(primitives, &prim);
-  gl2psGetPlane(prim, tree->plane);
-  gl2psAddPrimitiveInList(prim, tree->primitives);
-
-  frontlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-  backlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-
-  for(i = 0; i < gl2psListNbr(primitives); i++){
-    if(i != index){
-      prim = *(GL2PSprimitive**)gl2psListPointer(primitives,i);
-      switch(gl2psSplitPrimitive(prim, tree->plane, &frontprim, &backprim)){
-      case GL2PS_COINCIDENT:
-        gl2psAddPrimitiveInList(prim, tree->primitives);
-        break;
-      case GL2PS_IN_BACK_OF:
-        gl2psAddPrimitiveInList(prim, backlist);
-        break;
-      case GL2PS_IN_FRONT_OF:
-        gl2psAddPrimitiveInList(prim, frontlist);
-        break;
-      case GL2PS_SPANNING:
-        gl2psAddPrimitiveInList(backprim, backlist);
-        gl2psAddPrimitiveInList(frontprim, frontlist);
-        gl2psFreePrimitive(&prim);
-        break;
-      }
-    }
-  }
-
-  if(gl2psListNbr(tree->primitives)){
-    gl2psListSort(tree->primitives, gl2psTrianglesFirst);
-  }
-
-  if(gl2psListNbr(frontlist)){
-    gl2psListSort(frontlist, gl2psTrianglesFirst);
-    tree->front = (GL2PSbsptree*)gl2psMalloc(sizeof(GL2PSbsptree));
-    gl2psBuildBspTree(tree->front, frontlist);
-  }
-  else{
-    gl2psListDelete(frontlist);
-  }
-
-  if(gl2psListNbr(backlist)){
-    gl2psListSort(backlist, gl2psTrianglesFirst);
-    tree->back = (GL2PSbsptree*)gl2psMalloc(sizeof(GL2PSbsptree));
-    gl2psBuildBspTree(tree->back, backlist);
-  }
-  else{
-    gl2psListDelete(backlist);
-  }
-
-  gl2psListDelete(primitives);
-}
-
-static void gl2psTraverseBspTree(GL2PSbsptree *tree, GL2PSxyz eye, GLfloat epsilon,
-                                 GLboolean (*compare)(GLfloat f1, GLfloat f2),
-                                 void (*action)(void *data), int inverse)
-{
-  GLfloat result;
-
-  if(!tree) return;
-
-  result = gl2psComparePointPlane(eye, tree->plane);
-
-  if(GL_TRUE == compare(result, epsilon)){
-    gl2psTraverseBspTree(tree->back, eye, epsilon, compare, action, inverse);
-    if(inverse){
-      gl2psListActionInverse(tree->primitives, action);
-    }
-    else{
-      gl2psListAction(tree->primitives, action);
-    }
-    gl2psTraverseBspTree(tree->front, eye, epsilon, compare, action, inverse);
-  }
-  else if(GL_TRUE == compare(-epsilon, result)){
-    gl2psTraverseBspTree(tree->front, eye, epsilon, compare, action, inverse);
-    if(inverse){
-      gl2psListActionInverse(tree->primitives, action);
-    }
-    else{
-      gl2psListAction(tree->primitives, action);
-    }
-    gl2psTraverseBspTree(tree->back, eye, epsilon, compare, action, inverse);
-  }
-  else{
-    gl2psTraverseBspTree(tree->front, eye, epsilon, compare, action, inverse);
-    gl2psTraverseBspTree(tree->back, eye, epsilon, compare, action, inverse);
-  }
-}
-
-static void gl2psRescaleAndOffset(void)
-{
-  GL2PSprimitive *prim;
-  GLfloat minZ, maxZ, rangeZ, scaleZ;
-  GLfloat factor, units, area, dZ, dZdX, dZdY, maxdZ;
-  int i, j;
-
-  if(!gl2psListNbr(gl2ps->primitives))
-    return;
-
-  /* get z-buffer range */
-  prim = *(GL2PSprimitive**)gl2psListPointer(gl2ps->primitives, 0);
-  minZ = maxZ = prim->verts[0].xyz[2];
-  for(i = 1; i < prim->numverts; i++){
-    if(prim->verts[i].xyz[2] < minZ) minZ = prim->verts[i].xyz[2];
-    if(prim->verts[i].xyz[2] > maxZ) maxZ = prim->verts[i].xyz[2];
-  }
-  for(i = 1; i < gl2psListNbr(gl2ps->primitives); i++){
-    prim = *(GL2PSprimitive**)gl2psListPointer(gl2ps->primitives, i);
-    for(j = 0; j < prim->numverts; j++){
-      if(prim->verts[j].xyz[2] < minZ) minZ = prim->verts[j].xyz[2];
-      if(prim->verts[j].xyz[2] > maxZ) maxZ = prim->verts[j].xyz[2];
-    }
-  }
-  rangeZ = (maxZ - minZ);
-
-  /* rescale z-buffer coordinate in [0,GL2PS_ZSCALE], to make it of
-     the same order of magnitude as the x and y coordinates */
-  scaleZ = GL2PS_ZERO(rangeZ) ? GL2PS_ZSCALE : (GL2PS_ZSCALE / rangeZ);
-  /* avoid precision loss (we use floats!) */
-  if(scaleZ > 100000.F) scaleZ = 100000.F;
-
-  /* apply offsets */
-  for(i = 0; i < gl2psListNbr(gl2ps->primitives); i++){
-    prim = *(GL2PSprimitive**)gl2psListPointer(gl2ps->primitives, i);
-    for(j = 0; j < prim->numverts; j++){
-      prim->verts[j].xyz[2] = (prim->verts[j].xyz[2] - minZ) * scaleZ;
-    }
-    if((gl2ps->options & GL2PS_SIMPLE_LINE_OFFSET) &&
-       (prim->type == GL2PS_LINE)){
-      if(gl2ps->sort == GL2PS_SIMPLE_SORT){
-        prim->verts[0].xyz[2] -= GL2PS_ZOFFSET_LARGE;
-        prim->verts[1].xyz[2] -= GL2PS_ZOFFSET_LARGE;
-      }
-      else{
-        prim->verts[0].xyz[2] -= GL2PS_ZOFFSET;
-        prim->verts[1].xyz[2] -= GL2PS_ZOFFSET;
-      }
-    }
-    else if(prim->offset && (prim->type == GL2PS_TRIANGLE)){
-      factor = gl2ps->offset[0];
-      units = gl2ps->offset[1];
-      area =
-        (prim->verts[1].xyz[0] - prim->verts[0].xyz[0]) *
-        (prim->verts[2].xyz[1] - prim->verts[1].xyz[1]) -
-        (prim->verts[2].xyz[0] - prim->verts[1].xyz[0]) *
-        (prim->verts[1].xyz[1] - prim->verts[0].xyz[1]);
-      if(!GL2PS_ZERO(area)){
-        dZdX =
-          ((prim->verts[2].xyz[1] - prim->verts[1].xyz[1]) *
-           (prim->verts[1].xyz[2] - prim->verts[0].xyz[2]) -
-           (prim->verts[1].xyz[1] - prim->verts[0].xyz[1]) *
-           (prim->verts[2].xyz[2] - prim->verts[1].xyz[2])) / area;
-        dZdY =
-          ((prim->verts[1].xyz[0] - prim->verts[0].xyz[0]) *
-           (prim->verts[2].xyz[2] - prim->verts[1].xyz[2]) -
-           (prim->verts[2].xyz[0] - prim->verts[1].xyz[0]) *
-           (prim->verts[1].xyz[2] - prim->verts[0].xyz[2])) / area;
-        maxdZ = (GLfloat)sqrt(dZdX * dZdX + dZdY * dZdY);
-      }
-      else{
-        maxdZ = 0.0F;
-      }
-      dZ = factor * maxdZ + units;
-      prim->verts[0].xyz[2] += dZ;
-      prim->verts[1].xyz[2] += dZ;
-      prim->verts[2].xyz[2] += dZ;
-    }
-  }
-}
-
-/*********************************************************************
- *
- * 2D sorting routines (for occlusion culling)
- *
- *********************************************************************/
-
-static GLint gl2psGetPlaneFromPoints(GL2PSxyz a, GL2PSxyz b, GL2PSplane plane)
-{
-  GLfloat n;
-
-  plane[0] = b[1] - a[1];
-  plane[1] = a[0] - b[0];
-  n = (GLfloat)sqrt(plane[0]*plane[0] + plane[1]*plane[1]);
-  plane[2] = 0.0F;
-  if(!GL2PS_ZERO(n)){
-    plane[0] /= n;
-    plane[1] /= n;
-    plane[3] = -plane[0]*a[0]-plane[1]*a[1];
-    return 1;
-  }
-  else{
-    plane[0] = -1.0F;
-    plane[1] = 0.0F;
-    plane[3] = a[0];
-    return 0;
-  }
-}
-
-static void gl2psFreeBspImageTree(GL2PSbsptree2d **tree)
-{
-  if(*tree){
-    if((*tree)->back)  gl2psFreeBspImageTree(&(*tree)->back);
-    if((*tree)->front) gl2psFreeBspImageTree(&(*tree)->front);
-    gl2psFree(*tree);
-    *tree = NULL;
-  }
-}
-
-static GLint gl2psCheckPoint(GL2PSxyz point, GL2PSplane plane)
-{
-  GLfloat pt_dis;
-
-  pt_dis = gl2psComparePointPlane(point, plane);
-  if(pt_dis > GL2PS_EPSILON)        return GL2PS_POINT_INFRONT;
-  else if(pt_dis < -GL2PS_EPSILON)  return GL2PS_POINT_BACK;
-  else                              return GL2PS_POINT_COINCIDENT;
-}
-
-static void gl2psAddPlanesInBspTreeImage(GL2PSprimitive *prim,
-                                         GL2PSbsptree2d **tree)
-{
-  GLint ret = 0;
-  GLint i;
-  GLint offset = 0;
-  GL2PSbsptree2d *head = NULL, *cur = NULL;
-
-  if((*tree == NULL) && (prim->numverts > 2)){
-    /* don't cull if transparent
-    for(i = 0; i < prim->numverts - 1; i++)
-      if(prim->verts[i].rgba[3] < 1.0F) return;
-    */
-    head = (GL2PSbsptree2d*)gl2psMalloc(sizeof(GL2PSbsptree2d));
-    for(i = 0; i < prim->numverts-1; i++){
-      if(!gl2psGetPlaneFromPoints(prim->verts[i].xyz,
-                                  prim->verts[i+1].xyz,
-                                  head->plane)){
-        if(prim->numverts-i > 3){
-          offset++;
-        }
-        else{
-          gl2psFree(head);
-          return;
-        }
-      }
-      else{
-        break;
-      }
-    }
-    head->back = NULL;
-    head->front = NULL;
-    for(i = 2+offset; i < prim->numverts; i++){
-      ret = gl2psCheckPoint(prim->verts[i].xyz, head->plane);
-      if(ret != GL2PS_POINT_COINCIDENT) break;
-    }
-    switch(ret){
-    case GL2PS_POINT_INFRONT :
-      cur = head;
-      for(i = 1+offset; i < prim->numverts-1; i++){
-        if(cur->front == NULL){
-          cur->front = (GL2PSbsptree2d*)gl2psMalloc(sizeof(GL2PSbsptree2d));
-        }
-        if(gl2psGetPlaneFromPoints(prim->verts[i].xyz,
-                                   prim->verts[i+1].xyz,
-                                   cur->front->plane)){
-          cur = cur->front;
-          cur->front = NULL;
-          cur->back = NULL;
-        }
-      }
-      if(cur->front == NULL){
-        cur->front = (GL2PSbsptree2d*)gl2psMalloc(sizeof(GL2PSbsptree2d));
-      }
-      if(gl2psGetPlaneFromPoints(prim->verts[i].xyz,
-                                 prim->verts[offset].xyz,
-                                 cur->front->plane)){
-        cur->front->front = NULL;
-        cur->front->back = NULL;
-      }
-      else{
-        gl2psFree(cur->front);
-        cur->front = NULL;
-      }
-      break;
-    case GL2PS_POINT_BACK :
-      for(i = 0; i < 4; i++){
-        head->plane[i] = -head->plane[i];
-      }
-      cur = head;
-      for(i = 1+offset; i < prim->numverts-1; i++){
-        if(cur->front == NULL){
-          cur->front = (GL2PSbsptree2d*)gl2psMalloc(sizeof(GL2PSbsptree2d));
-        }
-        if(gl2psGetPlaneFromPoints(prim->verts[i+1].xyz,
-                                   prim->verts[i].xyz,
-                                   cur->front->plane)){
-          cur = cur->front;
-          cur->front = NULL;
-          cur->back = NULL;
-        }
-      }
-      if(cur->front == NULL){
-        cur->front = (GL2PSbsptree2d*)gl2psMalloc(sizeof(GL2PSbsptree2d));
-      }
-      if(gl2psGetPlaneFromPoints(prim->verts[offset].xyz,
-                                 prim->verts[i].xyz,
-                                 cur->front->plane)){
-        cur->front->front = NULL;
-        cur->front->back = NULL;
-      }
-      else{
-        gl2psFree(cur->front);
-        cur->front = NULL;
-      }
-      break;
-    default:
-      gl2psFree(head);
-      return;
-    }
-    (*tree) = head;
-  }
-}
-
-static GLint gl2psCheckPrimitive(GL2PSprimitive *prim, GL2PSplane plane)
-{
-  GLint i;
-  GLint pos;
-
-  pos = gl2psCheckPoint(prim->verts[0].xyz, plane);
-  for(i = 1; i < prim->numverts; i++){
-    pos |= gl2psCheckPoint(prim->verts[i].xyz, plane);
-    if(pos == (GL2PS_POINT_INFRONT | GL2PS_POINT_BACK)) return GL2PS_SPANNING;
-  }
-  if(pos & GL2PS_POINT_INFRONT)   return GL2PS_IN_FRONT_OF;
-  else if(pos & GL2PS_POINT_BACK) return GL2PS_IN_BACK_OF;
-  else                            return GL2PS_COINCIDENT;
-}
-
-static GL2PSprimitive *gl2psCreateSplitPrimitive2D(GL2PSprimitive *parent,
-                                                   GLshort numverts,
-                                                   GL2PSvertex *vertx)
-{
-  GLint i;
-  GL2PSprimitive *child = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-
-  if(parent->type == GL2PS_IMAGEMAP){
-    child->type = GL2PS_IMAGEMAP;
-    child->data.image = parent->data.image;
-  }
-  else {
-    switch(numverts){
-    case 1 : child->type = GL2PS_POINT; break;
-    case 2 : child->type = GL2PS_LINE; break;
-    case 3 : child->type = GL2PS_TRIANGLE; break;
-    case 4 : child->type = GL2PS_QUADRANGLE; break;
-    default: child->type = GL2PS_NO_TYPE; break; /* FIXME */
-    }
-  }
-  child->boundary = 0; /* FIXME: not done! */
-  child->culled = parent->culled;
-  child->offset = parent->offset;
-  child->pattern = parent->pattern;
-  child->factor = parent->factor;
-  child->width = parent->width;
-  child->numverts = numverts;
-  child->verts = (GL2PSvertex*)gl2psMalloc(numverts * sizeof(GL2PSvertex));
-  for(i = 0; i < numverts; i++){
-    child->verts[i] = vertx[i];
-  }
-  return child;
-}
-
-static void gl2psSplitPrimitive2D(GL2PSprimitive *prim,
-                                  GL2PSplane plane,
-                                  GL2PSprimitive **front,
-                                  GL2PSprimitive **back)
-{
-  /* cur will hold the position of the current vertex
-     prev will hold the position of the previous vertex
-     prev0 will hold the position of the vertex number 0
-     v1 and v2 represent the current and previous vertices, respectively
-     flag is set if the current vertex should be checked against the plane */
-  GLint cur = -1, prev = -1, i, v1 = 0, v2 = 0, flag = 1, prev0 = -1;
-
-  /* list of vertices that will go in front and back primitive */
-  GL2PSvertex *front_list = NULL, *back_list = NULL;
-
-  /* number of vertices in front and back list */
-  GLshort front_count = 0, back_count = 0;
-
-  for(i = 0; i <= prim->numverts; i++){
-    v1 = i;
-    if(v1 == prim->numverts){
-      if(prim->numverts < 3) break;
-      v1 = 0;
-      v2 = prim->numverts - 1;
-      cur = prev0;
-    }
-    else if(flag){
-      cur = gl2psCheckPoint(prim->verts[v1].xyz, plane);
-      if(i == 0){
-        prev0 = cur;
-      }
-    }
-    if(((prev == -1) || (prev == cur) || (prev == 0) || (cur == 0)) &&
-       (i < prim->numverts)){
-      if(cur == GL2PS_POINT_INFRONT){
-        front_count++;
-        front_list = (GL2PSvertex*)gl2psRealloc(front_list,
-                                                sizeof(GL2PSvertex)*front_count);
-        front_list[front_count-1] = prim->verts[v1];
-      }
-      else if(cur == GL2PS_POINT_BACK){
-        back_count++;
-        back_list = (GL2PSvertex*)gl2psRealloc(back_list,
-                                               sizeof(GL2PSvertex)*back_count);
-        back_list[back_count-1] = prim->verts[v1];
-      }
-      else{
-        front_count++;
-        front_list = (GL2PSvertex*)gl2psRealloc(front_list,
-                                                sizeof(GL2PSvertex)*front_count);
-        front_list[front_count-1] = prim->verts[v1];
-        back_count++;
-        back_list = (GL2PSvertex*)gl2psRealloc(back_list,
-                                               sizeof(GL2PSvertex)*back_count);
-        back_list[back_count-1] = prim->verts[v1];
-      }
-      flag = 1;
-    }
-    else if((prev != cur) && (cur != 0) && (prev != 0)){
-      if(v1 != 0){
-        v2 = v1-1;
-        i--;
-      }
-      front_count++;
-      front_list = (GL2PSvertex*)gl2psRealloc(front_list,
-                                              sizeof(GL2PSvertex)*front_count);
-      gl2psCutEdge(&prim->verts[v2], &prim->verts[v1],
-                   plane, &front_list[front_count-1]);
-      back_count++;
-      back_list = (GL2PSvertex*)gl2psRealloc(back_list,
-                                             sizeof(GL2PSvertex)*back_count);
-      back_list[back_count-1] = front_list[front_count-1];
-      flag = 0;
-    }
-    prev = cur;
-  }
-  *front = gl2psCreateSplitPrimitive2D(prim, front_count, front_list);
-  *back = gl2psCreateSplitPrimitive2D(prim, back_count, back_list);
-  gl2psFree(front_list);
-  gl2psFree(back_list);
-}
-
-static GLint gl2psAddInBspImageTree(GL2PSprimitive *prim, GL2PSbsptree2d **tree)
-{
-  GLint ret = 0;
-  GL2PSprimitive *frontprim = NULL, *backprim = NULL;
-
-  /* FIXME: until we consider the actual extent of text strings and
-     pixmaps, never cull them. Otherwise the whole string/pixmap gets
-     culled as soon as the reference point is hidden */
-  if(prim->type == GL2PS_PIXMAP ||
-     prim->type == GL2PS_TEXT ||
-     prim->type == GL2PS_SPECIAL){
-    return 1;
-  }
-
-  if(*tree == NULL){
-    if((prim->type != GL2PS_IMAGEMAP) && (GL_FALSE == gl2ps->zerosurfacearea)){
-      gl2psAddPlanesInBspTreeImage(gl2ps->primitivetoadd, tree);
-    }
-    return 1;
-  }
-  else{
-    switch(gl2psCheckPrimitive(prim, (*tree)->plane)){
-    case GL2PS_IN_BACK_OF: return gl2psAddInBspImageTree(prim, &(*tree)->back);
-    case GL2PS_IN_FRONT_OF:
-      if((*tree)->front != NULL) return gl2psAddInBspImageTree(prim, &(*tree)->front);
-      else                       return 0;
-    case GL2PS_SPANNING:
-      gl2psSplitPrimitive2D(prim, (*tree)->plane, &frontprim, &backprim);
-      ret = gl2psAddInBspImageTree(backprim, &(*tree)->back);
-      if((*tree)->front != NULL){
-        if(gl2psAddInBspImageTree(frontprim, &(*tree)->front)){
-          ret = 1;
-        }
-      }
-      gl2psFree(frontprim->verts);
-      gl2psFree(frontprim);
-      gl2psFree(backprim->verts);
-      gl2psFree(backprim);
-      return ret;
-    case GL2PS_COINCIDENT:
-      if((*tree)->back != NULL){
-        gl2ps->zerosurfacearea = GL_TRUE;
-        ret = gl2psAddInBspImageTree(prim, &(*tree)->back);
-        gl2ps->zerosurfacearea = GL_FALSE;
-        if(ret) return ret;
-      }
-      if((*tree)->front != NULL){
-        gl2ps->zerosurfacearea = GL_TRUE;
-        ret = gl2psAddInBspImageTree(prim, &(*tree)->front);
-        gl2ps->zerosurfacearea = GL_FALSE;
-        if(ret) return ret;
-      }
-      if(prim->type == GL2PS_LINE) return 1;
-      else                         return 0;
-    }
-  }
-  return 0;
-}
-
-static void gl2psAddInImageTree(void *data)
-{
-  GL2PSprimitive *prim = *(GL2PSprimitive **)data;
-  gl2ps->primitivetoadd = prim;
-  if(prim->type == GL2PS_IMAGEMAP && prim->data.image->format == GL2PS_IMAGEMAP_VISIBLE){
-    prim->culled = 1;
-  }
-  else if(!gl2psAddInBspImageTree(prim, &gl2ps->imagetree)){
-    prim->culled = 1;
-  }
-  else if(prim->type == GL2PS_IMAGEMAP){
-    prim->data.image->format = GL2PS_IMAGEMAP_VISIBLE;
-  }
-}
-
-/* Boundary construction */
-
-static void gl2psAddBoundaryInList(GL2PSprimitive *prim, GL2PSlist *list)
-{
-  GL2PSprimitive *b;
-  GLshort i;
-  GL2PSxyz c;
-
-  c[0] = c[1] = c[2] = 0.0F;
-  for(i = 0; i < prim->numverts; i++){
-    c[0] += prim->verts[i].xyz[0];
-    c[1] += prim->verts[i].xyz[1];
-  }
-  c[0] /= prim->numverts;
-  c[1] /= prim->numverts;
-
-  for(i = 0; i < prim->numverts; i++){
-    if(prim->boundary & (GLint)pow(2., i)){
-      b = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-      b->type = GL2PS_LINE;
-      b->offset = prim->offset;
-      b->pattern = prim->pattern;
-      b->factor = prim->factor;
-      b->culled = prim->culled;
-      b->width = prim->width;
-      b->boundary = 0;
-      b->numverts = 2;
-      b->verts = (GL2PSvertex*)gl2psMalloc(2 * sizeof(GL2PSvertex));
-
-#if 0 /* FIXME: need to work on boundary offset... */
-      v[0] = c[0] - prim->verts[i].xyz[0];
-      v[1] = c[1] - prim->verts[i].xyz[1];
-      v[2] = 0.0F;
-      norm = gl2psNorm(v);
-      v[0] /= norm;
-      v[1] /= norm;
-      b->verts[0].xyz[0] = prim->verts[i].xyz[0] +0.1*v[0];
-      b->verts[0].xyz[1] = prim->verts[i].xyz[1] +0.1*v[1];
-      b->verts[0].xyz[2] = prim->verts[i].xyz[2];
-      v[0] = c[0] - prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[0];
-      v[1] = c[1] - prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[1];
-      norm = gl2psNorm(v);
-      v[0] /= norm;
-      v[1] /= norm;
-      b->verts[1].xyz[0] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[0] +0.1*v[0];
-      b->verts[1].xyz[1] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[1] +0.1*v[1];
-      b->verts[1].xyz[2] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[2];
-#else
-      b->verts[0].xyz[0] = prim->verts[i].xyz[0];
-      b->verts[0].xyz[1] = prim->verts[i].xyz[1];
-      b->verts[0].xyz[2] = prim->verts[i].xyz[2];
-      b->verts[1].xyz[0] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[0];
-      b->verts[1].xyz[1] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[1];
-      b->verts[1].xyz[2] = prim->verts[gl2psGetIndex(i, prim->numverts)].xyz[2];
-#endif
-
-      b->verts[0].rgba[0] = 0.0F;
-      b->verts[0].rgba[1] = 0.0F;
-      b->verts[0].rgba[2] = 0.0F;
-      b->verts[0].rgba[3] = 0.0F;
-      b->verts[1].rgba[0] = 0.0F;
-      b->verts[1].rgba[1] = 0.0F;
-      b->verts[1].rgba[2] = 0.0F;
-      b->verts[1].rgba[3] = 0.0F;
-      gl2psListAdd(list, &b);
-    }
-  }
-
-}
-
-static void gl2psBuildPolygonBoundary(GL2PSbsptree *tree)
-{
-  GLint i;
-  GL2PSprimitive *prim;
-
-  if(!tree) return;
-  gl2psBuildPolygonBoundary(tree->back);
-  for(i = 0; i < gl2psListNbr(tree->primitives); i++){
-    prim = *(GL2PSprimitive**)gl2psListPointer(tree->primitives, i);
-    if(prim->boundary) gl2psAddBoundaryInList(prim, tree->primitives);
-  }
-  gl2psBuildPolygonBoundary(tree->front);
-}
-
-/*********************************************************************
- *
- * Feedback buffer parser
- *
- *********************************************************************/
-
-static void gl2psAddPolyPrimitive(GLshort type, GLshort numverts,
-                                  GL2PSvertex *verts, GLint offset,
-                                  GLushort pattern, GLint factor,
-                                  GLfloat width, char boundary)
-{
-  GL2PSprimitive *prim;
-
-  prim = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-  prim->type = type;
-  prim->numverts = numverts;
-  prim->verts = (GL2PSvertex*)gl2psMalloc(numverts * sizeof(GL2PSvertex));
-  memcpy(prim->verts, verts, numverts * sizeof(GL2PSvertex));
-  prim->boundary = boundary;
-  prim->offset = offset;
-  prim->pattern = pattern;
-  prim->factor = factor;
-  prim->width = width;
-  prim->culled = 0;
-
-  /* FIXME: here we should have an option to split stretched
-     tris/quads to enhance SIMPLE_SORT */
-
-  gl2psListAdd(gl2ps->primitives, &prim);
-}
-
-static GLint gl2psGetVertex(GL2PSvertex *v, GLfloat *p)
-{
-  GLint i;
-
-  v->xyz[0] = p[0];
-  v->xyz[1] = p[1];
-  v->xyz[2] = p[2];
-
-  if(gl2ps->colormode == GL_COLOR_INDEX && gl2ps->colorsize > 0){
-    i = (GLint)(p[3] + 0.5);
-    v->rgba[0] = gl2ps->colormap[i][0];
-    v->rgba[1] = gl2ps->colormap[i][1];
-    v->rgba[2] = gl2ps->colormap[i][2];
-    v->rgba[3] = gl2ps->colormap[i][3];
-    return 4;
-  }
-  else{
-    v->rgba[0] = p[3];
-    v->rgba[1] = p[4];
-    v->rgba[2] = p[5];
-    v->rgba[3] = p[6];
-    return 7;
-  }
-}
-
-static void gl2psParseFeedbackBuffer(GLint used)
-{
-  char flag;
-  GLushort pattern = 0;
-  GLboolean boundary;
-  GLint i, sizeoffloat, count, v, vtot, offset = 0, factor = 0, auxindex = 0;
-  GLfloat lwidth = 1.0F, psize = 1.0F;
-  GLfloat *current;
-  GL2PSvertex vertices[3];
-  GL2PSprimitive *prim;
-  GL2PSimagemap *node;
-
-  current = gl2ps->feedback;
-  boundary = gl2ps->boundary = GL_FALSE;
-
-  while(used > 0){
-
-    if(GL_TRUE == boundary) gl2ps->boundary = GL_TRUE;
-
-    switch((GLint)*current){
-    case GL_POINT_TOKEN :
-      current ++;
-      used --;
-      i = gl2psGetVertex(&vertices[0], current);
-      current += i;
-      used    -= i;
-      gl2psAddPolyPrimitive(GL2PS_POINT, 1, vertices, 0,
-                            pattern, factor, psize, 0);
-      break;
-    case GL_LINE_TOKEN :
-    case GL_LINE_RESET_TOKEN :
-      current ++;
-      used --;
-      i = gl2psGetVertex(&vertices[0], current);
-      current += i;
-      used    -= i;
-      i = gl2psGetVertex(&vertices[1], current);
-      current += i;
-      used    -= i;
-      gl2psAddPolyPrimitive(GL2PS_LINE, 2, vertices, 0,
-                            pattern, factor, lwidth, 0);
-      break;
-    case GL_POLYGON_TOKEN :
-      count = (GLint)current[1];
-      current += 2;
-      used -= 2;
-      v = vtot = 0;
-      while(count > 0 && used > 0){
-        i = gl2psGetVertex(&vertices[v], current);
-        gl2psAdaptVertexForBlending(&vertices[v]);
-        current += i;
-        used    -= i;
-        count --;
-        vtot++;
-        if(v == 2){
-          if(GL_TRUE == boundary){
-            if(!count && vtot == 2) flag = 1|2|4;
-            else if(!count) flag = 2|4;
-            else if(vtot == 2) flag = 1|2;
-            else flag = 2;
-          }
-          else
-            flag = 0;
-          gl2psAddPolyPrimitive(GL2PS_TRIANGLE, 3, vertices, offset,
-                                pattern, factor, 1, flag);
-          vertices[1] = vertices[2];
-        }
-        else
-          v ++;
-      }
-      break;
-    case GL_BITMAP_TOKEN :
-    case GL_DRAW_PIXEL_TOKEN :
-    case GL_COPY_PIXEL_TOKEN :
-      current ++;
-      used --;
-      i = gl2psGetVertex(&vertices[0], current);
-      current += i;
-      used    -= i;
-      break;
-    case GL_PASS_THROUGH_TOKEN :
-      switch((GLint)current[1]){
-      case GL2PS_BEGIN_OFFSET_TOKEN : offset = 1; break;
-      case GL2PS_END_OFFSET_TOKEN : offset = 0; break;
-      case GL2PS_BEGIN_BOUNDARY_TOKEN : boundary = GL_TRUE; break;
-      case GL2PS_END_BOUNDARY_TOKEN : boundary = GL_FALSE; break;
-      case GL2PS_END_STIPPLE_TOKEN : pattern = factor = 0; break;
-      case GL2PS_BEGIN_BLEND_TOKEN : gl2ps->blending = GL_TRUE; break;
-      case GL2PS_END_BLEND_TOKEN : gl2ps->blending = GL_FALSE; break;
-      case GL2PS_BEGIN_STIPPLE_TOKEN :
-        current += 2;
-        used -= 2;
-        pattern = (GLushort)current[1];
-        current += 2;
-        used -= 2;
-        factor = (GLint)current[1];
-        break;
-      case GL2PS_SRC_BLEND_TOKEN :
-        current += 2;
-        used -= 2;
-        gl2ps->blendfunc[0] = (GLint)current[1];
-        break;
-      case GL2PS_DST_BLEND_TOKEN :
-        current += 2;
-        used -= 2;
-        gl2ps->blendfunc[1] = (GLint)current[1];
-        break;
-      case GL2PS_POINT_SIZE_TOKEN :
-        current += 2;
-        used -= 2;
-        psize = current[1];
-        break;
-      case GL2PS_LINE_WIDTH_TOKEN :
-        current += 2;
-        used -= 2;
-        lwidth = current[1];
-        break;
-      case GL2PS_IMAGEMAP_TOKEN :
-        prim = (GL2PSprimitive *)gl2psMalloc(sizeof(GL2PSprimitive));
-        prim->type = GL2PS_IMAGEMAP;
-        prim->boundary = 0;
-        prim->numverts = 4;
-        prim->verts = (GL2PSvertex *)gl2psMalloc(4 * sizeof(GL2PSvertex));
-        prim->culled = 0;
-        prim->offset = 0;
-        prim->pattern = 0;
-        prim->factor = 0;
-        prim->width = 1;
-
-        node = (GL2PSimagemap*)gl2psMalloc(sizeof(GL2PSimagemap));
-        node->image = (GL2PSimage*)gl2psMalloc(sizeof(GL2PSimage));
-        node->image->type = 0;
-        node->image->format = 0;
-        node->image->zoom_x = 1.0F;
-        node->image->zoom_y = 1.0F;
-        node->next = NULL;
-
-        if(gl2ps->imagemap_head == NULL)
-          gl2ps->imagemap_head = node;
-        else
-          gl2ps->imagemap_tail->next = node;
-        gl2ps->imagemap_tail = node;
-        prim->data.image = node->image;
-
-        current += 2; used -= 2;
-        i = gl2psGetVertex(&prim->verts[0], &current[1]);
-        current += i; used -= i;
-
-        node->image->width = (GLint)current[2];
-        current += 2; used -= 2;
-        node->image->height = (GLint)current[2];
-        prim->verts[0].xyz[0] = prim->verts[0].xyz[0] - (int)(node->image->width / 2) + 0.5F;
-        prim->verts[0].xyz[1] = prim->verts[0].xyz[1] - (int)(node->image->height / 2) + 0.5F;
-        for(i = 1; i < 4; i++){
-          for(v = 0; v < 3; v++){
-            prim->verts[i].xyz[v] = prim->verts[0].xyz[v];
-            prim->verts[i].rgba[v] = prim->verts[0].rgba[v];
-          }
-          prim->verts[i].rgba[v] = prim->verts[0].rgba[v];
-        }
-        prim->verts[1].xyz[0] = prim->verts[1].xyz[0] + node->image->width;
-        prim->verts[2].xyz[0] = prim->verts[1].xyz[0];
-        prim->verts[2].xyz[1] = prim->verts[2].xyz[1] + node->image->height;
-        prim->verts[3].xyz[1] = prim->verts[2].xyz[1];
-
-        sizeoffloat = sizeof(GLfloat);
-        v = 2 * sizeoffloat;
-        vtot = node->image->height + node->image->height *
-          ((node->image->width - 1) / 8);
-        node->image->pixels = (GLfloat*)gl2psMalloc(v + vtot);
-        node->image->pixels[0] = prim->verts[0].xyz[0];
-        node->image->pixels[1] = prim->verts[0].xyz[1];
-
-        for(i = 0; i < vtot; i += sizeoffloat){
-          current += 2; used -= 2;
-          if((vtot - i) >= 4)
-            memcpy(&(((char*)(node->image->pixels))[i + v]), &(current[2]), sizeoffloat);
-          else
-            memcpy(&(((char*)(node->image->pixels))[i + v]), &(current[2]), vtot - i);
-        }
-        current++; used--;
-        gl2psListAdd(gl2ps->primitives, &prim);
-        break;
-      case GL2PS_DRAW_PIXELS_TOKEN :
-      case GL2PS_TEXT_TOKEN :
-        if(auxindex < gl2psListNbr(gl2ps->auxprimitives))
-          gl2psListAdd(gl2ps->primitives,
-                       gl2psListPointer(gl2ps->auxprimitives, auxindex++));
-        else
-          gl2psMsg(GL2PS_ERROR, "Wrong number of auxiliary tokens in buffer");
-        break;
-      }
-      current += 2;
-      used -= 2;
-      break;
-    default :
-      gl2psMsg(GL2PS_WARNING, "Unknown token in buffer");
-      current ++;
-      used --;
-      break;
-    }
-  }
-
-  gl2psListReset(gl2ps->auxprimitives);
-}
-
-/*********************************************************************
- *
- * PostScript routines
- *
- *********************************************************************/
-
-static void gl2psWriteByte(unsigned char byte)
-{
-  unsigned char h = byte / 16;
-  unsigned char l = byte % 16;
-  gl2psPrintf("%x%x", h, l);
-}
-
-static void gl2psPrintPostScriptPixmap(GLfloat x, GLfloat y, GL2PSimage *im)
-{
-  GLuint nbhex, nbyte, nrgb, nbits;
-  GLuint row, col, ibyte, icase;
-  GLfloat dr, dg, db, fgrey;
-  unsigned char red = 0, green = 0, blue = 0, b, grey;
-  GLuint width = (GLuint)im->width;
-  GLuint height = (GLuint)im->height;
-
-  /* FIXME: should we define an option for these? Or just keep the
-     8-bit per component case? */
-  int greyscale = 0; /* set to 1 to output greyscale image */
-  int nbit = 8; /* number of bits per color compoment (2, 4 or 8) */
-
-  if((width <= 0) || (height <= 0)) return;
-
-  gl2psPrintf("gsave\n");
-  gl2psPrintf("%.2f %.2f translate\n", x, y);
-  gl2psPrintf("%.2f %.2f scale\n", width * im->zoom_x, height * im->zoom_y);
-
-  if(greyscale){ /* greyscale */
-    gl2psPrintf("/picstr %d string def\n", width);
-    gl2psPrintf("%d %d %d\n", width, height, 8);
-    gl2psPrintf("[ %d 0 0 -%d 0 %d ]\n", width, height, height);
-    gl2psPrintf("{ currentfile picstr readhexstring pop }\n");
-    gl2psPrintf("image\n");
-    for(row = 0; row < height; row++){
-      for(col = 0; col < width; col++){
-        gl2psGetRGB(im, col, row, &dr, &dg, &db);
-        fgrey = (0.30F * dr + 0.59F * dg + 0.11F * db);
-        grey = (unsigned char)(255. * fgrey);
-        gl2psWriteByte(grey);
-      }
-      gl2psPrintf("\n");
-    }
-    nbhex = width * height * 2;
-    gl2psPrintf("%%%% nbhex digit          :%d\n", nbhex);
-  }
-  else if(nbit == 2){ /* color, 2 bits for r and g and b; rgbs following each other */
-    nrgb = width  * 3;
-    nbits = nrgb * nbit;
-    nbyte = nbits / 8;
-    if((nbyte * 8) != nbits) nbyte++;
-    gl2psPrintf("/rgbstr %d string def\n", nbyte);
-    gl2psPrintf("%d %d %d\n", width, height, nbit);
-    gl2psPrintf("[ %d 0 0 -%d 0 %d ]\n", width, height, height);
-    gl2psPrintf("{ currentfile rgbstr readhexstring pop }\n");
-    gl2psPrintf("false 3\n");
-    gl2psPrintf("colorimage\n");
-    for(row = 0; row < height; row++){
-      icase = 1;
-      col = 0;
-      b = 0;
-      for(ibyte = 0; ibyte < nbyte; ibyte++){
-        if(icase == 1) {
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(3. * dr);
-          green = (unsigned char)(3. * dg);
-          blue = (unsigned char)(3. * db);
-          b = red;
-          b = (b<<2) + green;
-          b = (b<<2) + blue;
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(3. * dr);
-          green = (unsigned char)(3. * dg);
-          blue = (unsigned char)(3. * db);
-          b = (b<<2) + red;
-          gl2psWriteByte(b);
-          b = 0;
-          icase++;
-        }
-        else if(icase == 2) {
-          b = green;
-          b = (b<<2) + blue;
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(3. * dr);
-          green = (unsigned char)(3. * dg);
-          blue = (unsigned char)(3. * db);
-          b = (b<<2) + red;
-          b = (b<<2) + green;
-          gl2psWriteByte(b);
-          b = 0;
-          icase++;
-        }
-        else if(icase == 3) {
-          b = blue;
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(3. * dr);
-          green = (unsigned char)(3. * dg);
-          blue = (unsigned char)(3. * db);
-          b = (b<<2) + red;
-          b = (b<<2) + green;
-          b = (b<<2) + blue;
-          gl2psWriteByte(b);
-          b = 0;
-          icase = 1;
-        }
-      }
-      gl2psPrintf("\n");
-    }
-  }
-  else if(nbit == 4){ /* color, 4 bits for r and g and b; rgbs following each other */
-    nrgb = width  * 3;
-    nbits = nrgb * nbit;
-    nbyte = nbits / 8;
-    if((nbyte * 8) != nbits) nbyte++;
-    gl2psPrintf("/rgbstr %d string def\n", nbyte);
-    gl2psPrintf("%d %d %d\n", width, height, nbit);
-    gl2psPrintf("[ %d 0 0 -%d 0 %d ]\n", width, height, height);
-    gl2psPrintf("{ currentfile rgbstr readhexstring pop }\n");
-    gl2psPrintf("false 3\n");
-    gl2psPrintf("colorimage\n");
-    for(row = 0; row < height; row++){
-      col = 0;
-      icase = 1;
-      for(ibyte = 0; ibyte < nbyte; ibyte++){
-        if(icase == 1) {
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(15. * dr);
-          green = (unsigned char)(15. * dg);
-          gl2psPrintf("%x%x", red, green);
-          icase++;
-        }
-        else if(icase == 2) {
-          blue = (unsigned char)(15. * db);
-          if(col < width) {
-            gl2psGetRGB(im, col, row, &dr, &dg, &db);
-          }
-          else {
-            dr = dg = db = 0;
-          }
-          col++;
-          red = (unsigned char)(15. * dr);
-          gl2psPrintf("%x%x", blue, red);
-          icase++;
-        }
-        else if(icase == 3) {
-          green = (unsigned char)(15. * dg);
-          blue = (unsigned char)(15. * db);
-          gl2psPrintf("%x%x", green, blue);
-          icase = 1;
-        }
-      }
-      gl2psPrintf("\n");
-    }
-  }
-  else{ /* 8 bit for r and g and b */
-    nbyte = width * 3;
-    gl2psPrintf("/rgbstr %d string def\n", nbyte);
-    gl2psPrintf("%d %d %d\n", width, height, 8);
-    gl2psPrintf("[ %d 0 0 -%d 0 %d ]\n", width, height, height);
-    gl2psPrintf("{ currentfile rgbstr readhexstring pop }\n");
-    gl2psPrintf("false 3\n");
-    gl2psPrintf("colorimage\n");
-    for(row = 0; row < height; row++){
-      for(col = 0; col < width; col++){
-        gl2psGetRGB(im, col, row, &dr, &dg, &db);
-        red = (unsigned char)(255. * dr);
-        gl2psWriteByte(red);
-        green = (unsigned char)(255. * dg);
-        gl2psWriteByte(green);
-        blue = (unsigned char)(255. * db);
-        gl2psWriteByte(blue);
-      }
-      gl2psPrintf("\n");
-    }
-  }
-
-  gl2psPrintf("grestore\n");
-}
-
-static void gl2psPrintPostScriptImagemap(GLfloat x, GLfloat y,
-                                         GLsizei width, GLsizei height,
-                                         const unsigned char *imagemap){
-  int i, size;
-
-  if((width <= 0) || (height <= 0)) return;
-
-  size = height + height * (width - 1) / 8;
-
-  gl2psPrintf("gsave\n");
-  gl2psPrintf("%.2f %.2f translate\n", x, y);
-  gl2psPrintf("%d %d scale\n%d %d\ntrue\n", width, height,width, height);
-  gl2psPrintf("[ %d 0 0 -%d 0 %d ] {<", width, height);
-  for(i = 0; i < size; i++){
-    gl2psWriteByte(*imagemap);
-    imagemap++;
-  }
-  gl2psPrintf(">} imagemask\ngrestore\n");
-}
-
-static void gl2psPrintPostScriptHeader(void)
-{
-  time_t now;
-
-  /* Since compression is not part of the PostScript standard,
-     compressed PostScript files are just gzipped PostScript files
-     ("ps.gz" or "eps.gz") */
-  gl2psPrintGzipHeader();
-
-  time(&now);
-
-  if(gl2ps->format == GL2PS_PS){
-    gl2psPrintf("%%!PS-Adobe-3.0\n");
-  }
-  else{
-    gl2psPrintf("%%!PS-Adobe-3.0 EPSF-3.0\n");
-  }
-
-  gl2psPrintf("%%%%Title: %s\n"
-              "%%%%Creator: GL2PS %d.%d.%d%s, %s\n"
-              "%%%%For: %s\n"
-              "%%%%CreationDate: %s"
-              "%%%%LanguageLevel: 3\n"
-              "%%%%DocumentData: Clean7Bit\n"
-              "%%%%Pages: 1\n",
-              gl2ps->title, GL2PS_MAJOR_VERSION, GL2PS_MINOR_VERSION,
-              GL2PS_PATCH_VERSION, GL2PS_EXTRA_VERSION, GL2PS_COPYRIGHT,
-              gl2ps->producer, ctime(&now));
-
-  if(gl2ps->format == GL2PS_PS){
-    gl2psPrintf("%%%%Orientation: %s\n"
-                "%%%%DocumentMedia: Default %d %d 0 () ()\n",
-                (gl2ps->options & GL2PS_LANDSCAPE) ? "Landscape" : "Portrait",
-                (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[3] :
-                (int)gl2ps->viewport[2],
-                (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[2] :
-                (int)gl2ps->viewport[3]);
-  }
-
-  gl2psPrintf("%%%%BoundingBox: %d %d %d %d\n"
-              "%%%%EndComments\n",
-              (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[1] :
-              (int)gl2ps->viewport[0],
-              (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[0] :
-              (int)gl2ps->viewport[1],
-              (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[3] :
-              (int)gl2ps->viewport[2],
-              (gl2ps->options & GL2PS_LANDSCAPE) ? (int)gl2ps->viewport[2] :
-              (int)gl2ps->viewport[3]);
-
-  /* RGB color: r g b C (replace C by G in output to change from rgb to gray)
-     Grayscale: r g b G
-     Font choose: size fontname FC
-     Text string: (string) x y size fontname S??
-     Rotated text string: (string) angle x y size fontname S??R
-     Point primitive: x y size P
-     Line width: width W
-     Line start: x y LS
-     Line joining last point: x y L
-     Line end: x y LE
-     Flat-shaded triangle: x3 y3 x2 y2 x1 y1 T
-     Smooth-shaded triangle: x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 ST */
-
-  gl2psPrintf("%%%%BeginProlog\n"
-              "/gl2psdict 64 dict def gl2psdict begin\n"
-              "0 setlinecap 0 setlinejoin\n"
-              "/tryPS3shading %s def %% set to false to force subdivision\n"
-              "/rThreshold %g def %% red component subdivision threshold\n"
-              "/gThreshold %g def %% green component subdivision threshold\n"
-              "/bThreshold %g def %% blue component subdivision threshold\n",
-              (gl2ps->options & GL2PS_NO_PS3_SHADING) ? "false" : "true",
-              gl2ps->threshold[0], gl2ps->threshold[1], gl2ps->threshold[2]);
-
-  gl2psPrintf("/BD { bind def } bind def\n"
-              "/C  { setrgbcolor } BD\n"
-              "/G  { 0.082 mul exch 0.6094 mul add exch 0.3086 mul add neg 1.0 add setgray } BD\n"
-              "/W  { setlinewidth } BD\n");
-
-  gl2psPrintf("/FC { findfont exch /SH exch def SH scalefont setfont } BD\n"
-              "/SW { dup stringwidth pop } BD\n"
-              "/S  { FC moveto show } BD\n"
-              "/SBC{ FC moveto SW -2 div 0 rmoveto show } BD\n"
-              "/SBR{ FC moveto SW neg 0 rmoveto show } BD\n"
-              "/SCL{ FC moveto 0 SH -2 div rmoveto show } BD\n"
-              "/SCC{ FC moveto SW -2 div SH -2 div rmoveto show } BD\n"
-              "/SCR{ FC moveto SW neg SH -2 div rmoveto show } BD\n"
-              "/STL{ FC moveto 0 SH neg rmoveto show } BD\n"
-              "/STC{ FC moveto SW -2 div SH neg rmoveto show } BD\n"
-              "/STR{ FC moveto SW neg SH neg rmoveto show } BD\n");
-
-  /* rotated text routines: same nameanem with R appended */
-
-  gl2psPrintf("/FCT { FC translate 0 0 } BD\n"
-              "/SR  { gsave FCT moveto rotate show grestore } BD\n"
-              "/SBCR{ gsave FCT moveto rotate SW -2 div 0 rmoveto show grestore } BD\n"
-              "/SBRR{ gsave FCT moveto rotate SW neg 0 rmoveto show grestore } BD\n"
-              "/SCLR{ gsave FCT moveto rotate 0 SH -2 div rmoveto show grestore} BD\n");
-  gl2psPrintf("/SCCR{ gsave FCT moveto rotate SW -2 div SH -2 div rmoveto show grestore} BD\n"
-              "/SCRR{ gsave FCT moveto rotate SW neg SH -2 div rmoveto show grestore} BD\n"
-              "/STLR{ gsave FCT moveto rotate 0 SH neg rmoveto show grestore } BD\n"
-              "/STCR{ gsave FCT moveto rotate SW -2 div SH neg rmoveto show grestore } BD\n"
-              "/STRR{ gsave FCT moveto rotate SW neg SH neg rmoveto show grestore } BD\n");
-
-  gl2psPrintf("/P  { newpath 0.0 360.0 arc closepath fill } BD\n"
-              "/LS { newpath moveto } BD\n"
-              "/L  { lineto } BD\n"
-              "/LE { lineto stroke } BD\n"
-              "/T  { newpath moveto lineto lineto closepath fill } BD\n");
-
-  /* Smooth-shaded triangle with PostScript level 3 shfill operator:
-        x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 STshfill */
-
-  gl2psPrintf("/STshfill {\n"
-              "      /b1 exch def /g1 exch def /r1 exch def /y1 exch def /x1 exch def\n"
-              "      /b2 exch def /g2 exch def /r2 exch def /y2 exch def /x2 exch def\n"
-              "      /b3 exch def /g3 exch def /r3 exch def /y3 exch def /x3 exch def\n"
-              "      gsave << /ShadingType 4 /ColorSpace [/DeviceRGB]\n"
-              "      /DataSource [ 0 x1 y1 r1 g1 b1 0 x2 y2 r2 g2 b2 0 x3 y3 r3 g3 b3 ] >>\n"
-              "      shfill grestore } BD\n");
-
-  /* Flat-shaded triangle with middle color:
-        x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 Tm */
-
-  gl2psPrintf(/* stack : x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 */
-              "/Tm { 3 -1 roll 8 -1 roll 13 -1 roll add add 3 div\n" /* r = (r1+r2+r3)/3 */
-              /* stack : x3 y3 g3 b3 x2 y2 g2 b2 x1 y1 g1 b1 r */
-              "      3 -1 roll 7 -1 roll 11 -1 roll add add 3 div\n" /* g = (g1+g2+g3)/3 */
-              /* stack : x3 y3 b3 x2 y2 b2 x1 y1 b1 r g b */
-              "      3 -1 roll 6 -1 roll 9 -1 roll add add 3 div" /* b = (b1+b2+b3)/3 */
-              /* stack : x3 y3 x2 y2 x1 y1 r g b */
-              " C T } BD\n");
-
-  /* Split triangle in four sub-triangles (at sides middle points) and call the
-     STnoshfill procedure on each, interpolating the colors in RGB space:
-        x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 STsplit
-     (in procedure comments key: (Vi) = xi yi ri gi bi) */
-
-  gl2psPrintf("/STsplit {\n"
-              "      4 index 15 index add 0.5 mul\n" /* x13 = (x1+x3)/2 */
-              "      4 index 15 index add 0.5 mul\n" /* y13 = (y1+y3)/2 */
-              "      4 index 15 index add 0.5 mul\n" /* r13 = (r1+r3)/2 */
-              "      4 index 15 index add 0.5 mul\n" /* g13 = (g1+g3)/2 */
-              "      4 index 15 index add 0.5 mul\n" /* b13 = (b1+b3)/2 */
-              "      5 copy 5 copy 25 15 roll\n");
-
-  /* at his point, stack = (V3) (V13) (V13) (V13) (V2) (V1) */
-
-  gl2psPrintf("      9 index 30 index add 0.5 mul\n" /* x23 = (x2+x3)/2 */
-              "      9 index 30 index add 0.5 mul\n" /* y23 = (y2+y3)/2 */
-              "      9 index 30 index add 0.5 mul\n" /* r23 = (r2+r3)/2 */
-              "      9 index 30 index add 0.5 mul\n" /* g23 = (g2+g3)/2 */
-              "      9 index 30 index add 0.5 mul\n" /* b23 = (b2+b3)/2 */
-              "      5 copy 5 copy 35 5 roll 25 5 roll 15 5 roll\n");
-
-  /* stack = (V3) (V13) (V23) (V13) (V23) (V13) (V23) (V2) (V1) */
-
-  gl2psPrintf("      4 index 10 index add 0.5 mul\n" /* x12 = (x1+x2)/2 */
-              "      4 index 10 index add 0.5 mul\n" /* y12 = (y1+y2)/2 */
-              "      4 index 10 index add 0.5 mul\n" /* r12 = (r1+r2)/2 */
-              "      4 index 10 index add 0.5 mul\n" /* g12 = (g1+g2)/2 */
-              "      4 index 10 index add 0.5 mul\n" /* b12 = (b1+b2)/2 */
-              "      5 copy 5 copy 40 5 roll 25 5 roll 15 5 roll 25 5 roll\n");
-
-  /* stack = (V3) (V13) (V23) (V13) (V12) (V23) (V13) (V1) (V12) (V23) (V12) (V2) */
-
-  gl2psPrintf("      STnoshfill STnoshfill STnoshfill STnoshfill } BD\n");
-
-  /* Gouraud shaded triangle using recursive subdivision until the difference
-     between corner colors does not exceed the thresholds:
-        x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 STnoshfill  */
-
-  gl2psPrintf("/STnoshfill {\n"
-              "      2 index 8 index sub abs rThreshold gt\n" /* |r1-r2|>rth */
-              "      { STsplit }\n"
-              "      { 1 index 7 index sub abs gThreshold gt\n" /* |g1-g2|>gth */
-              "        { STsplit }\n"
-              "        { dup 6 index sub abs bThreshold gt\n" /* |b1-b2|>bth */
-              "          { STsplit }\n"
-              "          { 2 index 13 index sub abs rThreshold gt\n" /* |r1-r3|>rht */
-              "            { STsplit }\n"
-              "            { 1 index 12 index sub abs gThreshold gt\n" /* |g1-g3|>gth */
-              "              { STsplit }\n"
-              "              { dup 11 index sub abs bThreshold gt\n" /* |b1-b3|>bth */
-              "                { STsplit }\n"
-              "                { 7 index 13 index sub abs rThreshold gt\n"); /* |r2-r3|>rht */
-  gl2psPrintf("                  { STsplit }\n"
-              "                  { 6 index 12 index sub abs gThreshold gt\n" /* |g2-g3|>gth */
-              "                    { STsplit }\n"
-              "                    { 5 index 11 index sub abs bThreshold gt\n" /* |b2-b3|>bth */
-              "                      { STsplit }\n"
-              "                      { Tm }\n" /* all colors sufficiently similar */
-              "                      ifelse }\n"
-              "                    ifelse }\n"
-              "                  ifelse }\n"
-              "                ifelse }\n"
-              "              ifelse }\n"
-              "            ifelse }\n"
-              "          ifelse }\n"
-              "        ifelse }\n"
-              "      ifelse } BD\n");
-
-  gl2psPrintf("tryPS3shading\n"
-              "{ /shfill where\n"
-              "  { /ST { STshfill } BD }\n"
-              "  { /ST { STnoshfill } BD }\n"
-              "  ifelse }\n"
-              "{ /ST { STnoshfill } BD }\n"
-              "ifelse\n");
-
-  gl2psPrintf("end\n"
-              "%%%%EndProlog\n"
-              "%%%%BeginSetup\n"
-              "/DeviceRGB setcolorspace\n"
-              "gl2psdict begin\n"
-              "%%%%EndSetup\n"
-              "%%%%Page: 1 1\n"
-              "%%%%BeginPageSetup\n");
-
-  if(gl2ps->options & GL2PS_LANDSCAPE){
-    gl2psPrintf("%d 0 translate 90 rotate\n",
-                (int)gl2ps->viewport[3]);
-  }
-
-  gl2psPrintf("%%%%EndPageSetup\n"
-              "mark\n"
-              "gsave\n"
-              "1.0 1.0 scale\n");
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    gl2psPrintf("%g %g %g C\n"
-                "newpath %d %d moveto %d %d lineto %d %d lineto %d %d lineto\n"
-                "closepath fill\n",
-                gl2ps->bgcolor[0], gl2ps->bgcolor[1], gl2ps->bgcolor[2],
-                (int)gl2ps->viewport[0], (int)gl2ps->viewport[1], (int)gl2ps->viewport[2],
-                (int)gl2ps->viewport[1], (int)gl2ps->viewport[2], (int)gl2ps->viewport[3],
-                (int)gl2ps->viewport[0], (int)gl2ps->viewport[3]);
-  }
-}
-
-static void gl2psPrintPostScriptColor(GL2PSrgba rgba)
-{
-  if(!gl2psSameColor(gl2ps->lastrgba, rgba)){
-    gl2psSetLastColor(rgba);
-    gl2psPrintf("%g %g %g C\n", rgba[0], rgba[1], rgba[2]);
-  }
-}
-
-static void gl2psResetPostScriptColor(void)
-{
-  gl2ps->lastrgba[0] = gl2ps->lastrgba[1] = gl2ps->lastrgba[2] = -1.;
-}
-
-static void gl2psEndPostScriptLine(void)
-{
-  int i;
-  if(gl2ps->lastvertex.rgba[0] >= 0.){
-    gl2psPrintf("%g %g LE\n", gl2ps->lastvertex.xyz[0], gl2ps->lastvertex.xyz[1]);
-    for(i = 0; i < 3; i++)
-      gl2ps->lastvertex.xyz[i] = -1.;
-    for(i = 0; i < 4; i++)
-      gl2ps->lastvertex.rgba[i] = -1.;
-  }
-}
-
-static void gl2psParseStipplePattern(GLushort pattern, GLint factor,
-                                     int *nb, int array[10])
-{
-  int i, n;
-  int on[8] = {0, 0, 0, 0, 0, 0, 0, 0};
-  int off[8] = {0, 0, 0, 0, 0, 0, 0, 0};
-  char tmp[16];
-
-  /* extract the 16 bits from the OpenGL stipple pattern */
-  for(n = 15; n >= 0; n--){
-    tmp[n] = (char)(pattern & 0x01);
-    pattern >>= 1;
-  }
-  /* compute the on/off pixel sequence */
-  n = 0;
-  for(i = 0; i < 8; i++){
-    while(n < 16 && !tmp[n]){ off[i]++; n++; }
-    while(n < 16 && tmp[n]){ on[i]++; n++; }
-    if(n >= 15){ i++; break; }
-  }
-
-  /* store the on/off array from right to left, starting with off
-     pixels. The PostScript specification allows for at most 11
-     elements in the on/off array, so we limit ourselves to 5 on/off
-     couples (our longest possible array is thus [on4 off4 on3 off3
-     on2 off2 on1 off1 on0 off0]) */
-  *nb = 0;
-  for(n = i - 1; n >= 0; n--){
-    array[(*nb)++] = factor * on[n];
-    array[(*nb)++] = factor * off[n];
-    if(*nb == 10) break;
-  }
-}
-
-static int gl2psPrintPostScriptDash(GLushort pattern, GLint factor, const char *str)
-{
-  int len = 0, i, n, array[10];
-
-  if(pattern == gl2ps->lastpattern && factor == gl2ps->lastfactor)
-    return 0;
-
-  gl2ps->lastpattern = pattern;
-  gl2ps->lastfactor = factor;
-
-  if(!pattern || !factor){
-    /* solid line */
-    len += gl2psPrintf("[] 0 %s\n", str);
-  }
-  else{
-    gl2psParseStipplePattern(pattern, factor, &n, array);
-    len += gl2psPrintf("[");
-    for(i = 0; i < n; i++){
-      if(i) len += gl2psPrintf(" ");
-      len += gl2psPrintf("%d", array[i]);
-    }
-    len += gl2psPrintf("] 0 %s\n", str);
-  }
-
-  return len;
-}
-
-static void gl2psPrintPostScriptPrimitive(void *data)
-{
-  int newline;
-  GL2PSprimitive *prim;
-
-  prim = *(GL2PSprimitive**)data;
-
-  if((gl2ps->options & GL2PS_OCCLUSION_CULL) && prim->culled) return;
-
-  /* Every effort is made to draw lines as connected segments (i.e.,
-     using a single PostScript path): this is the only way to get nice
-     line joins and to not restart the stippling for every line
-     segment. So if the primitive to print is not a line we must first
-     finish the current line (if any): */
-  if(prim->type != GL2PS_LINE) gl2psEndPostScriptLine();
-
-  switch(prim->type){
-  case GL2PS_POINT :
-    gl2psPrintPostScriptColor(prim->verts[0].rgba);
-    gl2psPrintf("%g %g %g P\n",
-                prim->verts[0].xyz[0], prim->verts[0].xyz[1], 0.5 * prim->width);
-    break;
-  case GL2PS_LINE :
-    if(!gl2psSamePosition(gl2ps->lastvertex.xyz, prim->verts[0].xyz) ||
-       !gl2psSameColor(gl2ps->lastrgba, prim->verts[0].rgba) ||
-       gl2ps->lastlinewidth != prim->width ||
-       gl2ps->lastpattern != prim->pattern ||
-       gl2ps->lastfactor != prim->factor){
-      /* End the current line if the new segment does not start where
-         the last one ended, or if the color, the width or the
-         stippling have changed (multi-stroking lines with changing
-         colors is necessary until we use /shfill for lines;
-         unfortunately this means that at the moment we can screw up
-         line stippling for smooth-shaded lines) */
-      gl2psEndPostScriptLine();
-      newline = 1;
-    }
-    else{
-      newline = 0;
-    }
-    if(gl2ps->lastlinewidth != prim->width){
-      gl2ps->lastlinewidth = prim->width;
-      gl2psPrintf("%g W\n", gl2ps->lastlinewidth);
-    }
-    gl2psPrintPostScriptDash(prim->pattern, prim->factor, "setdash");
-    gl2psPrintPostScriptColor(prim->verts[0].rgba);
-    gl2psPrintf("%g %g %s\n", prim->verts[0].xyz[0], prim->verts[0].xyz[1],
-                newline ? "LS" : "L");
-    gl2ps->lastvertex = prim->verts[1];
-    break;
-  case GL2PS_TRIANGLE :
-    if(!gl2psVertsSameColor(prim)){
-      gl2psResetPostScriptColor();
-      gl2psPrintf("%g %g %g %g %g %g %g %g %g %g %g %g %g %g %g ST\n",
-                  prim->verts[2].xyz[0], prim->verts[2].xyz[1],
-                  prim->verts[2].rgba[0], prim->verts[2].rgba[1],
-                  prim->verts[2].rgba[2], prim->verts[1].xyz[0],
-                  prim->verts[1].xyz[1], prim->verts[1].rgba[0],
-                  prim->verts[1].rgba[1], prim->verts[1].rgba[2],
-                  prim->verts[0].xyz[0], prim->verts[0].xyz[1],
-                  prim->verts[0].rgba[0], prim->verts[0].rgba[1],
-                  prim->verts[0].rgba[2]);
-    }
-    else{
-      gl2psPrintPostScriptColor(prim->verts[0].rgba);
-      gl2psPrintf("%g %g %g %g %g %g T\n",
-                  prim->verts[2].xyz[0], prim->verts[2].xyz[1],
-                  prim->verts[1].xyz[0], prim->verts[1].xyz[1],
-                  prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-    }
-    break;
-  case GL2PS_QUADRANGLE :
-    gl2psMsg(GL2PS_WARNING, "There should not be any quad left to print");
-    break;
-  case GL2PS_PIXMAP :
-    gl2psPrintPostScriptPixmap(prim->verts[0].xyz[0], prim->verts[0].xyz[1],
-                               prim->data.image);
-    break;
-  case GL2PS_IMAGEMAP :
-    if(prim->data.image->type != GL2PS_IMAGEMAP_WRITTEN){
-      gl2psPrintPostScriptColor(prim->verts[0].rgba);
-      gl2psPrintPostScriptImagemap(prim->data.image->pixels[0],
-                                   prim->data.image->pixels[1],
-                                   prim->data.image->width, prim->data.image->height,
-                                   (const unsigned char*)(&(prim->data.image->pixels[2])));
-      prim->data.image->type = GL2PS_IMAGEMAP_WRITTEN;
-    }
-    break;
-  case GL2PS_TEXT :
-    gl2psPrintPostScriptColor(prim->verts[0].rgba);
-    gl2psPrintf("(%s) ", prim->data.text->str);
-    if(prim->data.text->angle)
-      gl2psPrintf("%g ", prim->data.text->angle);
-    gl2psPrintf("%g %g %d /%s ",
-                prim->verts[0].xyz[0], prim->verts[0].xyz[1],
-                prim->data.text->fontsize, prim->data.text->fontname);
-    switch(prim->data.text->alignment){
-    case GL2PS_TEXT_C:
-      gl2psPrintf(prim->data.text->angle ? "SCCR\n" : "SCC\n");
-      break;
-    case GL2PS_TEXT_CL:
-      gl2psPrintf(prim->data.text->angle ? "SCLR\n" : "SCL\n");
-      break;
-    case GL2PS_TEXT_CR:
-      gl2psPrintf(prim->data.text->angle ? "SCRR\n" : "SCR\n");
-      break;
-    case GL2PS_TEXT_B:
-      gl2psPrintf(prim->data.text->angle ? "SBCR\n" : "SBC\n");
-      break;
-    case GL2PS_TEXT_BR:
-      gl2psPrintf(prim->data.text->angle ? "SBRR\n" : "SBR\n");
-      break;
-    case GL2PS_TEXT_T:
-      gl2psPrintf(prim->data.text->angle ? "STCR\n" : "STC\n");
-      break;
-    case GL2PS_TEXT_TL:
-      gl2psPrintf(prim->data.text->angle ? "STLR\n" : "STL\n");
-      break;
-    case GL2PS_TEXT_TR:
-      gl2psPrintf(prim->data.text->angle ? "STRR\n" : "STR\n");
-      break;
-    case GL2PS_TEXT_BL:
-    default:
-      gl2psPrintf(prim->data.text->angle ? "SR\n" : "S\n");
-      break;
-    }
-    break;
-  case GL2PS_SPECIAL :
-    /* alignment contains the format for which the special output text
-       is intended */
-    if(prim->data.text->alignment == GL2PS_PS ||
-       prim->data.text->alignment == GL2PS_EPS)
-      gl2psPrintf("%s\n", prim->data.text->str);
-    break;
-  default :
-    break;
-  }
-}
-
-static void gl2psPrintPostScriptFooter(void)
-{
-  gl2psPrintf("grestore\n"
-              "showpage\n"
-              "cleartomark\n"
-              "%%%%PageTrailer\n"
-              "%%%%Trailer\n"
-              "end\n"
-              "%%%%EOF\n");
-
-  gl2psPrintGzipFooter();
-}
-
-static void gl2psPrintPostScriptBeginViewport(GLint viewport[4])
-{
-  GLint index;
-  GLfloat rgba[4];
-  int x = viewport[0], y = viewport[1], w = viewport[2], h = viewport[3];
-
-  glRenderMode(GL_FEEDBACK);
-
-  if(gl2ps->header){
-    gl2psPrintPostScriptHeader();
-    gl2ps->header = GL_FALSE;
-  }
-
-  gl2psPrintf("gsave\n"
-              "1.0 1.0 scale\n");
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    if(gl2ps->colormode == GL_RGBA || gl2ps->colorsize == 0){
-      glGetFloatv(GL_COLOR_CLEAR_VALUE, rgba);
-    }
-    else{
-      glGetIntegerv(GL_INDEX_CLEAR_VALUE, &index);
-      rgba[0] = gl2ps->colormap[index][0];
-      rgba[1] = gl2ps->colormap[index][1];
-      rgba[2] = gl2ps->colormap[index][2];
-      rgba[3] = 1.0F;
-    }
-    gl2psPrintf("%g %g %g C\n"
-                "newpath %d %d moveto %d %d lineto %d %d lineto %d %d lineto\n"
-                "closepath fill\n",
-                rgba[0], rgba[1], rgba[2],
-                x, y, x+w, y, x+w, y+h, x, y+h);
-  }
-
-  gl2psPrintf("newpath %d %d moveto %d %d lineto %d %d lineto %d %d lineto\n"
-              "closepath clip\n",
-              x, y, x+w, y, x+w, y+h, x, y+h);
-
-}
-
-static GLint gl2psPrintPostScriptEndViewport(void)
-{
-  GLint res;
-
-  res = gl2psPrintPrimitives();
-  gl2psPrintf("grestore\n");
-  return res;
-}
-
-static void gl2psPrintPostScriptFinalPrimitive(void)
-{
-  /* End any remaining line, if any */
-  gl2psEndPostScriptLine();
-}
-
-/* definition of the PostScript and Encapsulated PostScript backends */
-
-static GL2PSbackend gl2psPS = {
-  gl2psPrintPostScriptHeader,
-  gl2psPrintPostScriptFooter,
-  gl2psPrintPostScriptBeginViewport,
-  gl2psPrintPostScriptEndViewport,
-  gl2psPrintPostScriptPrimitive,
-  gl2psPrintPostScriptFinalPrimitive,
-  "ps",
-  "Postscript"
-};
-
-static GL2PSbackend gl2psEPS = {
-  gl2psPrintPostScriptHeader,
-  gl2psPrintPostScriptFooter,
-  gl2psPrintPostScriptBeginViewport,
-  gl2psPrintPostScriptEndViewport,
-  gl2psPrintPostScriptPrimitive,
-  gl2psPrintPostScriptFinalPrimitive,
-  "eps",
-  "Encapsulated Postscript"
-};
-
-/*********************************************************************
- *
- * LaTeX routines
- *
- *********************************************************************/
-
-static void gl2psPrintTeXHeader(void)
-{
-  char name[256];
-  time_t now;
-  int i;
-
-  if(gl2ps->filename && strlen(gl2ps->filename) < 256){
-    for(i = (int)strlen(gl2ps->filename) - 1; i >= 0; i--){
-      if(gl2ps->filename[i] == '.'){
-        strncpy(name, gl2ps->filename, i);
-        name[i] = '\0';
-        break;
-      }
-    }
-    if(i <= 0) strcpy(name, gl2ps->filename);
-  }
-  else{
-    strcpy(name, "untitled");
-  }
-
-  time(&now);
-
-  fprintf(gl2ps->stream,
-          "%% Title: %s\n"
-          "%% Creator: GL2PS %d.%d.%d%s, %s\n"
-          "%% For: %s\n"
-          "%% CreationDate: %s",
-          gl2ps->title, GL2PS_MAJOR_VERSION, GL2PS_MINOR_VERSION,
-          GL2PS_PATCH_VERSION, GL2PS_EXTRA_VERSION, GL2PS_COPYRIGHT,
-          gl2ps->producer, ctime(&now));
-
-  fprintf(gl2ps->stream,
-          "\\setlength{\\unitlength}{1pt}\n"
-          "\\begin{picture}(0,0)\n"
-          "\\includegraphics{%s}\n"
-          "\\end{picture}%%\n"
-          "%s\\begin{picture}(%d,%d)(0,0)\n",
-          name, (gl2ps->options & GL2PS_LANDSCAPE) ? "\\rotatebox{90}{" : "",
-          (int)gl2ps->viewport[2], (int)gl2ps->viewport[3]);
-}
-
-static void gl2psPrintTeXPrimitive(void *data)
-{
-  GL2PSprimitive *prim;
-
-  prim = *(GL2PSprimitive**)data;
-
-  switch(prim->type){
-  case GL2PS_TEXT :
-    fprintf(gl2ps->stream, "\\fontsize{%d}{0}\n\\selectfont",
-            prim->data.text->fontsize);
-    fprintf(gl2ps->stream, "\\put(%g,%g)",
-            prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-    if(prim->data.text->angle)
-      fprintf(gl2ps->stream, "{\\rotatebox{%g}", prim->data.text->angle);
-    fprintf(gl2ps->stream, "{\\makebox(0,0)");
-    switch(prim->data.text->alignment){
-    case GL2PS_TEXT_C:
-      fprintf(gl2ps->stream, "{");
-      break;
-    case GL2PS_TEXT_CL:
-      fprintf(gl2ps->stream, "[l]{");
-      break;
-    case GL2PS_TEXT_CR:
-      fprintf(gl2ps->stream, "[r]{");
-      break;
-    case GL2PS_TEXT_B:
-      fprintf(gl2ps->stream, "[b]{");
-      break;
-    case GL2PS_TEXT_BR:
-      fprintf(gl2ps->stream, "[br]{");
-      break;
-    case GL2PS_TEXT_T:
-      fprintf(gl2ps->stream, "[t]{");
-      break;
-    case GL2PS_TEXT_TL:
-      fprintf(gl2ps->stream, "[tl]{");
-      break;
-    case GL2PS_TEXT_TR:
-      fprintf(gl2ps->stream, "[tr]{");
-      break;
-    case GL2PS_TEXT_BL:
-    default:
-      fprintf(gl2ps->stream, "[bl]{");
-      break;
-    }
-    fprintf(gl2ps->stream, "\\textcolor[rgb]{%g,%g,%g}{{%s}}",
-            prim->verts[0].rgba[0], prim->verts[0].rgba[1], prim->verts[0].rgba[2],
-            prim->data.text->str);
-    if(prim->data.text->angle)
-      fprintf(gl2ps->stream, "}");
-    fprintf(gl2ps->stream, "}}\n");
-    break;
-  case GL2PS_SPECIAL :
-    /* alignment contains the format for which the special output text
-       is intended */
-    if (prim->data.text->alignment == GL2PS_TEX)
-      fprintf(gl2ps->stream, "%s\n", prim->data.text->str);
-    break;
-  default :
-    break;
-  }
-}
-
-static void gl2psPrintTeXFooter(void)
-{
-  fprintf(gl2ps->stream, "\\end{picture}%s\n",
-          (gl2ps->options & GL2PS_LANDSCAPE) ? "}" : "");
-}
-
-static void gl2psPrintTeXBeginViewport(GLint viewport[4])
-{
-  (void) viewport;  /* not used */
-  glRenderMode(GL_FEEDBACK);
-
-  if(gl2ps->header){
-    gl2psPrintTeXHeader();
-    gl2ps->header = GL_FALSE;
-  }
-}
-
-static GLint gl2psPrintTeXEndViewport(void)
-{
-  return gl2psPrintPrimitives();
-}
-
-static void gl2psPrintTeXFinalPrimitive(void)
-{
-}
-
-/* definition of the LaTeX backend */
-
-static GL2PSbackend gl2psTEX = {
-  gl2psPrintTeXHeader,
-  gl2psPrintTeXFooter,
-  gl2psPrintTeXBeginViewport,
-  gl2psPrintTeXEndViewport,
-  gl2psPrintTeXPrimitive,
-  gl2psPrintTeXFinalPrimitive,
-  "tex",
-  "LaTeX text"
-};
-
-/*********************************************************************
- *
- * PDF routines
- *
- *********************************************************************/
-
-static int gl2psPrintPDFCompressorType(void)
-{
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    return fprintf(gl2ps->stream, "/Filter [/FlateDecode]\n");
-  }
-#endif
-  return 0;
-}
-
-static int gl2psPrintPDFStrokeColor(GL2PSrgba rgba)
-{
-  int i, offs = 0;
-
-  gl2psSetLastColor(rgba);
-  for(i = 0; i < 3; ++i){
-    if(GL2PS_ZERO(rgba[i]))
-      offs += gl2psPrintf("%.0f ", 0.);
-    else if(rgba[i] < 1e-4 || rgba[i] > 1e6) /* avoid %e formatting */
-      offs += gl2psPrintf("%f ", rgba[i]);
-    else
-      offs += gl2psPrintf("%g ", rgba[i]);
-  }
-  offs += gl2psPrintf("RG\n");
-  return offs;
-}
-
-static int gl2psPrintPDFFillColor(GL2PSrgba rgba)
-{
-  int i, offs = 0;
-
-  for(i = 0; i < 3; ++i){
-    if(GL2PS_ZERO(rgba[i]))
-      offs += gl2psPrintf("%.0f ", 0.);
-    else if(rgba[i] < 1e-4 || rgba[i] > 1e6) /* avoid %e formatting */
-      offs += gl2psPrintf("%f ", rgba[i]);
-    else
-      offs += gl2psPrintf("%g ", rgba[i]);
-  }
-  offs += gl2psPrintf("rg\n");
-  return offs;
-}
-
-static int gl2psPrintPDFLineWidth(GLfloat lw)
-{
-  if(GL2PS_ZERO(lw))
-    return gl2psPrintf("%.0f w\n", 0.);
-  else if(lw < 1e-4 || lw > 1e6) /* avoid %e formatting */
-    return gl2psPrintf("%f w\n", lw);
-  else
-    return gl2psPrintf("%g w\n", lw);
-}
-
-static void gl2psPutPDFText(GL2PSstring *text, int cnt, GLfloat x, GLfloat y)
-{
-  GLfloat rad, crad, srad;
-
-  if(text->angle == 0.0F){
-    gl2ps->streamlength += gl2psPrintf
-      ("BT\n"
-       "/F%d %d Tf\n"
-       "%f %f Td\n"
-       "(%s) Tj\n"
-       "ET\n",
-       cnt, text->fontsize, x, y, text->str);
-  }
-  else{
-    rad = (GLfloat)(M_PI * text->angle / 180.0F);
-    srad = (GLfloat)sin(rad);
-    crad = (GLfloat)cos(rad);
-    gl2ps->streamlength += gl2psPrintf
-      ("BT\n"
-       "/F%d %d Tf\n"
-       "%f %f %f %f %f %f Tm\n"
-       "(%s) Tj\n"
-       "ET\n",
-       cnt, text->fontsize, crad, srad, -srad, crad, x, y, text->str);
-  }
-}
-
-static void gl2psPutPDFImage(GL2PSimage *image, int cnt, GLfloat x, GLfloat y)
-{
-  gl2ps->streamlength += gl2psPrintf
-    ("q\n"
-     "%d 0 0 %d %f %f cm\n"
-     "/Im%d Do\n"
-     "Q\n",
-     (int)image->width, (int)image->height, x, y, cnt);
-}
-
-static void gl2psPDFstacksInit(void)
-{
-  gl2ps->objects_stack = 7 /* FIXED_XREF_ENTRIES */ + 1;
-  gl2ps->extgs_stack = 0;
-  gl2ps->font_stack = 0;
-  gl2ps->im_stack = 0;
-  gl2ps->trgroupobjects_stack = 0;
-  gl2ps->shader_stack = 0;
-  gl2ps->mshader_stack = 0;
-}
-
-static void gl2psPDFgroupObjectInit(GL2PSpdfgroup *gro)
-{
-  if(!gro)
-    return;
-
-  gro->ptrlist = NULL;
-  gro->fontno = gro->gsno = gro->imno = gro->maskshno = gro->shno
-    = gro->trgroupno = gro->fontobjno = gro->imobjno = gro->shobjno
-    = gro->maskshobjno = gro->gsobjno = gro->trgroupobjno = -1;
-}
-
-/* Build up group objects and assign name and object numbers */
-
-static void gl2psPDFgroupListInit(void)
-{
-  int i;
-  GL2PSprimitive *p = NULL;
-  GL2PSpdfgroup gro;
-  int lasttype = GL2PS_NO_TYPE;
-  GL2PSrgba lastrgba = {-1.0F, -1.0F, -1.0F, -1.0F};
-  GLushort lastpattern = 0;
-  GLint lastfactor = 0;
-  GLfloat lastwidth = 1;
-  GL2PStriangle lastt, tmpt;
-  int lastTriangleWasNotSimpleWithSameColor = 0;
-
-  if(!gl2ps->pdfprimlist)
-    return;
-
-  gl2ps->pdfgrouplist = gl2psListCreate(500, 500, sizeof(GL2PSpdfgroup));
-  gl2psInitTriangle(&lastt);
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfprimlist); ++i){
-    p = *(GL2PSprimitive**)gl2psListPointer(gl2ps->pdfprimlist, i);
-    switch(p->type){
-    case GL2PS_PIXMAP:
-      gl2psPDFgroupObjectInit(&gro);
-      gro.ptrlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-      gro.imno = gl2ps->im_stack++;
-      gl2psListAdd(gro.ptrlist, &p);
-      gl2psListAdd(gl2ps->pdfgrouplist, &gro);
-      break;
-    case GL2PS_TEXT:
-      gl2psPDFgroupObjectInit(&gro);
-      gro.ptrlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-      gro.fontno = gl2ps->font_stack++;
-      gl2psListAdd(gro.ptrlist, &p);
-      gl2psListAdd(gl2ps->pdfgrouplist, &gro);
-      break;
-    case GL2PS_LINE:
-      if(lasttype != p->type || lastwidth != p->width ||
-         lastpattern != p->pattern || lastfactor != p->factor ||
-         !gl2psSameColor(p->verts[0].rgba, lastrgba)){
-        gl2psPDFgroupObjectInit(&gro);
-        gro.ptrlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-        gl2psListAdd(gro.ptrlist, &p);
-        gl2psListAdd(gl2ps->pdfgrouplist, &gro);
-      }
-      else{
-        gl2psListAdd(gro.ptrlist, &p);
-      }
-      lastpattern = p->pattern;
-      lastfactor = p->factor;
-      lastwidth = p->width;
-      lastrgba[0] = p->verts[0].rgba[0];
-      lastrgba[1] = p->verts[0].rgba[1];
-      lastrgba[2] = p->verts[0].rgba[2];
-      break;
-    case GL2PS_POINT:
-      if(lasttype != p->type || lastwidth != p->width ||
-         !gl2psSameColor(p->verts[0].rgba, lastrgba)){
-        gl2psPDFgroupObjectInit(&gro);
-        gro.ptrlist = gl2psListCreate(1,2,sizeof(GL2PSprimitive*));
-        gl2psListAdd(gro.ptrlist, &p);
-        gl2psListAdd(gl2ps->pdfgrouplist, &gro);
-      }
-      else{
-        gl2psListAdd(gro.ptrlist, &p);
-      }
-      lastwidth = p->width;
-      lastrgba[0] = p->verts[0].rgba[0];
-      lastrgba[1] = p->verts[0].rgba[1];
-      lastrgba[2] = p->verts[0].rgba[2];
-      break;
-    case GL2PS_TRIANGLE:
-      gl2psFillTriangleFromPrimitive(&tmpt, p, GL_TRUE);
-      lastTriangleWasNotSimpleWithSameColor =
-        !(tmpt.prop & T_CONST_COLOR && tmpt.prop & T_ALPHA_1) ||
-        !gl2psSameColor(tmpt.vertex[0].rgba, lastt.vertex[0].rgba);
-      if(lasttype == p->type && tmpt.prop == lastt.prop &&
-         lastTriangleWasNotSimpleWithSameColor){
-        /* TODO Check here for last alpha */
-        gl2psListAdd(gro.ptrlist, &p);
-      }
-      else{
-        gl2psPDFgroupObjectInit(&gro);
-        gro.ptrlist = gl2psListCreate(1, 2, sizeof(GL2PSprimitive*));
-        gl2psListAdd(gro.ptrlist, &p);
-        gl2psListAdd(gl2ps->pdfgrouplist, &gro);
-      }
-      lastt = tmpt;
-      break;
-    default:
-      break;
-    }
-    lasttype = p->type;
-  }
-}
-
-static void gl2psSortOutTrianglePDFgroup(GL2PSpdfgroup *gro)
-{
-  GL2PStriangle t;
-  GL2PSprimitive *prim = NULL;
-
-  if(!gro)
-    return;
-
-  if(!gl2psListNbr(gro->ptrlist))
-    return;
-
-  prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, 0);
-
-  if(prim->type != GL2PS_TRIANGLE)
-    return;
-
-  gl2psFillTriangleFromPrimitive(&t, prim, GL_TRUE);
-
-  if(t.prop & T_CONST_COLOR && t.prop & T_ALPHA_LESS_1){
-    gro->gsno = gl2ps->extgs_stack++;
-    gro->gsobjno = gl2ps->objects_stack ++;
-  }
-  else if(t.prop & T_CONST_COLOR && t.prop & T_VAR_ALPHA){
-    gro->gsno = gl2ps->extgs_stack++;
-    gro->gsobjno = gl2ps->objects_stack++;
-    gro->trgroupno = gl2ps->trgroupobjects_stack++;
-    gro->trgroupobjno = gl2ps->objects_stack++;
-    gro->maskshno = gl2ps->mshader_stack++;
-    gro->maskshobjno = gl2ps->objects_stack++;
-  }
-  else if(t.prop & T_VAR_COLOR && t.prop & T_ALPHA_1){
-    gro->shno = gl2ps->shader_stack++;
-    gro->shobjno = gl2ps->objects_stack++;
-  }
-  else if(t.prop & T_VAR_COLOR && t.prop & T_ALPHA_LESS_1){
-    gro->gsno = gl2ps->extgs_stack++;
-    gro->gsobjno = gl2ps->objects_stack++;
-    gro->shno = gl2ps->shader_stack++;
-    gro->shobjno = gl2ps->objects_stack++;
-  }
-  else if(t.prop & T_VAR_COLOR && t.prop & T_VAR_ALPHA){
-    gro->gsno = gl2ps->extgs_stack++;
-    gro->gsobjno = gl2ps->objects_stack++;
-    gro->shno = gl2ps->shader_stack++;
-    gro->shobjno = gl2ps->objects_stack++;
-    gro->trgroupno = gl2ps->trgroupobjects_stack++;
-    gro->trgroupobjno = gl2ps->objects_stack++;
-    gro->maskshno = gl2ps->mshader_stack++;
-    gro->maskshobjno = gl2ps->objects_stack++;
-  }
-}
-
-/* Main stream data */
-
-static void gl2psPDFgroupListWriteMainStream(void)
-{
-  int i, j, lastel;
-  GL2PSprimitive *prim = NULL, *prev = NULL;
-  GL2PSpdfgroup *gro;
-  GL2PStriangle t;
-
-  if(!gl2ps->pdfgrouplist)
-    return;
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-
-    lastel = gl2psListNbr(gro->ptrlist) - 1;
-    if(lastel < 0)
-      continue;
-
-    prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, 0);
-
-    switch(prim->type){
-    case GL2PS_POINT:
-      gl2ps->streamlength += gl2psPrintf("1 J\n");
-      gl2ps->streamlength += gl2psPrintPDFLineWidth(prim->width);
-      gl2ps->streamlength += gl2psPrintPDFStrokeColor(prim->verts[0].rgba);
-      for(j = 0; j <= lastel; ++j){
-        prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-        gl2ps->streamlength +=
-          gl2psPrintf("%f %f m %f %f l\n",
-                      prim->verts[0].xyz[0], prim->verts[0].xyz[1],
-                      prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-      }
-      gl2ps->streamlength += gl2psPrintf("S\n");
-      gl2ps->streamlength += gl2psPrintf("0 J\n");
-      break;
-    case GL2PS_LINE:
-      /* We try to use as few paths as possible to draw lines, in
-         order to get nice stippling even when the individual segments
-         are smaller than the stipple */
-      gl2ps->streamlength += gl2psPrintPDFLineWidth(prim->width);
-      gl2ps->streamlength += gl2psPrintPDFStrokeColor(prim->verts[0].rgba);
-      gl2ps->streamlength += gl2psPrintPostScriptDash(prim->pattern, prim->factor, "d");
-      /* start new path */
-      gl2ps->streamlength +=
-        gl2psPrintf("%f %f m\n",
-                    prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-
-      for(j = 1; j <= lastel; ++j){
-        prev = prim;
-        prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-        if(!gl2psSamePosition(prim->verts[0].xyz, prev->verts[1].xyz)){
-          /* the starting point of the new segment does not match the
-             end point of the previous line, so we end the current
-             path and start a new one */
-          gl2ps->streamlength +=
-            gl2psPrintf("%f %f l\n",
-                        prev->verts[1].xyz[0], prev->verts[1].xyz[1]);
-          gl2ps->streamlength +=
-            gl2psPrintf("%f %f m\n",
-                        prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-        }
-        else{
-          /* the two segements are connected, so we just append to the
-             current path */
-          gl2ps->streamlength +=
-            gl2psPrintf("%f %f l\n",
-                        prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-        }
-      }
-      /* end last path */
-      gl2ps->streamlength +=
-        gl2psPrintf("%f %f l\n",
-                    prim->verts[1].xyz[0], prim->verts[1].xyz[1]);
-      gl2ps->streamlength += gl2psPrintf("S\n");
-      break;
-    case GL2PS_TRIANGLE:
-      gl2psFillTriangleFromPrimitive(&t, prim, GL_TRUE);
-      gl2psSortOutTrianglePDFgroup(gro);
-
-      /* No alpha and const color: Simple PDF draw orders  */
-      if(t.prop & T_CONST_COLOR && t.prop & T_ALPHA_1){
-        gl2ps->streamlength += gl2psPrintPDFFillColor(t.vertex[0].rgba);
-        for(j = 0; j <= lastel; ++j){
-          prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-          gl2psFillTriangleFromPrimitive(&t, prim, GL_FALSE);
-          gl2ps->streamlength
-            += gl2psPrintf("%f %f m\n"
-                           "%f %f l\n"
-                           "%f %f l\n"
-                           "h f\n",
-                           t.vertex[0].xyz[0], t.vertex[0].xyz[1],
-                           t.vertex[1].xyz[0], t.vertex[1].xyz[1],
-                           t.vertex[2].xyz[0], t.vertex[2].xyz[1]);
-        }
-      }
-      /* Const alpha < 1 and const color: Simple PDF draw orders
-         and an extra extended Graphics State for the alpha const */
-      else if(t.prop & T_CONST_COLOR && t.prop & T_ALPHA_LESS_1){
-        gl2ps->streamlength += gl2psPrintf("q\n"
-                                           "/GS%d gs\n",
-                                           gro->gsno);
-        gl2ps->streamlength += gl2psPrintPDFFillColor(prim->verts[0].rgba);
-        for(j = 0; j <= lastel; ++j){
-          prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-          gl2psFillTriangleFromPrimitive(&t, prim, GL_FALSE);
-          gl2ps->streamlength
-            += gl2psPrintf("%f %f m\n"
-                           "%f %f l\n"
-                           "%f %f l\n"
-                           "h f\n",
-                           t.vertex[0].xyz[0], t.vertex[0].xyz[1],
-                           t.vertex[1].xyz[0], t.vertex[1].xyz[1],
-                           t.vertex[2].xyz[0], t.vertex[2].xyz[1]);
-        }
-        gl2ps->streamlength += gl2psPrintf("Q\n");
-      }
-      /* Variable alpha and const color: Simple PDF draw orders
-         and an extra extended Graphics State + Xobject + Shader
-         object for the alpha mask */
-      else if(t.prop & T_CONST_COLOR && t.prop & T_VAR_ALPHA){
-        gl2ps->streamlength += gl2psPrintf("q\n"
-                                           "/GS%d gs\n"
-                                           "/TrG%d Do\n",
-                                           gro->gsno, gro->trgroupno);
-        gl2ps->streamlength += gl2psPrintPDFFillColor(prim->verts[0].rgba);
-        for(j = 0; j <= lastel; ++j){
-          prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-          gl2psFillTriangleFromPrimitive(&t, prim, GL_FALSE);
-          gl2ps->streamlength
-            += gl2psPrintf("%f %f m\n"
-                           "%f %f l\n"
-                           "%f %f l\n"
-                           "h f\n",
-                           t.vertex[0].xyz[0], t.vertex[0].xyz[1],
-                           t.vertex[1].xyz[0], t.vertex[1].xyz[1],
-                           t.vertex[2].xyz[0], t.vertex[2].xyz[1]);
-        }
-        gl2ps->streamlength += gl2psPrintf("Q\n");
-      }
-      /* Variable color and no alpha: Shader Object for the colored
-         triangle(s) */
-      else if(t.prop & T_VAR_COLOR && t.prop & T_ALPHA_1){
-        gl2ps->streamlength += gl2psPrintf("/Sh%d sh\n", gro->shno);
-      }
-      /* Variable color and const alpha < 1: Shader Object for the
-         colored triangle(s) and an extra extended Graphics State
-         for the alpha const */
-      else if(t.prop & T_VAR_COLOR && t.prop & T_ALPHA_LESS_1){
-        gl2ps->streamlength += gl2psPrintf("q\n"
-                                           "/GS%d gs\n"
-                                           "/Sh%d sh\n"
-                                           "Q\n",
-                                           gro->gsno, gro->shno);
-      }
-      /* Variable alpha and color: Shader Object for the colored
-         triangle(s) and an extra extended Graphics State
-         + Xobject + Shader object for the alpha mask */
-      else if(t.prop & T_VAR_COLOR && t.prop & T_VAR_ALPHA){
-        gl2ps->streamlength += gl2psPrintf("q\n"
-                                           "/GS%d gs\n"
-                                           "/TrG%d Do\n"
-                                           "/Sh%d sh\n"
-                                           "Q\n",
-                                           gro->gsno, gro->trgroupno, gro->shno);
-      }
-      break;
-    case GL2PS_PIXMAP:
-      for(j = 0; j <= lastel; ++j){
-        prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-        gl2psPutPDFImage(prim->data.image, gro->imno, prim->verts[0].xyz[0],
-                         prim->verts[0].xyz[1]);
-      }
-      break;
-    case GL2PS_TEXT:
-      for(j = 0; j <= lastel; ++j){
-        prim = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-        gl2ps->streamlength += gl2psPrintPDFFillColor(prim->verts[0].rgba);
-        gl2psPutPDFText(prim->data.text, gro->fontno, prim->verts[0].xyz[0],
-                        prim->verts[0].xyz[1]);
-      }
-      break;
-    default:
-      break;
-    }
-  }
-}
-
-/* Graphics State names */
-
-static int gl2psPDFgroupListWriteGStateResources(void)
-{
-  GL2PSpdfgroup *gro;
-  int offs = 0;
-  int i;
-
-  offs += fprintf(gl2ps->stream,
-                  "/ExtGState\n"
-                  "<<\n"
-                  "/GSa 7 0 R\n");
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-    if(gro->gsno >= 0)
-      offs += fprintf(gl2ps->stream, "/GS%d %d 0 R\n", gro->gsno, gro->gsobjno);
-  }
-  offs += fprintf(gl2ps->stream, ">>\n");
-  return offs;
-}
-
-/* Main Shader names */
-
-static int gl2psPDFgroupListWriteShaderResources(void)
-{
-  GL2PSpdfgroup *gro;
-  int offs = 0;
-  int i;
-
-  offs += fprintf(gl2ps->stream,
-                  "/Shading\n"
-                  "<<\n");
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-    if(gro->shno >= 0)
-      offs += fprintf(gl2ps->stream, "/Sh%d %d 0 R\n", gro->shno, gro->shobjno);
-    if(gro->maskshno >= 0)
-      offs += fprintf(gl2ps->stream, "/TrSh%d %d 0 R\n", gro->maskshno, gro->maskshobjno);
-  }
-  offs += fprintf(gl2ps->stream,">>\n");
-  return offs;
-}
-
-/* Images & Mask Shader XObject names */
-
-static int gl2psPDFgroupListWriteXObjectResources(void)
-{
-  int i;
-  GL2PSprimitive *p = NULL;
-  GL2PSpdfgroup *gro;
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream,
-                  "/XObject\n"
-                  "<<\n");
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-    if(!gl2psListNbr(gro->ptrlist))
-      continue;
-    p = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, 0);
-    switch(p->type){
-    case GL2PS_PIXMAP:
-      gro->imobjno = gl2ps->objects_stack++;
-      if(GL_RGBA == p->data.image->format)  /* reserve one object for image mask */
-        gl2ps->objects_stack++;
-      offs += fprintf(gl2ps->stream, "/Im%d %d 0 R\n", gro->imno, gro->imobjno);
-    case GL2PS_TRIANGLE:
-      if(gro->trgroupno >=0)
-        offs += fprintf(gl2ps->stream, "/TrG%d %d 0 R\n", gro->trgroupno, gro->trgroupobjno);
-      break;
-    default:
-      break;
-    }
-  }
-  offs += fprintf(gl2ps->stream,">>\n");
-  return offs;
-}
-
-/* Font names */
-
-static int gl2psPDFgroupListWriteFontResources(void)
-{
-  int i;
-  GL2PSpdfgroup *gro;
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream, "/Font\n<<\n");
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-    if(gro->fontno < 0)
-      continue;
-    gro->fontobjno = gl2ps->objects_stack++;
-    offs += fprintf(gl2ps->stream, "/F%d %d 0 R\n", gro->fontno, gro->fontobjno);
-  }
-  offs += fprintf(gl2ps->stream, ">>\n");
-
-  return offs;
-}
-
-static void gl2psPDFgroupListDelete(void)
-{
-  int i;
-  GL2PSpdfgroup *gro = NULL;
-
-  if(!gl2ps->pdfgrouplist)
-    return;
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist,i);
-    gl2psListDelete(gro->ptrlist);
-  }
-
-  gl2psListDelete(gl2ps->pdfgrouplist);
-  gl2ps->pdfgrouplist = NULL;
-}
-
-/* Print 1st PDF object - file info */
-
-static int gl2psPrintPDFInfo(void)
-{
-  int offs;
-  time_t now;
-  struct tm *newtime;
-
-  time(&now);
-  newtime = gmtime(&now);
-
-  offs = fprintf(gl2ps->stream,
-                 "1 0 obj\n"
-                 "<<\n"
-                 "/Title (%s)\n"
-                 "/Creator (GL2PS %d.%d.%d%s, %s)\n"
-                 "/Producer (%s)\n",
-                 gl2ps->title, GL2PS_MAJOR_VERSION, GL2PS_MINOR_VERSION,
-                 GL2PS_PATCH_VERSION, GL2PS_EXTRA_VERSION, GL2PS_COPYRIGHT,
-                 gl2ps->producer);
-
-  if(!newtime){
-    offs += fprintf(gl2ps->stream,
-                    ">>\n"
-                    "endobj\n");
-    return offs;
-  }
-
-  offs += fprintf(gl2ps->stream,
-                  "/CreationDate (D:%d%02d%02d%02d%02d%02d)\n"
-                  ">>\n"
-                  "endobj\n",
-                  newtime->tm_year+1900,
-                  newtime->tm_mon+1,
-                  newtime->tm_mday,
-                  newtime->tm_hour,
-                  newtime->tm_min,
-                  newtime->tm_sec);
-  return offs;
-}
-
-/* Create catalog and page structure - 2nd and 3th PDF object */
-
-static int gl2psPrintPDFCatalog(void)
-{
-  return fprintf(gl2ps->stream,
-                 "2 0 obj\n"
-                 "<<\n"
-                 "/Type /Catalog\n"
-                 "/Pages 3 0 R\n"
-                 ">>\n"
-                 "endobj\n");
-}
-
-static int gl2psPrintPDFPages(void)
-{
-  return fprintf(gl2ps->stream,
-                 "3 0 obj\n"
-                 "<<\n"
-                 "/Type /Pages\n"
-                 "/Kids [6 0 R]\n"
-                 "/Count 1\n"
-                 ">>\n"
-                 "endobj\n");
-}
-
-/* Open stream for data - graphical objects, fonts etc. PDF object 4 */
-
-static int gl2psOpenPDFDataStream(void)
-{
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream,
-                  "4 0 obj\n"
-                  "<<\n"
-                  "/Length 5 0 R\n" );
-  offs += gl2psPrintPDFCompressorType();
-  offs += fprintf(gl2ps->stream,
-                  ">>\n"
-                  "stream\n");
-  return offs;
-}
-
-/* Stream setup - Graphics state, fill background if allowed */
-
-static int gl2psOpenPDFDataStreamWritePreface(void)
-{
-  int offs;
-
-  offs = gl2psPrintf("/GSa gs\n");
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    offs += gl2psPrintPDFFillColor(gl2ps->bgcolor);
-    offs += gl2psPrintf("%d %d %d %d re\n",
-                        (int)gl2ps->viewport[0], (int)gl2ps->viewport[1],
-                        (int)gl2ps->viewport[2], (int)gl2ps->viewport[3]);
-    offs += gl2psPrintf("f\n");
-  }
-  return offs;
-}
-
-/* Use the functions above to create the first part of the PDF*/
-
-static void gl2psPrintPDFHeader(void)
-{
-  int offs = 0;
-  gl2ps->pdfprimlist = gl2psListCreate(500, 500, sizeof(GL2PSprimitive*));
-  gl2psPDFstacksInit();
-
-  gl2ps->xreflist = (int*)gl2psMalloc(sizeof(int) * gl2ps->objects_stack);
-
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    gl2psSetupCompress();
-  }
-#endif
-  gl2ps->xreflist[0] = 0;
-  offs += fprintf(gl2ps->stream, "%%PDF-1.4\n");
-  gl2ps->xreflist[1] = offs;
-
-  offs += gl2psPrintPDFInfo();
-  gl2ps->xreflist[2] = offs;
-
-  offs += gl2psPrintPDFCatalog();
-  gl2ps->xreflist[3] = offs;
-
-  offs += gl2psPrintPDFPages();
-  gl2ps->xreflist[4] = offs;
-
-  offs += gl2psOpenPDFDataStream();
-  gl2ps->xreflist[5] = offs; /* finished in gl2psPrintPDFFooter */
-  gl2ps->streamlength = gl2psOpenPDFDataStreamWritePreface();
-}
-
-/* The central primitive drawing */
-
-static void gl2psPrintPDFPrimitive(void *data)
-{
-  GL2PSprimitive *prim = *(GL2PSprimitive**)data;
-
-  if((gl2ps->options & GL2PS_OCCLUSION_CULL) && prim->culled)
-    return;
-
-  prim = gl2psCopyPrimitive(prim); /* deep copy */
-  gl2psListAdd(gl2ps->pdfprimlist, &prim);
-}
-
-/* close stream and ... */
-
-static int gl2psClosePDFDataStream(void)
-{
-  int offs = 0;
-
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    if(Z_OK != gl2psDeflate())
-      gl2psMsg(GL2PS_ERROR, "Zlib deflate error");
-    else
-      fwrite(gl2ps->compress->dest, gl2ps->compress->destLen, 1, gl2ps->stream);
-    gl2ps->streamlength += gl2ps->compress->destLen;
-
-    offs += gl2ps->streamlength;
-    gl2psFreeCompress();
-  }
-#endif
-
-  offs += fprintf(gl2ps->stream,
-                  "endstream\n"
-                  "endobj\n");
-  return offs;
-}
-
-/* ... write the now known length object */
-
-static int gl2psPrintPDFDataStreamLength(int val)
-{
-  return fprintf(gl2ps->stream,
-                 "5 0 obj\n"
-                 "%d\n"
-                 "endobj\n", val);
-}
-
-/* Put the info created before in PDF objects */
-
-static int gl2psPrintPDFOpenPage(void)
-{
-  int offs;
-
-  /* Write fixed part */
-
-  offs = fprintf(gl2ps->stream,
-                 "6 0 obj\n"
-                 "<<\n"
-                 "/Type /Page\n"
-                 "/Parent 3 0 R\n"
-                 "/MediaBox [%d %d %d %d]\n",
-                 (int)gl2ps->viewport[0], (int)gl2ps->viewport[1],
-                 (int)gl2ps->viewport[2], (int)gl2ps->viewport[3]);
-
-  if(gl2ps->options & GL2PS_LANDSCAPE)
-    offs += fprintf(gl2ps->stream, "/Rotate -90\n");
-
-  offs += fprintf(gl2ps->stream,
-                  "/Contents 4 0 R\n"
-                  "/Resources\n"
-                  "<<\n"
-                  "/ProcSet [/PDF /Text /ImageB /ImageC]  %%/ImageI\n");
-
-  return offs;
-
-  /* End fixed part, proceeds in gl2psPDFgroupListWriteVariableResources() */
-}
-
-static int gl2psPDFgroupListWriteVariableResources(void)
-{
-  int offs = 0;
-
-  /* a) Graphics States for shader alpha masks*/
-  offs += gl2psPDFgroupListWriteGStateResources();
-
-  /* b) Shader and shader masks */
-  offs += gl2psPDFgroupListWriteShaderResources();
-
-  /* c) XObjects (Images & Shader Masks) */
-  offs += gl2psPDFgroupListWriteXObjectResources();
-
-  /* d) Fonts */
-  offs += gl2psPDFgroupListWriteFontResources();
-
-  /* End resources and page */
-  offs += fprintf(gl2ps->stream,
-                  ">>\n"
-                  ">>\n"
-                  "endobj\n");
-  return offs;
-}
-
-/* Standard Graphics State */
-
-static int gl2psPrintPDFGSObject(void)
-{
-  return fprintf(gl2ps->stream,
-                 "7 0 obj\n"
-                 "<<\n"
-                 "/Type /ExtGState\n"
-                 "/SA false\n"
-                 "/SM 0.02\n"
-                 "/OP false\n"
-                 "/op false\n"
-                 "/OPM 0\n"
-                 "/BG2 /Default\n"
-                 "/UCR2 /Default\n"
-                 "/TR2 /Default\n"
-                 ">>\n"
-                 "endobj\n");
-}
-
-/* Put vertex' edge flag (8bit) and coordinates (32bit) in shader stream */
-
-static int gl2psPrintPDFShaderStreamDataCoord(GL2PSvertex *vertex,
-                                              int (*action)(unsigned long data, int size),
-                                              GLfloat dx, GLfloat dy,
-                                              GLfloat xmin, GLfloat ymin)
-{
-  int offs = 0;
-  unsigned long imap;
-  GLfloat diff;
-  double dmax = ~1UL;
-  char edgeflag = 0;
-
-  /* FIXME: temp bux fix for 64 bit archs: */
-  if(sizeof(unsigned long) == 8) dmax = dmax - 2048.;
-
-  offs += (*action)(edgeflag, 1);
-
-  /* The Shader stream in PDF requires to be in a 'big-endian'
-     order */
-
-  if(GL2PS_ZERO(dx * dy)){
-    offs += (*action)(0, 4);
-    offs += (*action)(0, 4);
-  }
-  else{
-    diff = (vertex->xyz[0] - xmin) / dx;
-    if(diff > 1)
-      diff = 1.0F;
-    else if(diff < 0)
-      diff = 0.0F;
-    imap = (unsigned long)(diff * dmax);
-    offs += (*action)(imap, 4);
-
-    diff = (vertex->xyz[1] - ymin) / dy;
-    if(diff > 1)
-      diff = 1.0F;
-    else if(diff < 0)
-      diff = 0.0F;
-    imap = (unsigned long)(diff * dmax);
-    offs += (*action)(imap, 4);
-  }
-
-  return offs;
-}
-
-/* Put vertex' rgb value (8bit for every component) in shader stream */
-
-static int gl2psPrintPDFShaderStreamDataRGB(GL2PSvertex *vertex,
-                                            int (*action)(unsigned long data, int size))
-{
-  int offs = 0;
-  unsigned long imap;
-  double dmax = ~1UL;
-
-  /* FIXME: temp bux fix for 64 bit archs: */
-  if(sizeof(unsigned long) == 8) dmax = dmax - 2048.;
-
-  imap = (unsigned long)((vertex->rgba[0]) * dmax);
-  offs += (*action)(imap, 1);
-
-  imap = (unsigned long)((vertex->rgba[1]) * dmax);
-  offs += (*action)(imap, 1);
-
-  imap = (unsigned long)((vertex->rgba[2]) * dmax);
-  offs += (*action)(imap, 1);
-
-  return offs;
-}
-
-/* Put vertex' alpha (8/16bit) in shader stream */
-
-static int gl2psPrintPDFShaderStreamDataAlpha(GL2PSvertex *vertex,
-                                              int (*action)(unsigned long data, int size),
-                                              int sigbyte)
-{
-  int offs = 0;
-  unsigned long imap;
-  double dmax = ~1UL;
-
-  /* FIXME: temp bux fix for 64 bit archs: */
-  if(sizeof(unsigned long) == 8) dmax = dmax - 2048.;
-
-  if(sigbyte != 8 && sigbyte != 16)
-    sigbyte = 8;
-
-  sigbyte /= 8;
-
-  imap = (unsigned long)((vertex->rgba[3]) * dmax);
-
-  offs += (*action)(imap, sigbyte);
-
-  return offs;
-}
-
-/* Put a triangles raw data in shader stream */
-
-static int gl2psPrintPDFShaderStreamData(GL2PStriangle *triangle,
-                                         GLfloat dx, GLfloat dy,
-                                         GLfloat xmin, GLfloat ymin,
-                                         int (*action)(unsigned long data, int size),
-                                         int gray)
-{
-  int i, offs = 0;
-  GL2PSvertex v;
-
-  if(gray && gray != 8 && gray != 16)
-    gray = 8;
-
-  for(i = 0; i < 3; ++i){
-    offs += gl2psPrintPDFShaderStreamDataCoord(&triangle->vertex[i], action,
-                                               dx, dy, xmin, ymin);
-    if(gray){
-      v = triangle->vertex[i];
-      offs += gl2psPrintPDFShaderStreamDataAlpha(&v, action, gray);
-    }
-    else{
-      offs += gl2psPrintPDFShaderStreamDataRGB(&triangle->vertex[i], action);
-    }
-  }
-
-  return offs;
-}
-
-static void gl2psPDFRectHull(GLfloat *xmin, GLfloat *xmax,
-                             GLfloat *ymin, GLfloat *ymax,
-                             GL2PStriangle *triangles, int cnt)
-{
-  int i, j;
-
-  *xmin = triangles[0].vertex[0].xyz[0];
-  *xmax = triangles[0].vertex[0].xyz[0];
-  *ymin = triangles[0].vertex[0].xyz[1];
-  *ymax = triangles[0].vertex[0].xyz[1];
-
-  for(i = 0; i < cnt; ++i){
-    for(j = 0; j < 3; ++j){
-      if(*xmin > triangles[i].vertex[j].xyz[0])
-        *xmin = triangles[i].vertex[j].xyz[0];
-      if(*xmax < triangles[i].vertex[j].xyz[0])
-        *xmax = triangles[i].vertex[j].xyz[0];
-      if(*ymin > triangles[i].vertex[j].xyz[1])
-        *ymin = triangles[i].vertex[j].xyz[1];
-      if(*ymax < triangles[i].vertex[j].xyz[1])
-        *ymax = triangles[i].vertex[j].xyz[1];
-    }
-  }
-}
-
-/* Writes shaded triangle
-   gray == 0 means write RGB triangles
-   gray == 8             8bit-grayscale (for alpha masks)
-   gray == 16            16bit-grayscale (for alpha masks) */
-
-static int gl2psPrintPDFShader(int obj, GL2PStriangle *triangles,
-                               int size, int gray)
-{
-  int i, offs = 0, vertexbytes, done = 0;
-  GLfloat xmin, xmax, ymin, ymax;
-
-  switch(gray){
-  case 0:
-    vertexbytes = 1+4+4+1+1+1;
-    break;
-  case 8:
-    vertexbytes = 1+4+4+1;
-    break;
-  case 16:
-    vertexbytes = 1+4+4+2;
-    break;
-  default:
-    gray = 8;
-    vertexbytes = 1+4+4+1;
-    break;
-  }
-
-  gl2psPDFRectHull(&xmin, &xmax, &ymin, &ymax, triangles, size);
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<< "
-                  "/ShadingType 4 "
-                  "/ColorSpace %s "
-                  "/BitsPerCoordinate 32 "
-                  "/BitsPerComponent %d "
-                  "/BitsPerFlag 8 "
-                  "/Decode [%f %f %f %f 0 1 %s] ",
-                  obj,
-                  (gray) ? "/DeviceGray" : "/DeviceRGB",
-                  (gray) ? gray : 8,
-                  xmin, xmax, ymin, ymax,
-                  (gray) ? "" : "0 1 0 1");
-
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    gl2psAllocCompress(vertexbytes * size * 3);
-
-    for(i = 0; i < size; ++i)
-      gl2psPrintPDFShaderStreamData(&triangles[i],
-                                    xmax-xmin, ymax-ymin, xmin, ymin,
-                                    gl2psWriteBigEndianCompress, gray);
-
-    if(Z_OK == gl2psDeflate() && 23 + gl2ps->compress->destLen < gl2ps->compress->srcLen){
-      offs += gl2psPrintPDFCompressorType();
-      offs += fprintf(gl2ps->stream,
-                      "/Length %d "
-                      ">>\n"
-                      "stream\n",
-                      (int)gl2ps->compress->destLen);
-      offs += gl2ps->compress->destLen * fwrite(gl2ps->compress->dest,
-                                                gl2ps->compress->destLen,
-                                                1, gl2ps->stream);
-      done = 1;
-    }
-    gl2psFreeCompress();
-  }
-#endif
-
-  if(!done){
-    /* no compression, or too long after compression, or compress error
-       -> write non-compressed entry */
-    offs += fprintf(gl2ps->stream,
-                    "/Length %d "
-                    ">>\n"
-                    "stream\n",
-                    vertexbytes * 3 * size);
-    for(i = 0; i < size; ++i)
-      offs += gl2psPrintPDFShaderStreamData(&triangles[i],
-                                            xmax-xmin, ymax-ymin, xmin, ymin,
-                                            gl2psWriteBigEndian, gray);
-  }
-
-  offs += fprintf(gl2ps->stream,
-                  "\nendstream\n"
-                  "endobj\n");
-
-  return offs;
-}
-
-/* Writes a XObject for a shaded triangle mask */
-
-static int gl2psPrintPDFShaderMask(int obj, int childobj)
-{
-  int offs = 0, len;
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<<\n"
-                  "/Type /XObject\n"
-                  "/Subtype /Form\n"
-                  "/BBox [ %d %d %d %d ]\n"
-                  "/Group \n<<\n/S /Transparency /CS /DeviceRGB\n"
-                  ">>\n",
-                  obj,
-                  (int)gl2ps->viewport[0], (int)gl2ps->viewport[1],
-                  (int)gl2ps->viewport[2], (int)gl2ps->viewport[3]);
-
-  len = (childobj>0)
-    ? strlen("/TrSh sh\n") + (int)log10((double)childobj)+1
-    : strlen("/TrSh0 sh\n");
-
-  offs += fprintf(gl2ps->stream,
-                  "/Length %d\n"
-                  ">>\n"
-                  "stream\n",
-                  len);
-  offs += fprintf(gl2ps->stream,
-                  "/TrSh%d sh\n",
-                  childobj);
-  offs += fprintf(gl2ps->stream,
-                  "endstream\n"
-                  "endobj\n");
-
-  return offs;
-}
-
-/* Writes a Extended graphics state for a shaded triangle mask if
-   simplealpha ist true the childobj argument is ignored and a /ca
-   statement will be written instead */
-
-static int gl2psPrintPDFShaderExtGS(int obj, int childobj)
-{
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<<\n",
-                  obj);
-
-  offs += fprintf(gl2ps->stream,
-                  "/SMask << /S /Alpha /G %d 0 R >> ",
-                  childobj);
-
-  offs += fprintf(gl2ps->stream,
-                  ">>\n"
-                  "endobj\n");
-  return offs;
-}
-
-/* a simple graphics state */
-
-static int gl2psPrintPDFShaderSimpleExtGS(int obj, GLfloat alpha)
-{
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<<\n"
-                  "/ca %g"
-                  ">>\n"
-                  "endobj\n",
-                  obj, alpha);
-  return offs;
-}
-
-/* Similar groups of functions for pixmaps and text */
-
-static int gl2psPrintPDFPixmapStreamData(GL2PSimage *im,
-                                         int (*action)(unsigned long data, int size),
-                                         int gray)
-{
-  int x, y, shift;
-  GLfloat r, g, b, a;
-
-  if(im->format != GL_RGBA && gray)
-    return 0;
-
-  if(gray && gray != 8 && gray != 16)
-    gray = 8;
-
-  gray /= 8;
-
-  shift = (sizeof(unsigned long) - 1) * 8;
-
-  for(y = 0; y < im->height; ++y){
-    for(x = 0; x < im->width; ++x){
-      a = gl2psGetRGB(im, x, y, &r, &g, &b);
-      if(im->format == GL_RGBA && gray){
-        (*action)((unsigned long)(a * 255) << shift, gray);
-      }
-      else{
-        (*action)((unsigned long)(r * 255) << shift, 1);
-        (*action)((unsigned long)(g * 255) << shift, 1);
-        (*action)((unsigned long)(b * 255) << shift, 1);
-      }
-    }
-  }
-
-  switch(gray){
-  case 0: return 3 * im->width * im->height;
-  case 1: return im->width * im->height;
-  case 2: return 2 * im->width * im->height;
-  default: return 3 * im->width * im->height;
-  }
-}
-
-static int gl2psPrintPDFPixmap(int obj, int childobj, GL2PSimage *im, int gray)
-{
-  int offs = 0, done = 0, sigbytes = 3;
-
-  if(gray && gray !=8 && gray != 16)
-    gray = 8;
-
-  if(gray)
-    sigbytes = gray / 8;
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<<\n"
-                  "/Type /XObject\n"
-                  "/Subtype /Image\n"
-                  "/Width %d\n"
-                  "/Height %d\n"
-                  "/ColorSpace %s \n"
-                  "/BitsPerComponent 8\n",
-                  obj,
-                  (int)im->width, (int)im->height,
-                  (gray) ? "/DeviceGray" : "/DeviceRGB" );
-  if(GL_RGBA == im->format && gray == 0){
-    offs += fprintf(gl2ps->stream,
-                    "/SMask %d 0 R\n",
-                    childobj);
-  }
-
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    gl2psAllocCompress((int)(im->width * im->height * sigbytes));
-
-    gl2psPrintPDFPixmapStreamData(im, gl2psWriteBigEndianCompress, gray);
-
-    if(Z_OK == gl2psDeflate() && 23 + gl2ps->compress->destLen < gl2ps->compress->srcLen){
-      offs += gl2psPrintPDFCompressorType();
-      offs += fprintf(gl2ps->stream,
-                      "/Length %d "
-                      ">>\n"
-                      "stream\n",
-                      (int)gl2ps->compress->destLen);
-      offs += gl2ps->compress->destLen * fwrite(gl2ps->compress->dest, gl2ps->compress->destLen,
-                                                1, gl2ps->stream);
-      done = 1;
-    }
-    gl2psFreeCompress();
-  }
-#endif
-
-  if(!done){
-    /* no compression, or too long after compression, or compress error
-       -> write non-compressed entry */
-    offs += fprintf(gl2ps->stream,
-                    "/Length %d "
-                    ">>\n"
-                    "stream\n",
-                    (int)(im->width * im->height * sigbytes));
-    offs += gl2psPrintPDFPixmapStreamData(im, gl2psWriteBigEndian, gray);
-  }
-
-  offs += fprintf(gl2ps->stream,
-                  "\nendstream\n"
-                  "endobj\n");
-
-  return offs;
-}
-
-static int gl2psPrintPDFText(int obj, GL2PSstring *s, int fontnumber)
-{
-  int offs = 0;
-
-  offs += fprintf(gl2ps->stream,
-                  "%d 0 obj\n"
-                  "<<\n"
-                  "/Type /Font\n"
-                  "/Subtype /Type1\n"
-                  "/Name /F%d\n"
-                  "/BaseFont /%s\n"
-                  "/Encoding /MacRomanEncoding\n"
-                  ">>\n"
-                  "endobj\n",
-                  obj, fontnumber, s->fontname);
-  return offs;
-}
-
-/* Write the physical objects */
-
-static int gl2psPDFgroupListWriteObjects(int entryoffs)
-{
-  int i,j;
-  GL2PSprimitive *p = NULL;
-  GL2PSpdfgroup *gro;
-  int offs = entryoffs;
-  GL2PStriangle *triangles;
-  int size = 0;
-
-  if(!gl2ps->pdfgrouplist)
-    return offs;
-
-  for(i = 0; i < gl2psListNbr(gl2ps->pdfgrouplist); ++i){
-    gro = (GL2PSpdfgroup*)gl2psListPointer(gl2ps->pdfgrouplist, i);
-    if(!gl2psListNbr(gro->ptrlist))
-      continue;
-    p = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, 0);
-    switch(p->type){
-    case GL2PS_POINT:
-      break;
-    case GL2PS_LINE:
-      break;
-    case GL2PS_TRIANGLE:
-      size = gl2psListNbr(gro->ptrlist);
-      triangles = (GL2PStriangle*)gl2psMalloc(sizeof(GL2PStriangle) * size);
-      for(j = 0; j < size; ++j){
-        p = *(GL2PSprimitive**)gl2psListPointer(gro->ptrlist, j);
-        gl2psFillTriangleFromPrimitive(&triangles[j], p, GL_TRUE);
-      }
-      if(triangles[0].prop & T_VAR_COLOR){
-        gl2ps->xreflist[gro->shobjno] = offs;
-        offs += gl2psPrintPDFShader(gro->shobjno, triangles, size, 0);
-      }
-      if(triangles[0].prop & T_ALPHA_LESS_1){
-        gl2ps->xreflist[gro->gsobjno] = offs;
-        offs += gl2psPrintPDFShaderSimpleExtGS(gro->gsobjno, triangles[0].vertex[0].rgba[3]);
-      }
-      if(triangles[0].prop & T_VAR_ALPHA){
-        gl2ps->xreflist[gro->gsobjno] = offs;
-        offs += gl2psPrintPDFShaderExtGS(gro->gsobjno, gro->trgroupobjno);
-        gl2ps->xreflist[gro->trgroupobjno] = offs;
-        offs += gl2psPrintPDFShaderMask(gro->trgroupobjno, gro->maskshno);
-        gl2ps->xreflist[gro->maskshobjno] = offs;
-        offs += gl2psPrintPDFShader(gro->maskshobjno, triangles, size, 8);
-      }
-      gl2psFree(triangles);
-      break;
-    case GL2PS_PIXMAP:
-      gl2ps->xreflist[gro->imobjno] = offs;
-      offs += gl2psPrintPDFPixmap(gro->imobjno, gro->imobjno+1, p->data.image, 0);
-      if(p->data.image->format == GL_RGBA){
-        gl2ps->xreflist[gro->imobjno+1] = offs;
-        offs += gl2psPrintPDFPixmap(gro->imobjno+1, -1, p->data.image, 8);
-      }
-      break;
-    case GL2PS_TEXT:
-      gl2ps->xreflist[gro->fontobjno] = offs;
-      offs += gl2psPrintPDFText(gro->fontobjno,p->data.text,gro->fontno);
-      break;
-    case GL2PS_SPECIAL :
-      /* alignment contains the format for which the special output text
-         is intended */
-      if(p->data.text->alignment == GL2PS_PDF)
-        offs += fprintf(gl2ps->stream, "%s\n", p->data.text->str);
-      break;
-    default:
-      break;
-    }
-  }
-  return offs;
-}
-
-/* All variable data has been written at this point and all required
-   functioninality has been gathered, so we can write now file footer
-   with cross reference table and trailer */
-
-static void gl2psPrintPDFFooter(void)
-{
-  int i, offs;
-
-  gl2psPDFgroupListInit();
-  gl2psPDFgroupListWriteMainStream();
-
-  offs = gl2ps->xreflist[5] + gl2ps->streamlength;
-  offs += gl2psClosePDFDataStream();
-  gl2ps->xreflist[5] = offs;
-
-  offs += gl2psPrintPDFDataStreamLength(gl2ps->streamlength);
-  gl2ps->xreflist[6] = offs;
-  gl2ps->streamlength = 0;
-
-  offs += gl2psPrintPDFOpenPage();
-  offs += gl2psPDFgroupListWriteVariableResources();
-  gl2ps->xreflist = (int*)gl2psRealloc(gl2ps->xreflist,
-                                       sizeof(int) * (gl2ps->objects_stack + 1));
-  gl2ps->xreflist[7] = offs;
-
-  offs += gl2psPrintPDFGSObject();
-  gl2ps->xreflist[8] = offs;
-
-  gl2ps->xreflist[gl2ps->objects_stack] =
-    gl2psPDFgroupListWriteObjects(gl2ps->xreflist[8]);
-
-  /* Start cross reference table. The file has to been opened in
-     binary mode to preserve the 20 digit string length! */
-  fprintf(gl2ps->stream,
-          "xref\n"
-          "0 %d\n"
-          "%010d 65535 f \n", gl2ps->objects_stack, 0);
-
-  for(i = 1; i < gl2ps->objects_stack; ++i)
-    fprintf(gl2ps->stream, "%010d 00000 n \n", gl2ps->xreflist[i]);
-
-  fprintf(gl2ps->stream,
-          "trailer\n"
-          "<<\n"
-          "/Size %d\n"
-          "/Info 1 0 R\n"
-          "/Root 2 0 R\n"
-          ">>\n"
-          "startxref\n%d\n"
-          "%%%%EOF\n",
-          gl2ps->objects_stack, gl2ps->xreflist[gl2ps->objects_stack]);
-
-  /* Free auxiliary lists and arrays */
-  gl2psFree(gl2ps->xreflist);
-  gl2psListAction(gl2ps->pdfprimlist, gl2psFreePrimitive);
-  gl2psListDelete(gl2ps->pdfprimlist);
-  gl2psPDFgroupListDelete();
-
-#if defined(GL2PS_HAVE_ZLIB)
-  if(gl2ps->options & GL2PS_COMPRESS){
-    gl2psFreeCompress();
-    gl2psFree(gl2ps->compress);
-    gl2ps->compress = NULL;
-  }
-#endif
-}
-
-/* PDF begin viewport */
-
-static void gl2psPrintPDFBeginViewport(GLint viewport[4])
-{
-  int offs = 0;
-  GLint index;
-  GLfloat rgba[4];
-  int x = viewport[0], y = viewport[1], w = viewport[2], h = viewport[3];
-
-  glRenderMode(GL_FEEDBACK);
-
-  if(gl2ps->header){
-    gl2psPrintPDFHeader();
-    gl2ps->header = GL_FALSE;
-  }
-
-  offs += gl2psPrintf("q\n");
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    if(gl2ps->colormode == GL_RGBA || gl2ps->colorsize == 0){
-      glGetFloatv(GL_COLOR_CLEAR_VALUE, rgba);
-    }
-    else{
-      glGetIntegerv(GL_INDEX_CLEAR_VALUE, &index);
-      rgba[0] = gl2ps->colormap[index][0];
-      rgba[1] = gl2ps->colormap[index][1];
-      rgba[2] = gl2ps->colormap[index][2];
-      rgba[3] = 1.0F;
-    }
-    offs += gl2psPrintPDFFillColor(rgba);
-    offs += gl2psPrintf("%d %d %d %d re\n"
-                        "W\n"
-                        "f\n",
-                        x, y, w, h);
-  }
-  else{
-    offs += gl2psPrintf("%d %d %d %d re\n"
-                        "W\n"
-                        "n\n",
-                        x, y, w, h);
-  }
-
-  gl2ps->streamlength += offs;
-}
-
-static GLint gl2psPrintPDFEndViewport(void)
-{
-  GLint res;
-
-  res = gl2psPrintPrimitives();
-  gl2ps->streamlength += gl2psPrintf("Q\n");
-  return res;
-}
-
-static void gl2psPrintPDFFinalPrimitive(void)
-{
-}
-
-/* definition of the PDF backend */
-
-static GL2PSbackend gl2psPDF = {
-  gl2psPrintPDFHeader,
-  gl2psPrintPDFFooter,
-  gl2psPrintPDFBeginViewport,
-  gl2psPrintPDFEndViewport,
-  gl2psPrintPDFPrimitive,
-  gl2psPrintPDFFinalPrimitive,
-  "pdf",
-  "Portable Document Format"
-};
-
-/*********************************************************************
- *
- * SVG routines
- *
- *********************************************************************/
-
-static void gl2psSVGGetCoordsAndColors(int n, GL2PSvertex *verts,
-                                       GL2PSxyz *xyz, GL2PSrgba *rgba)
-{
-  int i, j;
-
-  for(i = 0; i < n; i++){
-    xyz[i][0] = verts[i].xyz[0];
-    xyz[i][1] = gl2ps->viewport[3] - verts[i].xyz[1];
-    xyz[i][2] = 0.0F;
-    for(j = 0; j < 4; j++)
-      rgba[i][j] = verts[i].rgba[j];
-  }
-}
-
-static void gl2psSVGGetColorString(GL2PSrgba rgba, char str[32])
-{
-  int r = (int)(255. * rgba[0]);
-  int g = (int)(255. * rgba[1]);
-  int b = (int)(255. * rgba[2]);
-  int rc = (r < 0) ? 0 : (r > 255) ? 255 : r;
-  int gc = (g < 0) ? 0 : (g > 255) ? 255 : g;
-  int bc = (b < 0) ? 0 : (b > 255) ? 255 : b;
-  sprintf(str, "#%2.2x%2.2x%2.2x", rc, gc, bc);
-}
-
-static void gl2psPrintSVGHeader(void)
-{
-  int x, y, width, height;
-  char col[32];
-  time_t now;
-
-  time(&now);
-
-  if (gl2ps->options & GL2PS_LANDSCAPE){
-    x = (int)gl2ps->viewport[1];
-    y = (int)gl2ps->viewport[0];
-    width = (int)gl2ps->viewport[3];
-    height = (int)gl2ps->viewport[2];
-  }
-  else{
-    x = (int)gl2ps->viewport[0];
-    y = (int)gl2ps->viewport[1];
-    width = (int)gl2ps->viewport[2];
-    height = (int)gl2ps->viewport[3];
-  }
-
-  /* Compressed SVG files (.svgz) are simply gzipped SVG files */
-  gl2psPrintGzipHeader();
-
-  gl2psPrintf("<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n");
-  gl2psPrintf("<svg xmlns=\"http://www.w3.org/2000/svg\"\n");
-  gl2psPrintf("     xmlns:xlink=\"http://www.w3.org/1999/xlink\"\n"
-              "     width=\"%dpx\" height=\"%dpx\" viewBox=\"%d %d %d %d\">\n",
-              width, height, x, y, width, height);
-  gl2psPrintf("<title>%s</title>\n", gl2ps->title);
-  gl2psPrintf("<desc>\n");
-  gl2psPrintf("Creator: GL2PS %d.%d.%d%s, %s\n"
-              "For: %s\n"
-              "CreationDate: %s",
-              GL2PS_MAJOR_VERSION, GL2PS_MINOR_VERSION, GL2PS_PATCH_VERSION,
-              GL2PS_EXTRA_VERSION, GL2PS_COPYRIGHT, gl2ps->producer, ctime(&now));
-  gl2psPrintf("</desc>\n");
-  gl2psPrintf("<defs>\n");
-  gl2psPrintf("</defs>\n");
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    gl2psSVGGetColorString(gl2ps->bgcolor, col);
-    gl2psPrintf("<polygon fill=\"%s\" points=\"%d,%d %d,%d %d,%d %d,%d\"/>\n", col,
-                (int)gl2ps->viewport[0], (int)gl2ps->viewport[1],
-                (int)gl2ps->viewport[2], (int)gl2ps->viewport[1],
-                (int)gl2ps->viewport[2], (int)gl2ps->viewport[3],
-                (int)gl2ps->viewport[0], (int)gl2ps->viewport[3]);
-  }
-
-  /* group all the primitives and disable antialiasing */
-  gl2psPrintf("<g shape-rendering=\"crispEdges\">\n");
-}
-
-static void gl2psPrintSVGSmoothTriangle(GL2PSxyz xyz[3], GL2PSrgba rgba[3])
-{
-  int i;
-  GL2PSxyz xyz2[3];
-  GL2PSrgba rgba2[3];
-  char col[32];
-
-  /* Apparently there is no easy way to do Gouraud shading in SVG
-     without explicitly pre-defining gradients, so for now we just do
-     recursive subdivision */
-
-  if(gl2psSameColorThreshold(3, rgba, gl2ps->threshold)){
-    gl2psSVGGetColorString(rgba[0], col);
-    gl2psPrintf("<polygon fill=\"%s\" ", col);
-    if(rgba[0][3] < 1.0F) gl2psPrintf("fill-opacity=\"%g\" ", rgba[0][3]);
-    gl2psPrintf("points=\"%g,%g %g,%g %g,%g\"/>\n", xyz[0][0], xyz[0][1],
-                xyz[1][0], xyz[1][1], xyz[2][0], xyz[2][1]);
-  }
-  else{
-    /* subdivide into 4 subtriangles */
-    for(i = 0; i < 3; i++){
-      xyz2[0][i] = xyz[0][i];
-      xyz2[1][i] = 0.5F * (xyz[0][i] + xyz[1][i]);
-      xyz2[2][i] = 0.5F * (xyz[0][i] + xyz[2][i]);
-    }
-    for(i = 0; i < 4; i++){
-      rgba2[0][i] = rgba[0][i];
-      rgba2[1][i] = 0.5F * (rgba[0][i] + rgba[1][i]);
-      rgba2[2][i] = 0.5F * (rgba[0][i] + rgba[2][i]);
-    }
-    gl2psPrintSVGSmoothTriangle(xyz2, rgba2);
-    for(i = 0; i < 3; i++){
-      xyz2[0][i] = 0.5F * (xyz[0][i] + xyz[1][i]);
-      xyz2[1][i] = xyz[1][i];
-      xyz2[2][i] = 0.5F * (xyz[1][i] + xyz[2][i]);
-    }
-    for(i = 0; i < 4; i++){
-      rgba2[0][i] = 0.5F * (rgba[0][i] + rgba[1][i]);
-      rgba2[1][i] = rgba[1][i];
-      rgba2[2][i] = 0.5F * (rgba[1][i] + rgba[2][i]);
-    }
-    gl2psPrintSVGSmoothTriangle(xyz2, rgba2);
-    for(i = 0; i < 3; i++){
-      xyz2[0][i] = 0.5F * (xyz[0][i] + xyz[2][i]);
-      xyz2[1][i] = xyz[2][i];
-      xyz2[2][i] = 0.5F * (xyz[1][i] + xyz[2][i]);
-    }
-    for(i = 0; i < 4; i++){
-      rgba2[0][i] = 0.5F * (rgba[0][i] + rgba[2][i]);
-      rgba2[1][i] = rgba[2][i];
-      rgba2[2][i] = 0.5F * (rgba[1][i] + rgba[2][i]);
-    }
-    gl2psPrintSVGSmoothTriangle(xyz2, rgba2);
-    for(i = 0; i < 3; i++){
-      xyz2[0][i] = 0.5F * (xyz[0][i] + xyz[1][i]);
-      xyz2[1][i] = 0.5F * (xyz[1][i] + xyz[2][i]);
-      xyz2[2][i] = 0.5F * (xyz[0][i] + xyz[2][i]);
-    }
-    for(i = 0; i < 4; i++){
-      rgba2[0][i] = 0.5F * (rgba[0][i] + rgba[1][i]);
-      rgba2[1][i] = 0.5F * (rgba[1][i] + rgba[2][i]);
-      rgba2[2][i] = 0.5F * (rgba[0][i] + rgba[2][i]);
-    }
-    gl2psPrintSVGSmoothTriangle(xyz2, rgba2);
-  }
-}
-
-static void gl2psPrintSVGDash(GLushort pattern, GLint factor)
-{
-  int i, n, array[10];
-
-  if(!pattern || !factor) return; /* solid line */
-
-  gl2psParseStipplePattern(pattern, factor, &n, array);
-  gl2psPrintf("stroke-dasharray=\"");
-  for(i = 0; i < n; i++){
-    if(i) gl2psPrintf(",");
-    gl2psPrintf("%d", array[i]);
-  }
-  gl2psPrintf("\" ");
-}
-
-static void gl2psEndSVGLine(void)
-{
-  int i;
-  if(gl2ps->lastvertex.rgba[0] >= 0.){
-    gl2psPrintf("%g,%g\"/>\n", gl2ps->lastvertex.xyz[0],
-                gl2ps->viewport[3] - gl2ps->lastvertex.xyz[1]);
-    for(i = 0; i < 3; i++)
-      gl2ps->lastvertex.xyz[i] = -1.;
-    for(i = 0; i < 4; i++)
-      gl2ps->lastvertex.rgba[i] = -1.;
-  }
-}
-
-static void gl2psPrintSVGPixmap(GLfloat x, GLfloat y, GL2PSimage *pixmap)
-{
-#if defined(GL2PS_HAVE_LIBPNG)
-  GL2PSlist *png;
-  unsigned char c;
-  int i;
-
-  /* The only image types supported by the SVG standard are JPEG, PNG
-     and SVG. Here we choose PNG, and since we want to embed the image
-     directly in the SVG stream (and not link to an external image
-     file), we need to encode the pixmap into PNG in memory, then
-     encode it into base64. */
-
-  png = gl2psListCreate(pixmap->width * pixmap->height * 3, 1000,
-                        sizeof(unsigned char));
-  gl2psConvertPixmapToPNG(pixmap, png);
-  gl2psListEncodeBase64(png);
-  gl2psPrintf("<image x=\"%g\" y=\"%g\" width=\"%d\" height=\"%d\"\n",
-              x, y - pixmap->height, pixmap->width, pixmap->height);
-  gl2psPrintf("xlink:href=\"data:image/png;base64,");
-  for(i = 0; i < gl2psListNbr(png); i++){
-    gl2psListRead(png, i, &c);
-    gl2psPrintf("%c", c);
-  }
-  gl2psPrintf("\"/>\n");
-  gl2psListDelete(png);
-#else
-  (void) x; (void) y; (void) pixmap;  /* not used */
-  gl2psMsg(GL2PS_WARNING, "GL2PS must be compiled with PNG support in "
-           "order to embed images in SVG streams");
-#endif
-}
-
-static void gl2psPrintSVGPrimitive(void *data)
-{
-  GL2PSprimitive *prim;
-  GL2PSxyz xyz[4];
-  GL2PSrgba rgba[4];
-  char col[32];
-  int newline;
-
-  prim = *(GL2PSprimitive**)data;
-
-  if((gl2ps->options & GL2PS_OCCLUSION_CULL) && prim->culled) return;
-
-  /* We try to draw connected lines as a single path to get nice line
-     joins and correct stippling. So if the primitive to print is not
-     a line we must first finish the current line (if any): */
-  if(prim->type != GL2PS_LINE) gl2psEndSVGLine();
-
-  gl2psSVGGetCoordsAndColors(prim->numverts, prim->verts, xyz, rgba);
-
-  switch(prim->type){
-  case GL2PS_POINT :
-    gl2psSVGGetColorString(rgba[0], col);
-    gl2psPrintf("<circle fill=\"%s\" ", col);
-    if(rgba[0][3] < 1.0F) gl2psPrintf("fill-opacity=\"%g\" ", rgba[0][3]);
-    gl2psPrintf("cx=\"%g\" cy=\"%g\" r=\"%g\"/>\n",
-                xyz[0][0], xyz[0][1], 0.5 * prim->width);
-    break;
-  case GL2PS_LINE :
-    if(!gl2psSamePosition(gl2ps->lastvertex.xyz, prim->verts[0].xyz) ||
-       !gl2psSameColor(gl2ps->lastrgba, prim->verts[0].rgba) ||
-       gl2ps->lastlinewidth != prim->width ||
-       gl2ps->lastpattern != prim->pattern ||
-       gl2ps->lastfactor != prim->factor){
-      /* End the current line if the new segment does not start where
-         the last one ended, or if the color, the width or the
-         stippling have changed (we will need to use multi-point
-         gradients for smooth-shaded lines) */
-      gl2psEndSVGLine();
-      newline = 1;
-    }
-    else{
-      newline = 0;
-    }
-    gl2ps->lastvertex = prim->verts[1];
-    gl2psSetLastColor(prim->verts[0].rgba);
-    gl2ps->lastlinewidth = prim->width;
-    gl2ps->lastpattern = prim->pattern;
-    gl2ps->lastfactor = prim->factor;
-    if(newline){
-      gl2psSVGGetColorString(rgba[0], col);
-      gl2psPrintf("<polyline fill=\"none\" stroke=\"%s\" stroke-width=\"%g\" ",
-                  col, prim->width);
-      if(rgba[0][3] < 1.0F) gl2psPrintf("stroke-opacity=\"%g\" ", rgba[0][3]);
-      gl2psPrintSVGDash(prim->pattern, prim->factor);
-      gl2psPrintf("points=\"%g,%g ", xyz[0][0], xyz[0][1]);
-    }
-    else{
-      gl2psPrintf("%g,%g ", xyz[0][0], xyz[0][1]);
-    }
-    break;
-  case GL2PS_TRIANGLE :
-    gl2psPrintSVGSmoothTriangle(xyz, rgba);
-    break;
-  case GL2PS_QUADRANGLE :
-    gl2psMsg(GL2PS_WARNING, "There should not be any quad left to print");
-    break;
-  case GL2PS_PIXMAP :
-    gl2psPrintSVGPixmap(xyz[0][0], xyz[0][1], prim->data.image);
-    break;
-  case GL2PS_TEXT :
-    gl2psSVGGetColorString(prim->verts[0].rgba, col);
-    gl2psPrintf("<text fill=\"%s\" x=\"%g\" y=\"%g\" font-size=\"%d\" ",
-                col, xyz[0][0], xyz[0][1], prim->data.text->fontsize);
-    if(prim->data.text->angle)
-      gl2psPrintf("transform=\"rotate(%g, %g, %g)\" ",
-                  -prim->data.text->angle, xyz[0][0], xyz[0][1]);
-    switch(prim->data.text->alignment){
-    case GL2PS_TEXT_C:
-      gl2psPrintf("text-anchor=\"middle\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize / 2);
-      break;
-    case GL2PS_TEXT_CL:
-      gl2psPrintf("text-anchor=\"start\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize / 2);
-      break;
-    case GL2PS_TEXT_CR:
-      gl2psPrintf("text-anchor=\"end\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize / 2);
-      break;
-    case GL2PS_TEXT_B:
-      gl2psPrintf("text-anchor=\"middle\" baseline-shift=\"0\" ");
-      break;
-    case GL2PS_TEXT_BR:
-      gl2psPrintf("text-anchor=\"end\" baseline-shift=\"0\" ");
-      break;
-    case GL2PS_TEXT_T:
-      gl2psPrintf("text-anchor=\"middle\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize);
-      break;
-    case GL2PS_TEXT_TL:
-      gl2psPrintf("text-anchor=\"start\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize);
-      break;
-    case GL2PS_TEXT_TR:
-      gl2psPrintf("text-anchor=\"end\" baseline-shift=\"%d\" ",
-                  -prim->data.text->fontsize);
-      break;
-    case GL2PS_TEXT_BL:
-    default: /* same as GL2PS_TEXT_BL */
-      gl2psPrintf("text-anchor=\"start\" baseline-shift=\"0\" ");
-      break;
-    }
-    if(!strcmp(prim->data.text->fontname, "Times-Roman"))
-      gl2psPrintf("font-family=\"Times\">");
-    else if(!strcmp(prim->data.text->fontname, "Times-Bold"))
-      gl2psPrintf("font-family=\"Times\" font-weight=\"bold\">");
-    else if(!strcmp(prim->data.text->fontname, "Times-Italic"))
-      gl2psPrintf("font-family=\"Times\" font-style=\"italic\">");
-    else if(!strcmp(prim->data.text->fontname, "Times-BoldItalic"))
-      gl2psPrintf("font-family=\"Times\" font-style=\"italic\" font-weight=\"bold\">");
-    else if(!strcmp(prim->data.text->fontname, "Helvetica-Bold"))
-      gl2psPrintf("font-family=\"Helvetica\" font-weight=\"bold\">");
-    else if(!strcmp(prim->data.text->fontname, "Helvetica-Oblique"))
-      gl2psPrintf("font-family=\"Helvetica\" font-style=\"oblique\">");
-    else if(!strcmp(prim->data.text->fontname, "Helvetica-BoldOblique"))
-      gl2psPrintf("font-family=\"Helvetica\" font-style=\"oblique\" font-weight=\"bold\">");
-    else if(!strcmp(prim->data.text->fontname, "Courier-Bold"))
-      gl2psPrintf("font-family=\"Courier\" font-weight=\"bold\">");
-    else if(!strcmp(prim->data.text->fontname, "Courier-Oblique"))
-      gl2psPrintf("font-family=\"Courier\" font-style=\"oblique\">");
-    else if(!strcmp(prim->data.text->fontname, "Courier-BoldOblique"))
-      gl2psPrintf("font-family=\"Courier\" font-style=\"oblique\" font-weight=\"bold\">");
-    else
-      gl2psPrintf("font-family=\"%s\">", prim->data.text->fontname);
-    gl2psPrintf("%s</text>\n", prim->data.text->str);
-    break;
-  case GL2PS_SPECIAL :
-    /* alignment contains the format for which the special output text
-       is intended */
-    if(prim->data.text->alignment == GL2PS_SVG)
-      gl2psPrintf("%s\n", prim->data.text->str);
-    break;
-  default :
-    break;
-  }
-}
-
-static void gl2psPrintSVGFooter(void)
-{
-  gl2psPrintf("</g>\n");
-  gl2psPrintf("</svg>\n");
-
-  gl2psPrintGzipFooter();
-}
-
-static void gl2psPrintSVGBeginViewport(GLint viewport[4])
-{
-  GLint index;
-  char col[32];
-  GLfloat rgba[4];
-  int x = viewport[0], y = viewport[1], w = viewport[2], h = viewport[3];
-
-  glRenderMode(GL_FEEDBACK);
-
-  if(gl2ps->header){
-    gl2psPrintSVGHeader();
-    gl2ps->header = GL_FALSE;
-  }
-
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    if(gl2ps->colormode == GL_RGBA || gl2ps->colorsize == 0){
-      glGetFloatv(GL_COLOR_CLEAR_VALUE, rgba);
-    }
-    else{
-      glGetIntegerv(GL_INDEX_CLEAR_VALUE, &index);
-      rgba[0] = gl2ps->colormap[index][0];
-      rgba[1] = gl2ps->colormap[index][1];
-      rgba[2] = gl2ps->colormap[index][2];
-      rgba[3] = 1.0F;
-    }
-    gl2psSVGGetColorString(rgba, col);
-    gl2psPrintf("<polygon fill=\"%s\" points=\"%d,%d %d,%d %d,%d %d,%d\"/>\n", col,
-                x, gl2ps->viewport[3] - y,
-                x + w, gl2ps->viewport[3] - y,
-                x + w, gl2ps->viewport[3] - (y + h),
-                x, gl2ps->viewport[3] - (y + h));
-  }
-
-  gl2psPrintf("<clipPath id=\"cp%d%d%d%d\">\n", x, y, w, h);
-  gl2psPrintf("  <polygon points=\"%d,%d %d,%d %d,%d %d,%d\"/>\n",
-              x, gl2ps->viewport[3] - y,
-              x + w, gl2ps->viewport[3] - y,
-              x + w, gl2ps->viewport[3] - (y + h),
-              x, gl2ps->viewport[3] - (y + h));
-  gl2psPrintf("</clipPath>\n");
-  gl2psPrintf("<g clip-path=\"url(#cp%d%d%d%d)\">\n", x, y, w, h);
-}
-
-static GLint gl2psPrintSVGEndViewport(void)
-{
-  GLint res;
-
-  res = gl2psPrintPrimitives();
-  gl2psPrintf("</g>\n");
-  return res;
-}
-
-static void gl2psPrintSVGFinalPrimitive(void)
-{
-  /* End any remaining line, if any */
-  gl2psEndSVGLine();
-}
-
-/* definition of the SVG backend */
-
-static GL2PSbackend gl2psSVG = {
-  gl2psPrintSVGHeader,
-  gl2psPrintSVGFooter,
-  gl2psPrintSVGBeginViewport,
-  gl2psPrintSVGEndViewport,
-  gl2psPrintSVGPrimitive,
-  gl2psPrintSVGFinalPrimitive,
-  "svg",
-  "Scalable Vector Graphics"
-};
-
-/*********************************************************************
- *
- * PGF routines
- *
- *********************************************************************/
-
-static void gl2psPrintPGFColor(GL2PSrgba rgba)
-{
-  if(!gl2psSameColor(gl2ps->lastrgba, rgba)){
-    gl2psSetLastColor(rgba);
-    fprintf(gl2ps->stream, "\\color[rgb]{%f,%f,%f}\n", rgba[0], rgba[1], rgba[2]);
-  }
-}
-
-static void gl2psPrintPGFHeader(void)
-{
-  time_t now;
-
-  time(&now);
-
-  fprintf(gl2ps->stream,
-          "%% Title: %s\n"
-          "%% Creator: GL2PS %d.%d.%d%s, %s\n"
-          "%% For: %s\n"
-          "%% CreationDate: %s",
-          gl2ps->title, GL2PS_MAJOR_VERSION, GL2PS_MINOR_VERSION,
-          GL2PS_PATCH_VERSION, GL2PS_EXTRA_VERSION, GL2PS_COPYRIGHT,
-          gl2ps->producer, ctime(&now));
-
-  fprintf(gl2ps->stream, "\\begin{pgfpicture}\n");
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    gl2psPrintPGFColor(gl2ps->bgcolor);
-    fprintf(gl2ps->stream,
-            "\\pgfpathrectanglecorners{"
-            "\\pgfpoint{%dpt}{%dpt}}{\\pgfpoint{%dpt}{%dpt}}\n"
-            "\\pgfusepath{fill}\n",
-            (int)gl2ps->viewport[0], (int)gl2ps->viewport[1],
-            (int)gl2ps->viewport[2], (int)gl2ps->viewport[3]);
-  }
-}
-
-static void gl2psPrintPGFDash(GLushort pattern, GLint factor)
-{
-  int i, n, array[10];
-
-  if(pattern == gl2ps->lastpattern && factor == gl2ps->lastfactor)
-    return;
-
-  gl2ps->lastpattern = pattern;
-  gl2ps->lastfactor = factor;
-
-  if(!pattern || !factor){
-    /* solid line */
-    fprintf(gl2ps->stream, "\\pgfsetdash{}{0pt}\n");
-  }
-  else{
-    gl2psParseStipplePattern(pattern, factor, &n, array);
-    fprintf(gl2ps->stream, "\\pgfsetdash{");
-    for(i = 0; i < n; i++) fprintf(gl2ps->stream, "{%dpt}", array[i]);
-    fprintf(gl2ps->stream, "}{0pt}\n");
-  }
-}
-
-static const char *gl2psPGFTextAlignment(int align)
-{
-  switch(align){
-  case GL2PS_TEXT_C  : return "center";
-  case GL2PS_TEXT_CL : return "west";
-  case GL2PS_TEXT_CR : return "east";
-  case GL2PS_TEXT_B  : return "south";
-  case GL2PS_TEXT_BR : return "south east";
-  case GL2PS_TEXT_T  : return "north";
-  case GL2PS_TEXT_TL : return "north west";
-  case GL2PS_TEXT_TR : return "north east";
-  case GL2PS_TEXT_BL :
-  default            : return "south west";
-  }
-}
-
-static void gl2psPrintPGFPrimitive(void *data)
-{
-  GL2PSprimitive *prim;
-
-  prim = *(GL2PSprimitive**)data;
-
-  switch(prim->type){
-  case GL2PS_POINT :
-    /* Points in openGL are rectangular */
-    gl2psPrintPGFColor(prim->verts[0].rgba);
-    fprintf(gl2ps->stream,
-            "\\pgfpathrectangle{\\pgfpoint{%fpt}{%fpt}}"
-            "{\\pgfpoint{%fpt}{%fpt}}\n\\pgfusepath{fill}\n",
-            prim->verts[0].xyz[0]-0.5*prim->width,
-            prim->verts[0].xyz[1]-0.5*prim->width,
-            prim->width,prim->width);
-    break;
-  case GL2PS_LINE :
-    gl2psPrintPGFColor(prim->verts[0].rgba);
-    if(gl2ps->lastlinewidth != prim->width){
-      gl2ps->lastlinewidth = prim->width;
-      fprintf(gl2ps->stream, "\\pgfsetlinewidth{%fpt}\n", gl2ps->lastlinewidth);
-    }
-    gl2psPrintPGFDash(prim->pattern, prim->factor);
-    fprintf(gl2ps->stream,
-            "\\pgfpathmoveto{\\pgfpoint{%fpt}{%fpt}}\n"
-            "\\pgflineto{\\pgfpoint{%fpt}{%fpt}}\n"
-            "\\pgfusepath{stroke}\n",
-            prim->verts[1].xyz[0], prim->verts[1].xyz[1],
-            prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-    break;
-  case GL2PS_TRIANGLE :
-    if(gl2ps->lastlinewidth != 0){
-      gl2ps->lastlinewidth = 0;
-      fprintf(gl2ps->stream, "\\pgfsetlinewidth{0.01pt}\n");
-    }
-    gl2psPrintPGFColor(prim->verts[0].rgba);
-    fprintf(gl2ps->stream,
-            "\\pgfpathmoveto{\\pgfpoint{%fpt}{%fpt}}\n"
-            "\\pgflineto{\\pgfpoint{%fpt}{%fpt}}\n"
-            "\\pgflineto{\\pgfpoint{%fpt}{%fpt}}\n"
-            "\\pgfpathclose\n"
-            "\\pgfusepath{fill,stroke}\n",
-            prim->verts[2].xyz[0], prim->verts[2].xyz[1],
-            prim->verts[1].xyz[0], prim->verts[1].xyz[1],
-            prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-    break;
-  case GL2PS_TEXT :
-    fprintf(gl2ps->stream, "{\n\\pgftransformshift{\\pgfpoint{%fpt}{%fpt}}\n",
-            prim->verts[0].xyz[0], prim->verts[0].xyz[1]);
-
-    if(prim->data.text->angle)
-      fprintf(gl2ps->stream, "\\pgftransformrotate{%f}{", prim->data.text->angle);
-
-    fprintf(gl2ps->stream, "\\pgfnode{rectangle}{%s}{\\fontsize{%d}{0}\\selectfont",
-            gl2psPGFTextAlignment(prim->data.text->alignment),
-            prim->data.text->fontsize);
-
-    fprintf(gl2ps->stream, "\\textcolor[rgb]{%g,%g,%g}{{%s}}",
-            prim->verts[0].rgba[0], prim->verts[0].rgba[1],
-            prim->verts[0].rgba[2], prim->data.text->str);
-
-    fprintf(gl2ps->stream, "}{}{\\pgfusepath{discard}}}\n");
-    break;
-  case GL2PS_SPECIAL :
-    /* alignment contains the format for which the special output text
-       is intended */
-    if (prim->data.text->alignment == GL2PS_PGF)
-      fprintf(gl2ps->stream, "%s\n", prim->data.text->str);
-    break;
-  default :
-    break;
-  }
-}
-
-static void gl2psPrintPGFFooter(void)
-{
-  fprintf(gl2ps->stream, "\\end{pgfpicture}\n");
-}
-
-static void gl2psPrintPGFBeginViewport(GLint viewport[4])
-{
-  GLint index;
-  GLfloat rgba[4];
-  int x = viewport[0], y = viewport[1], w = viewport[2], h = viewport[3];
-
-  glRenderMode(GL_FEEDBACK);
-
-  if(gl2ps->header){
-    gl2psPrintPGFHeader();
-    gl2ps->header = GL_FALSE;
-  }
-
-  fprintf(gl2ps->stream, "\\begin{pgfscope}\n");
-  if(gl2ps->options & GL2PS_DRAW_BACKGROUND){
-    if(gl2ps->colormode == GL_RGBA || gl2ps->colorsize == 0){
-      glGetFloatv(GL_COLOR_CLEAR_VALUE, rgba);
-    }
-    else{
-      glGetIntegerv(GL_INDEX_CLEAR_VALUE, &index);
-      rgba[0] = gl2ps->colormap[index][0];
-      rgba[1] = gl2ps->colormap[index][1];
-      rgba[2] = gl2ps->colormap[index][2];
-      rgba[3] = 1.0F;
-    }
-    gl2psPrintPGFColor(rgba);
-    fprintf(gl2ps->stream,
-            "\\pgfpathrectangle{\\pgfpoint{%dpt}{%dpt}}"
-            "{\\pgfpoint{%dpt}{%dpt}}\n"
-            "\\pgfusepath{fill}\n",
-            x, y, w, h);
-  }
-
-  fprintf(gl2ps->stream,
-          "\\pgfpathrectangle{\\pgfpoint{%dpt}{%dpt}}"
-          "{\\pgfpoint{%dpt}{%dpt}}\n"
-          "\\pgfusepath{clip}\n",
-          x, y, w, h);
-}
-
-static GLint gl2psPrintPGFEndViewport(void)
-{
-  GLint res;
-  res = gl2psPrintPrimitives();
-  fprintf(gl2ps->stream, "\\end{pgfscope}\n");
-  return res;
-}
-
-static void gl2psPrintPGFFinalPrimitive(void)
-{
-}
-
-/* definition of the PGF backend */
-
-static GL2PSbackend gl2psPGF = {
-  gl2psPrintPGFHeader,
-  gl2psPrintPGFFooter,
-  gl2psPrintPGFBeginViewport,
-  gl2psPrintPGFEndViewport,
-  gl2psPrintPGFPrimitive,
-  gl2psPrintPGFFinalPrimitive,
-  "tex",
-  "PGF Latex Graphics"
-};
-
-/*********************************************************************
- *
- * General primitive printing routine
- *
- *********************************************************************/
-
-/* Warning: the ordering of the backends must match the format
-   #defines in gl2ps.h */
-
-static GL2PSbackend *gl2psbackends[] = {
-  &gl2psPS,  /* 0 */
-  &gl2psEPS, /* 1 */
-  &gl2psTEX, /* 2 */
-  &gl2psPDF, /* 3 */
-  &gl2psSVG, /* 4 */
-  &gl2psPGF  /* 5 */
-};
-
-static void gl2psComputeTightBoundingBox(void *data)
-{
-  GL2PSprimitive *prim;
-  int i;
-
-  prim = *(GL2PSprimitive**)data;
-
-  for(i = 0; i < prim->numverts; i++){
-    if(prim->verts[i].xyz[0] < gl2ps->viewport[0])
-      gl2ps->viewport[0] = (GLint)prim->verts[i].xyz[0];
-    if(prim->verts[i].xyz[0] > gl2ps->viewport[2])
-      gl2ps->viewport[2] = (GLint)(prim->verts[i].xyz[0] + 0.5F);
-    if(prim->verts[i].xyz[1] < gl2ps->viewport[1])
-      gl2ps->viewport[1] = (GLint)prim->verts[i].xyz[1];
-    if(prim->verts[i].xyz[1] > gl2ps->viewport[3])
-      gl2ps->viewport[3] = (GLint)(prim->verts[i].xyz[1] + 0.5F);
-  }
-}
-
-static GLint gl2psPrintPrimitives(void)
-{
-  GL2PSbsptree *root;
-  GL2PSxyz eye = {0.0F, 0.0F, 100.0F * GL2PS_ZSCALE};
-  GLint used;
-
-  used = glRenderMode(GL_RENDER);
-
-  if(used < 0){
-    gl2psMsg(GL2PS_INFO, "OpenGL feedback buffer overflow");
-    return GL2PS_OVERFLOW;
-  }
-
-  if(used > 0)
-    gl2psParseFeedbackBuffer(used);
-
-  gl2psRescaleAndOffset();
-
-  if(gl2ps->header){
-    if(gl2psListNbr(gl2ps->primitives) &&
-       (gl2ps->options & GL2PS_TIGHT_BOUNDING_BOX)){
-      gl2ps->viewport[0] = gl2ps->viewport[1] = 100000;
-      gl2ps->viewport[2] = gl2ps->viewport[3] = -100000;
-      gl2psListAction(gl2ps->primitives, gl2psComputeTightBoundingBox);
-    }
-    (gl2psbackends[gl2ps->format]->printHeader)();
-    gl2ps->header = GL_FALSE;
-  }
-
-  if(!gl2psListNbr(gl2ps->primitives)){
-    /* empty feedback buffer and/or nothing else to print */
-    return GL2PS_NO_FEEDBACK;
-  }
-
-  switch(gl2ps->sort){
-  case GL2PS_NO_SORT :
-    gl2psListAction(gl2ps->primitives, gl2psbackends[gl2ps->format]->printPrimitive);
-    gl2psListAction(gl2ps->primitives, gl2psFreePrimitive);
-    /* reset the primitive list, waiting for the next viewport */
-    gl2psListReset(gl2ps->primitives);
-    break;
-  case GL2PS_SIMPLE_SORT :
-    gl2psListSort(gl2ps->primitives, gl2psCompareDepth);
-    if(gl2ps->options & GL2PS_OCCLUSION_CULL){
-      gl2psListActionInverse(gl2ps->primitives, gl2psAddInImageTree);
-      gl2psFreeBspImageTree(&gl2ps->imagetree);
-    }
-    gl2psListAction(gl2ps->primitives, gl2psbackends[gl2ps->format]->printPrimitive);
-    gl2psListAction(gl2ps->primitives, gl2psFreePrimitive);
-    /* reset the primitive list, waiting for the next viewport */
-    gl2psListReset(gl2ps->primitives);
-    break;
-  case GL2PS_BSP_SORT :
-    root = (GL2PSbsptree*)gl2psMalloc(sizeof(GL2PSbsptree));
-    gl2psBuildBspTree(root, gl2ps->primitives);
-    if(GL_TRUE == gl2ps->boundary) gl2psBuildPolygonBoundary(root);
-    if(gl2ps->options & GL2PS_OCCLUSION_CULL){
-      gl2psTraverseBspTree(root, eye, -GL2PS_EPSILON, gl2psLess,
-                           gl2psAddInImageTree, 1);
-      gl2psFreeBspImageTree(&gl2ps->imagetree);
-    }
-    gl2psTraverseBspTree(root, eye, GL2PS_EPSILON, gl2psGreater,
-                         gl2psbackends[gl2ps->format]->printPrimitive, 0);
-    gl2psFreeBspTree(&root);
-    /* reallocate the primitive list (it's been deleted by
-       gl2psBuildBspTree) in case there is another viewport */
-    gl2ps->primitives = gl2psListCreate(500, 500, sizeof(GL2PSprimitive*));
-    break;
-  }
-  gl2psbackends[gl2ps->format]->printFinalPrimitive();
-
-  return GL2PS_SUCCESS;
-}
-
-/*********************************************************************
- *
- * Public routines
- *
- *********************************************************************/
-
-GL2PSDLL_API GLint gl2psBeginPage(const char *title, const char *producer,
-                                  GLint viewport[4], GLint format, GLint sort,
-                                  GLint options, GLint colormode,
-                                  GLint colorsize, GL2PSrgba *colormap,
-                                  GLint nr, GLint ng, GLint nb, GLint buffersize,
-                                  FILE *stream, const char *filename)
-{
-  GLint index;
-  int i;
-
-  if(gl2ps){
-    gl2psMsg(GL2PS_ERROR, "gl2psBeginPage called in wrong program state");
-    return GL2PS_ERROR;
-  }
-
-  gl2ps = (GL2PScontext*)gl2psMalloc(sizeof(GL2PScontext));
-
-  if(format >= 0 && format < (GLint)(sizeof(gl2psbackends) / sizeof(gl2psbackends[0]))){
-    gl2ps->format = format;
-  }
-  else {
-    gl2psMsg(GL2PS_ERROR, "Unknown output format: %d", format);
-    gl2psFree(gl2ps);
-    gl2ps = NULL;
-    return GL2PS_ERROR;
-  }
-
-  switch(sort){
-  case GL2PS_NO_SORT :
-  case GL2PS_SIMPLE_SORT :
-  case GL2PS_BSP_SORT :
-    gl2ps->sort = sort;
-    break;
-  default :
-    gl2psMsg(GL2PS_ERROR, "Unknown sorting algorithm: %d", sort);
-    gl2psFree(gl2ps);
-    gl2ps = NULL;
-    return GL2PS_ERROR;
-  }
-
-  if(stream){
-    gl2ps->stream = stream;
-  }
-  else{
-    gl2psMsg(GL2PS_ERROR, "Bad file pointer");
-    gl2psFree(gl2ps);
-    gl2ps = NULL;
-    return GL2PS_ERROR;
-  }
-
-  gl2ps->header = GL_TRUE;
-  gl2ps->maxbestroot = 10;
-  gl2ps->options = options;
-  gl2ps->compress = NULL;
-  gl2ps->imagemap_head = NULL;
-  gl2ps->imagemap_tail = NULL;
-
-  if(gl2ps->options & GL2PS_USE_CURRENT_VIEWPORT){
-    glGetIntegerv(GL_VIEWPORT, gl2ps->viewport);
-  }
-  else{
-    for(i = 0; i < 4; i++){
-      gl2ps->viewport[i] = viewport[i];
-    }
-  }
-
-  if(!gl2ps->viewport[2] || !gl2ps->viewport[3]){
-    gl2psMsg(GL2PS_ERROR, "Incorrect viewport (x=%d, y=%d, width=%d, height=%d)",
-             gl2ps->viewport[0], gl2ps->viewport[1],
-             gl2ps->viewport[2], gl2ps->viewport[3]);
-    gl2psFree(gl2ps);
-    gl2ps = NULL;
-    return GL2PS_ERROR;
-  }
-
-  gl2ps->threshold[0] = nr ? 1.0F / (GLfloat)nr : 0.064F;
-  gl2ps->threshold[1] = ng ? 1.0F / (GLfloat)ng : 0.034F;
-  gl2ps->threshold[2] = nb ? 1.0F / (GLfloat)nb : 0.100F;
-  gl2ps->colormode = colormode;
-  gl2ps->buffersize = buffersize > 0 ? buffersize : 2048 * 2048;
-  for(i = 0; i < 3; i++){
-    gl2ps->lastvertex.xyz[i] = -1.0F;
-  }
-  for(i = 0; i < 4; i++){
-    gl2ps->lastvertex.rgba[i] = -1.0F;
-    gl2ps->lastrgba[i] = -1.0F;
-  }
-  gl2ps->lastlinewidth = -1.0F;
-  gl2ps->lastpattern = 0;
-  gl2ps->lastfactor = 0;
-  gl2ps->imagetree = NULL;
-  gl2ps->primitivetoadd = NULL;
-  gl2ps->zerosurfacearea = GL_FALSE;
-  gl2ps->pdfprimlist = NULL;
-  gl2ps->pdfgrouplist = NULL;
-  gl2ps->xreflist = NULL;
-
-  /* get default blending mode from current OpenGL state (enabled by
-     default for SVG) */
-  gl2ps->blending = (gl2ps->format == GL2PS_SVG) ? GL_TRUE : glIsEnabled(GL_BLEND);
-  glGetIntegerv(GL_BLEND_SRC, &gl2ps->blendfunc[0]);
-  glGetIntegerv(GL_BLEND_DST, &gl2ps->blendfunc[1]);
-
-  if(gl2ps->colormode == GL_RGBA){
-    gl2ps->colorsize = 0;
-    gl2ps->colormap = NULL;
-    glGetFloatv(GL_COLOR_CLEAR_VALUE, gl2ps->bgcolor);
-  }
-  else if(gl2ps->colormode == GL_COLOR_INDEX){
-    if(!colorsize || !colormap){
-      gl2psMsg(GL2PS_ERROR, "Missing colormap for GL_COLOR_INDEX rendering");
-      gl2psFree(gl2ps);
-      gl2ps = NULL;
-      return GL2PS_ERROR;
-    }
-    gl2ps->colorsize = colorsize;
-    gl2ps->colormap = (GL2PSrgba*)gl2psMalloc(gl2ps->colorsize * sizeof(GL2PSrgba));
-    memcpy(gl2ps->colormap, colormap, gl2ps->colorsize * sizeof(GL2PSrgba));
-    glGetIntegerv(GL_INDEX_CLEAR_VALUE, &index);
-    gl2ps->bgcolor[0] = gl2ps->colormap[index][0];
-    gl2ps->bgcolor[1] = gl2ps->colormap[index][1];
-    gl2ps->bgcolor[2] = gl2ps->colormap[index][2];
-    gl2ps->bgcolor[3] = 1.0F;
-  }
-  else{
-    gl2psMsg(GL2PS_ERROR, "Unknown color mode in gl2psBeginPage");
-    gl2psFree(gl2ps);
-    gl2ps = NULL;
-    return GL2PS_ERROR;
-  }
-
-  if(!title){
-    gl2ps->title = (char*)gl2psMalloc(sizeof(char));
-    gl2ps->title[0] = '\0';
-  }
-  else{
-    gl2ps->title = (char*)gl2psMalloc((strlen(title)+1)*sizeof(char));
-    strcpy(gl2ps->title, title);
-  }
-
-  if(!producer){
-    gl2ps->producer = (char*)gl2psMalloc(sizeof(char));
-    gl2ps->producer[0] = '\0';
-  }
-  else{
-    gl2ps->producer = (char*)gl2psMalloc((strlen(producer)+1)*sizeof(char));
-    strcpy(gl2ps->producer, producer);
-  }
-
-  if(!filename){
-    gl2ps->filename = (char*)gl2psMalloc(sizeof(char));
-    gl2ps->filename[0] = '\0';
-  }
-  else{
-    gl2ps->filename = (char*)gl2psMalloc((strlen(filename)+1)*sizeof(char));
-    strcpy(gl2ps->filename, filename);
-  }
-
-  gl2ps->primitives = gl2psListCreate(500, 500, sizeof(GL2PSprimitive*));
-  gl2ps->auxprimitives = gl2psListCreate(100, 100, sizeof(GL2PSprimitive*));
-  gl2ps->feedback = (GLfloat*)gl2psMalloc(gl2ps->buffersize * sizeof(GLfloat));
-  glFeedbackBuffer(gl2ps->buffersize, GL_3D_COLOR, gl2ps->feedback);
-  glRenderMode(GL_FEEDBACK);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psEndPage(void)
-{
-  GLint res;
-
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  res = gl2psPrintPrimitives();
-
-  if(res != GL2PS_OVERFLOW)
-    (gl2psbackends[gl2ps->format]->printFooter)();
-
-  fflush(gl2ps->stream);
-
-  gl2psListDelete(gl2ps->primitives);
-  gl2psListDelete(gl2ps->auxprimitives);
-  gl2psFreeImagemap(gl2ps->imagemap_head);
-  gl2psFree(gl2ps->colormap);
-  gl2psFree(gl2ps->title);
-  gl2psFree(gl2ps->producer);
-  gl2psFree(gl2ps->filename);
-  gl2psFree(gl2ps->feedback);
-  gl2psFree(gl2ps);
-  gl2ps = NULL;
-
-  return res;
-}
-
-GL2PSDLL_API GLint gl2psBeginViewport(GLint viewport[4])
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  (gl2psbackends[gl2ps->format]->beginViewport)(viewport);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psEndViewport(void)
-{
-  GLint res;
-
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  res = (gl2psbackends[gl2ps->format]->endViewport)();
-
-  /* reset last used colors, line widths */
-  gl2ps->lastlinewidth = -1.0F;
-
-  return res;
-}
-
-GL2PSDLL_API GLint gl2psTextOpt(const char *str, const char *fontname,
-                                GLshort fontsize, GLint alignment, GLfloat angle)
-{
-  return gl2psAddText(GL2PS_TEXT, str, fontname, fontsize, alignment, angle);
-}
-
-GL2PSDLL_API GLint gl2psText(const char *str, const char *fontname, GLshort fontsize)
-{
-  return gl2psAddText(GL2PS_TEXT, str, fontname, fontsize, GL2PS_TEXT_BL, 0.0F);
-}
-
-GL2PSDLL_API GLint gl2psSpecial(GLint format, const char *str)
-{
-  return gl2psAddText(GL2PS_SPECIAL, str, "", 0, format, 0.0F);
-}
-
-GL2PSDLL_API GLint gl2psDrawPixels(GLsizei width, GLsizei height,
-                                   GLint xorig, GLint yorig,
-                                   GLenum format, GLenum type,
-                                   const void *pixels)
-{
-  int size, i;
-  const GLfloat *piv;
-  GLfloat pos[4], zoom_x, zoom_y;
-  GL2PSprimitive *prim;
-  GLboolean valid;
-
-  if(!gl2ps || !pixels) return GL2PS_UNINITIALIZED;
-
-  if((width <= 0) || (height <= 0)) return GL2PS_ERROR;
-
-  if(gl2ps->options & GL2PS_NO_PIXMAP) return GL2PS_SUCCESS;
-
-  if((format != GL_RGB && format != GL_RGBA) || type != GL_FLOAT){
-    gl2psMsg(GL2PS_ERROR, "gl2psDrawPixels only implemented for "
-             "GL_RGB/GL_RGBA, GL_FLOAT pixels");
-    return GL2PS_ERROR;
-  }
-
-  glGetBooleanv(GL_CURRENT_RASTER_POSITION_VALID, &valid);
-  if(GL_FALSE == valid) return GL2PS_SUCCESS; /* the primitive is culled */
-
-  glGetFloatv(GL_CURRENT_RASTER_POSITION, pos);
-  glGetFloatv(GL_ZOOM_X, &zoom_x);
-  glGetFloatv(GL_ZOOM_Y, &zoom_y);
-
-  prim = (GL2PSprimitive*)gl2psMalloc(sizeof(GL2PSprimitive));
-  prim->type = GL2PS_PIXMAP;
-  prim->boundary = 0;
-  prim->numverts = 1;
-  prim->verts = (GL2PSvertex*)gl2psMalloc(sizeof(GL2PSvertex));
-  prim->verts[0].xyz[0] = pos[0] + xorig;
-  prim->verts[0].xyz[1] = pos[1] + yorig;
-  prim->verts[0].xyz[2] = pos[2];
-  prim->culled = 0;
-  prim->offset = 0;
-  prim->pattern = 0;
-  prim->factor = 0;
-  prim->width = 1;
-  glGetFloatv(GL_CURRENT_RASTER_COLOR, prim->verts[0].rgba);
-  prim->data.image = (GL2PSimage*)gl2psMalloc(sizeof(GL2PSimage));
-  prim->data.image->width = width;
-  prim->data.image->height = height;
-  prim->data.image->zoom_x = zoom_x;
-  prim->data.image->zoom_y = zoom_y;
-  prim->data.image->format = format;
-  prim->data.image->type = type;
-
-  switch(format){
-  case GL_RGBA:
-    if(gl2ps->options & GL2PS_NO_BLENDING || !gl2ps->blending){
-      /* special case: blending turned off */
-      prim->data.image->format = GL_RGB;
-      size = height * width * 3;
-      prim->data.image->pixels = (GLfloat*)gl2psMalloc(size * sizeof(GLfloat));
-      piv = (const GLfloat*)pixels;
-      for(i = 0; i < size; ++i, ++piv){
-        prim->data.image->pixels[i] = *piv;
-        if(!((i + 1) % 3))
-          ++piv;
-      }
-    }
-    else{
-      size = height * width * 4;
-      prim->data.image->pixels = (GLfloat*)gl2psMalloc(size * sizeof(GLfloat));
-      memcpy(prim->data.image->pixels, pixels, size * sizeof(GLfloat));
-    }
-    break;
-  case GL_RGB:
-  default:
-    size = height * width * 3;
-    prim->data.image->pixels = (GLfloat*)gl2psMalloc(size * sizeof(GLfloat));
-    memcpy(prim->data.image->pixels, pixels, size * sizeof(GLfloat));
-    break;
-  }
-
-  gl2psListAdd(gl2ps->auxprimitives, &prim);
-  glPassThrough(GL2PS_DRAW_PIXELS_TOKEN);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psDrawImageMap(GLsizei width, GLsizei height,
-                                     const GLfloat position[3],
-                                     const unsigned char *imagemap){
-  int size, i;
-  int sizeoffloat = sizeof(GLfloat);
-
-  if(!gl2ps || !imagemap) return GL2PS_UNINITIALIZED;
-
-  if((width <= 0) || (height <= 0)) return GL2PS_ERROR;
-
-  size = height + height * ((width - 1) / 8);
-  glPassThrough(GL2PS_IMAGEMAP_TOKEN);
-  glBegin(GL_POINTS);
-  glVertex3f(position[0], position[1],position[2]);
-  glEnd();
-  glPassThrough((GLfloat)width);
-  glPassThrough((GLfloat)height);
-  for(i = 0; i < size; i += sizeoffloat){
-    const float *value = (const float*)imagemap;
-    glPassThrough(*value);
-    imagemap += sizeoffloat;
-  }
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psEnable(GLint mode)
-{
-  GLint tmp;
-
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  switch(mode){
-  case GL2PS_POLYGON_OFFSET_FILL :
-    glPassThrough(GL2PS_BEGIN_OFFSET_TOKEN);
-    glGetFloatv(GL_POLYGON_OFFSET_FACTOR, &gl2ps->offset[0]);
-    glGetFloatv(GL_POLYGON_OFFSET_UNITS, &gl2ps->offset[1]);
-    break;
-  case GL2PS_POLYGON_BOUNDARY :
-    glPassThrough(GL2PS_BEGIN_BOUNDARY_TOKEN);
-    break;
-  case GL2PS_LINE_STIPPLE :
-    glPassThrough(GL2PS_BEGIN_STIPPLE_TOKEN);
-    glGetIntegerv(GL_LINE_STIPPLE_PATTERN, &tmp);
-    glPassThrough((GLfloat)tmp);
-    glGetIntegerv(GL_LINE_STIPPLE_REPEAT, &tmp);
-    glPassThrough((GLfloat)tmp);
-    break;
-  case GL2PS_BLEND :
-    glPassThrough(GL2PS_BEGIN_BLEND_TOKEN);
-    break;
-  default :
-    gl2psMsg(GL2PS_WARNING, "Unknown mode in gl2psEnable: %d", mode);
-    return GL2PS_WARNING;
-  }
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psDisable(GLint mode)
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  switch(mode){
-  case GL2PS_POLYGON_OFFSET_FILL :
-    glPassThrough(GL2PS_END_OFFSET_TOKEN);
-    break;
-  case GL2PS_POLYGON_BOUNDARY :
-    glPassThrough(GL2PS_END_BOUNDARY_TOKEN);
-    break;
-  case GL2PS_LINE_STIPPLE :
-    glPassThrough(GL2PS_END_STIPPLE_TOKEN);
-    break;
-  case GL2PS_BLEND :
-    glPassThrough(GL2PS_END_BLEND_TOKEN);
-    break;
-  default :
-    gl2psMsg(GL2PS_WARNING, "Unknown mode in gl2psDisable: %d", mode);
-    return GL2PS_WARNING;
-  }
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psPointSize(GLfloat value)
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  glPassThrough(GL2PS_POINT_SIZE_TOKEN);
-  glPassThrough(value);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psLineWidth(GLfloat value)
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  glPassThrough(GL2PS_LINE_WIDTH_TOKEN);
-  glPassThrough(value);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psBlendFunc(GLenum sfactor, GLenum dfactor)
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  if(GL_FALSE == gl2psSupportedBlendMode(sfactor, dfactor))
-    return GL2PS_WARNING;
-
-  glPassThrough(GL2PS_SRC_BLEND_TOKEN);
-  glPassThrough((GLfloat)sfactor);
-  glPassThrough(GL2PS_DST_BLEND_TOKEN);
-  glPassThrough((GLfloat)dfactor);
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psSetOptions(GLint options)
-{
-  if(!gl2ps) return GL2PS_UNINITIALIZED;
-
-  gl2ps->options = options;
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API GLint gl2psGetOptions(GLint *options)
-{
-  if(!gl2ps) {
-    *options = 0;
-    return GL2PS_UNINITIALIZED;
-  }
-
-  *options = gl2ps->options;
-
-  return GL2PS_SUCCESS;
-}
-
-GL2PSDLL_API const char *gl2psGetFileExtension(GLint format)
-{
-  if(format >= 0 && format < (GLint)(sizeof(gl2psbackends) / sizeof(gl2psbackends[0])))
-    return gl2psbackends[format]->file_extension;
-  else
-    return "Unknown format";
-}
-
-GL2PSDLL_API const char *gl2psGetFormatDescription(GLint format)
-{
-  if(format >= 0 && format < (GLint)(sizeof(gl2psbackends) / sizeof(gl2psbackends[0])))
-    return gl2psbackends[format]->description;
-  else
-    return "Unknown format";
-}
--- a/libinterp/corefcn/gl2ps.h	Wed Oct 23 22:48:29 2013 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,200 +0,0 @@
-/*
- * GL2PS, an OpenGL to PostScript Printing Library
- * Copyright (C) 1999-2011 C. Geuzaine
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of either:
- *
- * a) the GNU Library General Public License as published by the Free
- * Software Foundation, either version 2 of the License, or (at your
- * option) any later version; or
- *
- * b) the GL2PS License as published by Christophe Geuzaine, either
- * version 2 of the License, 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
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
- * the GNU Library General Public License or the GL2PS License for
- * more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library in the file named "COPYING.LGPL";
- * if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
- * Cambridge, MA 02139, USA.
- *
- * You should have received a copy of the GL2PS License with this
- * library in the file named "COPYING.GL2PS"; if not, I will be glad
- * to provide one.
- *
- * For the latest info about gl2ps and a full list of contributors,
- * see http://www.geuz.org/gl2ps/.
- *
- * Please report all bugs and problems to <gl2ps@geuz.org>.
- */
-
-#ifndef __GL2PS_H__
-#define __GL2PS_H__
-
-#include <stdio.h>
-#include <stdlib.h>
-
-/* Define GL2PSDLL at compile time to build a Windows DLL */
-
-#if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) || defined(__NT__)
-#  if defined(_MSC_VER)
-#    pragma warning(disable:4115)
-#    pragma warning(disable:4996)
-#  endif
-#  define WIN32_LEAN_AND_MEAN
-#  include <windows.h>
-#  if defined(GL2PSDLL)
-#    if defined(GL2PSDLL_EXPORTS)
-#      define GL2PSDLL_API __declspec(dllexport)
-#    else
-#      define GL2PSDLL_API __declspec(dllimport)
-#    endif
-#  else
-#    define GL2PSDLL_API
-#  endif
-#else
-#  define GL2PSDLL_API
-#endif
-
-#if defined(__APPLE__) || defined(HAVE_OPENGL_GL_H)
-#  include <OpenGL/gl.h>
-#else
-#  include <GL/gl.h>
-#endif
-
-/* Support for compressed PostScript/PDF/SVG and for embedded PNG
-   images in SVG */
-
-#if defined(HAVE_ZLIB) || defined(HAVE_LIBZ)
-#  define GL2PS_HAVE_ZLIB
-#  if defined(HAVE_LIBPNG) || defined(HAVE_PNG)
-#    define GL2PS_HAVE_LIBPNG
-#  endif
-#endif
-
-/* Version number */
-
-#define GL2PS_MAJOR_VERSION 1
-#define GL2PS_MINOR_VERSION 3
-#define GL2PS_PATCH_VERSION 6
-#define GL2PS_EXTRA_VERSION ""
-
-#define GL2PS_VERSION (GL2PS_MAJOR_VERSION + \
-                       0.01 * GL2PS_MINOR_VERSION + \
-                       0.0001 * GL2PS_PATCH_VERSION)
-
-#define GL2PS_COPYRIGHT "(C) 1999-2011 C. Geuzaine"
-
-/* Output file formats (the values and the ordering are important!) */
-
-#define GL2PS_PS  0
-#define GL2PS_EPS 1
-#define GL2PS_TEX 2
-#define GL2PS_PDF 3
-#define GL2PS_SVG 4
-#define GL2PS_PGF 5
-
-/* Sorting algorithms */
-
-#define GL2PS_NO_SORT     1
-#define GL2PS_SIMPLE_SORT 2
-#define GL2PS_BSP_SORT    3
-
-/* Message levels and error codes */
-
-#define GL2PS_SUCCESS       0
-#define GL2PS_INFO          1
-#define GL2PS_WARNING       2
-#define GL2PS_ERROR         3
-#define GL2PS_NO_FEEDBACK   4
-#define GL2PS_OVERFLOW      5
-#define GL2PS_UNINITIALIZED 6
-
-/* Options for gl2psBeginPage */
-
-#define GL2PS_NONE                 0
-#define GL2PS_DRAW_BACKGROUND      (1<<0)
-#define GL2PS_SIMPLE_LINE_OFFSET   (1<<1)
-#define GL2PS_SILENT               (1<<2)
-#define GL2PS_BEST_ROOT            (1<<3)
-#define GL2PS_OCCLUSION_CULL       (1<<4)
-#define GL2PS_NO_TEXT              (1<<5)
-#define GL2PS_LANDSCAPE            (1<<6)
-#define GL2PS_NO_PS3_SHADING       (1<<7)
-#define GL2PS_NO_PIXMAP            (1<<8)
-#define GL2PS_USE_CURRENT_VIEWPORT (1<<9)
-#define GL2PS_COMPRESS             (1<<10)
-#define GL2PS_NO_BLENDING          (1<<11)
-#define GL2PS_TIGHT_BOUNDING_BOX   (1<<12)
-
-/* Arguments for gl2psEnable/gl2psDisable */
-
-#define GL2PS_POLYGON_OFFSET_FILL 1
-#define GL2PS_POLYGON_BOUNDARY    2
-#define GL2PS_LINE_STIPPLE        3
-#define GL2PS_BLEND               4
-
-/* Text alignment (o=raster position; default mode is BL):
-   +---+ +---+ +---+ +---+ +---+ +---+ +-o-+ o---+ +---o
-   | o | o   | |   o |   | |   | |   | |   | |   | |   |
-   +---+ +---+ +---+ +-o-+ o---+ +---o +---+ +---+ +---+
-    C     CL    CR    B     BL    BR    T     TL    TR */
-
-#define GL2PS_TEXT_C  1
-#define GL2PS_TEXT_CL 2
-#define GL2PS_TEXT_CR 3
-#define GL2PS_TEXT_B  4
-#define GL2PS_TEXT_BL 5
-#define GL2PS_TEXT_BR 6
-#define GL2PS_TEXT_T  7
-#define GL2PS_TEXT_TL 8
-#define GL2PS_TEXT_TR 9
-
-typedef GLfloat GL2PSrgba[4];
-
-#if defined(__cplusplus)
-extern "C" {
-#endif
-
-GL2PSDLL_API GLint gl2psBeginPage(const char *title, const char *producer,
-                                  GLint viewport[4], GLint format, GLint sort,
-                                  GLint options, GLint colormode,
-                                  GLint colorsize, GL2PSrgba *colormap,
-                                  GLint nr, GLint ng, GLint nb, GLint buffersize,
-                                  FILE *stream, const char *filename);
-GL2PSDLL_API GLint gl2psEndPage(void);
-GL2PSDLL_API GLint gl2psSetOptions(GLint options);
-GL2PSDLL_API GLint gl2psGetOptions(GLint *options);
-GL2PSDLL_API GLint gl2psBeginViewport(GLint viewport[4]);
-GL2PSDLL_API GLint gl2psEndViewport(void);
-GL2PSDLL_API GLint gl2psText(const char *str, const char *fontname,
-                             GLshort fontsize);
-GL2PSDLL_API GLint gl2psTextOpt(const char *str, const char *fontname,
-                                GLshort fontsize, GLint align, GLfloat angle);
-GL2PSDLL_API GLint gl2psSpecial(GLint format, const char *str);
-GL2PSDLL_API GLint gl2psDrawPixels(GLsizei width, GLsizei height,
-                                   GLint xorig, GLint yorig,
-                                   GLenum format, GLenum type, const void *pixels);
-GL2PSDLL_API GLint gl2psEnable(GLint mode);
-GL2PSDLL_API GLint gl2psDisable(GLint mode);
-GL2PSDLL_API GLint gl2psPointSize(GLfloat value);
-GL2PSDLL_API GLint gl2psLineWidth(GLfloat value);
-GL2PSDLL_API GLint gl2psBlendFunc(GLenum sfactor, GLenum dfactor);
-
-/* undocumented */
-GL2PSDLL_API GLint gl2psDrawImageMap(GLsizei width, GLsizei height,
-                                     const GLfloat position[3],
-                                     const unsigned char *imagemap);
-GL2PSDLL_API const char *gl2psGetFileExtension(GLint format);
-GL2PSDLL_API const char *gl2psGetFormatDescription(GLint format);
-
-#if defined(__cplusplus)
-}
-#endif
-
-#endif /* __GL2PS_H__ */
--- a/libinterp/corefcn/graphics.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/graphics.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -137,7 +137,7 @@
 {
   Matrix cmap (64, 3, 0.0);
 
-  // Produce X in the same manner as linspace so that 
+  // Produce X in the same manner as linspace so that
   // jet_colormap and jet.m produce *exactly* the same result.
   double delta = 1.0 / 63.0;
 
@@ -451,7 +451,7 @@
 
       double f = 0.0;
 
-      // FIXME -- this assumes the system font is Helvetica 10pt
+      // FIXME: this assumes the system font is Helvetica 10pt
       //          (for which "x" requires 6x12 pixels at 74.951 pixels/inch)
       f = 12.0 * res / 74.951;
 
@@ -579,7 +579,7 @@
   if (ax.valid_object ())
     {
       const axes::properties& ax_props =
-          dynamic_cast<const axes::properties&> (ax.get_properties ());
+        dynamic_cast<const axes::properties&> (ax.get_properties ());
       graphics_xform ax_xform = ax_props.get_transform ();
       bool is_rectangle = (pos.numel () == 4);
       Matrix ax_bbox = ax_props.get_boundingbox (true),
@@ -620,10 +620,13 @@
             {
               if (is_rectangle)
                 {
-                  ColumnVector v1 = ax_xform.untransform (retval(0) + ax_bbox(0) - 1,
-                                                          ax_bbox(1) + ax_bbox(3)  - retval(1) + 1),
-                               v2 = ax_xform.untransform (retval(0) + retval(2) + ax_bbox(0) - 1,
-                                                          ax_bbox(1) + ax_bbox(3)  - (retval(1) + retval(3)) + 1);
+                  ColumnVector v1, v2;
+                  v1 = ax_xform.untransform (
+                         retval(0)  + ax_bbox(0) - 1,
+                         ax_bbox(1) + ax_bbox(3) - retval(1) + 1);
+                  v2 = ax_xform.untransform (
+                         retval(0)  + retval(2)  + ax_bbox(0) - 1,
+                         ax_bbox(1) + ax_bbox(3) - (retval(1) + retval(3)) + 1);
 
                   retval.resize (1, 4);
 
@@ -634,8 +637,10 @@
                 }
               else
                 {
-                  ColumnVector v = ax_xform.untransform (retval(0) + ax_bbox(0) - 1,
-                                                         ax_bbox(1) + ax_bbox(3)  - retval(1) + 1);
+                  ColumnVector v;
+                  v = ax_xform.untransform (
+                        retval(0)  + ax_bbox(0) - 1,
+                        ax_bbox(1) + ax_bbox(3) - retval(1) + 1);
 
                   retval.resize (1, 3);
 
@@ -658,7 +663,8 @@
 {
   graphics_object obj = gh_manager::get_object (0);
   Matrix sz = obj.get ("screensize").matrix_value ();
-  return convert_position (sz, obj.get ("units").string_value (), "pixels", sz.extract_n (0, 2, 1, 2)).extract_n (0, 2, 1, 2);
+  return convert_position (sz, obj.get ("units").string_value (), "pixels",
+                           sz.extract_n (0, 2, 1, 2)).extract_n (0, 2, 1, 2);
 }
 
 static void
@@ -1120,7 +1126,7 @@
         }
       else
         error ("invalid value for color property \"%s\"",
-           get_name ().c_str ());
+               get_name ().c_str ());
     }
   else if (val.is_numeric_type ())
     {
@@ -1141,7 +1147,7 @@
         }
       else
         error ("invalid value for color property \"%s\"",
-           get_name ().c_str ());
+               get_name ().c_str ());
     }
   else
     error ("invalid value for color property \"%s\"",
@@ -1320,21 +1326,29 @@
       if (data.is_integer_type ())
         {
           if (data.is_int8_type ())
-            get_array_limits (data.int8_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.int8_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_uint8_type ())
-            get_array_limits (data.uint8_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.uint8_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_int16_type ())
-            get_array_limits (data.int16_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.int16_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_uint16_type ())
-            get_array_limits (data.uint16_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.uint16_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_int32_type ())
-            get_array_limits (data.int32_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.int32_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_uint32_type ())
-            get_array_limits (data.uint32_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.uint32_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_int64_type ())
-            get_array_limits (data.int64_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.int64_array_value (),
+                              xmin, xmax, xminp, xmaxp);
           else if (data.is_uint64_type ())
-            get_array_limits (data.uint64_array_value (), xmin, xmax, xminp, xmaxp);
+            get_array_limits (data.uint64_array_value (),
+                              xmin, xmax, xminp, xmaxp);
         }
       else
         get_array_limits (data.array_value (), xmin, xmax, xminp, xmaxp);
@@ -1497,8 +1511,8 @@
     }
   else if (type.compare ("any"))
     {
-      octave_value val =
-          (args.length () > 0 ? args(0) : octave_value (Matrix ()));
+      octave_value val = args.length () > 0 ? args(0)
+                                            : octave_value (Matrix ());
 
       retval = property (new any_property (name, h, val));
     }
@@ -1554,8 +1568,8 @@
         {
           retval.set (args(0));
 
-          // FIXME -- additional argument could define constraints,
-          // but is this really useful?
+          // FIXME: additional argument could define constraints,
+          //        but is this really useful?
         }
     }
   else if (type.compare ("color"))
@@ -1588,12 +1602,12 @@
           graphics_object go;
 
           std::map<caseless_str, graphics_object>::const_iterator it =
-              dprop_obj_map.find (go_name);
+            dprop_obj_map.find (go_name);
 
           if (it == dprop_obj_map.end ())
             {
               base_graphics_object *bgo =
-                  make_graphics_object_from_type (go_name);
+                make_graphics_object_from_type (go_name);
 
               if (bgo)
                 {
@@ -1750,12 +1764,13 @@
 
       if (offset > 0)
         {
-          // FIXME -- should we validate property names and values here?
+          // FIXME: should we validate property names and values here?
 
           std::string pname = name.substr (offset);
 
           std::transform (pfx.begin (), pfx.end (), pfx.begin (), tolower);
-          std::transform (pname.begin (), pname.end (), pname.begin (), tolower);
+          std::transform (pname.begin (), pname.end (), pname.begin (),
+                          tolower);
 
           bool has_property = false;
           if (pfx == "axes")
@@ -1891,7 +1906,8 @@
           std::string pname = name.substr (offset);
 
           std::transform (pfx.begin (), pfx.end (), pfx.begin (), tolower);
-          std::transform (pname.begin (), pname.end (), pname.begin (), tolower);
+          std::transform (pname.begin (), pname.end (), pname.begin (),
+                          tolower);
 
           plist_map_const_iterator p = find (pfx);
 
@@ -1983,7 +1999,7 @@
   if (names.numel () != values.columns ())
     {
       error ("set: number of names must match number of value columns (%d != %d)",
-            names.numel (), values.columns ());
+             names.numel (), values.columns ());
     }
 
   octave_idx_type k = names.columns ();
@@ -2055,7 +2071,7 @@
       caseless_str name  = m.keys ()[p];
 
       octave_value val = octave_value (m.contents (name).elem (m.numel () - 1));
-      
+
       set_value_or_default (name, val);
 
       if (error_state)
@@ -2176,7 +2192,7 @@
         }
       else
         {
-          // Matlab specifically uses "\default" to escape string setting 
+          // Matlab specifically uses "\default" to escape string setting
           if (tval.compare ("\\default") == 0)
             rep->set (name, "default");
           else if (tval.compare ("\\factory") == 0)
@@ -2293,7 +2309,8 @@
               handle_map.erase (p);
 
               if (h.value () < 0)
-                handle_free_list.insert (std::ceil (h.value ()) - make_handle_fraction ());
+                handle_free_list.insert
+                  (std::ceil (h.value ()) - make_handle_fraction ());
             }
           else
             error ("graphics_handle::free: invalid object %g", h.value ());
@@ -2487,7 +2504,7 @@
 void
 gh_manager::do_close_all_figures (void)
 {
-  // FIXME -- should we process or discard pending events?
+  // FIXME: should we process or discard pending events?
 
   event_queue.clear ();
 
@@ -2659,7 +2676,8 @@
 {
   octave_value retval;
 
-  std::map<caseless_str, property, cmp_caseless_str>::const_iterator it = all_props.find (name);
+  std::map<caseless_str, property, cmp_caseless_str>::const_iterator it =
+    all_props.find (name);
 
   if (it != all_props.end ())
     retval = it->second.get ();
@@ -2674,8 +2692,8 @@
 {
   octave_scalar_map m;
 
-  for (std::map<caseless_str, property, cmp_caseless_str>::const_iterator it = all_props.begin ();
-       it != all_props.end (); ++it)
+  for (std::map<caseless_str, property, cmp_caseless_str>::const_iterator
+       it = all_props.begin (); it != all_props.end (); ++it)
     if (all || ! it->second.is_hidden ())
       m.assign (it->second.get_name (), it->second.get ());
 
@@ -2703,7 +2721,8 @@
 base_properties::set_dynamic (const caseless_str& pname,
                               const octave_value& val)
 {
-  std::map<caseless_str, property, cmp_caseless_str>::iterator it = all_props.find (pname);
+  std::map<caseless_str, property, cmp_caseless_str>::iterator it =
+    all_props.find (pname);
 
   if (it != all_props.end ())
     it->second.set (val);
@@ -2721,7 +2740,8 @@
 property
 base_properties::get_property_dynamic (const caseless_str& name)
 {
-  std::map<caseless_str, property, cmp_caseless_str>::const_iterator it = all_props.find (name);
+  std::map<caseless_str, property, cmp_caseless_str>::const_iterator it =
+    all_props.find (name);
 
   if (it == all_props.end ())
     {
@@ -2911,7 +2931,7 @@
 
   for (octave_map::const_iterator pa = m.begin (); pa != m.end (); pa++)
     {
-      // FIXME -- there has to be a better way.  I think we want to
+      // FIXME: there has to be a better way.  I think we want to
       // ask whether it is OK to delete the listener for the given
       // property.  How can we know in advance that it will be OK?
 
@@ -3723,49 +3743,71 @@
         typ = "uslegal";
       else if (std::abs (sz(0) - 11.0) + std::abs (sz(1) - 17.0) < tol)
         typ = "tabloid";
-      else if (std::abs (sz(0) - 841.0 * mm2in) + std::abs (sz(1) - 1198.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 841.0 * mm2in)
+               + std::abs (sz(1) - 1198.0 * mm2in) < tol)
         typ = "a0";
-      else if (std::abs (sz(0) - 594.0 * mm2in) + std::abs (sz(1) - 841.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 594.0 * mm2in)
+               + std::abs (sz(1) - 841.0 * mm2in) < tol)
         typ = "a1";
-      else if (std::abs (sz(0) - 420.0 * mm2in) + std::abs (sz(1) - 594.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 420.0 * mm2in)
+               + std::abs (sz(1) - 594.0 * mm2in) < tol)
         typ = "a2";
-      else if (std::abs (sz(0) - 297.0 * mm2in) + std::abs (sz(1) - 420.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 297.0 * mm2in)
+               + std::abs (sz(1) - 420.0 * mm2in) < tol)
         typ = "a3";
-      else if (std::abs (sz(0) - 210.0 * mm2in) + std::abs (sz(1) - 297.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 210.0 * mm2in)
+               + std::abs (sz(1) - 297.0 * mm2in) < tol)
         typ = "a4";
-      else if (std::abs (sz(0) - 148.0 * mm2in) + std::abs (sz(1) - 210.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 148.0 * mm2in)
+               + std::abs (sz(1) - 210.0 * mm2in) < tol)
         typ = "a5";
-      else if (std::abs (sz(0) - 1029.0 * mm2in) + std::abs (sz(1) - 1456.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 1029.0 * mm2in)
+               + std::abs (sz(1) - 1456.0 * mm2in) < tol)
         typ = "b0";
-      else if (std::abs (sz(0) - 728.0 * mm2in) + std::abs (sz(1) - 1028.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 728.0 * mm2in)
+               + std::abs (sz(1) - 1028.0 * mm2in) < tol)
         typ = "b1";
-      else if (std::abs (sz(0) - 514.0 * mm2in) + std::abs (sz(1) - 728.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 514.0 * mm2in)
+               + std::abs (sz(1) - 728.0 * mm2in) < tol)
         typ = "b2";
-      else if (std::abs (sz(0) - 364.0 * mm2in) + std::abs (sz(1) - 514.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 364.0 * mm2in)
+               + std::abs (sz(1) - 514.0 * mm2in) < tol)
         typ = "b3";
-      else if (std::abs (sz(0) - 257.0 * mm2in) + std::abs (sz(1) - 364.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 257.0 * mm2in)
+               + std::abs (sz(1) - 364.0 * mm2in) < tol)
         typ = "b4";
-      else if (std::abs (sz(0) - 182.0 * mm2in) + std::abs (sz(1) - 257.0 * mm2in) < tol)
+      else if (std::abs (sz(0) - 182.0 * mm2in)
+               + std::abs (sz(1) - 257.0 * mm2in) < tol)
         typ = "b5";
-      else if (std::abs (sz(0) - 9.0)  + std::abs (sz(1) - 12.0) < tol)
+      else if (std::abs (sz(0) - 9.0) 
+               + std::abs (sz(1) - 12.0) < tol)
         typ = "arch-a";
-      else if (std::abs (sz(0) - 12.0) + std::abs (sz(1) - 18.0) < tol)
+      else if (std::abs (sz(0) - 12.0)
+               + std::abs (sz(1) - 18.0) < tol)
         typ = "arch-b";
-      else if (std::abs (sz(0) - 18.0) + std::abs (sz(1) - 24.0) < tol)
+      else if (std::abs (sz(0) - 18.0)
+               + std::abs (sz(1) - 24.0) < tol)
         typ = "arch-c";
-      else if (std::abs (sz(0) - 24.0) + std::abs (sz(1) - 36.0) < tol)
+      else if (std::abs (sz(0) - 24.0)
+               + std::abs (sz(1) - 36.0) < tol)
         typ = "arch-d";
-      else if (std::abs (sz(0) - 36.0) + std::abs (sz(1) - 48.0) < tol)
+      else if (std::abs (sz(0) - 36.0)
+               + std::abs (sz(1) - 48.0) < tol)
         typ = "arch-e";
-      else if (std::abs (sz(0) - 8.5)  + std::abs (sz(1) - 11.0) < tol)
+      else if (std::abs (sz(0) - 8.5) 
+               + std::abs (sz(1) - 11.0) < tol)
         typ = "a";
-      else if (std::abs (sz(0) - 11.0) + std::abs (sz(1) - 17.0) < tol)
+      else if (std::abs (sz(0) - 11.0)
+               + std::abs (sz(1) - 17.0) < tol)
         typ = "b";
-      else if (std::abs (sz(0) - 17.0) + std::abs (sz(1) - 22.0) < tol)
+      else if (std::abs (sz(0) - 17.0)
+               + std::abs (sz(1) - 22.0) < tol)
         typ = "c";
-      else if (std::abs (sz(0) - 22.0) + std::abs (sz(1) - 34.0) < tol)
+      else if (std::abs (sz(0) - 22.0)
+               + std::abs (sz(1) - 34.0) < tol)
         typ = "d";
-      else if (std::abs (sz(0) - 34.0) + std::abs (sz(1) - 43.0) < tol)
+      else if (std::abs (sz(0) - 34.0)
+               + std::abs (sz(1) - 43.0) < tol)
         typ = "e";
       // Call papertype.set rather than set_papertype to avoid loops between
       // update_papersize and update_papertype
@@ -4446,7 +4488,7 @@
       base_properties::remove_child (h);
     }
 
-  // FIXME -- is it necessary to check whether the axes object is
+  // FIXME: is it necessary to check whether the axes object is
   // being deleted now?  I think this function is only called when an
   // individual child object is delete and not when the parent axes
   // object is deleted.
@@ -4590,15 +4632,17 @@
 inline Matrix
 unit_cube (void)
 {
-  static double data[32] = {
-      0,0,0,1,
-      1,0,0,1,
-      0,1,0,1,
-      0,0,1,1,
-      1,1,0,1,
-      1,0,1,1,
-      0,1,1,1,
-      1,1,1,1};
+  static double data[32] =
+  {
+    0,0,0,1,
+    1,0,0,1,
+    0,1,0,1,
+    0,0,1,1,
+    1,1,0,1,
+    1,0,1,1,
+    0,1,1,1,
+    1,1,1,1
+  };
   Matrix m (4, 8);
   memcpy (m.fortran_vec (), data, sizeof (double)*32);
   return m;
@@ -4759,7 +4803,7 @@
     {
       double af;
 
-      // FIXME -- was this really needed?  When compared to Matlab, it
+      // FIXME: was this really needed?  When compared to Matlab, it
       // does not seem to be required. Need investigation with concrete
       // graphics toolkit to see results visually.
       if (false && dowarp)
@@ -4964,33 +5008,33 @@
   y2Dright = false;
   layer2Dtop = false;
   if (xstate == AXE_HORZ_DIR && ystate == AXE_VERT_DIR)
-  {
-    if (xaxislocation_is ("top"))
-    {
-      double tmp = yPlane;
-      yPlane = yPlaneN;
-      yPlaneN = tmp;
-      x2Dtop = true;
-    }
-    ypTick = yPlaneN;
-    ypTickN = yPlane;
-    if (yaxislocation_is ("right"))
-    {
-      double tmp = xPlane;
-      xPlane = xPlaneN;
-      xPlaneN = tmp;
-      y2Dright = true;
-    }
-    xpTick = xPlaneN;
-    xpTickN = xPlane;
-    if (layer_is ("top"))
-      {
-        zpTick = zPlaneN;
-        layer2Dtop = true;
-      }
-    else
-      zpTick = zPlane;
-  }
+    {
+      if (xaxislocation_is ("top"))
+        {
+          double tmp = yPlane;
+          yPlane = yPlaneN;
+          yPlaneN = tmp;
+          x2Dtop = true;
+        }
+      ypTick = yPlaneN;
+      ypTickN = yPlane;
+      if (yaxislocation_is ("right"))
+        {
+          double tmp = xPlane;
+          xPlane = xPlaneN;
+          xPlaneN = tmp;
+          y2Dright = true;
+        }
+      xpTick = xPlaneN;
+      xpTickN = xPlane;
+      if (layer_is ("top"))
+        {
+          zpTick = zPlaneN;
+          layer2Dtop = true;
+        }
+      else
+        zpTick = zPlane;
+    }
 
   Matrix viewmat = get_view ().matrix_value ();
   nearhoriz = std::abs (viewmat(1)) <= 5;
@@ -5055,8 +5099,9 @@
   if (updating_xlabel_position)
     return;
 
-  text::properties& xlabel_props = reinterpret_cast<text::properties&>
-    (gh_manager::get_object (get_xlabel ()).get_properties ());
+  text::properties& xlabel_props
+    = reinterpret_cast<text::properties&>
+        (gh_manager::get_object (get_xlabel ()).get_properties ());
 
   bool is_empty = xlabel_props.get_string ().is_empty ();
 
@@ -5108,19 +5153,19 @@
 
       switch (xstate)
         {
-          case AXE_ANY_DIR:
-            p(0) += (xyzSym ? wmax : -wmax);
-            p(1) += hmax;
-            break;
-
-          case AXE_VERT_DIR:
-            p(0) -= wmax;
-            angle = 90;
-            break;
-
-          case AXE_HORZ_DIR:
-            p(1) += (x2Dtop ? -hmax : hmax);
-            break;
+        case AXE_ANY_DIR:
+          p(0) += (xyzSym ? wmax : -wmax);
+          p(1) += hmax;
+          break;
+
+        case AXE_VERT_DIR:
+          p(0) -= wmax;
+          angle = 90;
+          break;
+
+        case AXE_HORZ_DIR:
+          p(1) += (x2Dtop ? -hmax : hmax);
+          break;
         }
 
       if (xlabel_props.positionmode_is ("auto"))
@@ -5146,8 +5191,9 @@
   if (updating_ylabel_position)
     return;
 
-  text::properties& ylabel_props = reinterpret_cast<text::properties&>
-    (gh_manager::get_object (get_ylabel ()).get_properties ());
+  text::properties& ylabel_props
+    = reinterpret_cast<text::properties&>
+        (gh_manager::get_object (get_ylabel ()).get_properties ());
 
   bool is_empty = ylabel_props.get_string ().is_empty ();
 
@@ -5208,19 +5254,19 @@
 
       switch (ystate)
         {
-          case AXE_ANY_DIR:
-            p(0) += (!xyzSym ? wmax : -wmax);
-            p(1) += hmax;
-            break;
-
-          case AXE_VERT_DIR:
-            p(0) += (y2Dright ? wmax : -wmax);
-            angle = 90;
-            break;
-
-          case AXE_HORZ_DIR:
-            p(1) += hmax;
-            break;
+        case AXE_ANY_DIR:
+          p(0) += (!xyzSym ? wmax : -wmax);
+          p(1) += hmax;
+          break;
+
+        case AXE_VERT_DIR:
+          p(0) += (y2Dright ? wmax : -wmax);
+          angle = 90;
+          break;
+
+        case AXE_HORZ_DIR:
+          p(1) += hmax;
+          break;
         }
 
       if (ylabel_props.positionmode_is ("auto"))
@@ -5246,8 +5292,9 @@
   if (updating_zlabel_position)
     return;
 
-  text::properties& zlabel_props = reinterpret_cast<text::properties&>
-    (gh_manager::get_object (get_zlabel ()).get_properties ());
+  text::properties& zlabel_props
+    = reinterpret_cast<text::properties&>
+        (gh_manager::get_object (get_zlabel ()).get_properties ());
 
   bool camAuto = cameraupvectormode_is ("auto");
   bool is_empty = zlabel_props.get_string ().is_empty ();
@@ -5312,28 +5359,28 @@
 
       switch (zstate)
         {
-          case AXE_ANY_DIR:
-            if (camAuto)
-              {
-                p(0) -= wmax;
-                angle = 90;
-              }
-
-            // FIXME -- what's the correct offset?
-            //
-            //   p[0] += (!xySym ? wmax : -wmax);
-            //   p[1] += (zSign ? hmax : -hmax);
-
-            break;
-
-          case AXE_VERT_DIR:
-            p(0) -= wmax;
-            angle = 90;
-            break;
-
-          case AXE_HORZ_DIR:
-            p(1) += hmax;
-            break;
+        case AXE_ANY_DIR:
+          if (camAuto)
+            {
+              p(0) -= wmax;
+              angle = 90;
+            }
+
+          // FIXME: what's the correct offset?
+          //
+          //   p[0] += (!xySym ? wmax : -wmax);
+          //   p[1] += (zSign ? hmax : -hmax);
+
+          break;
+
+        case AXE_VERT_DIR:
+          p(0) -= wmax;
+          angle = 90;
+          break;
+
+        case AXE_HORZ_DIR:
+          p(1) += hmax;
+          break;
         }
 
       if (zlabel_props.positionmode_is ("auto"))
@@ -5359,8 +5406,9 @@
   if (updating_title_position)
     return;
 
-  text::properties& title_props = reinterpret_cast<text::properties&>
-    (gh_manager::get_object (get_title ()).get_properties ());
+  text::properties& title_props
+    = reinterpret_cast<text::properties&>
+        (gh_manager::get_object (get_title ()).get_properties ());
 
   unwind_protect frame;
   frame.protect_var (updating_title_position);
@@ -5413,15 +5461,15 @@
 normalized_aspectratios (Matrix& aspectratios, const Matrix& scalefactors,
                          double xlength, double ylength, double zlength)
 {
-      double xval = xlength/scalefactors(0);
-      double yval = ylength/scalefactors(1);
-      double zval = zlength/scalefactors(2);
-
-      double minval = xmin (xmin (xval, yval), zval);
-
-      aspectratios(0) = xval/minval;
-      aspectratios(1) = yval/minval;
-      aspectratios(2) = zval/minval;
+  double xval = xlength/scalefactors(0);
+  double yval = ylength/scalefactors(1);
+  double zval = zlength/scalefactors(2);
+
+  double minval = xmin (xmin (xval, yval), zval);
+
+  aspectratios(0) = xval/minval;
+  aspectratios(1) = yval/minval;
+  aspectratios(2) = zval/minval;
 }
 
 static void
@@ -5579,9 +5627,8 @@
 axes::properties::get_boundingbox (bool internal,
                                    const Matrix& parent_pix_size) const
 {
-  Matrix pos = (internal ?
-                  get_position ().matrix_value ()
-                  : get_outerposition ().matrix_value ());
+  Matrix pos = internal ? get_position ().matrix_value ()
+                        : get_outerposition ().matrix_value ();
   Matrix parent_size (parent_pix_size);
 
   if (parent_size.numel () == 0)
@@ -5641,8 +5688,9 @@
           else if (i == 3)
             text_handle = get_zlabel ();
 
-          text::properties& text_props = reinterpret_cast<text::properties&>
-            (gh_manager::get_object (text_handle).get_properties ());
+          text::properties& text_props
+            = reinterpret_cast<text::properties&>
+                (gh_manager::get_object (text_handle).get_properties ());
 
           Matrix text_pos = text_props.get_data_position ();
           text_pos = xform.transform (text_pos(0), text_pos(1), text_pos(2));
@@ -5663,20 +5711,22 @@
                 {
                   double text_rotation = text_props.get_rotation ();
                   if (text_rotation == 0. || text_rotation == 180.)
-                      ignore_horizontal = true;
+                    ignore_horizontal = true;
                   else if (text_rotation == 90. || text_rotation == 270.)
-                      ignore_vertical = true;
+                    ignore_vertical = true;
                 }
 
               if (! ignore_horizontal)
                 {
                   ext(0) = std::min (ext(0), text_pos(0)+text_ext(0));
-                  ext(2) = std::max (ext(2), text_pos(0)+text_ext(0)+text_ext(2));
+                  ext(2) = std::max (ext(2),
+                                     text_pos(0)+text_ext(0)+text_ext(2));
                 }
 
               if (! ignore_vertical)
                 {
-                  ext(1) = std::min (ext(1), text_pos(1)-text_ext(1)-text_ext(3));
+                  ext(1) = std::min (ext(1),
+                                     text_pos(1)-text_ext(1)-text_ext(3));
                   ext(3) = std::max (ext(3), text_pos(1)-text_ext(1));
                 }
             }
@@ -5724,7 +5774,7 @@
           // Split string with delimiter '|'
           while (std::getline (iss, tmpstr, '|'))
             sv.append (tmpstr);
-          
+
           // If string ends with '|' Matlab appends a null string
           if (*valstr.rbegin () == '|')
             sv.append (std::string (""));
@@ -5813,7 +5863,7 @@
           // Split string with delimiter '|'
           while (std::getline (iss, tmpstr, '|'))
             sv.append (tmpstr);
-          
+
           // If string ends with '|' Matlab appends a null string
           if (*valstr.rbegin () == '|')
             sv.append (std::string (""));
@@ -5856,12 +5906,25 @@
 axes::properties::update_units (const caseless_str& old_units)
 {
   graphics_object obj = gh_manager::get_object (get_parent ());
-  Matrix parent_bb = obj.get_properties ().get_boundingbox (true).extract_n (0, 2, 1, 2);
+  Matrix parent_bb
+    = obj.get_properties ().get_boundingbox (true).extract_n (0, 2, 1, 2);
   caseless_str new_units = get_units ();
-  position.set (octave_value (convert_position (get_position ().matrix_value (), old_units, new_units, parent_bb)), false);
-  outerposition.set (octave_value (convert_position (get_outerposition ().matrix_value (), old_units, new_units, parent_bb)), false);
-  tightinset.set (octave_value (convert_position (get_tightinset ().matrix_value (), old_units, new_units, parent_bb)), false);
-  looseinset.set (octave_value (convert_position (get_looseinset ().matrix_value (), old_units, new_units, parent_bb)), false);
+  position.set (octave_value (convert_position (get_position ().matrix_value (),
+                                                old_units, new_units,
+                                                parent_bb)),
+                                                false);
+  outerposition.set (octave_value (convert_position (get_outerposition ().matrix_value (),
+                                                old_units, new_units,
+                                                parent_bb)),
+                                                false);
+  tightinset.set (octave_value (convert_position (get_tightinset ().matrix_value (),
+                                                old_units, new_units,
+                                                parent_bb)),
+                                                false);
+  looseinset.set (octave_value (convert_position (get_looseinset ().matrix_value (),
+                                                old_units, new_units,
+                                                parent_bb)),
+                                                false);
 }
 
 void
@@ -5960,8 +6023,8 @@
   return retval;
 }
 
-// FIXME -- remove.
-// FIXME -- maybe this should go into array_property class?
+// FIXME: remove.
+// FIXME: maybe this should go into array_property class?
 /*
 static void
 check_limit_vals (double& min_val, double& max_val,
@@ -6035,7 +6098,7 @@
 
 // A translation from Tom Holoryd's python code at
 // http://kurage.nimh.nih.gov/tomh/tics.py
-// FIXME -- add log ticks
+// FIXME: add log ticks
 
 double
 axes::properties::calc_tick_sep (double lo, double hi)
@@ -6107,8 +6170,9 @@
               warning ("axis: omitting non-positive data in log plot");
               min_val = min_pos;
             }
-          // FIXME -- maybe this test should also be relative?
-          if (std::abs (min_val - max_val) < sqrt (std::numeric_limits<double>::epsilon ()))
+          // FIXME: maybe this test should also be relative?
+          if (std::abs (min_val - max_val)
+              < sqrt (std::numeric_limits<double>::epsilon ()))
             {
               // Widen range when too small
               if (min_val >= 0)
@@ -6143,7 +6207,8 @@
               max_val = 1;
             }
           // FIXME -- maybe this test should also be relative?
-          else if (std::abs (min_val - max_val) < sqrt (std::numeric_limits<double>::epsilon ()))
+          else if (std::abs (min_val - max_val)
+                   < sqrt (std::numeric_limits<double>::epsilon ()))
             {
               min_val -= 0.1 * std::abs (min_val);
               max_val += 0.1 * std::abs (max_val);
@@ -6172,7 +6237,7 @@
                                        array_property& mticks,
                                        bool limmode_is_auto, bool is_logscale)
 {
-  // FIXME -- add log ticks and lims
+  // FIXME: add log ticks and lims
 
   if (lims.get ().is_empty ())
     return;
@@ -6904,7 +6969,8 @@
 }
 
 void
-axes::properties::zoom (const Matrix& xl, const Matrix& yl, bool push_to_zoom_stack)
+axes::properties::zoom (const Matrix& xl, const Matrix& yl,
+                        bool push_to_zoom_stack)
 {
   if (push_to_zoom_stack)
     {
@@ -7334,28 +7400,32 @@
               double& nz = n(j, i, 2);
 
               if ((j > 0) && (i > 0))
-                  // upper left quadrangle
-                  cross_product (x(j1,i-1)-x(j2,i), y(j-1,i1)-y(j,i2), z(j-1,i-1)-z(j,i),
-                                 x(j2,i-1)-x(j1,i), y(j,i1)-y(j-1,i2), z(j,i-1)-z(j-1,i),
-                                 nx, ny, nz);
+                // upper left quadrangle
+                cross_product
+                  (x(j1,i-1)-x(j2,i), y(j-1,i1)-y(j,i2), z(j-1,i-1)-z(j,i),
+                   x(j2,i-1)-x(j1,i), y(j,i1)-y(j-1,i2), z(j,i-1)-z(j-1,i),
+                   nx, ny, nz);
 
               if ((j > 0) && (i < (p -1)))
-                  // upper right quadrangle
-                  cross_product (x(j1,i+1)-x(j2,i), y(j-1,i3)-y(j,i2), z(j-1,i+1)-z(j,i),
-                                 x(j1,i)-x(j2,i+1), y(j-1,i2)-y(j,i3), z(j-1,i)-z(j,i+1),
-                                 nx, ny, nz);
+                // upper right quadrangle
+                cross_product
+                  (x(j1,i+1)-x(j2,i), y(j-1,i3)-y(j,i2), z(j-1,i+1)-z(j,i),
+                   x(j1,i)-x(j2,i+1), y(j-1,i2)-y(j,i3), z(j-1,i)-z(j,i+1),
+                   nx, ny, nz);
 
               if ((j < (q - 1)) && (i > 0))
-                  // lower left quadrangle
-                  cross_product (x(j2,i-1)-x(j3,i), y(j,i1)-y(j+1,i2), z(j,i-1)-z(j+1,i),
-                                 x(j3,i-1)-x(j2,i), y(j+1,i1)-y(j,i2), z(j+1,i-1)-z(j,i),
-                                 nx, ny, nz);
+                // lower left quadrangle
+                cross_product
+                  (x(j2,i-1)-x(j3,i), y(j,i1)-y(j+1,i2), z(j,i-1)-z(j+1,i),
+                   x(j3,i-1)-x(j2,i), y(j+1,i1)-y(j,i2), z(j+1,i-1)-z(j,i),
+                   nx, ny, nz);
 
               if ((j < (q - 1)) && (i < (p -1)))
-                  // lower right quadrangle
-                  cross_product (x(j3,i)-x(j2,i+1), y(j+1,i2)-y(j,i3), z(j+1,i)-z(j,i+1),
-                                 x(j3,i+1)-x(j2,i), y(j+1,i3)-y(j,i2), z(j+1,i+1)-z(j,i),
-                                 nx, ny, nz);
+                // lower right quadrangle
+                cross_product
+                  (x(j3,i)-x(j2,i+1), y(j+1,i2)-y(j,i3), z(j+1,i)-z(j,i+1),
+                   x(j3,i+1)-x(j2,i), y(j+1,i3)-y(j,i2), z(j+1,i+1)-z(j,i),
+                   nx, ny, nz);
 
               double d = -std::max (std::max (fabs (nx), fabs (ny)), fabs (nz));
 
@@ -7756,7 +7826,7 @@
       graphics_object obj = gh_manager::get_object (get_parent ());
 
       parent_size =
-       obj.get_properties ().get_boundingbox (true).extract_n (0, 2, 1, 2);
+        obj.get_properties ().get_boundingbox (true).extract_n (0, 2, 1, 2);
     }
 
   pos = convert_position (pos, get_units (), "pixels", parent_size);
@@ -8031,12 +8101,12 @@
       callback (cb), callback_data (data) { }
 
   void execute (void)
-    {
-      if (callback.is_defined ())
-        gh_manager::execute_callback (handle, callback, callback_data);
-      else
-        gh_manager::execute_callback (handle, callback_name, callback_data);
-    }
+  {
+    if (callback.is_defined ())
+      gh_manager::execute_callback (handle, callback, callback_data);
+    else
+      gh_manager::execute_callback (handle, callback_name, callback_data);
+  }
 
 private:
   callback_event (void)
@@ -8059,9 +8129,9 @@
   { }
 
   void execute (void)
-    {
-      function (function_data);
-    }
+  {
+    function (function_data);
+  }
 
 private:
 
@@ -8089,19 +8159,19 @@
       property_value (value), notify_toolkit (do_notify_toolkit) { }
 
   void execute (void)
-    {
-      gh_manager::auto_lock guard;
-
-      graphics_object go = gh_manager::get_object (handle);
-
-      if (go)
-        {
-          property p = go.get_properties ().get_property (property_name);
-
-          if (p.ok ())
-            p.set (property_value, true, notify_toolkit);
-        }
-    }
+  {
+    gh_manager::auto_lock guard;
+
+    graphics_object go = gh_manager::get_object (handle);
+
+    if (go)
+      {
+        property p = go.get_properties ().get_property (property_name);
+
+        if (p.ok ())
+          p.set (property_value, true, notify_toolkit);
+      }
+  }
 
 private:
   set_event (void)
@@ -8168,7 +8238,7 @@
 {
   graphics_object go = gh_manager::get_object (0);
   root_figure::properties& props =
-      dynamic_cast<root_figure::properties&> (go.get_properties ());
+    dynamic_cast<root_figure::properties&> (go.get_properties ());
 
   props.set_callbackobject (h.as_octave_value ());
 }
@@ -8294,23 +8364,25 @@
           const graphics_object& current = callback_objects.front ();
 
           if (current.get_properties ().is_interruptible ())
-            do_post_event (graphics_event::create_callback_event (h, name, data));
+            do_post_event (graphics_event::create_callback_event (h, name,
+                                                                  data));
           else
             {
               caseless_str busy_action (go.get_properties ().get_busyaction ());
 
               if (busy_action.compare ("queue"))
-                do_post_event (graphics_event::create_callback_event (h, name, data));
+                do_post_event (graphics_event::create_callback_event (h, name,
+                                                                      data));
               else
                 {
                   caseless_str cname (name);
 
-                  if (cname.compare ("deletefcn")
-                      || cname.compare ("createfcn")
+                  if (cname.compare ("deletefcn") || cname.compare ("createfcn")
                       || (go.isa ("figure")
                           && (cname.compare ("closerequestfcn")
                               || cname.compare ("resizefcn"))))
-                    do_post_event (graphics_event::create_callback_event (h, name, data));
+                    do_post_event (
+                      graphics_event::create_callback_event (h, name, data));
                 }
             }
         }
@@ -8446,7 +8518,7 @@
 // ---------------------------------------------------------------------
 
 DEFUN (ishandle, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ishandle (@var{h})\n\
 Return true if @var{h} is a graphics handle and false otherwise.\n\
 \n\
@@ -8506,7 +8578,7 @@
 }
 
 DEFUN (__is_handle_visible__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} __is_handle_visible__ (@var{h})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -8522,7 +8594,7 @@
 }
 
 DEFUN (reset, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} reset (@var{h}, @var{property})\n\
 Remove any defaults set for the handle @var{h}.  The default figure\n\
 properties of @qcode{\"position\"}, @qcode{\"units\"},\n\
@@ -8552,7 +8624,7 @@
 }
 
 DEFUN (set, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} set (@var{h}, @var{property}, @var{value}, @dots{})\n\
 @deftypefnx {Built-in Function} {} set (@var{h}, @var{properties}, @var{values})\n\
 @deftypefnx {Built-in Function} {} set (@var{h}, @var{pv})\n\
@@ -8625,7 +8697,7 @@
                       else
                         {
                           error ("set: number of graphics handles must match number of value rows (%d != %d)",
-                                hcv.length (), args(2).cell_value ().rows ());
+                                 hcv.length (), args(2).cell_value ().rows ());
                           break;
 
                         }
@@ -8661,7 +8733,7 @@
                 break;
 
               request_drawnow = true;
-           }
+            }
 
           if (! error_state && request_drawnow)
             Vdrawnow_requested = true;
@@ -8691,7 +8763,7 @@
 }
 
 DEFUN (get, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} get (@var{h})\n\
 @deftypefnx {Built-in Function} {@var{val} =} get (@var{h}, @var{p})\n\
 Return the value of the named property @var{p} from the graphics handle\n\
@@ -8768,7 +8840,9 @@
 
                           if (obj)
                             {
-                              for (octave_idx_type m = 0; ! error_state && m < plen; m++)
+                              for (octave_idx_type m = 0;
+                                   ! error_state && m < plen;
+                                   m++)
                                 {
                                   caseless_str property = plist(m);
 
@@ -8866,7 +8940,7 @@
 // property values or lists respectively.
 
 DEFUN (__get__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __get__ (@var{h})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -8994,7 +9068,7 @@
 }
 
 DEFUN (__go_figure__, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_figure__ (@var{fignum})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9113,7 +9187,7 @@
   if (go.isa ("surface"))
     nd = 3;
   else if ((go.isa ("line") || go.isa ("patch"))
-            && ! go.get ("zdata").is_empty ())
+           && ! go.get ("zdata").is_empty ())
     nd = 3;
   else
     {
@@ -9140,7 +9214,7 @@
 }
 
 DEFUN (__calc_dimensions__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __calc_dimensions__ (@var{axes})\n\
 Internal function.  Determine the number of dimensions in a graphics\n\
 object, whether 2 or 3.\n\
@@ -9166,7 +9240,7 @@
 }
 
 DEFUN (__go_axes__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_axes__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9175,7 +9249,7 @@
 }
 
 DEFUN (__go_line__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_line__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9184,7 +9258,7 @@
 }
 
 DEFUN (__go_text__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_text__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9193,7 +9267,7 @@
 }
 
 DEFUN (__go_image__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_image__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9202,7 +9276,7 @@
 }
 
 DEFUN (__go_surface__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_surface__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9211,7 +9285,7 @@
 }
 
 DEFUN (__go_patch__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_patch__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9220,7 +9294,7 @@
 }
 
 DEFUN (__go_hggroup__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_hggroup__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9229,7 +9303,7 @@
 }
 
 DEFUN (__go_uimenu__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uimenu__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9238,7 +9312,7 @@
 }
 
 DEFUN (__go_uicontrol__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uicontrol__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9247,7 +9321,7 @@
 }
 
 DEFUN (__go_uipanel__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uipanel__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9256,7 +9330,7 @@
 }
 
 DEFUN (__go_uicontextmenu__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uicontextmenu__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9265,7 +9339,7 @@
 }
 
 DEFUN (__go_uitoolbar__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uitoolbar__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9274,7 +9348,7 @@
 }
 
 DEFUN (__go_uipushtool__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uipushtool__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9283,7 +9357,7 @@
 }
 
 DEFUN (__go_uitoggletool__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_uitoggletool__ (@var{parent})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9292,7 +9366,7 @@
 }
 
 DEFUN (__go_delete__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_delete__ (@var{h})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9337,7 +9411,7 @@
 }
 
 DEFUN (__go_axes_init__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_axes_init__ (@var{h}, @var{mode})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9376,7 +9450,8 @@
 
               h = gh_manager::lookup (val);
               if (! h.ok ())
-                error ("__go_axes_init__: axis deleted during initialization (= %g)", val);
+                error ("__go_axes_init__: axis deleted during initialization (= %g)",
+                       val);
             }
           else
             error ("__go_axes_init__: invalid graphics object (= %g)", val);
@@ -9391,7 +9466,7 @@
 }
 
 DEFUN (__go_handles__, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_handles__ (@var{show_hidden})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9407,7 +9482,7 @@
 }
 
 DEFUN (__go_figure_handles__, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __go_figure_handles__ (@var{show_hidden})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -9423,7 +9498,7 @@
 }
 
 DEFUN (__go_execute_callback__, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} __go_execute_callback__ (@var{h}, @var{name})\n\
 @deftypefnx {Built-in Function} {} __go_execute_callback__ (@var{h}, @var{name}, @var{param})\n\
 Undocumented internal function.\n\
@@ -9469,7 +9544,7 @@
 }
 
 DEFUN (__image_pixel_size__, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{px}, @var{py}} __image_pixel_size__ (@var{h})\n\
 Internal function: returns the pixel size of the image in normalized units.\n\
 @end deftypefn")
@@ -9513,7 +9588,7 @@
   : dtk (), available_toolkits (), loaded_toolkits ()
 {
 #if defined (HAVE_FLTK)
-  dtk = "fltk";
+  dtk = display_info::display_available () ? "fltk" : "gnuplot";
 #else
   dtk = "gnuplot";
 #endif
@@ -9564,7 +9639,7 @@
 }
 
 DEFUN (available_graphics_toolkits, , ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} available_graphics_toolkits ()\n\
 Return a cell array of registered graphics toolkits.\n\
 @seealso{graphics_toolkit, register_graphics_toolkit}\n\
@@ -9576,7 +9651,7 @@
 }
 
 DEFUN (register_graphics_toolkit, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} register_graphics_toolkit (@var{toolkit})\n\
 List @var{toolkit} as an available graphics toolkit.\n\
 @seealso{available_graphics_toolkits}\n\
@@ -9602,7 +9677,7 @@
 }
 
 DEFUN (loaded_graphics_toolkits, , ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} loaded_graphics_toolkits ()\n\
 Return a cell array of the currently loaded graphics toolkits.\n\
 @seealso{available_graphics_toolkits}\n\
@@ -9614,7 +9689,7 @@
 }
 
 DEFUN (drawnow, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} drawnow ()\n\
 @deftypefnx {Built-in Function} {} drawnow (\"expose\")\n\
 @deftypefnx {Built-in Function} {} drawnow (@var{term}, @var{file}, @var{mono}, @var{debug_file})\n\
@@ -9650,7 +9725,8 @@
               if (h.ok () && h != 0)
                 {
                   graphics_object go = gh_manager::get_object (h);
-                  figure::properties& fprops = dynamic_cast <figure::properties&> (go.get_properties ());
+                  figure::properties& fprops
+                    = dynamic_cast <figure::properties&> (go.get_properties ());
 
                   if (fprops.is_modified ())
                     {
@@ -9745,8 +9821,8 @@
 
                               gh_manager::unlock ();
 
-                              go.get_toolkit ()
-                                .print_figure (go, term, file, mono, debug_file);
+                              go.get_toolkit ().print_figure (go, term, file,
+                                                              mono, debug_file);
 
                               gh_manager::lock ();
                             }
@@ -9775,7 +9851,7 @@
 }
 
 DEFUN (addlistener, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} addlistener (@var{h}, @var{prop}, @var{fcn})\n\
 Register @var{fcn} as listener for the property @var{prop} of the graphics\n\
 object @var{h}.  Property listeners are executed (in order of registration)\n\
@@ -9854,7 +9930,7 @@
 }
 
 DEFUN (dellistener, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} dellistener (@var{h}, @var{prop}, @var{fcn})\n\
 Remove the registration of @var{fcn} as a listener for the property\n\
 @var{prop} of the graphics object @var{h}.  The function @var{fcn} must\n\
@@ -9901,14 +9977,17 @@
                   graphics_object go = gh_manager::get_object (gh);
 
                   if (args.length () == 2)
-                    go.delete_property_listener (pname, octave_value (), POSTSET);
+                    go.delete_property_listener (pname, octave_value (),
+                                                 POSTSET);
                   else
                     {
                       caseless_str persistent = args(2).string_value ();
                       if (persistent.compare ("persistent"))
                         {
-                          go.delete_property_listener (pname, octave_value (), PERSISTENT);
-                          go.delete_property_listener (pname, octave_value (), POSTSET);
+                          go.delete_property_listener (pname, octave_value (),
+                                                       PERSISTENT);
+                          go.delete_property_listener (pname, octave_value (),
+                                                       POSTSET);
                         }
                       else
                         go.delete_property_listener (pname, args(2), POSTSET);
@@ -9931,7 +10010,7 @@
 }
 
 DEFUN (addproperty, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} addproperty (@var{name}, @var{h}, @var{type})\n\
 @deftypefnx {Built-in Function} {} addproperty (@var{name}, @var{h}, @var{type}, @var{arg}, @dots{})\n\
 Create a new property named @var{name} in graphics object @var{h}.\n\
@@ -10144,11 +10223,11 @@
 
                   if (go.get_properties ().has_property (pname))
                     {
-                      go.get_properties ()
-                        .delete_listener (pname, listener, mode);
+                      go.get_properties ().delete_listener (pname, listener,
+                                                            mode);
                       if (mode == POSTSET)
-                        go.get_properties ()
-                          .delete_listener (pname, listener, PERSISTENT);
+                        go.get_properties ().delete_listener (pname, listener,
+                                                              PERSISTENT);
                     }
                 }
             }
@@ -10221,7 +10300,7 @@
 }
 
 DEFUN (waitfor, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} waitfor (@var{h})\n\
 @deftypefnx {Built-in Function} {} waitfor (@var{h}, @var{prop})\n\
 @deftypefnx {Built-in Function} {} waitfor (@var{h}, @var{prop}, @var{value})\n\
@@ -10408,7 +10487,7 @@
               if (args.length () > (timeout_index + 1))
                 {
                   timeout = static_cast<int>
-                    (args(timeout_index + 1).scalar_value ());
+                            (args(timeout_index + 1).scalar_value ());
 
                   if (! error_state)
                     {
--- a/libinterp/corefcn/graphics.in.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/graphics.in.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (graphics_h)
-#define graphics_h 1
+#if !defined (octave_graphics_h)
+#define octave_graphics_h 1
 
 #ifdef HAVE_CONFIG_H
 #include <config.h>
@@ -65,34 +65,34 @@
   virtual ~base_scaler (void) { }
 
   virtual Matrix scale (const Matrix& m) const
-    {
-      error ("invalid axis scale");
-      return m;
-    }
+  {
+    error ("invalid axis scale");
+    return m;
+  }
 
   virtual NDArray scale (const NDArray& m) const
-    {
-      error ("invalid axis scale");
-      return m;
-    }
+  {
+    error ("invalid axis scale");
+    return m;
+  }
 
   virtual double scale (double d) const
-    {
-      error ("invalid axis scale");
-      return d;
-    }
+  {
+    error ("invalid axis scale");
+    return d;
+  }
 
   virtual double unscale (double d) const
-    {
-      error ("invalid axis scale");
-      return d;
-    }
+  {
+    error ("invalid axis scale");
+    return d;
+  }
 
   virtual base_scaler* clone () const
-    { return new base_scaler (); }
+  { return new base_scaler (); }
 
   virtual bool is_linear (void) const
-    { return false; }
+  { return false; }
 };
 
 class lin_scaler : public base_scaler
@@ -119,38 +119,38 @@
   log_scaler (void) { }
 
   Matrix scale (const Matrix& m) const
-    {
-      Matrix retval (m.rows (), m.cols ());
-
-      do_scale (m.data (), retval.fortran_vec (), m.numel ());
-
-      return retval;
-    }
+  {
+    Matrix retval (m.rows (), m.cols ());
+
+    do_scale (m.data (), retval.fortran_vec (), m.numel ());
+
+    return retval;
+  }
 
   NDArray scale (const NDArray& m) const
-    {
-      NDArray retval (m.dims ());
-
-      do_scale (m.data (), retval.fortran_vec (), m.numel ());
-
-      return retval;
-    }
+  {
+    NDArray retval (m.dims ());
+
+    do_scale (m.data (), retval.fortran_vec (), m.numel ());
+
+    return retval;
+  }
 
   double scale (double d) const
-    { return log10 (d); }
+  { return log10 (d); }
 
   double unscale (double d) const
-    { return pow (10.0, d); }
+  { return pow (10.0, d); }
 
   base_scaler* clone (void) const
-    { return new log_scaler (); }
+  { return new log_scaler (); }
 
 private:
   void do_scale (const double *src, double *dest, int n) const
-    {
-      for (int i = 0; i < n; i++)
-        dest[i] = log10 (src[i]);
-    }
+  {
+    for (int i = 0; i < n; i++)
+      dest[i] = log10 (src[i]);
+  }
 };
 
 class neg_log_scaler : public base_scaler
@@ -159,38 +159,38 @@
   neg_log_scaler (void) { }
 
   Matrix scale (const Matrix& m) const
-    {
-      Matrix retval (m.rows (), m.cols ());
-
-      do_scale (m.data (), retval.fortran_vec (), m.numel ());
-
-      return retval;
-    }
+  {
+    Matrix retval (m.rows (), m.cols ());
+
+    do_scale (m.data (), retval.fortran_vec (), m.numel ());
+
+    return retval;
+  }
 
   NDArray scale (const NDArray& m) const
-    {
-      NDArray retval (m.dims ());
-
-      do_scale (m.data (), retval.fortran_vec (), m.numel ());
-
-      return retval;
-    }
+  {
+    NDArray retval (m.dims ());
+
+    do_scale (m.data (), retval.fortran_vec (), m.numel ());
+
+    return retval;
+  }
 
   double scale (double d) const
-    { return -log10 (-d); }
+  { return -log10 (-d); }
 
   double unscale (double d) const
-    { return -pow (10.0, -d); }
+  { return -pow (10.0, -d); }
 
   base_scaler* clone (void) const
-    { return new neg_log_scaler (); }
+  { return new neg_log_scaler (); }
 
 private:
   void do_scale (const double *src, double *dest, int n) const
-    {
-      for (int i = 0; i < n; i++)
-        dest[i] = -log10 (-src[i]);
-    }
+  {
+    for (int i = 0; i < n; i++)
+      dest[i] = -log10 (-src[i]);
+  }
 };
 
 class scaler
@@ -205,57 +205,57 @@
            ? new log_scaler ()
            : (s == "neglog" ? new neg_log_scaler ()
               : (s == "linear" ? new lin_scaler () : new base_scaler ())))
-    { }
+  { }
 
   ~scaler (void) { delete rep; }
 
   Matrix scale (const Matrix& m) const
-    { return rep->scale (m); }
+  { return rep->scale (m); }
 
   NDArray scale (const NDArray& m) const
-    { return rep->scale (m); }
+  { return rep->scale (m); }
 
   double scale (double d) const
-    { return rep->scale (d); }
+  { return rep->scale (d); }
 
   double unscale (double d) const
-    { return rep->unscale (d); }
+  { return rep->unscale (d); }
 
   bool is_linear (void) const
-    { return rep->is_linear (); }
+  { return rep->is_linear (); }
 
   scaler& operator = (const scaler& s)
-    {
-      if (rep)
-        {
-          delete rep;
-          rep = 0;
-        }
-
-      rep = s.rep->clone ();
-
-      return *this;
-    }
+  {
+    if (rep)
+      {
+        delete rep;
+        rep = 0;
+      }
+
+    rep = s.rep->clone ();
+
+    return *this;
+  }
 
   scaler& operator = (const std::string& s)
-    {
-      if (rep)
-        {
-          delete rep;
-          rep = 0;
-        }
-
-      if (s == "log")
-        rep = new log_scaler ();
-      else if (s == "neglog")
-        rep = new neg_log_scaler ();
-      else if (s == "linear")
-        rep = new lin_scaler ();
-      else
-        rep = new base_scaler ();
-
-      return *this;
-    }
+  {
+    if (rep)
+      {
+        delete rep;
+        rep = 0;
+      }
+
+    if (s == "log")
+      rep = new log_scaler ();
+    else if (s == "neglog")
+      rep = new neg_log_scaler ();
+    else if (s == "linear")
+      rep = new lin_scaler ();
+    else
+      rep = new base_scaler ();
+
+    return *this;
+  }
 
 private:
   base_scaler *rep;
@@ -275,16 +275,16 @@
 public:
   base_property (void)
     : id (-1), count (1), name (), parent (), hidden (), listeners ()
-    { }
+  { }
 
   base_property (const std::string& s, const graphics_handle& h)
     : id (-1), count (1), name (s), parent (h), hidden (false), listeners ()
-    { }
+  { }
 
   base_property (const base_property& p)
     : id (-1), count (1), name (p.name), parent (p.parent),
       hidden (p.hidden), listeners ()
-    { }
+  { }
 
   virtual ~base_property (void) { }
 
@@ -314,103 +314,105 @@
                           bool do_notify_toolkit = true);
 
   virtual octave_value get (void) const
-    {
-      error ("get: invalid property \"%s\"", name.c_str ());
-      return octave_value ();
-    }
+  {
+    error ("get: invalid property \"%s\"", name.c_str ());
+    return octave_value ();
+  }
 
 
   virtual std::string values_as_string (void) const
-    {
-      error ("values_as_string: invalid property \"%s\"", name.c_str ());
-      return std::string ();
-    }
+  {
+    error ("values_as_string: invalid property \"%s\"", name.c_str ());
+    return std::string ();
+  }
 
   virtual Cell values_as_cell (void) const
-    {
-      error ("values_as_cell: invalid property \"%s\"", name.c_str ());
-      return Cell ();
-    }
+  {
+    error ("values_as_cell: invalid property \"%s\"", name.c_str ());
+    return Cell ();
+  }
 
   base_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   void add_listener (const octave_value& v, listener_mode mode = POSTSET)
-    {
-      octave_value_list& l = listeners[mode];
-      l.resize (l.length () + 1, v);
-    }
+  {
+    octave_value_list& l = listeners[mode];
+    l.resize (l.length () + 1, v);
+  }
 
   void delete_listener (const octave_value& v = octave_value (),
                         listener_mode mode = POSTSET)
-    {
-      octave_value_list& l = listeners[mode];
-
-      if (v.is_defined ())
-        {
-          bool found = false;
-          int i;
-
-          for (i = 0; i < l.length (); i++)
-            {
-              if (v.internal_rep () == l(i).internal_rep ())
-                {
-                  found = true;
-                  break;
-                }
-            }
-          if (found)
-            {
-              for (int j = i; j < l.length () - 1; j++)
-                l(j) = l(j + 1);
-
-              l.resize (l.length () - 1);
-            }
-        }
-      else
-        {
-          if (mode == PERSISTENT)
-            l.resize (0);
-          else
-            {
-              octave_value_list lnew (0);
-              octave_value_list& lp = listeners[PERSISTENT];
-              for (int i = l.length () - 1; i >= 0 ; i--)
-                {
-                  for (int j = 0; j < lp.length (); j++)
-                    {
-                      if (l(i).internal_rep () == lp(j).internal_rep ())
-                        {
-                          lnew.resize (lnew.length () + 1, l(i));
-                          break;
-                        }
-                    }
-                }
-              l = lnew;
-            }
-        }
-
-    }
+  {
+    octave_value_list& l = listeners[mode];
+
+    if (v.is_defined ())
+      {
+        bool found = false;
+        int i;
+
+        for (i = 0; i < l.length (); i++)
+          {
+            if (v.internal_rep () == l(i).internal_rep ())
+              {
+                found = true;
+                break;
+              }
+          }
+        if (found)
+          {
+            for (int j = i; j < l.length () - 1; j++)
+              l(j) = l(j + 1);
+
+            l.resize (l.length () - 1);
+          }
+      }
+    else
+      {
+        if (mode == PERSISTENT)
+          l.resize (0);
+        else
+          {
+            octave_value_list lnew (0);
+            octave_value_list& lp = listeners[PERSISTENT];
+            for (int i = l.length () - 1; i >= 0 ; i--)
+              {
+                for (int j = 0; j < lp.length (); j++)
+                  {
+                    if (l(i).internal_rep () == lp(j).internal_rep ())
+                      {
+                        lnew.resize (lnew.length () + 1, l(i));
+                        break;
+                      }
+                  }
+              }
+            l = lnew;
+          }
+      }
+
+  }
 
   OCTINTERP_API void run_listeners (listener_mode mode = POSTSET);
 
   virtual base_property* clone (void) const
-    { return new base_property (*this); }
+  { return new base_property (*this); }
 
 protected:
   virtual bool do_set (const octave_value&)
-    {
-      error ("set: invalid property \"%s\"", name.c_str ());
-      return false;
-    }
+  {
+    error ("set: invalid property \"%s\"", name.c_str ());
+    return false;
+  }
 
 private:
   typedef std::map<listener_mode, octave_value_list> listener_map;
-  typedef std::map<listener_mode, octave_value_list>::iterator listener_map_iterator;
-  typedef std::map<listener_mode, octave_value_list>::const_iterator listener_map_const_iterator;
+  typedef std::map<listener_mode, octave_value_list>::iterator
+    listener_map_iterator;
+  typedef std::map<listener_mode, octave_value_list>::const_iterator
+    listener_map_const_iterator;
 
 private:
   int id;
@@ -434,36 +436,36 @@
     : base_property (p), str (p.str) { }
 
   octave_value get (void) const
-    { return octave_value (str); }
+  { return octave_value (str); }
 
   std::string string_value (void) const { return str; }
 
   string_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new string_property (*this); }
 
 protected:
   bool do_set (const octave_value& val)
-    {
-      if (val.is_string ())
-        {
-          std::string new_str = val.string_value ();
-
-          if (new_str != str)
-            {
-              str = new_str;
-              return true;
-            }
-        }
-      else
-        error ("set: invalid string property value for \"%s\"",
-               get_name ().c_str ());
-      return false;
-    }
+  {
+    if (val.is_string ())
+      {
+        std::string new_str = val.string_value ();
+
+        if (new_str != str)
+          {
+            str = new_str;
+            return true;
+          }
+      }
+    else
+      error ("set: invalid string property value for \"%s\"",
+             get_name ().c_str ());
+    return false;
+  }
 
 private:
   std::string str;
@@ -480,188 +482,189 @@
                          const std::string& val = "", const char& sep = '|',
                          const desired_enum& typ = string_t)
     : base_property (s, h), desired_type (typ), separator (sep), str ()
-    {
-      size_t pos = 0;
-
-      while (true)
-        {
-          size_t new_pos = val.find_first_of (separator, pos);
-
-          if (new_pos == std::string::npos)
-            {
-              str.append (val.substr (pos));
-              break;
-            }
-          else
-            str.append (val.substr (pos, new_pos - pos));
-
-          pos = new_pos + 1;
-        }
-    }
+  {
+    size_t pos = 0;
+
+    while (true)
+      {
+        size_t new_pos = val.find_first_of (separator, pos);
+
+        if (new_pos == std::string::npos)
+          {
+            str.append (val.substr (pos));
+            break;
+          }
+        else
+          str.append (val.substr (pos, new_pos - pos));
+
+        pos = new_pos + 1;
+      }
+  }
 
   string_array_property (const std::string& s, const graphics_handle& h,
                          const Cell& c, const char& sep = '|',
                          const desired_enum& typ = string_t)
     : base_property (s, h), desired_type (typ), separator (sep), str ()
-    {
-      if (c.is_cellstr ())
-        {
-          string_vector strings (c.numel ());
-
-          for (octave_idx_type i = 0; i < c.numel (); i++)
-            strings[i] = c(i).string_value ();
-
-          str = strings;
-        }
-      else
-        error ("set: invalid order property value for \"%s\"",
-               get_name ().c_str ());
-    }
+  {
+    if (c.is_cellstr ())
+      {
+        string_vector strings (c.numel ());
+
+        for (octave_idx_type i = 0; i < c.numel (); i++)
+          strings[i] = c(i).string_value ();
+
+        str = strings;
+      }
+    else
+      error ("set: invalid order property value for \"%s\"",
+             get_name ().c_str ());
+  }
 
   string_array_property (const string_array_property& p)
     : base_property (p), desired_type (p.desired_type),
       separator (p.separator), str (p.str) { }
 
   octave_value get (void) const
-    {
-      if (desired_type == string_t)
-        return octave_value (string_value ());
-      else
-        return octave_value (cell_value ());
-    }
+  {
+    if (desired_type == string_t)
+      return octave_value (string_value ());
+    else
+      return octave_value (cell_value ());
+  }
 
   std::string string_value (void) const
-    {
-      std::string s;
-
-      for (octave_idx_type i = 0; i < str.length (); i++)
-        {
-          s += str[i];
-          if (i != str.length () - 1)
-            s += separator;
-        }
-
-      return s;
-    }
+  {
+    std::string s;
+
+    for (octave_idx_type i = 0; i < str.length (); i++)
+      {
+        s += str[i];
+        if (i != str.length () - 1)
+          s += separator;
+      }
+
+    return s;
+  }
 
   Cell cell_value (void) const {return Cell (str);}
 
   string_vector string_vector_value (void) const { return str; }
 
   string_array_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
-
-  base_property* clone (void) const { return new string_array_property (*this); }
+  {
+    set (val);
+    return *this;
+  }
+
+  base_property* clone (void) const
+  { return new string_array_property (*this); }
 
 protected:
   bool do_set (const octave_value& val)
-    {
-      if (val.is_string () && val.rows () == 1)
-        {
-          bool replace = false;
-          std::string new_str = val.string_value ();
-          string_vector strings;
-          size_t pos = 0;
-
-          // Split single string on delimiter (usually '|')
-          while (pos != std::string::npos)
-            {
-              size_t new_pos = new_str.find_first_of (separator, pos);
-
-              if (new_pos == std::string::npos)
+  {
+    if (val.is_string () && val.rows () == 1)
+      {
+        bool replace = false;
+        std::string new_str = val.string_value ();
+        string_vector strings;
+        size_t pos = 0;
+
+        // Split single string on delimiter (usually '|')
+        while (pos != std::string::npos)
+          {
+            size_t new_pos = new_str.find_first_of (separator, pos);
+
+            if (new_pos == std::string::npos)
+              {
+                strings.append (new_str.substr (pos));
+                break;
+              }
+            else
+              strings.append (new_str.substr (pos, new_pos - pos));
+
+            pos = new_pos + 1;
+          }
+
+        if (str.numel () == strings.numel ())
+          {
+            for (octave_idx_type i = 0; i < str.numel (); i++)
+              if (strings[i] != str[i])
                 {
-                  strings.append (new_str.substr (pos));
+                  replace = true;
                   break;
                 }
-              else
-                strings.append (new_str.substr (pos, new_pos - pos));
-
-              pos = new_pos + 1;
-            }
-
-          if (str.numel () == strings.numel ())
-            {
-              for (octave_idx_type i = 0; i < str.numel (); i++)
+          }
+        else
+          replace = true;
+
+        desired_type = string_t;
+
+        if (replace)
+          {
+            str = strings;
+            return true;
+          }
+      }
+    else if (val.is_string ())  // multi-row character matrix
+      {
+        bool replace = false;
+        charMatrix chm = val.char_matrix_value ();
+        octave_idx_type nel = chm.rows ();
+        string_vector strings (nel);
+
+        if (nel != str.numel ())
+          replace = true;
+        for (octave_idx_type i = 0; i < nel; i++)
+          {
+            strings[i] = chm.row_as_string (i);
+            if (!replace && strings[i] != str[i])
+              replace = true;
+          }
+
+        desired_type = string_t;
+
+        if (replace)
+          {
+            str = strings;
+            return true;
+          }
+      }
+    else if (val.is_cellstr ())
+      {
+        bool replace = false;
+        Cell new_cell = val.cell_value ();
+
+        string_vector strings = new_cell.cellstr_value ();
+
+        octave_idx_type nel = strings.length ();
+
+        if (nel != str.length ())
+          replace = true;
+        else
+          {
+            for (octave_idx_type i = 0; i < nel; i++)
+              {
                 if (strings[i] != str[i])
                   {
                     replace = true;
                     break;
                   }
-            }
-          else
-            replace = true;
-
-          desired_type = string_t;
-
-          if (replace)
-            {
-              str = strings;
-              return true;
-            }
-        }
-      else if (val.is_string ())  // multi-row character matrix
-        {
-          bool replace = false;
-          charMatrix chm = val.char_matrix_value ();
-          octave_idx_type nel = chm.rows ();
-          string_vector strings (nel);
-
-          if (nel != str.numel ())
-            replace = true;
-          for (octave_idx_type i = 0; i < nel; i++)
-            {
-              strings[i] = chm.row_as_string (i);
-              if (!replace && strings[i] != str[i])
-                replace = true;
-            }
-
-          desired_type = string_t;
-
-          if (replace)
-            {
-              str = strings;
-              return true;
-            }
-        }
-      else if (val.is_cellstr ())
-        {
-          bool replace = false;
-          Cell new_cell = val.cell_value ();
-
-          string_vector strings = new_cell.cellstr_value ();
-
-          octave_idx_type nel = strings.length ();
-
-          if (nel != str.length ())
-            replace = true;
-          else
-            {
-              for (octave_idx_type i = 0; i < nel; i++)
-                {
-                  if (strings[i] != str[i])
-                    {
-                      replace = true;
-                      break;
-                    }
-                }
-            }
-
-          desired_type = cell_t;
-
-          if (replace)
-            {
-              str = strings;
-              return true;
-            }
-        }
-      else
-        error ("set: invalid string property value for \"%s\"",
-               get_name ().c_str ());
-      return false;
-    }
+              }
+          }
+
+        desired_type = cell_t;
+
+        if (replace)
+          {
+            str = strings;
+            return true;
+          }
+      }
+    else
+      error ("set: invalid string property value for \"%s\"",
+             get_name ().c_str ());
+    return false;
+  }
 
 private:
   desired_enum desired_type;
@@ -961,15 +964,15 @@
   Cell values_as_cell (void) const { return vals.values_as_cell (); }
 
   bool is (const caseless_str& v) const
-    { return v.compare (current_val); }
+  { return v.compare (current_val); }
 
   bool is_radio (void) const { return true; }
 
   radio_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new radio_property (*this); }
 
@@ -997,11 +1000,11 @@
           }
         else
           error ("set: invalid value for radio property \"%s\" (value = %s)",
-              get_name ().c_str (), s.c_str ());
+                 get_name ().c_str (), s.c_str ());
       }
     else
       error ("set: invalid value for radio property \"%s\"",
-          get_name ().c_str ());
+             get_name ().c_str ());
     return false;
   }
 
@@ -1045,14 +1048,14 @@
   }
 
   bool operator == (const color_values& c) const
-    {
-      return (xrgb(0) == c.xrgb(0)
-              && xrgb(1) == c.xrgb(1)
-              && xrgb(2) == c.xrgb(2));
-    }
+  {
+    return (xrgb(0) == c.xrgb(0)
+            && xrgb(1) == c.xrgb(1)
+            && xrgb(2) == c.xrgb(2));
+  }
 
   bool operator != (const color_values& c) const
-    { return ! (*this == c); }
+  { return ! (*this == c); }
 
   Matrix rgb (void) const { return xrgb; }
 
@@ -1138,7 +1141,7 @@
   bool is_radio (void) const { return (current_type == radio_t); }
 
   bool is (const std::string& v) const
-    { return (is_radio () && current_val == v); }
+  { return (is_radio () && current_val == v); }
 
   Matrix rgb (void) const
   {
@@ -1157,16 +1160,17 @@
   }
 
   color_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   operator octave_value (void) const { return get (); }
 
   base_property* clone (void) const { return new color_property (*this); }
 
-  std::string values_as_string (void) const { return radio_val.values_as_string (); }
+  std::string values_as_string (void) const
+  { return radio_val.values_as_string (); }
 
   Cell values_as_cell (void) const { return radio_val.values_as_cell (); }
 
@@ -1198,31 +1202,31 @@
   double double_value (void) const { return current_val; }
 
   double_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new double_property (*this); }
 
 protected:
   bool do_set (const octave_value& v)
-    {
-      if (v.is_scalar_type () && v.is_real_type ())
-        {
-          double new_val = v.double_value ();
-
-          if (new_val != current_val)
-            {
-              current_val = new_val;
-              return true;
-            }
-        }
-      else
-        error ("set: invalid value for double property \"%s\"",
-               get_name ().c_str ());
-      return false;
-    }
+  {
+    if (v.is_scalar_type () && v.is_real_type ())
+      {
+        double new_val = v.double_value ();
+
+        if (new_val != current_val)
+          {
+            current_val = new_val;
+            return true;
+          }
+      }
+    else
+      error ("set: invalid value for double property \"%s\"",
+             get_name ().c_str ());
+    return false;
+  }
 
 private:
   double current_val;
@@ -1271,7 +1275,7 @@
   bool is_radio (void) const { return (current_type == radio_t); }
 
   bool is (const std::string& v) const
-    { return (is_radio () && current_val == v); }
+  { return (is_radio () && current_val == v); }
 
   double double_value (void) const
   {
@@ -1290,15 +1294,15 @@
   }
 
   double_radio_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   operator octave_value (void) const { return get (); }
 
   base_property* clone (void) const
-    { return new double_radio_property (*this); }
+  { return new double_radio_property (*this); }
 
 protected:
   OCTINTERP_API bool do_set (const octave_value& v);
@@ -1319,18 +1323,18 @@
     : base_property ("", graphics_handle ()), data (Matrix ()),
       xmin (), xmax (), xminp (), xmaxp (),
       type_constraints (), size_constraints ()
-    {
-      get_data_limits ();
-    }
+  {
+    get_data_limits ();
+  }
 
   array_property (const std::string& nm, const graphics_handle& h,
                   const octave_value& m)
     : base_property (nm, h), data (m.is_sparse_type () ? m.full_value () : m),
       xmin (), xmax (), xminp (), xmaxp (),
       type_constraints (), size_constraints ()
-    {
-      get_data_limits ();
-    }
+  {
+    get_data_limits ();
+  }
 
   // This copy constructor is only intended to be used
   // internally to access min/max values; no need to
@@ -1339,15 +1343,15 @@
     : base_property (p), data (p.data),
       xmin (p.xmin), xmax (p.xmax), xminp (p.xminp), xmaxp (p.xmaxp),
       type_constraints (), size_constraints ()
-    { }
+  { }
 
   octave_value get (void) const { return data; }
 
   void add_constraint (const std::string& type)
-    { type_constraints.insert (type); }
+  { type_constraints.insert (type); }
 
   void add_constraint (const dim_vector& dims)
-    { size_constraints.push_back (dims); }
+  { size_constraints.push_back (dims); }
 
   double min_val (void) const { return xmin; }
   double max_val (void) const { return xmax; }
@@ -1355,56 +1359,56 @@
   double max_neg (void) const { return xmaxp; }
 
   Matrix get_limits (void) const
-    {
-      Matrix m (1, 4);
-
-      m(0) = min_val ();
-      m(1) = max_val ();
-      m(2) = min_pos ();
-      m(3) = max_neg ();
-
-      return m;
-    }
+  {
+    Matrix m (1, 4);
+
+    m(0) = min_val ();
+    m(1) = max_val ();
+    m(2) = min_pos ();
+    m(3) = max_neg ();
+
+    return m;
+  }
 
   array_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const
-    {
-      array_property *p = new array_property (*this);
-
-      p->type_constraints = type_constraints;
-      p->size_constraints = size_constraints;
-
-      return p;
-    }
+  {
+    array_property *p = new array_property (*this);
+
+    p->type_constraints = type_constraints;
+    p->size_constraints = size_constraints;
+
+    return p;
+  }
 
 protected:
   bool do_set (const octave_value& v)
-    {
-      octave_value tmp = v.is_sparse_type () ? v.full_value () : v;
-
-      if (validate (tmp))
-        {
-          // FIXME: should we check for actual data change?
-          if (! is_equal (tmp))
-            {
-              data = tmp;
-
-              get_data_limits ();
-
-              return true;
-            }
-        }
-      else
-        error ("invalid value for array property \"%s\"",
-               get_name ().c_str ());
-
-      return false;
-    }
+  {
+    octave_value tmp = v.is_sparse_type () ? v.full_value () : v;
+
+    if (validate (tmp))
+      {
+        // FIXME: should we check for actual data change?
+        if (! is_equal (tmp))
+          {
+            data = tmp;
+
+            get_data_limits ();
+
+            return true;
+          }
+      }
+    else
+      error ("invalid value for array property \"%s\"",
+             get_name ().c_str ());
+
+    return false;
+  }
 
 private:
   OCTINTERP_API bool validate (const octave_value& v);
@@ -1469,14 +1473,14 @@
   }
 
   base_property* clone (void) const
-    {
-      row_vector_property *p = new row_vector_property (*this);
-
-      p->type_constraints = type_constraints;
-      p->size_constraints = size_constraints;
-
-      return p;
-    }
+  {
+    row_vector_property *p = new row_vector_property (*this);
+
+    p->type_constraints = type_constraints;
+    p->size_constraints = size_constraints;
+
+    return p;
+  }
 
 protected:
   bool do_set (const octave_value& v)
@@ -1514,12 +1518,12 @@
   bool_property (const std::string& nm, const graphics_handle& h,
                  bool val)
     : radio_property (nm, h, radio_values (val ? "{on}|off" : "on|{off}"))
-    { }
+  { }
 
   bool_property (const std::string& nm, const graphics_handle& h,
                  const char* val)
     : radio_property (nm, h, radio_values ("on|off"), val)
-    { }
+  { }
 
   bool_property (const bool_property& p)
     : radio_property (p) { }
@@ -1527,21 +1531,21 @@
   bool is_on (void) const { return is ("on"); }
 
   bool_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new bool_property (*this); }
 
 protected:
   bool do_set (const octave_value& val)
-    {
-      if (val.is_bool_scalar ())
-        return radio_property::do_set (val.bool_value () ? "on" : "off");
-      else
-        return radio_property::do_set (val);
-    }
+  {
+    if (val.is_bool_scalar ())
+      return radio_property::do_set (val.bool_value () ? "on" : "off");
+    else
+      return radio_property::do_set (val);
+  }
 };
 
 // ---------------------------------------------------------------------
@@ -1562,16 +1566,16 @@
   graphics_handle handle_value (void) const { return current_val; }
 
   handle_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   handle_property& operator = (const graphics_handle& h)
-    {
-      set (octave_value (h.value ()));
-      return *this;
-    }
+  {
+    set (octave_value (h.value ()));
+    return *this;
+  }
 
   base_property* clone (void) const { return new handle_property (*this); }
 
@@ -1588,7 +1592,7 @@
 {
 public:
   any_property (const std::string& nm, const graphics_handle& h,
-                  const octave_value& m = Matrix ())
+                const octave_value& m = Matrix ())
     : base_property (nm, h), data (m) { }
 
   any_property (const any_property& p)
@@ -1597,19 +1601,19 @@
   octave_value get (void) const { return data; }
 
   any_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new any_property (*this); }
 
 protected:
   bool do_set (const octave_value& v)
-    {
-      data = v;
-      return true;
-    }
+  {
+    data = v;
+    return true;
+  }
 
 private:
   octave_value data;
@@ -1622,80 +1626,80 @@
 public:
   children_property (void)
     : base_property ("", graphics_handle ()), children_list ()
-    {
-      do_init_children (Matrix ());
-    }
+  {
+    do_init_children (Matrix ());
+  }
 
   children_property (const std::string& nm, const graphics_handle& h,
                      const Matrix &val)
     : base_property (nm, h), children_list ()
-    {
-      do_init_children (val);
-    }
+  {
+    do_init_children (val);
+  }
 
   children_property (const children_property& p)
     : base_property (p), children_list ()
-    {
-      do_init_children (p.children_list);
-    }
+  {
+    do_init_children (p.children_list);
+  }
 
   children_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new children_property (*this); }
 
   bool remove_child (const double &val)
-    {
-      return do_remove_child (val);
-    }
+  {
+    return do_remove_child (val);
+  }
 
   void adopt (const double &val)
-    {
-      do_adopt_child (val);
-    }
+  {
+    do_adopt_child (val);
+  }
 
   Matrix get_children (void) const
-    {
-      return do_get_children (false);
-    }
+  {
+    return do_get_children (false);
+  }
 
   Matrix get_hidden (void) const
-    {
-      return do_get_children (true);
-    }
+  {
+    return do_get_children (true);
+  }
 
   Matrix get_all (void) const
-   {
-     return do_get_all_children ();
-   }
+  {
+    return do_get_all_children ();
+  }
 
   octave_value get (void) const
-    {
-      return octave_value (get_children ());
-    }
+  {
+    return octave_value (get_children ());
+  }
 
   void delete_children (bool clear = false)
-    {
-      do_delete_children (clear);
-    }
+  {
+    do_delete_children (clear);
+  }
 
   void renumber (graphics_handle old_gh, graphics_handle new_gh)
-    {
-      for (children_list_iterator p = children_list.begin ();
-           p != children_list.end (); p++)
-        {
-          if (*p == old_gh)
-            {
-              *p = new_gh.value ();
-              return;
-            }
-        }
-
-      error ("children_list::renumber: child not found!");
-    }
+  {
+    for (children_list_iterator p = children_list.begin ();
+         p != children_list.end (); p++)
+      {
+        if (*p == old_gh)
+          {
+            *p = new_gh.value ();
+            return;
+          }
+      }
+
+    error ("children_list::renumber: child not found!");
+  }
 
 private:
   typedef std::list<double>::iterator children_list_iterator;
@@ -1704,102 +1708,102 @@
 
 protected:
   bool do_set (const octave_value& val)
-    {
-      const Matrix new_kids = val.matrix_value ();
-
-      octave_idx_type nel = new_kids.numel ();
-
-      const Matrix new_kids_column = new_kids.reshape (dim_vector (nel, 1));
-
-      bool is_ok = true;
-
-      if (! error_state)
-        {
-          const Matrix visible_kids = do_get_children (false);
-
-          if (visible_kids.numel () == new_kids.numel ())
-            {
-              Matrix t1 = visible_kids.sort ();
-              Matrix t2 = new_kids_column.sort ();
-
-              if (t1 != t2)
-                is_ok = false;
-            }
-          else
-            is_ok = false;
-
-          if (! is_ok)
-            error ("set: new children must be a permutation of existing children");
-        }
-      else
-        {
+  {
+    const Matrix new_kids = val.matrix_value ();
+
+    octave_idx_type nel = new_kids.numel ();
+
+    const Matrix new_kids_column = new_kids.reshape (dim_vector (nel, 1));
+
+    bool is_ok = true;
+
+    if (! error_state)
+      {
+        const Matrix visible_kids = do_get_children (false);
+
+        if (visible_kids.numel () == new_kids.numel ())
+          {
+            Matrix t1 = visible_kids.sort ();
+            Matrix t2 = new_kids_column.sort ();
+
+            if (t1 != t2)
+              is_ok = false;
+          }
+        else
           is_ok = false;
-          error ("set: expecting children to be array of graphics handles");
-        }
-
-      if (is_ok)
-        {
-          Matrix tmp = new_kids_column.stack (get_hidden ());
-
-          children_list.clear ();
-
-          // Don't use do_init_children here, as that reverses the
-          // order of the list, and we don't want to do that if setting
-          // the child list directly.
-
-          for (octave_idx_type i = 0; i < tmp.numel (); i++)
-            children_list.push_back (tmp.xelem (i));
-        }
-
-      return is_ok;
-    }
+
+        if (! is_ok)
+          error ("set: new children must be a permutation of existing children");
+      }
+    else
+      {
+        is_ok = false;
+        error ("set: expecting children to be array of graphics handles");
+      }
+
+    if (is_ok)
+      {
+        Matrix tmp = new_kids_column.stack (get_hidden ());
+
+        children_list.clear ();
+
+        // Don't use do_init_children here, as that reverses the
+        // order of the list, and we don't want to do that if setting
+        // the child list directly.
+
+        for (octave_idx_type i = 0; i < tmp.numel (); i++)
+          children_list.push_back (tmp.xelem (i));
+      }
+
+    return is_ok;
+  }
 
 private:
   void do_init_children (const Matrix &val)
-    {
-      children_list.clear ();
-      for (octave_idx_type i = 0; i < val.numel (); i++)
-        children_list.push_front (val.xelem (i));
-    }
+  {
+    children_list.clear ();
+    for (octave_idx_type i = 0; i < val.numel (); i++)
+      children_list.push_front (val.xelem (i));
+  }
 
   void do_init_children (const std::list<double> &val)
-    {
-      children_list.clear ();
-      for (const_children_list_iterator p = val.begin (); p != val.end (); p++)
-        children_list.push_front (*p);
-    }
+  {
+    children_list.clear ();
+    for (const_children_list_iterator p = val.begin (); p != val.end (); p++)
+      children_list.push_front (*p);
+  }
 
   Matrix do_get_children (bool return_hidden) const;
 
   Matrix do_get_all_children (void) const
-    {
-      Matrix retval (children_list.size (), 1);
-      octave_idx_type i  = 0;
-
-      for (const_children_list_iterator p = children_list.begin ();
-           p != children_list.end (); p++)
-        retval(i++) = *p;
-      return retval;
-    }
+  {
+    Matrix retval (children_list.size (), 1);
+    octave_idx_type i  = 0;
+
+    for (const_children_list_iterator p = children_list.begin ();
+         p != children_list.end (); p++)
+      retval(i++) = *p;
+    return retval;
+  }
 
   bool do_remove_child (double child)
-    {
-      for (children_list_iterator p = children_list.begin ();
-           p != children_list.end (); p++)
-        {
-          if (*p == child)
-            {
-              children_list.erase (p);
-              return true;
-            }
-        }
-      return false;
-    }
+  {
+    for (children_list_iterator p = children_list.begin ();
+         p != children_list.end (); p++)
+      {
+        if (*p == child)
+          {
+            children_list.erase (p);
+            return true;
+          }
+      }
+    return false;
+  }
 
   void do_adopt_child (const double &val)
-    {
-      children_list.push_front (val);
-    }
+  {
+    children_list.push_front (val);
+  }
 
   void do_delete_children (bool clear);
 };
@@ -1823,31 +1827,31 @@
   OCTINTERP_API void execute (const octave_value& data = octave_value ()) const;
 
   bool is_defined (void) const
-    {
-      return (callback.is_defined () && ! callback.is_empty ());
-    }
+  {
+    return (callback.is_defined () && ! callback.is_empty ());
+  }
 
   callback_property& operator = (const octave_value& val)
-    {
-      set (val);
-      return *this;
-    }
+  {
+    set (val);
+    return *this;
+  }
 
   base_property* clone (void) const { return new callback_property (*this); }
 
 protected:
   bool do_set (const octave_value& v)
-    {
-      if (validate (v))
-        {
-          callback = v;
-          return true;
-        }
-      else
-        error ("invalid value for callback property \"%s\"",
-               get_name ().c_str ());
-      return false;
-    }
+  {
+    if (validate (v))
+      {
+        callback = v;
+        return true;
+      }
+    else
+      error ("invalid value for callback property \"%s\"",
+             get_name ().c_str ());
+    return false;
+  }
 
 private:
   OCTINTERP_API bool validate (const octave_value& v) const;
@@ -1865,99 +1869,99 @@
 {
 public:
   property (void) : rep (new base_property ("", graphics_handle ()))
-    { }
+  { }
 
   property (base_property *bp, bool persist = false) : rep (bp)
-    { if (persist) rep->count++; }
+  { if (persist) rep->count++; }
 
   property (const property& p) : rep (p.rep)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   ~property (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   bool ok (void) const
-    { return rep->ok (); }
+  { return rep->ok (); }
 
   std::string get_name (void) const
-    { return rep->get_name (); }
+  { return rep->get_name (); }
 
   void set_name (const std::string& name)
-    { rep->set_name (name); }
+  { rep->set_name (name); }
 
   graphics_handle get_parent (void) const
-    { return rep->get_parent (); }
+  { return rep->get_parent (); }
 
   void set_parent (const graphics_handle& h)
-    { rep->set_parent (h); }
+  { rep->set_parent (h); }
 
   bool is_hidden (void) const
-    { return rep->is_hidden (); }
+  { return rep->is_hidden (); }
 
   void set_hidden (bool flag)
-    { rep->set_hidden (flag); }
+  { rep->set_hidden (flag); }
 
   bool is_radio (void) const
-    { return rep->is_radio (); }
+  { return rep->is_radio (); }
 
   int get_id (void) const
-    { return rep->get_id (); }
+  { return rep->get_id (); }
 
   void set_id (int d)
-    { rep->set_id (d); }
+  { rep->set_id (d); }
 
   octave_value get (void) const
-    { return rep->get (); }
+  { return rep->get (); }
 
   bool set (const octave_value& val, bool do_run = true,
             bool do_notify_toolkit = true)
-    { return rep->set (val, do_run, do_notify_toolkit); }
+  { return rep->set (val, do_run, do_notify_toolkit); }
 
   std::string values_as_string (void) const
-    { return rep->values_as_string (); }
+  { return rep->values_as_string (); }
 
   Cell values_as_cell (void) const
-    { return rep->values_as_cell (); }
+  { return rep->values_as_cell (); }
 
   property& operator = (const octave_value& val)
-    {
-      *rep = val;
-      return *this;
-    }
+  {
+    *rep = val;
+    return *this;
+  }
 
   property& operator = (const property& p)
-    {
-      if (rep && --rep->count == 0)
-        delete rep;
-
-      rep = p.rep;
-      rep->count++;
-
-      return *this;
-    }
+  {
+    if (rep && --rep->count == 0)
+      delete rep;
+
+    rep = p.rep;
+    rep->count++;
+
+    return *this;
+  }
 
   void add_listener (const octave_value& v, listener_mode mode = POSTSET)
-    { rep->add_listener (v, mode); }
+  { rep->add_listener (v, mode); }
 
   void delete_listener (const octave_value& v = octave_value (),
                         listener_mode mode = POSTSET)
   { rep->delete_listener (v, mode); }
 
   void run_listeners (listener_mode mode = POSTSET)
-    { rep->run_listeners (mode); }
+  { rep->run_listeners (mode); }
 
   OCTINTERP_API static
-      property create (const std::string& name, const graphics_handle& parent,
-                       const caseless_str& type,
-                       const octave_value_list& args);
+  property create (const std::string& name, const graphics_handle& parent,
+                   const caseless_str& type,
+                   const octave_value_list& args);
 
   property clone (void) const
-    { return property (rep->clone ()); }
+  { return property (rep->clone ()); }
 
   /*
   const string_property& as_string_property (void) const
@@ -2049,36 +2053,36 @@
   virtual bool is_valid (void) const { return false; }
 
   virtual void redraw_figure (const graphics_object&) const
-    { gripe_invalid ("redraw_figure"); }
+  { gripe_invalid ("redraw_figure"); }
 
   virtual void print_figure (const graphics_object&, const std::string&,
                              const std::string&, bool,
                              const std::string& = "") const
-    { gripe_invalid ("print_figure"); }
+  { gripe_invalid ("print_figure"); }
 
   virtual Matrix get_canvas_size (const graphics_handle&) const
-    {
-      gripe_invalid ("get_canvas_size");
-      return Matrix (1, 2, 0.0);
-    }
+  {
+    gripe_invalid ("get_canvas_size");
+    return Matrix (1, 2, 0.0);
+  }
 
   virtual double get_screen_resolution (void) const
-    {
-      gripe_invalid ("get_screen_resolution");
-      return 72.0;
-    }
+  {
+    gripe_invalid ("get_screen_resolution");
+    return 72.0;
+  }
 
   virtual Matrix get_screen_size (void) const
-    {
-      gripe_invalid ("get_screen_size");
-      return Matrix (1, 2, 0.0);
-    }
+  {
+    gripe_invalid ("get_screen_size");
+    return Matrix (1, 2, 0.0);
+  }
 
   // Callback function executed when the given graphics object
   // changes.  This allows the graphics toolkit to act on property
   // changes if needed.
   virtual void update (const graphics_object&, int)
-    { gripe_invalid ("base_graphics_toolkit::update"); }
+  { gripe_invalid ("base_graphics_toolkit::update"); }
 
   void update (const graphics_handle&, int);
 
@@ -2086,7 +2090,7 @@
   // created.  This allows the graphics toolkit to do toolkit-specific
   // initializations for a newly created object.
   virtual bool initialize (const graphics_object&)
-    { gripe_invalid ("base_graphics_toolkit::initialize"); return false; }
+  { gripe_invalid ("base_graphics_toolkit::initialize"); return false; }
 
   bool initialize (const graphics_handle&);
 
@@ -2094,7 +2098,7 @@
   // graphics object.  This allows the graphics toolkit to perform
   // toolkit-specific cleanup operations before an object is deleted.
   virtual void finalize (const graphics_object&)
-    { gripe_invalid ("base_graphics_toolkit::finalize"); }
+  { gripe_invalid ("base_graphics_toolkit::finalize"); }
 
   void finalize (const graphics_handle&);
 
@@ -2108,10 +2112,10 @@
 
 private:
   void gripe_invalid (const std::string& fname) const
-    {
-      if (! is_valid ())
-        error ("%s: invalid graphics toolkit", fname.c_str ());
-    }
+  {
+    if (! is_valid ())
+      error ("%s: invalid graphics toolkit", fname.c_str ());
+  }
 };
 
 class graphics_toolkit
@@ -2119,85 +2123,85 @@
 public:
   graphics_toolkit (void)
     : rep (new base_graphics_toolkit ("unknown"))
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   graphics_toolkit (base_graphics_toolkit* b)
     : rep (b)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   graphics_toolkit (const graphics_toolkit& b)
     : rep (b.rep)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   ~graphics_toolkit (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   graphics_toolkit& operator = (const graphics_toolkit& b)
-    {
-      if (rep != b.rep)
-        {
-          if (--rep->count == 0)
-            delete rep;
-
-          rep = b.rep;
-          rep->count++;
-        }
-
-      return *this;
-    }
+  {
+    if (rep != b.rep)
+      {
+        if (--rep->count == 0)
+          delete rep;
+
+        rep = b.rep;
+        rep->count++;
+      }
+
+    return *this;
+  }
 
   operator bool (void) const { return rep->is_valid (); }
 
   std::string get_name (void) const { return rep->get_name (); }
 
   void redraw_figure (const graphics_object& go) const
-    { rep->redraw_figure (go); }
+  { rep->redraw_figure (go); }
 
   void print_figure (const graphics_object& go, const std::string& term,
                      const std::string& file, bool mono,
                      const std::string& debug_file = "") const
-    { rep->print_figure (go, term, file, mono, debug_file); }
+  { rep->print_figure (go, term, file, mono, debug_file); }
 
   Matrix get_canvas_size (const graphics_handle& fh) const
-    { return rep->get_canvas_size (fh); }
+  { return rep->get_canvas_size (fh); }
 
   double get_screen_resolution (void) const
-    { return rep->get_screen_resolution (); }
+  { return rep->get_screen_resolution (); }
 
   Matrix get_screen_size (void) const
-    { return rep->get_screen_size (); }
+  { return rep->get_screen_size (); }
 
   // Notifies graphics toolkit that object't property has changed.
   void update (const graphics_object& go, int id)
-    { rep->update (go, id); }
+  { rep->update (go, id); }
 
   void update (const graphics_handle& h, int id)
-    { rep->update (h, id); }
+  { rep->update (h, id); }
 
   // Notifies graphics toolkit that new object was created.
   bool initialize (const graphics_object& go)
-    { return rep->initialize (go); }
+  { return rep->initialize (go); }
 
   bool initialize (const graphics_handle& h)
-    { return rep->initialize (h); }
+  { return rep->initialize (h); }
 
   // Notifies graphics toolkit that object was destroyed.
   // This is called only for explicitly deleted object. Children are
   // deleted implicitly and graphics toolkit isn't notified.
   void finalize (const graphics_object& go)
-    { rep->finalize (go); }
+  { rep->finalize (go); }
 
   void finalize (const graphics_handle& h)
-    { rep->finalize (h); }
+  { rep->finalize (h); }
 
   // Close the graphics toolkit.
   void close (void) { rep->close (); }
@@ -2243,7 +2247,7 @@
   static graphics_toolkit find_toolkit (const std::string& name)
   {
     return instance_ok ()
-      ? instance->do_find_toolkit (name) : graphics_toolkit ();
+           ? instance->do_find_toolkit (name) : graphics_toolkit ();
   }
 
   static Cell available_toolkits_list (void)
@@ -2351,7 +2355,7 @@
   Cell do_available_toolkits_list (void) const
   {
     Cell m (1 , available_toolkits.size ());
-    
+
     octave_idx_type i = 0;
     for (const_available_toolkits_iterator p = available_toolkits.begin ();
          p !=  available_toolkits.end (); p++)
@@ -2363,7 +2367,7 @@
   Cell do_loaded_toolkits_list (void) const
   {
     Cell m (1 , loaded_toolkits.size ());
-    
+
     octave_idx_type i = 0;
     for (const_loaded_toolkits_iterator p = loaded_toolkits.begin ();
          p !=  loaded_toolkits.end (); p++)
@@ -2413,9 +2417,9 @@
   void override_defaults (base_graphics_object& obj);
 
   virtual void init_integerhandle (const octave_value&)
-    {
-      panic_impossible ();
-    }
+  {
+    panic_impossible ();
+  }
 
   // Look through DEFAULTS for properties with given CLASS_NAME, and
   // apply them to the current object with set (virtual method).
@@ -2423,11 +2427,11 @@
   void set_from_list (base_graphics_object& obj, property_list& defaults);
 
   void insert_property (const std::string& name, property p)
-    {
-      p.set_name (name);
-      p.set_parent (__myhandle__);
-      all_props[name] = p;
-    }
+  {
+    p.set_name (name);
+    p.set_parent (__myhandle__);
+    all_props[name] = p;
+  }
 
   virtual void set (const caseless_str&, const octave_value&);
 
@@ -2456,10 +2460,10 @@
   bool is_modified (void) const { return is___modified__ (); }
 
   virtual void remove_child (const graphics_handle& h)
-    {
-      if (children.remove_child (h.value ()))
-        mark_modified ();
-    }
+  {
+    if (children.remove_child (h.value ()))
+      mark_modified ();
+  }
 
   virtual void adopt (const graphics_handle& h)
   {
@@ -2469,9 +2473,10 @@
 
   virtual graphics_toolkit get_toolkit (void) const;
 
-  virtual Matrix get_boundingbox (bool /*internal*/ = false,
-                                  const Matrix& /*parent_pix_size*/ = Matrix ()) const
-    { return Matrix (1, 4, 0.0); }
+  virtual Matrix
+  get_boundingbox (bool /*internal*/ = false,
+                   const Matrix& /*parent_pix_size*/ = Matrix ()) const
+  { return Matrix (1, 4, 0.0); }
 
   virtual void update_boundingbox (void);
 
@@ -2488,19 +2493,19 @@
   void set_parent (const octave_value& val);
 
   Matrix get_children (void) const
-    {
-      return children.get_children ();
-    }
+  {
+    return children.get_children ();
+  }
 
   Matrix get_all_children (void) const
-    {
-      return children.get_all ();
-    }
+  {
+    return children.get_all ();
+  }
 
   Matrix get_hidden_children (void) const
-    {
-      return children.get_hidden ();
-    }
+  {
+    return children.get_hidden ();
+  }
 
   void set_modified (const octave_value& val) { set___modified__ (val); }
 
@@ -2517,19 +2522,19 @@
                                    const graphics_handle& h) const;
 
   virtual void delete_children (bool clear = false)
-    {
-      children.delete_children (clear);
-    }
+  {
+    children.delete_children (clear);
+  }
 
   void renumber_child (graphics_handle old_gh, graphics_handle new_gh)
-    {
-      children.renumber (old_gh, new_gh);
-    }
+  {
+    children.renumber (old_gh, new_gh);
+  }
 
   void renumber_parent (graphics_handle new_gh)
-    {
-      parent = new_gh;
-    }
+  {
+    parent = new_gh;
+  }
 
   static property_list::pval_map_type factory_defaults (void);
 
@@ -2594,23 +2599,23 @@
 
 protected:
   struct cmp_caseless_str
+  {
+    bool operator () (const caseless_str &a, const caseless_str &b) const
     {
-      bool operator () (const caseless_str &a, const caseless_str &b) const
-        {
-          std::string a1 = a;
-          std::transform (a1.begin (), a1.end (), a1.begin (), tolower);
-          std::string b1 = b;
-          std::transform (b1.begin (), b1.end (), b1.begin (), tolower);
-
-          return a1 < b1;
-        }
-    };
+      std::string a1 = a;
+      std::transform (a1.begin (), a1.end (), a1.begin (), tolower);
+      std::string b1 = b;
+      std::transform (b1.begin (), b1.end (), b1.begin (), tolower);
+
+      return a1 < b1;
+    }
+  };
 
   std::map<caseless_str, property, cmp_caseless_str> all_props;
 
 protected:
   void insert_static_property (const std::string& name, base_property& p)
-    { insert_property (name, property (&p, true)); }
+  { insert_property (name, property (&p, true)); }
 
   virtual void init (void) { }
 };
@@ -2786,7 +2791,7 @@
   virtual std::string type (void) const
   {
     return (valid_object () ? get_properties ().graphics_object_name ()
-        : "unknown");
+                            : "unknown");
   }
 
   bool isa (const std::string& go_name) const
@@ -2808,53 +2813,53 @@
   virtual void add_property_listener (const std::string& nm,
                                       const octave_value& v,
                                       listener_mode mode = POSTSET)
-    {
-      if (valid_object ())
-        get_properties ().add_listener (nm, v, mode);
-    }
+  {
+    if (valid_object ())
+      get_properties ().add_listener (nm, v, mode);
+  }
 
   virtual void delete_property_listener (const std::string& nm,
                                          const octave_value& v,
                                          listener_mode mode = POSTSET)
-    {
-      if (valid_object ())
-        get_properties ().delete_listener (nm, v, mode);
-    }
+  {
+    if (valid_object ())
+      get_properties ().delete_listener (nm, v, mode);
+  }
 
   virtual void remove_all_listeners (void);
 
   virtual void reset_default_properties (void)
-    {
-      if (valid_object ())
-        {
-          std::string msg = (type () + "::reset_default_properties");
-          gripe_not_implemented (msg.c_str ());
-        }
-      else
-        error ("base_graphics_object::default: invalid graphics object");
-    }
+  {
+    if (valid_object ())
+      {
+        std::string msg = (type () + "::reset_default_properties");
+        gripe_not_implemented (msg.c_str ());
+      }
+    else
+      error ("base_graphics_object::default: invalid graphics object");
+  }
 
 protected:
   virtual void initialize (const graphics_object& go)
-    {
-      if (! toolkit_flag)
-        toolkit_flag = get_toolkit ().initialize (go);
-    }
+  {
+    if (! toolkit_flag)
+      toolkit_flag = get_toolkit ().initialize (go);
+  }
 
   virtual void finalize (const graphics_object& go)
-    {
-      if (toolkit_flag)
-        {
-          get_toolkit ().finalize (go);
-          toolkit_flag = false;
-        }
-    }
+  {
+    if (toolkit_flag)
+      {
+        get_toolkit ().finalize (go);
+        toolkit_flag = false;
+      }
+  }
 
   virtual void update (const graphics_object& go, int id)
-    {
-      if (toolkit_flag)
-        get_toolkit ().update (go, id);
-    }
+  {
+    if (toolkit_flag)
+      get_toolkit ().update (go, id);
+  }
 
 protected:
   // A reference count.
@@ -2938,9 +2943,9 @@
   octave_value get (const caseless_str& name) const
   {
     return name.compare ("default")
-      ? get_defaults ()
-      : (name.compare ("factory")
-         ? get_factory_defaults () : rep->get (name));
+           ? get_defaults ()
+           : (name.compare ("factory")
+              ? get_factory_defaults () : rep->get (name));
   }
 
   octave_value get (const std::string& name) const
@@ -3056,14 +3061,14 @@
 
   void add_property_listener (const std::string& nm, const octave_value& v,
                               listener_mode mode = POSTSET)
-    { rep->add_property_listener (nm, v, mode); }
+  { rep->add_property_listener (nm, v, mode); }
 
   void delete_property_listener (const std::string& nm, const octave_value& v,
                                  listener_mode mode = POSTSET)
-    { rep->delete_property_listener (nm, v, mode); }
+  { rep->delete_property_listener (nm, v, mode); }
 
   void initialize (void) { rep->initialize (*this); }
-  
+
   void finalize (void) { rep->finalize (*this); }
 
   void update (int id) { rep->update (*this, id); }
@@ -3140,7 +3145,8 @@
 
 public:
 
-  root_figure (void) : xproperties (0, graphics_handle ()), default_properties () { }
+  root_figure (void)
+    : xproperties (0, graphics_handle ()), default_properties () { }
 
   ~root_figure (void) { }
 
@@ -3242,21 +3248,21 @@
   {
   public:
     void init_integerhandle (const octave_value& val)
-      {
-        integerhandle = val;
-      }
+    {
+      integerhandle = val;
+    }
 
     void remove_child (const graphics_handle& h);
 
     void set_visible (const octave_value& val);
 
     graphics_toolkit get_toolkit (void) const
-      {
-        if (! toolkit)
-          toolkit = gtk_manager::get_toolkit ();
-
-        return toolkit;
-      }
+    {
+      if (! toolkit)
+        toolkit = gtk_manager::get_toolkit ();
+
+      return toolkit;
+    }
 
     void set_toolkit (const graphics_toolkit& b);
 
@@ -3370,16 +3376,16 @@
 
   protected:
     void init (void)
-      {
-        alphamap.add_constraint (dim_vector (-1, 1));
-        colormap.add_constraint (dim_vector (-1, 3));
-        outerposition.add_constraint (dim_vector (1, 4));
-        paperposition.add_constraint (dim_vector (1, 4));
-        papersize.add_constraint (dim_vector (1, 2));
-        pointershapecdata.add_constraint (dim_vector (16, 16));
-        pointershapehotspot.add_constraint (dim_vector (1, 2));
-        position.add_constraint (dim_vector (1, 4));
-      }
+    {
+      alphamap.add_constraint (dim_vector (-1, 1));
+      colormap.add_constraint (dim_vector (-1, 3));
+      outerposition.add_constraint (dim_vector (1, 4));
+      paperposition.add_constraint (dim_vector (1, 4));
+      papersize.add_constraint (dim_vector (1, 2));
+      pointershapecdata.add_constraint (dim_vector (16, 16));
+      pointershapehotspot.add_constraint (dim_vector (1, 2));
+      position.add_constraint (dim_vector (1, 4));
+    }
 
   private:
     mutable graphics_toolkit toolkit;
@@ -3461,9 +3467,9 @@
   graphics_xform (void)
     : xform (xform_eye ()), xform_inv (xform_eye ()),
       sx ("linear"), sy ("linear"), sz ("linear"),  zlim (1, 2, 0.0)
-    {
-      zlim(1) = 1.0;
-    }
+  {
+    zlim(1) = 1.0;
+  }
 
   graphics_xform (const Matrix& xm, const Matrix& xim,
                   const scaler& x, const scaler& y, const scaler& z,
@@ -3477,16 +3483,16 @@
   ~graphics_xform (void) { }
 
   graphics_xform& operator = (const graphics_xform& g)
-    {
-      xform = g.xform;
-      xform_inv = g.xform_inv;
-      sx = g.sx;
-      sy = g.sy;
-      sz = g.sz;
-      zlim = g.zlim;
-
-      return *this;
-    }
+  {
+    xform = g.xform;
+    xform_inv = g.xform_inv;
+    sx = g.sx;
+    sy = g.sy;
+    sz = g.sz;
+    zlim = g.zlim;
+
+    return *this;
+  }
 
   static ColumnVector xform_vector (double x, double y, double z);
 
@@ -3499,34 +3505,34 @@
                             bool use_scale = true) const;
 
   ColumnVector untransform (double x, double y, bool use_scale = true) const
-    { return untransform (x, y, (zlim(0)+zlim(1))/2, use_scale); }
+  { return untransform (x, y, (zlim(0)+zlim(1))/2, use_scale); }
 
   Matrix xscale (const Matrix& m) const { return sx.scale (m); }
   Matrix yscale (const Matrix& m) const { return sy.scale (m); }
   Matrix zscale (const Matrix& m) const { return sz.scale (m); }
 
   Matrix scale (const Matrix& m) const
-    {
-      bool has_z = (m.columns () > 2);
-
-      if (sx.is_linear () && sy.is_linear ()
-          && (! has_z || sz.is_linear ()))
-        return m;
-
-      Matrix retval (m.dims ());
-
-      int r = m.rows ();
-
-      for (int i = 0; i < r; i++)
-        {
-          retval(i,0) = sx.scale (m(i,0));
-          retval(i,1) = sy.scale (m(i,1));
-          if (has_z)
-            retval(i,2) = sz.scale (m(i,2));
-        }
-
-      return retval;
-    }
+  {
+    bool has_z = (m.columns () > 2);
+
+    if (sx.is_linear () && sy.is_linear ()
+        && (! has_z || sz.is_linear ()))
+      return m;
+
+    Matrix retval (m.dims ());
+
+    int r = m.rows ();
+
+    for (int i = 0; i < r; i++)
+      {
+        retval(i,0) = sx.scale (m(i,0));
+        retval(i,1) = sy.scale (m(i,1));
+        if (has_z)
+          retval(i,2) = sz.scale (m(i,2));
+      }
+
+    return retval;
+  }
 
 private:
   Matrix xform;
@@ -3535,7 +3541,8 @@
   Matrix zlim;
 };
 
-enum {
+enum
+{
   AXE_ANY_DIR   = 0,
   AXE_DEPTH_DIR = 1,
   AXE_HORZ_DIR  = 2,
@@ -3558,28 +3565,29 @@
 
     Matrix get_boundingbox (bool internal = false,
                             const Matrix& parent_pix_size = Matrix ()) const;
-    Matrix get_extent (bool with_text = false, bool only_text_height=false) const;
+    Matrix get_extent (bool with_text = false,
+                       bool only_text_height=false) const;
 
     double get_fontsize_points (double box_pix_height = 0) const;
 
     void update_boundingbox (void)
-      {
-        if (units_is ("normalized"))
-          {
-            sync_positions ();
-            base_properties::update_boundingbox ();
-          }
-      }
+    {
+      if (units_is ("normalized"))
+        {
+          sync_positions ();
+          base_properties::update_boundingbox ();
+        }
+    }
 
     void update_camera (void);
     void update_axes_layout (void);
     void update_aspectratios (void);
     void update_transform (void)
-      {
-        update_aspectratios ();
-        update_camera ();
-        update_axes_layout ();
-      }
+    {
+      update_aspectratios ();
+      update_camera ();
+      update_axes_layout ();
+    }
 
     void sync_positions (void);
 
@@ -3590,7 +3598,7 @@
     void update_title_position (void);
 
     graphics_xform get_transform (void) const
-      { return graphics_xform (x_render, x_render_inv, sx, sy, sz, x_zlim); }
+    { return graphics_xform (x_render, x_render_inv, sx, sy, sz, x_zlim); }
 
     Matrix get_transform_matrix (void) const { return x_render; }
     Matrix get_inverse_transform_matrix (void) const { return x_render_inv; }
@@ -3644,7 +3652,8 @@
 
     void zoom_about_point (double x, double y, double factor,
                            bool push_to_zoom_stack = true);
-    void zoom (const Matrix& xl, const Matrix& yl, bool push_to_zoom_stack = true);
+    void zoom (const Matrix& xl, const Matrix& yl,
+               bool push_to_zoom_stack = true);
     void translate_view (double x0, double x1, double y0, double y1);
     void rotate_view (double delta_az, double delta_el);
     void unzoom (void);
@@ -3834,15 +3843,15 @@
 
     void update_layer (void) { update_axes_layout (); }
     void update_yaxislocation (void)
-      {
-        update_axes_layout ();
-        update_ylabel_position ();
-      }
+    {
+      update_axes_layout ();
+      update_ylabel_position ();
+    }
     void update_xaxislocation (void)
-      {
-        update_axes_layout ();
-        update_xlabel_position ();
-      }
+    {
+      update_axes_layout ();
+      update_xlabel_position ();
+    }
 
     void update_xdir (void) { update_camera (); update_axes_layout (); }
     void update_ydir (void) { update_camera (); update_axes_layout (); }
@@ -3853,61 +3862,64 @@
     void update_tickdirmode (void) { update_ticklength (); }
 
     void update_xtick (void)
-      {
-        if (xticklabelmode.is ("auto"))
-          calc_ticklabels (xtick, xticklabel, xscale.is ("log"));
-      }
+    {
+      if (xticklabelmode.is ("auto"))
+        calc_ticklabels (xtick, xticklabel, xscale.is ("log"));
+    }
     void update_ytick (void)
-      {
-        if (yticklabelmode.is ("auto"))
-          calc_ticklabels (ytick, yticklabel, yscale.is ("log"));
-      }
+    {
+      if (yticklabelmode.is ("auto"))
+        calc_ticklabels (ytick, yticklabel, yscale.is ("log"));
+    }
     void update_ztick (void)
-      {
-        if (zticklabelmode.is ("auto"))
-          calc_ticklabels (ztick, zticklabel, zscale.is ("log"));
-      }
+    {
+      if (zticklabelmode.is ("auto"))
+        calc_ticklabels (ztick, zticklabel, zscale.is ("log"));
+    }
 
     void update_xtickmode (void)
-      {
+    {
       if (xtickmode.is ("auto"))
         {
-          calc_ticks_and_lims (xlim, xtick, xmtick, xlimmode.is ("auto"), xscale.is ("log"));
+          calc_ticks_and_lims (xlim, xtick, xmtick, xlimmode.is ("auto"),
+                               xscale.is ("log"));
           update_xtick ();
         }
-      }
+    }
     void update_ytickmode (void)
-      {
+    {
       if (ytickmode.is ("auto"))
         {
-          calc_ticks_and_lims (ylim, ytick, ymtick, ylimmode.is ("auto"), yscale.is ("log"));
+          calc_ticks_and_lims (ylim, ytick, ymtick, ylimmode.is ("auto"),
+                               yscale.is ("log"));
           update_ytick ();
         }
-      }
+    }
     void update_ztickmode (void)
-      {
+    {
       if (ztickmode.is ("auto"))
         {
-          calc_ticks_and_lims (zlim, ztick, zmtick, zlimmode.is ("auto"), zscale.is ("log"));
+          calc_ticks_and_lims (zlim, ztick, zmtick, zlimmode.is ("auto"),
+                               zscale.is ("log"));
           update_ztick ();
         }
-      }
+    }
 
     void update_xticklabelmode (void)
-      {
-        if (xticklabelmode.is ("auto"))
-          calc_ticklabels (xtick, xticklabel, xscale.is ("log"));
-      }
+    {
+      if (xticklabelmode.is ("auto"))
+        calc_ticklabels (xtick, xticklabel, xscale.is ("log"));
+    }
     void update_yticklabelmode (void)
-      {
-        if (yticklabelmode.is ("auto"))
-          calc_ticklabels (ytick, yticklabel, yscale.is ("log"));
-      }
+    {
+      if (yticklabelmode.is ("auto"))
+        calc_ticklabels (ytick, yticklabel, yscale.is ("log"));
+    }
     void update_zticklabelmode (void)
-      {
-        if (zticklabelmode.is ("auto"))
-          calc_ticklabels (ztick, zticklabel, zscale.is ("log"));
-      }
+    {
+      if (zticklabelmode.is ("auto"))
+        calc_ticklabels (ztick, zticklabel, zscale.is ("log"));
+    }
 
     void update_font (void);
     void update_fontname (void) { update_font (); }
@@ -3960,45 +3972,47 @@
     }
 
     void update_looseinset (void)
-      {
-        caseless_str old_units = get_units ();
-        set_units ("normalized");
-        Matrix innerbox = position.get ().matrix_value ();
-        innerbox(2) = innerbox(2) + innerbox(0);
-        innerbox(3) = innerbox(3) + innerbox(1);
-        Matrix outerbox = outerposition.get ().matrix_value ();
-        outerbox(2) = outerbox(2) + outerbox(0);
-        outerbox(3) = outerbox(3) + outerbox(1);
-        Matrix linset = looseinset.get ().matrix_value ();
-        Matrix tinset = tightinset.get ().matrix_value ();
-        if (activepositionproperty.is ("position"))
-          {
-            outerbox(0) = innerbox(0) - std::max (linset(0), tinset(0));
-            outerbox(1) = innerbox(1) - std::max (linset(1), tinset(1));
-            outerbox(2) = innerbox(2) + std::max (linset(2), tinset(2));
-            outerbox(3) = innerbox(3) + std::max (linset(3), tinset(3));
-            outerbox(2) = outerbox(2) - outerbox(0);
-            outerbox(3) = outerbox(3) - outerbox(1);
-            outerposition = outerbox;
-          }
-        else
-          {
-            innerbox(0) = outerbox(0) + std::max (linset(0), tinset(0));
-            innerbox(1) = outerbox(1) + std::max (linset(1), tinset(1));
-            innerbox(2) = outerbox(2) - std::max (linset(2), tinset(2));
-            innerbox(3) = outerbox(3) - std::max (linset(3), tinset(3));
-            innerbox(2) = innerbox(2) - innerbox(0);
-            innerbox(3) = innerbox(3) - innerbox(1);
-            position = innerbox;
-          }
-        set_units (old_units);
-        update_transform ();
-      }
+    {
+      caseless_str old_units = get_units ();
+      set_units ("normalized");
+      Matrix innerbox = position.get ().matrix_value ();
+      innerbox(2) = innerbox(2) + innerbox(0);
+      innerbox(3) = innerbox(3) + innerbox(1);
+      Matrix outerbox = outerposition.get ().matrix_value ();
+      outerbox(2) = outerbox(2) + outerbox(0);
+      outerbox(3) = outerbox(3) + outerbox(1);
+      Matrix linset = looseinset.get ().matrix_value ();
+      Matrix tinset = tightinset.get ().matrix_value ();
+      if (activepositionproperty.is ("position"))
+        {
+          outerbox(0) = innerbox(0) - std::max (linset(0), tinset(0));
+          outerbox(1) = innerbox(1) - std::max (linset(1), tinset(1));
+          outerbox(2) = innerbox(2) + std::max (linset(2), tinset(2));
+          outerbox(3) = innerbox(3) + std::max (linset(3), tinset(3));
+          outerbox(2) = outerbox(2) - outerbox(0);
+          outerbox(3) = outerbox(3) - outerbox(1);
+          outerposition = outerbox;
+        }
+      else
+        {
+          innerbox(0) = outerbox(0) + std::max (linset(0), tinset(0));
+          innerbox(1) = outerbox(1) + std::max (linset(1), tinset(1));
+          innerbox(2) = outerbox(2) - std::max (linset(2), tinset(2));
+          innerbox(3) = outerbox(3) - std::max (linset(3), tinset(3));
+          innerbox(2) = innerbox(2) - innerbox(0);
+          innerbox(3) = innerbox(3) - innerbox(1);
+          position = innerbox;
+        }
+      set_units (old_units);
+      update_transform ();
+    }
 
     double calc_tick_sep (double minval, double maxval);
-    void calc_ticks_and_lims (array_property& lims, array_property& ticks, array_property& mticks,
+    void calc_ticks_and_lims (array_property& lims, array_property& ticks,
+                              array_property& mticks,
                               bool limmode_is_auto, bool is_logscale);
-    void calc_ticklabels (const array_property& ticks, any_property& labels, bool is_logscale);
+    void calc_ticklabels (const array_property& ticks, any_property& labels,
+                          bool is_logscale);
     Matrix get_ticklabel_extents (const Matrix& ticks,
                                   const string_vector& ticklabels,
                                   const Matrix& limits);
@@ -4033,7 +4047,8 @@
     void update_xlim (bool do_clr_zoom = true)
     {
       if (xtickmode.is ("auto"))
-        calc_ticks_and_lims (xlim, xtick, xmtick, xlimmode.is ("auto"), xscale.is ("log"));
+        calc_ticks_and_lims (xlim, xtick, xmtick, xlimmode.is ("auto"),
+                             xscale.is ("log"));
       if (xticklabelmode.is ("auto"))
         calc_ticklabels (xtick, xticklabel, xscale.is ("log"));
 
@@ -4050,7 +4065,8 @@
     void update_ylim (bool do_clr_zoom = true)
     {
       if (ytickmode.is ("auto"))
-        calc_ticks_and_lims (ylim, ytick, ymtick, ylimmode.is ("auto"), yscale.is ("log"));
+        calc_ticks_and_lims (ylim, ytick, ymtick, ylimmode.is ("auto"),
+                             yscale.is ("log"));
       if (yticklabelmode.is ("auto"))
         calc_ticklabels (ytick, yticklabel, yscale.is ("log"));
 
@@ -4067,7 +4083,8 @@
     void update_zlim (void)
     {
       if (ztickmode.is ("auto"))
-        calc_ticks_and_lims (zlim, ztick, zmtick, zlimmode.is ("auto"), zscale.is ("log"));
+        calc_ticks_and_lims (zlim, ztick, zmtick, zlimmode.is ("auto"),
+                             zscale.is ("log"));
       if (zticklabelmode.is ("auto"))
         calc_ticklabels (ztick, zticklabel, zscale.is ("log"));
 
@@ -4216,10 +4233,10 @@
     void update_ydata (void) { set_ylim (compute_ylim ()); }
 
     void update_zdata (void)
-      {
-        set_zlim (zdata.get_limits ());
-        set_zliminclude (get_zdata ().numel () > 0);
-      }
+    {
+      set_zlim (zdata.get_limits ());
+      set_zliminclude (get_zdata ().numel () > 0);
+    }
   };
 
 private:
@@ -4256,11 +4273,11 @@
       if (! error_state)
         {
           octave_value new_val (val);
-    
+
           if (new_val.numel () == 2)
             {
               dim_vector dv (1, 3);
-    
+
               new_val = new_val.resize (dv, true);
             }
 
@@ -4328,36 +4345,36 @@
 
   protected:
     void init (void)
-      {
-        position.add_constraint (dim_vector (1, 3));
-        cached_units = get_units ();
-        update_font ();
-      }
+    {
+      position.add_constraint (dim_vector (1, 3));
+      cached_units = get_units ();
+      update_font ();
+    }
 
   private:
     void update_position (void)
-      {
-        Matrix pos = get_data_position ();
-        Matrix lim;
-
-        lim = Matrix (1, 3, pos(0));
-        lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
-        set_xlim (lim);
-
-        lim = Matrix (1, 3, pos(1));
-        lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
-        set_ylim (lim);
-
-        if (pos.numel () == 3)
-          {
-            lim = Matrix (1, 3, pos(2));
-            lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
-            set_zliminclude ("on");
-            set_zlim (lim);
-          }
-        else
-          set_zliminclude ("off");
-      }
+    {
+      Matrix pos = get_data_position ();
+      Matrix lim;
+
+      lim = Matrix (1, 3, pos(0));
+      lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
+      set_xlim (lim);
+
+      lim = Matrix (1, 3, pos(1));
+      lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
+      set_ylim (lim);
+
+      if (pos.numel () == 3)
+        {
+          lim = Matrix (1, 3, pos(2));
+          lim(2) = (lim(2) <= 0 ? octave_Inf : lim(2));
+          set_zliminclude ("on");
+          set_zlim (lim);
+        }
+      else
+        set_zliminclude ("off");
+    }
 
     void update_text_extent (void);
 
@@ -4415,14 +4432,14 @@
   {
   public:
     bool is_aliminclude (void) const
-      { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
+    { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
     std::string get_aliminclude (void) const
-      { return aliminclude.current_value (); }
+    { return aliminclude.current_value (); }
 
     bool is_climinclude (void) const
-      { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
+    { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
     std::string get_climinclude (void) const
-      { return climinclude.current_value (); }
+    { return climinclude.current_value (); }
 
     octave_value get_color_data (void) const;
 
@@ -4470,20 +4487,20 @@
 
   private:
     void update_alphadata (void)
-      {
-        if (alphadatamapping_is ("scaled"))
-          set_alim (alphadata.get_limits ());
-        else
-          alim = alphadata.get_limits ();
-      }
+    {
+      if (alphadatamapping_is ("scaled"))
+        set_alim (alphadata.get_limits ());
+      else
+        alim = alphadata.get_limits ();
+    }
 
     void update_cdata (void)
-      {
-        if (cdatamapping_is ("scaled"))
-          set_clim (cdata.get_limits ());
-        else
-          clim = cdata.get_limits ();
-      }
+    {
+      if (cdatamapping_is ("scaled"))
+        set_clim (cdata.get_limits ());
+      else
+        clim = cdata.get_limits ();
+    }
 
     void update_xdata (void)
     {
@@ -4564,14 +4581,14 @@
     octave_value get_color_data (void) const;
 
     bool is_aliminclude (void) const
-      { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
+    { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
     std::string get_aliminclude (void) const
-      { return aliminclude.current_value (); }
+    { return aliminclude.current_value (); }
 
     bool is_climinclude (void) const
-      { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
+    { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
     std::string get_climinclude (void) const
-      { return climinclude.current_value (); }
+    { return climinclude.current_value (); }
 
     // See the genprops.awk script for an explanation of the
     // properties declarations.
@@ -4629,20 +4646,20 @@
 
   protected:
     void init (void)
-      {
-        xdata.add_constraint (dim_vector (-1, -1));
-        ydata.add_constraint (dim_vector (-1, -1));
-        zdata.add_constraint (dim_vector (-1, -1));
-        faces.add_constraint (dim_vector (-1, -1));
-        vertices.add_constraint (dim_vector (-1, 2));
-        vertices.add_constraint (dim_vector (-1, 3));
-        cdata.add_constraint (dim_vector (-1, -1));
-        cdata.add_constraint (dim_vector (-1, -1, 3));
-        facevertexcdata.add_constraint (dim_vector (-1, 1));
-        facevertexcdata.add_constraint (dim_vector (-1, 3));
-        facevertexalphadata.add_constraint (dim_vector (-1, 1));
-        vertexnormals.add_constraint (dim_vector (-1, -1));
-      }
+    {
+      xdata.add_constraint (dim_vector (-1, -1));
+      ydata.add_constraint (dim_vector (-1, -1));
+      zdata.add_constraint (dim_vector (-1, -1));
+      faces.add_constraint (dim_vector (-1, -1));
+      vertices.add_constraint (dim_vector (-1, 2));
+      vertices.add_constraint (dim_vector (-1, 3));
+      cdata.add_constraint (dim_vector (-1, -1));
+      cdata.add_constraint (dim_vector (-1, -1, 3));
+      facevertexcdata.add_constraint (dim_vector (-1, 1));
+      facevertexcdata.add_constraint (dim_vector (-1, 3));
+      facevertexalphadata.add_constraint (dim_vector (-1, 1));
+      vertexnormals.add_constraint (dim_vector (-1, -1));
+    }
 
   private:
     void update_xdata (void) { set_xlim (xdata.get_limits ()); }
@@ -4650,12 +4667,12 @@
     void update_zdata (void) { set_zlim (zdata.get_limits ()); }
 
     void update_cdata (void)
-      {
-        if (cdatamapping_is ("scaled"))
-          set_clim (cdata.get_limits ());
-        else
-          clim = cdata.get_limits ();
-      }
+    {
+      if (cdatamapping_is ("scaled"))
+        set_clim (cdata.get_limits ());
+      else
+        clim = cdata.get_limits ();
+    }
   };
 
 private:
@@ -4688,14 +4705,14 @@
     octave_value get_color_data (void) const;
 
     bool is_aliminclude (void) const
-      { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
+    { return (aliminclude.is_on () && alphadatamapping.is ("scaled")); }
     std::string get_aliminclude (void) const
-      { return aliminclude.current_value (); }
+    { return aliminclude.current_value (); }
 
     bool is_climinclude (void) const
-      { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
+    { return (climinclude.is_on () && cdatamapping.is ("scaled")); }
     std::string get_climinclude (void) const
-      { return climinclude.current_value (); }
+    { return climinclude.current_value (); }
 
     // See the genprops.awk script for an explanation of the
     // properties declarations.
@@ -4755,62 +4772,62 @@
 
   protected:
     void init (void)
-      {
-        xdata.add_constraint (dim_vector (-1, -1));
-        ydata.add_constraint (dim_vector (-1, -1));
-        zdata.add_constraint (dim_vector (-1, -1));
-        cdata.add_constraint ("double");
-        cdata.add_constraint ("single");
-        cdata.add_constraint (dim_vector (-1, -1));
-        cdata.add_constraint (dim_vector (-1, -1, 3));
-        alphadata.add_constraint ("double");
-        alphadata.add_constraint ("uint8");
-        alphadata.add_constraint (dim_vector (-1, -1));
-        vertexnormals.add_constraint (dim_vector (-1, -1, 3));
-      }
+    {
+      xdata.add_constraint (dim_vector (-1, -1));
+      ydata.add_constraint (dim_vector (-1, -1));
+      zdata.add_constraint (dim_vector (-1, -1));
+      cdata.add_constraint ("double");
+      cdata.add_constraint ("single");
+      cdata.add_constraint (dim_vector (-1, -1));
+      cdata.add_constraint (dim_vector (-1, -1, 3));
+      alphadata.add_constraint ("double");
+      alphadata.add_constraint ("uint8");
+      alphadata.add_constraint (dim_vector (-1, -1));
+      vertexnormals.add_constraint (dim_vector (-1, -1, 3));
+    }
 
   private:
     void update_alphadata (void)
-      {
-        if (alphadatamapping_is ("scaled"))
-          set_alim (alphadata.get_limits ());
-        else
-          alim = alphadata.get_limits ();
-      }
+    {
+      if (alphadatamapping_is ("scaled"))
+        set_alim (alphadata.get_limits ());
+      else
+        alim = alphadata.get_limits ();
+    }
 
     void update_cdata (void)
-      {
-        if (cdatamapping_is ("scaled"))
-          set_clim (cdata.get_limits ());
-        else
-          clim = cdata.get_limits ();
-      }
+    {
+      if (cdatamapping_is ("scaled"))
+        set_clim (cdata.get_limits ());
+      else
+        clim = cdata.get_limits ();
+    }
 
     void update_xdata (void)
-      {
-        update_normals ();
-        set_xlim (xdata.get_limits ());
-      }
+    {
+      update_normals ();
+      set_xlim (xdata.get_limits ());
+    }
 
     void update_ydata (void)
-      {
-        update_normals ();
-        set_ylim (ydata.get_limits ());
-      }
+    {
+      update_normals ();
+      set_ylim (ydata.get_limits ());
+    }
 
     void update_zdata (void)
-      {
-        update_normals ();
-        set_zlim (zdata.get_limits ());
-      }
+    {
+      update_normals ();
+      set_zlim (zdata.get_limits ());
+    }
 
     void update_normals (void);
 
     void update_normalmode (void)
-      { update_normals (); }
+    { update_normals (); }
 
     void update_vertexnormals (void)
-      { set_normalmode ("manual"); }
+    { set_normalmode ("manual"); }
   };
 
 private:
@@ -4841,17 +4858,17 @@
   {
   public:
     void remove_child (const graphics_handle& h)
-      {
-        base_properties::remove_child (h);
-        update_limits ();
-      }
+    {
+      base_properties::remove_child (h);
+      update_limits ();
+    }
 
     void adopt (const graphics_handle& h)
-      {
-
-        base_properties::adopt (h);
-        update_limits (h);
-      }
+    {
+
+      base_properties::adopt (h);
+      update_limits (h);
+    }
 
     // See the genprops.awk script for an explanation of the
     // properties declarations.
@@ -4875,13 +4892,13 @@
     END_PROPERTIES
 
   private:
-      void update_limits (void) const;
-
-      void update_limits (const graphics_handle& h) const;
+    void update_limits (void) const;
+
+    void update_limits (const graphics_handle& h) const;
 
   protected:
     void init (void)
-      { }
+    { }
 
   };
 
@@ -4919,14 +4936,14 @@
   {
   public:
     void remove_child (const graphics_handle& h)
-      {
-        base_properties::remove_child (h);
-      }
+    {
+      base_properties::remove_child (h);
+    }
 
     void adopt (const graphics_handle& h)
-      {
-        base_properties::adopt (h);
-      }
+    {
+      base_properties::adopt (h);
+    }
 
     // See the genprops.awk script for an explanation of the
     // properties declarations.
@@ -4948,7 +4965,7 @@
 
   protected:
     void init (void)
-      { }
+    { }
   };
 
 private:
@@ -4991,11 +5008,11 @@
 
   protected:
     void init (void)
-      {
-        position.add_constraint (dim_vector (1, 2));
-        position.add_constraint (dim_vector (2, 1));
-        visible.set (octave_value (true));
-      }
+    {
+      position.add_constraint (dim_vector (1, 2));
+      position.add_constraint (dim_vector (2, 1));
+      visible.set (octave_value (true));
+    }
   };
 
 private:
@@ -5069,15 +5086,15 @@
 
   protected:
     void init (void)
-      {
-        cdata.add_constraint ("double");
-        cdata.add_constraint ("single");
-        cdata.add_constraint (dim_vector (-1, -1, 3));
-        position.add_constraint (dim_vector (1, 4));
-        sliderstep.add_constraint (dim_vector (1, 2));
-        cached_units = get_units ();
-      }
-    
+    {
+      cdata.add_constraint ("double");
+      cdata.add_constraint ("single");
+      cdata.add_constraint (dim_vector (-1, -1, 3));
+      position.add_constraint (dim_vector (1, 4));
+      sliderstep.add_constraint (dim_vector (1, 2));
+      cached_units = get_units ();
+    }
+
     void update_text_extent (void);
 
     void update_string (void) { update_text_extent (); }
@@ -5195,7 +5212,7 @@
 
   protected:
     void init (void)
-      { }
+    { }
   };
 
 private:
@@ -5289,11 +5306,11 @@
 
   protected:
     void init (void)
-      {
-        cdata.add_constraint ("double");
-        cdata.add_constraint ("single");
-        cdata.add_constraint (dim_vector (-1, -1, 3));
-      }
+    {
+      cdata.add_constraint ("double");
+      cdata.add_constraint ("single");
+      cdata.add_constraint (dim_vector (-1, -1, 3));
+    }
   };
 
 private:
@@ -5342,11 +5359,11 @@
 
   protected:
     void init (void)
-      {
-        cdata.add_constraint ("double");
-        cdata.add_constraint ("single");
-        cdata.add_constraint (dim_vector (-1, -1, 3));
-      }
+    {
+      cdata.add_constraint ("double");
+      cdata.add_constraint ("single");
+      cdata.add_constraint (dim_vector (-1, -1, 3));
+    }
   };
 
 private:
@@ -5407,54 +5424,54 @@
   graphics_event (void) : rep (0) { }
 
   graphics_event (const graphics_event& e) : rep (e.rep)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   ~graphics_event (void)
-    {
-      if (rep && --rep->count == 0)
-        delete rep;
-    }
+  {
+    if (rep && --rep->count == 0)
+      delete rep;
+  }
 
   graphics_event& operator = (const graphics_event& e)
-    {
-      if (rep != e.rep)
-        {
-          if (rep && --rep->count == 0)
-            delete rep;
-
-          rep = e.rep;
-          if (rep)
-            rep->count++;
-        }
-
-      return *this;
-    }
+  {
+    if (rep != e.rep)
+      {
+        if (rep && --rep->count == 0)
+          delete rep;
+
+        rep = e.rep;
+        if (rep)
+          rep->count++;
+      }
+
+    return *this;
+  }
 
   void execute (void)
-    { if (rep) rep->execute (); }
+  { if (rep) rep->execute (); }
 
   bool ok (void) const
-    { return (rep != 0); }
+  { return (rep != 0); }
+
+  static graphics_event
+  create_callback_event (const graphics_handle& h,
+                         const std::string& name,
+                         const octave_value& data = Matrix ());
 
   static graphics_event
-      create_callback_event (const graphics_handle& h,
-                             const std::string& name,
-                             const octave_value& data = Matrix ());
-  
-  static graphics_event
-      create_callback_event (const graphics_handle& h,
-                             const octave_value& cb,
-                             const octave_value& data = Matrix ());
+  create_callback_event (const graphics_handle& h,
+                         const octave_value& cb,
+                         const octave_value& data = Matrix ());
 
   static graphics_event
-      create_function_event (event_fcn fcn, void *data = 0);
+  create_function_event (event_fcn fcn, void *data = 0);
 
   static graphics_event
-      create_set_event (const graphics_handle& h, const std::string& name,
-                        const octave_value& value,
-                        bool notify_toolkit = true);
+  create_set_event (const graphics_handle& h, const std::string& name,
+                    const octave_value& value,
+                    bool notify_toolkit = true);
 private:
   base_graphics_event *rep;
 };
@@ -5491,7 +5508,8 @@
   static graphics_handle get_handle (bool integer_figure_handle)
   {
     return instance_ok ()
-      ? instance->do_get_handle (integer_figure_handle) : graphics_handle ();
+           ? instance->do_get_handle (integer_figure_handle)
+           : graphics_handle ();
   }
 
   static void free (const graphics_handle& h)
@@ -5515,7 +5533,7 @@
   static graphics_handle lookup (const octave_value& val)
   {
     return val.is_real_scalar ()
-      ? lookup (val.double_value ()) : graphics_handle ();
+           ? lookup (val.double_value ()) : graphics_handle ();
   }
 
   static graphics_object get_object (double val)
@@ -5536,18 +5554,18 @@
                         bool do_notify_toolkit = true)
   {
     return instance_ok ()
-      ? instance->do_make_graphics_handle (go_name, parent,
-                                           integer_figure_handle,
-                                           do_createfcn, do_notify_toolkit)
-      : graphics_handle ();
+           ? instance->do_make_graphics_handle (go_name, parent,
+               integer_figure_handle,
+               do_createfcn, do_notify_toolkit)
+           : graphics_handle ();
   }
 
   static graphics_handle make_figure_handle (double val,
                                              bool do_notify_toolkit = true)
   {
     return instance_ok ()
-      ? instance->do_make_figure_handle (val, do_notify_toolkit)
-      : graphics_handle ();
+           ? instance->do_make_figure_handle (val, do_notify_toolkit)
+           : graphics_handle ();
   }
 
   static void push_figure (const graphics_handle& h)
@@ -5565,13 +5583,13 @@
   static graphics_handle current_figure (void)
   {
     return instance_ok ()
-      ? instance->do_current_figure () : graphics_handle ();
+           ? instance->do_current_figure () : graphics_handle ();
   }
 
   static Matrix handle_list (bool show_hidden = false)
   {
     return instance_ok ()
-      ? instance->do_handle_list (show_hidden) : Matrix ();
+           ? instance->do_handle_list (show_hidden) : Matrix ();
   }
 
   static void lock (void)
@@ -5593,11 +5611,11 @@
     if (instance_ok ())
       instance->do_unlock ();
   }
-  
+
   static Matrix figure_handle_list (bool show_hidden = false)
   {
     return instance_ok ()
-      ? instance->do_figure_handle_list (show_hidden) : Matrix ();
+           ? instance->do_figure_handle_list (show_hidden) : Matrix ();
   }
 
   static void execute_listener (const graphics_handle& h,
@@ -5642,7 +5660,7 @@
     if (instance_ok ())
       instance->do_post_callback (h, name, data);
   }
-  
+
   static void post_function (graphics_event::event_fcn fcn, void* data = 0)
   {
     if (instance_ok ())
@@ -5667,10 +5685,10 @@
   }
 
   static void enable_event_processing (bool enable = true)
-    {
-      if (instance_ok ())
-        instance->do_enable_event_processing (enable);
-    }
+  {
+    if (instance_ok ())
+      instance->do_enable_event_processing (enable);
+  }
 
   static bool is_handle_visible (const graphics_handle& h)
   {
@@ -5699,7 +5717,7 @@
                          ? instance->graphics_lock
                          : octave_mutex (),
                          wait)
-      { }
+    { }
 
   private:
 
@@ -5713,7 +5731,8 @@
   static gh_manager *instance;
 
   typedef std::map<graphics_handle, graphics_object>::iterator iterator;
-  typedef std::map<graphics_handle, graphics_object>::const_iterator const_iterator;
+  typedef std::map<graphics_handle, graphics_object>::const_iterator
+    const_iterator;
 
   typedef std::set<graphics_handle>::iterator free_list_iterator;
   typedef std::set<graphics_handle>::const_iterator const_free_list_iterator;
@@ -5847,7 +5866,7 @@
 
   void do_post_callback (const graphics_handle& h, const std::string name,
                          const octave_value& data);
-  
+
   void do_post_function (graphics_event::event_fcn fcn, void* fcn_data);
 
   void do_post_set (const graphics_handle& h, const std::string name,
--- a/libinterp/corefcn/gripes.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gripes.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -61,7 +61,8 @@
 }
 
 void
-gripe_nonconformant (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+gripe_nonconformant (octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2)
 {
   error ("nonconformant matrices (op1 is %dx%d, op2 is %dx%d)",
          r1, c1, r2, c2);
--- a/libinterp/corefcn/gripes.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/gripes.h	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,8 @@
 gripe_nonconformant (void);
 
 extern OCTINTERP_API void
-gripe_nonconformant (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
+gripe_nonconformant (octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2);
 
 extern OCTINTERP_API void
 gripe_empty_arg (const char *name, bool is_error);
--- a/libinterp/corefcn/help.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/help.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -788,7 +788,7 @@
 const static map_type keywords_map (keywords, keywords + size (keywords));
 const static string_vector keyword_names = names (keywords_map);
 
-// FIXME -- It's not likely that this does the right thing now.
+// FIXME: It's not likely that this does the right thing now.
 
 string_vector
 make_name_list (void)
@@ -845,9 +845,10 @@
 {
   const size_t p1 = msg.find ('\n');
   std::string t = msg.substr (0, p1);
-  const size_t p2 = t.find ("<html"); // FIXME: this comparison should be case-insensitive
+  // FIXME: this comparison should be case-insensitive
+  const size_t p2 = t.find ("<html");
 
-   return (p2 != std::string::npos);
+  return (p2 != std::string::npos);
 }
 
 static bool
@@ -889,7 +890,7 @@
 
           if (w.empty ())
             w = fcn->is_user_function ()
-              ? "command-line function" : "built-in function";
+                ? "command-line function" : "built-in function";
         }
     }
 
@@ -936,7 +937,7 @@
 }
 
 DEFUN (built_in_docstrings_file, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} built_in_docstrings_file ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} built_in_docstrings_file (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} built_in_docstrings_file (@var{new_val}, \"local\")\n\
@@ -981,7 +982,7 @@
           return;
         }
 
-      // FIXME -- eliminate fixed buffer size.
+      // FIXME: eliminate fixed buffer size.
       size_t bufsize = 100000;
 
       OCTAVE_LOCAL_BUFFER (char, buf, bufsize);
@@ -1130,7 +1131,7 @@
 }
 
 DEFUN (get_help_text_from_file, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{text}, @var{format}] =} get_help_text_from_file (@var{fname})\n\
 Return the raw help text from the file @var{fname}.\n\
 \n\
@@ -1168,7 +1169,7 @@
 // operators.
 
 DEFUN (__operators__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __operators__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1180,7 +1181,7 @@
 // keywords.
 
 DEFUN (__keywords__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __keywords__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1192,7 +1193,7 @@
 // functions.
 
 DEFUN (__builtins__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __builtins__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1233,7 +1234,7 @@
                 }
               else
                 type = val.is_user_script ()
-                  ? std::string ("script") : std::string ("function");
+                       ? std::string ("script") : std::string ("function");
             }
         }
       else
@@ -1252,6 +1253,8 @@
         file = load_path::find_file (name.substr (0, name.size () - 1));
       else
         file = load_path::find_file (name);
+
+      file = octave_env::make_absolute (file);
     }
 
 
@@ -1271,7 +1274,7 @@
 }
 
 DEFUN (__which__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __which__ (@var{name}, @dots{})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1318,7 +1321,7 @@
   return retval;
 }
 
-// FIXME -- Are we sure this function always does the right thing?
+// FIXME: Are we sure this function always does the right thing?
 inline bool
 file_is_in_dir (const std::string filename, const std::string dir)
 {
@@ -1326,7 +1329,8 @@
     {
       const int dir_len = dir.size ();
       const int filename_len = filename.size ();
-      const int max_allowed_seps = file_ops::is_dir_sep (dir[dir_len-1]) ? 0 : 1;
+      const int max_allowed_seps = file_ops::is_dir_sep (dir[dir_len-1]) ? 0
+                                                                         : 1;
 
       int num_seps = 0;
       for (int i = dir_len; i < filename_len; i++)
@@ -1344,7 +1348,7 @@
 // the current path.
 
 DEFUN (__list_functions__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {@var{retval} =} __list_functions__ ()\n\
 @deftypefnx {Function File} {@var{retval} =} __list_functions__ (@var{directory})\n\
 Undocumented internal function.\n\
@@ -1384,7 +1388,7 @@
 }
 
 DEFUN (doc_cache_file, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} doc_cache_file ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} doc_cache_file (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} doc_cache_file (@var{new_val}, \"local\")\n\
@@ -1408,7 +1412,7 @@
 }
 
 DEFUN (texi_macros_file, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} texi_macros_file ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} texi_macros_file (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} texi_macros_file (@var{new_val}, \"local\")\n\
@@ -1432,7 +1436,7 @@
 }
 
 DEFUN (info_file, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} info_file ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} info_file (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} info_file (@var{new_val}, \"local\")\n\
@@ -1454,7 +1458,7 @@
 }
 
 DEFUN (info_program, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} info_program ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} info_program (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} info_program (@var{new_val}, \"local\")\n\
@@ -1478,7 +1482,7 @@
 }
 
 DEFUN (makeinfo_program, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} makeinfo_program ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} makeinfo_program (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} makeinfo_program (@var{new_val}, \"local\")\n\
@@ -1496,7 +1500,7 @@
 }
 
 DEFUN (suppress_verbose_help_message, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} suppress_verbose_help_message ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} suppress_verbose_help_message (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} suppress_verbose_help_message (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/hess.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/hess.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,7 @@
 #include "utils.h"
 
 DEFUN (hess, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{H} =} hess (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{P}, @var{H}] =} hess (@var{A})\n\
 @cindex Hessenberg decomposition\n\
@@ -95,7 +95,7 @@
     {
       if (arg.is_real_type ())
         {
-         FloatMatrix tmp = arg.float_matrix_value ();
+          FloatMatrix tmp = arg.float_matrix_value ();
 
           if (! error_state)
             {
--- a/libinterp/corefcn/hex2num.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/hex2num.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN (hex2num, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{n} =} hex2num (@var{s})\n\
 @deftypefnx {Built-in Function} {@var{n} =} hex2num (@var{s}, @var{class})\n\
 Typecast the 16 character hexadecimal character string to an IEEE 754\n\
@@ -197,7 +197,7 @@
 */
 
 DEFUN (num2hex, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{s} =} num2hex (@var{n})\n\
 Typecast a double or single precision number or vector to a 8 or 16\n\
 character hexadecimal string of the IEEE 754 representation of the number.\n\
@@ -257,7 +257,7 @@
               for (octave_idx_type j = 0; j < nchars; j++)
                 {
                   unsigned char ch =
-                    static_cast<char> (num.ival >> ((nchars - 1 - j) * 4) & 0xF);
+                    static_cast<char>(num.ival >> ((nchars - 1 - j) * 4) & 0xF);
                   if (ch >= 10)
                     ch += 'a' - 10;
                   else
@@ -294,7 +294,7 @@
               for (octave_idx_type j = 0; j < nchars; j++)
                 {
                   unsigned char ch =
-                    static_cast<char> (num.ival >> ((nchars - 1 - j) * 4) & 0xF);
+                    static_cast<char>(num.ival >> ((nchars - 1 - j) * 4) & 0xF);
                   if (ch >= 10)
                     ch += 'a' - 10;
                   else
--- a/libinterp/corefcn/input.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/input.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -147,9 +147,9 @@
 void
 octave_base_reader::do_input_echo (const std::string& input_string) const
 {
-  int do_echo = reading_script_file () ?
-    (Vecho_executing_commands & ECHO_SCRIPTS)
-      : (Vecho_executing_commands & ECHO_CMD_LINE) && ! forced_interactive;
+  int do_echo = reading_script_file ()
+    ? (Vecho_executing_commands & ECHO_SCRIPTS)
+    : (Vecho_executing_commands & ECHO_CMD_LINE) && ! forced_interactive;
 
   if (do_echo)
     {
@@ -324,7 +324,7 @@
   return command_editor::get_input_stream ();
 }
 
-// FIXME -- make this generate file names when appropriate.
+// FIXME: make this generate file names when appropriate.
 
 static string_vector
 generate_possible_completions (const std::string& text, std::string& prefix,
@@ -436,8 +436,8 @@
               else
                 retval = name;
 
-              // FIXME -- looks_like_struct is broken for now,
-              // so it always returns false.
+              // FIXME: looks_like_struct is broken for now,
+              //        so it always returns false.
 
               if (matches == 1 && looks_like_struct (retval))
                 {
@@ -475,7 +475,7 @@
 
   command_editor::set_name ("Octave");
 
-  // FIXME -- this needs to include a comma too, but that
+  // FIXME: this needs to include a comma too, but that
   // causes trouble for the new struct element completion code.
 
   static const char *s = "\t\n !\"\'*+-/:;<=>(){}[\\]^`~";
@@ -536,7 +536,7 @@
         }
       else
         {
-          // FIXME -- we should come up with a clean way to detect
+          // FIXME: we should come up with a clean way to detect
           // that we are stopped on the no-op command that marks the
           // end of a function or script.
 
@@ -702,7 +702,7 @@
 
       if (read_as_string)
         {
-          // FIXME -- fix gnu_readline and octave_gets instead!
+          // FIXME: fix gnu_readline and octave_gets instead!
           if (input_buf.length () == 1 && input_buf[0] == '\n')
             retval(0) = "";
           else
@@ -725,7 +725,7 @@
 }
 
 DEFUN (input, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{ans} =} input (@var{prompt})\n\
 @deftypefnx {Built-in Function} {@var{ans} =} input (@var{prompt}, \"s\")\n\
 Print a prompt and wait for user input.  For example,\n\
@@ -794,7 +794,7 @@
 }
 
 DEFUN (yes_or_no, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{ans} =} yes_or_no (\"@var{prompt}\")\n\
 Ask the user a yes-or-no question.  Return logical true if the answer is yes\n\
 or false if the answer is no.  Takes one argument, @var{prompt}, which is\n\
@@ -853,7 +853,7 @@
   frame.add_fcn (octave_call_stack::restore_frame,
                  octave_call_stack::current_frame ());
 
-  // FIXME -- probably we just want to print one line, not the
+  // FIXME: probably we just want to print one line, not the
   // entire statement, which might span many lines...
   //
   // tree_print_code tpc (octave_stdout);
@@ -872,7 +872,7 @@
 }
 
 DEFUN (keyboard, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} keyboard ()\n\
 @deftypefnx {Built-in Function} {} keyboard (\"@var{prompt}\")\n\
 This function is normally used for simple debugging.  When the\n\
@@ -915,7 +915,7 @@
 }
 
 DEFUN (echo, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Command} {} echo options\n\
 Control whether commands are displayed as they are executed.  Valid\n\
 options are:\n\
@@ -999,7 +999,7 @@
 }
 
 DEFUN (completion_matches, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} completion_matches (@var{hint})\n\
 Generate possible completions given @var{hint}.\n\
 \n\
@@ -1075,7 +1075,7 @@
 }
 
 DEFUN (readline_read_init_file, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} readline_read_init_file (@var{file})\n\
 Read the readline library initialization file @var{file}.  If\n\
 @var{file} is omitted, read the default initialization file (normally\n\
@@ -1106,7 +1106,7 @@
 }
 
 DEFUN (readline_re_read_init_file, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} readline_re_read_init_file ()\n\
 Re-read the last readline library initialization file that was read.\n\
 @xref{Readline Init File, , , readline, GNU Readline Library},\n\
@@ -1136,7 +1136,7 @@
 }
 
 DEFUN (add_input_event_hook, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{id} =} add_input_event_hook (@var{fcn})\n\
 @deftypefnx {Built-in Function} {@var{id} =} add_input_event_hook (@var{fcn}, @var{data})\n\
 Add the named function or function handle @var{fcn} to the list of functions\n\
@@ -1187,7 +1187,7 @@
 }
 
 DEFUN (remove_input_event_hook, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} remove_input_event_hook (@var{name})\n\
 @deftypefnx {Built-in Function} {} remove_input_event_hook (@var{fcn_id})\n\
 Remove the named function or function handle with the given identifier\n\
@@ -1230,7 +1230,7 @@
 }
 
 DEFUN (PS1, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} PS1 ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} PS1 (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} PS1 (@var{new_val}, \"local\")\n\
@@ -1270,7 +1270,7 @@
 }
 
 DEFUN (PS2, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} PS2 ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} PS2 (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} PS2 (@var{new_val}, \"local\")\n\
@@ -1291,7 +1291,7 @@
 }
 
 DEFUN (PS4, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} PS4 ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} PS4 (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} PS4 (@var{new_val}, \"local\")\n\
@@ -1310,7 +1310,7 @@
 }
 
 DEFUN (completion_append_char, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} completion_append_char ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} completion_append_char (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} completion_append_char (@var{new_val}, \"local\")\n\
@@ -1327,7 +1327,7 @@
 }
 
 DEFUN (echo_executing_commands, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} echo_executing_commands ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} echo_executing_commands (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} echo_executing_commands (@var{new_val}, \"local\")\n\
@@ -1360,7 +1360,7 @@
 }
 
 DEFUN (__request_drawnow__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} __request_drawnow__ ()\n\
 @deftypefnx {Built-in Function} {} __request_drawnow__ (@var{flag})\n\
 Undocumented internal function.\n\
@@ -1381,7 +1381,7 @@
 }
 
 DEFUN (__gud_mode__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __gud_mode__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1401,7 +1401,7 @@
 }
 
 DEFUN (filemarker, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} filemarker ()\n\
 @deftypefnx {Built-in Function} {} filemarker (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} filemarker (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/input.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/input.h	Tue Nov 05 12:27:42 2013 -0500
@@ -58,7 +58,8 @@
 
 extern bool octave_yes_or_no (const std::string& prompt);
 
-extern octave_value do_keyboard (const octave_value_list& args = octave_value_list ());
+extern octave_value do_keyboard (const octave_value_list& args
+                                 = octave_value_list ());
 
 extern void remove_input_event_hook_functions (void);
 
--- a/libinterp/corefcn/inv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/inv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 #include "utils.h"
 
 DEFUN (inv, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{x} =} inv (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{x}, @var{rcond}] =} inv (@var{A})\n\
 Compute the inverse of the square matrix @var{A}.  Return an estimate\n\
@@ -232,12 +232,12 @@
 %!error <argument must be a square matrix> inv ([1, 2; 3, 4; 5, 6])
 */
 
-// FIXME -- this should really be done with an alias, but
+// FIXME: this should really be done with an alias, but
 // alias_builtin() won't do the right thing if we are actually using
 // dynamic linking.
 
 DEFUN (inverse, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{x} =} inverse (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{x}, @var{rcond}] =} inverse (@var{A})\n\
 Compute the inverse of the square matrix @var{A}.\n\
--- a/libinterp/corefcn/jit-ir.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/jit-ir.h	Tue Nov 05 12:27:42 2013 -0500
@@ -289,7 +289,7 @@
   // paremeters
   typedef jit_internal_node<jit_value, jit_use> PARENT_T;
 
-  jit_use (void) : muser (0), mindex (0) {}
+  jit_use (void) : muser (0), mindex (0) { }
 
   // we should really have a move operator, but not until c++11 :(
   jit_use (const jit_use& use) : muser (0), mindex (0)
@@ -329,7 +329,7 @@
 public:
   // FIXME: this code could be so much pretier with varadic templates...
   jit_instruction (void) : mid (next_id ()), mparent (0)
-  {}
+  { }
 
   jit_instruction (size_t nargs) : mid (next_id ()), mparent (0)
   {
@@ -354,8 +354,8 @@
 #undef JIT_INSTRUCTION_CTOR
 
   jit_instruction (const std::vector<jit_value *>& aarguments)
-  : already_infered (aarguments.size ()), marguments (aarguments.size ()),
-    mid (next_id ()), mparent (0)
+    : already_infered (aarguments.size ()), marguments (aarguments.size ()),
+      mid (next_id ()), mparent (0)
   {
     for (size_t i = 0; i < aarguments.size (); ++i)
       stash_argument (i, aarguments[i]);
@@ -430,9 +430,9 @@
   const std::vector<jit_type *>& argument_types (void) const
   { return already_infered; }
 
-  virtual void push_variable (void) {}
+  virtual void push_variable (void) { }
 
-  virtual void pop_variable (void) {}
+  virtual void pop_variable (void) { }
 
   virtual void construct_ssa (void)
   {
@@ -509,8 +509,7 @@
   JIT_VALUE_ACCEPT;
 };
 
-template <typename T, jit_type *(*EXTRACT_T)(void), typename PASS_T,
-          bool QUOTE>
+template <typename T, jit_type *(*EXTRACT_T)(void), typename PASS_T, bool QUOTE>
 class
 jit_const : public jit_value
 {
@@ -561,7 +560,7 @@
   jit_block (const std::string& aname, size_t avisit_count = 0)
     : mvisit_count (avisit_count), mid (NO_ID), idom (0), mname (aname),
       malive (false)
-  {}
+  { }
 
   virtual void replace_with (jit_value *value);
 
@@ -776,9 +775,9 @@
 jit_phi_incomming : public jit_internal_node<jit_block, jit_phi_incomming>
 {
 public:
-  jit_phi_incomming (void) : muser (0) {}
+  jit_phi_incomming (void) : muser (0) { }
 
-  jit_phi_incomming (jit_phi *auser) : muser (auser) {}
+  jit_phi_incomming (jit_phi *auser) : muser (auser) { }
 
   jit_phi_incomming (const jit_phi_incomming& use)
   {
@@ -804,12 +803,12 @@
 jit_variable : public jit_value
 {
 public:
-  jit_variable (const std::string& aname) : mname (aname), mlast_use (0) {}
+  jit_variable (const std::string& aname) : mname (aname), mlast_use (0) { }
 
   const std::string &name (void) const { return mname; }
 
-  // manipulate the value_stack, for use during SSA construction. The top of the
-  // value stack represents the current value for this variable
+  // manipulate the value_stack, for use during SSA construction. The top of
+  // the  value stack represents the current value for this variable
   bool has_top (void) const
   {
     return ! value_stack.empty ();
@@ -868,13 +867,13 @@
 jit_assign_base : public jit_instruction
 {
 public:
-  jit_assign_base (jit_variable *adest) : jit_instruction (), mdest (adest) {}
+  jit_assign_base (jit_variable *adest) : jit_instruction (), mdest (adest) { }
 
   jit_assign_base (jit_variable *adest, size_t npred) : jit_instruction (npred),
                                                         mdest (adest) {}
 
   jit_assign_base (jit_variable *adest, jit_value *arg0, jit_value *arg1)
-    : jit_instruction (arg0, arg1), mdest (adest) {}
+    : jit_instruction (arg0, arg1), mdest (adest) { }
 
   jit_variable *dest (void) const { return mdest; }
 
@@ -905,7 +904,7 @@
 {
 public:
   jit_assign (jit_variable *adest, jit_value *asrc)
-    : jit_assign_base (adest, adest, asrc), martificial (false) {}
+    : jit_assign_base (adest, adest, asrc), martificial (false) { }
 
   jit_value *overwrite (void) const
   {
@@ -981,7 +980,7 @@
     return incomming (i)->to_llvm ();
   }
 
-  virtual void construct_ssa (void) {}
+  virtual void construct_ssa (void) { }
 
   virtual bool infer (void);
 
@@ -1025,7 +1024,7 @@
   jit_terminator (size_t asuccessor_count,                              \
                   OCT_MAKE_DECL_LIST (jit_value *, arg, N))             \
     : jit_instruction (OCT_MAKE_ARG_LIST (arg, N)),                     \
-      malive (asuccessor_count, false) {}
+      malive (asuccessor_count, false) { }
 
   JIT_TERMINATOR_CONST (1)
   JIT_TERMINATOR_CONST (2)
@@ -1080,7 +1079,7 @@
 jit_branch : public jit_terminator
 {
 public:
-  jit_branch (jit_block *succ) : jit_terminator (1, succ) {}
+  jit_branch (jit_block *succ) : jit_terminator (1, succ) { }
 
   virtual size_t successor_count (void) const { return 1; }
 
@@ -1098,7 +1097,7 @@
 {
 public:
   jit_cond_branch (jit_value *c, jit_block *ctrue, jit_block *cfalse)
-    : jit_terminator (2, ctrue, cfalse, c) {}
+    : jit_terminator (2, ctrue, cfalse, c) { }
 
   jit_value *cond (void) const { return argument (2); }
 
@@ -1147,12 +1146,12 @@
 #define JIT_CALL_CONST(N)                                               \
   jit_call (const jit_operation& aoperation,                            \
             OCT_MAKE_DECL_LIST (jit_value *, arg, N))                   \
-    : jit_instruction (OCT_MAKE_ARG_LIST (arg, N)), moperation (aoperation) {} \
+    : jit_instruction (OCT_MAKE_ARG_LIST (arg, N)), moperation (aoperation) { } \
                                                                         \
   jit_call (const jit_operation& (*aoperation) (void),                  \
             OCT_MAKE_DECL_LIST (jit_value *, arg, N))                   \
     : jit_instruction (OCT_MAKE_ARG_LIST (arg, N)), moperation (aoperation ()) \
-  {}
+  { }
 
   JIT_CALL_CONST (1)
   JIT_CALL_CONST (2)
@@ -1163,8 +1162,8 @@
 
   jit_call (const jit_operation& aoperation,
             const std::vector<jit_value *>& args)
-  : jit_instruction (args), moperation (aoperation)
-  {}
+    : jit_instruction (args), moperation (aoperation)
+  { }
 
   const jit_operation& operation (void) const { return moperation; }
 
@@ -1213,19 +1212,19 @@
 public:
   // Which variable is the error check for?
   enum variable
-    {
-      var_error_state,
-      var_interrupt
-    };
+  {
+    var_error_state,
+    var_interrupt
+  };
 
   static std::string variable_to_string (variable v);
 
   jit_error_check (variable var, jit_call *acheck_for, jit_block *normal,
                    jit_block *error)
-    : jit_terminator (2, error, normal, acheck_for), mvariable (var) {}
+    : jit_terminator (2, error, normal, acheck_for), mvariable (var) { }
 
   jit_error_check (variable var, jit_block *normal, jit_block *error)
-    : jit_terminator (2, error, normal), mvariable (var) {}
+    : jit_terminator (2, error, normal), mvariable (var) { }
 
   variable check_variable (void) const { return mvariable; }
 
@@ -1264,7 +1263,7 @@
   {
   public:
     context (void) : value (0), index (0), count (0)
-    {}
+    { }
 
     context (jit_factory& factory, jit_value *avalue, size_t aindex,
              size_t acount);
@@ -1329,8 +1328,8 @@
 {
 public:
   jit_store_argument (jit_variable *var)
-  : jit_instruction (var), dest (var)
-  {}
+    : jit_instruction (var), dest (var)
+  { }
 
   const std::string& name (void) const
   {
@@ -1381,9 +1380,9 @@
 jit_return : public jit_instruction
 {
 public:
-  jit_return (void) {}
+  jit_return (void) { }
 
-  jit_return (jit_value *retval) : jit_instruction (retval) {}
+  jit_return (jit_value *retval) : jit_instruction (retval) { }
 
   jit_value *result (void) const
   {
@@ -1413,7 +1412,7 @@
 jit_ir_walker
 {
 public:
-  virtual ~jit_ir_walker () {}
+  virtual ~jit_ir_walker () { }
 
 #define JIT_METH(clname) \
   virtual void visit (jit_ ## clname&) = 0;
--- a/libinterp/corefcn/jit-typeinfo.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/jit-typeinfo.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -517,7 +517,7 @@
 operator<< (std::ostream& os, const jit_range& rng)
 {
   return os << "Range[" << rng.base << ", " << rng.limit << ", " << rng.inc
-            << ", " << rng.nelem << "]";
+         << ", " << rng.nelem << "]";
 }
 
 // -------------------- jit_matrix --------------------
@@ -526,8 +526,8 @@
 operator<< (std::ostream& os, const jit_matrix& mat)
 {
   return os << "Matrix[" << mat.ref_count << ", " << mat.slice_data << ", "
-            << mat.slice_len << ", " << mat.dimensions << ", "
-            << mat.array << "]";
+         << mat.slice_len << ", " << mat.dimensions << ", "
+         << mat.array << "]";
 }
 
 // -------------------- jit_type --------------------
@@ -718,7 +718,7 @@
 #ifdef CALLINST_ADDATTRIBUTE_ARG_IS_ATTRIBUTES
       llvm::AttrBuilder attr_builder;
       attr_builder.addAttribute(llvm::Attributes::StructRet);
-      llvm::Attributes attrs = llvm::Attributes::get(context, attr_builder); 
+      llvm::Attributes attrs = llvm::Attributes::get(context, attr_builder);
       callinst->addAttribute (1, attrs);
 #else
       callinst->addAttribute (1, llvm::Attribute::StructRet);
@@ -814,7 +814,7 @@
 
 void
 jit_operation::add_overload (const jit_function& func,
-                            const std::vector<jit_type*>& args)
+                             const std::vector<jit_type*>& args)
 {
   if (args.size () >= overloads.size ())
     overloads.resize (args.size () + 1);
@@ -1637,8 +1637,8 @@
     builder.CreateBr (done);
 
     builder.SetInsertPoint (normal);
-    llvm::Value *len = builder.CreateExtractValue (mat,
-                                                   llvm::ArrayRef<unsigned> (2));
+    llvm::Value *len
+      = builder.CreateExtractValue (mat, llvm::ArrayRef<unsigned> (2));
     cond = builder.CreateICmpSGT (int_idx, len);
 
 
@@ -1722,8 +1722,8 @@
     builder.CreateBr (done);
 
     builder.SetInsertPoint (success);
-    llvm::Value *data = builder.CreateExtractValue (mat,
-                                                    llvm::ArrayRef<unsigned> (1));
+    llvm::Value *data
+      = builder.CreateExtractValue (mat, llvm::ArrayRef<unsigned> (1));
     llvm::Value *gep = builder.CreateInBoundsGEP (data, int_idx);
     builder.CreateStore (value, gep);
     builder.CreateBr (done);
@@ -1923,7 +1923,8 @@
 {
   std::stringstream name;
   name << "octave_jit_print_" << ty->name ();
-  jit_function fn = create_external (engine, fptr, name.str (), 0, intN (8), ty);
+  jit_function fn = create_external (engine, fptr, name.str (),
+                                     0, intN (8), ty);
   print_fn.add_overload (fn);
 }
 
@@ -2245,7 +2246,7 @@
       octave_builtin *builtin
         = dynamic_cast<octave_builtin *> (ov.internal_rep ());
       return builtin && builtin->to_jit () ? builtin->to_jit ()
-        : unknown_function;
+                                           : unknown_function;
     }
 
   if (ov.is_range ())
--- a/libinterp/corefcn/jit-typeinfo.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/jit-typeinfo.h	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 // manage the types.
 //
 // FIXME:
-// Operations are defined and implemented in jit_typeinfo. Eventually they
+// Operations are defined and implemented in jit_typeinfo.  Eventually they
 // should be moved elsewhere. (just like with octave_typeinfo)
 
 // jit_range is compatable with the llvm range structure
@@ -46,7 +46,7 @@
 {
   jit_range (const Range& from) : base (from.base ()), limit (from.limit ()),
                                   inc (from.inc ()), nelem (from.nelem ())
-  {}
+  { }
 
   operator Range () const
   {
@@ -61,14 +61,14 @@
   octave_idx_type nelem;
 };
 
-std::ostream& operator<< (std::ostream& os, const jit_range& rng);
+std::ostream& operator << (std::ostream& os, const jit_range& rng);
 
 // jit_array is compatable with the llvm array/matrix structures
 template <typename T, typename U>
 struct
 jit_array
 {
-  jit_array () : array (0) {}
+  jit_array () : array (0) { }
 
   jit_array (T& from) : array (new T (from))
   {
@@ -105,7 +105,7 @@
 
 typedef jit_array<NDArray, double> jit_matrix;
 
-std::ostream& operator<< (std::ostream& os, const jit_matrix& mat);
+std::ostream& operator << (std::ostream& os, const jit_matrix& mat);
 
 // calling convention
 namespace
@@ -217,12 +217,12 @@
 
 class jit_value;
 
-// An abstraction for calling llvm functions with jit_values. Deals with calling
-// convention details.
+// An abstraction for calling llvm functions with jit_values.  Deals with
+// calling convention details.
 class
 jit_function
 {
-  friend std::ostream& operator<< (std::ostream& os, const jit_function& fn);
+  friend std::ostream& operator << (std::ostream& os, const jit_function& fn);
 public:
   // create a function in an invalid state
   jit_function ();
@@ -317,7 +317,7 @@
   bool mcan_error;
 };
 
-std::ostream& operator<< (std::ostream& os, const jit_function& fn);
+std::ostream& operator << (std::ostream& os, const jit_function& fn);
 
 
 // Keeps track of information about how to implement operations (+, -, *, ect)
@@ -389,7 +389,7 @@
 jit_index_operation : public jit_operation
 {
 public:
-  jit_index_operation (void) : module (0), engine (0) {}
+  jit_index_operation (void) : module (0), engine (0) { }
 
   void initialize (llvm::Module *amodule, llvm::ExecutionEngine *aengine)
   {
--- a/libinterp/corefcn/jit-util.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/jit-util.h	Tue Nov 05 12:27:42 2013 -0500
@@ -77,10 +77,10 @@
 class jit_fail_exception : public std::runtime_error
 {
 public:
-  jit_fail_exception (void) : std::runtime_error ("unknown"), mknown (false) {}
+  jit_fail_exception (void) : std::runtime_error ("unknown"), mknown (false) { }
   jit_fail_exception (const std::string& reason) : std::runtime_error (reason),
                                                    mknown (true)
-  {}
+  { }
 
   bool known (void) const { return mknown; }
 private:
@@ -102,7 +102,7 @@
 {
   friend class jit_internal_node<LIST_T, NODE_T>;
 public:
-  jit_internal_list (void) : use_head (0), use_tail (0), muse_count (0) {}
+  jit_internal_list (void) : use_head (0), use_tail (0), muse_count (0) { }
 
   virtual ~jit_internal_list (void)
   {
@@ -127,7 +127,7 @@
 public:
   typedef jit_internal_list<LIST_T, NODE_T> jit_ilist;
 
-  jit_internal_node (void) : mvalue (0), mnext (0), mprev (0) {}
+  jit_internal_node (void) : mvalue (0), mnext (0), mprev (0) { }
 
   ~jit_internal_node (void) { remove (); }
 
--- a/libinterp/corefcn/kron.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/kron.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -88,7 +88,8 @@
     for (octave_idx_type jb = 0; jb < ncb; jb++)
       {
         octave_quit ();
-        mx_inline_mul (nrb, &c.xelem (ja*nrb, ja*ncb + jb), a.dgelem (ja), b.data () + nrb*jb);
+        mx_inline_mul (nrb, &c.xelem (ja*nrb, ja*ncb + jb), a.dgelem (ja),
+                       b.data () + nrb*jb);
       }
 
   return c;
--- a/libinterp/corefcn/load-path.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/load-path.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -77,7 +77,8 @@
 
                   const dir_info& di = p->second;
 
-                  if (fs.mtime () + fs.time_resolution () > di.dir_time_last_checked)
+                  if (fs.mtime () + fs.time_resolution ()
+                       > di.dir_time_last_checked)
                     initialize ();
                   else
                     *this = di;
@@ -130,7 +131,7 @@
         {
           std::string abs_name = octave_env::make_absolute (dir_name);
 
-          // FIXME -- nothing is ever removed from this cache of
+          // FIXME: nothing is ever removed from this cache of
           // directory information, so there could be some resource
           // problems.  Perhaps it should be pruned from time to time.
 
@@ -318,8 +319,7 @@
   return retval;
 }
 
-// FIXME -- maybe we should also maintain a map to speed up this
-// method of access.
+// FIXME: maybe we should also maintain a map to speed up this method of access.
 
 load_path::const_dir_info_list_iterator
 load_path::find_dir_info (const std::string& dir_arg) const
@@ -454,8 +454,7 @@
           else
             {
               for (file_info_list_iterator p = file_info_list.begin ();
-               p != file_info_list.end ();
-               p++)
+                   p != file_info_list.end (); p++)
                 {
                   if (p->dir_name == full_dir_name)
                     {
@@ -769,7 +768,7 @@
         }
     }
 
-  // FIXME -- is there a better way to do this?
+  // FIXME: is there a better way to do this?
 
   i = find_dir_info (".");
 
@@ -848,14 +847,13 @@
           else
             {
               for (file_info_list_iterator p = file_info_list.begin ();
-               p != file_info_list.end ();
-               p++)
+                   p != file_info_list.end (); p++)
                 {
                   if (p->dir_name == full_dir_name)
                     {
                       file_info_list.erase (p);
 
-                      // FIXME -- if there are no other elements, we
+                      // FIXME: if there are no other elements, we
                       // should remove this element of fm but calling
                       // erase here would invalidate the iterator q.
 
@@ -1471,7 +1469,7 @@
         }
     }
 
- done:
+done:
 
   if (! dir_name.empty ())
     retval = file_ops::concat (dir_name, file_name);
@@ -1528,8 +1526,7 @@
   rel_flist.resize (rel_flen);
 
   for (const_dir_info_list_iterator p = dir_info_list.begin ();
-       p != dir_info_list.end ();
-       p++)
+       p != dir_info_list.end (); p++)
     {
       string_vector all_files = p->all_files;
 
@@ -1540,8 +1537,8 @@
           for (octave_idx_type j = 0; j < rel_flen; j++)
             {
               if (all_files[i] == rel_flist[j])
-                retlist.push_back
-                  (file_ops::concat (p->dir_name, rel_flist[j]));
+                retlist.push_back (file_ops::concat (p->dir_name,
+                                                     rel_flist[j]));
             }
         }
     }
@@ -1743,9 +1740,8 @@
 
       if (! method_file_map.empty ())
         {
-          for (dir_info::const_method_file_map_iterator p = method_file_map.begin ();
-               p != method_file_map.end ();
-               p++)
+          for (dir_info::const_method_file_map_iterator
+               p = method_file_map.begin (); p != method_file_map.end (); p++)
             {
               os << "\n*** methods in " << i->dir_name
                  << "/@" << p->first << ":\n\n";
@@ -1770,7 +1766,9 @@
 static bool
 in_path_list (const std::string& path_list, const std::string& path)
 {
-  size_t ps = path.size (), pls = path_list.size (), pos = path_list.find (path);
+  size_t ps = path.size ();
+  size_t pls = path_list.size ();
+  size_t pos = path_list.find (path);
   char psc = dir_path::path_sep_char ();
   while (pos != std::string::npos)
     {
@@ -1864,7 +1862,7 @@
                 {
                   file_info& old = file_info_list.front ();
 
-                  // FIXME -- do we need to be more careful about the
+                  // FIXME: do we need to be more careful about the
                   // way we look for old.dir_name in sys_path to avoid
                   // partial matches?
 
@@ -1966,7 +1964,7 @@
             }
           else
             {
-              // FIXME -- is this possible?
+              // FIXME: is this possible?
 
               file_info& fi = *p2;
 
@@ -2149,7 +2147,7 @@
 }
 
 DEFUN (genpath, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} genpath (@var{dir})\n\
 @deftypefnx {Built-in Function} {} genpath (@var{dir}, @var{skip}, @dots{})\n\
 Return a path constructed from @var{dir} and all its subdirectories.\n\
@@ -2200,7 +2198,7 @@
 {
   load_path::update ();
 
-  // FIXME -- maybe we should rename this variable since it is being
+  // FIXME: maybe we should rename this variable since it is being
   // used for more than keeping track of the prompt time.
 
   // This will force updated functions to be found.
@@ -2208,7 +2206,7 @@
 }
 
 DEFUN (rehash, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rehash ()\n\
 Reinitialize Octave's load path directory cache.\n\
 @end deftypefn")
@@ -2221,7 +2219,7 @@
 }
 
 DEFUN (command_line_path, , ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} command_line_path (@dots{})\n\
 Return the command line path variable.\n\
 \n\
@@ -2232,7 +2230,7 @@
 }
 
 DEFUN (restoredefaultpath, , ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} restoredefaultpath (@dots{})\n\
 Restore Octave's path to its initial state at startup.\n\
 \n\
@@ -2250,7 +2248,7 @@
 // ~/.octaverc file
 
 DEFUN (__pathorig__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{val} =} __pathorig__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2259,7 +2257,7 @@
 }
 
 DEFUN (path, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} path (@dots{})\n\
 Modify or display Octave's load path.\n\
 \n\
@@ -2301,7 +2299,8 @@
         retval = load_path::path ();
       else if (argc == 1 && nargout == 0)
         {
-          octave_stdout << "\nOctave's search path contains the following directories:\n\n";
+          octave_stdout <<
+                        "\nOctave's search path contains the following directories:\n\n";
 
           string_vector dirs = load_path::dirs ();
 
@@ -2315,7 +2314,7 @@
 }
 
 DEFUN (addpath, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} addpath (@var{dir1}, @dots{})\n\
 @deftypefnx {Built-in Function} {} addpath (@var{dir1}, @dots{}, @var{option})\n\
 Add named directories to the function search path.  If\n\
@@ -2431,7 +2430,7 @@
 }
 
 DEFUN (rmpath, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rmpath (@var{dir1}, @dots{})\n\
 Remove @var{dir1}, @dots{} from the current function search path.\n\
 \n\
--- a/libinterp/corefcn/load-path.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/load-path.h	Tue Nov 05 12:27:42 2013 -0500
@@ -123,7 +123,7 @@
   static std::list<std::string> overloads (const std::string& meth)
   {
     return instance_ok ()
-      ? instance->do_overloads (meth) : std::list<std::string> ();
+           ? instance->do_overloads (meth) : std::list<std::string> ();
   }
 
   static bool find_package (const std::string& package_name)
@@ -197,31 +197,31 @@
   static std::string find_file (const std::string& file)
   {
     return instance_ok ()
-      ? instance->do_find_file (file) : std::string ();
+           ? instance->do_find_file (file) : std::string ();
   }
 
   static std::string find_dir (const std::string& dir)
   {
     return instance_ok ()
-      ? instance->do_find_dir (dir) : std::string ();
+           ? instance->do_find_dir (dir) : std::string ();
   }
 
   static string_vector find_matching_dirs (const std::string& dir)
   {
     return instance_ok ()
-      ? instance->do_find_matching_dirs (dir) : string_vector ();
+           ? instance->do_find_matching_dirs (dir) : string_vector ();
   }
 
   static std::string find_first_of (const string_vector& files)
   {
     return instance_ok () ?
-      instance->do_find_first_of (files) : std::string ();
+           instance->do_find_first_of (files) : std::string ();
   }
 
   static string_vector find_all_first_of (const string_vector& files)
   {
     return instance_ok () ?
-      instance->do_find_all_first_of (files) : string_vector ();
+           instance->do_find_all_first_of (files) : string_vector ();
   }
 
   static string_vector dirs (void)
@@ -232,13 +232,13 @@
   static std::list<std::string> dir_list (void)
   {
     return instance_ok ()
-      ? instance->do_dir_list () : std::list<std::string> ();
+           ? instance->do_dir_list () : std::list<std::string> ();
   }
 
   static string_vector files (const std::string& dir, bool omit_exts = false)
   {
     return instance_ok ()
-      ? instance->do_files (dir, omit_exts) : string_vector ();
+           ? instance->do_files (dir, omit_exts) : string_vector ();
   }
 
   static string_vector fcn_names (void)
@@ -271,7 +271,8 @@
 
   static std::string get_command_line_path (void)
   {
-    return instance_ok () ? instance->do_get_command_line_path () : std::string ();
+    return instance_ok () ? instance->do_get_command_line_path ()
+                          : std::string ();
   }
 
   static std::string system_path (void)
@@ -339,7 +340,7 @@
         dir_mtime (), dir_time_last_checked (),
         all_files (), fcn_files (), private_file_map (), method_file_map (),
         package_dir_map ()
-      { }
+    { }
 
     dir_info (const std::string& d)
       : dir_name (d), abs_dir_name (), is_relative (false),
@@ -472,7 +473,8 @@
   typedef fcn_map_type::iterator fcn_map_iterator;
 
   // <DIR_NAME, <FCN_NAME, TYPE>>
-  typedef std::map<std::string, dir_info::fcn_file_map_type> private_fcn_map_type;
+  typedef std::map<std::string, dir_info::fcn_file_map_type>
+    private_fcn_map_type;
 
   typedef private_fcn_map_type::const_iterator const_private_fcn_map_iterator;
   typedef private_fcn_map_type::iterator private_fcn_map_iterator;
@@ -712,7 +714,8 @@
 
   std::string do_system_path (void) const { return sys_path; }
 
-  std::string do_get_command_line_path (void) const { return command_line_path; }
+  std::string do_get_command_line_path (void) const
+  { return command_line_path; }
 
   void add (const dir_info& di, bool at_end,
             const std::string& pname = std::string ()) const;
--- a/libinterp/corefcn/load-save.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/load-save.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -274,11 +274,11 @@
                   file.clear ();
                   file.seekg (0, std::ios::beg);
 
-                  // FIXME -- looks_like_mat_ascii_file does not check to see
-                  // whether the file contains numbers.  It just skips comments and
-                  // checks for the same number of words on each line.  We may need
-                  // a better check here.  The best way to do that might be just
-                  // to try to read the file and see if it works.
+                  // FIXME: looks_like_mat_ascii_file does not check to see
+                  // whether the file contains numbers.  It just skips comments
+                  // and checks for the same number of words on each line.  We
+                  // may need a better check here.  The best way to do that
+                  // might be just to try to read the file and see if it works.
 
                   if (looks_like_mat_ascii_file (file, filename))
                     retval = LS_MAT_ASCII;
@@ -555,7 +555,7 @@
 }
 
 DEFUN (load, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} load file\n\
 @deftypefnx {Command} {} load options file\n\
 @deftypefnx {Command} {} load options file v1 v2 @dots{}\n\
@@ -840,7 +840,8 @@
                   else if (format == LS_MAT5_BINARY
                            || format == LS_MAT7_BINARY)
                     {
-                      if (read_mat5_binary_file_header (file, swap, false, orig_fname) < 0)
+                      if (read_mat5_binary_file_header (file, swap, false,
+                                                        orig_fname) < 0)
                         {
                           if (file) file.close ();
                           return retval;
@@ -874,7 +875,8 @@
                   else if (format == LS_MAT5_BINARY
                            || format == LS_MAT7_BINARY)
                     {
-                      if (read_mat5_binary_file_header (file, swap, false, orig_fname) < 0)
+                      if (read_mat5_binary_file_header (file, swap, false,
+                                                        orig_fname) < 0)
                         {
                           if (file) file.close ();
                           return retval;
@@ -1039,7 +1041,8 @@
 
   size_t saved = 0;
 
-  typedef std::list<symbol_table::symbol_record>::const_iterator const_vars_iterator;
+  typedef std::list<symbol_table::symbol_record>::const_iterator
+    const_vars_iterator;
 
   for (const_vars_iterator p = vars.begin (); p != vars.end (); p++)
     {
@@ -1261,13 +1264,29 @@
               os << comment_string << "\n";
           }
       }
-    break;
+      break;
 
     default:
       break;
     }
 }
 
+void
+octave_prepare_hdf5 (void)
+{
+#ifdef HAVE_HDF5
+  H5dont_atexit ();
+#endif
+}
+
+void
+octave_finalize_hdf5 (void)
+{
+#ifdef HAVE_HDF5
+  H5close ();
+#endif
+}
+
 static void
 save_vars (const string_vector& argv, int argv_idx, int argc,
            std::ostream& os, load_save_format fmt,
@@ -1346,7 +1365,8 @@
 
   double save_mem_size = 0;
 
-  typedef std::list<symbol_table::symbol_record>::const_iterator const_vars_iterator;
+  typedef std::list<symbol_table::symbol_record>::const_iterator
+    const_vars_iterator;
 
   for (const_vars_iterator p = vars.begin (); p != vars.end (); p++)
     {
@@ -1360,7 +1380,7 @@
 
           double val_size = val.byte_size () / 1024;
 
-          // FIXME -- maybe we should try to throw out the largest first...
+          // FIXME: maybe we should try to throw out the largest first...
 
           if (Voctave_core_file_limit < 0
               || save_mem_size + val_size < Voctave_core_file_limit)
@@ -1383,7 +1403,7 @@
 {
   if (Vcrash_dumps_octave_core)
     {
-      // FIXME -- should choose better file name?
+      // FIXME: should choose better file name?
 
       const char *fname = Voctave_core_file_name.c_str ();
 
@@ -1469,7 +1489,7 @@
 }
 
 DEFUN (save, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} save file\n\
 @deftypefnx {Command} {} save options file\n\
 @deftypefnx {Command} {} save options file @var{v1} @var{v2} @dots{}\n\
@@ -1653,8 +1673,8 @@
           if (append)
             warning ("save: ignoring -append option for output to stdout");
 
-          // FIXME -- should things intended for the screen end up
-          // in a octave_value (string)?
+          // FIXME: should things intended for the screen
+          //        end up in an octave_value (string)?
 
           save_vars (argv, i, argc, octave_stdout, format,
                      save_as_floats, true);
@@ -1711,12 +1731,12 @@
                          save_as_floats, write_header_info);
 
               hdf5_file.close ();
-          }
-        else
-          {
-            gripe_file_open ("save", fname);
-            return retval;
-          }
+            }
+          else
+            {
+              gripe_file_open ("save", fname);
+              return retval;
+            }
         }
       else
 #endif /* HAVE_HDF5 */
@@ -1770,7 +1790,7 @@
 }
 
 DEFUN (crash_dumps_octave_core, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} crash_dumps_octave_core ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} crash_dumps_octave_core (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} crash_dumps_octave_core (@var{new_val}, \"local\")\n\
@@ -1788,7 +1808,7 @@
 }
 
 DEFUN (save_default_options, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} save_default_options ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} save_default_options (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} save_default_options (@var{new_val}, \"local\")\n\
@@ -1807,7 +1827,7 @@
 }
 
 DEFUN (octave_core_file_limit, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} octave_core_file_limit ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_limit (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} octave_core_file_limit (@var{new_val}, \"local\")\n\
@@ -1830,7 +1850,7 @@
 }
 
 DEFUN (octave_core_file_name, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} octave_core_file_name ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_name (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} octave_core_file_name (@var{new_val}, \"local\")\n\
@@ -1848,7 +1868,7 @@
 }
 
 DEFUN (octave_core_file_options, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} octave_core_file_options ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} octave_core_file_options (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} octave_core_file_options (@var{new_val}, \"local\")\n\
@@ -1868,7 +1888,7 @@
 }
 
 DEFUN (save_header_format_string, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} save_header_format_string ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} save_header_format_string (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} save_header_format_string (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/load-save.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/load-save.h	Tue Nov 05 12:27:42 2013 -0500
@@ -34,18 +34,18 @@
 // FIXME: maybe MAT5 and MAT7 should be options to MAT_BINARY.
 // Similarly, save_as_floats may be an option for LS_BINARY, LS_HDF5 etc.
 enum load_save_format_type
-  {
-    LS_ASCII,
-    LS_BINARY,
-    LS_MAT_ASCII,
-    LS_MAT_BINARY,
-    LS_MAT5_BINARY,
-    LS_MAT7_BINARY,
+{
+  LS_ASCII,
+  LS_BINARY,
+  LS_MAT_ASCII,
+  LS_MAT_BINARY,
+  LS_MAT5_BINARY,
+  LS_MAT7_BINARY,
 #ifdef HAVE_HDF5
-    LS_HDF5,
+  LS_HDF5,
 #endif /* HAVE_HDF5 */
-    LS_UNKNOWN
-  };
+  LS_UNKNOWN
+};
 
 enum load_save_format_options
 {
@@ -66,7 +66,7 @@
                     load_save_format_options o = LS_NO_OPTION)
     : type (t), opts (o) { }
   operator int (void) const
-    { return type; }
+  { return type; }
   int type, opts;
 };
 
@@ -92,4 +92,8 @@
 extern void
 write_header (std::ostream& os, load_save_format format);
 
+extern void octave_prepare_hdf5 (void);
+
+extern void octave_finalize_hdf5 (void);
+
 #endif
--- a/libinterp/corefcn/lookup.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/lookup.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -61,8 +61,8 @@
     { return std::toupper (x) > std::toupper (y); }
 };
 
-// FIXME -- maybe these should go elsewhere?
-// FIXME -- are they even needed now?
+// FIXME: maybe these should go elsewhere?
+// FIXME: are they even needed now?
 // case-insensitive ascending comparator
 #if 0
 static bool
@@ -187,7 +187,7 @@
 }
 
 DEFUN (lookup, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{idx} =} lookup (@var{table}, @var{y})\n\
 @deftypefnx {Built-in Function} {@var{idx} =} lookup (@var{table}, @var{y}, @var{opt})\n\
 Lookup values in a sorted table.  Usually used as a prelude to\n\
@@ -286,8 +286,8 @@
   if (num_case)
     {
 
-      // In the case of a complex array, absolute values will be used for compatibility
-      // (though it's not too meaningful).
+      // In the case of a complex array, absolute values will be used for
+      // compatibility (though it's not too meaningful).
 
       if (table.is_complex_type ())
         table = table.abs ();
@@ -356,7 +356,8 @@
               for (octave_idx_type i = 0; i < nval; i++)
                 {
                   octave_idx_type j = idx.xelem (i);
-                  ridx.xelem (i) = (j != 0 && str_y(i) == str_table(j-1)) ? j : 0;
+                  ridx.xelem (i) = (j != 0 && str_y(i) == str_table(j-1)) ? j
+                                                                          : 0;
                 }
             }
 
--- a/libinterp/corefcn/ls-ascii-helper.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-ascii-helper.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -109,7 +109,7 @@
             {
               // Yes, LF following CR, eat it.
               is.get (d);
-          }
+            }
 
           // Peek into next character.
           c = is.peek ();
--- a/libinterp/corefcn/ls-hdf5.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-hdf5.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -248,8 +248,11 @@
 hdf5_read_next_data (hid_t group_id, const char *name, void *dv)
 {
   hdf5_callback_data *d = static_cast <hdf5_callback_data *> (dv);
-  hid_t type_id = -1, type_class_id = -1, data_id = -1, subgroup_id = -1,
-    space_id = -1;
+  hid_t type_id = -1;
+  hid_t type_class_id = -1;
+  hid_t data_id = -1;
+  hid_t subgroup_id = -1;
+  hid_t space_id = -1;;
 
   H5G_stat_t info;
   herr_t retval = 0;
@@ -544,7 +547,7 @@
                name);
     }
 
- done:
+done:
   if (retval < 0)
     error ("load: error while reading hdf5 item %s", name);
 
@@ -580,7 +583,7 @@
 // and error.
 std::string
 read_hdf5_data (std::istream& is, const std::string& /* filename */,
-                bool& global, octave_value& tc, std::string& doc, 
+                bool& global, octave_value& tc, std::string& doc,
                 const string_vector& argv, int argv_idx, int argc)
 {
   std::string retval;
@@ -874,7 +877,8 @@
 
   std::string t = val.type_name ();
 #if HAVE_HDF5_18
-  data_id = H5Gcreate (loc_id, name.c_str (), H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+  data_id = H5Gcreate (loc_id, name.c_str (), H5P_DEFAULT, H5P_DEFAULT,
+                       H5P_DEFAULT);
 #else
   data_id = H5Gcreate (loc_id, name.c_str (), 0);
 #endif
@@ -916,7 +920,7 @@
   if (retval)
     retval = hdf5_add_attr (data_id, "OCTAVE_NEW_FORMAT") >= 0;
 
- error_cleanup:
+error_cleanup:
 
   if (data_type_id >= 0)
     H5Dclose (data_type_id);
--- a/libinterp/corefcn/ls-hdf5.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-hdf5.h	Tue Nov 05 12:27:42 2013 -0500
@@ -49,52 +49,52 @@
 
   hdf5_fstreambase (const char *name, int mode, int /* prot */ = 0)
     : file_id (-1), current_item (-1)
-    {
-      if (mode & std::ios::in)
-        file_id = H5Fopen (name, H5F_ACC_RDONLY, H5P_DEFAULT);
-      else if (mode & std::ios::out)
-        {
-          if (mode & std::ios::app && H5Fis_hdf5 (name) > 0)
-            file_id = H5Fopen (name, H5F_ACC_RDWR, H5P_DEFAULT);
-          else
-            file_id = H5Fcreate (name, H5F_ACC_TRUNC, H5P_DEFAULT,
-                                 H5P_DEFAULT);
-        }
-      if (file_id < 0)
-        std::ios::setstate (std::ios::badbit);
+  {
+    if (mode & std::ios::in)
+      file_id = H5Fopen (name, H5F_ACC_RDONLY, H5P_DEFAULT);
+    else if (mode & std::ios::out)
+      {
+        if (mode & std::ios::app && H5Fis_hdf5 (name) > 0)
+          file_id = H5Fopen (name, H5F_ACC_RDWR, H5P_DEFAULT);
+        else
+          file_id = H5Fcreate (name, H5F_ACC_TRUNC, H5P_DEFAULT,
+                               H5P_DEFAULT);
+      }
+    if (file_id < 0)
+      std::ios::setstate (std::ios::badbit);
 
-      current_item = 0;
-    }
+    current_item = 0;
+  }
 
   void close ()
-    {
-      if (file_id >= 0)
-        {
-          if (H5Fclose (file_id) < 0)
-            std::ios::setstate (std::ios::badbit);
-          file_id = -1;
-        }
-    }
+  {
+    if (file_id >= 0)
+      {
+        if (H5Fclose (file_id) < 0)
+          std::ios::setstate (std::ios::badbit);
+        file_id = -1;
+      }
+  }
 
   void open (const char *name, int mode, int)
-    {
-      clear ();
+  {
+    clear ();
 
-      if (mode & std::ios::in)
-        file_id = H5Fopen (name, H5F_ACC_RDONLY, H5P_DEFAULT);
-      else if (mode & std::ios::out)
-        {
-          if (mode & std::ios::app && H5Fis_hdf5 (name) > 0)
-            file_id = H5Fopen (name, H5F_ACC_RDWR, H5P_DEFAULT);
-          else
-            file_id = H5Fcreate (name, H5F_ACC_TRUNC, H5P_DEFAULT,
-                                 H5P_DEFAULT);
-        }
-      if (file_id < 0)
-        std::ios::setstate (std::ios::badbit);
+    if (mode & std::ios::in)
+      file_id = H5Fopen (name, H5F_ACC_RDONLY, H5P_DEFAULT);
+    else if (mode & std::ios::out)
+      {
+        if (mode & std::ios::app && H5Fis_hdf5 (name) > 0)
+          file_id = H5Fopen (name, H5F_ACC_RDWR, H5P_DEFAULT);
+        else
+          file_id = H5Fcreate (name, H5F_ACC_TRUNC, H5P_DEFAULT,
+                               H5P_DEFAULT);
+      }
+    if (file_id < 0)
+      std::ios::setstate (std::ios::badbit);
 
-      current_item = 0;
-    }
+    current_item = 0;
+  }
 };
 
 // input and output streams, subclassing istream and ostream
@@ -112,7 +112,7 @@
 
   void open (const char *name, int mode = std::ios::in|std::ios::binary,
              int prot = 0)
-    { hdf5_fstreambase::open (name, mode, prot); }
+  { hdf5_fstreambase::open (name, mode, prot); }
 };
 
 class hdf5_ofstream : public hdf5_fstreambase, public std::ostream
@@ -127,7 +127,7 @@
 
   void open (const char *name, int mode = std::ios::out|std::ios::binary,
              int prot = 0)
-    { hdf5_fstreambase::open (name, mode, prot); }
+  { hdf5_fstreambase::open (name, mode, prot); }
 };
 
 // Callback data structure for passing data to hdf5_read_next_data, below.
@@ -180,7 +180,7 @@
 
 extern OCTINTERP_API std::string
 read_hdf5_data (std::istream& is,  const std::string& filename, bool& global,
-                octave_value& tc, std::string& doc,								
+                octave_value& tc, std::string& doc,
                 const string_vector& argv, int argv_idx, int argc);
 
 extern OCTINTERP_API bool
--- a/libinterp/corefcn/ls-mat-ascii.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-mat-ascii.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -133,7 +133,8 @@
       // CRLF pair as the line separator.  Any other CR in the text
       // will not be considered as whitespace.
 
-      if (beg != std::string::npos && buf[beg] == '\r' && beg == buf.length () - 1)
+      if (beg != std::string::npos && buf[beg] == '\r'
+          && beg == buf.length () - 1)
         {
           // We had a blank line ending with a CRLF.  Handle it the
           // same as an empty line.
@@ -172,7 +173,7 @@
               beg = buf.find_first_not_of (", \t", end);
 
               if (beg == std::string::npos || (buf[beg] == '\r' &&
-                                  beg == buf.length () - 1))
+                                               beg == buf.length () - 1))
                 {
                   // We had a line with trailing spaces and
                   // ending with a CRLF, so this should look like EOL,
@@ -210,7 +211,7 @@
   if (! quiet && (nr == 0 || nc == 0))
     error ("load: file '%s' seems to be empty!", filename.c_str ());
 
- done:
+done:
 
   is.clear ();
   is.seekg (pos);
@@ -328,7 +329,7 @@
 
           if (is || is.eof ())
             {
-              // FIXME -- not sure this is best, but it works.
+              // FIXME: not sure this is best, but it works.
 
               if (is.eof ())
                 is.clear ();
--- a/libinterp/corefcn/ls-mat-ascii.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-mat-ascii.h	Tue Nov 05 12:27:42 2013 -0500
@@ -31,6 +31,7 @@
 save_mat_ascii_data (std::ostream& os, const octave_value& val_arg,
                      int precision, bool tabs = false);
 
-extern bool looks_like_mat_ascii_file (std::istream& is, const std::string& filename);
+extern bool looks_like_mat_ascii_file (std::istream& is,
+                                       const std::string& filename);
 
 #endif
--- a/libinterp/corefcn/ls-mat4.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-mat4.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -171,7 +171,7 @@
 
   return 0;
 
- data_read_error:
+data_read_error:
   return -1;
 }
 
@@ -358,7 +358,8 @@
             for (octave_idx_type i = 0; i < nr - 1; i++)
               c.xelem (i) = dtmp[i] - 1;
             nc_new = dtmp[nr - 1];
-            read_mat_binary_data (is, data.fortran_vec (), prec, nr - 1, swap, flt_fmt);
+            read_mat_binary_data (is, data.fortran_vec (), prec, nr - 1,
+                                  swap, flt_fmt);
             read_mat_binary_data (is, dtmp, prec, 1, swap, flt_fmt);
 
             SparseMatrix sm = SparseMatrix (data, r, c, nr_new, nc_new);
@@ -406,10 +407,10 @@
           tc = tc.convert_to_str (false, true, '\'');
       }
 
-      return retval;
-    }
+    return retval;
+  }
 
- data_read_error:
+data_read_error:
   error ("load: trouble reading binary file '%s'", filename.c_str ());
   return retval;
 }
--- a/libinterp/corefcn/ls-mat5.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-mat5.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -89,7 +89,7 @@
 // The subsystem data block
 static octave_value subsys_ov;
 
-// FIXME -- the following enum values should be the same as the
+// FIXME: the following enum values should be the same as the
 // mxClassID values in mexproto.h, but it seems they have also changed
 // over time.  What is the correct way to handle this and maintain
 // backward compatibility with old MAT files?  For now, use
@@ -97,25 +97,25 @@
 // conflict with the mxClassID enum in mexproto.h.
 
 enum arrayclasstype
-  {
-    MAT_FILE_CELL_CLASS=1,              // cell array
-    MAT_FILE_STRUCT_CLASS,              // structure
-    MAT_FILE_OBJECT_CLASS,              // object
-    MAT_FILE_CHAR_CLASS,                // character array
-    MAT_FILE_SPARSE_CLASS,              // sparse array
-    MAT_FILE_DOUBLE_CLASS,              // double precision array
-    MAT_FILE_SINGLE_CLASS,              // single precision floating point
-    MAT_FILE_INT8_CLASS,                // 8 bit signed integer
-    MAT_FILE_UINT8_CLASS,               // 8 bit unsigned integer
-    MAT_FILE_INT16_CLASS,               // 16 bit signed integer
-    MAT_FILE_UINT16_CLASS,              // 16 bit unsigned integer
-    MAT_FILE_INT32_CLASS,               // 32 bit signed integer
-    MAT_FILE_UINT32_CLASS,              // 32 bit unsigned integer
-    MAT_FILE_INT64_CLASS,               // 64 bit signed integer
-    MAT_FILE_UINT64_CLASS,              // 64 bit unsigned integer
-    MAT_FILE_FUNCTION_CLASS,            // Function handle
-    MAT_FILE_WORKSPACE_CLASS            // Workspace (undocumented)
-  };
+{
+  MAT_FILE_CELL_CLASS=1,              // cell array
+  MAT_FILE_STRUCT_CLASS,              // structure
+  MAT_FILE_OBJECT_CLASS,              // object
+  MAT_FILE_CHAR_CLASS,                // character array
+  MAT_FILE_SPARSE_CLASS,              // sparse array
+  MAT_FILE_DOUBLE_CLASS,              // double precision array
+  MAT_FILE_SINGLE_CLASS,              // single precision floating point
+  MAT_FILE_INT8_CLASS,                // 8 bit signed integer
+  MAT_FILE_UINT8_CLASS,               // 8 bit unsigned integer
+  MAT_FILE_INT16_CLASS,               // 16 bit signed integer
+  MAT_FILE_UINT16_CLASS,              // 16 bit unsigned integer
+  MAT_FILE_INT32_CLASS,               // 32 bit signed integer
+  MAT_FILE_UINT32_CLASS,              // 32 bit unsigned integer
+  MAT_FILE_INT64_CLASS,               // 64 bit signed integer
+  MAT_FILE_UINT64_CLASS,              // 64 bit unsigned integer
+  MAT_FILE_FUNCTION_CLASS,            // Function handle
+  MAT_FILE_WORKSPACE_CLASS            // Workspace (undocumented)
+};
 
 // Read COUNT elements of data from IS in the format specified by TYPE,
 // placing the result in DATA.  If SWAP is TRUE, swap the bytes of
@@ -429,7 +429,7 @@
   }
 
 // Read one element tag from stream IS,
-// place the type code in TYPE, the byte count in BYTES and true (false) to 
+// place the type code in TYPE, the byte count in BYTES and true (false) to
 // IS_SMALL_DATA_ELEMENT if the tag is 4 (8) bytes long.
 // return nonzero on error
 static int
@@ -466,7 +466,7 @@
 
   return 0;
 
- data_read_error:
+data_read_error:
   return 1;
 }
 
@@ -548,9 +548,10 @@
           destLen = tmp[1] + 8;
           std::string outbuf (destLen, ' ');
 
-          // FIXME -- find a way to avoid casting away const here!
-
-          int err = uncompress (reinterpret_cast<Bytef *> (const_cast<char *> (outbuf.c_str ())),
+          // FIXME: find a way to avoid casting away const here!
+
+          int err = uncompress (reinterpret_cast<Bytef *> 
+                                 (const_cast<char *> (outbuf.c_str ())),
                                 &destLen, reinterpret_cast<Bytef *> (inbuf),
                                 element_length);
 
@@ -791,7 +792,8 @@
         // col indices
         if (read_mat5_tag (is, swap, type, len, is_small_data_element))
           {
-            error ("load: reading sparse column data for '%s'", retval.c_str ());
+            error ("load: reading sparse column data for '%s'",
+                   retval.c_str ());
             goto data_read_error;
           }
 
@@ -802,7 +804,8 @@
 
         if (! is || error_state)
           {
-            error ("load: reading sparse column data for '%s'", retval.c_str ());
+            error ("load: reading sparse column data for '%s'",
+                   retval.c_str ());
             goto data_read_error;
           }
 
@@ -812,7 +815,8 @@
         // real data subelement
         if (read_mat5_tag (is, swap, type, len, is_small_data_element))
           {
-            error ("load: reading sparse matrix data for '%s'", retval.c_str ());
+            error ("load: reading sparse matrix data for '%s'",
+                   retval.c_str ());
             goto data_read_error;
           }
 
@@ -826,11 +830,13 @@
 
         tmp_pos = is.tellg ();
         read_mat5_binary_data (is, data, nnz, swap,
-                               static_cast<enum mat5_data_type> (type), flt_fmt);
+                               static_cast<enum mat5_data_type> (type),
+                               flt_fmt);
 
         if (! is || error_state)
           {
-            error ("load: reading sparse matrix data for '%s'", retval.c_str ());
+            error ("load: reading sparse matrix data for '%s'",
+                   retval.c_str ());
             goto data_read_error;
           }
 
@@ -844,12 +850,14 @@
 
             if (read_mat5_tag (is, swap, type, len, is_small_data_element))
               {
-                error ("load: reading sparse matrix data for '%s'", retval.c_str ());
+                error ("load: reading sparse matrix data for '%s'",
+                       retval.c_str ());
                 goto data_read_error;
               }
 
             read_mat5_binary_data (is, im.fortran_vec (), nnz, swap,
-                                   static_cast<enum mat5_data_type> (type), flt_fmt);
+                                   static_cast<enum mat5_data_type> (type),
+                                   flt_fmt);
 
             if (! is || error_state)
               {
@@ -881,7 +889,8 @@
         // and so can ignore the separator field of m0. I think the
         // sentinel field is also save to ignore.
         octave_scalar_map m0 = tc2.scalar_map_value ();
-        octave_scalar_map m1 = m0.contents ("function_handle").scalar_map_value ();
+        octave_scalar_map m1
+          = m0.contents ("function_handle").scalar_map_value ();
         std::string ftype = m1.contents ("type").string_value ();
         std::string fname = m1.contents ("function").string_value ();
         std::string fpath = m1.contents ("file").string_value ();
@@ -909,7 +918,7 @@
 
                     // First check if just replacing matlabroot is enough
                     std::string str = OCTAVE_EXEC_PREFIX +
-                      fpath.substr (mroot.length ());
+                                      fpath.substr (mroot.length ());
                     file_stat fs (str);
 
                     if (fs.exists ())
@@ -926,7 +935,8 @@
                           {
                             octave_value tmp (fcn);
 
-                            tc = octave_value (new octave_fcn_handle (tmp, fname));
+                            tc = octave_value (new octave_fcn_handle (tmp,
+                                                                      fname));
                           }
                       }
                     else
@@ -939,7 +949,8 @@
 
                         dir_path p (load_path::system_path ());
 
-                        str = octave_env::make_absolute (p.find_first_of (names));
+                        str =
+                          octave_env::make_absolute (p.find_first_of (names));
 
                         size_t xpos
                           = str.find_last_of (file_ops::dir_sep_chars ());
@@ -953,7 +964,8 @@
                           {
                             octave_value tmp (fcn);
 
-                            tc = octave_value (new octave_fcn_handle (tmp, fname));
+                            tc = octave_value (new octave_fcn_handle (tmp,
+                                                                      fname));
                           }
                         else
                           {
@@ -995,9 +1007,11 @@
           }
         else if (ftype == "anonymous")
           {
-            octave_scalar_map m2 = m1.contents ("workspace").scalar_map_value ();
+            octave_scalar_map m2
+              = m1.contents ("workspace").scalar_map_value ();
             uint32NDArray MCOS = m2.contents ("MCOS").uint32_array_value ();
-            octave_idx_type off = static_cast<octave_idx_type>(MCOS(4).double_value ());
+            octave_idx_type off
+              = static_cast<octave_idx_type>(MCOS(4).double_value ());
             m2 = subsys_ov.scalar_map_value ();
             m2 = m2.contents ("MCOS").scalar_map_value ();
             tc2 = m2.contents ("MCOS").cell_value ()(1 + off).cell_value ()(1);
@@ -1346,7 +1360,8 @@
         octave_idx_type n = re.numel ();
         tmp_pos = is.tellg ();
         read_mat5_binary_data (is, re.fortran_vec (), n, swap,
-                               static_cast<enum mat5_data_type> (type), flt_fmt);
+                               static_cast<enum mat5_data_type> (type),
+                               flt_fmt);
 
         if (! is || error_state)
           {
@@ -1371,7 +1386,8 @@
 
             n = im.numel ();
             read_mat5_binary_data (is, im.fortran_vec (), n, swap,
-                                   static_cast<enum mat5_data_type> (type), flt_fmt);
+                                   static_cast<enum mat5_data_type> (type),
+                                   flt_fmt);
 
             if (! is || error_state)
               {
@@ -1413,7 +1429,8 @@
         octave_idx_type n = re.numel ();
         tmp_pos = is.tellg ();
         read_mat5_binary_data (is, re.fortran_vec (), n, swap,
-                               static_cast<enum mat5_data_type> (type), flt_fmt);
+                               static_cast<enum mat5_data_type> (type),
+                               flt_fmt);
 
         if (! is || error_state)
           {
@@ -1451,7 +1468,8 @@
 
             n = im.numel ();
             read_mat5_binary_data (is, im.fortran_vec (), n, swap,
-                                   static_cast<enum mat5_data_type> (type), flt_fmt);
+                                   static_cast<enum mat5_data_type> (type),
+                                   flt_fmt);
 
             if (! is || error_state)
               {
@@ -1476,10 +1494,11 @@
                     bool found_big_char = false;
                     for (octave_idx_type i = 0; i < n; i++)
                       {
-                        if (re(i) > 127) {
-                          re(i) = '?';
-                          found_big_char = true;
-                        }
+                        if (re(i) > 127)
+                          {
+                            re(i) = '?';
+                            found_big_char = true;
+                          }
                       }
 
                     if (found_big_char)
@@ -1503,7 +1522,8 @@
                         warning ("load: can not read multi-byte encoded UTF8 characters; replacing unreadable characters with '?'");
                         for (octave_idx_type i = 0; i < n; i++)
                           {
-                            unsigned char a = static_cast<unsigned char> (re(i));
+                            unsigned char a
+                              = static_cast<unsigned char> (re(i));
                             if (a > 0x7f)
                               re(i) = '?';
                           }
@@ -1525,12 +1545,12 @@
 
   return retval;
 
- data_read_error:
- early_read_error:
+data_read_error:
+early_read_error:
   error ("load: trouble reading binary file '%s'", filename.c_str ());
   return std::string ();
 
- skip_ahead:
+skip_ahead:
   warning ("skipping over '%s'", retval.c_str ());
   is.seekg (pos + static_cast<std::streamoff> (element_length));
   return read_mat5_binary_element (is, filename, swap, global, tc);
@@ -1591,7 +1611,7 @@
           // Why should I have to initialize outbuf as just overwrite
           std::string outbuf (ilen - 7, ' ');
 
-          // FIXME -- find a way to avoid casting away const here
+          // FIXME: find a way to avoid casting away const here
           char *ctmp = const_cast<char *> (outbuf.c_str ());
           for (octave_idx_type j = 8; j < ilen; j++)
             ctmp[j-8] = itmp(j).char_value ();
@@ -1633,7 +1653,7 @@
 
   return 0;
 
- data_write_error:
+data_write_error:
   return 1;
 }
 
@@ -1973,8 +1993,8 @@
         }
 
       // The code below is disabled since get_save_type currently doesn't
-      // deal with integer types. This will need to be activated if get_save_type
-      // is changed.
+      // deal with integer types.  This will need to be activated if
+      // get_save_type is changed.
 
       // double max_val = val[0];
       // double min_val = val[0];
@@ -2028,8 +2048,8 @@
 
 
       // The code below is disabled since get_save_type currently doesn't
-      // deal with integer types. This will need to be activated if get_save_type
-      // is changed.
+      // deal with integer types.  This will need to be activated if
+      // get_save_type is changed.
 
       // float max_val = val[0];
       // float min_val = val[0];
@@ -2377,7 +2397,9 @@
           OCTAVE_LOCAL_BUFFER (char, out_buf, destLen);
 
           if (compress (reinterpret_cast<Bytef *> (out_buf), &destLen,
-                        reinterpret_cast<const Bytef *> (buf_str.c_str ()), srcLen) == Z_OK)
+                        reinterpret_cast<const Bytef *> (buf_str.c_str ()),
+                                                         srcLen)
+              == Z_OK)
             {
               write_mat5_tag (os, miCOMPRESSED,
                               static_cast<octave_idx_type> (destLen));
@@ -2667,8 +2689,9 @@
 
       octave_map m;
 
-      if (tc.is_object () &&
-          load_path::find_method (tc.class_name (), "saveobj") != std::string ())
+      if (tc.is_object ()
+          && load_path::find_method (tc.class_name (),
+                                     "saveobj") != std::string ())
         {
           octave_value_list tmp = feval ("saveobj", tc, 1);
           if (! error_state)
@@ -2735,10 +2758,10 @@
   else
     gripe_wrong_type_arg ("save", tc, false);
 
- skip_to_next:
+skip_to_next:
   return true;
 
- error_cleanup:
+error_cleanup:
   error ("save: error while writing '%s' to MAT file", name.c_str ());
 
   return false;
--- a/libinterp/corefcn/ls-mat5.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-mat5.h	Tue Nov 05 12:27:42 2013 -0500
@@ -24,26 +24,26 @@
 #define octave_ls_mat5_h 1
 
 enum mat5_data_type
-  {
-    miINT8 = 1,                 // 8 bit signed
-    miUINT8,                    // 8 bit unsigned
-    miINT16,                    // 16 bit signed
-    miUINT16,                   // 16 bit unsigned
-    miINT32,                    // 32 bit signed
-    miUINT32,                   // 32 bit unsigned
-    miSINGLE,                   // IEEE 754 single precision float
-    miRESERVE1,
-    miDOUBLE,                   // IEEE 754 double precision float
-    miRESERVE2,
-    miRESERVE3,
-    miINT64,                    // 64 bit signed
-    miUINT64,                   // 64 bit unsigned
-    miMATRIX,                   // MATLAB array
-    miCOMPRESSED,               // Compressed data
-    miUTF8,                     // Unicode UTF-8 Encoded Character Data
-    miUTF16,                    // Unicode UTF-16 Encoded Character Data
-    miUTF32                     // Unicode UTF-32 Encoded Character Data
-  };
+{
+  miINT8 = 1,                 // 8 bit signed
+  miUINT8,                    // 8 bit unsigned
+  miINT16,                    // 16 bit signed
+  miUINT16,                   // 16 bit unsigned
+  miINT32,                    // 32 bit signed
+  miUINT32,                   // 32 bit unsigned
+  miSINGLE,                   // IEEE 754 single precision float
+  miRESERVE1,
+  miDOUBLE,                   // IEEE 754 double precision float
+  miRESERVE2,
+  miRESERVE3,
+  miINT64,                    // 64 bit signed
+  miUINT64,                   // 64 bit unsigned
+  miMATRIX,                   // MATLAB array
+  miCOMPRESSED,               // Compressed data
+  miUTF8,                     // Unicode UTF-8 Encoded Character Data
+  miUTF16,                    // Unicode UTF-16 Encoded Character Data
+  miUTF32                     // Unicode UTF-32 Encoded Character Data
+};
 
 extern int
 read_mat5_binary_file_header (std::istream& is, bool& swap,
--- a/libinterp/corefcn/ls-oct-ascii.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/ls-oct-ascii.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -224,7 +224,7 @@
 //  # length: 5
 //  array
 //
-// FIXME -- this format is fairly rigid, and doesn't allow for
+// FIXME: this format is fairly rigid, and doesn't allow for
 // arbitrary comments.  Someone should fix that. It does allow arbitrary
 // types however.
 
@@ -306,7 +306,7 @@
 //
 // Returns 1 for success and 0 for failure.
 
-// FIXME -- should probably write the help string here too.
+// FIXME: should probably write the help string here too.
 
 bool
 save_ascii_data (std::ostream& os, const octave_value& val_arg,
@@ -416,7 +416,7 @@
 }
 
 DEFUN (save_precision, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} save_precision ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} save_precision (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} save_precision (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/lsode.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/lsode.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -157,7 +157,7 @@
   while (0)
 
 DEFUN (lsode, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{x}, @var{istate}, @var{msg}] =} lsode (@var{fcn}, @var{x_0}, @var{t})\n\
 @deftypefnx {Built-in Function} {[@var{x}, @var{istate}, @var{msg}] =} lsode (@var{fcn}, @var{x_0}, @var{t}, @var{t_crit})\n\
 Solve the set of differential equations\n\
@@ -310,8 +310,8 @@
                   fname = "function y = ";
                   fname.append (fcn_name);
                   fname.append (" (x, t) y = ");
-                  lsode_fcn = extract_function
-                    (c(0), "lsode", fcn_name, fname, "; endfunction");
+                  lsode_fcn = extract_function (c(0), "lsode", fcn_name, fname,
+                                                "; endfunction");
                 }
 
               if (lsode_fcn)
@@ -320,12 +320,12 @@
                     lsode_jac = c(1).function_value ();
                   else
                     {
-                        jac_name = unique_symbol_name ("__lsode_jac__");
-                        jname = "function jac = ";
-                        jname.append (jac_name);
-                        jname.append (" (x, t) jac = ");
-                        lsode_jac = extract_function
-                          (c(1), "lsode", jac_name, jname, "; endfunction");
+                      jac_name = unique_symbol_name ("__lsode_jac__");
+                      jname = "function jac = ";
+                      jname.append (jac_name);
+                      jname.append (" (x, t) jac = ");
+                      lsode_jac = extract_function (c(1), "lsode", jac_name,
+                                                    jname, "; endfunction");
 
                       if (!lsode_jac)
                         {
@@ -355,8 +355,8 @@
                       fname = "function y = ";
                       fname.append (fcn_name);
                       fname.append (" (x, t) y = ");
-                      lsode_fcn = extract_function
-                        (f_arg, "lsode", fcn_name, fname, "; endfunction");
+                      lsode_fcn = extract_function (f_arg, "lsode", fcn_name,
+                                                    fname, "; endfunction");
                     }
                   while (0);
                   break;
@@ -371,8 +371,8 @@
                         fname = "function y = ";
                         fname.append (fcn_name);
                         fname.append (" (x, t) y = ");
-                        lsode_fcn = extract_function
-                          (tmp(0), "lsode", fcn_name, fname, "; endfunction");
+                        lsode_fcn = extract_function (tmp(0), "lsode", fcn_name,
+                                                      fname, "; endfunction");
 
                         if (lsode_fcn)
                           {
@@ -380,9 +380,9 @@
                             jname = "function jac = ";
                             jname.append (jac_name);
                             jname.append (" (x, t) jac = ");
-                            lsode_jac = extract_function
-                              (tmp(1), "lsode", jac_name, jname,
-                              "; endfunction");
+                            lsode_jac = extract_function (tmp(1), "lsode",
+                                                          jac_name, jname,
+                                                          "; endfunction");
 
                             if (!lsode_jac)
                               {
@@ -397,7 +397,7 @@
 
                 default:
                   LSODE_ABORT1
-                    ("first arg should be a string or 2-element string array");
+                  ("first arg should be a string or 2-element string array");
                 }
             }
         }
--- a/libinterp/corefcn/lu.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/lu.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -62,7 +62,7 @@
 }
 
 DEFUN (lu, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{L}, @var{U}] =} lu (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{L}, @var{U}, @var{P}] =} lu (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{L}, @var{U}, @var{P}, @var{Q}] =} lu (@var{S})\n\
@@ -235,9 +235,9 @@
                     retval(1) = octave_value (fact.U (),
                                               MatrixType (MatrixType::Upper));
 
-                    retval(0) = octave_value (L,
-                        MatrixType (MatrixType::Permuted_Lower,
-                                    nr, fact.row_perm ()));
+                    retval(0)
+                      = octave_value (L, MatrixType (MatrixType::Permuted_Lower,
+                                                     nr, fact.row_perm ()));
                   }
               }
               break;
@@ -305,9 +305,9 @@
                     retval(1) = octave_value (fact.U (),
                                               MatrixType (MatrixType::Upper));
 
-                    retval(0) = octave_value (L,
-                        MatrixType (MatrixType::Permuted_Lower,
-                                    nr, fact.row_perm ()));
+                    retval(0)
+                      = octave_value (L, MatrixType (MatrixType::Permuted_Lower,
+                                                     nr, fact.row_perm ()));
                   }
               }
               break;
@@ -590,12 +590,12 @@
 {
   octave_idx_type m = l.rows (), k = u.rows (), n = u.columns ();
   return ((l.ndims () == 2 && u.ndims () == 2 && k == l.columns ())
-            && k == std::min (m, n) &&
-            (p.is_undefined () || p.rows () == m));
+          && k == std::min (m, n) &&
+          (p.is_undefined () || p.rows () == m));
 }
 
 DEFUN (luupdate, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{L}, @var{U}] =} luupdate (@var{L}, @var{U}, @var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {[@var{L}, @var{U}, @var{P}] =} luupdate (@var{L}, @var{U}, @var{P}, @var{x}, @var{y})\n\
 Given an LU@tie{}factorization of a real or complex matrix\n\
--- a/libinterp/corefcn/luinc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/luinc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -38,7 +38,7 @@
 #include "ov-cx-sparse.h"
 
 DEFUN (luinc, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{L}, @var{U}, @var{P}, @var{Q}] =} luinc (@var{A}, '0')\n\
 @deftypefnx {Built-in Function} {[@var{L}, @var{U}, @var{P}, @var{Q}] =} luinc (@var{A}, @var{droptol})\n\
 @deftypefnx {Built-in Function} {[@var{L}, @var{U}, @var{P}, @var{Q}] =} luinc (@var{A}, @var{opts})\n\
@@ -217,11 +217,13 @@
                           {
                             SparseMatrix P = fact.Pr ();
                             SparseMatrix L = P.transpose () * fact.L ();
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (L, MatrixType
-                                                      (MatrixType::Permuted_Lower,
-                                                       sm_nr, fact.row_perm ()));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (L, MatrixType
+                                                   (MatrixType::Permuted_Lower,
+                                                    sm_nr, fact.row_perm ()));
                           }
                       }
                       break;
@@ -237,10 +239,12 @@
                               retval(2) = fact.Pr_vec ();
                             else
                               retval(2) = fact.Pr_mat ();
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (fact.L (),
-                                                      MatrixType (MatrixType::Lower));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (fact.L (),
+                                              MatrixType (MatrixType::Lower));
                           }
                       }
                       break;
@@ -263,10 +267,12 @@
                                 retval(3) = fact.Pc_mat ();
                                 retval(2) = fact.Pr_mat ();
                               }
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (fact.L (),
-                                                      MatrixType (MatrixType::Lower));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (fact.L (),
+                                              MatrixType (MatrixType::Lower));
                           }
                       }
                       break;
@@ -300,11 +306,13 @@
                           {
                             SparseMatrix P = fact.Pr ();
                             SparseComplexMatrix L = P.transpose () * fact.L ();
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (L, MatrixType
-                                                      (MatrixType::Permuted_Lower,
-                                                       sm_nr, fact.row_perm ()));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (L, MatrixType
+                                                  (MatrixType::Permuted_Lower,
+                                                   sm_nr, fact.row_perm ()));
                           }
                       }
                       break;
@@ -320,10 +328,12 @@
                               retval(2) = fact.Pr_vec ();
                             else
                               retval(2) = fact.Pr_mat ();
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (fact.L (),
-                                                      MatrixType (MatrixType::Lower));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (fact.L (),
+                                              MatrixType (MatrixType::Lower));
                           }
                       }
                       break;
@@ -346,10 +356,12 @@
                                 retval(3) = fact.Pc_mat ();
                                 retval(2) = fact.Pr_mat ();
                               }
-                            retval(1) = octave_value (fact.U (),
-                                                      MatrixType (MatrixType::Upper));
-                            retval(0) = octave_value (fact.L (),
-                                                      MatrixType (MatrixType::Lower));
+                            retval(1)
+                              = octave_value (fact.U (),
+                                              MatrixType (MatrixType::Upper));
+                            retval(0)
+                              = octave_value (fact.L (),
+                                              MatrixType (MatrixType::Lower));
                           }
                       }
                       break;
--- a/libinterp/corefcn/mappers.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/mappers.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 #include "variables.h"
 
 DEFUN (abs, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} abs (@var{z})\n\
 Compute the magnitude of @var{z}, defined as\n\
 @tex\n\
@@ -84,7 +84,7 @@
 */
 
 DEFUN (acos, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} acos (@var{x})\n\
 Compute the inverse cosine in radians for each element of @var{x}.\n\
 @seealso{cos, acosd}\n\
@@ -119,7 +119,7 @@
 */
 
 DEFUN (acosh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} acosh (@var{x})\n\
 Compute the inverse hyperbolic cosine for each element of @var{x}.\n\
 @seealso{cosh}\n\
@@ -150,7 +150,7 @@
 */
 
 DEFUN (angle, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} angle (@var{z})\n\
 See arg.\n\
 @end deftypefn")
@@ -165,7 +165,7 @@
 }
 
 DEFUN (arg, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} arg (@var{z})\n\
 @deftypefnx {Mapping Function} {} angle (@var{z})\n\
 Compute the argument of @var{z}, defined as,\n\
@@ -220,7 +220,7 @@
 */
 
 DEFUN (asin, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} asin (@var{x})\n\
 Compute the inverse sine in radians for each element of @var{x}.\n\
 @seealso{sin, asind}\n\
@@ -248,7 +248,7 @@
 */
 
 DEFUN (asinh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} asinh (@var{x})\n\
 Compute the inverse hyperbolic sine for each element of @var{x}.\n\
 @seealso{sinh}\n\
@@ -279,7 +279,7 @@
 */
 
 DEFUN (atan, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} atan (@var{x})\n\
 Compute the inverse tangent in radians for each element of @var{x}.\n\
 @seealso{tan, atand}\n\
@@ -314,7 +314,7 @@
 */
 
 DEFUN (atanh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} atanh (@var{x})\n\
 Compute the inverse hyperbolic tangent for each element of @var{x}.\n\
 @seealso{tanh}\n\
@@ -345,7 +345,7 @@
 */
 
 DEFUN (cbrt, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} cbrt (@var{x})\n\
 Compute the real cube root of each element of @var{x}.\n\
 Unlike @code{@var{x}^(1/3)}, the result will be negative if @var{x} is\n\
@@ -377,7 +377,7 @@
 */
 
 DEFUN (ceil, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} ceil (@var{x})\n\
 Return the smallest integer not less than @var{x}.  This is equivalent to\n\
 rounding towards positive infinity.  If @var{x} is\n\
@@ -419,7 +419,7 @@
 */
 
 DEFUN (conj, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} conj (@var{z})\n\
 Return the complex conjugate of @var{z}, defined as\n\
 @tex\n\
@@ -458,7 +458,7 @@
 */
 
 DEFUN (cos, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} cos (@var{x})\n\
 Compute the cosine for each element of @var{x} in radians.\n\
 @seealso{acos, cosd, cosh}\n\
@@ -495,7 +495,7 @@
 */
 
 DEFUN (cosh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} cosh (@var{x})\n\
 Compute the hyperbolic cosine for each element of @var{x}.\n\
 @seealso{acosh, sinh, tanh}\n\
@@ -526,7 +526,7 @@
 */
 
 DEFUN (erf, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erf (@var{z})\n\
 Compute the error function,\n\
 @tex\n\
@@ -596,7 +596,7 @@
 */
 
 DEFUN (erfinv, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erfinv (@var{x})\n\
 Compute the inverse error function, i.e., @var{y} such that\n\
 \n\
@@ -634,7 +634,7 @@
 */
 
 DEFUN (erfcinv, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erfcinv (@var{x})\n\
 Compute the inverse complementary error function, i.e., @var{y} such that\n\
 \n\
@@ -672,7 +672,7 @@
 */
 
 DEFUN (erfc, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erfc (@var{z})\n\
 Compute the complementary error function,\n\
 @tex\n\
@@ -703,7 +703,7 @@
 */
 
 DEFUN (erfcx, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erfcx (@var{z})\n\
 Compute the scaled complementary error function,\n\
 @tex\n\
@@ -746,7 +746,7 @@
 */
 
 DEFUN (erfi, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} erfi (@var{z})\n\
 Compute the imaginary error function,\n\
 @tex\n\
@@ -784,7 +784,7 @@
 */
 
 DEFUN (dawson, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} dawson (@var{z})\n\
 Compute the Dawson (scaled imaginary error) function,\n\
 @tex\n\
@@ -824,7 +824,7 @@
 */
 
 DEFUN (exp, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} exp (@var{x})\n\
 Compute\n\
 @tex\n\
@@ -861,7 +861,7 @@
 */
 
 DEFUN (expm1, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} expm1 (@var{x})\n\
 Compute\n\
 @tex\n\
@@ -894,7 +894,7 @@
 */
 
 DEFUN (isfinite, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} isfinite (@var{x})\n\
 @deftypefnx {Mapping Function} {} finite (@var{x})\n\
 Return a logical array which is true where the elements of @var{x} are\n\
@@ -933,7 +933,7 @@
 */
 
 DEFUN (fix, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} fix (@var{x})\n\
 Truncate fractional portion of @var{x} and return the integer portion.  This\n\
 is equivalent to rounding towards zero.  If @var{x} is complex, return\n\
@@ -968,7 +968,7 @@
 */
 
 DEFUN (floor, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} floor (@var{x})\n\
 Return the largest integer not greater than @var{x}.  This is equivalent to\n\
 rounding towards negative infinity.  If @var{x} is\n\
@@ -1003,7 +1003,7 @@
 */
 
 DEFUN (gamma, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} gamma (@var{z})\n\
 Compute the Gamma function,\n\
 @tex\n\
@@ -1067,7 +1067,7 @@
 */
 
 DEFUN (imag, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} imag (@var{z})\n\
 Return the imaginary part of @var{z} as a real number.\n\
 @seealso{real, conj}\n\
@@ -1098,7 +1098,7 @@
 */
 
 DEFUNX ("isalnum", Fisalnum, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isalnum (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 letters or digits and false where they are not.  This is equivalent to\n\
@@ -1129,7 +1129,7 @@
 */
 
 DEFUNX ("isalpha", Fisalpha, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isalpha (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 letters and false where they are not.  This is equivalent to\n\
@@ -1159,7 +1159,7 @@
 */
 
 DEFUNX ("isascii", Fisascii, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isascii (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 ASCII characters (in the range 0 to 127 decimal) and false where they are\n\
@@ -1186,7 +1186,7 @@
 */
 
 DEFUNX ("iscntrl", Fiscntrl, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} iscntrl (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 control characters and false where they are not.\n\
@@ -1215,7 +1215,7 @@
 */
 
 DEFUNX ("isdigit", Fisdigit, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isdigit (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 decimal digits (0-9) and false where they are not.\n\
@@ -1243,7 +1243,7 @@
 */
 
 DEFUN (isinf, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isinf (@var{x})\n\
 Return a logical array which is true where the elements of @var{x} are\n\
 are infinite and false where they are not.\n\
@@ -1285,7 +1285,7 @@
 */
 
 DEFUNX ("isgraph", Fisgraph, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isgraph (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 printable characters (but not the space character) and false where they are\n\
@@ -1314,7 +1314,7 @@
 */
 
 DEFUNX ("islower", Fislower, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} islower (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 lowercase letters and false where they are not.\n\
@@ -1342,7 +1342,7 @@
 */
 
 DEFUN (isna, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isna (@var{x})\n\
 Return a logical array which is true where the elements of @var{x} are\n\
 NA (missing) values and false where they are not.\n\
@@ -1384,7 +1384,7 @@
 */
 
 DEFUN (isnan, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isnan (@var{x})\n\
 Return a logical array which is true where the elements of @var{x} are\n\
 NaN values and false where they are not.\n\
@@ -1426,7 +1426,7 @@
 */
 
 DEFUNX ("isprint", Fisprint, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isprint (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 printable characters (including the space character) and false where they\n\
@@ -1455,7 +1455,7 @@
 */
 
 DEFUNX ("ispunct", Fispunct, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} ispunct (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 punctuation characters and false where they are not.\n\
@@ -1486,7 +1486,7 @@
 */
 
 DEFUNX ("isspace", Fisspace, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isspace (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 whitespace characters (space, formfeed, newline, carriage return, tab, and\n\
@@ -1515,7 +1515,7 @@
 */
 
 DEFUNX ("isupper", Fisupper, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isupper (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 uppercase letters and false where they are not.\n\
@@ -1543,7 +1543,7 @@
 */
 
 DEFUNX ("isxdigit", Fisxdigit, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isxdigit (@var{s})\n\
 Return a logical array which is true where the elements of @var{s} are\n\
 hexadecimal digits (0-9 and @nospell{a-fA-F}).\n\
@@ -1573,7 +1573,7 @@
 */
 
 DEFUN (lgamma, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} lgamma (@var{x})\n\
 @deftypefnx {Mapping Function} {} gammaln (@var{x})\n\
 Return the natural logarithm of the gamma function of @var{x}.\n\
@@ -1619,7 +1619,7 @@
 */
 
 DEFUN (log, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} log (@var{x})\n\
 Compute the natural logarithm,\n\
 @tex\n\
@@ -1654,7 +1654,7 @@
 */
 
 DEFUN (log10, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} log10 (@var{x})\n\
 Compute the base-10 logarithm of each element of @var{x}.\n\
 @seealso{log, log2, logspace, exp}\n\
@@ -1678,7 +1678,7 @@
 */
 
 DEFUN (log1p, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} log1p (@var{x})\n\
 Compute\n\
 @tex\n\
@@ -1709,7 +1709,7 @@
 */
 
 DEFUN (real, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} real (@var{z})\n\
 Return the real part of @var{z}.\n\
 @seealso{imag, conj}\n\
@@ -1740,7 +1740,7 @@
 */
 
 DEFUN (round, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} round (@var{x})\n\
 Return the integer nearest to @var{x}.  If @var{x} is complex, return\n\
 @code{round (real (@var{x})) + round (imag (@var{x})) * I}.  If there\n\
@@ -1786,7 +1786,7 @@
 */
 
 DEFUN (roundb, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} roundb (@var{x})\n\
 Return the integer nearest to @var{x}.  If there are two nearest\n\
 integers, return the even one (banker's rounding).  If @var{x} is complex,\n\
@@ -1827,7 +1827,7 @@
 */
 
 DEFUN (sign, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} sign (@var{x})\n\
 Compute the @dfn{signum} function, which is defined as\n\
 @tex\n\
@@ -1881,7 +1881,7 @@
 */
 
 DEFUNX ("signbit", Fsignbit, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} signbit (@var{x})\n\
 Return logical true if the value of @var{x} has its sign bit set.\n\
 Otherwise return logical false.  This behavior is consistent with the other\n\
@@ -1895,9 +1895,11 @@
 @end deftypefn")
 {
   octave_value retval;
-  if (args.length () == 1) {
-    retval = args(0).xsignbit ();
-    retval = (retval != 0); }
+  if (args.length () == 1)
+    {
+      retval = args(0).xsignbit ();
+      retval = (retval != 0);
+    }
   else
     print_usage ();
 
@@ -1920,7 +1922,7 @@
 */
 
 DEFUN (sin, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} sin (@var{x})\n\
 Compute the sine for each element of @var{x} in radians.\n\
 @seealso{asin, sind, sinh}\n\
@@ -1955,7 +1957,7 @@
 */
 
 DEFUN (sinh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} sinh (@var{x})\n\
 Compute the hyperbolic sine for each element of @var{x}.\n\
 @seealso{asinh, cosh, tanh}\n\
@@ -1986,7 +1988,7 @@
 */
 
 DEFUN (sqrt, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} sqrt (@var{x})\n\
 Compute the square root of each element of @var{x}.  If @var{x} is negative,\n\
 a complex result is returned.  To compute the matrix square root, see\n\
@@ -2019,7 +2021,7 @@
 */
 
 DEFUN (tan, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} tan (@var{z})\n\
 Compute the tangent for each element of @var{x} in radians.\n\
 @seealso{atan, tand, tanh}\n\
@@ -2054,7 +2056,7 @@
 */
 
 DEFUN (tanh, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} tanh (@var{x})\n\
 Compute hyperbolic tangent for each element of @var{x}.\n\
 @seealso{atanh, sinh, cosh}\n\
@@ -2085,7 +2087,7 @@
 */
 
 DEFUNX ("toascii", Ftoascii, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} toascii (@var{s})\n\
 Return ASCII representation of @var{s} in a matrix.  For example:\n\
 \n\
@@ -2121,7 +2123,7 @@
 */
 
 DEFUNX ("tolower", Ftolower, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} tolower (@var{s})\n\
 @deftypefnx {Mapping Function} {} lower (@var{s})\n\
 Return a copy of the string or cell string @var{s}, with each uppercase\n\
@@ -2172,7 +2174,7 @@
 */
 
 DEFUNX ("toupper", Ftoupper, args, ,
-    "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Mapping Function} {} toupper (@var{s})\n\
 @deftypefnx {Mapping Function} {} upper (@var{s})\n\
 Return a copy of the string or cell string @var{s}, with each lowercase\n\
--- a/libinterp/corefcn/matrix_type.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/matrix_type.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 #include "oct-locbuf.h"
 
 DEFUN (matrix_type, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{type} =} matrix_type (@var{A})\n\
 @deftypefnx {Built-in Function} {@var{type} =} matrix_type (@var{A}, \"nocompute\")\n\
 @deftypefnx {Built-in Function} {@var{A} =} matrix_type (@var{A}, @var{type})\n\
@@ -124,7 +124,8 @@
   else
     {
       bool autocomp = true;
-      if (nargin == 2 && args(1).is_string () && args(1).string_value () == "nocompute")
+      if (nargin == 2 && args(1).is_string ()
+          && args(1).string_value () == "nocompute")
         {
           nargin = 1;
           autocomp = false;
@@ -214,7 +215,7 @@
               // Ok, we're changing the matrix type
               std::string str_typ = args(1).string_value ();
 
-              // FIXME -- why do I have to explicitly call the constructor?
+              // FIXME: why do I have to explicitly call the constructor?
               MatrixType mattyp = MatrixType ();
 
               octave_idx_type nl = 0;
@@ -236,7 +237,8 @@
                     mattyp.mark_as_upper_triangular ();
                   else if (str_typ == "lower")
                     mattyp.mark_as_lower_triangular ();
-                  else if (str_typ == "banded" || str_typ == "banded positive definite")
+                  else if (str_typ == "banded"
+                           || str_typ == "banded positive definite")
                     {
                       if (nargin != 4)
                         error ("matrix_type: banded matrix type requires 4 arguments");
@@ -275,7 +277,8 @@
 
                   if (! error_state)
                     {
-                      if (nargin == 3 && (str_typ == "upper" || str_typ == "lower"))
+                      if (nargin == 3
+                          && (str_typ == "upper" || str_typ == "lower"))
                         {
                           const ColumnVector perm =
                             ColumnVector (args (2).vector_value ());
@@ -294,7 +297,9 @@
                                   OCTAVE_LOCAL_BUFFER (octave_idx_type, p, len);
 
                                   for (octave_idx_type i = 0; i < len; i++)
-                                    p[i] = static_cast<octave_idx_type> (perm (i)) - 1;
+                                    p[i] = static_cast<octave_idx_type>
+                                           (perm (i))
+                                           - 1;
 
                                   if (str_typ == "upper")
                                     mattyp.mark_as_permuted (len, p);
@@ -303,8 +308,9 @@
                                 }
                             }
                         }
-                      else if (nargin != 2 && str_typ != "banded positive definite" &&
-                               str_typ != "banded")
+                      else if (nargin != 2
+                               && str_typ != "banded positive definite"
+                               && str_typ != "banded")
                         error ("matrix_type: Invalid number of arguments");
 
                       if (! error_state)
@@ -315,8 +321,9 @@
                               octave_value (args(0).sparse_complex_matrix_value (),
                                             mattyp);
                           else
-                            retval = octave_value (args(0).sparse_matrix_value (),
-                                                   mattyp);
+                            retval
+                              = octave_value (args(0).sparse_matrix_value (),
+                                              mattyp);
                         }
                     }
                 }
@@ -336,7 +343,8 @@
                     {
                       if (args(0).is_single_type ())
                         {
-                          FloatComplexMatrix m = args(0).float_complex_matrix_value ();
+                          FloatComplexMatrix m;
+                          m = args(0).float_complex_matrix_value ();
                           if (!error_state)
                             {
                               mattyp = MatrixType (m);
@@ -410,7 +418,7 @@
               // Ok, we're changing the matrix type
               std::string str_typ = args(1).string_value ();
 
-              // FIXME -- why do I have to explicitly call the constructor?
+              // FIXME: why do I have to explicitly call the constructor?
               MatrixType mattyp = MatrixType (MatrixType::Unknown, true);
 
               if (error_state)
@@ -437,7 +445,8 @@
                   else if (str_typ == "unknown")
                     mattyp.invalidate_type ();
                   else
-                    error ("matrix_type: Unknown matrix type %s", str_typ.c_str ());
+                    error ("matrix_type: Unknown matrix type %s",
+                           str_typ.c_str ());
 
                   if (! error_state)
                     {
@@ -461,7 +470,9 @@
                                   OCTAVE_LOCAL_BUFFER (octave_idx_type, p, len);
 
                                   for (octave_idx_type i = 0; i < len; i++)
-                                    p[i] = static_cast<octave_idx_type> (perm (i)) - 1;
+                                    p[i] = static_cast<octave_idx_type>
+                                           (perm (i))
+                                           - 1;
 
                                   if (str_typ == "upper")
                                     mattyp.mark_as_permuted (len, p);
@@ -480,23 +491,23 @@
                             {
                               if (args(0).is_complex_type ())
                                 retval = octave_value
-                                  (args(0).float_complex_matrix_value (),
-                                   mattyp);
+                                         (args(0).float_complex_matrix_value (),
+                                          mattyp);
                               else
                                 retval = octave_value
-                                  (args(0).float_matrix_value (),
-                                   mattyp);
+                                         (args(0).float_matrix_value (),
+                                          mattyp);
                             }
                           else
                             {
                               if (args(0).is_complex_type ())
                                 retval = octave_value
-                                  (args(0).complex_matrix_value (),
-                                   mattyp);
+                                         (args(0).complex_matrix_value (),
+                                          mattyp);
                               else
                                 retval = octave_value
-                                  (args(0).matrix_value (),
-                                   mattyp);
+                                         (args(0).matrix_value (),
+                                          mattyp);
                             }
                         }
                     }
--- a/libinterp/corefcn/max.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/max.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -294,17 +294,20 @@
                   {
                     retval(0) = range.min ();
                     if (nargout > 1)
-                      retval(1) = static_cast<double> (range.inc () < 0 ? range.nelem () : 1);
+                      retval(1) = static_cast<double>
+                                  (range.inc () < 0 ? range.nelem () : 1);
                   }
                 else
                   {
                     retval(0) = range.max ();
                     if (nargout > 1)
-                      retval(1) = static_cast<double> (range.inc () >= 0 ? range.nelem () : 1);
+                      retval(1) = static_cast<double>
+                                  (range.inc () >= 0 ? range.nelem () : 1);
                   }
               }
             else if (arg.is_sparse_type ())
-              retval = do_minmax_red_op<SparseMatrix> (arg, nargout, dim, ismin);
+              retval = do_minmax_red_op<SparseMatrix> (arg, nargout, dim,
+                                                       ismin);
             else
               retval = do_minmax_red_op<NDArray> (arg, nargout, dim, ismin);
             break;
@@ -312,16 +315,19 @@
         case btyp_complex:
           {
             if (arg.is_sparse_type ())
-              retval = do_minmax_red_op<SparseComplexMatrix> (arg, nargout, dim, ismin);
+              retval = do_minmax_red_op<SparseComplexMatrix> (arg, nargout, dim,
+                                                              ismin);
             else
-              retval = do_minmax_red_op<ComplexNDArray> (arg, nargout, dim, ismin);
+              retval = do_minmax_red_op<ComplexNDArray> (arg, nargout, dim,
+                                                         ismin);
             break;
           }
         case btyp_float:
           retval = do_minmax_red_op<FloatNDArray> (arg, nargout, dim, ismin);
           break;
         case btyp_float_complex:
-          retval = do_minmax_red_op<FloatComplexNDArray> (arg, nargout, dim, ismin);
+          retval = do_minmax_red_op<FloatComplexNDArray> (arg, nargout, dim,
+                                                          ismin);
           break;
         case btyp_char:
           retval = do_minmax_red_op<charNDArray> (arg, nargout, dim, ismin);
@@ -344,7 +350,7 @@
           break;
         default:
           gripe_wrong_type_arg (func, arg);
-      }
+        }
     }
   else if (nargin == 2)
     {
@@ -373,7 +379,8 @@
             if ((argx.is_sparse_type ()
                  && (argy.is_sparse_type () || argy.is_scalar_type ()))
                 || (argy.is_sparse_type () && argx.is_scalar_type ()))
-              retval = do_minmax_bin_op<SparseComplexMatrix> (argx, argy, ismin);
+              retval = do_minmax_bin_op<SparseComplexMatrix> (argx, argy,
+                                                              ismin);
             else
               retval = do_minmax_bin_op<ComplexNDArray> (argx, argy, ismin);
             break;
@@ -412,7 +419,7 @@
 }
 
 DEFUN (min, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} min (@var{x})\n\
 @deftypefnx {Built-in Function} {} min (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} min (@var{x}, [], @var{dim})\n\
@@ -487,7 +494,7 @@
 */
 
 DEFUN (max, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} max (@var{x})\n\
 @deftypefnx {Built-in Function} {} max (@var{x}, @var{y})\n\
 @deftypefnx {Built-in Function} {} max (@var{x}, [], @var{dim})\n\
@@ -620,17 +627,20 @@
           retval = do_cumminmax_red_op<NDArray> (arg, nargout, dim, ismin);
           break;
         case btyp_complex:
-          retval = do_cumminmax_red_op<ComplexNDArray> (arg, nargout, dim, ismin);
+          retval = do_cumminmax_red_op<ComplexNDArray> (arg, nargout, dim,
+                                                        ismin);
           break;
         case btyp_float:
           retval = do_cumminmax_red_op<FloatNDArray> (arg, nargout, dim, ismin);
           break;
         case btyp_float_complex:
-          retval = do_cumminmax_red_op<FloatComplexNDArray> (arg, nargout, dim, ismin);
+          retval = do_cumminmax_red_op<FloatComplexNDArray> (arg, nargout, dim,
+                                                             ismin);
           break;
 #define MAKE_INT_BRANCH(X) \
         case btyp_ ## X: \
-          retval = do_cumminmax_red_op<X ## NDArray> (arg, nargout, dim, ismin); \
+          retval = do_cumminmax_red_op<X ## NDArray> (arg, nargout, dim, \
+                                                      ismin); \
           break;
         MAKE_INT_BRANCH (int8);
         MAKE_INT_BRANCH (int16);
@@ -643,14 +653,15 @@
 #undef MAKE_INT_BRANCH
         case btyp_bool:
           {
-            retval = do_cumminmax_red_op<int8NDArray> (arg, nargout, dim, ismin);
+            retval = do_cumminmax_red_op<int8NDArray> (arg, nargout, dim,
+                                                       ismin);
             if (retval.length () > 0)
               retval(0) = retval(0).bool_array_value ();
             break;
           }
         default:
           gripe_wrong_type_arg (func, arg);
-      }
+        }
     }
   else
     print_usage ();
@@ -659,7 +670,7 @@
 }
 
 DEFUN (cummin, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cummin (@var{x})\n\
 @deftypefnx {Built-in Function} {} cummin (@var{x}, @var{dim})\n\
 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} cummin (@var{x})\n\
@@ -713,7 +724,7 @@
 */
 
 DEFUN (cummax, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cummax (@var{x})\n\
 @deftypefnx {Built-in Function} {} cummax (@var{x}, @var{dim})\n\
 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} cummax (@dots{})\n\
--- a/libinterp/corefcn/md5sum.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/md5sum.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 #include "oct-md5.h"
 
 DEFUN (md5sum, args, ,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} md5sum (@var{file})\n\
 @deftypefnx {Built-in Function} {} md5sum (@var{str}, @var{opt})\n\
 Calculate the MD5 sum of the file @var{file}.  If the second parameter\n\
--- a/libinterp/corefcn/mex.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/mex.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -97,7 +97,7 @@
         }
     }
 
- done:
+done:
 
   return retval;
 }
@@ -168,7 +168,39 @@
 
   mxArray *as_mxArray (void) const
   {
-    return val.as_mxArray ();
+    mxArray *retval = val.as_mxArray ();
+
+    // RETVAL is assumed to be an mxArray_matlab object.  Should we
+    // assert that condition here?
+
+    if (retval)
+      {
+        // Preserve cached values of class name and dimensions in case
+        // they will be used after we mutate.
+
+        // set_class_name will handle deleting class name that comes
+        // from as_mxArray conversion function.
+
+        if (class_name)
+          {
+            retval->set_class_name (class_name);
+
+            class_name = 0;
+          }
+
+        if (dims)
+          {
+            mwSize *xdims = retval->get_dimensions ();
+
+            mxFree (xdims);
+
+            retval->set_dimensions (dims, ndims);
+
+            dims = 0;
+          }
+      }
+
+    return retval;
   }
 
   ~mxArray_octave_value (void)
@@ -245,7 +277,8 @@
       {
         ndims = val.ndims ();
 
-        dims = static_cast<mwSize *> (mxArray::malloc (ndims * sizeof (mwSize)));
+        dims = static_cast<mwSize *> (mxArray::malloc (ndims
+                                                       * sizeof (mwSize)));
 
         dim_vector dv = val.dims ();
 
@@ -410,7 +443,8 @@
   }
 
   // Not allowed.
-  void set_field_by_number (mwIndex /*index*/, int /*key_num*/, mxArray */*val*/)
+  void set_field_by_number (mwIndex /*index*/, int /*key_num*/,
+                            mxArray */*val*/)
   {
     request_mutation ();
   }
@@ -454,8 +488,7 @@
 
   char *array_to_string (void) const
   {
-    // FIXME -- this is suposed to handle multi-byte character
-    // strings.
+    // FIXME: this is suposed to handle multi-byte character strings.
 
     char *buf = 0;
 
@@ -525,7 +558,7 @@
     mutate_flag = true;
   }
 
-  mxArray *mutate (void) const { return val.as_mxArray (); }
+  mxArray *mutate (void) const { return as_mxArray (); }
 
   octave_value as_octave_value (void) const { return val; }
 
@@ -535,7 +568,9 @@
     : mxArray_base (arg), val (arg.val), mutate_flag (arg.mutate_flag),
       id (arg.id), class_name (mxArray::strsave (arg.class_name)),
       ndims (arg.ndims),
-      dims (ndims > 0 ? static_cast<mwSize *> (mxArray::malloc (ndims * sizeof (mwSize))) : 0)
+      dims (ndims > 0 ? static_cast<mwSize *>
+                         (mxArray::malloc (ndims * sizeof (mwSize)))
+                      : 0)
   {
     if (dims)
       {
@@ -559,7 +594,7 @@
   mutable mwSize ndims;
   mutable mwSize *dims;
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_octave_value& operator = (const mxArray_octave_value&);
@@ -839,7 +874,8 @@
     return 0;
   }
 
-  void set_field_by_number (mwIndex /*index*/, int /*key_num*/, mxArray */*val*/)
+  void set_field_by_number (mwIndex /*index*/, int /*key_num*/,
+                            mxArray */*val*/)
   {
     invalid_type_error ();
   }
@@ -942,7 +978,7 @@
     error ("invalid type for operation");
   }
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_matlab& operator = (const mxArray_matlab&);
@@ -958,18 +994,25 @@
                   mxComplexity flag = mxREAL)
     : mxArray_matlab (id_arg, ndims_arg, dims_arg),
       pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
-      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
+      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (),
+                                               get_element_size ())
+                            : 0) { }
 
   mxArray_number (mxClassID id_arg, const dim_vector& dv,
                   mxComplexity flag = mxREAL)
     : mxArray_matlab (id_arg, dv),
       pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
-      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
-
-  mxArray_number (mxClassID id_arg, mwSize m, mwSize n, mxComplexity flag = mxREAL)
+      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (),
+                                               get_element_size ())
+                            : 0) { }
+
+  mxArray_number (mxClassID id_arg, mwSize m, mwSize n,
+                  mxComplexity flag = mxREAL)
     : mxArray_matlab (id_arg, m, n),
       pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
-      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
+      pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (),
+                                               get_element_size ())
+                            : 0) { }
 
   mxArray_number (mxClassID id_arg, double val)
     : mxArray_matlab (id_arg, 1, 1),
@@ -993,8 +1036,8 @@
     : mxArray_matlab (mxCHAR_CLASS,
                       str ? (strlen (str) ? 1 : 0) : 0,
                       str ? strlen (str) : 0),
-      pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
-      pi (0)
+    pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
+    pi (0)
   {
     mxChar *cpr = static_cast<mxChar *> (pr);
     mwSize nel = get_number_of_elements ();
@@ -1135,8 +1178,7 @@
 
   char *array_to_string (void) const
   {
-    // FIXME -- this is suposed to handle multi-byte character
-    // strings.
+    // FIXME: this is suposed to handle multi-byte character strings.
 
     mwSize nel = get_number_of_elements ();
 
@@ -1321,7 +1363,9 @@
   mxArray_number (const mxArray_number& val)
     : mxArray_matlab (val),
       pr (mxArray::malloc (get_number_of_elements () * get_element_size ())),
-      pi (val.pi ? mxArray::malloc (get_number_of_elements () * get_element_size ()) : 0)
+      pi (val.pi ? mxArray::malloc (get_number_of_elements ()
+                                    * get_element_size ())
+                 : 0)
   {
     size_t nbytes = get_number_of_elements () * get_element_size ();
 
@@ -1337,7 +1381,7 @@
   void *pr;
   void *pi;
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_number& operator = (const mxArray_number&);
@@ -1356,7 +1400,7 @@
       pi (flag == mxCOMPLEX ? mxArray::calloc (nzmax, get_element_size ()) : 0),
       ir (static_cast<mwIndex *> (mxArray::calloc (nzmax, sizeof (mwIndex)))),
       jc (static_cast<mwIndex *> (mxArray::calloc (n + 1, sizeof (mwIndex))))
-    { }
+  { }
 
   mxArray_base *dup (void) const { return new mxArray_sparse (*this); }
 
@@ -1504,7 +1548,7 @@
       memcpy (jc, val.jc, (val.get_n () + 1) * sizeof (mwIndex));
   }
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_sparse& operator = (const mxArray_sparse&);
@@ -1518,25 +1562,35 @@
 
   mxArray_struct (mwSize ndims_arg, const mwSize *dims_arg, int num_keys_arg,
                   const char **keys)
-    : mxArray_matlab (mxSTRUCT_CLASS, ndims_arg, dims_arg), nfields (num_keys_arg),
-      fields (static_cast<char **> (mxArray::calloc (nfields, sizeof (char *)))),
-      data (static_cast<mxArray **> (mxArray::calloc (nfields * get_number_of_elements (), sizeof (mxArray *))))
+    : mxArray_matlab (mxSTRUCT_CLASS, ndims_arg, dims_arg),
+      nfields (num_keys_arg),
+      fields (static_cast<char **> (mxArray::calloc (nfields,
+                                                     sizeof (char *)))),
+      data (static_cast<mxArray **> (mxArray::calloc (nfields *
+                                                      get_number_of_elements (),
+                                                      sizeof (mxArray *))))
   {
     init (keys);
   }
 
   mxArray_struct (const dim_vector& dv, int num_keys_arg, const char **keys)
     : mxArray_matlab (mxSTRUCT_CLASS, dv), nfields (num_keys_arg),
-      fields (static_cast<char **> (mxArray::calloc (nfields, sizeof (char *)))),
-      data (static_cast<mxArray **> (mxArray::calloc (nfields * get_number_of_elements (), sizeof (mxArray *))))
+      fields (static_cast<char **> (mxArray::calloc (nfields,
+                                                     sizeof (char *)))),
+      data (static_cast<mxArray **> (mxArray::calloc (nfields *
+                                                      get_number_of_elements (),
+                                                      sizeof (mxArray *))))
   {
     init (keys);
   }
 
   mxArray_struct (mwSize m, mwSize n, int num_keys_arg, const char **keys)
     : mxArray_matlab (mxSTRUCT_CLASS, m, n), nfields (num_keys_arg),
-      fields (static_cast<char **> (mxArray::calloc (nfields, sizeof (char *)))),
-      data (static_cast<mxArray **> (mxArray::calloc (nfields * get_number_of_elements (), sizeof (mxArray *))))
+      fields (static_cast<char **> (mxArray::calloc (nfields,
+                                                     sizeof (char *)))),
+      data (static_cast<mxArray **> (mxArray::calloc (nfields *
+                                                      get_number_of_elements (),
+                                                      sizeof (mxArray *))))
   {
     init (keys);
   }
@@ -1572,7 +1626,8 @@
       {
         nfields++;
 
-        fields = static_cast<char **> (mxRealloc (fields, nfields * sizeof (char *)));
+        fields = static_cast<char **>
+                  (mxRealloc (fields, nfields * sizeof (char *)));
 
         if (fields)
           {
@@ -1582,7 +1637,9 @@
 
             mwSize ntot = nfields * nel;
 
-            mxArray **new_data = static_cast<mxArray **> (mxArray::malloc (ntot * sizeof (mxArray *)));
+            mxArray **new_data;
+            new_data = static_cast<mxArray **>
+                        (mxArray::malloc (ntot * sizeof (mxArray *)));
 
             if (new_data)
               {
@@ -1623,9 +1680,12 @@
 
         int new_nfields = nfields - 1;
 
-        char **new_fields = static_cast<char **> (mxArray::malloc (new_nfields * sizeof (char *)));
-
-        mxArray **new_data = static_cast<mxArray **> (mxArray::malloc (new_nfields * nel * sizeof (mxArray *)));
+        char **new_fields = static_cast<char **>
+                             (mxArray::malloc (new_nfields * sizeof (char *)));
+
+        mxArray **new_data = static_cast<mxArray **>
+                              (mxArray::malloc (new_nfields * nel
+                                                * sizeof (mxArray *)));
 
         for (int i = 0; i < key_num; i++)
           new_fields[i] = fields[i];
@@ -1664,7 +1724,7 @@
   mxArray *get_field_by_number (mwIndex index, int key_num) const
   {
     return key_num >= 0 && key_num < nfields
-      ? data[nfields * index + key_num] : 0;
+           ? data[nfields * index + key_num] : 0;
   }
 
   void set_field_by_number (mwIndex index, int key_num, mxArray *val);
@@ -1732,8 +1792,11 @@
 
   mxArray_struct (const mxArray_struct& val)
     : mxArray_matlab (val), nfields (val.nfields),
-      fields (static_cast<char **> (mxArray::malloc (nfields * sizeof (char *)))),
-      data (static_cast<mxArray **> (mxArray::malloc (nfields * get_number_of_elements () * sizeof (mxArray *))))
+      fields (static_cast<char **> (mxArray::malloc (nfields
+                                                     * sizeof (char *)))),
+      data (static_cast<mxArray **> (mxArray::malloc (nfields *
+                                                      get_number_of_elements ()
+                                                      * sizeof (mxArray *))))
   {
     for (int i = 0; i < nfields; i++)
       fields[i] = mxArray::strsave (val.fields[i]);
@@ -1747,7 +1810,7 @@
       }
   }
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_struct& operator = (const mxArray_struct& val);
@@ -1761,15 +1824,18 @@
 
   mxArray_cell (mwSize ndims_arg, const mwSize *dims_arg)
     : mxArray_matlab (mxCELL_CLASS, ndims_arg, dims_arg),
-      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray *)))) { }
+      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
+                                     sizeof (mxArray *)))) { }
 
   mxArray_cell (const dim_vector& dv)
     : mxArray_matlab (mxCELL_CLASS, dv),
-      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray *)))) { }
+      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
+                                     sizeof (mxArray *)))) { }
 
   mxArray_cell (mwSize m, mwSize n)
     : mxArray_matlab (mxCELL_CLASS, m, n),
-      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray *)))) { }
+      data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
+                                     sizeof (mxArray *)))) { }
 
   mxArray_base *dup (void) const { return new mxArray_cell (*this); }
 
@@ -1816,7 +1882,8 @@
 
   mxArray_cell (const mxArray_cell& val)
     : mxArray_matlab (val),
-      data (static_cast<mxArray **> (mxArray::malloc (get_number_of_elements () * sizeof (mxArray *))))
+      data (static_cast<mxArray **> (mxArray::malloc (get_number_of_elements ()
+                                                      * sizeof (mxArray *))))
   {
     mwSize nel = get_number_of_elements ();
 
@@ -1827,7 +1894,7 @@
       }
   }
 
-  // No assignment!  FIXME -- should this be implemented?  Note that we
+  // No assignment!  FIXME: should this be implemented?  Note that we
   // do have a copy constructor.
 
   mxArray_cell& operator = (const mxArray_cell&);
@@ -1838,7 +1905,8 @@
 mxArray::mxArray (const octave_value& ov)
   : rep (new mxArray_octave_value (ov)), name (0) { }
 
-mxArray::mxArray (mxClassID id, mwSize ndims, const mwSize *dims, mxComplexity flag)
+mxArray::mxArray (mxClassID id, mwSize ndims, const mwSize *dims,
+                  mxComplexity flag)
   : rep (new mxArray_number (id, ndims, dims, flag)), name (0) { }
 
 mxArray::mxArray (mxClassID id, const dim_vector& dv, mxComplexity flag)
@@ -1859,10 +1927,12 @@
 mxArray::mxArray (mwSize m, const char **str)
   : rep (new mxArray_number (m, str)), name (0) { }
 
-mxArray::mxArray (mxClassID id, mwSize m, mwSize n, mwSize nzmax, mxComplexity flag)
+mxArray::mxArray (mxClassID id, mwSize m, mwSize n, mwSize nzmax,
+                  mxComplexity flag)
   : rep (new mxArray_sparse (id, m, n, nzmax, flag)), name (0) { }
 
-mxArray::mxArray (mwSize ndims, const mwSize *dims, int num_keys, const char **keys)
+mxArray::mxArray (mwSize ndims, const mwSize *dims, int num_keys,
+                  const char **keys)
   : rep (new mxArray_struct (ndims, dims, num_keys, keys)), name (0) { }
 
 mxArray::mxArray (const dim_vector& dv, int num_keys, const char **keys)
@@ -1992,7 +2062,7 @@
 
     if (! ptr)
       {
-        // FIXME -- could use "octave_new_handler();" instead
+        // FIXME: could use "octave_new_handler();" instead
 
         error ("%s: failed to allocate %d bytes of memory",
                function_name (), n);
@@ -2373,7 +2443,8 @@
 void *
 mxRealloc (void *ptr, size_t size)
 {
-  return mex_context ? mex_context->realloc (ptr, size) : gnulib::realloc (ptr, size);
+  return mex_context ? mex_context->realloc (ptr, size)
+                     : gnulib::realloc (ptr, size);
 }
 
 void
@@ -2454,7 +2525,8 @@
 }
 
 mxArray *
-mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id, mxComplexity flag)
+mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
+                       mxComplexity flag)
 {
   return maybe_mark_array (new mxArray (class_id, m, n, flag));
 }
@@ -2478,7 +2550,8 @@
 }
 
 mxArray *
-mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys, const char **keys)
+mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys,
+                     const char **keys)
 {
   return maybe_mark_array (new mxArray (ndims, dims, num_keys, keys));
 }
@@ -2696,8 +2769,8 @@
 void
 mxSetDimensions (mxArray *ptr, const mwSize *dims, mwSize ndims)
 {
-  ptr->set_dimensions (static_cast<mwSize *> (
-                         maybe_unmark (const_cast<mwSize *> (dims))),
+  ptr->set_dimensions (static_cast<mwSize *>
+                       (maybe_unmark (const_cast<mwSize *> (dims))),
                        ndims);
 }
 
@@ -2922,7 +2995,8 @@
 // ------------------------------------------------------------------
 
 typedef void (*cmex_fptr) (int nlhs, mxArray **plhs, int nrhs, mxArray **prhs);
-typedef F77_RET_T (*fmex_fptr) (int& nlhs, mxArray **plhs, int& nrhs, mxArray **prhs);
+typedef F77_RET_T (*fmex_fptr) (int& nlhs, mxArray **plhs,
+                                int& nrhs, mxArray **prhs);
 
 octave_value_list
 call_mex (bool have_fmex, void *f, const octave_value_list& args,
@@ -3014,7 +3088,7 @@
 {
   octave_value_list args;
 
-  // FIXME -- do we need unwind protect to clean up args?  Off hand, I
+  // FIXME: do we need unwind protect to clean up args?  Off hand, I
   // would say that this problem is endemic to Octave and we will
   // continue to have memory leaks after Ctrl-C until proper exception
   // handling is implemented.  longjmp() only clears the stack, so any
@@ -3029,7 +3103,7 @@
 
   if (error_state && mex_context->trap_feval_error == 0)
     {
-      // FIXME -- is this the correct way to clean up?  abort() is
+      // FIXME: is this the correct way to clean up?  abort() is
       // going to trigger a long jump, so the normal class destructors
       // will not be called.  Hopefully this will reduce things to a
       // tiny leak.  Maybe create a new octave memory tracer type
@@ -3048,7 +3122,7 @@
 
   for (int i = 0; i < num_to_copy; i++)
     {
-      // FIXME -- it would be nice to avoid copying the value here,
+      // FIXME: it would be nice to avoid copying the value here,
       // but there is no way to steal memory from a matrix, never mind
       // that matrix memory is allocated by new[] and mxArray memory
       // is allocated by malloc().
@@ -3143,8 +3217,8 @@
 void
 mexWarnMsgIdAndTxt (const char *id, const char *fmt, ...)
 {
-  // FIXME -- is this right?  What does Matlab do if fmt is NULL or
-  // an empty string?
+  // FIXME: is this right?  What does Matlab do if fmt is NULL or
+  //        an empty string?
 
   if (fmt && strlen (fmt) > 0)
     {
@@ -3181,7 +3255,7 @@
     val = get_global_value (name);
   else
     {
-      // FIXME -- should this be in variables.cc?
+      // FIXME: should this be in variables.cc?
 
       unwind_protect frame;
 
@@ -3244,7 +3318,7 @@
     set_global_value (name, mxArray::as_octave_value (ptr));
   else
     {
-      // FIXME -- should this be in variables.cc?
+      // FIXME: should this be in variables.cc?
 
       unwind_protect frame;
 
--- a/libinterp/corefcn/mexproto.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/mexproto.h	Tue Nov 05 12:27:42 2013 -0500
@@ -74,18 +74,24 @@
 /* Interface to the interpreter.  */
 extern OCTINTERP_API const char *mexFunctionName (void);
 
-extern OCTINTERP_API int mexCallMATLAB (int nargout, mxArray *argout[], int nargin, mxArray *argin[], const char *fname);
+extern OCTINTERP_API int mexCallMATLAB (int nargout, mxArray *argout[],
+                                        int nargin, mxArray *argin[],
+                                        const char *fname);
 
 extern OCTINTERP_API void mexSetTrapFlag (int flag);
 extern OCTINTERP_API int mexEvalString (const char *s);
 extern OCTINTERP_API void mexErrMsgTxt (const char *s);
-extern OCTINTERP_API void mexErrMsgIdAndTxt (const char *id, const char *s, ...);
+extern OCTINTERP_API void mexErrMsgIdAndTxt (const char *id, const char *s,
+                                             ...);
 extern OCTINTERP_API void mexWarnMsgTxt (const char *s);
-extern OCTINTERP_API void mexWarnMsgIdAndTxt (const char *id, const char *s, ...);
+extern OCTINTERP_API void mexWarnMsgIdAndTxt (const char *id, const char *s,
+                                              ...);
 extern OCTINTERP_API int mexPrintf (const char *fmt, ...);
 
-extern OCTINTERP_API mxArray *mexGetVariable (const char *space, const char *name);
-extern OCTINTERP_API const mxArray *mexGetVariablePtr (const char *space, const char *name);
+extern OCTINTERP_API mxArray *mexGetVariable (const char *space,
+                                              const char *name);
+extern OCTINTERP_API const mxArray *mexGetVariablePtr (const char *space,
+                                                       const char *name);
 
 extern OCTINTERP_API int mexPutVariable (const char *space, const char *name,
                                          const mxArray *ptr);
@@ -94,11 +100,13 @@
 extern OCTINTERP_API void mexMakeMemoryPersistent (void *ptr);
 
 extern OCTINTERP_API int mexAtExit (void (*f) (void));
-extern OCTINTERP_API const mxArray *mexGet (double handle, const char *property);
+extern OCTINTERP_API const mxArray *mexGet (double handle,
+                                            const char *property);
 extern OCTINTERP_API int mexIsGlobal (const mxArray *ptr);
 extern OCTINTERP_API int mexIsLocked (void);
 extern OCTINTERP_API void mexLock (void);
-extern OCTINTERP_API int mexSet (double handle, const char *property, mxArray *val);
+extern OCTINTERP_API int mexSet (double handle, const char *property,
+                                 mxArray *val);
 extern OCTINTERP_API void mexUnlock (void);
 
 /* Floating point predicates.  */
@@ -118,22 +126,39 @@
 extern OCTINTERP_API void mxFree (void *ptr);
 
 /* Constructors.  */
-extern OCTINTERP_API mxArray *mxCreateCellArray (mwSize ndims, const mwSize *dims);
+extern OCTINTERP_API mxArray *mxCreateCellArray (mwSize ndims,
+                                                 const mwSize *dims);
 extern OCTINTERP_API mxArray *mxCreateCellMatrix (mwSize m, mwSize n);
-extern OCTINTERP_API mxArray *mxCreateCharArray (mwSize ndims, const mwSize *dims);
-extern OCTINTERP_API mxArray *mxCreateCharMatrixFromStrings (mwSize m, const char **str);
-extern OCTINTERP_API mxArray *mxCreateDoubleMatrix (mwSize nr, mwSize nc, mxComplexity flag);
+extern OCTINTERP_API mxArray *mxCreateCharArray (mwSize ndims,
+                                                 const mwSize *dims);
+extern OCTINTERP_API mxArray *mxCreateCharMatrixFromStrings (mwSize m,
+                                                             const char **str);
+extern OCTINTERP_API mxArray *mxCreateDoubleMatrix (mwSize nr, mwSize nc,
+                                                    mxComplexity flag);
 extern OCTINTERP_API mxArray *mxCreateDoubleScalar (double val);
-extern OCTINTERP_API mxArray *mxCreateLogicalArray (mwSize ndims, const mwSize *dims);
+extern OCTINTERP_API mxArray *mxCreateLogicalArray (mwSize ndims,
+                                                    const mwSize *dims);
 extern OCTINTERP_API mxArray *mxCreateLogicalMatrix (mwSize m, mwSize n);
 extern OCTINTERP_API mxArray *mxCreateLogicalScalar (mxLogical val);
-extern OCTINTERP_API mxArray *mxCreateNumericArray (mwSize ndims, const mwSize *dims, mxClassID class_id, mxComplexity flag);
-extern OCTINTERP_API mxArray *mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id, mxComplexity flag);
-extern OCTINTERP_API mxArray *mxCreateSparse (mwSize m, mwSize n, mwSize nzmax, mxComplexity flag);
-extern OCTINTERP_API mxArray *mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax);
+extern OCTINTERP_API mxArray *mxCreateNumericArray (mwSize ndims,
+                                                    const mwSize *dims,
+                                                    mxClassID class_id,
+                                                    mxComplexity flag);
+extern OCTINTERP_API mxArray *mxCreateNumericMatrix (mwSize m, mwSize n,
+                                                     mxClassID class_id,
+                                                     mxComplexity flag);
+extern OCTINTERP_API mxArray *mxCreateSparse (mwSize m, mwSize n, mwSize nzmax,
+                                              mxComplexity flag);
+extern OCTINTERP_API mxArray *mxCreateSparseLogicalMatrix (mwSize m, mwSize n,
+                                                           mwSize nzmax);
 extern OCTINTERP_API mxArray *mxCreateString (const char *str);
-extern OCTINTERP_API mxArray *mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys, const char **keys);
-extern OCTINTERP_API mxArray *mxCreateStructMatrix (mwSize rows, mwSize cols, int num_keys, const char **keys);
+extern OCTINTERP_API mxArray *mxCreateStructArray (mwSize ndims,
+                                                   const mwSize *dims,
+                                                   int num_keys,
+                                                   const char **keys);
+extern OCTINTERP_API mxArray *mxCreateStructMatrix (mwSize rows, mwSize cols,
+                                                    int num_keys,
+                                                    const char **keys);
 
 /* Copy constructor.  */
 extern OCTINTERP_API mxArray *mxDuplicateArray (const mxArray *v);
@@ -184,7 +209,8 @@
 /* Dimension setters.  */
 extern OCTINTERP_API void mxSetM (mxArray *ptr, mwSize M);
 extern OCTINTERP_API void mxSetN (mxArray *ptr, mwSize N);
-extern OCTINTERP_API void mxSetDimensions (mxArray *ptr, const mwSize *dims, mwSize ndims);
+extern OCTINTERP_API void mxSetDimensions (mxArray *ptr, const mwSize *dims,
+                                           mwSize ndims);
 
 /* Data extractors.  */
 extern OCTINTERP_API double *mxGetPi (const mxArray *ptr);
@@ -226,18 +252,24 @@
 
 extern OCTINTERP_API void mxRemoveField (mxArray *ptr, int key_num);
 
-extern OCTINTERP_API mxArray *mxGetField (const mxArray *ptr, mwIndex index, const char *key);
-extern OCTINTERP_API mxArray *mxGetFieldByNumber (const mxArray *ptr, mwIndex index, int key_num);
+extern OCTINTERP_API mxArray *mxGetField (const mxArray *ptr, mwIndex index,
+                                          const char *key);
+extern OCTINTERP_API mxArray *mxGetFieldByNumber (const mxArray *ptr,
+                                                  mwIndex index, int key_num);
 
-extern OCTINTERP_API void mxSetField (mxArray *ptr, mwIndex index, const char *key, mxArray *val);
-extern OCTINTERP_API void mxSetFieldByNumber (mxArray *ptr, mwIndex index, int key_num, mxArray *val);
+extern OCTINTERP_API void mxSetField (mxArray *ptr, mwIndex index,
+                                      const char *key, mxArray *val);
+extern OCTINTERP_API void mxSetFieldByNumber (mxArray *ptr, mwIndex index,
+                                              int key_num, mxArray *val);
 
 extern OCTINTERP_API int mxGetNumberOfFields (const mxArray *ptr);
 
-extern OCTINTERP_API const char *mxGetFieldNameByNumber (const mxArray *ptr, int key_num);
+extern OCTINTERP_API const char *mxGetFieldNameByNumber (const mxArray *ptr,
+                                                         int key_num);
 extern OCTINTERP_API int mxGetFieldNumber (const mxArray *ptr, const char *key);
 
-extern OCTINTERP_API int mxGetString (const mxArray *ptr, char *buf, mwSize buflen);
+extern OCTINTERP_API int mxGetString (const mxArray *ptr, char *buf,
+                                      mwSize buflen);
 extern OCTINTERP_API char *mxArrayToString (const mxArray *ptr);
 
 /* Miscellaneous.  */
@@ -269,7 +301,8 @@
 #define mxAssertS(expr, msg)
 #endif
 
-extern OCTINTERP_API mwIndex mxCalcSingleSubscript (const mxArray *ptr, mwSize nsubs, mwIndex *subs);
+extern OCTINTERP_API mwIndex mxCalcSingleSubscript (const mxArray *ptr,
+                                                    mwSize nsubs, mwIndex *subs);
 
 extern OCTINTERP_API size_t mxGetElementSize (const mxArray *ptr);
 
--- a/libinterp/corefcn/mgorth.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/mgorth.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -49,7 +49,7 @@
 }
 
 DEFUN (mgorth, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{y}, @var{h}] =} mgorth (@var{x}, @var{v})\n\
 Orthogonalize a given column vector @var{x} with respect to a set of\n\
 orthonormal vectors comprising the columns of @var{v}\n\
@@ -71,10 +71,10 @@
   int nargin = args.length ();
 
   if (nargin != 2 || nargout > 2)
-  {
-    print_usage ();
-    return retval;
-  }
+    {
+      print_usage ();
+      return retval;
+    }
 
   octave_value arg_x = args(0);
   octave_value arg_v = args(1);
@@ -97,7 +97,8 @@
     {
       if (iscomplex)
         {
-          FloatComplexColumnVector x = arg_x.float_complex_column_vector_value ();
+          FloatComplexColumnVector x
+            = arg_x.float_complex_column_vector_value ();
           FloatComplexMatrix V = arg_v.float_complex_matrix_value ();
           FloatComplexRowVector h;
           do_mgorth (x, V, h);
--- a/libinterp/corefcn/module.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/module.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -1,7 +1,6 @@
 EXTRA_DIST += \
   corefcn/module.mk \
   corefcn/defaults.in.h \
-  corefcn/gl2ps.c \
   corefcn/graphics.in.h \
   corefcn/mxarray.in.h \
   corefcn/oct-errno.in.cc \
@@ -60,7 +59,6 @@
   corefcn/file-io.h \
   corefcn/gl-render.h \
   corefcn/gl2ps-renderer.h \
-  corefcn/gl2ps.h \
   corefcn/gripes.h \
   corefcn/help.h \
   corefcn/hook-fcn.h \
@@ -130,8 +128,7 @@
 C_COREFCN_SRC = \
   corefcn/cutils.c \
   corefcn/matherr.c \
-  corefcn/siglist.c \
-  corefcn/xgl2ps.c
+  corefcn/siglist.c
 
 COREFCN_SRC = \
   corefcn/Cell.cc \
@@ -264,12 +261,28 @@
   $(JIT_SRC) \
   $(C_COREFCN_SRC)
 
+COREFCN_FT2_DF = \
+  corefcn/graphics.df \
+  corefcn/gl-render.df \
+  corefcn/toplev.df \
+  corefcn/txt-eng-ft.df
+
 ## FIXME: Automake does not support per-object rules.
 ##        These rules could be emulated by creating a new convenience
 ##        library and using per-library rules.  Or we can just live
 ##        without the rule since there haven't been any problems. (09/18/2012)
 #display.df display.lo: CPPFLAGS += $(X11_FLAGS)
 
+## Special rules for FreeType .df files so that not all .df files are built
+## with FT2_CPPFLAGS, FONTCONFIG_CPPFLAGS
+$(COREFCN_FT2_DF) : corefcn/%.df : corefcn/%.cc
+	$(CXXCPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
+	  $(AM_CPPFLAGS) $(FONTCONFIG_CPPFLAGS) $(FT2_CPPFLAGS) $(CPPFLAGS) \
+	  $(AM_CXXFLAGS) $(CXXFLAGS) \
+	  -DMAKE_BUILTINS $< > $@-t
+	$(srcdir)/mkdefs $(srcdir) $< < $@-t > $@
+	rm $@-t
+
 ## Special rules for sources which must be built before rest of compilation.
 
 ## defaults.h and graphics.h must depend on Makefile.  Calling configure
@@ -320,7 +333,12 @@
   corefcn/libtex_parser.la
 
 corefcn_libcorefcn_la_SOURCES = $(COREFCN_SRC)
-corefcn_libcorefcn_la_CPPFLAGS = $(liboctinterp_la_CPPFLAGS) $(FFTW_XCPPFLAGS)
+corefcn_libcorefcn_la_CPPFLAGS = $(liboctinterp_la_CPPFLAGS) \
+                                 $(FFTW_XCPPFLAGS) \
+                                 $(FONTCONFIG_CPPFLAGS) \
+                                 $(FT2_CPPFLAGS) \
+                                 $(LLVM_CPPFLAGS)
+corefcn_libcorefcn_la_CXXFLAGS = $(AM_CXXFLAGS) $(LLVM_CXXFLAGS)
 
 corefcn_libtex_parser_la_SOURCES = $(TEX_PARSER_SRC)
 corefcn_libtex_parser_la_CPPFLAGS = $(liboctinterp_la_CPPFLAGS)
--- a/libinterp/corefcn/mxarray.in.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/mxarray.in.h	Tue Nov 05 12:27:42 2013 -0500
@@ -48,33 +48,33 @@
 #define MXARRAY_H
 
 typedef enum
-  {
-    mxREAL = 0,
-    mxCOMPLEX = 1
-  }
-  mxComplexity;
+{
+  mxREAL = 0,
+  mxCOMPLEX = 1
+}
+mxComplexity;
 
 typedef enum
-  {
-    mxUNKNOWN_CLASS = 0,
-    mxCELL_CLASS,
-    mxSTRUCT_CLASS,
-    mxLOGICAL_CLASS,
-    mxCHAR_CLASS,
-    mxUNUSED_CLASS,
-    mxDOUBLE_CLASS,
-    mxSINGLE_CLASS,
-    mxINT8_CLASS,
-    mxUINT8_CLASS,
-    mxINT16_CLASS,
-    mxUINT16_CLASS,
-    mxINT32_CLASS,
-    mxUINT32_CLASS,
-    mxINT64_CLASS,
-    mxUINT64_CLASS,
-    mxFUNCTION_CLASS
-  }
-  mxClassID;
+{
+  mxUNKNOWN_CLASS = 0,
+  mxCELL_CLASS,
+  mxSTRUCT_CLASS,
+  mxLOGICAL_CLASS,
+  mxCHAR_CLASS,
+  mxUNUSED_CLASS,
+  mxDOUBLE_CLASS,
+  mxSINGLE_CLASS,
+  mxINT8_CLASS,
+  mxUINT8_CLASS,
+  mxINT16_CLASS,
+  mxUINT16_CLASS,
+  mxINT32_CLASS,
+  mxUINT32_CLASS,
+  mxINT64_CLASS,
+  mxUINT64_CLASS,
+  mxFUNCTION_CLASS
+}
+mxClassID;
 
 typedef unsigned char mxLogical;
 
@@ -252,7 +252,8 @@
 
   virtual mxArray *get_field_by_number (mwIndex index, int key_num) const = 0;
 
-  virtual void set_field_by_number (mwIndex index, int key_num, mxArray *val) = 0;
+  virtual void
+  set_field_by_number (mwIndex index, int key_num, mxArray *val) = 0;
 
   virtual int get_number_of_fields (void) const = 0;
 
@@ -386,7 +387,8 @@
 
   int is_logical_scalar (void) const { return rep->is_logical_scalar (); }
 
-  int is_logical_scalar_true (void) const { return rep->is_logical_scalar_true (); }
+  int is_logical_scalar_true (void) const
+  { return rep->is_logical_scalar_true (); }
 
   mwSize get_m (void) const { return rep->get_m (); }
 
@@ -394,15 +396,18 @@
 
   mwSize *get_dimensions (void) const { return rep->get_dimensions (); }
 
-  mwSize get_number_of_dimensions (void) const { return rep->get_number_of_dimensions (); }
+  mwSize get_number_of_dimensions (void) const
+  { return rep->get_number_of_dimensions (); }
 
   void set_m (mwSize m) { DO_VOID_MUTABLE_METHOD (set_m (m)); }
 
   void set_n (mwSize n) { DO_VOID_MUTABLE_METHOD (set_n (n)); }
 
-  void set_dimensions (mwSize *dims_arg, mwSize ndims_arg) { DO_VOID_MUTABLE_METHOD (set_dimensions (dims_arg, ndims_arg)); }
+  void set_dimensions (mwSize *dims_arg, mwSize ndims_arg)
+  { DO_VOID_MUTABLE_METHOD (set_dimensions (dims_arg, ndims_arg)); }
 
-  mwSize get_number_of_elements (void) const { return rep->get_number_of_elements (); }
+  mwSize get_number_of_elements (void) const
+  { return rep->get_number_of_elements (); }
 
   int is_empty (void) const { return get_number_of_elements () == 0; }
 
@@ -414,17 +419,21 @@
 
   const char *get_class_name (void) const { return rep->get_class_name (); }
 
-  void set_class_name (const char *name_arg) { DO_VOID_MUTABLE_METHOD (set_class_name (name_arg)); }
+  void set_class_name (const char *name_arg)
+  { DO_VOID_MUTABLE_METHOD (set_class_name (name_arg)); }
 
-  mxArray *get_cell (mwIndex idx) const { DO_MUTABLE_METHOD (mxArray *, get_cell (idx)); }
+  mxArray *get_cell (mwIndex idx) const
+  { DO_MUTABLE_METHOD (mxArray *, get_cell (idx)); }
 
-  void set_cell (mwIndex idx, mxArray *val) { DO_VOID_MUTABLE_METHOD (set_cell (idx, val)); }
+  void set_cell (mwIndex idx, mxArray *val)
+  { DO_VOID_MUTABLE_METHOD (set_cell (idx, val)); }
 
   double get_scalar (void) const { return rep->get_scalar (); }
 
   void *get_data (void) const { DO_MUTABLE_METHOD (void *, get_data ()); }
 
-  void *get_imag_data (void) const { DO_MUTABLE_METHOD (void *, get_imag_data ()); }
+  void *get_imag_data (void) const
+  { DO_MUTABLE_METHOD (void *, get_imag_data ()); }
 
   void set_data (void *pr) { DO_VOID_MUTABLE_METHOD (set_data (pr)); }
 
@@ -444,23 +453,30 @@
 
   int add_field (const char *key) { DO_MUTABLE_METHOD (int, add_field (key)); }
 
-  void remove_field (int key_num) { DO_VOID_MUTABLE_METHOD (remove_field (key_num)); }
+  void remove_field (int key_num)
+  { DO_VOID_MUTABLE_METHOD (remove_field (key_num)); }
 
-  mxArray *get_field_by_number (mwIndex index, int key_num) const { DO_MUTABLE_METHOD (mxArray *, get_field_by_number (index, key_num)); }
+  mxArray *get_field_by_number (mwIndex index, int key_num) const
+  { DO_MUTABLE_METHOD (mxArray *, get_field_by_number (index, key_num)); }
 
-  void set_field_by_number (mwIndex index, int key_num, mxArray *val) { DO_VOID_MUTABLE_METHOD (set_field_by_number (index, key_num, val)); }
+  void set_field_by_number (mwIndex index, int key_num, mxArray *val)
+  { DO_VOID_MUTABLE_METHOD (set_field_by_number (index, key_num, val)); }
 
   int get_number_of_fields (void) const { return rep->get_number_of_fields (); }
 
-  const char *get_field_name_by_number (int key_num) const { DO_MUTABLE_METHOD (const char*, get_field_name_by_number (key_num)); }
+  const char *get_field_name_by_number (int key_num) const
+  { DO_MUTABLE_METHOD (const char*, get_field_name_by_number (key_num)); }
 
-  int get_field_number (const char *key) const { DO_MUTABLE_METHOD (int, get_field_number (key)); }
+  int get_field_number (const char *key) const
+  { DO_MUTABLE_METHOD (int, get_field_number (key)); }
 
-  int get_string (char *buf, mwSize buflen) const { return rep->get_string (buf, buflen); }
+  int get_string (char *buf, mwSize buflen) const
+  { return rep->get_string (buf, buflen); }
 
   char *array_to_string (void) const { return rep->array_to_string (); }
 
-  mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const { return rep->calc_single_subscript (nsubs, subs); }
+  mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const
+  { return rep->calc_single_subscript (nsubs, subs); }
 
   size_t get_element_size (void) const { return rep->get_element_size (); }
 
--- a/libinterp/corefcn/nproc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/nproc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -28,7 +28,7 @@
 #include "nproc.h"
 
 DEFUN (nproc, args, nargout,
-   "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} nproc ()\n\
 @deftypefnx {Built-in Function} {} nproc (@var{query})\n\
 Return the current number of available processors.\n\
--- a/libinterp/corefcn/oct-errno.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-errno.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_errno_h)
-#define octave_errno_h 1
+#if !defined (octave_oct_errno_h)
+#define octave_oct_errno_h 1
 
 #include <cerrno>
 #include <map>
--- a/libinterp/corefcn/oct-fstrm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-fstrm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_fstream_h)
-#define octave_octave_fstream_h 1
+#if !defined (octave_oct_fstrm_h)
+#define octave_oct_fstrm_h 1
 
 #include <fstream>
 #include <string>
--- a/libinterp/corefcn/oct-handle.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-handle.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_handle_h)
-#define octave_handle_h 1
+#if !defined (octave_oct_handle_h)
+#define octave_oct_handle_h 1
 
 #include "dMatrix.h"
 #include "lo-ieee.h"
--- a/libinterp/corefcn/oct-hdf5.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-hdf5.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,7 +20,7 @@
 
 */
 
-#if !defined (octave__hdf5_h)
+#if !defined (octave_oct_hdf5_h)
 #define octave_hdf5_h 1
 
 #if defined (HAVE_HDF5)
--- a/libinterp/corefcn/oct-hist.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-hist.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -170,7 +170,7 @@
           || option == "-n")
         {
           if (i < nargin - 1)
-            { 
+            {
               if (args(i+1).is_string ())
                 command_history::set_file (args(++i).string_value ());
               else
@@ -235,7 +235,7 @@
               else
                 limit = -tmp;
             }
-          
+
           else
             {
               if (option.length () > 0 && option[0] == '-')
@@ -583,7 +583,7 @@
 }
 
 DEFUN (edit_history, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} edit_history\n\
 @deftypefnx {Command} {} edit_history @var{cmd_number}\n\
 @deftypefnx {Command} {} edit_history @var{first} @var{last}\n\
@@ -626,7 +626,7 @@
 }
 
 DEFUN (history, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} history\n\
 @deftypefnx {Command} {} history @var{opt1} @dots{}\n\
 @deftypefnx {Built-in Function} {@var{h} =} history ()\n\
@@ -675,7 +675,7 @@
 }
 
 DEFUN (run_history, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} run_history\n\
 @deftypefnx {Command} {} run_history @var{cmd_number}\n\
 @deftypefnx {Command} {} run_history @var{first} @var{last}\n\
@@ -733,7 +733,7 @@
 }
 
 DEFUN (history_control, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} history_control ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} history_control (@var{new_val})\n\
 Query or set the internal variable that specifies how commands are saved\n\
@@ -770,7 +770,7 @@
 }
 
 DEFUN (history_size, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} history_size ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} history_size (@var{new_val})\n\
 Query or set the internal variable that specifies how many entries\n\
@@ -796,7 +796,7 @@
 }
 
 DEFUN (history_file, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} history_file ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} history_file (@var{new_val})\n\
 Query or set the internal variable that specifies the name of the\n\
@@ -821,7 +821,7 @@
 }
 
 DEFUN (history_timestamp_format_string, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} history_timestamp_format_string ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} history_timestamp_format_string (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} history_timestamp_format_string (@var{new_val}, \"local\")\n\
@@ -844,7 +844,7 @@
 }
 
 DEFUN (history_save, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} history_save ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} history_save (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} history_save (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/oct-hist.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-hist.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_hist_h)
-#define octave_octave_hist_h 1
+#if !defined (octave_oct_hist_h)
+#define octave_oct_hist_h 1
 
 #include <string>
 
--- a/libinterp/corefcn/oct-iostrm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-iostrm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_iostream_h)
-#define octave_octave_iostream_h 1
+#if !defined (octave_oct_iostrm_h)
+#define octave_oct_iostrm_h 1
 
 #include <iosfwd>
 
--- a/libinterp/corefcn/oct-lvalue.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-lvalue.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_lvalue_h)
-#define octave_lvalue_h 1
+#if !defined (octave_oct_lvalue_h)
+#define octave_oct_lvalue_h 1
 
 class octave_value;
 class octave_value_list;
@@ -47,17 +47,17 @@
   { }
 
   octave_lvalue& operator = (const octave_lvalue& vr)
-    {
-      if (this != &vr)
-        {
-          sym = vr.sym;
-          type = vr.type;
-          idx = vr.idx;
-          nel = vr.nel;
-        }
+  {
+    if (this != &vr)
+      {
+        sym = vr.sym;
+        type = vr.type;
+        idx = vr.idx;
+        nel = vr.nel;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~octave_lvalue (void) { }
 
--- a/libinterp/corefcn/oct-map.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-map.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -575,7 +575,8 @@
 }
 
 void
-octave_map::do_cat (int dim, octave_idx_type n, const octave_scalar_map *map_list,
+octave_map::do_cat (int dim, octave_idx_type n,
+                    const octave_scalar_map *map_list,
                     octave_map& retval)
 {
   octave_idx_type nf = retval.nfields ();
@@ -616,8 +617,10 @@
 }
 
 // This is just a wrapper.
-void permute_to_correct_order1 (const octave_scalar_map& ref, const octave_scalar_map& src,
-                                octave_scalar_map& dest, Array<octave_idx_type>& perm)
+void permute_to_correct_order1 (const octave_scalar_map& ref,
+                                const octave_scalar_map& src,
+                                octave_scalar_map& dest,
+                                Array<octave_idx_type>& perm)
 {
   dest = src.orderfields (ref, perm);
 }
@@ -627,9 +630,9 @@
                                 octave_map& dest, Array<octave_idx_type>& perm)
 {
   if (src.nfields () == 0 && src.is_empty ())
-     dest = octave_map (src.dims (), ref.keys ());
+    dest = octave_map (src.dims (), ref.keys ());
   else
-     dest = src.orderfields (ref, perm);
+    dest = src.orderfields (ref, perm);
 }
 
 template <class map>
@@ -645,9 +648,10 @@
   for (octave_idx_type i = 0; i < n; i++)
     {
       if (i == idx)
-         continue;
+        continue;
 
-      permute_to_correct_order1 (map_list[idx], map_list[i], new_map_list[i], perm);
+      permute_to_correct_order1 (map_list[idx], map_list[i], new_map_list[i],
+                                 perm);
 
       if (error_state)
         {
@@ -1578,7 +1582,7 @@
         }
     }
 
- done:
+done:
   return retval;
 }
 
--- a/libinterp/corefcn/oct-map.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-map.h	Tue Nov 05 12:27:42 2013 -0500
@@ -52,10 +52,10 @@
   fields_rep *rep;
 
   static fields_rep *nil_rep (void)
-    {
-      static fields_rep nr;
-      return &nr;
-    }
+  {
+    static fields_rep nr;
+    return &nr;
+  }
 
 public:
 
@@ -64,36 +64,36 @@
   octave_fields (const char * const *);
 
   ~octave_fields (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   void make_unique (void)
-    {
-      if (rep->count > 1)
-        {
-          fields_rep *r = new fields_rep (*rep);
+  {
+    if (rep->count > 1)
+      {
+        fields_rep *r = new fields_rep (*rep);
 
-          if (--rep->count == 0)
-            delete rep;
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = r;
-        }
-    }
+        rep = r;
+      }
+  }
 
   octave_fields (const octave_fields& o) : rep (o.rep) { rep->count++; }
 
   octave_fields&
   operator = (const octave_fields& o)
-    {
-      o.rep->count++;
-      if (--rep->count == 0)
-        delete rep;
-      rep = o.rep;
+  {
+    o.rep->count++;
+    if (--rep->count == 0)
+      delete rep;
+    rep = o.rep;
 
-      return *this;
-    }
+    return *this;
+  }
 
   // constant iteration support. non-const iteration intentionally unsupported.
 
@@ -107,7 +107,7 @@
   octave_idx_type index (const_iterator p) const { return p->second; }
 
   const_iterator seek (const std::string& k) const
-    { return rep->find (k); }
+  { return rep->find (k); }
 
   // high-level methods.
 
@@ -138,15 +138,15 @@
                           Array<octave_idx_type>& perm) const;
 
   bool is_same (const octave_fields& other) const
-    { return rep == other.rep; }
+  { return rep == other.rep; }
 
   // Returns the fields as a vector of strings.
   string_vector fieldnames (void) const;
 
   void clear (void)
-    {
-      *this = octave_fields ();
-    }
+  {
+    *this = octave_fields ();
+  }
 };
 
 
@@ -167,12 +167,12 @@
     : xkeys (m.xkeys), xvals(m.xvals) { }
 
   octave_scalar_map& operator = (const octave_scalar_map& m)
-    {
-      xkeys = m.xkeys;
-      xvals = m.xvals;
+  {
+    xkeys = m.xkeys;
+    xvals = m.xvals;
 
-      return *this;
-    }
+    return *this;
+  }
 
   // iteration support. note that both const and non-const iterators are the
   // same. The const/non-const distinction is made by the key & contents method.
@@ -185,37 +185,37 @@
   const_iterator seek (const std::string& k) const { return xkeys.seek (k); }
 
   std::string key (const_iterator p) const
-    { return xkeys.key (p); }
+  { return xkeys.key (p); }
   octave_idx_type index (const_iterator p) const
-    { return xkeys.index (p); }
+  { return xkeys.index (p); }
 
   const octave_value& contents (const_iterator p) const
-    { return xvals[xkeys.index (p)]; }
+  { return xvals[xkeys.index (p)]; }
 
   octave_value& contents (iterator p)
-    { return xvals[xkeys.index (p)]; }
+  { return xvals[xkeys.index (p)]; }
 
   const octave_value& contents (octave_idx_type i) const
-    { return xvals[i]; }
+  { return xvals[i]; }
 
   octave_value& contents (octave_idx_type i)
-    { return xvals[i]; }
+  { return xvals[i]; }
 
   // number of fields.
   octave_idx_type nfields (void) const { return xkeys.nfields (); }
 
   // check whether a field exists.
   bool isfield (const std::string& name) const
-    { return xkeys.isfield (name); }
+  { return xkeys.isfield (name); }
 
   bool contains (const std::string& name) const
-    { return isfield (name); }
+  { return isfield (name); }
 
   string_vector fieldnames (void) const
-    { return xkeys.fieldnames (); }
+  { return xkeys.fieldnames (); }
 
   string_vector keys (void) const
-    { return fieldnames (); }
+  { return fieldnames (); }
 
   // get contents of a given field. empty value if not exist.
   octave_value getfield (const std::string& key) const;
@@ -223,7 +223,7 @@
   // set contents of a given field. add if not exist.
   void setfield (const std::string& key, const octave_value& val);
   void assign (const std::string& k, const octave_value& val)
-    { setfield (k, val); }
+  { setfield (k, val); }
 
   // remove a given field. do nothing if not exist.
   void rmfield (const std::string& key);
@@ -240,10 +240,10 @@
   octave_value& contents (const std::string& k);
 
   void clear (void)
-    {
-      xkeys.clear ();
-      xvals.clear ();
-    }
+  {
+    xkeys.clear ();
+    xvals.clear ();
+  }
 
   friend class octave_map;
 
@@ -255,8 +255,9 @@
 };
 
 template<>
-inline octave_scalar_map octave_value_extract<octave_scalar_map> (const octave_value& v)
-  { return v.scalar_map_value (); }
+inline octave_scalar_map
+octave_value_extract<octave_scalar_map> (const octave_value& v)
+{ return v.scalar_map_value (); }
 
 class OCTINTERP_API
 octave_map
@@ -289,13 +290,13 @@
   octave_map (const Octave_map& m);
 
   octave_map& operator = (const octave_map& m)
-    {
-      xkeys = m.xkeys;
-      xvals = m.xvals;
-      dimensions = m.dimensions;
+  {
+    xkeys = m.xkeys;
+    xvals = m.xvals;
+    dimensions = m.dimensions;
 
-      return *this;
-    }
+    return *this;
+  }
 
   // iteration support. note that both const and non-const iterators are the
   // same. The const/non-const distinction is made by the key & contents method.
@@ -308,37 +309,37 @@
   const_iterator seek (const std::string& k) const { return xkeys.seek (k); }
 
   std::string key (const_iterator p) const
-    { return xkeys.key (p); }
+  { return xkeys.key (p); }
   octave_idx_type index (const_iterator p) const
-    { return xkeys.index (p); }
+  { return xkeys.index (p); }
 
   const Cell& contents (const_iterator p) const
-    { return xvals[xkeys.index (p)]; }
+  { return xvals[xkeys.index (p)]; }
 
   Cell& contents (iterator p)
-    { return xvals[xkeys.index (p)]; }
+  { return xvals[xkeys.index (p)]; }
 
   const Cell& contents (octave_idx_type i) const
-    { return xvals[i]; }
+  { return xvals[i]; }
 
   Cell& contents (octave_idx_type i)
-    { return xvals[i]; }
+  { return xvals[i]; }
 
   // number of fields.
   octave_idx_type nfields (void) const { return xkeys.nfields (); }
 
   // check whether a field exists.
   bool isfield (const std::string& name) const
-    { return xkeys.isfield (name); }
+  { return xkeys.isfield (name); }
 
   bool contains (const std::string& name) const
-    { return isfield (name); }
+  { return isfield (name); }
 
   string_vector fieldnames (void) const
-    { return xkeys.fieldnames (); }
+  { return xkeys.fieldnames (); }
 
   string_vector keys (void) const
-    { return fieldnames (); }
+  { return fieldnames (); }
 
   // get contents of a given field. empty value if not exist.
   Cell getfield (const std::string& key) const;
@@ -347,7 +348,7 @@
   // correct dimensions.
   void setfield (const std::string& key, const Cell& val);
   void assign (const std::string& k, const Cell& val)
-    { setfield (k, val); }
+  { setfield (k, val); }
 
   // remove a given field. do nothing if not exist.
   void rmfield (const std::string& key);
@@ -364,10 +365,10 @@
   Cell& contents (const std::string& k);
 
   void clear (void)
-    {
-      xkeys.clear ();
-      xvals.clear ();
-    }
+  {
+    xkeys.clear ();
+    xvals.clear ();
+  }
 
   // The Array-like methods.
   octave_idx_type numel (void) const { return dimensions.numel (); }
@@ -386,13 +387,13 @@
   checkelem (const Array<octave_idx_type>& ra_idx) const;
 
   octave_scalar_map operator () (octave_idx_type n) const
-    { return checkelem (n); }
+  { return checkelem (n); }
   octave_scalar_map operator () (octave_idx_type i, octave_idx_type j) const
-    { return checkelem (i, j); }
+  { return checkelem (i, j); }
 
   octave_scalar_map
   operator () (const Array<octave_idx_type>& ra_idx) const
-    { return checkelem (ra_idx); }
+  { return checkelem (ra_idx); }
 
   octave_map squeeze (void) const;
 
@@ -446,7 +447,8 @@
 
   void delete_elements (const octave_value_list&);
 
-  octave_map concat (const octave_map& rb, const Array<octave_idx_type>& ra_idx);
+  octave_map concat (const octave_map& rb,
+                     const Array<octave_idx_type>& ra_idx);
 
   // like checkelem, but no check.
   octave_scalar_map fast_elem_extract (octave_idx_type n) const;
@@ -471,7 +473,7 @@
 
 template<>
 inline octave_map octave_value_extract<octave_map> (const octave_value& v)
-  { return v.map_value (); }
+{ return v.map_value (); }
 
 // The original Octave_map object which is now deprecated.
 // It was fully deprecated in version 3.8 and should be removed in 3.12.
@@ -481,7 +483,7 @@
 OCTINTERP_API
 Octave_map
 {
- public:
+public:
 
   typedef std::map<std::string, Cell>::iterator iterator;
   typedef std::map<std::string, Cell>::const_iterator const_iterator;
@@ -533,16 +535,16 @@
   Octave_map (const octave_map& m);
 
   Octave_map& operator = (const Octave_map& m)
-    {
-      if (this != &m)
-        {
-          map = m.map;
-          key_list = m.key_list;
-          dimensions = m.dimensions;
-        }
+  {
+    if (this != &m)
+      {
+        map = m.map;
+        key_list = m.key_list;
+        dimensions = m.dimensions;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~Octave_map (void) { }
 
@@ -554,21 +556,21 @@
   octave_idx_type nfields (void) const { return map.size (); }
 
   void del (const std::string& k)
-    {
-      iterator p = map.find (k);
+  {
+    iterator p = map.find (k);
 
-      if (p != map.end ())
-        {
-          map.erase (p);
+    if (p != map.end ())
+      {
+        map.erase (p);
 
-          key_list_iterator q
-            = std::find (key_list.begin (), key_list.end (), k);
+        key_list_iterator q
+          = std::find (key_list.begin (), key_list.end (), k);
 
-          assert (q != key_list.end ());
+        assert (q != key_list.end ());
 
-          key_list.erase (q);
-        }
-    }
+        key_list.erase (q);
+      }
+  }
 
   iterator begin (void) { return iterator (map.begin ()); }
   const_iterator begin (void) const { return const_iterator (map.begin ()); }
@@ -582,10 +584,10 @@
   Cell contents (const std::string& k) const;
 
   Cell& contents (iterator p)
-    { return p->second; }
+  { return p->second; }
 
   Cell contents (const_iterator p) const
-    { return p->second; }
+  { return p->second; }
 
   int intfield (const std::string& k, int def_val = 0) const;
 
@@ -596,13 +598,13 @@
   const_iterator seek (const std::string& k) const { return map.find (k); }
 
   bool contains (const std::string& k) const
-    { return (seek (k) != map.end ()); }
+  { return (seek (k) != map.end ()); }
 
   void clear (void)
-    {
-      map.clear ();
-      key_list.clear ();
-    }
+  {
+    map.clear ();
+    key_list.clear ();
+  }
 
   string_vector keys (void) const;
 
@@ -622,7 +624,8 @@
 
   octave_idx_type numel (void) const { return dimensions.numel (); }
 
-  Octave_map concat (const Octave_map& rb, const Array<octave_idx_type>& ra_idx);
+  Octave_map concat (const Octave_map& rb,
+                     const Array<octave_idx_type>& ra_idx);
 
   Octave_map& maybe_delete_elements (const octave_value_list& idx);
 
@@ -651,10 +654,10 @@
   mutable dim_vector dimensions;
 
   void maybe_add_to_key_list (const std::string& k)
-    {
-      if (! contains (k))
-        key_list.push_back (k);
-    }
+  {
+    if (! contains (k))
+      key_list.push_back (k);
+  }
 } GCC_ATTR_DEPRECATED;
 
 #endif
--- a/libinterp/corefcn/oct-obj.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-obj.h	Tue Nov 05 12:27:42 2013 -0500
@@ -67,15 +67,15 @@
   ~octave_value_list (void) { }
 
   octave_value_list& operator = (const octave_value_list& obj)
-    {
-      if (this != &obj)
-        {
-          data = obj.data;
-          names = obj.names;
-        }
+  {
+    if (this != &obj)
+      {
+        data = obj.data;
+        names = obj.names;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   Array<octave_value> array_value (void) const { return data; }
 
@@ -106,13 +106,14 @@
 
   octave_value_list
   slice (octave_idx_type offset, octave_idx_type len, bool tags = false) const
-    {
-      octave_value_list retval (data.linear_slice (offset, offset + len));
-      if (tags && len > 0 && names.length () > 0)
-        retval.names = names.linear_slice (offset, std::min (len, names.length ()));
+  {
+    octave_value_list retval (data.linear_slice (offset, offset + len));
+    if (tags && len > 0 && names.length () > 0)
+      retval.names = names.linear_slice (offset,
+                                         std::min (len, names.length ()));
 
-      return retval;
-    }
+    return retval;
+  }
 
   octave_value_list
   splice (octave_idx_type offset, octave_idx_type len,
@@ -135,14 +136,14 @@
   void make_storable_values (void);
 
   octave_value& xelem (octave_idx_type i)
-    {
-      return data.xelem (i);
-    }
+  {
+    return data.xelem (i);
+  }
 
   void clear (void)
-    {
-      data.clear ();
-    }
+  {
+    data.clear ();
+  }
 
 private:
 
@@ -153,15 +154,15 @@
   string_vector names;
 
   octave_value& elem (octave_idx_type n)
-    {
-      if (n >= length ())
-        resize (n + 1);
+  {
+    if (n >= length ())
+      resize (n + 1);
 
-      return data(n);
-    }
+    return data(n);
+  }
 
   const octave_value& elem (octave_idx_type n) const
-    { return data(n); }
+  { return data(n); }
 
   DECLARE_OCTAVE_ALLOCATOR
 };
--- a/libinterp/corefcn/oct-prcstrm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-prcstrm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,13 +20,13 @@
 
 */
 
-#if !defined (octave_octave_procstream_h)
-#define octave_octave_procstream_h 1
+#if !defined (octave_oct_prcstrm_h)
+#define octave_oct_prcstrm_h 1
 
 #include "oct-stdstrm.h"
 
-// FIXME -- why don't these classes use iprocstream and
-// oprocstream, which in turn use the octave_procbuf class?
+// FIXME: why don't these classes use iprocstream and oprocstream,
+//        which in turn use the octave_procbuf class?
 
 class
 octave_iprocstream : public octave_stdiostream
--- a/libinterp/corefcn/oct-procbuf.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-procbuf.h	Tue Nov 05 12:27:42 2013 -0500
@@ -23,8 +23,8 @@
 // This class is based on the procbuf class from libg++, written by
 // Per Bothner, Copyright (C) 1993 Free Software Foundation.
 
-#if !defined (octave_octave_procbuf_h)
-#define octave_octave_procbuf_h 1
+#if !defined (octave_oct_procbuf_h)
+#define octave_oct_procbuf_h 1
 
 #include <sys/types.h>
 
--- a/libinterp/corefcn/oct-stdstrm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-stdstrm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_stdiostream_h)
-#define octave_octave_stdiostream_h 1
+#if !defined (octave_oct_stdstrm_h)
+#define octave_oct_stdstrm_h 1
 
 #include "oct-stream.h"
 #include "c-file-ptr-stream.h"
@@ -44,7 +44,7 @@
   // Position a stream at OFFSET relative to ORIGIN.
 
   int seek (off_t offset, int origin)
-    { return s ? s->seek (offset, origin) : -1; }
+  { return s ? s->seek (offset, origin) : -1; }
 
   // Return current stream position.
 
@@ -62,9 +62,9 @@
 
   std::ostream *output_stream (void) { return (md & std::ios::out) ? s : 0; }
 
-  // FIXME -- should not have to cast away const here.
+  // FIXME: should not have to cast away const here.
   BUF_T *rdbuf (void) const
-    { return s ? (const_cast<STREAM_T *> (s))->rdbuf () : 0; }
+  { return s ? (const_cast<STREAM_T *> (s))->rdbuf () : 0; }
 
   int file_number (void) const { return fnum; }
 
@@ -107,7 +107,8 @@
                       oct_mach_info::float_format ff
                         = oct_mach_info::native_float_format (),
                       c_file_ptr_buf::close_fcn cf = c_file_ptr_buf::file_close)
-    : octave_tstdiostream<c_file_ptr_buf, io_c_file_ptr_stream, FILE *> (n, f, f ? fileno (f) : -1, m, ff, cf) { }
+    : octave_tstdiostream<c_file_ptr_buf, io_c_file_ptr_stream, FILE *>
+       (n, f, f ? fileno (f) : -1, m, ff, cf) { }
 
   static octave_stream
   create (const std::string& n, FILE *f = 0,
@@ -144,8 +145,10 @@
                        std::ios::openmode m = std::ios::in|std::ios::out,
                        oct_mach_info::float_format ff
                          = oct_mach_info::native_float_format (),
-                       c_zfile_ptr_buf::close_fcn cf = c_zfile_ptr_buf::file_close)
-    : octave_tstdiostream<c_zfile_ptr_buf, io_c_zfile_ptr_stream, gzFile> (n, f, fid, m, ff, cf) { }
+                       c_zfile_ptr_buf::close_fcn cf
+                         = c_zfile_ptr_buf::file_close)
+    : octave_tstdiostream<c_zfile_ptr_buf, io_c_zfile_ptr_stream, gzFile>
+       (n, f, fid, m, ff, cf) { }
 
   static octave_stream
   create (const std::string& n, gzFile f = 0, int fid = 0,
--- a/libinterp/corefcn/oct-stream.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-stream.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -112,8 +112,8 @@
 }
 
 static void
-get_size (const Array<double>& size, octave_idx_type& nr, octave_idx_type& nc, bool& one_elt_size_spec,
-          const std::string& who)
+get_size (const Array<double>& size, octave_idx_type& nr, octave_idx_type& nc,
+          bool& one_elt_size_spec, const std::string& who)
 {
   nr = -1;
   nc = -1;
@@ -284,7 +284,8 @@
       unsigned char c = s[i++];
 
       if (c == '-' && i > 1 && i < len
-          && static_cast<unsigned char> (s[i-2]) <= static_cast<unsigned char> (s[i]))
+          && (   static_cast<unsigned char> (s[i-2])
+              <= static_cast<unsigned char> (s[i])))
         {
           // Add all characters from the range except the first (we
           // already added it below).
@@ -477,7 +478,7 @@
     {
       if (beg_idx != std::string::npos && end_idx != std::string::npos)
         char_class = expand_char_class (s.substr (beg_idx,
-                                                  end_idx - beg_idx + 1));
+                                        end_idx - beg_idx + 1));
 
       add_elt_to_list (width, discard, type, modifier, num_elts, char_class);
     }
@@ -699,9 +700,10 @@
 }
 
 void
-printf_format_list::process_conversion
-  (const std::string& s, size_t& i, size_t n, int& args, std::string& flags,
-   int& fw, int& prec, char& modifier, char& type, octave_idx_type& num_elts)
+printf_format_list::process_conversion (const std::string& s, size_t& i,
+                                        size_t n, int& args, std::string& flags,
+                                        int& fw, int& prec, char& modifier,
+                                        char& type, octave_idx_type& num_elts)
 {
   args = 0;
   flags = "";
@@ -802,10 +804,10 @@
 }
 
 void
-printf_format_list::finish_conversion
-  (const std::string& s, size_t& i, int args, const std::string& flags,
-   int fw, int prec, char modifier, char& type, octave_idx_type& num_elts)
-
+printf_format_list::finish_conversion (const std::string& s, size_t& i,
+                                       int args, const std::string& flags,
+                                       int fw, int prec, char modifier,
+                                       char& type, octave_idx_type& num_elts)
 {
   switch (s[i])
     {
@@ -1017,13 +1019,15 @@
 }
 
 std::string
-octave_base_stream::getl (octave_idx_type max_len, bool& err, const std::string& who)
+octave_base_stream::getl (octave_idx_type max_len, bool& err,
+                          const std::string& who)
 {
   return do_gets (max_len, err, true, who);
 }
 
 std::string
-octave_base_stream::gets (octave_idx_type max_len, bool& err, const std::string& who)
+octave_base_stream::gets (octave_idx_type max_len, bool& err,
+                          const std::string& who)
 {
   return do_gets (max_len, err, false, who);
 }
@@ -1067,7 +1071,7 @@
 
       // Maybe eat the following \n if \r was just met.
       if (c == '\r' && is.peek () == '\n')
-       is.get ();
+        is.get ();
 
       if (is.bad ())
         {
@@ -1227,8 +1231,8 @@
 void
 do_scanf_conv (std::istream& is, const scanf_format_elt& fmt,
                T valptr, Matrix& mval, double *data, octave_idx_type& idx,
-               octave_idx_type& conversion_count, octave_idx_type nr, octave_idx_type max_size,
-               bool discard)
+               octave_idx_type& conversion_count, octave_idx_type nr,
+               octave_idx_type max_size, bool discard)
 {
   OCTAVE_SCAN (is, fmt, valptr);
 
@@ -1256,7 +1260,8 @@
 
 template void
 do_scanf_conv (std::istream&, const scanf_format_elt&, double*,
-               Matrix&, double*, octave_idx_type&, octave_idx_type&, octave_idx_type, octave_idx_type, bool);
+               Matrix&, double*, octave_idx_type&, octave_idx_type&,
+               octave_idx_type, octave_idx_type, bool);
 
 #define DO_WHITESPACE_CONVERSION() \
   do \
@@ -1473,8 +1478,10 @@
 
 octave_value
 octave_base_stream::do_scanf (scanf_format_list& fmt_list,
-                              octave_idx_type nr, octave_idx_type nc, bool one_elt_size_spec,
-                              octave_idx_type& conversion_count, const std::string& who)
+                              octave_idx_type nr, octave_idx_type nc,
+                              bool one_elt_size_spec,
+                              octave_idx_type& conversion_count,
+                              const std::string& who)
 {
   octave_value retval = Matrix ();
 
@@ -1804,7 +1811,7 @@
                   if (is.rdstate () & std::ios::failbit)
                     is.clear (is.rdstate () & (~std::ios::failbit));
 
-                  // FIXME -- is this the right thing to do?
+                  // FIXME: is this the right thing to do?
 
                   if (interactive && name () == "stdin")
                     {
@@ -1860,7 +1867,8 @@
 
 octave_value
 octave_base_stream::scanf (const std::string& fmt, const Array<double>& size,
-                           octave_idx_type& conversion_count, const std::string& who)
+                           octave_idx_type& conversion_count,
+                           const std::string& who)
 {
   octave_value retval = Matrix ();
 
@@ -1876,16 +1884,16 @@
         ::error ("%s: invalid format specified", who.c_str ());
       else
         {
-        octave_idx_type nr = -1;
-        octave_idx_type nc = -1;
-
-        bool one_elt_size_spec;
-
-        get_size (size, nr, nc, one_elt_size_spec, who);
-
-        if (! error_state)
-          retval = do_scanf (fmt_list, nr, nc, one_elt_size_spec,
-                             conversion_count, who);
+          octave_idx_type nr = -1;
+          octave_idx_type nc = -1;
+
+          bool one_elt_size_spec;
+
+          get_size (size, nr, nc, one_elt_size_spec, who);
+
+          if (! error_state)
+            retval = do_scanf (fmt_list, nr, nc, one_elt_size_spec,
+                               conversion_count, who);
         }
     }
   else
@@ -2028,7 +2036,7 @@
         {
           error ("%s: read error", who.c_str ());
 
-          // FIXME -- is this the right thing to do?
+          // FIXME: is this the right thing to do?
 
           if (interactive && name () == "stdin")
             {
@@ -2460,7 +2468,8 @@
                           tfmt.replace ((i1 = tfmt.rfind (elt->type)),
                                         1, 1, 's');
 
-                          if ((i2 = tfmt.rfind ('.')) != std::string::npos && i2 < i1)
+                          if ((i2 = tfmt.rfind ('.')) != std::string::npos
+                              && i2 < i1)
                             {
                               tfmt.erase (i2, i1-i2);
                               if (elt->prec < 0)
@@ -2499,9 +2508,8 @@
 
                             case 'f': case 'e': case 'E':
                             case 'g': case 'G':
-                              retval
-                                += do_printf_conv (os, fmt, nsa, sa_1, sa_2,
-                                                   val, who);
+                              retval += do_printf_conv (os, fmt, nsa,
+                                                        sa_1, sa_2, val, who);
                               break;
 
                             default:
@@ -2573,7 +2581,7 @@
 
       if (os)
         {
-          // FIXME -- why does this seem to be necessary?
+          // FIXME: why does this seem to be necessary?
           // Without it, output from a loop like
           //
           //   for i = 1:100, fputs (stdout, "foo\n"); endfor
@@ -2759,7 +2767,8 @@
 }
 
 off_t
-octave_stream::skipl (const octave_value& tc_count, bool& err, const std::string& who)
+octave_stream::skipl (const octave_value& tc_count, bool& err,
+                      const std::string& who)
 {
   off_t retval = -1;
 
@@ -2866,8 +2875,7 @@
 {
   int retval = -1;
 
-  // FIXME -- should we have octave_value methods that handle off_t
-  // explicitly?
+  // FIXME: should we have octave_value methods that handle off_t explicitly?
   octave_int64 val = tc_offset.int64_scalar_value ();
   off_t xoffset = val.value ();
 
@@ -3146,7 +3154,7 @@
         ("read: invalid type specification");
       break;
     }
-  
+
 
   return retval;
 }
@@ -3167,9 +3175,9 @@
 
   if (stream_ok ())
     {
-      // FIXME -- we may eventually want to make this extensible.
-
-      // FIXME -- we need a better way to ensure that this
+      // FIXME: we may eventually want to make this extensible.
+
+      // FIXME: we need a better way to ensure that this
       // numbering stays consistent with the order of the elements in the
       // data_type enum in the oct_data_conv class.
 
@@ -3180,7 +3188,8 @@
       if (! error_state)
         {
 
-          octave_idx_type elts_to_read = std::numeric_limits<octave_idx_type>::max ();
+          octave_idx_type elts_to_read
+            = std::numeric_limits<octave_idx_type>::max ();
 
           if (one_elt_size_spec)
             {
@@ -3209,7 +3218,7 @@
                 nr = nc = 0;
             }
 
-          // FIXME -- ensure that this does not overflow.
+          // FIXME: ensure that this does not overflow.
 
           elts_to_read = nr * nc;
 
@@ -3227,13 +3236,15 @@
           else
             input_buf_elts = block_size;
 
-          octave_idx_type input_elt_size = oct_data_conv::data_type_size (input_type);
+          octave_idx_type input_elt_size
+            = oct_data_conv::data_type_size (input_type);
 
           octave_idx_type input_buf_size = input_buf_elts * input_elt_size;
 
           assert (input_buf_size >= 0);
 
-          // Must also work and return correct type object for 0 elements to read.
+          // Must also work and return correct type object
+          // for 0 elements to read.
 
           std::istream *isp = input_stream ();
 
@@ -3245,7 +3256,8 @@
 
               octave_idx_type elts_read = 0;
 
-              while (is && ! is.eof () && (read_to_eof || elts_read < elts_to_read))
+              while (is && ! is.eof ()
+                     && (read_to_eof || elts_read < elts_to_read))
                 {
                   char *input_buf = new char [input_buf_size];
 
@@ -3291,8 +3303,8 @@
 
 octave_idx_type
 octave_stream::write (const octave_value& data, octave_idx_type block_size,
-                      oct_data_conv::data_type output_type, octave_idx_type skip,
-                      oct_mach_info::float_format flt_fmt)
+                      oct_data_conv::data_type output_type,
+                      octave_idx_type skip, oct_mach_info::float_format flt_fmt)
 {
   octave_idx_type retval = -1;
 
@@ -3304,7 +3316,7 @@
             flt_fmt = float_format ();
 
           octave_idx_type status = data.write (*this, block_size, output_type,
-                                   skip, flt_fmt);
+                                               skip, flt_fmt);
 
           if (status < 0)
             error ("fwrite: write error");
@@ -3484,7 +3496,7 @@
         {
           seek (0, SEEK_END);
 
-          // FIXME -- probably should try to write larger blocks...
+          // FIXME: probably should try to write larger blocks...
 
           unsigned char zero = 0;
           for (size_t j = 0; j < skip - remaining; j++)
@@ -3507,14 +3519,12 @@
                       octave_idx_type skip,
                       oct_mach_info::float_format flt_fmt)
 {
-  bool swap
-    = ((oct_mach_info::words_big_endian ()
-        && flt_fmt == oct_mach_info::flt_fmt_ieee_little_endian)
-       || flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian);
-
-  bool do_data_conversion
-    = (swap || ! is_equivalent_type<T> (output_type) 
-       || flt_fmt != oct_mach_info::float_format ());
+  bool swap = ((oct_mach_info::words_big_endian ()
+                && flt_fmt == oct_mach_info::flt_fmt_ieee_little_endian)
+               || flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian);
+
+  bool do_data_conversion = (swap || ! is_equivalent_type<T> (output_type)
+                             || flt_fmt != oct_mach_info::float_format ());
 
   octave_idx_type nel = data.numel ();
 
@@ -3720,7 +3730,7 @@
   return retval;
 }
 
-// FIXME -- maybe this should work for string arrays too.
+// FIXME: maybe this should work for string arrays too.
 
 int
 octave_stream::puts (const octave_value& tc_s, const std::string& who)
@@ -3919,7 +3929,7 @@
 octave_stream_list::open_file_numbers (void)
 {
   return (instance_ok ())
-    ? instance->do_open_file_numbers () : octave_value ();
+         ? instance->do_open_file_numbers () : octave_value ();
 }
 
 int
--- a/libinterp/corefcn/oct-stream.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-stream.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_stream_h)
-#define octave_octave_stream_h 1
+#if !defined (octave_oct_stream_h)
+#define octave_oct_stream_h 1
 
 class Matrix;
 class string_vector;
@@ -48,10 +48,10 @@
 public:
 
   enum special_conversion
-    {
-      whitespace_conversion = 1,
-      literal_conversion = 2
-    };
+  {
+    whitespace_conversion = 1,
+    literal_conversion = 2
+  };
 
   scanf_format_elt (const char *txt = 0, int w = 0, bool d = false,
                     char typ = '\0', char mod = '\0',
@@ -64,19 +64,19 @@
       type (e.type), modifier (e.modifier), char_class (e.char_class) { }
 
   scanf_format_elt& operator = (const scanf_format_elt& e)
-    {
-      if (this != &e)
-        {
-          text = strsave (e.text);
-          width = e.width;
-          discard = e.discard;
-          type = e.type;
-          modifier = e.modifier;
-          char_class = e.char_class;
-        }
+  {
+    if (this != &e)
+      {
+        text = strsave (e.text);
+        width = e.width;
+        discard = e.discard;
+        type = e.type;
+        modifier = e.modifier;
+        char_class = e.char_class;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~scanf_format_elt (void) { delete [] text; }
 
@@ -120,27 +120,27 @@
   octave_idx_type length (void) { return list.length (); }
 
   const scanf_format_elt *first (void)
-    {
-      curr_idx = 0;
-      return current ();
-    }
+  {
+    curr_idx = 0;
+    return current ();
+  }
 
   const scanf_format_elt *current (void) const
-    { return list.length () > 0 ? list.elem (curr_idx) : 0; }
+  { return list.length () > 0 ? list.elem (curr_idx) : 0; }
 
   const scanf_format_elt *next (bool cycle = true)
-    {
-      curr_idx++;
+  {
+    curr_idx++;
 
-      if (curr_idx >= list.length ())
-        {
-          if (cycle)
-            curr_idx = 0;
-          else
-            return 0;
-        }
-      return current ();
-    }
+    if (curr_idx >= list.length ())
+      {
+        if (cycle)
+          curr_idx = 0;
+        else
+          return 0;
+      }
+    return current ();
+  }
 
   void printme (void) const;
 
@@ -161,7 +161,7 @@
   // Index to current element;
   octave_idx_type curr_idx;
 
-  // FIXME -- maybe LIST should be a std::list object?
+  // FIXME: maybe LIST should be a std::list object?
   // List of format elements.
   Array<scanf_format_elt*> list;
 
@@ -202,20 +202,20 @@
       flags (e.flags), type (e.type), modifier (e.modifier) { }
 
   printf_format_elt& operator = (const printf_format_elt& e)
-    {
-      if (this != &e)
-        {
-          text = strsave (e.text);
-          args = e.args;
-          fw = e.fw;
-          prec = e.prec;
-          flags = e.flags;
-          type = e.type;
-          modifier = e.modifier;
-        }
+  {
+    if (this != &e)
+      {
+        text = strsave (e.text);
+        args = e.args;
+        fw = e.fw;
+        prec = e.prec;
+        flags = e.flags;
+        type = e.type;
+        modifier = e.modifier;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~printf_format_elt (void) { delete [] text; }
 
@@ -255,28 +255,28 @@
   octave_idx_type num_conversions (void) { return nconv; }
 
   const printf_format_elt *first (void)
-    {
-      curr_idx = 0;
-      return current ();
-    }
+  {
+    curr_idx = 0;
+    return current ();
+  }
 
   const printf_format_elt *current (void) const
-    { return list.length () > 0 ? list.elem (curr_idx) : 0; }
+  { return list.length () > 0 ? list.elem (curr_idx) : 0; }
 
   const printf_format_elt *next (bool cycle = true)
-    {
-      curr_idx++;
+  {
+    curr_idx++;
 
-      if (curr_idx >= list.length ())
-        {
-          if (cycle)
-            curr_idx = 0;
-          else
-            return 0;
-        }
+    if (curr_idx >= list.length ())
+      {
+        if (cycle)
+          curr_idx = 0;
+        else
+          return 0;
+      }
 
-      return current ();
-    }
+    return current ();
+  }
 
   bool last_elt_p (void) { return (curr_idx + 1 == list.length ()); }
 
@@ -295,7 +295,7 @@
   // Index to current element;
   octave_idx_type curr_idx;
 
-  // FIXME -- maybe LIST should be a std::list object?
+  // FIXME: maybe LIST should be a std::list object?
   // List of format elements.
   Array<printf_format_elt*> list;
 
@@ -329,7 +329,7 @@
 OCTINTERP_API
 octave_base_stream
 {
-friend class octave_stream;
+  friend class octave_stream;
 
 public:
 
@@ -380,13 +380,13 @@
   virtual void do_close (void) { }
 
   void close (void)
-    {
-      if (is_open ())
-        {
-          open_state = false;
-          do_close ();
-        }
-    }
+  {
+    if (is_open ())
+      {
+        open_state = false;
+        do_close ();
+      }
+  }
 
   virtual int file_number (void) const
   {
@@ -454,11 +454,14 @@
   std::string do_gets (octave_idx_type max_len, bool& err, bool strip_newline,
                        const std::string& who /* = "gets" */);
 
-  std::string getl (octave_idx_type max_len, bool& err, const std::string& who /* = "getl" */);
-  std::string gets (octave_idx_type max_len, bool& err, const std::string& who /* = "gets" */);
+  std::string getl (octave_idx_type max_len, bool& err,
+                    const std::string& who /* = "getl" */);
+  std::string gets (octave_idx_type max_len, bool& err,
+                    const std::string& who /* = "gets" */);
   off_t skipl (off_t count, bool& err, const std::string& who /* = "skipl" */);
 
-  octave_value do_scanf (scanf_format_list& fmt_list, octave_idx_type nr, octave_idx_type nc,
+  octave_value do_scanf (scanf_format_list& fmt_list, octave_idx_type nr,
+                         octave_idx_type nc,
                          bool one_elt_size_spec, octave_idx_type& count,
                          const std::string& who /* = "scanf" */);
 
@@ -512,16 +515,19 @@
 
   int flush (void);
 
-  std::string getl (octave_idx_type max_len, bool& err, const std::string& who /* = "getl" */);
+  std::string getl (octave_idx_type max_len, bool& err,
+                    const std::string& who /* = "getl" */);
   std::string getl (const octave_value& max_len, bool& err,
                     const std::string& who /* = "getl" */);
 
-  std::string gets (octave_idx_type max_len, bool& err, const std::string& who /* = "gets" */);
+  std::string gets (octave_idx_type max_len, bool& err,
+                    const std::string& who /* = "gets" */);
   std::string gets (const octave_value& max_len, bool& err,
                     const std::string& who /* = "gets" */);
 
   off_t skipl (off_t count, bool& err, const std::string& who /* = "skipl" */);
-  off_t skipl (const octave_value& count, bool& err, const std::string& who /* = "skipl" */);
+  off_t skipl (const octave_value& count, bool& err,
+               const std::string& who /* = "skipl" */);
 
   int seek (off_t offset, int origin);
   int seek (const octave_value& offset, const octave_value& origin);
@@ -581,18 +587,18 @@
   std::string error (bool clear, int& err_num);
 
   std::string error (bool clear = false)
-    {
-      int err_num;
-      return error (clear, err_num);
-    }
+  {
+    int err_num;
+    return error (clear, err_num);
+  }
 
   // Set the error message and state.
 
   void error (const std::string& msg)
-    {
-      if (rep)
-        rep->error (msg);
-    }
+  {
+    if (rep)
+      rep->error (msg);
+  }
 
   void error (const char *msg) { error (std::string (msg)); }
 
@@ -630,25 +636,25 @@
   octave_base_stream *rep;
 
   bool stream_ok (bool clear = true) const
-    {
-      bool retval = true;
+  {
+    bool retval = true;
 
-      if (rep)
-        {
-          if (clear)
-            rep->clear ();
-        }
-      else
-        retval = false;
+    if (rep)
+      {
+        if (clear)
+          rep->clear ();
+      }
+    else
+      retval = false;
 
-      return retval;
-    }
+    return retval;
+  }
 
   void invalid_operation (const std::string& who, const char *rw)
-    {
-      if (rep)
-        rep->invalid_operation (who, rw);
-    }
+  {
+    if (rep)
+      rep->invalid_operation (who, rw);
+  }
 
   octave_value
   finalize_read (std::list<void *>& input_buf_list,
@@ -711,12 +717,14 @@
 
   int do_insert (octave_stream& os);
 
-  octave_stream do_lookup (int fid, const std::string& who = std::string ()) const;
+  octave_stream do_lookup (int fid,
+                           const std::string& who = std::string ()) const;
   octave_stream do_lookup (const octave_value& fid,
                            const std::string& who = std::string ()) const;
 
   int do_remove (int fid, const std::string& who = std::string ());
-  int do_remove (const octave_value& fid, const std::string& who = std::string ());
+  int do_remove (const octave_value& fid,
+                 const std::string& who = std::string ());
 
   void do_clear (bool flush = true);
 
--- a/libinterp/corefcn/oct-strstrm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/oct-strstrm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_strstream_h)
-#define octave_octave_strstream_h 1
+#if !defined (octave_oct_strstrm_h)
+#define octave_oct_strstrm_h 1
 
 #include <string>
 #include <sstream>
--- a/libinterp/corefcn/octave-link.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/octave-link.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -103,7 +103,7 @@
 }
 
 DEFUN (__octave_link_enabled__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_enabled__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -112,7 +112,7 @@
 }
 
 DEFUN (__octave_link_edit_file__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_edit_file__ (@var{file})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -137,7 +137,7 @@
 }
 
 DEFUN (__octave_link_message_dialog__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_message_dialog__ (@var{dlg}, @var{msg}, @var{title})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -164,7 +164,7 @@
 }
 
 DEFUN (__octave_link_question_dialog__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_question_dialog__ (@var{msg}, @var{title}, @var{btn1}, @var{btn2}, @var{btn3}, @var{default})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -184,7 +184,8 @@
         {
           flush_octave_stdout ();
 
-          retval = octave_link::question_dialog (msg, title, btn1, btn2, btn3, btndef);
+          retval = octave_link::question_dialog (msg, title, btn1, btn2, btn3,
+                                                 btndef);
         }
       else
         error ("invalid arguments");
@@ -194,7 +195,7 @@
 }
 
 DEFUN (__octave_link_file_dialog__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_file_dialog__ (@var{filterlist}, @var{title}, @var{filename}, @var{size} @var{multiselect}, @var{pathname})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -274,7 +275,7 @@
 }
 
 DEFUN (__octave_link_list_dialog__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_list_dialog__ (@var{list}, @var{mode}, @var{size}, @var{intial}, @var{name}, @var{prompt}, @var{ok_string}, @var{cancel_string})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -342,7 +343,7 @@
 }
 
 DEFUN (__octave_link_input_dialog__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_input_dialog__ (@var{prompt}, @var{title}, @var{rowscols}, @var{defaults})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -404,7 +405,7 @@
 }
 
 DEFUN (__octave_link_show_preferences__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_show_preferences__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -417,7 +418,7 @@
 }
 
 DEFUN (__octave_link_show_doc__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_show_doc__ ( @var{filename} )\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/octave-link.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/octave-link.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 */
 
-#if !defined (octave_link_h)
-#define octave_link_h 1
+#if !defined (octave_octave_link_h)
+#define octave_octave_link_h 1
 
 #include <string>
 
@@ -163,10 +163,10 @@
                const std::string& cancel_string)
   {
     return enabled ()
-      ? instance->do_list_dialog (list, mode, width, height,
-                                  initial_value, name, prompt,
-                                  ok_string, cancel_string)
-      : std::pair<std::list<int>, int> ();
+           ? instance->do_list_dialog (list, mode, width, height,
+                                       initial_value, name, prompt,
+                                       ok_string, cancel_string)
+           : std::pair<std::list<int>, int> ();
   }
 
   static std::list<std::string>
@@ -177,8 +177,8 @@
                 const std::list<std::string>& defaults)
   {
     return enabled ()
-      ? instance->do_input_dialog (prompt, title, nr, nc, defaults)
-      : std::list<std::string> ();
+           ? instance->do_input_dialog (prompt, title, nr, nc, defaults)
+           : std::list<std::string> ();
   }
 
   typedef std::list<std::pair<std::string, std::string> > filter_list;
@@ -189,8 +189,9 @@
                const std::string& multimode)
   {
     return enabled ()
-      ? instance->do_file_dialog (filter, title, filename, dirname, multimode)
-      : std::list<std::string> ();
+           ? instance->do_file_dialog (filter, title, filename, dirname,
+                                       multimode)
+           : std::list<std::string> ();
   }
 
 
@@ -199,7 +200,8 @@
                                         bool addpath_option)
   {
     return enabled ()
-      ? instance->do_debug_cd_or_addpath_error (file, dir, addpath_option) : 0;
+           ? instance->do_debug_cd_or_addpath_error (file, dir, addpath_option)
+           : 0;
   }
 
   static void change_directory (const std::string& dir)
@@ -311,7 +313,7 @@
   show_preferences ()
   {
     if (enabled ())
-      { 
+      {
         instance->do_show_preferences ();
         return true;
       }
@@ -319,17 +321,17 @@
       return false;
   }
 
-  static bool 
+  static bool
   show_doc (const std::string & file)
   {
     if (enabled ())
-      { 
+      {
         instance->do_show_doc (file);
         return true;
       }
     else
       return false;
- 
+
   }
 
 private:
--- a/libinterp/corefcn/pager.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/pager.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -180,7 +180,7 @@
                 }
               else
                 {
-                  // FIXME -- omething is not right with the
+                  // FIXME: omething is not right with the
                   // pager.  If it died then we should receive a
                   // signal for that.  If there is some other problem,
                   // then what?
@@ -513,7 +513,7 @@
 }
 
 DEFUN (diary, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} diary\n\
 @deftypefnx {Command} {} diary on\n\
 @deftypefnx {Command} {} diary off\n\
@@ -590,7 +590,7 @@
 }
 
 DEFUN (more, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} more\n\
 @deftypefnx {Command} {} more on\n\
 @deftypefnx {Command} {} more off\n\
@@ -629,7 +629,7 @@
 }
 
 DEFUN (terminal_size, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} terminal_size ()\n\
 Return a two-element row vector containing the current size of the\n\
 terminal window in characters (rows and columns).\n\
@@ -645,7 +645,7 @@
 }
 
 DEFUN (page_output_immediately, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} page_output_immediately ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} page_output_immediately (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} page_output_immediately (@var{new_val}, \"local\")\n\
@@ -664,7 +664,7 @@
 }
 
 DEFUN (page_screen_output, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} page_screen_output ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} page_screen_output (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} page_screen_output (@var{new_val}, \"local\")\n\
@@ -684,7 +684,7 @@
 }
 
 DEFUN (PAGER, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} PAGER ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} PAGER (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} PAGER (@var{new_val}, \"local\")\n\
@@ -704,7 +704,7 @@
 }
 
 DEFUN (PAGER_FLAGS, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} PAGER_FLAGS ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} PAGER_FLAGS (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} PAGER_FLAGS (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/pinv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/pinv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,7 @@
 #include "ov-perm.h"
 
 DEFUN (pinv, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} pinv (@var{x})\n\
 @deftypefnx {Built-in Function} {} pinv (@var{x}, @var{tol})\n\
 Return the pseudoinverse of @var{x}.  Singular values less than\n\
--- a/libinterp/corefcn/pr-output.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/pr-output.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -146,22 +146,23 @@
     : fw (w), ex (e), prec (p), fmt (f), up (0), sp (0) { }
 
   float_format (const float_format& ff)
-    : fw (ff.fw), ex (ff.ex), prec (ff.prec), fmt (ff.fmt), up (ff.up), sp (ff.sp) { }
+    : fw (ff.fw), ex (ff.ex), prec (ff.prec), fmt (ff.fmt), up (ff.up),
+      sp (ff.sp) { }
 
   float_format& operator = (const float_format& ff)
-    {
-      if (&ff != this)
-        {
-          fw = ff.fw;
-          ex = ff.ex;
-          prec = ff.prec;
-          fmt = ff.fmt;
-          up = ff.up;
-          sp = ff.sp;
-        }
-
-      return *this;
-    }
+  {
+    if (&ff != this)
+      {
+        fw = ff.fw;
+        ex = ff.ex;
+        prec = ff.prec;
+        fmt = ff.fmt;
+        up = ff.up;
+        sp = ff.sp;
+      }
+
+    return *this;
+  }
 
   ~float_format (void) { }
 
@@ -177,7 +178,7 @@
   float_format& width (int w) { fw = w; return *this; }
 
   float_format& trailing_zeros (bool tz = true)
-    { sp = tz ? std::ios::showpoint : 0; return *this; }
+  { sp = tz ? std::ios::showpoint : 0; return *this; }
 
   friend std::ostream& operator << (std::ostream& os,
                                     const pr_engineering_float& pef);
@@ -282,15 +283,16 @@
 std::ostream&
 operator << (std::ostream& os, const pr_engineering_float& pef)
 {
+  octave_preserve_stream_state stream_state (os);
+
   if (pef.f.fw >= 0)
     os << std::setw (pef.f.fw - pef.f.ex);
 
   if (pef.f.prec >= 0)
     os << std::setprecision (pef.f.prec);
 
-  std::ios::fmtflags oflags =
-    os.flags (static_cast<std::ios::fmtflags>
-              (pef.f.fmt | pef.f.up | pef.f.sp));
+  os.flags (static_cast<std::ios::fmtflags>
+            (pef.f.fmt | pef.f.up | pef.f.sp));
 
   os << pef.mantissa ();
 
@@ -303,10 +305,7 @@
   else
     os << std::setw (0) << "e+";
 
-  os << std::setw (pef.f.ex - 2) << std::setfill ('0') << ex
-     << std::setfill (' ');
-
-  os.flags (oflags);
+  os << std::setw (pef.f.ex - 2) << std::setfill ('0') << ex;
 
   return os;
 }
@@ -327,20 +326,19 @@
 std::ostream&
 operator << (std::ostream& os, const pr_formatted_float& pff)
 {
+  octave_preserve_stream_state stream_state (os);
+
   if (pff.f.fw >= 0)
     os << std::setw (pff.f.fw);
 
   if (pff.f.prec >= 0)
     os << std::setprecision (pff.f.prec);
 
-  std::ios::fmtflags oflags =
-    os.flags (static_cast<std::ios::fmtflags>
-              (pff.f.fmt | pff.f.up | pff.f.sp));
+  os.flags (static_cast<std::ios::fmtflags>
+            (pff.f.fmt | pff.f.up | pff.f.sp));
 
   os << pff.val;
 
-  os.flags (oflags);
-
   return os;
 }
 
@@ -387,7 +385,8 @@
           double nextd = d;
 
           // Have we converged to 1/intmax ?
-          if (m > 100 || fabs (frac) < 1 / static_cast<double> (std::numeric_limits<int>::max ()))
+          if (m > 100
+              || fabs (frac) < 1 / static_cast<double> (std::numeric_limits<int>::max ()))
             {
               lastn = n;
               lastd = d;
@@ -428,7 +427,7 @@
           std::ostringstream buf;
           buf.flags (std::ios::fixed);
           buf << std::setprecision (0) << static_cast<int>(lastn)
-               << "/" << static_cast<int>(lastd);
+              << "/" << static_cast<int>(lastd);
           s = buf.str ();
         }
     }
@@ -452,23 +451,22 @@
 std::ostream&
 operator << (std::ostream& os, const pr_rational_float& prf)
 {
+  octave_preserve_stream_state stream_state (os);
+
   int fw = (rat_string_len > 0 ? rat_string_len : prf.f.fw);
   std::string s = rational_approx (prf.val, fw);
 
   if (fw >= 0)
     os << std::setw (fw);
 
-  std::ios::fmtflags oflags =
-    os.flags (static_cast<std::ios::fmtflags>
-              (prf.f.fmt | prf.f.up | prf.f.sp));
+  os.flags (static_cast<std::ios::fmtflags>
+            (prf.f.fmt | prf.f.up | prf.f.sp));
 
   if (fw > 0 && s.length () > static_cast<unsigned int>(fw))
     os << "*";
   else
     os << s;
 
-  os.flags (oflags);
-
   return os;
 }
 
@@ -537,8 +535,7 @@
   return result;
 }
 
-// FIXME -- it would be nice to share more code among these
-// functions,..
+// FIXME: it would be nice to share more code among these functions,..
 
 static void
 set_real_format (int digits, bool inf_or_nan, bool int_only, int &fw)
@@ -556,9 +553,9 @@
     }
   else if (bank_format)
     {
-      fw = digits < 0 ? 4 : digits + 3;
-      if (inf_or_nan && fw < 4)
-        fw = 4;
+      fw = digits < 0 ? 5 : digits + 4;
+      if (inf_or_nan && fw < 5)
+        fw = 5;
       rd = 2;
     }
   else if (hex_format)
@@ -652,8 +649,7 @@
 
   double d_abs = d < 0.0 ? -d : d;
 
-  int digits = (inf_or_nan || d_abs == 0.0)
-    ? 0 : num_digits (d_abs);
+  int digits = (inf_or_nan || d_abs == 0.0) ? 0 : num_digits (d_abs);
 
   set_real_format (digits, inf_or_nan, int_only, fw);
 }
@@ -683,9 +679,9 @@
   else if (bank_format)
     {
       int digits = x_max > x_min ? x_max : x_min;
-      fw = digits <= 0 ? 4 : digits + 3;
-      if (inf_or_nan && fw < 4)
-        fw = 4;
+      fw = digits <= 0 ? 5 : digits + 4;
+      if (inf_or_nan && fw < 5)
+        fw = 5;
       rd = 2;
     }
   else if (hex_format)
@@ -812,8 +808,8 @@
 
   int x_min = min_abs == 0.0 ? 0 : num_digits (min_abs);
 
-  scale = (x_max == 0 || int_or_inf_or_nan) ? 1.0
-    : std::pow (10.0, calc_scale_exp (x_max - 1));
+  scale = (x_max == 0 || int_or_inf_or_nan)
+            ? 1.0 : std::pow (10.0, calc_scale_exp (x_max - 1));
 
   set_real_matrix_format (x_max, x_min, inf_or_nan, int_or_inf_or_nan, fw);
 }
@@ -847,9 +843,9 @@
     {
       int digits = r_x;
       i_fw = 0;
-      r_fw = digits <= 0 ? 4 : digits + 3;
-      if (inf_or_nan && r_fw < 4)
-        r_fw = 4;
+      r_fw = digits <= 0 ? 5 : digits + 4;
+      if (inf_or_nan && r_fw < 5)
+        r_fw = 5;
       rd = 2;
     }
   else if (hex_format)
@@ -1047,9 +1043,9 @@
     {
       int digits = r_x_max > r_x_min ? r_x_max : r_x_min;
       i_fw = 0;
-      r_fw = digits <= 0 ? 4 : digits + 3;
-      if (inf_or_nan && r_fw < 4)
-        r_fw = 4;
+      r_fw = digits <= 0 ? 5 : digits + 4;
+      if (inf_or_nan && r_fw < 5)
+        r_fw = 5;
       rd = 2;
     }
   else if (hex_format)
@@ -1228,8 +1224,8 @@
   int x_max = r_x_max > i_x_max ? r_x_max : i_x_max;
   int x_min = r_x_min > i_x_min ? r_x_min : i_x_min;
 
-  scale = (x_max == 0 || int_or_inf_or_nan) ? 1.0
-    : std::pow (10.0, calc_scale_exp (x_max - 1));
+  scale = (x_max == 0 || int_or_inf_or_nan)
+            ? 1.0 : std::pow (10.0, calc_scale_exp (x_max - 1));
 
   set_complex_matrix_format (x_max, x_min, r_x_max, r_x_min, inf_or_nan,
                              int_or_inf_or_nan, r_fw, i_fw);
@@ -1384,8 +1380,8 @@
 
   int x_min = min_abs == 0.0 ? 0 : num_digits (min_abs);
 
-  scale = (x_max == 0 || all_ints) ? 1.0
-    : std::pow (10.0, calc_scale_exp (x_max - 1));
+  scale = (x_max == 0 || all_ints)
+            ? 1.0 : std::pow (10.0, calc_scale_exp (x_max - 1));
 
   set_range_format (x_max, x_min, all_ints, fw);
 }
@@ -1445,31 +1441,30 @@
 {
   if (fmt)
     {
-      // Unless explicitly asked for, always print in big-endian
-      // format for hex and bit formats.
+      // Unless explicitly asked for, always print in big-endian format
+      // for hex and bit formats.
       //
       //   {bit,hex}_format == 1: print big-endian
       //   {bit,hex}_format == 2: print native
 
       if (hex_format)
         {
+          octave_preserve_stream_state stream_state (os);
+
           equiv tmp;
           tmp.d = d;
 
-          // Unless explicitly asked for, always print in big-endian
-          // format.
-
-          // FIXME -- will bad things happen if we are
+          // Unless explicitly asked for, always print in big-endian format.
+
+          // FIXME: will bad things happen if we are
           // interrupted before resetting the format flags and fill
           // character?
 
           oct_mach_info::float_format flt_fmt =
             oct_mach_info::native_float_format ();
 
-          char ofill = os.fill ('0');
-
-          std::ios::fmtflags oflags
-            = os.flags (std::ios::right | std::ios::hex);
+          os.fill ('0');
+          os.flags (std::ios::right | std::ios::hex);
 
           if (hex_format > 1
               || flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian)
@@ -1482,9 +1477,6 @@
               for (int i = sizeof (double) - 1; i >= 0; i--)
                 os << std::setw (2) << static_cast<int> (tmp.i[i]);
             }
-
-          os.fill (ofill);
-          os.setf (oflags);
         }
       else if (bit_format)
         {
@@ -1515,6 +1507,8 @@
         }
       else if (octave_is_NA (d))
         {
+          octave_preserve_stream_state stream_state (os);
+
           if (fw > 0)
             os << std::setw (fw) << "NA";
           else
@@ -1524,6 +1518,8 @@
         os << pr_rational_float (*fmt, d);
       else if (xisinf (d))
         {
+          octave_preserve_stream_state stream_state (os);
+
           const char *s;
           if (d < 0.0)
             s = "-Inf";
@@ -1537,6 +1533,8 @@
         }
       else if (xisnan (d))
         {
+          octave_preserve_stream_state stream_state (os);
+
           if (fw > 0)
             os << std::setw (fw) << "NaN";
           else
@@ -1600,7 +1598,8 @@
 }
 
 static void
-print_empty_matrix (std::ostream& os, octave_idx_type nr, octave_idx_type nc, bool pr_as_read_syntax)
+print_empty_matrix (std::ostream& os, octave_idx_type nr, octave_idx_type nc,
+                    bool pr_as_read_syntax)
 {
   assert (nr == 0 || nc == 0);
 
@@ -1642,11 +1641,12 @@
 {
   if (Vfixed_point_format && ! print_g && scale != 1.0)
     {
+      octave_preserve_stream_state stream_state (os);
+
       os << "  "
          << std::setw (8) << std::setprecision (1)
          << std::setiosflags (std::ios::scientific|std::ios::left)
          << scale
-         << std::resetiosflags (std::ios::scientific|std::ios::left)
          << " *\n";
 
       if (! Vcompact_format)
@@ -1660,6 +1660,8 @@
 {
   if (total_width > max_width && Vsplit_long_rows)
     {
+      octave_preserve_stream_state stream_state (os);
+
       if (col != 0)
         {
           if (Vcompact_format)
@@ -1818,6 +1820,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           pr_scale_header (os, scale);
 
           for (octave_idx_type col = 0; col < nc; col += inc)
@@ -1939,7 +1943,7 @@
               col += inc;
 
               if (col >= nc)
-                  os << " ]";
+                os << " ]";
               else
                 os << " ...\n";
             }
@@ -1947,6 +1951,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           os << "Diagonal Matrix\n";
           if (! Vcompact_format)
             os << "\n";
@@ -1956,11 +1962,11 @@
           // kluge. Get the true width of a number.
           int zero_fw;
 
-            {
-              std::ostringstream tmp_oss;
-              pr_float (tmp_oss, 0.0, fw, scale);
-              zero_fw = tmp_oss.str ().length ();
-            }
+          {
+            std::ostringstream tmp_oss;
+            pr_float (tmp_oss, 0.0, fw, scale);
+            zero_fw = tmp_oss.str ().length ();
+          }
 
           for (octave_idx_type col = 0; col < nc; col += inc)
             {
@@ -2133,7 +2139,7 @@
   octave_idx_type nr = cm.rows ();
   octave_idx_type nc = cm.columns ();
 
- if (nr == 0 || nc == 0)
+  if (nr == 0 || nc == 0)
     print_empty_matrix (os, nr, nc, pr_as_read_syntax);
   else if (plus_format && ! pr_as_read_syntax)
     {
@@ -2232,6 +2238,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           pr_scale_header (os, scale);
 
           for (octave_idx_type col = 0; col < nc; col += inc)
@@ -2269,7 +2277,7 @@
   octave_idx_type nr = cm.rows ();
   octave_idx_type nc = cm.columns ();
 
- if (nr == 0 || nc == 0)
+  if (nr == 0 || nc == 0)
     print_empty_matrix (os, nr, nc, pr_as_read_syntax);
   else if (plus_format && ! pr_as_read_syntax)
     {
@@ -2355,7 +2363,7 @@
               col += inc;
 
               if (col >= nc)
-                  os << " ]";
+                os << " ]";
               else
                 os << " ...\n";
             }
@@ -2363,6 +2371,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           os << "Diagonal Matrix\n";
           if (! Vcompact_format)
             os << "\n";
@@ -2372,11 +2382,11 @@
           // kluge. Get the true width of a number.
           int zero_fw;
 
-            {
-              std::ostringstream tmp_oss;
-              pr_complex (tmp_oss, Complex (0.0), r_fw, i_fw, scale);
-              zero_fw = tmp_oss.str ().length ();
-            }
+          {
+            std::ostringstream tmp_oss;
+            pr_complex (tmp_oss, Complex (0.0), r_fw, i_fw, scale);
+            zero_fw = tmp_oss.str ().length ();
+          }
 
           for (octave_idx_type col = 0; col < nc; col += inc)
             {
@@ -2502,7 +2512,7 @@
               col += inc;
 
               if (col >= nc)
-                  os << " ]";
+                os << " ]";
               else
                 os << " ...\n";
             }
@@ -2511,6 +2521,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           os << "Permutation Matrix\n";
           if (! Vcompact_format)
             os << "\n";
@@ -2556,8 +2568,8 @@
       break;
 
     default:
-      print_nd_array <ComplexNDArray, Complex,
-                      ComplexMatrix> (os, nda, pr_as_read_syntax);
+      print_nd_array <ComplexNDArray, Complex, ComplexMatrix>
+                      (os, nda, pr_as_read_syntax);
       break;
     }
 }
@@ -2568,7 +2580,7 @@
   octave_print_internal (os, double (d), pr_as_read_syntax);
 }
 
-// FIXME -- write single precision versions of the printing functions.
+// FIXME: write single precision versions of the printing functions.
 
 void
 octave_print_internal (std::ostream& os, float d, bool pr_as_read_syntax)
@@ -2608,21 +2620,24 @@
 octave_print_internal (std::ostream& os, const FloatComplexMatrix& cm,
                        bool pr_as_read_syntax, int extra_indent)
 {
-  octave_print_internal (os, ComplexMatrix (cm), pr_as_read_syntax, extra_indent);
+  octave_print_internal (os, ComplexMatrix (cm), pr_as_read_syntax,
+                         extra_indent);
 }
 
 void
 octave_print_internal (std::ostream& os, const FloatComplexDiagMatrix& cm,
                        bool pr_as_read_syntax, int extra_indent)
 {
-  octave_print_internal (os, ComplexDiagMatrix (cm), pr_as_read_syntax, extra_indent);
+  octave_print_internal (os, ComplexDiagMatrix (cm), pr_as_read_syntax,
+                         extra_indent);
 }
 
 void
 octave_print_internal (std::ostream& os, const FloatComplexNDArray& nda,
                        bool pr_as_read_syntax, int extra_indent)
 {
-  octave_print_internal (os, ComplexNDArray (nda), pr_as_read_syntax, extra_indent);
+  octave_print_internal (os, ComplexNDArray (nda), pr_as_read_syntax,
+                         extra_indent);
 }
 
 void
@@ -2674,6 +2689,8 @@
         }
       else
         {
+          octave_preserve_stream_state stream_state (os);
+
           int column_width = fw + 2;
           octave_idx_type total_width = num_elem * column_width;
           octave_idx_type max_width = command_editor::terminal_cols ();
@@ -2828,8 +2845,8 @@
       break;
 
     default:
-      print_nd_array <charNDArray, char,
-                      charMatrix> (os, nda, pr_as_read_syntax);
+      print_nd_array <charNDArray, char, charMatrix> (os, nda,
+                                                      pr_as_read_syntax);
       break;
     }
 }
@@ -2847,7 +2864,7 @@
 octave_print_internal (std::ostream& os, const Array<std::string>& nda,
                        bool pr_as_read_syntax, int /* extra_indent */)
 {
-  // FIXME -- this mostly duplicates the code in the print_nd_array<>
+  // FIXME: this mostly duplicates the code in the print_nd_array<>
   // function. Can fix this with std::is_same from C++11.
 
   if (nda.is_empty ())
@@ -2905,8 +2922,8 @@
 
           Array<std::string> page (nda.index (idx), dim_vector (nr, nc));
 
-          // FIXME -- need to do some more work to put these
-          // in neatly aligned columns...
+          // FIXME: need to do some more work to put these
+          //        in neatly aligned columns...
 
           octave_idx_type n_rows = page.rows ();
           octave_idx_type n_cols = page.cols ();
@@ -2969,10 +2986,9 @@
 
   if (hex_format)
     {
-      char ofill = os.fill ('0');
-
-      std::ios::fmtflags oflags
-        = os.flags (std::ios::right | std::ios::hex);
+      octave_preserve_stream_state stream_state (os);
+
+      os.flags (std::ios::right | std::ios::hex);
 
       if (hex_format > 1 || oct_mach_info::words_big_endian ())
         {
@@ -2984,9 +3000,6 @@
           for (int i = sz - 1; i >= 0; i--)
             os << std::setw (2) << static_cast<int> (tmpi[i]);
         }
-
-      os.fill (ofill);
-      os.setf (oflags);
     }
   else if (bit_format)
     {
@@ -3011,6 +3024,8 @@
     }
   else
     {
+      octave_preserve_stream_state stream_state (os);
+
       os << std::setw (fw)
          << typename octave_print_conv<T>::print_conv_type (d);
 
@@ -3019,11 +3034,11 @@
     }
 }
 
-// FIXME -- all this mess with abs is an attempt to avoid seeing
+// FIXME: all this mess with abs is an attempt to avoid seeing
 //
 //   warning: comparison of unsigned expression < 0 is always false
 //
-// from GCC.  Isn't there a better way
+// from GCC.  Isn't there a better way?
 
 template <class T>
 /* static */ inline T
@@ -3118,7 +3133,7 @@
 octave_print_internal_template (std::ostream& os, const intNDArray<T>& nda,
                                 bool pr_as_read_syntax, int extra_indent)
 {
-  // FIXME -- this mostly duplicates the code in the print_nd_array<>
+  // FIXME: this mostly duplicates the code in the print_nd_array<>
   // function. Can fix this with std::is_same from C++11.
 
   if (nda.is_empty ())
@@ -3224,14 +3239,15 @@
 
           for (octave_idx_type i = 0; i < dims.numel (); i++)
             {
-              int new_digits = static_cast<int>
-                (gnulib::floor (log10 (double (abs (nda(i).value ()))) + 1.0));
+              int new_digits
+                = static_cast<int>
+                  (gnulib::floor (log10 (double (abs (nda(i).value ()))) + 1.0));
 
               if (new_digits > digits)
                 digits = new_digits;
 
               if (! isneg)
-              isneg = (abs (nda(i).value ()) != nda(i).value ());
+                isneg = (abs (nda(i).value ()) != nda(i).value ());
             }
 
           fw = digits + isneg;
@@ -3304,6 +3320,8 @@
             }
           else
             {
+              octave_preserve_stream_state stream_state (os);
+
               octave_idx_type n_rows = page.rows ();
               octave_idx_type n_cols = page.cols ();
 
@@ -3363,7 +3381,7 @@
 }
 
 DEFUN (rats, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} rats (@var{x}, @var{len})\n\
 Convert @var{x} into a rational approximation represented as a string.\n\
 You can convert the string back into a matrix as follows:\n\
@@ -3443,7 +3461,7 @@
 }
 
 DEFUN (disp, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} disp (@var{x})\n\
 Display the value of @var{x}.  For example:\n\
 \n\
@@ -3487,7 +3505,7 @@
 }
 
 DEFUN (fdisp, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} fdisp (@var{fid}, @var{x})\n\
 Display the value of @var{x} on the stream @var{fid}.  For example:\n\
 \n\
@@ -3759,7 +3777,7 @@
 }
 
 DEFUN (format, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} format\n\
 @deftypefnx {Command} {} format options\n\
 Reset or specify the format of the output produced by @code{disp} and\n\
@@ -3943,7 +3961,7 @@
 }
 
 DEFUN (fixed_point_format, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} fixed_point_format ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} fixed_point_format (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} fixed_point_format (@var{new_val}, \"local\")\n\
@@ -3982,7 +4000,7 @@
 }
 
 DEFUN (print_empty_dimensions, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} print_empty_dimensions ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} print_empty_dimensions (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} print_empty_dimensions (@var{new_val}, \"local\")\n\
@@ -4011,7 +4029,7 @@
 }
 
 DEFUN (split_long_rows, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} split_long_rows ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} split_long_rows (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} split_long_rows (@var{new_val}, \"local\")\n\
@@ -4049,7 +4067,7 @@
 }
 
 DEFUN (output_max_field_width, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} output_max_field_width ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} output_max_field_width (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} output_max_field_width (@var{new_val}, \"local\")\n\
@@ -4067,7 +4085,7 @@
 }
 
 DEFUN (output_precision, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} output_precision ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} output_precision (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} output_precision (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/procstream.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/procstream.h	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
   ~procstreambase (void) { close (); }
 
   void open (const std::string& name, int mode)
-    { open (name.c_str (), mode); }
+  { open (name.c_str (), mode); }
 
   void open (const char *name, int mode);
 
@@ -86,10 +86,10 @@
   ~iprocstream (void) { }
 
   void open (const std::string& name, int mode = std::ios::in)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
   void open (const char *name, int mode = std::ios::in)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
 private:
 
@@ -116,10 +116,10 @@
   ~oprocstream (void) { }
 
   void open (const std::string& name, int mode = std::ios::out)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
   void open (const char *name, int mode = std::ios::out)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
 private:
 
@@ -146,10 +146,10 @@
   ~procstream (void) { }
 
   void open (const std::string& name, int mode)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
   void open (const char *name, int mode)
-    { procstreambase::open (name, mode); }
+  { procstreambase::open (name, mode); }
 
 private:
 
--- a/libinterp/corefcn/profiler.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/profiler.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -337,15 +337,15 @@
   else
     {
       static const char *fn[] =
-        {
-          "FunctionName",
-          "TotalTime",
-          "NumCalls",
-          "IsRecursive",
-          "Parents",
-          "Children",
-          0
-        };
+      {
+        "FunctionName",
+        "TotalTime",
+        "NumCalls",
+        "IsRecursive",
+        "Parents",
+        "Children",
+        0
+      };
 
       static octave_map m (dim_vector (0, 1), string_vector (fn));
 
@@ -365,13 +365,13 @@
   else
     {
       static const char *fn[] =
-        {
-          "Index",
-          "SelfTime",
-          "NumCalls",
-          "Children",
-          0
-        };
+      {
+        "Index",
+        "SelfTime",
+        "NumCalls",
+        "Children",
+        0
+      };
 
       static octave_map m (dim_vector (0, 1), string_vector (fn));
 
@@ -386,7 +386,7 @@
 {
   octave_time now;
 
-  // FIXME -- is this volatile declaration really needed?
+  // FIXME: is this volatile declaration really needed?
   // See bug #34210 for additional details.
   volatile double dnow = now.double_value ();
 
@@ -407,7 +407,7 @@
 
 // Enable or disable the profiler data collection.
 DEFUN (__profiler_enable__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __profiler_enable ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -433,7 +433,7 @@
 
 // Clear all collected profiling data.
 DEFUN (__profiler_reset__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __profiler_reset ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -451,7 +451,7 @@
 
 // Query the timings collected by the profiler.
 DEFUN (__profiler_data__, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} __profiler_data ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/corefcn/pt-jit.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/pt-jit.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -42,7 +42,7 @@
 
 static bool Vdebug_jit = false;
 
-static bool Vjit_enable = true;
+static bool Vjit_enable = false;
 
 static int Vjit_startcnt = 1000;
 
@@ -108,7 +108,7 @@
       visit (tee);
     }
   catch (const jit_break_exception&)
-    {}
+    { }
 
   // breaks must have been handled by the top level loop
   assert (breaks.empty ());
@@ -170,7 +170,7 @@
               retval = visit (expr);
             }
           catch (const jit_break_exception&)
-            {}
+            { }
 
           if (breaks.size () || continues.size ())
             throw jit_fail_exception ("break/continue not supported in "
@@ -264,9 +264,11 @@
       jit_block *short_cont = factory.create<jit_block> ("short_cont");
 
       if (is_and)
-        block->append (factory.create<jit_cond_branch> (lhsv, short_cont, short_early));
+        block->append (factory.create<jit_cond_branch> (lhsv, short_cont,
+                                                        short_early));
       else
-        block->append (factory.create<jit_cond_branch> (lhsv, short_early, short_cont));
+        block->append (factory.create<jit_cond_branch> (lhsv, short_early,
+                                                        short_cont));
 
       block = short_early;
 
@@ -321,8 +323,8 @@
   else
     increment = factory.create<jit_const_scalar> (1);
 
-  result = block->append (factory.create<jit_call> (jit_typeinfo::make_range, base,
-                                            limit, increment));
+  result = block->append (factory.create<jit_call> (jit_typeinfo::make_range,
+                                                    base, limit, increment));
 }
 
 void
@@ -581,7 +583,7 @@
           jit_call *check = create_checked (&jit_typeinfo::logically_true,
                                             cond);
           jit_block *body = factory.create<jit_block> (i == 0 ? "if_body"
-                                                       : "ifelse_body");
+                                                              : "ifelse_body");
           blocks.push_back (body);
 
           jit_instruction *br = factory.create<jit_cond_branch> (check, body,
@@ -599,8 +601,8 @@
           ++num_incomming;
           block->append (factory.create<jit_branch> (tail));
         }
-      catch(const jit_break_exception&)
-        {}
+      catch (const jit_break_exception&)
+        { }
 
       current_breaks.splice (current_breaks.end (), breaks);
       current_continues.splice (current_continues.end (), continues);
@@ -786,7 +788,8 @@
           // FIXME: ugly hack, we need to come up with a way to pass
           // nargout to visit_identifier
           const jit_operation& fn = jit_typeinfo::print_value ();
-          jit_const_string *name = factory.create<jit_const_string> (expr->name ());
+          jit_const_string *name = factory.create<jit_const_string>
+                                    (expr->name ());
           block->append (factory.create<jit_call> (fn, name, expr_result));
         }
     }
@@ -1052,7 +1055,7 @@
     call_args[call_args.size () - 1] = extra_arg;
 
   const jit_operation& fres = lhs ? jit_typeinfo::paren_subsasgn ()
-    : jit_typeinfo::paren_subsref ();
+                                  : jit_typeinfo::paren_subsref ();
 
   return create_checked (fres, call_args);
 }
@@ -1142,8 +1145,9 @@
   // argument is an array of octave_base_value*, or octave_base_value**
   llvm::Type *arg_type = any->to_llvm (); // this is octave_base_value*
   arg_type = arg_type->getPointerTo ();
-  llvm::FunctionType *ft = llvm::FunctionType::get (llvm::Type::getVoidTy (context),
-                                                    arg_type, false);
+  llvm::FunctionType *ft;
+  ft = llvm::FunctionType::get (llvm::Type::getVoidTy (context), arg_type,
+                                false);
   function = llvm::Function::Create (ft, llvm::Function::ExternalLinkage,
                                      "foobar", module);
 
@@ -1160,7 +1164,8 @@
         }
 
       convert (blocks, constants);
-    } catch (const jit_fail_exception& e)
+    }
+  catch (const jit_fail_exception& e)
     {
       function->eraseFromParent ();
       throw;
@@ -1206,7 +1211,8 @@
         }
 
       convert (blocks, constants);
-    } catch (const jit_fail_exception& e)
+    }
+  catch (const jit_fail_exception& e)
     {
       function->eraseFromParent ();
       throw;
@@ -1473,7 +1479,7 @@
 // -------------------- jit_infer --------------------
 jit_infer::jit_infer (jit_factory& afactory, jit_block_list& ablocks,
                       const variable_map& avmap)
-  : blocks (ablocks), factory (afactory), vmap (avmap) {}
+  : blocks (ablocks), factory (afactory), vmap (avmap) { }
 
 void
 jit_infer::infer (void)
@@ -1528,8 +1534,8 @@
       if (term->alive (i))
         {
           jit_block *succ = term->successor (i);
-          for (jit_block::iterator iter = succ->begin (); iter != succ->end ()
-                 && isa<jit_phi> (*iter); ++iter)
+          for (jit_block::iterator iter = succ->begin ();
+               iter != succ->end () && isa<jit_phi> (*iter); ++iter)
             push_worklist (*iter);
 
           jit_terminator *sterm = succ->terminator ();
@@ -1569,7 +1575,7 @@
               if (! added_phi.count (dblock))
                 {
                   jit_phi *phi = factory.create<jit_phi> (iter->second,
-                                                  dblock->use_count ());
+                                                          dblock->use_count ());
                   dblock->prepend (phi);
                   added_phi.insert (dblock);
                 }
@@ -1606,8 +1612,8 @@
     {
       jit_block *finish = ablock.successor (i);
 
-      for (jit_block::iterator iter = finish->begin (); iter != finish->end ()
-             && isa<jit_phi> (*iter);)
+      for (jit_block::iterator iter = finish->begin ();
+           iter != finish->end () && isa<jit_phi> (*iter);)
         {
           jit_phi *phi = static_cast<jit_phi *> (*iter);
           jit_variable *var = phi->dest ();
@@ -1666,8 +1672,8 @@
       jit_block *b = *biter;
       if (b->alive ())
         {
-          for (jit_block::iterator iter = b->begin (); iter != b->end ()
-                 && isa<jit_phi> (*iter);)
+          for (jit_block::iterator iter = b->begin ();
+               iter != b->end () && isa<jit_phi> (*iter);)
             {
               jit_phi *phi = static_cast<jit_phi *> (*iter);
               if (phi->prune ())
@@ -1781,8 +1787,8 @@
   if (! temp.size () || ! isa<jit_error_check> (ablock.terminator ()))
     return;
 
-  // FIXME: If we support try/catch or unwind_protect final_block may not be the
-  // destination
+  // FIXME: If we support try/catch or unwind_protect final_block
+  //        may not be the destination
   jit_block *split = ablock.maybe_split (factory, blocks, final_block ());
   jit_terminator *term = split->terminator ();
   for (std::set<jit_value *>::const_iterator iter = temp.begin ();
@@ -1803,8 +1809,8 @@
        ++biter)
     {
       jit_block &ablock = **biter;
-      for (jit_block::iterator iter = ablock.begin (); iter != ablock.end ()
-             && isa<jit_phi> (*iter); ++iter)
+      for (jit_block::iterator iter = ablock.begin ();
+           iter != ablock.end () && isa<jit_phi> (*iter); ++iter)
         simplify_phi (*static_cast<jit_phi *> (*iter));
     }
 }
@@ -1960,14 +1966,14 @@
     return false;
 
   jit_function_info *info = fcn.get_info ();
-    if (! info || ! info->match (args))
-      {
-        delete info;
-        info = new jit_function_info (*this, fcn, args);
-        fcn.stash_info (info);
-      }
+  if (! info || ! info->match (args))
+    {
+      delete info;
+      info = new jit_function_info (*this, fcn, args);
+      fcn.stash_info (info);
+    }
 
-    return info->execute (args, retval);
+  return info->execute (args, retval);
 }
 
 bool
@@ -1977,7 +1983,7 @@
   // are about to run. However, we can't figure this out in O(1) time, so we
   // conservatively check for the existence of any breakpoints.
   return Vjit_enable && ! bp_table::have_breakpoints ()
-    && ! Vdebug_on_interrupt && ! Vdebug_on_error;
+         && ! Vdebug_on_interrupt && ! Vdebug_on_error;
 }
 
 size_t
@@ -2309,13 +2315,13 @@
 {
   vmap::const_iterator iter = extra_vars.find (vname);
   return iter == extra_vars.end () ? symbol_table::varval (vname)
-    : *iter->second;
+                                   : *iter->second;
 }
 
 #endif
 
 DEFUN (debug_jit, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} debug_jit ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} debug_jit (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} debug_jit (@var{new_val}, \"local\")\n\
@@ -2337,7 +2343,7 @@
 }
 
 DEFUN (jit_enable, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} jit_enable ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} jit_enable (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} jit_enable (@var{new_val}, \"local\")\n\
@@ -2358,7 +2364,7 @@
 }
 
 DEFUN (jit_startcnt, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} jit_startcnt ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} jit_startcnt (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} jit_startcnt (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/pt-jit.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/pt-jit.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 // Author: Max Brister <max@2bass.com>
 
-#if !defined (octave_tree_jit_h)
-#define octave_tree_jit_h 1
+#if !defined (octave_pt_jit_h)
+#define octave_pt_jit_h 1
 
 #ifdef HAVE_LLVM
 
@@ -367,7 +367,7 @@
   llvm::Module *get_module (void) const { return module; }
 
   void optimize (llvm::Function *fn);
- private:
+private:
   tree_jit (void);
 
   static tree_jit& instance (void);
--- a/libinterp/corefcn/quad.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/quad.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -173,7 +173,7 @@
   while (0)
 
 DEFUN (quad, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{q} =} quad (@var{f}, @var{a}, @var{b})\n\
 @deftypefnx {Built-in Function} {@var{q} =} quad (@var{f}, @var{a}, @var{b}, @var{tol})\n\
 @deftypefnx {Built-in Function} {@var{q} =} quad (@var{f}, @var{a}, @var{b}, @var{tol}, @var{sing})\n\
@@ -259,7 +259,8 @@
             QUAD_ABORT1 ("expecting third argument to be a scalar");
 
           int indefinite = 0;
-          FloatIndefQuad::IntegralType indef_type = FloatIndefQuad::doubly_infinite;
+          FloatIndefQuad::IntegralType indef_type
+            = FloatIndefQuad::doubly_infinite;
           float bound = 0.0;
           if (xisinf (a) && xisinf (b))
             {
--- a/libinterp/corefcn/quadcc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/quadcc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -38,7 +38,7 @@
 #define DEBUG_QUADCC 0
 
 /* Define the minimum size of the interval heap. */
-#define min_cquad_heapsize  200 
+#define min_cquad_heapsize  200
 
 
 /* Data of a single interval */
@@ -53,7 +53,8 @@
 
 /* Some constants and matrices that we'll need.  */
 
-static const double xi[33] = {
+static const double xi[33] =
+{
   -1., -0.99518472667219688624, -0.98078528040323044912,
   -0.95694033573220886493, -0.92387953251128675612,
   -0.88192126434835502970, -0.83146961230254523708,
@@ -69,7 +70,8 @@
   0.98078528040323044912, 0.99518472667219688624, 1.
 };
 
-static const double bee[68] = {
+static const double bee[68] =
+{
   0.00000000000000e+00, 2.28868854108532e-01, 0.00000000000000e+00,
   -8.15740215243451e-01, 0.00000000000000e+00, 5.31212715259731e-01,
   0.00000000000000e+00, 1.38538036812454e-02, 0.00000000000000e+00,
@@ -95,7 +97,8 @@
   0.00000000000000e+00, 5.40679930965238e-01
 };
 
-static const double Lalpha[33] = {
+static const double Lalpha[33] =
+{
   5.77350269189626e-01, 5.16397779494322e-01, 5.07092552837110e-01,
   5.03952630678970e-01, 5.02518907629606e-01, 5.01745206004255e-01,
   5.01280411827603e-01, 5.00979432868120e-01, 5.00773395667191e-01,
@@ -109,7 +112,8 @@
   5.00065049112355e-01, 5.00061046334395e-01, 5.00057401986298e-01
 };
 
-static const double Lgamma[33] = {
+static const double Lgamma[33] =
+{
   0.0, 0.0, 5.16397779494322e-01, 5.07092552837110e-01, 5.03952630678970e-01,
   5.02518907629606e-01, 5.01745206004255e-01, 5.01280411827603e-01,
   5.00979432868120e-01, 5.00773395667191e-01, 5.00626174321759e-01,
@@ -123,7 +127,8 @@
   5.00061046334395e-01
 };
 
-static const double V1inv[5 * 5] = {
+static const double V1inv[5 * 5] =
+{
   .47140452079103168293e-1, .37712361663282534635, .56568542494923801952,
   .37712361663282534635, .47140452079103168293e-1,
   -.81649658092772603273e-1, -.46188021535170061160, 0,
@@ -135,7 +140,8 @@
   .10774960475223581324
 };
 
-static const double V2inv[9 * 9] = {
+static const double V2inv[9 * 9] =
+{
   .11223917161691230546e-1, .10339219839658349826, .19754094204576565761,
   .25577315077753587922, .27835314560994251755, .25577315077753587922,
   .19754094204576565761, .10339219839658349826, .11223917161691230546e-1,
@@ -169,7 +175,8 @@
   .10916211417928767644, -.10916211417928767644, .54581057089643838221e-1
 };
 
-static const double V3inv[17 * 17] = {
+static const double V3inv[17 * 17] =
+{
   .27729677693590098996e-2, .26423663180333065153e-1,
   .53374068493933898312e-1, .77007854739523195947e-1,
   .98257061072911596869e-1, .11538049741786835604, .12832134344120884559,
@@ -306,7 +313,8 @@
   -.54971216929497681146e-1, .27485608464748840573e-1
 };
 
-static const double V4inv[33 * 33] = {
+static const double V4inv[33 * 33] =
+{
   .69120897476690862600e-3, .66419939766331555194e-2,
   .13600665164323186111e-1, .20122785860913684493e-1,
   .26583214101668429944e-1, .32712713318999268739e-1,
@@ -882,7 +890,8 @@
   -.27588282524939131481e-1, .13794141262469565740e-1
 };
 
-static const double Tleft[33 * 33] = {
+static const double Tleft[33 * 33] =
+{
   1., -.86602540378443864678, 0., .33071891388307382381, 0.,
   -.20728904939721249057, 0., .15128841196122722208, 0.,
   -.11918864298744029244, 0., .98352013661686631224e-1, 0.,
@@ -1136,253 +1145,254 @@
   0., 0., .23283064365386962891e-9
 };
 
-static const double Tright[33 * 33] = {
+static const double Tright[33 * 33] =
+{
   1., .86602540378443864678, 0., -.33071891388307382381, 0.,
-    .20728904939721249057, 0., -.15128841196122722208, 0.,
-    .11918864298744029244, 0., -.98352013661686631224e-1, 0.,
-    .83727065404940845733e-1, 0., -.72893399403505841203e-1, 0.,
-    .64544632643375022436e-1, 0., -.57913170372415565639e-1, 0.,
-    .52518242575729562263e-1, 0., -.48043311993977520457e-1, 0.,
-    .44271433659733990243e-1, 0., -.41048928022856771981e-1, 0.,
-    .38263878662008271459e-1, 0., -.35832844026365304501e-1, 0., 0.,
-    .50000000000000000000, .96824583655185422130, .57282196186948000082,
-    -.21650635094610966169, -.35903516540862679125, .97578093724974971969e-1,
-    .26203921611325660506, -.55792409597991015609e-1, -.20644078533943456204,
-    .36172381205961199479e-1, .17035068468874958194,
-    -.25371838001497225980e-1, -.14501953125000000000,
-    .18786835250972344757e-1, .12625507130328301066,
-    -.14473795929590520582e-1, -.11179458309419422675,
-    .11494434254897626155e-1, .10030855351241635862,
-    -.93498556820544479096e-2, -.90964264465390582629e-1,
-    .77546391824364392762e-2, .83213457337452292745e-1,
-    -.65358085945588638605e-2, -.76680372422574234569e-1,
-    .55835321940047427169e-2, .71098828931825789428e-1,
-    -.48253327982967591019e-2, -.66274981937248958553e-1,
-    .42118078245337801387e-2, .62064306433355646267e-1,
-    -.37083386598903548973e-2, 0., 0., .25000000000000000000,
-    .73950997288745200531, .83852549156242113615, .23175620272173946716,
-    -.37791833195149451496, -.25710129174850522325, .21608307321780204633,
-    .22844049245646009157, -.14009503000335388415, -.19897685605518413847,
-    .98264706042471226893e-1, .17445445004279014046,
-    -.72761100054958328401e-1, -.15463589893742108388,
-    .56056770591708784481e-1, .13855313872640495158,
-    -.44517752443294564781e-1, -.12534277657695128850,
-    .36211835346039665762e-1, .11434398255136139683,
-    -.30033588409423828125e-1, -.10506705408753910481,
-    .25313077840725783008e-1, .97149327637744872155e-1,
-    -.21624927200393328444e-1, -.90319582367202122625e-1,
-    .18688433567711780666e-1, .84372291635345108584e-1,
-    -.16312261561845420752e-1, -.79149526894804751586e-1,
-    .14362333871852474757e-1, 0., 0., 0., .12500000000000000000,
-    .49607837082461073572, .82265291131801144317, .59621200088559103072,
-    -.80054302859059362371e-1, -.42612156697795759420,
-    -.90098145270865592887e-1, .29769623255090078484, .13630307904779758221,
-    -.21638835185708931831, -.14600247270306082052, .16348801804014290453,
-    .14340708728599057249, -.12755243353979286190, -.13661523715071346961,
-    .10215585947881057394, .12864248070157166547, -.83592528025348693602e-1,
-    -.12066728689302565222, .69633728678718053052e-1, .11314245177331919532,
-    -.58882939251410088028e-1, -.10621835858758221487,
-    .50432266865187597572e-1, .99916834723527771581e-1,
-    -.43672094283057258509e-1, -.94206380251950852413e-1,
-    .38181356812697746418e-1, .89035739656537771225e-1,
-    -.33661934598216332678e-1, 0., 0., 0., 0., .62500000000000000000e-1,
-    .31093357409581873586, .67604086414949799246, .75644205980613611039,
-    .28990586430124175741, -.30648508196770360914, -.35801372616842500052,
-    .91326869828709014708e-1, .31127929687500000000, .90915752838698393094e-2,
-    -.25637381283965534330, -.57601077850322797594e-1, .21019685709225757945,
-    .81244992138514014256e-1, -.17375078516720988858,
-    -.92289437277967051125e-1, .14527351914265391374,
-    .96675340792832019889e-1, -.12289485697108543415,
-    -.97448175340011084006e-1, .10511755943298339844,
-    .96242247086378239657e-1, -.90822942272780513537e-1,
-    -.93966350452322132384e-1, .79189411876493712558e-1,
-    .91139307067989309325e-1, -.69613039934383197265e-1,
-    -.88062491671135767870e-1, .61646331729340817494e-1, 0., 0., 0., 0., 0.,
-    .31250000000000000000e-1, .18684782411095934408, .50176689760410660236,
-    .74784031498626095398, .56472001151566251186, -.14842464993721351203e-1,
-    -.41162920273003120936, -.20243071230196532282, .23772054897172750436,
-    .24963810923972235950, -.12116179938394678936, -.24330535483519110663,
-    .47903849781124471359e-1, .22133299683101224293,
-    -.20542915138527200983e-2, -.19653465717678146728,
-    -.26818172626509178444e-1, .17319122357631210944,
-    .45065391411065545445e-1, -.15253391395444065941,
-    -.56543897711725408302e-1, .13469154928743585367,
-    .63632471400208840155e-1, -.11941684923913523817,
-    -.67828850207933293098e-1, .10636309084510652670,
-    .70095786922999181504e-1, -.95187373095150709082e-1, 0., 0., 0., 0., 0.,
-    0., .15625000000000000000e-1, .10909562534194485289,
-    .34842348626527747318, .64461114561628111443, .69382480527334683659,
-    .29551102358528827763, -.25527584713978439819, -.38878771718544715394,
-    -.82956185835347407489e-2, .31183177761966943912, .12831420840372374767,
-    -.22067618205599434368, -.17569196937129496961, .14598057000132284135,
-    .18864406621763419484, -.89921002550386645767e-1, -.18571835020187122114,
-    .48967672227195481777e-1, .17584685670380332798,
-    -.19267984545067426324e-1, -.16335437520503462738,
-    -.22598055455032407594e-2, .15032800884170631129,
-    .17883358353754640871e-1, -.13774837869432209951,
-    -.29227555960587143675e-1, .12604194747513151053, 0., 0., 0., 0., 0., 0.,
-    0., .78125000000000000000e-2, .62377810244809812496e-1,
-    .23080781467370883845, .50841310636012325368, .69834547012574056043,
-    .52572723156526459672, .11464215704954976471e-1, -.38698869011491210342,
-    -.26125646622255207507, .16951698812361607510, .29773875898928782269,
-    -.20130501202570367491e-1, -.26332493149159310198,
-    -.67734613690401207009e-1, .21207315477103762715, .11541543390889415193,
-    -.16249634759782417533, -.13885887405041735068, .11996491328010275427,
-    .14810432001630926895, -.85177658352556243411e-1, -.14918860659904380587,
-    .57317789510444151564e-1, .14569827645586660151,
-    -.35213090145965327390e-1, -.13975998126844578198, 0., 0., 0., 0., 0., 0.,
-    0., 0., .39062500000000000000e-2, .35101954600803571207e-1,
-    .14761284084133737720, .37655033076080192966, .62410290231517322776,
-    .64335622317683389875, .28188168266139524244, -.22488495672137010675,
-    -.39393811089283576186, -.75184777995770096714e-1, .28472023119398293003,
-    .20410910833705899572, -.15590046962908511750, -.23814567544617953125,
-    .54442805556829031204e-1, .22855930338589720954, .16303223615756629897e-1,
-    -.20172722433875559213, -.62723406421217419404e-1, .17012230831020922010,
-    .91754642766136561612e-1, -.13927644821381121197, -.10886600968068418181,
-    .11139075654373395292, .11797455976331702879, 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., .19531250000000000000e-2, .19506820659607596598e-1,
-    .91865676095362231937e-1, .26604607809696493849, .51425874205091288223,
-    .66047561132505329292, .48660109511591303851, .17575661168678285615e-1,
-    -.36594333408055703366, -.29088854695378694533, .11318677346656537927,
-    .31110645235730182168, .60733219161008787341e-1, -.24333848233620420826,
-    -.15254312332655419708, .15995968483455388613, .19010344455215289289,
-    -.86040636766440260000e-1, -.19652589954665259945,
-    .27633388517205837713e-1, .18660848552712880387, .15942583868416775867e-1,
-    -.16902042462382064786, -.47278526495327740646e-1, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., .97656250000000000000e-3, .10731084460857378207e-1,
-    .55939644713816406331e-1, .18118487371914493668, .39914857299829864263,
-    .60812322949933902435, .60011887183061967583, .26002695805835928795,
-    -.20883922404786010096, -.38988130966114638081, -.11797833550782589082,
-    .25231824756239520077, .24817859972953934712, -.90516417677868996417e-1,
-    -.26079073291293066798, -.30259468817169480161e-1, .22178195264114178432,
-    .10569877864302048175, -.16679648389266977455, -.14637718550245050850,
-    .11219272032739559870, .16359363640525750353, -.64358194509092101393e-1,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .48828125000000000000e-3,
-    .58542865274813470967e-2, .33461741635290096452e-1, .11979993155896201271,
-    .29580223766987206958, .51874761979436016742, .62861483498014306968,
-    .44868895761051453296, .12567502628371529386e-1, -.35040366183235474275,
-    -.30466868455569500886, .70903913601490112666e-1, .30822791893032512740,
-    .11969443264190207736, -.20764760317621313946, -.20629838355452128532,
-    .95269702915334718507e-1, .22432624768705133300,
-    -.33103381593477797101e-2, -.20570036048155716333,
-    -.62208282720094518964e-1, .17095309330441436348, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., .24414062500000000000e-3,
-    .31714797501871532475e-2, .19721062526127334100e-1,
-    .77311181185536498246e-1, .21124871792841566575, .41777980401893650886,
-    .59401977834943551650, .56132417807488349048, .23433675061367565951,
-    -.20222775295220942126, -.38280372496506190127, -.14443804214023095767,
-    .22268950939178466797, .27211314150777981984, -.34184876506180717313e-1,
-    -.26006498895669734842, -.97650425186005090107e-1, .19024527660129101293,
-    .16789164198044635671, -.10875811641651905252, -.19276785058805921298, 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .12207031250000000000e-3,
-    .17078941137247586143e-2, .11477733754843910060e-1,
-    .48887017020924625462e-1, .14634927241421789683, .32156282683019547854,
-    .52165811920227223937, .60001958466396926460, .41208501541480733755,
-    .11366945503190350975e-2, -.33968093962672089159, -.30955190935923386766,
-    .40657421856578262210e-1, .29873400409871531764, .16094481791768257440,
-    -.16876122436206497694, -.23650217045022161255, .33070260090574765012e-1,
-    .22985258456375907796, .68645651043827097771e-1, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., .61035156250000000000e-4,
-    .91501857608428649078e-3, .66085179496951987952e-2,
-    .30383171695850355404e-1, .98840838845366876117e-1, .23855447246420318989,
-    .43322017468145613917, .58049033744876107191, .52533893203742699346,
-    .20681056202371946180, -.20180000924562504384, -.37503922291962681797,
-    -.15988102869837429062, .19823558102762374094, .28393023878803799622,
-    .11188133439357510403e-1, -.24730368377168229255, -.14731529061377942839,
-    .14878558042884266021, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., .30517578125000000000e-4, .48804277318479845551e-3,
-    .37696080990601968396e-2, .18603912108994738255e-1,
-    .65325006755649582964e-1, .17162960707938819795, .34411527956476971322,
-    .52289350347082497959, .57319653625674910592, .37662253421045430413,
-    -.14099055105384663902e-1, -.33265570610216904208, -.30921265572647566661,
-    .19911390594166455281e-1, .28738590811031797718, .18912130469738472647,
-    -.13235936203215819193, -.25076406142356675279, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .15258789062500000000e-4,
-    .25928719280954633249e-3, .21327398937568540428e-2,
-    .11244626133630732010e-1, .42375605740664331966e-1, .12031130345907846211,
-    .26352562258934426830, .44590628258512682078, .56682835613700749379,
-    .49116715128261660395, .17845943097110339078, -.20541650677432497477,
-    -.36739803642257458221, -.16776034069210108273, .17920950989905112908,
-    .28867732805385066532, .46473465543376206337e-1, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .76293945312500000000e-5,
-    .13727610943181290891e-3, .11979683091449349286e-2,
-    .67195313034570709806e-2, .27044920779931968175e-1,
-    .82472196498517457862e-1, .19570475044896150093, .36391620788543817693,
-    .52241392782736588032, .54727504974907879912, .34211551468813581183,
-    -.31580472732719957762e-1, -.32830006549176759667, -.30563797665254420769,
-    .64905014620683140120e-2, .27642986248995073032, 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .38146972656250000000e-5,
-    .72454147007837596854e-4, .66859847582761390285e-3,
-    .39751311980366118437e-2, .17015198650201528366e-1,
-    .55443621868993855715e-1, .14157060481641692131, .28641242619559616836,
-    .45610665490966615415, .55262786406029265394, .45818352706035500108,
-    .14984403004611673047, -.21163807462970713245, -.36007252928843413718,
-    -.17030961385712954159, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., .19073486328125000000e-5,
-    .38135049864067468562e-4, .37101393638555730015e-3,
-    .23305339886279723213e-2, .10569913448297127219e-1,
-    .36640175162216897547e-1, .10010476414320235508, .21860074212675559892,
-    .38124757096345313719, .52020999209879669177, .52172632730659212045,
-    .30841620620308814614, -.50322546186721500184e-1, -.32577618885114899053,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., .95367431640625000000e-6, .20021483206955925244e-4,
-    .20481807322420625431e-3, .13553476938058909882e-2,
-    .64919676350791905019e-2, .23848725425069251903e-1,
-    .69384632678886421292e-1, .16249711393618776934, .30736618106830314788,
-    .46399909601971539157, .53765031034002467225, .42598991476520183929,
-    .12130445348350215652, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., .47683715820312500000e-6,
-    .10487707828484902486e-4, .11254146162337528943e-3,
-    .78248929534271987118e-3, .39468337145306794566e-2,
-    .15313546659475671763e-1, .47249070825218564146e-1, .11804374107101480543,
-    .24031796927792491122, .39629215049166341285, .51629108968402548545,
-    .49622372075429782915, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., .23841857910156250000e-6,
-    .54823314130625337326e-5, .61575377321535518154e-4,
-    .44877834366497538134e-3, .23774612048621955857e-2,
-    .97136347645161687796e-2, .31671599547606636717e-1,
-    .84028665767000747480e-1, .18298487576742964949, .32647878537696945218,
-    .46970971486488895077, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .11920928955078125000e-6,
-    .28604020001177375838e-5, .33559227978295551013e-4,
-    .25583821662860610560e-3, .14201552747787302339e-2,
-    .60938046986874414969e-2, .20930869247951926793e-1,
-    .58745021125678072911e-1, .13613725780285953720, .26083988356030237586,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., .59604644775390625000e-7,
-    .14898180663526043291e-5, .18224991282807693921e-4,
-    .14504433444608833821e-3, .84184722720281809548e-3,
-    .37846965430000478789e-2, .13656355548211376864e-1,
-    .40409541997718853934e-1, .99226988101858325902e-1, 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., .29802322387695312500e-7, .77471708843445529468e-6,
-    .98649879372606876995e-5, .81814934772838523887e-4,
-    .49554483992403011328e-3, .23290922072351413938e-2,
-    .88068134250844034186e-2, .27393666952485719070e-1, 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., .14901161193847656250e-7, .40226235946098233685e-6,
-    .53236418690561306700e-5, .45933829691164002269e-4,
-    .28982005232838857913e-3, .14212974043211018374e-2,
-    .56192363087488842264e-2, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    .74505805969238281250e-8, .20858299254133430408e-6,
-    .28648457300134381744e-5, .25677535898258910850e-4,
-    .16849420429491355445e-3, .86062824010315834002e-3, 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., .37252902984619140625e-8, .10801736017613096861e-6,
-    .15376606719887104015e-5, .14296523739727437959e-4,
-    .97419023656050887203e-4, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    .18626451492309570312e-8, .55871592916438890146e-7,
-    .82331193828137454068e-6, .79302250528382787666e-5, 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., .93132257461547851562e-9,
-    .28867244235852488244e-7, .43982811713864556957e-6, 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., .46566128730773925781e-9,
-    .14899342093408253335e-7, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
-    0., 0., .23283064365386962891e-9
+  .20728904939721249057, 0., -.15128841196122722208, 0.,
+  .11918864298744029244, 0., -.98352013661686631224e-1, 0.,
+  .83727065404940845733e-1, 0., -.72893399403505841203e-1, 0.,
+  .64544632643375022436e-1, 0., -.57913170372415565639e-1, 0.,
+  .52518242575729562263e-1, 0., -.48043311993977520457e-1, 0.,
+  .44271433659733990243e-1, 0., -.41048928022856771981e-1, 0.,
+  .38263878662008271459e-1, 0., -.35832844026365304501e-1, 0., 0.,
+  .50000000000000000000, .96824583655185422130, .57282196186948000082,
+  -.21650635094610966169, -.35903516540862679125, .97578093724974971969e-1,
+  .26203921611325660506, -.55792409597991015609e-1, -.20644078533943456204,
+  .36172381205961199479e-1, .17035068468874958194,
+  -.25371838001497225980e-1, -.14501953125000000000,
+  .18786835250972344757e-1, .12625507130328301066,
+  -.14473795929590520582e-1, -.11179458309419422675,
+  .11494434254897626155e-1, .10030855351241635862,
+  -.93498556820544479096e-2, -.90964264465390582629e-1,
+  .77546391824364392762e-2, .83213457337452292745e-1,
+  -.65358085945588638605e-2, -.76680372422574234569e-1,
+  .55835321940047427169e-2, .71098828931825789428e-1,
+  -.48253327982967591019e-2, -.66274981937248958553e-1,
+  .42118078245337801387e-2, .62064306433355646267e-1,
+  -.37083386598903548973e-2, 0., 0., .25000000000000000000,
+  .73950997288745200531, .83852549156242113615, .23175620272173946716,
+  -.37791833195149451496, -.25710129174850522325, .21608307321780204633,
+  .22844049245646009157, -.14009503000335388415, -.19897685605518413847,
+  .98264706042471226893e-1, .17445445004279014046,
+  -.72761100054958328401e-1, -.15463589893742108388,
+  .56056770591708784481e-1, .13855313872640495158,
+  -.44517752443294564781e-1, -.12534277657695128850,
+  .36211835346039665762e-1, .11434398255136139683,
+  -.30033588409423828125e-1, -.10506705408753910481,
+  .25313077840725783008e-1, .97149327637744872155e-1,
+  -.21624927200393328444e-1, -.90319582367202122625e-1,
+  .18688433567711780666e-1, .84372291635345108584e-1,
+  -.16312261561845420752e-1, -.79149526894804751586e-1,
+  .14362333871852474757e-1, 0., 0., 0., .12500000000000000000,
+  .49607837082461073572, .82265291131801144317, .59621200088559103072,
+  -.80054302859059362371e-1, -.42612156697795759420,
+  -.90098145270865592887e-1, .29769623255090078484, .13630307904779758221,
+  -.21638835185708931831, -.14600247270306082052, .16348801804014290453,
+  .14340708728599057249, -.12755243353979286190, -.13661523715071346961,
+  .10215585947881057394, .12864248070157166547, -.83592528025348693602e-1,
+  -.12066728689302565222, .69633728678718053052e-1, .11314245177331919532,
+  -.58882939251410088028e-1, -.10621835858758221487,
+  .50432266865187597572e-1, .99916834723527771581e-1,
+  -.43672094283057258509e-1, -.94206380251950852413e-1,
+  .38181356812697746418e-1, .89035739656537771225e-1,
+  -.33661934598216332678e-1, 0., 0., 0., 0., .62500000000000000000e-1,
+  .31093357409581873586, .67604086414949799246, .75644205980613611039,
+  .28990586430124175741, -.30648508196770360914, -.35801372616842500052,
+  .91326869828709014708e-1, .31127929687500000000, .90915752838698393094e-2,
+  -.25637381283965534330, -.57601077850322797594e-1, .21019685709225757945,
+  .81244992138514014256e-1, -.17375078516720988858,
+  -.92289437277967051125e-1, .14527351914265391374,
+  .96675340792832019889e-1, -.12289485697108543415,
+  -.97448175340011084006e-1, .10511755943298339844,
+  .96242247086378239657e-1, -.90822942272780513537e-1,
+  -.93966350452322132384e-1, .79189411876493712558e-1,
+  .91139307067989309325e-1, -.69613039934383197265e-1,
+  -.88062491671135767870e-1, .61646331729340817494e-1, 0., 0., 0., 0., 0.,
+  .31250000000000000000e-1, .18684782411095934408, .50176689760410660236,
+  .74784031498626095398, .56472001151566251186, -.14842464993721351203e-1,
+  -.41162920273003120936, -.20243071230196532282, .23772054897172750436,
+  .24963810923972235950, -.12116179938394678936, -.24330535483519110663,
+  .47903849781124471359e-1, .22133299683101224293,
+  -.20542915138527200983e-2, -.19653465717678146728,
+  -.26818172626509178444e-1, .17319122357631210944,
+  .45065391411065545445e-1, -.15253391395444065941,
+  -.56543897711725408302e-1, .13469154928743585367,
+  .63632471400208840155e-1, -.11941684923913523817,
+  -.67828850207933293098e-1, .10636309084510652670,
+  .70095786922999181504e-1, -.95187373095150709082e-1, 0., 0., 0., 0., 0.,
+  0., .15625000000000000000e-1, .10909562534194485289,
+  .34842348626527747318, .64461114561628111443, .69382480527334683659,
+  .29551102358528827763, -.25527584713978439819, -.38878771718544715394,
+  -.82956185835347407489e-2, .31183177761966943912, .12831420840372374767,
+  -.22067618205599434368, -.17569196937129496961, .14598057000132284135,
+  .18864406621763419484, -.89921002550386645767e-1, -.18571835020187122114,
+  .48967672227195481777e-1, .17584685670380332798,
+  -.19267984545067426324e-1, -.16335437520503462738,
+  -.22598055455032407594e-2, .15032800884170631129,
+  .17883358353754640871e-1, -.13774837869432209951,
+  -.29227555960587143675e-1, .12604194747513151053, 0., 0., 0., 0., 0., 0.,
+  0., .78125000000000000000e-2, .62377810244809812496e-1,
+  .23080781467370883845, .50841310636012325368, .69834547012574056043,
+  .52572723156526459672, .11464215704954976471e-1, -.38698869011491210342,
+  -.26125646622255207507, .16951698812361607510, .29773875898928782269,
+  -.20130501202570367491e-1, -.26332493149159310198,
+  -.67734613690401207009e-1, .21207315477103762715, .11541543390889415193,
+  -.16249634759782417533, -.13885887405041735068, .11996491328010275427,
+  .14810432001630926895, -.85177658352556243411e-1, -.14918860659904380587,
+  .57317789510444151564e-1, .14569827645586660151,
+  -.35213090145965327390e-1, -.13975998126844578198, 0., 0., 0., 0., 0., 0.,
+  0., 0., .39062500000000000000e-2, .35101954600803571207e-1,
+  .14761284084133737720, .37655033076080192966, .62410290231517322776,
+  .64335622317683389875, .28188168266139524244, -.22488495672137010675,
+  -.39393811089283576186, -.75184777995770096714e-1, .28472023119398293003,
+  .20410910833705899572, -.15590046962908511750, -.23814567544617953125,
+  .54442805556829031204e-1, .22855930338589720954, .16303223615756629897e-1,
+  -.20172722433875559213, -.62723406421217419404e-1, .17012230831020922010,
+  .91754642766136561612e-1, -.13927644821381121197, -.10886600968068418181,
+  .11139075654373395292, .11797455976331702879, 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., .19531250000000000000e-2, .19506820659607596598e-1,
+  .91865676095362231937e-1, .26604607809696493849, .51425874205091288223,
+  .66047561132505329292, .48660109511591303851, .17575661168678285615e-1,
+  -.36594333408055703366, -.29088854695378694533, .11318677346656537927,
+  .31110645235730182168, .60733219161008787341e-1, -.24333848233620420826,
+  -.15254312332655419708, .15995968483455388613, .19010344455215289289,
+  -.86040636766440260000e-1, -.19652589954665259945,
+  .27633388517205837713e-1, .18660848552712880387, .15942583868416775867e-1,
+  -.16902042462382064786, -.47278526495327740646e-1, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., .97656250000000000000e-3, .10731084460857378207e-1,
+  .55939644713816406331e-1, .18118487371914493668, .39914857299829864263,
+  .60812322949933902435, .60011887183061967583, .26002695805835928795,
+  -.20883922404786010096, -.38988130966114638081, -.11797833550782589082,
+  .25231824756239520077, .24817859972953934712, -.90516417677868996417e-1,
+  -.26079073291293066798, -.30259468817169480161e-1, .22178195264114178432,
+  .10569877864302048175, -.16679648389266977455, -.14637718550245050850,
+  .11219272032739559870, .16359363640525750353, -.64358194509092101393e-1,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .48828125000000000000e-3,
+  .58542865274813470967e-2, .33461741635290096452e-1, .11979993155896201271,
+  .29580223766987206958, .51874761979436016742, .62861483498014306968,
+  .44868895761051453296, .12567502628371529386e-1, -.35040366183235474275,
+  -.30466868455569500886, .70903913601490112666e-1, .30822791893032512740,
+  .11969443264190207736, -.20764760317621313946, -.20629838355452128532,
+  .95269702915334718507e-1, .22432624768705133300,
+  -.33103381593477797101e-2, -.20570036048155716333,
+  -.62208282720094518964e-1, .17095309330441436348, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., .24414062500000000000e-3,
+  .31714797501871532475e-2, .19721062526127334100e-1,
+  .77311181185536498246e-1, .21124871792841566575, .41777980401893650886,
+  .59401977834943551650, .56132417807488349048, .23433675061367565951,
+  -.20222775295220942126, -.38280372496506190127, -.14443804214023095767,
+  .22268950939178466797, .27211314150777981984, -.34184876506180717313e-1,
+  -.26006498895669734842, -.97650425186005090107e-1, .19024527660129101293,
+  .16789164198044635671, -.10875811641651905252, -.19276785058805921298, 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .12207031250000000000e-3,
+  .17078941137247586143e-2, .11477733754843910060e-1,
+  .48887017020924625462e-1, .14634927241421789683, .32156282683019547854,
+  .52165811920227223937, .60001958466396926460, .41208501541480733755,
+  .11366945503190350975e-2, -.33968093962672089159, -.30955190935923386766,
+  .40657421856578262210e-1, .29873400409871531764, .16094481791768257440,
+  -.16876122436206497694, -.23650217045022161255, .33070260090574765012e-1,
+  .22985258456375907796, .68645651043827097771e-1, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., .61035156250000000000e-4,
+  .91501857608428649078e-3, .66085179496951987952e-2,
+  .30383171695850355404e-1, .98840838845366876117e-1, .23855447246420318989,
+  .43322017468145613917, .58049033744876107191, .52533893203742699346,
+  .20681056202371946180, -.20180000924562504384, -.37503922291962681797,
+  -.15988102869837429062, .19823558102762374094, .28393023878803799622,
+  .11188133439357510403e-1, -.24730368377168229255, -.14731529061377942839,
+  .14878558042884266021, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., .30517578125000000000e-4, .48804277318479845551e-3,
+  .37696080990601968396e-2, .18603912108994738255e-1,
+  .65325006755649582964e-1, .17162960707938819795, .34411527956476971322,
+  .52289350347082497959, .57319653625674910592, .37662253421045430413,
+  -.14099055105384663902e-1, -.33265570610216904208, -.30921265572647566661,
+  .19911390594166455281e-1, .28738590811031797718, .18912130469738472647,
+  -.13235936203215819193, -.25076406142356675279, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .15258789062500000000e-4,
+  .25928719280954633249e-3, .21327398937568540428e-2,
+  .11244626133630732010e-1, .42375605740664331966e-1, .12031130345907846211,
+  .26352562258934426830, .44590628258512682078, .56682835613700749379,
+  .49116715128261660395, .17845943097110339078, -.20541650677432497477,
+  -.36739803642257458221, -.16776034069210108273, .17920950989905112908,
+  .28867732805385066532, .46473465543376206337e-1, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .76293945312500000000e-5,
+  .13727610943181290891e-3, .11979683091449349286e-2,
+  .67195313034570709806e-2, .27044920779931968175e-1,
+  .82472196498517457862e-1, .19570475044896150093, .36391620788543817693,
+  .52241392782736588032, .54727504974907879912, .34211551468813581183,
+  -.31580472732719957762e-1, -.32830006549176759667, -.30563797665254420769,
+  .64905014620683140120e-2, .27642986248995073032, 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .38146972656250000000e-5,
+  .72454147007837596854e-4, .66859847582761390285e-3,
+  .39751311980366118437e-2, .17015198650201528366e-1,
+  .55443621868993855715e-1, .14157060481641692131, .28641242619559616836,
+  .45610665490966615415, .55262786406029265394, .45818352706035500108,
+  .14984403004611673047, -.21163807462970713245, -.36007252928843413718,
+  -.17030961385712954159, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., .19073486328125000000e-5,
+  .38135049864067468562e-4, .37101393638555730015e-3,
+  .23305339886279723213e-2, .10569913448297127219e-1,
+  .36640175162216897547e-1, .10010476414320235508, .21860074212675559892,
+  .38124757096345313719, .52020999209879669177, .52172632730659212045,
+  .30841620620308814614, -.50322546186721500184e-1, -.32577618885114899053,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., .95367431640625000000e-6, .20021483206955925244e-4,
+  .20481807322420625431e-3, .13553476938058909882e-2,
+  .64919676350791905019e-2, .23848725425069251903e-1,
+  .69384632678886421292e-1, .16249711393618776934, .30736618106830314788,
+  .46399909601971539157, .53765031034002467225, .42598991476520183929,
+  .12130445348350215652, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., .47683715820312500000e-6,
+  .10487707828484902486e-4, .11254146162337528943e-3,
+  .78248929534271987118e-3, .39468337145306794566e-2,
+  .15313546659475671763e-1, .47249070825218564146e-1, .11804374107101480543,
+  .24031796927792491122, .39629215049166341285, .51629108968402548545,
+  .49622372075429782915, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., .23841857910156250000e-6,
+  .54823314130625337326e-5, .61575377321535518154e-4,
+  .44877834366497538134e-3, .23774612048621955857e-2,
+  .97136347645161687796e-2, .31671599547606636717e-1,
+  .84028665767000747480e-1, .18298487576742964949, .32647878537696945218,
+  .46970971486488895077, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .11920928955078125000e-6,
+  .28604020001177375838e-5, .33559227978295551013e-4,
+  .25583821662860610560e-3, .14201552747787302339e-2,
+  .60938046986874414969e-2, .20930869247951926793e-1,
+  .58745021125678072911e-1, .13613725780285953720, .26083988356030237586,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., .59604644775390625000e-7,
+  .14898180663526043291e-5, .18224991282807693921e-4,
+  .14504433444608833821e-3, .84184722720281809548e-3,
+  .37846965430000478789e-2, .13656355548211376864e-1,
+  .40409541997718853934e-1, .99226988101858325902e-1, 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., .29802322387695312500e-7, .77471708843445529468e-6,
+  .98649879372606876995e-5, .81814934772838523887e-4,
+  .49554483992403011328e-3, .23290922072351413938e-2,
+  .88068134250844034186e-2, .27393666952485719070e-1, 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., .14901161193847656250e-7, .40226235946098233685e-6,
+  .53236418690561306700e-5, .45933829691164002269e-4,
+  .28982005232838857913e-3, .14212974043211018374e-2,
+  .56192363087488842264e-2, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  .74505805969238281250e-8, .20858299254133430408e-6,
+  .28648457300134381744e-5, .25677535898258910850e-4,
+  .16849420429491355445e-3, .86062824010315834002e-3, 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., .37252902984619140625e-8, .10801736017613096861e-6,
+  .15376606719887104015e-5, .14296523739727437959e-4,
+  .97419023656050887203e-4, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  .18626451492309570312e-8, .55871592916438890146e-7,
+  .82331193828137454068e-6, .79302250528382787666e-5, 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., .93132257461547851562e-9,
+  .28867244235852488244e-7, .43982811713864556957e-6, 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., .46566128730773925781e-9,
+  .14899342093408253335e-7, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
+  0., 0., .23283064365386962891e-9
 };
 
 /* Allocates a workspace for the given maximum number of intervals.
@@ -1476,7 +1486,7 @@
 /* The actual integration routine.  */
 
 DEFUN (quadcc, args, nargout,
-"-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b})\n\
 @deftypefnx {Function File} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b}, @var{tol})\n\
 @deftypefnx {Function File} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b}, @var{tol}, @var{sing})\n\
@@ -1585,12 +1595,12 @@
     fcn = args(0).function_value ();
   else
     {
-       std::string fcn_name = unique_symbol_name ("__quadcc_fcn__");
-       std::string fname = "function y = ";
-       fname.append (fcn_name);
-       fname.append ("(x) y = ");
-       fcn = extract_function (args(0), "quadcc", fcn_name, fname,
-                               "; endfunction");
+      std::string fcn_name = unique_symbol_name ("__quadcc_fcn__");
+      std::string fname = "function y = ";
+      fname.append (fcn_name);
+      fname.append ("(x) y = ");
+      fcn = extract_function (args(0), "quadcc", fcn_name, fname,
+                              "; endfunction");
     }
 
   if (! args(1).is_real_scalar ())
@@ -1788,9 +1798,8 @@
       h = (iv->b - iv->a) / 2;
 
 #if (DEBUG_QUADCC)
-      printf
-        ("quadcc: processing ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
-         heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
+      printf ("quadcc: processing ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
+              heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
 #endif
 
       /* Should we try to increase the degree? */
@@ -1891,14 +1900,13 @@
       /* Should we drop this interval? */
       if ((m + h * xi[0]) >= (m + h * xi[1])
           || (m + h * xi[31]) >= (m + h * xi[32])
-          || iv->err < fabs (iv->igral) * std::numeric_limits<double>::epsilon () * 10)
+          || iv->err < fabs (iv->igral)
+                       * std::numeric_limits<double>::epsilon () * 10)
         {
 
 #if (DEBUG_QUADCC)
-          printf
-            ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
-             heap[0], nivals, iv->a, iv->b, iv->igral, iv->err,
-             iv->depth);
+          printf ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
+                  heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
 #endif
 
           /* Keep this interval's contribution */
@@ -2207,10 +2215,8 @@
         {
           iv = &(ivals[heap[nivals - 1]]);
 #if (DEBUG_QUADCC)
-          printf
-            ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
-             heap[0], nivals, iv->a, iv->b, iv->igral, iv->err,
-             iv->depth);
+          printf ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
+                  heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
 #endif
           err_final += iv->err;
           igral_final += iv->igral;
@@ -2233,10 +2239,9 @@
   for (i = 0; i < nivals; i++)
     {
       iv = &(ivals[heap[i]]);
-      printf
-        ("quadcc: ival %i (%i) with [%e,%e], int=%e, err=%e, depth=%i, rdepth=%i, ndiv=%i\n",
-         i, heap[i], iv->a, iv->b, iv->igral, iv->err, iv->depth,
-         iv->rdepth, iv->ndiv);
+      printf ("quadcc: ival %i (%i) with [%e,%e], int=%e, err=%e, depth=%i, rdepth=%i, ndiv=%i\n",
+              i, heap[i], iv->a, iv->b, iv->igral, iv->err, iv->depth,
+              iv->rdepth, iv->ndiv);
     }
 #endif
 
@@ -2264,16 +2269,16 @@
 %!assert (quadcc (@(x) exp (-x .^ 2), -Inf, Inf), sqrt (pi), 1e-6)
 %!assert (quadcc (@(x) exp (-x .^ 2), -Inf, 0), sqrt (pi)/2, 1e-6)
 
-## Test function with NaNs in interval 
+## Test function with NaNs in interval
 %!function y = __nansin (x)
 %!  nan_locs = [-3*pi/4, -pi/4, 0, pi/3, pi/2, pi];
 %!  y = sin (x);
-%!  idx = min (abs (bsxfun (@minus, x(:), nan_locs)), [], 2); 
+%!  idx = min (abs (bsxfun (@minus, x(:), nan_locs)), [], 2);
 %!  y(idx < 1e-10) = NaN;
-%!endfunction 
+%!endfunction
 
 %!test
-%! [q, err, npoints] = quadcc ("__nansin", -pi, pi); 
+%! [q, err, npoints] = quadcc ("__nansin", -pi, pi);
 %! assert (q, 0, 1e-6);
 %! assert (err, 0, 15*eps);
 
--- a/libinterp/corefcn/qz.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/qz.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -58,9 +58,10 @@
 #include "utils.h"
 #include "variables.h"
 
-typedef octave_idx_type (*sort_function) (const octave_idx_type& LSIZE, const double& ALPHA,
-                              const double& BETA, const double& S,
-                              const double& P);
+typedef octave_idx_type (*sort_function) (const octave_idx_type& LSIZE,
+                                          const double& ALPHA,
+                                          const double& BETA, const double& S,
+                                          const double& P);
 
 extern "C"
 {
@@ -291,7 +292,7 @@
 //FIXME: Matlab does not produce lambda as the first output argument.
 //       Compatibility problem?
 DEFUN (qz, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{lambda} =} qz (@var{A}, @var{B})\n\
 @deftypefnx {Built-in Function} {@var{lambda} =} qz (@var{A}, @var{B}, @var{opt})\n\
 QZ@tie{}decomposition of the generalized eigenvalue problem\n\
@@ -376,7 +377,8 @@
   int nargin = args.length ();
 
 #ifdef DEBUG
-  std::cout << "qz: nargin = " << nargin << ", nargout = " << nargout << std::endl;
+  std::cout << "qz: nargin = " << nargin
+            << ", nargout = " << nargout << std::endl;
 #endif
 
   if (nargin < 2 || nargin > 3 || nargout > 7)
@@ -427,8 +429,9 @@
                                    F77_CHAR_ARG_LEN (1));
 
 #ifdef DEBUG_EIG
-      std::cout << "qz: initial value of safmin=" << setiosflags (std::ios::scientific)
-           << safmin << std::endl;
+      std::cout << "qz: initial value of safmin="
+                << setiosflags (std::ios::scientific)
+                << safmin << std::endl;
 #endif
 
       // Some machines (e.g., DEC alpha) get safmin = 0;
@@ -444,8 +447,9 @@
                                        F77_CHAR_ARG_LEN (1));
 
 #ifdef DEBUG_EIG
-          std::cout << "qz: safmin set to " << setiosflags (std::ios::scientific)
-               << safmin << std::endl;
+          std::cout << "qz: safmin set to "
+                    << setiosflags (std::ios::scientific)
+                    << safmin << std::endl;
 #endif
         }
     }
@@ -458,8 +462,9 @@
   octave_idx_type nn = args(0).rows ();
 
 #ifdef DEBUG
-  std::cout << "argument 1 dimensions: (" << nn << "," << args(0).columns () << ")"
-       << std::endl;
+  std::cout << "argument 1 dimensions: ("
+            << nn << "," << args(0).columns () << ")"
+            << std::endl;
 #endif
 
   int arg_is_empty = empty_arg ("qz", nn, args(0).columns ());
@@ -553,7 +558,8 @@
     {
 #ifdef DEBUG
       if (compq == 'V')
-        std::cout << "qz: performing balancing; CQ=" << std::endl << CQ << std::endl;
+        std::cout << "qz: performing balancing; CQ=" << std::endl
+                  << CQ << std::endl;
 #endif
       if (args(0).is_real_type ())
         caa = ComplexMatrix (aa);
@@ -578,7 +584,8 @@
     {
 #ifdef DEBUG
       if (compq == 'V')
-        std::cout << "qz: performing balancing; QQ=" << std::endl << QQ << std::endl;
+        std::cout << "qz: performing balancing; QQ=" << std::endl
+                  << QQ << std::endl;
 #endif
 
       F77_XFCN (dggbal, DGGBAL,
@@ -703,7 +710,8 @@
       QR bqr (bb);
 
 #ifdef DEBUG
-      std::cout << "qz: qr (bb) done; now peforming qz decomposition" << std::endl;
+      std::cout << "qz: qr (bb) done; now peforming qz decomposition"
+                << std::endl;
 #endif
 
       bb = bqr.R ();
@@ -730,7 +738,8 @@
 #endif
 
 #ifdef DEBUG
-      std::cout << "qz: compq = " << compq << ", compz = " << compz << std::endl;
+      std::cout << "qz: compq = " << compq << ", compz = " << compz
+                << std::endl;
 #endif
 
       // Reduce  to generalized hessenberg form.
@@ -771,24 +780,26 @@
 
 #ifdef DEBUG
           if (compq == 'V')
-            std::cout << "qz: balancing done; QQ=" << std::endl << QQ << std::endl;
+            std::cout << "qz: balancing done; QQ=" << std::endl
+                      << QQ << std::endl;
 #endif
         }
 
-  // then right
+      // then right
       if (compz == 'V')
         {
-           F77_XFCN (dggbak, DGGBAK,
-                     (F77_CONST_CHAR_ARG2 (&bal_job, 1),
-                      F77_CONST_CHAR_ARG2 ("R", 1),
-                      nn, ilo, ihi, lscale.data (), rscale.data (),
-                      nn, ZZ.fortran_vec (), nn, info
-                      F77_CHAR_ARG_LEN (1)
-                      F77_CHAR_ARG_LEN (1)));
+          F77_XFCN (dggbak, DGGBAK,
+                    (F77_CONST_CHAR_ARG2 (&bal_job, 1),
+                     F77_CONST_CHAR_ARG2 ("R", 1),
+                     nn, ilo, ihi, lscale.data (), rscale.data (),
+                     nn, ZZ.fortran_vec (), nn, info
+                     F77_CHAR_ARG_LEN (1)
+                     F77_CHAR_ARG_LEN (1)));
 
 #ifdef DEBUG
-           if (compz == 'V')
-             std::cout << "qz: balancing done; ZZ=" << std::endl << ZZ << std::endl;
+          if (compz == 'V')
+            std::cout << "qz: balancing done; ZZ=" << std::endl
+                      << ZZ << std::endl;
 #endif
         }
 
@@ -915,8 +926,10 @@
                   // Real zero.
 #ifdef DEBUG_EIG
                   std::cout << "  single gen eig:" << std::endl;
-                  std::cout << "  alphar(" << jj << ") = " << aa(jj,jj) << std::endl;
-                  std::cout << "  betar( " << jj << ") = " << bb(jj,jj) << std::endl;
+                  std::cout << "  alphar(" << jj << ") = " << aa(jj,jj)
+                            << std::endl;
+                  std::cout << "  betar( " << jj << ") = " << bb(jj,jj)
+                            << std::endl;
                   std::cout << "  alphai(" << jj << ") = 0" << std::endl;
 #endif
 
@@ -930,21 +943,22 @@
 #ifdef DEBUG_EIG
                   std::cout << "qz: calling dlag2:" << std::endl;
                   std::cout << "safmin="
-                       << setiosflags (std::ios::scientific) << safmin << std::endl;
+                            << setiosflags (std::ios::scientific)
+                            << safmin << std::endl;
 
                   for (int idr = jj; idr <= jj+1; idr++)
                     {
                       for (int idc = jj; idc <= jj+1; idc++)
                         {
                           std::cout << "aa(" << idr << "," << idc << ")="
-                               << aa(idr,idc) << std::endl;
+                                    << aa(idr,idc) << std::endl;
                           std::cout << "bb(" << idr << "," << idc << ")="
-                               << bb(idr,idc) << std::endl;
+                                    << bb(idr,idc) << std::endl;
                         }
                     }
 #endif
 
-                  // FIXME -- probably should be using
+                  // FIXME: probably should be using
                   // fortran_vec instead of &aa(jj,jj) here.
 
                   double scale1, scale2, wr1, wr2, wi;
@@ -956,9 +970,9 @@
 
 #ifdef DEBUG_EIG
                   std::cout << "dlag2 returns: scale1=" << scale1
-                       << "\tscale2=" << scale2 << std::endl
-                       << "\twr1=" << wr1 << "\twr2=" << wr2
-                       << "\twi=" << wi << std::endl;
+                            << "\tscale2=" << scale2 << std::endl
+                            << "\twr1=" << wr1 << "\twr2=" << wr2
+                            << "\twi=" << wi << std::endl;
 #endif
 
                   // Just to be safe, check if it's a real pair.
@@ -995,7 +1009,7 @@
               octave_print_internal (std::cout, ZZ, 0);
             }
           std::cout << std::endl << "qz: ndim=" << ndim << std::endl
-               << "fail=" << fail << std::endl;
+                    << "fail=" << fail << std::endl;
           std::cout << "alphar = " << std::endl;
           octave_print_internal (std::cout, (Matrix) alphar, 0);
           std::cout << std::endl << "alphai = " << std::endl;
@@ -1210,18 +1224,18 @@
             retval(1) = cbb;
             retval(0) = caa;
           }
-      else
-        {
+        else
+          {
 #ifdef DEBUG
-          std::cout << "qz: retval(1) = bb = " << std::endl;
-          octave_print_internal (std::cout, bb, 0);
-          std::cout << std::endl << "qz: retval(0) = aa = " <<std::endl;
-          octave_print_internal (std::cout, aa, 0);
-          std::cout << std::endl;
+            std::cout << "qz: retval(1) = bb = " << std::endl;
+            octave_print_internal (std::cout, bb, 0);
+            std::cout << std::endl << "qz: retval(0) = aa = " <<std::endl;
+            octave_print_internal (std::cout, aa, 0);
+            std::cout << std::endl;
 #endif
-          retval(1) = bb;
-          retval(0) = aa;
-        }
+            retval(1) = bb;
+            retval(0) = aa;
+          }
       }
       break;
 
--- a/libinterp/corefcn/rand.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/rand.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -305,11 +305,11 @@
       break;
     }
 
- done:
+done:
 
   return retval;
 
- gen_matrix:
+gen_matrix:
 
   dims.chop_trailing_singletons ();
 
@@ -364,7 +364,7 @@
 }
 
 DEFUN (rand, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} rand (@var{n})\n\
 @deftypefnx {Built-in Function} {} rand (@var{n}, @var{m}, @dots{})\n\
 @deftypefnx {Built-in Function} {} rand ([@var{n} @var{m} @dots{}])\n\
@@ -463,7 +463,7 @@
   return retval;
 }
 
-// FIXME -- The old generator (selected when "seed" is set) will not
+// FIXME: The old generator (selected when "seed" is set) will not
 // work properly if compiled to use 64-bit integers.
 
 /*
@@ -551,7 +551,7 @@
 static std::string current_distribution = octave_rand::distribution ();
 
 DEFUN (randn, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} randn (@var{n})\n\
 @deftypefnx {Built-in Function} {} randn (@var{n}, @var{m}, @dots{})\n\
 @deftypefnx {Built-in Function} {} randn ([@var{n} @var{m} @dots{}])\n\
@@ -623,7 +623,7 @@
 */
 
 DEFUN (rande, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} rande (@var{n})\n\
 @deftypefnx {Built-in Function} {} rande (@var{n}, @var{m}, @dots{})\n\
 @deftypefnx {Built-in Function} {} rande ([@var{n} @var{m} @dots{}])\n\
@@ -696,7 +696,7 @@
 */
 
 DEFUN (randg, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} randg (@var{n})\n\
 @deftypefnx {Built-in Function} {} randg (@var{n}, @var{m}, @dots{})\n\
 @deftypefnx {Built-in Function} {} randg ([@var{n} @var{m} @dots{}])\n\
@@ -968,7 +968,7 @@
 */
 
 DEFUN (randp, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} randp (@var{l}, @var{n})\n\
 @deftypefnx {Built-in Function} {} randp (@var{l}, @var{n}, @var{m}, @dots{})\n\
 @deftypefnx {Built-in Function} {} randp (@var{l}, [@var{n} @var{m} @dots{}])\n\
@@ -1116,7 +1116,7 @@
 */
 
 DEFUN (randperm, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} randperm (@var{n})\n\
 @deftypefnx {Built-in Function} {} randperm (@var{n}, @var{m})\n\
 Return a row vector containing a random permutation of @code{1:@var{n}}.\n\
@@ -1171,7 +1171,7 @@
             {
               idx = Array<octave_idx_type> (dim_vector (1, idx_len));
             }
-          catch(std::bad_alloc)
+          catch (std::bad_alloc)
             {
               // Looks like n is too big and short_shuffle is false.
               // Let's try again, but this time with the alternative.
@@ -1194,7 +1194,7 @@
               for (octave_idx_type i = 0; i < m; i++)
                 {
                   octave_idx_type k = i +
-                    gnulib::floor (rvec[i] * (n - i));
+                                      gnulib::floor (rvec[i] * (n - i));
 
                   //For shuffling first m entries, no need to use extra
                   //storage
@@ -1218,7 +1218,7 @@
               for (octave_idx_type i = 0; i < m; i++)
                 {
                   octave_idx_type k = i +
-                    gnulib::floor (rvec[i] * (n - i));
+                                      gnulib::floor (rvec[i] * (n - i));
                   std::swap (ivec[i], ivec[k]);
                 }
             }
@@ -1245,7 +1245,7 @@
 %!assert (length (randperm (20,10)), 10)
 
 ## Test biggish N (bug #39378)
-%!assert (length (randperm(30000^2, 100000)), 100000);
+%!assert (length (randperm (30000^2, 100000)), 100000)
 
 %!test
 %! rand ("seed", 0);
--- a/libinterp/corefcn/rcond.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/rcond.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -31,7 +31,7 @@
 #include "utils.h"
 
 DEFUN (rcond, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{c} =} rcond (@var{A})\n\
 Compute the 1-norm estimate of the reciprocal condition number as returned\n\
 by @sc{lapack}.  If the matrix is well-conditioned then @var{c} will be near\n\
--- a/libinterp/corefcn/regexp.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/regexp.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -151,14 +151,14 @@
               break;
 
 #if 0
-// FIXME -- to be complete, we need to handle \oN, \o{N}, \xN, and
+// FIXME: to be complete, we need to handle \oN, \o{N}, \xN, and
 // \x{N}.  Hex digits may be upper or lower case.  Brackets are
 // optional, so \x5Bz is the same as \x{5B}z.
 
             case 'o': // octal number
             case 'x': // hex number
 #endif
- 
+
             default:  // pass escape sequence through
               retval[i] = '\\';
               retval[++i] = s[j];
@@ -585,7 +585,7 @@
 }
 
 DEFUN (regexp, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{s}, @var{e}, @var{te}, @var{m}, @var{t}, @var{nm}, @var{sp}] =} regexp (@var{str}, @var{pat})\n\
 @deftypefnx {Built-in Function} {[@dots{}] =} regexp (@var{str}, @var{pat}, \"@var{opt1}\", @dots{})\n\
 Regular expression string matching.  Search for @var{pat} in @var{str} and\n\
@@ -1066,7 +1066,7 @@
 */
 
 DEFUN (regexpi, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{s}, @var{e}, @var{te}, @var{m}, @var{t}, @var{nm}, @var{sp}] =} regexpi (@var{str}, @var{pat})\n\
 @deftypefnx {Built-in Function} {[@dots{}] =} regexpi (@var{str}, @var{pat}, \"@var{opt1}\", @dots{})\n\
 \n\
@@ -1278,7 +1278,7 @@
 }
 
 DEFUN (regexprep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{outstr} =} regexprep (@var{string}, @var{pat}, @var{repstr})\n\
 @deftypefnx {Built-in Function} {@var{outstr} =} regexprep (@var{string}, @var{pat}, @var{repstr}, \"@var{opt1}\", @dots{})\n\
 Replace occurrences of pattern @var{pat} in @var{string} with @var{repstr}.\n\
@@ -1390,8 +1390,8 @@
             }
 
           if (!error_state)
-            retval = args(0).is_cell ()
-              ? octave_value (ret) : octave_value (ret(0));
+            retval = args(0).is_cell () ? octave_value (ret)
+                                        : octave_value (ret(0));
         }
     }
   else
--- a/libinterp/corefcn/schur.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/schur.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -58,7 +58,7 @@
 }
 
 DEFUN (schur, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{S} =} schur (@var{A})\n\
 @deftypefnx {Built-in Function} {@var{S} =} schur (@var{A}, \"real\")\n\
 @deftypefnx {Built-in Function} {@var{S} =} schur (@var{A}, \"complex\")\n\
@@ -294,7 +294,7 @@
 */
 
 DEFUN (rsf2csf, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} {[@var{U}, @var{T}] =} rsf2csf (@var{UR}, @var{TR})\n\
 Convert a real, upper quasi-triangular Schur@tie{}form @var{TR} to a complex,\n\
 upper triangular Schur@tie{}form @var{T}.\n\
--- a/libinterp/corefcn/sighandlers.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sighandlers.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -577,137 +577,6 @@
 
 }
 
-static pid_t gui_pid = 0;
-
-static void
-gui_driver_sig_handler (int sig)
-{
-  if (gui_pid > 0)
-    octave_syscalls::kill (gui_pid, sig);
-}
-
-void
-install_gui_driver_signal_handlers (pid_t pid)
-{
-  gui_pid = pid;
-
-#ifdef SIGINT
-  octave_set_signal_handler (SIGINT, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGBREAK
-  octave_set_signal_handler (SIGBREAK, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGABRT
-  octave_set_signal_handler (SIGABRT, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGALRM
-  octave_set_signal_handler (SIGALRM, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGBUS
-  octave_set_signal_handler (SIGBUS, gui_driver_sig_handler);
-#endif
-
-  // SIGCHLD
-  // SIGCLD
-  // SIGCONT
-
-#ifdef SIGEMT
-  octave_set_signal_handler (SIGEMT, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGFPE
-  octave_set_signal_handler (SIGFPE, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGHUP
-  octave_set_signal_handler (SIGHUP, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGILL
-  octave_set_signal_handler (SIGILL, gui_driver_sig_handler);
-#endif
-
-  // SIGINFO
-  // SIGINT
-
-#ifdef SIGIOT
-  octave_set_signal_handler (SIGIOT, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGLOST
-  octave_set_signal_handler (SIGLOST, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGPIPE
-  octave_set_signal_handler (SIGPIPE, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGPOLL
-  octave_set_signal_handler (SIGPOLL, gui_driver_sig_handler);
-#endif
-
-  // SIGPROF
-  // SIGPWR
-
-#ifdef SIGQUIT
-  octave_set_signal_handler (SIGQUIT, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGSEGV
-  octave_set_signal_handler (SIGSEGV, gui_driver_sig_handler);
-#endif
-
-  // SIGSTOP
-
-#ifdef SIGSYS
-  octave_set_signal_handler (SIGSYS, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGTERM
-  octave_set_signal_handler (SIGTERM, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGTRAP
-  octave_set_signal_handler (SIGTRAP, gui_driver_sig_handler);
-#endif
-
-  // SIGTSTP
-  // SIGTTIN
-  // SIGTTOU
-  // SIGURG
-
-#ifdef SIGUSR1
-  octave_set_signal_handler (SIGUSR1, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGUSR2
-  octave_set_signal_handler (SIGUSR2, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGVTALRM
-  octave_set_signal_handler (SIGVTALRM, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGIO
-  octave_set_signal_handler (SIGIO, gui_driver_sig_handler);
-#endif
-
-  // SIGWINCH
-
-#ifdef SIGXCPU
-  octave_set_signal_handler (SIGXCPU, gui_driver_sig_handler);
-#endif
-
-#ifdef SIGXFSZ
-  octave_set_signal_handler (SIGXFSZ, gui_driver_sig_handler);
-#endif
-
-}
-
 static octave_scalar_map
 make_sig_struct (void)
 {
@@ -1003,7 +872,7 @@
 }
 
 DEFUN (SIG, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} SIG ()\n\
 Return a structure containing Unix signal names and their defined values.\n\
 @end deftypefn")
@@ -1030,7 +899,7 @@
 */
 
 DEFUN (debug_on_interrupt, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} debug_on_interrupt ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} debug_on_interrupt (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} debug_on_interrupt (@var{new_val}, \"local\")\n\
@@ -1061,7 +930,7 @@
 */
 
 DEFUN (sighup_dumps_octave_core, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} sighup_dumps_octave_core ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} sighup_dumps_octave_core (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} sighup_dumps_octave_core (@var{new_val}, \"local\")\n\
@@ -1090,7 +959,7 @@
 */
 
 DEFUN (sigterm_dumps_octave_core, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} sigterm_dumps_octave_core ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} sigterm_dumps_octave_core (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} sigterm_dumps_octave_core (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/sighandlers.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sighandlers.h	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
 
 typedef void sig_handler (int);
 
-// FIXME -- the data should probably be private...
+// FIXME: the data should probably be private...
 
 struct
 octave_interrupt_handler
@@ -66,13 +66,12 @@
 // TRUE means we can be interrupted.
 extern OCTINTERP_API bool can_interrupt;
 
-extern OCTINTERP_API sig_handler *octave_set_signal_handler (int, sig_handler *,
-                                               bool restart_syscalls = true);
+extern OCTINTERP_API
+sig_handler *octave_set_signal_handler (int, sig_handler *,
+                                        bool restart_syscalls = true);
 
 extern OCTINTERP_API void install_signal_handlers (void);
 
-extern OCTINTERP_API void install_gui_driver_signal_handlers (pid_t pid);
-
 extern OCTINTERP_API void octave_signal_handler (void);
 
 extern OCTINTERP_API octave_interrupt_handler octave_catch_interrupts (void);
@@ -109,16 +108,16 @@
       have_status (oc.have_status), status (oc.status) { }
 
   octave_child& operator = (const octave_child& oc)
-    {
-      if (&oc != this)
-        {
-          pid = oc.pid;
-          handler = oc.handler;
-          have_status = oc.have_status;
-          status = oc.status;
-        }
-      return *this;
-    }
+  {
+    if (&oc != this)
+      {
+        pid = oc.pid;
+        handler = oc.handler;
+        have_status = oc.have_status;
+        status = oc.status;
+      }
+    return *this;
+  }
 
   ~octave_child (void) { }
 
--- a/libinterp/corefcn/sparse-xdiv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sparse-xdiv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -272,7 +272,8 @@
 
 // -*- 8 -*-
 SparseComplexMatrix
-xdiv (const SparseComplexMatrix& a, const SparseComplexMatrix& b, MatrixType &typ)
+xdiv (const SparseComplexMatrix& a, const SparseComplexMatrix& b,
+      MatrixType &typ)
 {
   if (! mx_div_conform (a, b))
     return SparseComplexMatrix ();
@@ -627,7 +628,8 @@
 
 // -*- 12 -*-
 SparseComplexMatrix
-xleftdiv (const ComplexDiagMatrix& d, const SparseComplexMatrix& a,  MatrixType&)
+xleftdiv (const ComplexDiagMatrix& d, const SparseComplexMatrix& a,
+          MatrixType&)
 {
   return do_leftdiv_dm_sm<SparseComplexMatrix> (d, a);
 }
--- a/libinterp/corefcn/sparse-xdiv.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sparse-xdiv.h	Tue Nov 05 12:27:42 2013 -0500
@@ -76,18 +76,24 @@
 extern SparseMatrix xleftdiv (const SparseMatrix& a, const SparseMatrix& b,
                               MatrixType &typ);
 extern SparseComplexMatrix xleftdiv (const SparseMatrix& a,
-                                     const SparseComplexMatrix& b, MatrixType &typ);
+                                     const SparseComplexMatrix& b,
+                                     MatrixType &typ);
 extern SparseComplexMatrix xleftdiv (const SparseComplexMatrix& a,
                                      const SparseMatrix& b, MatrixType &typ);
 extern SparseComplexMatrix xleftdiv (const SparseComplexMatrix& a,
-                                     const SparseComplexMatrix& b, MatrixType &typ);
+                                     const SparseComplexMatrix& b,
+                                     MatrixType &typ);
 
-extern SparseMatrix xleftdiv (const DiagMatrix&, const SparseMatrix&, MatrixType&);
-extern SparseComplexMatrix xleftdiv (const ComplexDiagMatrix&, const SparseMatrix&,
+extern SparseMatrix xleftdiv (const DiagMatrix&, const SparseMatrix&,
+                              MatrixType&);
+extern SparseComplexMatrix xleftdiv (const ComplexDiagMatrix&,
+                                     const SparseMatrix&,
                                      MatrixType&);
-extern SparseComplexMatrix xleftdiv (const DiagMatrix&, const SparseComplexMatrix&,
+extern SparseComplexMatrix xleftdiv (const DiagMatrix&,
+                                     const SparseComplexMatrix&,
                                      MatrixType&);
-extern SparseComplexMatrix xleftdiv (const ComplexDiagMatrix&, const SparseComplexMatrix&,
+extern SparseComplexMatrix xleftdiv (const ComplexDiagMatrix&,
+                                     const SparseComplexMatrix&,
                                      MatrixType&);
 
 #endif
--- a/libinterp/corefcn/sparse-xpow.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sparse-xpow.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -64,7 +64,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -137,7 +137,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -216,7 +216,7 @@
 //
 //   * -> not needed.
 
-// FIXME -- these functions need to be fixed so that things
+// FIXME: these functions need to be fixed so that things
 // like
 //
 //   a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
@@ -342,7 +342,7 @@
         {
           ComplexMatrix result (nr, nc, Complex (std::pow (0.0, b)));
 
-          // FIXME -- avoid apparent GNU libm bug by
+          // FIXME: avoid apparent GNU libm bug by
           // converting A and B to complex instead of just A.
           Complex btmp (b);
 
@@ -380,7 +380,7 @@
         {
           octave_quit ();
 
-          // FIXME -- avoid apparent GNU libm bug by
+          // FIXME: avoid apparent GNU libm bug by
           // converting A and B to complex instead of just A.
 
           Complex atmp (a.data (i));
@@ -757,7 +757,8 @@
       for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
         {
           octave_quit ();
-          result.xelem (a.ridx (i), j) = std::pow (a.data (i), b(a.ridx (i), j));
+          result.xelem (a.ridx (i), j) = std::pow (a.data (i),
+                                                   b(a.ridx (i), j));
         }
     }
   result.maybe_compress (true);
--- a/libinterp/corefcn/sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -42,23 +42,23 @@
 #include "ov-bool-sparse.h"
 
 DEFUN (issparse, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} issparse (@var{x})\n\
 Return true if @var{x} is a sparse matrix.\n\
 @seealso{ismatrix}\n\
 @end deftypefn")
 {
-   if (args.length () != 1)
-     {
-       print_usage ();
-       return octave_value ();
-     }
-   else
-     return octave_value (args(0).is_sparse_type ());
+  if (args.length () != 1)
+    {
+      print_usage ();
+      return octave_value ();
+    }
+  else
+    return octave_value (args(0).is_sparse_type ());
 }
 
 DEFUN (sparse, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{s} =} sparse (@var{a})\n\
 @deftypefnx {Built-in Function} {@var{s} =} sparse (@var{i}, @var{j}, @var{sv}, @var{m}, @var{n}, @var{nzmax})\n\
 @deftypefnx {Built-in Function} {@var{s} =} sparse (@var{i}, @var{j}, @var{sv})\n\
@@ -103,113 +103,113 @@
 @seealso{full, accumarray}\n\
 @end deftypefn")
 {
-   octave_value retval;
-   int nargin = args.length ();
+  octave_value retval;
+  int nargin = args.length ();
 
-   // Temporarily disable sparse_auto_mutate if set (it's obsolete anyway).
-   unwind_protect frame;
-   frame.protect_var (Vsparse_auto_mutate);
-   Vsparse_auto_mutate = false;
+  // Temporarily disable sparse_auto_mutate if set (it's obsolete anyway).
+  unwind_protect frame;
+  frame.protect_var (Vsparse_auto_mutate);
+  Vsparse_auto_mutate = false;
 
-   if (nargin == 1)
-     {
-       octave_value arg = args (0);
-       if (arg.is_bool_type ())
-         retval = arg.sparse_bool_matrix_value ();
-       else if (arg.is_complex_type ())
-         retval = arg.sparse_complex_matrix_value ();
-       else if (arg.is_numeric_type ())
-         retval = arg.sparse_matrix_value ();
-       else
-         gripe_wrong_type_arg ("sparse", arg);
-     }
-   else if (nargin == 2)
-     {
-       octave_idx_type m = 0, n = 0;
-       if (args(0).is_scalar_type () && args(1).is_scalar_type ())
-         {
-           m = args(0).idx_type_value ();
-           n = args(1).idx_type_value ();
-         }
-       else
-         error ("sparse: dimensions M,N must be scalar");
+  if (nargin == 1)
+    {
+      octave_value arg = args (0);
+      if (arg.is_bool_type ())
+        retval = arg.sparse_bool_matrix_value ();
+      else if (arg.is_complex_type ())
+        retval = arg.sparse_complex_matrix_value ();
+      else if (arg.is_numeric_type ())
+        retval = arg.sparse_matrix_value ();
+      else
+        gripe_wrong_type_arg ("sparse", arg);
+    }
+  else if (nargin == 2)
+    {
+      octave_idx_type m = 0, n = 0;
+      if (args(0).is_scalar_type () && args(1).is_scalar_type ())
+        {
+          m = args(0).idx_type_value ();
+          n = args(1).idx_type_value ();
+        }
+      else
+        error ("sparse: dimensions M,N must be scalar");
 
-       if (! error_state)
-         {
-           if (m >= 0 && n >= 0)
-             retval = SparseMatrix (m, n);
-           else
-             error ("sparse: dimensions M,N must be positive or zero");
-         }
-     }
-   else if (nargin >= 3)
-     {
-       bool summation = true;
-       if (nargin > 3 && args(nargin-1).is_string ())
-         {
-           std::string opt = args(nargin-1).string_value ();
-           if (opt == "unique")
-             summation = false;
-           else if (opt == "sum" || opt == "summation")
-             summation = true;
-           else
-             error ("sparse: invalid option: %s", opt.c_str ());
+      if (! error_state)
+        {
+          if (m >= 0 && n >= 0)
+            retval = SparseMatrix (m, n);
+          else
+            error ("sparse: dimensions M,N must be positive or zero");
+        }
+    }
+  else if (nargin >= 3)
+    {
+      bool summation = true;
+      if (nargin > 3 && args(nargin-1).is_string ())
+        {
+          std::string opt = args(nargin-1).string_value ();
+          if (opt == "unique")
+            summation = false;
+          else if (opt == "sum" || opt == "summation")
+            summation = true;
+          else
+            error ("sparse: invalid option: %s", opt.c_str ());
 
-           nargin -= 1;
-         }
+          nargin -= 1;
+        }
 
-       if (! error_state)
-         {
-           octave_idx_type m = -1, n = -1, nzmax = -1;
-           if (nargin == 6)
-             {
-               nzmax = args(5).idx_type_value ();
-               nargin --;
-             }
+      if (! error_state)
+        {
+          octave_idx_type m = -1, n = -1, nzmax = -1;
+          if (nargin == 6)
+            {
+              nzmax = args(5).idx_type_value ();
+              nargin --;
+            }
 
-           if (nargin == 5)
-             {
-               if (args(3).is_scalar_type () && args(4).is_scalar_type ())
-                 {
-                   m = args(3).idx_type_value ();
-                   n = args(4).idx_type_value ();
-                 }
-               else
-                 error ("sparse: expecting scalar dimensions");
+          if (nargin == 5)
+            {
+              if (args(3).is_scalar_type () && args(4).is_scalar_type ())
+                {
+                  m = args(3).idx_type_value ();
+                  n = args(4).idx_type_value ();
+                }
+              else
+                error ("sparse: expecting scalar dimensions");
 
 
-               if (! error_state && (m < 0 || n < 0))
-                 error ("sparse: dimensions must be non-negative");
-             }
-           else if (nargin != 3)
-             print_usage ();
+              if (! error_state && (m < 0 || n < 0))
+                error ("sparse: dimensions must be non-negative");
+            }
+          else if (nargin != 3)
+            print_usage ();
 
-           if (! error_state)
-             {
-               idx_vector i = args(0).index_vector ();
-               idx_vector j = args(1).index_vector ();
+          if (! error_state)
+            {
+              idx_vector i = args(0).index_vector ();
+              idx_vector j = args(1).index_vector ();
 
-               if (args(2).is_bool_type ())
-                 retval = SparseBoolMatrix (args(2).bool_array_value (), i, j,
-                                            m, n, summation, nzmax);
-               else if (args(2).is_complex_type ())
-                 retval = SparseComplexMatrix (args(2).complex_array_value (),
-                                               i, j, m, n, summation, nzmax);
-               else if (args(2).is_numeric_type ())
-                 retval = SparseMatrix (args(2).array_value (), i, j,
-                                        m, n, summation, nzmax);
-               else
-                 gripe_wrong_type_arg ("sparse", args(2));
-             }
+              if (args(2).is_bool_type ())
+                retval = SparseBoolMatrix (args(2).bool_array_value (), i, j,
+                                           m, n, summation, nzmax);
+              else if (args(2).is_complex_type ())
+                retval = SparseComplexMatrix (args(2).complex_array_value (),
+                                              i, j, m, n, summation, nzmax);
+              else if (args(2).is_numeric_type ())
+                retval = SparseMatrix (args(2).array_value (), i, j,
+                                       m, n, summation, nzmax);
+              else
+                gripe_wrong_type_arg ("sparse", args(2));
+            }
 
-         }
-     }
+        }
+    }
 
-   return retval;
+  return retval;
 }
 
 DEFUN (spalloc, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{s} =} spalloc (@var{m}, @var{n}, @var{nz})\n\
 Create an @var{m}-by-@var{n} sparse matrix with pre-allocated space for at\n\
 most @var{nz} nonzero elements.  This is useful for building the matrix\n\
@@ -245,25 +245,25 @@
 @seealso{nzmax, sparse}\n\
 @end deftypefn")
 {
-   octave_value retval;
-   int nargin = args.length ();
+  octave_value retval;
+  int nargin = args.length ();
 
-   if (nargin == 2 || nargin == 3)
-     {
-       octave_idx_type m = args(0).idx_type_value ();
-       octave_idx_type n = args(1).idx_type_value ();
-       octave_idx_type nz = 0;
-       if (nargin == 3)
-         nz = args(2).idx_type_value ();
-       if (error_state)
-         ;
-       else if (m >= 0 && n >= 0 && nz >= 0)
-         retval = SparseMatrix (dim_vector (m, n), nz);
-       else
-         error ("spalloc: M,N,NZ must be non-negative");
-     }
-   else
-     print_usage ();
+  if (nargin == 2 || nargin == 3)
+    {
+      octave_idx_type m = args(0).idx_type_value ();
+      octave_idx_type n = args(1).idx_type_value ();
+      octave_idx_type nz = 0;
+      if (nargin == 3)
+        nz = args(2).idx_type_value ();
+      if (error_state)
+        ;
+      else if (m >= 0 && n >= 0 && nz >= 0)
+        retval = SparseMatrix (dim_vector (m, n), nz);
+      else
+        error ("spalloc: M,N,NZ must be non-negative");
+    }
+  else
+    print_usage ();
 
-   return retval;
+  return retval;
 }
--- a/libinterp/corefcn/spparms.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/spparms.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
 #include "oct-spparms.h"
 
 DEFUN (spparms, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} { } spparms ()\n\
 @deftypefnx {Built-in Function} {@var{vals} =} spparms ()\n\
 @deftypefnx {Built-in Function} {[@var{keys}, @var{vals}] =} spparms ()\n\
--- a/libinterp/corefcn/sqrtm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sqrtm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -200,7 +200,7 @@
 }
 
 DEFUN (sqrtm, args, nargout,
- "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{s} =} sqrtm (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{s}, @var{error_estimate}] =} sqrtm (@var{A})\n\
 Compute the matrix square root of the square matrix @var{A}.\n\
@@ -242,7 +242,8 @@
     // sqrtm of a diagonal matrix is just sqrt.
     retval(0) = arg.sqrt ();
   else if (arg.is_single_type ())
-    retval(0) = do_sqrtm<FloatMatrix, FloatComplexMatrix, FloatComplexSCHUR> (arg);
+    retval(0) = do_sqrtm<FloatMatrix, FloatComplexMatrix, FloatComplexSCHUR>
+                 (arg);
   else if (arg.is_numeric_type ())
     retval(0) = do_sqrtm<Matrix, ComplexMatrix, ComplexSCHUR> (arg);
 
--- a/libinterp/corefcn/str2double.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/str2double.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -210,7 +210,7 @@
                   c = is.peek ();
                 }
               else
-                is.setstate (std::ios::failbit); // indicate that read has failed.
+                is.setstate (std::ios::failbit); // indicate read has failed.
             }
           else if (is_imag_unit (c))
             {
@@ -294,7 +294,7 @@
 }
 
 DEFUN (str2double, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} str2double (@var{s})\n\
 Convert a string to a real or complex number.\n\
 \n\
@@ -366,15 +366,15 @@
       const Cell cell = args(0).cell_value ();
 
       if (! error_state)
-      {
-        ComplexNDArray output (cell.dims (), octave_NaN);
-        for (octave_idx_type i = 0; i < cell.numel (); i++)
         {
-          if (cell(i).is_string ())
-            output(i) = str2double1 (cell(i).string_value ());
+          ComplexNDArray output (cell.dims (), octave_NaN);
+          for (octave_idx_type i = 0; i < cell.numel (); i++)
+            {
+              if (cell(i).is_string ())
+                output(i) = str2double1 (cell(i).string_value ());
+            }
+          retval = output;
         }
-        retval = output;
-      }
     }
   else
     retval = Matrix (1, 1, octave_NaN);
--- a/libinterp/corefcn/strfind.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/strfind.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,8 @@
 #include "gripes.h"
 #include "utils.h"
 
-// This allows safe indexing with char. In C++, char may be (and often is) signed!
+// This allows safe indexing with char.
+// In C++, char may be (and often is) signed!
 #define ORD(ch) static_cast<unsigned char>(ch)
 #define TABSIZE (std::numeric_limits<unsigned char>::max () + 1)
 
@@ -50,10 +51,10 @@
   const char *x = needle.data ();
   octave_idx_type m = needle.numel ();
 
-   for (octave_idx_type i = 0; i < TABSIZE; i++)
-      table[i] = m + 1;
-   for (octave_idx_type i = 0; i < m; i++)
-      table[ORD(x[i])] = m - i;
+  for (octave_idx_type i = 0; i < TABSIZE; i++)
+    table[i] = m + 1;
+  for (octave_idx_type i = 0; i < m; i++)
+    table[ORD(x[i])] = m - i;
 }
 
 
@@ -146,7 +147,7 @@
 }
 
 DEFUN (strfind, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{idx} =} strfind (@var{str}, @var{pattern})\n\
 @deftypefnx {Built-in Function} {@var{idx} =} strfind (@var{cellstr}, @var{pattern})\n\
 @deftypefnx {Built-in Function} {@var{idx} =} strfind (@dots{}, \"overlaps\", @var{val})\n\
@@ -216,7 +217,8 @@
           qs_preprocess (needle, table);
 
           if (argstr.is_string ())
-            retval = octave_value (qs_search (needle, argstr.char_array_value (),
+            retval = octave_value (qs_search (needle,
+                                              argstr.char_array_value (),
                                               table, overlaps),
                                    true, true);
           else if (argstr.is_cell ())
@@ -229,9 +231,11 @@
                 {
                   octave_value argse = argsc(i);
                   if (argse.is_string ())
-                    retc(i) = octave_value (qs_search (needle, argse.char_array_value (),
-                                                       table, overlaps),
-                                            true, true);
+                    retc(i)
+                      = octave_value (qs_search (needle,
+                                                 argse.char_array_value (),
+                                                 table, overlaps),
+                                      true, true);
                   else
                     {
                       error ("strfind: each element of CELLSTR must be a string");
@@ -329,7 +333,7 @@
 }
 
 DEFUN (strrep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{newstr} =} strrep (@var{str}, @var{ptn}, @var{rep})\n\
 @deftypefnx {Built-in Function} {@var{newstr} =} strrep (@var{cellstr}, @var{ptn}, @var{rep})\n\
 @deftypefnx {Built-in Function} {@var{newstr} =} strrep (@dots{}, \"overlaps\", @var{val})\n\
@@ -386,7 +390,8 @@
           qs_preprocess (pat, table);
 
           if (argstr.is_string ())
-            retval = qs_replace (argstr.char_array_value (), pat, rep, table, overlaps);
+            retval = qs_replace (argstr.char_array_value (), pat, rep,
+                                 table, overlaps);
           else if (argstr.is_cell ())
             {
               const Cell argsc = argstr.cell_value ();
@@ -397,7 +402,8 @@
                 {
                   octave_value argse = argsc(i);
                   if (argse.is_string ())
-                    retc(i) = qs_replace (argse.char_array_value (), pat, rep, table, overlaps);
+                    retc(i) = qs_replace (argse.char_array_value (), pat, rep,
+                                          table, overlaps);
                   else
                     {
                       error ("strrep: each element of S must be a string");
--- a/libinterp/corefcn/strfns.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/strfns.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -41,7 +41,7 @@
 #include "utils.h"
 
 DEFUN (char, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} char (@var{x})\n\
 @deftypefnx {Built-in Function} {} char (@var{x}, @dots{})\n\
 @deftypefnx {Built-in Function} {} char (@var{s1}, @var{s2}, @dots{})\n\
@@ -172,7 +172,7 @@
 */
 
 DEFUN (strvcat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} strvcat (@var{x})\n\
 @deftypefnx {Built-in Function} {} strvcat (@var{x}, @dots{})\n\
 @deftypefnx {Built-in Function} {} strvcat (@var{s1}, @var{s2}, @dots{})\n\
@@ -303,7 +303,7 @@
 
 
 DEFUN (ischar, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ischar (@var{x})\n\
 Return true if @var{x} is a character array.\n\
 @seealso{isfloat, isinteger, islogical, isnumeric, iscellstr, isa}\n\
@@ -341,8 +341,10 @@
 static octave_value
 do_strcmp_fun (const octave_value& arg0, const octave_value& arg1,
                octave_idx_type n, const char *fcn_name,
-               bool (*array_op) (const charNDArray&, const charNDArray&, octave_idx_type),
-               bool (*str_op) (const std::string&, const std::string&, octave_idx_type))
+               bool (*array_op) (const charNDArray&, const charNDArray&,
+                                 octave_idx_type),
+               bool (*str_op) (const std::string&, const std::string&,
+                               octave_idx_type))
 
 {
   octave_value retval;
@@ -428,7 +430,8 @@
                 {
                   if (cell_val.is_cellstr ())
                     {
-                      const Array<std::string> cellstr = cell_val.cellstr_value ();
+                      const Array<std::string> cellstr
+                        = cell_val.cellstr_value ();
                       for (octave_idx_type i = 0; i < cellstr.length (); i++)
                         output(i) = str_op (str[i], cellstr(i), n);
                     }
@@ -438,7 +441,8 @@
                       for (octave_idx_type i = 0; i < r; i++)
                         {
                           if (cell(i).is_string ())
-                            output(i) = str_op (str[i], cell(i).string_value (), n);
+                            output(i) = str_op (str[i],
+                                                cell(i).string_value (), n);
                         }
                     }
 
@@ -560,7 +564,7 @@
 }
 
 DEFUN (strcmp, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} strcmp (@var{s1}, @var{s2})\n\
 Return 1 if the character strings @var{s1} and @var{s2} are the same,\n\
 and 0 otherwise.\n\
@@ -640,7 +644,8 @@
 
 // Apparently, Matlab ignores the dims with strncmp. It also
 static bool
-strncmp_array_op (const charNDArray& s1, const charNDArray& s2, octave_idx_type n)
+strncmp_array_op (const charNDArray& s1, const charNDArray& s2,
+                  octave_idx_type n)
 {
   octave_idx_type l1 = s1.numel (), l2 = s2.numel ();
   return (n > 0 && n <= l1 && n <= l2
@@ -659,7 +664,7 @@
 }
 
 DEFUN (strncmp, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} strncmp (@var{s1}, @var{s2}, @var{n})\n\
 Return 1 if the first @var{n} characters of strings @var{s1} and @var{s2} are\n\
 the same, and 0 otherwise.\n\
@@ -745,7 +750,7 @@
 // Ditto for string.
 static bool
 strcmpi_str_op (const std::string& s1, const std::string& s2,
-               octave_idx_type)
+                octave_idx_type)
 {
   return (s1.size () == s2.size ()
           && std::equal (s1.data (), s1.data () + s1.size (), s2.data (),
@@ -753,7 +758,7 @@
 }
 
 DEFUNX ("strcmpi", Fstrcmpi, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} strcmpi (@var{s1}, @var{s2})\n\
 Return 1 if the character strings @var{s1} and @var{s2} are the same,\n\
 disregarding case of alphabetic characters, and 0 otherwise.\n\
@@ -791,7 +796,8 @@
 
 // Like strncmp.
 static bool
-strncmpi_array_op (const charNDArray& s1, const charNDArray& s2, octave_idx_type n)
+strncmpi_array_op (const charNDArray& s1, const charNDArray& s2,
+                   octave_idx_type n)
 {
   octave_idx_type l1 = s1.numel (), l2 = s2.numel ();
   return (n > 0 && n <= l1 && n <= l2
@@ -801,7 +807,8 @@
 
 // Ditto.
 static bool
-strncmpi_str_op (const std::string& s1, const std::string& s2, octave_idx_type n)
+strncmpi_str_op (const std::string& s1, const std::string& s2,
+                 octave_idx_type n)
 {
   octave_idx_type l1 = s1.length (), l2 = s2.length ();
   return (n > 0 && n <= l1 && n <= l2
@@ -810,7 +817,7 @@
 }
 
 DEFUNX ("strncmpi", Fstrncmpi, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} strncmpi (@var{s1}, @var{s2}, @var{n})\n\
 Return 1 if the first @var{n} character of @var{s1} and @var{s2} are the\n\
 same, disregarding case of alphabetic characters, and 0 otherwise.\n\
@@ -857,7 +864,7 @@
 */
 
 DEFUN (list_in_columns, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} list_in_columns (@var{arg}, @var{width}, @var{prefix})\n\
 Return a string containing the elements of @var{arg} listed in\n\
 columns with an overall maximum width of @var{width} and optional\n\
@@ -921,7 +928,7 @@
           return retval;
         }
     }
-                
+
   std::string prefix;
 
   if (nargin > 2)
--- a/libinterp/corefcn/sub2ind.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sub2ind.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -62,7 +62,7 @@
 }
 
 DEFUN (sub2ind, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {@var{ind} =} sub2ind (@var{dims}, @var{i}, @var{j})\n\
 @deftypefnx {Function File} {@var{ind} =} sub2ind (@var{dims}, @var{s1}, @var{s2}, @dots{}, @var{sN})\n\
 Convert subscripts to a linear index.\n\
@@ -168,7 +168,7 @@
 */
 
 DEFUN (ind2sub, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Function File} {[@var{s1}, @var{s2}, @dots{}, @var{sN}] =} ind2sub (@var{dims}, @var{ind})\n\
 Convert a linear index to subscripts.\n\
 \n\
--- a/libinterp/corefcn/svd.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/svd.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -40,7 +40,7 @@
 static int Vsvd_driver = SVD::GESVD;
 
 DEFUN (svd, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{s} =} svd (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{U}, @var{S}, @var{V}] =} svd (@var{A})\n\
 @deftypefnx {Built-in Function} {[@var{U}, @var{S}, @var{V}] =} svd (@var{A}, @var{econ})\n\
@@ -169,7 +169,7 @@
               retval(1) = FloatMatrix (0, 0);
               retval(0) = FloatDiagMatrix (nr, 0, 1.0f);
               break;
-            case SVD::sigma_only: default:
+          case SVD::sigma_only: default:
               retval(0) = FloatMatrix (0, 1);
               break;
             }
@@ -188,7 +188,7 @@
               retval(1) = Matrix (0, 0);
               retval(0) = DiagMatrix (nr, 0, 1.0);
               break;
-            case SVD::sigma_only: default:
+          case SVD::sigma_only: default:
               retval(0) = Matrix (0, 1);
               break;
             }
@@ -403,7 +403,7 @@
 */
 
 DEFUN (svd_driver, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} svd_driver ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} svd_driver (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} svd_driver (@var{new_val}, \"local\")\n\
--- a/libinterp/corefcn/syl.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/syl.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN (syl, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{x} =} syl (@var{A}, @var{B}, @var{C})\n\
 Solve the Sylvester equation\n\
 @tex\n\
@@ -85,8 +85,8 @@
   int arg_b_is_empty = empty_arg ("syl", b_nr, b_nc);
   int arg_c_is_empty = empty_arg ("syl", c_nr, c_nc);
 
-  bool isfloat = arg_a.is_single_type () || arg_b.is_single_type () ||
-    arg_c.is_single_type ();
+  bool isfloat = arg_a.is_single_type () || arg_b.is_single_type ()
+                 || arg_c.is_single_type ();
 
   if (arg_a_is_empty > 0 && arg_b_is_empty > 0 && arg_c_is_empty > 0)
     if (isfloat)
--- a/libinterp/corefcn/symtab.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/symtab.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -56,7 +56,8 @@
 
 std::map<std::string, symbol_table::fcn_info> symbol_table::fcn_table;
 
-std::map<std::string, std::set<std::string> > symbol_table::class_precedence_table;
+std::map<std::string, std::set<std::string> >
+  symbol_table::class_precedence_table;
 
 std::map<std::string, std::list<std::string> > symbol_table::parent_map;
 
@@ -84,13 +85,13 @@
 {
   octave_user_function *fcn = curr_fcn;
 
-  // FIXME -- If active_context () == -1, then it does not make much
+  // FIXME: If active_context () == -1, then it does not make much
   // sense to use this symbol_record. This means an attempt at accessing
   // a variable from a function that has not been called yet is
   // happening. This should be cleared up when an implementing closures.
 
   return fcn && fcn->active_context () != static_cast<context_id> (-1)
-    ? fcn->active_context () : xcurrent_context;
+         ? fcn->active_context () : xcurrent_context;
 }
 
 void
@@ -156,7 +157,7 @@
 // elements, we also check if the working directory has changed
 // since the last time the function was loaded/parsed).
 //
-// FIXME -- perhaps this should be done for all loaded functions when
+// FIXME: perhaps this should be done for all loaded functions when
 // the prompt is printed or the directory has changed, and then we
 // would not check for it when finding symbol definitions.
 
@@ -192,7 +193,7 @@
 
   if (fcn)
     {
-      // FIXME -- we need to handle subfunctions properly here.
+      // FIXME: we need to handle subfunctions properly here.
 
       if (! fcn->is_subfunction ())
         {
@@ -219,10 +220,10 @@
                     {
                       int nm_len = nm.length ();
 
-                      if (octave_env::absolute_pathname (nm)
-                          && ((nm_len > 4 && (nm.substr (nm_len-4) == ".oct"
-                                              || nm.substr (nm_len-4) == ".mex"))
-                              || (nm_len > 2 && nm.substr (nm_len-2) == ".m")))
+                      if (octave_env::absolute_pathname (nm) &&
+                          ((nm_len > 4 && (nm.substr (nm_len-4) == ".oct"
+                                           || nm.substr (nm_len-4) == ".mex"))
+                            || (nm_len > 2 && nm.substr (nm_len-2) == ".m")))
                         file = nm;
                       else
                         {
@@ -244,7 +245,8 @@
 
                                   while (it != plist.end ())
                                     {
-                                      file = load_path::find_method (*it, nm, dir_name);
+                                      file = load_path::find_method (*it, nm,
+                                                                     dir_name);
                                       if (! file.empty ())
                                         break;
 
@@ -489,7 +491,7 @@
 }
 
 void
-symbol_table::fcn_info::fcn_info_rep:: mark_subfunction_in_scope_as_private
+symbol_table::fcn_info::fcn_info_rep::mark_subfunction_in_scope_as_private
   (scope_id scope, const std::string& class_name)
 {
   scope_val_iterator p = subfunctions.find (scope);
@@ -556,8 +558,10 @@
            || (btyp_isarray (ityp)
                && (! btyp_isarray (jtyp)
                    || (btyp_isinteger (jtyp) && ! btyp_isinteger (ityp))
-                   || ((ityp == btyp_double || ityp == btyp_complex || ityp == btyp_char)
-                       && (jtyp == btyp_float || jtyp == btyp_float_complex)))));
+                   || ((ityp == btyp_double || ityp == btyp_complex
+                        || ityp == btyp_char)
+                       && (jtyp == btyp_float
+                           || jtyp == btyp_float_complex)))));
 
         sup_table[i][j] = use_j ? jtyp : ityp;
       }
@@ -684,7 +688,7 @@
           scope_val_iterator r = subfunctions.find (scope);
           if (r != subfunctions.end ())
             {
-              // FIXME -- out-of-date check here.
+              // FIXME: out-of-date check here.
 
               return r->second;
             }
@@ -943,7 +947,7 @@
       scope_val_iterator r = subfunctions.find (scope);
       if (r != subfunctions.end ())
         {
-          // FIXME -- out-of-date check here.
+          // FIXME: out-of-date check here.
 
           return r->second;
         }
@@ -959,7 +963,8 @@
 }
 
 octave_value
-symbol_table::fcn_info::fcn_info_rep::find_method (const std::string& dispatch_type)
+symbol_table::fcn_info::fcn_info_rep::find_method
+  (const std::string& dispatch_type)
 {
   octave_value retval;
 
@@ -1125,8 +1130,8 @@
 }
 
 void
-symbol_table::fcn_info::fcn_info_rep::dump
-  (std::ostream& os, const std::string& prefix) const
+symbol_table::fcn_info::fcn_info_rep::dump (std::ostream& os,
+                                            const std::string& prefix) const
 {
   os << prefix << full_name ()
      << " ["
@@ -1212,8 +1217,8 @@
   symbol_table *inst = get_instance (xcurrent_scope);
 
   return inst
-    ? inst->do_find (name, args, skip_variables, local_funcs)
-    : octave_value ();
+         ? inst->do_find (name, args, skip_variables, local_funcs)
+         : octave_value ();
 }
 
 octave_value
@@ -1298,7 +1303,8 @@
             {
               os << "  subfunctions defined in this scope:\n";
 
-              for (std::map<std::string, octave_value>::const_iterator p = sfuns.begin ();
+              for (std::map<std::string,
+                   octave_value>::const_iterator p = sfuns.begin ();
                    p != sfuns.end (); p++)
                 os << "    " << p->first << "\n";
 
@@ -1350,7 +1356,7 @@
 symbol_table::stash_dir_name_for_subfunctions (scope_id scope,
                                                const std::string& dir_name)
 {
-  // FIXME -- is this the best way to do this?  Maybe it would be
+  // FIXME: is this the best way to do this?  Maybe it would be
   // better if we had a map from scope to list of subfunctions
   // stored with the function.  Do we?
 
@@ -1480,7 +1486,8 @@
                 storage = 'i';
 
               workspace_element elt (storage, nm, val.class_name (),
-                                     val.short_disp (), dv.str ());
+                                     val.short_disp (), dv.str (),
+                                     val.is_complex_type ());
 
               retval.push_back (elt);
             }
@@ -1589,7 +1596,7 @@
 }
 
 DEFUN (ignore_function_time_stamp, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} ignore_function_time_stamp ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} ignore_function_time_stamp (@var{new_val})\n\
 Query or set the internal variable that controls whether Octave checks\n\
@@ -1670,7 +1677,7 @@
 */
 
 DEFUN (__current_scope__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{scope}, @var{context}]} __dump_symtab_info__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -1684,7 +1691,7 @@
 }
 
 DEFUN (__dump_symtab_info__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} __dump_symtab_info__ ()\n\
 @deftypefnx {Built-in Function} {} __dump_symtab_info__ (@var{scope})\n\
 @deftypefnx {Built-in Function} {} __dump_symtab_info__ (\"scopes\")\n\
@@ -1724,8 +1731,8 @@
 
               octave_idx_type k = 0;
 
-              for (std::list<symbol_table::scope_id>::const_iterator p = lst.begin ();
-                   p != lst.end (); p++)
+              for (std::list<symbol_table::scope_id>::const_iterator
+                   p = lst.begin (); p != lst.end (); p++)
                 v.xelem (k++) = *p;
 
               retval = v;
@@ -1755,7 +1762,7 @@
 
 #if 0
 
-// FIXME -- should we have functions like this in Octave?
+// FIXME: should we have functions like this in Octave?
 
 DEFUN (set_variable, args, , "set_variable (NAME, VALUE)")
 {
--- a/libinterp/corefcn/symtab.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/symtab.h	Tue Nov 05 12:27:42 2013 -0500
@@ -262,7 +262,7 @@
               = symbol_table::global_table.find (name);
 
             return (p == symbol_table::global_table.end ())
-              ? symbol_table::global_table[name] : p->second;
+                   ? symbol_table::global_table[name] : p->second;
           }
         else if (is_persistent ())
           {
@@ -428,7 +428,7 @@
 
             assign (symbol_table::persistent_varval (name));
           }
-        // FIXME -- this causes trouble with recursive calls.
+        // FIXME: this causes trouble with recursive calls.
         // else
         //   error ("unable to declare existing variable persistent");
       }
@@ -737,10 +737,12 @@
 
     typedef std::map<std::string, std::string> dispatch_map_type;
 
-    typedef std::map<scope_id, octave_value>::const_iterator scope_val_const_iterator;
+    typedef std::map<scope_id, octave_value>::const_iterator
+      scope_val_const_iterator;
     typedef std::map<scope_id, octave_value>::iterator scope_val_iterator;
 
-    typedef std::map<std::string, octave_value>::const_iterator str_val_const_iterator;
+    typedef std::map<std::string, octave_value>::const_iterator
+      str_val_const_iterator;
     typedef std::map<std::string, octave_value>::iterator str_val_iterator;
 
     typedef dispatch_map_type::const_iterator dispatch_map_const_iterator;
@@ -791,7 +793,8 @@
         return function_on_path.is_defined ();
       }
 
-      octave_value find_function (const octave_value_list& args, bool local_funcs)
+      octave_value find_function (const octave_value_list& args,
+                                  bool local_funcs)
       {
         return find (args, local_funcs);
       }
@@ -818,8 +821,8 @@
         scope_val_const_iterator p = subfunctions.find (scope);
 
         return p == subfunctions.end ()
-          ? std::pair<std::string, octave_value> ()
-          : std::pair<std::string, octave_value> (name, p->second);
+               ? std::pair<std::string, octave_value> ()
+               : std::pair<std::string, octave_value> (name, p->second);
       }
 
       void erase_subfunction (scope_id scope)
@@ -1052,7 +1055,8 @@
       return rep->is_user_function_defined ();
     }
 
-    octave_value find_function (const octave_value_list& args = octave_value_list (),
+    octave_value find_function (const octave_value_list& args
+                                  = octave_value_list (),
                                 bool local_funcs = true)
     {
       return rep->find_function (args, local_funcs);
@@ -1134,7 +1138,8 @@
       rep->print_dispatch (os);
     }
 
-    std::string help_for_dispatch (void) const { return rep->help_for_dispatch (); }
+    std::string help_for_dispatch (void) const
+    { return rep->help_for_dispatch (); }
 
     dispatch_map_type get_dispatch (void) const
     {
@@ -1230,8 +1235,7 @@
 
   static void erase_subfunctions_in_scope (scope_id scope)
   {
-    for (fcn_table_iterator q = fcn_table.begin ();
-         q != fcn_table.end (); q++)
+    for (fcn_table_iterator q = fcn_table.begin (); q != fcn_table.end (); q++)
       q->second.erase_subfunction (scope);
   }
 
@@ -1239,8 +1243,7 @@
   mark_subfunctions_in_scope_as_private (scope_id scope,
                                          const std::string& class_name)
   {
-    for (fcn_table_iterator q = fcn_table.begin ();
-         q != fcn_table.end (); q++)
+    for (fcn_table_iterator q = fcn_table.begin (); q != fcn_table.end (); q++)
       q->second.mark_subfunction_in_scope_as_private (scope, class_name);
   }
 
@@ -1520,7 +1523,7 @@
     fcn_table_const_iterator p = fcn_table.find (name);
 
     return (p != fcn_table.end ())
-      ? p->second.find_built_in_function () : octave_value ();
+           ? p->second.find_built_in_function () : octave_value ();
   }
 
   static octave_value
@@ -1529,7 +1532,7 @@
     fcn_table_iterator p = fcn_table.find (name);
 
     return (p != fcn_table.end ())
-      ? p->second.find_autoload () : octave_value ();
+           ? p->second.find_autoload () : octave_value ();
   }
 
   static octave_value
@@ -1542,7 +1545,7 @@
     fcn_table_iterator p = fcn_table.find (name);
 
     return (p != fcn_table.end ())
-      ? p->second.find_user_function () : octave_value ();
+           ? p->second.find_user_function () : octave_value ();
   }
 
   static void install_cmdline_function (const std::string& name,
@@ -1709,7 +1712,7 @@
 
   static void clear_symbol (const std::string& name)
   {
-    // FIXME -- are we supposed to do both here?
+    // FIXME: are we supposed to do both here?
 
     clear_variable (name);
     clear_function (name);
@@ -1752,7 +1755,7 @@
 
   static void clear_symbol_pattern (const std::string& pat)
   {
-    // FIXME -- are we supposed to do both here?
+    // FIXME: are we supposed to do both here?
 
     clear_variable_pattern (pat);
     clear_function_pattern (pat);
@@ -1768,7 +1771,7 @@
 
         finfo.clear_user_function ();
       }
-    // FIXME -- is this necessary, or even useful?
+    // FIXME: is this necessary, or even useful?
     // else
     //   error ("clear: no such function '%s'", name.c_str ());
   }
@@ -1959,8 +1962,8 @@
     symbol_table *inst = get_instance (scope);
 
     return inst
-      ? inst->do_all_variables (context, defined_only, exclude)
-      : std::list<symbol_record> ();
+           ? inst->do_all_variables (context, defined_only, exclude)
+           : std::list<symbol_record> ();
   }
 
   static std::list<symbol_record> glob (const std::string& pattern)
@@ -2006,7 +2009,7 @@
         // may be handled the same way.
 
         if (pat.match (p->first))
-          retval.push_back (symbol_record (xglobal_scope, 
+          retval.push_back (symbol_record (xglobal_scope,
                                            p->first, p->second,
                                            symbol_record::global));
       }
@@ -2181,7 +2184,7 @@
     symbol_table *inst = get_instance (xcurrent_scope);
 
     return inst
-      ? inst->do_workspace_info () : std::list<workspace_element> ();
+           ? inst->do_workspace_info () : std::list<workspace_element> ();
   }
 
   static void dump (std::ostream& os, scope_id scope = xcurrent_scope);
@@ -2264,7 +2267,7 @@
       {
         // Search for parents of parents and append them to the list.
 
-        // FIXME -- should we worry about a circular inheritance graph?
+        // FIXME: should we worry about a circular inheritance graph?
 
         std::list<std::string> parents = parent_classes (*lit);
 
@@ -2276,23 +2279,23 @@
   }
 
   static octave_user_function *get_curr_fcn (scope_id scope = xcurrent_scope)
-    {
-      symbol_table *inst = get_instance (scope);
-      return inst->curr_fcn;
-    }
+  {
+    symbol_table *inst = get_instance (scope);
+    return inst->curr_fcn;
+  }
 
   static void set_curr_fcn (octave_user_function *curr_fcn,
                             scope_id scope = xcurrent_scope)
-    {
-      assert (scope != xtop_scope && scope != xglobal_scope);
-      symbol_table *inst = get_instance (scope);
-      // FIXME: normally, functions should not usurp each other's scope.
-      // If for any incredible reason this is needed, call
-      // set_user_function (0, scope) first. This may cause problems with
-      // nested functions, as the curr_fcn of symbol_records must be updated.
-      assert (inst->curr_fcn == 0 || curr_fcn == 0);
-      inst->curr_fcn = curr_fcn;
-    }
+  {
+    assert (scope != xtop_scope && scope != xglobal_scope);
+    symbol_table *inst = get_instance (scope);
+    // FIXME: normally, functions should not usurp each other's scope.
+    // If for any incredible reason this is needed, call
+    // set_user_function (0, scope) first. This may cause problems with
+    // nested functions, as the curr_fcn of symbol_records must be updated.
+    assert (inst->curr_fcn == 0 || curr_fcn == 0);
+    inst->curr_fcn = curr_fcn;
+  }
 
   static void cleanup (void);
 
@@ -2304,21 +2307,31 @@
 
   symbol_table& operator = (const symbol_table&);
 
-  typedef std::map<std::string, symbol_record>::const_iterator table_const_iterator;
-  typedef std::map<std::string, symbol_record>::iterator table_iterator;
-
-  typedef std::map<std::string, octave_value>::const_iterator global_table_const_iterator;
-  typedef std::map<std::string, octave_value>::iterator global_table_iterator;
-
-  typedef std::map<std::string, octave_value>::const_iterator persistent_table_const_iterator;
-  typedef std::map<std::string, octave_value>::iterator persistent_table_iterator;
-
-  typedef std::map<scope_id, symbol_table*>::const_iterator all_instances_const_iterator;
-  typedef std::map<scope_id, symbol_table*>::iterator all_instances_iterator;
-
-  typedef std::map<std::string, fcn_info>::const_iterator fcn_table_const_iterator;
-  typedef std::map<std::string, fcn_info>::iterator fcn_table_iterator;
-  
+  typedef std::map<std::string, symbol_record>::const_iterator
+    table_const_iterator;
+  typedef std::map<std::string, symbol_record>::iterator
+    table_iterator;
+
+  typedef std::map<std::string, octave_value>::const_iterator
+    global_table_const_iterator;
+  typedef std::map<std::string, octave_value>::iterator
+    global_table_iterator;
+
+  typedef std::map<std::string, octave_value>::const_iterator
+    persistent_table_const_iterator;
+  typedef std::map<std::string, octave_value>::iterator
+    persistent_table_iterator;
+
+  typedef std::map<scope_id, symbol_table*>::const_iterator
+    all_instances_const_iterator;
+  typedef std::map<scope_id, symbol_table*>::iterator
+    all_instances_iterator;
+
+  typedef std::map<std::string, fcn_info>::const_iterator
+    fcn_table_const_iterator;
+  typedef std::map<std::string, fcn_info>::iterator
+    fcn_table_iterator;
+
   // The scope of this symbol table.
   scope_id my_scope;
 
@@ -2361,14 +2374,18 @@
   // precedence.
   static std::map<std::string, std::set<std::string> > class_precedence_table;
 
-  typedef std::map<std::string, std::set<std::string> >::const_iterator class_precedence_table_const_iterator;
-  typedef std::map<std::string, std::set<std::string> >::iterator class_precedence_table_iterator;
+  typedef std::map<std::string, std::set<std::string> >::const_iterator
+    class_precedence_table_const_iterator;
+  typedef std::map<std::string, std::set<std::string> >::iterator
+    class_precedence_table_iterator;
 
   // Map from class names to parent class names.
   static std::map<std::string, std::list<std::string> > parent_map;
 
-  typedef std::map<std::string, std::list<std::string> >::const_iterator const_parent_map_iterator;
-  typedef std::map<std::string, std::list<std::string> >::iterator parent_map_iterator;
+  typedef std::map<std::string, std::list<std::string> >::const_iterator
+    const_parent_map_iterator;
+  typedef std::map<std::string, std::list<std::string> >::iterator
+    parent_map_iterator;
 
   static const scope_id xglobal_scope;
   static const scope_id xtop_scope;
@@ -2380,8 +2397,9 @@
   static const context_id xdefault_context = static_cast<context_id> (-1);
 
   symbol_table (scope_id scope)
-    : my_scope (scope), table_name (), table (), nest_children (), nest_parent (0),
-    curr_fcn (0), static_workspace (false), persistent_table () { }
+    : my_scope (scope), table_name (), table (), nest_children (),
+      nest_parent (0), curr_fcn (0), static_workspace (false),
+      persistent_table () { }
 
   ~symbol_table (void) { }
 
@@ -2459,7 +2477,8 @@
   do_dup_scope (symbol_table& new_symbol_table) const
   {
     for (table_const_iterator p = table.begin (); p != table.end (); p++)
-      new_symbol_table.insert_symbol_record (p->second.dup (new_symbol_table.my_scope));
+      new_symbol_table.insert_symbol_record (p->second.dup (new_symbol_table
+                                                            .my_scope));
   }
 
   symbol_record do_find_symbol (const std::string& name)
@@ -2498,10 +2517,10 @@
   }
 
   static fcn_info *get_fcn_info (const std::string& name)
-    {
-      fcn_table_iterator p = fcn_table.find (name);
-      return p != fcn_table.end () ? &p->second : 0;
-    }
+  {
+    fcn_table_iterator p = fcn_table.find (name);
+    return p != fcn_table.end () ? &p->second : 0;
+  }
 
   octave_value
   do_find (const std::string& name, const octave_value_list& args,
@@ -2586,8 +2605,7 @@
     return (p != table.end ()) ? p->second.varval (context) : octave_value ();
   }
 
-  void do_persistent_assign (const std::string& name,
-                             const octave_value& value)
+  void do_persistent_assign (const std::string& name, const octave_value& value)
   {
     persistent_table_iterator p = persistent_table.find (name);
 
@@ -2604,7 +2622,7 @@
     persistent_table_iterator p = persistent_table.find (name);
 
     return (p == persistent_table.end ())
-      ? persistent_table[name] : p->second;
+           ? persistent_table[name] : p->second;
   }
 
   octave_value do_persistent_varval (const std::string& name)
--- a/libinterp/corefcn/syscalls.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/syscalls.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -110,7 +110,7 @@
 }
 
 DEFUNX ("dup2", Fdup2, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{fid}, @var{msg}] =} dup2 (@var{old}, @var{new})\n\
 Duplicate a file descriptor.\n\
 \n\
@@ -162,7 +162,7 @@
 }
 
 DEFUNX ("exec", Fexec, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} exec (@var{file}, @var{args})\n\
 Replace current process with a new process.  Calling @code{exec} without\n\
 first calling @code{fork} will terminate your current Octave process and\n\
@@ -245,7 +245,7 @@
 }
 
 DEFUNX ("popen2", Fpopen2, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{in}, @var{out}, @var{pid}] =} popen2 (@var{command}, @var{args})\n\
 Start a subprocess with two-way communication.  The name of the process\n\
 is given by @var{command}, and @var{args} is an array of strings\n\
@@ -339,7 +339,8 @@
                   std::string msg;
                   pid_t pid;
 
-                  pid = octave_syscalls::popen2 (exec_file, arg_list, sync_mode, fildes, msg, interactive);
+                  pid = octave_syscalls::popen2 (exec_file, arg_list, sync_mode,
+                                                 fildes, msg, interactive);
                   if (pid >= 0)
                     {
                       FILE *ifile = fdopen (fildes[1], "r");
@@ -348,10 +349,10 @@
                       std::string nm;
 
                       octave_stream is = octave_stdiostream::create (nm, ifile,
-                          std::ios::in);
+                                                                  std::ios::in);
 
                       octave_stream os = octave_stdiostream::create (nm, ofile,
-                          std::ios::out);
+                                                                 std::ios::out);
 
                       Cell file_ids (1, 2);
 
@@ -359,7 +360,7 @@
                       retval(1) = octave_stream_list::insert (is);
                       retval(0) = octave_stream_list::insert (os);
                     }
-                                  else
+                  else
                     error (msg.c_str ());
                 }
             }
@@ -417,7 +418,7 @@
 */
 
 DEFUNX ("fcntl", Ffcntl, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} fcntl (@var{fid}, @var{request}, @var{arg})\n\
 Change the properties of the open file @var{fid}.  The following values\n\
 may be passed as @var{request}:\n\
@@ -493,7 +494,7 @@
 
           if (! error_state)
             {
-              // FIXME -- Need better checking here?
+              // FIXME: Need better checking here?
               if (fid < 0)
                 error ("fcntl: invalid file id");
               else
@@ -517,7 +518,7 @@
 }
 
 DEFUNX ("fork", Ffork, args, ,
- "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{pid}, @var{msg}] =} fork ()\n\
 Create a copy of the current process.\n\
 \n\
@@ -562,7 +563,7 @@
 }
 
 DEFUNX ("getpgrp", Fgetpgrp, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {pgid =} getpgrp ()\n\
 Return the process group id of the current process.\n\
 @end deftypefn")
@@ -588,7 +589,7 @@
 }
 
 DEFUNX ("getpid", Fgetpid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {pid =} getpid ()\n\
 Return the process id of the current process.\n\
 @end deftypefn")
@@ -606,7 +607,7 @@
 }
 
 DEFUNX ("getppid", Fgetppid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {pid =} getppid ()\n\
 Return the process id of the parent process.\n\
 @end deftypefn")
@@ -624,7 +625,7 @@
 }
 
 DEFUNX ("getegid", Fgetegid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {egid =} getegid ()\n\
 Return the effective group id of the current process.\n\
 @end deftypefn")
@@ -642,7 +643,7 @@
 }
 
 DEFUNX ("getgid", Fgetgid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {gid =} getgid ()\n\
 Return the real group id of the current process.\n\
 @end deftypefn")
@@ -660,7 +661,7 @@
 }
 
 DEFUNX ("geteuid", Fgeteuid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {euid =} geteuid ()\n\
 Return the effective user id of the current process.\n\
 @end deftypefn")
@@ -678,7 +679,7 @@
 }
 
 DEFUNX ("getuid", Fgetuid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {uid =} getuid ()\n\
 Return the real user id of the current process.\n\
 @end deftypefn")
@@ -696,7 +697,7 @@
 }
 
 DEFUNX ("kill", Fkill, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} kill (@var{pid}, @var{sig})\n\
 Send signal @var{sig} to process @var{pid}.\n\
 \n\
@@ -748,7 +749,7 @@
 }
 
 DEFUNX ("lstat", Flstat, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{info} =} lstat (@var{symlink})\n\
 @deftypefnx {Built-in Function} {[@var{info}, @var{err}, @var{msg}] =} lstat (@var{symlink})\n\
 Return a structure @var{info} containing information about the symbolic link\n\
@@ -778,7 +779,7 @@
 }
 
 DEFUNX ("mkfifo", Fmkfifo, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} mkfifo (@var{name}, @var{mode})\n\
 @deftypefnx {Built-in Function} {[@var{err}, @var{msg}] =} mkfifo (@var{name}, @var{mode})\n\
 Create a FIFO special file named @var{name} with file mode @var{mode}\n\
@@ -833,7 +834,7 @@
 }
 
 DEFUNX ("pipe", Fpipe, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{read_fd}, @var{write_fd}, @var{err}, @var{msg}] =} pipe ()\n\
 Create a pipe and return the reading and writing ends of the pipe\n\
 into @var{read_fd} and @var{write_fd} respectively.\n\
@@ -888,7 +889,7 @@
 }
 
 DEFUNX ("stat", Fstat, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {[@var{info}, @var{err}, @var{msg}] =} stat (@var{file})\n\
 @deftypefnx {Built-in Function} {[@var{info}, @var{err}, @var{msg}] =} stat (@var{fid})\n\
 @deftypefnx {Built-in Function} {[@var{info}, @var{err}, @var{msg}] =} lstat (@var{file})\n\
@@ -1017,7 +1018,7 @@
 }
 
 DEFUNX ("S_ISREG", FS_ISREG, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISREG (@var{mode})\n\
 Return true if @var{mode} corresponds to a regular file.\n\
 \n\
@@ -1043,7 +1044,7 @@
 }
 
 DEFUNX ("S_ISDIR", FS_ISDIR, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISDIR (@var{mode})\n\
 Return true if @var{mode} corresponds to a directory.\n\
 \n\
@@ -1069,7 +1070,7 @@
 }
 
 DEFUNX ("S_ISCHR", FS_ISCHR, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISCHR (@var{mode})\n\
 Return true if @var{mode} corresponds to a character device.\n\
 \n\
@@ -1095,7 +1096,7 @@
 }
 
 DEFUNX ("S_ISBLK", FS_ISBLK, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISBLK (@var{mode})\n\
 Return true if @var{mode} corresponds to a block device.\n\
 \n\
@@ -1121,7 +1122,7 @@
 }
 
 DEFUNX ("S_ISFIFO", FS_ISFIFO, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISFIFO (@var{mode})\n\
 Return true if @var{mode} corresponds to a fifo.\n\
 \n\
@@ -1147,7 +1148,7 @@
 }
 
 DEFUNX ("S_ISLNK", FS_ISLNK, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISLNK (@var{mode})\n\
 Return true if @var{mode} corresponds to a symbolic link.\n\
 \n\
@@ -1173,7 +1174,7 @@
 }
 
 DEFUNX ("S_ISSOCK", FS_ISSOCK, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} S_ISSOCK (@var{mode})\n\
 Return true if @var{mode} corresponds to a socket.\n\
 \n\
@@ -1199,7 +1200,7 @@
 }
 
 DEFUN (gethostname, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} gethostname ()\n\
 Return the hostname of the system where Octave is running.\n\
 @end deftypefn")
@@ -1215,7 +1216,7 @@
 }
 
 DEFUN (uname, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{uts}, @var{err}, @var{msg}] =} uname ()\n\
 Return system information in the structure.  For example:\n\
 \n\
@@ -1262,7 +1263,7 @@
 }
 
 DEFUNX ("unlink", Funlink, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} unlink (@var{file})\n\
 Delete the file named @var{file}.\n\
 \n\
@@ -1301,7 +1302,7 @@
 }
 
 DEFUNX ("waitpid", Fwaitpid, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{pid}, @var{status}, @var{msg}] =} waitpid (@var{pid}, @var{options})\n\
 Wait for process @var{pid} to terminate.  The @var{pid} argument can be:\n\
 \n\
@@ -1370,7 +1371,8 @@
 
               int status = 0;
 
-              pid_t result = octave_syscalls::waitpid (pid, &status, options, msg);
+              pid_t result = octave_syscalls::waitpid (pid, &status,
+                                                       options, msg);
 
               retval(2) = msg;
               retval(1) = status;
@@ -1389,7 +1391,7 @@
 }
 
 DEFUNX ("WIFEXITED", FWIFEXITED, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WIFEXITED (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return true if the\n\
 child terminated normally.\n\
@@ -1412,7 +1414,7 @@
 }
 
 DEFUNX ("WEXITSTATUS", FWEXITSTATUS, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WEXITSTATUS (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return the exit\n\
 status of the child.  This function should only be employed if\n\
@@ -1436,7 +1438,7 @@
 }
 
 DEFUNX ("WIFSIGNALED", FWIFSIGNALED, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WIFSIGNALED (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return true if the\n\
 child process was terminated by a signal.\n\
@@ -1459,7 +1461,7 @@
 }
 
 DEFUNX ("WTERMSIG", FWTERMSIG, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WTERMSIG (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return the number of\n\
 the signal that caused the child process to terminate.  This function\n\
@@ -1483,7 +1485,7 @@
 }
 
 DEFUNX ("WCOREDUMP", FWCOREDUMP, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WCOREDUMP (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return true if the\n\
 child produced a core dump.  This function should only be employed if\n\
@@ -1509,7 +1511,7 @@
 }
 
 DEFUNX ("WIFSTOPPED", FWIFSTOPPED, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WIFSTOPPED (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return true if the\n\
 child process was stopped by delivery of a signal; this is only\n\
@@ -1534,7 +1536,7 @@
 }
 
 DEFUNX ("WSTOPSIG", FWSTOPSIG, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WSTOPSIG (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return the number of\n\
 the signal which caused the child to stop.  This function should only\n\
@@ -1558,7 +1560,7 @@
 }
 
 DEFUNX ("WIFCONTINUED", FWIFCONTINUED, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WIFCONTINUED (@var{status})\n\
 Given @var{status} from a call to @code{waitpid}, return true if the\n\
 child process was resumed by delivery of @code{SIGCONT}.\n\
@@ -1581,7 +1583,7 @@
 }
 
 DEFUNX ("canonicalize_file_name", Fcanonicalize_file_name, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{cname}, @var{status}, @var{msg}] =} canonicalize_file_name (@var{fname})\n\
 Return the canonical name of file @var{fname}.  If the file does not exist\n\
 the empty string (\"\") is returned.\n\
@@ -1633,7 +1635,7 @@
 #endif
 
 DEFUNX ("F_DUPFD", FF_DUPFD, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} F_DUPFD ()\n\
 Return the numerical value to pass to @code{fcntl} to return a\n\
 duplicate file descriptor.\n\
@@ -1649,7 +1651,7 @@
 }
 
 DEFUNX ("F_GETFD", FF_GETFD, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} F_GETFD ()\n\
 Return the numerical value to pass to @code{fcntl} to return the\n\
 file descriptor flags.\n\
@@ -1665,7 +1667,7 @@
 }
 
 DEFUNX ("F_GETFL", FF_GETFL, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} F_GETFL ()\n\
 Return the numerical value to pass to @code{fcntl} to return the\n\
 file status flags.\n\
@@ -1681,7 +1683,7 @@
 }
 
 DEFUNX ("F_SETFD", FF_SETFD, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} F_SETFD ()\n\
 Return the numerical value to pass to @code{fcntl} to set the file\n\
 descriptor flags.\n\
@@ -1697,7 +1699,7 @@
 }
 
 DEFUNX ("F_SETFL", FF_SETFL, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} F_SETFL ()\n\
 Return the numerical value to pass to @code{fcntl} to set the file\n\
 status flags.\n\
@@ -1713,7 +1715,7 @@
 }
 
 DEFUNX ("O_APPEND", FO_APPEND, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_APPEND ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate each write operation appends,\n\
@@ -1730,7 +1732,7 @@
 }
 
 DEFUNX ("O_ASYNC", FO_ASYNC, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_ASYNC ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate asynchronous I/O.\n\
@@ -1746,7 +1748,7 @@
 }
 
 DEFUNX ("O_CREAT", FO_CREAT, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_CREAT ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that a file should be\n\
@@ -1763,7 +1765,7 @@
 }
 
 DEFUNX ("O_EXCL", FO_EXCL, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_EXCL ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that file locking is used.\n\
@@ -1779,7 +1781,7 @@
 }
 
 DEFUNX ("O_NONBLOCK", FO_NONBLOCK, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_NONBLOCK ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that non-blocking I/O is in use,\n\
@@ -1796,7 +1798,7 @@
 }
 
 DEFUNX ("O_RDONLY", FO_RDONLY, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_RDONLY ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that a file is open for\n\
@@ -1813,7 +1815,7 @@
 }
 
 DEFUNX ("O_RDWR", FO_RDWR, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_RDWR ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that a file is open for both\n\
@@ -1830,7 +1832,7 @@
 }
 
 DEFUNX ("O_SYNC", FO_SYNC, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_SYNC ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that a file is open for\n\
@@ -1847,7 +1849,7 @@
 }
 
 DEFUNX ("O_TRUNC", FO_TRUNC, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} O_TRUNC ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that if file exists, it should\n\
@@ -1864,7 +1866,7 @@
 }
 
 DEFUNX ("O_WRONLY", FO_WRONLY, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} O_WRONLY ()\n\
 Return the numerical value of the file status flag that may be\n\
 returned by @code{fcntl} to indicate that a file is open for\n\
@@ -1885,7 +1887,7 @@
 #endif
 
 DEFUNX ("WNOHANG", FWNOHANG, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WNOHANG ()\n\
 Return the numerical value of the option argument that may be\n\
 passed to @code{waitpid} to indicate that it should return its\n\
@@ -1901,7 +1903,7 @@
 #endif
 
 DEFUNX ("WUNTRACED", FWUNTRACED, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WUNTRACED ()\n\
 Return the numerical value of the option argument that may be\n\
 passed to @code{waitpid} to indicate that it should also return\n\
@@ -1918,7 +1920,7 @@
 #endif
 
 DEFUNX ("WCONTINUE", FWCONTINUE, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} WCONTINUE ()\n\
 Return the numerical value of the option argument that may be\n\
 passed to @code{waitpid} to indicate that it should also return\n\
--- a/libinterp/corefcn/sysdep.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sysdep.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -71,6 +71,7 @@
 #include "Cell.h"
 #include "builtins.h"
 #include "defun.h"
+#include "display.h"
 #include "error.h"
 #include "input.h"
 #include "oct-obj.h"
@@ -139,7 +140,7 @@
                 }
             }
           while (Module32Next (h, &mod_info));
-       }
+        }
 
       CloseHandle (h);
     }
@@ -159,7 +160,7 @@
   // Let the user close the console window or shutdown without the
   // pesky dialog.
   //
-  // FIXME -- should this be user configurable?
+  // FIXME: should this be user configurable?
   SetProcessShutdownParameters (0x280, SHUTDOWN_NORETRY);
 }
 
@@ -528,7 +529,7 @@
 }
 
 DEFUN (clc, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} clc ()\n\
 @deftypefnx {Built-in Function} {} home ()\n\
 Clear the terminal screen and move the cursor to the upper left corner.\n\
@@ -544,7 +545,7 @@
 DEFALIAS (home, clc);
 
 DEFUN (getenv, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} getenv (@var{var})\n\
 Return the value of the environment variable @var{var}.  For example,\n\
 \n\
@@ -574,7 +575,7 @@
 }
 
 DEFUN (putenv, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} putenv (@var{var}, @var{value})\n\
 @deftypefnx {Built-in Function} {} setenv (@var{var}, @var{value})\n\
 Set the value of the environment variable @var{var} to @var{value}.\n\
@@ -616,10 +617,10 @@
 %! assert (getenv ("dummy_variable_that_cannot_matter"), "foobar");
 */
 
-// FIXME -- perhaps kbhit should also be able to print a prompt?
+// FIXME: perhaps kbhit should also be able to print a prompt?
 
 DEFUN (kbhit, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} kbhit ()\n\
 @deftypefnx {Built-in Function} {} kbhit (1)\n\
 Read a single keystroke from the keyboard.  If called with an\n\
@@ -645,7 +646,7 @@
 {
   octave_value retval;
 
-  // FIXME -- add timeout and default value args?
+  // FIXME: add timeout and default value args?
 
   if (interactive || forced_interactive)
     {
@@ -665,7 +666,7 @@
 }
 
 DEFUN (pause, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} pause (@var{seconds})\n\
 Suspend the execution of the program.  If invoked without any arguments,\n\
 Octave waits until you type a character.  With a numeric argument, it\n\
@@ -732,7 +733,7 @@
 */
 
 DEFUN (sleep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} sleep (@var{seconds})\n\
 Suspend the execution of the program for the given number of seconds.\n\
 @end deftypefn")
@@ -769,7 +770,7 @@
 */
 
 DEFUN (usleep, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} usleep (@var{microseconds})\n\
 Suspend the execution of the program for the given number of\n\
 microseconds.  On systems where it is not possible to sleep for periods\n\
@@ -812,11 +813,11 @@
 %!error (usleep (1, 2))
 */
 
-// FIXME -- maybe this should only return 1 if IEEE floating
+// FIXME: maybe this should only return 1 if IEEE floating
 // point functions really work.
 
 DEFUN (isieee, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isieee ()\n\
 Return true if your computer @emph{claims} to conform to the IEEE standard\n\
 for floating point calculations.  No actual tests are performed.\n\
@@ -833,7 +834,7 @@
 */
 
 DEFUN (native_float_format, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} native_float_format ()\n\
 Return the native floating point format as a string\n\
 @end deftypefn")
@@ -848,7 +849,7 @@
 */
 
 DEFUN (tilde_expand, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\
 Perform tilde expansion on @var{string}.  If @var{string} begins with a\n\
 tilde character, (@samp{~}), all of the characters preceding the first\n\
@@ -906,3 +907,17 @@
 %! assert (tilde_expand ("/foo/bar"), "/foo/bar");
 %! assert (tilde_expand ("foo/bar"), "foo/bar");
 */
+
+// This function really belongs in display.cc, but including defun.h in
+// that file results in conflicts with symbols from headers that are
+// needed for X11 and Carbon functions.
+
+DEFUN (have_window_system, , ,
+  "-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} have_window_system ()\n\
+Return true if Octave a window system is available (X11, Windows,\n\
+or Apple OS X) and false otherwise.\n\
+@end deftypefn")
+{
+  return octave_value (display_info::display_available ());
+}
--- a/libinterp/corefcn/sysdep.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/sysdep.h	Tue Nov 05 12:27:42 2013 -0500
@@ -52,6 +52,7 @@
 #define MINGW_SIGNAL_CLEANUP() do { } while (0)
 #endif
 
-extern OCTINTERP_API bool same_file_internal (const std::string&, const std::string&);
+extern OCTINTERP_API bool same_file_internal (const std::string&,
+                                              const std::string&);
 
 #endif
--- a/libinterp/corefcn/time.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/time.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -102,7 +102,7 @@
 }
 
 DEFUN (time, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{seconds} =} time ()\n\
 Return the current time as the number of seconds since the epoch.  The\n\
 epoch is referenced to 00:00:00 CUT (Coordinated Universal Time) 1 Jan\n\
@@ -126,7 +126,7 @@
 */
 
 DEFUN (gmtime, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{tm_struct} =} gmtime (@var{t})\n\
 Given a value returned from @code{time}, or any non-negative integer,\n\
 return a time structure corresponding to CUT (Coordinated Universal Time).\n\
@@ -188,7 +188,7 @@
 */
 
 DEFUN (localtime, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{tm_struct} =} localtime (@var{t})\n\
 Given a value returned from @code{time}, or any non-negative integer,\n\
 return a time structure corresponding to the local time zone.\n\
@@ -249,7 +249,7 @@
 */
 
 DEFUN (mktime, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{seconds} =} mktime (@var{tm_struct})\n\
 Convert a time structure corresponding to the local time to the number\n\
 of seconds since the epoch.  For example:\n\
@@ -303,7 +303,7 @@
 */
 
 DEFUN (strftime, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} strftime (@var{fmt}, @var{tm_struct})\n\
 Format the time structure @var{tm_struct} in a flexible way using the\n\
 format string @var{fmt} that contains @samp{%} substitutions\n\
@@ -498,7 +498,7 @@
 */
 
 DEFUN (strptime, args, ,
- "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {[@var{tm_struct}, @var{nchars}] =} strptime (@var{str}, @var{fmt})\n\
 Convert the string @var{str} to the time structure @var{tm_struct} under\n\
 the control of the format string @var{fmt}.\n\
--- a/libinterp/corefcn/toplev.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/toplev.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -57,6 +57,7 @@
 #include "graphics.h"
 #include "input.h"
 #include "lex.h"
+#include "load-save.h"
 #include "octave-link.h"
 #include "oct-conf.h"
 #include "oct-conf-features.h"
@@ -197,7 +198,8 @@
 }
 
 size_t
-octave_call_stack::do_num_user_code_frames (octave_idx_type& curr_user_frame) const
+octave_call_stack::do_num_user_code_frames
+  (octave_idx_type& curr_user_frame) const
 {
   size_t retval = 0;
 
@@ -264,7 +266,8 @@
 // Use static fields for the best efficiency.
 // NOTE: C++0x will allow these two to be merged into one.
 static const char *bt_fieldnames[] = { "file", "name", "line",
-    "column", "scope", "context", 0 };
+                                       "column", "scope", "context", 0
+                                     };
 static const octave_fields bt_fields (bt_fieldnames);
 
 octave_map
@@ -613,16 +616,14 @@
       catch (octave_execution_exception)
         {
           recover_from_exception ();
-          std::cerr
-            << "error: unhandled execution exception -- trying to return to prompt"
-            << std::endl;
+          std::cerr << "error: unhandled execution exception -- trying to return to prompt"
+                    << std::endl;
         }
       catch (std::bad_alloc)
         {
           recover_from_exception ();
-          std::cerr
-            << "error: out of memory -- trying to return to prompt"
-            << std::endl;
+          std::cerr << "error: out of memory -- trying to return to prompt"
+                    << std::endl;
         }
     }
   while (retval == 0);
@@ -673,7 +674,7 @@
 
       OCTAVE_SAFE_CALL (command_editor::restore_terminal_state, ());
 
-      // FIXME -- is this needed?  Can it cause any trouble?
+      // FIXME: is this needed?  Can it cause any trouble?
       OCTAVE_SAFE_CALL (raw_mode, (0));
 
       OCTAVE_SAFE_CALL (octave_history_write_timestamp, ());
@@ -693,6 +694,8 @@
 
       OCTAVE_SAFE_CALL (sysdep_cleanup, ());
 
+      OCTAVE_SAFE_CALL (octave_finalize_hdf5, ());
+
       OCTAVE_SAFE_CALL (flush_octave_stdout, ());
 
       if (! quitting_gracefully && (interactive || forced_interactive))
@@ -752,7 +755,7 @@
 }
 
 DEFUN (quit, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} exit (@var{status})\n\
 @deftypefnx {Built-in Function} {} quit (@var{status})\n\
 Exit the current Octave session.  If the optional integer value\n\
@@ -796,7 +799,7 @@
 DEFALIAS (exit, quit);
 
 DEFUN (warranty, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} warranty ()\n\
 Describe the conditions for copying and distributing Octave.\n\
 @end deftypefn")
@@ -902,7 +905,7 @@
 enum system_exec_type { et_sync, et_async };
 
 DEFUN (system, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} system (\"@var{string}\")\n\
 @deftypefnx {Built-in Function} {} system (\"@var{string}\", @var{return_output})\n\
 @deftypefnx {Built-in Function} {} system (\"@var{string}\", @var{return_output}, @var{type})\n\
@@ -1016,7 +1019,7 @@
 
           if (type == et_async)
             {
-              // FIXME -- maybe this should go in sysdep.cc?
+              // FIXME: maybe this should go in sysdep.cc?
 #ifdef HAVE_FORK
               pid_t pid = fork ();
 
@@ -1024,7 +1027,7 @@
                 error ("system: fork failed -- can't create child process");
               else if (pid == 0)
                 {
-                  // FIXME -- should probably replace this
+                  // FIXME: should probably replace this
                   // call with something portable.
 
                   execl (SHELL_PATH, "sh", "-c", cmd_str.c_str (),
@@ -1119,7 +1122,7 @@
 
 
 DEFUN (atexit, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} atexit (@var{fcn})\n\
 @deftypefnx {Built-in Function} {} atexit (@var{fcn}, @var{flag})\n\
 Register a function to be called when Octave exits.  For example,\n\
@@ -1199,7 +1202,7 @@
 }
 
 DEFUN (octave_config_info, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} octave_config_info ()\n\
 @deftypefnx {Built-in Function} {} octave_config_info (@var{option})\n\
 Return a structure containing configuration and installation\n\
@@ -1229,186 +1232,188 @@
   };
 
   static const conf_info_struct conf_info[] =
-    {
-      { false, "ALL_CFLAGS", OCTAVE_CONF_ALL_CFLAGS },
-      { false, "ALL_CXXFLAGS", OCTAVE_CONF_ALL_CXXFLAGS },
-      { false, "ALL_FFLAGS", OCTAVE_CONF_ALL_FFLAGS },
-      { false, "ALL_LDFLAGS", OCTAVE_CONF_ALL_LDFLAGS },
-      { false, "AMD_CPPFLAGS", OCTAVE_CONF_AMD_CPPFLAGS },
-      { false, "AMD_LDFLAGS", OCTAVE_CONF_AMD_LDFLAGS },
-      { false, "AMD_LIBS", OCTAVE_CONF_AMD_LIBS },
-      { false, "AR", OCTAVE_CONF_AR },
-      { false, "ARFLAGS", OCTAVE_CONF_ARFLAGS },
-      { false, "ARPACK_CPPFLAGS", OCTAVE_CONF_ARPACK_CPPFLAGS },
-      { false, "ARPACK_LDFLAGS", OCTAVE_CONF_ARPACK_LDFLAGS },
-      { false, "ARPACK_LIBS", OCTAVE_CONF_ARPACK_LIBS },
-      { false, "BLAS_LIBS", OCTAVE_CONF_BLAS_LIBS },
-      { false, "CAMD_CPPFLAGS", OCTAVE_CONF_CAMD_CPPFLAGS },
-      { false, "CAMD_LDFLAGS", OCTAVE_CONF_CAMD_LDFLAGS },
-      { false, "CAMD_LIBS", OCTAVE_CONF_CAMD_LIBS },
-      { false, "CARBON_LIBS", OCTAVE_CONF_CARBON_LIBS },
-      { false, "CC", OCTAVE_CONF_CC },
-      // FIXME: CC_VERSION is deprecated.  Remove in version 3.12
-      { false, "CC_VERSION", OCTAVE_CONF_CC_VERSION },
-      { false, "CCOLAMD_CPPFLAGS", OCTAVE_CONF_CCOLAMD_CPPFLAGS },
-      { false, "CCOLAMD_LDFLAGS", OCTAVE_CONF_CCOLAMD_LDFLAGS },
-      { false, "CCOLAMD_LIBS", OCTAVE_CONF_CCOLAMD_LIBS },
-      { false, "CFLAGS", OCTAVE_CONF_CFLAGS },
-      { false, "CHOLMOD_CPPFLAGS", OCTAVE_CONF_CHOLMOD_CPPFLAGS },
-      { false, "CHOLMOD_LDFLAGS", OCTAVE_CONF_CHOLMOD_LDFLAGS },
-      { false, "CHOLMOD_LIBS", OCTAVE_CONF_CHOLMOD_LIBS },
-      { false, "COLAMD_CPPFLAGS", OCTAVE_CONF_COLAMD_CPPFLAGS },
-      { false, "COLAMD_LDFLAGS", OCTAVE_CONF_COLAMD_LDFLAGS },
-      { false, "COLAMD_LIBS", OCTAVE_CONF_COLAMD_LIBS },
-      { false, "CPICFLAG", OCTAVE_CONF_CPICFLAG },
-      { false, "CPPFLAGS", OCTAVE_CONF_CPPFLAGS },
-      { false, "CURL_CPPFLAGS", OCTAVE_CONF_CURL_CPPFLAGS },
-      { false, "CURL_LDFLAGS", OCTAVE_CONF_CURL_LDFLAGS },
-      { false, "CURL_LIBS", OCTAVE_CONF_CURL_LIBS },
-      { false, "CXSPARSE_CPPFLAGS", OCTAVE_CONF_CXSPARSE_CPPFLAGS },
-      { false, "CXSPARSE_LDFLAGS", OCTAVE_CONF_CXSPARSE_LDFLAGS },
-      { false, "CXSPARSE_LIBS", OCTAVE_CONF_CXSPARSE_LIBS },
-      { false, "CXX", OCTAVE_CONF_CXX },
-      { false, "CXXCPP", OCTAVE_CONF_CXXCPP },
-      { false, "CXXFLAGS", OCTAVE_CONF_CXXFLAGS },
-      { false, "CXXPICFLAG", OCTAVE_CONF_CXXPICFLAG },
-      // FIXME: CXX_VERSION is deprecated.  Remove in version 3.12
-      { false, "CXX_VERSION", OCTAVE_CONF_CXX_VERSION },
-      { false, "DEFAULT_PAGER", OCTAVE_DEFAULT_PAGER },
-      { false, "DEFS", OCTAVE_CONF_DEFS },
-      { false, "DL_LD", OCTAVE_CONF_DL_LD },
-      { false, "DL_LDFLAGS", OCTAVE_CONF_DL_LDFLAGS },
-      { false, "DL_LIBS", OCTAVE_CONF_DL_LIBS },
-      { false, "GCC_VERSION", OCTAVE_CONF_GCC_VERSION },
-      { false, "GXX_VERSION", OCTAVE_CONF_GXX_VERSION },
-      { false, "ENABLE_DYNAMIC_LINKING", OCTAVE_CONF_ENABLE_DYNAMIC_LINKING },
-      { false, "EXEEXT", OCTAVE_CONF_EXEEXT },
-      { false, "F77", OCTAVE_CONF_F77 },
-      { false, "F77_FLOAT_STORE_FLAG", OCTAVE_CONF_F77_FLOAT_STORE_FLAG },
-      { false, "F77_INTEGER_8_FLAG", OCTAVE_CONF_F77_INTEGER_8_FLAG },
-      { false, "FC", OCTAVE_CONF_FC },
-      { false, "FFLAGS", OCTAVE_CONF_FFLAGS },
-      { false, "FFTW3_CPPFLAGS", OCTAVE_CONF_FFTW3_CPPFLAGS },
-      { false, "FFTW3_LDFLAGS", OCTAVE_CONF_FFTW3_LDFLAGS },
-      { false, "FFTW3_LIBS", OCTAVE_CONF_FFTW3_LIBS },
-      { false, "FFTW3F_CPPFLAGS", OCTAVE_CONF_FFTW3F_CPPFLAGS },
-      { false, "FFTW3F_LDFLAGS", OCTAVE_CONF_FFTW3F_LDFLAGS },
-      { false, "FFTW3F_LIBS", OCTAVE_CONF_FFTW3F_LIBS },
-      { false, "FLIBS", OCTAVE_CONF_FLIBS },
-      { false, "FPICFLAG", OCTAVE_CONF_FPICFLAG },
-      { false, "FT2_CFLAGS", OCTAVE_CONF_FT2_CFLAGS },
-      { false, "FT2_LIBS", OCTAVE_CONF_FT2_LIBS },
-      { false, "GLPK_CPPFLAGS", OCTAVE_CONF_GLPK_CPPFLAGS },
-      { false, "GLPK_LDFLAGS", OCTAVE_CONF_GLPK_LDFLAGS },
-      { false, "GLPK_LIBS", OCTAVE_CONF_GLPK_LIBS },
-      { false, "GNUPLOT", OCTAVE_CONF_GNUPLOT },
-      { false, "GRAPHICS_CFLAGS", OCTAVE_CONF_GRAPHICS_CFLAGS },
-      { false, "GRAPHICS_LIBS", OCTAVE_CONF_GRAPHICS_LIBS },
-      { false, "HDF5_CPPFLAGS", OCTAVE_CONF_HDF5_CPPFLAGS },
-      { false, "HDF5_LDFLAGS", OCTAVE_CONF_HDF5_LDFLAGS },
-      { false, "HDF5_LIBS", OCTAVE_CONF_HDF5_LIBS },
-      { false, "LAPACK_LIBS", OCTAVE_CONF_LAPACK_LIBS },
-      { false, "LDFLAGS", OCTAVE_CONF_LDFLAGS },
-      { false, "LD_CXX", OCTAVE_CONF_LD_CXX },
-      { false, "LD_STATIC_FLAG", OCTAVE_CONF_LD_STATIC_FLAG },
-      { false, "LEX", OCTAVE_CONF_LEX },
-      { false, "LEXLIB", OCTAVE_CONF_LEXLIB },
-      { false, "LFLAGS", OCTAVE_CONF_LFLAGS },
-      { false, "LIBEXT", OCTAVE_CONF_LIBEXT },
-      { false, "LIBFLAGS", OCTAVE_CONF_LIBFLAGS },
-      { false, "LIBOCTAVE", OCTAVE_CONF_LIBOCTAVE },
-      { false, "LIBOCTINTERP", OCTAVE_CONF_LIBOCTINTERP },
-      { false, "LIBS", OCTAVE_CONF_LIBS },
-      { false, "LLVM_CPPFLAGS", OCTAVE_CONF_LLVM_CPPFLAGS },
-      { false, "LLVM_LDFLAGS", OCTAVE_CONF_LLVM_LDFLAGS },
-      { false, "LLVM_LIBS", OCTAVE_CONF_LLVM_LIBS },
-      { false, "LN_S", OCTAVE_CONF_LN_S },
-      { false, "MAGICK_CPPFLAGS", OCTAVE_CONF_MAGICK_CPPFLAGS },
-      { false, "MAGICK_LDFLAGS", OCTAVE_CONF_MAGICK_LDFLAGS },
-      { false, "MAGICK_LIBS", OCTAVE_CONF_MAGICK_LIBS },
-      { false, "MKOCTFILE_DL_LDFLAGS", OCTAVE_CONF_MKOCTFILE_DL_LDFLAGS },
-      { false, "OCTAVE_LINK_DEPS", OCTAVE_CONF_OCTAVE_LINK_DEPS },
-      { false, "OCTAVE_LINK_OPTS", OCTAVE_CONF_OCTAVE_LINK_OPTS },
-      { false, "OCT_LINK_DEPS", OCTAVE_CONF_OCT_LINK_DEPS },
-      { false, "OCT_LINK_OPTS", OCTAVE_CONF_OCT_LINK_OPTS },
-      { false, "OPENGL_LIBS", OCTAVE_CONF_OPENGL_LIBS },
-      { false, "PTHREAD_CFLAGS", OCTAVE_CONF_PTHREAD_CFLAGS },
-      { false, "PTHREAD_LIBS", OCTAVE_CONF_PTHREAD_LIBS },
-      { false, "QHULL_CPPFLAGS", OCTAVE_CONF_QHULL_CPPFLAGS },
-      { false, "QHULL_LDFLAGS", OCTAVE_CONF_QHULL_LDFLAGS },
-      { false, "QHULL_LIBS", OCTAVE_CONF_QHULL_LIBS },
-      { false, "QRUPDATE_CPPFLAGS", OCTAVE_CONF_QRUPDATE_CPPFLAGS },
-      { false, "QRUPDATE_LDFLAGS", OCTAVE_CONF_QRUPDATE_LDFLAGS },
-      { false, "QRUPDATE_LIBS", OCTAVE_CONF_QRUPDATE_LIBS },
-      { false, "QT_CPPFLAGS", OCTAVE_CONF_QT_CPPFLAGS },
-      { false, "QT_LDFLAGS", OCTAVE_CONF_QT_LDFLAGS },
-      { false, "QT_LIBS", OCTAVE_CONF_QT_LIBS },
-      { false, "RANLIB", OCTAVE_CONF_RANLIB },
-      { false, "RDYNAMIC_FLAG", OCTAVE_CONF_RDYNAMIC_FLAG },
-      { false, "READLINE_LIBS", OCTAVE_CONF_READLINE_LIBS },
-      { false, "REGEX_LIBS", OCTAVE_CONF_REGEX_LIBS },
-      { false, "SED", OCTAVE_CONF_SED },
-      { false, "SHARED_LIBS", OCTAVE_CONF_SHARED_LIBS },
-      { false, "SHLEXT", OCTAVE_CONF_SHLEXT },
-      { false, "SHLEXT_VER", OCTAVE_CONF_SHLEXT_VER },
-      { false, "SH_LD", OCTAVE_CONF_SH_LD },
-      { false, "SH_LDFLAGS", OCTAVE_CONF_SH_LDFLAGS },
-      { false, "SONAME_FLAGS", OCTAVE_CONF_SONAME_FLAGS },
-      { false, "STATIC_LIBS", OCTAVE_CONF_STATIC_LIBS },
-      { false, "TERM_LIBS", OCTAVE_CONF_TERM_LIBS },
-      { false, "UMFPACK_CPPFLAGS", OCTAVE_CONF_UMFPACK_CPPFLAGS },
-      { false, "UMFPACK_LDFLAGS", OCTAVE_CONF_UMFPACK_LDFLAGS },
-      { false, "UMFPACK_LIBS", OCTAVE_CONF_UMFPACK_LIBS },
-      { false, "USE_64_BIT_IDX_T", OCTAVE_CONF_USE_64_BIT_IDX_T },
-      { false, "WARN_CFLAGS", OCTAVE_CONF_WARN_CFLAGS },
-      { false, "WARN_CXXFLAGS", OCTAVE_CONF_WARN_CXXFLAGS },
-      { false, "X11_INCFLAGS", OCTAVE_CONF_X11_INCFLAGS },
-      { false, "X11_LIBS", OCTAVE_CONF_X11_LIBS },
-      { false, "XTRA_CFLAGS", OCTAVE_CONF_XTRA_CFLAGS },
-      { false, "XTRA_CXXFLAGS", OCTAVE_CONF_XTRA_CXXFLAGS },
-      { false, "YACC", OCTAVE_CONF_YACC },
-      { false, "YFLAGS", OCTAVE_CONF_YFLAGS },
-      { false, "Z_CPPFLAGS", OCTAVE_CONF_Z_CPPFLAGS },
-      { false, "Z_LDFLAGS", OCTAVE_CONF_Z_LDFLAGS },
-      { false, "Z_LIBS", OCTAVE_CONF_Z_LIBS },
-      { false, "api_version", OCTAVE_API_VERSION },
-      { true, "archlibdir", OCTAVE_ARCHLIBDIR },
-      { true, "bindir", OCTAVE_BINDIR },
-      { false, "canonical_host_type", OCTAVE_CANONICAL_HOST_TYPE },
-      { false, "config_opts", OCTAVE_CONF_config_opts },
-      { true, "datadir", OCTAVE_DATADIR },
-      { true, "datarootdir", OCTAVE_DATAROOTDIR },
-      { true, "exec_prefix", OCTAVE_EXEC_PREFIX },
-      { true, "fcnfiledir", OCTAVE_FCNFILEDIR },
-      { true, "imagedir", OCTAVE_IMAGEDIR },
-      { true, "includedir", OCTAVE_INCLUDEDIR },
-      { true, "infodir", OCTAVE_INFODIR },
-      { true, "infofile", OCTAVE_INFOFILE },
-      { true, "libdir", OCTAVE_LIBDIR },
-      { true, "libexecdir", OCTAVE_LIBEXECDIR },
-      { true, "localapiarchlibdir", OCTAVE_LOCALAPIARCHLIBDIR },
-      { true, "localapifcnfiledir", OCTAVE_LOCALAPIFCNFILEDIR },
-      { true, "localapioctfiledir", OCTAVE_LOCALAPIOCTFILEDIR },
-      { true, "localarchlibdir", OCTAVE_LOCALARCHLIBDIR },
-      { true, "localfcnfiledir", OCTAVE_LOCALFCNFILEDIR },
-      { true, "localoctfiledir", OCTAVE_LOCALOCTFILEDIR },
-      { true, "localstartupfiledir", OCTAVE_LOCALSTARTUPFILEDIR },
-      { true, "localverarchlibdir", OCTAVE_LOCALVERARCHLIBDIR },
-      { true, "localverfcnfiledir", OCTAVE_LOCALVERFCNFILEDIR },
-      { true, "localveroctfiledir", OCTAVE_LOCALVEROCTFILEDIR },
-      { true, "man1dir", OCTAVE_MAN1DIR },
-      { false, "man1ext", OCTAVE_MAN1EXT },
-      { true, "mandir", OCTAVE_MANDIR },
-      { true, "octfiledir", OCTAVE_OCTFILEDIR },
-      { true, "octetcdir", OCTAVE_OCTETCDIR },
-      { true, "octincludedir", OCTAVE_OCTINCLUDEDIR },
-      { true, "octlibdir", OCTAVE_OCTLIBDIR },
-      { true, "octtestsdir", OCTAVE_OCTTESTSDIR },
-      { true, "prefix", OCTAVE_PREFIX },
-      { true, "startupfiledir", OCTAVE_STARTUPFILEDIR },
-      { false, "version", OCTAVE_VERSION },
-      { false, 0, 0 }
-    };
+  {
+    { false, "ALL_CFLAGS", OCTAVE_CONF_ALL_CFLAGS },
+    { false, "ALL_CXXFLAGS", OCTAVE_CONF_ALL_CXXFLAGS },
+    { false, "ALL_FFLAGS", OCTAVE_CONF_ALL_FFLAGS },
+    { false, "ALL_LDFLAGS", OCTAVE_CONF_ALL_LDFLAGS },
+    { false, "AMD_CPPFLAGS", OCTAVE_CONF_AMD_CPPFLAGS },
+    { false, "AMD_LDFLAGS", OCTAVE_CONF_AMD_LDFLAGS },
+    { false, "AMD_LIBS", OCTAVE_CONF_AMD_LIBS },
+    { false, "AR", OCTAVE_CONF_AR },
+    { false, "ARFLAGS", OCTAVE_CONF_ARFLAGS },
+    { false, "ARPACK_CPPFLAGS", OCTAVE_CONF_ARPACK_CPPFLAGS },
+    { false, "ARPACK_LDFLAGS", OCTAVE_CONF_ARPACK_LDFLAGS },
+    { false, "ARPACK_LIBS", OCTAVE_CONF_ARPACK_LIBS },
+    { false, "BLAS_LIBS", OCTAVE_CONF_BLAS_LIBS },
+    { false, "CAMD_CPPFLAGS", OCTAVE_CONF_CAMD_CPPFLAGS },
+    { false, "CAMD_LDFLAGS", OCTAVE_CONF_CAMD_LDFLAGS },
+    { false, "CAMD_LIBS", OCTAVE_CONF_CAMD_LIBS },
+    { false, "CARBON_LIBS", OCTAVE_CONF_CARBON_LIBS },
+    { false, "CC", OCTAVE_CONF_CC },
+    // FIXME: CC_VERSION is deprecated.  Remove in version 3.12
+    { false, "CC_VERSION", OCTAVE_CONF_CC_VERSION },
+    { false, "CCOLAMD_CPPFLAGS", OCTAVE_CONF_CCOLAMD_CPPFLAGS },
+    { false, "CCOLAMD_LDFLAGS", OCTAVE_CONF_CCOLAMD_LDFLAGS },
+    { false, "CCOLAMD_LIBS", OCTAVE_CONF_CCOLAMD_LIBS },
+    { false, "CFLAGS", OCTAVE_CONF_CFLAGS },
+    { false, "CHOLMOD_CPPFLAGS", OCTAVE_CONF_CHOLMOD_CPPFLAGS },
+    { false, "CHOLMOD_LDFLAGS", OCTAVE_CONF_CHOLMOD_LDFLAGS },
+    { false, "CHOLMOD_LIBS", OCTAVE_CONF_CHOLMOD_LIBS },
+    { false, "COLAMD_CPPFLAGS", OCTAVE_CONF_COLAMD_CPPFLAGS },
+    { false, "COLAMD_LDFLAGS", OCTAVE_CONF_COLAMD_LDFLAGS },
+    { false, "COLAMD_LIBS", OCTAVE_CONF_COLAMD_LIBS },
+    { false, "CPICFLAG", OCTAVE_CONF_CPICFLAG },
+    { false, "CPPFLAGS", OCTAVE_CONF_CPPFLAGS },
+    { false, "CURL_CPPFLAGS", OCTAVE_CONF_CURL_CPPFLAGS },
+    { false, "CURL_LDFLAGS", OCTAVE_CONF_CURL_LDFLAGS },
+    { false, "CURL_LIBS", OCTAVE_CONF_CURL_LIBS },
+    { false, "CXSPARSE_CPPFLAGS", OCTAVE_CONF_CXSPARSE_CPPFLAGS },
+    { false, "CXSPARSE_LDFLAGS", OCTAVE_CONF_CXSPARSE_LDFLAGS },
+    { false, "CXSPARSE_LIBS", OCTAVE_CONF_CXSPARSE_LIBS },
+    { false, "CXX", OCTAVE_CONF_CXX },
+    { false, "CXXCPP", OCTAVE_CONF_CXXCPP },
+    { false, "CXXFLAGS", OCTAVE_CONF_CXXFLAGS },
+    { false, "CXXPICFLAG", OCTAVE_CONF_CXXPICFLAG },
+    // FIXME: CXX_VERSION is deprecated.  Remove in version 3.12
+    { false, "CXX_VERSION", OCTAVE_CONF_CXX_VERSION },
+    { false, "DEFAULT_PAGER", OCTAVE_DEFAULT_PAGER },
+    { false, "DEFS", OCTAVE_CONF_DEFS },
+    { false, "DL_LD", OCTAVE_CONF_DL_LD },
+    { false, "DL_LDFLAGS", OCTAVE_CONF_DL_LDFLAGS },
+    { false, "DL_LIBS", OCTAVE_CONF_DL_LIBS },
+    { false, "GCC_VERSION", OCTAVE_CONF_GCC_VERSION },
+    { false, "GXX_VERSION", OCTAVE_CONF_GXX_VERSION },
+    { false, "ENABLE_DYNAMIC_LINKING", OCTAVE_CONF_ENABLE_DYNAMIC_LINKING },
+    { false, "EXEEXT", OCTAVE_CONF_EXEEXT },
+    { false, "F77", OCTAVE_CONF_F77 },
+    { false, "F77_FLOAT_STORE_FLAG", OCTAVE_CONF_F77_FLOAT_STORE_FLAG },
+    { false, "F77_INTEGER_8_FLAG", OCTAVE_CONF_F77_INTEGER_8_FLAG },
+    { false, "FC", OCTAVE_CONF_FC },
+    { false, "FFLAGS", OCTAVE_CONF_FFLAGS },
+    { false, "FFTW3_CPPFLAGS", OCTAVE_CONF_FFTW3_CPPFLAGS },
+    { false, "FFTW3_LDFLAGS", OCTAVE_CONF_FFTW3_LDFLAGS },
+    { false, "FFTW3_LIBS", OCTAVE_CONF_FFTW3_LIBS },
+    { false, "FFTW3F_CPPFLAGS", OCTAVE_CONF_FFTW3F_CPPFLAGS },
+    { false, "FFTW3F_LDFLAGS", OCTAVE_CONF_FFTW3F_LDFLAGS },
+    { false, "FFTW3F_LIBS", OCTAVE_CONF_FFTW3F_LIBS },
+    { false, "FLIBS", OCTAVE_CONF_FLIBS },
+    { false, "FONTCONFIG_CFLAGS", OCTAVE_CONF_FONTCONFIG_CFLAGS },
+    { false, "FPICFLAG", OCTAVE_CONF_FPICFLAG },
+    { false, "FT2_CFLAGS", OCTAVE_CONF_FT2_CFLAGS },
+    { false, "FT2_LIBS", OCTAVE_CONF_FT2_LIBS },
+    { false, "GLPK_CPPFLAGS", OCTAVE_CONF_GLPK_CPPFLAGS },
+    { false, "GLPK_LDFLAGS", OCTAVE_CONF_GLPK_LDFLAGS },
+    { false, "GLPK_LIBS", OCTAVE_CONF_GLPK_LIBS },
+    { false, "GNUPLOT", OCTAVE_CONF_GNUPLOT },
+    { false, "GRAPHICS_CFLAGS", OCTAVE_CONF_GRAPHICS_CFLAGS },
+    { false, "GRAPHICS_LIBS", OCTAVE_CONF_GRAPHICS_LIBS },
+    { false, "HDF5_CPPFLAGS", OCTAVE_CONF_HDF5_CPPFLAGS },
+    { false, "HDF5_LDFLAGS", OCTAVE_CONF_HDF5_LDFLAGS },
+    { false, "HDF5_LIBS", OCTAVE_CONF_HDF5_LIBS },
+    { false, "LAPACK_LIBS", OCTAVE_CONF_LAPACK_LIBS },
+    { false, "LDFLAGS", OCTAVE_CONF_LDFLAGS },
+    { false, "LD_CXX", OCTAVE_CONF_LD_CXX },
+    { false, "LD_STATIC_FLAG", OCTAVE_CONF_LD_STATIC_FLAG },
+    { false, "LEX", OCTAVE_CONF_LEX },
+    { false, "LEXLIB", OCTAVE_CONF_LEXLIB },
+    { false, "LFLAGS", OCTAVE_CONF_LFLAGS },
+    { false, "LIBEXT", OCTAVE_CONF_LIBEXT },
+    { false, "LIBFLAGS", OCTAVE_CONF_LIBFLAGS },
+    { false, "LIBOCTAVE", OCTAVE_CONF_LIBOCTAVE },
+    { false, "LIBOCTINTERP", OCTAVE_CONF_LIBOCTINTERP },
+    { false, "LIBS", OCTAVE_CONF_LIBS },
+    { false, "LLVM_CPPFLAGS", OCTAVE_CONF_LLVM_CPPFLAGS },
+    { false, "LLVM_LDFLAGS", OCTAVE_CONF_LLVM_LDFLAGS },
+    { false, "LLVM_LIBS", OCTAVE_CONF_LLVM_LIBS },
+    { false, "LN_S", OCTAVE_CONF_LN_S },
+    { false, "MAGICK_CPPFLAGS", OCTAVE_CONF_MAGICK_CPPFLAGS },
+    { false, "MAGICK_LDFLAGS", OCTAVE_CONF_MAGICK_LDFLAGS },
+    { false, "MAGICK_LIBS", OCTAVE_CONF_MAGICK_LIBS },
+    { false, "MKOCTFILE_DL_LDFLAGS", OCTAVE_CONF_MKOCTFILE_DL_LDFLAGS },
+    { false, "OCTAVE_LINK_DEPS", OCTAVE_CONF_OCTAVE_LINK_DEPS },
+    { false, "OCTAVE_LINK_OPTS", OCTAVE_CONF_OCTAVE_LINK_OPTS },
+    { false, "OCT_LINK_DEPS", OCTAVE_CONF_OCT_LINK_DEPS },
+    { false, "OCT_LINK_OPTS", OCTAVE_CONF_OCT_LINK_OPTS },
+    { false, "OPENGL_LIBS", OCTAVE_CONF_OPENGL_LIBS },
+    { false, "PCRE_CPPFLAGS", OCTAVE_CONF_PCRE_CPPFLAGS },
+    { false, "PCRE_LIBS", OCTAVE_CONF_PCRE_LIBS },
+    { false, "PTHREAD_CFLAGS", OCTAVE_CONF_PTHREAD_CFLAGS },
+    { false, "PTHREAD_LIBS", OCTAVE_CONF_PTHREAD_LIBS },
+    { false, "QHULL_CPPFLAGS", OCTAVE_CONF_QHULL_CPPFLAGS },
+    { false, "QHULL_LDFLAGS", OCTAVE_CONF_QHULL_LDFLAGS },
+    { false, "QHULL_LIBS", OCTAVE_CONF_QHULL_LIBS },
+    { false, "QRUPDATE_CPPFLAGS", OCTAVE_CONF_QRUPDATE_CPPFLAGS },
+    { false, "QRUPDATE_LDFLAGS", OCTAVE_CONF_QRUPDATE_LDFLAGS },
+    { false, "QRUPDATE_LIBS", OCTAVE_CONF_QRUPDATE_LIBS },
+    { false, "QT_CPPFLAGS", OCTAVE_CONF_QT_CPPFLAGS },
+    { false, "QT_LDFLAGS", OCTAVE_CONF_QT_LDFLAGS },
+    { false, "QT_LIBS", OCTAVE_CONF_QT_LIBS },
+    { false, "RANLIB", OCTAVE_CONF_RANLIB },
+    { false, "RDYNAMIC_FLAG", OCTAVE_CONF_RDYNAMIC_FLAG },
+    { false, "READLINE_LIBS", OCTAVE_CONF_READLINE_LIBS },
+    { false, "SED", OCTAVE_CONF_SED },
+    { false, "SHARED_LIBS", OCTAVE_CONF_SHARED_LIBS },
+    { false, "SHLEXT", OCTAVE_CONF_SHLEXT },
+    { false, "SHLEXT_VER", OCTAVE_CONF_SHLEXT_VER },
+    { false, "SH_LD", OCTAVE_CONF_SH_LD },
+    { false, "SH_LDFLAGS", OCTAVE_CONF_SH_LDFLAGS },
+    { false, "SONAME_FLAGS", OCTAVE_CONF_SONAME_FLAGS },
+    { false, "STATIC_LIBS", OCTAVE_CONF_STATIC_LIBS },
+    { false, "TERM_LIBS", OCTAVE_CONF_TERM_LIBS },
+    { false, "UMFPACK_CPPFLAGS", OCTAVE_CONF_UMFPACK_CPPFLAGS },
+    { false, "UMFPACK_LDFLAGS", OCTAVE_CONF_UMFPACK_LDFLAGS },
+    { false, "UMFPACK_LIBS", OCTAVE_CONF_UMFPACK_LIBS },
+    { false, "USE_64_BIT_IDX_T", OCTAVE_CONF_USE_64_BIT_IDX_T },
+    { false, "WARN_CFLAGS", OCTAVE_CONF_WARN_CFLAGS },
+    { false, "WARN_CXXFLAGS", OCTAVE_CONF_WARN_CXXFLAGS },
+    { false, "X11_INCFLAGS", OCTAVE_CONF_X11_INCFLAGS },
+    { false, "X11_LIBS", OCTAVE_CONF_X11_LIBS },
+    { false, "XTRA_CFLAGS", OCTAVE_CONF_XTRA_CFLAGS },
+    { false, "XTRA_CXXFLAGS", OCTAVE_CONF_XTRA_CXXFLAGS },
+    { false, "YACC", OCTAVE_CONF_YACC },
+    { false, "YFLAGS", OCTAVE_CONF_YFLAGS },
+    { false, "Z_CPPFLAGS", OCTAVE_CONF_Z_CPPFLAGS },
+    { false, "Z_LDFLAGS", OCTAVE_CONF_Z_LDFLAGS },
+    { false, "Z_LIBS", OCTAVE_CONF_Z_LIBS },
+    { false, "api_version", OCTAVE_API_VERSION },
+    { true, "archlibdir", OCTAVE_ARCHLIBDIR },
+    { true, "bindir", OCTAVE_BINDIR },
+    { false, "canonical_host_type", OCTAVE_CANONICAL_HOST_TYPE },
+    { false, "config_opts", OCTAVE_CONF_config_opts },
+    { true, "datadir", OCTAVE_DATADIR },
+    { true, "datarootdir", OCTAVE_DATAROOTDIR },
+    { true, "exec_prefix", OCTAVE_EXEC_PREFIX },
+    { true, "fcnfiledir", OCTAVE_FCNFILEDIR },
+    { true, "imagedir", OCTAVE_IMAGEDIR },
+    { true, "includedir", OCTAVE_INCLUDEDIR },
+    { true, "infodir", OCTAVE_INFODIR },
+    { true, "infofile", OCTAVE_INFOFILE },
+    { true, "libdir", OCTAVE_LIBDIR },
+    { true, "libexecdir", OCTAVE_LIBEXECDIR },
+    { true, "localapiarchlibdir", OCTAVE_LOCALAPIARCHLIBDIR },
+    { true, "localapifcnfiledir", OCTAVE_LOCALAPIFCNFILEDIR },
+    { true, "localapioctfiledir", OCTAVE_LOCALAPIOCTFILEDIR },
+    { true, "localarchlibdir", OCTAVE_LOCALARCHLIBDIR },
+    { true, "localfcnfiledir", OCTAVE_LOCALFCNFILEDIR },
+    { true, "localoctfiledir", OCTAVE_LOCALOCTFILEDIR },
+    { true, "localstartupfiledir", OCTAVE_LOCALSTARTUPFILEDIR },
+    { true, "localverarchlibdir", OCTAVE_LOCALVERARCHLIBDIR },
+    { true, "localverfcnfiledir", OCTAVE_LOCALVERFCNFILEDIR },
+    { true, "localveroctfiledir", OCTAVE_LOCALVEROCTFILEDIR },
+    { true, "man1dir", OCTAVE_MAN1DIR },
+    { false, "man1ext", OCTAVE_MAN1EXT },
+    { true, "mandir", OCTAVE_MANDIR },
+    { true, "octfiledir", OCTAVE_OCTFILEDIR },
+    { true, "octetcdir", OCTAVE_OCTETCDIR },
+    { true, "octincludedir", OCTAVE_OCTINCLUDEDIR },
+    { true, "octlibdir", OCTAVE_OCTLIBDIR },
+    { true, "octtestsdir", OCTAVE_OCTTESTSDIR },
+    { true, "prefix", OCTAVE_PREFIX },
+    { true, "startupfiledir", OCTAVE_STARTUPFILEDIR },
+    { false, "version", OCTAVE_VERSION },
+    { false, 0, 0 }
+  };
 
   if (! initialized)
     {
--- a/libinterp/corefcn/toplev.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/toplev.h	Tue Nov 05 12:27:42 2013 -0500
@@ -107,11 +107,13 @@
   typedef std::deque<call_stack_elt>::iterator iterator;
   typedef std::deque<call_stack_elt>::const_iterator const_iterator;
 
-  typedef std::deque<call_stack_elt>::reverse_iterator reverse_iterator;
-  typedef std::deque<call_stack_elt>::const_reverse_iterator const_reverse_iterator;
+  typedef std::deque<call_stack_elt>::reverse_iterator
+    reverse_iterator;
+  typedef std::deque<call_stack_elt>::const_reverse_iterator
+    const_reverse_iterator;
 
   static void create_instance (void);
-  
+
   static bool instance_ok (void)
   {
     bool retval = true;
@@ -178,7 +180,7 @@
   static size_t num_user_code_frames (octave_idx_type& curr_user_frame)
   {
     return instance_ok ()
-      ? instance->do_num_user_code_frames (curr_user_frame) : 0;
+           ? instance->do_num_user_code_frames (curr_user_frame) : 0;
   }
 
   static symbol_table::scope_id current_scope (void)
@@ -252,7 +254,7 @@
   static bool goto_frame_relative (int n, bool verbose = false)
   {
     return instance_ok ()
-      ? instance->do_goto_frame_relative (n, verbose) : false;
+           ? instance->do_goto_frame_relative (n, verbose) : false;
   }
 
   static void goto_caller_frame (void)
@@ -270,7 +272,7 @@
   static octave_map backtrace (size_t nskip, octave_idx_type& curr_user_frame)
   {
     return instance_ok ()
-      ? instance->do_backtrace (nskip, curr_user_frame) : octave_map ();
+           ? instance->do_backtrace (nskip, curr_user_frame) : octave_map ();
   }
 
   static octave_map empty_backtrace (void);
@@ -326,13 +328,13 @@
   symbol_table::scope_id do_current_scope (void) const
   {
     return curr_frame > 0 && curr_frame < cs.size ()
-      ? cs[curr_frame].scope : 0;
+           ? cs[curr_frame].scope : 0;
   }
 
   symbol_table::context_id do_current_context (void) const
   {
     return curr_frame > 0 && curr_frame < cs.size ()
-      ? cs[curr_frame].context : 0;
+           ? cs[curr_frame].context : 0;
   }
 
   octave_function *do_element (size_t n)
--- a/libinterp/corefcn/tril.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/tril.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -91,7 +91,8 @@
     {
       octave_idx_type j1 = std::min (std::max (zero, k), nc);
       octave_idx_type j2 = std::min (std::max (zero, nr + k), nc);
-      octave_idx_type n = ((j2 - j1) * ((j1+1-k) + (j2-k))) / 2 + (nc - j2) * nr;
+      octave_idx_type n
+        = ((j2 - j1) * ((j1+1-k) + (j2-k))) / 2 + (nc - j2) * nr;
       Array<T> r (dim_vector (n, 1));
       T *rvec = r.fortran_vec ();
       for (octave_idx_type j = 0; j < nc; j++)
@@ -229,13 +230,15 @@
               break;
             case btyp_complex:
               if (arg.is_sparse_type ())
-                retval = do_trilu (arg.sparse_complex_matrix_value (), k, lower, pack);
+                retval = do_trilu (arg.sparse_complex_matrix_value (), k, lower,
+                                   pack);
               else
                 retval = do_trilu (arg.complex_array_value (), k, lower, pack);
               break;
             case btyp_bool:
               if (arg.is_sparse_type ())
-                retval = do_trilu (arg.sparse_bool_matrix_value (), k, lower, pack);
+                retval = do_trilu (arg.sparse_bool_matrix_value (), k, lower,
+                                   pack);
               else
                 retval = do_trilu (arg.bool_array_value (), k, lower, pack);
               break;
@@ -340,7 +343,7 @@
 }
 
 DEFUN (tril, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {} tril (@var{A})\n\
 @deftypefnx {Function File} {} tril (@var{A}, @var{k})\n\
 @deftypefnx {Function File} {} tril (@var{A}, @var{k}, @var{pack})\n\
@@ -396,7 +399,7 @@
 }
 
 DEFUN (triu, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {} triu (@var{A})\n\
 @deftypefnx {Function File} {} triu (@var{A}, @var{k})\n\
 @deftypefnx {Function File} {} triu (@var{A}, @var{k}, @var{pack})\n\
@@ -418,7 +421,7 @@
 %! 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];
 %!
-%! assert (tril (a, -4), lm4); 
+%! assert (tril (a, -4), lm4);
 %! assert (tril (a, -3), lm3);
 %! assert (tril (a, -2), lm2);
 %! assert (tril (a, -1), lm1);
--- a/libinterp/corefcn/txt-eng-ft.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/txt-eng-ft.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -77,40 +77,42 @@
 {
 public:
   static bool instance_ok (void)
-    {
-      bool retval = true;
+  {
+    bool retval = true;
 
-      if (! instance)
-        {
-          instance = new ft_manager ();
+    if (! instance)
+      {
+        instance = new ft_manager ();
 
-          if (instance)
-            singleton_cleanup_list::add (cleanup_instance);
-        }
+        if (instance)
+          singleton_cleanup_list::add (cleanup_instance);
+      }
 
-      if (! instance)
-        {
-          ::error ("unable to create ft_manager!");
+    if (! instance)
+      {
+        ::error ("unable to create ft_manager!");
 
-          retval = false;
-        }
+        retval = false;
+      }
 
-      return retval;
-    }
+    return retval;
+  }
 
   static void cleanup_instance (void) { delete instance; instance = 0; }
 
   static FT_Face get_font (const std::string& name, const std::string& weight,
                            const std::string& angle, double size)
-    { return (instance_ok ()
-              ? instance->do_get_font (name, weight, angle, size)
-              : 0); }
+  {
+    return (instance_ok ()
+            ? instance->do_get_font (name, weight, angle, size)
+            : 0);
+  }
 
   static void font_destroyed (FT_Face face)
-    {
-      if (instance_ok ())
-        instance->do_font_destroyed (face);
-    }
+  {
+    if (instance_ok ())
+      instance->do_font_destroyed (face);
+  }
 
 private:
 
@@ -134,162 +136,162 @@
 
   ft_manager (void)
     : library (), freetype_initialized (false), fontconfig_initialized (false)
-    {
-      if (FT_Init_FreeType (&library))
-        ::error ("unable to initialize freetype library");
-      else
-        freetype_initialized = true;
+  {
+    if (FT_Init_FreeType (&library))
+      ::error ("unable to initialize freetype library");
+    else
+      freetype_initialized = true;
 
 #if defined (HAVE_FONTCONFIG)
-      if (! FcInit ())
-        ::error ("unable to initialize fontconfig library");
-      else
-        fontconfig_initialized = true;
+    if (! FcInit ())
+      ::error ("unable to initialize fontconfig library");
+    else
+      fontconfig_initialized = true;
 #endif
-    }
+  }
 
   ~ft_manager (void)
-    {
-      if (freetype_initialized)
-        FT_Done_FreeType (library);
+  {
+    if (freetype_initialized)
+      FT_Done_FreeType (library);
 
 #if defined (HAVE_FONTCONFIG)
-      // FIXME: Skip the call to FcFini because it can trigger the assertion
-      //
-      //   octave: fccache.c:507: FcCacheFini: Assertion 'fcCacheChains[i] == ((void *)0)' failed.
-      //
-      // if (fontconfig_initialized)
-      //   FcFini ();
+    // FIXME: Skip the call to FcFini because it can trigger the assertion
+    //
+    //   octave: fccache.c:507: FcCacheFini: Assertion 'fcCacheChains[i] == ((void *)0)' failed.
+    //
+    // if (fontconfig_initialized)
+    //   FcFini ();
 #endif
-    }
+  }
 
 
   FT_Face do_get_font (const std::string& name, const std::string& weight,
                        const std::string& angle, double size)
-    {
-      FT_Face retval = 0;
+  {
+    FT_Face retval = 0;
 
 #if HAVE_FT_REFERENCE_FACE
-      // Look first into the font cache, then use fontconfig. If the font
-      // is present in the cache, simply add a reference and return it.
+    // Look first into the font cache, then use fontconfig. If the font
+    // is present in the cache, simply add a reference and return it.
 
-      ft_key key (name + ":" + weight + ":" + angle, size);
-      ft_cache::const_iterator it = cache.find (key);
+    ft_key key (name + ":" + weight + ":" + angle, size);
+    ft_cache::const_iterator it = cache.find (key);
 
-      if (it != cache.end ())
-        {
-          FT_Reference_Face (it->second);
-          return it->second;
-        }
+    if (it != cache.end ())
+      {
+        FT_Reference_Face (it->second);
+        return it->second;
+      }
 #endif
 
-      std::string file;
+    std::string file;
 
 #if defined (HAVE_FONTCONFIG)
-      if (fontconfig_initialized)
-        {
-          int fc_weight, fc_angle;
+    if (fontconfig_initialized)
+      {
+        int fc_weight, fc_angle;
 
-          if (weight == "bold")
-            fc_weight = FC_WEIGHT_BOLD;
-          else if (weight == "light")
-            fc_weight = FC_WEIGHT_LIGHT;
-          else if (weight == "demi")
-            fc_weight = FC_WEIGHT_DEMIBOLD;
-          else
-            fc_weight = FC_WEIGHT_NORMAL;
+        if (weight == "bold")
+          fc_weight = FC_WEIGHT_BOLD;
+        else if (weight == "light")
+          fc_weight = FC_WEIGHT_LIGHT;
+        else if (weight == "demi")
+          fc_weight = FC_WEIGHT_DEMIBOLD;
+        else
+          fc_weight = FC_WEIGHT_NORMAL;
 
-          if (angle == "italic")
-            fc_angle = FC_SLANT_ITALIC;
-          else if (angle == "oblique")
-            fc_angle = FC_SLANT_OBLIQUE;
-          else
-            fc_angle = FC_SLANT_ROMAN;
+        if (angle == "italic")
+          fc_angle = FC_SLANT_ITALIC;
+        else if (angle == "oblique")
+          fc_angle = FC_SLANT_OBLIQUE;
+        else
+          fc_angle = FC_SLANT_ROMAN;
 
-          FcPattern *pat = FcPatternCreate ();
+        FcPattern *pat = FcPatternCreate ();
 
-          FcPatternAddString (pat, FC_FAMILY,
-                              (reinterpret_cast<const FcChar8*>
-                               (name == "*" ? "sans" : name.c_str ())));
+        FcPatternAddString (pat, FC_FAMILY,
+                            (reinterpret_cast<const FcChar8*>
+                             (name == "*" ? "sans" : name.c_str ())));
 
-          FcPatternAddInteger (pat, FC_WEIGHT, fc_weight);
-          FcPatternAddInteger (pat, FC_SLANT, fc_angle);
-          FcPatternAddDouble (pat, FC_PIXEL_SIZE, size);
+        FcPatternAddInteger (pat, FC_WEIGHT, fc_weight);
+        FcPatternAddInteger (pat, FC_SLANT, fc_angle);
+        FcPatternAddDouble (pat, FC_PIXEL_SIZE, size);
 
-          if (FcConfigSubstitute (0, pat, FcMatchPattern))
-            {
-              FcResult res;
-              FcPattern *match;
+        if (FcConfigSubstitute (0, pat, FcMatchPattern))
+          {
+            FcResult res;
+            FcPattern *match;
 
-              FcDefaultSubstitute (pat);
-              match = FcFontMatch (0, pat, &res);
+            FcDefaultSubstitute (pat);
+            match = FcFontMatch (0, pat, &res);
 
-              // FIXME: originally, this test also required that
-              // res != FcResultNoMatch.  Is that really needed?
-              if (match)
-                {
-                  unsigned char *tmp;
+            // FIXME: originally, this test also required that
+            // res != FcResultNoMatch.  Is that really needed?
+            if (match)
+              {
+                unsigned char *tmp;
 
-                  FcPatternGetString (match, FC_FILE, 0, &tmp);
-                  file = reinterpret_cast<char*> (tmp);
-                }
-              else
-                ::warning ("could not match any font: %s-%s-%s-%g",
+                FcPatternGetString (match, FC_FILE, 0, &tmp);
+                file = reinterpret_cast<char*> (tmp);
+              }
+            else
+              ::warning ("could not match any font: %s-%s-%s-%g",
                          name.c_str (), weight.c_str (), angle.c_str (),
                          size);
 
-              if (match)
-                FcPatternDestroy (match);
-            }
+            if (match)
+              FcPatternDestroy (match);
+          }
 
-          FcPatternDestroy (pat);
-        }
+        FcPatternDestroy (pat);
+      }
 #endif
 
-      if (file.empty ())
-        {
+    if (file.empty ())
+      {
 #ifdef __WIN32__
-          file = "C:/WINDOWS/Fonts/verdana.ttf";
+        file = "C:/WINDOWS/Fonts/verdana.ttf";
 #else
-          // FIXME: find a "standard" font for UNIX platforms
+        // FIXME: find a "standard" font for UNIX platforms
 #endif
-        }
+      }
 
-      if (! file.empty ())
-        {
-          if (FT_New_Face (library, file.c_str (), 0, &retval))
-            ::warning ("ft_manager: unable to load font: %s", file.c_str ());
+    if (! file.empty ())
+      {
+        if (FT_New_Face (library, file.c_str (), 0, &retval))
+          ::warning ("ft_manager: unable to load font: %s", file.c_str ());
 #if HAVE_FT_REFERENCE_FACE
-          else
-            {
-              // Install a finalizer to notify ft_manager that the font is
-              // being destroyed. The class ft_manager only keeps weak
-              // references to font objects.
+        else
+          {
+            // Install a finalizer to notify ft_manager that the font is
+            // being destroyed. The class ft_manager only keeps weak
+            // references to font objects.
 
-              retval->generic.data = new ft_key (key);
-              retval->generic.finalizer = ft_face_destroyed;
+            retval->generic.data = new ft_key (key);
+            retval->generic.finalizer = ft_face_destroyed;
 
-              // Insert loaded font into the cache.
+            // Insert loaded font into the cache.
 
-              cache[key] = retval;
-            }
+            cache[key] = retval;
+          }
 #endif
-        }
+      }
 
-      return retval;
-    }
+    return retval;
+  }
 
   void do_font_destroyed (FT_Face face)
-    {
-      if (face->generic.data)
-        {
-          ft_key* pkey = reinterpret_cast<ft_key*> (face->generic.data);
+  {
+    if (face->generic.data)
+      {
+        ft_key* pkey = reinterpret_cast<ft_key*> (face->generic.data);
 
-          cache.erase (*pkey);
-          delete pkey;
-          face->generic.data = 0;
-        }
-    }
+        cache.erase (*pkey);
+        delete pkey;
+        face->generic.data = 0;
+      }
+  }
 
 private:
   FT_Library library;
@@ -306,9 +308,9 @@
 // ---------------------------------------------------------------------------
 
 ft_render::ft_render (void)
-    : text_processor (), font (), bbox (1, 4, 0.0), halign (0), xoffset (0),
-      line_yoffset (0), yoffset (0), mode (MODE_BBOX),
-      color (dim_vector (1, 3), 0)
+  : text_processor (), font (), bbox (1, 4, 0.0), halign (0), xoffset (0),
+    line_yoffset (0), yoffset (0), mode (MODE_BBOX),
+    color (dim_vector (1, 3), 0)
 {
 }
 
@@ -331,43 +333,43 @@
   switch (mode)
     {
     case MODE_BBOX:
-        {
-          // Create a new bbox entry based on the current font.
+      {
+        // Create a new bbox entry based on the current font.
 
-          FT_Face face = font.get_face ();
+        FT_Face face = font.get_face ();
 
-          if (face)
-            {
-              int asc = face->size->metrics.ascender >> 6;
-              int desc = face->size->metrics.descender >> 6;
-              int h = face->size->metrics.height >> 6;
+        if (face)
+          {
+            int asc = face->size->metrics.ascender >> 6;
+            int desc = face->size->metrics.descender >> 6;
+            int h = face->size->metrics.height >> 6;
 
-              Matrix bb (1, 5, 0.0);
+            Matrix bb (1, 5, 0.0);
 
-              bb(1) = desc;
-              bb(3) = asc - desc;
-              bb(4) = h;
+            bb(1) = desc;
+            bb(3) = asc - desc;
+            bb(4) = h;
 
-              line_bbox.push_back (bb);
+            line_bbox.push_back (bb);
 
-              xoffset = yoffset = 0;
-            }
-        }
+            xoffset = yoffset = 0;
+          }
+      }
       break;
 
     case MODE_RENDER:
-        {
-          // Move to the next line bbox, adjust xoffset based on alignment
-          // and yoffset based on the old and new line bbox.
+      {
+        // Move to the next line bbox, adjust xoffset based on alignment
+        // and yoffset based on the old and new line bbox.
 
-          Matrix old_bbox = line_bbox.front ();
-          line_bbox.pop_front ();
-          Matrix new_bbox = line_bbox.front ();
+        Matrix old_bbox = line_bbox.front ();
+        line_bbox.pop_front ();
+        Matrix new_bbox = line_bbox.front ();
 
-          xoffset = compute_line_xoffset (new_bbox);
-          line_yoffset += (old_bbox(1) - (new_bbox(1) + new_bbox(3)));
-          yoffset = 0;
-        }
+        xoffset = compute_line_xoffset (new_bbox);
+        line_yoffset += (old_bbox(1) - (new_bbox(1) + new_bbox(3)));
+        yoffset = 0;
+      }
       break;
     }
 }
@@ -520,7 +522,8 @@
               if (code == '\n')
                 {
                   glyph_index = FT_Get_Char_Index (face, ' ');
-                  if (!glyph_index || FT_Load_Glyph (face, glyph_index, FT_LOAD_DEFAULT))
+                  if (! glyph_index
+                      || FT_Load_Glyph (face, glyph_index, FT_LOAD_DEFAULT))
                     {
                       glyph_index = 0;
                       gripe_missing_glyph (' ');
@@ -542,7 +545,8 @@
                     {
                       FT_Vector delta;
 
-                      FT_Get_Kerning (face, previous, glyph_index, FT_KERNING_DEFAULT, &delta);
+                      FT_Get_Kerning (face, previous, glyph_index,
+                                      FT_KERNING_DEFAULT, &delta);
                       xoffset += (delta.x >> 6);
                     }
 
@@ -861,43 +865,43 @@
         case ROTATION_0:
           break;
         case ROTATION_90:
-            {
-              Array<octave_idx_type> perm (dim_vector (3, 1));
-              perm(0) = 0;
-              perm(1) = 2;
-              perm(2) = 1;
-              pixels = pixels.permute (perm);
+          {
+            Array<octave_idx_type> perm (dim_vector (3, 1));
+            perm(0) = 0;
+            perm(1) = 2;
+            perm(2) = 1;
+            pixels = pixels.permute (perm);
 
-              Array<idx_vector> idx (dim_vector (3, 1));
-              idx(0) = idx_vector (':');
-              idx(1) = idx_vector (pixels.dim2 ()-1, -1, -1);
-              idx(2) = idx_vector (':');
-              pixels = uint8NDArray (pixels.index (idx));
-            }
+            Array<idx_vector> idx (dim_vector (3, 1));
+            idx(0) = idx_vector (':');
+            idx(1) = idx_vector (pixels.dim2 ()-1, -1, -1);
+            idx(2) = idx_vector (':');
+            pixels = uint8NDArray (pixels.index (idx));
+          }
           break;
         case ROTATION_180:
-            {
-              Array<idx_vector> idx (dim_vector (3, 1));
-              idx(0) = idx_vector (':');
-              idx(1) = idx_vector (pixels.dim2 ()-1, -1, -1);
-              idx(2)=  idx_vector (pixels.dim3 ()-1, -1, -1);
-              pixels = uint8NDArray (pixels.index (idx));
-            }
+          {
+            Array<idx_vector> idx (dim_vector (3, 1));
+            idx(0) = idx_vector (':');
+            idx(1) = idx_vector (pixels.dim2 ()-1, -1, -1);
+            idx(2)=  idx_vector (pixels.dim3 ()-1, -1, -1);
+            pixels = uint8NDArray (pixels.index (idx));
+          }
           break;
         case ROTATION_270:
-            {
-              Array<octave_idx_type> perm (dim_vector (3, 1));
-              perm(0) = 0;
-              perm(1) = 2;
-              perm(2) = 1;
-              pixels = pixels.permute (perm);
+          {
+            Array<octave_idx_type> perm (dim_vector (3, 1));
+            perm(0) = 0;
+            perm(1) = 2;
+            perm(2) = 1;
+            pixels = pixels.permute (perm);
 
-              Array<idx_vector> idx (dim_vector (3, 1));
-              idx(0) = idx_vector (':');
-              idx(1) = idx_vector (':');
-              idx(2) = idx_vector (pixels.dim3 ()-1, -1, -1);
-              pixels = uint8NDArray (pixels.index (idx));
-            }
+            Array<idx_vector> idx (dim_vector (3, 1));
+            idx(0) = idx_vector (':');
+            idx(1) = idx_vector (':');
+            idx(2) = idx_vector (pixels.dim3 ()-1, -1, -1);
+            pixels = uint8NDArray (pixels.index (idx));
+          }
           break;
         }
     }
@@ -1022,8 +1026,8 @@
 }
 
 ft_render::ft_font::ft_font (const ft_font& ft)
-     : name (ft.name), weight (ft.weight), angle (ft.angle), size (ft.size),
-       face (0)
+  : name (ft.name), weight (ft.weight), angle (ft.angle), size (ft.size),
+    face (0)
 {
 #if HAVE_FT_REFERENCE_FACE
   FT_Face ft_face = ft.get_face ();
--- a/libinterp/corefcn/txt-eng-ft.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/txt-eng-ft.h	Tue Nov 05 12:27:42 2013 -0500
@@ -40,16 +40,18 @@
 ft_render : public text_processor
 {
 public:
-  enum {
-      MODE_BBOX   = 0,
-      MODE_RENDER = 1
+  enum
+  {
+    MODE_BBOX   = 0,
+    MODE_RENDER = 1
   };
 
-  enum {
-      ROTATION_0   = 0,
-      ROTATION_90  = 1,
-      ROTATION_180 = 2,
-      ROTATION_270 = 3
+  enum
+  {
+    ROTATION_0   = 0,
+    ROTATION_90  = 1,
+    ROTATION_180 = 2,
+    ROTATION_270 = 3
   };
 
 public:
@@ -114,44 +116,44 @@
   // Class to hold information about fonts and a strong
   // reference to the font objects loaded by freetype.
   class ft_font
-    {
-    public:
-      ft_font (void)
-        : name (), weight (), angle (), size (0), face (0) { }
+  {
+  public:
+    ft_font (void)
+      : name (), weight (), angle (), size (0), face (0) { }
 
-      ft_font (const std::string& nm, const std::string& wt,
-               const std::string& ang, double sz, FT_Face f = 0)
-        : name (nm), weight (wt), angle (ang), size (sz), face (f) { }
+    ft_font (const std::string& nm, const std::string& wt,
+             const std::string& ang, double sz, FT_Face f = 0)
+      : name (nm), weight (wt), angle (ang), size (sz), face (f) { }
 
-      ft_font (const ft_font& ft);
+    ft_font (const ft_font& ft);
 
-      ~ft_font (void)
-        {
-          if (face)
-            FT_Done_Face (face);
-        }
+    ~ft_font (void)
+    {
+      if (face)
+        FT_Done_Face (face);
+    }
 
-      ft_font& operator = (const ft_font& ft);
+    ft_font& operator = (const ft_font& ft);
 
-      bool is_valid (void) const { return get_face (); }
+    bool is_valid (void) const { return get_face (); }
 
-      std::string get_name (void) const { return name; }
+    std::string get_name (void) const { return name; }
 
-      std::string get_weight (void) const { return weight; }
+    std::string get_weight (void) const { return weight; }
 
-      std::string get_angle (void) const { return angle; }
+    std::string get_angle (void) const { return angle; }
 
-      double get_size (void) const { return size; }
+    double get_size (void) const { return size; }
 
-      FT_Face get_face (void) const;
+    FT_Face get_face (void) const;
 
-    private:
-      std::string name;
-      std::string weight;
-      std::string angle;
-      double size;
-      mutable FT_Face face;
-    };
+  private:
+    std::string name;
+    std::string weight;
+    std::string angle;
+    double size;
+    mutable FT_Face face;
+  };
 
   void push_new_line (void);
 
--- a/libinterp/corefcn/txt-eng.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/txt-eng.h	Tue Nov 05 12:27:42 2013 -0500
@@ -105,9 +105,8 @@
 
 class
 OCTINTERP_API
-text_element_list :
-    public text_element,
-    public octave_base_list<text_element *>
+text_element_list
+  : public text_element, public octave_base_list<text_element *>
 {
 public:
   text_element_list (void)
@@ -115,17 +114,17 @@
 
   text_element_list (text_element* e)
     : text_element (), octave_base_list<text_element*> ()
-    { push_back (e); }
+  { push_back (e); }
 
   ~text_element_list (void)
-    {
-      while (! empty ())
-        {
-          iterator it = begin ();
-          delete (*it);
-          erase (it);
-        }
-    }
+  {
+    while (! empty ())
+      {
+        iterator it = begin ();
+        delete (*it);
+        erase (it);
+      }
+  }
 
   void accept (text_processor& p);
 };
@@ -140,10 +139,10 @@
 
   text_element_subscript (char c)
     : text_element ()
-    { elem = new text_element_string (std::string (1, c)); }
+  { elem = new text_element_string (std::string (1, c)); }
 
   ~text_element_subscript (void)
-    { delete elem; }
+  { delete elem; }
 
   void accept (text_processor& p);
 
@@ -166,10 +165,10 @@
 
   text_element_superscript (char c)
     : text_element ()
-    { elem = new text_element_string (std::string (1, c)); }
+  { elem = new text_element_string (std::string (1, c)); }
 
   ~text_element_superscript (void)
-    { delete elem; }
+  { delete elem; }
 
   void accept (text_processor& p);
 
@@ -192,7 +191,7 @@
 
   text_element_combined (text_element* e1, text_element* e2)
     : text_element_list(e1)
-    { push_back (e2); }
+  { push_back (e2); }
 
   void accept (text_processor& p);
 };
@@ -203,12 +202,12 @@
 {
 public:
   enum fontstyle
-    {
-      normal,
-      bold,
-      italic,
-      oblique
-    };
+  {
+    normal,
+    bold,
+    italic,
+    oblique
+  };
 
   text_element_fontstyle (fontstyle st)
     : text_element (), style (st) { }
@@ -275,29 +274,29 @@
 public:
   text_element_color (double r, double g, double b)
     : text_element (), rgb (1, 3, 0.0)
-    {
-      rgb(0) = r;
-      rgb(1) = g;
-      rgb(2) = b;
-    }
+  {
+    rgb(0) = r;
+    rgb(1) = g;
+    rgb(2) = b;
+  }
 
   text_element_color (const std::string& cname)
     : text_element (), rgb (1, 3, 0.0)
-    {
+  {
 #define ASSIGN_COLOR(r,g,b) { rgb(0) = r; rgb(1) = g; rgb(2) = b; }
-      if (cname == "red") ASSIGN_COLOR(1, 0, 0)
+    if (cname == "red") ASSIGN_COLOR(1, 0, 0)
       else if (cname == "green") ASSIGN_COLOR(0, 1, 0)
-      else if (cname == "yellow") ASSIGN_COLOR(1, 1, 0)
-      else if (cname == "magenta") ASSIGN_COLOR(1, 0, 1)
-      else if (cname == "blue") ASSIGN_COLOR(0, 0, 1)
-      else if (cname == "black") ASSIGN_COLOR(0, 0, 0)
-      else if (cname == "white") ASSIGN_COLOR(1, 1, 1)
-      else if (cname == "gray") ASSIGN_COLOR(.5, .5, .5)
-      else if (cname == "darkGreen") ASSIGN_COLOR(0, .5, 0)
-      else if (cname == "orange") ASSIGN_COLOR(1, .65, 0)
-      else if (cname == "lightBlue") ASSIGN_COLOR(0.68, .85, .9)
+        else if (cname == "yellow") ASSIGN_COLOR(1, 1, 0)
+          else if (cname == "magenta") ASSIGN_COLOR(1, 0, 1)
+            else if (cname == "blue") ASSIGN_COLOR(0, 0, 1)
+              else if (cname == "black") ASSIGN_COLOR(0, 0, 0)
+                else if (cname == "white") ASSIGN_COLOR(1, 1, 1)
+                  else if (cname == "gray") ASSIGN_COLOR(.5, .5, .5)
+                    else if (cname == "darkGreen") ASSIGN_COLOR(0, .5, 0)
+                      else if (cname == "orange") ASSIGN_COLOR(1, .65, 0)
+                        else if (cname == "lightBlue") ASSIGN_COLOR(0.68, .85, .9)
 #undef ASSIGN_COLOR
-    }
+  }
 
   ~text_element_color (void) { }
 
@@ -319,19 +318,19 @@
   virtual void visit (text_element_symbol&) { }
 
   virtual void visit (text_element_list& e)
-    {
-      for (text_element_list::iterator it = e.begin ();
-           it != e.end (); ++it)
-        {
-          (*it)->accept (*this);
-        }
-    }
+  {
+    for (text_element_list::iterator it = e.begin ();
+         it != e.end (); ++it)
+      {
+        (*it)->accept (*this);
+      }
+  }
 
   virtual void visit (text_element_subscript& e)
-    { e.get_element ()->accept (*this); }
+  { e.get_element ()->accept (*this); }
 
   virtual void visit (text_element_superscript& e)
-    { e.get_element ()->accept (*this); }
+  { e.get_element ()->accept (*this); }
 
   virtual void visit (text_element_combined&) { }
 
@@ -398,9 +397,9 @@
   // creates...
 
   text_element* parse (const std::string& s)
-    {
-      return new text_element_string (s);
-    }
+  {
+    return new text_element_string (s);
+  }
 };
 
 class
@@ -410,10 +409,10 @@
 public:
   text_parser_tex (void)
     : text_parser (), scanner (0), buffer_state (0), result (0)
-    { }
+  { }
 
   ~text_parser_tex (void)
-    { destroy_lexer (); }
+  { destroy_lexer (); }
 
   text_element* parse (const std::string& s);
 
--- a/libinterp/corefcn/typecast.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/typecast.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -89,7 +89,7 @@
 
 
 DEFUN (typecast, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} typecast (@var{x}, @var{class})\n\
 Return a new array @var{y} resulting from interpreting the data of\n\
 @var{x} in memory as data of the numeric class @var{class}.  Both the class\n\
@@ -150,53 +150,69 @@
       octave_value array = args(0);
 
       if (array.is_bool_type ())
-        get_data_and_bytesize (array.bool_array_value (), data, byte_size, old_dims, frame);
+        get_data_and_bytesize (array.bool_array_value (), data, byte_size,
+                               old_dims, frame);
       else if (array.is_string ())
-        get_data_and_bytesize (array.char_array_value (), data, byte_size, old_dims, frame);
+        get_data_and_bytesize (array.char_array_value (), data, byte_size,
+                               old_dims, frame);
       else if (array.is_integer_type ())
         {
           if (array.is_int8_type ())
-            get_data_and_bytesize (array.int8_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.int8_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_int16_type ())
-            get_data_and_bytesize (array.int16_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.int16_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_int32_type ())
-            get_data_and_bytesize (array.int32_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.int32_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_int64_type ())
-            get_data_and_bytesize (array.int64_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.int64_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_uint8_type ())
-            get_data_and_bytesize (array.uint8_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.uint8_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_uint16_type ())
-            get_data_and_bytesize (array.uint16_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.uint16_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_uint32_type ())
-            get_data_and_bytesize (array.uint32_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.uint32_array_value (), data, byte_size,
+                                   old_dims, frame);
           else if (array.is_uint64_type ())
-            get_data_and_bytesize (array.uint64_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.uint64_array_value (), data, byte_size,
+                                   old_dims, frame);
           else
             assert (0);
         }
       else if (array.is_complex_type ())
         {
           if (array.is_single_type ())
-            get_data_and_bytesize (array.float_complex_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.float_complex_array_value (), data,
+                                   byte_size, old_dims, frame);
           else
-            get_data_and_bytesize (array.complex_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.complex_array_value (), data,
+                                   byte_size, old_dims, frame);
         }
       else if (array.is_real_type ())
         {
           if (array.is_single_type ())
-            get_data_and_bytesize (array.float_array_value (), data, byte_size, old_dims, frame);
+            get_data_and_bytesize (array.float_array_value (), data, byte_size,
+                                   old_dims, frame);
           else
-            get_data_and_bytesize (array.array_value (), data, byte_size, old_dims, frame);
-        }
+            get_data_and_bytesize (array.array_value (), data, byte_size,
+                                   old_dims, frame); }
       else
-        error ("typecast: invalid input class: %s", array.class_name ().c_str ());
+        error ("typecast: invalid input class: %s",
+                                                array.class_name ().c_str ());
 
       std::string numclass = args(1).string_value ();
 
       if (error_state || numclass.size () == 0)
         ;
       else if (numclass == "char")
-        retval = octave_value (reinterpret_copy<charNDArray> (data, byte_size, old_dims), array.is_dq_string () ? '"' : '\'');
+        retval = octave_value (reinterpret_copy<charNDArray>
+                   (data, byte_size, old_dims), array.is_dq_string () ? '"'
+                                                                      : '\'');
       else if (numclass[0] == 'i')
         {
           if (numclass == "int8")
@@ -213,18 +229,22 @@
           if (numclass == "uint8")
             retval = reinterpret_copy<uint8NDArray> (data, byte_size, old_dims);
           else if (numclass == "uint16")
-            retval = reinterpret_copy<uint16NDArray> (data, byte_size, old_dims);
+            retval = reinterpret_copy<uint16NDArray> (data, byte_size,
+                                                      old_dims);
           else if (numclass == "uint32")
-            retval = reinterpret_copy<uint32NDArray> (data, byte_size, old_dims);
+            retval = reinterpret_copy<uint32NDArray> (data, byte_size,
+                                                      old_dims);
           else if (numclass == "uint64")
-            retval = reinterpret_copy<uint64NDArray> (data, byte_size, old_dims);
+            retval = reinterpret_copy<uint64NDArray> (data, byte_size,
+                                                      old_dims);
         }
       else if (numclass == "single")
         retval = reinterpret_copy<FloatNDArray> (data, byte_size, old_dims);
       else if (numclass == "double")
         retval = reinterpret_copy<NDArray> (data, byte_size, old_dims);
       else if (numclass == "single complex")
-        retval = reinterpret_copy<FloatComplexNDArray> (data, byte_size, old_dims);
+        retval = reinterpret_copy<FloatComplexNDArray> (data, byte_size,
+                                                        old_dims);
       else if (numclass == "double complex")
         retval = reinterpret_copy<ComplexNDArray> (data, byte_size, old_dims);
 
@@ -242,7 +262,8 @@
 do_bitpack (const boolNDArray& bitp)
 {
   typedef typename ArrayType::element_type T;
-  octave_idx_type n = bitp.numel () / (sizeof (T) * std::numeric_limits<unsigned char>::digits);
+  octave_idx_type n
+    = bitp.numel () / (sizeof (T) * std::numeric_limits<unsigned char>::digits);
 
   if (n * static_cast<int> (sizeof (T)) * std::numeric_limits<unsigned char>::digits == bitp.numel ())
     {
@@ -274,7 +295,7 @@
 }
 
 DEFUN (bitpack, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{y} =} bitpack (@var{x}, @var{class})\n\
 Return a new array @var{y} resulting from interpreting an array\n\
 @var{x} as raw bit patterns for data of the numeric class @var{class}.\n\
@@ -361,7 +382,8 @@
 do_bitunpack (const ArrayType& array)
 {
   typedef typename ArrayType::element_type T;
-  octave_idx_type n = array.numel () * sizeof (T) * std::numeric_limits<unsigned char>::digits;
+  octave_idx_type n = array.numel () * sizeof (T)
+                      * std::numeric_limits<unsigned char>::digits;
 
   boolNDArray retval (get_vec_dims (array.dims (), n));
 
@@ -383,7 +405,7 @@
 }
 
 DEFUN (bitunpack, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{y} =} bitunpack (@var{x})\n\
 Return an array @var{y} corresponding to the raw bit patterns of\n\
 @var{x}.  @var{x} must belong to one of the built-in numeric classes:\n\
@@ -411,7 +433,8 @@
 {
   octave_value retval;
 
-  if (args.length () == 1 && (args(0).is_numeric_type () || args(0).is_string ()))
+  if (args.length () == 1
+      && (args(0).is_numeric_type () || args(0).is_string ()))
     {
       octave_value array = args(0);
 
@@ -453,7 +476,8 @@
             retval = do_bitunpack (array.array_value ());
         }
       else
-        error ("bitunpack: invalid input class: %s", array.class_name ().c_str ());
+        error ("bitunpack: invalid input class: %s",
+                                                 array.class_name ().c_str ());
     }
   else
     print_usage ();
--- a/libinterp/corefcn/urlwrite.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/urlwrite.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -93,8 +93,7 @@
 
   static curl_handle get_handle (void)
   {
-    return instance_ok ()
-      ? instance->do_get_handle () : curl_handle ();
+    return instance_ok () ? instance->do_get_handle () : curl_handle ();
   }
 
   static void free (const curl_handle& h)
@@ -110,8 +109,8 @@
 
   static curl_handle lookup (const octave_value& val)
   {
-    return val.is_real_scalar ()
-      ? lookup (val.double_value ()) : curl_handle ();
+    return val.is_real_scalar () ? lookup (val.double_value ())
+                                 : curl_handle ();
   }
 
   static url_transfer get_object (double val)
@@ -135,7 +134,8 @@
                                        std::ostream& os)
   {
     return instance_ok ()
-      ? instance->do_make_curl_handle (host, user, passwd, os) : curl_handle ();
+             ? instance->do_make_curl_handle (host, user, passwd, os)
+             : curl_handle ();
   }
 
   static Matrix handle_list (void)
@@ -273,7 +273,8 @@
           handle_map.erase (p);
 
           if (h.value () < 0)
-            handle_free_list.insert (std::ceil (h.value ()) - make_handle_fraction ());
+            handle_free_list.insert
+             (std::ceil (h.value ()) - make_handle_fraction ());
         }
       else
         error ("ch_manager::free: invalid object %g", h.value ());
@@ -283,7 +284,7 @@
 ch_manager *ch_manager::instance = 0;
 
 DEFUN (urlwrite, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {} urlwrite (@var{url}, @var{localfile})\n\
 @deftypefnx {Loadable Function} {@var{f} =} urlwrite (@var{url}, @var{localfile})\n\
 @deftypefnx {Loadable Function} {[@var{f}, @var{success}] =} urlwrite (@var{url}, @var{localfile})\n\
@@ -442,7 +443,7 @@
 }
 
 DEFUN (urlread, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{s} =} urlread (@var{url})\n\
 @deftypefnx {Loadable Function} {[@var{s}, @var{success}] =} urlread (@var{url})\n\
 @deftypefnx {Loadable Function} {[@var{s}, @var{success}, @var{message}] =} urlread (@var{url})\n\
@@ -559,7 +560,7 @@
 }
 
 DEFUN (__ftp__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{handle} =} __ftp__ (@var{host})\n\
 @deftypefnx {Loadable Function} {@var{handle} =} __ftp__ (@var{host}, @var{username}, @var{password})\n\
 Undocumented internal function\n\
@@ -601,7 +602,7 @@
 }
 
 DEFUN (__ftp_pwd__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_pwd__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -629,7 +630,7 @@
 }
 
 DEFUN (__ftp_cwd__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_cwd__ (@var{handle}, @var{path})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -667,7 +668,7 @@
 }
 
 DEFUN (__ftp_dir__, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_dir__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -748,7 +749,7 @@
 }
 
 DEFUN (__ftp_ascii__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_ascii__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -776,7 +777,7 @@
 }
 
 DEFUN (__ftp_binary__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_binary__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -804,7 +805,7 @@
 }
 
 DEFUN (__ftp_close__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_close__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -832,7 +833,7 @@
 }
 
 DEFUN (__ftp_mode__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_mode__ (@var{handle})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -860,7 +861,7 @@
 }
 
 DEFUN (__ftp_delete__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_delete__ (@var{handle}, @var{path})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -895,7 +896,7 @@
 }
 
 DEFUN (__ftp_rmdir__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_rmdir__ (@var{handle}, @var{path})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -930,7 +931,7 @@
 }
 
 DEFUN (__ftp_mkdir__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_mkdir__ (@var{handle}, @var{path})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -965,7 +966,7 @@
 }
 
 DEFUN (__ftp_rename__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_rename__ (@var{handle}, @var{path})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -1001,7 +1002,7 @@
 }
 
 DEFUN (__ftp_mput__, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_mput__ (@var{handle}, @var{files})\n\
 Undocumented internal function\n\
 @end deftypefn")
@@ -1092,7 +1093,7 @@
 }
 
 DEFUN (__ftp_mget__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __ftp_mget__ (@var{handle}, @var{files})\n\
 Undocumented internal function\n\
 @end deftypefn")
--- a/libinterp/corefcn/utils.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/utils.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -77,7 +77,7 @@
 valid_identifier (const char *s)
 {
   if (! s || ! (isalpha (*s) || *s == '_' || *s == '$'))
-     return false;
+    return false;
 
   while (*++s != '\0')
     if (! (isalnum (*s) || *s == '_' || *s == '$'))
@@ -93,7 +93,7 @@
 }
 
 DEFUN (isvarname, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isvarname (@var{name})\n\
 Return true if @var{name} is a valid variable name.\n\
 @seealso{iskeyword, exist, who}\n\
@@ -151,7 +151,8 @@
 // Ugh.
 
 int
-keyword_almost_match (const char * const *std, int *min_len, const std::string& s,
+keyword_almost_match (const char * const *std, int *min_len,
+                      const std::string& s,
                       int min_toks_to_match, int max_toks)
 {
   int status = 0;
@@ -229,7 +230,7 @@
         goto done;
     }
 
- done:
+done:
 
   delete [] kw;
   delete [] to_match;
@@ -287,7 +288,7 @@
 }
 
 DEFUN (file_in_loadpath, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} file_in_loadpath (@var{file})\n\
 @deftypefnx {Built-in Function} {} file_in_loadpath (@var{file}, \"all\")\n\
 \n\
@@ -316,7 +317,8 @@
       if (! error_state && names.length () > 0)
         {
           if (nargin == 1)
-            retval = octave_env::make_absolute (load_path::find_first_of (names));
+            retval =
+              octave_env::make_absolute (load_path::find_first_of (names));
           else if (nargin == 2)
             {
               std::string opt = args(1).string_value ();
@@ -356,7 +358,7 @@
 */
 
 DEFUN (file_in_path, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} file_in_path (@var{path}, @var{file})\n\
 @deftypefnx {Built-in Function} {} file_in_path (@var{path}, @var{file}, \"all\")\n\
 Return the absolute name of @var{file} if it can be found in\n\
@@ -650,7 +652,7 @@
 }
 
 DEFUN (do_string_escapes, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} do_string_escapes (@var{string})\n\
 Convert special characters in @var{string} to their escaped forms.\n\
 @end deftypefn")
@@ -748,7 +750,7 @@
 }
 
 DEFUN (undo_string_escapes, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} undo_string_escapes (@var{s})\n\
 Convert special characters in strings back to their escaped forms.  For\n\
 example, the expression\n\
@@ -809,7 +811,7 @@
 */
 
 DEFUN (is_absolute_filename, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} is_absolute_filename (@var{file})\n\
 Return true if @var{file} is an absolute filename.\n\
 @seealso{is_rooted_relative_filename, make_absolute_filename, isdir}\n\
@@ -834,7 +836,7 @@
 */
 
 DEFUN (is_rooted_relative_filename, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} is_rooted_relative_filename (@var{file})\n\
 Return true if @var{file} is a rooted-relative filename.\n\
 @seealso{is_absolute_filename, make_absolute_filename, isdir}\n\
@@ -859,7 +861,7 @@
 */
 
 DEFUN (make_absolute_filename, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} make_absolute_filename (@var{file})\n\
 Return the full name of @var{file} beginning from the root of the file\n\
 system.  No check is done for the existence of @var{file}.\n\
@@ -891,7 +893,7 @@
 */
 
 DEFUN (find_dir_in_path, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} find_dir_in_path (@var{dir})\n\
 @deftypefnx {Built-in Function} {} find_dir_in_path (@var{dir}, \"all\")\n\
 Return the full name of the path element matching @var{dir}.  The\n\
@@ -939,7 +941,7 @@
 */
 
 DEFUNX ("errno", Ferrno, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{err} =} errno ()\n\
 @deftypefnx {Built-in Function} {@var{err} =} errno (@var{val})\n\
 @deftypefnx {Built-in Function} {@var{err} =} errno (@var{name})\n\
@@ -998,7 +1000,7 @@
 */
 
 DEFUN (errno_list, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} errno_list ()\n\
 Return a structure containing the system-dependent errno values.\n\
 @end deftypefn")
@@ -1280,7 +1282,7 @@
 }
 
 DEFUN (isindex, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} isindex (@var{ind})\n\
 @deftypefnx {Built-in Function} {} isindex (@var{ind}, @var{n})\n\
 Return true if @var{ind} is a valid index.  Valid indices are\n\
@@ -1432,3 +1434,11 @@
 
   return retval;
 }
+
+octave_preserve_stream_state::~octave_preserve_stream_state (void)
+{
+  stream.flags (oflags);
+  stream.precision (oprecision);
+  stream.width (owidth);
+  stream.fill (ofill);
+}
--- a/libinterp/corefcn/utils.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/utils.h	Tue Nov 05 12:27:42 2013 -0500
@@ -127,4 +127,25 @@
 do_simple_cellfun (octave_value_list (*fun) (const octave_value_list&, int),
                    const char *fun_name, const octave_value_list& args);
 
+class
+octave_preserve_stream_state
+{
+public:
+
+  octave_preserve_stream_state (std::ios& s)
+    : stream (s), oflags (s.flags ()), oprecision (s.precision ()),
+      owidth (s.width ()), ofill (s.fill ())
+  { }
+
+  ~octave_preserve_stream_state (void);
+
+private:
+
+  std::ios& stream;
+  std::ios::fmtflags oflags;
+  std::streamsize oprecision;
+  int owidth;
+  char ofill;
+};
+
 #endif
--- a/libinterp/corefcn/variables.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/variables.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -291,8 +291,7 @@
   return names;
 }
 
-// FIXME -- this will have to be much smarter to work
-// "correctly".
+// FIXME: this will have to be much smarter to work "correctly".
 
 bool
 looks_like_struct (const std::string& text)
@@ -353,7 +352,7 @@
 }
 
 DEFUN (isglobal, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isglobal (@var{name})\n\
 Return true if @var{name} is a globally visible variable.\n\
 For example:\n\
@@ -518,7 +517,7 @@
 }
 
 DEFUN (exist, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} exist (@var{name}, @var{type})\n\
 Return 1 if the name exists as a variable, 2 if the name is an\n\
 absolute file name, an ordinary file in Octave's @code{path}, or (after\n\
@@ -941,6 +940,8 @@
   std::list<whos_parameter>::iterator i = params.begin ();
   std::ostringstream param_buf;
 
+  octave_preserve_stream_state stream_state (os);
+
   while (i != params.end ())
     {
       whos_parameter param = *i;
@@ -951,13 +952,17 @@
           switch (param.modifier)
             {
             case 'l':
-              os << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
-              param_buf << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
+              os << std::setiosflags (std::ios::left)
+                 << std::setw (param.parameter_length);
+              param_buf << std::setiosflags (std::ios::left)
+                        << std::setw (param.parameter_length);
               break;
 
             case 'r':
-              os << std::setiosflags (std::ios::right) << std::setw (param.parameter_length);
-              param_buf << std::setiosflags (std::ios::right) << std::setw (param.parameter_length);
+              os << std::setiosflags (std::ios::right)
+                 << std::setw (param.parameter_length);
+              param_buf << std::setiosflags (std::ios::right)
+                        << std::setw (param.parameter_length);
               break;
 
             case 'c':
@@ -971,8 +976,10 @@
               break;
 
             default:
-              os << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
-              param_buf << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
+              os << std::setiosflags (std::ios::left)
+                 << std::setw (param.parameter_length);
+              param_buf << std::setiosflags (std::ios::left)
+                        << std::setw (param.parameter_length);
             }
 
           if (param.command == 's' && param.modifier == 'c')
@@ -990,11 +997,13 @@
                      << std::setiosflags (std::ios::left)
                      << std::setw (b) << ""
                      << std::resetiosflags (std::ios::left);
-                  param_buf << std::setiosflags (std::ios::left) << std::setw (a)
-                     << "" << std::resetiosflags (std::ios::left) << param.line
-                     << std::setiosflags (std::ios::left)
-                     << std::setw (b) << ""
-                     << std::resetiosflags (std::ios::left);
+                  param_buf << std::setiosflags (std::ios::left)
+                            << std::setw (a)
+                            << "" << std::resetiosflags (std::ios::left)
+                            << param.line
+                            << std::setiosflags (std::ios::left)
+                            << std::setw (b) << ""
+                            << std::resetiosflags (std::ios::left);
                 }
             }
           else
@@ -1019,7 +1028,7 @@
   os << param_buf.str ();
 }
 
-// FIXME -- This is a bit of a kluge.  We'd like to just use val.dims()
+// FIXME: This is a bit of a kluge.  We'd like to just use val.dims()
 // and if val is an object, expect that dims will call size if it is
 // overloaded by a user-defined method.  But there are currently some
 // unresolved const issues that prevent that solution from working.
@@ -1064,6 +1073,8 @@
 
       std::list<whos_parameter>::const_iterator i = params.begin ();
 
+      octave_preserve_stream_state stream_state (os);
+
       while (i != params.end ())
         {
           whos_parameter param = *i;
@@ -1088,10 +1099,10 @@
                   if (param.command == 's')
                     {
                       int front = param.first_parameter_length
-                        - dims_str.find ('x');
+                                  - dims_str.find ('x');
                       int back = param.parameter_length
-                        - dims_str.length ()
-                        - front;
+                                 - dims_str.length ()
+                                 - front;
                       front = (front > 0) ? front : 0;
                       back = (back > 0) ? back : 0;
 
@@ -1408,7 +1419,7 @@
 
             idx += cmd.length ();
 
-            // FIXME -- use iostream functions instead of sscanf!
+            // FIXME: use iostream functions instead of sscanf!
 
             if (cmd.find_first_of ("crl") != 1)
               items = sscanf (cmd.c_str (), "%c%c:%d:%d:%d;",
@@ -1583,7 +1594,7 @@
               if (! error_state)
                 {
                   std::string newmsg = std::string ("Variables in the file ") +
-                    nm + ":\n\n";
+                                       nm + ":\n\n";
 
                   retval =  do_who (i, argv, return_list, verbose, newmsg);
                 }
@@ -1629,8 +1640,8 @@
             ? symbol_table::regexp_global_variables (pat)
             : symbol_table::regexp_variables (pat);
 
-          for (std::list<symbol_table::symbol_record>::const_iterator p = tmp.begin ();
-               p != tmp.end (); p++)
+          for (std::list<symbol_table::symbol_record>::const_iterator
+               p = tmp.begin (); p != tmp.end (); p++)
             {
               if (p->is_variable ())
                 {
@@ -1684,8 +1695,8 @@
                 ? symbol_table::glob_global_variables (pat)
                 : symbol_table::glob_variables (pat);
 
-              for (std::list<symbol_table::symbol_record>::const_iterator p = tmp.begin ();
-                   p != tmp.end (); p++)
+              for (std::list<symbol_table::symbol_record>::const_iterator
+                   p = tmp.begin (); p != tmp.end (); p++)
                 {
                   if (p->is_variable ())
                     {
@@ -1739,7 +1750,7 @@
 }
 
 DEFUN (who, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} who\n\
 @deftypefnx {Command} {} who pattern @dots{}\n\
 @deftypefnx {Command} {} who option pattern @dots{}\n\
@@ -1789,7 +1800,7 @@
 }
 
 DEFUN (whos, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Command} {} whos\n\
 @deftypefnx {Command} {} whos pattern @dots{}\n\
 @deftypefnx {Command} {} whos option pattern @dots{}\n\
@@ -1946,7 +1957,7 @@
 }
 
 DEFUN (mlock, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} mlock ()\n\
 Lock the current function into memory so that it can't be cleared.\n\
 @seealso{munlock, mislocked, persistent}\n\
@@ -1970,7 +1981,7 @@
 }
 
 DEFUN (munlock, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} munlock ()\n\
 @deftypefnx {Built-in Function} {} munlock (@var{fcn})\n\
 Unlock the named function @var{fcn}.  If no function is named\n\
@@ -2006,7 +2017,7 @@
 
 
 DEFUN (mislocked, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} mislocked ()\n\
 @deftypefnx {Built-in Function} {} mislocked (@var{fcn})\n\
 Return true if the named function @var{fcn} is locked.  If no function is\n\
@@ -2195,7 +2206,7 @@
     {
       if (exclusive)
         {
-          // FIXME -- is this really what we want, or do we
+          // FIXME: is this really what we want, or do we
           // somehow want to only clear the functions that are not
           // shadowed by local variables?  It seems that would be a
           // bit harder to do.
@@ -2263,7 +2274,7 @@
   while (0)
 
 DEFUN (clear, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Command} {} clear [options] pattern @dots{}\n\
 Delete the names matching the given patterns from the symbol table.  The\n\
 pattern may contain the following special characters:\n\
@@ -2468,7 +2479,7 @@
 }
 
 DEFUN (whos_line_format, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} whos_line_format ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} whos_line_format (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} whos_line_format (@var{new_val}, \"local\")\n\
@@ -2546,7 +2557,7 @@
 static std::string Vmissing_function_hook = "__unimplemented__";
 
 DEFUN (missing_function_hook, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} missing_function_hook ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} missing_function_hook (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} missing_function_hook (@var{new_val}, \"local\")\n\
@@ -2556,6 +2567,7 @@
 When called from inside a function with the @qcode{\"local\"} option, the\n\
 variable is changed locally for the function and any subroutines it calls.  \n\
 The original variable value is restored when exiting the function.\n\
+@seealso{missing_component_hook}\n\
 @end deftypefn")
 {
   return SET_INTERNAL_VARIABLE (missing_function_hook);
@@ -2585,7 +2597,7 @@
 }
 
 DEFUN (__varval__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __varval__ (@var{name})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2610,7 +2622,7 @@
 static std::string Vmissing_component_hook;
 
 DEFUN (missing_component_hook, args, nargout,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} missing_component_hook ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} missing_component_hook (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} missing_component_hook (@var{new_val}, \"local\")\n\
@@ -2632,6 +2644,7 @@
 Octave will call @var{fcn} with the name of the function that requires the\n\
 component and a string describing the missing component.  The hook function\n\
 should return an error message to be displayed.\n\
+@seealso{missing_function_hook}\n\
 @end deftypefn")
 {
   return SET_INTERNAL_VARIABLE (missing_component_hook);
--- a/libinterp/corefcn/variables.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/variables.h	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,8 @@
 extern OCTINTERP_API std::string
 unique_symbol_name (const std::string& basename);
 
-extern OCTINTERP_API octave_value lookup_function_handle (const std::string& nm);
+extern OCTINTERP_API octave_value
+lookup_function_handle (const std::string& nm);
 
 extern OCTINTERP_API octave_value
 get_global_value (const std::string& nm, bool silent = false);
@@ -130,7 +131,8 @@
   set_internal_variable (V ## NM, args, nargout, #NM, CHOICES)
 
 extern OCTINTERP_API std::string builtin_string_variable (const std::string&);
-extern OCTINTERP_API int builtin_real_scalar_variable (const std::string&, double&);
+extern OCTINTERP_API int builtin_real_scalar_variable (const std::string&,
+                                                       double&);
 extern OCTINTERP_API octave_value builtin_any_variable (const std::string&);
 
 extern OCTINTERP_API void bind_ans (const octave_value& val, bool print);
--- a/libinterp/corefcn/workspace-element.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/workspace-element.h	Tue Nov 05 12:27:42 2013 -0500
@@ -33,16 +33,17 @@
                      const std::string& symbol_arg = "<name>",
                      const std::string& class_name_arg = "<class>",
                      const std::string& value_arg = "<value>",
-                     const std::string& dimension_arg = "<dimension>")
+                     const std::string& dimension_arg = "<dimension>",
+                     bool complex_flag_arg = false)
     : xscope (scope_arg), xsymbol (symbol_arg),
       xclass_name (class_name_arg), xvalue (value_arg),
-      xdimension (dimension_arg)
+      xdimension (dimension_arg), xcomplex_flag (complex_flag_arg)
   { }
 
   workspace_element (const workspace_element& ws_elt)
     : xscope (ws_elt.xscope), xsymbol (ws_elt.xsymbol),
       xclass_name (ws_elt.xclass_name), xvalue (ws_elt.xvalue),
-      xdimension (ws_elt.xdimension)
+      xdimension (ws_elt.xdimension), xcomplex_flag (ws_elt.xcomplex_flag)
   { }
 
   workspace_element operator = (const workspace_element& ws_elt)
@@ -54,6 +55,7 @@
         xclass_name = ws_elt.xclass_name;
         xvalue = ws_elt.xvalue;
         xdimension = ws_elt.xdimension;
+        xcomplex_flag = ws_elt.xcomplex_flag;
       }
 
     return *this;
@@ -71,6 +73,8 @@
 
   std::string dimension (void) const { return xdimension; }
 
+  bool complex_flag (void) const { return xcomplex_flag; }
+
 private:
 
   // [g]lobal, [p]ersistent, [l]ocal
@@ -79,6 +83,7 @@
   std::string xclass_name;
   std::string xvalue;
   std::string xdimension;
+  bool xcomplex_flag;
 };
 
 #endif
--- a/libinterp/corefcn/xdiv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/xdiv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -71,7 +71,8 @@
 
   if (a_nr != b_nr)
     {
-      octave_idx_type a_nc = blas_trans == blas_no_trans ? a.cols () : a.rows ();
+      octave_idx_type a_nc = blas_trans == blas_no_trans ? a.cols ()
+                                                         : a.rows ();
       octave_idx_type b_nc = b.cols ();
 
       gripe_nonconformant ("operator \\", a_nr, a_nc, b_nr, b_nc);
@@ -350,7 +351,8 @@
 
 // -*- 1 -*-
 Matrix
-xleftdiv (const Matrix& a, const Matrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const Matrix& a, const Matrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return Matrix ();
@@ -362,7 +364,8 @@
 
 // -*- 2 -*-
 ComplexMatrix
-xleftdiv (const Matrix& a, const ComplexMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const Matrix& a, const ComplexMatrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return ComplexMatrix ();
@@ -375,7 +378,8 @@
 
 // -*- 3 -*-
 ComplexMatrix
-xleftdiv (const ComplexMatrix& a, const Matrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const ComplexMatrix& a, const Matrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return ComplexMatrix ();
@@ -387,7 +391,8 @@
 
 // -*- 4 -*-
 ComplexMatrix
-xleftdiv (const ComplexMatrix& a, const ComplexMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const ComplexMatrix& a, const ComplexMatrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return ComplexMatrix ();
@@ -648,7 +653,8 @@
 
 // -*- 1 -*-
 FloatMatrix
-xleftdiv (const FloatMatrix& a, const FloatMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const FloatMatrix& a, const FloatMatrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return FloatMatrix ();
@@ -660,7 +666,8 @@
 
 // -*- 2 -*-
 FloatComplexMatrix
-xleftdiv (const FloatMatrix& a, const FloatComplexMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const FloatMatrix& a, const FloatComplexMatrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return FloatComplexMatrix ();
@@ -673,7 +680,8 @@
 
 // -*- 3 -*-
 FloatComplexMatrix
-xleftdiv (const FloatComplexMatrix& a, const FloatMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const FloatComplexMatrix& a, const FloatMatrix& b, MatrixType &typ,
+          blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return FloatComplexMatrix ();
@@ -685,7 +693,8 @@
 
 // -*- 4 -*-
 FloatComplexMatrix
-xleftdiv (const FloatComplexMatrix& a, const FloatComplexMatrix& b, MatrixType &typ, blas_trans_type transt)
+xleftdiv (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
+          MatrixType &typ, blas_trans_type transt)
 {
   if (! mx_leftdiv_conform (a, b, transt))
     return FloatComplexMatrix ();
--- a/libinterp/corefcn/xdiv.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/xdiv.h	Tue Nov 05 12:27:42 2013 -0500
@@ -48,38 +48,55 @@
 extern Matrix xleftdiv (const Matrix& a, const Matrix& b, MatrixType &typ,
                         blas_trans_type transt = blas_no_trans);
 extern ComplexMatrix xleftdiv (const Matrix& a, const ComplexMatrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
+                               MatrixType &typ,
+                               blas_trans_type transt = blas_no_trans);
 extern ComplexMatrix xleftdiv (const ComplexMatrix& a, const Matrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
+                               MatrixType &typ,
+                               blas_trans_type transt = blas_no_trans);
 extern ComplexMatrix xleftdiv (const ComplexMatrix& a, const ComplexMatrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
+                               MatrixType &typ,
+                               blas_trans_type transt = blas_no_trans);
 
-extern FloatMatrix xdiv (const FloatMatrix& a, const FloatMatrix& b, MatrixType &typ);
-extern FloatComplexMatrix xdiv (const FloatMatrix& a, const FloatComplexMatrix& b,
-                           MatrixType &typ);
-extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a, const FloatMatrix& b,
-                           MatrixType &typ);
-extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
-                           MatrixType &typ);
+extern FloatMatrix xdiv (const FloatMatrix& a, const FloatMatrix& b,
+                         MatrixType &typ);
+extern FloatComplexMatrix xdiv (const FloatMatrix& a,
+                                const FloatComplexMatrix& b,
+                                MatrixType &typ);
+extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a,
+                                const FloatMatrix& b,
+                                MatrixType &typ);
+extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a,
+                                const FloatComplexMatrix& b,
+                                MatrixType &typ);
 
 extern FloatMatrix x_el_div (float a, const FloatMatrix& b);
 extern FloatComplexMatrix x_el_div (float a, const FloatComplexMatrix& b);
 extern FloatComplexMatrix x_el_div (const FloatComplex a, const FloatMatrix& b);
-extern FloatComplexMatrix x_el_div (const FloatComplex a, const FloatComplexMatrix& b);
+extern FloatComplexMatrix x_el_div (const FloatComplex a,
+                                    const FloatComplexMatrix& b);
 
 extern FloatNDArray x_el_div (float a, const FloatNDArray& b);
 extern FloatComplexNDArray x_el_div (float a, const FloatComplexNDArray& b);
-extern FloatComplexNDArray x_el_div (const FloatComplex a, const FloatNDArray& b);
-extern FloatComplexNDArray x_el_div (const FloatComplex a, const FloatComplexNDArray& b);
+extern FloatComplexNDArray x_el_div (const FloatComplex a,
+                                     const FloatNDArray& b);
+extern FloatComplexNDArray x_el_div (const FloatComplex a,
+                                     const FloatComplexNDArray& b);
 
-extern FloatMatrix xleftdiv (const FloatMatrix& a, const FloatMatrix& b, MatrixType &typ,
+extern FloatMatrix xleftdiv (const FloatMatrix& a, const FloatMatrix& b,
+                             MatrixType &typ,
                              blas_trans_type transt = blas_no_trans);
-extern FloatComplexMatrix xleftdiv (const FloatMatrix& a, const FloatComplexMatrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
-extern FloatComplexMatrix xleftdiv (const FloatComplexMatrix& a, const FloatMatrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
-extern FloatComplexMatrix xleftdiv (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
-                               MatrixType &typ, blas_trans_type transt = blas_no_trans);
+extern FloatComplexMatrix xleftdiv (const FloatMatrix& a,
+                                    const FloatComplexMatrix& b,
+                                    MatrixType &typ,
+                                    blas_trans_type transt = blas_no_trans);
+extern FloatComplexMatrix xleftdiv (const FloatComplexMatrix& a,
+                                    const FloatMatrix& b,
+                                    MatrixType &typ,
+                                    blas_trans_type transt = blas_no_trans);
+extern FloatComplexMatrix xleftdiv (const FloatComplexMatrix& a,
+                                    const FloatComplexMatrix& b,
+                                    MatrixType &typ,
+                                    blas_trans_type transt = blas_no_trans);
 
 
 extern Matrix xdiv (const Matrix& a, const DiagMatrix& b);
@@ -88,7 +105,8 @@
 
 extern DiagMatrix xdiv (const DiagMatrix& a, const DiagMatrix& b);
 extern ComplexDiagMatrix xdiv (const ComplexDiagMatrix& a, const DiagMatrix& b);
-extern ComplexDiagMatrix xdiv (const ComplexDiagMatrix& a, const ComplexDiagMatrix& b);
+extern ComplexDiagMatrix xdiv (const ComplexDiagMatrix& a,
+                               const ComplexDiagMatrix& b);
 
 extern FloatMatrix xdiv (const FloatMatrix& a, const FloatDiagMatrix& b);
 extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a,
@@ -98,7 +116,8 @@
 extern FloatComplexMatrix xdiv (const FloatComplexMatrix& a,
                                 const FloatComplexDiagMatrix& b);
 
-extern FloatDiagMatrix xdiv (const FloatDiagMatrix& a, const FloatDiagMatrix& b);
+extern FloatDiagMatrix xdiv (const FloatDiagMatrix& a,
+                             const FloatDiagMatrix& b);
 extern FloatComplexDiagMatrix xdiv (const FloatComplexDiagMatrix& a,
                                     const FloatDiagMatrix& b);
 extern FloatComplexDiagMatrix xdiv (const FloatComplexDiagMatrix& a,
@@ -106,11 +125,14 @@
 
 extern Matrix xleftdiv (const DiagMatrix& a, const Matrix& b);
 extern ComplexMatrix xleftdiv (const DiagMatrix& a, const ComplexMatrix& b);
-extern ComplexMatrix xleftdiv (const ComplexDiagMatrix& a, const ComplexMatrix& b);
+extern ComplexMatrix xleftdiv (const ComplexDiagMatrix& a,
+                               const ComplexMatrix& b);
 
 extern DiagMatrix xleftdiv (const DiagMatrix& a, const DiagMatrix& b);
-extern ComplexDiagMatrix xleftdiv (const DiagMatrix& a, const ComplexDiagMatrix& b);
-extern ComplexDiagMatrix xleftdiv (const ComplexDiagMatrix& a, const ComplexDiagMatrix& b);
+extern ComplexDiagMatrix xleftdiv (const DiagMatrix& a,
+                                   const ComplexDiagMatrix& b);
+extern ComplexDiagMatrix xleftdiv (const ComplexDiagMatrix& a,
+                                   const ComplexDiagMatrix& b);
 
 extern FloatMatrix xleftdiv (const FloatDiagMatrix& a,
                              const FloatMatrix& b);
--- a/libinterp/corefcn/xnorm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/xnorm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,9 +29,16 @@
 
 class octave_value;
 
-extern OCTINTERP_API octave_value xnorm (const octave_value& x, const octave_value& p);
-extern OCTINTERP_API octave_value xcolnorms (const octave_value& x, const octave_value& p);
-extern OCTINTERP_API octave_value xrownorms (const octave_value& x, const octave_value& p);
-extern OCTINTERP_API octave_value xfrobnorm (const octave_value& x);
+extern OCTINTERP_API octave_value
+xnorm (const octave_value& x, const octave_value& p);
+
+extern OCTINTERP_API octave_value
+xcolnorms (const octave_value& x, const octave_value& p);
+
+extern OCTINTERP_API octave_value
+xrownorms (const octave_value& x, const octave_value& p);
+
+extern OCTINTERP_API octave_value
+xfrobnorm (const octave_value& x);
 
 #endif
--- a/libinterp/corefcn/xpow.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/xpow.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -105,7 +105,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG b_eig (b);
@@ -156,7 +156,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG b_eig (b);
@@ -195,7 +195,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -208,8 +208,7 @@
           else
             {
               // Too much copying?
-              // FIXME -- we shouldn't do this if the exponent is
-              // large...
+              // FIXME: we shouldn't do this if the exponent is large...
 
               Matrix atmp;
               if (btmp < 0)
@@ -281,7 +280,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -325,7 +324,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG a_eig (a);
@@ -373,7 +372,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG b_eig (b);
@@ -421,7 +420,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG b_eig (b);
@@ -460,7 +459,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -473,8 +472,7 @@
           else
             {
               // Too much copying?
-              // FIXME -- we shouldn't do this if the exponent is
-              // large...
+              // FIXME: we shouldn't do this if the exponent is large...
 
               ComplexMatrix atmp;
               if (btmp < 0)
@@ -546,7 +544,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       EIG a_eig (a);
@@ -580,7 +578,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       ComplexDiagMatrix r (nr, nc);
@@ -621,8 +619,7 @@
 //
 //   * -> not needed.
 
-// FIXME -- these functions need to be fixed so that things
-// like
+// FIXME: these functions need to be fixed so that things like
 //
 //   a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
 //
@@ -1103,8 +1100,7 @@
 //
 //   * -> not needed.
 
-// FIXME -- these functions need to be fixed so that things
-// like
+// FIXME: these functions need to be fixed so that things like
 //
 //   a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
 //
@@ -1554,7 +1550,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG b_eig (b);
@@ -1606,7 +1602,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG b_eig (b);
@@ -1645,7 +1641,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -1658,8 +1654,7 @@
           else
             {
               // Too much copying?
-              // FIXME -- we shouldn't do this if the exponent is
-              // large...
+              // FIXME: we shouldn't do this if the exponent is large...
 
               FloatMatrix atmp;
               if (btmp < 0)
@@ -1731,7 +1726,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -1745,7 +1740,8 @@
         {
           FloatComplexDiagMatrix r (nr, nc);
           for (octave_idx_type i = 0; i < nc; i++)
-            r.dgelem (i) = std::pow (static_cast<FloatComplex> (a.dgelem (i)), b);
+            r.dgelem (i) = std::pow (static_cast<FloatComplex> (a.dgelem (i)),
+                                                                b);
           retval = r;
         }
     }
@@ -1763,7 +1759,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG a_eig (a);
@@ -1811,7 +1807,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG b_eig (b);
@@ -1859,7 +1855,7 @@
   octave_idx_type nc = b.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for x^A, A must be a square matrix");
+    error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG b_eig (b);
@@ -1898,7 +1894,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       if (static_cast<int> (b) == b)
@@ -1911,8 +1907,7 @@
           else
             {
               // Too much copying?
-              // FIXME -- we shouldn't do this if the exponent is
-              // large...
+              // FIXME: we shouldn't do this if the exponent is large...
 
               FloatComplexMatrix atmp;
               if (btmp < 0)
@@ -1984,7 +1979,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatEIG a_eig (a);
@@ -2018,7 +2013,7 @@
   octave_idx_type nc = a.cols ();
 
   if (nr == 0 || nc == 0 || nr != nc)
-    error ("for A^b, A must be a square matrix");
+    error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
   else
     {
       FloatComplexDiagMatrix r (nr, nc);
@@ -2058,8 +2053,7 @@
 //
 //   * -> not needed.
 
-// FIXME -- these functions need to be fixed so that things
-// like
+// FIXME: these functions need to be fixed so that things like
 //
 //   a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
 //
@@ -2456,8 +2450,7 @@
 //
 //   * -> not needed.
 
-// FIXME -- these functions need to be fixed so that things
-// like
+// FIXME: these functions need to be fixed so that things like
 //
 //   a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
 //
--- a/libinterp/corefcn/xpow.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/xpow.h	Tue Nov 05 12:27:42 2013 -0500
@@ -57,13 +57,16 @@
 extern OCTINTERP_API octave_value xpow (const Complex& a, double b);
 extern OCTINTERP_API octave_value xpow (const Complex& a, const Matrix& b);
 extern OCTINTERP_API octave_value xpow (const Complex& a, const Complex& b);
-extern OCTINTERP_API octave_value xpow (const Complex& a, const ComplexMatrix& b);
+extern OCTINTERP_API octave_value xpow (const Complex& a,
+                                        const ComplexMatrix& b);
 
 extern OCTINTERP_API octave_value xpow (const ComplexMatrix& a, double b);
-extern OCTINTERP_API octave_value xpow (const ComplexMatrix& a, const Complex& b);
+extern OCTINTERP_API octave_value xpow (const ComplexMatrix& a,
+                                        const Complex& b);
 
 extern OCTINTERP_API octave_value xpow (const ComplexDiagMatrix& a, double b);
-extern OCTINTERP_API octave_value xpow (const ComplexDiagMatrix& a, const Complex& b);
+extern OCTINTERP_API octave_value xpow (const ComplexDiagMatrix& a,
+                                        const Complex& b);
 
 extern OCTINTERP_API octave_value elem_xpow (double a, const Matrix& b);
 extern OCTINTERP_API octave_value elem_xpow (double a, const ComplexMatrix& b);
@@ -72,33 +75,47 @@
 extern OCTINTERP_API octave_value elem_xpow (const Matrix& a, double b);
 extern OCTINTERP_API octave_value elem_xpow (const Matrix& a, const Matrix& b);
 extern OCTINTERP_API octave_value elem_xpow (const Matrix& a, const Complex& b);
-extern OCTINTERP_API octave_value elem_xpow (const Matrix& a, const ComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const Matrix& a,
+                                             const ComplexMatrix& b);
 
 extern OCTINTERP_API octave_value elem_xpow (const Complex& a, const Matrix& b);
-extern OCTINTERP_API octave_value elem_xpow (const Complex& a, const ComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const Complex& a,
+                                             const ComplexMatrix& b);
 extern OCTINTERP_API octave_value elem_xpow (const Complex& a, const Range& r);
 
 extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a, double b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a, const Matrix& b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a, const Complex& b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a, const ComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a,
+                                             const Matrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a,
+                                             const Complex& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexMatrix& a,
+                                             const ComplexMatrix& b);
 
 
 extern OCTINTERP_API octave_value elem_xpow (double a, const NDArray& b);
 extern OCTINTERP_API octave_value elem_xpow (double a, const ComplexNDArray& b);
 
 extern OCTINTERP_API octave_value elem_xpow (const NDArray& a, double b);
-extern OCTINTERP_API octave_value elem_xpow (const NDArray& a, const NDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const NDArray& a, const Complex& b);
-extern OCTINTERP_API octave_value elem_xpow (const NDArray& a, const ComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const NDArray& a,
+                                             const NDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const NDArray& a,
+                                             const Complex& b);
+extern OCTINTERP_API octave_value elem_xpow (const NDArray& a,
+                                             const ComplexNDArray& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const Complex& a, const NDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const Complex& a, const ComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const Complex& a,
+                                             const NDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const Complex& a,
+                                             const ComplexNDArray& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a, double b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a, const NDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a, const Complex& b);
-extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a, const ComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a,
+                                             double b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a,
+                                             const NDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a,
+                                             const Complex& b);
+extern OCTINTERP_API octave_value elem_xpow (const ComplexNDArray& a,
+                                             const ComplexNDArray& b);
 
 extern OCTINTERP_API octave_value xpow (float a, float b);
 extern OCTINTERP_API octave_value xpow (float a, const FloatMatrix& b);
@@ -106,53 +123,81 @@
 extern OCTINTERP_API octave_value xpow (float a, const FloatComplexMatrix& b);
 
 extern OCTINTERP_API octave_value xpow (const FloatMatrix& a, float b);
-extern OCTINTERP_API octave_value xpow (const FloatMatrix& a, const FloatComplex& b);
+extern OCTINTERP_API octave_value xpow (const FloatMatrix& a,
+                                        const FloatComplex& b);
 
 extern OCTINTERP_API octave_value xpow (const FloatDiagMatrix& a, float b);
-extern OCTINTERP_API octave_value xpow (const FloatDiagMatrix& a, const FloatComplex& b);
+extern OCTINTERP_API octave_value xpow (const FloatDiagMatrix& a,
+                                        const FloatComplex& b);
 
 extern OCTINTERP_API octave_value xpow (const FloatComplex& a, float b);
-extern OCTINTERP_API octave_value xpow (const FloatComplex& a, const FloatMatrix& b);
-extern OCTINTERP_API octave_value xpow (const FloatComplex& a, const FloatComplex& b);
-extern OCTINTERP_API octave_value xpow (const FloatComplex& a, const FloatComplexMatrix& b);
+extern OCTINTERP_API octave_value xpow (const FloatComplex& a,
+                                        const FloatMatrix& b);
+extern OCTINTERP_API octave_value xpow (const FloatComplex& a,
+                                        const FloatComplex& b);
+extern OCTINTERP_API octave_value xpow (const FloatComplex& a,
+                                        const FloatComplexMatrix& b);
 
 extern OCTINTERP_API octave_value xpow (const FloatComplexMatrix& a, float b);
-extern OCTINTERP_API octave_value xpow (const FloatComplexMatrix& a, const FloatComplex& b);
+extern OCTINTERP_API octave_value xpow (const FloatComplexMatrix& a,
+                                        const FloatComplex& b);
 
-extern OCTINTERP_API octave_value xpow (const FloatComplexDiagMatrix& a, float b);
-extern OCTINTERP_API octave_value xpow (const FloatComplexDiagMatrix& a, const FloatComplex& b);
+extern OCTINTERP_API octave_value xpow (const FloatComplexDiagMatrix& a,
+                                        float b);
+extern OCTINTERP_API octave_value xpow (const FloatComplexDiagMatrix& a,
+                                        const FloatComplex& b);
 
 extern OCTINTERP_API octave_value elem_xpow (float a, const FloatMatrix& b);
-extern OCTINTERP_API octave_value elem_xpow (float a, const FloatComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (float a,
+                                             const FloatComplexMatrix& b);
 
 extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a, float b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a, const FloatMatrix& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a, const FloatComplex& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a, const FloatComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a,
+                                             const FloatMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a,
+                                             const FloatComplex& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatMatrix& a,
+                                             const FloatComplexMatrix& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a, const FloatMatrix& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a, const FloatComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a,
+                                             const FloatMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a,
+                                             const FloatComplexMatrix& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a, float b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a, const FloatMatrix& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a, const FloatComplex& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a, const FloatComplexMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a,
+                                             float b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a,
+                                             const FloatMatrix& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a,
+                                             const FloatComplex& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexMatrix& a,
+                                             const FloatComplexMatrix& b);
 
 
 extern OCTINTERP_API octave_value elem_xpow (float a, const FloatNDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (float a, const FloatComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (float a,
+                                             const FloatComplexNDArray& b);
 
 extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a, float b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a, const FloatNDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a, const FloatComplex& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a, const FloatComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a,
+                                             const FloatNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a,
+                                             const FloatComplex& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatNDArray& a,
+                                             const FloatComplexNDArray& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a, const FloatNDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a, const FloatComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a,
+                                             const FloatNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplex& a,
+                                             const FloatComplexNDArray& b);
 
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a, float b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a, const FloatNDArray& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a, const FloatComplex& b);
-extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a, const FloatComplexNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a,
+                                             float b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a,
+                                             const FloatNDArray& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a,
+                                             const FloatComplex& b);
+extern OCTINTERP_API octave_value elem_xpow (const FloatComplexNDArray& a,
+                                             const FloatComplexNDArray& b);
 
 #endif
--- a/libinterp/corefcn/zfstream.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/zfstream.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,8 +53,8 @@
 
 // Default constructor
 gzfilebuf::gzfilebuf ()
-: file(0), io_mode(std::ios_base::openmode(0)), own_fd(false),
-  buffer(0), buffer_size(BIGBUFSIZE), own_buffer(true)
+  : file(0), io_mode(std::ios_base::openmode(0)), own_fd(false),
+    buffer(0), buffer_size(BIGBUFSIZE), own_buffer(true)
 {
   // No buffers to start with
   this->disable_buffer ();
@@ -74,16 +74,14 @@
 
 // Set compression level and strategy
 int
-gzfilebuf::setcompression (int comp_level,
-                           int comp_strategy)
+gzfilebuf::setcompression (int comp_level, int comp_strategy)
 {
   return gzsetparams (file, comp_level, comp_strategy);
 }
 
 // Open gzipped file
 gzfilebuf*
-gzfilebuf::open (const char *name,
-                 std::ios_base::openmode mode)
+gzfilebuf::open (const char *name, std::ios_base::openmode mode)
 {
   // Fail if file already open
   if (this->is_open ())
@@ -110,8 +108,7 @@
 
 // Attach to gzipped file
 gzfilebuf*
-gzfilebuf::attach (int fd,
-                   std::ios_base::openmode mode)
+gzfilebuf::attach (int fd, std::ios_base::openmode mode)
 {
   // Fail if file already open
   if (this->is_open ())
@@ -162,10 +159,9 @@
 
 // Convert int open mode to mode string
 bool
-gzfilebuf::open_mode (std::ios_base::openmode mode,
-                      char* c_mode) const
+gzfilebuf::open_mode (std::ios_base::openmode mode, char* c_mode) const
 {
-  // FIXME -- do we need testb?
+  // FIXME: do we need testb?
   // bool testb = mode & std::ios_base::binary;
   bool testi = mode & std::ios_base::in;
   bool testo = mode & std::ios_base::out;
@@ -186,10 +182,10 @@
   if (testi && !testo && !testt && !testa)
     strcpy (c_mode, "r");
   // No read/write mode yet
-//  if (testi && testo && !testt && !testa)
-//    strcpy(c_mode, "r+");
-//  if (testi && testo && testt && !testa)
-//    strcpy(c_mode, "w+");
+  //  if (testi && testo && !testt && !testa)
+  //    strcpy(c_mode, "r+");
+  //  if (testi && testo && testt && !testa)
+  //    strcpy(c_mode, "w+");
 
   // Mode string should be empty for invalid combination of flags
   if (strlen (c_mode) == 0)
@@ -286,11 +282,11 @@
 
   // Indicates error or EOF
   if (bytes_read <= 0)
-  {
-    // Reset get area
-    this->setg (buffer, buffer, buffer);
-    return traits_type::eof ();
-  }
+    {
+      // Reset get area
+      this->setg (buffer, buffer, buffer);
+      return traits_type::eof ();
+    }
   // Make all bytes read from file plus the stash available as get area
   this->setg (buffer, buffer + stash, buffer + bytes_read + stash);
 
@@ -304,43 +300,43 @@
 {
   // Determine whether put area is in use
   if (this->pbase ())
-  {
-    // Double-check pointer range
-    if (this->pptr () > this->epptr () || this->pptr () < this->pbase ())
-      return traits_type::eof ();
-    // Add extra character to buffer if not EOF
-    if (! traits_type::eq_int_type (c, traits_type::eof ()))
     {
-      *(this->pptr ()) = traits_type::to_char_type (c);
-      this->pbump (1);
+      // Double-check pointer range
+      if (this->pptr () > this->epptr () || this->pptr () < this->pbase ())
+        return traits_type::eof ();
+      // Add extra character to buffer if not EOF
+      if (! traits_type::eq_int_type (c, traits_type::eof ()))
+        {
+          *(this->pptr ()) = traits_type::to_char_type (c);
+          this->pbump (1);
+        }
+      // Number of characters to write to file
+      int bytes_to_write = this->pptr () - this->pbase ();
+      // Overflow doesn't fail if nothing is to be written
+      if (bytes_to_write > 0)
+        {
+          // If the file hasn't been opened for writing, produce error
+          if (! this->is_open () || !(io_mode & std::ios_base::out))
+            return traits_type::eof ();
+          // If gzipped file won't accept all bytes written to it, fail
+          if (gzwrite (file, this->pbase (), bytes_to_write) != bytes_to_write)
+            return traits_type::eof ();
+          // Reset next pointer to point to pbase on success
+          this->pbump (-bytes_to_write);
+        }
     }
-    // Number of characters to write to file
-    int bytes_to_write = this->pptr () - this->pbase ();
-    // Overflow doesn't fail if nothing is to be written
-    if (bytes_to_write > 0)
+  // Write extra character to file if not EOF
+  else if (! traits_type::eq_int_type (c, traits_type::eof ()))
     {
       // If the file hasn't been opened for writing, produce error
       if (! this->is_open () || !(io_mode & std::ios_base::out))
         return traits_type::eof ();
-      // If gzipped file won't accept all bytes written to it, fail
-      if (gzwrite (file, this->pbase (), bytes_to_write) != bytes_to_write)
+      // Impromptu char buffer (allows "unbuffered" output)
+      char_type last_char = traits_type::to_char_type (c);
+      // If gzipped file won't accept this character, fail
+      if (gzwrite (file, &last_char, 1) != 1)
         return traits_type::eof ();
-      // Reset next pointer to point to pbase on success
-      this->pbump (-bytes_to_write);
     }
-  }
-  // Write extra character to file if not EOF
-  else if (! traits_type::eq_int_type (c, traits_type::eof ()))
-  {
-    // If the file hasn't been opened for writing, produce error
-    if (! this->is_open () || !(io_mode & std::ios_base::out))
-      return traits_type::eof ();
-    // Impromptu char buffer (allows "unbuffered" output)
-    char_type last_char = traits_type::to_char_type (c);
-    // If gzipped file won't accept this character, fail
-    if (gzwrite (file, &last_char, 1) != 1)
-      return traits_type::eof ();
-  }
 
   // If you got here, you have succeeded (even if c was EOF)
   // The return value should therefore be non-EOF
@@ -352,34 +348,34 @@
 
 // Assign new buffer
 std::streambuf*
-gzfilebuf::setbuf (char_type* p,
-                   std::streamsize n)
+gzfilebuf::setbuf (char_type* p, std::streamsize n)
 {
   // First make sure stuff is sync'ed, for safety
   if (this->sync () == -1)
     return 0;
-  // If buffering is turned off on purpose via setbuf(0,0), still allocate one...
+  // If buffering is turned off on purpose via setbuf(0,0), still allocate one.
   // "Unbuffered" only really refers to put [27.8.1.4.10], while get needs at
-  // least a buffer of size 1 (very inefficient though, therefore make it bigger?)
-  // This follows from [27.5.2.4.3]/12 (gptr needs to point at something, it seems)
+  // least a buffer of size 1 (very inefficient though, therefore make it
+  // bigger?).  This follows from [27.5.2.4.3]/12 (gptr needs to point at
+  // something, it seems).
   if (!p || !n)
-  {
-    // Replace existing buffer (if any) with small internal buffer
-    this->disable_buffer ();
-    buffer = 0;
-    buffer_size = 0;
-    own_buffer = true;
-    this->enable_buffer ();
-  }
+    {
+      // Replace existing buffer (if any) with small internal buffer
+      this->disable_buffer ();
+      buffer = 0;
+      buffer_size = 0;
+      own_buffer = true;
+      this->enable_buffer ();
+    }
   else
-  {
-    // Replace existing buffer (if any) with external buffer
-    this->disable_buffer ();
-    buffer = p;
-    buffer_size = n;
-    own_buffer = false;
-    this->enable_buffer ();
-  }
+    {
+      // Replace existing buffer (if any) with external buffer
+      this->disable_buffer ();
+      buffer = p;
+      buffer_size = n;
+      own_buffer = false;
+      this->enable_buffer ();
+    }
   return this;
 }
 
@@ -387,7 +383,8 @@
 int
 gzfilebuf::sync ()
 {
-  return traits_type::eq_int_type (this->overflow (), traits_type::eof ()) ? -1 : 0;
+  return traits_type::eq_int_type (this->overflow (),
+                                   traits_type::eof ()) ? -1 : 0;
 }
 
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
@@ -398,37 +395,38 @@
 {
   // If internal buffer required, allocate one
   if (own_buffer && !buffer)
-  {
-    // Check for buffered vs. "unbuffered"
-    if (buffer_size > 0)
     {
-      // Allocate internal buffer
-      buffer = new char_type [buffer_size];
-      // Get area starts empty and will be expanded by underflow as need arises
+      // Check for buffered vs. "unbuffered"
+      if (buffer_size > 0)
+        {
+          // Allocate internal buffer
+          buffer = new char_type [buffer_size];
+          // Get area starts empty and will be expanded by underflow as needed
+          this->setg (buffer, buffer, buffer);
+          // Setup entire internal buffer as put area.
+          // The one-past-end pointer actually points to the last element of
+          // the buffer, so that overflow(c) can safely add the extra character 
+          // c to the sequence.  These pointers remain in place for the
+          // duration of the buffer
+          this->setp (buffer, buffer + buffer_size - 1);
+        }
+      else
+        {
+          // Even in "unbuffered" case, (small?) get buffer is still required
+          buffer_size = SMALLBUFSIZE;
+          buffer = new char_type [buffer_size];
+          this->setg (buffer, buffer, buffer);
+          // "Unbuffered" means no put buffer
+          this->setp (0, 0);
+        }
+    }
+  else
+    {
+      // If buffer already allocated, reset buffer pointers just to make sure no
+      // stale chars are lying around
       this->setg (buffer, buffer, buffer);
-      // Setup entire internal buffer as put area.
-      // The one-past-end pointer actually points to the last element of the buffer,
-      // so that overflow(c) can safely add the extra character c to the sequence.
-      // These pointers remain in place for the duration of the buffer
       this->setp (buffer, buffer + buffer_size - 1);
     }
-    else
-    {
-      // Even in "unbuffered" case, (small?) get buffer is still required
-      buffer_size = SMALLBUFSIZE;
-      buffer = new char_type [buffer_size];
-      this->setg (buffer, buffer, buffer);
-      // "Unbuffered" means no put buffer
-      this->setp (0, 0);
-    }
-  }
-  else
-  {
-    // If buffer already allocated, reset buffer pointers just to make sure no
-    // stale chars are lying around
-    this->setg (buffer, buffer, buffer);
-    this->setp (buffer, buffer + buffer_size - 1);
-  }
 }
 
 // Destroy internal buffer
@@ -437,24 +435,24 @@
 {
   // If internal buffer exists, deallocate it
   if (own_buffer && buffer)
-  {
-    // Preserve unbuffered status by zeroing size
-    if (! this->pbase ())
-      buffer_size = 0;
-    delete[] buffer;
-    buffer = 0;
-    this->setg (0, 0, 0);
-    this->setp (0, 0);
-  }
+    {
+      // Preserve unbuffered status by zeroing size
+      if (! this->pbase ())
+        buffer_size = 0;
+      delete[] buffer;
+      buffer = 0;
+      this->setg (0, 0, 0);
+      this->setp (0, 0);
+    }
   else
-  {
-    // Reset buffer pointers to initial state if external buffer exists
-    this->setg (buffer, buffer, buffer);
-    if (buffer)
-      this->setp (buffer, buffer + buffer_size - 1);
-    else
-      this->setp (0, 0);
-  }
+    {
+      // Reset buffer pointers to initial state if external buffer exists
+      this->setg (buffer, buffer, buffer);
+      if (buffer)
+        this->setp (buffer, buffer + buffer_size - 1);
+      else
+        this->setp (0, 0);
+    }
 }
 
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
@@ -462,7 +460,7 @@
 // Seek functions
 gzfilebuf::pos_type
 gzfilebuf::seekoff (off_type off, std::ios_base::seekdir way,
-                   std::ios_base::openmode)
+                    std::ios_base::openmode)
 {
   pos_type ret = pos_type (off_type (-1));
 
@@ -521,22 +519,20 @@
 
 // Default constructor initializes stream buffer
 gzifstream::gzifstream ()
-: std::istream (0), sb ()
+  : std::istream (0), sb ()
 { this->init (&sb); }
 
 // Initialize stream buffer and open file
-gzifstream::gzifstream (const char* name,
-                        std::ios_base::openmode mode)
-: std::istream (0), sb ()
+gzifstream::gzifstream (const char* name, std::ios_base::openmode mode)
+  : std::istream (0), sb ()
 {
   this->init (&sb);
   this->open (name, mode);
 }
 
 // Initialize stream buffer and attach to file
-gzifstream::gzifstream (int fd,
-                        std::ios_base::openmode mode)
-: std::istream (0), sb ()
+gzifstream::gzifstream (int fd, std::ios_base::openmode mode)
+  : std::istream (0), sb ()
 {
   this->init (&sb);
   this->attach (fd, mode);
@@ -544,8 +540,7 @@
 
 // Open file and go into fail() state if unsuccessful
 void
-gzifstream::open (const char* name,
-                  std::ios_base::openmode mode)
+gzifstream::open (const char* name, std::ios_base::openmode mode)
 {
   if (! sb.open (name, mode | std::ios_base::in))
     this->setstate (std::ios_base::failbit);
@@ -555,8 +550,7 @@
 
 // Attach to file and go into fail() state if unsuccessful
 void
-gzifstream::attach (int fd,
-                    std::ios_base::openmode mode)
+gzifstream::attach (int fd, std::ios_base::openmode mode)
 {
   if (! sb.attach (fd, mode | std::ios_base::in))
     this->setstate (std::ios_base::failbit);
@@ -576,22 +570,20 @@
 
 // Default constructor initializes stream buffer
 gzofstream::gzofstream ()
-: std::ostream (0), sb ()
+  : std::ostream (0), sb ()
 { this->init (&sb); }
 
 // Initialize stream buffer and open file
-gzofstream::gzofstream (const char* name,
-                        std::ios_base::openmode mode)
-: std::ostream (0), sb ()
+gzofstream::gzofstream (const char* name, std::ios_base::openmode mode)
+  : std::ostream (0), sb ()
 {
   this->init (&sb);
   this->open (name, mode);
 }
 
 // Initialize stream buffer and attach to file
-gzofstream::gzofstream (int fd,
-                        std::ios_base::openmode mode)
-: std::ostream (0), sb ()
+gzofstream::gzofstream (int fd, std::ios_base::openmode mode)
+  : std::ostream (0), sb ()
 {
   this->init (&sb);
   this->attach (fd, mode);
@@ -599,8 +591,7 @@
 
 // Open file and go into fail() state if unsuccessful
 void
-gzofstream::open (const char* name,
-                  std::ios_base::openmode mode)
+gzofstream::open (const char* name, std::ios_base::openmode mode)
 {
   if (! sb.open (name, mode | std::ios_base::out))
     this->setstate (std::ios_base::failbit);
@@ -610,8 +601,7 @@
 
 // Attach to file and go into fail() state if unsuccessful
 void
-gzofstream::attach (int fd,
-                    std::ios_base::openmode mode)
+gzofstream::attach (int fd, std::ios_base::openmode mode)
 {
   if (! sb.attach (fd, mode | std::ios_base::out))
     this->setstate (std::ios_base::failbit);
--- a/libinterp/corefcn/zfstream.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/corefcn/zfstream.h	Tue Nov 05 12:27:42 2013 -0500
@@ -44,10 +44,10 @@
 /**
  *  @brief  Gzipped file stream buffer class.
  *
- *  This class implements basic_filebuf for gzipped files. It doesn't yet support
- *  seeking (allowed by zlib but slow/limited), putback and read/write access
- *  (tricky). Otherwise, it attempts to be a drop-in replacement for the standard
- *  file streambuf.
+ *  This class implements basic_filebuf for gzipped files. It doesn't yet
+ *  support seeking (allowed by zlib but slow/limited), putback and read/write
+ *  access *  (tricky). Otherwise, it attempts to be a drop-in replacement for
+ *  the standard file streambuf.
 */
 class gzfilebuf : public std::streambuf
 {
@@ -457,28 +457,28 @@
  *  as base for the setcompression(int,int) manipulator.
 */
 template<typename T1, typename T2>
-  class gzomanip2
-  {
-  public:
-    // Allows insertor to peek at internals
-    template <typename Ta, typename Tb>
-      friend gzofstream&
-      operator<<(gzofstream&,
-                 const gzomanip2<Ta,Tb>&);
+class gzomanip2
+{
+public:
+  // Allows insertor to peek at internals
+  template <typename Ta, typename Tb>
+  friend gzofstream&
+  operator<<(gzofstream&,
+             const gzomanip2<Ta,Tb>&);
 
-    // Constructor
-    gzomanip2 (gzofstream& (*f)(gzofstream&, T1, T2),
-               T1 v1,
-               T2 v2);
-  private:
-    // Underlying manipulator function
-    gzofstream&
-    (*func)(gzofstream&, T1, T2);
+  // Constructor
+  gzomanip2 (gzofstream& (*f)(gzofstream&, T1, T2),
+             T1 v1,
+             T2 v2);
+private:
+  // Underlying manipulator function
+  gzofstream&
+  (*func)(gzofstream&, T1, T2);
 
-    // Arguments for manipulator function
-    T1 val1;
-    T2 val2;
-  };
+  // Arguments for manipulator function
+  T1 val1;
+  T2 val2;
+};
 
 /*****************************************************************************/
 
@@ -492,18 +492,18 @@
 
 // Manipulator constructor stores arguments
 template<typename T1, typename T2>
-  inline
-  gzomanip2<T1,T2>::gzomanip2 (gzofstream &(*f)(gzofstream &, T1, T2),
-                               T1 v1,
-                               T2 v2)
+inline
+gzomanip2<T1,T2>::gzomanip2 (gzofstream &(*f)(gzofstream &, T1, T2),
+                             T1 v1,
+                             T2 v2)
   : func(f), val1(v1), val2(v2)
-  { }
+{ }
 
 // Insertor applies underlying manipulator function to stream
 template<typename T1, typename T2>
-  inline gzofstream&
-  operator<<(gzofstream& s, const gzomanip2<T1,T2>& m)
-  { return (*m.func)(s, m.val1, m.val2); }
+inline gzofstream&
+operator<<(gzofstream& s, const gzomanip2<T1,T2>& m)
+{ return (*m.func)(s, m.val1, m.val2); }
 
 // Insert this onto stream to simplify setting of compression level
 inline gzomanip2<int,int>
--- a/libinterp/dldfcn/__delaunayn__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__delaunayn__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -146,7 +146,7 @@
           return retval;
         }
 
-      int exitcode = qh_new_qhull (dim, n, pt_array, 
+      int exitcode = qh_new_qhull (dim, n, pt_array,
                                    ismalloc, flags, outfile, errfile);
       if (! exitcode)
         {
--- a/libinterp/dldfcn/__dsearchn__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__dsearchn__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -35,7 +35,7 @@
 #include "oct-obj.h"
 
 DEFUN_DLD (__dsearchn__, args, ,
-        "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{idx}, @var{d}] =} dsearch (@var{x}, @var{xi})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/dldfcn/__eigs__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__eigs__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -130,7 +130,7 @@
 }
 
 DEFUN_DLD (__eigs__, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{d} =} __eigs__ (@var{A})\n\
 @deftypefnx {Loadable Function} {@var{d} =} __eigs__ (@var{A}, @var{k})\n\
 @deftypefnx {Loadable Function} {@var{d} =} __eigs__ (@var{A}, @var{k}, @var{sigma})\n\
@@ -437,30 +437,34 @@
 
           if (have_a_fun)
             nconv = EigsComplexNonSymmetricFunc
-              (eigs_complex_func, n, typ, sigma, k, p, info, eig_vec, eig_val,
-               cresid, octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                    (eigs_complex_func, n, typ, sigma, k, p, info, eig_vec,
+                     eig_val, cresid, octave_stdout, tol, (nargout > 1), cholB,
+                     disp, maxit);
           else if (have_sigma)
             {
               if (a_is_sparse)
                 nconv = EigsComplexNonSymmetricMatrixShift
-                  (ascm, sigma, k, p, info, eig_vec, eig_val, bscm, permB,
-                   cresid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                   maxit);
+                        (ascm, sigma, k, p, info, eig_vec, eig_val, bscm, permB,
+                         cresid, octave_stdout, tol, (nargout > 1), cholB, disp,
+                         maxit);
               else
                 nconv = EigsComplexNonSymmetricMatrixShift
-                  (acm, sigma, k, p, info, eig_vec, eig_val, bcm, permB, cresid,
-                   octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                        (acm, sigma, k, p, info, eig_vec, eig_val, bcm, permB,
+                         cresid, octave_stdout, tol, (nargout > 1), cholB, disp,
+                         maxit);
             }
           else
             {
               if (a_is_sparse)
                 nconv = EigsComplexNonSymmetricMatrix
-                  (ascm, typ, k, p, info, eig_vec, eig_val, bscm, permB, cresid,
-                   octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                        (ascm, typ, k, p, info, eig_vec, eig_val, bscm, permB,
+                         cresid, octave_stdout, tol, (nargout > 1), cholB, disp,
+                         maxit);
               else
                 nconv = EigsComplexNonSymmetricMatrix
-                  (acm, typ, k, p, info, eig_vec, eig_val, bcm, permB, cresid,
-                   octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                        (acm, typ, k, p, info, eig_vec, eig_val, bcm, permB,
+                         cresid, octave_stdout, tol, (nargout > 1), cholB, disp,
+                         maxit);
             }
 
           if (nargout < 2)
@@ -480,20 +484,21 @@
 
           if (have_a_fun)
             nconv = EigsComplexNonSymmetricFunc
-              (eigs_complex_func, n, typ,  sigma, k, p, info, eig_vec, eig_val,
-               cresid, octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                    (eigs_complex_func, n, typ,  sigma, k, p, info, eig_vec,
+                     eig_val, cresid, octave_stdout, tol, (nargout > 1), cholB,
+                     disp, maxit);
           else
             {
               if (a_is_sparse)
                 nconv = EigsComplexNonSymmetricMatrixShift
-                  (SparseComplexMatrix (asmm), sigma, k, p, info, eig_vec,
-                   eig_val, SparseComplexMatrix (bsmm), permB, cresid,
-                   octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                        (SparseComplexMatrix (asmm), sigma, k, p, info, eig_vec,
+                         eig_val, SparseComplexMatrix (bsmm), permB, cresid,
+                         octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
               else
                 nconv = EigsComplexNonSymmetricMatrixShift
-                  (ComplexMatrix (amm), sigma, k, p, info, eig_vec,
-                   eig_val, ComplexMatrix (bmm), permB, cresid,
-                   octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
+                        (ComplexMatrix (amm), sigma, k, p, info, eig_vec,
+                         eig_val, ComplexMatrix (bmm), permB, cresid,
+                         octave_stdout, tol, (nargout > 1), cholB, disp, maxit);
             }
 
           if (nargout < 2)
@@ -514,34 +519,34 @@
 
               if (have_a_fun)
                 nconv = EigsRealSymmetricFunc
-                  (eigs_func, n, typ, sigmar, k, p, info, eig_vec, eig_val,
-                   resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                   maxit);
+                        (eigs_func, n, typ, sigmar, k, p, info, eig_vec,
+                         eig_val, resid, octave_stdout, tol, (nargout > 1),
+                         cholB, disp, maxit);
               else if (have_sigma)
                 {
                   if (a_is_sparse)
                     nconv = EigsRealSymmetricMatrixShift
-                      (asmm, sigmar, k, p, info, eig_vec, eig_val, bsmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (asmm, sigmar, k, p, info, eig_vec, eig_val, bsmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1),
+                             cholB, disp, maxit);
                   else
                     nconv = EigsRealSymmetricMatrixShift
-                      (amm, sigmar, k, p, info, eig_vec, eig_val, bmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (amm, sigmar, k, p, info, eig_vec, eig_val, bmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1),
+                             cholB, disp, maxit);
                 }
               else
                 {
                   if (a_is_sparse)
                     nconv = EigsRealSymmetricMatrix
-                      (asmm, typ, k, p, info, eig_vec, eig_val, bsmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (asmm, typ, k, p, info, eig_vec, eig_val, bsmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1),
+                             cholB, disp, maxit);
                   else
                     nconv = EigsRealSymmetricMatrix
-                      (amm, typ, k, p, info, eig_vec, eig_val, bmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (amm, typ, k, p, info, eig_vec, eig_val, bmm, permB,
+                             resid, octave_stdout, tol, (nargout > 1), cholB,
+                             disp, maxit);
                 }
 
               if (nargout < 2)
@@ -560,34 +565,34 @@
 
               if (have_a_fun)
                 nconv = EigsRealNonSymmetricFunc
-                  (eigs_func, n, typ, sigmar, k, p, info, eig_vec, eig_val,
-                   resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                   maxit);
+                        (eigs_func, n, typ, sigmar, k, p, info, eig_vec,
+                         eig_val, resid, octave_stdout, tol, (nargout > 1),
+                         cholB, disp, maxit);
               else if (have_sigma)
                 {
                   if (a_is_sparse)
                     nconv = EigsRealNonSymmetricMatrixShift
-                      (asmm, sigmar, k, p, info, eig_vec, eig_val, bsmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (asmm, sigmar, k, p, info, eig_vec, eig_val, bsmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1), 
+                             cholB, disp, maxit);
                   else
                     nconv = EigsRealNonSymmetricMatrixShift
-                      (amm, sigmar, k, p, info, eig_vec, eig_val, bmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (amm, sigmar, k, p, info, eig_vec, eig_val, bmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1),
+                             cholB, disp, maxit);
                 }
               else
                 {
                   if (a_is_sparse)
                     nconv = EigsRealNonSymmetricMatrix
-                      (asmm, typ, k, p, info, eig_vec, eig_val, bsmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (asmm, typ, k, p, info, eig_vec, eig_val, bsmm,
+                             permB, resid, octave_stdout, tol, (nargout > 1),
+                             cholB, disp, maxit);
                   else
                     nconv = EigsRealNonSymmetricMatrix
-                      (amm, typ, k, p, info, eig_vec, eig_val, bmm, permB,
-                       resid, octave_stdout, tol, (nargout > 1), cholB, disp,
-                       maxit);
+                            (amm, typ, k, p, info, eig_vec, eig_val, bmm, permB,
+                             resid, octave_stdout, tol, (nargout > 1), cholB,
+                             disp, maxit);
                 }
 
               if (nargout < 2)
--- a/libinterp/dldfcn/__fltk_uigetfile__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__fltk_uigetfile__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
 #include "file-ops.h"
 
 DEFUN_DLD (__fltk_uigetfile__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __fltk_uigetfile__ (@dots{})\n\
 Undocumented internal function.\n\
 @end deftypefn")
--- a/libinterp/dldfcn/__glpk__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__glpk__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -292,9 +292,9 @@
       *time = (clock () - t_start) / CLOCKS_PER_SEC;
     }
 
-   glp_delete_prob (lp);
+  glp_delete_prob (lp);
 
-   return errnum;
+  return errnum;
 }
 
 #endif
@@ -352,7 +352,7 @@
   while (0)
 
 DEFUN_DLD (__glpk__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{values}] =} __glpk__ (@var{args})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -481,15 +481,15 @@
   //-- LB argument, default: Free
   Array<int> freeLB (dim_vector (mrowsc, 1));
   for (int i = 0; i < mrowsc; i++)
-     {
-       if (xisinf (lb[i]))
-         {
-           freeLB(i) = 1;
-           lb[i] = -octave_Inf;
-         }
-       else
-         freeLB(i) = 0;
-     }
+    {
+      if (xisinf (lb[i]))
+        {
+          freeLB(i) = 1;
+          lb[i] = -octave_Inf;
+        }
+      else
+        freeLB(i) = 0;
+    }
 
   //-- 5th Input. An array of at least length numcols containing the upper
   //--            bound on each of the variables.
@@ -724,9 +724,9 @@
     errnum = glpk (sense, mrowsc, mrowsA, c, nz, rn.fortran_vec (),
                    cn.fortran_vec (), a.fortran_vec (), b, ctype,
                    freeLB.fortran_vec (), lb, freeUB.fortran_vec (), ub,
-                   vartype.fortran_vec (), isMIP, lpsolver, save_pb, scale, &par,
-                   xmin.fortran_vec (), &fmin, &status, lambda.fortran_vec (),
-                   redcosts.fortran_vec (), &time);
+                   vartype.fortran_vec (), isMIP, lpsolver, save_pb, scale,
+                   &par, xmin.fortran_vec (), &fmin, &status,
+                   lambda.fortran_vec (), redcosts.fortran_vec (), &time);
 
   octave_scalar_map extra;
 
--- a/libinterp/dldfcn/__init_fltk__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__init_fltk__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -29,7 +29,7 @@
 
 */
 
-// PKG_ADD: if (__have_fltk__ ()) register_graphics_toolkit ("fltk"); endif
+// PKG_ADD: if (__have_fltk__ () && have_window_system ()) register_graphics_toolkit ("fltk"); endif
 
 #ifdef HAVE_CONFIG_H
 #include <config.h>
@@ -180,6 +180,7 @@
 
     if (print_mode)
       {
+#ifdef HAVE_GL2PS_H
         FILE *fp = octave_popen (print_cmd.c_str (), "w");
         glps_renderer rend (fp, print_term);
 
@@ -187,6 +188,11 @@
 
         octave_pclose (fp);
         print_mode = false;
+#else
+        print_mode = false;
+        error ("fltk: printing not available without gl2ps library");
+        return;
+#endif
       }
     else
       {
@@ -260,119 +266,120 @@
 static enum { pan_zoom, rotate_zoom, none } gui_mode;
 
 void script_cb (Fl_Widget*, void* data)
-  {
-    static_cast<uimenu::properties*> (data)->execute_callback ();
-  }
+{
+  static_cast<uimenu::properties*> (data)->execute_callback ();
+}
 
 
 class fltk_uimenu
 {
 public:
   fltk_uimenu (int xx, int yy, int ww, int hh)
-    {
-      menubar = new
-        Fl_Menu_Bar (xx, yy, ww, hh);
-    }
+  {
+    menubar = new
+    Fl_Menu_Bar (xx, yy, ww, hh);
+  }
 
   int items_to_show (void)
-    {
-      //returns the number of visible menu items
-      int len = menubar->size ();
-      int n = 0;
-      for (int t = 0; t < len; t++ )
-        {
-          const Fl_Menu_Item *m = static_cast<const Fl_Menu_Item*> (&(menubar->menu ()[t]));
-          if ((m->label () != NULL) && m->visible ())
-            n++;
-        }
+  {
+    //returns the number of visible menu items
+    int len = menubar->size ();
+    int n = 0;
+    for (int t = 0; t < len; t++ )
+      {
+        const Fl_Menu_Item *m = static_cast<const Fl_Menu_Item*> (&
+                                (menubar->menu ()[t]));
+        if ((m->label () != NULL) && m->visible ())
+          n++;
+      }
 
-      return n;
-    }
+    return n;
+  }
 
   void show (void)
-    {
-      menubar->show ();
-    }
+  {
+    menubar->show ();
+  }
 
   void hide (void)
-    {
-      menubar->hide ();
-    }
+  {
+    menubar->hide ();
+  }
 
-   bool is_visible (void)
-    {
-      return menubar->visible ();
-    }
+  bool is_visible (void)
+  {
+    return menubar->visible ();
+  }
 
   int find_index_by_name (const std::string& findname)
-    {
-      // This function is derived from Greg Ercolano's function
-      // int GetIndexByName(...), see:
-      // http://seriss.com/people/erco/fltk/#Menu_ChangeLabel
-      // He agreed via PM that it can be included in octave using GPLv3
-      // Kai Habel (14.10.2010)
+  {
+    // This function is derived from Greg Ercolano's function
+    // int GetIndexByName(...), see:
+    // http://seriss.com/people/erco/fltk/#Menu_ChangeLabel
+    // He agreed via PM that it can be included in octave using GPLv3
+    // Kai Habel (14.10.2010)
 
-      std::string menupath;
-      for (int t = 0; t < menubar->size (); t++ )
-        {
-          Fl_Menu_Item *m = const_cast<Fl_Menu_Item*> (&(menubar->menu ()[t]));
-          if (m->submenu ())
-            {
-              // item has submenu
-              if (!menupath.empty ())
-                menupath += "/";
-              menupath += m->label ();
+    std::string menupath;
+    for (int t = 0; t < menubar->size (); t++ )
+      {
+        Fl_Menu_Item *m = const_cast<Fl_Menu_Item*> (&(menubar->menu ()[t]));
+        if (m->submenu ())
+          {
+            // item has submenu
+            if (!menupath.empty ())
+              menupath += "/";
+            menupath += m->label ();
 
-              if (menupath.compare (findname) == 0 )
-                return (t);
-            }
-          else
-            {
-              // End of submenu? Pop back one level.
-              if (m->label () == NULL)
-                {
-                  std::size_t idx = menupath.find_last_of ("/");
-                  if (idx != std::string::npos)
-                    menupath.erase (idx);
-                  else
-                    menupath.clear ();
-                  continue;
-                }
-              // Menu item?
-              std::string itempath = menupath;
-              if (!itempath.empty ())
-                itempath += "/";
-              itempath += m->label ();
+            if (menupath.compare (findname) == 0 )
+              return (t);
+          }
+        else
+          {
+            // End of submenu? Pop back one level.
+            if (m->label () == NULL)
+              {
+                std::size_t idx = menupath.find_last_of ("/");
+                if (idx != std::string::npos)
+                  menupath.erase (idx);
+                else
+                  menupath.clear ();
+                continue;
+              }
+            // Menu item?
+            std::string itempath = menupath;
+            if (!itempath.empty ())
+              itempath += "/";
+            itempath += m->label ();
 
-              if (itempath.compare (findname) == 0)
-                return (t);
-            }
-        }
-      return (-1);
-    }
+            if (itempath.compare (findname) == 0)
+              return (t);
+          }
+      }
+    return (-1);
+  }
 
   Matrix find_uimenu_children (uimenu::properties& uimenup) const
-    {
-      Matrix uimenu_childs = uimenup.get_all_children ();
-      Matrix retval = do_find_uimenu_children (uimenu_childs);
-      return retval;
-    }
+  {
+    Matrix uimenu_childs = uimenup.get_all_children ();
+    Matrix retval = do_find_uimenu_children (uimenu_childs);
+    return retval;
+  }
 
   Matrix find_uimenu_children (figure::properties& figp) const
-    {
-      Matrix uimenu_childs = figp.get_all_children ();
-      Matrix retval = do_find_uimenu_children (uimenu_childs);
-      return retval;
-    }
+  {
+    Matrix uimenu_childs = figp.get_all_children ();
+    Matrix retval = do_find_uimenu_children (uimenu_childs);
+    return retval;
+  }
 
   Matrix do_find_uimenu_children (Matrix uimenu_childs) const
-    {
-      octave_idx_type k = 0;
+  {
+    octave_idx_type k = 0;
 
 
-      Matrix pos = Matrix (uimenu_childs.numel (), 1);
+    Matrix pos = Matrix (uimenu_childs.numel (), 1);
 
-      for (octave_idx_type ii = 0; ii < uimenu_childs.numel (); ii++)
+    for (octave_idx_type ii = 0; ii < uimenu_childs.numel (); ii++)
       {
         graphics_object kidgo = gh_manager::get_object (uimenu_childs (ii));
 
@@ -380,271 +387,280 @@
           {
             uimenu_childs(k) = uimenu_childs(ii);
             pos(k++) =
-              dynamic_cast<uimenu::properties&> (kidgo.get_properties ()).get_position ();
+              dynamic_cast<uimenu::properties&>
+              (kidgo.get_properties ()).get_position ();
           }
       }
 
-      uimenu_childs.resize (k, 1);
-      pos.resize (k, 1);
-      Matrix retval = Matrix (k, 1);
-      // Don't know if this is the best method to sort.
-      // Can we avoid the for loop?
-      Array<octave_idx_type> sidx = pos.sort_rows_idx (DESCENDING);
-      for (octave_idx_type ii = 0; ii < k; ii++)
-        retval(ii) = uimenu_childs (sidx(ii));
+    uimenu_childs.resize (k, 1);
+    pos.resize (k, 1);
+    Matrix retval = Matrix (k, 1);
+    // Don't know if this is the best method to sort.
+    // Can we avoid the for loop?
+    Array<octave_idx_type> sidx = pos.sort_rows_idx (DESCENDING);
+    for (octave_idx_type ii = 0; ii < k; ii++)
+      retval(ii) = uimenu_childs (sidx(ii));
 
-      return retval;
-    }
+    return retval;
+  }
 
   void delete_entry (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      int idx = find_index_by_name (fltk_label.c_str ());
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    int idx = find_index_by_name (fltk_label.c_str ());
 
-      if (idx >= 0)
-        menubar->remove (idx);
-    }
+    if (idx >= 0)
+      menubar->remove (idx);
+  }
 
   void update_accelerator (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
-          if (item != NULL)
-            {
-              std::string acc = uimenup.get_accelerator ();
-              if (acc.length () > 0)
-                {
-                  int key = FL_CTRL + acc[0];
-                  item->shortcut (key);
-                }
-            }
-        }
-    }
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (
+                               fltk_label.c_str ()));
+        if (item != NULL)
+          {
+            std::string acc = uimenup.get_accelerator ();
+            if (acc.length () > 0)
+              {
+                int key = FL_CTRL + acc[0];
+                item->shortcut (key);
+              }
+          }
+      }
+  }
 
   void update_callback (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
-          if (item != NULL)
-            {
-              if (!uimenup.get_callback ().is_empty ())
-                item->callback (static_cast<Fl_Callback*> (script_cb),
-                                static_cast<void*> (&uimenup));
-              else
-                item->callback (NULL, static_cast<void*> (0));
-            }
-        }
-    }
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (
+                               fltk_label.c_str ()));
+        if (item != NULL)
+          {
+            if (!uimenup.get_callback ().is_empty ())
+              item->callback (static_cast<Fl_Callback*> (script_cb),
+                              static_cast<void*> (&uimenup));
+            else
+              item->callback (NULL, static_cast<void*> (0));
+          }
+      }
+  }
 
   void update_enable (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
-          if (item != NULL)
-            {
-              if (uimenup.is_enable ())
-                item->activate ();
-              else
-                item->deactivate ();
-            }
-        }
-    }
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (
+                               fltk_label.c_str ()));
+        if (item != NULL)
+          {
+            if (uimenup.is_enable ())
+              item->activate ();
+            else
+              item->deactivate ();
+          }
+      }
+  }
 
   void update_foregroundcolor (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
-          if (item != NULL)
-            {
-              Matrix rgb = uimenup.get_foregroundcolor_rgb ();
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (menubar->find_item (
+                               fltk_label.c_str ()));
+        if (item != NULL)
+          {
+            Matrix rgb = uimenup.get_foregroundcolor_rgb ();
 
-              uchar r = static_cast<uchar> (gnulib::floor (rgb (0) * 255));
-              uchar g = static_cast<uchar> (gnulib::floor (rgb (1) * 255));
-              uchar b = static_cast<uchar> (gnulib::floor (rgb (2) * 255));
+            uchar r = static_cast<uchar> (gnulib::floor (rgb (0) * 255));
+            uchar g = static_cast<uchar> (gnulib::floor (rgb (1) * 255));
+            uchar b = static_cast<uchar> (gnulib::floor (rgb (2) * 255));
 
-              item->labelcolor (fl_rgb_color (r, g, b));
-            }
-        }
-    }
+            item->labelcolor (fl_rgb_color (r, g, b));
+          }
+      }
+  }
 
   void update_seperator (const uimenu::properties& uimenup)
-    {
-      // Matlab places the separator before the current
-      // menu entry, while fltk places it after. So we need to find
-      // the previous item in this menu/submenu. (Kai)
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          int itemflags = 0, idx;
-          int curr_idx = find_index_by_name (fltk_label.c_str ());
+  {
+    // Matlab places the separator before the current
+    // menu entry, while fltk places it after. So we need to find
+    // the previous item in this menu/submenu. (Kai)
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        int itemflags = 0, idx;
+        int curr_idx = find_index_by_name (fltk_label.c_str ());
 
-          for (idx = curr_idx - 1; idx >= 0; idx--)
-            {
-              Fl_Menu_Item* item = const_cast<Fl_Menu_Item*> (&menubar->menu () [idx]);
-              itemflags = item->flags;
-              if (item->label () != NULL)
-                break;
-            }
+        for (idx = curr_idx - 1; idx >= 0; idx--)
+          {
+            Fl_Menu_Item* item
+              = const_cast<Fl_Menu_Item*> (&menubar->menu () [idx]);
+            itemflags = item->flags;
+            if (item->label () != NULL)
+              break;
+          }
 
-          if (idx >= 0 && idx < menubar->size ())
-            {
-              if (uimenup.is_separator ())
-                {
-                  if (idx >= 0 && !(itemflags & FL_SUBMENU))
-                    menubar->mode (idx, itemflags | FL_MENU_DIVIDER);
-                }
-              else
-                menubar->mode (idx, itemflags & (~FL_MENU_DIVIDER));
-            }
-        }
-    }
+        if (idx >= 0 && idx < menubar->size ())
+          {
+            if (uimenup.is_separator ())
+              {
+                if (idx >= 0 && !(itemflags & FL_SUBMENU))
+                  menubar->mode (idx, itemflags | FL_MENU_DIVIDER);
+              }
+            else
+              menubar->mode (idx, itemflags & (~FL_MENU_DIVIDER));
+          }
+      }
+  }
 
   void update_visible (uimenu::properties& uimenup)
-    {
-      std::string fltk_label = uimenup.get_fltk_label ();
-      if (!fltk_label.empty ())
-        {
-          Fl_Menu_Item* item
-            = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
-          if (item != NULL)
-            {
-              if (uimenup.is_visible ())
-                item->show ();
-              else
-                item->hide ();
-            }
-        }
-    }
+  {
+    std::string fltk_label = uimenup.get_fltk_label ();
+    if (!fltk_label.empty ())
+      {
+        Fl_Menu_Item* item
+          = const_cast<Fl_Menu_Item*> (menubar->find_item (fltk_label.c_str ()));
+        if (item != NULL)
+          {
+            if (uimenup.is_visible ())
+              item->show ();
+            else
+              item->hide ();
+          }
+      }
+  }
 
   void add_entry (uimenu::properties& uimenup)
-    {
+  {
 
-      std::string fltk_label = uimenup.get_fltk_label ();
+    std::string fltk_label = uimenup.get_fltk_label ();
 
-      if (!fltk_label.empty ())
-        {
-          bool item_added = false;
-          do
-            {
-              const Fl_Menu_Item* item
-                = menubar->find_item (fltk_label.c_str ());
+    if (!fltk_label.empty ())
+      {
+        bool item_added = false;
+        do
+          {
+            const Fl_Menu_Item* item
+              = menubar->find_item (fltk_label.c_str ());
 
-              if (item == NULL)
-                {
-                  Matrix uimenu_ch = find_uimenu_children (uimenup);
-                  int len = uimenu_ch.numel ();
-                  int flags = 0;
-                  if (len > 0)
-                    flags = FL_SUBMENU;
-                  if (len == 0 && uimenup.is_checked ())
-                    flags += FL_MENU_TOGGLE + FL_MENU_VALUE;
-                  menubar->add (fltk_label.c_str (), 0, 0, 0, flags);
-                  item_added = true;
-                }
-              else
-                {
-                  //avoid duplicate menulabels
-                  std::size_t idx1 = fltk_label.find_last_of ("(");
-                  std::size_t idx2 = fltk_label.find_last_of (")");
-                  int len = idx2 - idx1;
-                  int val = 1;
-                  if (len > 0)
-                    {
-                      std::string valstr = fltk_label.substr (idx1 + 1, len - 1);
-                      fltk_label.erase (idx1, len + 1);
-                      val = atoi (valstr.c_str ());
-                      if (val > 0 && val < 99)
-                        val++;
-                    }
-                  std::ostringstream valstream;
-                  valstream << val;
-                  fltk_label += "(" + valstream.str () + ")";
-                }
-            }
-          while (!item_added);
-          uimenup.set_fltk_label (fltk_label);
-        }
-    }
+            if (item == NULL)
+              {
+                Matrix uimenu_ch = find_uimenu_children (uimenup);
+                int len = uimenu_ch.numel ();
+                int flags = 0;
+                if (len > 0)
+                  flags = FL_SUBMENU;
+                if (len == 0 && uimenup.is_checked ())
+                  flags += FL_MENU_TOGGLE + FL_MENU_VALUE;
+                menubar->add (fltk_label.c_str (), 0, 0, 0, flags);
+                item_added = true;
+              }
+            else
+              {
+                //avoid duplicate menulabels
+                std::size_t idx1 = fltk_label.find_last_of ("(");
+                std::size_t idx2 = fltk_label.find_last_of (")");
+                int len = idx2 - idx1;
+                int val = 1;
+                if (len > 0)
+                  {
+                    std::string valstr = fltk_label.substr (idx1 + 1, len - 1);
+                    fltk_label.erase (idx1, len + 1);
+                    val = atoi (valstr.c_str ());
+                    if (val > 0 && val < 99)
+                      val++;
+                  }
+                std::ostringstream valstream;
+                valstream << val;
+                fltk_label += "(" + valstream.str () + ")";
+              }
+          }
+        while (!item_added);
+        uimenup.set_fltk_label (fltk_label);
+      }
+  }
 
   void add_to_menu (uimenu::properties& uimenup)
-    {
-      Matrix kids = find_uimenu_children (uimenup);
-      int len = kids.length ();
-      std::string fltk_label = uimenup.get_fltk_label ();
+  {
+    Matrix kids = find_uimenu_children (uimenup);
+    int len = kids.length ();
+    std::string fltk_label = uimenup.get_fltk_label ();
 
-      add_entry (uimenup);
-      update_foregroundcolor (uimenup);
-      update_callback (uimenup);
-      update_accelerator (uimenup);
-      update_enable (uimenup);
-      update_visible (uimenup);
-      update_seperator (uimenup);
+    add_entry (uimenup);
+    update_foregroundcolor (uimenup);
+    update_callback (uimenup);
+    update_accelerator (uimenup);
+    update_enable (uimenup);
+    update_visible (uimenup);
+    update_seperator (uimenup);
 
-      for (octave_idx_type ii = 0; ii < len; ii++)
-        {
-          graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
-          if (kgo.valid_object ())
-            {
-              uimenu::properties& kprop = dynamic_cast<uimenu::properties&> (kgo.get_properties ());
-              add_to_menu (kprop);
-            }
-        }
-    }
+    for (octave_idx_type ii = 0; ii < len; ii++)
+      {
+        graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
+        if (kgo.valid_object ())
+          {
+            uimenu::properties& kprop = dynamic_cast<uimenu::properties&>
+                                        (kgo.get_properties ());
+            add_to_menu (kprop);
+          }
+      }
+  }
 
   void add_to_menu (figure::properties& figp)
-    {
-      Matrix kids = find_uimenu_children (figp);
-      int len = kids.length ();
-      menubar->clear ();
-      for (octave_idx_type ii = 0; ii < len; ii++)
-        {
-          graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
+  {
+    Matrix kids = find_uimenu_children (figp);
+    int len = kids.length ();
+    menubar->clear ();
+    for (octave_idx_type ii = 0; ii < len; ii++)
+      {
+        graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
 
-          if (kgo.valid_object ())
-            {
-              uimenu::properties& kprop = dynamic_cast<uimenu::properties&> (kgo.get_properties ());
-              add_to_menu (kprop);
-            }
-        }
-    }
+        if (kgo.valid_object ())
+          {
+            uimenu::properties& kprop = dynamic_cast<uimenu::properties&>
+                                        (kgo.get_properties ());
+            add_to_menu (kprop);
+          }
+      }
+  }
 
   template <class T_prop>
   void remove_from_menu (T_prop& prop)
-    {
-      Matrix kids;
-      std::string type = prop.get_type ();
-      kids = find_uimenu_children (prop);
-      int len = kids.length ();
+  {
+    Matrix kids;
+    std::string type = prop.get_type ();
+    kids = find_uimenu_children (prop);
+    int len = kids.length ();
 
-      for (octave_idx_type ii = 0; ii < len; ii++)
-        {
-          graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
+    for (octave_idx_type ii = 0; ii < len; ii++)
+      {
+        graphics_object kgo = gh_manager::get_object (kids (len - (ii + 1)));
 
-          if (kgo.valid_object ())
-            {
-              uimenu::properties kprop = dynamic_cast<uimenu::properties&> (kgo.get_properties ());
-              remove_from_menu (kprop);
-            }
-        }
+        if (kgo.valid_object ())
+          {
+            uimenu::properties kprop = dynamic_cast<uimenu::properties&>
+                                       (kgo.get_properties ());
+            remove_from_menu (kprop);
+          }
+      }
 
-      if (type.compare ("uimenu") == 0)
-        delete_entry (dynamic_cast<uimenu::properties&> (prop));
-      else if (type.compare ("figure") == 0)
-        menubar->clear ();
-    }
+    if (type.compare ("uimenu") == 0)
+      delete_entry (dynamic_cast<uimenu::properties&> (prop));
+    else if (type.compare ("figure") == 0)
+      menubar->clear ();
+  }
 
   ~fltk_uimenu (void)
-    {
-      delete menubar;
-    }
+  {
+    delete menubar;
+  }
 
 private:
 
@@ -1086,20 +1102,20 @@
 
   void view2status (graphics_object ax)
   {
-     if (ax && ax.isa ("axes"))
-       {
-         axes::properties& ap =
-           dynamic_cast<axes::properties&> (ax.get_properties ());
-         std::stringstream cbuf;
-         cbuf.precision (4);
-         cbuf.width (6);
-         Matrix v (1,2,0);
-         v = ap.get ("view").matrix_value ();
-         cbuf << "[azimuth: " << v(0) << ", elevation: " << v(1) << "]";
+    if (ax && ax.isa ("axes"))
+      {
+        axes::properties& ap =
+          dynamic_cast<axes::properties&> (ax.get_properties ());
+        std::stringstream cbuf;
+        cbuf.precision (4);
+        cbuf.width (6);
+        Matrix v (1,2,0);
+        v = ap.get ("view").matrix_value ();
+        cbuf << "[azimuth: " << v(0) << ", elevation: " << v(1) << "]";
 
-         status->value (cbuf.str ().c_str ());
-         status->redraw ();
-       }
+        status->value (cbuf.str ().c_str ());
+        status->redraw ();
+      }
   }
 
   void set_currentpoint (int px, int py)
@@ -1139,12 +1155,12 @@
   }
 
   int menu_dy ()
-    {
-      if (uimenu->is_visible ())
-        return menu_h;
-      else
-        return 0;
-    }
+  {
+    if (uimenu->is_visible ())
+      return menu_h;
+    else
+      return 0;
+  }
 
   int key2shift (int key)
   {
@@ -1261,22 +1277,22 @@
                 case 'a':
                 case 'A':
                   axis_auto ();
-                break;
+                  break;
 
                 case 'g':
                 case 'G':
                   toggle_grid ();
-                break;
+                  break;
 
                 case 'p':
                 case 'P':
                   gui_mode = pan_zoom;
-                break;
+                  break;
 
                 case 'r':
                 case 'R':
                   gui_mode = rotate_zoom;
-                break;
+                  break;
                 }
             }
             break;
@@ -1299,7 +1315,8 @@
             break;
 
           case FL_MOVE:
-            pixel2status (pixel2axes_or_ca (Fl::event_x (), Fl::event_y () - menu_dy ()),
+            pixel2status (pixel2axes_or_ca (Fl::event_x (),
+                                            Fl::event_y () - menu_dy ()),
                           Fl::event_x (), Fl::event_y () - menu_dy ());
             break;
 
@@ -1317,7 +1334,7 @@
                 set_axes_currentpoint (ax_obj, pos_x, pos_y);
               }
 
-            fp.execute_windowbuttondownfcn (Fl::event_button()); 
+            fp.execute_windowbuttondownfcn (Fl::event_button());
 
             if (Fl::event_button () == 1 || Fl::event_button () == 3)
               return 1;
@@ -1337,16 +1354,20 @@
                   {
                     if (gui_mode == pan_zoom)
                       pixel2status (ax_obj, pos_x, pos_y,
-                                    Fl::event_x (), Fl::event_y () - menu_dy ());
+                                    Fl::event_x (),
+                                    Fl::event_y () - menu_dy ());
                     else
                       view2status (ax_obj);
                     axes::properties& ap =
-                      dynamic_cast<axes::properties&> (ax_obj.get_properties ());
+                      dynamic_cast<axes::properties&>
+                      (ax_obj.get_properties ());
 
                     double x0, y0, x1, y1;
                     Matrix pos = fp.get_boundingbox (true);
                     pixel2pos (ax_obj, pos_x, pos_y, x0, y0);
-                    pixel2pos (ax_obj, Fl::event_x (), Fl::event_y () - menu_dy (), x1, y1);
+                    pixel2pos (ax_obj, Fl::event_x (),
+                                       Fl::event_y () - menu_dy (),
+                                       x1, y1);
 
                     if (gui_mode == pan_zoom)
                       ap.translate_view (x0, x1, y0, y1);
@@ -1354,7 +1375,8 @@
                       {
                         double daz, del;
                         daz = (Fl::event_x () - pos_x) / pos(2) * 360;
-                        del = (Fl::event_y () - menu_dy () - pos_y) / pos(3) * 360;
+                        del = (Fl::event_y () - menu_dy () - pos_y)
+                              / pos(3) * 360;
                         ap.rotate_view (del, daz);
                       }
 
@@ -1384,7 +1406,8 @@
             {
               graphics_object ax =
                 gh_manager::get_object (pixel2axes_or_ca (Fl::event_x (),
-                                                          Fl::event_y () - menu_dy ()));
+                                                          Fl::event_y ()
+                                                          - menu_dy ()));
               if (ax && ax.isa ("axes"))
                 {
                   axes::properties& ap =
@@ -1397,13 +1420,14 @@
 
                   // Get the point we're zooming about.
                   double x1, y1;
-                  pixel2pos (ax, Fl::event_x (), Fl::event_y () - menu_dy (), x1, y1);
+                  pixel2pos (ax, Fl::event_x (), Fl::event_y () - menu_dy (),
+                             x1, y1);
 
                   ap.zoom_about_point (x1, y1, factor, false);
                   mark_modified ();
                 }
             }
-          return 1;
+            return 1;
 
           case FL_RELEASE:
             if (fp.get_windowbuttonupfcn ().is_defined ())
@@ -1418,8 +1442,8 @@
                   {
                     if (ax_obj && ax_obj.isa ("axes"))
                       {
-                        axes::properties& ap =
-                          dynamic_cast<axes::properties&> (ax_obj.get_properties ());
+                        axes::properties& ap = dynamic_cast<axes::properties&>
+                                               (ax_obj.get_properties ());
                         ap.set_xlimmode ("auto");
                         ap.set_ylimmode ("auto");
                         ap.set_zlimmode ("auto");
@@ -1436,8 +1460,8 @@
                     double x0,y0,x1,y1;
                     if (ax_obj && ax_obj.isa ("axes"))
                       {
-                        axes::properties& ap =
-                          dynamic_cast<axes::properties&> (ax_obj.get_properties ());
+                        axes::properties& ap = dynamic_cast<axes::properties&>
+                                               (ax_obj.get_properties ());
                         pixel2pos (ax_obj, pos_x, pos_y, x0, y0);
                         int pos_x1 = Fl::event_x ();
                         int pos_y1 = Fl::event_y () - menu_dy ();
@@ -1848,7 +1872,7 @@
               if (fobj && fobj.isa ("figure"))
                 {
                   figure::properties& fp =
-                      dynamic_cast<figure::properties&> (fobj.get_properties ());
+                    dynamic_cast<figure::properties&> (fobj.get_properties ());
                   if (fp.get___graphics_toolkit__ ()
                       == FLTK_GRAPHICS_TOOLKIT_NAME)
                     figure_manager::new_window (fp);
@@ -1910,9 +1934,10 @@
         std::string fltk_label = uimenup.get_label ();
         graphics_object go = gh_manager::get_object (uimenu_obj.get_parent ());
         if (go.isa ("uimenu"))
-          fltk_label = dynamic_cast<const uimenu::properties&> (go.get_properties ()).get_fltk_label ()
-            + "/"
-            + fltk_label;
+          fltk_label = dynamic_cast<const uimenu::properties&>
+                       (go.get_properties ()).get_fltk_label ()
+                       + "/"
+                       + fltk_label;
         else if (go.isa ("figure"))
           ;
         else
@@ -1936,8 +1961,8 @@
             switch (id)
               {
               case base_properties::ID_VISIBLE:
-                figure_manager::toggle_window_visibility
-                  (ov.string_value (), fp.is_visible ());
+                figure_manager::toggle_window_visibility (ov.string_value (),
+                                                          fp.is_visible ());
                 break;
 
               case figure::properties::ID_MENUBAR:
@@ -1946,8 +1971,8 @@
                 break;
 
               case figure::properties::ID_CURRENTAXES:
-                figure_manager::update_canvas
-                  (go.get_handle (), fp.get_currentaxes ());
+                figure_manager::update_canvas (go.get_handle (),
+                                               fp.get_currentaxes ());
                 break;
 
               case figure::properties::ID_NAME:
@@ -2042,7 +2067,7 @@
 #endif
 
 DEFUN_DLD (__fltk_redraw__, , ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __fltk_redraw__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2059,7 +2084,7 @@
 // Initialize the fltk graphics toolkit.
 
 DEFUN_DLD (__init_fltk__, , ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __init_fltk__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2088,7 +2113,7 @@
 }
 
 DEFUN_DLD (__fltk_maxtime__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{maxtime} =} __fltk_maxtime__ ()\n\
 @deftypefnx {Loadable Function} {} __fltk_maxtime__ (@var{maxtime})\n\
 Undocumented internal function.\n\
@@ -2113,7 +2138,7 @@
 }
 
 DEFUN_DLD (__have_fltk__, , ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{FLTK_available} =} __have_fltk__ ()\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2137,7 +2162,7 @@
 // just changing function names and docstrings.
 
 DEFUN_DLD (mouse_wheel_zoom, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{val} =} mouse_wheel_zoom ()\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} mouse_wheel_zoom (@var{new_val})\n\
 @deftypefnx {Loadable Function} {} mouse_wheel_zoom (@var{new_val}, \"local\")\n\
@@ -2165,7 +2190,7 @@
 }
 
 DEFUN_DLD (gui_mode, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{mode} =} gui_mode ()\n\
 @deftypefnx {Built-in Function} {} gui_mode (@var{mode})\n\
 Query or set the GUI mode for the current graphics toolkit.\n\
--- a/libinterp/dldfcn/__init_gnuplot__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__init_gnuplot__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -48,83 +48,83 @@
 {
 public:
   gnuplot_graphics_toolkit (void)
-      : base_graphics_toolkit ("gnuplot") { }
+    : base_graphics_toolkit ("gnuplot") { }
 
   ~gnuplot_graphics_toolkit (void) { }
 
   bool is_valid (void) const { return true; }
 
   bool initialize (const graphics_object& go)
-    {
-      return go.isa ("figure");
-    }
+  {
+    return go.isa ("figure");
+  }
 
   void finalize (const graphics_object& go)
-    {
-      if (go.isa ("figure"))
-        {
-          const figure::properties& props =
-              dynamic_cast<const figure::properties&> (go.get_properties ());
+  {
+    if (go.isa ("figure"))
+      {
+        const figure::properties& props =
+          dynamic_cast<const figure::properties&> (go.get_properties ());
 
-          send_quit (props.get___plot_stream__ ());
-        }
-    }
+        send_quit (props.get___plot_stream__ ());
+      }
+  }
 
   void update (const graphics_object& go, int id)
-    {
-      if (go.isa ("figure"))
-        {
-          graphics_object obj (go);
+  {
+    if (go.isa ("figure"))
+      {
+        graphics_object obj (go);
 
-          figure::properties& props =
-              dynamic_cast<figure::properties&> (obj.get_properties ());
+        figure::properties& props =
+          dynamic_cast<figure::properties&> (obj.get_properties ());
 
-          switch (id)
-            {
-            case base_properties::ID_VISIBLE:
-              if (! props.is_visible ())
-                {
-                  send_quit (props.get___plot_stream__ ());
-                  props.set___plot_stream__ (Matrix ());
-                  props.set___enhanced__ (false);
-                }
-              break;
-            }
-        }
-    }
+        switch (id)
+          {
+          case base_properties::ID_VISIBLE:
+            if (! props.is_visible ())
+              {
+                send_quit (props.get___plot_stream__ ());
+                props.set___plot_stream__ (Matrix ());
+                props.set___enhanced__ (false);
+              }
+            break;
+          }
+      }
+  }
 
   void redraw_figure (const graphics_object& go) const
-    {
-      octave_value_list args;
-      args(0) = go.get_handle ().as_octave_value ();
-      feval ("__gnuplot_drawnow__", args);
-    }
+  {
+    octave_value_list args;
+    args(0) = go.get_handle ().as_octave_value ();
+    feval ("__gnuplot_drawnow__", args);
+  }
 
   void print_figure (const graphics_object& go, const std::string& term,
                      const std::string& file, bool mono,
                      const std::string& debug_file) const
-    {
-      octave_value_list args;
-      if (! debug_file.empty ())
-        args(4) = debug_file;
-      args(3) = mono;
-      args(2) = file;
-      args(1) = term;
-      args(0) = go.get_handle ().as_octave_value ();
-      feval ("__gnuplot_drawnow__", args);
-    }
+  {
+    octave_value_list args;
+    if (! debug_file.empty ())
+      args(4) = debug_file;
+    args(3) = mono;
+    args(2) = file;
+    args(1) = term;
+    args(0) = go.get_handle ().as_octave_value ();
+    feval ("__gnuplot_drawnow__", args);
+  }
 
   Matrix get_canvas_size (const graphics_handle&) const
-    {
-      Matrix sz (1, 2, 0.0);
-      return sz;
-    }
+  {
+    Matrix sz (1, 2, 0.0);
+    return sz;
+  }
 
   double get_screen_resolution (void) const
-    { return 72.0; }
+  { return 72.0; }
 
   Matrix get_screen_size (void) const
-    { return Matrix (1, 2, 0.0); }
+  { return Matrix (1, 2, 0.0); }
 
   void close (void)
   {
@@ -141,29 +141,29 @@
 private:
 
   void send_quit (const octave_value& pstream) const
-    {
-      if (! pstream.is_empty ())
-        {
-          octave_value_list args;
-          Matrix fids = pstream.matrix_value ();
+  {
+    if (! pstream.is_empty ())
+      {
+        octave_value_list args;
+        Matrix fids = pstream.matrix_value ();
 
-          if (! error_state)
-            {
-              Ffputs (ovl (fids(0), "\nquit;\n"));
+        if (! error_state)
+          {
+            Ffputs (ovl (fids(0), "\nquit;\n"));
 
-              Ffflush (ovl (fids(0)));
-              Fpclose (ovl (fids(0)));
+            Ffflush (ovl (fids(0)));
+            Fpclose (ovl (fids(0)));
 
-              if (fids.numel () > 1)
-                {
-                  Fpclose (ovl (fids(1)));
+            if (fids.numel () > 1)
+              {
+                Fpclose (ovl (fids(1)));
 
-                  if (fids.numel () > 2)
-                    Fwaitpid (ovl (fids(2)));
-                }
-            }
-        }
-    }
+                if (fids.numel () > 2)
+                  Fwaitpid (ovl (fids(2)));
+              }
+          }
+      }
+  }
 };
 
 // Initialize the fltk graphics toolkit.
--- a/libinterp/dldfcn/__magick_read__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__magick_read__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -211,12 +211,12 @@
   T img       = T (dim_vector (nRows, nCols, 1, nFrames));
   P* img_fvec = img.fortran_vec ();
 
-  const octave_idx_type row_start  = region["row_start"];
-  const octave_idx_type col_start  = region["col_start"];
-  const octave_idx_type row_shift  = region["row_shift"];
-  const octave_idx_type col_shift  = region["col_shift"];
-  const octave_idx_type row_cache  = region["row_cache"];
-  const octave_idx_type col_cache  = region["col_cache"];
+  const octave_idx_type row_start = region["row_start"];
+  const octave_idx_type col_start = region["col_start"];
+  const octave_idx_type row_shift = region["row_shift"];
+  const octave_idx_type col_shift = region["col_shift"];
+  const octave_idx_type row_cache = region["row_cache"];
+  const octave_idx_type col_cache = region["col_cache"];
 
   // When reading PixelPackets from the Image Pixel Cache, they come in
   // row major order. So we keep moving back and forth there so we can
@@ -242,7 +242,7 @@
     }
   retval(0) = octave_value (img);
 
-//   Only bother reading the colormap if it was requested as output.
+  // Only bother reading the colormap if it was requested as output.
   if (nargout > 1)
     {
       // In theory, it should be possible for each frame of an image to
@@ -303,12 +303,12 @@
   // reading to get information about the image.
   const octave_idx_type def_elem = frameidx(0);
 
-  const octave_idx_type row_start  = region["row_start"];
-  const octave_idx_type col_start  = region["col_start"];
-  const octave_idx_type row_shift  = region["row_shift"];
-  const octave_idx_type col_shift  = region["col_shift"];
-  const octave_idx_type row_cache  = region["row_cache"];
-  const octave_idx_type col_cache  = region["col_cache"];
+  const octave_idx_type row_start = region["row_start"];
+  const octave_idx_type col_start = region["col_start"];
+  const octave_idx_type row_shift = region["row_shift"];
+  const octave_idx_type col_shift = region["col_shift"];
+  const octave_idx_type row_cache = region["row_cache"];
+  const octave_idx_type col_cache = region["col_cache"];
 
   // GraphicsMagick (GM) keeps the image values in memory using whatever
   // QuantumDepth it was built with independently of the original image
@@ -362,7 +362,9 @@
       //      Grayscale + Alpha = 4
       // We won't bother with case 3 (palette) since those should be
       // read by the function to read indexed images
-      const std::string type_str = imvec[0].attribute ("PNG:IHDR.color-type-orig");
+      const std::string type_str
+        = imvec[0].attribute ("PNG:IHDR.color-type-orig");
+
       if (type_str == "0")
         type = Magick::GrayscaleType;
       else if (type_str == "2")
@@ -506,8 +508,8 @@
         break;
       }
 
-    case Magick::PaletteMatteType:      // Indexed color (palette) image with opacity
-    case Magick::TrueColorMatteType:    // Truecolor image with opacity
+    case Magick::PaletteMatteType:    // Indexed color image with opacity
+    case Magick::TrueColorMatteType:  // Truecolor image with opacity
       {
         img   = T (dim_vector (nRows, nCols, 3, nFrames));
         T alpha   (dim_vector (nRows, nCols, 1, nFrames));
@@ -547,7 +549,7 @@
         break;
       }
 
-    case Magick::ColorSeparationType:   // Cyan/Yellow/Magenta/Black (CYMK) image
+    case Magick::ColorSeparationType:  // Cyan/Magenta/Yellow/Black (CMYK) image
       {
         img   = T (dim_vector (nRows, nCols, 4, nFrames));
         P *img_fvec = img.fortran_vec ();
@@ -676,7 +678,8 @@
       const char *static_locale = setlocale (LC_ALL, NULL);
       const std::string locale (static_locale);
 
-      const std::string program_name = octave_env::get_program_invocation_name ();
+      const std::string program_name
+        = octave_env::get_program_invocation_name ();
       Magick::InitializeMagick (program_name.c_str ());
 
       // Restore locale from before GraphicsMagick initialisation
@@ -692,7 +695,7 @@
 #endif
 
 DEFUN_DLD (__magick_read__, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{img}, @var{map}, @var{alpha}] =} __magick_read__ (@var{fname}, @var{options})\n\
 Read image with GraphicsMagick or ImageMagick.\n\
 \n\
@@ -854,15 +857,15 @@
   img.depth (bitdepth);
   switch (type)
     {
-      case Magick::GrayscaleMatteType:
-      case Magick::TrueColorMatteType:
-      case Magick::ColorSeparationMatteType:
-      case Magick::PaletteMatteType:
-        img.matte (true);
-        break;
+    case Magick::GrayscaleMatteType:
+    case Magick::TrueColorMatteType:
+    case Magick::ColorSeparationMatteType:
+    case Magick::PaletteMatteType:
+      img.matte (true);
+      break;
 
-      default:
-        img.matte (false);
+    default:
+      img.matte (false);
     }
 
   return img;
@@ -914,9 +917,9 @@
       // values (no indexes), then set the image as PseudoClass and GM
       // would create a colormap for us. However, we wouldn't have control
       // over the order of that colormap. And that's why we set both.
-      Magick::PixelPacket* pix  = m_img.getPixels (0, 0, nCols, nRows);
-      Magick::IndexPacket* ind  = m_img.getIndexes ();
-      const P* img_fvec         = img.fortran_vec ();
+      Magick::PixelPacket* pix = m_img.getPixels (0, 0, nCols, nRows);
+      Magick::IndexPacket* ind = m_img.getIndexes ();
+      const P* img_fvec        = img.fortran_vec ();
 
       octave_idx_type GM_idx = 0;
       for (octave_idx_type column = 0; column < nCols; column++)
@@ -988,11 +991,11 @@
                    const T& img, const T& alpha)
 {
   typedef typename T::element_type P;
-  const octave_idx_type channels  = img.ndims () < 3 ? 1 : img.dims ()(2);
-  const octave_idx_type nFrames   = img.ndims () < 4 ? 1 : img.dims ()(3);
-  const octave_idx_type nRows     = img.rows ();
-  const octave_idx_type nCols     = img.columns ();
-  const octave_idx_type bitdepth  = bitdepth_from_class<T> ();
+  const octave_idx_type channels = img.ndims () < 3 ? 1 : img.dims ()(2);
+  const octave_idx_type nFrames  = img.ndims () < 4 ? 1 : img.dims ()(3);
+  const octave_idx_type nRows    = img.rows ();
+  const octave_idx_type nCols    = img.columns ();
+  const octave_idx_type bitdepth = bitdepth_from_class<T> ();
 
   Magick::ImageType type;
   const bool has_alpha = ! alpha.is_empty ();
@@ -1034,7 +1037,8 @@
   // From GM documentation:
   //  Color arguments are must be scaled to fit the Quantum size according to
   //  the range of MaxRGB
-  const double divisor = static_cast<double>((uint64_t (1) << bitdepth) - 1) / MaxRGB;
+  const double divisor = static_cast<double>((uint64_t (1) << bitdepth) - 1)
+                         / MaxRGB;
 
   const P *img_fvec = img.fortran_vec ();
   const P *a_fvec   = alpha.fortran_vec ();
@@ -1250,6 +1254,49 @@
   return;
 }
 
+// Meant to be shared with both imfinfo and imwrite.
+static std::map<octave_idx_type, std::string>
+init_disposal_methods ()
+{
+  //  GIF Specifications:
+  //
+  // Disposal Method - Indicates the way in which the graphic is to
+  //                    be treated after being displayed.
+  //
+  //  0 -   No disposal specified. The decoder is
+  //        not required to take any action.
+  //  1 -   Do not dispose. The graphic is to be left
+  //        in place.
+  //  2 -   Restore to background color. The area used by the
+  //        graphic must be restored to the background color.
+  //  3 -   Restore to previous. The decoder is required to
+  //        restore the area overwritten by the graphic with
+  //        what was there prior to rendering the graphic.
+  //  4-7 - To be defined.
+  static std::map<octave_idx_type, std::string> methods;
+  if (methods.empty ())
+    {
+      methods[0] = "doNotSpecify";
+      methods[1] = "leaveInPlace";
+      methods[2] = "restoreBG";
+      methods[3] = "restorePrevious";
+    }
+  return methods;
+}
+static std::map<std::string, octave_idx_type>
+init_reverse_disposal_methods ()
+{
+  static std::map<std::string, octave_idx_type> methods;
+  if (methods.empty ())
+    {
+      methods["donotspecify"]     = 0;
+      methods["leaveinplace"]     = 1;
+      methods["restorebg"]        = 2;
+      methods["restoreprevious"]  = 3;
+    }
+  return methods;
+}
+
 void static
 write_file (const std::string& filename,
             const std::string& ext,
@@ -1277,7 +1324,7 @@
 #endif
 
 DEFUN_DLD (__magick_write__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __magick_write__ (@var{fname}, @var{fmt}, @var{img}, @var{map}, @var{options})\n\
 Write image with GraphicsMagick or ImageMagick.\n\
 \n\
@@ -1345,8 +1392,10 @@
           uint32NDArray clip_alpha;
           if (img.is_single_type ())
             {
-              clip_img   = img_float2uint<FloatNDArray> (img.float_array_value ());
-              clip_alpha = img_float2uint<FloatNDArray> (alpha.float_array_value ());
+              clip_img   = img_float2uint<FloatNDArray>
+                             (img.float_array_value ());
+              clip_alpha = img_float2uint<FloatNDArray>
+                             (alpha.float_array_value ());
             }
           else
             {
@@ -1378,13 +1427,20 @@
           return retval;
         }
     }
+  static std::map<std::string, octave_idx_type> disposal_methods
+    = init_reverse_disposal_methods ();
 
   const octave_idx_type nFrames = imvec.size ();
 
-  // FIXME What happens when we try to set with formats that do not support it?
   const octave_idx_type quality = options.getfield ("quality").int_value ();
+  const ColumnVector delaytime = options.getfield ("delaytime").column_vector_value ();
+  const Array<std::string> disposalmethod = options.getfield ("disposalmethod").cellstr_value ();
   for (octave_idx_type i = 0; i < nFrames; i++)
-    imvec[i].quality (quality);
+    {
+      imvec[i].quality (quality);
+      imvec[i].animationDelay (delaytime(i));
+      imvec[i].gifDisposeMethod (disposal_methods[disposalmethod(i)]);
+    }
 
   // If writemode is set to append, read the image and append to it. Even
   // if set to append, make sure that something was read at all.
@@ -1394,7 +1450,7 @@
       std::vector<Magick::Image> ini_imvec;
       read_file (filename, ini_imvec);
       if (error_state)
-          return retval;
+        return retval;
       if (ini_imvec.size () > 0)
         {
           ini_imvec.insert (ini_imvec.end (), imvec.begin (), imvec.end ());
@@ -1402,6 +1458,32 @@
         }
     }
 
+  // FIXME - LoopCount or animationIterations
+  //  How it should work:
+  //
+  // This value is only set for the first image in the sequence. Trying
+  // to set this value with the append mode should have no effect, the
+  // value used with the first image is the one that counts (that would
+  // also be Matlab compatible). Thus, the right way to do this would be
+  // to have an else block on the condition above, and set this only
+  // when creating a new file. Since Matlab does not interpret a 4D
+  // matrix as sequence of images to write, its users need to use a for
+  // loop and set LoopCount only on the first iteration (it actually
+  // throws warnings otherwise)
+  //
+  //  Why is this not done the right way:
+  //
+  // When GM saves a single image, it discards the value if there is only
+  // a single image and sets it to "no loop".  Since our default is an
+  // infinite loop, if the user tries to do it the Matlab way (setting
+  // LoopCount only on the first image) that value will go nowhere.
+  // See https://sourceforge.net/p/graphicsmagick/bugs/248/
+  // Because of this, we document to set LoopCount on every iteration
+  // (in Matlab will cause a lot of warnings), or pass a 4D matrix with
+  // all frames (won't work in Matlab at all).
+  // Note that this only needs to be set on the first frame
+  imvec[0].animationIterations (options.getfield ("loopcount").uint_value ());
+
   write_file (filename, ext, imvec);
   if (error_state)
     return retval;
@@ -1420,7 +1502,7 @@
 // this, we need to read the image once for imfinfo to set defaults (which is
 // done in Octave language), and then again for the actual reading.
 DEFUN_DLD (__magick_ping__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __magick_ping__ (@var{fname}, @var{idx})\n\
 Ping image information with GraphicsMagick or ImageMagick.\n\
 \n\
@@ -1480,24 +1562,24 @@
 {
   switch (magick)
     {
-      case Magick::NoCompression:
-        return octave_value ("none");
-      case Magick::BZipCompression:
-        return octave_value ("bzip");
-      case Magick::FaxCompression:
-        return octave_value ("fax3");
-      case Magick::Group4Compression:
-        return octave_value ("fax4");
-      case Magick::JPEGCompression:
-        return octave_value ("jpeg");
-      case Magick::LZWCompression:
-        return octave_value ("lzw");
-      case Magick::RLECompression:
-        // This is named "rle" for the HDF, but the same thing is named
-        // "ccitt" and "PackBits" for binary and non-binary images in TIFF.
-        return octave_value ("rle");
-      case Magick::ZipCompression:
-        return octave_value ("deflate");
+    case Magick::NoCompression:
+      return octave_value ("none");
+    case Magick::BZipCompression:
+      return octave_value ("bzip");
+    case Magick::FaxCompression:
+      return octave_value ("fax3");
+    case Magick::Group4Compression:
+      return octave_value ("fax4");
+    case Magick::JPEGCompression:
+      return octave_value ("jpeg");
+    case Magick::LZWCompression:
+      return octave_value ("lzw");
+    case Magick::RLECompression:
+      // This is named "rle" for the HDF, but the same thing is named
+      // "ccitt" and "PackBits" for binary and non-binary images in TIFF.
+      return octave_value ("rle");
+    case Magick::ZipCompression:
+      return octave_value ("deflate");
 
       // The following are present only in recent versions of GraphicsMagick.
       // At the moment the only use of this would be to have imfinfo report
@@ -1505,16 +1587,16 @@
       // the Compression option for imwrite in which case a macro in
       // configure.ac will have to check for their presence of this.
       // See bug #39913
-//      case Magick::LZMACompression:
-//        return octave_value ("lzma");
-//      case Magick::JPEG2000Compression:
-//        return octave_value ("jpeg2000");
-//      case Magick::JBIG1Compression:
-//        return octave_value ("jbig1");
-//      case Magick::JBIG2Compression:
-//        return octave_value ("jbig2");
-      default:
-        return octave_value ("undefined");
+      //      case Magick::LZMACompression:
+      //        return octave_value ("lzma");
+      //      case Magick::JPEG2000Compression:
+      //        return octave_value ("jpeg2000");
+      //      case Magick::JBIG1Compression:
+      //        return octave_value ("jbig1");
+      //      case Magick::JBIG2Compression:
+      //        return octave_value ("jbig2");
+    default:
+      return octave_value ("undefined");
     }
 }
 
@@ -1523,12 +1605,12 @@
 {
   switch (magick)
     {
-      case Magick::LSBEndian:
-        return octave_value ("little-endian");
-      case Magick::MSBEndian:
-        return octave_value ("big-endian");
-      default:
-        return octave_value ("undefined");
+    case Magick::LSBEndian:
+      return octave_value ("little-endian");
+    case Magick::MSBEndian:
+      return octave_value ("big-endian");
+    default:
+      return octave_value ("undefined");
     }
 }
 
@@ -1538,24 +1620,24 @@
   switch (magick)
     {
       // Values come from the TIFF6 spec
-      case Magick::TopLeftOrientation:
-        return octave_value (1);
-      case Magick::TopRightOrientation:
-        return octave_value (2);
-      case Magick::BottomRightOrientation:
-        return octave_value (3);
-      case Magick::BottomLeftOrientation:
-        return octave_value (4);
-      case Magick::LeftTopOrientation:
-        return octave_value (5);
-      case Magick::RightTopOrientation:
-        return octave_value (6);
-      case Magick::RightBottomOrientation:
-        return octave_value (7);
-      case Magick::LeftBottomOrientation:
-        return octave_value (8);
-      default:
-        return octave_value (1);
+    case Magick::TopLeftOrientation:
+      return octave_value (1);
+    case Magick::TopRightOrientation:
+      return octave_value (2);
+    case Magick::BottomRightOrientation:
+      return octave_value (3);
+    case Magick::BottomLeftOrientation:
+      return octave_value (4);
+    case Magick::LeftTopOrientation:
+      return octave_value (5);
+    case Magick::RightTopOrientation:
+      return octave_value (6);
+    case Magick::RightBottomOrientation:
+      return octave_value (7);
+    case Magick::LeftBottomOrientation:
+      return octave_value (8);
+    default:
+      return octave_value (1);
     }
 }
 
@@ -1564,45 +1646,15 @@
 {
   switch (magick)
     {
-      case Magick::PixelsPerInchResolution:
-        return octave_value ("Inch");
-      case Magick::PixelsPerCentimeterResolution:
-        return octave_value ("Centimeter");
-      default:
-        return octave_value ("undefined");
+    case Magick::PixelsPerInchResolution:
+      return octave_value ("Inch");
+    case Magick::PixelsPerCentimeterResolution:
+      return octave_value ("Centimeter");
+    default:
+      return octave_value ("undefined");
     }
 }
 
-// Meant to be shared with both imfinfo and imwrite.
-static std::map<octave_idx_type, std::string>
-init_disposal_methods ()
-{
-  //  GIF Specifications:
-  //
-  // Disposal Method - Indicates the way in which the graphic is to
-  //                    be treated after being displayed.
-  //
-  //  0 -   No disposal specified. The decoder is
-  //        not required to take any action.
-  //  1 -   Do not dispose. The graphic is to be left
-  //        in place.
-  //  2 -   Restore to background color. The area used by the
-  //        graphic must be restored to the background color.
-  //  3 -   Restore to previous. The decoder is required to
-  //        restore the area overwritten by the graphic with
-  //        what was there prior to rendering the graphic.
-  //  4-7 - To be defined.
-  static std::map<octave_idx_type, std::string> methods;
-  if (methods.empty ())
-    {
-      methods[0] = "doNotSpecify";
-      methods[1] = "leaveInPlace";
-      methods[2] = "restoreBG";
-      methods[3] = "restorePrevious";
-    }
-  return methods;
-}
-
 static bool
 is_valid_exif (const std::string& val)
 {
@@ -1671,7 +1723,7 @@
 #endif
 
 DEFUN_DLD (__magick_finfo__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __magick_finfo__ (@var{fname})\n\
 Read image information with GraphicsMagick or ImageMagick.\n\
 \n\
@@ -1721,55 +1773,55 @@
   // where only the third image has a colormap.
 
   static const char *fields[] =
-    {
-      // These are fields that must always appear for Matlab.
-      "Filename",
-      "FileModDate",
-      "FileSize",
-      "Format",
-      "FormatVersion",
-      "Width",
-      "Height",
-      "BitDepth",
-      "ColorType",
+  {
+    // These are fields that must always appear for Matlab.
+    "Filename",
+    "FileModDate",
+    "FileSize",
+    "Format",
+    "FormatVersion",
+    "Width",
+    "Height",
+    "BitDepth",
+    "ColorType",
 
-      // These are format specific or not existent in Matlab. The most
-      // annoying thing is that Matlab may have different names for the
-      // same thing in different formats.
-      "DelayTime",
-      "DisposalMethod",
-      "LoopCount",
-      "ByteOrder",
-      "Gamma",
-      "Chromaticities",
-      "Comment",
-      "Quality",
-      "Compression",        // same as CompressionType
-      "Colormap",           // same as ColorTable (in PNG)
-      "Orientation",
-      "ResolutionUnit",
-      "XResolution",
-      "YResolution",
-      "Software",           // sometimes is an Exif tag
-      "Make",               // actually an Exif tag
-      "Model",              // actually an Exif tag
-      "DateTime",           // actually an Exif tag
-      "ImageDescription",   // actually an Exif tag
-      "Artist",             // actually an Exif tag
-      "Copyright",          // actually an Exif tag
-      "DigitalCamera",
-      "GPSInfo",
-      // Notes for the future: GM allows to get many attributes, and even has
-      // attribute() to obtain arbitrary ones, that may exist in only some
-      // cases. The following is a list of some methods and into what possible
-      // Matlab compatible values they may be converted.
-      //
-      //  colorSpace()      -> PhotometricInterpretation
-      //  backgroundColor() -> BackgroundColor
-      //  interlaceType()   -> Interlaced, InterlaceType, and PlanarConfiguration
-      //  label()           -> Title
-      0
-    };
+    // These are format specific or not existent in Matlab. The most
+    // annoying thing is that Matlab may have different names for the
+    // same thing in different formats.
+    "DelayTime",
+    "DisposalMethod",
+    "LoopCount",
+    "ByteOrder",
+    "Gamma",
+    "Chromaticities",
+    "Comment",
+    "Quality",
+    "Compression",        // same as CompressionType
+    "Colormap",           // same as ColorTable (in PNG)
+    "Orientation",
+    "ResolutionUnit",
+    "XResolution",
+    "YResolution",
+    "Software",           // sometimes is an Exif tag
+    "Make",               // actually an Exif tag
+    "Model",              // actually an Exif tag
+    "DateTime",           // actually an Exif tag
+    "ImageDescription",   // actually an Exif tag
+    "Artist",             // actually an Exif tag
+    "Copyright",          // actually an Exif tag
+    "DigitalCamera",
+    "GPSInfo",
+    // Notes for the future: GM allows to get many attributes, and even has
+    // attribute() to obtain arbitrary ones, that may exist in only some
+    // cases. The following is a list of some methods and into what possible
+    // Matlab compatible values they may be converted.
+    //
+    //  colorSpace()      -> PhotometricInterpretation
+    //  backgroundColor() -> BackgroundColor
+    //  interlaceType()   -> Interlaced, InterlaceType, and PlanarConfiguration
+    //  label()           -> Title
+    0
+  };
 
   // The one we will return at the end
   octave_map info (dim_vector (nFrames, 1), string_vector (fields));
@@ -1807,7 +1859,7 @@
       info_frame.setfield ("Width",  octave_value (img.columns ()));
       info_frame.setfield ("Height", octave_value (img.rows ()));
       info_frame.setfield ("BitDepth",
-        octave_value (get_depth (const_cast<Magick::Image&> (img))));
+                           octave_value (get_depth (const_cast<Magick::Image&> (img))));
 
       // Stuff related to colormap, image class and type
       // Because GM is too smart for us... Read the comments in is_indexed()
@@ -1817,36 +1869,37 @@
         if (is_indexed (img))
           {
             color_type = "indexed";
-            cmap = read_maps (const_cast<Magick::Image&> (img))(0).matrix_value ();
+            cmap =
+              read_maps (const_cast<Magick::Image&> (img))(0).matrix_value ();
           }
         else
           {
             switch (img.type ())
               {
-                case Magick::BilevelType:
-                case Magick::GrayscaleType:
-                case Magick::GrayscaleMatteType:
-                  color_type = "grayscale";
-                  break;
+              case Magick::BilevelType:
+              case Magick::GrayscaleType:
+              case Magick::GrayscaleMatteType:
+                color_type = "grayscale";
+                break;
 
-                case Magick::TrueColorType:
-                case Magick::TrueColorMatteType:
-                  color_type = "truecolor";
-                  break;
+              case Magick::TrueColorType:
+              case Magick::TrueColorMatteType:
+                color_type = "truecolor";
+                break;
 
-                case Magick::PaletteType:
-                case Magick::PaletteMatteType:
-                  // we should never get here or is_indexed needs to be fixed
-                  color_type = "indexed";
-                  break;
+              case Magick::PaletteType:
+              case Magick::PaletteMatteType:
+                // we should never get here or is_indexed needs to be fixed
+                color_type = "indexed";
+                break;
 
-                case Magick::ColorSeparationType:
-                case Magick::ColorSeparationMatteType:
-                  color_type = "CMYK";
-                  break;
+              case Magick::ColorSeparationType:
+              case Magick::ColorSeparationMatteType:
+                color_type = "CMYK";
+                break;
 
-                default:
-                  color_type = "undefined";
+              default:
+                color_type = "undefined";
               }
           }
         info_frame.setfield ("ColorType", octave_value (color_type));
@@ -1868,22 +1921,23 @@
         info_frame.setfield ("Chromaticities", octave_value (chromaticities));
       }
 
-      info_frame.setfield ("Gamma",         octave_value (img.gamma ()));
-      info_frame.setfield ("XResolution",   octave_value (img.xResolution ()));
-      info_frame.setfield ("YResolution",   octave_value (img.yResolution ()));
-      info_frame.setfield ("DelayTime",     octave_value (img.animationDelay ()));
-      info_frame.setfield ("LoopCount",     octave_value (img.animationIterations ()));
-      info_frame.setfield ("Quality",       octave_value (img.quality ()));
-      info_frame.setfield ("Comment",       octave_value (img.comment ()));
+      info_frame.setfield ("Gamma",       octave_value (img.gamma ()));
+      info_frame.setfield ("XResolution", octave_value (img.xResolution ()));
+      info_frame.setfield ("YResolution", octave_value (img.yResolution ()));
+      info_frame.setfield ("DelayTime",   octave_value (img.animationDelay ()));
+      info_frame.setfield ("LoopCount",
+                           octave_value (img.animationIterations ()));
+      info_frame.setfield ("Quality",     octave_value (img.quality ()));
+      info_frame.setfield ("Comment",     octave_value (img.comment ()));
 
       info_frame.setfield ("Compression",
-        magick_to_octave_value (img.compressType ()));
+                           magick_to_octave_value (img.compressType ()));
       info_frame.setfield ("Orientation",
-        magick_to_octave_value (img.orientation ()));
+                           magick_to_octave_value (img.orientation ()));
       info_frame.setfield ("ResolutionUnit",
-        magick_to_octave_value (img.resolutionUnits ()));
+                           magick_to_octave_value (img.resolutionUnits ()));
       info_frame.setfield ("ByteOrder",
-        magick_to_octave_value (img.endian ()));
+                           magick_to_octave_value (img.endian ()));
 
       // It is not possible to know if there's an Exif field so we just
       // check for the Exif Version value. If it does exists, then we
@@ -1898,7 +1952,8 @@
         // exists outside the Exif tag.
         // See Section 4.6.4, table 4, page 28 of Exif specs version 2.3
         // (CIPA DC- 008-Translation- 2010)
-        static const char *base_exif_str_fields[] = {
+        static const char *base_exif_str_fields[] =
+        {
           "DateTime",
           "ImageDescription",
           "Make",
@@ -1913,7 +1968,7 @@
         for (octave_idx_type field = 0; field < n_base_exif_str; field++)
           {
             info_frame.setfield (base_exif_str[field],
-              octave_value (cimg.attribute (base_exif_str[field])));
+                                 octave_value (cimg.attribute (base_exif_str[field])));
             fill_exif (info_frame, cimg, base_exif_str[field]);
           }
 
@@ -1925,7 +1980,8 @@
             // of Exif specs version 2.3 (CIPA DC- 008-Translation- 2010)
 
             // Listed on the Exif specs as being of type ASCII.
-            static const char *exif_str_fields[] = {
+            static const char *exif_str_fields[] =
+            {
               "RelatedSoundFile",
               "DateTimeOriginal",
               "DateTimeDigitized",
@@ -1952,7 +2008,8 @@
               fill_exif (camera, cimg, exif_str[field]);
 
             // Listed on the Exif specs as being of type SHORT or LONG.
-            static const char *exif_int_fields[] = {
+            static const char *exif_int_fields[] =
+            {
               "ColorSpace",
               "ExifImageWidth",  // PixelXDimension (CPixelXDimension in Matlab)
               "ExifImageHeight", // PixelYDimension (CPixelYDimension in Matlab)
@@ -1995,7 +2052,8 @@
               fill_exif_ints (camera, cimg, exif_int[field]);
 
             // Listed as RATIONAL or SRATIONAL
-            static const char *exif_float_fields[] = {
+            static const char *exif_float_fields[] =
+            {
               "Gamma",
               "CompressedBitsPerPixel",
               "ExposureTime",
@@ -2030,7 +2088,8 @@
                 // See Section 4.6.6, table 15 on page 68 of Exif specs
                 // version 2.3 (CIPA DC- 008-Translation- 2010)
 
-                static const char *gps_str_fields[] = {
+                static const char *gps_str_fields[] =
+                {
                   "GPSLatitudeRef",
                   "GPSLongitudeRef",
                   "GPSAltitudeRef",
@@ -2053,7 +2112,8 @@
                 for (octave_idx_type field = 0; field < n_gps_str; field++)
                   fill_exif (gps, cimg, gps_str[field]);
 
-                static const char *gps_int_fields[] = {
+                static const char *gps_int_fields[] =
+                {
                   "GPSDifferential",
                   0
                 };
@@ -2062,7 +2122,8 @@
                 for (octave_idx_type field = 0; field < n_gps_int; field++)
                   fill_exif_ints (gps, cimg, gps_int[field]);
 
-                static const char *gps_float_fields[] = {
+                static const char *gps_float_fields[] =
+                {
                   "GPSAltitude",
                   "GPSDOP",
                   "GPSSpeed",
@@ -2117,7 +2178,7 @@
 */
 
 DEFUN_DLD (__magick_formats__, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __magick_imformats__ (@var{formats})\n\
 Fill formats info with GraphicsMagick CoderInfo.\n\
 \n\
--- a/libinterp/dldfcn/__voronoi__.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/__voronoi__.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,7 @@
 }
 
 DEFUN_DLD (__voronoi__, args, ,
-        "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{C}, @var{F} =} __voronoi__ (@var{caller}, @var{pts})\n\
 @deftypefnx {Loadable Function} {@var{C}, @var{F} =} __voronoi__ (@var{caller}, @var{pts}, @var{options})\n\
 @deftypefnx {Loadable Function} {@var{C}, @var{F}, @var{Inf_Pts} =} __voronoi__ (@dots{})\n\
@@ -150,7 +150,7 @@
 
   int exitcode = qh_new_qhull (dim, num_points, points.fortran_vec (),
                                ismalloc, cmd_str, outfile, errfile);
-  if (! exitcode) 
+  if (! exitcode)
     {
       // Calling findgood_all provides the number of Voronoi vertices
       // (sets qh num_good).
@@ -218,7 +218,7 @@
       // of the at_inf and C arrays so that they always contain at least
       // as many elements as the given points array.
 
-      // FIXME -- is it possible (or does it make sense) for
+      // FIXME: is it possible (or does it make sense) for
       // num_voronoi_regions to ever be larger than num_points?
 
       octave_idx_type nr = (num_points > num_voronoi_regions
--- a/libinterp/dldfcn/amd.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/amd.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,7 @@
 #endif
 
 DEFUN_DLD (amd, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} amd (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} amd (@var{S}, @var{opts})\n\
 \n\
@@ -162,8 +162,8 @@
               Matrix xinfo (AMD_INFO, 1);
               double *Info = xinfo.fortran_vec ();
 
-              // FIXME -- how can we manage the memory allocation of
-              // amd in a cleaner manner?
+              // FIXME: how can we manage the memory allocation of amd
+              //        in a cleaner manner?
               amd_malloc = malloc;
               amd_free = free;
               amd_calloc = calloc;
--- a/libinterp/dldfcn/ccolamd.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/ccolamd.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -52,7 +52,7 @@
 #endif
 
 DEFUN_DLD (ccolamd, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} ccolamd (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} ccolamd (@var{S}, @var{knobs})\n\
 @deftypefnx {Loadable Function} {@var{p} =} ccolamd (@var{S}, @var{knobs}, @var{cmember})\n\
@@ -188,7 +188,8 @@
               if (knobs[CCOLAMD_DENSE_ROW] >= 0)
                 octave_stdout << "knobs(2): " << User_knobs(1)
                               << ", rows with > max (16,"
-                              << knobs[CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))"
+                              << knobs[CCOLAMD_DENSE_ROW]
+                              << "*sqrt (size(A,2)))"
                               << " entries removed\n";
               else
                 octave_stdout << "knobs(2): " << User_knobs(1)
@@ -281,7 +282,8 @@
             error ("ccolamd: CMEMBER must be of length equal to #cols of A");
           else
             // Order the columns (destroys A)
-            if (! CCOLAMD_NAME () (n_row, n_col, Alen, A, p, knobs, stats, cmember))
+            if (! CCOLAMD_NAME () (n_row, n_col, Alen, A, p,
+                                   knobs, stats, cmember))
               {
                 CCOLAMD_NAME (_report) (stats) ;
                 error ("ccolamd: internal error!");
@@ -336,7 +338,7 @@
 }
 
 DEFUN_DLD (csymamd, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} csymamd (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} csymamd (@var{S}, @var{knobs})\n\
 @deftypefnx {Loadable Function} {@var{p} =} csymamd (@var{S}, @var{knobs}, @var{cmember})\n\
@@ -428,13 +430,15 @@
           // print knob settings if spumoni is set
           if (spumoni)
             {
-              octave_stdout << "\ncsymamd version " << CCOLAMD_MAIN_VERSION << "."
-                            <<  CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE << "\n";
+              octave_stdout << "\ncsymamd version " << CCOLAMD_MAIN_VERSION
+                            << "." << CCOLAMD_SUB_VERSION
+                            << ", " << CCOLAMD_DATE << "\n";
 
               if (knobs[CCOLAMD_DENSE_ROW] >= 0)
                 octave_stdout << "knobs(1): " << User_knobs(0)
                               << ", rows/cols with > max (16,"
-                              << knobs[CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))"
+                              << knobs[CCOLAMD_DENSE_ROW]
+                              << "*sqrt (size(A,2)))"
                               << " entries removed\n";
               else
                 octave_stdout << "knobs(1): " << User_knobs(0)
@@ -511,14 +515,13 @@
 
           if (cslen != n_col)
             error ("csymamd: CMEMBER must be of length equal to #cols of A");
-          else
-            if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats,
-                                  &calloc, &free, cmember, -1))
-              {
-                CSYMAMD_NAME (_report) (stats) ;
-                error ("csymamd: internal error!") ;
-                return retval;
-              }
+          else if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats,
+                                     &calloc, &free, cmember, -1))
+            {
+              CSYMAMD_NAME (_report) (stats) ;
+              error ("csymamd: internal error!") ;
+              return retval;
+            }
         }
       else
         {
--- a/libinterp/dldfcn/chol.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/chol.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -61,7 +61,7 @@
 }
 
 DEFUN_DLD (chol, args, nargout,
-"-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{R} =} chol (@var{A})\n\
 @deftypefnx {Loadable Function} {[@var{R}, @var{p}] =} chol (@var{A})\n\
 @deftypefnx {Loadable Function} {[@var{R}, @var{p}, @var{Q}] =} chol (@var{S})\n\
@@ -161,9 +161,9 @@
             vecout = true;
           else if (tmp.compare ("lower") == 0)
             // FIXME currently the option "lower" is handled by transposing the
-            //  matrix, factorizing it with the lapack function DPOTRF ('U', ...)
-            //  and finally transposing the factor. It would be more efficient to use
-            //  DPOTRF ('L', ...) in this case.
+            //  matrix, factorizing it with the lapack function
+            //  DPOTRF ('U', ...) and finally transposing the factor.  It would
+            //  be more efficient to use DPOTRF ('L', ...) in this case.
             LLt = true;
           else if (tmp.compare ("upper") == 0)
             LLt = false;
@@ -319,10 +319,10 @@
               if (! error_state)
                 {
                   octave_idx_type info;
-                  
+
                   CHOL fact;
                   if (LLt)
-                     fact = CHOL (m.transpose (), info);
+                    fact = CHOL (m.transpose (), info);
                   else
                     fact = CHOL (m, info);
 
@@ -345,7 +345,7 @@
               if (! error_state)
                 {
                   octave_idx_type info;
-                  
+
                   ComplexCHOL fact;
                   if (LLt)
                     fact = ComplexCHOL (m.transpose (), info);
@@ -383,7 +383,7 @@
 */
 
 DEFUN_DLD (cholinv, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} cholinv (@var{A})\n\
 Use the Cholesky@tie{}factorization to compute the inverse of the\n\
 symmetric positive definite matrix @var{A}.\n\
@@ -530,7 +530,7 @@
 */
 
 DEFUN_DLD (chol2inv, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} chol2inv (@var{U})\n\
 Invert a symmetric, positive definite square matrix from its Cholesky\n\
 decomposition, @var{U}.  Note that @var{U} should be an upper-triangular\n\
@@ -622,7 +622,7 @@
 }
 
 DEFUN_DLD (cholupdate, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{R1}, @var{info}] =} cholupdate (@var{R}, @var{u}, @var{op})\n\
 Update or downdate a Cholesky@tie{}factorization.  Given an upper triangular\n\
 matrix @var{R} and a column vector @var{u}, attempt to determine another\n\
@@ -700,7 +700,8 @@
                   {
                     // complex case
                     FloatComplexMatrix R = argr.float_complex_matrix_value ();
-                    FloatComplexColumnVector u = argu.float_complex_column_vector_value ();
+                    FloatComplexColumnVector u =
+                      argu.float_complex_column_vector_value ();
 
                     FloatComplexCHOL fact;
                     fact.set (R);
@@ -830,7 +831,7 @@
 */
 
 DEFUN_DLD (cholinsert, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{R1} =} cholinsert (@var{R}, @var{j}, @var{u})\n\
 @deftypefnx {Loadable Function} {[@var{R1}, @var{info}] =} cholinsert (@var{R}, @var{j}, @var{u})\n\
 Given a Cholesky@tie{}factorization of a real symmetric or complex Hermitian\n\
@@ -895,7 +896,8 @@
                     {
                       // complex case
                       FloatComplexMatrix R = argr.float_complex_matrix_value ();
-                      FloatComplexColumnVector u = argu.float_complex_column_vector_value ();
+                      FloatComplexColumnVector u =
+                        argu.float_complex_column_vector_value ();
 
                       FloatComplexCHOL fact;
                       fact.set (R);
@@ -922,7 +924,8 @@
                     {
                       // complex case
                       ComplexMatrix R = argr.complex_matrix_value ();
-                      ComplexColumnVector u = argu.complex_column_vector_value ();
+                      ComplexColumnVector u =
+                        argu.complex_column_vector_value ();
 
                       ComplexCHOL fact;
                       fact.set (R);
@@ -1071,7 +1074,7 @@
 %!     -3, -2, -1,  0];
 %!
 %! ca = a + i*b;
-%!   
+%!
 %! cca  = chol (ca);
 %!
 %! ccal  = chol (ca, "lower");
@@ -1091,7 +1094,7 @@
 */
 
 DEFUN_DLD (choldelete, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{R1} =} choldelete (@var{R}, @var{j})\n\
 Given a Cholesky@tie{}factorization of a real symmetric or complex Hermitian\n\
 positive definite matrix @w{@var{A} = @var{R}'*@var{R}}, @var{R}@tie{}upper\n\
@@ -1224,7 +1227,7 @@
 */
 
 DEFUN_DLD (cholshift, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{R1} =} cholshift (@var{R}, @var{i}, @var{j})\n\
 Given a Cholesky@tie{}factorization of a real symmetric or complex Hermitian\n\
 positive definite matrix @w{@var{A} = @var{R}'*@var{R}}, @var{R}@tie{}upper\n\
@@ -1251,7 +1254,8 @@
   octave_value argi = args(1);
   octave_value argj = args(2);
 
-  if (argr.is_numeric_type () && argi.is_real_scalar () && argj.is_real_scalar ())
+  if (argr.is_numeric_type ()
+      && argi.is_real_scalar () && argj.is_real_scalar ())
     {
       octave_idx_type n = argr.rows ();
       octave_idx_type i = argi.scalar_value ();
@@ -1359,7 +1363,7 @@
 
 %!test
 %! R = chol (single (A));
-%! 
+%!
 %! i = 1;  j = 3;  p = [1:i-1, shift(i:j,-1), j+1:4];
 %! R1 = cholshift (R, i, j);
 %!
--- a/libinterp/dldfcn/colamd.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/colamd.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -70,7 +70,8 @@
       // L(k,:) pattern: all nodes reachable in etree from nz in A(0:k-1,k)
       Parent[k] = n ;                // parent of k is not yet known
       Flag[k] = k ;                  // mark node k as visited
-      octave_idx_type kk = (P) ? (P[k]) : (k) ;  // kth original, or permuted, column
+      octave_idx_type kk = (P) ? P[k]  // kth original, or permuted, column
+                               : (k) ;
       octave_idx_type p2 = cidx[kk+1] ;
       for (octave_idx_type p = cidx[kk] ; p < p2 ; p++)
         {
@@ -209,7 +210,7 @@
 }
 
 DEFUN_DLD (colamd, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} colamd (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} colamd (@var{S}, @var{knobs})\n\
 @deftypefnx {Loadable Function} {[@var{p}, @var{stats}] =} colamd (@var{S})\n\
@@ -309,8 +310,9 @@
           if (spumoni)
             {
 
-              octave_stdout << "\ncolamd version " << COLAMD_MAIN_VERSION << "."
-                            <<  COLAMD_SUB_VERSION << ", " << COLAMD_DATE << ":\n";
+              octave_stdout << "\ncolamd version " << COLAMD_MAIN_VERSION
+                            << "." <<  COLAMD_SUB_VERSION
+                            << ", " << COLAMD_DATE << ":\n";
 
               if (knobs[COLAMD_DENSE_ROW] >= 0)
                 octave_stdout << "knobs(1): " << User_knobs (0)
@@ -449,7 +451,7 @@
 }
 
 DEFUN_DLD (symamd, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} symamd (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} symamd (@var{S}, @var{knobs})\n\
 @deftypefnx {Loadable Function} {[@var{p}, @var{stats}] =} symamd (@var{S})\n\
@@ -590,7 +592,8 @@
       // Allocate workspace for symamd
       OCTAVE_LOCAL_BUFFER (octave_idx_type, perm, n_col+1);
       OCTAVE_LOCAL_BUFFER (octave_idx_type, stats, COLAMD_STATS);
-      if (!SYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats, &calloc, &free))
+      if (!SYMAMD_NAME () (n_col, ridx, cidx, perm,
+                           knobs, stats, &calloc, &free))
         {
           SYMAMD_NAME (_report) (stats) ;
           error ("symamd: internal error!") ;
@@ -642,7 +645,7 @@
 }
 
 DEFUN_DLD (etree, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} etree (@var{S})\n\
 @deftypefnx {Loadable Function} {@var{p} =} etree (@var{S}, @var{typ})\n\
 @deftypefnx {Loadable Function} {[@var{p}, @var{q}] =} etree (@var{S}, @var{typ})\n\
--- a/libinterp/dldfcn/config-module.awk	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/config-module.awk	Tue Nov 05 12:27:42 2013 -0500
@@ -66,7 +66,7 @@
       {
         printf ("dldfcn/%s.df: CPPFLAGS += %s\n",
                 basename, cppflags[i]);
-        printf ("dldfcn_%s_la_CPPFLAGS = $(AM_CPPFLAGS) %s\n",
+        printf ("dldfcn_%s_la_CPPFLAGS = %s $(AM_CPPFLAGS)\n",
                 basename, cppflags[i]);
       }
     printf ("dldfcn_%s_la_LDFLAGS = -avoid-version -module $(NO_UNDEFINED_LDFLAG) %s $(OCT_LINK_OPTS)\n",
--- a/libinterp/dldfcn/convhulln.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/convhulln.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -56,7 +56,7 @@
 }
 
 DEFUN_DLD (convhulln, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{h} =} convhulln (@var{pts})\n\
 @deftypefnx {Loadable Function} {@var{h} =} convhulln (@var{pts}, @var{options})\n\
 @deftypefnx {Loadable Function} {[@var{h}, @var{v}] =} convhulln (@dots{})\n\
@@ -131,7 +131,7 @@
           error ("convhulln: OPTIONS must be a string, cell array of strings, or empty");
           return retval;
         }
-     }
+    }
 
   boolT ismalloc = false;
 
@@ -290,7 +290,7 @@
 %!testif HAVE_QHULL
 %! cube = [0 0 0;1 0 0;1 1 0;0 1 0;0 0 1;1 0 1;1 1 1;0 1 1];
 %! [h, v] = convhulln (cube, "Qt");
-%! assert (size (h), [12 3]); 
+%! assert (size (h), [12 3]);
 %! h = sortrows (sort (h, 2), [1:3]);
 %! assert (h, [1 2 4; 1 2 6; 1 4 8; 1 5 6; 1 5 8; 2 3 4; 2 3 7; 2 6 7; 3 4 7; 4 7 8; 5 6 7; 5 7 8]);
 %! assert (v, 1, 10*eps);
@@ -303,7 +303,7 @@
 %!testif HAVE_QHULL
 %! cube = [0 0 0;1 0 0;1 1 0;0 1 0;0 0 1;1 0 1;1 1 1;0 1 1];
 %! [h, v] = convhulln (cube, "QJ");
-%! assert (size (h), [12 3]); 
+%! assert (size (h), [12 3]);
 %! assert (sortrows (sort (h, 2), [1:3]), [1 2 4; 1 2 5; 1 4 5; 2 3 4; 2 3 6; 2 5 6; 3 4 8; 3 6 7; 3 7 8; 4 5 8; 5 6 8; 6 7 8]);
 %! assert (v, 1.0, 1e6*eps);
 
--- a/libinterp/dldfcn/dmperm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/dmperm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -132,7 +132,7 @@
 #endif
 
 DEFUN_DLD (dmperm, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{p} =} dmperm (@var{S})\n\
 @deftypefnx {Loadable Function} {[@var{p}, @var{q}, @var{r}, @var{S}] =} dmperm (@var{S})\n\
 \n\
@@ -188,7 +188,7 @@
 */
 
 DEFUN_DLD (sprank, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{p} =} sprank (@var{S})\n\
 @cindex structural rank\n\
 \n\
--- a/libinterp/dldfcn/fftw.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/fftw.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,7 @@
 #include "ov.h"
 
 DEFUN_DLD (fftw, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {@var{method} =} fftw (\"planner\")\n\
 @deftypefnx {Loadable Function} {} fftw (\"planner\", @var{method})\n\
 @deftypefnx {Loadable Function} {@var{wisdom} =} fftw (\"dwisdom\")\n\
@@ -151,7 +151,8 @@
                   if (args(1).is_string ())
                     {
                       // Use STL function to convert to lower case
-                      std::transform (arg0.begin (), arg0.end (), arg0.begin (), tolower);
+                      std::transform (arg0.begin (), arg0.end (), arg0.begin (),
+                                      tolower);
                       std::string arg1 = args(1).string_value ();
                       if (!error_state)
                         {
@@ -235,7 +236,8 @@
                   if (args(1).is_string ())
                     {
                       // Use STL function to convert to lower case
-                      std::transform (arg0.begin (), arg0.end (), arg0.begin (), tolower);
+                      std::transform (arg0.begin (), arg0.end (), arg0.begin (),
+                                      tolower);
                       std::string arg1 = args(1).string_value ();
                       if (!error_state)
                         {
@@ -268,7 +270,8 @@
                   if (args(1).is_string ())
                     {
                       // Use STL function to convert to lower case
-                      std::transform (arg0.begin (), arg0.end (), arg0.begin (), tolower);
+                      std::transform (arg0.begin (), arg0.end (), arg0.begin (),
+                                      tolower);
                       std::string arg1 = args(1).string_value ();
                       if (!error_state)
                         {
@@ -320,7 +323,7 @@
                     error ("setting threads needs one integer argument.");
                 }
               else //threads getter
-#if defined (HAVE_FFTW3_THREADS)              
+#if defined (HAVE_FFTW3_THREADS)
                 retval = octave_value (octave_fftw_planner::threads());
 #else
                 retval = 1;
--- a/libinterp/dldfcn/module-files	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/module-files	Tue Nov 05 12:27:42 2013 -0500
@@ -4,8 +4,8 @@
 __eigs__.cc|$(ARPACK_CPPFLAGS) $(SPARSE_XCPPFLAGS)|$(ARPACK_LDFLAGS) $(SPARSE_XLDFLAGS)|$(ARPACK_LIBS) $(SPARSE_XLIBS) $(LAPACK_LIBS) $(BLAS_LIBS)
 __fltk_uigetfile__.cc|$(GRAPHICS_CFLAGS) $(FT2_CPPFLAGS)|$(GRAPHICS_LDFLAGS) $(FT2_LDFLAGS)|$(GRAPHICS_LIBS) $(FT2_LIBS)
 __glpk__.cc|$(GLPK_CPPFLAGS)|$(GLPK_LDFLAGS)|$(GLPK_LIBS)
-__init_fltk__.cc|$(GRAPHICS_CFLAGS) $(FT2_CPPFLAGS)|$(GRAPHICS_LDFLAGS) $(FT2_LDFLAGS)|$(GRAPHICS_LIBS) $(FT2_LIBS) $(OPENGL_LIBS)
-__init_gnuplot__.cc
+__init_fltk__.cc|$(GRAPHICS_CFLAGS) $(FT2_CPPFLAGS) $(FONTCONFIG_CPPFLAGS)|$(GRAPHICS_LDFLAGS) $(FT2_LDFLAGS)|$(GRAPHICS_LIBS) $(FT2_LIBS) $(OPENGL_LIBS)
+__init_gnuplot__.cc|$(FT2_CPPFLAGS) $(FONTCONFIG_CPPFLAGS)||
 __magick_read__.cc|$(MAGICK_CPPFLAGS)|$(MAGICK_LDFLAGS)|$(MAGICK_LIBS)
 __voronoi__.cc|$(QHULL_CPPFLAGS)|$(QHULL_LDFLAGS)|$(QHULL_LIBS)
 amd.cc|$(SPARSE_XCPPFLAGS)|$(SPARSE_XLDFLAGS)|$(SPARSE_XLIBS)
--- a/libinterp/dldfcn/qr.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/qr.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -73,7 +73,7 @@
 // that R = triu (qr (X))
 
 DEFUN_DLD (qr, args, nargout,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {[@var{Q}, @var{R}, @var{P}] =} qr (@var{A})\n\
 @deftypefnx {Loadable Function} {[@var{Q}, @var{R}, @var{P}] =} qr (@var{A}, '0')\n\
 @deftypefnx {Loadable Function} {[@var{C}, @var{R}] =} qr (@var{A}, @var{B})\n\
@@ -289,7 +289,8 @@
   else
     {
       QR::type type = (nargout == 0 || nargout == 1) ? QR::raw
-        : (nargin == 2 ? QR::economy : QR::std);
+                                                     : nargin == 2
+                                                       ? QR::economy : QR::std;
 
       if (arg.is_single_type ())
         {
@@ -469,7 +470,7 @@
 %!test
 %! a = [0, 2, 1; 2, 1, 2];
 %!
-%! [q, r, p] = qr (a);  # FIXME: not giving right dimensions. 
+%! [q, r, p] = qr (a);  # FIXME: not giving right dimensions.
 %! [qe, re, pe] = qr (a, 0);
 %!
 %! assert (q * r, a * p, sqrt (eps));
@@ -745,7 +746,7 @@
 {
   octave_idx_type m = q.rows (), k = r.rows (), n = r.columns ();
   return ((q.ndims () == 2 && r.ndims () == 2 && k == q.columns ())
-            && (m == k || (allow_ecf && k == n && k < m)));
+          && (m == k || (allow_ecf && k == n && k < m)));
 }
 
 static
@@ -756,7 +757,7 @@
 }
 
 DEFUN_DLD (qrupdate, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{Q1}, @var{R1}] =} qrupdate (@var{Q}, @var{R}, @var{u}, @var{v})\n\
 Given a QR@tie{}factorization of a real or complex matrix\n\
 @w{@var{A} = @var{Q}*@var{R}}, @var{Q}@tie{}unitary and\n\
@@ -936,7 +937,7 @@
 */
 
 DEFUN_DLD (qrinsert, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{Q1}, @var{R1}] =} qrinsert (@var{Q}, @var{R}, @var{j}, @var{x}, @var{orient})\n\
 Given a QR@tie{}factorization of a real or complex matrix\n\
 @w{@var{A} = @var{Q}*@var{R}}, @var{Q}@tie{}unitary and\n\
@@ -1046,9 +1047,12 @@
                         || argr.is_single_type ()
                         || argx.is_single_type ())
                       {
-                        FloatComplexMatrix Q = argq.float_complex_matrix_value ();
-                        FloatComplexMatrix R = argr.float_complex_matrix_value ();
-                        FloatComplexMatrix x = argx.float_complex_matrix_value ();
+                        FloatComplexMatrix Q =
+                          argq.float_complex_matrix_value ();
+                        FloatComplexMatrix R =
+                          argr.float_complex_matrix_value ();
+                        FloatComplexMatrix x =
+                          argx.float_complex_matrix_value ();
 
                         FloatComplexQR fact (Q, R);
 
@@ -1155,7 +1159,7 @@
 */
 
 DEFUN_DLD (qrdelete, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{Q1}, @var{R1}] =} qrdelete (@var{Q}, @var{R}, @var{j}, @var{orient})\n\
 Given a QR@tie{}factorization of a real or complex matrix\n\
 @w{@var{A} = @var{Q}*@var{R}}, @var{Q}@tie{}unitary and\n\
@@ -1255,8 +1259,10 @@
                     if (argq.is_single_type ()
                         || argr.is_single_type ())
                       {
-                        FloatComplexMatrix Q = argq.float_complex_matrix_value ();
-                        FloatComplexMatrix R = argr.float_complex_matrix_value ();
+                        FloatComplexMatrix Q =
+                          argq.float_complex_matrix_value ();
+                        FloatComplexMatrix R =
+                          argr.float_complex_matrix_value ();
 
                         FloatComplexQR fact (Q, R);
 
@@ -1420,7 +1426,7 @@
 */
 
 DEFUN_DLD (qrshift, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{Q1}, @var{R1}] =} qrshift (@var{Q}, @var{R}, @var{i}, @var{j})\n\
 Given a QR@tie{}factorization of a real or complex matrix\n\
 @w{@var{A} = @var{Q}*@var{R}}, @var{Q}@tie{}unitary and\n\
--- a/libinterp/dldfcn/symbfact.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/symbfact.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -40,7 +40,7 @@
 #include "utils.h"
 
 DEFUN_DLD (symbfact, args, nargout,
-    "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn  {Loadable Function} {[@var{count}, @var{h}, @var{parent}, @var{post}, @var{r}] =} symbfact (@var{S})\n\
 @deftypefnx {Loadable Function} {[@dots{}] =} symbfact (@var{S}, @var{typ})\n\
 @deftypefnx {Loadable Function} {[@dots{}] =} symbfact (@var{S}, @var{typ}, @var{mode})\n\
@@ -355,7 +355,7 @@
       retval(0) = tmp;
     }
 
- symbfact_error:
+symbfact_error:
 #else
   error ("symbfact: not available in this version of Octave");
 #endif
--- a/libinterp/dldfcn/symrcm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/symrcm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -412,7 +412,7 @@
 
 // An implementation of the Cuthill-McKee algorithm.
 DEFUN_DLD (symrcm, args, ,
-  "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{p} =} symrcm (@var{S})\n\
 Return the symmetric reverse Cuthill-McKee permutation of @var{S}.\n\
 @var{p} is a permutation vector such that\n\
--- a/libinterp/dldfcn/tsearch.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/dldfcn/tsearch.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -65,7 +65,7 @@
 // method to traverse it
 
 DEFUN_DLD (tsearch, args, ,
-        "-*- texinfo -*-\n\
+           "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{idx} =} tsearch (@var{x}, @var{y}, @var{t}, @var{xi}, @var{yi})\n\
 Search for the enclosing Delaunay convex hull.  For @code{@var{t} =\n\
 delaunay (@var{x}, @var{y})}, finds the index in @var{t} containing the\n\
--- a/libinterp/link-deps.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/link-deps.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -11,10 +11,10 @@
   $(HDF5_LIBS) \
   $(Z_LIBS) \
   $(FFTW_XLIBS) \
-  $(REGEX_LIBS) \
   $(OPENGL_LIBS) \
   $(X11_LIBS) \
   $(CARBON_LIBS) \
+  $(GL2PS_LIBS) \
   $(LLVM_LIBS) \
   $(JAVA_LIBS) \
   $(LAPACK_LIBS)
@@ -23,7 +23,6 @@
   $(FT2_LDFLAGS) \
   $(HDF5_LDFLAGS) \
   $(Z_LDFLAGS) \
-  $(REGEX_LDFLAGS) \
   $(FFTW_XLDFLAGS) \
   $(LLVM_LDFLAGS)
 
--- a/libinterp/oct-conf.in.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/oct-conf.in.h	Tue Nov 05 12:27:42 2013 -0500
@@ -278,6 +278,10 @@
 #define OCTAVE_CONF_FLIBS %OCTAVE_CONF_FLIBS%
 #endif
 
+#ifndef OCTAVE_CONF_FONTCONFIG_CFLAGS
+#define OCTAVE_CONF_FONTCONFIG_CFLAGS %OCTAVE_CONF_FONTCONFIG_CFLAGS%
+#endif
+
 #ifndef OCTAVE_CONF_FPICFLAG
 #define OCTAVE_CONF_FPICFLAG %OCTAVE_CONF_FPICFLAG%
 #endif
@@ -446,6 +450,14 @@
 #define OCTAVE_CONF_OPENGL_LIBS %OCTAVE_CONF_OPENGL_LIBS%
 #endif
 
+#ifndef OCTAVE_CONF_PCRE_CPPFLAGS
+#define OCTAVE_CONF_PCRE_CPPFLAGS %OCTAVE_CONF_PCRE_CPPFLAGS%
+#endif
+
+#ifndef OCTAVE_CONF_PCRE_LIBS
+#define OCTAVE_CONF_PCRE_LIBS %OCTAVE_CONF_PCRE_LIBS%
+#endif
+
 #ifndef OCTAVE_CONF_PREFIX
 #define OCTAVE_CONF_PREFIX %OCTAVE_CONF_PREFIX%
 #endif
@@ -506,10 +518,6 @@
 #define OCTAVE_CONF_READLINE_LIBS %OCTAVE_CONF_READLINE_LIBS%
 #endif
 
-#ifndef OCTAVE_CONF_REGEX_LIBS
-#define OCTAVE_CONF_REGEX_LIBS %OCTAVE_CONF_REGEX_LIBS%
-#endif
-
 #ifndef OCTAVE_CONF_SED
 #define OCTAVE_CONF_SED %OCTAVE_CONF_SED%
 #endif
--- a/libinterp/octave-value/module.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/module.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -129,6 +129,22 @@
   $(OV_INTTYPE_SRC) \
   $(OV_SPARSE_SRC)
 
+OV_JAVA_DF = \
+  octave-value/ov.df \
+  octave-value/ov-class.df \
+  octave-value/ov-java.df \
+  octave-value/ov-typeinfo.df
+
+## Special rules for Java .df files so that not all .df files are built with
+## JAVA_CPPFLAGS
+$(OV_JAVA_DF) : octave-value/%.df : octave-value/%.cc
+	$(CXXCPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
+	  $(AM_CPPFLAGS) $(JAVA_CPPFLAGS) $(CPPFLAGS) \
+	  $(AM_CXXFLAGS) $(CXXFLAGS) \
+	  -DMAKE_BUILTINS $< > $@-t
+	$(srcdir)/mkdefs $(srcdir) $< < $@-t > $@
+	rm $@-t
+
 noinst_LTLIBRARIES += octave-value/liboctave-value.la
 
 octave_value_liboctave_value_la_SOURCES = $(OCTAVE_VALUE_SRC)
--- a/libinterp/octave-value/ov-base-diag.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-diag.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -147,12 +147,15 @@
         if (type.length () == 1)
           {
             octave_value_list jdx = idx.front ();
-            // Check for a simple element assignment. That means, if D is a diagonal matrix,
-            // 'D(i,i) = x' will not destroy its diagonality (provided i is a valid index).
-            if (jdx.length () == 2 && jdx(0).is_scalar_type () && jdx(1).is_scalar_type ())
+            // Check for a simple element assignment. That means, if D is a
+            // diagonal matrix, 'D(i,i) = x' will not destroy its diagonality
+            // (provided i is a valid index).
+            if (jdx.length () == 2
+                && jdx(0).is_scalar_type () && jdx(1).is_scalar_type ())
               {
                 typename DMT::element_type val;
-                idx_vector i0 = jdx(0).index_vector (), i1 = jdx(1).index_vector ();
+                idx_vector i0 = jdx(0).index_vector ();
+                idx_vector i1 = jdx(1).index_vector ();
                 if (! error_state  && i0(0) == i1(0)
                     && i0(0) < matrix.rows () && i1(0) < matrix.cols ()
                     && chk_valid_scalar (rhs, val))
@@ -224,10 +227,12 @@
   return to_dense ().is_true ();
 }
 
-// FIXME: this should be achieveable using ::real
+// FIXME: This should be achieveable using ::real
 template <class T> inline T helper_getreal (T x) { return x; }
-template <class T> inline T helper_getreal (std::complex<T> x) { return x.real (); }
-// FIXME: we really need some traits so that ad hoc hooks like this are not necessary
+template <class T> inline T helper_getreal (std::complex<T> x)
+{ return x.real (); }
+// FIXME: We really need some traits so that ad hoc hooks like this
+//        are not necessary.
 template <class T> inline T helper_iscomplex (T) { return false; }
 template <class T> inline T helper_iscomplex (std::complex<T>) { return true; }
 
@@ -414,7 +419,8 @@
 
 template <class DMT, class MT>
 octave_value
-octave_base_diag<DMT, MT>::convert_to_str_internal (bool pad, bool force, char type) const
+octave_base_diag<DMT, MT>::convert_to_str_internal (bool pad, bool force,
+                                                    char type) const
 {
   return to_dense ().convert_to_str_internal (pad, force, type);
 }
@@ -424,7 +430,7 @@
 octave_base_diag<DMT, MT>::save_ascii (std::ostream& os)
 {
   os << "# rows: " << matrix.rows () << "\n"
-    << "# columns: " << matrix.columns () << "\n";
+     << "# columns: " << matrix.columns () << "\n";
 
   os << matrix.extract_diag ();
 
@@ -499,7 +505,8 @@
 
 template <class DMT, class MT>
 void
-octave_base_diag<DMT, MT>::print (std::ostream& os, bool pr_as_read_syntax) const
+octave_base_diag<DMT, MT>::print (std::ostream& os,
+                                  bool pr_as_read_syntax) const
 {
   print_raw (os, pr_as_read_syntax);
   newline (os);
@@ -507,7 +514,8 @@
 template <class DMT, class MT>
 int
 octave_base_diag<DMT, MT>::write (octave_stream& os, int block_size,
-                                  oct_data_conv::data_type output_type, int skip,
+                                  oct_data_conv::data_type output_type,
+                                  int skip,
                                   oct_mach_info::float_format flt_fmt) const
 {
   return to_dense ().write (os, block_size, output_type, skip, flt_fmt);
--- a/libinterp/octave-value/ov-base-diag.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-diag.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_base_diag_h)
-#define octave_base_diag_h 1
+#if !defined (octave_ov_base_diag_h)
+#define octave_ov_base_diag_h 1
 
 #include <cstdlib>
 
@@ -69,7 +69,7 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -83,10 +83,10 @@
   octave_idx_type nnz (void) const { return to_dense ().nnz (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return to_dense ().reshape (new_dims); }
+  { return to_dense ().reshape (new_dims); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return to_dense ().permute (vec, inv); }
+  { return to_dense ().permute (vec, inv); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -95,24 +95,24 @@
 
   MatrixType matrix_type (void) const { return MatrixType::Diagonal; }
   MatrixType matrix_type (const MatrixType&) const
-    { return matrix_type (); }
+  { return matrix_type (); }
 
   octave_value diag (octave_idx_type k = 0) const;
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return to_dense ().sort (dim, mode); }
+  { return to_dense ().sort (dim, mode); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return to_dense ().sort (sidx, dim, mode); }
+  { return to_dense ().sort (sidx, dim, mode); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return to_dense ().is_sorted (mode); }
+  { return to_dense ().is_sorted (mode); }
 
   Array<octave_idx_type> sort_rows_idx (sortmode mode = ASCENDING) const
-    { return to_dense ().sort_rows_idx (mode); }
+  { return to_dense ().sort_rows_idx (mode); }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return to_dense ().is_sorted_rows (mode); }
+  { return to_dense ().is_sorted_rows (mode); }
 
   bool is_matrix_type (void) const { return true; }
 
@@ -131,7 +131,7 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   idx_vector index_vector (void) const;
 
--- a/libinterp/octave-value/ov-base-int.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-int.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -129,7 +129,8 @@
   octave_base_value *retval = 0;
 
   if (this->matrix.nelem () == 1)
-    retval = new typename octave_value_int_traits<T>::scalar_type (this->matrix (0));
+    retval = new typename octave_value_int_traits<T>::scalar_type
+               (this->matrix (0));
 
   return retval;
 }
@@ -163,7 +164,7 @@
       if (octave_base_int_helper<val_type, is_signed,
           can_be_larger_than_uchar_max>::char_value_out_of_range (ival))
         {
-          // FIXME -- is there something better we could do?
+          // FIXME: is there something better we could do?
 
           ival = 0;
 
@@ -256,7 +257,8 @@
       os.write (reinterpret_cast<char *> (&tmp), 4);
     }
 
-  os.write (reinterpret_cast<const char *> (this->matrix.data ()), this->byte_size ());
+  os.write (reinterpret_cast<const char *> (this->matrix.data ()),
+            this->byte_size ());
 
   return true;
 }
@@ -388,7 +390,7 @@
   if (empty > 0)
     this->matrix.resize (dv);
   if (empty)
-      return (empty > 0);
+    return (empty > 0);
 
 #if HAVE_HDF5_18
   hid_t data_hid = H5Dopen (loc_id, name, H5P_DEFAULT);
@@ -469,7 +471,7 @@
   if (octave_base_int_helper<val_type, is_signed,
       can_be_larger_than_uchar_max>::char_value_out_of_range (ival))
     {
-      // FIXME -- is there something better we could do?
+      // FIXME: is there something better we could do?
 
       ival = 0;
 
--- a/libinterp/octave-value/ov-base-int.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-int.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_base_int_matrix_h)
-#define octave_base_int_matrix_h 1
+#if !defined (octave_ov_base_int_h)
+#define octave_ov_base_int_h 1
 
 #include <cstdlib>
 
@@ -52,8 +52,11 @@
 
   ~octave_base_int_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_base_int_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_base_int_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_base_int_matrix (*this); }
+
+  octave_base_value *empty_clone (void) const
+  { return new octave_base_int_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
@@ -97,8 +100,10 @@
 
   ~octave_base_int_scalar (void) { }
 
-  octave_base_value *clone (void) const { return new octave_base_int_scalar (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_base_int_scalar (); }
+  octave_base_value *clone (void) const
+  { return new octave_base_int_scalar (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_base_int_scalar (); }
 
   octave_base_value *try_narrowing_conversion (void) { return 0; }
 
--- a/libinterp/octave-value/ov-base-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_base_matrix_h)
-#define octave_base_matrix_h 1
+#if !defined (octave_ov_base_mat_h)
+#define octave_ov_base_mat_h 1
 
 #include <cstdlib>
 
@@ -63,7 +63,7 @@
     : octave_base_value (), matrix (m.matrix),
       typ (m.typ ? new MatrixType (*m.typ) : 0),
       idx_cache (m.idx_cache ? new idx_vector (*m.idx_cache) : 0)
-    { }
+  { }
 
   ~octave_base_matrix (void) { clear_cached_info (); }
 
@@ -80,7 +80,7 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value subsasgn (const std::string& type,
                          const std::list<octave_value_list>& idx,
@@ -90,7 +90,7 @@
                             bool resize_ok = false);
 
   octave_value_list do_multi_index_op (int, const octave_value_list& idx)
-    { return do_index_op (idx); }
+  { return do_index_op (idx); }
 
   void assign (const octave_value_list& idx, const MT& rhs);
 
@@ -107,10 +107,10 @@
   octave_idx_type nnz (void) const { return matrix.nnz (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return MT (matrix.reshape (new_dims)); }
+  { return MT (matrix.reshape (new_dims)); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return MT (matrix.permute (vec, inv)); }
+  { return MT (matrix.permute (vec, inv)); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -121,25 +121,25 @@
   MatrixType matrix_type (const MatrixType& _typ) const;
 
   octave_value diag (octave_idx_type k = 0) const
-    { return octave_value (matrix.diag (k)); }
+  { return octave_value (matrix.diag (k)); }
 
   octave_value diag (octave_idx_type m, octave_idx_type n) const
-    { return octave_value (matrix.diag (m, n)); }
+  { return octave_value (matrix.diag (m, n)); }
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (dim, mode)); }
+  { return octave_value (matrix.sort (dim, mode)); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (sidx, dim, mode)); }
+  { return octave_value (matrix.sort (sidx, dim, mode)); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return matrix.is_sorted (mode); }
+  { return matrix.is_sorted (mode); }
 
   Array<octave_idx_type> sort_rows_idx (sortmode mode = ASCENDING) const
-    { return matrix.sort_rows_idx (mode); }
+  { return matrix.sort_rows_idx (mode); }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return matrix.is_sorted_rows (mode); }
+  { return matrix.is_sorted_rows (mode); }
 
   bool is_matrix_type (void) const { return true; }
 
@@ -158,15 +158,15 @@
   void print_info (std::ostream& os, const std::string& prefix) const;
 
   MT& matrix_ref (void)
-    {
-      clear_cached_info ();
-      return matrix;
-    }
+  {
+    clear_cached_info ();
+    return matrix;
+  }
 
   const MT& matrix_ref (void) const
-    {
-      return matrix;
-    }
+  {
+    return matrix;
+  }
 
   octave_value
   fast_elem_extract (octave_idx_type n) const;
@@ -179,17 +179,17 @@
   MT matrix;
 
   idx_vector set_idx_cache (const idx_vector& idx) const
-    {
-      delete idx_cache;
-      idx_cache = idx ? new idx_vector (idx) : 0;
-      return idx;
-    }
+  {
+    delete idx_cache;
+    idx_cache = idx ? new idx_vector (idx) : 0;
+    return idx;
+  }
 
   void clear_cached_info (void) const
-    {
-      delete typ; typ = 0;
-      delete idx_cache; idx_cache = 0;
-    }
+  {
+    delete typ; typ = 0;
+    delete idx_cache; idx_cache = 0;
+  }
 
   mutable MatrixType *typ;
   mutable idx_vector *idx_cache;
--- a/libinterp/octave-value/ov-base-scalar.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-scalar.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -179,7 +179,8 @@
 
 template <class ST>
 bool
-octave_base_scalar<ST>::fast_elem_insert_self (void *where, builtin_type_t btyp) const
+octave_base_scalar<ST>::fast_elem_insert_self (void *where,
+                                               builtin_type_t btyp) const
 {
 
   // Don't use builtin_type () here to avoid an extra VM call.
--- a/libinterp/octave-value/ov-base-scalar.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-scalar.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_base_scalar_h)
-#define octave_base_scalar_h 1
+#if !defined (octave_ov_base_scalar_h)
+#define octave_ov_base_scalar_h 1
 
 #include <cstdlib>
 
@@ -65,14 +65,14 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value subsasgn (const std::string& type,
                          const std::list<octave_value_list>& idx,
                          const octave_value& rhs);
 
   octave_value_list do_multi_index_op (int, const octave_value_list& idx)
-    { return do_index_op (idx); }
+  { return do_index_op (idx); }
 
   bool is_constant (void) const { return true; }
 
@@ -101,30 +101,30 @@
   octave_value diag (octave_idx_type m, octave_idx_type n) const;
 
   octave_value sort (octave_idx_type, sortmode) const
-    { return octave_value (scalar); }
+  { return octave_value (scalar); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type,
                      sortmode) const
-    {
-      sidx.resize (dim_vector (1, 1));
-      sidx(0) = 0;
-      return octave_value (scalar);
-    }
+  {
+    sidx.resize (dim_vector (1, 1));
+    sidx(0) = 0;
+    return octave_value (scalar);
+  }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return mode ? mode : ASCENDING; }
+  { return mode ? mode : ASCENDING; }
 
   Array<octave_idx_type> sort_rows_idx (sortmode) const
-    {
-      return Array<octave_idx_type> (dim_vector (1, 1),
-                                     static_cast<octave_idx_type> (0));
-    }
+  {
+    return Array<octave_idx_type> (dim_vector (1, 1),
+                                   static_cast<octave_idx_type> (0));
+  }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return mode ? mode : ASCENDING; }
+  { return mode ? mode : ASCENDING; }
 
   MatrixType matrix_type (void) const { return MatrixType::Diagonal; }
   MatrixType matrix_type (const MatrixType&) const
-    { return matrix_type (); }
+  { return matrix_type (); }
 
   bool is_scalar_type (void) const { return true; }
 
--- a/libinterp/octave-value/ov-base-sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -42,6 +42,7 @@
 #include "boolSparse.h"
 #include "ov-base-sparse.h"
 #include "pager.h"
+#include "utils.h"
 
 template <class T>
 octave_value
@@ -306,11 +307,13 @@
 octave_base_sparse<T>::print_raw (std::ostream& os,
                                   bool pr_as_read_syntax) const
 {
+  octave_preserve_stream_state stream_state (os);
+
   octave_idx_type nr = matrix.rows ();
   octave_idx_type nc = matrix.cols ();
   octave_idx_type nz = nnz ();
 
-  // FIXME -- this should probably all be handled by a
+  // FIXME: this should probably all be handled by a
   // separate octave_print_internal function that can handle format
   // compact, loose, etc.
 
@@ -364,7 +367,7 @@
         {
           octave_quit ();
 
-          // FIXME -- is there an easy way to get the max row
+          // FIXME: is there an easy way to get the max row
           // and column indices so we can set the width appropriately
           // and line up the columns here?  Similarly, we should look
           // at all the nonzero values and display them with the same
@@ -373,8 +376,7 @@
           for (octave_idx_type i = matrix.cidx (j); i < matrix.cidx (j+1); i++)
             {
               os << "\n";
-              os << "  (" << matrix.ridx (i)+1 <<
-                ", "  << j+1 << ") -> ";
+              os << "  (" << matrix.ridx (i)+1 << ", "  << j+1 << ") -> ";
 
               octave_print_internal (os, matrix.data (i), pr_as_read_syntax);
             }
--- a/libinterp/octave-value/ov-base-sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base-sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_base_sparse_h)
-#define octave_base_sparse_h 1
+#if !defined (octave_ov_base_sparse_h)
+#define octave_ov_base_sparse_h 1
 
 #include <cstdlib>
 
@@ -47,28 +47,28 @@
 class
 octave_base_sparse : public octave_base_value
 {
- public:
+public:
 
   octave_base_sparse (void)
     : octave_base_value (), matrix (), typ (MatrixType ())
   { }
 
-  octave_base_sparse (const T& a) : octave_base_value (), matrix (a),
-                                    typ (MatrixType ())
+  octave_base_sparse (const T& a)
+    : octave_base_value (), matrix (a), typ (MatrixType ())
   {
     if (matrix.ndims () == 0)
       matrix.resize (dim_vector (0, 0));
   }
 
-  octave_base_sparse (const T& a, const MatrixType& t) : octave_base_value (),
-                                matrix (a), typ (t)
+  octave_base_sparse (const T& a, const MatrixType& t)
+    : octave_base_value (), matrix (a), typ (t)
   {
     if (matrix.ndims () == 0)
       matrix.resize (dim_vector (0, 0));
   }
 
-  octave_base_sparse (const octave_base_sparse& a) :
-    octave_base_value (), matrix (a.matrix), typ (a.typ) { }
+  octave_base_sparse (const octave_base_sparse& a)
+    : octave_base_value (), matrix (a.matrix), typ (a.typ) { }
 
   ~octave_base_sparse (void) { }
 
@@ -89,7 +89,7 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value subsasgn (const std::string& type,
                          const std::list<octave_value_list>& idx,
@@ -105,10 +105,10 @@
                             bool resize_ok = false);
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return T (matrix.reshape (new_dims)); }
+  { return T (matrix.reshape (new_dims)); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return T (matrix.permute (vec, inv)); }
+  { return T (matrix.permute (vec, inv)); }
 
   octave_value resize (const dim_vector& dv, bool = false) const;
 
@@ -116,20 +116,20 @@
   octave_value any (int dim = 0) const { return matrix.any (dim); }
 
   octave_value diag (octave_idx_type k = 0) const
-    { return octave_value (matrix.diag (k)); }
+  { return octave_value (matrix.diag (k)); }
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (dim, mode)); }
+  { return octave_value (matrix.sort (dim, mode)); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (sidx, dim, mode)); }
+  { return octave_value (matrix.sort (sidx, dim, mode)); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return full_value ().is_sorted (mode); }
+  { return full_value ().is_sorted (mode); }
 
   MatrixType matrix_type (void) const { return typ; }
   MatrixType matrix_type (const MatrixType& _typ) const
-    { MatrixType ret = typ; typ = _typ; return ret; }
+  { MatrixType ret = typ; typ = _typ; return ret; }
 
   bool is_matrix_type (void) const { return true; }
 
--- a/libinterp/octave-value/ov-base.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -408,7 +408,8 @@
 }
 
 bool
-octave_base_value::print_name_tag (std::ostream& os, const std::string& name) const
+octave_base_value::print_name_tag (std::ostream& os,
+                                   const std::string& name) const
 {
   bool retval = false;
 
@@ -546,7 +547,8 @@
 octave_base_value::float_matrix_value (bool) const
 {
   FloatMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::float_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::float_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -580,7 +582,8 @@
 {
   float tmp = lo_ieee_float_nan_value ();
   FloatComplex retval (tmp, tmp);
-  gripe_wrong_type_arg ("octave_base_value::float_complex_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::float_complex_value()",
+                        type_name ());
   return retval;
 }
 
@@ -672,7 +675,8 @@
 octave_base_value::sparse_matrix_value (bool) const
 {
   SparseMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::sparse_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::sparse_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -680,7 +684,8 @@
 octave_base_value::sparse_complex_matrix_value (bool) const
 {
   SparseComplexMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::sparse_complex_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::sparse_complex_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -688,7 +693,8 @@
 octave_base_value::sparse_bool_matrix_value (bool) const
 {
   SparseBoolMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::sparse_bool_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::sparse_bool_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -704,7 +710,8 @@
 octave_base_value::float_diag_matrix_value (bool) const
 {
   FloatDiagMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::float_diag_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::float_diag_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -712,7 +719,8 @@
 octave_base_value::complex_diag_matrix_value (bool) const
 {
   ComplexDiagMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::complex_diag_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::complex_diag_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -720,7 +728,8 @@
 octave_base_value::float_complex_diag_matrix_value (bool) const
 {
   FloatComplexDiagMatrix retval;
-  gripe_wrong_type_arg ("octave_base_value::float_complex_diag_matrix_value()", type_name ());
+  gripe_wrong_type_arg ("octave_base_value::float_complex_diag_matrix_value()",
+                        type_name ());
   return retval;
 }
 
@@ -1177,69 +1186,69 @@
 octave_base_value::get_umap_name (unary_mapper_t umap)
 {
   static const char *names[num_unary_mappers] =
-    {
-      "abs",
-      "acos",
-      "acosh",
-      "angle",
-      "arg",
-      "asin",
-      "asinh",
-      "atan",
-      "atanh",
-      "cbrt",
-      "ceil",
-      "conj",
-      "cos",
-      "cosh",
-      "erf",
-      "erfinv",
-      "erfcinv",
-      "erfc",
-      "erfcx",
-      "erfi",
-      "dawson",
-      "exp",
-      "expm1",
-      "finite",
-      "fix",
-      "floor",
-      "gamma",
-      "imag",
-      "isinf",
-      "isna",
-      "isnan",
-      "lgamma",
-      "log",
-      "log2",
-      "log10",
-      "log1p",
-      "real",
-      "round",
-      "roundb",
-      "signum",
-      "sin",
-      "sinh",
-      "sqrt",
-      "tan",
-      "tanh",
-      "isalnum",
-      "isalpha",
-      "isascii",
-      "iscntrl",
-      "isdigit",
-      "isgraph",
-      "islower",
-      "isprint",
-      "ispunct",
-      "isspace",
-      "isupper",
-      "isxdigit",
-      "signbit",
-      "toascii",
-      "tolower",
-      "toupper"
-    };
+  {
+    "abs",
+    "acos",
+    "acosh",
+    "angle",
+    "arg",
+    "asin",
+    "asinh",
+    "atan",
+    "atanh",
+    "cbrt",
+    "ceil",
+    "conj",
+    "cos",
+    "cosh",
+    "erf",
+    "erfinv",
+    "erfcinv",
+    "erfc",
+    "erfcx",
+    "erfi",
+    "dawson",
+    "exp",
+    "expm1",
+    "finite",
+    "fix",
+    "floor",
+    "gamma",
+    "imag",
+    "isinf",
+    "isna",
+    "isnan",
+    "lgamma",
+    "log",
+    "log2",
+    "log10",
+    "log1p",
+    "real",
+    "round",
+    "roundb",
+    "signum",
+    "sin",
+    "sinh",
+    "sqrt",
+    "tan",
+    "tanh",
+    "isalnum",
+    "isalpha",
+    "isascii",
+    "iscntrl",
+    "isdigit",
+    "isgraph",
+    "islower",
+    "isprint",
+    "ispunct",
+    "isspace",
+    "isupper",
+    "isxdigit",
+    "signbit",
+    "toascii",
+    "tolower",
+    "toupper"
+  };
 
   if (umap < 0 || umap >= num_unary_mappers)
     return "unknown";
@@ -1376,7 +1385,8 @@
           // Try biased (one-sided) conversions first.
           if (cf_rhs.type_id () >= 0
               && (octave_value_typeinfo::lookup_assign_op (octave_value::op_asn_eq,
-                                                           t_lhs, cf_rhs.type_id ())
+                                                           t_lhs,
+                                                           cf_rhs.type_id ())
                   || octave_value_typeinfo::lookup_pref_assign_conv (t_lhs,
                                                                      cf_rhs.type_id ()) >= 0))
             cf_this = 0;
@@ -1427,7 +1437,8 @@
               done = (! error_state);
             }
           else
-            gripe_no_conversion (octave_value::assign_op_as_string (octave_value::op_asn_eq),
+            gripe_no_conversion (octave_value::assign_op_as_string
+                                   (octave_value::op_asn_eq),
                                  type_name (), rhs.type_name ());
         }
     }
@@ -1457,7 +1468,7 @@
 
   if (beginning_of_line)
     {
-      // FIXME -- do we need this?
+      // FIXME: do we need this?
       // os << prefix;
 
       for (int i = 0; i < curr_print_indent_level; i++)
@@ -1531,19 +1542,22 @@
   INSTALL_ASSIGNCONV (octave_base_value, octave_scalar, octave_matrix);
   INSTALL_ASSIGNCONV (octave_base_value, octave_matrix, octave_matrix);
   INSTALL_ASSIGNCONV (octave_base_value, octave_complex, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_base_value, octave_complex_matrix, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_base_value, octave_complex_matrix,
+                      octave_complex_matrix);
   INSTALL_ASSIGNCONV (octave_base_value, octave_range, octave_matrix);
-  INSTALL_ASSIGNCONV (octave_base_value, octave_char_matrix_str, octave_char_matrix_str);
+  INSTALL_ASSIGNCONV (octave_base_value, octave_char_matrix_str,
+                      octave_char_matrix_str);
   INSTALL_ASSIGNCONV (octave_base_value, octave_cell, octave_cell);
 
   INSTALL_WIDENOP (octave_base_value, octave_matrix, matrix_conv);
-  INSTALL_WIDENOP (octave_base_value, octave_complex_matrix, complex_matrix_conv);
+  INSTALL_WIDENOP (octave_base_value, octave_complex_matrix,
+                   complex_matrix_conv);
   INSTALL_WIDENOP (octave_base_value, octave_char_matrix_str, string_conv);
   INSTALL_WIDENOP (octave_base_value, octave_cell, cell_conv);
 }
 
 DEFUN (sparse_auto_mutate, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} sparse_auto_mutate ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} sparse_auto_mutate (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} sparse_auto_mutate (@var{new_val}, \"local\")\n\
--- a/libinterp/octave-value/ov-base.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-base.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_base_value_h)
-#define octave_base_value_h 1
+#if !defined (octave_ov_base_h)
+#define octave_ov_base_h 1
 
 #include <cstdlib>
 
@@ -97,7 +97,7 @@
 inline bool btyp_isarray (builtin_type_t btyp)
 { return btyp <= btyp_char; }
 
-// Compute a numeric type for a possibly mixed-type operation, using these rules:
+// Compute numeric type for a possible mixed-type operation, using these rules:
 // bool -> double
 // single + double -> single
 // real + complex -> complex
@@ -188,12 +188,13 @@
   class type_conv_info
   {
   public:
-    type_conv_info (type_conv_fcn f = 0, int t = -1) : _fcn (f), _type_id (t) { }
+    type_conv_info (type_conv_fcn f = 0, int t = -1)
+      : _fcn (f), _type_id (t) { }
 
     operator type_conv_fcn (void) const { return _fcn; }
 
     octave_base_value * operator () (const octave_base_value &v) const
-      { return (*_fcn) (v); }
+    { return (*_fcn) (v); }
 
     int type_id (void) const { return _type_id; }
 
@@ -226,11 +227,11 @@
 
   virtual type_conv_info
   numeric_conversion_function (void) const
-    { return type_conv_info (); }
+  { return type_conv_info (); }
 
   virtual type_conv_info
   numeric_demotion_function (void) const
-    { return type_conv_info (); }
+  { return type_conv_info (); }
 
   virtual octave_value squeeze (void) const;
 
@@ -291,21 +292,21 @@
   virtual dim_vector dims (void) const { return dim_vector (); }
 
   octave_idx_type rows (void) const
-    {
-      const dim_vector dv = dims ();
+  {
+    const dim_vector dv = dims ();
 
-      return dv(0);
-    }
+    return dv(0);
+  }
 
   octave_idx_type columns (void) const
-    {
-      const dim_vector dv = dims ();
+  {
+    const dim_vector dv = dims ();
 
-      return dv(1);
-    }
+    return dv(1);
+  }
 
   virtual int ndims (void) const
-    { return dims ().length (); }
+  { return dims ().length (); }
 
   virtual octave_idx_type numel (void) const { return dims ().numel (); }
 
@@ -470,10 +471,10 @@
   virtual float float_value (bool = false) const;
 
   virtual double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   virtual float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   virtual Cell cell_value (void) const;
 
@@ -519,7 +520,8 @@
 
   virtual ComplexDiagMatrix complex_diag_matrix_value (bool = false) const;
 
-  virtual FloatComplexDiagMatrix float_complex_diag_matrix_value (bool = false) const;
+  virtual FloatComplexDiagMatrix
+  float_complex_diag_matrix_value (bool = false) const;
 
   virtual PermMatrix perm_matrix_value (void) const;
 
@@ -576,10 +578,10 @@
   virtual string_vector parent_class_names (void) const;
 
   virtual octave_base_value *find_parent_class (const std::string&)
-    { return 0; }
+  { return 0; }
 
   virtual octave_base_value *unique_parent_class (const std::string&)
-    { return 0; }
+  { return 0; }
 
   virtual octave_function *function_value (bool silent = false);
 
@@ -677,71 +679,71 @@
 
   // Standard mappers. Register new ones here.
   enum unary_mapper_t
-    {
-      umap_abs,
-      umap_acos,
-      umap_acosh,
-      umap_angle,
-      umap_arg,
-      umap_asin,
-      umap_asinh,
-      umap_atan,
-      umap_atanh,
-      umap_cbrt,
-      umap_ceil,
-      umap_conj,
-      umap_cos,
-      umap_cosh,
-      umap_erf,
-      umap_erfinv,
-      umap_erfcinv,
-      umap_erfc,
-      umap_erfcx,
-      umap_erfi,
-      umap_dawson,
-      umap_exp,
-      umap_expm1,
-      umap_finite,
-      umap_fix,
-      umap_floor,
-      umap_gamma,
-      umap_imag,
-      umap_isinf,
-      umap_isna,
-      umap_isnan,
-      umap_lgamma,
-      umap_log,
-      umap_log2,
-      umap_log10,
-      umap_log1p,
-      umap_real,
-      umap_round,
-      umap_roundb,
-      umap_signum,
-      umap_sin,
-      umap_sinh,
-      umap_sqrt,
-      umap_tan,
-      umap_tanh,
-      umap_xisalnum,
-      umap_xisalpha,
-      umap_xisascii,
-      umap_xiscntrl,
-      umap_xisdigit,
-      umap_xisgraph,
-      umap_xislower,
-      umap_xisprint,
-      umap_xispunct,
-      umap_xisspace,
-      umap_xisupper,
-      umap_xisxdigit,
-      umap_xsignbit,
-      umap_xtoascii,
-      umap_xtolower,
-      umap_xtoupper,
-      umap_unknown,
-      num_unary_mappers = umap_unknown
-    };
+  {
+    umap_abs,
+    umap_acos,
+    umap_acosh,
+    umap_angle,
+    umap_arg,
+    umap_asin,
+    umap_asinh,
+    umap_atan,
+    umap_atanh,
+    umap_cbrt,
+    umap_ceil,
+    umap_conj,
+    umap_cos,
+    umap_cosh,
+    umap_erf,
+    umap_erfinv,
+    umap_erfcinv,
+    umap_erfc,
+    umap_erfcx,
+    umap_erfi,
+    umap_dawson,
+    umap_exp,
+    umap_expm1,
+    umap_finite,
+    umap_fix,
+    umap_floor,
+    umap_gamma,
+    umap_imag,
+    umap_isinf,
+    umap_isna,
+    umap_isnan,
+    umap_lgamma,
+    umap_log,
+    umap_log2,
+    umap_log10,
+    umap_log1p,
+    umap_real,
+    umap_round,
+    umap_roundb,
+    umap_signum,
+    umap_sin,
+    umap_sinh,
+    umap_sqrt,
+    umap_tan,
+    umap_tanh,
+    umap_xisalnum,
+    umap_xisalpha,
+    umap_xisascii,
+    umap_xiscntrl,
+    umap_xisdigit,
+    umap_xisgraph,
+    umap_xislower,
+    umap_xisprint,
+    umap_xispunct,
+    umap_xisspace,
+    umap_xisupper,
+    umap_xisxdigit,
+    umap_xsignbit,
+    umap_xtoascii,
+    umap_xtolower,
+    umap_xtoupper,
+    umap_unknown,
+    num_unary_mappers = umap_unknown
+  };
 
   virtual octave_value map (unary_mapper_t) const;
 
@@ -789,16 +791,16 @@
                                const octave_value& rhs);
 
   void reset_indent_level (void) const
-    { curr_print_indent_level = 0; }
+  { curr_print_indent_level = 0; }
 
   void increment_indent_level (void) const
-    { curr_print_indent_level += 2; }
+  { curr_print_indent_level += 2; }
 
   void decrement_indent_level (void) const
-    { curr_print_indent_level -= 2; }
+  { curr_print_indent_level -= 2; }
 
   int current_print_indent_level (void) const
-    { return curr_print_indent_level; }
+  { return curr_print_indent_level; }
 
   void indent (std::ostream& os) const;
 
--- a/libinterp/octave-value/ov-bool-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -510,13 +510,14 @@
 
   octave_idx_type nel = dv.numel ();
   OCTAVE_LOCAL_BUFFER (hbool_t, htmp, nel);
-  if (H5Dread (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, H5P_DEFAULT, htmp) >= 0)
+  if (H5Dread (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, H5P_DEFAULT, htmp)
+      >= 0)
     {
       retval = true;
 
       boolNDArray btmp (dv);
       for (octave_idx_type i = 0; i < nel; i++)
-          btmp.elem (i) = htmp[i];
+        btmp.elem (i) = htmp[i];
 
       matrix = btmp;
     }
@@ -546,7 +547,7 @@
 }
 
 DEFUN (logical, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} logical (@var{x})\n\
 Convert @var{x} to logical type.\n\
 @seealso{double, single, char}\n\
--- a/libinterp/octave-value/ov-bool-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_bool_matrix_h)
-#define octave_bool_matrix_h 1
+#if !defined (octave_ov_bool_mat_h)
+#define octave_ov_bool_mat_h 1
 
 #include <cstdlib>
 
@@ -69,24 +69,27 @@
 
   octave_bool_matrix (const boolNDArray& bm, const idx_vector& cache)
     : octave_base_matrix<boolNDArray> (bm)
-    {
-      set_idx_cache (cache);
-    }
+  {
+    set_idx_cache (cache);
+  }
 
   octave_bool_matrix (const octave_bool_matrix& bm)
     : octave_base_matrix<boolNDArray> (bm) { }
 
   ~octave_bool_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_bool_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_bool_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_bool_matrix (*this); }
+
+  octave_base_value *empty_clone (void) const
+  { return new octave_bool_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
   octave_base_value *try_narrowing_conversion (void);
 
   idx_vector index_vector (void) const
-    { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
+  { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
 
   builtin_type_t builtin_type (void) const { return btyp_bool; }
 
@@ -127,35 +130,35 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const
-    { return Matrix (matrix.matrix_value ()); }
+  { return Matrix (matrix.matrix_value ()); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return FloatMatrix (matrix.matrix_value ()); }
+  { return FloatMatrix (matrix.matrix_value ()); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (matrix); }
+  { return NDArray (matrix); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatNDArray (matrix); }
+  { return FloatNDArray (matrix); }
 
   Complex complex_value (bool = false) const;
 
   FloatComplex float_complex_value (bool = false) const;
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return ComplexMatrix (matrix.matrix_value ( )); }
+  { return ComplexMatrix (matrix.matrix_value ( )); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return FloatComplexMatrix (matrix.matrix_value ( )); }
+  { return FloatComplexMatrix (matrix.matrix_value ( )); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (matrix); }
+  { return ComplexNDArray (matrix); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexNDArray (matrix); }
+  { return FloatComplexNDArray (matrix); }
 
   charNDArray
   char_array_value (bool = false) const
@@ -171,10 +174,10 @@
   }
 
   boolMatrix bool_matrix_value (bool = false) const
-    { return matrix.matrix_value (); }
+  { return matrix.matrix_value (); }
 
   boolNDArray bool_array_value (bool = false) const
-    { return matrix; }
+  { return matrix; }
 
   SparseMatrix sparse_matrix_value (bool = false) const
   { return SparseMatrix (Matrix (matrix.matrix_value ())); }
@@ -210,7 +213,7 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
@@ -220,10 +223,10 @@
 
   // Mapper functions are converted to double for treatment
   octave_value map (unary_mapper_t umap) const
-    {
-      octave_matrix m (array_value ());
-      return m.map (umap);
-    }
+  {
+    octave_matrix m (array_value ());
+    return m.map (umap);
+  }
 
 protected:
 
--- a/libinterp/octave-value/ov-bool-sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool-sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,14 +51,16 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_sparse_bool_matrix);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_bool_matrix, "sparse bool matrix", "logical");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_bool_matrix,
+                                     "sparse bool matrix", "logical");
 
 static octave_base_value *
 default_numeric_conversion_function (const octave_base_value& a)
 {
   CAST_CONV_ARG (const octave_sparse_bool_matrix&);
 
-  return new octave_sparse_matrix (SparseMatrix (v.sparse_bool_matrix_value ()));
+  return
+    new octave_sparse_matrix (SparseMatrix (v.sparse_bool_matrix_value ()));
 }
 
 octave_base_value::type_conv_info
@@ -272,10 +274,11 @@
   if (swap)
     swap_bytes<4> (&tmp);
 
-  if (tmp != -2) {
-    error ("load: only 2-D sparse matrices are supported");
-    return false;
-  }
+  if (tmp != -2)
+    {
+      error ("load: only 2-D sparse matrices are supported");
+      return false;
+    }
 
   if (! is.read (reinterpret_cast<char *> (&nr), 4))
     return false;
@@ -347,7 +350,8 @@
   // Ensure that additional memory is deallocated
   matrix.maybe_compress ();
 #if HAVE_HDF5_18
-  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT,
+                               H5P_DEFAULT);
 #else
   hid_t group_hid = H5Gcreate (loc_id, name, 0);
 #endif
@@ -381,7 +385,8 @@
     }
 
   tmp = m.rows ();
-  retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &tmp) >= 0;
+  retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+                     H5S_ALL, H5P_DEFAULT, &tmp) >= 0;
   H5Dclose (data_hid);
   if (!retval)
     {
@@ -579,7 +584,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nr) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nr)
+      < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -603,7 +609,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nc) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nc)
+      < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -627,7 +634,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nz) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nz)
+      < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -671,7 +679,8 @@
     }
 
   octave_idx_type *itmp = m.xcidx ();
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp)
+      < 0)
     {
       H5Sclose (space_hid);
       H5Dclose (data_hid);
--- a/libinterp/octave-value/ov-bool-sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool-sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_bool_matrix_h)
-#define octave_sparse_bool_matrix_h 1
+#if !defined (octave_ov_bool_sparse_h)
+#define octave_ov_bool_sparse_h 1
 
 #include <cstdlib>
 
@@ -76,8 +76,10 @@
 
   ~octave_sparse_bool_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_sparse_bool_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_sparse_bool_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_sparse_bool_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_sparse_bool_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
@@ -85,7 +87,7 @@
 
   // FIXME Adapt idx_vector to allow sparse logical indexing without overflow!!
   idx_vector index_vector (void) const
-    { return idx_vector (matrix); }
+  { return idx_vector (matrix); }
 
   builtin_type_t builtin_type (void) const { return btyp_bool; }
 
@@ -100,7 +102,7 @@
   double double_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -123,7 +125,7 @@
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const;
 
   SparseBoolMatrix sparse_bool_matrix_value (bool = false) const
-    { return matrix; }
+  { return matrix; }
 
   octave_value convert_to_str_internal (bool pad, bool force, char type) const;
 
@@ -142,10 +144,10 @@
 
   // Mapper functions are converted to double for treatment
   octave_value map (unary_mapper_t umap) const
-    {
-      octave_sparse_matrix m (sparse_matrix_value ());
-      return m.map (umap);
-    }
+  {
+    octave_sparse_matrix m (sparse_matrix_value ());
+    return m.map (umap);
+  }
 
 protected:
 
--- a/libinterp/octave-value/ov-bool.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -69,13 +69,13 @@
 octave_value
 octave_bool::do_index_op (const octave_value_list& idx, bool resize_ok)
 {
-  // FIXME -- this doesn't solve the problem of
+  // FIXME: this doesn't solve the problem of
   //
   //   a = 1; a([1,1], [1,1], [1,1])
   //
   // and similar constructions.  Hmm...
 
-  // FIXME -- using this constructor avoids narrowing the
+  // FIXME: using this constructor avoids narrowing the
   // 1x1 matrix back to a scalar value.  Need a better solution
   // to this problem.
 
--- a/libinterp/octave-value/ov-bool.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-bool.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_bool_h)
-#define octave_bool_h 1
+#if !defined (octave_ov_bool_h)
+#define octave_ov_bool_h 1
 
 #include <cstdlib>
 
@@ -64,7 +64,8 @@
   ~octave_bool (void) { }
 
   octave_base_value *clone (void) const { return new octave_bool (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_bool_matrix (); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_bool_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
@@ -89,35 +90,35 @@
 
   int8NDArray
   int8_array_value (void) const
-    { return int8NDArray (dim_vector (1, 1), scalar); }
+  { return int8NDArray (dim_vector (1, 1), scalar); }
 
   int16NDArray
   int16_array_value (void) const
-    { return int16NDArray (dim_vector (1, 1), scalar); }
+  { return int16NDArray (dim_vector (1, 1), scalar); }
 
   int32NDArray
   int32_array_value (void) const
-    { return int32NDArray (dim_vector (1, 1), scalar); }
+  { return int32NDArray (dim_vector (1, 1), scalar); }
 
   int64NDArray
   int64_array_value (void) const
-    { return int64NDArray (dim_vector (1, 1), scalar); }
+  { return int64NDArray (dim_vector (1, 1), scalar); }
 
   uint8NDArray
   uint8_array_value (void) const
-    { return uint8NDArray (dim_vector (1, 1), scalar); }
+  { return uint8NDArray (dim_vector (1, 1), scalar); }
 
   uint16NDArray
   uint16_array_value (void) const
-    { return uint16NDArray (dim_vector (1, 1), scalar); }
+  { return uint16NDArray (dim_vector (1, 1), scalar); }
 
   uint32NDArray
   uint32_array_value (void) const
-    { return uint32NDArray (dim_vector (1, 1), scalar); }
+  { return uint32NDArray (dim_vector (1, 1), scalar); }
 
   uint64NDArray
   uint64_array_value (void) const
-    { return uint64NDArray (dim_vector (1, 1), scalar); }
+  { return uint64NDArray (dim_vector (1, 1), scalar); }
 
   octave_int8
   int8_scalar_value (void) const { return octave_int8 (scalar); }
@@ -152,42 +153,42 @@
   float float_scalar_value (bool = false) const { return scalar; }
 
   Matrix matrix_value (bool = false) const
-    { return Matrix (1, 1, scalar); }
+  { return Matrix (1, 1, scalar); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return FloatMatrix (1, 1, scalar); }
+  { return FloatMatrix (1, 1, scalar); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
+  { return NDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatNDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
+  { return FloatNDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
 
   Complex complex_value (bool = false) const { return scalar; }
 
   FloatComplex float_complex_value (bool = false) const { return scalar; }
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return ComplexMatrix (1, 1, Complex (scalar)); }
+  { return ComplexMatrix (1, 1, Complex (scalar)); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
+  { return FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
+  { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
+  { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (Matrix (1, 1, scalar)); }
+  { return SparseMatrix (Matrix (1, 1, scalar)); }
 
   // FIXME Need SparseComplexMatrix (Matrix) constructor!!!
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (sparse_matrix_value ()); }
+  { return SparseComplexMatrix (sparse_matrix_value ()); }
 
   SparseBoolMatrix sparse_bool_matrix_value (bool = false) const
-    { return SparseBoolMatrix (boolMatrix (1, 1, scalar)); }
+  { return SparseBoolMatrix (boolMatrix (1, 1, scalar)); }
 
   charNDArray
   char_array_value (bool = false) const
@@ -200,10 +201,10 @@
   bool bool_value (bool = false) const { return scalar; }
 
   boolMatrix bool_matrix_value (bool = false) const
-    { return boolMatrix (1, 1, scalar); }
+  { return boolMatrix (1, 1, scalar); }
 
   boolNDArray bool_array_value (bool = false) const
-    { return boolNDArray (dim_vector (1, 1), scalar); }
+  { return boolNDArray (dim_vector (1, 1), scalar); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -227,19 +228,19 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      return os.write (bool_array_value (), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    return os.write (bool_array_value (), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
   // Mapper functions are converted to double for treatment
   octave_value map (unary_mapper_t umap) const
-    {
-      octave_scalar m (scalar_value ());
-      return m.map (umap);
-    }
+  {
+    octave_scalar m (scalar_value ());
+    return m.map (umap);
+  }
 
 private:
 
--- a/libinterp/octave-value/ov-builtin.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-builtin.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -50,7 +50,8 @@
 octave_value_list
 octave_builtin::subsref (const std::string& type,
                          const std::list<octave_value_list>& idx,
-                         int nargout, const std::list<octave_lvalue>* lvalue_list)
+                         int nargout,
+                         const std::list<octave_lvalue>* lvalue_list)
 {
   octave_value_list retval;
 
@@ -77,11 +78,11 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
   //
-  // FIXME -- Note that if a function call returns multiple
+  // FIXME: Note that if a function call returns multiple
   // values, and there is further indexing to perform, then we are
   // ignoring all but the first value.  Is this really what we want to
   // do?  If it is not, then what should happen for stat("file").size,
@@ -130,7 +131,7 @@
 
           retval = (*f) (args, nargout);
           // Do not allow null values to be returned from functions.
-          // FIXME -- perhaps true builtins should be allowed?
+          // FIXME: perhaps true builtins should be allowed?
           retval.make_storable_values ();
           // Fix the case of a single undefined value.
           // This happens when a compiled function uses
--- a/libinterp/octave-value/ov-builtin.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-builtin.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_builtin_h)
-#define octave_builtin_h 1
+#if !defined (octave_ov_builtin_h)
+#define octave_ov_builtin_h 1
 
 #include <string>
 
@@ -58,10 +58,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -69,7 +69,8 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
-                             int nargout, const std::list<octave_lvalue>* lvalue_list);
+                             int nargout,
+                             const std::list<octave_lvalue>* lvalue_list);
 
   octave_function *function_value (bool = false) { return this; }
 
--- a/libinterp/octave-value/ov-cell.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cell.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -77,7 +77,8 @@
 
 template <>
 void
-octave_base_matrix<Cell>::assign (const octave_value_list& idx, octave_value rhs)
+octave_base_matrix<Cell>::assign (const octave_value_list& idx,
+                                  octave_value rhs)
 {
   // FIXME: Really?
   if (rhs.is_cell ())
@@ -93,8 +94,8 @@
   matrix.delete_elements (idx);
 }
 
-// FIXME: this list of specializations is becoming so long that we should really ask
-// whether octave_cell should inherit from octave_base_matrix at all.
+// FIXME: this list of specializations is becoming so long that we should
+// really ask whether octave_cell should inherit from octave_base_matrix at all.
 
 template <>
 octave_value
@@ -174,7 +175,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
 
@@ -226,7 +227,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
 
@@ -317,7 +318,7 @@
                         tmp.make_unique (); // probably a no-op.
                       }
                     else
-                      // optimization: ignore the copy still stored inside our array.
+                      // optimization: ignore copy still stored inside array.
                       tmp.make_unique (1);
 
                     if (! error_state)
@@ -358,11 +359,10 @@
 
             if (t_rhs.is_cell ())
               octave_base_matrix<Cell>::assign (i, t_rhs.cell_value ());
+            else if (t_rhs.is_null_value ())
+              octave_base_matrix<Cell>::delete_elements (i);
             else
-              if (t_rhs.is_null_value ())
-                octave_base_matrix<Cell>::delete_elements (i);
-              else
-                octave_base_matrix<Cell>::assign (i, Cell (t_rhs));
+              octave_base_matrix<Cell>::assign (i, Cell (t_rhs));
 
             if (! error_state)
               {
@@ -394,9 +394,11 @@
 
                 octave_base_matrix<Cell>::assign (idxf, tmp_cell);
               }
-            else if (idxf.all_scalars () || do_index_op (idxf, true).numel () == 1)
+            else if (idxf.all_scalars ()
+                     || do_index_op (idxf, true).numel () == 1)
               // Regularize a null matrix if stored into a cell.
-              octave_base_matrix<Cell>::assign (idxf, Cell (t_rhs.storable_value ()));
+              octave_base_matrix<Cell>::assign (idxf,
+                                                Cell (t_rhs.storable_value ()));
             else if (! error_state)
               gripe_nonbraced_cs_list_assignment ();
 
@@ -1132,7 +1134,8 @@
   for (octave_idx_type i = 0; i < nel; i++)
     {
       std::ostringstream buf;
-      int digits = static_cast<int> (gnulib::floor (::log10 (static_cast<double> (nel)) + 1.0));
+      int digits = static_cast<int> (gnulib::floor (::log10 (static_cast<double>
+                                     (nel)) + 1.0));
       buf << "_" << std::setw (digits) << std::setfill ('0') << i;
       std::string s = buf.str ();
 
@@ -1257,7 +1260,7 @@
 #endif
 
 DEFUN (iscell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} iscell (@var{x})\n\
 Return true if @var{x} is a cell array object.\n\
 @seealso{ismatrix, isstruct, iscellstr, isa}\n\
@@ -1274,7 +1277,7 @@
 }
 
 DEFUN (cell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} cell (@var{n})\n\
 @deftypefnx {Built-in Function} {} cell (@var{m}, @var{n})\n\
 @deftypefnx {Built-in Function} {} cell (@var{m}, @var{n}, @var{k}, @dots{})\n\
@@ -1334,7 +1337,7 @@
 }
 
 DEFUN (iscellstr, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} iscellstr (@var{cell})\n\
 Return true if every element of the cell array @var{cell} is a\n\
 character string.\n\
@@ -1357,7 +1360,7 @@
 // declaration) and so we don't have to use feval to call it.
 
 DEFUN (cellstr, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} cellstr (@var{string})\n\
 Create a new cell array object from the elements of the string\n\
 array @var{string}.\n\
@@ -1390,7 +1393,7 @@
 }
 
 DEFUN (struct2cell, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} struct2cell (@var{S})\n\
 Create a new cell array from the objects stored in the struct object.\n\
 If @var{f} is the number of fields in the structure, the resulting\n\
@@ -1443,9 +1446,9 @@
 
           dim_vector result_dv;
           if (m_dv (m_dv.length () - 1) == 1)
-              result_dv.resize (m_dv.length ());
+            result_dv.resize (m_dv.length ());
           else
-              result_dv.resize (m_dv.length () + 1); // Add 1 for the fields.
+            result_dv.resize (m_dv.length () + 1); // Add 1 for the fields.
 
           result_dv(0) = num_fields;
 
--- a/libinterp/octave-value/ov-cell.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cell.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_cell_h)
-#define octave_cell_h 1
+#if !defined (octave_ov_cell_h)
+#define octave_ov_cell_h 1
 
 #include <cstdlib>
 
@@ -57,7 +57,8 @@
     : octave_base_matrix<Cell> (c), cellstr_cache () { }
 
   octave_cell (const Array<std::string>& str)
-    : octave_base_matrix<Cell> (Cell (str)), cellstr_cache (new Array<std::string> (str)) { }
+    : octave_base_matrix<Cell> (Cell (str)),
+      cellstr_cache (new Array<std::string> (str)) { }
 
   octave_cell (const octave_cell& c)
     : octave_base_matrix<Cell> (c), cellstr_cache () { }
@@ -73,10 +74,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -138,7 +139,7 @@
   octave_value_list list_value (void) const;
 
   octave_value convert_to_str_internal (bool pad, bool, char type) const
-    { return octave_value (all_strings (pad), type); }
+  { return octave_value (all_strings (pad), type); }
 
   string_vector all_strings (bool pad = false) const;
 
@@ -177,7 +178,7 @@
 private:
 
   void clear_cellstr_cache (void) const
-    { cellstr_cache.reset (); }
+  { cellstr_cache.reset (); }
 
   mutable std::auto_ptr<Array<std::string> > cellstr_cache;
 
--- a/libinterp/octave-value/ov-ch-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-ch-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -202,8 +202,8 @@
     STRING_MAPPER (xtolower, std::tolower, char);
     STRING_MAPPER (xtoupper, std::toupper, char);
 
-    // For Matlab compatibility, these should work on ASCII values
-    // without error or warning.
+      // For Matlab compatibility, these should work on ASCII values
+      // without error or warning.
     case umap_abs:
     case umap_ceil:
     case umap_fix:
--- a/libinterp/octave-value/ov-ch-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-ch-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_char_matrix_h)
-#define octave_char_matrix_h 1
+#if !defined (octave_ov_ch_mat_h)
+#define octave_ov_ch_mat_h 1
 
 #include <cstdlib>
 
@@ -82,8 +82,10 @@
 
   ~octave_char_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_char_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_char_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_char_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_char_matrix (); }
 
   idx_vector index_vector (void) const;
 
@@ -99,47 +101,47 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const
-    { return Matrix (matrix.matrix_value ()); }
+  { return Matrix (matrix.matrix_value ()); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return FloatMatrix (matrix.matrix_value ()); }
+  { return FloatMatrix (matrix.matrix_value ()); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (matrix); }
+  { return NDArray (matrix); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatNDArray (matrix); }
+  { return FloatNDArray (matrix); }
 
   Complex complex_value (bool = false) const;
 
   FloatComplex float_complex_value (bool = false) const;
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return ComplexMatrix (matrix.matrix_value ()); }
+  { return ComplexMatrix (matrix.matrix_value ()); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return FloatComplexMatrix (matrix.matrix_value ()); }
+  { return FloatComplexMatrix (matrix.matrix_value ()); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (matrix); }
+  { return ComplexNDArray (matrix); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexNDArray (matrix); }
+  { return FloatComplexNDArray (matrix); }
 
   charMatrix char_matrix_value (bool = false) const
-    { return matrix.matrix_value (); }
+  { return matrix.matrix_value (); }
 
   charNDArray char_array_value (bool = false) const
-    { return matrix; }
+  { return matrix; }
 
   octave_value convert_to_str_internal (bool, bool, char type) const
-    { return octave_value (matrix, type); }
+  { return octave_value (matrix, type); }
 
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
 
--- a/libinterp/octave-value/ov-class.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-class.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -67,7 +67,8 @@
 octave_class::register_type (void)
 {
   t_id = octave_value_typeinfo::register_type
-    (octave_class::t_name, "<unknown>", octave_value (new octave_class ()));
+         (octave_class::t_name, "<unknown>",
+          octave_value (new octave_class ()));
 }
 
 octave_class::octave_class (const octave_map& m, const std::string& id,
@@ -173,7 +174,7 @@
 
                   else if (nel == p_nel)
                     {
-                      // FIXME -- is there a better way to do this?
+                      // FIXME: is there a better way to do this?
 
                       // The parent class object has the same number of
                       // elements as the map we are using to create the
@@ -402,7 +403,7 @@
 {
   octave_function *fcn = octave_call_stack::caller ();
 
-  // FIXME -- we probably need a better check here, or some other
+  // FIXME: we probably need a better check here, or some other
   // mechanism to avoid overloaded functions when builtin is used.
   // For example, what if someone overloads the builtin function?
   // Also, are there other places where using builtin is not properly
@@ -426,7 +427,8 @@
       octave_value_list args (1, octave_value (this));
 
       octave_value_list lv = feval (meth.function_value (), args, 1);
-      if (lv.length () > 0 && lv(0).is_matrix_type () && lv(0).dims ().is_vector ())
+      if (lv.length () > 0
+          && lv(0).is_matrix_type () && lv(0).dims ().is_vector ())
         retval = lv(0).matrix_value ();
       else
         error ("@%s/size: invalid return value", class_name ().c_str ());
@@ -488,7 +490,7 @@
 
   if (in_class_method () || called_from_builtin ())
     {
-      // FIXME -- this block of code is the same as the body of
+      // FIXME: this block of code is the same as the body of
       // octave_struct::subsref.  Maybe it could be shared instead of
       // duplicated.
 
@@ -509,7 +511,8 @@
                   {
                     Cell t = tmp.index (idx.front ());
 
-                    retval(0) = (t.length () == 1) ? t(0) : octave_value (t, true);
+                    retval(0) = (t.length () == 1) ? t(0)
+                                                   : octave_value (t, true);
 
                     // We handled two index elements, so tell
                     // next_subsref to skip both of them.
@@ -542,7 +545,7 @@
           panic_impossible ();
         }
 
-      // FIXME -- perhaps there should be an
+      // FIXME: perhaps there should be an
       // octave_value_list::next_subsref member function?  See also
       // octave_user_function::subsref.
 
@@ -704,7 +707,7 @@
           else
             tmp = feval (meth.function_value (), args);
 
-          // FIXME -- should the subsasgn method be able to return
+          // FIXME: should the subsasgn method be able to return
           // more than one value?
 
           if (tmp.length () > 1)
@@ -744,7 +747,7 @@
       return retval;
     }
 
-  // FIXME -- this block of code is the same as the body of
+  // FIXME: this block of code is the same as the body of
   // octave_struct::subsasgn.  Maybe it could be shared instead of
   // duplicated.
 
@@ -842,7 +845,7 @@
                         tmp.make_unique (); // probably a no-op.
                       }
                     else
-                      // optimization: ignore the copy still stored inside our map.
+                      // optimization: ignore copy still stored inside our map.
                       tmp.make_unique (1);
 
                     if (! error_state)
@@ -1491,7 +1494,7 @@
 
 bool
 octave_class::load_binary (std::istream& is, bool swap,
-                            oct_mach_info::float_format fmt)
+                           oct_mach_info::float_format fmt)
 {
   bool success = true;
 
@@ -1617,11 +1620,12 @@
                          H5P_DEFAULT);
 #endif
   if (class_hid < 0 || H5Dwrite (class_hid, type_hid, H5S_ALL, H5S_ALL,
-                                    H5P_DEFAULT, c_name.c_str ()) < 0)
+                                 H5P_DEFAULT, c_name.c_str ()) < 0)
     goto error_cleanup;
 
 #if HAVE_HDF5_18
-  data_hid = H5Gcreate (group_hid, "value", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+  data_hid = H5Gcreate (group_hid, "value", H5P_DEFAULT, H5P_DEFAULT,
+                        H5P_DEFAULT);
 #else
   data_hid = H5Gcreate (group_hid, "value", 0);
 #endif
@@ -1655,7 +1659,7 @@
       i++;
     }
 
- error_cleanup:
+error_cleanup:
 
   if (data_hid > 0)
     H5Gclose (data_hid);
@@ -1806,7 +1810,7 @@
         }
     }
 
- error_cleanup:
+error_cleanup:
   if (data_hid > 0)
     H5Dclose (data_hid);
 
@@ -1921,7 +1925,7 @@
 }
 
 DEFUN (class, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Function File} {@var{classname} =} class (@var{obj})\n\
 @deftypefnx {Function File} {} class (@var{s}, @var{id})\n\
 @deftypefnx {Function File} {} class (@var{s}, @var{id}, @var{p}, @dots{})\n\
@@ -2013,7 +2017,7 @@
 */
 
 DEFUN (__isa_parent__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __isa_parent__ (@var{class}, @var{name})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2040,7 +2044,7 @@
 }
 
 DEFUN (__parent_classes__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __parent_classes__ (@var{x})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2061,7 +2065,7 @@
 }
 
 DEFUN (isobject, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isobject (@var{x})\n\
 Return true if @var{x} is a class object.\n\
 @seealso{class, typeinfo, isa, ismethod}\n\
@@ -2078,7 +2082,7 @@
 }
 
 DEFUN (ismethod, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ismethod (@var{x}, @var{method})\n\
 Return true if @var{x} is a class object and the string @var{method}\n\
 is a method of this class.\n\
@@ -2120,7 +2124,7 @@
 }
 
 DEFUN (__methods__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} __methods__ (@var{x})\n\
 @deftypefnx {Built-in Function} {} __methods__ (\"classname\")\n\
 Internal function.\n\
@@ -2178,7 +2182,7 @@
 }
 
 DEFUN (superiorto, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} superiorto (@var{class_name}, @dots{})\n\
 When called from a class constructor, mark the object currently\n\
 constructed as having a higher precedence than @var{class_name}.\n\
@@ -2200,8 +2204,8 @@
       std::string inf_class = args(i).string_value ();
       if (error_state)
         {
-              error ("superiorto: expecting argument to be class name");
-              break;
+          error ("superiorto: expecting argument to be class name");
+          break;
         }
 
       // User defined classes always have higher precedence
@@ -2222,7 +2226,7 @@
 }
 
 DEFUN (inferiorto, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} inferiorto (@var{class_name}, @dots{})\n\
 When called from a class constructor, mark the object currently\n\
 constructed as having a lower precedence than @var{class_name}.\n\
--- a/libinterp/octave-value/ov-class.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-class.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_class_h)
-#define octave_class_h 1
+#if !defined (octave_ov_class_h)
+#define octave_ov_class_h 1
 
 #include <cstdlib>
 
@@ -52,13 +52,13 @@
   octave_class (void)
     : octave_base_value (), map (), c_name (),
       parent_list (), obsolete_copies (0)
-    { }
+  { }
 
   octave_class (const octave_map& m, const std::string& id,
                 const std::list<std::string>& plist)
     : octave_base_value (), map (m), c_name (id),
       parent_list (plist), obsolete_copies (0)
-    { }
+  { }
 
   octave_class (const octave_map& m, const std::string& id,
                 const octave_value_list& parents);
@@ -86,10 +86,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -134,18 +134,18 @@
   size_t nparents (void) const { return parent_list.size (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    {
-      octave_class retval = octave_class (*this);
-      retval.map = retval.map_value ().reshape (new_dims);
-      return octave_value (new octave_class (retval));
-    }
+  {
+    octave_class retval = octave_class (*this);
+    retval.map = retval.map_value ().reshape (new_dims);
+    return octave_value (new octave_class (retval));
+  }
 
   octave_value resize (const dim_vector& dv, bool = false) const
-    {
-      octave_class retval = octave_class (*this);
-      retval.map.resize (dv);
-      return octave_value (new octave_class (retval));
-    }
+  {
+    octave_class retval = octave_class (*this);
+    retval.map.resize (dv);
+    return octave_value (new octave_class (retval));
+  }
 
   bool is_defined (void) const { return true; }
 
@@ -158,10 +158,10 @@
   string_vector map_keys (void) const;
 
   std::list<std::string> parent_class_name_list (void) const
-    { return parent_list; }
+  { return parent_list; }
 
   string_vector parent_class_names (void) const
-    { return string_vector (parent_list); }
+  { return string_vector (parent_list); }
 
   octave_base_value *find_parent_class (const std::string&);
 
@@ -278,8 +278,10 @@
   // A map from class names to lists of fields.
   static std::map<std::string, exemplar_info> exemplar_map;
 
-  typedef std::map<std::string, exemplar_info>::iterator exemplar_iterator;
-  typedef std::map<std::string, exemplar_info>::const_iterator exemplar_const_iterator;
+  typedef std::map<std::string, exemplar_info>::iterator
+    exemplar_iterator;
+  typedef std::map<std::string, exemplar_info>::const_iterator
+    exemplar_const_iterator;
 };
 
 #endif
--- a/libinterp/octave-value/ov-colon.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-colon.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_magic_colon_h)
-#define octave_magic_colon_h 1
+#if !defined (octave_ov_colon_h)
+#define octave_ov_colon_h 1
 
 #include <cstdlib>
 
@@ -54,8 +54,10 @@
 
   ~octave_magic_colon (void) { }
 
-  octave_base_value *clone (void) const { return new octave_magic_colon (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_magic_colon (); }
+  octave_base_value *clone (void) const
+  { return new octave_magic_colon (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_magic_colon (); }
 
   idx_vector index_vector (void) const { return idx_vector (':'); }
 
--- a/libinterp/octave-value/ov-complex.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-complex.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -66,8 +66,9 @@
 octave_base_value::type_conv_info
 octave_complex::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_complex::static_type_id ());
+  return
+    octave_base_value::type_conv_info (default_numeric_demotion_function,
+                                       octave_float_complex::static_type_id ());
 }
 
 octave_base_value *
@@ -86,13 +87,13 @@
 octave_value
 octave_complex::do_index_op (const octave_value_list& idx, bool resize_ok)
 {
-  // FIXME -- this doesn't solve the problem of
+  // FIXME: this doesn't solve the problem of
   //
   //   a = i; a([1,1], [1,1], [1,1])
   //
   // and similar constructions.  Hmm...
 
-  // FIXME -- using this constructor avoids narrowing the
+  // FIXME: using this constructor avoids narrowing the
   // 1x1 matrix back to a scalar value.  Need a better solution
   // to this problem.
 
@@ -218,7 +219,8 @@
 FloatComplexNDArray
 octave_complex::float_complex_array_value (bool /* force_conversion */) const
 {
-  return FloatComplexNDArray (dim_vector (1, 1), static_cast<FloatComplex> (scalar));
+  return FloatComplexNDArray (dim_vector (1, 1),
+                              static_cast<FloatComplex> (scalar));
 }
 
 octave_value
--- a/libinterp/octave-value/ov-complex.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-complex.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_complex_h)
-#define octave_complex_h 1
+#if !defined (octave_ov_complex_h)
+#define octave_ov_complex_h 1
 
 #include <cstdlib>
 
@@ -70,7 +70,7 @@
   // (for A previously undefined), A will be empty instead of a 1x1
   // object.
   octave_base_value *empty_clone (void) const
-    { return new octave_complex_matrix (); }
+  { return new octave_complex_matrix (); }
 
   type_conv_info numeric_demotion_function (void) const;
 
@@ -82,18 +82,17 @@
   // Use this to give a more specific error message
   idx_vector index_vector (void) const
   {
-    error (
-           "attempted to use a complex scalar as an index\n"
+    error ("attempted to use a complex scalar as an index\n"
            "       (forgot to initialize i or j?)");
     return idx_vector ();
   }
 
   octave_value any (int = 0) const
-    {
-      return (scalar != Complex (0, 0)
-              && ! (lo_ieee_isnan (std::real (scalar))
-                    || lo_ieee_isnan (std::imag (scalar))));
-    }
+  {
+    return (scalar != Complex (0, 0)
+            && ! (lo_ieee_isnan (std::real (scalar))
+                  || lo_ieee_isnan (std::imag (scalar))));
+  }
 
   builtin_type_t builtin_type (void) const { return btyp_complex; }
 
@@ -110,10 +109,10 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -124,10 +123,10 @@
   FloatNDArray float_array_value (bool = false) const;
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (matrix_value ()); }
+  { return SparseMatrix (matrix_value ()); }
 
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (complex_matrix_value ()); }
+  { return SparseComplexMatrix (complex_matrix_value ()); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -187,11 +186,11 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // Yes, for compatibility, we drop the imaginary part here.
-      return os.write (array_value (true), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    // Yes, for compatibility, we drop the imaginary part here.
+    return os.write (array_value (true), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
--- a/libinterp/octave-value/ov-cs-list.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cs-list.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_cs_list_h)
-#define octave_cs_list_h 1
+#if !defined (octave_ov_cs_list_h)
+#define octave_ov_cs_list_h 1
 
 #include <cstdlib>
 
--- a/libinterp/octave-value/ov-cx-diag.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-diag.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -52,8 +52,9 @@
 octave_base_value::type_conv_info
 octave_complex_diag_matrix::numeric_conversion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_conversion_function,
-                                            octave_complex_matrix::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_numeric_conversion_function,
+            octave_complex_matrix::static_type_id ());
 }
 
 static octave_base_value *
@@ -61,14 +62,16 @@
 {
   CAST_CONV_ARG (const octave_complex_diag_matrix&);
 
-  return new octave_float_complex_diag_matrix (v.float_complex_diag_matrix_value ());
+  return new octave_float_complex_diag_matrix
+               (v.float_complex_diag_matrix_value ());
 }
 
 octave_base_value::type_conv_info
 octave_complex_diag_matrix::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_complex_diag_matrix::static_type_id ());
+  return
+    octave_base_value::type_conv_info (default_numeric_demotion_function,
+                                       octave_float_complex_diag_matrix::static_type_id ());
 }
 
 octave_base_value *
@@ -149,7 +152,8 @@
       return ::imag (matrix);
     case umap_sqrt:
       {
-        ComplexColumnVector tmp = matrix.extract_diag ().map<Complex> (std::sqrt);
+        ComplexColumnVector tmp =
+          matrix.extract_diag ().map<Complex> (std::sqrt);
         ComplexDiagMatrix retval (tmp);
         retval.resize (matrix.rows (), matrix.columns ());
         return retval;
@@ -179,7 +183,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (matrix.length () > 4096) // FIXME -- make this configurable.
+  else if (matrix.length () > 4096) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -187,14 +191,15 @@
     }
 
   const Complex *mtmp = m.data ();
-  write_doubles (os, reinterpret_cast<const double *> (mtmp), st, 2 * m.numel ());
+  write_doubles (os, reinterpret_cast<const double *> (mtmp), st,
+                 2 * m.numel ());
 
   return true;
 }
 
 bool
 octave_complex_diag_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                         oct_mach_info::float_format fmt)
 {
   int32_t r, c;
   char tmp;
--- a/libinterp/octave-value/ov-cx-diag.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-diag.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_complex_diag_matrix_h)
-#define octave_complex_diag_matrix_h 1
+#if !defined (octave_ov_cx_diag_h)
+#define octave_ov_cx_diag_h 1
 
 #include "ov-base.h"
 #include "ov-base-diag.h"
@@ -48,8 +48,10 @@
 
   ~octave_complex_diag_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_complex_diag_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_complex_diag_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_complex_diag_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_complex_diag_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
--- a/libinterp/octave-value/ov-cx-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,8 +74,9 @@
 octave_base_value::type_conv_info
 octave_complex_matrix::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_complex_matrix::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_numeric_demotion_function,
+            octave_float_complex_matrix::static_type_id ());
 }
 
 octave_base_value *
@@ -462,7 +463,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (d.numel () > 4096) // FIXME -- make this configurable.
+  else if (d.numel () > 4096) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -471,14 +472,15 @@
 
 
   const Complex *mtmp = m.data ();
-  write_doubles (os, reinterpret_cast<const double *> (mtmp), st, 2 * d.numel ());
+  write_doubles (os, reinterpret_cast<const double *> (mtmp), st,
+                 2 * d.numel ());
 
   return true;
 }
 
 bool
 octave_complex_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                    oct_mach_info::float_format fmt)
 {
   char tmp;
   int32_t mdims;
@@ -647,7 +649,7 @@
   if (empty > 0)
     matrix.resize (dv);
   if (empty)
-      return (empty > 0);
+    return (empty > 0);
 
 #if HAVE_HDF5_18
   hid_t data_hid = H5Dopen (loc_id, name, H5P_DEFAULT);
--- a/libinterp/octave-value/ov-cx-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_complex_matrix_h)
-#define octave_complex_matrix_h 1
+#if !defined (octave_ov_cx_mat_h)
+#define octave_ov_cx_mat_h 1
 
 #include <cstdlib>
 
@@ -82,8 +82,10 @@
 
   ~octave_complex_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_complex_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_complex_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_complex_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_complex_matrix (); }
 
   type_conv_info numeric_demotion_function (void) const;
 
@@ -104,10 +106,10 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -161,11 +163,11 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // Yes, for compatibility, we drop the imaginary part here.
-      return os.write (matrix_value (true), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    // Yes, for compatibility, we drop the imaginary part here.
+    return os.write (matrix_value (true), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
 
--- a/libinterp/octave-value/ov-cx-sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,8 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_sparse_complex_matrix);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_complex_matrix, "sparse complex matrix", "double");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_complex_matrix,
+                                     "sparse complex matrix", "double");
 
 octave_base_value *
 octave_sparse_complex_matrix::try_narrowing_conversion (void)
@@ -110,7 +111,7 @@
     gripe_implicit_conversion ("Octave:imag-to-real",
                                "complex sparse matrix", "real scalar");
 
-  // FIXME -- maybe this should be a function, valid_as_scalar()
+  // FIXME: maybe this should be a function, valid_as_scalar()
   if (numel () > 0)
     {
       if (numel () > 1)
@@ -146,7 +147,7 @@
 
   Complex retval (tmp, tmp);
 
-  // FIXME -- maybe this should be a function, valid_as_scalar()
+  // FIXME: maybe this should be a function, valid_as_scalar()
   if (numel () > 0)
     {
       if (numel () > 1)
@@ -263,7 +264,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (matrix.nnz () > 8192) // FIXME -- make this configurable.
+  else if (matrix.nnz () > 8192) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (matrix.all_integers (max_val, min_val))
@@ -272,28 +273,29 @@
 
   // add one to the printed indices to go from
   // zero-based to one-based arrays
-   for (int i = 0; i < nc+1; i++)
-     {
-       octave_quit ();
-       itmp = matrix.cidx (i);
-       os.write (reinterpret_cast<char *> (&itmp), 4);
-     }
+  for (int i = 0; i < nc+1; i++)
+    {
+      octave_quit ();
+      itmp = matrix.cidx (i);
+      os.write (reinterpret_cast<char *> (&itmp), 4);
+    }
 
-   for (int i = 0; i < nz; i++)
-     {
-       octave_quit ();
-       itmp = matrix.ridx (i);
-       os.write (reinterpret_cast<char *> (&itmp), 4);
-     }
+  for (int i = 0; i < nz; i++)
+    {
+      octave_quit ();
+      itmp = matrix.ridx (i);
+      os.write (reinterpret_cast<char *> (&itmp), 4);
+    }
 
-   write_doubles (os, reinterpret_cast<const double *> (matrix.data ()), st, 2 * nz);
+  write_doubles (os, reinterpret_cast<const double *> (matrix.data ()), st,
+                 2 * nz);
 
   return true;
 }
 
 bool
 octave_sparse_complex_matrix::load_binary (std::istream& is, bool swap,
-                                   oct_mach_info::float_format fmt)
+                                           oct_mach_info::float_format fmt)
 {
   int32_t nz, nc, nr, tmp;
   char ctmp;
@@ -304,10 +306,11 @@
   if (swap)
     swap_bytes<4> (&tmp);
 
-  if (tmp != -2) {
-    error ("load: only 2-D sparse matrices are supported");
-    return false;
-  }
+  if (tmp != -2)
+    {
+      error ("load: only 2-D sparse matrices are supported");
+      return false;
+    }
 
   if (! is.read (reinterpret_cast<char *> (&nr), 4))
     return false;
@@ -379,7 +382,8 @@
   matrix.maybe_compress ();
 
 #if HAVE_HDF5_18
-  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT,
+                               H5P_DEFAULT);
 #else
   hid_t group_hid = H5Gcreate (loc_id, name, 0);
 #endif
@@ -540,7 +544,8 @@
     }
 
   itmp = m.xridx ();
-  retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp) >= 0;
+  retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT,
+                     itmp) >= 0;
   H5Dclose (data_hid);
   if (!retval)
     {
@@ -648,7 +653,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nr) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+               H5S_ALL, H5P_DEFAULT, &nr) < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -672,7 +678,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nc) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+               H5S_ALL, H5P_DEFAULT, &nc) < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -696,7 +703,8 @@
       return false;
     }
 
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nz) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+               H5S_ALL, H5P_DEFAULT, &nz) < 0)
     {
       H5Dclose (data_hid);
       H5Gclose (group_hid);
@@ -740,7 +748,8 @@
     }
 
   octave_idx_type *itmp = m.xcidx ();
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+               H5S_ALL, H5P_DEFAULT, itmp) < 0)
     {
       H5Sclose (space_hid);
       H5Dclose (data_hid);
@@ -779,7 +788,8 @@
     }
 
   itmp = m.xridx ();
-  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp) < 0)
+  if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL,
+               H5S_ALL, H5P_DEFAULT, itmp) < 0)
     {
       H5Sclose (space_hid);
       H5Dclose (data_hid);
--- a/libinterp/octave-value/ov-cx-sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-cx-sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_complex_matrix_h)
-#define octave_sparse_complex_matrix_h 1
+#if !defined (octave_ov_cx_sparse_h)
+#define octave_ov_cx_sparse_h 1
 
 #include <cstdlib>
 
@@ -87,8 +87,10 @@
 
   ~octave_sparse_complex_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_sparse_complex_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_sparse_complex_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_sparse_complex_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_sparse_complex_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
@@ -105,7 +107,7 @@
   double double_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -120,7 +122,7 @@
   SparseMatrix sparse_matrix_value (bool = false) const;
 
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return matrix; }
+  { return matrix; }
 
   SparseBoolMatrix sparse_bool_matrix_value (bool warn = false) const;
 
@@ -128,11 +130,11 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // Yes, for compatibility, we drop the imaginary part here.
-      return os.write (matrix_value (true), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    // Yes, for compatibility, we drop the imaginary part here.
+    return os.write (matrix_value (true), block_size, output_type,
+                     skip, flt_fmt);
+  }
 #endif
 
   bool save_binary (std::ostream& os, bool& save_as_floats);
--- a/libinterp/octave-value/ov-dld-fcn.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-dld-fcn.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_dld_function_h)
-#define octave_dld_function_h 1
+#if !defined (octave_ov_dld_fcn_h)
+#define octave_ov_dld_fcn_h 1
 
 #include <string>
 
@@ -69,12 +69,12 @@
   bool is_dld_function (void) const { return true; }
 
   static octave_dld_function* create (octave_builtin::fcn ff,
-      const octave_shlib& shl,
-      const std::string& nm = std::string (),
-      const std::string& ds = std::string ());
+                                      const octave_shlib& shl,
+                                      const std::string& nm = std::string (),
+                                      const std::string& ds = std::string ());
 
   octave_shlib get_shlib (void) const
-    { return sh_lib; }
+  { return sh_lib; }
 
 private:
 
--- a/libinterp/octave-value/ov-fcn-handle.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-fcn-handle.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -96,7 +96,8 @@
 octave_value_list
 octave_fcn_handle::subsref (const std::string& type,
                             const std::list<octave_value_list>& idx,
-                            int nargout, const std::list<octave_lvalue>* lvalue_list)
+                            int nargout,
+                            const std::list<octave_lvalue>* lvalue_list)
 {
   octave_value_list retval;
 
@@ -123,7 +124,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_builtin::subsref.
 
@@ -210,7 +211,8 @@
       else if (fcn.is_defined ())
         retval = fcn.do_multi_index_op (nargout, args, lvalue_list);
       else
-        error ("%s: no method for class %s", nm.c_str (), dispatch_type.c_str ());
+        error ("%s: no method for class %s",
+               nm.c_str (), dispatch_type.c_str ());
     }
   else
     {
@@ -235,9 +237,11 @@
       for (int i = 0; i < btyp_num_types && retval; i++)
         retval = builtin_overloads[i].is_copy_of (h.builtin_overloads[i]);
 
-      str_ov_map::const_iterator iter = overloads.begin (), hiter = h.overloads.begin ();
+      str_ov_map::const_iterator iter = overloads.begin ();
+      str_ov_map::const_iterator hiter = h.overloads.begin ();
       for (; iter != overloads.end () && retval; iter++, hiter++)
-        retval = (iter->first == hiter->first) && (iter->second.is_copy_of (hiter->second));
+        retval = (iter->first == hiter->first)
+                 && (iter->second.is_copy_of (hiter->second));
     }
 
   return retval;
@@ -256,7 +260,7 @@
     {
       // First check if just replacing matlabroot is enough
       std::string str = OCTAVE_EXEC_PREFIX +
-        fpath.substr (octaveroot.length ());
+                        fpath.substr (octaveroot.length ());
       file_stat fs (str);
 
       if (fs.exists ())
@@ -372,8 +376,8 @@
         {
           os << "# length: " << varlen << "\n";
 
-          for (std::list<symbol_table::symbol_record>::const_iterator p = vars.begin ();
-               p != vars.end (); p++)
+          for (std::list<symbol_table::symbol_record>::const_iterator
+               p = vars.begin (); p != vars.end (); p++)
             {
               if (! save_ascii_data (os, p->varval (0), p->name (), false, 0))
                 return os;
@@ -547,8 +551,8 @@
 
       if (varlen > 0)
         {
-          for (std::list<symbol_table::symbol_record>::const_iterator p = vars.begin ();
-               p != vars.end (); p++)
+          for (std::list<symbol_table::symbol_record>::const_iterator
+               p = vars.begin (); p != vars.end (); p++)
             {
               if (! save_binary_data (os, p->varval (0), p->name (),
                                       "", 0, save_as_floats))
@@ -696,7 +700,7 @@
         }
 
       success = set_fcn (octaveroot, fpath);
-     }
+    }
 
   return success;
 }
@@ -824,7 +828,8 @@
           else
             retval = false;
 #if HAVE_HDF5_18
-          data_hid = H5Gcreate (group_hid, "symbol table", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+          data_hid = H5Gcreate (group_hid, "symbol table",
+                                H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
 #else
           data_hid = H5Gcreate (group_hid, "symbol table", 0);
 #endif
@@ -836,8 +841,8 @@
               return false;
             }
 
-          for (std::list<symbol_table::symbol_record>::const_iterator p = vars.begin ();
-               p != vars.end (); p++)
+          for (std::list<symbol_table::symbol_record>::const_iterator
+               p = vars.begin (); p != vars.end (); p++)
             {
               if (! add_hdf5_data (data_hid, p->varval (0), p->name (),
                                    "", false, save_as_floats))
@@ -1432,7 +1437,7 @@
 
   // Bow to the god of compatibility.
 
-  // FIXME -- it seems ugly to put this here, but there is no single
+  // FIXME: it seems ugly to put this here, but there is no single
   // function in the parser that converts from the operator name to
   // the corresponding function name.  At least try to do it without N
   // string compares.
@@ -1653,7 +1658,7 @@
 */
 
 DEFUN (functions, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} functions (@var{fcn_handle})\n\
 Return a struct containing information about the function handle\n\
 @var{fcn_handle}.\n\
@@ -1719,8 +1724,8 @@
                   if (varlen > 0)
                     {
                       octave_scalar_map ws;
-                      for (std::list<symbol_table::symbol_record>::const_iterator p = vars.begin ();
-                           p != vars.end (); p++)
+                      for (std::list<symbol_table::symbol_record>::const_iterator
+                           p = vars.begin (); p != vars.end (); p++)
                         {
                           ws.assign (p->name (), p->varval (0));
                         }
@@ -1751,7 +1756,7 @@
 }
 
 DEFUN (func2str, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} func2str (@var{fcn_handle})\n\
 Return a string containing the name of the function referenced by\n\
 the function handle @var{fcn_handle}.\n\
@@ -1788,7 +1793,7 @@
 }
 
 DEFUN (str2func, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} str2func (@var{fcn_name})\n\
 @deftypefnx {Built-in Function} {} str2func (@var{fcn_name}, \"global\")\n\
 Return a function handle constructed from the string @var{fcn_name}.\n\
@@ -1831,7 +1836,7 @@
 */
 
 DEFUN (is_function_handle, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} is_function_handle (@var{x})\n\
 Return true if @var{x} is a function handle.\n\
 @seealso{isa, typeinfo, class}\n\
@@ -1866,8 +1871,8 @@
                                       const octave_value_list& templ,
                                       const std::vector<int>& mask,
                                       int exp_nargin)
-: octave_fcn_handle (f), root_handle (root), arg_template (templ),
-  arg_mask (mask), expected_nargin (exp_nargin)
+  : octave_fcn_handle (f), root_handle (root), arg_template (templ),
+    arg_mask (mask), expected_nargin (exp_nargin)
 {
 }
 
@@ -1890,7 +1895,8 @@
       && ! (param_list && param_list->takes_varargs ()))
     {
       // It's an index expression.
-      tree_index_expression *idx_expr = dynamic_cast<tree_index_expression *> (body_expr);
+      tree_index_expression *idx_expr = dynamic_cast<tree_index_expression *>
+                                        (body_expr);
       tree_expression *head_expr = idx_expr->expression ();
       std::list<tree_argument_list *> arg_lists = idx_expr->arg_lists ();
       std::string type_tags = idx_expr->type_tags ();
@@ -1901,7 +1907,8 @@
           assert (arg_lists.size () == 1);
 
           // It's a single index expression: a(x,y,....)
-          tree_identifier *head_id = dynamic_cast<tree_identifier *> (head_expr);
+          tree_identifier *head_id =
+            dynamic_cast<tree_identifier *> (head_expr);
           tree_argument_list *arg_list = arg_lists.front ();
 
           // Build a map of input params to their position.
@@ -1916,7 +1923,7 @@
                   tree_decl_elt *elt = *it;
                   tree_identifier *id = elt ? elt->ident () : 0;
                   if (id && ! id->is_black_hole ())
-                     arginmap[id->name ()] = npar;
+                    arginmap[id->name ()] = npar;
                 }
             }
 
@@ -1927,7 +1934,8 @@
               octave_value_list arg_template (nargs);
               std::vector<int> arg_mask (nargs);
 
-              // Verify that each argument is either a named param, a constant, or a defined identifier.
+              // Verify that each argument is either a named param, a constant,
+              // or a defined identifier.
               int iarg = 0;
               for (tree_argument_list::iterator it = arg_list->begin ();
                    it != arg_list->end (); ++it, ++iarg)
@@ -1940,7 +1948,8 @@
                     }
                   else if (elt && elt->is_identifier ())
                     {
-                      tree_identifier *elt_id = dynamic_cast<tree_identifier *> (elt);
+                      tree_identifier *elt_id =
+                        dynamic_cast<tree_identifier *> (elt);
                       if (arginmap.find (elt_id->name ()) != arginmap.end ())
                         {
                           arg_mask[iarg] = arginmap[elt_id->name ()];
@@ -1969,7 +1978,7 @@
                 {
                   // If the head is a value, use it as root.
                   if (head_id->is_defined ())
-                     root_val = head_id->rvalue1 ();
+                    root_val = head_id->rvalue1 ();
                   else
                     {
                       // It's a name.
@@ -1977,7 +1986,7 @@
                       // Function handles can't handle legacy dispatch, so
                       // we make sure it's not defined.
                       if (symbol_table::get_dispatch (head_name).size () > 0)
-                         bad = true;
+                        bad = true;
                       else
                         {
                           // Simulate try/catch.
@@ -1986,7 +1995,7 @@
 
                           root_val = make_fcn_handle (head_name);
                           if (error_state)
-                             bad = true;
+                            bad = true;
                         }
                     }
                 }
@@ -2006,7 +2015,7 @@
     }
 
   if (! retval)
-     retval = new octave_fcn_handle (f, octave_fcn_handle::anonymous);
+    retval = new octave_fcn_handle (f, octave_fcn_handle::anonymous);
 
   return retval;
 }
@@ -2031,16 +2040,16 @@
         {
           int j = arg_mask[i];
           if (j >= 0)
-             arg_template(i) = args(j); // May force a copy...
+            arg_template(i) = args(j); // May force a copy...
         }
 
-      // Make a shallow copy of arg_template, to ensure consistency throughout the following
-      // call even if we happen to get back here.
+      // Make a shallow copy of arg_template, to ensure consistency throughout
+      // the following call even if we happen to get back here.
       octave_value_list tmp (arg_template);
       retval = root_handle.do_multi_index_op (nargout, tmp, lvalue_list);
     }
   else
-     retval = octave_fcn_handle::do_multi_index_op (nargout, args, lvalue_list);
+    retval = octave_fcn_handle::do_multi_index_op (nargout, args, lvalue_list);
 
   return retval;
 }
--- a/libinterp/octave-value/ov-fcn-handle.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-fcn-handle.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_fcn_handle_h)
-#define octave_fcn_handle_h 1
+#if !defined (octave_ov_fcn_handle_h)
+#define octave_ov_fcn_handle_h 1
 
 #include <iosfwd>
 #include <string>
@@ -59,25 +59,27 @@
 
   octave_fcn_handle (const octave_fcn_handle& fh)
     : octave_base_value (fh), fcn (fh.fcn), nm (fh.nm),
-    has_overloads (fh.has_overloads), overloads ()
-   {
-     for (int i = 0; i < btyp_num_types; i++)
-       builtin_overloads[i] = fh.builtin_overloads[i];
+      has_overloads (fh.has_overloads), overloads ()
+  {
+    for (int i = 0; i < btyp_num_types; i++)
+      builtin_overloads[i] = fh.builtin_overloads[i];
 
-     overloads = fh.overloads;
-   }
+    overloads = fh.overloads;
+  }
 
   ~octave_fcn_handle (void) { }
 
-  octave_base_value *clone (void) const { return new octave_fcn_handle (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_fcn_handle (); }
+  octave_base_value *clone (void) const
+  { return new octave_fcn_handle (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_fcn_handle (); }
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -85,7 +87,8 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
-                             int nargout, const std::list<octave_lvalue>* lvalue_list);
+                             int nargout,
+                             const std::list<octave_lvalue>* lvalue_list);
 
   octave_value_list
   do_multi_index_op (int nargout, const octave_value_list& args);
@@ -105,10 +108,10 @@
   dim_vector dims (void) const { static dim_vector dv (1, 1); return dv; }
 
   octave_function *function_value (bool = false)
-    { return fcn.function_value (); }
+  { return fcn.function_value (); }
 
   octave_user_function *user_function_value (bool = false)
-    { return fcn.user_function_value (); }
+  { return fcn.user_function_value (); }
 
   octave_fcn_handle *fcn_handle_value (bool = false) { return this; }
 
@@ -117,20 +120,21 @@
   std::string fcn_name (void) const { return nm; }
 
   void set_overload (builtin_type_t btyp, const octave_value& ov_fcn)
-    {
-      if (btyp != btyp_unknown)
-        {
-          has_overloads = true;
-          builtin_overloads[btyp] = ov_fcn;
-        }
+  {
+    if (btyp != btyp_unknown)
+      {
+        has_overloads = true;
+        builtin_overloads[btyp] = ov_fcn;
+      }
 
-    }
+  }
 
-  void set_overload (const std::string& dispatch_type, const octave_value& ov_fcn)
-    {
-      has_overloads = true;
-      overloads[dispatch_type] = ov_fcn;
-    }
+  void set_overload (const std::string& dispatch_type,
+                     const octave_value& ov_fcn)
+  {
+    has_overloads = true;
+    overloads[dispatch_type] = ov_fcn;
+  }
 
   bool is_equal_to (const octave_fcn_handle&) const;
 
--- a/libinterp/octave-value/ov-fcn-inline.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-fcn-inline.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -634,7 +634,7 @@
 }
 
 DEFUNX ("inline", Finline, args, ,
-  "-*- texinfo -*-\n\
+        "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} inline (@var{str})\n\
 @deftypefnx {Built-in Function} {} inline (@var{str}, @var{arg1}, @dots{})\n\
 @deftypefnx {Built-in Function} {} inline (@var{str}, @var{n})\n\
@@ -806,7 +806,7 @@
                       std::string s = args(i).string_value ();
                       fargs(i-1) = s;
                     }
-                    else
+                  else
                     {
                       error ("inline: expecting string arguments");
                       return retval;
@@ -843,7 +843,7 @@
 */
 
 DEFUN (formula, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} formula (@var{fun})\n\
 Return a character string representing the inline function @var{fun}.\n\
 Note that @code{char (@var{fun})} is equivalent to\n\
@@ -881,7 +881,7 @@
 */
 
 DEFUN (argnames, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} argnames (@var{fun})\n\
 Return a cell array of character strings containing the names of\n\
 the arguments of the inline function @var{fun}.\n\
@@ -928,7 +928,7 @@
 */
 
 DEFUN (vectorize, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} vectorize (@var{fun})\n\
 Create a vectorized version of the inline function @var{fun}\n\
 by replacing all occurrences of @code{*}, @code{/}, etc., with\n\
--- a/libinterp/octave-value/ov-fcn-inline.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-fcn-inline.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_fcn_inline_h)
-#define octave_fcn_inline_h 1
+#if !defined (octave_ov_fcn_inline_h)
+#define octave_ov_fcn_inline_h 1
 
 #include <iosfwd>
 #include <string>
@@ -54,8 +54,10 @@
 
   ~octave_fcn_inline (void) { }
 
-  octave_base_value *clone (void) const { return new octave_fcn_inline (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_fcn_inline (); }
+  octave_base_value *clone (void) const
+  { return new octave_fcn_inline (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_fcn_inline (); }
 
   bool is_inline_function (void) const { return true; }
 
--- a/libinterp/octave-value/ov-fcn.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-fcn.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_function_h)
-#define octave_function_h 1
+#if !defined (octave_ov_fcn_h)
+#define octave_ov_fcn_h 1
 
 #include <string>
 
@@ -75,22 +75,22 @@
   virtual symbol_table::scope_id scope (void) { return -1; }
 
   virtual octave_time time_parsed (void) const
-    { return octave_time (static_cast<time_t> (0)); }
+  { return octave_time (static_cast<time_t> (0)); }
 
   virtual octave_time time_checked (void) const
-    { return octave_time (static_cast<time_t> (0)); }
+  { return octave_time (static_cast<time_t> (0)); }
 
   virtual bool is_subfunction (void) const { return false; }
 
   virtual bool is_class_constructor (const std::string& = std::string ()) const
-    { return false; }
+  { return false; }
 
   virtual bool
   is_classdef_constructor (const std::string& = std::string ()) const
     { return false; }
 
   virtual bool is_class_method (const std::string& = std::string ()) const
-    { return false; }
+  { return false; }
 
   virtual bool takes_varargs (void) const { return false; }
 
@@ -110,11 +110,11 @@
   bool is_private_function (void) const { return private_function; }
 
   bool is_private_function_of_class (const std::string& nm) const
-    { return private_function && xdispatch_class == nm; }
+  { return private_function && xdispatch_class == nm; }
 
   virtual bool
   is_anonymous_function_of_class (const std::string& = std::string ()) const
-    { return false; }
+  { return false; }
 
   std::string dir_name (void) const { return my_dir_name; }
 
--- a/libinterp/octave-value/ov-float.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-float.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -55,18 +55,19 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_float_scalar);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_float_scalar, "float scalar", "single");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_float_scalar, "float scalar",
+                                     "single");
 
 octave_value
 octave_float_scalar::do_index_op (const octave_value_list& idx, bool resize_ok)
 {
-  // FIXME -- this doesn't solve the problem of
+  // FIXME: this doesn't solve the problem of
   //
   //   a = 1; a([1,1], [1,1], [1,1])
   //
   // and similar constructions.  Hmm...
 
-  // FIXME -- using this constructor avoids narrowing the
+  // FIXME: using this constructor avoids narrowing the
   // 1x1 matrix back to a scalar value.  Need a better solution
   // to this problem.
 
@@ -117,7 +118,7 @@
 
       if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
         {
-          // FIXME -- is there something better we could do?
+          // FIXME: is there something better we could do?
 
           ival = 0;
 
@@ -168,7 +169,7 @@
 
 bool
 octave_float_scalar::load_binary (std::istream& is, bool swap,
-                            oct_mach_info::float_format fmt)
+                                  oct_mach_info::float_format fmt)
 {
   char tmp;
   if (! is.read (reinterpret_cast<char *> (&tmp), 1))
@@ -187,7 +188,7 @@
 
 bool
 octave_float_scalar::save_hdf5 (hid_t loc_id, const char *name,
-                          bool /* save_as_floats */)
+                                bool /* save_as_floats */)
 {
   hsize_t dimens[3];
   hid_t space_hid = -1, data_hid = -1;
@@ -331,7 +332,8 @@
 }
 
 bool
-octave_float_scalar::fast_elem_insert_self (void *where, builtin_type_t btyp) const
+octave_float_scalar::fast_elem_insert_self (void *where,
+                                            builtin_type_t btyp) const
 {
 
   // Support inline real->complex conversion.
--- a/libinterp/octave-value/ov-float.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-float.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_float_h)
-#define octave_float_h 1
+#if !defined (octave_ov_float_h)
+#define octave_ov_float_h 1
 
 #include <cstdlib>
 
@@ -65,12 +65,14 @@
 
   ~octave_float_scalar (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_scalar (*this); }
+  octave_base_value *clone (void) const
+  { return new octave_float_scalar (*this); }
 
   // We return an octave_matrix here instead of an octave_float_scalar so
   // that in expressions like A(2,2,2) = 2 (for A previously
   // undefined), A will be empty instead of a 1x1 object.
-  octave_base_value *empty_clone (void) const { return new octave_float_matrix (); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_float_matrix (); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -78,7 +80,7 @@
   idx_vector index_vector (void) const { return idx_vector (scalar); }
 
   octave_value any (int = 0) const
-    { return (scalar != 0 && ! lo_ieee_isnan (scalar)); }
+  { return (scalar != 0 && ! lo_ieee_isnan (scalar)); }
 
   builtin_type_t builtin_type (void) const { return btyp_float; }
 
@@ -92,35 +94,35 @@
 
   int8NDArray
   int8_array_value (void) const
-    { return int8NDArray (dim_vector (1, 1), scalar); }
+  { return int8NDArray (dim_vector (1, 1), scalar); }
 
   int16NDArray
   int16_array_value (void) const
-    { return int16NDArray (dim_vector (1, 1), scalar); }
+  { return int16NDArray (dim_vector (1, 1), scalar); }
 
   int32NDArray
   int32_array_value (void) const
-    { return int32NDArray (dim_vector (1, 1), scalar); }
+  { return int32NDArray (dim_vector (1, 1), scalar); }
 
   int64NDArray
   int64_array_value (void) const
-    { return int64NDArray (dim_vector (1, 1), scalar); }
+  { return int64NDArray (dim_vector (1, 1), scalar); }
 
   uint8NDArray
   uint8_array_value (void) const
-    { return uint8NDArray (dim_vector (1, 1), scalar); }
+  { return uint8NDArray (dim_vector (1, 1), scalar); }
 
   uint16NDArray
   uint16_array_value (void) const
-    { return uint16NDArray (dim_vector (1, 1), scalar); }
+  { return uint16NDArray (dim_vector (1, 1), scalar); }
 
   uint32NDArray
   uint32_array_value (void) const
-    { return uint32NDArray (dim_vector (1, 1), scalar); }
+  { return uint32NDArray (dim_vector (1, 1), scalar); }
 
   uint64NDArray
   uint64_array_value (void) const
-    { return uint64NDArray (dim_vector (1, 1), scalar); }
+  { return uint64NDArray (dim_vector (1, 1), scalar); }
 
 #define DEFINE_INT_SCALAR_VALUE(TYPE) \
   octave_ ## TYPE \
@@ -138,32 +140,34 @@
 
 #undef DEFINE_INT_SCALAR_VALUE
 
-  double double_value (bool = false) const { return static_cast<double> (scalar); }
+  double double_value (bool = false) const
+  { return static_cast<double> (scalar); }
 
   float float_value (bool = false) const { return scalar; }
 
-  double scalar_value (bool = false) const { return static_cast<double> (scalar); }
+  double scalar_value (bool = false) const
+  { return static_cast<double> (scalar); }
 
   float float_scalar_value (bool = false) const { return scalar; }
 
   Matrix matrix_value (bool = false) const
-    { return Matrix (1, 1, scalar); }
+  { return Matrix (1, 1, scalar); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return FloatMatrix (1, 1, scalar); }
+  { return FloatMatrix (1, 1, scalar); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (dim_vector (1, 1), scalar); }
+  { return NDArray (dim_vector (1, 1), scalar); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatNDArray (dim_vector (1, 1), scalar); }
+  { return FloatNDArray (dim_vector (1, 1), scalar); }
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (Matrix (1, 1, scalar)); }
+  { return SparseMatrix (Matrix (1, 1, scalar)); }
 
   // FIXME Need SparseComplexMatrix (Matrix) constructor!!!
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (sparse_matrix_value ()); }
+  { return SparseComplexMatrix (sparse_matrix_value ()); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -172,16 +176,16 @@
   FloatComplex float_complex_value (bool = false) const { return scalar; }
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return  ComplexMatrix (1, 1, Complex (scalar)); }
+  { return  ComplexMatrix (1, 1, Complex (scalar)); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return  FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
+  { return  FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
+  { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
+  { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
 
   charNDArray
   char_array_value (bool = false) const
@@ -237,10 +241,10 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      return os.write (array_value (), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    return os.write (array_value (), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
--- a/libinterp/octave-value/ov-flt-complex.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-complex.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -71,13 +71,13 @@
 octave_value
 octave_float_complex::do_index_op (const octave_value_list& idx, bool resize_ok)
 {
-  // FIXME -- this doesn't solve the problem of
+  // FIXME: this doesn't solve the problem of
   //
   //   a = i; a([1,1], [1,1], [1,1])
   //
   // and similar constructions.  Hmm...
 
-  // FIXME -- using this constructor avoids narrowing the
+  // FIXME: using this constructor avoids narrowing the
   // 1x1 matrix back to a scalar value.  Need a better solution
   // to this problem.
 
@@ -232,7 +232,9 @@
 octave_value
 octave_float_complex::diag (octave_idx_type m, octave_idx_type n) const
 {
-  return FloatComplexDiagMatrix (Array<FloatComplex> (dim_vector (1, 1), scalar), m, n);
+  return
+    FloatComplexDiagMatrix (Array<FloatComplex> (dim_vector (1, 1), scalar),
+                            m, n);
 }
 
 bool
@@ -275,7 +277,7 @@
 
 bool
 octave_float_complex::load_binary (std::istream& is, bool swap,
-                             oct_mach_info::float_format fmt)
+                                   oct_mach_info::float_format fmt)
 {
   char tmp;
   if (! is.read (reinterpret_cast<char *> (&tmp), 1))
@@ -283,7 +285,7 @@
 
   FloatComplex ctmp;
   read_floats (is, reinterpret_cast<float *> (&ctmp),
-                static_cast<save_type> (tmp), 2, swap, fmt);
+               static_cast<save_type> (tmp), 2, swap, fmt);
   if (error_state || ! is)
     return false;
 
@@ -295,7 +297,7 @@
 
 bool
 octave_float_complex::save_hdf5 (hid_t loc_id, const char *name,
-                           bool /* save_as_floats */)
+                                 bool /* save_as_floats */)
 {
   hsize_t dimens[3];
   hid_t space_hid = -1, type_hid = -1, data_hid = -1;
--- a/libinterp/octave-value/ov-flt-complex.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-complex.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_float_complex_h)
-#define octave_float_complex_h 1
+#if !defined (octave_ov_flt_complex_h)
+#define octave_ov_flt_complex_h 1
 
 #include <cstdlib>
 
@@ -63,14 +63,15 @@
 
   ~octave_float_complex (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_complex (*this); }
+  octave_base_value *clone (void) const
+  { return new octave_float_complex (*this); }
 
   // We return an octave_float_complex_matrix object here instead of an
   // octave_float_complex object so that in expressions like A(2,2,2) = 2
   // (for A previously undefined), A will be empty instead of a 1x1
   // object.
   octave_base_value *empty_clone (void) const
-    { return new octave_float_complex_matrix (); }
+  { return new octave_float_complex_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
@@ -78,11 +79,11 @@
                             bool resize_ok = false);
 
   octave_value any (int = 0) const
-    {
-      return (scalar != FloatComplex (0, 0)
-              && ! (lo_ieee_isnan (std::real (scalar))
-                    || lo_ieee_isnan (std::imag (scalar))));
-    }
+  {
+    return (scalar != FloatComplex (0, 0)
+            && ! (lo_ieee_isnan (std::real (scalar))
+                  || lo_ieee_isnan (std::imag (scalar))));
+  }
 
   builtin_type_t builtin_type (void) const { return btyp_float_complex; }
 
@@ -99,10 +100,10 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -113,10 +114,10 @@
   FloatNDArray float_array_value (bool = false) const;
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (matrix_value ()); }
+  { return SparseMatrix (matrix_value ()); }
 
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (complex_matrix_value ()); }
+  { return SparseComplexMatrix (complex_matrix_value ()); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -176,11 +177,11 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // Yes, for compatibility, we drop the imaginary part here.
-      return os.write (array_value (true), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    // Yes, for compatibility, we drop the imaginary part here.
+    return os.write (array_value (true), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
--- a/libinterp/octave-value/ov-flt-cx-diag.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-cx-diag.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -133,7 +133,8 @@
       return ::imag (matrix);
     case umap_sqrt:
       {
-        FloatComplexColumnVector tmp = matrix.extract_diag ().map<FloatComplex> (std::sqrt);
+        FloatComplexColumnVector tmp = matrix.extract_diag ().map<FloatComplex>
+                                       (std::sqrt);
         FloatComplexDiagMatrix retval (tmp);
         retval.resize (matrix.rows (), matrix.columns ());
         return retval;
@@ -155,7 +156,7 @@
 
   FloatComplexMatrix m = FloatComplexMatrix (matrix.extract_diag ());
   save_type st = LS_FLOAT;
-  if (matrix.length () > 4096) // FIXME -- make this configurable.
+  if (matrix.length () > 4096) // FIXME: make this configurable.
     {
       float max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -170,7 +171,7 @@
 
 bool
 octave_float_complex_diag_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                               oct_mach_info::float_format fmt)
 {
   int32_t r, c;
   char tmp;
--- a/libinterp/octave-value/ov-flt-cx-diag.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-cx-diag.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_float_complex_diag_matrix_h)
-#define octave_float_complex_diag_matrix_h 1
+#if !defined (octave_ov_flt_cx_diag_h)
+#define octave_ov_flt_cx_diag_h 1
 
 #include "ov-base.h"
 #include "ov-base-diag.h"
@@ -48,8 +48,10 @@
 
   ~octave_float_complex_diag_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_complex_diag_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_float_complex_diag_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_float_complex_diag_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_float_complex_diag_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
--- a/libinterp/octave-value/ov-flt-cx-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-cx-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -441,7 +441,7 @@
 
   FloatComplexNDArray m = complex_array_value ();
   save_type st = LS_FLOAT;
-  if (d.numel () > 4096) // FIXME -- make this configurable.
+  if (d.numel () > 4096) // FIXME: make this configurable.
     {
       float max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -456,7 +456,7 @@
 
 bool
 octave_float_complex_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                          oct_mach_info::float_format fmt)
 {
   char tmp;
   int32_t mdims;
@@ -498,7 +498,7 @@
       FloatComplexNDArray m(dv);
       FloatComplex *im = m.fortran_vec ();
       read_floats (is, reinterpret_cast<float *> (im),
-                    static_cast<save_type> (tmp), 2 * dv.numel (), swap, fmt);
+                   static_cast<save_type> (tmp), 2 * dv.numel (), swap, fmt);
       if (error_state || ! is)
         return false;
       matrix = m;
@@ -517,7 +517,7 @@
       FloatComplex *im = m.fortran_vec ();
       octave_idx_type len = nr * nc;
       read_floats (is, reinterpret_cast<float *> (im),
-                    static_cast<save_type> (tmp), 2*len, swap, fmt);
+                   static_cast<save_type> (tmp), 2*len, swap, fmt);
       if (error_state || ! is)
         return false;
       matrix = m;
@@ -614,7 +614,7 @@
   if (empty > 0)
     matrix.resize (dv);
   if (empty)
-      return (empty > 0);
+    return (empty > 0);
 
 #if HAVE_HDF5_18
   hid_t data_hid = H5Dopen (loc_id, name, H5P_DEFAULT);
@@ -683,7 +683,7 @@
 
 void
 octave_float_complex_matrix::print_raw (std::ostream& os,
-                                  bool pr_as_read_syntax) const
+                                        bool pr_as_read_syntax) const
 {
   octave_print_internal (os, matrix, pr_as_read_syntax,
                          current_print_indent_level ());
--- a/libinterp/octave-value/ov-flt-cx-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-cx-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_float_complex_matrix_h)
-#define octave_float_complex_matrix_h 1
+#if !defined (octave_ov_flt_cx_mat_h)
+#define octave_ov_flt_cx_mat_h 1
 
 #include <cstdlib>
 
@@ -82,8 +82,10 @@
 
   ~octave_float_complex_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_complex_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_float_complex_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_float_complex_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_float_complex_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
@@ -102,10 +104,10 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -159,11 +161,11 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // Yes, for compatibility, we drop the imaginary part here.
-      return os.write (matrix_value (true), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    // Yes, for compatibility, we drop the imaginary part here.
+    return os.write (matrix_value (true), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
 
--- a/libinterp/octave-value/ov-flt-re-diag.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-re-diag.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -103,7 +103,8 @@
       return DiagMatrix (matrix.rows (), matrix.cols (), 0.0);
     case umap_sqrt:
       {
-        FloatComplexColumnVector tmp = matrix.extract_diag ().map<FloatComplex> (rc_sqrt);
+        FloatComplexColumnVector tmp = matrix.extract_diag ().map<FloatComplex>
+                                       (rc_sqrt);
         FloatComplexDiagMatrix retval (tmp);
         retval.resize (matrix.rows (), matrix.columns ());
         return retval;
@@ -124,7 +125,7 @@
 
   FloatMatrix m = FloatMatrix (matrix.extract_diag ());
   save_type st = LS_FLOAT;
-  if (matrix.length () > 8192) // FIXME -- make this configurable.
+  if (matrix.length () > 8192) // FIXME: make this configurable.
     {
       float max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -139,7 +140,7 @@
 
 bool
 octave_float_diag_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                       oct_mach_info::float_format fmt)
 {
   int32_t r, c;
   char tmp;
--- a/libinterp/octave-value/ov-flt-re-diag.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-re-diag.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_float_diag_matrix_h)
-#define octave_float_diag_matrix_h 1
+#if !defined (octave_ov_flt_re_diag_h)
+#define octave_ov_flt_re_diag_h 1
 
 #include "ov-base.h"
 #include "ov-base-diag.h"
@@ -48,8 +48,10 @@
 
   ~octave_float_diag_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_diag_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_float_diag_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_float_diag_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_float_diag_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
--- a/libinterp/octave-value/ov-flt-re-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-re-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -72,7 +72,8 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_float_matrix);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_float_matrix, "float matrix", "single");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_float_matrix, "float matrix",
+                                     "single");
 
 octave_base_value *
 octave_float_matrix::try_narrowing_conversion (void)
@@ -305,8 +306,7 @@
 
           if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
             {
-              // FIXME -- is there something
-              // better we could do?
+              // FIXME: is there something better we could do?
 
               ival = 0;
 
@@ -469,7 +469,7 @@
 
   FloatNDArray m = float_array_value ();
   save_type st = LS_FLOAT;
-  if (d.numel () > 8192) // FIXME -- make this configurable.
+  if (d.numel () > 8192) // FIXME: make this configurable.
     {
       float max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -484,7 +484,7 @@
 
 bool
 octave_float_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                                  oct_mach_info::float_format fmt)
 {
   char tmp;
   int32_t mdims;
@@ -525,7 +525,8 @@
 
       FloatNDArray m(dv);
       float *re = m.fortran_vec ();
-      read_floats (is, re, static_cast<save_type> (tmp), dv.numel (), swap, fmt);
+      read_floats (is, re, static_cast<save_type> (tmp), dv.numel (),
+                   swap, fmt);
       if (error_state || ! is)
         return false;
       matrix = m;
@@ -622,7 +623,7 @@
   if (empty > 0)
     matrix.resize (dv);
   if (empty)
-      return (empty > 0);
+    return (empty > 0);
 
 #if HAVE_HDF5_18
   hid_t data_hid = H5Dopen (loc_id, name, H5P_DEFAULT);
@@ -678,7 +679,7 @@
 
 void
 octave_float_matrix::print_raw (std::ostream& os,
-                          bool pr_as_read_syntax) const
+                                bool pr_as_read_syntax) const
 {
   octave_print_internal (os, matrix, pr_as_read_syntax,
                          current_print_indent_level ());
@@ -816,7 +817,7 @@
 }
 
 DEFUN (single, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} single (@var{x})\n\
 Convert @var{x} to single precision type.\n\
 @seealso{double}\n\
@@ -832,11 +833,13 @@
         {
           if (args(0).is_complex_type ())
             {
-              OCTAVE_TYPE_CONV_BODY3 (single, octave_float_complex_diag_matrix, octave_float_complex);
+              OCTAVE_TYPE_CONV_BODY3 (single, octave_float_complex_diag_matrix,
+                                      octave_float_complex);
             }
           else
             {
-              OCTAVE_TYPE_CONV_BODY3 (single, octave_float_diag_matrix, octave_float_scalar);
+              OCTAVE_TYPE_CONV_BODY3 (single, octave_float_diag_matrix,
+                                      octave_float_scalar);
             }
         }
       else if (args(0).is_sparse_type ())
@@ -845,11 +848,13 @@
         }
       else if (args(0).is_complex_type ())
         {
-          OCTAVE_TYPE_CONV_BODY3 (single, octave_float_complex_matrix, octave_float_complex);
+          OCTAVE_TYPE_CONV_BODY3 (single, octave_float_complex_matrix,
+                                  octave_float_complex);
         }
       else
         {
-          OCTAVE_TYPE_CONV_BODY3 (single, octave_float_matrix, octave_float_scalar);
+          OCTAVE_TYPE_CONV_BODY3 (single, octave_float_matrix,
+                                  octave_float_scalar);
         }
     }
   else
--- a/libinterp/octave-value/ov-flt-re-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-flt-re-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_float_matrix_h)
-#define octave_float_matrix_h 1
+#if !defined (octave_ov_flt_re_mat_h)
+#define octave_ov_flt_re_mat_h 1
 
 #include <cstdlib>
 
@@ -82,13 +82,15 @@
 
   ~octave_float_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_float_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_float_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_float_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_float_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
   idx_vector index_vector (void) const
-    { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
+  { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
 
   builtin_type_t builtin_type (void) const { return btyp_float; }
 
@@ -129,10 +131,10 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -195,7 +197,7 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
--- a/libinterp/octave-value/ov-int-traits.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int-traits.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_value_int_traits_h)
-#define octave_value_int_traits_h 1
+#if !defined (octave_ov_int_traits_h)
+#define octave_ov_int_traits_h 1
 
 #include "ov-int8.h"
 #include "ov-int16.h"
--- a/libinterp/octave-value/ov-int16.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int16.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "int16 scalar", "int16");
 
 DEFUN (int16, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} int16 (@var{x})\n\
 Convert @var{x} to 16-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-int16.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int16.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_int16_h)
-#define octave_int16_h 1
+#if !defined (octave_ov_int16_h)
+#define octave_ov_int16_h 1
 
 #define OCTAVE_INT_T octave_int16
 
--- a/libinterp/octave-value/ov-int32.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int32.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "int32 scalar", "int32");
 
 DEFUN (int32, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} int32 (@var{x})\n\
 Convert @var{x} to 32-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-int32.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int32.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_int32_h)
-#define octave_int32_h 1
+#if !defined (octave_ov_int32_h)
+#define octave_ov_int32_h 1
 
 #define OCTAVE_INT_T octave_int32
 
--- a/libinterp/octave-value/ov-int64.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int64.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "int64 scalar", "int64");
 
 DEFUN (int64, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} int64 (@var{x})\n\
 Convert @var{x} to 64-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-int64.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int64.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_int64_h)
-#define octave_int64_h 1
+#if !defined (octave_ov_int64_h)
+#define octave_ov_int64_h 1
 
 #define OCTAVE_INT_T octave_int64
 
--- a/libinterp/octave-value/ov-int8.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int8.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "int8 scalar", "int8");
 
 DEFUN (int8, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} int8 (@var{x})\n\
 Convert @var{x} to 8-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-int8.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-int8.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_int8_h)
-#define octave_int8_h 1
+#if !defined (octave_ov_int8_h)
+#define octave_ov_int8_h 1
 
 #define OCTAVE_INT_T octave_int8
 
--- a/libinterp/octave-value/ov-intx.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-intx.h	Tue Nov 05 12:27:42 2013 -0500
@@ -61,10 +61,10 @@
   ~OCTAVE_VALUE_INT_MATRIX_T (void) { }
 
   octave_base_value *clone (void) const
-    { return new OCTAVE_VALUE_INT_MATRIX_T (*this); }
+  { return new OCTAVE_VALUE_INT_MATRIX_T (*this); }
 
   octave_base_value *empty_clone (void) const
-    { return new OCTAVE_VALUE_INT_MATRIX_T (); }
+  { return new OCTAVE_VALUE_INT_MATRIX_T (); }
 
   bool OCTAVE_TYPE_PREDICATE_FUNCTION (void) const { return true; }
 
@@ -100,41 +100,41 @@
 
   double
   double_value (bool = false) const
-    {
-      double retval = lo_ieee_nan_value ();
+  {
+    double retval = lo_ieee_nan_value ();
 
-      if (numel () > 0)
-        {
-          gripe_implicit_conversion ("Octave:array-to-scalar",
-                                     type_name (), "real scalar");
+    if (numel () > 0)
+      {
+        gripe_implicit_conversion ("Octave:array-to-scalar",
+                                   type_name (), "real scalar");
 
-          retval = matrix(0).double_value ();
-        }
-      else
-        gripe_invalid_conversion (type_name (), "real scalar");
+        retval = matrix(0).double_value ();
+      }
+    else
+      gripe_invalid_conversion (type_name (), "real scalar");
 
-      return retval;
+    return retval;
 
-    }
+  }
 
   float
   float_value (bool = false) const
-    {
-      float retval = lo_ieee_float_nan_value ();
+  {
+    float retval = lo_ieee_float_nan_value ();
 
-      if (numel () > 0)
-        {
-          gripe_implicit_conversion ("Octave:array-to-scalar",
-                                     type_name (), "real scalar");
+    if (numel () > 0)
+      {
+        gripe_implicit_conversion ("Octave:array-to-scalar",
+                                   type_name (), "real scalar");
 
-          retval = matrix(0).float_value ();
-        }
-      else
-        gripe_invalid_conversion (type_name (), "real scalar");
+        retval = matrix(0).float_value ();
+      }
+    else
+      gripe_invalid_conversion (type_name (), "real scalar");
 
-      return retval;
+    return retval;
 
-    }
+  }
 
   double scalar_value (bool = false) const { return double_value (); }
 
@@ -142,119 +142,119 @@
 
   Matrix
   matrix_value (bool = false) const
-    {
-      Matrix retval;
-      dim_vector dv = dims ();
-      if (dv.length () > 2)
-        error ("invalid conversion of %s to Matrix", type_name ().c_str ());
-      else
-        {
-          retval = Matrix (dv(0), dv(1));
-          double *vec = retval.fortran_vec ();
-          octave_idx_type nel = matrix.numel ();
-          for (octave_idx_type i = 0; i < nel; i++)
-            vec[i] = matrix(i).double_value ();
-        }
-      return retval;
-    }
+  {
+    Matrix retval;
+    dim_vector dv = dims ();
+    if (dv.length () > 2)
+      error ("invalid conversion of %s to Matrix", type_name ().c_str ());
+    else
+      {
+        retval = Matrix (dv(0), dv(1));
+        double *vec = retval.fortran_vec ();
+        octave_idx_type nel = matrix.numel ();
+        for (octave_idx_type i = 0; i < nel; i++)
+          vec[i] = matrix(i).double_value ();
+      }
+    return retval;
+  }
 
   FloatMatrix
   float_matrix_value (bool = false) const
-    {
-      FloatMatrix retval;
-      dim_vector dv = dims ();
-      if (dv.length () > 2)
-        error ("invalid conversion of %s to FloatMatrix", type_name ().c_str ());
-      else
-        {
-          retval = FloatMatrix (dv(0), dv(1));
-          float *vec = retval.fortran_vec ();
-          octave_idx_type nel = matrix.numel ();
-          for (octave_idx_type i = 0; i < nel; i++)
-            vec[i] = matrix(i).float_value ();
-        }
-      return retval;
-    }
+  {
+    FloatMatrix retval;
+    dim_vector dv = dims ();
+    if (dv.length () > 2)
+      error ("invalid conversion of %s to FloatMatrix", type_name ().c_str ());
+    else
+      {
+        retval = FloatMatrix (dv(0), dv(1));
+        float *vec = retval.fortran_vec ();
+        octave_idx_type nel = matrix.numel ();
+        for (octave_idx_type i = 0; i < nel; i++)
+          vec[i] = matrix(i).float_value ();
+      }
+    return retval;
+  }
 
   ComplexMatrix
   complex_matrix_value (bool = false) const
-    {
-      ComplexMatrix retval;
-      dim_vector dv = dims ();
-      if (dv.length () > 2)
-        error ("invalid conversion of %s to Matrix", type_name ().c_str ());
-      else
-        {
-          retval = ComplexMatrix (dv(0), dv(1));
-          Complex *vec = retval.fortran_vec ();
-          octave_idx_type nel = matrix.numel ();
-          for (octave_idx_type i = 0; i < nel; i++)
-            vec[i] = Complex (matrix(i).double_value ());
-        }
-      return retval;
-    }
+  {
+    ComplexMatrix retval;
+    dim_vector dv = dims ();
+    if (dv.length () > 2)
+      error ("invalid conversion of %s to Matrix", type_name ().c_str ());
+    else
+      {
+        retval = ComplexMatrix (dv(0), dv(1));
+        Complex *vec = retval.fortran_vec ();
+        octave_idx_type nel = matrix.numel ();
+        for (octave_idx_type i = 0; i < nel; i++)
+          vec[i] = Complex (matrix(i).double_value ());
+      }
+    return retval;
+  }
 
   FloatComplexMatrix
   float_complex_matrix_value (bool = false) const
-    {
-      FloatComplexMatrix retval;
-      dim_vector dv = dims ();
-      if (dv.length () > 2)
-        error ("invalid conversion of %s to FloatMatrix", type_name ().c_str ());
-      else
-        {
-          retval = FloatComplexMatrix (dv(0), dv(1));
-          FloatComplex *vec = retval.fortran_vec ();
-          octave_idx_type nel = matrix.numel ();
-          for (octave_idx_type i = 0; i < nel; i++)
-            vec[i] = FloatComplex (matrix(i).float_value ());
-        }
-      return retval;
-    }
+  {
+    FloatComplexMatrix retval;
+    dim_vector dv = dims ();
+    if (dv.length () > 2)
+      error ("invalid conversion of %s to FloatMatrix", type_name ().c_str ());
+    else
+      {
+        retval = FloatComplexMatrix (dv(0), dv(1));
+        FloatComplex *vec = retval.fortran_vec ();
+        octave_idx_type nel = matrix.numel ();
+        for (octave_idx_type i = 0; i < nel; i++)
+          vec[i] = FloatComplex (matrix(i).float_value ());
+      }
+    return retval;
+  }
 
   NDArray
   array_value (bool = false) const
-    {
-      NDArray retval (matrix.dims ());
-      double *vec = retval.fortran_vec ();
-      octave_idx_type nel = matrix.numel ();
-      for (octave_idx_type i = 0; i < nel; i++)
-        vec[i] = matrix(i).double_value ();
-      return retval;
-    }
+  {
+    NDArray retval (matrix.dims ());
+    double *vec = retval.fortran_vec ();
+    octave_idx_type nel = matrix.numel ();
+    for (octave_idx_type i = 0; i < nel; i++)
+      vec[i] = matrix(i).double_value ();
+    return retval;
+  }
 
   FloatNDArray
   float_array_value (bool = false) const
-    {
-      FloatNDArray retval (matrix.dims ());
-      float *vec = retval.fortran_vec ();
-      octave_idx_type nel = matrix.numel ();
-      for (octave_idx_type i = 0; i < nel; i++)
-        vec[i] = matrix(i).float_value ();
-      return retval;
-    }
+  {
+    FloatNDArray retval (matrix.dims ());
+    float *vec = retval.fortran_vec ();
+    octave_idx_type nel = matrix.numel ();
+    for (octave_idx_type i = 0; i < nel; i++)
+      vec[i] = matrix(i).float_value ();
+    return retval;
+  }
 
   ComplexNDArray
   complex_array_value (bool = false) const
-    {
-      ComplexNDArray retval (matrix.dims ());
-      Complex *vec = retval.fortran_vec ();
-      octave_idx_type nel = matrix.numel ();
-      for (octave_idx_type i = 0; i < nel; i++)
-        vec[i] = Complex (matrix(i).double_value ());
-      return retval;
-    }
+  {
+    ComplexNDArray retval (matrix.dims ());
+    Complex *vec = retval.fortran_vec ();
+    octave_idx_type nel = matrix.numel ();
+    for (octave_idx_type i = 0; i < nel; i++)
+      vec[i] = Complex (matrix(i).double_value ());
+    return retval;
+  }
 
   FloatComplexNDArray
   float_complex_array_value (bool = false) const
-    {
-      FloatComplexNDArray retval (matrix.dims ());
-      FloatComplex *vec = retval.fortran_vec ();
-      octave_idx_type nel = matrix.numel ();
-      for (octave_idx_type i = 0; i < nel; i++)
-        vec[i] = FloatComplex (matrix(i).float_value ());
-      return retval;
-    }
+  {
+    FloatComplexNDArray retval (matrix.dims ());
+    FloatComplex *vec = retval.fortran_vec ();
+    octave_idx_type nel = matrix.numel ();
+    for (octave_idx_type i = 0; i < nel; i++)
+      vec[i] = FloatComplex (matrix(i).float_value ());
+    return retval;
+  }
 
   boolNDArray
   bool_array_value (bool warn = false) const
@@ -289,27 +289,27 @@
 
   // Use matrix_ref here to clear index cache.
   void increment (void)
-   {
-     matrix_ref () += OCTAVE_INT_T (1);
-   }
+  {
+    matrix_ref () += OCTAVE_INT_T (1);
+  }
 
   void decrement (void)
-   {
-     matrix_ref () -= OCTAVE_INT_T (1);
-   }
+  {
+    matrix_ref () -= OCTAVE_INT_T (1);
+  }
 
   void changesign (void)
-   {
-     matrix_ref ().changesign ();
-   }
+  {
+    matrix_ref ().changesign ();
+  }
 
   idx_vector index_vector (void) const
-    { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
+  { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
 
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
@@ -319,7 +319,8 @@
   {
     mxArray *retval = new mxArray (OCTAVE_INT_MX_CLASS, dims (), mxREAL);
 
-    OCTAVE_INT_T::val_type *pr = static_cast<OCTAVE_INT_T::val_type *> (retval->get_data ());
+    OCTAVE_INT_T::val_type *pr = static_cast<OCTAVE_INT_T::val_type *>
+                                 (retval->get_data ());
 
     mwSize nel = numel ();
 
@@ -332,36 +333,36 @@
   }
 
   octave_value map (unary_mapper_t umap) const
-    {
-      switch (umap)
+  {
+    switch (umap)
+      {
+      case umap_abs:
+        return matrix.abs ();
+      case umap_signum:
+        return matrix.signum ();
+      case umap_ceil:
+      case umap_conj:
+      case umap_fix:
+      case umap_floor:
+      case umap_real:
+      case umap_round:
+        return matrix;
+      case umap_imag:
+        return intNDArray<OCTAVE_INT_T> (matrix.dims (), OCTAVE_INT_T ());
+      case umap_isnan:
+      case umap_isna:
+      case umap_isinf:
+        return boolNDArray (matrix.dims (), false);
+      case umap_finite:
+        return boolNDArray (matrix.dims (), true);
+
+      default:
         {
-        case umap_abs:
-          return matrix.abs ();
-        case umap_signum:
-          return matrix.signum ();
-        case umap_ceil:
-        case umap_conj:
-        case umap_fix:
-        case umap_floor:
-        case umap_real:
-        case umap_round:
-          return matrix;
-        case umap_imag:
-          return intNDArray<OCTAVE_INT_T> (matrix.dims (), OCTAVE_INT_T ());
-        case umap_isnan:
-        case umap_isna:
-        case umap_isinf:
-          return boolNDArray (matrix.dims (), false);
-        case umap_finite:
-          return boolNDArray (matrix.dims (), true);
-
-        default:
-          {
-            octave_matrix m (array_value ());
-            return m.map (umap);
-          }
+          octave_matrix m (array_value ());
+          return m.map (umap);
         }
-    }
+      }
+  }
 
 private:
 
@@ -386,30 +387,30 @@
   ~OCTAVE_VALUE_INT_SCALAR_T (void) { }
 
   octave_base_value *clone (void) const
-    { return new OCTAVE_VALUE_INT_SCALAR_T (*this); }
+  { return new OCTAVE_VALUE_INT_SCALAR_T (*this); }
 
   octave_base_value *empty_clone (void) const
-    { return new OCTAVE_VALUE_INT_MATRIX_T (); }
+  { return new OCTAVE_VALUE_INT_MATRIX_T (); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false)
-    {
-      // FIXME -- this doesn't solve the problem of
-      //
-      //   a = 1; a([1,1], [1,1], [1,1])
-      //
-      // and similar constructions.  Hmm...
+  {
+    // FIXME: this doesn't solve the problem of
+    //
+    //   a = 1; a([1,1], [1,1], [1,1])
+    //
+    // and similar constructions.  Hmm...
 
-      // FIXME -- using this constructor avoids narrowing the
-      // 1x1 matrix back to a scalar value.  Need a better solution
-      // to this problem.
+    // FIXME: using this constructor avoids narrowing the
+    // 1x1 matrix back to a scalar value.  Need a better solution
+    // to this problem.
 
-      octave_value tmp
-        (new OCTAVE_VALUE_INT_MATRIX_T
-         (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION ()));
+    octave_value tmp
+    (new OCTAVE_VALUE_INT_MATRIX_T
+     (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION ()));
 
-      return tmp.do_index_op (idx, resize_ok);
-    }
+    return tmp.do_index_op (idx, resize_ok);
+  }
 
   bool OCTAVE_TYPE_PREDICATE_FUNCTION (void) const { return true; }
 
@@ -445,53 +446,53 @@
 
   int8NDArray
   int8_array_value (void) const
-    { return int8NDArray (dim_vector (1, 1), int8_scalar_value ()); }
+  { return int8NDArray (dim_vector (1, 1), int8_scalar_value ()); }
 
   int16NDArray
   int16_array_value (void) const
-    { return int16NDArray (dim_vector (1, 1), int16_scalar_value ()); }
+  { return int16NDArray (dim_vector (1, 1), int16_scalar_value ()); }
 
   int32NDArray
   int32_array_value (void) const
-    { return int32NDArray (dim_vector (1, 1), int32_scalar_value ()); }
+  { return int32NDArray (dim_vector (1, 1), int32_scalar_value ()); }
 
   int64NDArray
   int64_array_value (void) const
-    { return int64NDArray (dim_vector (1, 1), int64_scalar_value ()); }
+  { return int64NDArray (dim_vector (1, 1), int64_scalar_value ()); }
 
   uint8NDArray
   uint8_array_value (void) const
-    { return uint8NDArray (dim_vector (1, 1), uint8_scalar_value ()); }
+  { return uint8NDArray (dim_vector (1, 1), uint8_scalar_value ()); }
 
   uint16NDArray
   uint16_array_value (void) const
-    { return uint16NDArray (dim_vector (1, 1), uint16_scalar_value ()); }
+  { return uint16NDArray (dim_vector (1, 1), uint16_scalar_value ()); }
 
   uint32NDArray
   uint32_array_value (void) const
-    { return uint32NDArray (dim_vector (1, 1), uint32_scalar_value ()); }
+  { return uint32NDArray (dim_vector (1, 1), uint32_scalar_value ()); }
 
   uint64NDArray
   uint64_array_value (void) const
-    { return uint64NDArray (dim_vector (1, 1), uint64_scalar_value ()); }
+  { return uint64NDArray (dim_vector (1, 1), uint64_scalar_value ()); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    {
-      if (fill)
-        {
-          intNDArray<OCTAVE_INT_T> retval (dv, 0);
-          if (dv.numel ())
-            retval(0) = scalar;
-          return retval;
-        }
-      else
-        {
-          intNDArray<OCTAVE_INT_T> retval (dv);
-          if (dv.numel ())
-            retval(0) = scalar;
-          return retval;
-        }
-    }
+  {
+    if (fill)
+      {
+        intNDArray<OCTAVE_INT_T> retval (dv, 0);
+        if (dv.numel ())
+          retval(0) = scalar;
+        return retval;
+      }
+    else
+      {
+        intNDArray<OCTAVE_INT_T> retval (dv);
+        if (dv.numel ())
+          retval(0) = scalar;
+        return retval;
+      }
+  }
 
   double double_value (bool = false) const { return scalar.double_value (); }
 
@@ -499,71 +500,72 @@
 
   double scalar_value (bool = false) const { return scalar.double_value (); }
 
-  float float_scalar_value (bool = false) const { return scalar.float_value (); }
+  float float_scalar_value (bool = false) const
+  { return scalar.float_value (); }
 
   Matrix
   matrix_value (bool = false) const
-    {
-      Matrix retval (1, 1);
-      retval(0,0) = scalar.double_value ();
-      return retval;
-    }
+  {
+    Matrix retval (1, 1);
+    retval(0,0) = scalar.double_value ();
+    return retval;
+  }
 
   FloatMatrix
   float_matrix_value (bool = false) const
-    {
-      FloatMatrix retval (1, 1);
-      retval(0,0) = scalar.float_value ();
-      return retval;
-    }
+  {
+    FloatMatrix retval (1, 1);
+    retval(0,0) = scalar.float_value ();
+    return retval;
+  }
 
   ComplexMatrix
   complex_matrix_value (bool = false) const
-    {
-      ComplexMatrix retval (1, 1);
-      retval(0,0) = Complex (scalar.double_value ());
-      return retval;
-    }
+  {
+    ComplexMatrix retval (1, 1);
+    retval(0,0) = Complex (scalar.double_value ());
+    return retval;
+  }
 
   FloatComplexMatrix
   float_complex_matrix_value (bool = false) const
-    {
-      FloatComplexMatrix retval (1, 1);
-      retval(0,0) = FloatComplex (scalar.float_value ());
-      return retval;
-    }
+  {
+    FloatComplexMatrix retval (1, 1);
+    retval(0,0) = FloatComplex (scalar.float_value ());
+    return retval;
+  }
 
   NDArray
   array_value (bool = false) const
-    {
-      NDArray retval (dim_vector (1, 1));
-      retval(0) = scalar.double_value ();
-      return retval;
-    }
+  {
+    NDArray retval (dim_vector (1, 1));
+    retval(0) = scalar.double_value ();
+    return retval;
+  }
 
   FloatNDArray
   float_array_value (bool = false) const
-    {
-      FloatNDArray retval (dim_vector (1, 1));
-      retval(0) = scalar.float_value ();
-      return retval;
-    }
+  {
+    FloatNDArray retval (dim_vector (1, 1));
+    retval(0) = scalar.float_value ();
+    return retval;
+  }
 
   ComplexNDArray
   complex_array_value (bool = false) const
-    {
-      ComplexNDArray retval (dim_vector (1, 1));
-      retval(0) = FloatComplex (scalar.double_value ());
-      return retval;
-    }
+  {
+    ComplexNDArray retval (dim_vector (1, 1));
+    retval(0) = FloatComplex (scalar.double_value ());
+    return retval;
+  }
 
   FloatComplexNDArray
   float_complex_array_value (bool = false) const
-    {
-      FloatComplexNDArray retval (dim_vector (1, 1));
-      retval(0) = FloatComplex (scalar.float_value ());
-      return retval;
-    }
+  {
+    FloatComplexNDArray retval (dim_vector (1, 1));
+    retval(0) = FloatComplex (scalar.float_value ());
+    return retval;
+  }
 
   bool bool_value (bool warn = false) const
   {
@@ -595,24 +597,24 @@
   }
 
   void increment (void)
-   {
-     scalar += OCTAVE_INT_T (1);
-   }
+  {
+    scalar += OCTAVE_INT_T (1);
+  }
 
   void decrement (void)
-   {
-     scalar -= OCTAVE_INT_T (1);
-   }
+  {
+    scalar -= OCTAVE_INT_T (1);
+  }
 
   idx_vector index_vector (void) const { return idx_vector (scalar); }
 
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, octave_idx_type skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      return os.write (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION (),
-                       block_size, output_type, skip, flt_fmt);
-    }
+  {
+    return os.write (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION (),
+                     block_size, output_type, skip, flt_fmt);
+  }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
@@ -622,7 +624,8 @@
   {
     mxArray *retval = new mxArray (OCTAVE_INT_MX_CLASS, 1, 1, mxREAL);
 
-    OCTAVE_INT_T::val_type *pr = static_cast<OCTAVE_INT_T::val_type *> (retval->get_data ());
+    OCTAVE_INT_T::val_type *pr = static_cast<OCTAVE_INT_T::val_type *>
+                                 (retval->get_data ());
 
     pr[0] = scalar.value ();
 
@@ -630,36 +633,36 @@
   }
 
   octave_value map (unary_mapper_t umap) const
-    {
-      switch (umap)
+  {
+    switch (umap)
+      {
+      case umap_abs:
+        return scalar.abs ();
+      case umap_signum:
+        return scalar.signum ();
+      case umap_ceil:
+      case umap_conj:
+      case umap_fix:
+      case umap_floor:
+      case umap_real:
+      case umap_round:
+        return scalar;
+      case umap_imag:
+        return OCTAVE_INT_T ();
+      case umap_isnan:
+      case umap_isna:
+      case umap_isinf:
+        return false;
+      case umap_finite:
+        return true;
+
+      default:
         {
-        case umap_abs:
-          return scalar.abs ();
-        case umap_signum:
-          return scalar.signum ();
-        case umap_ceil:
-        case umap_conj:
-        case umap_fix:
-        case umap_floor:
-        case umap_real:
-        case umap_round:
-          return scalar;
-        case umap_imag:
-          return OCTAVE_INT_T ();
-        case umap_isnan:
-        case umap_isna:
-        case umap_isinf:
-          return false;
-        case umap_finite:
-          return true;
-
-        default:
-          {
-            octave_scalar m (scalar_value ());
-            return m.map (umap);
-          }
+          octave_scalar m (scalar_value ());
+          return m.map (umap);
         }
-    }
+      }
+  }
 
 private:
 
--- a/libinterp/octave-value/ov-java.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-java.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -166,7 +166,8 @@
 
         vm_args.nOptions = java_opts.size ();
         vm_args.options = new JavaVMOption [vm_args.nOptions];
-        for (std::list<std::string>::const_iterator it = java_opts.begin (); it != java_opts.end (); ++it)
+        for (std::list<std::string>::const_iterator it = java_opts.begin ();
+             it != java_opts.end (); ++it)
           {
             if (Vdebug_java)
               std::cout << *it << std::endl;
@@ -197,7 +198,8 @@
       if (! RegQueryValueEx (hkey, value.c_str (), 0, 0, 0, &len))
         {
           retval.resize (len);
-          if (RegQueryValueEx (hkey, value.c_str (), 0, 0, (LPBYTE)&retval[0], &len))
+          if (RegQueryValueEx (hkey, value.c_str (), 0, 0,
+                               (LPBYTE)&retval[0], &len))
             retval = "";
           else if (retval[len-1] == '\0')
             retval.resize (--len);
@@ -245,7 +247,8 @@
   if (! dllfcn && first)
     {
       HINSTANCE hKernel32 = GetModuleHandle ("kernel32");
-      dllfcn = reinterpret_cast<dllfcn_t> (GetProcAddress (hKernel32, "SetDllDirectoryA"));
+      dllfcn = reinterpret_cast<dllfcn_t> (GetProcAddress (hKernel32,
+                                           "SetDllDirectoryA"));
       first = false;
     }
 
@@ -508,8 +511,10 @@
 
 #endif
 
-  JNI_CreateJavaVM_t create_vm = reinterpret_cast<JNI_CreateJavaVM_t> (lib.search ("JNI_CreateJavaVM"));
-  JNI_GetCreatedJavaVMs_t get_vm = reinterpret_cast<JNI_GetCreatedJavaVMs_t> (lib.search ("JNI_GetCreatedJavaVMs"));
+  JNI_CreateJavaVM_t create_vm =
+    reinterpret_cast<JNI_CreateJavaVM_t> (lib.search ("JNI_CreateJavaVM"));
+  JNI_GetCreatedJavaVMs_t get_vm =
+    reinterpret_cast<JNI_GetCreatedJavaVMs_t> (lib.search ("JNI_GetCreatedJavaVMs"));
 
   if (!create_vm)
     throw std::string ("unable to find JNI_CreateJavaVM in ") + jvm_lib_path;
@@ -540,7 +545,8 @@
           vm_args.version = JNI_VERSION_1_2;
           vm_args.name = const_cast<char *> ("octave");
           vm_args.group = NULL;
-          if (jvm->AttachCurrentThread (reinterpret_cast<void **> (&current_env), &vm_args) < 0)
+          if (jvm->AttachCurrentThread (reinterpret_cast<void **> (&current_env),
+                                        &vm_args) < 0)
             throw std::string ("JVM internal error, unable to attach octave to existing JVM");
           break;
 
@@ -635,7 +641,8 @@
       if (cls)
         {
           if (jni_env->IsInstanceOf (obj, cls))
-            retval = jstring_to_string (jni_env, reinterpret_cast<jstring> (obj));
+            retval = jstring_to_string (jni_env,
+                                        reinterpret_cast<jstring> (obj));
         }
     }
 
@@ -671,8 +678,10 @@
       jni_env->ExceptionClear ();
 
       jclass_ref jcls (jni_env, jni_env->GetObjectClass (ex));
-      jmethodID mID = jni_env->GetMethodID (jcls, "toString", "()Ljava/lang/String;");
-      jstring_ref js (jni_env, reinterpret_cast<jstring> (jni_env->CallObjectMethod (ex, mID)));
+      jmethodID mID = jni_env->GetMethodID (jcls, "toString",
+                                            "()Ljava/lang/String;");
+      jstring_ref js (jni_env,
+                      reinterpret_cast<jstring> (jni_env->CallObjectMethod (ex, mID)));
       std::string msg = jstring_to_string (jni_env, js);
 
       error ("[java] %s", msg.c_str ());
@@ -699,7 +708,8 @@
         {
           if (class_loader.empty ())
             {
-              jclass_ref syscls (jni_env, jni_env->FindClass ("java/lang/System"));
+              jclass_ref syscls (jni_env,
+                                 jni_env->FindClass ("java/lang/System"));
               jmethodID mID = jni_env->GetStaticMethodID (syscls, "getProperty", "(Ljava/lang/String;)Ljava/lang/String;");
               jstring_ref js (jni_env, jni_env->NewStringUTF ("octave.class.loader"));
               js = reinterpret_cast<jstring> (jni_env->CallStaticObjectMethod (syscls, mID, jstring (js)));
@@ -1148,7 +1158,8 @@
 
                   for (int r = 0; r < rows; r++)
                     {
-                      jdoubleArray_ref row (jni_env, reinterpret_cast<jdoubleArray> (jni_env->GetObjectArrayElement (jarr, r)));
+                      jdoubleArray_ref row (jni_env,
+                                            reinterpret_cast<jdoubleArray> (jni_env->GetObjectArrayElement (jarr, r)));
 
                       if (m.length () == 0)
                         {
@@ -1176,7 +1187,8 @@
 
               for (int i = 0; i < len; i++)
                 {
-                  jstring_ref js (jni_env, reinterpret_cast<jstring> (jni_env->GetObjectArrayElement (jarr, i)));
+                  jstring_ref js (jni_env,
+                                  reinterpret_cast<jstring> (jni_env->GetObjectArrayElement (jarr, i)));
                   m(i) = jstring_to_string (jni_env, js);
                 }
 
@@ -1286,16 +1298,19 @@
         {
           NDArray m = val.array_value ();
           jdoubleArray_ref dv (jni_env, jni_env->NewDoubleArray (m.length ()));
-          jni_env->SetDoubleArrayRegion (jdoubleArray (dv), 0, m.length (), m.fortran_vec ());
+          jni_env->SetDoubleArrayRegion (jdoubleArray (dv), 0, m.length (),
+                                         m.fortran_vec ());
           jmethodID mID = jni_env->GetMethodID (mcls, "<init>", "([D[I)V");
-          jobj = jni_env->NewObject (jclass (mcls), mID, jdoubleArray (dv), jintArray (iv));
+          jobj = jni_env->NewObject (jclass (mcls), mID, jdoubleArray (dv),
+                                     jintArray (iv));
           jcls = jni_env->GetObjectClass (jobj);
         }
       else if (val.is_int8_type ())
         {
           int8NDArray m = val.int8_array_value ();
           jbyteArray_ref bv (jni_env, jni_env->NewByteArray (m.length ()));
-          jni_env->SetByteArrayRegion (jbyteArray (bv), 0, m.length (), reinterpret_cast <jbyte *> (m.fortran_vec ()));
+          jni_env->SetByteArrayRegion (jbyteArray (bv), 0, m.length (),
+                                       reinterpret_cast <jbyte *> (m.fortran_vec ()));
           jmethodID mID = jni_env->GetMethodID (mcls, "<init>", "([B[I)V");
           jobj = jni_env->NewObject (jclass (mcls), mID, jbyteArray (bv), jintArray (iv));
           jcls = jni_env->GetObjectClass (jobj);
@@ -1304,7 +1319,8 @@
         {
           uint8NDArray m = val.uint8_array_value ();
           jbyteArray_ref bv (jni_env, jni_env->NewByteArray (m.length ()));
-          jni_env->SetByteArrayRegion (jbyteArray (bv), 0, m.length (), reinterpret_cast<jbyte *> (m.fortran_vec ()));
+          jni_env->SetByteArrayRegion (jbyteArray (bv), 0, m.length (),
+                                       reinterpret_cast<jbyte *> (m.fortran_vec ()));
           jmethodID mID = jni_env->GetMethodID (mcls, "<init>", "([B[I)V");
           jobj = jni_env->NewObject (jclass (mcls), mID, jbyteArray (bv), jintArray (iv));
           jcls = jni_env->GetObjectClass (jobj);
@@ -1313,7 +1329,8 @@
         {
           int32NDArray m = val.int32_array_value ();
           jintArray_ref v (jni_env, jni_env->NewIntArray (m.length ()));
-          jni_env->SetIntArrayRegion (jintArray (v), 0, m.length (), reinterpret_cast<jint *> (m.fortran_vec ()));
+          jni_env->SetIntArrayRegion (jintArray (v), 0, m.length (),
+                                      reinterpret_cast<jint *> (m.fortran_vec ()));
           jmethodID mID = jni_env->GetMethodID (mcls, "<init>", "([I[I)V");
           jobj = jni_env->NewObject (jclass (mcls), mID, jintArray (v), jintArray (iv));
           jcls = jni_env->GetObjectClass (jobj);
@@ -1331,7 +1348,8 @@
       jobjectArray array = jni_env->NewObjectArray (cellStr.length (), scls, 0);
       for (int i = 0; i < cellStr.length (); i++)
         {
-          jstring_ref jstr (jni_env, jni_env->NewStringUTF (cellStr(i).string_value().c_str ()));
+          jstring_ref jstr (jni_env,
+                            jni_env->NewStringUTF (cellStr(i).string_value().c_str ()));
           jni_env->SetObjectArrayElement (array, i, jstr);
         }
       jobj = array;
@@ -1560,7 +1578,7 @@
 octave_java::register_type (void)
 {
   t_id = octave_value_typeinfo::register_type
-    (octave_java::t_name, "<unknown>", octave_value (new octave_java ()));
+         (octave_java::t_name, "<unknown>", octave_value (new octave_java ()));
 }
 
 dim_vector
@@ -1645,76 +1663,76 @@
 
   switch (type[0])
     {
-      case '.':
-        if (type.length () == 1)
-          {
-            // field assignment
-            octave_value_list ovl;
-            count++;
-            ovl(0) = octave_value (this);
-            ovl(1) = (idx.front ())(0);
-            ovl(2) = rhs;
-            feval ("__java_set__", ovl, 0);
-            if (! error_state)
-              {
-                count++;
-                retval = octave_value (this);
-              }
-          }
-        else if (type.length () > 2 && type[1] == '(')
-          {
-            std::list<octave_value_list> new_idx;
-            std::list<octave_value_list>::const_iterator it = idx.begin ();
-            new_idx.push_back (*it++);
-            new_idx.push_back (*it++);
-            octave_value_list u = subsref (type.substr (0, 2), new_idx, 1);
-            if (! error_state)
-              {
-                std::list<octave_value_list> next_idx (idx);
-                next_idx.erase (next_idx.begin ());
-                next_idx.erase (next_idx.begin ());
-                u(0).subsasgn (type.substr (2), next_idx, rhs);
-                if (! error_state)
-                  {
-                    count++;
-                    retval = octave_value (this);
-                  }
-              }
-          }
-        else if (type[1] == '.')
-          {
-            octave_value_list u = subsref (type.substr (0, 1), idx, 1);
-            if (! error_state)
-              {
-                std::list<octave_value_list> next_idx (idx);
-                next_idx.erase (next_idx.begin ());
-                u(0).subsasgn (type.substr (1), next_idx, rhs);
-                if (! error_state)
-                  {
-                    count++;
-                    retval = octave_value (this);
-                  }
-              }
-          }
-        else
-          error ("invalid indexing/assignment on Java object");
-        break;
+    case '.':
+      if (type.length () == 1)
+        {
+          // field assignment
+          octave_value_list ovl;
+          count++;
+          ovl(0) = octave_value (this);
+          ovl(1) = (idx.front ())(0);
+          ovl(2) = rhs;
+          feval ("__java_set__", ovl, 0);
+          if (! error_state)
+            {
+              count++;
+              retval = octave_value (this);
+            }
+        }
+      else if (type.length () > 2 && type[1] == '(')
+        {
+          std::list<octave_value_list> new_idx;
+          std::list<octave_value_list>::const_iterator it = idx.begin ();
+          new_idx.push_back (*it++);
+          new_idx.push_back (*it++);
+          octave_value_list u = subsref (type.substr (0, 2), new_idx, 1);
+          if (! error_state)
+            {
+              std::list<octave_value_list> next_idx (idx);
+              next_idx.erase (next_idx.begin ());
+              next_idx.erase (next_idx.begin ());
+              u(0).subsasgn (type.substr (2), next_idx, rhs);
+              if (! error_state)
+                {
+                  count++;
+                  retval = octave_value (this);
+                }
+            }
+        }
+      else if (type[1] == '.')
+        {
+          octave_value_list u = subsref (type.substr (0, 1), idx, 1);
+          if (! error_state)
+            {
+              std::list<octave_value_list> next_idx (idx);
+              next_idx.erase (next_idx.begin ());
+              u(0).subsasgn (type.substr (1), next_idx, rhs);
+              if (! error_state)
+                {
+                  count++;
+                  retval = octave_value (this);
+                }
+            }
+        }
+      else
+        error ("invalid indexing/assignment on Java object");
+      break;
 
-      case '(':
-        if (current_env)
-          {
-            set_array_elements (current_env, to_java (), idx.front (), rhs);
-            if (! error_state)
-              {
-                count++;
-                retval = octave_value (this);
-              }
-          }
-        break;
+    case '(':
+      if (current_env)
+        {
+          set_array_elements (current_env, to_java (), idx.front (), rhs);
+          if (! error_state)
+            {
+              count++;
+              retval = octave_value (this);
+            }
+        }
+      break;
 
-      default:
-        error ("Java object cannot be indexed with %c", type[0]);
-        break;
+    default:
+      error ("Java object cannot be indexed with %c", type[0]);
+      break;
     }
 
   return retval;
@@ -1757,7 +1775,7 @@
 
 octave_value
 octave_java::do_javaMethod (JNIEnv* jni_env, const std::string& name,
-                             const octave_value_list& args)
+                            const octave_value_list& args)
 {
   octave_value retval;
 
@@ -1786,9 +1804,9 @@
 
 octave_value
 octave_java:: do_javaMethod (JNIEnv* jni_env,
-                              const std::string& class_name,
-                              const std::string& name,
-                              const octave_value_list& args)
+                             const std::string& class_name,
+                             const std::string& name,
+                             const octave_value_list& args)
 {
   octave_value retval;
 
@@ -1818,7 +1836,7 @@
 
 octave_value
 octave_java::do_javaObject (JNIEnv* jni_env, const std::string& name,
-                             const octave_value_list& args)
+                            const octave_value_list& args)
 {
   octave_value retval;
 
@@ -1959,7 +1977,7 @@
 // documentation strings are always available, even when functions are not.
 
 DEFUN (__java_init__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} java_init ()\n\
 Internal function used @strong{only} when debugging Java interface.\n\
 Function will directly call initialize_java() to create an instance of a JVM.\n\
@@ -1984,7 +2002,7 @@
 }
 
 DEFUN (__java_exit__, , ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} java_exit ()\n\
 Internal function used @strong{only} when debugging Java interface.\n\
 Function will directly call terminate_jvm() to destroy the current JVM\n\
@@ -2001,7 +2019,7 @@
 }
 
 DEFUN (javaObject, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{jobj} =} javaObject (@var{classname})\n\
 @deftypefnx {Built-in Function} {@var{jobj} =} javaObject (@var{classname}, @var{arg1}, @dots{})\n\
 Create a Java object of class @var{classsname}, by calling the class\n\
@@ -2062,7 +2080,7 @@
 */
 
 DEFUN (javaMethod, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{ret} =} javaMethod (@var{methodname}, @var{obj})\n\
 @deftypefnx {Built-in Function} {@var{ret} =} javaMethod (@var{methodname}, @var{obj}, @var{arg1}, @dots{})\n\
 Invoke the method @var{methodname} on the Java object @var{obj} with the\n\
@@ -2137,7 +2155,7 @@
 */
 
 DEFUN (__java_get__, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{val} =} __java_get__ (@var{obj}, @var{name})\n\
 Get the value of the field @var{name} of the Java object @var{obj}.  For\n\
 static fields, @var{obj} can be a string representing the fully qualified\n\
@@ -2199,7 +2217,7 @@
 }
 
 DEFUN (__java_set__, args, ,
-    "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{obj} =} __java_set__ (@var{obj}, @var{name}, @var{val})\n\
 Set the value of the field @var{name} of the Java object @var{obj} to\n\
 @var{val}.  For static fields, @var{obj} can be a string representing the\n\
@@ -2261,7 +2279,7 @@
 }
 
 DEFUN (java2mat, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} java2mat (@var{javaobj})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -2297,7 +2315,7 @@
 }
 
 DEFUN (java_matrix_autoconversion, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} java_matrix_autoconversion ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} java_matrix_autoconversion (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} java_matrix_autoconversion (@var{new_val}, \"local\")\n\
@@ -2319,7 +2337,7 @@
 }
 
 DEFUN (java_unsigned_autoconversion, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} java_unsigned_autoconversion ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} java_unsigned_autoconversion (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} java_unsigned_autoconversion (@var{new_val}, \"local\")\n\
@@ -2343,7 +2361,7 @@
 }
 
 DEFUN (debug_java, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} debug_java ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} debug_java (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} debug_java (@var{new_val}, \"local\")\n\
@@ -2366,9 +2384,9 @@
 }
 
 // Outside of #ifdef HAVE_JAVA because it is desirable to be able to
-// test for the presence of a Java object without having Java installed. 
+// test for the presence of a Java object without having Java installed.
 DEFUN (isjava, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isjava (@var{x})\n\
 Return true if @var{x} is a Java object.\n\
 @seealso{class, typeinfo, isa, javaObject}\n\
--- a/libinterp/octave-value/ov-java.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-java.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_java_h)
-#define octave_java_h 1
+#if !defined (octave_ov_java_h)
+#define octave_ov_java_h 1
 
 #include <jni.h>
 
--- a/libinterp/octave-value/ov-lazy-idx.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-lazy-idx.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_lazy_idx_h)
-#define octave_lazy_idx_h 1
+#if !defined (octave_ov_lazy_idx_h)
+#define octave_ov_lazy_idx_h 1
 
 #include "ov-re-mat.h"
 
@@ -45,7 +45,8 @@
 
   ~octave_lazy_index (void) { }
 
-  octave_base_value *clone (void) const { return new octave_lazy_index (*this); }
+  octave_base_value *clone (void) const
+  { return new octave_lazy_index (*this); }
   octave_base_value *empty_clone (void) const { return new octave_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
@@ -59,7 +60,7 @@
   octave_value full_value (void) const { return make_value (); }
 
   idx_vector index_vector (void) const
-    { return index; }
+  { return index; }
 
   builtin_type_t builtin_type (void) const { return btyp_double; }
 
@@ -73,15 +74,15 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    { return make_value ().subsref (type, idx); }
+  { return make_value ().subsref (type, idx); }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false)
-    { return make_value ().do_index_op (idx, resize_ok); }
+  { return make_value ().do_index_op (idx, resize_ok); }
 
   dim_vector dims (void) const { return index.orig_dimensions (); }
 
@@ -94,14 +95,14 @@
   octave_value permute (const Array<int>& vec, bool inv = false) const;
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    { return make_value ().resize (dv, fill); }
+  { return make_value ().resize (dv, fill); }
 
   octave_value all (int dim = 0) const { return make_value ().all (dim); }
   octave_value any (int dim = 0) const { return make_value ().any (dim); }
 
   MatrixType matrix_type (void) const { return make_value ().matrix_type (); }
   MatrixType matrix_type (const MatrixType& _typ) const
-    { return make_value ().matrix_type (_typ); }
+  { return make_value ().matrix_type (_typ); }
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const;
 
@@ -123,16 +124,16 @@
   bool is_constant (void) const { return true; }
 
   bool is_true (void) const
-    { return make_value ().is_true (); }
+  { return make_value ().is_true (); }
 
   bool print_as_scalar (void) const
-    { return make_value ().print_as_scalar (); }
+  { return make_value ().print_as_scalar (); }
 
   void print (std::ostream& os, bool pr_as_read_syntax = false) const
-    { make_value ().print (os, pr_as_read_syntax); }
+  { make_value ().print (os, pr_as_read_syntax); }
 
   void print_info (std::ostream& os, const std::string& prefix) const
-    { make_value ().print_info (os, prefix); }
+  { make_value ().print_info (os, prefix); }
 
 #define FORWARD_VALUE_QUERY(TYPE,NAME) \
   TYPE \
@@ -186,13 +187,13 @@
   FORWARD_VALUE_QUERY1 (SparseComplexMatrix, sparse_complex_matrix_value)
 
   octave_value diag (octave_idx_type k = 0) const
-    { return make_value ().diag (k); }
+  { return make_value ().diag (k); }
 
   octave_value convert_to_str_internal (bool pad, bool force, char type) const
-    { return make_value ().convert_to_str_internal (pad, force, type); }
+  { return make_value ().convert_to_str_internal (pad, force, type); }
 
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const
-    { return make_value ().print_raw (os, pr_as_read_syntax); }
+  { return make_value ().print_raw (os, pr_as_read_syntax); }
 
   bool save_ascii (std::ostream& os);
 
@@ -208,40 +209,41 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return make_value ().write (os, block_size, output_type, skip, flt_fmt); }
+  { return make_value ().write (os, block_size, output_type, skip, flt_fmt); }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
   void *mex_get_data (void) const
-    { return make_value ().mex_get_data (); }
+  { return make_value ().mex_get_data (); }
 
   mxArray *as_mxArray (void) const
-    { return make_value ().as_mxArray (); }
+  { return make_value ().as_mxArray (); }
 
   octave_value map (unary_mapper_t umap) const
-    { return make_value ().map (umap); }
+  { return make_value ().map (umap); }
 
 private:
   const octave_value& make_value (void) const
-    {
-      if (value.is_undefined ())
-        value = octave_value (index, false);
+  {
+    if (value.is_undefined ())
+      value = octave_value (index, false);
 
-      return value;
-    }
+    return value;
+  }
 
   octave_value& make_value (void)
-    {
-      if (value.is_undefined ())
-        value = octave_value (index, false);
+  {
+    if (value.is_undefined ())
+      value = octave_value (index, false);
 
-      return value;
-    }
+    return value;
+  }
 
   idx_vector index;
   mutable octave_value value;
 
-  static octave_base_value *numeric_conversion_function (const octave_base_value&);
+  static octave_base_value *
+  numeric_conversion_function (const octave_base_value&);
 
   DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
 };
--- a/libinterp/octave-value/ov-mex-fcn.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-mex-fcn.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -106,11 +106,11 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
   //
-  // FIXME -- Note that if a function call returns multiple
+  // FIXME: Note that if a function call returns multiple
   // values, and there is further indexing to perform, then we are
   // ignoring all but the first value.  Is this really what we want to
   // do?  If it is not, then what should happen for stat("file").size,
@@ -122,7 +122,7 @@
   return retval;
 }
 
-// FIXME -- shouldn't this declaration be a header file somewhere?
+// FIXME: shouldn't this declaration be a header file somewhere?
 extern octave_value_list
 call_mex (bool have_fmex, void *f, const octave_value_list& args,
           int nargout, octave_mex_function *curr_mex_fcn);
--- a/libinterp/octave-value/ov-mex-fcn.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-mex-fcn.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_mex_function_h)
-#define octave_mex_function_h 1
+#if !defined (octave_ov_mex_fcn_h)
+#define octave_ov_mex_fcn_h 1
 
 #include <string>
 
@@ -54,10 +54,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -87,7 +87,7 @@
   void atexit (void (*fcn) (void)) { exit_fcn_ptr = fcn; }
 
   octave_shlib get_shlib (void) const
-    { return sh_lib; }
+  { return sh_lib; }
 
 private:
 
--- a/libinterp/octave-value/ov-null-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-null-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -28,7 +28,8 @@
 #include "ops.h"
 #include "defun.h"
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_null_matrix, "null_matrix", "double");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_null_matrix, "null_matrix",
+                                     "double");
 
 const octave_value octave_null_matrix::instance (new octave_null_matrix ());
 
@@ -44,8 +45,9 @@
 octave_base_value::type_conv_info
 octave_null_matrix::numeric_conversion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_null_matrix_numeric_conversion_function,
-                                            octave_matrix::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_null_matrix_numeric_conversion_function,
+            octave_matrix::static_type_id ());
 }
 
 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_null_str, "null_string", "char");
@@ -64,11 +66,13 @@
 octave_base_value::type_conv_info
 octave_null_str::numeric_conversion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_null_str_numeric_conversion_function,
-                                            octave_char_matrix_str::static_type_id ());
+  return octave_base_value::type_conv_info
+          (default_null_str_numeric_conversion_function,
+           octave_char_matrix_str::static_type_id ());
 }
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_null_sq_str, "null_sq_string", "char");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_null_sq_str, "null_sq_string",
+                                     "char");
 
 const octave_value octave_null_sq_str::instance (new octave_null_sq_str ());
 
@@ -84,12 +88,13 @@
 octave_base_value::type_conv_info
 octave_null_sq_str::numeric_conversion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_null_sq_str_numeric_conversion_function,
-                                            octave_char_matrix_sq_str::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_null_sq_str_numeric_conversion_function,
+            octave_char_matrix_sq_str::static_type_id ());
 }
 
 DEFUN (isnull, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isnull (@var{x})\n\
 Return true if @var{x} is a special null matrix, string, or single quoted\n\
 string.  Indexed assignment with such a value on the right-hand side should\n\
--- a/libinterp/octave-value/ov-null-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-null-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,18 +20,19 @@
 
 */
 
-#if !defined (octave_null_matrix_h)
-#define octave_null_matrix_h 1
+#if !defined (octave_ov_null_mat_h)
+#define octave_ov_null_mat_h 1
 
 #include "ov.h"
 #include "ov-re-mat.h"
 #include "ov-str-mat.h"
 
 // Design rationale:
-// The constructors are hidden. There is only one null matrix (or null string) object,
-// that can have shallow copies. Cloning the object returns just a normal empty matrix,
-// so all the shallow copies are, in fact, read-only. This conveniently ensures that any
-// attempt to fiddle with the null matrix destroys its special status.
+// The constructors are hidden.  There is only one null matrix (or null string)
+// object, that can have shallow copies.  Cloning the object returns just a
+// normal empty matrix, so all the shallow copies are, in fact, read-only. This
+// conveniently ensures that any attempt to fiddle with the null matrix
+// destroys its special status.
 
 // The special [] value.
 
--- a/libinterp/octave-value/ov-oncleanup.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-oncleanup.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -137,7 +137,8 @@
 }
 
 bool
-octave_oncleanup::save_binary (std::ostream& /* os */, bool& /* save_as_floats */)
+octave_oncleanup::save_binary (std::ostream& /* os */,
+                               bool& /* save_as_floats */)
 {
   warn_save_load ();
   return true;
@@ -185,7 +186,7 @@
 }
 
 DEFUN (onCleanup, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{c} =} onCleanup (@var{action})\n\
 Create a special object that executes a given function upon destruction.\n\
 If the object is copied to multiple variables (or cell or struct array\n\
--- a/libinterp/octave-value/ov-perm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-perm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -251,7 +251,8 @@
 }
 
 octave_value
-octave_perm_matrix::convert_to_str_internal (bool pad, bool force, char type) const
+octave_perm_matrix::convert_to_str_internal (bool pad, bool force,
+                                             char type) const
 {
   return to_dense ().convert_to_str_internal (pad, force, type);
 }
@@ -319,7 +320,8 @@
   bool colp = matrix.is_col_perm ();
   os.write (reinterpret_cast<char *> (&sz), 4);
   os.write (reinterpret_cast<char *> (&colp), 1);
-  os.write (reinterpret_cast<const char *> (matrix.data ()), matrix.byte_size ());
+  os.write (reinterpret_cast<const char *> (matrix.data ()),
+                                            matrix.byte_size ());
 
   return true;
 }
@@ -395,15 +397,15 @@
 
 int
 octave_perm_matrix::write (octave_stream& os, int block_size,
-                                oct_data_conv::data_type output_type, int skip,
-                                oct_mach_info::float_format flt_fmt) const
+                           oct_data_conv::data_type output_type, int skip,
+                           oct_mach_info::float_format flt_fmt) const
 {
   return to_dense ().write (os, block_size, output_type, skip, flt_fmt);
 }
 
 void
 octave_perm_matrix::print_info (std::ostream& os,
-                                    const std::string& prefix) const
+                                const std::string& prefix) const
 {
   matrix.print_info (os, prefix);
 }
@@ -413,7 +415,7 @@
 octave_perm_matrix::to_dense (void) const
 {
   if (! dense_cache.is_defined ())
-      dense_cache = Matrix (matrix);
+    dense_cache = Matrix (matrix);
 
   return dense_cache;
 }
--- a/libinterp/octave-value/ov-perm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-perm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_perm_matrix_h)
-#define octave_perm_matrix_h 1
+#if !defined (octave_ov_perm_h)
+#define octave_ov_perm_h 1
 
 #include "mx-base.h"
 #include "str-vec.h"
@@ -39,8 +39,10 @@
 
   octave_perm_matrix (const PermMatrix& p) : matrix (p), dense_cache () { }
 
-  octave_base_value *clone (void) const { return new octave_perm_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_perm_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_perm_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_perm_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
@@ -57,7 +59,7 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -67,38 +69,38 @@
   octave_idx_type nnz (void) const { return matrix.rows (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return to_dense ().reshape (new_dims); }
+  { return to_dense ().reshape (new_dims); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return to_dense ().permute (vec, inv); }
+  { return to_dense ().permute (vec, inv); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    { return to_dense ().resize (dv, fill); }
+  { return to_dense ().resize (dv, fill); }
 
   octave_value all (int dim = 0) const { return to_dense ().all (dim); }
   octave_value any (int dim = 0) const { return to_dense ().any (dim); }
 
   MatrixType matrix_type (void) const { return MatrixType::Permuted_Diagonal; }
   MatrixType matrix_type (const MatrixType&) const
-    { return matrix_type (); }
+  { return matrix_type (); }
 
   octave_value diag (octave_idx_type k = 0) const
-    { return to_dense () .diag (k); }
+  { return to_dense () .diag (k); }
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return to_dense ().sort (dim, mode); }
+  { return to_dense ().sort (dim, mode); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return to_dense ().sort (sidx, dim, mode); }
+  { return to_dense ().sort (sidx, dim, mode); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return to_dense ().is_sorted (mode); }
+  { return to_dense ().is_sorted (mode); }
 
   Array<octave_idx_type> sort_rows_idx (sortmode mode = ASCENDING) const
-    { return to_dense ().sort_rows_idx (mode); }
+  { return to_dense ().sort_rows_idx (mode); }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return to_dense ().is_sorted_rows (mode); }
+  { return to_dense ().is_sorted_rows (mode); }
 
   builtin_type_t builtin_type (void) const { return btyp_double; }
 
@@ -127,12 +129,12 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   idx_vector index_vector (void) const;
 
   PermMatrix perm_matrix_value (void) const
-    { return matrix; }
+  { return matrix; }
 
   Matrix matrix_value (bool = false) const;
 
@@ -214,7 +216,7 @@
   void print_info (std::ostream& os, const std::string& prefix) const;
 
   octave_value map (unary_mapper_t umap) const
-    { return to_dense ().map (umap); }
+  { return to_dense ().map (umap); }
 
 protected:
 
--- a/libinterp/octave-value/ov-range.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-range.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -224,7 +224,7 @@
 octave_value
 octave_range::all (int dim) const
 {
-  // FIXME -- this is a potential waste of memory.
+  // FIXME: this is a potential waste of memory.
 
   Matrix m = range.matrix_value ();
 
@@ -234,7 +234,7 @@
 octave_value
 octave_range::any (int dim) const
 {
-  // FIXME -- this is a potential waste of memory.
+  // FIXME: this is a potential waste of memory.
 
   Matrix m = range.matrix_value ();
 
@@ -244,9 +244,10 @@
 octave_value
 octave_range::diag (octave_idx_type k) const
 {
-  return (k == 0
-          ? octave_value (DiagMatrix (DiagArray2<double> (range.matrix_value ())))
-          : octave_value (range.diag (k)));
+  return
+    (k == 0
+       ? octave_value (DiagMatrix (DiagArray2<double> (range.matrix_value ())))
+       : octave_value (range.diag (k)));
 }
 
 octave_value
@@ -264,7 +265,7 @@
 
   if (range.nelem () != 0)
     {
-      // FIXME -- this is a potential waste of memory.
+      // FIXME: this is a potential waste of memory.
 
       Matrix m ((range.matrix_value () . all ()) . all ());
 
@@ -391,7 +392,7 @@
 octave_range::short_disp (void) const
 {
   std::ostringstream buf;
-  
+
   octave_idx_type len = range.nelem ();
 
   if (len == 0)
@@ -679,7 +680,7 @@
 }
 
 DEFUN (allow_noninteger_range_as_index, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} allow_noninteger_range_as_index ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} allow_noninteger_range_as_index (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} allow_noninteger_range_as_index (@var{new_val}, \"local\")\n\
--- a/libinterp/octave-value/ov-range.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-range.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_range_h)
-#define octave_range_h 1
+#if !defined (octave_ov_range_h)
+#define octave_ov_range_h 1
 
 #include <cstdlib>
 
@@ -58,28 +58,28 @@
 
   octave_range (double base, double limit, double inc)
     : octave_base_value (), range (base, limit, inc), idx_cache ()
-      {
-        if (range.nelem () < 0)
-          ::error ("invalid range");
-      }
+  {
+    if (range.nelem () < 0)
+      ::error ("invalid range");
+  }
 
   octave_range (const Range& r)
     : octave_base_value (), range (r), idx_cache ()
-      {
-        if (range.nelem () < 0 && range.nelem () != -2)
-          ::error ("invalid range");
-      }
+  {
+    if (range.nelem () < 0 && range.nelem () != -2)
+      ::error ("invalid range");
+  }
 
   octave_range (const octave_range& r)
     : octave_base_value (), range (r.range),
       idx_cache (r.idx_cache ? new idx_vector (*r.idx_cache) : 0)
-    { }
+  { }
 
   octave_range (const Range& r, const idx_vector& cache)
     : octave_base_value (), range (r), idx_cache ()
-      {
-        set_idx_cache (cache);
-      }
+  {
+    set_idx_cache (cache);
+  }
 
   ~octave_range (void) { clear_cached_info (); }
 
@@ -99,7 +99,7 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx, int)
-    { return subsref (type, idx); }
+  { return subsref (type, idx); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -107,10 +107,10 @@
   idx_vector index_vector (void) const;
 
   dim_vector dims (void) const
-    {
-      octave_idx_type n = range.nelem ();
-      return dim_vector (n > 0, n);
-    }
+  {
+    octave_idx_type n = range.nelem ();
+    return dim_vector (n > 0, n);
+  }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -118,10 +118,10 @@
   size_t byte_size (void) const { return 3 * sizeof (double); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return NDArray (array_value ().reshape (new_dims)); }
+  { return NDArray (array_value ().reshape (new_dims)); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return NDArray (array_value ().permute (vec, inv)); }
+  { return NDArray (array_value ().permute (vec, inv)); }
 
   octave_value squeeze (void) const { return range; }
 
@@ -142,20 +142,20 @@
   octave_value diag (octave_idx_type m, octave_idx_type n) const;
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return range.sort (dim, mode); }
+  { return range.sort (dim, mode); }
 
   octave_value sort (Array<octave_idx_type>& sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return range.sort (sidx, dim, mode); }
+  { return range.sort (sidx, dim, mode); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return range.is_sorted (mode); }
+  { return range.is_sorted (mode); }
 
   Array<octave_idx_type> sort_rows_idx (sortmode) const
-    { return Array<octave_idx_type> (dim_vector (1, 0)); }
+  { return Array<octave_idx_type> (dim_vector (1, 0)); }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return mode ? mode : ASCENDING; }
+  { return mode ? mode : ASCENDING; }
 
   builtin_type_t builtin_type (void) const { return btyp_double; }
 
@@ -174,26 +174,26 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return float_value (frc_str_conv); }
+  { return float_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const
-    { return range.matrix_value (); }
+  { return range.matrix_value (); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return range.matrix_value (); }
+  { return range.matrix_value (); }
 
   NDArray array_value (bool = false) const
-    { return range.matrix_value (); }
+  { return range.matrix_value (); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatMatrix (range.matrix_value ()); }
+  { return FloatMatrix (range.matrix_value ()); }
 
   charNDArray char_array_value (bool = false) const;
 
-  // FIXME -- it would be better to have Range::intXNDArray_value
+  // FIXME: it would be better to have Range::intXNDArray_value
   // functions to avoid the intermediate conversion to a matrix
   // object.
 
@@ -222,10 +222,10 @@
   uint64_array_value (void) const { return uint64NDArray (array_value ()); }
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (range.matrix_value ()); }
+  { return SparseMatrix (range.matrix_value ()); }
 
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (sparse_matrix_value ()); }
+  { return SparseComplexMatrix (sparse_matrix_value ()); }
 
   Complex complex_value (bool = false) const;
 
@@ -234,16 +234,16 @@
   boolNDArray bool_array_value (bool warn = false) const;
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return ComplexMatrix (range.matrix_value ()); }
+  { return ComplexMatrix (range.matrix_value ()); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return FloatComplexMatrix (range.matrix_value ()); }
+  { return FloatComplexMatrix (range.matrix_value ()); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexMatrix (range.matrix_value ()); }
+  { return ComplexMatrix (range.matrix_value ()); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexMatrix (range.matrix_value ()); }
+  { return FloatComplexMatrix (range.matrix_value ()); }
 
   Range range_value (void) const { return range; }
 
@@ -275,37 +275,36 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      // FIXME -- could be more memory efficient by having a
-      // special case of the octave_stream::write method for ranges.
+  {
+    // FIXME: could be more memory efficient by having a
+    // special case of the octave_stream::write method for ranges.
 
-      return os.write (matrix_value (), block_size, output_type, skip,
-                       flt_fmt);
-    }
+    return os.write (matrix_value (), block_size, output_type, skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
   octave_value map (unary_mapper_t umap) const
-    {
-      octave_matrix m (matrix_value ());
-      return m.map (umap);
-    }
+  {
+    octave_matrix m (matrix_value ());
+    return m.map (umap);
+  }
 
 private:
 
   Range range;
 
   idx_vector set_idx_cache (const idx_vector& idx) const
-    {
-      delete idx_cache;
-      idx_cache = idx ? new idx_vector (idx) : 0;
-      return idx;
-    }
+  {
+    delete idx_cache;
+    idx_cache = idx ? new idx_vector (idx) : 0;
+    return idx;
+  }
 
   void clear_cached_info (void) const
-    {
-      delete idx_cache; idx_cache = 0;
-    }
+  {
+    delete idx_cache; idx_cache = 0;
+  }
 
   mutable idx_vector *idx_cache;
 
--- a/libinterp/octave-value/ov-re-diag.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-diag.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,8 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_diag_matrix);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_diag_matrix, "diagonal matrix", "double");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_diag_matrix, "diagonal matrix",
+                                     "double");
 
 static octave_base_value *
 default_numeric_conversion_function (const octave_base_value& a)
@@ -65,8 +66,9 @@
 octave_base_value::type_conv_info
 octave_diag_matrix::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_diag_matrix::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_numeric_demotion_function,
+            octave_float_diag_matrix::static_type_id ());
 }
 
 octave_base_value *
@@ -193,7 +195,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (matrix.length () > 8192) // FIXME -- make this configurable.
+  else if (matrix.length () > 8192) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (m.all_integers (max_val, min_val))
--- a/libinterp/octave-value/ov-re-diag.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-diag.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_diag_matrix_h)
-#define octave_diag_matrix_h 1
+#if !defined (octave_ov_re_diag_h)
+#define octave_ov_re_diag_h 1
 
 #include "ov-base.h"
 #include "ov-base-diag.h"
@@ -48,8 +48,10 @@
 
   ~octave_diag_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_diag_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_diag_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_diag_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_diag_matrix (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
--- a/libinterp/octave-value/ov-re-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -85,8 +85,9 @@
 octave_base_value::type_conv_info
 octave_matrix::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_matrix::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_numeric_demotion_function,
+            octave_float_matrix::static_type_id ());
 }
 
 octave_base_value *
@@ -407,8 +408,7 @@
 
           if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
             {
-              // FIXME -- is there something
-              // better we could do?
+              // FIXME: is there something better we could do?
 
               ival = 0;
 
@@ -581,7 +581,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (d.numel () > 8192) // FIXME -- make this configurable.
+  else if (d.numel () > 8192) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (m.all_integers (max_val, min_val))
@@ -596,7 +596,7 @@
 
 bool
 octave_matrix::load_binary (std::istream& is, bool swap,
-                                 oct_mach_info::float_format fmt)
+                            oct_mach_info::float_format fmt)
 {
   char tmp;
   int32_t mdims;
@@ -637,7 +637,8 @@
 
       NDArray m(dv);
       double *re = m.fortran_vec ();
-      read_doubles (is, re, static_cast<save_type> (tmp), dv.numel (), swap, fmt);
+      read_doubles (is, re, static_cast<save_type> (tmp), dv.numel (),
+                    swap, fmt);
       if (error_state || ! is)
         return false;
       matrix = m;
@@ -745,7 +746,7 @@
   if (empty > 0)
     matrix.resize (dv);
   if (empty)
-      return (empty > 0);
+    return (empty > 0);
 
 #if HAVE_HDF5_18
   hid_t data_hid = H5Dopen (loc_id, name, H5P_DEFAULT);
@@ -945,7 +946,7 @@
 }
 
 DEFUN (double, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} double (@var{x})\n\
 Convert @var{x} to double precision type.\n\
 @seealso{single}\n\
@@ -965,27 +966,32 @@
         {
           if (args(0).is_complex_type ())
             {
-              OCTAVE_TYPE_CONV_BODY3 (double, octave_complex_diag_matrix, octave_complex);
+              OCTAVE_TYPE_CONV_BODY3 (double, octave_complex_diag_matrix,
+                                      octave_complex);
             }
           else
             {
-              OCTAVE_TYPE_CONV_BODY3 (double, octave_diag_matrix, octave_scalar);
+              OCTAVE_TYPE_CONV_BODY3 (double, octave_diag_matrix,
+                                      octave_scalar);
             }
         }
       else if (args(0).is_sparse_type ())
         {
           if (args(0).is_complex_type ())
             {
-              OCTAVE_TYPE_CONV_BODY3 (double, octave_sparse_complex_matrix, octave_complex);
+              OCTAVE_TYPE_CONV_BODY3 (double, octave_sparse_complex_matrix,
+                                      octave_complex);
             }
           else
             {
-              OCTAVE_TYPE_CONV_BODY3 (double, octave_sparse_matrix, octave_scalar);
+              OCTAVE_TYPE_CONV_BODY3 (double, octave_sparse_matrix,
+                                      octave_scalar);
             }
         }
       else if (args(0).is_complex_type ())
         {
-          OCTAVE_TYPE_CONV_BODY3 (double, octave_complex_matrix, octave_complex);
+          OCTAVE_TYPE_CONV_BODY3 (double, octave_complex_matrix,
+                                  octave_complex);
         }
       else
         {
--- a/libinterp/octave-value/ov-re-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_matrix_h)
-#define octave_matrix_h 1
+#if !defined (octave_ov_re_mat_h)
+#define octave_ov_re_mat_h 1
 
 #include <cstdlib>
 
@@ -83,17 +83,17 @@
   octave_matrix (const Array<octave_idx_type>& idx,
                  bool zero_based = false, bool cache_index = false)
     : octave_base_matrix<NDArray> (NDArray (idx, zero_based))
-    {
-      // Auto-create cache to speed up subsequent indexing.
-      if (zero_based && cache_index)
-        set_idx_cache (idx_vector (idx));
-    }
+  {
+    // Auto-create cache to speed up subsequent indexing.
+    if (zero_based && cache_index)
+      set_idx_cache (idx_vector (idx));
+  }
 
   octave_matrix (const NDArray& nda, const idx_vector& cache)
     : octave_base_matrix<NDArray> (nda)
-    {
-      set_idx_cache (cache);
-    }
+  {
+    set_idx_cache (cache);
+  }
 
   ~octave_matrix (void) { }
 
@@ -105,7 +105,7 @@
   octave_base_value *try_narrowing_conversion (void);
 
   idx_vector index_vector (void) const
-    { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
+  { return idx_cache ? *idx_cache : set_idx_cache (idx_vector (matrix)); }
 
   builtin_type_t builtin_type (void) const { return btyp_double; }
 
@@ -146,7 +146,7 @@
   float float_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -223,7 +223,7 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 
   // Unsafe.  This function exists to support the MEX interface.
   // You should not use it anywhere else.
--- a/libinterp/octave-value/ov-re-sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,8 @@
 
 DEFINE_OCTAVE_ALLOCATOR (octave_sparse_matrix);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_matrix, "sparse matrix", "double");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_matrix, "sparse matrix",
+                                     "double");
 
 idx_vector
 octave_sparse_matrix::index_vector (void) const
@@ -118,7 +119,7 @@
 
   Complex retval (tmp, tmp);
 
-  // FIXME -- maybe this should be a function, valid_as_scalar()
+  // FIXME: maybe this should be a function, valid_as_scalar()
   if (rows () > 0 && columns () > 0)
     {
       if (numel () > 1)
@@ -223,32 +224,32 @@
 
             double d = matrix.data (i);
 
-              if (xisnan (d))
-                {
-                  gripe_nan_to_character_conversion ();
-                  return retval;
-                }
-              else
-                {
-                  int ival = NINT (d);
+            if (xisnan (d))
+              {
+                gripe_nan_to_character_conversion ();
+                return retval;
+              }
+            else
+              {
+                int ival = NINT (d);
 
-                  if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
-                    {
-                      // FIXME -- is there something
-                      // better we could do?
+                if (ival < 0
+                    || ival > std::numeric_limits<unsigned char>::max ())
+                  {
+                    // FIXME: is there something better we could do?
 
-                      ival = 0;
+                    ival = 0;
 
-                      if (! warned)
-                        {
-                          ::warning ("range error for conversion to character value");
-                          warned = true;
-                        }
-                    }
+                    if (! warned)
+                      {
+                        ::warning ("range error for conversion to character value");
+                        warned = true;
+                      }
+                  }
 
-                  chm (matrix.ridx (i) + j * nr) =
-                    static_cast<char> (ival);
-                }
+                chm (matrix.ridx (i) + j * nr) =
+                  static_cast<char> (ival);
+              }
           }
 
       retval = octave_value (chm, type);
@@ -296,7 +297,7 @@
       else
         st = LS_FLOAT;
     }
-  else if (matrix.nnz () > 8192) // FIXME -- make this configurable.
+  else if (matrix.nnz () > 8192) // FIXME: make this configurable.
     {
       double max_val, min_val;
       if (matrix.all_integers (max_val, min_val))
@@ -305,21 +306,21 @@
 
   // add one to the printed indices to go from
   // zero-based to one-based arrays
-   for (int i = 0; i < nc+1; i++)
-     {
-       octave_quit ();
-       itmp = matrix.cidx (i);
-       os.write (reinterpret_cast<char *> (&itmp), 4);
-     }
+  for (int i = 0; i < nc+1; i++)
+    {
+      octave_quit ();
+      itmp = matrix.cidx (i);
+      os.write (reinterpret_cast<char *> (&itmp), 4);
+    }
 
-   for (int i = 0; i < nz; i++)
-     {
-       octave_quit ();
-       itmp = matrix.ridx (i);
-       os.write (reinterpret_cast<char *> (&itmp), 4);
-     }
+  for (int i = 0; i < nz; i++)
+    {
+      octave_quit ();
+      itmp = matrix.ridx (i);
+      os.write (reinterpret_cast<char *> (&itmp), 4);
+    }
 
-   write_doubles (os, matrix.data (), st, nz);
+  write_doubles (os, matrix.data (), st, nz);
 
   return true;
 }
@@ -337,10 +338,11 @@
   if (swap)
     swap_bytes<4> (&tmp);
 
-  if (tmp != -2) {
-    error ("load: only 2-D sparse matrices are supported");
-    return false;
-  }
+  if (tmp != -2)
+    {
+      error ("load: only 2-D sparse matrices are supported");
+      return false;
+    }
 
   if (! is.read (reinterpret_cast<char *> (&nr), 4))
     return false;
@@ -411,7 +413,8 @@
   matrix.maybe_compress ();
 
 #if HAVE_HDF5_18
-  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+  hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT,
+                               H5P_DEFAULT);
 #else
   hid_t group_hid = H5Gcreate (loc_id, name, 0);
 #endif
--- a/libinterp/octave-value/ov-re-sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-re-sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_matrix_h)
-#define octave_sparse_matrix_h 1
+#if !defined (octave_ov_re_sparse_h)
+#define octave_ov_re_sparse_h 1
 
 #include <cstdlib>
 
@@ -85,8 +85,10 @@
 
   ~octave_sparse_matrix (void) { }
 
-  octave_base_value *clone (void) const { return new octave_sparse_matrix (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_sparse_matrix (); }
+  octave_base_value *clone (void) const
+  { return new octave_sparse_matrix (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_sparse_matrix (); }
 
   octave_base_value *try_narrowing_conversion (void);
 
@@ -105,7 +107,7 @@
   double double_value (bool = false) const;
 
   double scalar_value (bool frc_str_conv = false) const
-    { return double_value (frc_str_conv); }
+  { return double_value (frc_str_conv); }
 
   Matrix matrix_value (bool = false) const;
 
@@ -122,10 +124,10 @@
   NDArray array_value (bool = false) const;
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return matrix; }
+  { return matrix; }
 
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (matrix); }
+  { return SparseComplexMatrix (matrix); }
 
   SparseBoolMatrix sparse_bool_matrix_value (bool warn = false) const;
 
@@ -135,7 +137,7 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 #endif
 
   bool save_binary (std::ostream& os, bool& save_as_floats);
--- a/libinterp/octave-value/ov-scalar.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-scalar.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -68,20 +68,21 @@
 octave_base_value::type_conv_info
 octave_scalar::numeric_demotion_function (void) const
 {
-  return octave_base_value::type_conv_info (default_numeric_demotion_function,
-                                            octave_float_scalar::static_type_id ());
+  return octave_base_value::type_conv_info
+           (default_numeric_demotion_function,
+            octave_float_scalar::static_type_id ());
 }
 
 octave_value
 octave_scalar::do_index_op (const octave_value_list& idx, bool resize_ok)
 {
-  // FIXME -- this doesn't solve the problem of
+  // FIXME: this doesn't solve the problem of
   //
   //   a = 1; a([1,1], [1,1], [1,1])
   //
   // and similar constructions.  Hmm...
 
-  // FIXME -- using this constructor avoids narrowing the
+  // FIXME: using this constructor avoids narrowing the
   // 1x1 matrix back to a scalar value.  Need a better solution
   // to this problem.
 
@@ -132,7 +133,7 @@
 
       if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
         {
-          // FIXME -- is there something better we could do?
+          // FIXME: is there something better we could do?
 
           ival = 0;
 
--- a/libinterp/octave-value/ov-scalar.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-scalar.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_scalar_h)
-#define octave_scalar_h 1
+#if !defined (octave_ov_scalar_h)
+#define octave_ov_scalar_h 1
 
 #include <cstdlib>
 
@@ -79,7 +79,7 @@
   idx_vector index_vector (void) const { return idx_vector (scalar); }
 
   octave_value any (int = 0) const
-    { return (scalar != 0 && ! lo_ieee_isnan (scalar)); }
+  { return (scalar != 0 && ! lo_ieee_isnan (scalar)); }
 
   builtin_type_t builtin_type (void) const { return btyp_double; }
 
@@ -93,35 +93,35 @@
 
   int8NDArray
   int8_array_value (void) const
-    { return int8NDArray (dim_vector (1, 1), scalar); }
+  { return int8NDArray (dim_vector (1, 1), scalar); }
 
   int16NDArray
   int16_array_value (void) const
-    { return int16NDArray (dim_vector (1, 1), scalar); }
+  { return int16NDArray (dim_vector (1, 1), scalar); }
 
   int32NDArray
   int32_array_value (void) const
-    { return int32NDArray (dim_vector (1, 1), scalar); }
+  { return int32NDArray (dim_vector (1, 1), scalar); }
 
   int64NDArray
   int64_array_value (void) const
-    { return int64NDArray (dim_vector (1, 1), scalar); }
+  { return int64NDArray (dim_vector (1, 1), scalar); }
 
   uint8NDArray
   uint8_array_value (void) const
-    { return uint8NDArray (dim_vector (1, 1), scalar); }
+  { return uint8NDArray (dim_vector (1, 1), scalar); }
 
   uint16NDArray
   uint16_array_value (void) const
-    { return uint16NDArray (dim_vector (1, 1), scalar); }
+  { return uint16NDArray (dim_vector (1, 1), scalar); }
 
   uint32NDArray
   uint32_array_value (void) const
-    { return uint32NDArray (dim_vector (1, 1), scalar); }
+  { return uint32NDArray (dim_vector (1, 1), scalar); }
 
   uint64NDArray
   uint64_array_value (void) const
-    { return uint64NDArray (dim_vector (1, 1), scalar); }
+  { return uint64NDArray (dim_vector (1, 1), scalar); }
 
 #define DEFINE_INT_SCALAR_VALUE(TYPE) \
   octave_ ## TYPE \
@@ -141,30 +141,32 @@
 
   double double_value (bool = false) const { return scalar; }
 
-  float float_value (bool = false) const { return static_cast<float> (scalar); }
+  float float_value (bool = false) const
+  { return static_cast<float> (scalar); }
 
   double scalar_value (bool = false) const { return scalar; }
 
-  float float_scalar_value (bool = false) const { return static_cast<float> (scalar); }
+  float float_scalar_value (bool = false) const
+  { return static_cast<float> (scalar); }
 
   Matrix matrix_value (bool = false) const
-    { return Matrix (1, 1, scalar); }
+  { return Matrix (1, 1, scalar); }
 
   FloatMatrix float_matrix_value (bool = false) const
-    { return FloatMatrix (1, 1, scalar); }
+  { return FloatMatrix (1, 1, scalar); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (dim_vector (1, 1), scalar); }
+  { return NDArray (dim_vector (1, 1), scalar); }
 
   FloatNDArray float_array_value (bool = false) const
-    { return FloatNDArray (dim_vector (1, 1), scalar); }
+  { return FloatNDArray (dim_vector (1, 1), scalar); }
 
   SparseMatrix sparse_matrix_value (bool = false) const
-    { return SparseMatrix (Matrix (1, 1, scalar)); }
+  { return SparseMatrix (Matrix (1, 1, scalar)); }
 
   // FIXME Need SparseComplexMatrix (Matrix) constructor!!!
   SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
-    { return SparseComplexMatrix (sparse_matrix_value ()); }
+  { return SparseComplexMatrix (sparse_matrix_value ()); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
@@ -173,16 +175,16 @@
   FloatComplex float_complex_value (bool = false) const { return scalar; }
 
   ComplexMatrix complex_matrix_value (bool = false) const
-    { return  ComplexMatrix (1, 1, Complex (scalar)); }
+  { return  ComplexMatrix (1, 1, Complex (scalar)); }
 
   FloatComplexMatrix float_complex_matrix_value (bool = false) const
-    { return  FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
+  { return  FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
+  { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
 
   FloatComplexNDArray float_complex_array_value (bool = false) const
-    { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
+  { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
 
   charNDArray
   char_array_value (bool = false) const
@@ -238,10 +240,10 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    {
-      return os.write (array_value (), block_size, output_type,
-                       skip, flt_fmt);
-    }
+  {
+    return os.write (array_value (), block_size, output_type,
+                     skip, flt_fmt);
+  }
 
   mxArray *as_mxArray (void) const;
 
--- a/libinterp/octave-value/ov-str-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-str-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -57,7 +57,8 @@
 DEFINE_OCTAVE_ALLOCATOR (octave_char_matrix_sq_str);
 
 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_char_matrix_str, "string", "char");
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_char_matrix_sq_str, "sq_string", "char");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_char_matrix_sq_str, "sq_string",
+                                     "char");
 
 static octave_base_value *
 default_numeric_conversion_function (const octave_base_value& a)
@@ -129,8 +130,9 @@
           idx_vec(i) = idx(i).index_vector ();
 
         if (! error_state)
-          retval = octave_value (charNDArray (matrix.index (idx_vec, resize_ok)),
-                                 type);
+          retval =
+            octave_value (charNDArray (matrix.index (idx_vec, resize_ok)),
+                          type);
       }
       break;
     }
@@ -261,12 +263,32 @@
 }
 
 void
-octave_char_matrix_str::print_raw (std::ostream& os, bool pr_as_read_syntax) const
+octave_char_matrix_str::print_raw (std::ostream& os,
+                                   bool pr_as_read_syntax) const
 {
   octave_print_internal (os, matrix, pr_as_read_syntax,
                          current_print_indent_level (), true);
 }
 
+std::string
+octave_char_matrix_str::short_disp (void) const
+{
+  std::string retval;
+
+  if (matrix.ndims () == 2 && numel () > 0)
+    {
+      retval = string_value ();
+
+      // FIXME -- should this be configurable?
+
+      if (retval.length () > 100)
+        retval = retval.substr (0, 100);
+    }
+
+  return retval;
+}
+
+
 bool
 octave_char_matrix_str::save_ascii (std::ostream& os)
 {
@@ -371,8 +393,7 @@
 
           if (elements >= 0)
             {
-              // FIXME -- need to be able to get max length
-              // before doing anything.
+              // FIXME: need to be able to get max length before doing anything.
 
               charMatrix chm (elements, 0);
               int max_len = 0;
@@ -694,7 +715,8 @@
               // to read into:
               hid_t st_id = H5Tcopy (H5T_C_S1);
               H5Tset_size (st_id, slen+1);
-              if (H5Dread (data_hid, st_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, s) < 0)
+              if (H5Dread (data_hid, st_id, H5S_ALL,
+                           H5S_ALL, H5P_DEFAULT, s) < 0)
                 {
                   H5Tclose (st_id);
                   H5Tclose (type_hid);
@@ -738,7 +760,8 @@
               hid_t st_id = H5Tcopy (H5T_C_S1);
               H5Tset_size (st_id, slen+1);
 
-              if (H5Dread (data_hid, st_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, s) < 0)
+              if (H5Dread (data_hid, st_id, H5S_ALL,
+                           H5S_ALL, H5P_DEFAULT, s) < 0)
                 {
                   H5Tclose (st_id);
                   H5Tclose (type_hid);
--- a/libinterp/octave-value/ov-str-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-str-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_char_matrix_str_h)
-#define octave_char_matrix_str_h 1
+#if !defined (octave_ov_str_mat_h)
+#define octave_ov_str_mat_h 1
 
 #include <cstdlib>
 
@@ -84,28 +84,30 @@
 
   ~octave_char_matrix_str (void) { }
 
-  octave_base_value *clone (void) const { return new octave_char_matrix_str (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_char_matrix_str (); }
+  octave_base_value *clone (void) const
+  { return new octave_char_matrix_str (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_char_matrix_str (); }
 
   type_conv_info numeric_conversion_function (void) const;
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false)
-    { return do_index_op_internal (idx, resize_ok); }
+  { return do_index_op_internal (idx, resize_ok); }
 
   octave_value squeeze (void) const
-    { return octave_value (charNDArray (matrix.squeeze ())); }
+  { return octave_value (charNDArray (matrix.squeeze ())); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return octave_value (charNDArray (matrix.reshape (new_dims))); }
+  { return octave_value (charNDArray (matrix.reshape (new_dims))); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return octave_value (charNDArray (matrix.permute (vec, inv))); }
+  { return octave_value (charNDArray (matrix.permute (vec, inv))); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const;
 
   octave_value diag (octave_idx_type k = 0) const
-    { return octave_value (matrix.diag (k)); }
+  { return octave_value (matrix.diag (k)); }
 
   bool is_string (void) const { return true; }
 
@@ -130,16 +132,18 @@
   Array<std::string> cellstr_value (void) const;
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (dim, mode)); }
+  { return octave_value (matrix.sort (dim, mode)); }
 
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (sidx, dim, mode)); }
+  { return octave_value (matrix.sort (sidx, dim, mode)); }
 
   bool print_as_scalar (void) const { return (rows () <= 1); }
 
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
 
+  std::string short_disp (void) const;
+
   bool save_ascii (std::ostream& os);
 
   bool load_ascii (std::istream& is);
@@ -158,7 +162,7 @@
   int write (octave_stream& os, int block_size,
              oct_data_conv::data_type output_type, int skip,
              oct_mach_info::float_format flt_fmt) const
-    { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
+  { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
 
 protected:
 
@@ -211,41 +215,43 @@
 
   ~octave_char_matrix_sq_str (void) { }
 
-  octave_base_value *clone (void) const { return new octave_char_matrix_sq_str (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_char_matrix_sq_str (); }
+  octave_base_value *clone (void) const
+  { return new octave_char_matrix_sq_str (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_char_matrix_sq_str (); }
 
   octave_value squeeze (void) const
-    { return octave_value (charNDArray (matrix.squeeze ()), '\''); }
+  { return octave_value (charNDArray (matrix.squeeze ()), '\''); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return octave_value (charNDArray (matrix.reshape (new_dims)), '\''); }
+  { return octave_value (charNDArray (matrix.reshape (new_dims)), '\''); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return octave_value (charNDArray (matrix.permute (vec, inv)), '\''); }
+  { return octave_value (charNDArray (matrix.permute (vec, inv)), '\''); }
 
   octave_value resize (const dim_vector& dv, bool = false) const
-    {
-      charNDArray retval (matrix);
-      retval.resize (dv);
-      return octave_value (retval, '\'');
-    }
+  {
+    charNDArray retval (matrix);
+    retval.resize (dv);
+    return octave_value (retval, '\'');
+  }
 
   octave_value diag (octave_idx_type k = 0) const
-    { return octave_value (matrix.diag (k), '\''); }
+  { return octave_value (matrix.diag (k), '\''); }
 
   bool is_sq_string (void) const { return true; }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false)
-    { return do_index_op_internal (idx, resize_ok, '\''); }
+  { return do_index_op_internal (idx, resize_ok, '\''); }
 
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (dim, mode), '\''); }
+  { return octave_value (matrix.sort (dim, mode), '\''); }
 
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
                      sortmode mode = ASCENDING) const
-    { return octave_value (matrix.sort (sidx, dim, mode), '\''); }
+  { return octave_value (matrix.sort (sidx, dim, mode), '\''); }
 
 private:
 
--- a/libinterp/octave-value/ov-struct.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-struct.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -85,7 +85,7 @@
   else if (auto_add)
     retval = (numel () == 0) ? Cell (dim_vector (1, 1)) : Cell (dims ());
   else
-    error_with_id ("Octave:invalid-indexing", 
+    error_with_id ("Octave:invalid-indexing",
                    "structure has no member '%s'", nm.c_str ());
 
   return retval;
@@ -189,7 +189,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
 
@@ -255,7 +255,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_user_function::subsref.
 
@@ -345,7 +345,8 @@
                     tmpc = map.contents (pkey).index (idx.front (), true);
                   }
 
-                // FIXME: better code reuse? cf. octave_cell::subsasgn and the case below.
+                // FIXME: better code reuse?
+                //        cf. octave_cell::subsasgn and the case below.
                 if (! error_state)
                   {
                     if (tmpc.numel () == 1)
@@ -360,13 +361,15 @@
                             tmp.make_unique (); // probably a no-op.
                           }
                         else
-                          // optimization: ignore the copy still stored inside our map.
+                          // optimization: ignore the copy
+                          // still stored inside our map.
                           tmp.make_unique (1);
 
                         if (! error_state)
-                          t_rhs = (orig_undefined
-                                   ? tmp.undef_subsasgn (next_type, next_idx, rhs)
-                                   : tmp.subsasgn (next_type, next_idx, rhs));
+                          t_rhs =
+                            (orig_undefined
+                               ? tmp.undef_subsasgn (next_type, next_idx, rhs)
+                               : tmp.subsasgn (next_type, next_idx, rhs));
                       }
                     else
                       gripe_indexed_cs_list ();
@@ -419,7 +422,8 @@
                         tmp.make_unique (); // probably a no-op.
                       }
                     else
-                      // optimization: ignore the copy still stored inside our map.
+                      // optimization: ignore the copy
+                      // still stored inside our map.
                       tmp.make_unique (1);
 
                     if (! error_state)
@@ -473,7 +477,8 @@
 
                         dim_vector didx = dims ().redim (idxf.length ());
                         for (octave_idx_type k = 0; k < idxf.length (); k++)
-                          if (! idxf(k).is_magic_colon ()) didx(k) = idxf(k).numel ();
+                          if (! idxf(k).is_magic_colon ())
+                            didx(k) = idxf(k).numel ();
 
                         if (didx.numel () == tmp_cell.numel ())
                           tmp_cell = tmp_cell.reshape (didx);
@@ -491,12 +496,15 @@
                       }
                     else
                       {
-                        const octave_map& cmap = const_cast<const octave_map &> (map);
-                        // cast map to const reference to avoid forced key insertion.
+                        const octave_map& cmap =
+                          const_cast<const octave_map &> (map);
+                        // cast to const reference, avoid forced key insertion.
                         if (idxf.all_scalars ()
-                            || cmap.contents (key).index (idxf, true).numel () == 1)
+                            || cmap.contents (key).index (idxf, true).numel ()
+                               == 1)
                           {
-                            map.assign (idxf, key, Cell (t_rhs.storable_value ()));
+                            map.assign (idxf,
+                                        key, Cell (t_rhs.storable_value ()));
                             if (! error_state)
                               {
                                 count++;
@@ -841,10 +849,11 @@
       else
         panic_impossible ();
     }
-  else {
-    error ("load: failed to extract number of elements in structure");
-    success = false;
-  }
+  else
+    {
+      error ("load: failed to extract number of elements in structure");
+      success = false;
+    }
 
   return success;
 }
@@ -1031,7 +1040,7 @@
   H5Gget_num_objs (group_id, &num_obj);
   H5Gclose (group_id);
 
-  // FIXME -- fields appear to be sorted alphabetically on loading.
+  // FIXME: fields appear to be sorted alphabetically on loading.
   // Why is that happening?
 
   while (current_item < static_cast<int> (num_obj)
@@ -1125,7 +1134,8 @@
 }
 DEFINE_OCTAVE_ALLOCATOR(octave_scalar_struct);
 
-DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA(octave_scalar_struct, "scalar struct", "struct");
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA(octave_scalar_struct, "scalar struct",
+                                    "struct");
 
 octave_value
 octave_scalar_struct::dotref (const octave_value_list& idx, bool auto_add)
@@ -1412,7 +1422,8 @@
 }
 
 bool
-octave_scalar_struct::print_name_tag (std::ostream& os, const std::string& name) const
+octave_scalar_struct::print_name_tag (std::ostream& os,
+                                      const std::string& name) const
 {
   bool retval = false;
 
@@ -1512,10 +1523,11 @@
       else
         panic_impossible ();
     }
-  else {
-    error ("load: failed to extract number of elements in structure");
-    success = false;
-  }
+  else
+    {
+      error ("load: failed to extract number of elements in structure");
+      success = false;
+    }
 
   return success;
 }
@@ -1607,7 +1619,8 @@
 #if defined (HAVE_HDF5)
 
 bool
-octave_scalar_struct::save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats)
+octave_scalar_struct::save_hdf5 (hid_t loc_id, const char *name,
+                                 bool save_as_floats)
 {
   hid_t data_hid = -1;
 
@@ -1664,7 +1677,7 @@
   H5Gget_num_objs (group_id, &num_obj);
   H5Gclose (group_id);
 
-  // FIXME -- fields appear to be sorted alphabetically on loading.
+  // FIXME: fields appear to be sorted alphabetically on loading.
   // Why is that happening?
 
   while (current_item < static_cast<int> (num_obj)
@@ -1735,7 +1748,8 @@
 }
 
 bool
-octave_scalar_struct::fast_elem_insert_self (void *where, builtin_type_t btyp) const
+octave_scalar_struct::fast_elem_insert_self (void *where,
+                                             builtin_type_t btyp) const
 {
 
   if (btyp == btyp_struct)
@@ -1748,7 +1762,7 @@
 }
 
 DEFUN (struct, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} struct (@var{field1}, @var{value1}, @var{field2}, @var{value2}, @dots{})\n\
 \n\
 Create a scalar or array structure and initialize its values.  The\n\
@@ -1947,7 +1961,7 @@
 */
 
 DEFUN (isstruct, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isstruct (@var{x})\n\
 Return true if @var{x} is a structure or a structure array.\n\
 @seealso{ismatrix, iscell, isa}\n\
@@ -1964,7 +1978,7 @@
 }
 
 DEFUN (__fieldnames__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} __fieldnames__ (@var{struct})\n\
 @deftypefnx {Built-in Function} {} __fieldnames__ (@var{obj})\n\
 Internal function.\n\
@@ -1991,7 +2005,7 @@
 }
 
 DEFUN (isfield, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isfield (@var{x}, @var{name})\n\
 Return true if the @var{x} is a structure and it\n\
 includes an element named @var{name}.  If @var{name} is a cell\n\
@@ -2010,7 +2024,7 @@
         {
           octave_map m = args(0).map_value ();
 
-          // FIXME -- should this work for all types that can do
+          // FIXME: should this work for all types that can do
           // structure reference operations?
 
           if (args(1).is_string ())
@@ -2048,7 +2062,7 @@
 }
 
 DEFUN (nfields, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} nfields (@var{s})\n\
 Return the number of fields of the structure @var{s}.\n\
 @end deftypefn")
@@ -2278,7 +2292,7 @@
 */
 
 DEFUN (struct_levels_to_print, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} struct_levels_to_print ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} struct_levels_to_print (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} struct_levels_to_print (@var{new_val}, \"local\")\n\
@@ -2295,7 +2309,7 @@
 }
 
 DEFUN (print_struct_array_contents, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} print_struct_array_contents ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} print_struct_array_contents (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} print_struct_array_contents (@var{new_val}, \"local\")\n\
--- a/libinterp/octave-value/ov-struct.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-struct.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_struct_h)
-#define octave_struct_h 1
+#if !defined (octave_ov_struct_h)
+#define octave_ov_struct_h 1
 
 #include <cstdlib>
 
@@ -68,10 +68,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string&,
                              const std::list<octave_value_list>&, int);
@@ -90,7 +90,7 @@
   octave_value squeeze (void) const { return map.squeeze (); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return map.permute (vec, inv); }
+  { return map.permute (vec, inv); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -109,10 +109,10 @@
   octave_idx_type nfields (void) const { return map.nfields (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return map.reshape (new_dims); }
+  { return map.reshape (new_dims); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    { octave_map tmap = map; tmap.resize (dv, fill); return tmap; }
+  { octave_map tmap = map; tmap.resize (dv, fill); return tmap; }
 
   bool is_defined (void) const { return true; }
 
@@ -183,8 +183,10 @@
 
   ~octave_scalar_struct (void) { }
 
-  octave_base_value *clone (void) const { return new octave_scalar_struct (*this); }
-  octave_base_value *empty_clone (void) const { return new octave_scalar_struct (); }
+  octave_base_value *clone (void) const
+  { return new octave_scalar_struct (*this); }
+  octave_base_value *empty_clone (void) const
+  { return new octave_scalar_struct (); }
 
   octave_value dotref (const octave_value_list& idx, bool auto_add = false);
 
@@ -209,7 +211,7 @@
   octave_value squeeze (void) const { return map; }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return octave_map (map).permute (vec, inv); }
+  { return octave_map (map).permute (vec, inv); }
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false);
@@ -228,10 +230,10 @@
   octave_idx_type nfields (void) const { return map.nfields (); }
 
   octave_value reshape (const dim_vector& new_dims) const
-    { return octave_map (map).reshape (new_dims); }
+  { return octave_map (map).reshape (new_dims); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    { octave_map tmap = map; tmap.resize (dv, fill); return tmap; }
+  { octave_map tmap = map; tmap.resize (dv, fill); return tmap; }
 
   bool is_defined (void) const { return true; }
 
--- a/libinterp/octave-value/ov-type-conv.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-type-conv.h	Tue Nov 05 12:27:42 2013 -0500
@@ -25,7 +25,8 @@
 
 static
 octave_value
-octave_type_conv_body (const octave_value &arg, const std::string& name, int t_result)
+octave_type_conv_body (const octave_value &arg, const std::string& name,
+                       int t_result)
 {
   int t_arg = arg.type_id ();
   octave_value retval;
--- a/libinterp/octave-value/ov-typeinfo.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-typeinfo.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -66,7 +66,7 @@
                                       const octave_value& val)
 {
   return (instance_ok ())
-    ? instance->do_register_type (t_name, c_name, val) : -1;
+         ? instance->do_register_type (t_name, c_name, val) : -1;
 }
 
 bool
@@ -74,15 +74,16 @@
                                                 octave_value_typeinfo::unary_class_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_unary_class_op (op, f) : false;
+         ? instance->do_register_unary_class_op (op, f) : false;
 }
 
 bool
 octave_value_typeinfo::register_unary_op (octave_value::unary_op op,
-                                           int t, octave_value_typeinfo::unary_op_fcn f)
+                                          int t,
+                                          octave_value_typeinfo::unary_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_unary_op (op, t, f) : false;
+         ? instance->do_register_unary_op (op, t, f) : false;
 }
 
 bool
@@ -91,7 +92,7 @@
                                                     octave_value_typeinfo::non_const_unary_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_non_const_unary_op (op, t, f) : false;
+         ? instance->do_register_non_const_unary_op (op, t, f) : false;
 }
 
 bool
@@ -99,7 +100,7 @@
                                                  octave_value_typeinfo::binary_class_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_binary_class_op (op, f) : false;
+         ? instance->do_register_binary_class_op (op, f) : false;
 }
 
 bool
@@ -108,7 +109,7 @@
                                            octave_value_typeinfo::binary_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_binary_op (op, t1, t2, f) : false;
+         ? instance->do_register_binary_op (op, t1, t2, f) : false;
 }
 
 bool
@@ -116,7 +117,7 @@
                                                  octave_value_typeinfo::binary_class_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_binary_class_op (op, f) : false;
+         ? instance->do_register_binary_class_op (op, f) : false;
 }
 
 bool
@@ -125,14 +126,15 @@
                                            octave_value_typeinfo::binary_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_binary_op (op, t1, t2, f) : false;
+         ? instance->do_register_binary_op (op, t1, t2, f) : false;
 }
 
 bool
-octave_value_typeinfo::register_cat_op (int t1, int t2, octave_value_typeinfo::cat_op_fcn f)
+octave_value_typeinfo::register_cat_op (int t1, int t2,
+                                        octave_value_typeinfo::cat_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_cat_op (t1, t2, f) : false;
+         ? instance->do_register_cat_op (t1, t2, f) : false;
 }
 
 bool
@@ -141,7 +143,7 @@
                                            octave_value_typeinfo::assign_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_assign_op (op, t_lhs, t_rhs, f) : -1;
+         ? instance->do_register_assign_op (op, t_lhs, t_rhs, f) : -1;
 }
 
 bool
@@ -149,7 +151,7 @@
                                               int t_lhs, octave_value_typeinfo::assignany_op_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_assignany_op (op, t_lhs, f) : -1;
+         ? instance->do_register_assignany_op (op, t_lhs, f) : -1;
 }
 
 bool
@@ -157,7 +159,8 @@
                                                   int t_result)
 {
   return (instance_ok ())
-    ? instance->do_register_pref_assign_conv (t_lhs, t_rhs, t_result) : false;
+         ? instance->do_register_pref_assign_conv (t_lhs, t_rhs, t_result)
+         : false;
 }
 
 bool
@@ -165,7 +168,7 @@
                                               octave_base_value::type_conv_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_type_conv_op (t, t_result, f) : false;
+         ? instance->do_register_type_conv_op (t, t_result, f) : false;
 }
 
 bool
@@ -173,10 +176,10 @@
                                              octave_base_value::type_conv_fcn f)
 {
   return (instance_ok ())
-    ? instance->do_register_widening_op (t, t_result, f) : false;
+         ? instance->do_register_widening_op (t, t_result, f) : false;
 }
 
-// FIXME -- we should also store all class names and provide a
+// FIXME: we should also store all class names and provide a
 // way to list them (calling class with nargin == 0?).
 
 int
@@ -247,14 +250,16 @@
                op_name.c_str ());
     }
 
-  unary_class_ops.checkelem (static_cast<int> (op)) = reinterpret_cast<void *> (f);
+  unary_class_ops.checkelem (static_cast<int> (op))
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
 
 bool
 octave_value_typeinfo::do_register_unary_op (octave_value::unary_op op,
-                                             int t, octave_value_typeinfo::unary_op_fcn f)
+                                             int t,
+                                             octave_value_typeinfo::unary_op_fcn f)
 {
   if (lookup_unary_op (op, t))
     {
@@ -272,7 +277,8 @@
 
 bool
 octave_value_typeinfo::do_register_non_const_unary_op
-  (octave_value::unary_op op, int t, octave_value_typeinfo::non_const_unary_op_fcn f)
+  (octave_value::unary_op op, int t,
+   octave_value_typeinfo::non_const_unary_op_fcn f)
 {
   if (lookup_non_const_unary_op (op, t))
     {
@@ -283,7 +289,8 @@
                op_name.c_str (), type_name.c_str ());
     }
 
-  non_const_unary_ops.checkelem (static_cast<int> (op), t) = reinterpret_cast<void *> (f);
+  non_const_unary_ops.checkelem (static_cast<int> (op), t)
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -300,7 +307,8 @@
                op_name.c_str ());
     }
 
-  binary_class_ops.checkelem (static_cast<int> (op)) = reinterpret_cast<void *> (f);
+  binary_class_ops.checkelem (static_cast<int> (op))
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -320,7 +328,8 @@
                op_name.c_str (), t1_name.c_str (), t1_name.c_str ());
     }
 
-  binary_ops.checkelem (static_cast<int> (op), t1, t2) = reinterpret_cast<void *> (f);
+  binary_ops.checkelem (static_cast<int> (op), t1, t2)
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -337,7 +346,8 @@
                op_name.c_str ());
     }
 
-  compound_binary_class_ops.checkelem (static_cast<int> (op)) = reinterpret_cast<void *> (f);
+  compound_binary_class_ops.checkelem (static_cast<int> (op))
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -357,13 +367,15 @@
                op_name.c_str (), t1_name.c_str (), t1_name.c_str ());
     }
 
-  compound_binary_ops.checkelem (static_cast<int> (op), t1, t2) = reinterpret_cast<void *> (f);
+  compound_binary_ops.checkelem (static_cast<int> (op), t1, t2)
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
 
 bool
-octave_value_typeinfo::do_register_cat_op (int t1, int t2, octave_value_typeinfo::cat_op_fcn f)
+octave_value_typeinfo::do_register_cat_op (int t1, int t2,
+                                           octave_value_typeinfo::cat_op_fcn f)
 {
   if (lookup_cat_op (t1, t2))
     {
@@ -394,7 +406,8 @@
                op_name.c_str (), t_lhs_name.c_str (), t_rhs_name.c_str ());
     }
 
-  assign_ops.checkelem (static_cast<int> (op), t_lhs, t_rhs) = reinterpret_cast<void *> (f);
+  assign_ops.checkelem (static_cast<int> (op), t_lhs, t_rhs)
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -412,7 +425,8 @@
                op_name.c_str (), t_lhs_name.c_str ());
     }
 
-  assignany_ops.checkelem (static_cast<int> (op), t_lhs) = reinterpret_cast<void *> (f);
+  assignany_ops.checkelem (static_cast<int> (op), t_lhs)
+    = reinterpret_cast<void *> (f);
 
   return false;
 }
@@ -596,7 +610,7 @@
 }
 
 DEFUN (typeinfo, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} typeinfo ()\n\
 @deftypefnx {Built-in Function} {} typeinfo (@var{expr})\n\
 \n\
--- a/libinterp/octave-value/ov-typeinfo.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-typeinfo.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_value_typeinfo_h)
-#define octave_value_typeinfo_h 1
+#if !defined (octave_ov_typeinfo_h)
+#define octave_ov_typeinfo_h 1
 
 #include <string>
 
@@ -301,7 +301,8 @@
 
   binary_class_op_fcn do_lookup_binary_class_op (octave_value::compound_binary_op);
 
-  binary_op_fcn do_lookup_binary_op (octave_value::compound_binary_op, int, int);
+  binary_op_fcn do_lookup_binary_op (octave_value::compound_binary_op,
+                                     int, int);
 
   cat_op_fcn do_lookup_cat_op (int, int);
 
--- a/libinterp/octave-value/ov-uint16.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint16.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "uint16 scalar", "uint16");
 
 DEFUN (uint16, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uint16 (@var{x})\n\
 Convert @var{x} to unsigned 16-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-uint16.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint16.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_uint16_h)
-#define octave_uint16_h 1
+#if !defined (octave_ov_uint16_h)
+#define octave_ov_uint16_h 1
 
 #define OCTAVE_INT_T octave_uint16
 
--- a/libinterp/octave-value/ov-uint32.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint32.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "uint32 scalar", "uint32");
 
 DEFUN (uint32, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uint32 (@var{x})\n\
 Convert @var{x} to unsigned 32-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-uint32.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint32.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_uint32_h)
-#define octave_uint32_h 1
+#if !defined (octave_ov_uint32_h)
+#define octave_ov_uint32_h 1
 
 #define OCTAVE_INT_T octave_uint32
 
--- a/libinterp/octave-value/ov-uint64.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint64.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "uint64 scalar", "uint64");
 
 DEFUN (uint64, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uint64 (@var{x})\n\
 Convert @var{x} to unsigned 64-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-uint64.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint64.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_uint64_h)
-#define octave_uint64_h 1
+#if !defined (octave_ov_uint64_h)
+#define octave_ov_uint64_h 1
 
 #define OCTAVE_INT_T octave_uint64
 
--- a/libinterp/octave-value/ov-uint8.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint8.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
                                      "uint8 scalar", "uint8");
 
 DEFUN (uint8, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} uint8 (@var{x})\n\
 Convert @var{x} to unsigned 8-bit integer type.\n\
 @end deftypefn")
--- a/libinterp/octave-value/ov-uint8.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-uint8.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_uint8_h)
-#define octave_uint8_h 1
+#if !defined (octave_ov_uint8_h)
+#define octave_ov_uint8_h 1
 
 #define OCTAVE_INT_T octave_uint8
 
--- a/libinterp/octave-value/ov-usr-fcn.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-usr-fcn.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -232,7 +232,7 @@
   delete jit_info;
 #endif
 
-  // FIXME -- this is really playing with fire.
+  // FIXME: this is really playing with fire.
   symbol_table::erase_scope (local_scope);
 }
 
@@ -423,7 +423,8 @@
 octave_value_list
 octave_user_function::subsref (const std::string& type,
                                const std::list<octave_value_list>& idx,
-                               int nargout, const std::list<octave_lvalue>* lvalue_list)
+                               int nargout,
+                               const std::list<octave_lvalue>* lvalue_list)
 {
   octave_value_list retval;
 
@@ -450,7 +451,7 @@
       panic_impossible ();
     }
 
-  // FIXME -- perhaps there should be an
+  // FIXME: perhaps there should be an
   // octave_value_list::next_subsref member function?  See also
   // octave_builtin::subsref.
 
@@ -727,7 +728,8 @@
 void
 octave_user_function::bind_automatic_vars
   (const string_vector& arg_names, int nargin, int nargout,
-   const octave_value_list& va_args, const std::list<octave_lvalue> *lvalue_list)
+   const octave_value_list& va_args,
+   const std::list<octave_lvalue> *lvalue_list)
 {
   if (! arg_names.empty ())
     {
@@ -736,7 +738,8 @@
       // which might be redefined in a function.  Keep the old argn name
       // for backward compatibility of functions that use it directly.
 
-      symbol_table::force_assign ("argn", charMatrix (arg_names, Vstring_fill_char));
+      symbol_table::force_assign ("argn",
+                                  charMatrix (arg_names, Vstring_fill_char));
       symbol_table::force_assign (".argn.", Cell (arg_names));
 
       symbol_table::mark_hidden (".argn.");
@@ -777,8 +780,8 @@
           // Only assign the hidden variable if black holes actually present.
           Matrix bh (1, nbh);
           octave_idx_type k = 0, l = 0;
-          for (std::list<octave_lvalue>::const_iterator p = lvalue_list->begin ();
-               p != lvalue_list->end (); p++)
+          for (std::list<octave_lvalue>::const_iterator
+               p = lvalue_list->begin (); p != lvalue_list->end (); p++)
             {
               if (p->is_black_hole ())
                 bh(l++) = k+1;
@@ -820,7 +823,7 @@
 }
 
 DEFUN (nargin, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} nargin ()\n\
 @deftypefnx {Built-in Function} {} nargin (@var{fcn})\n\
 Within a function, return the number of arguments passed to the function.\n\
@@ -865,7 +868,8 @@
             }
           else
             {
-              // Matlab gives up for histc, so maybe it's ok we give up somtimes too.
+              // Matlab gives up for histc,
+              // so maybe it's ok that that we give up somtimes too?
               error ("nargin: nargin information not available for builtin functions");
             }
         }
@@ -886,7 +890,7 @@
 }
 
 DEFUN (nargout, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {} nargout ()\n\
 @deftypefnx {Built-in Function} {} nargout (@var{fcn})\n\
 Within a function, return the number of values the caller expects to\n\
@@ -915,7 +919,7 @@
 In the second usage,\n\
 \n\
 @example\n\
-nargout (@@histc) \% or nargout ('histc')\n\
+nargout (@@histc) \% or nargout (\"histc\")\n\
 @end example\n\
 \n\
 @noindent\n\
@@ -976,7 +980,7 @@
           if (fcn)
             {
               tree_parameter_list *ret_list = fcn->return_list ();
-          
+
               retval = ret_list ? ret_list->length () : 0;
 
               if (fcn->takes_var_return ())
@@ -984,9 +988,10 @@
             }
           else
             {
-              // JWE said this information is not available (currently, 2011-03-10)
+              // JWE said this information is not available (2011-03-10)
               // without making intrusive changes to Octave.
-              // Matlab gives up for histc, so maybe it's ok we give up somtimes too.
+              // Matlab gives up for histc,
+              // so maybe it's ok that we give up somtimes too?
               error ("nargout: nargout information not available for builtin functions.");
             }
         }
@@ -1012,7 +1017,7 @@
 }
 
 DEFUN (optimize_subsasgn_calls, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} optimize_subsasgn_calls ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} optimize_subsasgn_calls (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} optimize_subsasgn_calls (@var{new_val}, \"local\")\n\
@@ -1049,7 +1054,7 @@
 }
 
 DEFUN (isargout, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isargout (@var{k})\n\
 Within a function, return a logical value indicating whether the argument\n\
 @var{k} will be assigned on output to a variable.  If the result is false,\n\
@@ -1096,7 +1101,9 @@
               if (! error_state)
                 {
                   boolNDArray r (ka.dims ());
-                  for (octave_idx_type i = 0; i < ka.numel () && ! error_state; i++)
+                  for (octave_idx_type i = 0;
+                       i < ka.numel () && ! error_state;
+                       i++)
                     r(i) = isargout1 (nargout1, ignored, ka(i));
 
                   retval = r;
--- a/libinterp/octave-value/ov-usr-fcn.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov-usr-fcn.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_user_function_h)
-#define octave_user_function_h 1
+#if !defined (octave_ov_usr_fcn_h)
+#define octave_ov_usr_fcn_h 1
 
 #include <ctime>
 
@@ -112,10 +112,10 @@
   void mark_fcn_file_up_to_date (const octave_time& t) { t_checked = t; }
 
   void stash_fcn_file_time (const octave_time& t)
-    {
-      t_parsed = t;
-      mark_fcn_file_up_to_date (t);
-    }
+  {
+    t_parsed = t;
+    mark_fcn_file_up_to_date (t);
+  }
 
   std::string fcn_file_name (void) const { return file_name; }
 
@@ -125,10 +125,10 @@
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -187,7 +187,7 @@
   symbol_table::context_id active_context () const
   {
     return is_anonymous_function ()
-      ? 0 : static_cast<symbol_table::context_id>(call_depth);
+           ? 0 : static_cast<symbol_table::context_id>(call_depth);
   }
 
   octave_function *function_value (bool = false) { return this; }
@@ -203,19 +203,19 @@
   void stash_fcn_file_name (const std::string& nm);
 
   void stash_fcn_location (int line, int col)
-    {
-      location_line = line;
-      location_column = col;
-    }
+  {
+    location_line = line;
+    location_column = col;
+  }
 
   int beginning_line (void) const { return location_line; }
   int beginning_column (void) const { return location_column; }
 
   void stash_fcn_end_location (int line, int col)
-    {
-      end_location_line = line;
-      end_location_column = col;
-    }
+  {
+    end_location_line = line;
+    end_location_column = col;
+  }
 
   int ending_line (void) const { return end_location_line; }
   int ending_column (void) const { return end_location_column; }
@@ -233,10 +233,10 @@
   void mark_fcn_file_up_to_date (const octave_time& t) { t_checked = t; }
 
   void stash_fcn_file_time (const octave_time& t)
-    {
-      t_parsed = t;
-      mark_fcn_file_up_to_date (t);
-    }
+  {
+    t_parsed = t;
+    mark_fcn_file_up_to_date (t);
+  }
 
   std::string fcn_file_name (void) const { return file_name; }
 
@@ -259,20 +259,20 @@
   bool is_user_function (void) const { return true; }
 
   void erase_subfunctions (void)
-    {
-      symbol_table::erase_subfunctions_in_scope (local_scope);
-    }
+  {
+    symbol_table::erase_subfunctions_in_scope (local_scope);
+  }
 
   bool takes_varargs (void) const;
 
   bool takes_var_return (void) const;
 
   void mark_as_private_function (const std::string& cname = std::string ())
-    {
-      symbol_table::mark_subfunctions_in_scope_as_private (local_scope, cname);
+  {
+    symbol_table::mark_subfunctions_in_scope_as_private (local_scope, cname);
 
-      octave_function::mark_as_private_function (cname);
-    }
+    octave_function::mark_as_private_function (cname);
+  }
 
   void lock_subfunctions (void);
 
@@ -306,13 +306,13 @@
   bool is_anonymous_function (void) const { return anonymous_function; }
 
   bool is_anonymous_function_of_class
-    (const std::string& cname = std::string ()) const
+  (const std::string& cname = std::string ()) const
   {
     return anonymous_function
-      ? (cname.empty ()
-         ? (! dispatch_class ().empty ())
-         : cname == dispatch_class ())
-      : false;
+           ? (cname.empty ()
+              ? (! dispatch_class ().empty ())
+              : cname == dispatch_class ())
+           : false;
   }
 
   // If we are a special expression, then the function body consists of exactly
@@ -332,31 +332,31 @@
   void mark_as_classdef_constructor (void) { class_constructor = classdef; }
 
   bool is_class_constructor (const std::string& cname = std::string ()) const
-    {
-      return class_constructor == legacy
-        ? (cname.empty () ? true : cname == dispatch_class ()) : false;
-    }
+  {
+    return class_constructor == legacy
+      ? (cname.empty () ? true : cname == dispatch_class ()) : false;
+  }
 
   bool is_classdef_constructor (const std::string& cname = std::string ()) const
-    {
-      return class_constructor == classdef
-        ? (cname.empty () ? true : cname == dispatch_class ()) : false;
-    }
+  {
+    return class_constructor == classdef
+      ? (cname.empty () ? true : cname == dispatch_class ()) : false;
+  }
 
   void mark_as_class_method (void) { class_method = true; }
 
   bool is_class_method (const std::string& cname = std::string ()) const
-    {
-      return class_method
-        ? (cname.empty () ? true : cname == dispatch_class ()) : false;
-    }
+  {
+    return class_method
+           ? (cname.empty () ? true : cname == dispatch_class ()) : false;
+  }
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    {
-      octave_value_list tmp = subsref (type, idx, 1);
-      return tmp.length () > 0 ? tmp(0) : octave_value ();
-    }
+  {
+    octave_value_list tmp = subsref (type, idx, 1);
+    return tmp.length () > 0 ? tmp(0) : octave_value ();
+  }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -364,7 +364,8 @@
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
-                             int nargout, const std::list<octave_lvalue>* lvalue_list);
+                             int nargout,
+                             const std::list<octave_lvalue>* lvalue_list);
 
   octave_value_list
   do_multi_index_op (int nargout, const octave_value_list& args);
@@ -393,15 +394,15 @@
 
   template <class T>
   bool local_protect (T& variable)
-    {
-      if (curr_unwind_protect_frame)
-        {
-          curr_unwind_protect_frame->protect_var (variable);
-          return true;
-        }
-      else
-        return false;
-    }
+  {
+    if (curr_unwind_protect_frame)
+      {
+        curr_unwind_protect_frame->protect_var (variable);
+        return true;
+      }
+    else
+      return false;
+  }
 
 #ifdef HAVE_LLVM
   jit_function_info *get_info (void) { return jit_info; }
--- a/libinterp/octave-value/ov.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -1461,7 +1461,8 @@
           try
             {
               f (*rep, octave_value_list (), *rhs.rep);
-              maybe_mutate (); // Usually unnecessary, but may be needed (complex arrays).
+              // Usually unnecessary, but may be needed (complex arrays).
+              maybe_mutate ();
             }
           catch (octave_execution_exception)
             {
@@ -1844,8 +1845,9 @@
 octave_value::float_complex_column_vector_value (bool force_string_conv,
                                                  bool frc_vec_conv) const
 {
-  return FloatComplexColumnVector (float_complex_vector_value (force_string_conv,
-                                                               frc_vec_conv));
+  return
+    FloatComplexColumnVector (float_complex_vector_value (force_string_conv,
+                                                          frc_vec_conv));
 }
 
 FloatRowVector
@@ -1972,7 +1974,7 @@
     }
   else
     {
-      // FIXME -- we need to handle overloading operators for built-in
+      // FIXME: we need to handle overloading operators for built-in
       // classes (double, char, int8, etc.)
 
       octave_value_typeinfo::binary_op_fcn f
@@ -1992,17 +1994,21 @@
       else
         {
           octave_value tv1;
-          octave_base_value::type_conv_info cf1 = v1.numeric_conversion_function ();
+          octave_base_value::type_conv_info cf1 =
+            v1.numeric_conversion_function ();
 
           octave_value tv2;
-          octave_base_value::type_conv_info cf2 = v2.numeric_conversion_function ();
+          octave_base_value::type_conv_info cf2 =
+            v2.numeric_conversion_function ();
 
           // Try biased (one-sided) conversions first.
           if (cf2.type_id () >= 0 &&
               octave_value_typeinfo::lookup_binary_op (op, t1, cf2.type_id ()))
             cf1 = 0;
-          else if (cf1.type_id () >= 0 &&
-                   octave_value_typeinfo::lookup_binary_op (op, cf1.type_id (), t2))
+          else if (cf1.type_id () >= 0
+                   && octave_value_typeinfo::lookup_binary_op (op,
+                                                               cf1.type_id (),
+                                                               t2))
             cf2 = 0;
 
           if (cf1)
@@ -2054,10 +2060,13 @@
 
               // Try biased (one-sided) conversions first.
               if (cf2.type_id () >= 0
-                  && octave_value_typeinfo::lookup_binary_op (op, t1, cf2.type_id ()))
+                  && octave_value_typeinfo::lookup_binary_op (op, t1,
+                                                              cf2.type_id ()))
                 cf1 = 0;
-              else if (cf1.type_id () >= 0
-                       && octave_value_typeinfo::lookup_binary_op (op, cf1.type_id (), t2))
+              else if (cf1.type_id () >= 0 &&
+                       octave_value_typeinfo::lookup_binary_op (op,
+                                                                cf1.type_id (),
+                                                                t2))
                 cf2 = 0;
 
               if (cf1)
@@ -2071,7 +2080,8 @@
                     }
                   else
                     {
-                      gripe_binary_op_conv (octave_value::binary_op_as_string (op));
+                      gripe_binary_op_conv
+                        (octave_value::binary_op_as_string (op));
                       return retval;
                     }
                 }
@@ -2087,7 +2097,8 @@
                     }
                   else
                     {
-                      gripe_binary_op_conv (octave_value::binary_op_as_string (op));
+                      gripe_binary_op_conv
+                        (octave_value::binary_op_as_string (op));
                       return retval;
                     }
                 }
@@ -2393,7 +2404,7 @@
     }
   else
     {
-      // FIXME -- we need to handle overloading operators for built-in
+      // FIXME: we need to handle overloading operators for built-in
       // classes (double, char, int8, etc.)
 
       octave_value_typeinfo::unary_op_fcn f
@@ -2530,7 +2541,8 @@
                   (octave_value::unary_op_as_string (op), type_name ());
             }
           else
-            gripe_unary_op (octave_value::unary_op_as_string (op), type_name ());
+            gripe_unary_op (octave_value::unary_op_as_string (op),
+                            type_name ());
         }
     }
   else
@@ -2570,7 +2582,7 @@
     do_non_const_unary_op (op);
   else
     {
-      // FIXME -- only do the following stuff if we can't find a
+      // FIXME: only do the following stuff if we can't find a
       // specific function to call to handle the op= operation for the
       // types we have.
 
@@ -2779,7 +2791,7 @@
 }
 
 DEFUN (sizeof, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} sizeof (@var{val})\n\
 Return the size of @var{val} in bytes.\n\
 @seealso{whos}\n\
@@ -2875,11 +2887,12 @@
         }
     }
   else
-    error ("%s: second argument must be a structure with fields 'type' and 'subs'", name);
+    error ("%s: second argument must be a structure with fields 'type' and 'subs'",
+           name);
 }
 
 DEFUN (subsref, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} subsref (@var{val}, @var{idx})\n\
 Perform the subscripted element selection operation according to\n\
 the subscript specified by @var{idx}.\n\
@@ -2942,7 +2955,7 @@
 }
 
 DEFUN (subsasgn, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} subsasgn (@var{val}, @var{idx}, @var{rhs})\n\
 Perform the subscripted assignment operation according to\n\
 the subscript specified by @var{idx}.\n\
@@ -3077,7 +3090,7 @@
 */
 
 DEFUN (is_sq_string, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} is_sq_string (@var{x})\n\
 Return true if @var{x} is a single-quoted character string.\n\
 @seealso{is_dq_string, ischar}\n\
@@ -3104,7 +3117,7 @@
 */
 
 DEFUN (is_dq_string, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} is_dq_string (@var{x})\n\
 Return true if @var{x} is a double-quoted character string.\n\
 @seealso{is_sq_string, ischar}\n\
--- a/libinterp/octave-value/ov.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave-value/ov.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_value_h)
-#define octave_value_h 1
+#if !defined (octave_ov_h)
+#define octave_ov_h 1
 
 #include <cstdlib>
 
@@ -165,11 +165,11 @@
   enum magic_colon { magic_colon_t };
 
   octave_value (void)
-    {
-      static octave_base_value nil_rep;
-      rep = &nil_rep;
-      rep->count++;
-    }
+  {
+    static octave_base_value nil_rep;
+    rep = &nil_rep;
+    rep->count++;
+  }
 
   octave_value (short int i);
   octave_value (unsigned short int i);
@@ -178,7 +178,7 @@
   octave_value (long int i);
   octave_value (unsigned long int i);
 
-  // FIXME -- these are kluges.  They turn into doubles
+  // FIXME: these are kluges.  They turn into doubles
   // internally, which will break for very large values.  We just use
   // them to store things like 64-bit ino_t, etc, and hope that those
   // values are never actually larger than can be represented exactly
@@ -215,7 +215,8 @@
   octave_value (const Complex& C);
   octave_value (const FloatComplex& C);
   octave_value (const ComplexMatrix& m, const MatrixType& t = MatrixType ());
-  octave_value (const FloatComplexMatrix& m, const MatrixType& t = MatrixType ());
+  octave_value (const FloatComplexMatrix& m,
+                const MatrixType& t = MatrixType ());
   octave_value (const ComplexNDArray& cnda);
   octave_value (const FloatComplexNDArray& cnda);
   octave_value (const Array<Complex>& m);
@@ -296,17 +297,17 @@
   // Copy constructor.
 
   octave_value (const octave_value& a)
-    {
-      rep = a.rep;
-      rep->count++;
-    }
+  {
+    rep = a.rep;
+    rep->count++;
+  }
 
   // This should only be called for derived types.
 
   octave_base_value *clone (void) const;
 
   octave_base_value *empty_clone (void) const
-    { return rep->empty_clone (); }
+  { return rep->empty_clone (); }
 
   // Delete the representation of this constant if the count drops to
   // zero.
@@ -318,88 +319,88 @@
   }
 
   void make_unique (void)
-    {
-      if (rep->count > 1)
-        {
-          octave_base_value *r = rep->unique_clone ();
+  {
+    if (rep->count > 1)
+      {
+        octave_base_value *r = rep->unique_clone ();
 
-          if (--rep->count == 0)
-            delete rep;
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = r;
-        }
-    }
+        rep = r;
+      }
+  }
 
   // This uniquifies the value if it is referenced by more than a certain
   // number of shallow copies. This is useful for optimizations where we
   // know a certain copy, typically within a cell array, to be obsolete.
   void make_unique (int obsolete_copies)
-    {
-      if (rep->count > obsolete_copies + 1)
-        {
-          octave_base_value *r = rep->unique_clone ();
+  {
+    if (rep->count > obsolete_copies + 1)
+      {
+        octave_base_value *r = rep->unique_clone ();
 
-          if (--rep->count == 0)
-            delete rep;
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = r;
-        }
-    }
+        rep = r;
+      }
+  }
 
   // Simple assignment.
 
   octave_value& operator = (const octave_value& a)
-    {
-      if (rep != a.rep)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (rep != a.rep)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
-        }
+        rep = a.rep;
+        rep->count++;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   octave_idx_type get_count (void) const { return rep->count; }
 
   octave_base_value::type_conv_info numeric_conversion_function (void) const
-    { return rep->numeric_conversion_function (); }
+  { return rep->numeric_conversion_function (); }
 
   octave_base_value::type_conv_info numeric_demotion_function (void) const
-    { return rep->numeric_demotion_function (); }
+  { return rep->numeric_demotion_function (); }
 
   void maybe_mutate (void);
 
   octave_value squeeze (void) const
-    { return rep->squeeze (); }
+  { return rep->squeeze (); }
 
   // The result of full().
   octave_value full_value (void) const
-    { return rep->full_value (); }
+  { return rep->full_value (); }
 
   octave_base_value *try_narrowing_conversion (void)
-    { return rep->try_narrowing_conversion (); }
+  { return rep->try_narrowing_conversion (); }
 
   // Close to dims (), but can be overloaded for classes.
   Matrix size (void)
-    { return rep->size (); }
+  { return rep->size (); }
 
   octave_idx_type numel (const octave_value_list& idx)
-    { return rep->numel (idx); }
+  { return rep->numel (idx); }
 
   octave_value single_subsref (const std::string& type,
                                const octave_value_list& idx);
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx)
-    { return rep->subsref (type, idx); }
+  { return rep->subsref (type, idx); }
 
   octave_value subsref (const std::string& type,
                         const std::list<octave_value_list>& idx,
                         bool auto_add)
-    { return rep->subsref (type, idx, auto_add); }
+  { return rep->subsref (type, idx, auto_add); }
 
   octave_value_list subsref (const std::string& type,
                              const std::list<octave_value_list>& idx,
@@ -431,7 +432,7 @@
 
   octave_value do_index_op (const octave_value_list& idx,
                             bool resize_ok = false)
-    { return rep->do_index_op (idx, resize_ok); }
+  { return rep->do_index_op (idx, resize_ok); }
 
   octave_value_list
   do_multi_index_op (int nargout, const octave_value_list& idx);
@@ -441,26 +442,26 @@
                      const std::list<octave_lvalue> *lvalue_list);
 
   octave_value subsasgn (const std::string& type,
-                                 const std::list<octave_value_list>& idx,
-                                 const octave_value& rhs);
+                         const std::list<octave_value_list>& idx,
+                         const octave_value& rhs);
 
   octave_value undef_subsasgn (const std::string& type,
                                const std::list<octave_value_list>& idx,
                                const octave_value& rhs);
 
   octave_value& assign (assign_op op, const std::string& type,
-                       const std::list<octave_value_list>& idx,
-                       const octave_value& rhs);
+                        const std::list<octave_value_list>& idx,
+                        const octave_value& rhs);
 
   octave_value& assign (assign_op, const octave_value& rhs);
 
   idx_vector index_vector (void) const
-    { return rep->index_vector (); }
+  { return rep->index_vector (); }
 
   // Size.
 
   dim_vector dims (void) const
-    { return rep->dims (); }
+  { return rep->dims (); }
 
   octave_idx_type rows (void) const { return rep->rows (); }
 
@@ -473,13 +474,13 @@
   bool all_zero_dims (void) const { return dims ().all_zero (); }
 
   octave_idx_type numel (void) const
-    { return rep->numel (); }
+  { return rep->numel (); }
 
   octave_idx_type capacity (void) const
-    { return rep->capacity (); }
+  { return rep->capacity (); }
 
   size_t byte_size (void) const
-    { return rep->byte_size (); }
+  { return rep->byte_size (); }
 
   octave_idx_type nnz (void) const { return rep->nnz (); }
 
@@ -488,16 +489,16 @@
   octave_idx_type nfields (void) const { return rep->nfields (); }
 
   octave_value reshape (const dim_vector& dv) const
-    { return rep->reshape (dv); }
+  { return rep->reshape (dv); }
 
   octave_value permute (const Array<int>& vec, bool inv = false) const
-    { return rep->permute (vec, inv); }
+  { return rep->permute (vec, inv); }
 
   octave_value ipermute (const Array<int>& vec) const
-    { return rep->permute (vec, true); }
+  { return rep->permute (vec, true); }
 
   octave_value resize (const dim_vector& dv, bool fill = false) const
-    { return rep->resize (dv, fill);}
+  { return rep->resize (dv, fill);}
 
   MatrixType matrix_type (void) const
   { return rep->matrix_type (); }
@@ -510,155 +511,155 @@
   // ! is_defined().
 
   bool is_defined (void) const
-    { return rep->is_defined (); }
+  { return rep->is_defined (); }
 
   bool is_undefined (void) const
-    { return ! is_defined (); }
+  { return ! is_defined (); }
 
   bool is_empty (void) const
-    { return rep->is_empty (); }
+  { return rep->is_empty (); }
 
   bool is_cell (void) const
-    { return rep->is_cell (); }
+  { return rep->is_cell (); }
 
   bool is_cellstr (void) const
-    { return rep->is_cellstr (); }
+  { return rep->is_cellstr (); }
 
   bool is_real_scalar (void) const
-    { return rep->is_real_scalar (); }
+  { return rep->is_real_scalar (); }
 
   bool is_real_matrix (void) const
-    { return rep->is_real_matrix (); }
+  { return rep->is_real_matrix (); }
 
   bool is_complex_scalar (void) const
-    { return rep->is_complex_scalar (); }
+  { return rep->is_complex_scalar (); }
 
   bool is_complex_matrix (void) const
-    { return rep->is_complex_matrix (); }
+  { return rep->is_complex_matrix (); }
 
   bool is_bool_scalar (void) const
-    { return rep->is_bool_scalar (); }
+  { return rep->is_bool_scalar (); }
 
   bool is_bool_matrix (void) const
-    { return rep->is_bool_matrix (); }
+  { return rep->is_bool_matrix (); }
 
   bool is_char_matrix (void) const
-    { return rep->is_char_matrix (); }
+  { return rep->is_char_matrix (); }
 
   bool is_diag_matrix (void) const
-    { return rep->is_diag_matrix (); }
+  { return rep->is_diag_matrix (); }
 
   bool is_perm_matrix (void) const
-    { return rep->is_perm_matrix (); }
+  { return rep->is_perm_matrix (); }
 
   bool is_string (void) const
-    { return rep->is_string (); }
+  { return rep->is_string (); }
 
   bool is_sq_string (void) const
-    { return rep->is_sq_string (); }
+  { return rep->is_sq_string (); }
 
   bool is_dq_string (void) const
-    { return rep->is_string () && ! rep->is_sq_string (); }
+  { return rep->is_string () && ! rep->is_sq_string (); }
 
   bool is_range (void) const
-    { return rep->is_range (); }
+  { return rep->is_range (); }
 
   bool is_map (void) const
-    { return rep->is_map (); }
+  { return rep->is_map (); }
 
   bool is_object (void) const
-    { return rep->is_object (); }
+  { return rep->is_object (); }
 
   bool is_java (void) const
-    { return rep->is_java (); }
+  { return rep->is_java (); }
 
   bool is_cs_list (void) const
-    { return rep->is_cs_list (); }
+  { return rep->is_cs_list (); }
 
   bool is_magic_colon (void) const
-    { return rep->is_magic_colon (); }
+  { return rep->is_magic_colon (); }
 
   bool is_null_value (void) const
-    { return rep->is_null_value (); }
+  { return rep->is_null_value (); }
 
   // Are any or all of the elements in this constant nonzero?
 
   octave_value all (int dim = 0) const
-    { return rep->all (dim); }
+  { return rep->all (dim); }
 
   octave_value any (int dim = 0) const
-    { return rep->any (dim); }
+  { return rep->any (dim); }
 
   builtin_type_t builtin_type (void) const
-    { return rep->builtin_type (); }
+  { return rep->builtin_type (); }
 
   // Floating point types.
 
   bool is_double_type (void) const
-    { return rep->is_double_type (); }
+  { return rep->is_double_type (); }
 
   bool is_single_type (void) const
-    { return rep->is_single_type (); }
+  { return rep->is_single_type (); }
 
   bool is_float_type (void) const
-    { return rep->is_float_type (); }
+  { return rep->is_float_type (); }
 
   // Integer types.
 
   bool is_int8_type (void) const
-    { return rep->is_int8_type (); }
+  { return rep->is_int8_type (); }
 
   bool is_int16_type (void) const
-    { return rep->is_int16_type (); }
+  { return rep->is_int16_type (); }
 
   bool is_int32_type (void) const
-    { return rep->is_int32_type (); }
+  { return rep->is_int32_type (); }
 
   bool is_int64_type (void) const
-   { return rep->is_int64_type (); }
+  { return rep->is_int64_type (); }
 
   bool is_uint8_type (void) const
-    { return rep->is_uint8_type (); }
+  { return rep->is_uint8_type (); }
 
   bool is_uint16_type (void) const
-    { return rep->is_uint16_type (); }
+  { return rep->is_uint16_type (); }
 
   bool is_uint32_type (void) const
-    { return rep->is_uint32_type (); }
+  { return rep->is_uint32_type (); }
 
   bool is_uint64_type (void) const
-    { return rep->is_uint64_type (); }
+  { return rep->is_uint64_type (); }
 
   // Other type stuff.
 
   bool is_bool_type (void) const
-    { return rep->is_bool_type (); }
+  { return rep->is_bool_type (); }
 
   bool is_integer_type (void) const
-    { return rep->is_integer_type (); }
+  { return rep->is_integer_type (); }
 
   bool is_real_type (void) const
-    { return rep->is_real_type (); }
+  { return rep->is_real_type (); }
 
   bool is_complex_type (void) const
-    { return rep->is_complex_type (); }
+  { return rep->is_complex_type (); }
 
   bool is_scalar_type (void) const
-    { return rep->is_scalar_type (); }
+  { return rep->is_scalar_type (); }
 
   bool is_matrix_type (void) const
-    { return rep->is_matrix_type (); }
+  { return rep->is_matrix_type (); }
 
   bool is_numeric_type (void) const
-    { return rep->is_numeric_type (); }
+  { return rep->is_numeric_type (); }
 
   bool is_sparse_type (void) const
-    { return rep->is_sparse_type (); }
+  { return rep->is_sparse_type (); }
 
   // Does this constant correspond to a truth value?
 
   bool is_true (void) const
-    { return rep->is_true (); }
+  { return rep->is_true (); }
 
   // Do two constants match (in a switch statement)?
 
@@ -667,40 +668,40 @@
   // Are the dimensions of this constant zero by zero?
 
   bool is_zero_by_zero (void) const
-    { return (rows () == 0 && columns () == 0); }
+  { return (rows () == 0 && columns () == 0); }
 
   bool is_constant (void) const
-    { return rep->is_constant (); }
+  { return rep->is_constant (); }
 
   bool is_function_handle (void) const
-    { return rep->is_function_handle (); }
+  { return rep->is_function_handle (); }
 
   bool is_anonymous_function (void) const
-    { return rep->is_anonymous_function (); }
+  { return rep->is_anonymous_function (); }
 
   bool is_inline_function (void) const
-    { return rep->is_inline_function (); }
+  { return rep->is_inline_function (); }
 
   bool is_function (void) const
-    { return rep->is_function (); }
+  { return rep->is_function (); }
 
   bool is_user_script (void) const
-    { return rep->is_user_script (); }
+  { return rep->is_user_script (); }
 
   bool is_user_function (void) const
-    { return rep->is_user_function (); }
+  { return rep->is_user_function (); }
 
   bool is_user_code (void) const
-    { return rep->is_user_code (); }
+  { return rep->is_user_code (); }
 
   bool is_builtin_function (void) const
-    { return rep->is_builtin_function (); }
+  { return rep->is_builtin_function (); }
 
   bool is_dld_function (void) const
-    { return rep->is_dld_function (); }
+  { return rep->is_dld_function (); }
 
   bool is_mex_function (void) const
-    { return rep->is_mex_function (); }
+  { return rep->is_mex_function (); }
 
   void erase_subfunctions (void) { rep->erase_subfunctions (); }
 
@@ -710,203 +711,207 @@
 
   short int
   short_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->short_value (req_int, frc_str_conv); }
+  { return rep->short_value (req_int, frc_str_conv); }
 
   unsigned short int
   ushort_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->ushort_value (req_int, frc_str_conv); }
+  { return rep->ushort_value (req_int, frc_str_conv); }
 
   int int_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->int_value (req_int, frc_str_conv); }
+  { return rep->int_value (req_int, frc_str_conv); }
 
   unsigned int
   uint_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->uint_value (req_int, frc_str_conv); }
+  { return rep->uint_value (req_int, frc_str_conv); }
 
   int nint_value (bool frc_str_conv = false) const
-    { return rep->nint_value (frc_str_conv); }
+  { return rep->nint_value (frc_str_conv); }
 
   long int
   long_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->long_value (req_int, frc_str_conv); }
+  { return rep->long_value (req_int, frc_str_conv); }
 
   unsigned long int
   ulong_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->ulong_value (req_int, frc_str_conv); }
+  { return rep->ulong_value (req_int, frc_str_conv); }
 
   int64_t
   int64_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->int64_value (req_int, frc_str_conv); }
+  { return rep->int64_value (req_int, frc_str_conv); }
 
   uint64_t
   uint64_value (bool req_int = false, bool frc_str_conv = false) const
-    { return rep->uint64_value (req_int, frc_str_conv); }
+  { return rep->uint64_value (req_int, frc_str_conv); }
 
   octave_idx_type
   idx_type_value (bool req_int = false, bool frc_str_conv = false) const;
 
   double double_value (bool frc_str_conv = false) const
-    { return rep->double_value (frc_str_conv); }
+  { return rep->double_value (frc_str_conv); }
 
   float float_value (bool frc_str_conv = false) const
-    { return rep->float_value (frc_str_conv); }
+  { return rep->float_value (frc_str_conv); }
 
   double scalar_value (bool frc_str_conv = false) const
-    { return rep->scalar_value (frc_str_conv); }
+  { return rep->scalar_value (frc_str_conv); }
 
   float float_scalar_value (bool frc_str_conv = false) const
-    { return rep->float_scalar_value (frc_str_conv); }
+  { return rep->float_scalar_value (frc_str_conv); }
 
   Cell cell_value (void) const;
 
   Matrix matrix_value (bool frc_str_conv = false) const
-    { return rep->matrix_value (frc_str_conv); }
+  { return rep->matrix_value (frc_str_conv); }
 
   FloatMatrix float_matrix_value (bool frc_str_conv = false) const
-    { return rep->float_matrix_value (frc_str_conv); }
+  { return rep->float_matrix_value (frc_str_conv); }
 
   NDArray array_value (bool frc_str_conv = false) const
-    { return rep->array_value (frc_str_conv); }
+  { return rep->array_value (frc_str_conv); }
 
   FloatNDArray float_array_value (bool frc_str_conv = false) const
-    { return rep->float_array_value (frc_str_conv); }
+  { return rep->float_array_value (frc_str_conv); }
 
   Complex complex_value (bool frc_str_conv = false) const
-    { return rep->complex_value (frc_str_conv); }
+  { return rep->complex_value (frc_str_conv); }
 
   FloatComplex float_complex_value (bool frc_str_conv = false) const
-    { return rep->float_complex_value (frc_str_conv); }
+  { return rep->float_complex_value (frc_str_conv); }
 
   ComplexMatrix complex_matrix_value (bool frc_str_conv = false) const
-    { return rep->complex_matrix_value (frc_str_conv); }
+  { return rep->complex_matrix_value (frc_str_conv); }
 
-  FloatComplexMatrix float_complex_matrix_value (bool frc_str_conv = false) const
-    { return rep->float_complex_matrix_value (frc_str_conv); }
+  FloatComplexMatrix
+  float_complex_matrix_value (bool frc_str_conv = false) const
+  { return rep->float_complex_matrix_value (frc_str_conv); }
 
   ComplexNDArray complex_array_value (bool frc_str_conv = false) const
-    { return rep->complex_array_value (frc_str_conv); }
+  { return rep->complex_array_value (frc_str_conv); }
 
-  FloatComplexNDArray float_complex_array_value (bool frc_str_conv = false) const
-    { return rep->float_complex_array_value (frc_str_conv); }
+  FloatComplexNDArray
+  float_complex_array_value (bool frc_str_conv = false) const
+  { return rep->float_complex_array_value (frc_str_conv); }
 
   bool bool_value (bool warn = false) const
-    { return rep->bool_value (warn); }
+  { return rep->bool_value (warn); }
 
   boolMatrix bool_matrix_value (bool warn = false) const
-    { return rep->bool_matrix_value (warn); }
+  { return rep->bool_matrix_value (warn); }
 
   boolNDArray bool_array_value (bool warn = false) const
-    { return rep->bool_array_value (warn); }
+  { return rep->bool_array_value (warn); }
 
   charMatrix char_matrix_value (bool frc_str_conv = false) const
-    { return rep->char_matrix_value (frc_str_conv); }
+  { return rep->char_matrix_value (frc_str_conv); }
 
   charNDArray char_array_value (bool frc_str_conv = false) const
-    { return rep->char_array_value (frc_str_conv); }
+  { return rep->char_array_value (frc_str_conv); }
 
   SparseMatrix sparse_matrix_value (bool frc_str_conv = false) const
-    { return rep->sparse_matrix_value (frc_str_conv); }
+  { return rep->sparse_matrix_value (frc_str_conv); }
 
-  SparseComplexMatrix sparse_complex_matrix_value (bool frc_str_conv = false) const
-    { return rep->sparse_complex_matrix_value (frc_str_conv); }
+  SparseComplexMatrix
+  sparse_complex_matrix_value (bool frc_str_conv = false) const
+  { return rep->sparse_complex_matrix_value (frc_str_conv); }
 
   SparseBoolMatrix sparse_bool_matrix_value (bool warn = false) const
-    { return rep->sparse_bool_matrix_value (warn); }
+  { return rep->sparse_bool_matrix_value (warn); }
 
   DiagMatrix diag_matrix_value (bool force = false) const
-    { return rep->diag_matrix_value (force); }
+  { return rep->diag_matrix_value (force); }
 
   FloatDiagMatrix float_diag_matrix_value (bool force = false) const
-    { return rep->float_diag_matrix_value (force); }
+  { return rep->float_diag_matrix_value (force); }
 
   ComplexDiagMatrix complex_diag_matrix_value (bool force = false) const
-    { return rep->complex_diag_matrix_value (force); }
+  { return rep->complex_diag_matrix_value (force); }
 
-  FloatComplexDiagMatrix float_complex_diag_matrix_value (bool force = false) const
-    { return rep->float_complex_diag_matrix_value (force); }
+  FloatComplexDiagMatrix
+  float_complex_diag_matrix_value (bool force = false) const
+  { return rep->float_complex_diag_matrix_value (force); }
 
   PermMatrix perm_matrix_value (void) const
-    { return rep->perm_matrix_value (); }
+  { return rep->perm_matrix_value (); }
 
   octave_int8 int8_scalar_value (void) const
-    { return rep->int8_scalar_value (); }
+  { return rep->int8_scalar_value (); }
 
   octave_int16 int16_scalar_value (void) const
-    { return rep->int16_scalar_value (); }
+  { return rep->int16_scalar_value (); }
 
   octave_int32 int32_scalar_value (void) const
-    { return rep->int32_scalar_value (); }
+  { return rep->int32_scalar_value (); }
 
   octave_int64 int64_scalar_value (void) const
-    { return rep->int64_scalar_value (); }
+  { return rep->int64_scalar_value (); }
 
   octave_uint8 uint8_scalar_value (void) const
-    { return rep->uint8_scalar_value (); }
+  { return rep->uint8_scalar_value (); }
 
   octave_uint16 uint16_scalar_value (void) const
-    { return rep->uint16_scalar_value (); }
+  { return rep->uint16_scalar_value (); }
 
   octave_uint32 uint32_scalar_value (void) const
-    { return rep->uint32_scalar_value (); }
+  { return rep->uint32_scalar_value (); }
 
   octave_uint64 uint64_scalar_value (void) const
-    { return rep->uint64_scalar_value (); }
+  { return rep->uint64_scalar_value (); }
 
   int8NDArray int8_array_value (void) const
-    { return rep->int8_array_value (); }
+  { return rep->int8_array_value (); }
 
   int16NDArray int16_array_value (void) const
-    { return rep->int16_array_value (); }
+  { return rep->int16_array_value (); }
 
   int32NDArray int32_array_value (void) const
-    { return rep->int32_array_value (); }
+  { return rep->int32_array_value (); }
 
   int64NDArray int64_array_value (void) const
-    { return rep->int64_array_value (); }
+  { return rep->int64_array_value (); }
 
   uint8NDArray uint8_array_value (void) const
-    { return rep->uint8_array_value (); }
+  { return rep->uint8_array_value (); }
 
   uint16NDArray uint16_array_value (void) const
-    { return rep->uint16_array_value (); }
+  { return rep->uint16_array_value (); }
 
   uint32NDArray uint32_array_value (void) const
-    { return rep->uint32_array_value (); }
+  { return rep->uint32_array_value (); }
 
   uint64NDArray uint64_array_value (void) const
-    { return rep->uint64_array_value (); }
+  { return rep->uint64_array_value (); }
 
   string_vector all_strings (bool pad = false) const
-    { return rep->all_strings (pad); }
+  { return rep->all_strings (pad); }
 
   std::string string_value (bool force = false) const
-    { return rep->string_value (force); }
+  { return rep->string_value (force); }
 
   Array<std::string> cellstr_value (void) const
-    { return rep->cellstr_value (); }
+  { return rep->cellstr_value (); }
 
   Range range_value (void) const
-    { return rep->range_value (); }
+  { return rep->range_value (); }
 
   octave_map map_value (void) const;
 
   octave_scalar_map scalar_map_value (void) const;
 
   string_vector map_keys (void) const
-    { return rep->map_keys (); }
+  { return rep->map_keys (); }
 
   size_t nparents (void) const
-    { return rep->nparents (); }
+  { return rep->nparents (); }
 
   std::list<std::string> parent_class_name_list (void) const
-    { return rep->parent_class_name_list (); }
+  { return rep->parent_class_name_list (); }
 
   string_vector parent_class_names (void) const
-    { return rep->parent_class_names (); }
+  { return rep->parent_class_names (); }
 
   octave_base_value *
   find_parent_class (const std::string& parent_class_name)
-    { return rep->find_parent_class (parent_class_name); }
+  { return rep->find_parent_class (parent_class_name); }
 
   octave_function *function_value (bool silent = false) const;
 
@@ -923,11 +928,11 @@
   octave_value_list list_value (void) const;
 
   ColumnVector column_vector_value (bool frc_str_conv = false,
-                             bool frc_vec_conv = false) const;
+                                    bool frc_vec_conv = false) const;
 
   ComplexColumnVector
   complex_column_vector_value (bool frc_str_conv = false,
-                        bool frc_vec_conv = false) const;
+                               bool frc_vec_conv = false) const;
 
   RowVector row_vector_value (bool frc_str_conv = false,
                               bool frc_vec_conv = false) const;
@@ -938,18 +943,18 @@
 
 
   FloatColumnVector float_column_vector_value (bool frc_str_conv = false,
-                             bool frc_vec_conv = false) const;
+                                               bool frc_vec_conv = false) const;
 
   FloatComplexColumnVector
   float_complex_column_vector_value (bool frc_str_conv = false,
-                        bool frc_vec_conv = false) const;
+                                     bool frc_vec_conv = false) const;
 
   FloatRowVector float_row_vector_value (bool frc_str_conv = false,
-                              bool frc_vec_conv = false) const;
+                                         bool frc_vec_conv = false) const;
 
   FloatComplexRowVector
   float_complex_row_vector_value (bool frc_str_conv = false,
-                            bool frc_vec_conv = false) const;
+                                  bool frc_vec_conv = false) const;
 
 
 
@@ -970,15 +975,16 @@
                                        bool frc_vec_conv = false) const;
 
   Array<float> float_vector_value (bool frc_str_conv = false,
-                              bool frc_vec_conv = false) const;
+                                   bool frc_vec_conv = false) const;
 
-  Array<FloatComplex> float_complex_vector_value (bool frc_str_conv = false,
-                                       bool frc_vec_conv = false) const;
+  Array<FloatComplex>
+  float_complex_vector_value (bool frc_str_conv = false,
+                              bool frc_vec_conv = false) const;
 
   // Possibly economize a lazy-indexed value.
 
   void maybe_economize (void)
-    { rep->maybe_economize (); }
+  { rep->maybe_economize (); }
 
   // The following two hook conversions are called on any octave_value prior to
   // storing it to a "permanent" location, like a named variable, a cell or a
@@ -997,27 +1003,26 @@
 
   octave_value convert_to_str (bool pad = false, bool force = false,
                                char type = '\'') const
-    { return rep->convert_to_str (pad, force, type); }
+  { return rep->convert_to_str (pad, force, type); }
 
   octave_value
   convert_to_str_internal (bool pad, bool force, char type) const
-    { return rep->convert_to_str_internal (pad, force, type); }
+  { return rep->convert_to_str_internal (pad, force, type); }
 
   void convert_to_row_or_column_vector (void)
-    { rep->convert_to_row_or_column_vector (); }
+  { rep->convert_to_row_or_column_vector (); }
 
   bool print_as_scalar (void) const
-    { return rep->print_as_scalar (); }
+  { return rep->print_as_scalar (); }
 
   void print (std::ostream& os, bool pr_as_read_syntax = false) const
-    { rep->print (os, pr_as_read_syntax); }
+  { rep->print (os, pr_as_read_syntax); }
 
-  void print_raw (std::ostream& os,
-                          bool pr_as_read_syntax = false) const
-    { rep->print_raw (os, pr_as_read_syntax); }
+  void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const
+  { rep->print_raw (os, pr_as_read_syntax); }
 
   bool print_name_tag (std::ostream& os, const std::string& name) const
-    { return rep->print_name_tag (os, name); }
+  { return rep->print_name_tag (os, name); }
 
   void print_with_name (std::ostream& os, const std::string& name) const
   { rep->print_with_name (os, name, true); }
@@ -1033,54 +1038,54 @@
   // Unary and binary operations.
 
   friend OCTINTERP_API octave_value do_unary_op (unary_op op,
-                                   const octave_value& a);
+                                                 const octave_value& a);
 
   octave_value& do_non_const_unary_op (unary_op op);
 
   octave_value& do_non_const_unary_op (unary_op op, const std::string& type,
-                                      const std::list<octave_value_list>& idx);
+                                       const std::list<octave_value_list>& idx);
 
   friend OCTINTERP_API octave_value do_binary_op (binary_op op,
-                                    const octave_value& a,
-                                    const octave_value& b);
+                                                  const octave_value& a,
+                                                  const octave_value& b);
 
   friend OCTINTERP_API octave_value do_binary_op (compound_binary_op op,
                                                   const octave_value& a,
                                                   const octave_value& b);
 
   friend OCTINTERP_API octave_value do_cat_op (const octave_value& a,
-                                 const octave_value& b,
-                                 const Array<octave_idx_type>& ra_idx);
+                                               const octave_value& b,
+                                               const Array<octave_idx_type>& ra_idx);
 
   const octave_base_value& get_rep (void) const { return *rep; }
 
   bool is_copy_of (const octave_value &val) const { return rep == val.rep; }
 
   void print_info (std::ostream& os,
-                           const std::string& prefix = std::string ()) const;
+                   const std::string& prefix = std::string ()) const;
 
   bool save_ascii (std::ostream& os) { return rep->save_ascii (os); }
 
   bool load_ascii (std::istream& is) { return rep->load_ascii (is); }
 
   bool save_binary (std::ostream& os, bool& save_as_floats)
-    { return rep->save_binary (os, save_as_floats); }
+  { return rep->save_binary (os, save_as_floats); }
 
   bool load_binary (std::istream& is, bool swap,
-                            oct_mach_info::float_format fmt)
-    { return rep->load_binary (is, swap, fmt); }
+                    oct_mach_info::float_format fmt)
+  { return rep->load_binary (is, swap, fmt); }
 
 #if defined (HAVE_HDF5)
   bool save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats)
-    { return rep->save_hdf5 (loc_id, name, save_as_floats); }
+  { return rep->save_hdf5 (loc_id, name, save_as_floats); }
 
   bool load_hdf5 (hid_t loc_id, const char *name)
-    { return rep->load_hdf5 (loc_id, name); }
+  { return rep->load_hdf5 (loc_id, name); }
 #endif
 
   int write (octave_stream& os, int block_size,
-                     oct_data_conv::data_type output_type, int skip,
-                     oct_mach_info::float_format flt_fmt) const;
+             oct_data_conv::data_type output_type, int skip,
+             oct_mach_info::float_format flt_fmt) const;
 
   octave_base_value *internal_rep (void) const { return rep; }
 
@@ -1095,25 +1100,25 @@
   mxArray *as_mxArray (void) const { return rep->as_mxArray (); }
 
   octave_value diag (octave_idx_type k = 0) const
-    { return rep->diag (k); }
+  { return rep->diag (k); }
 
   octave_value diag (octave_idx_type m, octave_idx_type n) const
-    { return rep->diag (m, n); }
+  { return rep->diag (m, n); }
 
   octave_value sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    { return rep->sort (dim, mode); }
+  { return rep->sort (dim, mode); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
-                 sortmode mode = ASCENDING) const
-    { return rep->sort (sidx, dim, mode); }
+                     sortmode mode = ASCENDING) const
+  { return rep->sort (sidx, dim, mode); }
 
   sortmode is_sorted (sortmode mode = UNSORTED) const
-    { return rep->is_sorted (mode); }
+  { return rep->is_sorted (mode); }
 
   Array<octave_idx_type> sort_rows_idx (sortmode mode = ASCENDING) const
-    { return rep->sort_rows_idx (mode); }
+  { return rep->sort_rows_idx (mode); }
 
   sortmode is_sorted_rows (sortmode mode = UNSORTED) const
-    { return rep->is_sorted_rows (mode); }
+  { return rep->is_sorted_rows (mode); }
 
   void lock (void) { rep->lock (); }
 
@@ -1195,23 +1200,23 @@
 #undef MAPPER_FORWARD
 
   octave_value map (octave_base_value::unary_mapper_t umap) const
-    { return rep->map (umap); }
+  { return rep->map (umap); }
 
   // Extract the n-th element, aka val(n). Result is undefined if val is not an
   // array type or n is out of range. Never error.
   octave_value
   fast_elem_extract (octave_idx_type n) const
-    { return rep->fast_elem_extract (n); }
+  { return rep->fast_elem_extract (n); }
 
   // Assign the n-th element, aka val(n) = x. Returns false if val is not an
   // array type, x is not a matching scalar type, or n is out of range.
   // Never error.
   virtual bool
   fast_elem_insert (octave_idx_type n, const octave_value& x)
-    {
-      make_unique ();
-      return rep->fast_elem_insert (n, x);
-    }
+  {
+    make_unique ();
+    return rep->fast_elem_insert (n, x);
+  }
 
 protected:
 
@@ -1341,7 +1346,7 @@
 // Templated value extractors.
 template<class Value>
 inline Value octave_value_extract (const octave_value&)
-  { assert (false); }
+{ assert (false); }
 
 #define DEF_VALUE_EXTRACTOR(VALUE,MPREFIX) \
 template<> \
--- a/libinterp/octave.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/octave.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -27,6 +27,7 @@
 #endif
 
 #include <cassert>
+#include <clocale>
 #include <cstdlib>
 #include <cstring>
 #include <ctime>
@@ -57,6 +58,7 @@
 #include "input.h"
 #include "lex.h"
 #include "load-path.h"
+#include "load-save.h"
 #include "octave.h"
 #include "oct-conf.h"
 #include "oct-hist.h"
@@ -64,6 +66,7 @@
 #include "oct-mutex.h"
 #include "oct-obj.h"
 #include "ops.h"
+#include "options-usage.h"
 #include "ov.h"
 #include "ov-classdef.h"
 #include "ov-range.h"
@@ -127,10 +130,6 @@
 // (--force-gui)
 static bool force_gui_option = false;
 
-// If TRUE don't fork when starting the GUI.
-// (--no-fork)
-static bool no_fork_option = false;
-
 // If TRUE don't start the GUI.
 // (--no-gui)
 static bool no_gui_option = false;
@@ -159,23 +158,6 @@
 // (--no-window-system, -W)
 static bool no_window_system = false;
 
-// Usage message
-static const char *usage_string =
-  "octave [-HVWdfhiqvx] [--debug] [--debug-jit] [--doc-cache-file file]\n\
-       [--echo-commands] [--eval CODE] [--exec-path path]\n\
-       [--force-gui] [--help] [--image-path path]\n\
-       [--info-file file] [--info-program prog] [--interactive]\n\
-       [--line-editing] [--no-fork] [--no-gui] [--no-history]\n\
-       [--no-init-file] [--no-init-path] [--no-jit-compiler]\n\
-       [--no-line-editing] [--no-site-file] [--no-window-system]\n\
-       [--norc] [-p path] [--path path] [--persist] [--silent]\n\
-       [--traditional] [--verbose] [--version] [file]";
-
-// This is here so that it's more likely that the usage message and
-// the real set of options will agree.  Note: the '+' must come first
-// to prevent getopt from permuting arguments!
-static const char *short_opts = "+HWVdfhip:qvx";
-
 // The code to evaluate at startup (--eval CODE)
 static std::string code_to_eval;
 
@@ -188,65 +170,6 @@
 // If TRUE use traditional settings (--traditional)
 static bool traditional = false;
 
-// Long options.  See the comments in getopt.h for the meanings of the
-// fields in this structure.
-#define BUILT_IN_DOCSTRINGS_FILE_OPTION 1
-#define DOC_CACHE_FILE_OPTION 2
-#define EVAL_OPTION 3
-#define EXEC_PATH_OPTION 4
-#define FORCE_GUI_OPTION 5
-#define IMAGE_PATH_OPTION 6
-#define INFO_FILE_OPTION 7
-#define INFO_PROG_OPTION 8
-#define DEBUG_JIT_OPTION 9
-#define LINE_EDITING_OPTION 10
-#define NO_FORK_OPTION 11
-#define NO_GUI_OPTION 12
-#define NO_INIT_FILE_OPTION 13
-#define NO_INIT_PATH_OPTION 14
-#define NO_JIT_COMPILER_OPTION 15
-#define NO_LINE_EDITING_OPTION 16
-#define NO_SITE_FILE_OPTION 17
-#define PERSIST_OPTION 18
-#define TEXI_MACROS_FILE_OPTION 19
-#define TRADITIONAL_OPTION 20
-struct option long_opts[] = {
-  { "braindead",                no_argument,       0, TRADITIONAL_OPTION },
-  { "built-in-docstrings-file", required_argument, 0, BUILT_IN_DOCSTRINGS_FILE_OPTION },
-  { "debug",                    no_argument,       0, 'd' },
-  { "debug-jit",                no_argument,       0, DEBUG_JIT_OPTION },
-  { "doc-cache-file",           required_argument, 0, DOC_CACHE_FILE_OPTION },
-  { "echo-commands",            no_argument,       0, 'x' },
-  { "eval",                     required_argument, 0, EVAL_OPTION },
-  { "exec-path",                required_argument, 0, EXEC_PATH_OPTION },
-  { "force-gui",                no_argument,       0, FORCE_GUI_OPTION },
-  { "help",                     no_argument,       0, 'h' },
-  { "image-path",               required_argument, 0, IMAGE_PATH_OPTION },
-  { "info-file",                required_argument, 0, INFO_FILE_OPTION },
-  { "info-program",             required_argument, 0, INFO_PROG_OPTION },
-  { "interactive",              no_argument,       0, 'i' },
-  { "line-editing",             no_argument,       0, LINE_EDITING_OPTION },
-  { "no-fork",                  no_argument,       0, NO_FORK_OPTION },
-  { "no-gui",                   no_argument,       0, NO_GUI_OPTION },
-  { "no-history",               no_argument,       0, 'H' },
-  { "no-init-file",             no_argument,       0, NO_INIT_FILE_OPTION },
-  { "no-init-path",             no_argument,       0, NO_INIT_PATH_OPTION },
-  { "no-jit-compiler",          no_argument,       0, NO_JIT_COMPILER_OPTION },
-  { "no-line-editing",          no_argument,       0, NO_LINE_EDITING_OPTION },
-  { "no-site-file",             no_argument,       0, NO_SITE_FILE_OPTION },
-  { "no-window-system",         no_argument,       0, 'W' },
-  { "norc",                     no_argument,       0, 'f' },
-  { "path",                     required_argument, 0, 'p' },
-  { "persist",                  no_argument,       0, PERSIST_OPTION },
-  { "quiet",                    no_argument,       0, 'q' },
-  { "silent",                   no_argument,       0, 'q' },
-  { "texi-macros-file",         required_argument, 0, TEXI_MACROS_FILE_OPTION },
-  { "traditional",              no_argument,       0, TRADITIONAL_OPTION },
-  { "verbose",                  no_argument,       0, 'V' },
-  { "version",                  no_argument,       0, 'v' },
-  { 0,                          0,                 0, 0 }
-};
-
 // Store the command-line options for later use.
 
 static void
@@ -270,7 +193,7 @@
 }
 
 DEFUN (__version_info__, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {retval =} __version_info__ (@var{name}, @var{version}, @var{release}, @var{date})\n\
 Undocumented internal function.\n\
 @end deftypefn")
@@ -519,80 +442,6 @@
   safe_source_file (fname, context, verbose, require_file, "octave");
 }
 
-// Usage message with extra help.
-
-static void
-verbose_usage (void)
-{
-  std::cout << octave_name_version_copyright_copying_and_warranty ()
-            << "\n\
-\n\
-Usage: octave [options] [FILE]\n\
-\n\
-Options:\n\
-\n\
-  --built-in-docstrings-file FILE Use docs for built-ins from FILE.\n\
-  --debug, -d             Enter parser debugging mode.\n\
-  --debug-jit             Enable JIT compiler debugging/tracing.\n\
-  --doc-cache-file FILE   Use doc cache file FILE.\n\
-  --echo-commands, -x     Echo commands as they are executed.\n\
-  --eval CODE             Evaluate CODE.  Exit when done unless --persist.\n\
-  --exec-path PATH        Set path for executing subprograms.\n\
-  --force-gui             Force graphical user interface to start.\n\
-  --help, -h,             Print short help message and exit.\n\
-  --image-path PATH       Add PATH to head of image search path.\n\
-  --info-file FILE        Use top-level info file FILE.\n\
-  --info-program PROGRAM  Use PROGRAM for reading info files.\n\
-  --interactive, -i       Force interactive behavior.\n\
-  --line-editing          Force readline use for command-line editing.\n\
-  --no-fork               Don't fork when starting the graphical user interface.\n\
-  --no-gui                Disable the graphical user interface.\n\
-  --no-history, -H        Don't save commands to the history list\n\
-  --no-init-file          Don't read the ~/.octaverc or .octaverc files.\n\
-  --no-init-path          Don't initialize function search path.\n\
-  --no-jit-compiler       Disable the JIT compiler.\n\
-  --no-line-editing       Don't use readline for command-line editing.\n\
-  --no-site-file          Don't read the site-wide octaverc file.\n\
-  --no-window-system, -W  Disable window system, including graphics.\n\
-  --norc, -f              Don't read any initialization files.\n\
-  --path PATH, -p PATH    Add PATH to head of function search path.\n\
-  --persist               Go interactive after --eval or reading from FILE.\n\
-  --silent, --quiet, -q   Don't print message at startup.\n\
-  --texi-macros-file FILE Use Texinfo macros in FILE for makeinfo command.\n\
-  --traditional           Set variables for closer MATLAB compatibility.\n\
-  --verbose, -V           Enable verbose output in some cases.\n\
-  --version, -v           Print version number and exit.\n\
-\n\
-  FILE                    Execute commands from FILE.  Exit when done\n\
-                          unless --persist is also specified.\n\
-\n"
-            << octave_www_statement ()
-            << "\n\n"
-            << octave_contrib_statement ()
-            << "\n\n"
-            << octave_bugs_statement ()
-            << "\n";
-
-  exit (0);
-}
-
-// Terse usage messsage.
-
-static void
-usage (void)
-{
-  std::cerr << "\nusage: " << usage_string << "\n\n";
-  exit (1);
-}
-
-static void
-print_version_and_exit (void)
-{
-  std::cout << octave_name_version_copyright_copying_warranty_and_bugs ()
-            << "\n";
-  exit (0);
-}
-
 static void
 lo_error_handler (const char *fmt, ...)
 {
@@ -690,7 +539,7 @@
           // Unrecognized option.  getopt_long already printed a
           // message about that, so we will just print the usage string
           // and exit.
-          usage ();
+          octave_print_terse_usage_and_exit ();
           break;
 
         case 'H':
@@ -717,7 +566,7 @@
           break;
 
         case 'h':
-          verbose_usage ();
+          octave_print_verbose_usage_and_exit ();
           break;
 
         case 'i':
@@ -741,7 +590,7 @@
           break;
 
         case 'v':
-          print_version_and_exit ();
+          octave_print_version_and_exit ();
           break;
 
         case BUILT_IN_DOCSTRINGS_FILE_OPTION:
@@ -792,14 +641,14 @@
           Fdebug_jit (octave_value (true));
           break;
 
+        case JIT_COMPILER_OPTION:
+          Fjit_enable (octave_value (true));
+          break;
+
         case LINE_EDITING_OPTION:
           forced_line_editing = true;
           break;
 
-        case NO_FORK_OPTION:
-          no_fork_option = true;
-          break;
-
         case NO_GUI_OPTION:
           no_gui_option = true;
           break;
@@ -812,10 +661,6 @@
           set_initial_path = false;
           break;
 
-        case NO_JIT_COMPILER_OPTION:
-          Fjit_enable (octave_value (false));
-          break;
-
         case NO_LINE_EDITING_OPTION:
           line_editing = false;
           break;
@@ -850,7 +695,8 @@
   if (force_gui_option && no_gui_option)
     {
       error ("error: only one of --force-gui and --no-gui may be used");
-      usage ();
+
+      octave_print_terse_usage_and_exit ();
     }
 }
 
@@ -860,6 +706,10 @@
 void
 octave_initialize_interpreter (int argc, char **argv, int embedded)
 {
+  // Matlab uses "C" locale for LC_NUMERIC class regardless of local setting
+  setlocale (LC_NUMERIC, "C");
+  setlocale (LC_TIME, "C");
+
   octave_embedded = embedded;
 
   octave_env::set_program_name (argv[0]);
@@ -961,6 +811,8 @@
   if (! inhibit_startup_message)
     std::cout << octave_startup_message () << "\n" << std::endl;
 
+  octave_prepare_hdf5 ();
+
   execute_startup_files ();
 
   if (! inhibit_startup_message && reading_startup_message_printed)
@@ -1017,14 +869,14 @@
     {
       command_editor::blink_matching_paren (false);
 
-      // FIXME -- is this the right thing to do?
+      // FIXME: is this the right thing to do?
 
       Fecho_executing_commands (octave_value (ECHO_CMD_LINE));
     }
 
   if (octave_embedded)
     {
-      // FIXME -- do we need to do any cleanup here before
+      // FIXME: do we need to do any cleanup here before
       // returning?  If we don't, what will happen to Octave functions
       // that have been registered to execute with atexit, for example?
 
@@ -1043,9 +895,18 @@
 static bool
 check_starting_gui (void)
 {
-  if (no_window_system || ! display_info::display_available ())
+  if (no_window_system)
     return false;
 
+  std::string err_msg;
+  if (! display_info::display_available (err_msg))
+    {
+      if (! (inhibit_startup_message || err_msg.empty ()))
+        warning (err_msg.c_str ());
+
+      return false;
+    }
+
   if (force_gui_option)
     return true;
 
@@ -1086,28 +947,8 @@
   return start_gui;
 }
 
-int
-octave_fork_gui (void)
-{
-  bool have_ctty = false;
-
-#if ! (defined (__WIN32__) || defined (__APPLE__)) || defined (__CYGWIN__)
-
-#if defined (HAVE_CTERMID)
-  const char *ctty = ctermid (0);
-#else
-  const char *ctty = "/dev/tty";
-#endif
-
-  have_ctty = gnulib::open (ctty, O_RDWR, 0) > 0;
-
-#endif
-
-  return (have_ctty && ! no_fork_option);
-}
-
 DEFUN (isguirunning, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} isguirunning ()\n\
 Return true if Octave is running in GUI mode and false otherwise.\n\
 @end deftypefn")
@@ -1128,7 +969,7 @@
 */
 
 DEFUN (argv, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} argv ()\n\
 Return the command line arguments passed to Octave.  For example,\n\
 if you invoked Octave using the command\n\
@@ -1162,7 +1003,7 @@
 */
 
 DEFUN (program_invocation_name, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} program_invocation_name ()\n\
 Return the name that was typed at the shell prompt to run Octave.\n\
 \n\
@@ -1189,7 +1030,7 @@
 */
 
 DEFUN (program_name, args, ,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} program_name ()\n\
 Return the last component of the value returned by\n\
 @code{program_invocation_name}.\n\
--- a/libinterp/operators/op-b-bm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-b-bm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,8 @@
 DEFNDCATOP_FN (s_bm, scalar, bool_matrix, array, array, concat)
 
 DEFNDCATOP_FN (b_fm, bool, float_matrix, float_array, float_array, concat)
-DEFNDCATOP_FN (f_bm, float_scalar, bool_matrix, float_array, float_array, concat)
+DEFNDCATOP_FN (f_bm, float_scalar, bool_matrix, float_array, float_array,
+               concat)
 
 DEFCONV (bool_matrix_conv, bool, bool_matrix)
 {
--- a/libinterp/operators/op-b-sbm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-b-sbm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -91,5 +91,6 @@
   INSTALL_ASSIGNCONV (octave_bool, octave_sparse_bool_matrix,
                       octave_bool_matrix);
 
-  INSTALL_WIDENOP (octave_bool, octave_sparse_bool_matrix, sparse_bool_matrix_conv);
+  INSTALL_WIDENOP (octave_bool, octave_sparse_bool_matrix,
+                   sparse_bool_matrix_conv);
 }
--- a/libinterp/operators/op-bm-b.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-bm-b.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -58,7 +58,8 @@
 DEFNDCATOP_FN (bm_b, bool_matrix, bool, bool_array, bool_array, concat)
 DEFNDCATOP_FN (bm_s, bool_matrix, scalar, array, array, concat)
 DEFNDCATOP_FN (m_b, matrix, bool, array, array, concat)
-DEFNDCATOP_FN (bm_f, bool_matrix, float_scalar, float_array, float_array, concat)
+DEFNDCATOP_FN (bm_f, bool_matrix, float_scalar, float_array, float_array,
+               concat)
 DEFNDCATOP_FN (fm_b, float_matrix, bool, float_array, float_array, concat)
 
 DEFNDASSIGNOP_FN (assign, bool_matrix, bool, bool_array, assign)
@@ -70,8 +71,8 @@
 {
   octave_bool_matrix& v1 = dynamic_cast<octave_bool_matrix&> (a1);
 
-  // FIXME -- perhaps add a warning for this conversion if the values
-  // are not all 0 or 1?
+  // FIXME: perhaps add a warning for this conversion
+  //        if the values are not all 0 or 1?
 
   boolNDArray v2 = a2.bool_array_value (true);
 
@@ -97,15 +98,24 @@
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_bool, assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_scalar, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_scalar,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int8_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int16_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int32_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int64_scalar, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int8_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int16_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int32_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int64_scalar,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint8_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint16_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint32_scalar, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint64_scalar, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint8_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint16_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint32_scalar,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint64_scalar,
+                    conv_and_assign);
 }
--- a/libinterp/operators/op-bm-bm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-bm-bm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -95,12 +95,16 @@
 DEFNDCATOP_FN (bm_bm, bool_matrix, bool_matrix, bool_array, bool_array, concat)
 DEFNDCATOP_FN (bm_m, bool_matrix, matrix, array, array, concat)
 DEFNDCATOP_FN (m_bm, matrix, bool_matrix, array, array, concat)
-DEFNDCATOP_FN (bm_fm, bool_matrix, float_matrix, float_array, float_array, concat)
-DEFNDCATOP_FN (fm_bm, float_matrix, bool_matrix, float_array, float_array, concat)
+DEFNDCATOP_FN (bm_fm, bool_matrix, float_matrix, float_array, float_array,
+               concat)
+DEFNDCATOP_FN (fm_bm, float_matrix, bool_matrix, float_array, float_array,
+               concat)
 
 DEFNDASSIGNOP_FN (assign, bool_matrix, bool_matrix, bool_array, assign)
-DEFNDASSIGNOP_FNOP (assign_and, bool_matrix, bool_matrix, bool_array, mx_el_and_assign)
-DEFNDASSIGNOP_FNOP (assign_or, bool_matrix, bool_matrix, bool_array, mx_el_or_assign)
+DEFNDASSIGNOP_FNOP (assign_and, bool_matrix, bool_matrix, bool_array,
+                    mx_el_and_assign)
+DEFNDASSIGNOP_FNOP (assign_or, bool_matrix, bool_matrix, bool_array,
+                    mx_el_or_assign)
 
 DEFNULLASSIGNOP_FN (null_assign, bool_matrix, delete_elements)
 
@@ -111,8 +115,8 @@
 {
   octave_bool_matrix& v1 = dynamic_cast<octave_bool_matrix&> (a1);
 
-  // FIXME -- perhaps add a warning for this conversion if the values
-  // are not all 0 or 1?
+  // FIXME: perhaps add a warning for this conversion
+  //        if the values are not all 0 or 1?
 
   boolNDArray v2 = a2.bool_array_value (true);
 
@@ -141,10 +145,14 @@
 
   INSTALL_BINOP (op_el_and, octave_bool_matrix, octave_bool_matrix, el_and);
   INSTALL_BINOP (op_el_or, octave_bool_matrix, octave_bool_matrix, el_or);
-  INSTALL_BINOP (op_el_not_and, octave_bool_matrix, octave_bool_matrix, el_not_and);
-  INSTALL_BINOP (op_el_not_or, octave_bool_matrix, octave_bool_matrix, el_not_or);
-  INSTALL_BINOP (op_el_and_not, octave_bool_matrix, octave_bool_matrix, el_and_not);
-  INSTALL_BINOP (op_el_or_not, octave_bool_matrix, octave_bool_matrix, el_or_not);
+  INSTALL_BINOP (op_el_not_and, octave_bool_matrix, octave_bool_matrix,
+                 el_not_and);
+  INSTALL_BINOP (op_el_not_or, octave_bool_matrix, octave_bool_matrix,
+                 el_not_or);
+  INSTALL_BINOP (op_el_and_not, octave_bool_matrix, octave_bool_matrix,
+                 el_and_not);
+  INSTALL_BINOP (op_el_or_not, octave_bool_matrix, octave_bool_matrix,
+                 el_or_not);
 
   INSTALL_CATOP (octave_bool_matrix, octave_bool_matrix, bm_bm);
   INSTALL_CATOP (octave_bool_matrix, octave_matrix, bm_m);
@@ -157,28 +165,46 @@
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_bool_matrix, assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_char_matrix_str, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_char_matrix_sq_str, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_char_matrix_str,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_char_matrix_sq_str,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_range, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_range,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_sparse_matrix, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_sparse_matrix,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int8_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int16_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int32_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int64_matrix, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int8_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int16_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int32_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_int64_matrix,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint8_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint16_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint32_matrix, conv_and_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint64_matrix, conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint8_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint16_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint32_matrix,
+                    conv_and_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_uint64_matrix,
+                    conv_and_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_sq_str, null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_null_sq_str,
+                    null_assign);
 
-  INSTALL_ASSIGNOP (op_el_and_eq, octave_bool_matrix, octave_bool_matrix, assign_and);
-  INSTALL_ASSIGNOP (op_el_or_eq, octave_bool_matrix, octave_bool_matrix, assign_or);
+  INSTALL_ASSIGNOP (op_el_and_eq, octave_bool_matrix, octave_bool_matrix,
+                    assign_and);
+  INSTALL_ASSIGNOP (op_el_or_eq, octave_bool_matrix, octave_bool_matrix,
+                    assign_or);
 }
--- a/libinterp/operators/op-cdm-cdm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cdm-cdm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,8 @@
 
 DEFBINOP (div, complex_diag_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_complex_diag_matrix&);
 
   return xdiv (v1.complex_diag_matrix_value (),
                v2.complex_diag_matrix_value ());
@@ -68,7 +69,8 @@
 
 DEFBINOP (ldiv, complex_diag_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_complex_diag_matrix&);
 
   return xleftdiv (v1.complex_diag_matrix_value (),
                    v2.complex_diag_matrix_value ());
@@ -85,7 +87,8 @@
 {
   CAST_CONV_ARG (const octave_complex_diag_matrix&);
 
-  return new octave_float_complex_diag_matrix (v.float_complex_diag_matrix_value ());
+  return
+    new octave_float_complex_diag_matrix (v.float_complex_diag_matrix_value ());
 }
 
 void
@@ -96,15 +99,23 @@
   INSTALL_UNOP (op_transpose, octave_complex_diag_matrix, transpose);
   INSTALL_UNOP (op_hermitian, octave_complex_diag_matrix, hermitian);
 
-  INSTALL_BINOP (op_add, octave_complex_diag_matrix, octave_complex_diag_matrix, add);
-  INSTALL_BINOP (op_sub, octave_complex_diag_matrix, octave_complex_diag_matrix, sub);
-  INSTALL_BINOP (op_mul, octave_complex_diag_matrix, octave_complex_diag_matrix, mul);
-  INSTALL_BINOP (op_div, octave_complex_diag_matrix, octave_complex_diag_matrix, div);
-  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix, octave_complex_diag_matrix, ldiv);
+  INSTALL_BINOP (op_add, octave_complex_diag_matrix, octave_complex_diag_matrix,
+                 add);
+  INSTALL_BINOP (op_sub, octave_complex_diag_matrix, octave_complex_diag_matrix,
+                 sub);
+  INSTALL_BINOP (op_mul, octave_complex_diag_matrix, octave_complex_diag_matrix,
+                 mul);
+  INSTALL_BINOP (op_div, octave_complex_diag_matrix, octave_complex_diag_matrix,
+                 div);
+  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix,
+                 octave_complex_diag_matrix, ldiv);
 
-  INSTALL_CONVOP (octave_complex_diag_matrix, octave_complex_matrix, complex_diag_matrix_to_complex_matrix);
+  INSTALL_CONVOP (octave_complex_diag_matrix, octave_complex_matrix,
+                  complex_diag_matrix_to_complex_matrix);
   INSTALL_CONVOP (octave_complex_diag_matrix, octave_float_complex_diag_matrix,
                   complex_diag_matrix_to_float_complex_diag_matrix);
-  INSTALL_ASSIGNCONV (octave_complex_diag_matrix, octave_complex_matrix, octave_complex_matrix);
-  INSTALL_WIDENOP (octave_complex_diag_matrix, octave_complex_matrix, complex_diag_matrix_to_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex_diag_matrix, octave_complex_matrix,
+                      octave_complex_matrix);
+  INSTALL_WIDENOP (octave_complex_diag_matrix, octave_complex_matrix,
+                   complex_diag_matrix_to_complex_matrix);
 }
--- a/libinterp/operators/op-chm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-chm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -54,8 +54,8 @@
   gripe_implicit_conversion ("Octave:num-to-str",
                              v2.type_name (), v1.type_name ());
 
-  return octave_value (v1.char_array_value (). concat(v2.array_value (),
-                               ra_idx));
+  return octave_value (v1.char_array_value (). concat (v2.array_value (),
+                       ra_idx));
 }
 
 DEFCATOP (chm_m, char_matrix, matrix)
@@ -66,7 +66,7 @@
                              v2.type_name (), v1.type_name ());
 
   return octave_value (v1.char_array_value (). concat (v2.array_value (),
-                               ra_idx));
+                       ra_idx));
 }
 
 DEFCATOP (s_chm, scalar, char_matrix)
@@ -77,7 +77,7 @@
                              v1.type_name (), v2.type_name ());
 
   return octave_value (v1.array_value (). concat (v2.char_array_value (),
-                               ra_idx));
+                       ra_idx));
 }
 
 DEFCATOP (m_chm, matrix, char_matrix)
@@ -88,7 +88,7 @@
                              v1.type_name (), v2.type_name ());
 
   return octave_value (v1.array_value (). concat (v2.char_array_value (),
-                               ra_idx));
+                       ra_idx));
 }
 
 void
--- a/libinterp/operators/op-class.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-class.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -72,7 +72,7 @@
 DEF_CLASS_UNOP (transpose)
 DEF_CLASS_UNOP (ctranspose)
 
-// FIXME -- we need to handle precedence in the binop function.
+// FIXME: we need to handle precedence in the binop function.
 
 #define DEF_CLASS_BINOP(name) \
   static octave_value \
--- a/libinterp/operators/op-cm-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cm-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -73,8 +73,10 @@
 
 // complex matrix by complex matrix ops.
 
-DEFNDBINOP_OP (add, complex_matrix, complex_matrix, complex_array, complex_array, +)
-DEFNDBINOP_OP (sub, complex_matrix, complex_matrix, complex_array, complex_array, -)
+DEFNDBINOP_OP (add, complex_matrix, complex_matrix, complex_array,
+               complex_array, +)
+DEFNDBINOP_OP (sub, complex_matrix, complex_matrix, complex_array,
+               complex_array, -)
 
 DEFBINOP_OP (mul, complex_matrix, complex_matrix, *)
 
@@ -158,34 +160,48 @@
   MatrixType typ = v1.matrix_type ();
 
   ComplexMatrix ret = xleftdiv (v1.complex_matrix_value (),
-                                v2.complex_matrix_value (), typ, blas_conj_trans);
+                                v2.complex_matrix_value (), typ,
+                                blas_conj_trans);
 
   v1.matrix_type (typ);
   return ret;
 }
 
-DEFNDCMPLXCMPOP_FN (lt, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_lt)
-DEFNDCMPLXCMPOP_FN (le, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_le)
-DEFNDCMPLXCMPOP_FN (eq, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_eq)
-DEFNDCMPLXCMPOP_FN (ge, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_ge)
-DEFNDCMPLXCMPOP_FN (gt, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_gt)
-DEFNDCMPLXCMPOP_FN (ne, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_ne)
+DEFNDCMPLXCMPOP_FN (lt, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_lt)
+DEFNDCMPLXCMPOP_FN (le, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_le)
+DEFNDCMPLXCMPOP_FN (eq, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_eq)
+DEFNDCMPLXCMPOP_FN (ge, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_ge)
+DEFNDCMPLXCMPOP_FN (gt, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_gt)
+DEFNDCMPLXCMPOP_FN (ne, complex_matrix, complex_matrix, complex_array,
+                    complex_array, mx_el_ne)
 
-DEFNDBINOP_FN (el_mul, complex_matrix, complex_matrix, complex_array, complex_array, product)
-DEFNDBINOP_FN (el_div, complex_matrix, complex_matrix, complex_array, complex_array, quotient)
-DEFNDBINOP_FN (el_pow, complex_matrix, complex_matrix, complex_array, complex_array, elem_xpow)
+DEFNDBINOP_FN (el_mul, complex_matrix, complex_matrix, complex_array,
+               complex_array, product)
+DEFNDBINOP_FN (el_div, complex_matrix, complex_matrix, complex_array,
+               complex_array, quotient)
+DEFNDBINOP_FN (el_pow, complex_matrix, complex_matrix, complex_array,
+               complex_array, elem_xpow)
 
 DEFBINOP (el_ldiv, complex_matrix, complex_matrix)
 {
   CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex_matrix&);
 
-  return octave_value (quotient (v2.complex_array_value (), v1.complex_array_value ()));
+  return octave_value (quotient (v2.complex_array_value (),
+                                 v1.complex_array_value ()));
 }
 
-DEFNDBINOP_FN (el_and, complex_matrix, complex_matrix, complex_array, complex_array, mx_el_and)
-DEFNDBINOP_FN (el_or,  complex_matrix, complex_matrix, complex_array, complex_array, mx_el_or)
+DEFNDBINOP_FN (el_and, complex_matrix, complex_matrix, complex_array,
+               complex_array, mx_el_and)
+DEFNDBINOP_FN (el_or,  complex_matrix, complex_matrix, complex_array,
+               complex_array, mx_el_or)
 
-DEFNDCATOP_FN (cm_cm, complex_matrix, complex_matrix, complex_array, complex_array, concat)
+DEFNDCATOP_FN (cm_cm, complex_matrix, complex_matrix, complex_array,
+               complex_array, concat)
 
 DEFNDASSIGNOP_FN (assign, complex_matrix, complex_matrix, complex_array, assign)
 
@@ -193,14 +209,18 @@
 
 DEFNDASSIGNOP_OP (assign_add, complex_matrix, complex_matrix, complex_array, +=)
 DEFNDASSIGNOP_OP (assign_sub, complex_matrix, complex_matrix, complex_array, -=)
-DEFNDASSIGNOP_FNOP (assign_el_mul, complex_matrix, complex_matrix, complex_array, product_eq)
-DEFNDASSIGNOP_FNOP (assign_el_div, complex_matrix, complex_matrix, complex_array, quotient_eq)
+DEFNDASSIGNOP_FNOP (assign_el_mul, complex_matrix, complex_matrix,
+                    complex_array, product_eq)
+DEFNDASSIGNOP_FNOP (assign_el_div, complex_matrix, complex_matrix,
+                    complex_array, quotient_eq)
 
 CONVDECL (complex_matrix_to_float_complex_matrix)
 {
   CAST_CONV_ARG (const octave_complex_matrix&);
 
-  return new octave_float_complex_matrix (FloatComplexNDArray (v.complex_array_value ()));
+  return
+    new octave_float_complex_matrix
+          (FloatComplexNDArray (v.complex_array_value ()));
 }
 
 void
@@ -222,12 +242,18 @@
   INSTALL_BINOP (op_div, octave_complex_matrix, octave_complex_matrix, div);
   INSTALL_BINOP (op_pow, octave_complex_matrix, octave_complex_matrix, pow);
   INSTALL_BINOP (op_ldiv, octave_complex_matrix, octave_complex_matrix, ldiv);
-  INSTALL_BINOP (op_trans_mul, octave_complex_matrix, octave_complex_matrix, trans_mul);
-  INSTALL_BINOP (op_mul_trans, octave_complex_matrix, octave_complex_matrix, mul_trans);
-  INSTALL_BINOP (op_herm_mul, octave_complex_matrix, octave_complex_matrix, herm_mul);
-  INSTALL_BINOP (op_mul_herm, octave_complex_matrix, octave_complex_matrix, mul_herm);
-  INSTALL_BINOP (op_trans_ldiv, octave_complex_matrix, octave_complex_matrix, trans_ldiv);
-  INSTALL_BINOP (op_herm_ldiv, octave_complex_matrix, octave_complex_matrix, herm_ldiv);
+  INSTALL_BINOP (op_trans_mul, octave_complex_matrix, octave_complex_matrix,
+                 trans_mul);
+  INSTALL_BINOP (op_mul_trans, octave_complex_matrix, octave_complex_matrix,
+                 mul_trans);
+  INSTALL_BINOP (op_herm_mul, octave_complex_matrix, octave_complex_matrix,
+                 herm_mul);
+  INSTALL_BINOP (op_mul_herm, octave_complex_matrix, octave_complex_matrix,
+                 mul_herm);
+  INSTALL_BINOP (op_trans_ldiv, octave_complex_matrix, octave_complex_matrix,
+                 trans_ldiv);
+  INSTALL_BINOP (op_herm_ldiv, octave_complex_matrix, octave_complex_matrix,
+                 herm_ldiv);
 
   INSTALL_BINOP (op_lt, octave_complex_matrix, octave_complex_matrix, lt);
   INSTALL_BINOP (op_le, octave_complex_matrix, octave_complex_matrix, le);
@@ -235,25 +261,38 @@
   INSTALL_BINOP (op_ge, octave_complex_matrix, octave_complex_matrix, ge);
   INSTALL_BINOP (op_gt, octave_complex_matrix, octave_complex_matrix, gt);
   INSTALL_BINOP (op_ne, octave_complex_matrix, octave_complex_matrix, ne);
-  INSTALL_BINOP (op_el_mul, octave_complex_matrix, octave_complex_matrix, el_mul);
-  INSTALL_BINOP (op_el_div, octave_complex_matrix, octave_complex_matrix, el_div);
-  INSTALL_BINOP (op_el_pow, octave_complex_matrix, octave_complex_matrix, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_complex_matrix, octave_complex_matrix, el_ldiv);
-  INSTALL_BINOP (op_el_and, octave_complex_matrix, octave_complex_matrix, el_and);
+  INSTALL_BINOP (op_el_mul, octave_complex_matrix, octave_complex_matrix,
+                 el_mul);
+  INSTALL_BINOP (op_el_div, octave_complex_matrix, octave_complex_matrix,
+                 el_div);
+  INSTALL_BINOP (op_el_pow, octave_complex_matrix, octave_complex_matrix,
+                 el_pow);
+  INSTALL_BINOP (op_el_ldiv, octave_complex_matrix, octave_complex_matrix,
+                 el_ldiv);
+  INSTALL_BINOP (op_el_and, octave_complex_matrix, octave_complex_matrix,
+                 el_and);
   INSTALL_BINOP (op_el_or, octave_complex_matrix, octave_complex_matrix, el_or);
 
   INSTALL_CATOP (octave_complex_matrix, octave_complex_matrix, cm_cm);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_complex_matrix, assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_complex_matrix,
+                    assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_sq_str, null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_null_sq_str,
+                    null_assign);
 
-  INSTALL_ASSIGNOP (op_add_eq, octave_complex_matrix, octave_complex_matrix, assign_add);
-  INSTALL_ASSIGNOP (op_sub_eq, octave_complex_matrix, octave_complex_matrix, assign_sub);
-  INSTALL_ASSIGNOP (op_el_mul_eq, octave_complex_matrix, octave_complex_matrix, assign_el_mul);
-  INSTALL_ASSIGNOP (op_el_div_eq, octave_complex_matrix, octave_complex_matrix, assign_el_div);
+  INSTALL_ASSIGNOP (op_add_eq, octave_complex_matrix, octave_complex_matrix,
+                    assign_add);
+  INSTALL_ASSIGNOP (op_sub_eq, octave_complex_matrix, octave_complex_matrix,
+                    assign_sub);
+  INSTALL_ASSIGNOP (op_el_mul_eq, octave_complex_matrix, octave_complex_matrix,
+                    assign_el_mul);
+  INSTALL_ASSIGNOP (op_el_div_eq, octave_complex_matrix, octave_complex_matrix,
+                    assign_el_div);
 
   INSTALL_CONVOP (octave_complex_matrix, octave_float_complex_matrix,
                   complex_matrix_to_float_complex_matrix);
--- a/libinterp/operators/op-cm-cs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cm-cs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -68,12 +68,18 @@
   return ret;
 }
 
-DEFNDCMPLXCMPOP_FN (lt, complex_matrix, complex, complex_array, complex, mx_el_lt)
-DEFNDCMPLXCMPOP_FN (le, complex_matrix, complex, complex_array, complex, mx_el_le)
-DEFNDCMPLXCMPOP_FN (eq, complex_matrix, complex, complex_array, complex, mx_el_eq)
-DEFNDCMPLXCMPOP_FN (ge, complex_matrix, complex, complex_array, complex, mx_el_ge)
-DEFNDCMPLXCMPOP_FN (gt, complex_matrix, complex, complex_array, complex, mx_el_gt)
-DEFNDCMPLXCMPOP_FN (ne, complex_matrix, complex, complex_array, complex, mx_el_ne)
+DEFNDCMPLXCMPOP_FN (lt, complex_matrix, complex, complex_array, complex,
+                    mx_el_lt)
+DEFNDCMPLXCMPOP_FN (le, complex_matrix, complex, complex_array, complex,
+                    mx_el_le)
+DEFNDCMPLXCMPOP_FN (eq, complex_matrix, complex, complex_array, complex,
+                    mx_el_eq)
+DEFNDCMPLXCMPOP_FN (ge, complex_matrix, complex, complex_array, complex,
+                    mx_el_ge)
+DEFNDCMPLXCMPOP_FN (gt, complex_matrix, complex, complex_array, complex,
+                    mx_el_gt)
+DEFNDCMPLXCMPOP_FN (ne, complex_matrix, complex, complex_array, complex,
+                    mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, complex_matrix, complex, complex_array, complex, *)
 
@@ -89,7 +95,8 @@
   return octave_value (v1.complex_array_value () / d);
 }
 
-DEFNDBINOP_FN (el_pow, complex_matrix, complex, complex_array, complex, elem_xpow)
+DEFNDBINOP_FN (el_pow, complex_matrix, complex, complex_array, complex,
+               elem_xpow)
 
 DEFBINOP (el_ldiv, complex_matrix, complex)
 {
@@ -98,13 +105,17 @@
   return x_el_div (v2.complex_value (), v1.complex_array_value ());
 }
 
-DEFNDBINOP_FN (el_and, complex_matrix, complex, complex_array, complex, mx_el_and)
-DEFNDBINOP_FN (el_or,  complex_matrix, complex, complex_array, complex, mx_el_or)
+DEFNDBINOP_FN (el_and, complex_matrix, complex, complex_array, complex,
+               mx_el_and)
+DEFNDBINOP_FN (el_or,  complex_matrix, complex, complex_array, complex,
+               mx_el_or)
 
-DEFNDCATOP_FN (cm_cs, complex_matrix, complex, complex_array, complex_array, concat)
+DEFNDCATOP_FN (cm_cs, complex_matrix, complex, complex_array, complex_array,
+               concat)
 
 DEFNDASSIGNOP_FN (assign, complex_matrix, complex, complex, assign)
-DEFNDASSIGNOP_FN (sgl_assign, float_complex_matrix, complex, float_complex, assign)
+DEFNDASSIGNOP_FN (sgl_assign, float_complex_matrix, complex, float_complex,
+                  assign)
 
 DEFNDASSIGNOP_OP (assign_add, complex_matrix, complex_scalar, complex, +=)
 DEFNDASSIGNOP_OP (assign_sub, complex_matrix, complex_scalar, complex, -=)
@@ -136,10 +147,15 @@
   INSTALL_CATOP (octave_complex_matrix, octave_complex, cm_cs);
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_complex, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix, octave_complex, sgl_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix, octave_complex,
+                    sgl_assign);
 
-  INSTALL_ASSIGNOP (op_add_eq, octave_complex_matrix, octave_complex_scalar, assign_add);
-  INSTALL_ASSIGNOP (op_sub_eq, octave_complex_matrix, octave_complex_scalar, assign_sub);
-  INSTALL_ASSIGNOP (op_mul_eq, octave_complex_matrix, octave_complex_scalar, assign_mul);
-  INSTALL_ASSIGNOP (op_div_eq, octave_complex_matrix, octave_complex_scalar, assign_div);
+  INSTALL_ASSIGNOP (op_add_eq, octave_complex_matrix, octave_complex_scalar,
+                    assign_add);
+  INSTALL_ASSIGNOP (op_sub_eq, octave_complex_matrix, octave_complex_scalar,
+                    assign_sub);
+  INSTALL_ASSIGNOP (op_mul_eq, octave_complex_matrix, octave_complex_scalar,
+                    assign_mul);
+  INSTALL_ASSIGNOP (op_div_eq, octave_complex_matrix, octave_complex_scalar,
+                    assign_div);
 }
--- a/libinterp/operators/op-cm-s.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cm-s.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -138,6 +138,8 @@
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_scalar, assign);
 
-  INSTALL_ASSIGNOP (op_mul_eq, octave_complex_matrix, octave_scalar, assign_mul);
-  INSTALL_ASSIGNOP (op_div_eq, octave_complex_matrix, octave_scalar, assign_div);
+  INSTALL_ASSIGNOP (op_mul_eq, octave_complex_matrix, octave_scalar,
+                    assign_mul);
+  INSTALL_ASSIGNOP (op_div_eq, octave_complex_matrix, octave_scalar,
+                    assign_div);
 }
--- a/libinterp/operators/op-cm-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cm-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -110,8 +110,8 @@
                    const octave_sparse_complex_matrix&);
 
   return octave_value
-    (elem_xpow (SparseComplexMatrix (v1.complex_matrix_value ()),
-                v2.sparse_complex_matrix_value ()));
+         (elem_xpow (SparseComplexMatrix (v1.complex_matrix_value ()),
+                     v2.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP (el_ldiv, sparse_complex_matrix, matrix)
@@ -140,7 +140,7 @@
 {
   CAST_CONV_ARG (const octave_complex_matrix&);
   return new octave_sparse_complex_matrix
-    (SparseComplexMatrix (v.complex_matrix_value ()));
+         (SparseComplexMatrix (v.complex_matrix_value ()));
 }
 
 DEFNDASSIGNOP_FN (assign, complex_matrix, sparse_complex_matrix,
--- a/libinterp/operators/op-cm-sm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cm-sm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -106,8 +106,8 @@
                    const octave_sparse_matrix&);
 
   return octave_value
-    (elem_xpow ( SparseComplexMatrix (v1.complex_matrix_value ()),
-                 v2.sparse_matrix_value ()));
+         (elem_xpow ( SparseComplexMatrix (v1.complex_matrix_value ()),
+                      v2.sparse_matrix_value ()));
 }
 
 DEFBINOP (el_ldiv, complex_matrix, sparse_matrix)
@@ -115,7 +115,7 @@
   CAST_BINOP_ARGS (const octave_complex_matrix&,
                    const octave_sparse_matrix&);
   return octave_value
-    (quotient (v2.sparse_matrix_value (), v1.complex_matrix_value ()));
+         (quotient (v2.sparse_matrix_value (), v1.complex_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, complex_matrix, sparse_matrix, mx_el_and)
--- a/libinterp/operators/op-cs-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cs-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -68,16 +68,24 @@
   return octave_value (v2.complex_array_value () / d);
 }
 
-DEFNDCMPLXCMPOP_FN (lt, complex, complex_matrix, complex, complex_array, mx_el_lt)
-DEFNDCMPLXCMPOP_FN (le, complex, complex_matrix, complex, complex_array, mx_el_le)
-DEFNDCMPLXCMPOP_FN (eq, complex, complex_matrix, complex, complex_array, mx_el_eq)
-DEFNDCMPLXCMPOP_FN (ge, complex, complex_matrix, complex, complex_array, mx_el_ge)
-DEFNDCMPLXCMPOP_FN (gt, complex, complex_matrix, complex, complex_array, mx_el_gt)
-DEFNDCMPLXCMPOP_FN (ne, complex, complex_matrix, complex, complex_array, mx_el_ne)
+DEFNDCMPLXCMPOP_FN (lt, complex, complex_matrix, complex, complex_array,
+                    mx_el_lt)
+DEFNDCMPLXCMPOP_FN (le, complex, complex_matrix, complex, complex_array,
+                    mx_el_le)
+DEFNDCMPLXCMPOP_FN (eq, complex, complex_matrix, complex, complex_array,
+                    mx_el_eq)
+DEFNDCMPLXCMPOP_FN (ge, complex, complex_matrix, complex, complex_array,
+                    mx_el_ge)
+DEFNDCMPLXCMPOP_FN (gt, complex, complex_matrix, complex, complex_array,
+                    mx_el_gt)
+DEFNDCMPLXCMPOP_FN (ne, complex, complex_matrix, complex, complex_array,
+                    mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, complex, complex_matrix, complex, complex_array, *)
-DEFNDBINOP_FN (el_div, complex, complex_matrix, complex, complex_array, x_el_div)
-DEFNDBINOP_FN (el_pow, complex, complex_matrix, complex, complex_array, elem_xpow)
+DEFNDBINOP_FN (el_div, complex, complex_matrix, complex, complex_array,
+               x_el_div)
+DEFNDBINOP_FN (el_pow, complex, complex_matrix, complex, complex_array,
+               elem_xpow)
 
 DEFBINOP (el_ldiv, complex, complex_matrix)
 {
@@ -91,10 +99,13 @@
   return octave_value (v2.complex_array_value () / d);
 }
 
-DEFNDBINOP_FN (el_and, complex, complex_matrix, complex, complex_array, mx_el_and)
-DEFNDBINOP_FN (el_or,  complex, complex_matrix, complex, complex_array, mx_el_or)
+DEFNDBINOP_FN (el_and, complex, complex_matrix, complex, complex_array,
+               mx_el_and)
+DEFNDBINOP_FN (el_or,  complex, complex_matrix, complex, complex_array,
+               mx_el_or)
 
-DEFNDCATOP_FN (cs_cm, complex, complex_matrix, complex_array, complex_array, concat)
+DEFNDCATOP_FN (cs_cm, complex, complex_matrix, complex_array, complex_array,
+               concat)
 
 DEFCONV (complex_matrix_conv, complex, complex_matrix)
 {
@@ -127,7 +138,8 @@
 
   INSTALL_CATOP (octave_complex, octave_complex_matrix, cs_cm);
 
-  INSTALL_ASSIGNCONV (octave_complex, octave_complex_matrix, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex, octave_complex_matrix,
+                      octave_complex_matrix);
 
   INSTALL_WIDENOP (octave_complex, octave_complex_matrix, complex_matrix_conv);
 }
--- a/libinterp/operators/op-cs-cs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cs-cs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -150,7 +150,9 @@
 {
   CAST_CONV_ARG (const octave_complex&);
 
-  return new octave_float_complex_matrix (FloatComplexMatrix (1, 1, static_cast<FloatComplex>(v.complex_value ())));
+  return new octave_float_complex_matrix (FloatComplexMatrix (1, 1,
+                                          static_cast<FloatComplex>
+                                            (v.complex_value ())));
 }
 
 void
@@ -188,9 +190,11 @@
 
   INSTALL_ASSIGNCONV (octave_complex, octave_complex, octave_complex_matrix);
 
-  INSTALL_ASSIGNCONV (octave_complex, octave_null_matrix, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex, octave_null_matrix,
+                      octave_complex_matrix);
   INSTALL_ASSIGNCONV (octave_complex, octave_null_str, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_complex, octave_null_sq_str, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex, octave_null_sq_str,
+                      octave_complex_matrix);
 
   INSTALL_CONVOP (octave_complex, octave_float_complex_matrix,
                   complex_to_float_complex);
--- a/libinterp/operators/op-cs-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cs-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -130,7 +130,7 @@
   CAST_CONV_ARG (const octave_complex&);
 
   return new octave_sparse_complex_matrix
-    (SparseComplexMatrix (v.complex_matrix_value ()));
+         (SparseComplexMatrix (v.complex_matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-cs-sm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-cs-sm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -132,7 +132,7 @@
   CAST_CONV_ARG (const octave_complex&);
 
   return new octave_sparse_matrix
-    (SparseMatrix (v.matrix_value ()));
+         (SparseMatrix (v.matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-dm-dm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-dm-dm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -97,7 +97,8 @@
   INSTALL_BINOP (op_ldiv, octave_diag_matrix, octave_diag_matrix, ldiv);
 
   INSTALL_CONVOP (octave_diag_matrix, octave_matrix, diag_matrix_to_matrix);
-  INSTALL_CONVOP (octave_diag_matrix, octave_float_diag_matrix, diag_matrix_to_float_diag_matrix);
+  INSTALL_CONVOP (octave_diag_matrix, octave_float_diag_matrix,
+                  diag_matrix_to_float_diag_matrix);
   INSTALL_ASSIGNCONV (octave_diag_matrix, octave_matrix, octave_matrix);
   INSTALL_WIDENOP (octave_diag_matrix, octave_matrix, diag_matrix_to_matrix);
 }
--- a/libinterp/operators/op-dm-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-dm-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -41,7 +41,8 @@
 
 DEFBINOP (mul_dm_scm, diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -54,7 +55,8 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      SparseComplexMatrix ret = v1.diag_matrix_value () * v2.sparse_complex_matrix_value ();
+      SparseComplexMatrix ret = v1.diag_matrix_value () *
+                                v2.sparse_complex_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -64,7 +66,8 @@
 
 DEFBINOP (mul_cdm_sm, complex_diag_matrix, sparse_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -77,7 +80,8 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      SparseComplexMatrix ret = v1.complex_diag_matrix_value () * v2.sparse_matrix_value ();
+      SparseComplexMatrix ret = v1.complex_diag_matrix_value () *
+                                v2.sparse_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -87,7 +91,8 @@
 
 DEFBINOP (mul_cdm_scm, complex_diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -100,7 +105,8 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      SparseComplexMatrix ret = v1.complex_diag_matrix_value () * v2.sparse_complex_matrix_value ();
+      SparseComplexMatrix ret = v1.complex_diag_matrix_value () *
+                                v2.sparse_complex_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -134,13 +140,15 @@
                    const octave_sparse_complex_matrix&);
 
   MatrixType typ = v2.matrix_type ();
-  return xleftdiv (v1.complex_diag_matrix_value (), v2.sparse_complex_matrix_value (),
+  return xleftdiv (v1.complex_diag_matrix_value (),
+                   v2.sparse_complex_matrix_value (),
                    typ);
 }
 
 DEFBINOP (add_dm_scm, diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -156,7 +164,8 @@
 
 DEFBINOP (add_cdm_sm, complex_diag_matrix, sparse_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -172,7 +181,8 @@
 
 DEFBINOP (add_cdm_scm, complex_diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -188,7 +198,8 @@
 
 DEFBINOP (sub_dm_scm, diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -204,7 +215,8 @@
 
 DEFBINOP (sub_cdm_sm, complex_diag_matrix, sparse_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -220,7 +232,8 @@
 
 DEFBINOP (sub_cdm_scm, complex_diag_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_diag_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_diag_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -238,7 +251,8 @@
 
 DEFBINOP (mul_scm_dm, sparse_complex_matrix, diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_diag_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     // If v1 is a scalar in disguise, return a diagonal matrix rather than
@@ -251,7 +265,8 @@
   else
     {
       MatrixType typ = v1.matrix_type ();
-      SparseComplexMatrix ret = v1.sparse_complex_matrix_value () * v2.diag_matrix_value ();
+      SparseComplexMatrix ret = v1.sparse_complex_matrix_value () *
+                                v2.diag_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -261,7 +276,8 @@
 
 DEFBINOP (mul_sm_cdm, sparse_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     // If v1 is a scalar in disguise, return a diagonal matrix rather than
@@ -274,7 +290,8 @@
   else
     {
       MatrixType typ = v1.matrix_type ();
-      SparseComplexMatrix ret = v1.sparse_matrix_value () * v2.complex_diag_matrix_value ();
+      SparseComplexMatrix ret = v1.sparse_matrix_value () *
+                                v2.complex_diag_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -284,7 +301,8 @@
 
 DEFBINOP (mul_scm_cdm, sparse_complex_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     // If v1 is a scalar in disguise, return a diagonal matrix rather than
@@ -304,7 +322,8 @@
   else
     {
       MatrixType typ = v1.matrix_type ();
-      SparseComplexMatrix ret = v1.sparse_complex_matrix_value () * v2.complex_diag_matrix_value ();
+      SparseComplexMatrix ret = v1.sparse_complex_matrix_value () *
+                                v2.complex_diag_matrix_value ();
       octave_value out = octave_value (ret);
       typ.mark_as_unsymmetric ();
       out.matrix_type (typ);
@@ -314,7 +333,8 @@
 
 DEFBINOP (div_scm_dm, sparse_complex_matrix, diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -328,13 +348,15 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      return xdiv (v1.sparse_complex_matrix_value (), v2.diag_matrix_value (), typ);
+      return xdiv (v1.sparse_complex_matrix_value (),
+                   v2.diag_matrix_value (), typ);
     }
 }
 
 DEFBINOP (div_sm_cdm, sparse_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -348,13 +370,15 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      return xdiv (v1.sparse_matrix_value (), v2.complex_diag_matrix_value (), typ);
+      return xdiv (v1.sparse_matrix_value (),
+                   v2.complex_diag_matrix_value (), typ);
     }
 }
 
 DEFBINOP (div_scm_cdm, sparse_complex_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -368,13 +392,15 @@
   else
     {
       MatrixType typ = v2.matrix_type ();
-      return xdiv (v1.sparse_complex_matrix_value (), v2.complex_diag_matrix_value (), typ);
+      return xdiv (v1.sparse_complex_matrix_value (),
+                   v2.complex_diag_matrix_value (), typ);
     }
 }
 
 DEFBINOP (add_sm_cdm, sparse_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -390,7 +416,8 @@
 
 DEFBINOP (add_scm_dm, sparse_complex_matrix, diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -406,7 +433,8 @@
 
 DEFBINOP (add_scm_cdm, sparse_complex_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -422,7 +450,8 @@
 
 DEFBINOP (sub_sm_cdm, sparse_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -438,7 +467,8 @@
 
 DEFBINOP (sub_scm_dm, sparse_complex_matrix, diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -454,7 +484,8 @@
 
 DEFBINOP (sub_scm_cdm, sparse_complex_matrix, complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_complex_diag_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     // If v2 is a scalar in disguise, return a diagonal matrix rather than
@@ -475,37 +506,52 @@
                  mul_dm_scm);
   INSTALL_BINOP (op_mul, octave_complex_diag_matrix, octave_sparse_matrix,
                  mul_cdm_sm);
-  INSTALL_BINOP (op_mul, octave_complex_diag_matrix, octave_sparse_complex_matrix,
-                 mul_cdm_scm);
-  INSTALL_BINOP (op_ldiv, octave_diag_matrix, octave_sparse_complex_matrix, ldiv_dm_scm);
-  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix, octave_sparse_matrix, ldiv_cdm_sm);
-  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix, octave_sparse_complex_matrix,
-                 ldiv_cdm_scm);
+  INSTALL_BINOP (op_mul, octave_complex_diag_matrix,
+                 octave_sparse_complex_matrix, mul_cdm_scm);
+  INSTALL_BINOP (op_ldiv, octave_diag_matrix, octave_sparse_complex_matrix,
+                 ldiv_dm_scm);
+  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix, octave_sparse_matrix,
+                 ldiv_cdm_sm);
+  INSTALL_BINOP (op_ldiv, octave_complex_diag_matrix,
+                 octave_sparse_complex_matrix, ldiv_cdm_scm);
 
-  INSTALL_BINOP (op_add, octave_diag_matrix, octave_sparse_complex_matrix, add_dm_scm);
-  INSTALL_BINOP (op_add, octave_complex_diag_matrix, octave_sparse_matrix, add_cdm_sm);
-  INSTALL_BINOP (op_add, octave_complex_diag_matrix, octave_sparse_complex_matrix,
-                 add_cdm_scm);
-  INSTALL_BINOP (op_sub, octave_diag_matrix, octave_sparse_complex_matrix, sub_dm_scm);
-  INSTALL_BINOP (op_sub, octave_complex_diag_matrix, octave_sparse_matrix, sub_cdm_sm);
-  INSTALL_BINOP (op_sub, octave_complex_diag_matrix, octave_sparse_complex_matrix,
-                 sub_cdm_scm);
+  INSTALL_BINOP (op_add, octave_diag_matrix, octave_sparse_complex_matrix,
+                 add_dm_scm);
+  INSTALL_BINOP (op_add, octave_complex_diag_matrix, octave_sparse_matrix,
+                 add_cdm_sm);
+  INSTALL_BINOP (op_add, octave_complex_diag_matrix,
+                 octave_sparse_complex_matrix, add_cdm_scm);
+  INSTALL_BINOP (op_sub, octave_diag_matrix, octave_sparse_complex_matrix,
+                 sub_dm_scm);
+  INSTALL_BINOP (op_sub, octave_complex_diag_matrix, octave_sparse_matrix,
+                 sub_cdm_sm);
+  INSTALL_BINOP (op_sub, octave_complex_diag_matrix,
+                 octave_sparse_complex_matrix, sub_cdm_scm);
 
   INSTALL_BINOP (op_mul, octave_sparse_complex_matrix, octave_diag_matrix,
                  mul_scm_dm);
   INSTALL_BINOP (op_mul, octave_sparse_matrix, octave_complex_diag_matrix,
                  mul_sm_cdm);
-  INSTALL_BINOP (op_mul, octave_sparse_complex_matrix, octave_complex_diag_matrix,
-                 mul_scm_cdm);
+  INSTALL_BINOP (op_mul, octave_sparse_complex_matrix,
+                 octave_complex_diag_matrix, mul_scm_cdm);
 
-  INSTALL_BINOP (op_div, octave_sparse_complex_matrix, octave_diag_matrix, div_scm_dm);
-  INSTALL_BINOP (op_div, octave_sparse_matrix, octave_complex_diag_matrix, div_sm_cdm);
-  INSTALL_BINOP (op_div, octave_sparse_complex_matrix, octave_complex_diag_matrix, div_scm_cdm);
+  INSTALL_BINOP (op_div, octave_sparse_complex_matrix, octave_diag_matrix,
+                 div_scm_dm);
+  INSTALL_BINOP (op_div, octave_sparse_matrix, octave_complex_diag_matrix,
+                 div_sm_cdm);
+  INSTALL_BINOP (op_div, octave_sparse_complex_matrix,
+                 octave_complex_diag_matrix, div_scm_cdm);
 
-  INSTALL_BINOP (op_add, octave_sparse_complex_matrix, octave_diag_matrix, add_scm_dm);
-  INSTALL_BINOP (op_add, octave_sparse_matrix, octave_complex_diag_matrix, add_sm_cdm);
-  INSTALL_BINOP (op_add, octave_sparse_complex_matrix, octave_complex_diag_matrix, add_scm_cdm);
-  INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, octave_diag_matrix, sub_scm_dm);
-  INSTALL_BINOP (op_sub, octave_sparse_matrix, octave_complex_diag_matrix, sub_sm_cdm);
-  INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, octave_complex_diag_matrix, sub_scm_cdm);
+  INSTALL_BINOP (op_add, octave_sparse_complex_matrix, octave_diag_matrix,
+                 add_scm_dm);
+  INSTALL_BINOP (op_add, octave_sparse_matrix, octave_complex_diag_matrix,
+                 add_sm_cdm);
+  INSTALL_BINOP (op_add, octave_sparse_complex_matrix,
+                 octave_complex_diag_matrix, add_scm_cdm);
+  INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, octave_diag_matrix,
+                 sub_scm_dm);
+  INSTALL_BINOP (op_sub, octave_sparse_matrix, octave_complex_diag_matrix,
+                 sub_sm_cdm);
+  INSTALL_BINOP (op_sub, octave_sparse_complex_matrix,
+                 octave_complex_diag_matrix, sub_scm_cdm);
 }
--- a/libinterp/operators/op-double-conv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-double-conv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -84,36 +84,57 @@
 void
 install_double_conv_ops (void)
 {
-  INSTALL_CONVOP (octave_int8_matrix, octave_matrix, int8_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_int16_matrix, octave_matrix, int16_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_int32_matrix, octave_matrix, int32_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_int64_matrix, octave_matrix, int64_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_int8_matrix, octave_matrix,
+                  int8_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_int16_matrix, octave_matrix,
+                  int16_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_int32_matrix, octave_matrix,
+                  int32_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_int64_matrix, octave_matrix,
+                  int64_matrix_to_double_matrix);
 
-  INSTALL_CONVOP (octave_uint8_matrix, octave_matrix, uint8_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_uint16_matrix, octave_matrix, uint16_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_uint32_matrix, octave_matrix, uint32_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_uint64_matrix, octave_matrix, uint64_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_uint8_matrix, octave_matrix,
+                  uint8_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_uint16_matrix, octave_matrix,
+                  uint16_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_uint32_matrix, octave_matrix,
+                  uint32_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_uint64_matrix, octave_matrix,
+                  uint64_matrix_to_double_matrix);
 
-  INSTALL_CONVOP (octave_int8_scalar, octave_matrix, int8_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_int16_scalar, octave_matrix, int16_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_int32_scalar, octave_matrix, int32_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_int64_scalar, octave_matrix, int64_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_int8_scalar, octave_matrix,
+                  int8_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_int16_scalar, octave_matrix,
+                  int16_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_int32_scalar, octave_matrix,
+                  int32_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_int64_scalar, octave_matrix,
+                  int64_scalar_to_double_matrix);
 
-  INSTALL_CONVOP (octave_uint8_scalar, octave_matrix, uint8_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_uint16_scalar, octave_matrix, uint16_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_uint32_scalar, octave_matrix, uint32_scalar_to_double_matrix);
-  INSTALL_CONVOP (octave_uint64_scalar, octave_matrix, uint64_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_uint8_scalar, octave_matrix,
+                  uint8_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_uint16_scalar, octave_matrix,
+                  uint16_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_uint32_scalar, octave_matrix,
+                  uint32_scalar_to_double_matrix);
+  INSTALL_CONVOP (octave_uint64_scalar, octave_matrix,
+                  uint64_scalar_to_double_matrix);
 
-  INSTALL_CONVOP (octave_bool_matrix, octave_matrix, bool_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_bool_matrix, octave_matrix,
+                  bool_matrix_to_double_matrix);
   INSTALL_CONVOP (octave_bool, octave_matrix, bool_scalar_to_double_matrix);
 
-  INSTALL_CONVOP (octave_sparse_matrix, octave_matrix, sparse_matrix_to_double_matrix);
-  INSTALL_CONVOP (octave_sparse_bool_matrix, octave_matrix, sparse_bool_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_sparse_matrix, octave_matrix,
+                  sparse_matrix_to_double_matrix);
+  INSTALL_CONVOP (octave_sparse_bool_matrix, octave_matrix,
+                  sparse_bool_matrix_to_double_matrix);
 
   INSTALL_CONVOP (octave_range, octave_matrix, range_to_double_matrix);
 
-  INSTALL_CONVOP (octave_char_matrix_str, octave_matrix, char_matrix_str_to_double_matrix);
-  INSTALL_CONVOP (octave_char_matrix_sq_str, octave_matrix, char_matrix_sq_str_to_double_matrix);
+  INSTALL_CONVOP (octave_char_matrix_str, octave_matrix,
+                  char_matrix_str_to_double_matrix);
+  INSTALL_CONVOP (octave_char_matrix_sq_str, octave_matrix,
+                  char_matrix_sq_str_to_double_matrix);
 
   INSTALL_CONVOP (octave_scalar, octave_matrix, double_scalar_to_double_matrix);
 }
--- a/libinterp/operators/op-fcdm-fcdm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcdm-fcdm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,8 @@
 
 DEFBINOP (div, float_complex_diag_matrix, float_complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_diag_matrix&, const octave_float_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_diag_matrix&,
+                   const octave_float_complex_diag_matrix&);
 
   return xdiv (v1.float_complex_diag_matrix_value (),
                v2.float_complex_diag_matrix_value ());
@@ -68,7 +69,8 @@
 
 DEFBINOP (ldiv, float_complex_diag_matrix, float_complex_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_diag_matrix&, const octave_float_complex_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_diag_matrix&,
+                   const octave_float_complex_diag_matrix&);
 
   return xleftdiv (v1.float_complex_diag_matrix_value (),
                    v2.float_complex_diag_matrix_value ());
@@ -96,17 +98,23 @@
   INSTALL_UNOP (op_transpose, octave_float_complex_diag_matrix, transpose);
   INSTALL_UNOP (op_hermitian, octave_float_complex_diag_matrix, hermitian);
 
-  INSTALL_BINOP (op_add, octave_float_complex_diag_matrix, octave_float_complex_diag_matrix, add);
-  INSTALL_BINOP (op_sub, octave_float_complex_diag_matrix, octave_float_complex_diag_matrix, sub);
-  INSTALL_BINOP (op_mul, octave_float_complex_diag_matrix, octave_float_complex_diag_matrix, mul);
-  INSTALL_BINOP (op_div, octave_float_complex_diag_matrix, octave_float_complex_diag_matrix, div);
-  INSTALL_BINOP (op_ldiv, octave_float_complex_diag_matrix, octave_float_complex_diag_matrix, ldiv);
+  INSTALL_BINOP (op_add, octave_float_complex_diag_matrix,
+                 octave_float_complex_diag_matrix, add);
+  INSTALL_BINOP (op_sub, octave_float_complex_diag_matrix,
+                 octave_float_complex_diag_matrix, sub);
+  INSTALL_BINOP (op_mul, octave_float_complex_diag_matrix,
+                 octave_float_complex_diag_matrix, mul);
+  INSTALL_BINOP (op_div, octave_float_complex_diag_matrix,
+                 octave_float_complex_diag_matrix, div);
+  INSTALL_BINOP (op_ldiv, octave_float_complex_diag_matrix,
+                 octave_float_complex_diag_matrix, ldiv);
 
   INSTALL_CONVOP (octave_float_complex_diag_matrix, octave_complex_diag_matrix,
                   float_complex_diag_matrix_to_complex_diag_matrix);
   INSTALL_CONVOP (octave_float_complex_diag_matrix, octave_float_complex_matrix,
                   float_complex_diag_matrix_to_float_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_complex_diag_matrix, octave_float_complex_matrix, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex_diag_matrix,
+                      octave_float_complex_matrix, octave_float_complex_matrix);
   INSTALL_WIDENOP (octave_float_complex_diag_matrix, octave_complex_diag_matrix,
                    float_complex_diag_matrix_to_complex_diag_matrix);
 }
--- a/libinterp/operators/op-fcm-fcm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcm-fcm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -87,7 +87,7 @@
   MatrixType typ = v2.matrix_type ();
 
   FloatComplexMatrix ret = xdiv (v1.float_complex_matrix_value (),
-                            v2.float_complex_matrix_value (), typ);
+                                 v2.float_complex_matrix_value (), typ);
 
   v2.matrix_type (typ);
   return ret;
@@ -114,7 +114,8 @@
 
 DEFBINOP (trans_mul, float_complex_matrix, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_complex_matrix&);
   return octave_value(xgemm (v1.float_complex_matrix_value (),
                              v2.float_complex_matrix_value (),
                              blas_trans, blas_no_trans));
@@ -122,7 +123,8 @@
 
 DEFBINOP (mul_trans, float_complex_matrix, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_complex_matrix&);
   return octave_value(xgemm (v1.float_complex_matrix_value (),
                              v2.float_complex_matrix_value (),
                              blas_no_trans, blas_trans));
@@ -130,7 +132,8 @@
 
 DEFBINOP (herm_mul, float_complex_matrix, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_complex_matrix&);
   return octave_value(xgemm (v1.float_complex_matrix_value (),
                              v2.float_complex_matrix_value (),
                              blas_conj_trans, blas_no_trans));
@@ -138,7 +141,8 @@
 
 DEFBINOP (mul_herm, float_complex_matrix, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_complex_matrix&);
   return octave_value(xgemm (v1.float_complex_matrix_value (),
                              v2.float_complex_matrix_value (),
                              blas_no_trans, blas_conj_trans));
@@ -151,7 +155,8 @@
   MatrixType typ = v1.matrix_type ();
 
   FloatComplexMatrix ret = xleftdiv (v1.float_complex_matrix_value (),
-                                     v2.float_complex_matrix_value (), typ, blas_trans);
+                                     v2.float_complex_matrix_value (),
+                                     typ, blas_trans);
 
   v1.matrix_type (typ);
   return ret;
@@ -164,24 +169,25 @@
   MatrixType typ = v1.matrix_type ();
 
   FloatComplexMatrix ret = xleftdiv (v1.float_complex_matrix_value (),
-                                     v2.float_complex_matrix_value (), typ, blas_conj_trans);
+                                     v2.float_complex_matrix_value (),
+                                     typ, blas_conj_trans);
 
   v1.matrix_type (typ);
   return ret;
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_lt)
+                    float_complex_array, float_complex_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_le)
+                    float_complex_array, float_complex_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_eq)
+                    float_complex_array, float_complex_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_ge)
+                    float_complex_array, float_complex_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_gt)
+                    float_complex_array, float_complex_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_complex_matrix,
-               float_complex_array, float_complex_array, mx_el_ne)
+                    float_complex_array, float_complex_array, mx_el_ne)
 
 DEFNDBINOP_FN (el_mul, float_complex_matrix, float_complex_matrix,
                float_complex_array, float_complex_array, product)
@@ -195,7 +201,8 @@
   CAST_BINOP_ARGS (const octave_float_complex_matrix&,
                    const octave_float_complex_matrix&);
 
-  return octave_value (quotient (v2.float_complex_array_value (), v1.float_complex_array_value ()));
+  return octave_value (quotient (v2.float_complex_array_value (),
+                                 v1.float_complex_array_value ()));
 }
 
 DEFNDBINOP_FN (el_and, float_complex_matrix, float_complex_matrix,
@@ -234,7 +241,8 @@
 {
   CAST_CONV_ARG (const octave_float_complex_matrix&);
 
-  return new octave_complex_matrix (ComplexNDArray (v.float_complex_array_value ()));
+  return
+    new octave_complex_matrix (ComplexNDArray (v.float_complex_array_value ()));
 }
 
 void
--- a/libinterp/operators/op-fcm-fcs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcm-fcs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -75,17 +75,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_lt)
+                    float_complex_array, float_complex, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_le)
+                    float_complex_array, float_complex, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_eq)
+                    float_complex_array, float_complex, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_ge)
+                    float_complex_array, float_complex, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_gt)
+                    float_complex_array, float_complex, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_complex,
-               float_complex_array, float_complex, mx_el_ne)
+                    float_complex_array, float_complex, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_complex,
                float_complex_array, float_complex, *)
--- a/libinterp/operators/op-fcm-fm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcm-fm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -43,14 +43,17 @@
 
 // complex matrix by matrix ops.
 
-DEFNDBINOP_OP (add, float_complex_matrix, float_matrix, float_complex_array, float_array, +)
-DEFNDBINOP_OP (sub, float_complex_matrix, float_matrix, float_complex_array, float_array, -)
+DEFNDBINOP_OP (add, float_complex_matrix, float_matrix, float_complex_array,
+               float_array, +)
+DEFNDBINOP_OP (sub, float_complex_matrix, float_matrix, float_complex_array,
+               float_array, -)
 
 DEFBINOP_OP (mul, float_complex_matrix, float_matrix, *)
 
 DEFBINOP (mul_trans, float_complex_matrix, float_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_matrix&);
 
   FloatComplexMatrix m1 = v1.float_complex_matrix_value ();
   FloatMatrix m2 = v2.float_matrix_value ();
@@ -93,17 +96,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_lt)
+                    float_complex_array, float_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_le)
+                    float_complex_array, float_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_eq)
+                    float_complex_array, float_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_ge)
+                    float_complex_array, float_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_gt)
+                    float_complex_array, float_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_matrix,
-               float_complex_array, float_array, mx_el_ne)
+                    float_complex_array, float_array, mx_el_ne)
 
 DEFNDBINOP_FN (el_mul, float_complex_matrix, float_matrix,
                float_complex_array, float_array, product)
--- a/libinterp/operators/op-fcm-fs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcm-fs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -42,13 +42,17 @@
 
 // complex matrix by scalar ops.
 
-DEFNDBINOP_OP (add, float_complex_matrix, float_scalar, float_complex_array, float_scalar, +)
-DEFNDBINOP_OP (sub, float_complex_matrix, float_scalar, float_complex_array, float_scalar, -)
-DEFNDBINOP_OP (mul, float_complex_matrix, float_scalar, float_complex_array, float_scalar, *)
+DEFNDBINOP_OP (add, float_complex_matrix, float_scalar, float_complex_array,
+               float_scalar, +)
+DEFNDBINOP_OP (sub, float_complex_matrix, float_scalar, float_complex_array,
+               float_scalar, -)
+DEFNDBINOP_OP (mul, float_complex_matrix, float_scalar, float_complex_array,
+               float_scalar, *)
 
 DEFBINOP (div, float_complex_matrix, float)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_scalar&);
 
   float d = v2.float_value ();
 
@@ -62,7 +66,8 @@
 
 DEFBINOP (ldiv, float_complex_matrix, float)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_scalar&);
 
   FloatComplexMatrix m1 = v1.float_complex_matrix_value ();
   FloatMatrix m2 = v2.float_matrix_value ();
@@ -75,24 +80,25 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_lt)
+                    float_scalar, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_le)
+                    float_scalar, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_eq)
+                    float_scalar, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_ge)
+                    float_scalar, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_gt)
+                    float_scalar, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_scalar, float_complex_array,
-               float_scalar, mx_el_ne)
+                    float_scalar, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_scalar, float_complex_array,
                float_scalar, *)
 
 DEFBINOP (el_div, float_complex_matrix, float)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_scalar&);
 
   float d = v2.float_value ();
 
@@ -107,7 +113,8 @@
 
 DEFBINOP (el_ldiv, float_complex_matrix, float)
 {
-  CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
+  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
+                   const octave_float_scalar&);
 
   return x_el_div (v2.float_value (), v1.float_complex_array_value ());
 }
@@ -126,8 +133,10 @@
 DEFNDCATOP_FN (fcm_s, float_complex_matrix, scalar, float_complex_array,
                float_array, concat)
 
-DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_scalar, float_complex_array, assign)
-DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_scalar, complex_array, assign)
+DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_scalar,
+                  float_complex_array, assign)
+DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_scalar, complex_array,
+                  assign)
 
 DEFNDASSIGNOP_OP (assign_mul, float_complex_matrix, float_scalar,
                   float_scalar, *=)
@@ -142,19 +151,26 @@
   INSTALL_BINOP (op_mul, octave_float_complex_matrix, octave_float_scalar, mul);
   INSTALL_BINOP (op_div, octave_float_complex_matrix, octave_float_scalar, div);
   INSTALL_BINOP (op_pow, octave_float_complex_matrix, octave_float_scalar, pow);
-  INSTALL_BINOP (op_ldiv, octave_float_complex_matrix, octave_float_scalar, ldiv);
+  INSTALL_BINOP (op_ldiv, octave_float_complex_matrix, octave_float_scalar,
+                 ldiv);
   INSTALL_BINOP (op_lt, octave_float_complex_matrix, octave_float_scalar, lt);
   INSTALL_BINOP (op_le, octave_float_complex_matrix, octave_float_scalar, le);
   INSTALL_BINOP (op_eq, octave_float_complex_matrix, octave_float_scalar, eq);
   INSTALL_BINOP (op_ge, octave_float_complex_matrix, octave_float_scalar, ge);
   INSTALL_BINOP (op_gt, octave_float_complex_matrix, octave_float_scalar, gt);
   INSTALL_BINOP (op_ne, octave_float_complex_matrix, octave_float_scalar, ne);
-  INSTALL_BINOP (op_el_mul, octave_float_complex_matrix, octave_float_scalar, el_mul);
-  INSTALL_BINOP (op_el_div, octave_float_complex_matrix, octave_float_scalar, el_div);
-  INSTALL_BINOP (op_el_pow, octave_float_complex_matrix, octave_float_scalar, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_complex_matrix, octave_float_scalar, el_ldiv);
-  INSTALL_BINOP (op_el_and, octave_float_complex_matrix, octave_float_scalar, el_and);
-  INSTALL_BINOP (op_el_or, octave_float_complex_matrix, octave_float_scalar, el_or);
+  INSTALL_BINOP (op_el_mul, octave_float_complex_matrix, octave_float_scalar,
+                 el_mul);
+  INSTALL_BINOP (op_el_div, octave_float_complex_matrix, octave_float_scalar,
+                 el_div);
+  INSTALL_BINOP (op_el_pow, octave_float_complex_matrix, octave_float_scalar,
+                 el_pow);
+  INSTALL_BINOP (op_el_ldiv, octave_float_complex_matrix, octave_float_scalar,
+                 el_ldiv);
+  INSTALL_BINOP (op_el_and, octave_float_complex_matrix, octave_float_scalar,
+                 el_and);
+  INSTALL_BINOP (op_el_or, octave_float_complex_matrix, octave_float_scalar,
+                 el_or);
 
   INSTALL_CATOP (octave_float_complex_matrix, octave_float_scalar, fcm_fs);
   INSTALL_CATOP (octave_complex_matrix, octave_float_scalar, cm_fs);
--- a/libinterp/operators/op-fcs-fcm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcs-fcm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -38,13 +38,17 @@
 
 // complex scalar by complex matrix ops.
 
-DEFNDBINOP_OP (add, float_complex, float_complex_matrix, float_complex, float_complex_array, +)
-DEFNDBINOP_OP (sub, float_complex, float_complex_matrix, float_complex, float_complex_array, -)
-DEFNDBINOP_OP (mul, float_complex, float_complex_matrix, float_complex, float_complex_array, *)
+DEFNDBINOP_OP (add, float_complex, float_complex_matrix, float_complex,
+               float_complex_array, +)
+DEFNDBINOP_OP (sub, float_complex, float_complex_matrix, float_complex,
+               float_complex_array, -)
+DEFNDBINOP_OP (mul, float_complex, float_complex_matrix, float_complex,
+               float_complex_array, *)
 
 DEFBINOP (div, float_complex, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex&,
+                   const octave_float_complex_matrix&);
 
   FloatComplexMatrix m1 = v1.float_complex_matrix_value ();
   FloatComplexMatrix m2 = v2.float_complex_matrix_value ();
@@ -60,7 +64,8 @@
 
 DEFBINOP (ldiv, float_complex, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex&,
+                   const octave_float_complex_matrix&);
 
   FloatComplex d = v1.float_complex_value ();
 
@@ -71,17 +76,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_lt)
+                    float_complex_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_le)
+                    float_complex_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_eq)
+                    float_complex_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_ge)
+                    float_complex_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_gt)
+                    float_complex_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex, float_complex_matrix, float_complex,
-               float_complex_array, mx_el_ne)
+                    float_complex_array, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_complex, float_complex_matrix, float_complex,
                float_complex_array, *)
@@ -92,7 +97,8 @@
 
 DEFBINOP (el_ldiv, float_complex, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_complex&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_complex&,
+                   const octave_float_complex_matrix&);
 
   FloatComplex d = v1.float_complex_value ();
 
@@ -102,14 +108,19 @@
   return octave_value (v2.float_complex_array_value () / d);
 }
 
-DEFNDBINOP_FN (el_and, float_complex, float_complex_matrix, float_complex, float_complex_array, mx_el_and)
-DEFNDBINOP_FN (el_or,  float_complex, float_complex_matrix, float_complex, float_complex_array, mx_el_or)
+DEFNDBINOP_FN (el_and, float_complex, float_complex_matrix, float_complex,
+               float_complex_array, mx_el_and)
+DEFNDBINOP_FN (el_or,  float_complex, float_complex_matrix, float_complex,
+               float_complex_array, mx_el_or)
 
-DEFNDCATOP_FN (fcs_fcm, float_complex, float_complex_matrix, float_complex_array, float_complex_array, concat)
+DEFNDCATOP_FN (fcs_fcm, float_complex, float_complex_matrix,
+               float_complex_array, float_complex_array, concat)
 
-DEFNDCATOP_FN (cs_fcm, complex, float_complex_matrix, float_complex_array, float_complex_array, concat)
+DEFNDCATOP_FN (cs_fcm, complex, float_complex_matrix, float_complex_array,
+               float_complex_array, concat)
 
-DEFNDCATOP_FN (fcs_cm, float_complex, complex_matrix, float_complex_array, float_complex_array, concat)
+DEFNDCATOP_FN (fcs_cm, float_complex, complex_matrix, float_complex_array,
+               float_complex_array, concat)
 
 DEFCONV (float_complex_matrix_conv, float_complex, float_complex_matrix)
 {
@@ -121,32 +132,47 @@
 void
 install_fcs_fcm_ops (void)
 {
-  INSTALL_BINOP (op_add, octave_float_complex, octave_float_complex_matrix, add);
-  INSTALL_BINOP (op_sub, octave_float_complex, octave_float_complex_matrix, sub);
-  INSTALL_BINOP (op_mul, octave_float_complex, octave_float_complex_matrix, mul);
-  INSTALL_BINOP (op_div, octave_float_complex, octave_float_complex_matrix, div);
-  INSTALL_BINOP (op_pow, octave_float_complex, octave_float_complex_matrix, pow);
-  INSTALL_BINOP (op_ldiv, octave_float_complex, octave_float_complex_matrix, ldiv);
+  INSTALL_BINOP (op_add, octave_float_complex, octave_float_complex_matrix,
+                 add);
+  INSTALL_BINOP (op_sub, octave_float_complex, octave_float_complex_matrix,
+                 sub);
+  INSTALL_BINOP (op_mul, octave_float_complex, octave_float_complex_matrix,
+                 mul);
+  INSTALL_BINOP (op_div, octave_float_complex, octave_float_complex_matrix,
+                 div);
+  INSTALL_BINOP (op_pow, octave_float_complex, octave_float_complex_matrix,
+                 pow);
+  INSTALL_BINOP (op_ldiv, octave_float_complex, octave_float_complex_matrix,
+                 ldiv);
   INSTALL_BINOP (op_lt, octave_float_complex, octave_float_complex_matrix, lt);
   INSTALL_BINOP (op_le, octave_float_complex, octave_float_complex_matrix, le);
   INSTALL_BINOP (op_eq, octave_float_complex, octave_float_complex_matrix, eq);
   INSTALL_BINOP (op_ge, octave_float_complex, octave_float_complex_matrix, ge);
   INSTALL_BINOP (op_gt, octave_float_complex, octave_float_complex_matrix, gt);
   INSTALL_BINOP (op_ne, octave_float_complex, octave_float_complex_matrix, ne);
-  INSTALL_BINOP (op_el_mul, octave_float_complex, octave_float_complex_matrix, el_mul);
-  INSTALL_BINOP (op_el_div, octave_float_complex, octave_float_complex_matrix, el_div);
-  INSTALL_BINOP (op_el_pow, octave_float_complex, octave_float_complex_matrix, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_complex_matrix, el_ldiv);
-  INSTALL_BINOP (op_el_and, octave_float_complex, octave_float_complex_matrix, el_and);
-  INSTALL_BINOP (op_el_or, octave_float_complex, octave_float_complex_matrix, el_or);
+  INSTALL_BINOP (op_el_mul, octave_float_complex, octave_float_complex_matrix,
+                 el_mul);
+  INSTALL_BINOP (op_el_div, octave_float_complex, octave_float_complex_matrix,
+                 el_div);
+  INSTALL_BINOP (op_el_pow, octave_float_complex, octave_float_complex_matrix,
+                 el_pow);
+  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_complex_matrix,
+                 el_ldiv);
+  INSTALL_BINOP (op_el_and, octave_float_complex, octave_float_complex_matrix,
+                 el_and);
+  INSTALL_BINOP (op_el_or, octave_float_complex, octave_float_complex_matrix,
+                 el_or);
 
   INSTALL_CATOP (octave_float_complex, octave_float_complex_matrix, fcs_fcm);
   INSTALL_CATOP (octave_complex, octave_float_complex_matrix, cs_fcm);
   INSTALL_CATOP (octave_float_complex, octave_complex_matrix, fcs_cm);
 
-  INSTALL_ASSIGNCONV (octave_float_complex, octave_float_complex_matrix, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex, octave_float_complex_matrix,
+                      octave_float_complex_matrix);
 
-  INSTALL_ASSIGNCONV (octave_complex, octave_float_complex_matrix, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex, octave_float_complex_matrix,
+                      octave_complex_matrix);
 
-  INSTALL_WIDENOP (octave_float_complex, octave_float_complex_matrix, float_complex_matrix_conv);
+  INSTALL_WIDENOP (octave_float_complex, octave_float_complex_matrix,
+                   float_complex_matrix_conv);
 }
--- a/libinterp/operators/op-fcs-fcs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcs-fcs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -157,7 +157,9 @@
 {
   CAST_CONV_ARG (const octave_float_complex&);
 
-  return new octave_complex_matrix (ComplexMatrix (1, 1, static_cast<Complex>(v.float_complex_value ())));
+  return new octave_complex_matrix
+               (ComplexMatrix (1, 1,
+                               static_cast<Complex>(v.float_complex_value ())));
 }
 
 void
@@ -187,7 +189,8 @@
   INSTALL_BINOP (op_el_mul, octave_float_complex, octave_float_complex, el_mul);
   INSTALL_BINOP (op_el_div, octave_float_complex, octave_float_complex, el_div);
   INSTALL_BINOP (op_el_pow, octave_float_complex, octave_float_complex, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_complex, el_ldiv);
+  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_complex,
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_complex, octave_float_complex, el_and);
   INSTALL_BINOP (op_el_or, octave_float_complex, octave_float_complex, el_or);
 
@@ -195,13 +198,18 @@
   INSTALL_CATOP (octave_complex, octave_float_complex, cs_fcs);
   INSTALL_CATOP (octave_float_complex, octave_complex, fcs_cs);
 
-  INSTALL_ASSIGNCONV (octave_float_complex, octave_float_complex, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex, octave_float_complex,
+                      octave_float_complex_matrix);
 
-  INSTALL_ASSIGNCONV (octave_complex, octave_float_complex, octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_complex, octave_float_complex,
+                      octave_complex_matrix);
 
-  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_matrix, octave_float_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_str, octave_float_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_sq_str, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_matrix,
+                      octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_str,
+                      octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_complex, octave_null_sq_str,
+                      octave_float_complex_matrix);
 
   INSTALL_CONVOP (octave_float_complex, octave_complex_matrix,
                   float_complex_to_complex);
--- a/libinterp/operators/op-fcs-fm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcs-fm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -78,17 +78,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_complex, float_matrix, float_complex,
-               float_array, mx_el_lt)
+                    float_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_complex, float_matrix, float_complex,
-               float_array, mx_el_le)
+                    float_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_complex, float_matrix, float_complex,
-               float_array, mx_el_eq)
+                    float_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_complex, float_matrix, float_complex,
-               float_array, mx_el_ge)
+                    float_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_complex, float_matrix, float_complex,
-               float_array, mx_el_gt)
+                    float_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_complex, float_matrix, float_complex,
-               float_array, mx_el_ne)
+                    float_array, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_complex, float_matrix, float_complex,
                float_array, *)
@@ -141,7 +141,8 @@
   INSTALL_BINOP (op_el_mul, octave_float_complex, octave_float_matrix, el_mul);
   INSTALL_BINOP (op_el_div, octave_float_complex, octave_float_matrix, el_div);
   INSTALL_BINOP (op_el_pow, octave_float_complex, octave_float_matrix, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_matrix, el_ldiv);
+  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_matrix,
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_complex, octave_float_matrix, el_and);
   INSTALL_BINOP (op_el_or, octave_float_complex, octave_float_matrix, el_or);
 
--- a/libinterp/operators/op-fcs-fs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fcs-fs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -148,7 +148,8 @@
   INSTALL_BINOP (op_el_mul, octave_float_complex, octave_float_scalar, el_mul);
   INSTALL_BINOP (op_el_div, octave_float_complex, octave_float_scalar, el_div);
   INSTALL_BINOP (op_el_pow, octave_float_complex, octave_float_scalar, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_scalar, el_ldiv);
+  INSTALL_BINOP (op_el_ldiv, octave_float_complex, octave_float_scalar,
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_complex, octave_float_scalar, el_and);
   INSTALL_BINOP (op_el_or, octave_float_complex, octave_float_scalar, el_or);
 
--- a/libinterp/operators/op-fdm-fdm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fdm-fdm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -54,7 +54,8 @@
 
 DEFBINOP (div, float_diag_matrix, float_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_diag_matrix&, const octave_float_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_float_diag_matrix&,
+                   const octave_float_diag_matrix&);
 
   return xdiv (v1.float_diag_matrix_value (),
                v2.float_diag_matrix_value ());
@@ -62,7 +63,8 @@
 
 DEFBINOP (ldiv, float_diag_matrix, float_diag_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_diag_matrix&, const octave_float_diag_matrix&);
+  CAST_BINOP_ARGS (const octave_float_diag_matrix&,
+                   const octave_float_diag_matrix&);
 
   return xleftdiv (v1.float_diag_matrix_value (),
                    v2.float_diag_matrix_value ());
@@ -90,14 +92,23 @@
   INSTALL_UNOP (op_transpose, octave_float_diag_matrix, transpose);
   INSTALL_UNOP (op_hermitian, octave_float_diag_matrix, transpose);
 
-  INSTALL_BINOP (op_add, octave_float_diag_matrix, octave_float_diag_matrix, add);
-  INSTALL_BINOP (op_sub, octave_float_diag_matrix, octave_float_diag_matrix, sub);
-  INSTALL_BINOP (op_mul, octave_float_diag_matrix, octave_float_diag_matrix, mul);
-  INSTALL_BINOP (op_div, octave_float_diag_matrix, octave_float_diag_matrix, div);
-  INSTALL_BINOP (op_ldiv, octave_float_diag_matrix, octave_float_diag_matrix, ldiv);
+  INSTALL_BINOP (op_add, octave_float_diag_matrix, octave_float_diag_matrix,
+                 add);
+  INSTALL_BINOP (op_sub, octave_float_diag_matrix, octave_float_diag_matrix,
+                 sub);
+  INSTALL_BINOP (op_mul, octave_float_diag_matrix, octave_float_diag_matrix,
+                 mul);
+  INSTALL_BINOP (op_div, octave_float_diag_matrix, octave_float_diag_matrix,
+                 div);
+  INSTALL_BINOP (op_ldiv, octave_float_diag_matrix, octave_float_diag_matrix,
+                 ldiv);
 
-  INSTALL_CONVOP (octave_float_diag_matrix, octave_float_matrix, float_diag_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_float_diag_matrix, octave_diag_matrix, float_diag_matrix_to_diag_matrix);
-  INSTALL_ASSIGNCONV (octave_float_diag_matrix, octave_float_matrix, octave_float_matrix);
-  INSTALL_WIDENOP (octave_float_diag_matrix, octave_float_matrix, float_diag_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_float_diag_matrix, octave_float_matrix,
+                  float_diag_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_float_diag_matrix, octave_diag_matrix,
+                  float_diag_matrix_to_diag_matrix);
+  INSTALL_ASSIGNCONV (octave_float_diag_matrix, octave_float_matrix,
+                      octave_float_matrix);
+  INSTALL_WIDENOP (octave_float_diag_matrix, octave_float_matrix,
+                   float_diag_matrix_to_float_matrix);
 }
--- a/libinterp/operators/op-float-conv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-float-conv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -79,33 +79,54 @@
 void
 install_float_conv_ops (void)
 {
-  INSTALL_CONVOP (octave_int8_matrix, octave_float_matrix, int8_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_int16_matrix, octave_float_matrix, int16_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_int32_matrix, octave_float_matrix, int32_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_int64_matrix, octave_float_matrix, int64_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_int8_matrix, octave_float_matrix,
+                  int8_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_int16_matrix, octave_float_matrix,
+                  int16_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_int32_matrix, octave_float_matrix,
+                  int32_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_int64_matrix, octave_float_matrix,
+                  int64_matrix_to_float_matrix);
 
-  INSTALL_CONVOP (octave_uint8_matrix, octave_float_matrix, uint8_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_uint16_matrix, octave_float_matrix, uint16_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_uint32_matrix, octave_float_matrix, uint32_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_uint64_matrix, octave_float_matrix, uint64_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_uint8_matrix, octave_float_matrix,
+                  uint8_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_uint16_matrix, octave_float_matrix,
+                  uint16_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_uint32_matrix, octave_float_matrix,
+                  uint32_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_uint64_matrix, octave_float_matrix,
+                  uint64_matrix_to_float_matrix);
 
-  INSTALL_CONVOP (octave_int8_scalar, octave_float_matrix, int8_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_int16_scalar, octave_float_matrix, int16_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_int32_scalar, octave_float_matrix, int32_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_int64_scalar, octave_float_matrix, int64_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_int8_scalar, octave_float_matrix,
+                  int8_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_int16_scalar, octave_float_matrix,
+                  int16_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_int32_scalar, octave_float_matrix,
+                  int32_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_int64_scalar, octave_float_matrix,
+                  int64_scalar_to_float_matrix);
 
-  INSTALL_CONVOP (octave_uint8_scalar, octave_float_matrix, uint8_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_uint16_scalar, octave_float_matrix, uint16_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_uint32_scalar, octave_float_matrix, uint32_scalar_to_float_matrix);
-  INSTALL_CONVOP (octave_uint64_scalar, octave_float_matrix, uint64_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_uint8_scalar, octave_float_matrix,
+                  uint8_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_uint16_scalar, octave_float_matrix,
+                  uint16_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_uint32_scalar, octave_float_matrix,
+                  uint32_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_uint64_scalar, octave_float_matrix,
+                  uint64_scalar_to_float_matrix);
 
-  INSTALL_CONVOP (octave_bool_matrix, octave_float_matrix, bool_matrix_to_float_matrix);
-  INSTALL_CONVOP (octave_bool, octave_float_matrix, bool_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_bool_matrix, octave_float_matrix,
+                  bool_matrix_to_float_matrix);
+  INSTALL_CONVOP (octave_bool, octave_float_matrix,
+                  bool_scalar_to_float_matrix);
 
   INSTALL_CONVOP (octave_range, octave_float_matrix, range_to_float_matrix);
 
-  INSTALL_CONVOP (octave_char_matrix_str, octave_float_matrix, char_matrix_str_to_float_matrix);
-  INSTALL_CONVOP (octave_char_matrix_sq_str, octave_float_matrix, char_matrix_sq_str_to_float_matrix);
+  INSTALL_CONVOP (octave_char_matrix_str, octave_float_matrix,
+                  char_matrix_str_to_float_matrix);
+  INSTALL_CONVOP (octave_char_matrix_sq_str, octave_float_matrix,
+                  char_matrix_sq_str_to_float_matrix);
 
-  INSTALL_CONVOP (octave_scalar, octave_float_matrix, float_scalar_to_float_matrix);
+  INSTALL_CONVOP (octave_scalar, octave_float_matrix,
+                  float_scalar_to_float_matrix);
 }
--- a/libinterp/operators/op-fm-fcm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fm-fcm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -52,7 +52,8 @@
 
 DEFBINOP (trans_mul, float_matrix, float_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_float_matrix&, const octave_float_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_float_matrix&,
+                   const octave_float_complex_matrix&);
 
   FloatMatrix m1 = v1.float_matrix_value ();
   FloatComplexMatrix m2 = v2.float_complex_matrix_value ();
@@ -87,7 +88,7 @@
   MatrixType typ = v1.matrix_type ();
 
   FloatComplexMatrix ret = xleftdiv (v1.float_matrix_value (),
-                                v2.float_complex_matrix_value (), typ);
+                                     v2.float_complex_matrix_value (), typ);
 
   v1.matrix_type (typ);
   return ret;
@@ -100,24 +101,25 @@
   MatrixType typ = v1.matrix_type ();
 
   FloatComplexMatrix ret = xleftdiv (v1.float_matrix_value (),
-                         v2.float_complex_matrix_value (), typ, blas_trans);
+                                     v2.float_complex_matrix_value (),
+                                     typ, blas_trans);
 
   v1.matrix_type (typ);
   return ret;
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_lt)
+                    float_complex_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_le)
+                    float_complex_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_eq)
+                    float_complex_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_ge)
+                    float_complex_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_gt)
+                    float_complex_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_matrix, float_complex_matrix, float_array,
-               float_complex_array, mx_el_ne)
+                    float_complex_array, mx_el_ne)
 
 DEFNDBINOP_FN (el_mul, float_matrix, float_complex_matrix, float_array,
                float_complex_array, product)
@@ -152,7 +154,8 @@
 {
   CAST_CONV_ARG (const octave_float_matrix&);
 
-  return new octave_float_complex_matrix (FloatComplexNDArray (v.float_array_value ()));
+  return new octave_float_complex_matrix (FloatComplexNDArray
+                                           (v.float_array_value ()));
 }
 
 void
--- a/libinterp/operators/op-fm-fcs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fm-fcs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -78,17 +78,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_matrix, float_complex, float_array,
-               float_complex, mx_el_lt)
+                    float_complex, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_matrix, float_complex, float_array,
-               float_complex, mx_el_le)
+                    float_complex, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_matrix, float_complex, float_array,
-               float_complex, mx_el_eq)
+                    float_complex, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_matrix, float_complex, float_array,
-               float_complex, mx_el_ge)
+                    float_complex, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_matrix, float_complex, float_array,
-               float_complex, mx_el_gt)
+                    float_complex, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_matrix, float_complex, float_array,
-               float_complex, mx_el_ne)
+                    float_complex, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_matrix, float_complex, float_array,
                float_complex, *)
@@ -147,7 +147,8 @@
   INSTALL_BINOP (op_el_mul, octave_float_matrix, octave_float_complex, el_mul);
   INSTALL_BINOP (op_el_div, octave_float_matrix, octave_float_complex, el_div);
   INSTALL_BINOP (op_el_pow, octave_float_matrix, octave_float_complex, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_matrix, octave_float_complex, el_ldiv);
+  INSTALL_BINOP (op_el_ldiv, octave_float_matrix, octave_float_complex,
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_matrix, octave_float_complex, el_and);
   INSTALL_BINOP (op_el_or, octave_float_matrix, octave_float_complex, el_or);
 
--- a/libinterp/operators/op-fm-fm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fm-fm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -181,8 +181,10 @@
 
 DEFNDASSIGNOP_OP (assign_add, float_matrix, float_matrix, float_array, +=)
 DEFNDASSIGNOP_OP (assign_sub, float_matrix, float_matrix, float_array, -=)
-DEFNDASSIGNOP_FNOP (assign_el_mul, float_matrix, float_matrix, float_array, product_eq)
-DEFNDASSIGNOP_FNOP (assign_el_div, float_matrix, float_matrix, float_array, quotient_eq)
+DEFNDASSIGNOP_FNOP (assign_el_mul, float_matrix, float_matrix, float_array,
+                    product_eq)
+DEFNDASSIGNOP_FNOP (assign_el_div, float_matrix, float_matrix, float_array,
+                    quotient_eq)
 
 CONVDECL (float_matrix_to_matrix)
 {
@@ -222,16 +224,26 @@
   INSTALL_BINOP (op_el_ldiv, octave_float_matrix, octave_float_matrix, el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_matrix, octave_float_matrix, el_and);
   INSTALL_BINOP (op_el_or, octave_float_matrix, octave_float_matrix, el_or);
-  INSTALL_BINOP (op_el_and_not, octave_float_matrix, octave_float_matrix, el_and_not);
-  INSTALL_BINOP (op_el_or_not, octave_float_matrix, octave_float_matrix, el_or_not);
-  INSTALL_BINOP (op_el_not_and, octave_float_matrix, octave_float_matrix, el_not_and);
-  INSTALL_BINOP (op_el_not_or, octave_float_matrix, octave_float_matrix, el_not_or);
-  INSTALL_BINOP (op_trans_mul, octave_float_matrix, octave_float_matrix, trans_mul);
-  INSTALL_BINOP (op_mul_trans, octave_float_matrix, octave_float_matrix, mul_trans);
-  INSTALL_BINOP (op_herm_mul, octave_float_matrix, octave_float_matrix, trans_mul);
-  INSTALL_BINOP (op_mul_herm, octave_float_matrix, octave_float_matrix, mul_trans);
-  INSTALL_BINOP (op_trans_ldiv, octave_float_matrix, octave_float_matrix, trans_ldiv);
-  INSTALL_BINOP (op_herm_ldiv, octave_float_matrix, octave_float_matrix, trans_ldiv);
+  INSTALL_BINOP (op_el_and_not, octave_float_matrix, octave_float_matrix,
+                 el_and_not);
+  INSTALL_BINOP (op_el_or_not, octave_float_matrix, octave_float_matrix,
+                 el_or_not);
+  INSTALL_BINOP (op_el_not_and, octave_float_matrix, octave_float_matrix,
+                 el_not_and);
+  INSTALL_BINOP (op_el_not_or, octave_float_matrix, octave_float_matrix,
+                 el_not_or);
+  INSTALL_BINOP (op_trans_mul, octave_float_matrix, octave_float_matrix,
+                 trans_mul);
+  INSTALL_BINOP (op_mul_trans, octave_float_matrix, octave_float_matrix,
+                 mul_trans);
+  INSTALL_BINOP (op_herm_mul, octave_float_matrix, octave_float_matrix,
+                 trans_mul);
+  INSTALL_BINOP (op_mul_herm, octave_float_matrix, octave_float_matrix,
+                 mul_trans);
+  INSTALL_BINOP (op_trans_ldiv, octave_float_matrix, octave_float_matrix,
+                 trans_ldiv);
+  INSTALL_BINOP (op_herm_ldiv, octave_float_matrix, octave_float_matrix,
+                 trans_ldiv);
 
   INSTALL_CATOP (octave_float_matrix, octave_float_matrix, fm_fm);
   INSTALL_CATOP (octave_matrix, octave_float_matrix, m_fm);
@@ -242,14 +254,21 @@
   INSTALL_ASSIGNOP (op_asn_eq, octave_matrix,
                     octave_float_matrix, dbl_assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_sq_str, null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_null_sq_str,
+                    null_assign);
 
-  INSTALL_ASSIGNOP (op_add_eq, octave_float_matrix, octave_float_matrix, assign_add);
-  INSTALL_ASSIGNOP (op_sub_eq, octave_float_matrix, octave_float_matrix, assign_sub);
-  INSTALL_ASSIGNOP (op_el_mul_eq, octave_float_matrix, octave_float_matrix, assign_el_mul);
-  INSTALL_ASSIGNOP (op_el_div_eq, octave_float_matrix, octave_float_matrix, assign_el_div);
+  INSTALL_ASSIGNOP (op_add_eq, octave_float_matrix, octave_float_matrix,
+                    assign_add);
+  INSTALL_ASSIGNOP (op_sub_eq, octave_float_matrix, octave_float_matrix,
+                    assign_sub);
+  INSTALL_ASSIGNOP (op_el_mul_eq, octave_float_matrix, octave_float_matrix,
+                    assign_el_mul);
+  INSTALL_ASSIGNOP (op_el_div_eq, octave_float_matrix, octave_float_matrix,
+                    assign_el_div);
 
   INSTALL_CONVOP (octave_float_matrix, octave_matrix, float_matrix_to_matrix);
 }
--- a/libinterp/operators/op-fm-fs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fm-fs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -152,11 +152,16 @@
   INSTALL_CATOP (octave_matrix, octave_float_scalar, m_fs);
   INSTALL_CATOP (octave_float_matrix, octave_scalar, fm_s);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_float_scalar, assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_float_scalar,
+                    assign);
   INSTALL_ASSIGNOP (op_asn_eq, octave_matrix, octave_float_scalar, dbl_assign);
 
-  INSTALL_ASSIGNOP (op_add_eq, octave_float_matrix, octave_float_scalar, assign_add);
-  INSTALL_ASSIGNOP (op_sub_eq, octave_float_matrix, octave_float_scalar, assign_sub);
-  INSTALL_ASSIGNOP (op_mul_eq, octave_float_matrix, octave_float_scalar, assign_mul);
-  INSTALL_ASSIGNOP (op_div_eq, octave_float_matrix, octave_float_scalar, assign_div);
+  INSTALL_ASSIGNOP (op_add_eq, octave_float_matrix, octave_float_scalar,
+                    assign_add);
+  INSTALL_ASSIGNOP (op_sub_eq, octave_float_matrix, octave_float_scalar,
+                    assign_sub);
+  INSTALL_ASSIGNOP (op_mul_eq, octave_float_matrix, octave_float_scalar,
+                    assign_mul);
+  INSTALL_ASSIGNOP (op_div_eq, octave_float_matrix, octave_float_scalar,
+                    assign_div);
 }
--- a/libinterp/operators/op-fs-fcm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fs-fcm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -82,17 +82,17 @@
 }
 
 DEFNDCMPLXCMPOP_FN (lt, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_lt)
+                    float_complex_array, mx_el_lt)
 DEFNDCMPLXCMPOP_FN (le, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_le)
+                    float_complex_array, mx_el_le)
 DEFNDCMPLXCMPOP_FN (eq, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_eq)
+                    float_complex_array, mx_el_eq)
 DEFNDCMPLXCMPOP_FN (ge, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_ge)
+                    float_complex_array, mx_el_ge)
 DEFNDCMPLXCMPOP_FN (gt, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_gt)
+                    float_complex_array, mx_el_gt)
 DEFNDCMPLXCMPOP_FN (ne, float_scalar, float_complex_matrix, float_scalar,
-               float_complex_array, mx_el_ne)
+                    float_complex_array, mx_el_ne)
 
 DEFNDBINOP_OP (el_mul, float_scalar, float_complex_matrix, float_scalar,
                float_complex_array, *)
@@ -132,7 +132,8 @@
 {
   CAST_CONV_ARG (const octave_float_scalar&);
 
-  return new octave_float_complex_matrix (FloatComplexMatrix (v.float_matrix_value ()));
+  return new octave_float_complex_matrix (FloatComplexMatrix
+                                            (v.float_matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-fs-fcs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fs-fcs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -109,14 +109,18 @@
 {
   CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_complex&);
 
-  return octave_value (v1.float_scalar_value () && (v2.float_complex_value () != static_cast<float>(0.0)));
+  return octave_value (v1.float_scalar_value ()
+                       && (v2.float_complex_value ()
+                            != static_cast<float>(0.0)));
 }
 
 DEFBINOP (el_or, float_scalar, float_complex)
 {
   CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_complex&);
 
-  return octave_value (v1.float_scalar_value () || (v2.float_complex_value () != static_cast<float>(0.0)));
+  return octave_value (v1.float_scalar_value ()
+                       || (v2.float_complex_value ()
+                            != static_cast<float>(0.0)));
 }
 
 DEFNDCATOP_FN (fs_fcs, float_scalar, float_complex, float_array,
@@ -146,7 +150,8 @@
   INSTALL_BINOP (op_el_mul, octave_float_scalar, octave_float_complex, el_mul);
   INSTALL_BINOP (op_el_div, octave_float_scalar, octave_float_complex, el_div);
   INSTALL_BINOP (op_el_pow, octave_float_scalar, octave_float_complex, el_pow);
-  INSTALL_BINOP (op_el_ldiv, octave_float_scalar, octave_float_complex, el_ldiv);
+  INSTALL_BINOP (op_el_ldiv, octave_float_scalar, octave_float_complex,
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_float_scalar, octave_float_complex, el_and);
   INSTALL_BINOP (op_el_or, octave_float_scalar, octave_float_complex, el_or);
 
--- a/libinterp/operators/op-fs-fm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fs-fm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -79,7 +79,7 @@
 DEFNDBINOP_FN (ge, float_scalar, float_matrix, float_scalar,
                float_array, mx_el_ge)
 DEFNDBINOP_FN (gt, float_scalar, float_matrix, float_scalar,
-float_array, mx_el_gt)
+               float_array, mx_el_gt)
 DEFNDBINOP_FN (ne, float_scalar, float_matrix, float_scalar,
                float_array, mx_el_ne)
 
@@ -147,7 +147,8 @@
   INSTALL_CATOP (octave_scalar, octave_float_matrix, s_fm);
   INSTALL_CATOP (octave_float_scalar, octave_matrix, fs_m);
 
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_matrix, octave_float_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_matrix,
+                      octave_float_matrix);
   INSTALL_ASSIGNCONV (octave_scalar, octave_float_matrix, octave_matrix);
 
   INSTALL_WIDENOP (octave_float_scalar, octave_float_matrix, matrix_conv);
--- a/libinterp/operators/op-fs-fs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-fs-fs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -127,7 +127,8 @@
 DEFSCALARBOOLOP_OP (el_and, float_scalar, float_scalar, &&)
 DEFSCALARBOOLOP_OP (el_or, float_scalar, float_scalar, ||)
 
-DEFNDCATOP_FN (fs_fs, float_scalar, float_scalar, float_array, float_array, concat)
+DEFNDCATOP_FN (fs_fs, float_scalar, float_scalar, float_array, float_array,
+               concat)
 DEFNDCATOP_FN (s_fs, scalar, float_scalar, float_array, float_array, concat)
 DEFNDCATOP_FN (fs_s, float_scalar, scalar, float_array, float_array, concat)
 
@@ -135,7 +136,8 @@
 {
   CAST_CONV_ARG (const octave_float_scalar&);
 
-  return new octave_matrix (Matrix (1, 1, static_cast<double>(v.float_value ())));
+  return new octave_matrix (Matrix (1, 1,
+                                    static_cast<double>(v.float_value ())));
 }
 
 void
@@ -173,12 +175,16 @@
   INSTALL_CATOP (octave_scalar, octave_float_scalar, s_fs);
   INSTALL_CATOP (octave_float_scalar, octave_scalar, fs_s);
 
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_scalar, octave_float_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_scalar,
+                      octave_float_matrix);
   INSTALL_ASSIGNCONV (octave_scalar, octave_float_scalar, octave_matrix);
 
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_matrix, octave_float_matrix);
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_str, octave_float_matrix);
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_sq_str, octave_float_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_matrix,
+                      octave_float_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_str,
+                      octave_float_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_sq_str,
+                      octave_float_matrix);
 
   INSTALL_CONVOP (octave_float_scalar, octave_matrix, float_to_scalar);
 }
--- a/libinterp/operators/op-m-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -95,7 +95,7 @@
   MatrixType typ = v1.matrix_type ();
 
   ComplexMatrix ret = xleftdiv (v1.matrix_value (),
-                         v2.complex_matrix_value (), typ, blas_trans);
+                                v2.complex_matrix_value (), typ, blas_trans);
 
   v1.matrix_type (typ);
   return ret;
@@ -154,13 +154,17 @@
   INSTALL_BINOP (op_el_or, octave_matrix, octave_complex_matrix, el_or);
   INSTALL_BINOP (op_trans_mul, octave_matrix, octave_complex_matrix, trans_mul);
   INSTALL_BINOP (op_herm_mul, octave_matrix, octave_complex_matrix, trans_mul);
-  INSTALL_BINOP (op_trans_ldiv, octave_matrix, octave_complex_matrix, trans_ldiv);
-  INSTALL_BINOP (op_herm_ldiv, octave_matrix, octave_complex_matrix, trans_ldiv);
+  INSTALL_BINOP (op_trans_ldiv, octave_matrix, octave_complex_matrix,
+                 trans_ldiv);
+  INSTALL_BINOP (op_herm_ldiv, octave_matrix, octave_complex_matrix,
+                 trans_ldiv);
 
   INSTALL_CATOP (octave_matrix, octave_complex_matrix, m_cm);
 
-  INSTALL_ASSIGNCONV (octave_matrix, octave_complex_matrix, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_matrix, octave_complex_matrix, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_matrix, octave_complex_matrix,
+                      octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_matrix, octave_complex_matrix,
+                      octave_float_complex_matrix);
 
   INSTALL_WIDENOP (octave_matrix, octave_complex_matrix, complex_matrix_conv);
 }
--- a/libinterp/operators/op-m-cs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-cs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -136,5 +136,6 @@
   INSTALL_CATOP (octave_matrix, octave_complex, m_cs);
 
   INSTALL_ASSIGNCONV (octave_matrix, octave_complex, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_matrix, octave_complex, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_matrix, octave_complex,
+                      octave_float_complex_matrix);
 }
--- a/libinterp/operators/op-m-m.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-m.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -112,7 +112,8 @@
   CAST_BINOP_ARGS (const octave_matrix&, const octave_matrix&);
   MatrixType typ = v1.matrix_type ();
 
-  Matrix ret = xleftdiv (v1.matrix_value (), v2.matrix_value (), typ, blas_trans);
+  Matrix ret = xleftdiv (v1.matrix_value (), v2.matrix_value (),
+                         typ, blas_trans);
 
   v1.matrix_type (typ);
   return ret;
--- a/libinterp/operators/op-m-s.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-s.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -107,7 +107,8 @@
 
 DEFNDASSIGNOP_FN (assign, matrix, scalar, scalar, assign)
 DEFNDASSIGNOP_FN (sgl_assign, float_matrix, scalar, float_scalar, assign)
-DEFNDASSIGNOP_FN (clx_sgl_assign, float_complex_matrix, scalar, float_complex, assign)
+DEFNDASSIGNOP_FN (clx_sgl_assign, float_complex_matrix, scalar, float_complex,
+                  assign)
 
 DEFNDASSIGNOP_OP (assign_add, matrix, scalar, scalar, +=)
 DEFNDASSIGNOP_OP (assign_sub, matrix, scalar, scalar, -=)
@@ -146,7 +147,8 @@
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_matrix, octave_scalar, assign);
   INSTALL_ASSIGNOP (op_asn_eq, octave_float_matrix, octave_scalar, sgl_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix, octave_scalar, clx_sgl_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix, octave_scalar,
+                    clx_sgl_assign);
 
   INSTALL_ASSIGNOP (op_add_eq, octave_matrix, octave_scalar, assign_add);
   INSTALL_ASSIGNOP (op_sub_eq, octave_matrix, octave_scalar, assign_sub);
--- a/libinterp/operators/op-m-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -107,8 +107,8 @@
                    const octave_sparse_complex_matrix&);
 
   return octave_value
-    (elem_xpow (SparseMatrix (v1.matrix_value ()),
-                v2.sparse_complex_matrix_value ()));
+         (elem_xpow (SparseMatrix (v1.matrix_value ()),
+                     v2.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP (el_ldiv, matrix, sparse_complex_matrix)
@@ -116,7 +116,7 @@
   CAST_BINOP_ARGS (const octave_matrix&,
                    const octave_sparse_complex_matrix&);
   return octave_value
-    (quotient (v2.sparse_complex_matrix_value (), v1.matrix_value ()));
+         (quotient (v2.sparse_complex_matrix_value (), v1.matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, matrix, sparse_complex_matrix, mx_el_and)
@@ -134,7 +134,7 @@
 {
   CAST_CONV_ARG (const octave_matrix&);
   return new octave_sparse_complex_matrix
-    (SparseComplexMatrix (v.complex_matrix_value ()));
+         (SparseComplexMatrix (v.complex_matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-m-sm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-m-sm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -112,7 +112,7 @@
   CAST_BINOP_ARGS (const octave_matrix&, const octave_sparse_matrix&);
 
   return octave_value
-    (quotient (v2.sparse_matrix_value (), v1.matrix_value ()));
+         (quotient (v2.sparse_matrix_value (), v1.matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, matrix, sparse_matrix, mx_el_and)
--- a/libinterp/operators/op-pm-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-pm-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,8 @@
 
 DEFBINOP (mul_pm_scm, perm_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_perm_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_perm_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -53,7 +54,8 @@
 
 DEFBINOP (ldiv_pm_scm, perm_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_perm_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_perm_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   return v1.perm_matrix_value ().inverse () * v2.sparse_complex_matrix_value ();
 }
@@ -62,7 +64,8 @@
 
 DEFBINOP (mul_scm_pm, sparse_complex_matrix, perm_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_perm_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_perm_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     {
@@ -78,7 +81,8 @@
 
 DEFBINOP (div_scm_pm, sparse_complex_matrix, perm_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_perm_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_perm_matrix&);
 
   return v1.sparse_complex_matrix_value () * v2.perm_matrix_value ().inverse ();
 }
--- a/libinterp/operators/op-range.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-range.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -128,7 +128,7 @@
   INSTALL_CATOP (octave_bool_matrix, octave_range, bm_r);
   INSTALL_CATOP (octave_char_matrix, octave_range, chm_r);
 
-  // FIXME -- this would be unneccessary if
+  // FIXME: this would be unneccessary if
   // octave_base_value::numeric_assign always tried converting lhs
   // before rhs.
 
--- a/libinterp/operators/op-s-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-s-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -135,8 +135,10 @@
 
   INSTALL_CATOP (octave_scalar, octave_complex_matrix, s_cm);
 
-  INSTALL_ASSIGNCONV (octave_scalar, octave_complex_matrix, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_complex_matrix, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_scalar, octave_complex_matrix,
+                      octave_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_complex_matrix,
+                      octave_float_complex_matrix);
 
   INSTALL_WIDENOP (octave_scalar, octave_complex_matrix, complex_matrix_conv);
 }
--- a/libinterp/operators/op-s-cs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-s-cs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -145,5 +145,6 @@
   INSTALL_CATOP (octave_scalar, octave_complex, s_cs);
 
   INSTALL_ASSIGNCONV (octave_scalar, octave_complex, octave_complex_matrix);
-  INSTALL_ASSIGNCONV (octave_float_scalar, octave_complex, octave_float_complex_matrix);
+  INSTALL_ASSIGNCONV (octave_float_scalar, octave_complex,
+                      octave_float_complex_matrix);
 }
--- a/libinterp/operators/op-s-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-s-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -129,7 +129,7 @@
   CAST_BINOP_ARGS (octave_scalar&, const octave_sparse_complex_matrix&);
   SparseMatrix tmp (1, 1, v1.scalar_value ());
   return octave_value
-    (tmp.concat (v2.sparse_complex_matrix_value (), ra_idx));
+         (tmp.concat (v2.sparse_complex_matrix_value (), ra_idx));
 }
 
 DEFCONV (sparse_complex_matrix_conv, scalar, sparse_complex_matrix)
@@ -137,7 +137,7 @@
   CAST_CONV_ARG (const octave_scalar&);
 
   return new octave_sparse_complex_matrix
-    (SparseComplexMatrix (v.complex_matrix_value ()));
+         (SparseComplexMatrix (v.complex_matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-sbm-b.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sbm-b.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -92,7 +92,7 @@
 {
   octave_sparse_bool_matrix& v1 = dynamic_cast<octave_sparse_bool_matrix&> (a1);
 
-  // FIXME -- perhaps add a warning for this conversion if the values
+  // FIXME: perhaps add a warning for this conversion if the values
   // are not all 0 or 1?
 
   SparseBoolMatrix v2 (1, 1, a2.bool_value ());
--- a/libinterp/operators/op-sbm-bm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sbm-bm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -98,7 +98,7 @@
 {
   octave_sparse_bool_matrix& v1 = dynamic_cast<octave_sparse_bool_matrix&> (a1);
 
-  // FIXME -- perhaps add a warning for this conversion if the values
+  // FIXME: perhaps add a warning for this conversion if the values
   // are not all 0 or 1?
 
   SparseBoolMatrix v2 (a2.bool_array_value ());
--- a/libinterp/operators/op-sbm-sbm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sbm-sbm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -79,7 +79,8 @@
 {
   CAST_CONV_ARG (const octave_sparse_bool_matrix&);
 
-  return new octave_sparse_matrix (SparseMatrix (v.sparse_bool_matrix_value ()));
+  return new octave_sparse_matrix (SparseMatrix
+                                    (v.sparse_bool_matrix_value ()));
 }
 
 void
--- a/libinterp/operators/op-scm-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -67,7 +67,8 @@
 
 DEFBINOP (ldiv, sparse_complex_matrix, complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_complex_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     {
@@ -83,7 +84,7 @@
       MatrixType typ = v1.matrix_type ();
 
       ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (),
-                      v2.complex_matrix_value (), typ);
+                                    v2.complex_matrix_value (), typ);
 
       v1.matrix_type (typ);
       return ret;
@@ -109,8 +110,8 @@
                    const octave_complex_matrix&);
 
   return octave_value
-    (elem_xpow (v1.sparse_complex_matrix_value (), SparseComplexMatrix
-                (v2.complex_matrix_value ())));
+         (elem_xpow (v1.sparse_complex_matrix_value (), SparseComplexMatrix
+                     (v2.complex_matrix_value ())));
 }
 
 DEFBINOP (el_ldiv, sparse_complex_matrix, matrix)
@@ -131,7 +132,7 @@
                    const octave_complex_matrix&);
   SparseComplexMatrix tmp (v2.complex_matrix_value ());
   return octave_value
-    (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
+         (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
 }
 
 DEFASSIGNOP (assign, sparse_complex_matrix, complex_matrix)
--- a/libinterp/operators/op-scm-cs.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-cs.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -125,7 +125,7 @@
                    const octave_complex&);
 
   return octave_value
-    (x_el_div (v2.complex_value (), v1.sparse_complex_matrix_value ()));
+         (x_el_div (v2.complex_value (), v1.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_complex_matrix, complex, mx_el_and)
@@ -136,7 +136,7 @@
   CAST_BINOP_ARGS (octave_sparse_complex_matrix&, const octave_complex&);
   SparseComplexMatrix tmp (1, 1, v2.complex_value ());
   return octave_value
-    (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
+         (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
 }
 
 DEFASSIGNOP (assign, sparse_complex_matrix, complex)
--- a/libinterp/operators/op-scm-m.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-m.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -107,8 +107,8 @@
                    const octave_matrix&);
 
   return octave_value
-    (elem_xpow (v1.sparse_complex_matrix_value (), SparseMatrix
-                (v2.matrix_value ())));
+         (elem_xpow (v1.sparse_complex_matrix_value (), SparseMatrix
+                     (v2.matrix_value ())));
 }
 
 DEFBINOP (el_ldiv, sparse_complex_matrix, matrix)
@@ -117,7 +117,7 @@
                    const octave_matrix&);
 
   return octave_value
-    (quotient (v2.matrix_value (), v1.sparse_complex_matrix_value ()));
+         (quotient (v2.matrix_value (), v1.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_complex_matrix, matrix, mx_el_and)
@@ -128,7 +128,7 @@
   CAST_BINOP_ARGS (octave_sparse_complex_matrix&, const octave_matrix&);
   SparseMatrix tmp (v2.matrix_value ());
   return octave_value
-    (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
+         (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
 }
 
 DEFASSIGNOP (assign, sparse_complex_matrix, matrix)
--- a/libinterp/operators/op-scm-s.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-s.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -131,7 +131,7 @@
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_scalar&);
 
   return octave_value
-    (x_el_div (v2.double_value (), v1.sparse_complex_matrix_value ()));
+         (x_el_div (v2.double_value (), v1.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_complex_matrix, scalar, mx_el_and)
@@ -142,7 +142,7 @@
   CAST_BINOP_ARGS (octave_sparse_complex_matrix&, const octave_scalar&);
   SparseComplexMatrix tmp (1, 1, v2.complex_value ());
   return octave_value
-    (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
+         (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx));
 }
 
 DEFASSIGNOP (assign, sparse_complex_matrix, scalar)
--- a/libinterp/operators/op-scm-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,16 +60,16 @@
 {
   CAST_UNOP_ARG (const octave_sparse_complex_matrix&);
   return octave_value
-    (v.sparse_complex_matrix_value ().transpose (),
-     v.matrix_type ().transpose ());
+         (v.sparse_complex_matrix_value ().transpose (),
+          v.matrix_type ().transpose ());
 }
 
 DEFUNOP (hermitian, sparse_complex_matrix)
 {
   CAST_UNOP_ARG (const octave_sparse_complex_matrix&);
   return octave_value
-    (v.sparse_complex_matrix_value ().hermitian (),
-     v.matrix_type ().transpose ());
+         (v.sparse_complex_matrix_value ().hermitian (),
+          v.matrix_type ().transpose ());
 }
 
 #if 0
--- a/libinterp/operators/op-scm-sm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-scm-sm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -47,7 +47,8 @@
 
 DEFBINOP (div, sparse_complex_matrix, sparse_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_sparse_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_sparse_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -77,7 +78,8 @@
 
 DEFBINOP (ldiv, sparse_complex_matrix, sparse_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_sparse_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
+                   const octave_sparse_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     {
@@ -116,8 +118,8 @@
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
                    const octave_sparse_matrix&);
 
-  return octave_value
-    (quotient (v2.sparse_matrix_value (), v1.sparse_complex_matrix_value ()));
+  return octave_value (quotient (v2.sparse_matrix_value (),
+                                 v1.sparse_complex_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_complex_matrix, sparse_matrix, mx_el_and)
--- a/libinterp/operators/op-sm-cm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sm-cm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -106,8 +106,8 @@
                    const octave_complex_matrix&);
 
   return octave_value
-    (elem_xpow (v1.sparse_matrix_value (), SparseComplexMatrix
-                (v2.complex_matrix_value ())));
+         (elem_xpow (v1.sparse_matrix_value (), SparseComplexMatrix
+                     (v2.complex_matrix_value ())));
 }
 
 DEFBINOP (el_ldiv, sparse_matrix, complex_matrix)
@@ -116,7 +116,7 @@
                    const octave_complex_matrix&);
 
   return octave_value
-    (quotient (v2.complex_matrix_value (), v1.sparse_matrix_value ()));
+         (quotient (v2.complex_matrix_value (), v1.sparse_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_matrix, complex_matrix, mx_el_and)
--- a/libinterp/operators/op-sm-m.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sm-m.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -113,7 +113,7 @@
   CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_matrix&);
 
   return octave_value
-    (quotient (v2.matrix_value (), v1.sparse_matrix_value ()));
+         (quotient (v2.matrix_value (), v1.sparse_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_matrix, matrix, mx_el_and)
--- a/libinterp/operators/op-sm-s.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sm-s.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -124,7 +124,7 @@
   CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_scalar&);
 
   return octave_value
-    (x_el_div (v2.complex_value (), v1.sparse_matrix_value ()));
+         (x_el_div (v2.complex_value (), v1.sparse_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_matrix, scalar, mx_el_and)
--- a/libinterp/operators/op-sm-scm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sm-scm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -47,7 +47,8 @@
 
 DEFBINOP (div, sparse_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v2.rows () == 1 && v2.columns () == 1)
     {
@@ -62,7 +63,7 @@
     {
       MatrixType typ = v2.matrix_type ();
       SparseComplexMatrix ret = xdiv (v1.sparse_matrix_value (),
-                                  v2.sparse_complex_matrix_value (), typ);
+                                      v2.sparse_complex_matrix_value (), typ);
 
       v2.matrix_type (typ);
       return ret;
@@ -77,7 +78,8 @@
 
 DEFBINOP (ldiv, sparse_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_sparse_matrix&,
+                   const octave_sparse_complex_matrix&);
 
   if (v1.rows () == 1 && v1.columns () == 1)
     {
@@ -117,8 +119,8 @@
   CAST_BINOP_ARGS (const octave_sparse_matrix&,
                    const octave_sparse_complex_matrix&);
 
-  return octave_value
-    (quotient (v2.sparse_complex_matrix_value (), v1.sparse_matrix_value ()));
+  return octave_value (quotient (v2.sparse_complex_matrix_value (),
+                                 v1.sparse_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_matrix, sparse_complex_matrix, mx_el_and)
--- a/libinterp/operators/op-sm-sm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-sm-sm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -56,15 +56,17 @@
 
 // DEFBINOP_OP (sub, sparse_matrix, sparse_matrix, -)
 
-  static octave_value
-  oct_binop_sub (const octave_base_value& a1, const octave_base_value& a2)
-  {
-    const octave_sparse_matrix& v1 = dynamic_cast<const octave_sparse_matrix&> (a1);
-    const octave_sparse_matrix& v2 = dynamic_cast<const octave_sparse_matrix&> (a2);
-    SparseMatrix m = v1.sparse_matrix_value () - v2.sparse_matrix_value ();
+static octave_value
+oct_binop_sub (const octave_base_value& a1, const octave_base_value& a2)
+{
+  const octave_sparse_matrix& v1 =
+    dynamic_cast<const octave_sparse_matrix&> (a1);
+  const octave_sparse_matrix& v2 =
+    dynamic_cast<const octave_sparse_matrix&> (a2);
+  SparseMatrix m = v1.sparse_matrix_value () - v2.sparse_matrix_value ();
 
-    return octave_value (m);
-  }
+  return octave_value (m);
+}
 
 DEFBINOP_OP (mul, sparse_matrix, sparse_matrix, *)
 
@@ -139,7 +141,7 @@
 {
   CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_sparse_matrix&);
   return octave_value
-    (quotient (v2.sparse_matrix_value (), v1.sparse_matrix_value ()));
+         (quotient (v2.sparse_matrix_value (), v1.sparse_matrix_value ()));
 }
 
 DEFBINOP_FN (el_and, sparse_matrix, sparse_matrix, mx_el_and)
@@ -190,7 +192,10 @@
   INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_sparse_matrix,
                     assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_sq_str, null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_matrix, octave_null_sq_str,
+                    null_assign);
 }
--- a/libinterp/operators/op-str-m.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-str-m.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -54,7 +54,8 @@
 install_str_m_ops (void)
 {
   INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_matrix, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_matrix, assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_matrix,
+                    assign);
 
   INSTALL_CATOP (octave_char_matrix_str, octave_matrix, str_m);
   INSTALL_CATOP (octave_char_matrix_sq_str, octave_matrix, str_m);
--- a/libinterp/operators/op-str-s.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-str-s.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -54,7 +54,8 @@
 install_str_s_ops (void)
 {
   INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_scalar, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_scalar, assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_scalar,
+                    assign);
 
   INSTALL_CATOP (octave_char_matrix_str, octave_scalar, str_s);
   INSTALL_CATOP (octave_char_matrix_sq_str, octave_scalar, str_s);
--- a/libinterp/operators/op-str-str.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/op-str-str.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -77,12 +77,18 @@
       } \
   }
 
-DEFCHARNDBINOP_FN (lt, <, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_lt)
-DEFCHARNDBINOP_FN (le, <=, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_le)
-DEFCHARNDBINOP_FN (eq, ==, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_eq)
-DEFCHARNDBINOP_FN (ge, >=, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_ge)
-DEFCHARNDBINOP_FN (gt, >, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_gt)
-DEFCHARNDBINOP_FN (ne, !=, char_matrix_str, char_matrix_str, char_array, char_array, mx_el_ne)
+DEFCHARNDBINOP_FN (lt, <, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_lt)
+DEFCHARNDBINOP_FN (le, <=, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_le)
+DEFCHARNDBINOP_FN (eq, ==, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_eq)
+DEFCHARNDBINOP_FN (ge, >=, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_ge)
+DEFCHARNDBINOP_FN (gt, >, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_gt)
+DEFCHARNDBINOP_FN (ne, !=, char_matrix_str, char_matrix_str, char_array,
+                   char_array, mx_el_ne)
 
 DEFASSIGNOP (assign, char_matrix_str, char_matrix_str)
 {
@@ -108,48 +114,66 @@
   INSTALL_BINOP (op_lt, octave_char_matrix_str, octave_char_matrix_str, lt);
   INSTALL_BINOP (op_lt, octave_char_matrix_str, octave_char_matrix_sq_str, lt);
   INSTALL_BINOP (op_lt, octave_char_matrix_sq_str, octave_char_matrix_str, lt);
-  INSTALL_BINOP (op_lt, octave_char_matrix_sq_str, octave_char_matrix_sq_str, lt);
+  INSTALL_BINOP (op_lt, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 lt);
 
   INSTALL_BINOP (op_le, octave_char_matrix_str, octave_char_matrix_str, le);
   INSTALL_BINOP (op_le, octave_char_matrix_str, octave_char_matrix_sq_str, le);
   INSTALL_BINOP (op_le, octave_char_matrix_sq_str, octave_char_matrix_str, le);
-  INSTALL_BINOP (op_le, octave_char_matrix_sq_str, octave_char_matrix_sq_str, le);
+  INSTALL_BINOP (op_le, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 le);
 
   INSTALL_BINOP (op_eq, octave_char_matrix_str, octave_char_matrix_str, eq);
   INSTALL_BINOP (op_eq, octave_char_matrix_str, octave_char_matrix_sq_str, eq);
   INSTALL_BINOP (op_eq, octave_char_matrix_sq_str, octave_char_matrix_str, eq);
-  INSTALL_BINOP (op_eq, octave_char_matrix_sq_str, octave_char_matrix_sq_str, eq);
+  INSTALL_BINOP (op_eq, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 eq);
 
   INSTALL_BINOP (op_ge, octave_char_matrix_str, octave_char_matrix_str, ge);
   INSTALL_BINOP (op_ge, octave_char_matrix_str, octave_char_matrix_sq_str, ge);
   INSTALL_BINOP (op_ge, octave_char_matrix_sq_str, octave_char_matrix_str, ge);
-  INSTALL_BINOP (op_ge, octave_char_matrix_sq_str, octave_char_matrix_sq_str, ge);
+  INSTALL_BINOP (op_ge, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 ge);
 
   INSTALL_BINOP (op_gt, octave_char_matrix_str, octave_char_matrix_str, gt);
   INSTALL_BINOP (op_gt, octave_char_matrix_str, octave_char_matrix_sq_str, gt);
   INSTALL_BINOP (op_gt, octave_char_matrix_sq_str, octave_char_matrix_str, gt);
-  INSTALL_BINOP (op_gt, octave_char_matrix_sq_str, octave_char_matrix_sq_str, gt);
+  INSTALL_BINOP (op_gt, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 gt);
 
   INSTALL_BINOP (op_ne, octave_char_matrix_str, octave_char_matrix_str, ne);
   INSTALL_BINOP (op_ne, octave_char_matrix_str, octave_char_matrix_sq_str, ne);
   INSTALL_BINOP (op_ne, octave_char_matrix_sq_str, octave_char_matrix_str, ne);
-  INSTALL_BINOP (op_ne, octave_char_matrix_sq_str, octave_char_matrix_sq_str, ne);
+  INSTALL_BINOP (op_ne, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
+                 ne);
 
   INSTALL_CATOP (octave_char_matrix_str, octave_char_matrix_str, str_str);
   INSTALL_CATOP (octave_char_matrix_str, octave_char_matrix_sq_str, str_str);
   INSTALL_CATOP (octave_char_matrix_sq_str, octave_char_matrix_str, str_str);
   INSTALL_CATOP (octave_char_matrix_sq_str, octave_char_matrix_sq_str, str_str);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_char_matrix_str, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_char_matrix_sq_str, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_char_matrix_str, assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_char_matrix_sq_str, assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_char_matrix_str,
+                    assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str,
+                    octave_char_matrix_sq_str,
+                    assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str,
+                    octave_char_matrix_str,
+                    assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str,
+                    octave_char_matrix_sq_str, assign);
 
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_sq_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_matrix, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_str, null_assign);
-  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_sq_str, null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_str, octave_null_sq_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_matrix,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_str,
+                    null_assign);
+  INSTALL_ASSIGNOP (op_asn_eq, octave_char_matrix_sq_str, octave_null_sq_str,
+                    null_assign);
 
 }
--- a/libinterp/operators/ops.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/operators/ops.h	Tue Nov 05 12:27:42 2013 -0500
@@ -245,7 +245,7 @@
     return octave_value (op v.CONCAT2(e, _value) ()); \
   }
 
-// FIXME -- in some cases, the constructor isn't necessary.
+// FIXME: in some cases, the constructor isn't necessary.
 
 #define DEFUNOP_FN(name, t, f) \
   UNOPDECL (name, a) \
@@ -318,7 +318,7 @@
       (v1.CONCAT2(e1, _value) () op v2.CONCAT2(e2, _value) ()); \
   }
 
-// FIXME -- in some cases, the constructor isn't necessary.
+// FIXME: in some cases, the constructor isn't necessary.
 
 #define DEFBINOP_FN(name, t1, t2, f) \
   BINOPDECL (name, a1, a2) \
@@ -352,7 +352,7 @@
 #define DEFCATOP(name, t1, t2)  \
   CATOPDECL (name, a1, a2)
 
-// FIXME -- in some cases, the constructor isn't necessary.
+// FIXME: in some cases, the constructor isn't necessary.
 
 #define DEFCATOP_FN(name, t1, t2, f) \
   CATOPDECL (name, a1, a2) \
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libinterp/options-usage.h	Tue Nov 05 12:27:42 2013 -0500
@@ -0,0 +1,178 @@
+/*
+
+Copyright (C) 1993-2013 John W. Eaton
+
+This file is part of Octave.
+
+Octave is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 3 of the License, or (at your
+option) any later version.
+
+Octave is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with Octave; see the file COPYING.  If not, see
+<http://www.gnu.org/licenses/>.
+
+*/
+
+#if !defined (octave_options_usage_h)
+#define octave_options_usage_h 1
+
+#include <iosfwd>
+
+#include "version.h"
+
+// Usage message
+static const char *usage_string =
+  "octave [-HVWdfhiqvx] [--debug] [--debug-jit] [--doc-cache-file file]\n\
+       [--echo-commands] [--eval CODE] [--exec-path path]\n\
+       [--force-gui] [--help] [--image-path path]\n\
+       [--info-file file] [--info-program prog] [--interactive]\n\
+       [--jit-compiler] [--line-editing] [--no-gui] [--no-history]\n\
+       [--no-init-file] [--no-init-path] [--no-line-editing]\n\
+       [--no-site-file] [--no-window-system] [--norc] [-p path]\n\
+       [--path path] [--persist] [--silent] [--traditional]\n\
+       [--verbose] [--version] [file]";
+
+// This is here so that it's more likely that the usage message and
+// the real set of options will agree.  Note: the '+' must come first
+// to prevent getopt from permuting arguments!
+static const char *short_opts = "+HWVdfhip:qvx";
+
+// Long options.  See the comments in getopt.h for the meanings of the
+// fields in this structure.
+#define BUILT_IN_DOCSTRINGS_FILE_OPTION 1
+#define DOC_CACHE_FILE_OPTION 2
+#define EVAL_OPTION 3
+#define EXEC_PATH_OPTION 4
+#define FORCE_GUI_OPTION 5
+#define IMAGE_PATH_OPTION 6
+#define INFO_FILE_OPTION 7
+#define INFO_PROG_OPTION 8
+#define DEBUG_JIT_OPTION 9
+#define JIT_COMPILER_OPTION 10
+#define LINE_EDITING_OPTION 11
+#define NO_GUI_OPTION 12
+#define NO_INIT_FILE_OPTION 13
+#define NO_INIT_PATH_OPTION 14
+#define NO_LINE_EDITING_OPTION 15
+#define NO_SITE_FILE_OPTION 16
+#define PERSIST_OPTION 17
+#define TEXI_MACROS_FILE_OPTION 18
+#define TRADITIONAL_OPTION 19
+struct option long_opts[] = {
+  { "braindead",                no_argument,       0, TRADITIONAL_OPTION },
+  { "built-in-docstrings-file", required_argument, 0, BUILT_IN_DOCSTRINGS_FILE_OPTION },
+  { "debug",                    no_argument,       0, 'd' },
+  { "debug-jit",                no_argument,       0, DEBUG_JIT_OPTION },
+  { "doc-cache-file",           required_argument, 0, DOC_CACHE_FILE_OPTION },
+  { "echo-commands",            no_argument,       0, 'x' },
+  { "eval",                     required_argument, 0, EVAL_OPTION },
+  { "exec-path",                required_argument, 0, EXEC_PATH_OPTION },
+  { "force-gui",                no_argument,       0, FORCE_GUI_OPTION },
+  { "help",                     no_argument,       0, 'h' },
+  { "image-path",               required_argument, 0, IMAGE_PATH_OPTION },
+  { "info-file",                required_argument, 0, INFO_FILE_OPTION },
+  { "info-program",             required_argument, 0, INFO_PROG_OPTION },
+  { "interactive",              no_argument,       0, 'i' },
+  { "jit-compiler",             no_argument,       0, JIT_COMPILER_OPTION },
+  { "line-editing",             no_argument,       0, LINE_EDITING_OPTION },
+  { "no-gui",                   no_argument,       0, NO_GUI_OPTION },
+  { "no-history",               no_argument,       0, 'H' },
+  { "no-init-file",             no_argument,       0, NO_INIT_FILE_OPTION },
+  { "no-init-path",             no_argument,       0, NO_INIT_PATH_OPTION },
+  { "no-line-editing",          no_argument,       0, NO_LINE_EDITING_OPTION },
+  { "no-site-file",             no_argument,       0, NO_SITE_FILE_OPTION },
+  { "no-window-system",         no_argument,       0, 'W' },
+  { "norc",                     no_argument,       0, 'f' },
+  { "path",                     required_argument, 0, 'p' },
+  { "persist",                  no_argument,       0, PERSIST_OPTION },
+  { "quiet",                    no_argument,       0, 'q' },
+  { "silent",                   no_argument,       0, 'q' },
+  { "texi-macros-file",         required_argument, 0, TEXI_MACROS_FILE_OPTION },
+  { "traditional",              no_argument,       0, TRADITIONAL_OPTION },
+  { "verbose",                  no_argument,       0, 'V' },
+  { "version",                  no_argument,       0, 'v' },
+  { 0,                          0,                 0, 0 }
+};
+
+// Usage message with extra help.
+
+static void
+octave_print_verbose_usage_and_exit (void)
+{
+  std::cout << octave_name_version_copyright_copying_and_warranty ()
+            << "\n\
+\n\
+Usage: octave [options] [FILE]\n\
+\n\
+Options:\n\
+\n\
+  --built-in-docstrings-file FILE Use docs for built-ins from FILE.\n\
+  --debug, -d             Enter parser debugging mode.\n\
+  --debug-jit             Enable JIT compiler debugging/tracing.\n\
+  --doc-cache-file FILE   Use doc cache file FILE.\n\
+  --echo-commands, -x     Echo commands as they are executed.\n\
+  --eval CODE             Evaluate CODE.  Exit when done unless --persist.\n\
+  --exec-path PATH        Set path for executing subprograms.\n\
+  --force-gui             Force graphical user interface to start.\n\
+  --help, -h,             Print short help message and exit.\n\
+  --image-path PATH       Add PATH to head of image search path.\n\
+  --info-file FILE        Use top-level info file FILE.\n\
+  --info-program PROGRAM  Use PROGRAM for reading info files.\n\
+  --interactive, -i       Force interactive behavior.\n\
+  --jit-compiler          Enable the JIT compiler.\n\
+  --line-editing          Force readline use for command-line editing.\n\
+  --no-gui                Disable the graphical user interface.\n\
+  --no-history, -H        Don't save commands to the history list\n\
+  --no-init-file          Don't read the ~/.octaverc or .octaverc files.\n\
+  --no-init-path          Don't initialize function search path.\n\
+  --no-line-editing       Don't use readline for command-line editing.\n\
+  --no-site-file          Don't read the site-wide octaverc file.\n\
+  --no-window-system, -W  Disable window system, including graphics.\n\
+  --norc, -f              Don't read any initialization files.\n\
+  --path PATH, -p PATH    Add PATH to head of function search path.\n\
+  --persist               Go interactive after --eval or reading from FILE.\n\
+  --silent, --quiet, -q   Don't print message at startup.\n\
+  --texi-macros-file FILE Use Texinfo macros in FILE for makeinfo command.\n\
+  --traditional           Set variables for closer MATLAB compatibility.\n\
+  --verbose, -V           Enable verbose output in some cases.\n\
+  --version, -v           Print version number and exit.\n\
+\n\
+  FILE                    Execute commands from FILE.  Exit when done\n\
+                          unless --persist is also specified.\n\
+\n"
+            << octave_www_statement ()
+            << "\n\n"
+            << octave_contrib_statement ()
+            << "\n\n"
+            << octave_bugs_statement ()
+            << "\n";
+
+  exit (0);
+}
+
+// Terse usage messsage.
+
+static void
+octave_print_terse_usage_and_exit (void)
+{
+  std::cerr << "\nusage: " << usage_string << "\n\n";
+
+  exit (1);
+}
+
+static void
+octave_print_version_and_exit (void)
+{
+  std::cout << octave_name_version_copyright_copying_warranty_and_bugs ()
+            << "\n";
+  exit (0);
+}
+
+#endif
--- a/libinterp/parse-tree/lex.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/lex.h	Tue Nov 05 12:27:42 2013 -0500
@@ -49,47 +49,37 @@
   {
   public:
 
-    symbol_table_context (void)
-      : frame_stack (), init_scope (symbol_table::current_scope ())
-    {
-      push (init_scope);
-    }
+    symbol_table_context (void) : frame_stack () { }
 
     void clear (void)
     {
       while (! frame_stack.empty ())
         frame_stack.pop ();
-
-      push (init_scope);
     }
 
     bool empty (void) const { return frame_stack.empty (); }
 
     void pop (void)
     {
+      if (empty ())
+        panic_impossible ();
+
       frame_stack.pop ();
     }
 
-    void push (symbol_table::scope_id scope)
+    void push (symbol_table::scope_id scope = symbol_table::current_scope ())
     {
       frame_stack.push (scope);
     }
 
-    void push (void)
-    {
-      push (symbol_table::current_scope ());
-    }
-
     symbol_table::scope_id curr_scope (void) const
     {
-      return frame_stack.top ();
+      return empty () ? symbol_table::current_scope () : frame_stack.top ();
     }
 
   private:
 
     std::stack<symbol_table::scope_id> frame_stack;
-
-    symbol_table::scope_id init_scope;
   };
 
   // Track nesting of square brackets, curly braces, and parentheses.
@@ -99,12 +89,12 @@
   private:
 
     enum bracket_type
-      {
-        BRACKET = 1,
-        BRACE = 2,
-        PAREN = 3,
-        ANON_FCN_BODY = 4
-      };
+    {
+      BRACKET = 1,
+      BRACE = 2,
+      PAREN = 3,
+      ANON_FCN_BODY = 4
+    };
 
   public:
 
@@ -262,14 +252,14 @@
 
     token_cache& operator = (const token_cache&);
   };
-  
+
   lexical_feedback (void)
     : end_of_input (false), at_beginning_of_statement (true),
       looking_at_anon_fcn_args (false), looking_at_return_list (false),
       looking_at_parameter_list (false), looking_at_decl_list (false),
       looking_at_initializer_expression (false),
       looking_at_matrix_or_assign_lhs (false),
-      looking_for_object_index (false), 
+      looking_for_object_index (false),
       looking_at_indirect_ref (false), parsing_class_method (false),
       parsing_classdef (false), maybe_classdef_get_set_method (false),
       parsing_classdef_get_method (false),
--- a/libinterp/parse-tree/oct-parse.in.yy	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/oct-parse.in.yy	Tue Nov 05 12:27:42 2013 -0500
@@ -2183,9 +2183,6 @@
 
   symbol_table::scope_id fcn_scope = lexer.symtab_context.curr_scope ();
 
-  if (lexer.symtab_context.empty ())
-    panic_impossible ();
-
   lexer.symtab_context.pop ();
 
   stmt->set_print_flag (false);
@@ -3099,9 +3096,6 @@
 void
 octave_base_parser::recover_from_parsing_function (void)
 {
-  if (lexer.symtab_context.empty ())
-    panic_impossible ();
-
   lexer.symtab_context.pop ();
 
   if (lexer.reading_fcn_file && curr_fcn_depth == 1
--- a/libinterp/parse-tree/parse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/parse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -98,7 +98,8 @@
 
 extern OCTINTERP_API string_vector autoloaded_functions (void);
 
-extern OCTINTERP_API string_vector reverse_lookup_autoload (const std::string& nm);
+extern OCTINTERP_API string_vector
+reverse_lookup_autoload (const std::string& nm);
 
 extern OCTINTERP_API octave_function *
 load_fcn_from_file (const std::string& file_name,
@@ -136,7 +137,7 @@
 extern OCTINTERP_API void cleanup_statement_list (tree_statement_list **lst);
 
 // Global access to currently active lexer.
-// FIXME -- to be removed after more parser+lexer refactoring.
+// FIXME: to be removed after more parser+lexer refactoring.
 extern octave_base_lexer *LEXER;
 
 class
--- a/libinterp/parse-tree/pt-all.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-all.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_all_h)
-#define octave_tree_all_h 1
+#if !defined (octave_pt_all_h)
+#define octave_pt_all_h 1
 
 #include "pt.h"
 #include "pt-arg-list.h"
--- a/libinterp/parse-tree/pt-arg-list.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-arg-list.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -127,7 +127,26 @@
 static int num_indices = 0;
 
 DEFCONSTFUN (end, , ,
-  "internal function")
+             "-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} end\n\
+The magic index @qcode{\"end\"} refers to the last valid entry in an indexing\n\
+operation.\n\
+\n\
+Example:\n\
+\n\
+@example\n\
+@group\n\
+@var{x} = [ 1 2 3 \n\
+      4 5 6 ];\n\
+@var{x}(1,end)\n\
+    @result{} 3\n\
+@var{x}(end,1)\n\
+    @result{} 4\n\
+@var{x}(end,end)\n\
+    @result{} 6\n\
+@end group\n\
+@end example\n\
+@end deftypefn")
 {
   octave_value retval;
 
@@ -295,7 +314,7 @@
       if (elt->is_identifier ())
         {
           tree_identifier *id = dynamic_cast<tree_identifier *> (elt);
-      
+
           retval.push_back (id->name ());
         }
       else if (elt->is_index_expression ())
--- a/libinterp/parse-tree/pt-arg-list.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-arg-list.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_arg_list_h)
-#define octave_tree_arg_list_h 1
+#if !defined (octave_pt_arg_list_h)
+#define octave_pt_arg_list_h 1
 
 #include <list>
 
@@ -47,11 +47,11 @@
 
   tree_argument_list (void)
     : list_includes_magic_end (false), list_includes_magic_tilde (false),
-    simple_assign_lhs (false) { }
+      simple_assign_lhs (false) { }
 
   tree_argument_list (tree_expression *t)
     : list_includes_magic_end (false), list_includes_magic_tilde (false),
-    simple_assign_lhs (false)
+      simple_assign_lhs (false)
   { append (t); }
 
   ~tree_argument_list (void);
@@ -59,15 +59,15 @@
   bool has_magic_end (void) const;
 
   bool has_magic_tilde (void) const
-    { return list_includes_magic_tilde; }
+  { return list_includes_magic_tilde; }
 
   tree_expression *remove_front (void)
-    {
-      iterator p = begin ();
-      tree_expression *retval = *p;
-      erase (p);
-      return retval;
-    }
+  {
+    iterator p = begin ();
+    tree_expression *retval = *p;
+    erase (p);
+    return retval;
+  }
 
   void append (const element_type& s);
 
--- a/libinterp/parse-tree/pt-array-list.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-array-list.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_array_list_h)
-#define octave_tree_array_list_h 1
+#if !defined (octave_pt_array_list_h)
+#define octave_pt_array_list_h 1
 
 #include "base-list.h"
 #include "pt-arg-list.h"
--- a/libinterp/parse-tree/pt-assign.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-assign.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -48,7 +48,8 @@
 tree_simple_assignment::tree_simple_assignment
   (tree_expression *le, tree_expression *re,
    bool plhs, int l, int c, octave_value::assign_op t)
-    : tree_expression (l, c), lhs (le), rhs (re), preserve (plhs), etype (t) { }
+ : tree_expression (l, c), lhs (le), rhs (re), preserve (plhs), etype (t)
+{ }
 
 tree_simple_assignment::~tree_simple_assignment (void)
 {
@@ -178,7 +179,8 @@
 tree_multi_assignment::tree_multi_assignment
   (tree_argument_list *lst, tree_expression *r,
    bool plhs, int l, int c)
-    : tree_expression (l, c), lhs (lst), rhs (r), preserve (plhs) { }
+  : tree_expression (l, c), lhs (lst), rhs (r), preserve (plhs)
+{ }
 
 tree_multi_assignment::~tree_multi_assignment (void)
 {
@@ -201,7 +203,7 @@
   return retval;
 }
 
-// FIXME -- this works, but it would look a little better if
+// FIXME: this works, but it would look a little better if
 // it were broken up into a couple of separate functions.
 
 octave_value_list
@@ -228,8 +230,10 @@
 
       // The following trick is used to keep rhs_val constant.
       const octave_value_list rhs_val1 = rhs->rvalue (n_out, &lvalue_list);
-      const octave_value_list rhs_val = (rhs_val1.length () == 1 && rhs_val1(0).is_cs_list ()
-                                         ? rhs_val1(0).list_value () : rhs_val1);
+      const octave_value_list rhs_val = (rhs_val1.length () == 1
+                                         && rhs_val1(0).is_cs_list ()
+                                         ? rhs_val1(0).list_value ()
+                                         : rhs_val1);
 
       if (error_state)
         return retval;
@@ -261,7 +265,8 @@
                   // This won't do a copy.
                   octave_value_list ovl  = rhs_val.slice (k, nel);
 
-                  ult.assign (octave_value::op_asn_eq, octave_value (ovl, true));
+                  ult.assign (octave_value::op_asn_eq,
+                              octave_value (ovl, true));
 
                   if (! error_state)
                     {
--- a/libinterp/parse-tree/pt-assign.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-assign.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_assign_h)
-#define octave_tree_assign_h 1
+#if !defined (octave_pt_assign_h)
+#define octave_pt_assign_h 1
 
 #include <iosfwd>
 #include <string>
@@ -143,7 +143,8 @@
 
   void accept (tree_walker& tw);
 
-  octave_value::assign_op op_type (void) const { return octave_value::op_asn_eq; }
+  octave_value::assign_op op_type (void) const
+  { return octave_value::op_asn_eq; }
 
 private:
 
--- a/libinterp/parse-tree/pt-binop.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-binop.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -279,7 +279,7 @@
 }
 
 DEFUN (do_braindead_shortcircuit_evaluation, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} do_braindead_shortcircuit_evaluation ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} do_braindead_shortcircuit_evaluation (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} do_braindead_shortcircuit_evaluation (@var{new_val}, \"local\")\n\
--- a/libinterp/parse-tree/pt-binop.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-binop.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_binop_h)
-#define octave_tree_binop_h 1
+#if !defined (octave_pt_binop_h)
+#define octave_pt_binop_h 1
 
 #include <string>
 
@@ -56,37 +56,36 @@
       eligible_for_braindead_shortcircuit (false) { }
 
   ~tree_binary_expression (void)
-    {
-      delete op_lhs;
-      delete op_rhs;
-    }
+  {
+    delete op_lhs;
+    delete op_rhs;
+  }
 
   void mark_braindead_shortcircuit (const std::string& file)
-    {
-      if (etype == octave_value::op_el_and
-          || etype == octave_value::op_el_or)
-        {
-          if (file.empty ())
-            warning_with_id ("Octave:possible-matlab-short-circuit-operator",
-                             "possible Matlab-style short-circuit operator at line %d, column %d",
-                             line (), column ());
-          else
-            warning_with_id ("Octave:possible-matlab-short-circuit-operator",
-                             "%s: possible Matlab-style short-circuit operator at line %d, column %d",
-                             file.c_str (), line (), column ());
+  {
+    if (etype == octave_value::op_el_and || etype == octave_value::op_el_or)
+      {
+        if (file.empty ())
+          warning_with_id ("Octave:possible-matlab-short-circuit-operator",
+                           "possible Matlab-style short-circuit operator at line %d, column %d",
+                           line (), column ());
+        else
+          warning_with_id ("Octave:possible-matlab-short-circuit-operator",
+                           "%s: possible Matlab-style short-circuit operator at line %d, column %d",
+                           file.c_str (), line (), column ());
 
-          eligible_for_braindead_shortcircuit = true;
+        eligible_for_braindead_shortcircuit = true;
 
-          op_lhs->mark_braindead_shortcircuit (file);
-          op_rhs->mark_braindead_shortcircuit (file);
-        }
-    }
+        op_lhs->mark_braindead_shortcircuit (file);
+        op_rhs->mark_braindead_shortcircuit (file);
+      }
+  }
 
   bool has_magic_end (void) const
-    {
-      return ((op_lhs && op_lhs->has_magic_end ())
-              || (op_rhs && op_rhs->has_magic_end ()));
-    }
+  {
+    return ((op_lhs && op_lhs->has_magic_end ())
+            || (op_rhs && op_rhs->has_magic_end ()));
+  }
 
   bool is_binary_expression (void) const { return true; }
 
@@ -138,11 +137,11 @@
 public:
 
   enum type
-    {
-      unknown,
-      bool_and,
-      bool_or
-    };
+  {
+    unknown,
+    bool_and,
+    bool_or
+  };
 
   tree_boolean_expression (int l = -1, int c = -1, type t = unknown)
     : tree_binary_expression (l, c), etype (t) { }
--- a/libinterp/parse-tree/pt-bp.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-bp.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_bp_h)
-#define octave_tree_bp_h 1
+#if !defined (octave_pt_bp_h)
+#define octave_pt_bp_h 1
 
 #include "input.h"
 #include "ov-usr-fcn.h"
@@ -35,7 +35,7 @@
 class
 tree_breakpoint : public tree_walker
 {
- public:
+public:
 
   enum action { set = 1, clear = 2, list = 3 };
 
@@ -138,7 +138,7 @@
 
   int get_line (void) { return found ? line : 0; }
 
- private:
+private:
 
   void do_decl_command (tree_decl_command&);
 
--- a/libinterp/parse-tree/pt-cbinop.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-cbinop.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -127,7 +127,8 @@
 // Possibly contract and/or with negation.
 
 static octave_value::compound_binary_op
-simplify_and_or_op (tree_expression *&a, tree_expression *&b, octave_value::binary_op op)
+simplify_and_or_op (tree_expression *&a, tree_expression *&b,
+                    octave_value::binary_op op)
 {
   octave_value::compound_binary_op retop
     = octave_value::unknown_compound_binary_op;
@@ -185,8 +186,10 @@
     }
 
   tree_binary_expression *ret = (ct == octave_value::unknown_compound_binary_op)
-    ? new tree_binary_expression (a, b, l, c, t)
-    : new tree_compound_binary_expression (a, b, l, c, t, ca, cb, ct);
+                                ? new tree_binary_expression (a, b, l, c, t)
+                                : new tree_compound_binary_expression (a, b, l,
+                                                                       c, t, ca,
+                                                                       cb, ct);
 
   return ret;
 }
--- a/libinterp/parse-tree/pt-cbinop.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-cbinop.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_cbinop_h)
-#define octave_tree_cbinop_h 1
+#if !defined (octave_pt_cbinop_h)
+#define octave_pt_cbinop_h 1
 
 #include <string>
 
--- a/libinterp/parse-tree/pt-cell.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-cell.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_cell_h)
-#define octave_tree_cell_h 1
+#if !defined (octave_pt_cell_h)
+#define octave_pt_cell_h 1
 
 #include <iosfwd>
 
--- a/libinterp/parse-tree/pt-check.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-check.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -523,8 +523,7 @@
 }
 
 void
-tree_checker::visit_unwind_protect_command
-  (tree_unwind_protect_command& cmd)
+tree_checker::visit_unwind_protect_command (tree_unwind_protect_command& cmd)
 {
   tree_statement_list *unwind_protect_code = cmd.body ();
 
--- a/libinterp/parse-tree/pt-check.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-check.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_checker_h)
-#define octave_tree_checker_h 1
+#if !defined (octave_pt_check_h)
+#define octave_pt_check_h 1
 
 #include "pt-walk.h"
 
--- a/libinterp/parse-tree/pt-cmd.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-cmd.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_cmd_h)
-#define octave_tree_cmd_h 1
+#if !defined (octave_pt_cmd_h)
+#define octave_pt_cmd_h 1
 
 #include <string>
 
--- a/libinterp/parse-tree/pt-colon.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-colon.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -270,7 +270,8 @@
   tree_colon_expression *new_ce = new
     tree_colon_expression (op_base ? op_base->dup (scope, context) : 0,
                            op_limit ? op_limit->dup (scope, context) : 0,
-                           op_increment ? op_increment->dup (scope, context) : 0,
+                           op_increment ? op_increment->dup (scope, context)
+                                        : 0,
                            line (), column ());
 
   new_ce->copy_base (*new_ce);
--- a/libinterp/parse-tree/pt-colon.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-colon.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,7 +20,7 @@
 
 */
 
-#if !defined (octave_tree_colon_h)
+#if !defined (octave_pt_colon_h)
 #define octave_tree_colon 1
 
 #include <string>
@@ -55,20 +55,20 @@
       op_increment (inc), save_base (false) { }
 
   ~tree_colon_expression (void)
-    {
-      if (! save_base)
-        delete op_base;
+  {
+    if (! save_base)
+      delete op_base;
 
-      delete op_limit;
-      delete op_increment;
-    }
+    delete op_limit;
+    delete op_increment;
+  }
 
   bool has_magic_end (void) const
-    {
-      return ((op_base && op_base->has_magic_end ())
-              || (op_limit && op_limit->has_magic_end ())
-              || (op_increment && op_increment->has_magic_end ()));
-    }
+  {
+    return ((op_base && op_base->has_magic_end ())
+            || (op_limit && op_limit->has_magic_end ())
+            || (op_increment && op_increment->has_magic_end ()));
+  }
 
   void preserve_base (void) { save_base = true; }
 
--- a/libinterp/parse-tree/pt-const.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-const.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -37,7 +37,8 @@
 DEFINE_OCTAVE_ALLOCATOR2 (tree_constant, 1024);
 
 void
-tree_constant::print (std::ostream& os, bool pr_as_read_syntax, bool pr_orig_text)
+tree_constant::print (std::ostream& os, bool pr_as_read_syntax,
+                      bool pr_orig_text)
 {
   if (pr_orig_text && ! orig_text.empty ())
     os << orig_text;
--- a/libinterp/parse-tree/pt-const.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-const.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_const_h)
-#define octave_tree_const_h 1
+#if !defined (octave_pt_const_h)
+#define octave_pt_const_h 1
 
 #include <iosfwd>
 #include <string>
--- a/libinterp/parse-tree/pt-decl.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-decl.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -133,10 +133,11 @@
 
 tree_command *
 tree_persistent_command::dup (symbol_table::scope_id scope,
-                          symbol_table::context_id context) const
+                              symbol_table::context_id context) const
 {
   return
-    new tree_persistent_command (init_list ? init_list->dup (scope, context) : 0,
+    new tree_persistent_command (init_list ? init_list->dup (scope, context)
+                                           : 0,
                                  line (), column ());
 }
 
--- a/libinterp/parse-tree/pt-decl.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-decl.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_decl_h)
-#define octave_tree_decl_h 1
+#if !defined (octave_pt_decl_h)
+#define octave_pt_decl_h 1
 
 class tree_expression;
 class tree_identifier;
@@ -118,14 +118,14 @@
   tree_decl_init_list (tree_decl_elt *t) { append (t); }
 
   ~tree_decl_init_list (void)
-    {
-      while (! empty ())
-        {
-          iterator p = begin ();
-          delete *p;
-          erase (p);
-        }
-    }
+  {
+    while (! empty ())
+      {
+        iterator p = begin ();
+        delete *p;
+        erase (p);
+      }
+  }
 
   tree_decl_init_list *dup (symbol_table::scope_id scope,
                             symbol_table::context_id context) const;
--- a/libinterp/parse-tree/pt-eval.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-eval.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -252,11 +252,11 @@
       octave_value init_val = expr->rvalue1 ();
 
       if (! error_state)
-       {
-         ult.assign (octave_value::op_asn_eq, init_val);
+        {
+          ult.assign (octave_value::op_asn_eq, init_val);
 
-         retval = true;
-       }
+          retval = true;
+        }
     }
 
   return retval;
@@ -300,7 +300,7 @@
   if (debug_mode)
     do_breakpoint (cmd.is_breakpoint ());
 
-  // FIXME -- need to handle PARFOR loops here using cmd.in_parallel ()
+  // FIXME: need to handle PARFOR loops here using cmd.in_parallel ()
   // and cmd.maxproc_expr ();
 
   unwind_protect frame;
@@ -711,8 +711,8 @@
           if (! Vdebugging)
             octave_call_stack::set_location (stmt.line (), stmt.column ());
 
-          // FIXME -- we need to distinguish functions from scripts to
-          // get this right.
+          // FIXME: we need to distinguish functions from scripts
+          //        to get this right.
           if ((statement_context == script
                && ((Vecho_executing_commands & ECHO_SCRIPTS)
                    || (Vecho_executing_commands & ECHO_FUNCTIONS)))
@@ -730,12 +730,12 @@
               if (debug_mode)
                 do_breakpoint (expr->is_breakpoint ());
 
-              // FIXME -- maybe all of this should be packaged in
+              // FIXME: maybe all of this should be packaged in
               // one virtual function that returns a flag saying whether
               // or not the expression will take care of binding ans and
               // printing the result.
 
-              // FIXME -- it seems that we should just have to
+              // FIXME: it seems that we should just have to
               // call expr->rvalue1 () and that should take care of
               // everything, binding ans as necessary?
 
@@ -766,7 +766,7 @@
         }
       catch (std::bad_alloc)
         {
-          // FIXME -- We want to use error_with_id here so that we set
+          // FIXME: We want to use error_with_id here so that we set
           // the error state, give users control over this error
           // message, and so that we set the error_state appropriately
           // so we'll get stack trace info when appropriate.  But
@@ -994,7 +994,7 @@
   // The unwind_protects are popped off the stack in the reverse of
   // the order they are pushed on.
 
-  // FIXME -- these statements say that if we see a break or
+  // FIXME: these statements say that if we see a break or
   // return statement in the cleanup block, that we want to use the
   // new value of the breaking or returning flag instead of restoring
   // the previous value.  Is that the right thing to do?  I think so.
@@ -1257,7 +1257,7 @@
 }
 
 DEFUN (max_recursion_depth, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} max_recursion_depth ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} max_recursion_depth (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} max_recursion_depth (@var{new_val}, \"local\")\n\
@@ -1286,7 +1286,7 @@
 */
 
 DEFUN (silent_functions, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} silent_functions ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} silent_functions (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} silent_functions (@var{new_val}, \"local\")\n\
--- a/libinterp/parse-tree/pt-eval.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-eval.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_eval_h)
-#define octave_tree_eval_h 1
+#if !defined (octave_pt_eval_h)
+#define octave_pt_eval_h 1
 
 #include <stack>
 #include <string>
--- a/libinterp/parse-tree/pt-except.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-except.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_except_h)
-#define octave_tree_except_h 1
+#if !defined (octave_pt_except_h)
+#define octave_pt_except_h 1
 
 class tree_statement_list;
 
@@ -40,8 +40,8 @@
 public:
 
   tree_try_catch_command (int l = -1, int c = -1)
-    : tree_command (l, c), try_code (0), catch_code (0), expr_id (0), lead_comm (0),
-      mid_comm (0), trail_comm (0) { }
+    : tree_command (l, c), try_code (0), catch_code (0), expr_id (0),
+      lead_comm (0), mid_comm (0), trail_comm (0) { }
 
   tree_try_catch_command (tree_statement_list *tc, tree_statement_list *cc,
                           tree_identifier *id,
--- a/libinterp/parse-tree/pt-exp.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-exp.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_expr_h)
-#define octave_tree_expr_h 1
+#if !defined (octave_pt_exp_h)
+#define octave_pt_exp_h 1
 
 #include <string>
 #include <list>
@@ -80,8 +80,8 @@
 
   virtual octave_value_list rvalue (int nargout);
 
-  virtual octave_value_list rvalue (int nargout,
-                                    const std::list<octave_lvalue> *lvalue_list);
+  virtual octave_value_list
+  rvalue (int nargout, const std::list<octave_lvalue> *lvalue_list);
 
   virtual octave_lvalue lvalue (void);
 
@@ -105,29 +105,29 @@
   virtual void mark_braindead_shortcircuit (const std::string&) { }
 
   tree_expression *mark_in_parens (void)
-    {
-      num_parens++;
-      return this;
-    }
+  {
+    num_parens++;
+    return this;
+  }
 
   tree_expression *set_postfix_index (char type)
-    {
-      postfix_index_type = type;
-      return this;
-    }
+  {
+    postfix_index_type = type;
+    return this;
+  }
 
   tree_expression *set_print_flag (bool print)
-    {
-      print_flag = print;
-      return this;
-    }
+  {
+    print_flag = print;
+    return this;
+  }
 
   virtual void copy_base (const tree_expression& e)
-    {
-      num_parens = e.num_parens;
-      postfix_index_type = e.postfix_index_type;
-      print_flag = e.print_flag;
-    }
+  {
+    num_parens = e.num_parens;
+    postfix_index_type = e.postfix_index_type;
+    print_flag = e.print_flag;
+  }
 
 protected:
 
--- a/libinterp/parse-tree/pt-fcn-handle.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-fcn-handle.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -88,7 +88,7 @@
 octave_value
 tree_anon_fcn_handle::rvalue1 (int)
 {
-  // FIXME -- should CMD_LIST be limited to a single expression?
+  // FIXME: should CMD_LIST be limited to a single expression?
   // I think that is what Matlab does.
 
   tree_parameter_list *param_list = parameter_list ();
@@ -112,7 +112,7 @@
 
   if (curr_fcn)
     {
-      // FIXME -- maybe it would be better to just stash curr_fcn
+      // FIXME: maybe it would be better to just stash curr_fcn
       // instead of individual bits of info about it?
 
       uf->stash_parent_fcn_name (curr_fcn->name ());
--- a/libinterp/parse-tree/pt-fcn-handle.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-fcn-handle.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,7 +20,7 @@
 
 */
 
-#if !defined (octave_tree_fcn_handle_h)
+#if !defined (octave_pt_fcn_handle_h)
 #define octave_fcn_handle_h 1
 
 #include <iosfwd>
--- a/libinterp/parse-tree/pt-id.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-id.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -142,7 +142,7 @@
   // The new tree_identifier object contains a symbol_record
   // entry from the duplicated scope.
 
-  // FIXME -- is this the best way?
+  // FIXME: is this the best way?
   symbol_table::symbol_record new_sym
     = symbol_table::find_symbol (name (), sc);
 
--- a/libinterp/parse-tree/pt-id.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-id.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_identifier_h)
-#define octave_tree_identifier_h 1
+#if !defined (octave_pt_id_h)
+#define octave_pt_id_h 1
 
 #include <iosfwd>
 #include <string>
@@ -157,12 +157,12 @@
   bool is_black_hole (void) { return true; }
 
   tree_black_hole *dup (void) const
-    { return new tree_black_hole; }
+  { return new tree_black_hole; }
 
   octave_lvalue lvalue (void)
-    {
-      return octave_lvalue (); // black hole lvalue
-    }
+  {
+    return octave_lvalue (); // black hole lvalue
+  }
 };
 
 #endif
--- a/libinterp/parse-tree/pt-idx.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-idx.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -285,7 +285,8 @@
 }
 
 octave_value_list
-tree_index_expression::rvalue (int nargout, const std::list<octave_lvalue> *lvalue_list)
+tree_index_expression::rvalue (int nargout,
+                               const std::list<octave_lvalue> *lvalue_list)
 {
   octave_value_list retval;
 
@@ -394,7 +395,8 @@
               break;
 
             case '.':
-              idx.push_back (octave_value (get_struct_index (p_arg_nm, p_dyn_field)));
+              idx.push_back (octave_value (get_struct_index (p_arg_nm,
+                                                             p_dyn_field)));
               break;
 
             default:
--- a/libinterp/parse-tree/pt-idx.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-idx.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_index_h)
-#define octave_tree_index_h 1
+#if !defined (octave_pt_idx_h)
+#define octave_pt_idx_h 1
 
 #include <list>
 
@@ -85,7 +85,8 @@
 
   octave_value_list rvalue (int nargout);
 
-  octave_value_list rvalue (int nargout, const std::list<octave_lvalue> *lvalue_list);
+  octave_value_list rvalue (int nargout,
+                            const std::list<octave_lvalue> *lvalue_list);
 
   octave_lvalue lvalue (void);
 
--- a/libinterp/parse-tree/pt-jump.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-jump.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_jump_h)
-#define octave_tree_jump_h 1
+#if !defined (octave_pt_jump_h)
+#define octave_pt_jump_h 1
 
 class tree_walker;
 
--- a/libinterp/parse-tree/pt-loop.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-loop.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_loop_h)
-#define octave_tree_loop_h 1
+#if !defined (octave_pt_loop_h)
+#define octave_pt_loop_h 1
 
 class octave_value;
 class octave_lvalue;
@@ -49,7 +49,7 @@
     : tree_command (l, c), expr (0), list (0), lead_comm (0),
       trail_comm (0)
 #ifdef HAVE_LLVM
-    , compiled (0)
+      , compiled (0)
 #endif
   { }
 
@@ -60,7 +60,7 @@
     : tree_command (l, c), expr (e), list (0), lead_comm (lc),
       trail_comm (tc)
 #ifdef HAVE_LLVM
-    , compiled (0)
+      , compiled (0)
 #endif
   { }
 
@@ -71,7 +71,7 @@
     : tree_command (l, c), expr (e), list (lst), lead_comm (lc),
       trail_comm (tc)
 #ifdef HAVE_LLVM
-    , compiled (0)
+      , compiled (0)
 #endif
   { }
 
@@ -180,7 +180,7 @@
     : tree_command (l, c), parallel (false), lhs (0), expr (0),
       maxproc (0), list (0), lead_comm (0), trail_comm (0)
 #ifdef HAVE_LLVM
-    , compiled (0)
+      , compiled (0)
 #endif
   { }
 
@@ -195,7 +195,7 @@
       expr (re), maxproc (maxproc_arg), list (lst),
       lead_comm (lc), trail_comm (tc)
 #ifdef HAVE_LLVM
-    , compiled (0)
+      , compiled (0)
 #endif
   { }
 
--- a/libinterp/parse-tree/pt-mat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-mat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -452,7 +452,8 @@
                 }
               else if (! dv.hvcat (this_elt_dv, 1))
                 {
-                  eval_error ("horizontal dimensions mismatch", dv, this_elt_dv);
+                  eval_error ("horizontal dimensions mismatch",
+                              dv, this_elt_dv);
                   break;
                 }
             }
@@ -747,7 +748,7 @@
           octave_idx_type i = 0;
           for (tm_row_const::iterator q = row.begin ();
                q != row.end () && ! error_state; q++)
-             result(i++) = octave_value_extract<T> (*q);
+            result(i++) = octave_value_extract<T> (*q);
 
           return;
         }
@@ -1368,7 +1369,7 @@
 */
 
 DEFUN (string_fill_char, args, nargout,
-  "-*- texinfo -*-\n\
+       "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} string_fill_char ()\n\
 @deftypefnx {Built-in Function} {@var{old_val} =} string_fill_char (@var{new_val})\n\
 @deftypefnx {Built-in Function} {} string_fill_char (@var{new_val}, \"local\")\n\
--- a/libinterp/parse-tree/pt-mat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-mat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_mat_h)
-#define octave_tree_mat_h 1
+#if !defined (octave_pt_mat_h)
+#define octave_pt_mat_h 1
 
 #include <iosfwd>
 
--- a/libinterp/parse-tree/pt-misc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-misc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -124,7 +124,8 @@
 
 void
 tree_parameter_list::initialize_undefined_elements (const std::string& warnfor,
-                                                    int nargout, const octave_value& val)
+                                                    int nargout,
+                                                    const octave_value& val)
 {
   bool warned = false;
 
@@ -236,7 +237,7 @@
   for (const_iterator p = begin (); p != end (); p++)
     {
       tree_decl_elt *elt = *p;
-      
+
       retval.push_back (elt->name ());
     }
 
--- a/libinterp/parse-tree/pt-misc.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-misc.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_misc_h)
-#define octave_tree_misc_h 1
+#if !defined (octave_pt_misc_h)
+#define octave_pt_misc_h 1
 
 class Cell;
 
@@ -48,10 +48,10 @@
 public:
 
   enum in_or_out
-    {
-      in = 1,
-      out = 2
-    };
+  {
+    in = 1,
+    out = 2
+  };
 
   tree_parameter_list (void)
     : marked_for_varargs (0) { }
@@ -83,7 +83,8 @@
 
   std::list<std::string> variable_names (void) const;
 
-  octave_value_list convert_to_const_vector (int nargout, const Cell& varargout);
+  octave_value_list convert_to_const_vector (int nargout,
+                                             const Cell& varargout);
 
   tree_parameter_list *dup (symbol_table::scope_id scope,
                             symbol_table::context_id context) const;
--- a/libinterp/parse-tree/pt-pr-code.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-pr-code.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -1049,8 +1049,7 @@
 }
 
 void
-tree_print_code::visit_unwind_protect_command
-  (tree_unwind_protect_command& cmd)
+tree_print_code::visit_unwind_protect_command (tree_unwind_protect_command& cmd)
 {
   print_comment_list (cmd.leading_comment ());
 
--- a/libinterp/parse-tree/pt-pr-code.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-pr-code.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_print_code_h)
-#define octave_tree_print_code_h 1
+#if !defined (octave_pt_pr_code_h)
+#define octave_pt_pr_code_h 1
 
 #include <stack>
 #include <string>
--- a/libinterp/parse-tree/pt-select.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-select.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_select_h)
-#define octave_tree_select_h 1
+#if !defined (octave_pt_select_h)
+#define octave_pt_select_h 1
 
 class expression;
 class tree_statement_list;
@@ -95,14 +95,14 @@
   tree_if_command_list (tree_if_clause *t) { append (t); }
 
   ~tree_if_command_list (void)
-    {
-      while (! empty ())
-        {
-          iterator p = begin ();
-          delete *p;
-          erase (p);
-        }
-    }
+  {
+    while (! empty ())
+      {
+        iterator p = begin ();
+        delete *p;
+        erase (p);
+      }
+  }
 
   tree_if_command_list *dup (symbol_table::scope_id scope,
                              symbol_table::context_id context) const;
@@ -225,14 +225,14 @@
   tree_switch_case_list (tree_switch_case *t) { append (t); }
 
   ~tree_switch_case_list (void)
-    {
-      while (! empty ())
-        {
-          iterator p = begin ();
-          delete *p;
-          erase (p);
-        }
-    }
+  {
+    while (! empty ())
+      {
+        iterator p = begin ();
+        delete *p;
+        erase (p);
+      }
+  }
 
   tree_switch_case_list *dup (symbol_table::scope_id scope,
                               symbol_table::context_id context) const;
--- a/libinterp/parse-tree/pt-stmt.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-stmt.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_stmt_h)
-#define octave_tree_stmt_h 1
+#if !defined (octave_pt_stmt_h)
+#define octave_pt_stmt_h 1
 
 class octave_value_list;
 
@@ -138,14 +138,14 @@
       script_body (false) { append (s); }
 
   ~tree_statement_list (void)
-    {
-      while (! empty ())
-        {
-          iterator p = begin ();
-          delete *p;
-          erase (p);
-        }
-    }
+  {
+    while (! empty ())
+      {
+        iterator p = begin ();
+        delete *p;
+        erase (p);
+      }
+  }
 
   void mark_as_function_body (void) { function_body = true; }
 
--- a/libinterp/parse-tree/pt-unop.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-unop.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_unop_h)
-#define octave_tree_unop_h 1
+#if !defined (octave_pt_unop_h)
+#define octave_pt_unop_h 1
 
 #include <string>
 
--- a/libinterp/parse-tree/pt-walk.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt-walk.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_walker_h)
-#define octave_tree_walker_h 1
+#if !defined (octave_pt_walk_h)
+#define octave_pt_walk_h 1
 
 class tree_anon_fcn_handle;
 class tree_argument_list;
--- a/libinterp/parse-tree/pt.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/pt.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_tree_h)
-#define octave_tree_h 1
+#if !defined (octave_pt_h)
+#define octave_pt_h 1
 
 #include <string>
 
--- a/libinterp/parse-tree/token.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/parse-tree/token.h	Tue Nov 05 12:27:42 2013 -0500
@@ -33,34 +33,34 @@
 public:
 
   enum token_type
-    {
-      generic_token,
-      keyword_token,
-      string_token,
-      double_token,
-      ettype_token,
-      sym_rec_token,
-      scls_name_token,
-      meta_name_token
-    };
+  {
+    generic_token,
+    keyword_token,
+    string_token,
+    double_token,
+    ettype_token,
+    sym_rec_token,
+    scls_name_token,
+    meta_name_token
+  };
 
   enum end_tok_type
-    {
-      simple_end,
-      classdef_end,
-      enumeration_end,
-      events_end,
-      for_end,
-      function_end,
-      if_end,
-      methods_end,
-      parfor_end,
-      properties_end,
-      switch_end,
-      while_end,
-      try_catch_end,
-      unwind_protect_end
-    };
+  {
+    simple_end,
+    classdef_end,
+    enumeration_end,
+    events_end,
+    for_end,
+    function_end,
+    if_end,
+    methods_end,
+    parfor_end,
+    properties_end,
+    switch_end,
+    while_end,
+    try_catch_end,
+    unwind_protect_end
+  };
 
   token (int tv, int l = -1, int c = -1);
   token (int tv, bool is_keyword, int l = -1, int c = -1);
@@ -129,23 +129,23 @@
   int tok_val;
   token_type type_tag;
   union
+  {
+    std::string *str;
+    double num;
+    end_tok_type et;
+    symbol_table::symbol_record *sr;
+    struct
     {
-      std::string *str;
-      double num;
-      end_tok_type et;
-      symbol_table::symbol_record *sr;
-      struct
-        {
-          std::string *method_nm;
-          std::string *package_nm;
-          std::string *class_nm;
-        } sc;
-      struct
-        {
-          std::string *package_nm;
-          std::string *class_nm;
-        } mc;
-    };
+      std::string *method_nm;
+      std::string *package_nm;
+      std::string *class_nm;
+    } sc;
+    struct
+    {
+      std::string *package_nm;
+      std::string *class_nm;
+    } mc;
+  };
   std::string orig_text;
 };
 
--- a/libinterp/version.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/libinterp/version.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
 {
   return "There is ABSOLUTELY NO WARRANTY; not even for MERCHANTABILITY or\n\
 FITNESS FOR A PARTICULAR PURPOSE."
-    + extra_info;
+         + extra_info;
 }
 
 static std::string
@@ -47,7 +47,7 @@
 octave_www_statement (bool html)
 {
   return "Additional information about Octave is available at "
-    + format_url (html, "http://www.octave.org.");
+         + format_url (html, "http://www.octave.org.");
 }
 
 std::string
@@ -55,14 +55,14 @@
 {
   return "Please contribute if you find this software useful.\n\
 For more information, visit "
-    + format_url (html, "http://www.octave.org/get-involved.html");
+         + format_url (html, "http://www.octave.org/get-involved.html");
 }
 
 std::string
 octave_bugs_statement (bool html)
 {
   return "Read " + format_url (html, "http://www.octave.org/bugs.html")
-    + " to learn how to submit bug reports.";
+         + " to learn how to submit bug reports.";
 }
 
 std::string
@@ -83,12 +83,12 @@
   std::string sep = html ? "\n</p>\n<p>\n" : "\n\n";
 
   return octave_name_version_and_copyright ()
-    + br
-    + "This is free software; see the source code for copying conditions."
-    + br
-    + octave_warranty_statement (extra_info)
-    + sep
-    + "Octave was configured for \"" OCTAVE_CANONICAL_HOST_TYPE "\".";
+         + br
+         + "This is free software; see the source code for copying conditions."
+         + br
+         + octave_warranty_statement (extra_info)
+         + sep
+         + "Octave was configured for \"" OCTAVE_CANONICAL_HOST_TYPE "\".";
 }
 
 std::string
@@ -103,13 +103,13 @@
     msg = "<p>\n";
 
   msg += octave_name_version_copyright_copying_and_warranty (html, extra_info)
-    + sep
-    + octave_www_statement (html)
-    + sep
-    + octave_contrib_statement (html)
-    + sep
-    + octave_bugs_statement (html)
-    + (html ? "\n</p>" : "");
+         + sep
+         + octave_www_statement (html)
+         + sep
+         + octave_contrib_statement (html)
+         + sep
+         + octave_bugs_statement (html)
+         + (html ? "\n</p>" : "");
 
   return msg;
 }
--- a/liboctave/array/Array-C.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-C.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -92,7 +92,8 @@
 
 INSTANTIATE_ARRAY (Complex, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<Complex>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<Complex>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-b.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-b.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -107,7 +107,8 @@
 
 INSTANTIATE_ARRAY (bool, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<bool>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<bool>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-ch.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-ch.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,8 @@
 
 INSTANTIATE_ARRAY (char, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<char>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<char>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-d.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-d.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -159,7 +159,8 @@
 
 INSTANTIATE_ARRAY (double, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<double>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<double>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-f.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-f.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -159,7 +159,8 @@
 
 INSTANTIATE_ARRAY (float, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<float>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<float>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-fC.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-fC.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,8 +60,7 @@
 }
 
 Array<FloatComplex>::compare_fcn_type
-safe_comparator (sortmode mode, const Array<FloatComplex>& a,
-                     bool allow_chk)
+safe_comparator (sortmode mode, const Array<FloatComplex>& a, bool allow_chk)
 {
   Array<FloatComplex>::compare_fcn_type result = 0;
 
@@ -93,7 +92,8 @@
 
 INSTANTIATE_ARRAY (FloatComplex, OCTAVE_API);
 
-template OCTAVE_API std::ostream& operator << (std::ostream&, const Array<FloatComplex>&);
+template OCTAVE_API std::ostream& operator << (std::ostream&,
+                                               const Array<FloatComplex>&);
 
 #include "DiagArray2.h"
 #include "DiagArray2.cc"
--- a/liboctave/array/Array-util.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-util.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -247,7 +247,7 @@
   Array<idx_vector> retval (dim_vector (len, 1));
 
   for (octave_idx_type i = 0; i < len; i++)
-      retval(i) = tmp[i];
+    retval(i) = tmp[i];
 
   return retval;
 }
@@ -403,8 +403,7 @@
   for (octave_idx_type i = 0; i < idx; i++)
     increment_index (retval, dims);
 
-  // FIXME -- the solution using increment_index is not
-  // efficient.
+  // FIXME: the solution using increment_index is not efficient.
 
 #if 0
   octave_idx_type var = 1;
@@ -432,7 +431,7 @@
   bool all_colons = true;
   for (int i = 0; i < ial; i++)
     {
-      // FIXME -- should we check for length() instead?
+      // FIXME: should we check for length() instead?
       scalar[i] = ia(i).is_scalar ();
       colon[i] = ia(i).is_colon ();
       if (! scalar[i]) nonsc++;
--- a/liboctave/array/Array-util.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array-util.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,15 +29,17 @@
 #include "lo-array-gripes.h"
 
 extern OCTAVE_API bool index_in_bounds (const Array<octave_idx_type>& ra_idx,
-                             const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
 extern OCTAVE_API void increment_index (Array<octave_idx_type>& ra_idx,
-                             const dim_vector& dimensions,
-                             int start_dimension = 0);
+                                        const dim_vector& dimensions,
+                                        int start_dimension = 0);
 
-extern OCTAVE_API octave_idx_type get_scalar_idx (Array<octave_idx_type>& idx, dim_vector& dims);
+extern OCTAVE_API octave_idx_type get_scalar_idx (Array<octave_idx_type>& idx,
+                                                  dim_vector& dims);
 
-extern OCTAVE_API octave_idx_type num_ones (const Array<octave_idx_type>& ra_idx);
+extern OCTAVE_API octave_idx_type num_ones (const Array<octave_idx_type>&
+                                            ra_idx);
 
 extern OCTAVE_API bool is_scalar (const dim_vector& dim);
 
@@ -60,12 +62,15 @@
 extern OCTAVE_API octave_idx_type
 compute_index (const Array<octave_idx_type>& ra_idx, const dim_vector& dims);
 
-extern OCTAVE_API Array<octave_idx_type> conv_to_int_array (const Array<idx_vector>& a);
+extern OCTAVE_API Array<octave_idx_type>
+conv_to_int_array (const Array<idx_vector>& a);
 
-extern OCTAVE_API Array<idx_vector> conv_to_array (const idx_vector *tmp, const octave_idx_type len);
+extern OCTAVE_API Array<idx_vector> conv_to_array (const idx_vector *tmp,
+                                                   const octave_idx_type len);
 
 extern OCTAVE_API dim_vector freeze (Array<idx_vector>& ra_idx,
-                          const dim_vector& dimensions, int resize_ok);
+                                     const dim_vector& dimensions,
+                                     int resize_ok);
 
 extern OCTAVE_API bool vector_equivalent (const dim_vector& dv);
 
@@ -74,24 +79,29 @@
 extern OCTAVE_API bool any_orig_empty (const Array<idx_vector>& ra_idx);
 
 extern OCTAVE_API bool all_colon_equiv (const Array<idx_vector>& ra_idx,
-                             const dim_vector& frozen_lengths);
+                                        const dim_vector& frozen_lengths);
 
 extern OCTAVE_API bool all_ones (const Array<octave_idx_type>& arr);
 
-extern OCTAVE_API Array<octave_idx_type> get_elt_idx (const Array<idx_vector>& ra_idx,
-                               const Array<octave_idx_type>& result_idx);
+extern OCTAVE_API Array<octave_idx_type>
+get_elt_idx (const Array<idx_vector>& ra_idx,
+             const Array<octave_idx_type>& result_idx);
 
-extern OCTAVE_API Array<octave_idx_type> get_ra_idx (octave_idx_type idx, const dim_vector& dims);
+extern OCTAVE_API Array<octave_idx_type> get_ra_idx (octave_idx_type idx,
+                                                     const dim_vector& dims);
 
 extern OCTAVE_API dim_vector zero_dims_inquire (const Array<idx_vector>& ia,
                                                 const dim_vector& rhdv);
 
-extern OCTAVE_API dim_vector zero_dims_inquire (const idx_vector& i, const idx_vector& j,
+extern OCTAVE_API dim_vector zero_dims_inquire (const idx_vector& i,
+                                                const idx_vector& j,
                                                 const dim_vector& rhdv);
 
-extern OCTAVE_API idx_vector sub2ind (const dim_vector& dv, const Array<idx_vector>& idxa);
+extern OCTAVE_API idx_vector sub2ind (const dim_vector& dv,
+                                      const Array<idx_vector>& idxa);
 
-extern OCTAVE_API Array<idx_vector> ind2sub (const dim_vector& dv, const idx_vector& idx);
+extern OCTAVE_API Array<idx_vector> ind2sub (const dim_vector& dv,
+                                             const idx_vector& idx);
 
 struct
 permute_vector
--- a/liboctave/array/Array.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -171,7 +171,8 @@
 
 template <class T>
 octave_idx_type
-Array<T>::compute_index (octave_idx_type i, octave_idx_type j, octave_idx_type k) const
+Array<T>::compute_index (octave_idx_type i, octave_idx_type j,
+                         octave_idx_type k) const
 {
   return ::compute_index (i, j, k, dimensions);
 }
@@ -239,7 +240,8 @@
 
 template <class T>
 typename Array<T>::crefT
-Array<T>::checkelem (octave_idx_type i, octave_idx_type j, octave_idx_type k) const
+Array<T>::checkelem (octave_idx_type i, octave_idx_type j,
+                     octave_idx_type k) const
 {
   return elem (compute_index (i, j, k));
 }
@@ -308,39 +310,39 @@
 
     : n (dv.length ()), top (0), dim (new octave_idx_type [2*n]),
       stride (dim + n), use_blk (false)
-    {
-      assert (n == perm.length ());
-
-      // Get cumulative dimensions.
-      OCTAVE_LOCAL_BUFFER (octave_idx_type, cdim, n+1);
-      cdim[0] = 1;
-      for (int i = 1; i < n+1; i++) cdim[i] = cdim[i-1] * dv(i-1);
-
-      // Setup the permuted strides.
-      for (int k = 0; k < n; k++)
-        {
-          int kk = perm(k);
-          dim[k] = dv(kk);
-          stride[k] = cdim[kk];
-        }
-
-      // Reduce contiguous runs.
-      for (int k = 1; k < n; k++)
-        {
-          if (stride[k] == stride[top]*dim[top])
-            dim[top] *= dim[k];
-          else
-            {
-              top++;
-              dim[top] = dim[k];
-              stride[top] = stride[k];
-            }
-        }
-
-      // Determine whether we can use block transposes.
-      use_blk = top >= 1 && stride[1] == 1 && stride[0] == dim[1];
-
-    }
+  {
+    assert (n == perm.length ());
+
+    // Get cumulative dimensions.
+    OCTAVE_LOCAL_BUFFER (octave_idx_type, cdim, n+1);
+    cdim[0] = 1;
+    for (int i = 1; i < n+1; i++) cdim[i] = cdim[i-1] * dv(i-1);
+
+    // Setup the permuted strides.
+    for (int k = 0; k < n; k++)
+      {
+        int kk = perm(k);
+        dim[k] = dv(kk);
+        stride[k] = cdim[kk];
+      }
+
+    // Reduce contiguous runs.
+    for (int k = 1; k < n; k++)
+      {
+        if (stride[k] == stride[top]*dim[top])
+          dim[top] *= dim[k];
+        else
+          {
+            top++;
+            dim[top] = dim[k];
+            stride[top] = stride[k];
+          }
+      }
+
+    // Determine whether we can use block transposes.
+    use_blk = top >= 1 && stride[1] == 1 && stride[0] == dim[1];
+
+  }
 
   ~rec_permute_helper (void) { delete [] dim; }
 
@@ -348,74 +350,74 @@
   template <class T>
   static T *
   blk_trans (const T *src, T *dest, octave_idx_type nr, octave_idx_type nc)
-    {
-      static const octave_idx_type m = 8;
-      OCTAVE_LOCAL_BUFFER (T, blk, m*m);
-      for (octave_idx_type kr = 0; kr < nr; kr += m)
-        for (octave_idx_type kc = 0; kc < nc; kc += m)
-          {
-            octave_idx_type lr = std::min (m, nr - kr);
-            octave_idx_type lc = std::min (m, nc - kc);
-            if (lr == m && lc == m)
-              {
-                const T *ss = src + kc * nr + kr;
-                for (octave_idx_type j = 0; j < m; j++)
-                  for (octave_idx_type i = 0; i < m; i++)
-                    blk[j*m+i] = ss[j*nr + i];
-                T *dd = dest + kr * nc + kc;
-                for (octave_idx_type j = 0; j < m; j++)
-                  for (octave_idx_type i = 0; i < m; i++)
-                    dd[j*nc+i] = blk[i*m+j];
-              }
-            else
-              {
-                const T *ss = src + kc * nr + kr;
-                for (octave_idx_type j = 0; j < lc; j++)
-                  for (octave_idx_type i = 0; i < lr; i++)
-                    blk[j*m+i] = ss[j*nr + i];
-                T *dd = dest + kr * nc + kc;
-                for (octave_idx_type j = 0; j < lr; j++)
-                  for (octave_idx_type i = 0; i < lc; i++)
-                    dd[j*nc+i] = blk[i*m+j];
-              }
-          }
-
-      return dest + nr*nc;
-    }
+  {
+    static const octave_idx_type m = 8;
+    OCTAVE_LOCAL_BUFFER (T, blk, m*m);
+    for (octave_idx_type kr = 0; kr < nr; kr += m)
+      for (octave_idx_type kc = 0; kc < nc; kc += m)
+        {
+          octave_idx_type lr = std::min (m, nr - kr);
+          octave_idx_type lc = std::min (m, nc - kc);
+          if (lr == m && lc == m)
+            {
+              const T *ss = src + kc * nr + kr;
+              for (octave_idx_type j = 0; j < m; j++)
+                for (octave_idx_type i = 0; i < m; i++)
+                  blk[j*m+i] = ss[j*nr + i];
+              T *dd = dest + kr * nc + kc;
+              for (octave_idx_type j = 0; j < m; j++)
+                for (octave_idx_type i = 0; i < m; i++)
+                  dd[j*nc+i] = blk[i*m+j];
+            }
+          else
+            {
+              const T *ss = src + kc * nr + kr;
+              for (octave_idx_type j = 0; j < lc; j++)
+                for (octave_idx_type i = 0; i < lr; i++)
+                  blk[j*m+i] = ss[j*nr + i];
+              T *dd = dest + kr * nc + kc;
+              for (octave_idx_type j = 0; j < lr; j++)
+                for (octave_idx_type i = 0; i < lc; i++)
+                  dd[j*nc+i] = blk[i*m+j];
+            }
+        }
+
+    return dest + nr*nc;
+  }
 
 private:
 
   // Recursive N-d generalized transpose
   template <class T>
   T *do_permute (const T *src, T *dest, int lev) const
-    {
-      if (lev == 0)
-        {
-          octave_idx_type step = stride[0], len = dim[0];
-          if (step == 1)
-            {
-              copy_or_memcpy (len, src, dest);
-              dest += len;
-            }
-          else
-            {
-              for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
-                dest[i] = src[j];
-
-              dest += len;
-            }
-        }
-      else if (use_blk && lev == 1)
-        dest = blk_trans (src, dest, dim[1], dim[0]);
-      else
-        {
-          octave_idx_type step = stride[lev], len = dim[lev];
-          for (octave_idx_type i = 0, j = 0; i < len; i++, j+= step)
-           dest = do_permute (src + i * step, dest, lev-1);
-        }
-
-      return dest;
-    }
+  {
+    if (lev == 0)
+      {
+        octave_idx_type step = stride[0], len = dim[0];
+        if (step == 1)
+          {
+            copy_or_memcpy (len, src, dest);
+            dest += len;
+          }
+        else
+          {
+            for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
+              dest[i] = src[j];
+
+            dest += len;
+          }
+      }
+    else if (use_blk && lev == 1)
+      dest = blk_trans (src, dest, dim[1], dim[0]);
+    else
+      {
+        octave_idx_type step = stride[lev], len = dim[lev];
+        for (octave_idx_type i = 0, j = 0; i < len; i++, j+= step)
+          dest = do_permute (src + i * step, dest, lev-1);
+      }
+
+    return dest;
+  }
 
   // No copying!
 
@@ -528,31 +530,31 @@
   rec_index_helper (const dim_vector& dv, const Array<idx_vector>& ia)
     : n (ia.length ()), top (0), dim (new octave_idx_type [2*n]),
       cdim (dim + n), idx (new idx_vector [n])
-    {
-      assert (n > 0 && (dv.length () == std::max (n, 2)));
-
-      dim[0] = dv(0);
-      cdim[0] = 1;
-      idx[0] = ia(0);
-
-      for (int i = 1; i < n; i++)
-        {
-          // Try reduction...
-          if (idx[top].maybe_reduce (dim[top], ia(i), dv(i)))
-            {
-              // Reduction successful, fold dimensions.
-              dim[top] *= dv(i);
-            }
-          else
-            {
-              // Unsuccessful, store index & cumulative dim.
-              top++;
-              idx[top] = ia(i);
-              dim[top] = dv(i);
-              cdim[top] = cdim[top-1] * dim[top-1];
-            }
-        }
-    }
+  {
+    assert (n > 0 && (dv.length () == std::max (n, 2)));
+
+    dim[0] = dv(0);
+    cdim[0] = 1;
+    idx[0] = ia(0);
+
+    for (int i = 1; i < n; i++)
+      {
+        // Try reduction...
+        if (idx[top].maybe_reduce (dim[top], ia(i), dv(i)))
+          {
+            // Reduction successful, fold dimensions.
+            dim[top] *= dv(i);
+          }
+        else
+          {
+            // Unsuccessful, store index & cumulative dim.
+            top++;
+            idx[top] = ia(i);
+            dim[top] = dv(i);
+            cdim[top] = cdim[top-1] * dim[top-1];
+          }
+      }
+  }
 
   ~rec_index_helper (void) { delete [] idx; delete [] dim; }
 
@@ -561,48 +563,48 @@
   // Recursive N-d indexing
   template <class T>
   T *do_index (const T *src, T *dest, int lev) const
-    {
-      if (lev == 0)
-        dest += idx[0].index (src, dim[0], dest);
-      else
-        {
-          octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
-          for (octave_idx_type i = 0; i < nn; i++)
-            dest = do_index (src + d*idx[lev].xelem (i), dest, lev-1);
-        }
-
-      return dest;
-    }
+  {
+    if (lev == 0)
+      dest += idx[0].index (src, dim[0], dest);
+    else
+      {
+        octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
+        for (octave_idx_type i = 0; i < nn; i++)
+          dest = do_index (src + d*idx[lev].xelem (i), dest, lev-1);
+      }
+
+    return dest;
+  }
 
   // Recursive N-d indexed assignment
   template <class T>
   const T *do_assign (const T *src, T *dest, int lev) const
-    {
-      if (lev == 0)
-        src += idx[0].assign (src, dim[0], dest);
-      else
-        {
-          octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
-          for (octave_idx_type i = 0; i < nn; i++)
-            src = do_assign (src, dest + d*idx[lev].xelem (i), lev-1);
-        }
-
-      return src;
-    }
+  {
+    if (lev == 0)
+      src += idx[0].assign (src, dim[0], dest);
+    else
+      {
+        octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
+        for (octave_idx_type i = 0; i < nn; i++)
+          src = do_assign (src, dest + d*idx[lev].xelem (i), lev-1);
+      }
+
+    return src;
+  }
 
   // Recursive N-d indexed assignment
   template <class T>
   void do_fill (const T& val, T *dest, int lev) const
-    {
-      if (lev == 0)
-        idx[0].fill (val, dim[0], dest);
-      else
-        {
-          octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
-          for (octave_idx_type i = 0; i < nn; i++)
-            do_fill (val, dest + d*idx[lev].xelem (i), lev-1);
-        }
-    }
+  {
+    if (lev == 0)
+      idx[0].fill (val, dim[0], dest);
+    else
+      {
+        octave_idx_type nn = idx[lev].length (dim[lev]), d = cdim[lev];
+        for (octave_idx_type i = 0; i < nn; i++)
+          do_fill (val, dest + d*idx[lev].xelem (i), lev-1);
+      }
+  }
 
   // No copying!
 
@@ -622,10 +624,10 @@
   void fill (const T& val, T *dest) const { do_fill (val, dest, top); }
 
   bool is_cont_range (octave_idx_type& l,
-                            octave_idx_type& u) const
-    {
-      return top == 0 && idx[0].is_cont_range (dim[0], l, u);
-    }
+                      octave_idx_type& u) const
+  {
+    return top == 0 && idx[0].is_cont_range (dim[0], l, u);
+  }
 };
 
 // Helper class for multi-d recursive resizing
@@ -641,27 +643,27 @@
 public:
   rec_resize_helper (const dim_vector& ndv, const dim_vector& odv)
     : cext (0), sext (0), dext (0), n (0)
-    {
-      int l = ndv.length ();
-      assert (odv.length () == l);
-      octave_idx_type ld = 1;
-      int i = 0;
-      for (; i < l-1 && ndv(i) == odv(i); i++) ld *= ndv(i);
-      n = l - i;
-      cext = new octave_idx_type [3*n];
-      // Trick to avoid three allocations
-      sext = cext + n;
-      dext = sext + n;
-
-      octave_idx_type sld = ld, dld = ld;
-      for (int j = 0; j < n; j++)
-        {
-          cext[j] = std::min (ndv(i+j), odv(i+j));
-          sext[j] = sld *= odv(i+j);
-          dext[j] = dld *= ndv(i+j);
-        }
-      cext[0] *= ld;
-    }
+  {
+    int l = ndv.length ();
+    assert (odv.length () == l);
+    octave_idx_type ld = 1;
+    int i = 0;
+    for (; i < l-1 && ndv(i) == odv(i); i++) ld *= ndv(i);
+    n = l - i;
+    cext = new octave_idx_type [3*n];
+    // Trick to avoid three allocations
+    sext = cext + n;
+    dext = sext + n;
+
+    octave_idx_type sld = ld, dld = ld;
+    for (int j = 0; j < n; j++)
+      {
+        cext[j] = std::min (ndv(i+j), odv(i+j));
+        sext[j] = sld *= odv(i+j);
+        dext[j] = dld *= ndv(i+j);
+      }
+    cext[0] *= ld;
+  }
 
   ~rec_resize_helper (void) { delete [] cext; }
 
@@ -670,21 +672,21 @@
   // recursive resizing
   template <class T>
   void do_resize_fill (const T* src, T *dest, const T& rfv, int lev) const
-    {
-      if (lev == 0)
-        {
-          copy_or_memcpy (cext[0], src, dest);
-          fill_or_memset (dext[0] - cext[0], rfv, dest + cext[0]);
-        }
-      else
-        {
-          octave_idx_type sd = sext[lev-1], dd = dext[lev-1], k;
-          for (k = 0; k < cext[lev]; k++)
-            do_resize_fill (src + k * sd, dest + k * dd, rfv, lev - 1);
-
-          fill_or_memset (dext[lev] - k * dd, rfv, dest + k * dd);
-        }
-    }
+  {
+    if (lev == 0)
+      {
+        copy_or_memcpy (cext[0], src, dest);
+        fill_or_memset (dext[0] - cext[0], rfv, dest + cext[0]);
+      }
+    else
+      {
+        octave_idx_type sd = sext[lev-1], dd = dext[lev-1], k;
+        for (k = 0; k < cext[lev]; k++)
+          do_resize_fill (src + k * sd, dest + k * dd, rfv, lev - 1);
+
+        fill_or_memset (dext[lev] - k * dd, rfv, dest + k * dd);
+      }
+  }
 
   // No copying!
 
@@ -696,7 +698,7 @@
 
   template <class T>
   void resize_fill (const T* src, T *dest, const T& rfv) const
-    { do_resize_fill (src, dest, rfv, n-1); }
+  { do_resize_fill (src, dest, rfv, n-1); }
 };
 
 template <class T>
@@ -716,11 +718,11 @@
       if (i.extent (n) != n)
         gripe_index_out_of_range (1, 1, i.extent (n), n); // throws
 
-      // FIXME -- this is the only place where orig_dimensions are used.
+      // FIXME: this is the only place where orig_dimensions are used.
       dim_vector rd = i.orig_dimensions ();
       octave_idx_type il = i.length (n);
 
-      // FIXME -- this is for Matlab compatibility.  Matlab 2007 given
+      // FIXME: this is for Matlab compatibility.  Matlab 2007 given
       //
       //   b = ones (3,1)
       //
@@ -796,7 +798,7 @@
             retval = Array<T> (*this, dim_vector (il, jl), l, u);
           else
             {
-              // Don't use resize here to avoid useless initialization for POD types.
+              // Don't use resize to avoid useless initialization for POD types.
               retval = Array<T> (dim_vector (il, jl));
 
               ii.index (data (), n, retval.fortran_vec ());
@@ -804,7 +806,7 @@
         }
       else
         {
-          // Don't use resize here to avoid useless initialization for POD types.
+          // Don't use resize to avoid useless initialization for POD types.
           retval = Array<T> (dim_vector (il, jl));
 
           const T* src = data ();
@@ -868,7 +870,7 @@
             retval = Array<T> (*this, rdv, l, u);
           else
             {
-              // Don't use resize here to avoid useless initialization for POD types.
+              // Don't use resize to avoid useless initialization for POD types.
               retval = Array<T> (rdv);
 
               // Do it.
@@ -913,7 +915,7 @@
       else if (columns () == 1)
         dv = dim_vector (n, 1);
       else
-         invalid = true;
+        invalid = true;
 
       if (invalid)
         gripe_invalid_resize ();
@@ -931,7 +933,8 @@
           else if (n == nx + 1 && nx > 0)
             {
               // Stack "push" operation.
-              if (rep->count == 1 && slice_data + slice_len < rep->data + rep->len)
+              if (rep->count == 1
+                  && slice_data + slice_len < rep->data + rep->len)
                 {
                   slice_data[slice_len++] = rfv;
                   dimensions = dv;
@@ -2162,7 +2165,8 @@
 
   lsort.set_compare (mode);
 
-  // This determines the split ratio between the O(M*log2(N)) and O(M+N) algorithms.
+  // This determines the split ratio between the O(M*log2(N)) and O(M+N)
+  // algorithms.
   static const double ratio = 1.0;
   sortmode vmode = UNSORTED;
 
@@ -2232,7 +2236,7 @@
           octave_idx_type k = 0, l = nel - 1;
           for (; k < n; k++)
             {
-              for (;l >= 0 && src[l] == zero; l--) ;
+              for (; l >= 0 && src[l] == zero; l--) ;
               if (l >= 0)
                 retval(k) = l--;
               else
@@ -2249,7 +2253,7 @@
           octave_idx_type k = 0, l = 0;
           for (; k < n; k++)
             {
-              for (;l != nel && src[l] == zero; l++) ;
+              for (; l != nel && src[l] == zero; l++) ;
               if (l != nel)
                 retval(k) = l++;
               else
@@ -2401,7 +2405,7 @@
         }
 
       if (ku == ns)
-          lsort.nth_element (buf, ns, lo, up);
+        lsort.nth_element (buf, ns, lo, up);
       else if (mode == ASCENDING)
         lsort.nth_element (buf, ku, lo, std::min (ku, up));
       else
@@ -2477,7 +2481,7 @@
  \
 template <> Array<T>  \
 Array<T>::nth_element (const idx_vector&, int) const { return Array<T> (); } \
-
+ 
 
 template <class T>
 Array<T>
--- a/liboctave/array/Array.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array.h	Tue Nov 05 12:27:42 2013 -0500
@@ -64,32 +64,33 @@
 
     ArrayRep (T *d, octave_idx_type l)
       : data (no_ctor_new<T> (l)), len (l), count (1)
-        {
-          copy_or_memcpy (l, d, data);
-        }
+    {
+      copy_or_memcpy (l, d, data);
+    }
 
     template <class U>
     ArrayRep (U *d, octave_idx_type l)
       : data (no_ctor_new<T> (l)), len (l), count (1)
-        {
-          std::copy (d, d+l, data);
-        }
+    {
+      std::copy (d, d+l, data);
+    }
 
     ArrayRep (void) : data (0), len (0), count (1) { }
 
-    explicit ArrayRep (octave_idx_type n) : data (no_ctor_new<T> (n)), len (n), count (1) { }
+    explicit ArrayRep (octave_idx_type n)
+      : data (no_ctor_new<T> (n)), len (n), count (1) { }
 
     explicit ArrayRep (octave_idx_type n, const T& val)
       : data (no_ctor_new<T> (n)), len (n), count (1)
-      {
-        fill_or_memset (n, val, data);
-      }
+    {
+      fill_or_memset (n, val, data);
+    }
 
     ArrayRep (const ArrayRep& a)
       : data (no_ctor_new<T> (a.len)), len (a.len), count (1)
-      {
-        copy_or_memcpy (a.len, a.data, data);
-      }
+    {
+      copy_or_memcpy (a.len, a.data, data);
+    }
 
     ~ArrayRep (void) { no_ctor_delete<T> (data); }
 
@@ -107,18 +108,18 @@
 public:
 
   void make_unique (void)
-    {
-      if (rep->count > 1)
-        {
-          ArrayRep *r = new ArrayRep (slice_data, slice_len);
+  {
+    if (rep->count > 1)
+      {
+        ArrayRep *r = new ArrayRep (slice_data, slice_len);
 
-          if (--rep->count == 0)
-            delete rep;
-          
-          rep = r;
-          slice_data = rep->data;
-        }
-    }
+        if (--rep->count == 0)
+          delete rep;
+
+        rep = r;
+        slice_data = rep->data;
+      }
+  }
 
   typedef T element_type;
 
@@ -147,22 +148,22 @@
   Array (const Array<T>& a, const dim_vector& dv,
          octave_idx_type l, octave_idx_type u)
     : dimensions (dv), rep(a.rep), slice_data (a.slice_data+l), slice_len (u-l)
-    {
-      rep->count++;
-      dimensions.chop_trailing_singletons ();
-    }
+  {
+    rep->count++;
+    dimensions.chop_trailing_singletons ();
+  }
 
 private:
 
   typename Array<T>::ArrayRep *nil_rep (void) const
-    {
-      // NR was originally allocated with new, but that does not seem
-      // to be necessary since it will never be deleted.  So just use
-      // a static object instead.
+  {
+    // NR was originally allocated with new, but that does not seem
+    // to be necessary since it will never be deleted.  So just use
+    // a static object instead.
 
-      static typename Array<T>::ArrayRep nr;
-      return &nr;
-    }
+    static typename Array<T>::ArrayRep nr;
+    return &nr;
+  }
 
 protected:
 
@@ -170,7 +171,7 @@
   Array (T *sdata, octave_idx_type slen, octave_idx_type *adims, void *arep)
     : dimensions (adims),
       rep (reinterpret_cast<typename Array<T>::ArrayRep *> (arep)),
-      slice_data (sdata), slice_len (slen) {}
+      slice_data (sdata), slice_len (slen) { }
 
 public:
 
@@ -179,42 +180,42 @@
   Array (void)
     : dimensions (), rep (nil_rep ()), slice_data (rep->data),
       slice_len (rep->len)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   // Obsolete 1D ctor (there are no 1D arrays).
   explicit Array (octave_idx_type n) GCC_ATTR_DEPRECATED
     : dimensions (n, 1), rep (new typename Array<T>::ArrayRep (n)),
       slice_data (rep->data), slice_len (rep->len)
-    { }
+  { }
 
   // Obsolete initialized 1D ctor (there are no 1D arrays).
   explicit Array (octave_idx_type n, const T& val) GCC_ATTR_DEPRECATED
     : dimensions (n, 1), rep (new typename Array<T>::ArrayRep (n)),
       slice_data (rep->data), slice_len (rep->len)
-    {
-      fill (val);
-    }
+  {
+    fill (val);
+  }
 
   // nD uninitialized ctor.
   explicit Array (const dim_vector& dv)
     : dimensions (dv),
       rep (new typename Array<T>::ArrayRep (dv.safe_numel ())),
       slice_data (rep->data), slice_len (rep->len)
-    {
-      dimensions.chop_trailing_singletons ();
-    }
+  {
+    dimensions.chop_trailing_singletons ();
+  }
 
   // nD initialized ctor.
   explicit Array (const dim_vector& dv, const T& val)
     : dimensions (dv),
       rep (new typename Array<T>::ArrayRep (dv.safe_numel ())),
       slice_data (rep->data), slice_len (rep->len)
-    {
-      fill (val);
-      dimensions.chop_trailing_singletons ();
-    }
+  {
+    fill (val);
+    dimensions.chop_trailing_singletons ();
+  }
 
   // Reshape constructor.
   Array (const Array<T>& a, const dim_vector& dv);
@@ -225,41 +226,41 @@
     : dimensions (a.dims ()),
       rep (new typename Array<T>::ArrayRep (a.data (), a.length ())),
       slice_data (rep->data), slice_len (rep->len)
-    { }
+  { }
 
   // No type conversion case.
   Array (const Array<T>& a)
     : dimensions (a.dimensions), rep (a.rep), slice_data (a.slice_data),
       slice_len (a.slice_len)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
 public:
 
   virtual ~Array (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   Array<T>& operator = (const Array<T>& a)
-    {
-      if (this != &a)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (this != &a)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
+        rep = a.rep;
+        rep->count++;
 
-          dimensions = a.dimensions;
-          slice_data = a.slice_data;
-          slice_len = a.slice_len;
-        }
+        dimensions = a.dimensions;
+        slice_data = a.slice_data;
+        slice_len = a.slice_len;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   void fill (const T& val);
 
@@ -267,7 +268,7 @@
   void clear (const dim_vector& dv);
 
   void clear (octave_idx_type r, octave_idx_type c)
-    { clear (dim_vector (r, c)); }
+  { clear (dim_vector (r, c)); }
 
   octave_idx_type capacity (void) const { return slice_len; }
   octave_idx_type length (void) const { return capacity (); }
@@ -280,40 +281,41 @@
 
   // Return the array as a column vector.
   Array<T> as_column (void) const
-    {
-      Array<T> retval (*this);
-      if (dimensions.length () != 2 || dimensions(1) != 1)
-        retval.dimensions = dim_vector (numel (), 1);
+  {
+    Array<T> retval (*this);
+    if (dimensions.length () != 2 || dimensions(1) != 1)
+      retval.dimensions = dim_vector (numel (), 1);
 
-      return retval;
-    }
+    return retval;
+  }
 
   // Return the array as a row vector.
   Array<T> as_row (void) const
-    {
-      Array<T> retval (*this);
-      if (dimensions.length () != 2 || dimensions(0) != 1)
-        retval.dimensions = dim_vector (1, numel ());
+  {
+    Array<T> retval (*this);
+    if (dimensions.length () != 2 || dimensions(0) != 1)
+      retval.dimensions = dim_vector (1, numel ());
 
-      return retval;
-    }
+    return retval;
+  }
 
   // Return the array as a matrix.
   Array<T> as_matrix (void) const
-    {
-      Array<T> retval (*this);
-      if (dimensions.length () != 2)
-        retval.dimensions = dimensions.redim (2);
+  {
+    Array<T> retval (*this);
+    if (dimensions.length () != 2)
+      retval.dimensions = dimensions.redim (2);
 
-      return retval;
-    }
+    return retval;
+  }
 
   octave_idx_type rows (void) const { return dim1 (); }
   octave_idx_type cols (void) const { return dim2 (); }
   octave_idx_type columns (void) const { return dim2 (); }
   octave_idx_type pages (void) const { return dim3 (); }
 
-  size_t byte_size (void) const { return static_cast<size_t> (numel ()) * sizeof (T); }
+  size_t byte_size (void) const
+  { return static_cast<size_t> (numel ()) * sizeof (T); }
 
   // Return a const-reference so that dims ()(i) works efficiently.
   const dim_vector& dims (void) const { return dimensions; }
@@ -324,34 +326,37 @@
   { dimensions.chop_trailing_singletons (); }
 
   octave_idx_type compute_index (octave_idx_type i, octave_idx_type j) const;
-  octave_idx_type compute_index (octave_idx_type i, octave_idx_type j, octave_idx_type k) const;
+  octave_idx_type compute_index (octave_idx_type i, octave_idx_type j,
+                                 octave_idx_type k) const;
   octave_idx_type compute_index (const Array<octave_idx_type>& ra_idx) const;
 
-  octave_idx_type compute_index_unchecked (const Array<octave_idx_type>& ra_idx) const
-    { return dimensions.compute_index (ra_idx.data (), ra_idx.length ()); }
+  octave_idx_type compute_index_unchecked (const Array<octave_idx_type>& ra_idx)
+  const
+  { return dimensions.compute_index (ra_idx.data (), ra_idx.length ()); }
 
   // No checking, even for multiple references, ever.
 
   T& xelem (octave_idx_type n) { return slice_data[n]; }
   crefT xelem (octave_idx_type n) const { return slice_data[n]; }
 
-  T& xelem (octave_idx_type i, octave_idx_type j) { return xelem (dim1 ()*j+i); }
-  crefT xelem (octave_idx_type i, octave_idx_type j) const { return xelem (dim1 ()*j+i); }
+  T& xelem (octave_idx_type i, octave_idx_type j)
+  { return xelem (dim1 ()*j+i); }
+  crefT xelem (octave_idx_type i, octave_idx_type j) const
+  { return xelem (dim1 ()*j+i); }
 
   T& xelem (octave_idx_type i, octave_idx_type j, octave_idx_type k)
-    { return xelem (i, dim2 ()*k+j); }
+  { return xelem (i, dim2 ()*k+j); }
   crefT xelem (octave_idx_type i, octave_idx_type j, octave_idx_type k) const
-    { return xelem (i, dim2 ()*k+j); }
+  { return xelem (i, dim2 ()*k+j); }
 
   T& xelem (const Array<octave_idx_type>& ra_idx)
-    { return xelem (compute_index_unchecked (ra_idx)); }
+  { return xelem (compute_index_unchecked (ra_idx)); }
 
   crefT xelem (const Array<octave_idx_type>& ra_idx) const
-    { return xelem (compute_index_unchecked (ra_idx)); }
+  { return xelem (compute_index_unchecked (ra_idx)); }
 
-  // FIXME -- would be nice to fix this so that we don't
-  // unnecessarily force a copy, but that is not so easy, and I see no
-  // clean way to do it.
+  // FIXME: would be nice to fix this so that we don't unnecessarily force
+  //        a copy, but that is not so easy, and I see no clean way to do it.
 
   T& checkelem (octave_idx_type n);
   T& checkelem (octave_idx_type i, octave_idx_type j);
@@ -359,54 +364,71 @@
   T& checkelem (const Array<octave_idx_type>& ra_idx);
 
   T& elem (octave_idx_type n)
-    {
-      make_unique ();
-      return xelem (n);
-    }
+  {
+    make_unique ();
+    return xelem (n);
+  }
 
   T& elem (octave_idx_type i, octave_idx_type j) { return elem (dim1 ()*j+i); }
 
-  T& elem (octave_idx_type i, octave_idx_type j, octave_idx_type k) { return elem (i, dim2 ()*k+j); }
+  T& elem (octave_idx_type i, octave_idx_type j, octave_idx_type k)
+  { return elem (i, dim2 ()*k+j); }
 
   T& elem (const Array<octave_idx_type>& ra_idx)
-    { return Array<T>::elem (compute_index_unchecked (ra_idx)); }
+  { return Array<T>::elem (compute_index_unchecked (ra_idx)); }
 
 #if defined (BOUNDS_CHECKING)
   T& operator () (octave_idx_type n) { return checkelem (n); }
-  T& operator () (octave_idx_type i, octave_idx_type j) { return checkelem (i, j); }
-  T& operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k) { return checkelem (i, j, k); }
-  T& operator () (const Array<octave_idx_type>& ra_idx) { return checkelem (ra_idx); }
+  T& operator () (octave_idx_type i, octave_idx_type j)
+  { return checkelem (i, j); }
+  T& operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k)
+  { return checkelem (i, j, k); }
+  T& operator () (const Array<octave_idx_type>& ra_idx)
+  { return checkelem (ra_idx); }
 #else
   T& operator () (octave_idx_type n) { return elem (n); }
   T& operator () (octave_idx_type i, octave_idx_type j) { return elem (i, j); }
-  T& operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k) { return elem (i, j, k); }
-  T& operator () (const Array<octave_idx_type>& ra_idx) { return elem (ra_idx); }
+  T& operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k)
+  { return elem (i, j, k); }
+  T& operator () (const Array<octave_idx_type>& ra_idx)
+  { return elem (ra_idx); }
 #endif
 
   crefT checkelem (octave_idx_type n) const;
   crefT checkelem (octave_idx_type i, octave_idx_type j) const;
-  crefT checkelem (octave_idx_type i, octave_idx_type j, octave_idx_type k) const;
+  crefT checkelem (octave_idx_type i, octave_idx_type j,
+                   octave_idx_type k) const;
   crefT checkelem (const Array<octave_idx_type>& ra_idx) const;
 
   crefT elem (octave_idx_type n) const { return xelem (n); }
 
-  crefT elem (octave_idx_type i, octave_idx_type j) const { return xelem (i, j); }
+  crefT elem (octave_idx_type i, octave_idx_type j) const
+  { return xelem (i, j); }
 
-  crefT elem (octave_idx_type i, octave_idx_type j, octave_idx_type k) const { return xelem (i, j, k); }
+  crefT elem (octave_idx_type i, octave_idx_type j, octave_idx_type k) const
+  { return xelem (i, j, k); }
 
   crefT elem (const Array<octave_idx_type>& ra_idx) const
-    { return Array<T>::xelem (compute_index_unchecked (ra_idx)); }
+  { return Array<T>::xelem (compute_index_unchecked (ra_idx)); }
 
 #if defined (BOUNDS_CHECKING)
   crefT operator () (octave_idx_type n) const { return checkelem (n); }
-  crefT operator () (octave_idx_type i, octave_idx_type j) const { return checkelem (i, j); }
-  crefT operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k) const { return checkelem (i, j, k); }
-  crefT operator () (const Array<octave_idx_type>& ra_idx) const { return checkelem (ra_idx); }
+  crefT operator () (octave_idx_type i, octave_idx_type j) const
+  { return checkelem (i, j); }
+  crefT operator () (octave_idx_type i, octave_idx_type j,
+                     octave_idx_type k) const
+  { return checkelem (i, j, k); }
+  crefT operator () (const Array<octave_idx_type>& ra_idx) const
+  { return checkelem (ra_idx); }
 #else
   crefT operator () (octave_idx_type n) const { return elem (n); }
-  crefT operator () (octave_idx_type i, octave_idx_type j) const { return elem (i, j); }
-  crefT operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k) const { return elem (i, j, k); }
-  crefT operator () (const Array<octave_idx_type>& ra_idx) const { return elem (ra_idx); }
+  crefT operator () (octave_idx_type i, octave_idx_type j) const
+  { return elem (i, j); }
+  crefT operator () (octave_idx_type i, octave_idx_type j,
+                     octave_idx_type k) const
+  { return elem (i, j, k); }
+  crefT operator () (const Array<octave_idx_type>& ra_idx) const
+  { return elem (ra_idx); }
 #endif
 
   // Fast extractors. All of these produce shallow copies.
@@ -422,14 +444,14 @@
   Array<T> linear_slice (octave_idx_type lo, octave_idx_type up) const;
 
   Array<T> reshape (octave_idx_type nr, octave_idx_type nc) const
-    { return Array<T> (*this, dim_vector (nr, nc)); }
+  { return Array<T> (*this, dim_vector (nr, nc)); }
 
   Array<T> reshape (const dim_vector& new_dims) const
-    { return Array<T> (*this, new_dims); }
+  { return Array<T> (*this, new_dims); }
 
   Array<T> permute (const Array<octave_idx_type>& vec, bool inv = false) const;
   Array<T> ipermute (const Array<octave_idx_type>& vec) const
-    { return permute (vec, true); }
+  { return permute (vec, true); }
 
   bool is_square (void) const { return (dim1 () == dim2 ()); }
 
@@ -467,7 +489,8 @@
 
   void resize (octave_idx_type n) GCC_ATTR_DEPRECATED { resize1 (n); }
 
-  void resize (octave_idx_type nr, octave_idx_type nc, const T& rfv) GCC_ATTR_DEPRECATED
+  void resize (octave_idx_type nr, octave_idx_type nc,
+               const T& rfv) GCC_ATTR_DEPRECATED
   {
     resize2 (nr, nc, rfv);
   }
@@ -481,7 +504,7 @@
   void resize (const dim_vector& dv) { resize (dv, resize_fill_value ()); }
 
   // Indexing with possible resizing and fill
-  // FIXME -- this is really a corner case, that should better be
+  // FIXME: this is really a corner case, that should better be
   // handled directly in liboctinterp.
 
   Array<T> index (const idx_vector& i, bool resize_ok, const T& rfv) const;
@@ -490,13 +513,16 @@
     return index (i, resize_ok, resize_fill_value ());
   }
 
-  Array<T> index (const idx_vector& i, const idx_vector& j, bool resize_ok, const T& rfv) const;
-  Array<T> index (const idx_vector& i, const idx_vector& j, bool resize_ok) const
+  Array<T> index (const idx_vector& i, const idx_vector& j, bool resize_ok,
+                  const T& rfv) const;
+  Array<T> index (const idx_vector& i, const idx_vector& j,
+                  bool resize_ok) const
   {
     return index (i, j, resize_ok, resize_fill_value ());
   }
 
-  Array<T> index (const Array<idx_vector>& ia, bool resize_ok, const T& rfv) const;
+  Array<T> index (const Array<idx_vector>& ia, bool resize_ok,
+                  const T& rfv) const;
   Array<T> index (const Array<idx_vector>& ia, bool resize_ok) const
   {
     return index (ia, resize_ok, resize_fill_value ());
@@ -510,7 +536,8 @@
     assign (i, rhs, resize_fill_value ());
   }
 
-  void assign (const idx_vector& i, const idx_vector& j, const Array<T>& rhs, const T& rfv);
+  void assign (const idx_vector& i, const idx_vector& j, const Array<T>& rhs,
+               const T& rfv);
   void assign (const idx_vector& i, const idx_vector& j, const Array<T>& rhs)
   {
     assign (i, j, rhs, resize_fill_value ());
@@ -543,15 +570,15 @@
   Array<T>& insert (const Array<T>& a, octave_idx_type r, octave_idx_type c);
 
   void maybe_economize (void)
-    {
-      if (rep->count == 1 && slice_len != rep->len)
-        {
-          ArrayRep *new_rep = new ArrayRep (slice_data, slice_len);
-          delete rep;
-          rep = new_rep;
-          slice_data = rep->data;
-        }
-    }
+  {
+    if (rep->count == 1 && slice_len != rep->len)
+      {
+        ArrayRep *new_rep = new ArrayRep (slice_data, slice_len);
+        delete rep;
+        rep = new_rep;
+        slice_data = rep->data;
+      }
+  }
 
   void print_info (std::ostream& os, const std::string& prefix) const;
 
@@ -578,14 +605,16 @@
 
   // Ditto, but for an array of values, specializing on the case when values
   // are sorted. NaNs get the value N.
-  Array<octave_idx_type> lookup (const Array<T>& values, sortmode mode = UNSORTED) const;
+  Array<octave_idx_type> lookup (const Array<T>& values,
+                                 sortmode mode = UNSORTED) const;
 
   // Count nonzero elements.
   octave_idx_type nnz (void) const;
 
   // Find indices of (at most n) nonzero elements. If n is specified, backward
   // specifies search from backward.
-  Array<octave_idx_type> find (octave_idx_type n = -1, bool backward = false) const;
+  Array<octave_idx_type> find (octave_idx_type n = -1,
+                               bool backward = false) const;
 
   // Returns the n-th element in increasing order, using the same ordering as
   // used for sort. n can either be a scalar index or a contiguous range.
@@ -691,7 +720,7 @@
 private:
 
   void resize2 (octave_idx_type nr, octave_idx_type nc, const T& rfv);
-  void resize2 (octave_idx_type nr, octave_idx_type nc)                
+  void resize2 (octave_idx_type nr, octave_idx_type nc)
   {
     resize2 (nr, nc, resize_fill_value ());
   }
@@ -723,13 +752,13 @@
     explicit NoAlias (X x, Y y, Z z) : ArrayClass (x, y, z) { }
 
   T& operator () (octave_idx_type n)
-    { return ArrayClass::xelem (n); }
+  { return ArrayClass::xelem (n); }
   T& operator () (octave_idx_type i, octave_idx_type j)
-    { return ArrayClass::xelem (i, j); }
+  { return ArrayClass::xelem (i, j); }
   T& operator () (octave_idx_type i, octave_idx_type j, octave_idx_type k)
-    { return ArrayClass::xelem (i, j, k); }
+  { return ArrayClass::xelem (i, j, k); }
   T& operator () (const Array<octave_idx_type>& ra_idx)
-    { return ArrayClass::xelem (ra_idx); }
+  { return ArrayClass::xelem (ra_idx); }
 };
 
 template <class T>
--- a/liboctave/array/Array3.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Array3.h	Tue Nov 05 12:27:42 2013 -0500
@@ -42,7 +42,8 @@
 
   Array3 (void) : Array<T> (dim_vector (0, 0, 0)) { }
 
-  Array3 (octave_idx_type r, octave_idx_type c, octave_idx_type p) : Array<T> (dim_vector (r, c, p)) { }
+  Array3 (octave_idx_type r, octave_idx_type c,
+          octave_idx_type p) : Array<T> (dim_vector (r, c, p)) { }
 
   Array3 (octave_idx_type r, octave_idx_type c, octave_idx_type p, const T& val)
     : Array<T> (dim_vector (r, c, p), val) { }
@@ -50,37 +51,39 @@
   Array3 (const Array3<T>& a)
     : Array<T> (a, a.dims ()) { }
 
-  Array3 (const Array<T>& a, octave_idx_type r, octave_idx_type c, octave_idx_type p)
+  Array3 (const Array<T>& a, octave_idx_type r, octave_idx_type c,
+          octave_idx_type p)
     : Array<T> (a, dim_vector (r, c, p)) { }
 
   ~Array3 (void) { }
 
   Array3<T>& operator = (const Array3<T>& a)
-    {
-      if (this != &a)
-        Array<T>::operator = (a);
+  {
+    if (this != &a)
+      Array<T>::operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   void resize (octave_idx_type r, octave_idx_type c, octave_idx_type p)
-    { Array<T>::resize (dim_vector (r, c, p)); }
+  { Array<T>::resize (dim_vector (r, c, p)); }
 
-  void resize (octave_idx_type r, octave_idx_type c, octave_idx_type p, const T& val)
-    { Array<T>::resize (dim_vector (r, c, p), val); }
+  void resize (octave_idx_type r, octave_idx_type c, octave_idx_type p,
+               const T& val)
+  { Array<T>::resize (dim_vector (r, c, p), val); }
 
   Array3<T> sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const
-    {
-      Array<T> tmp = Array<T>::sort (dim, mode);
-      return Array3<T> (tmp, tmp.rows (), tmp.columns (), tmp.pages ());
-    }
+  {
+    Array<T> tmp = Array<T>::sort (dim, mode);
+    return Array3<T> (tmp, tmp.rows (), tmp.columns (), tmp.pages ());
+  }
 
   Array3<T> sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0,
-                 sortmode mode = ASCENDING) const
-    {
-      Array<T> tmp = Array<T>::sort (sidx, dim, mode);
-      return Array3<T> (tmp, tmp.rows (), tmp.columns (), tmp.pages ());
-    }
+                  sortmode mode = ASCENDING) const
+  {
+    Array<T> tmp = Array<T>::sort (sidx, dim, mode);
+    return Array3<T> (tmp, tmp.rows (), tmp.columns (), tmp.pages ());
+  }
 };
 
 // If we're with GNU C++, issue a warning.
--- a/liboctave/array/CColVector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CColVector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,7 +53,7 @@
 // Complex Column Vector class
 
 ComplexColumnVector::ComplexColumnVector (const ColumnVector& a)
-   : MArray<Complex> (a)
+  : MArray<Complex> (a)
 {
 }
 
@@ -176,7 +176,8 @@
 }
 
 ComplexColumnVector&
-ComplexColumnVector::fill (const Complex& val, octave_idx_type r1, octave_idx_type r2)
+ComplexColumnVector::fill (const Complex& val,
+                           octave_idx_type r1, octave_idx_type r2)
 {
   octave_idx_type len = length ();
 
--- a/liboctave/array/CColVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CColVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_ComplexColumnVector_h)
-#define octave_ComplexColumnVector_h 1
+#if !defined (octave_CColVector_h)
+#define octave_CColVector_h 1
 
 #include "MArray.h"
 
@@ -32,8 +32,8 @@
 OCTAVE_API
 ComplexColumnVector : public MArray<Complex>
 {
-friend class ComplexMatrix;
-friend class ComplexRowVector;
+  friend class ComplexMatrix;
+  friend class ComplexRowVector;
 
 public:
 
@@ -59,10 +59,10 @@
   explicit ComplexColumnVector (const ColumnVector& a);
 
   ComplexColumnVector& operator = (const ComplexColumnVector& a)
-    {
-      MArray<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<Complex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const ComplexColumnVector& a) const;
   bool operator != (const ComplexColumnVector& a) const;
@@ -74,8 +74,10 @@
 
   ComplexColumnVector& fill (double val);
   ComplexColumnVector& fill (const Complex& val);
-  ComplexColumnVector& fill (double val, octave_idx_type r1, octave_idx_type r2);
-  ComplexColumnVector& fill (const Complex& val, octave_idx_type r1, octave_idx_type r2);
+  ComplexColumnVector& fill (double val,
+                             octave_idx_type r1, octave_idx_type r2);
+  ComplexColumnVector& fill (const Complex& val,
+                             octave_idx_type r1, octave_idx_type r2);
 
   ComplexColumnVector stack (const ColumnVector& a) const;
   ComplexColumnVector stack (const ComplexColumnVector& a) const;
@@ -99,26 +101,26 @@
   // matrix by column vector -> column vector operations
 
   friend OCTAVE_API ComplexColumnVector operator * (const ComplexMatrix& a,
-                                         const ColumnVector& b);
+                                                    const ColumnVector& b);
 
   friend OCTAVE_API ComplexColumnVector operator * (const ComplexMatrix& a,
-                                         const ComplexColumnVector& b);
+                                                    const ComplexColumnVector& b);
 
   // matrix by column vector -> column vector operations
 
   friend OCTAVE_API ComplexColumnVector operator * (const Matrix& a,
-                                         const ComplexColumnVector& b);
+                                                    const ComplexColumnVector& b);
 
   // diagonal matrix by column vector -> column vector operations
 
   friend OCTAVE_API ComplexColumnVector operator * (const DiagMatrix& a,
-                                         const ComplexColumnVector& b);
+                                                    const ComplexColumnVector& b);
 
   friend OCTAVE_API ComplexColumnVector operator * (const ComplexDiagMatrix& a,
-                                         const ColumnVector& b);
+                                                    const ColumnVector& b);
 
   friend OCTAVE_API ComplexColumnVector operator * (const ComplexDiagMatrix& a,
-                                         const ComplexColumnVector& b);
+                                                    const ComplexColumnVector& b);
 
   // other operations
 
@@ -129,8 +131,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const ComplexColumnVector& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, ComplexColumnVector& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const ComplexColumnVector& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               ComplexColumnVector& a);
 
   void resize (octave_idx_type n, const Complex& rfv = Complex (0))
   {
@@ -138,7 +142,7 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<Complex>::clear (n, 1); }
+  { Array<Complex>::clear (n, 1); }
 
 };
 
--- a/liboctave/array/CDiagMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CDiagMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -91,7 +91,8 @@
 }
 
 ComplexDiagMatrix&
-ComplexDiagMatrix::fill (const Complex& val, octave_idx_type beg, octave_idx_type end)
+ComplexDiagMatrix::fill (const Complex& val,
+                         octave_idx_type beg, octave_idx_type end)
 {
   if (beg < 0 || end >= length () || end < beg)
     {
@@ -248,7 +249,8 @@
 // resize is the destructive analog for this one
 
 ComplexMatrix
-ComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+ComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                            octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
--- a/liboctave/array/CDiagMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CDiagMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexDiagMatrix_h)
-#define octave_ComplexDiagMatrix_h 1
+#if !defined (octave_CDiagMatrix_h)
+#define octave_CDiagMatrix_h 1
 
 #include "MDiagArray2.h"
 
@@ -41,7 +41,8 @@
 
   ComplexDiagMatrix (void) : MDiagArray2<Complex> () { }
 
-  ComplexDiagMatrix (octave_idx_type r, octave_idx_type c) : MDiagArray2<Complex> (r, c) { }
+  ComplexDiagMatrix (octave_idx_type r, octave_idx_type c)
+    : MDiagArray2<Complex> (r, c) { }
 
   ComplexDiagMatrix (octave_idx_type r, octave_idx_type c, const Complex& val)
     : MDiagArray2<Complex> (r, c, val) { }
@@ -52,7 +53,8 @@
   explicit ComplexDiagMatrix (const Array<double>& a)
     : MDiagArray2<Complex> (Array<Complex> (a)) { }
 
-  ComplexDiagMatrix (const Array<Complex>& a, octave_idx_type r, octave_idx_type c)
+  ComplexDiagMatrix (const Array<Complex>& a, octave_idx_type r,
+                     octave_idx_type c)
     : MDiagArray2<Complex> (a, r, c) { }
 
   explicit ComplexDiagMatrix (const DiagMatrix& a);
@@ -68,18 +70,20 @@
     : MDiagArray2<Complex> (a) { }
 
   ComplexDiagMatrix& operator = (const ComplexDiagMatrix& a)
-    {
-      MDiagArray2<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MDiagArray2<Complex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const ComplexDiagMatrix& a) const;
   bool operator != (const ComplexDiagMatrix& a) const;
 
   ComplexDiagMatrix& fill (double val);
   ComplexDiagMatrix& fill (const Complex& val);
-  ComplexDiagMatrix& fill (double val, octave_idx_type beg, octave_idx_type end);
-  ComplexDiagMatrix& fill (const Complex& val, octave_idx_type beg, octave_idx_type end);
+  ComplexDiagMatrix& fill (double val,
+                           octave_idx_type beg, octave_idx_type end);
+  ComplexDiagMatrix& fill (const Complex& val,
+                           octave_idx_type beg, octave_idx_type end);
   ComplexDiagMatrix& fill (const ColumnVector& a);
   ComplexDiagMatrix& fill (const ComplexColumnVector& a);
   ComplexDiagMatrix& fill (const RowVector& a);
@@ -89,15 +93,18 @@
   ComplexDiagMatrix& fill (const RowVector& a, octave_idx_type beg);
   ComplexDiagMatrix& fill (const ComplexRowVector& a, octave_idx_type beg);
 
-  ComplexDiagMatrix hermitian (void) const { return MDiagArray2<Complex>::hermitian (std::conj); }
-  ComplexDiagMatrix transpose (void) const { return MDiagArray2<Complex>::transpose (); }
+  ComplexDiagMatrix hermitian (void) const
+  { return MDiagArray2<Complex>::hermitian (std::conj); }
+  ComplexDiagMatrix transpose (void) const
+  { return MDiagArray2<Complex>::transpose (); }
   DiagMatrix abs (void) const;
 
   friend OCTAVE_API ComplexDiagMatrix conj (const ComplexDiagMatrix& a);
 
   // resize is the destructive analog for this one
 
-  ComplexMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  ComplexMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                         octave_idx_type r2, octave_idx_type c2) const;
 
   // extract row or column i
 
@@ -121,14 +128,15 @@
   // other operations
 
   ComplexColumnVector extract_diag (octave_idx_type k = 0) const
-    { return MDiagArray2<Complex>::extract_diag (k); }
+  { return MDiagArray2<Complex>::extract_diag (k); }
 
   ComplexDET determinant (void) const;
   double rcond (void) const;
 
   // i/o
 
-  friend std::ostream& operator << (std::ostream& os, const ComplexDiagMatrix& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const ComplexDiagMatrix& a);
 
 };
 
--- a/liboctave/array/CMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -300,8 +300,7 @@
     elem (i, i) = a.elem (i, i);
 }
 
-// FIXME -- could we use a templated mixed-type copy function
-// here?
+// FIXME: could we use a templated mixed-type copy function here?
 
 ComplexMatrix::ComplexMatrix (const boolMatrix& a)
   : MArray<Complex> (a)
@@ -410,7 +409,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const ColumnVector& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const ColumnVector& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -432,7 +432,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const DiagMatrix& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const DiagMatrix& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -459,14 +460,16 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const ComplexMatrix& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const ComplexMatrix& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   Array<Complex>::insert (a, r, c);
   return *this;
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const ComplexRowVector& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const ComplexRowVector& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
   if (r < 0 || r >= rows () || c < 0 || c + a_len > cols ())
@@ -482,7 +485,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const ComplexColumnVector& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const ComplexColumnVector& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -504,7 +508,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::insert (const ComplexDiagMatrix& a, octave_idx_type r, octave_idx_type c)
+ComplexMatrix::insert (const ComplexDiagMatrix& a,
+                       octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -567,7 +572,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::fill (double val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+ComplexMatrix::fill (double val, octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -595,7 +601,8 @@
 }
 
 ComplexMatrix&
-ComplexMatrix::fill (const Complex& val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+ComplexMatrix::fill (const Complex& val, octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -927,7 +934,8 @@
 // resize is the destructive equivalent for this one
 
 ComplexMatrix
-ComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+ComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                        octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -936,7 +944,8 @@
 }
 
 ComplexMatrix
-ComplexMatrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const
+ComplexMatrix::extract_n (octave_idx_type r1, octave_idx_type c1,
+                          octave_idx_type nr, octave_idx_type nc) const
 {
   return index (idx_vector (r1, r1 + nr), idx_vector (c1, c1 + nc));
 }
@@ -1089,7 +1098,8 @@
       // Calculate the norm of the matrix, for later use.
       double anorm;
       if (calc_cond)
-        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                .max ();
 
       F77_XFCN (zgetrf, ZGETRF, (nc, nc, tmp_data, nr, pipvt, info));
 
@@ -1558,7 +1568,8 @@
 }
 
 ComplexDET
-ComplexMatrix::determinant (octave_idx_type& info, double& rcon, int calc_cond) const
+ComplexMatrix::determinant (octave_idx_type& info, double& rcon,
+                            int calc_cond) const
 {
   MatrixType mattype (*this);
   return determinant (mattype, info, rcon, calc_cond);
@@ -1796,7 +1807,7 @@
               Complex *tmp_data = atmp.fortran_vec ();
 
               anorm = atmp.abs().sum().
-                row(static_cast<octave_idx_type>(0)).max();
+                      row(static_cast<octave_idx_type>(0)).max();
 
               F77_XFCN (zpotrf, ZPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
                                          tmp_data, nr, info
@@ -1839,7 +1850,7 @@
 
               if (anorm < 0.)
                 anorm = atmp.abs ().sum ().
-                  row(static_cast<octave_idx_type>(0)).max ();
+                        row(static_cast<octave_idx_type>(0)).max ();
 
               Array<Complex> z (dim_vector (2 * nc, 1));
               Complex *pz = z.fortran_vec ();
@@ -2096,7 +2107,7 @@
     {
       volatile int typ = mattype.type ();
 
-     // Calculate the norm of the matrix, for later use.
+      // Calculate the norm of the matrix, for later use.
       double anorm = -1.;
 
       if (typ == MatrixType::Hermitian)
@@ -2191,7 +2202,8 @@
 
           // Calculate the norm of the matrix, for later use.
           if (anorm < 0.)
-            anorm = atmp.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+            anorm = atmp.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                    .max ();
 
           F77_XFCN (zgetrf, ZGETRF, (nr, nr, tmp_data, nr, pipvt, info));
 
@@ -2334,9 +2346,11 @@
   else if (typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
     retval = ltsolve (mattype, b, info, rcon, sing_handler, false, transt);
   else if (transt == blas_trans)
-    return transpose ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    return transpose ().solve (mattype, b, info, rcon, sing_handler,
+                               singular_fallback);
   else if (transt == blas_conj_trans)
-    retval = hermitian ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    retval = hermitian ().solve (mattype, b, info, rcon, sing_handler,
+                                 singular_fallback);
   else if (typ == MatrixType::Full || typ == MatrixType::Hermitian)
     retval = fsolve (mattype, b, info, rcon, sing_handler, true);
   else if (typ != MatrixType::Rectangular)
@@ -2381,7 +2395,8 @@
 ComplexColumnVector
 ComplexMatrix::solve (MatrixType &typ, const ColumnVector& b,
                       octave_idx_type& info, double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
   return solve (typ, ComplexColumnVector (b), info, rcon, sing_handler, transt);
 }
@@ -2412,7 +2427,8 @@
 ComplexColumnVector
 ComplexMatrix::solve (MatrixType &typ, const ComplexColumnVector& b,
                       octave_idx_type& info, double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
 
   ComplexMatrix tmp (b);
@@ -2436,14 +2452,16 @@
 }
 
 ComplexMatrix
-ComplexMatrix::solve (const Matrix& b, octave_idx_type& info, double& rcon) const
+ComplexMatrix::solve (const Matrix& b, octave_idx_type& info,
+                      double& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 ComplexMatrix
 ComplexMatrix::solve (const Matrix& b, octave_idx_type& info, double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
   ComplexMatrix tmp (b);
   return solve (tmp, info, rcon, sing_handler, transt);
@@ -2465,14 +2483,17 @@
 }
 
 ComplexMatrix
-ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon) const
+ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info,
+                      double& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 ComplexMatrix
-ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info,
+                      double& rcon,
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, true, transt);
@@ -2503,7 +2524,8 @@
 ComplexColumnVector
 ComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info,
                       double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
   return solve (ComplexColumnVector (b), info, rcon, sing_handler, transt);
 }
@@ -2533,7 +2555,8 @@
 ComplexColumnVector
 ComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
                       double& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                      solve_singularity_handler sing_handler,
+                      blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, transt);
@@ -2670,8 +2693,9 @@
         nlvl = 0;
 
       octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl)
-        + 3*smlsiz*nrhs + std::max ((smlsiz+1)*(smlsiz+1),
-                                    n*(1+nrhs) + 2*nrhs);
+                               + 3*smlsiz*nrhs
+                               + std::max ((smlsiz+1)*(smlsiz+1),
+                                           n*(1+nrhs) + 2*nrhs);
       if (lrwork < 1)
         lrwork = 1;
       Array<double> rwork (dim_vector (lrwork, 1));
@@ -2778,7 +2802,8 @@
 }
 
 ComplexColumnVector
-ComplexMatrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info) const
+ComplexMatrix::lssolve (const ComplexColumnVector& b,
+                        octave_idx_type& info) const
 {
   octave_idx_type rank;
   double rcon;
@@ -2860,7 +2885,7 @@
         nlvl = 0;
 
       octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl)
-        + 3*smlsiz*nrhs + (smlsiz+1)*(smlsiz+1);
+                               + 3*smlsiz*nrhs + (smlsiz+1)*(smlsiz+1);
       if (lrwork < 1)
         lrwork = 1;
       Array<double> rwork (dim_vector (lrwork, 1));
@@ -3172,8 +3197,7 @@
   return test_any (xtoo_large_for_float);
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 boolMatrix
 ComplexMatrix::all (int dim) const
@@ -3319,7 +3343,8 @@
 
               if (! xisnan (tmp_min))
                 {
-                  abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min);
+                  abs_min = real_only ? std::real (tmp_min)
+                                      : std::abs (tmp_min);
                   break;
                 }
             }
@@ -3393,7 +3418,8 @@
 
               if (! xisnan (tmp_max))
                 {
-                  abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max);
+                  abs_max = real_only ? std::real (tmp_max)
+                                      : std::abs (tmp_max);
                   break;
                 }
             }
@@ -3467,7 +3493,8 @@
 
               if (! xisnan (tmp_min))
                 {
-                  abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min);
+                  abs_min = real_only ? std::real (tmp_min)
+                                      : std::abs (tmp_min);
                   break;
                 }
             }
@@ -3541,7 +3568,8 @@
 
               if (! xisnan (tmp_max))
                 {
-                  abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max);
+                  abs_max = real_only ? std::real (tmp_max)
+                                      : std::abs (tmp_max);
                   break;
                 }
             }
@@ -3645,8 +3673,7 @@
 {
   ComplexMatrix retval;
 
-  // FIXME -- need to check that a, b, and c are all the same
-  // size.
+  // FIXME: need to check that a, b, and c are all the same size.
 
   // Compute Schur decompositions
 
@@ -3663,8 +3690,7 @@
 
   ComplexMatrix cx = ua.hermitian () * c * ub;
 
-  // Solve the sylvester equation, back-transform, and return the
-  // solution.
+  // Solve the sylvester equation, back-transform, and return the solution.
 
   octave_idx_type a_nr = a.rows ();
   octave_idx_type b_nr = b.rows ();
@@ -3683,7 +3709,7 @@
                              F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
-  // FIXME -- check info?
+  // FIXME: check info?
 
   retval = -ua * cx * ub.hermitian ();
 
@@ -3764,7 +3790,7 @@
         {
           octave_idx_type lda = a.rows ();
 
-          // FIXME -- looking at the reference BLAS, it appears that it
+          // FIXME: looking at the reference BLAS, it appears that it
           // should not be necessary to initialize the output matrix if
           // BETA is 0 in the call to ZHERK, but ATLAS appears to
           // use the result matrix before zeroing the elements.
@@ -3812,13 +3838,16 @@
             {
               if (cja == cjb)
                 {
-                  F77_FUNC (xzdotu, XZDOTU) (a_nc, a.data (), 1, b.data (), 1, *c);
+                  F77_FUNC (xzdotu, XZDOTU) (a_nc, a.data (), 1, b.data (), 1,
+                                             *c);
                   if (cja) *c = std::conj (*c);
                 }
               else if (cja)
-                  F77_FUNC (xzdotc, XZDOTC) (a_nc, a.data (), 1, b.data (), 1, *c);
+                F77_FUNC (xzdotc, XZDOTC) (a_nc, a.data (), 1, b.data (), 1,
+                                           *c);
               else
-                  F77_FUNC (xzdotc, XZDOTC) (a_nc, b.data (), 1, a.data (), 1, *c);
+                F77_FUNC (xzdotc, XZDOTC) (a_nc, b.data (), 1, a.data (), 1,
+                                           *c);
             }
           else if (b_nc == 1 && ! cjb)
             {
@@ -3859,8 +3888,7 @@
   return xgemm (a, b);
 }
 
-// FIXME -- it would be nice to share code among the min/max
-// functions below.
+// FIXME: it would be nice to share code among the min/max functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
@@ -4055,7 +4083,8 @@
   octave_idx_type m = x1.length ();
 
   if (x2.length () != m)
-    (*current_liboctave_error_handler) ("linspace: vectors must be of equal length");
+    (*current_liboctave_error_handler)
+      ("linspace: vectors must be of equal length");
 
   NoAlias<ComplexMatrix> retval;
 
--- a/liboctave/array/CMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexMatrix_h)
-#define octave_ComplexMatrix_h 1
+#if !defined (octave_CMatrix_h)
+#define octave_CMatrix_h 1
 
 #include "MArray.h"
 #include "MDiagArray2.h"
@@ -85,10 +85,10 @@
   explicit ComplexMatrix (const charMatrix& a);
 
   ComplexMatrix& operator = (const ComplexMatrix& a)
-    {
-      MArray<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<Complex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const ComplexMatrix& a) const;
   bool operator != (const ComplexMatrix& a) const;
@@ -98,19 +98,30 @@
   // destructive insert/delete/reorder operations
 
   ComplexMatrix& insert (const Matrix& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const RowVector& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const ColumnVector& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const DiagMatrix& a, octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const RowVector& a,
+                         octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const ColumnVector& a,
+                         octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const DiagMatrix& a,
+                         octave_idx_type r, octave_idx_type c);
 
-  ComplexMatrix& insert (const ComplexMatrix& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const ComplexRowVector& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const ComplexColumnVector& a, octave_idx_type r, octave_idx_type c);
-  ComplexMatrix& insert (const ComplexDiagMatrix& a, octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const ComplexMatrix& a,
+                         octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const ComplexRowVector& a,
+                         octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const ComplexColumnVector& a,
+                         octave_idx_type r, octave_idx_type c);
+  ComplexMatrix& insert (const ComplexDiagMatrix& a,
+                         octave_idx_type r, octave_idx_type c);
 
   ComplexMatrix& fill (double val);
   ComplexMatrix& fill (const Complex& val);
-  ComplexMatrix& fill (double val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
-  ComplexMatrix& fill (const Complex& val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
+  ComplexMatrix& fill (double val,
+                       octave_idx_type r1, octave_idx_type c1,
+                       octave_idx_type r2, octave_idx_type c2);
+  ComplexMatrix& fill (const Complex& val,
+                       octave_idx_type r1, octave_idx_type c1,
+                       octave_idx_type r2, octave_idx_type c2);
 
   ComplexMatrix append (const Matrix& a) const;
   ComplexMatrix append (const RowVector& a) const;
@@ -133,17 +144,19 @@
   ComplexMatrix stack (const ComplexDiagMatrix& a) const;
 
   ComplexMatrix hermitian (void) const
-    { return MArray<Complex>::hermitian (std::conj); }
+  { return MArray<Complex>::hermitian (std::conj); }
   ComplexMatrix transpose (void) const
-    { return MArray<Complex>::transpose (); }
+  { return MArray<Complex>::transpose (); }
 
   friend OCTAVE_API ComplexMatrix conj (const ComplexMatrix& a);
 
   // resize is the destructive equivalent for this one
 
-  ComplexMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  ComplexMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                         octave_idx_type r2, octave_idx_type c2) const;
 
-  ComplexMatrix extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const;
+  ComplexMatrix extract_n (octave_idx_type r1, octave_idx_type c1,
+                           octave_idx_type nr, octave_idx_type nc) const;
 
   // extract row or column i.
 
@@ -186,7 +199,8 @@
 
   ComplexDET determinant (void) const;
   ComplexDET determinant (octave_idx_type& info) const;
-  ComplexDET determinant (octave_idx_type& info, double& rcon, int calc_cond = 1) const;
+  ComplexDET determinant (octave_idx_type& info, double& rcon,
+                          int calc_cond = 1) const;
   ComplexDET determinant (MatrixType &mattype, octave_idx_type& info,
                           double& rcon, int calc_cond = 1) const;
 
@@ -196,22 +210,23 @@
 private:
   // Upper triangular matrix solvers
   ComplexMatrix utsolve (MatrixType &typ, const ComplexMatrix& b,
-                  octave_idx_type& info, double& rcon,
-                  solve_singularity_handler sing_handler,
-                  bool calc_cond = false,
-                  blas_trans_type transt = blas_no_trans) const;
+                         octave_idx_type& info, double& rcon,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false,
+                         blas_trans_type transt = blas_no_trans) const;
 
   // Lower triangular matrix solvers
   ComplexMatrix ltsolve (MatrixType &typ, const ComplexMatrix& b,
-                  octave_idx_type& info, double& rcon,
-                  solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+                         octave_idx_type& info, double& rcon,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false,
+                         blas_trans_type transt = blas_no_trans) const;
 
   // Full matrix solvers (umfpack/cholesky)
   ComplexMatrix fsolve (MatrixType &typ, const ComplexMatrix& b,
-                 octave_idx_type& info, double& rcon,
-                 solve_singularity_handler sing_handler,
-                 bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcon,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
 public:
   // Generic interface to solver with no probing of type
@@ -260,15 +275,18 @@
   // Generic interface to solver with probing of type
   ComplexMatrix solve (const Matrix& b) const;
   ComplexMatrix solve (const Matrix& b, octave_idx_type& info) const;
-  ComplexMatrix solve (const Matrix& b, octave_idx_type& info, double& rcon) const;
+  ComplexMatrix solve (const Matrix& b, octave_idx_type& info,
+                       double& rcon) const;
   ComplexMatrix solve (const Matrix& b, octave_idx_type& info, double& rcon,
                        solve_singularity_handler sing_handler,
                        blas_trans_type transt = blas_no_trans) const;
 
   ComplexMatrix solve (const ComplexMatrix& b) const;
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info) const;
-  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon) const;
-  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon,
+  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
+                       double& rcon) const;
+  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
+                       double& rcon,
                        solve_singularity_handler sing_handler,
                        blas_trans_type transt = blas_no_trans) const;
 
@@ -276,16 +294,21 @@
   ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info) const;
   ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info,
                              double& rcon) const;
-  ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info, double& rcon,
+  ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info,
+                             double& rcon,
                              solve_singularity_handler sing_handler,
                              blas_trans_type transt = blas_no_trans) const;
 
   ComplexColumnVector solve (const ComplexColumnVector& b) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info,
                              double& rcon) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcon, solve_singularity_handler sing_handler,
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info,
+                             double& rcon,
+                             solve_singularity_handler sing_handler,
                              blas_trans_type transt = blas_no_trans) const;
 
   ComplexMatrix lssolve (const Matrix& b) const;
@@ -376,8 +399,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const ComplexMatrix& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, ComplexMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const ComplexMatrix& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               ComplexMatrix& a);
 };
 
 extern OCTAVE_API ComplexMatrix conj (const ComplexMatrix& a);
@@ -404,17 +429,22 @@
        blas_trans_type transa = blas_no_trans,
        blas_trans_type transb = blas_no_trans);
 
-extern OCTAVE_API ComplexMatrix operator * (const Matrix&,        const ComplexMatrix&);
-extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&, const Matrix&);
-extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&, const ComplexMatrix&);
+extern OCTAVE_API ComplexMatrix operator * (const Matrix&,
+                                            const ComplexMatrix&);
+extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&,
+                                            const Matrix&);
+extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&,
+                                            const ComplexMatrix&);
 
 extern OCTAVE_API ComplexMatrix min (const Complex& c, const ComplexMatrix& m);
 extern OCTAVE_API ComplexMatrix min (const ComplexMatrix& m, const Complex& c);
-extern OCTAVE_API ComplexMatrix min (const ComplexMatrix& a, const ComplexMatrix& b);
+extern OCTAVE_API ComplexMatrix min (const ComplexMatrix& a,
+                                     const ComplexMatrix& b);
 
 extern OCTAVE_API ComplexMatrix max (const Complex& c, const ComplexMatrix& m);
 extern OCTAVE_API ComplexMatrix max (const ComplexMatrix& m, const Complex& c);
-extern OCTAVE_API ComplexMatrix max (const ComplexMatrix& a, const ComplexMatrix& b);
+extern OCTAVE_API ComplexMatrix max (const ComplexMatrix& a,
+                                     const ComplexMatrix& b);
 
 extern OCTAVE_API ComplexMatrix linspace (const ComplexColumnVector& x1,
                                           const ComplexColumnVector& x2,
--- a/liboctave/array/CNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -111,7 +111,7 @@
   // Need to be careful here about the distance between fft's
   for (octave_idx_type k = 0; k < nloop; k++)
     octave_fftw::ifft (in + k * stride * n, out + k * stride * n,
-                      n, howmany, stride, dist);
+                       n, howmany, stride, dist);
 
   return retval;
 }
@@ -293,7 +293,7 @@
 
           for (octave_idx_type i = 0; i < npts; i++)
             retval((i + k*npts)*stride + j*dist) = tmp[i] /
-              static_cast<double> (npts);
+                                                   static_cast<double> (npts);
         }
     }
 
@@ -386,8 +386,8 @@
               F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<double> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<double> (npts);
             }
         }
 
@@ -481,8 +481,8 @@
               F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<double> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<double> (npts);
             }
         }
 
@@ -505,7 +505,7 @@
   return do_mx_unary_op<bool, Complex> (*this, mx_inline_not);
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 bool
 ComplexNDArray::any_element_is_nan (void) const
@@ -642,7 +642,8 @@
 }
 
 ComplexNDArray
-ComplexNDArray::concat (const ComplexNDArray& rb, const Array<octave_idx_type>& ra_idx)
+ComplexNDArray::concat (const ComplexNDArray& rb,
+                        const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
@@ -798,14 +799,16 @@
 }
 
 ComplexNDArray&
-ComplexNDArray::insert (const ComplexNDArray& a, octave_idx_type r, octave_idx_type c)
+ComplexNDArray::insert (const ComplexNDArray& a,
+                        octave_idx_type r, octave_idx_type c)
 {
   Array<Complex>::insert (a, r, c);
   return *this;
 }
 
 ComplexNDArray&
-ComplexNDArray::insert (const ComplexNDArray& a, const Array<octave_idx_type>& ra_idx)
+ComplexNDArray::insert (const ComplexNDArray& a,
+                        const Array<octave_idx_type>& ra_idx)
 {
   Array<Complex>::insert (a, ra_idx);
   return *this;
@@ -817,7 +820,7 @@
   ComplexMatrix retval;
 
   if (ndims () == 2)
-      retval = ComplexMatrix (Array<Complex> (*this));
+    retval = ComplexMatrix (Array<Complex> (*this));
   else
     (*current_liboctave_error_handler)
       ("invalid conversion of ComplexNDArray to ComplexMatrix");
@@ -876,16 +879,16 @@
     {
       Complex tmp;
       for (octave_idx_type i = 0; i < nel; i++)
-          {
-            tmp = octave_read_value<Complex> (is);
-            if (is)
-              a.elem (i) = tmp;
-            else
-              goto done;
-          }
+        {
+          tmp = octave_read_value<Complex> (is);
+          if (is)
+            a.elem (i) = tmp;
+          else
+            goto done;
+        }
     }
 
- done:
+done:
 
   return is;
 }
--- a/liboctave/array/CNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexNDArray_h)
-#define octave_ComplexNDArray_h 1
+#if !defined (octave_CNDArray_h)
+#define octave_CNDArray_h 1
 
 #include "MArray.h"
 #include "CMatrix.h"
@@ -58,16 +58,16 @@
   ComplexNDArray (const charNDArray&);
 
   ComplexNDArray& operator = (const ComplexNDArray& a)
-    {
-      MArray<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<Complex>::operator = (a);
+    return *this;
+  }
 
   // unary operations
 
   boolNDArray operator ! (void) const;
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   bool any_element_is_nan (void) const;
   bool any_element_is_inf_or_nan (void) const;
@@ -84,8 +84,10 @@
   ComplexNDArray sum (int dim = -1) const;
   ComplexNDArray xsum (int dim = -1) const;
   ComplexNDArray sumsq (int dim = -1) const;
-  ComplexNDArray concat (const ComplexNDArray& rb, const Array<octave_idx_type>& ra_idx);
-  ComplexNDArray concat (const NDArray& rb, const Array<octave_idx_type>& ra_idx);
+  ComplexNDArray concat (const ComplexNDArray& rb,
+                         const Array<octave_idx_type>& ra_idx);
+  ComplexNDArray concat (const NDArray& rb,
+                         const Array<octave_idx_type>& ra_idx);
 
   ComplexNDArray max (int dim = -1) const;
   ComplexNDArray max (Array<octave_idx_type>& index, int dim = -1) const;
@@ -99,9 +101,12 @@
 
   ComplexNDArray diff (octave_idx_type order = 1, int dim = -1) const;
 
-  ComplexNDArray& insert (const NDArray& a, octave_idx_type r, octave_idx_type c);
-  ComplexNDArray& insert (const ComplexNDArray& a, octave_idx_type r, octave_idx_type c);
-  ComplexNDArray& insert (const ComplexNDArray& a, const Array<octave_idx_type>& ra_idx);
+  ComplexNDArray& insert (const NDArray& a,
+                          octave_idx_type r, octave_idx_type c);
+  ComplexNDArray& insert (const ComplexNDArray& a,
+                          octave_idx_type r, octave_idx_type c);
+  ComplexNDArray& insert (const ComplexNDArray& a,
+                          const Array<octave_idx_type>& ra_idx);
 
   NDArray abs (void) const;
   boolNDArray isnan (void) const;
@@ -128,12 +133,14 @@
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const ComplexNDArray& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, ComplexNDArray& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const ComplexNDArray& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               ComplexNDArray& a);
 
   //  bool all_elements_are_real (void) const;
   //  bool all_integers (double& max_val, double& min_val) const;
@@ -143,10 +150,10 @@
   ComplexNDArray diag (octave_idx_type m, octave_idx_type n) const;
 
   ComplexNDArray& changesign (void)
-    {
-      MArray<Complex>::changesign ();
-      return *this;
-    }
+  {
+    MArray<Complex>::changesign ();
+    return *this;
+  }
 
 };
 
--- a/liboctave/array/CRowVector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CRowVector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -174,7 +174,8 @@
 }
 
 ComplexRowVector&
-ComplexRowVector::fill (const Complex& val, octave_idx_type c1, octave_idx_type c2)
+ComplexRowVector::fill (const Complex& val,
+                        octave_idx_type c1, octave_idx_type c2)
 {
   octave_idx_type len = length ();
 
--- a/liboctave/array/CRowVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CRowVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexRowVector_h)
-#define octave_ComplexRowVector_h 1
+#if !defined (octave_CRowVector_h)
+#define octave_CRowVector_h 1
 
 #include "MArray.h"
 #include "dRowVector.h"
@@ -32,11 +32,11 @@
 OCTAVE_API
 ComplexRowVector : public MArray<Complex>
 {
-friend class ComplexColumnVector;
+  friend class ComplexColumnVector;
 
 public:
 
- ComplexRowVector (void) : MArray<Complex> (dim_vector (1, 0)) { }
+  ComplexRowVector (void) : MArray<Complex> (dim_vector (1, 0)) { }
 
   explicit ComplexRowVector (octave_idx_type n)
     : MArray<Complex> (dim_vector (1, n)) { }
@@ -57,10 +57,10 @@
   explicit ComplexRowVector (const RowVector& a) : MArray<Complex> (a) { }
 
   ComplexRowVector& operator = (const ComplexRowVector& a)
-    {
-      MArray<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<Complex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const ComplexRowVector& a) const;
   bool operator != (const ComplexRowVector& a) const;
@@ -73,7 +73,8 @@
   ComplexRowVector& fill (double val);
   ComplexRowVector& fill (const Complex& val);
   ComplexRowVector& fill (double val, octave_idx_type c1, octave_idx_type c2);
-  ComplexRowVector& fill (const Complex& val, octave_idx_type c1, octave_idx_type c2);
+  ComplexRowVector& fill (const Complex& val,
+                          octave_idx_type c1, octave_idx_type c2);
 
   ComplexRowVector append (const RowVector& a) const;
   ComplexRowVector append (const ComplexRowVector& a) const;
@@ -109,7 +110,8 @@
 
   // i/o
 
-  friend std::ostream& operator << (std::ostream& os, const ComplexRowVector& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const ComplexRowVector& a);
   friend std::istream& operator >> (std::istream& is, ComplexRowVector& a);
 
   void resize (octave_idx_type n, const Complex& rfv = Complex (0))
@@ -118,19 +120,22 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<Complex>::clear (1, n); }
+  { Array<Complex>::clear (1, n); }
 
 };
 
 // row vector by column vector -> scalar
 
-Complex OCTAVE_API operator * (const ComplexRowVector& a, const ColumnVector& b);
+Complex OCTAVE_API operator * (const ComplexRowVector& a,
+                               const ColumnVector& b);
 
-Complex OCTAVE_API operator * (const ComplexRowVector& a, const ComplexColumnVector& b);
+Complex OCTAVE_API operator * (const ComplexRowVector& a,
+                               const ComplexColumnVector& b);
 
 // other operations
 
-OCTAVE_API ComplexRowVector linspace (const Complex& x1, const Complex& x2, octave_idx_type n);
+OCTAVE_API ComplexRowVector linspace (const Complex& x1, const Complex& x2,
+                                      octave_idx_type n);
 
 MARRAY_FORWARD_DEFS (MArray, ComplexRowVector, Complex)
 
--- a/liboctave/array/CSparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CSparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -189,7 +189,7 @@
 
   for (octave_idx_type i = 0; i < nc + 1; i++)
     if (cidx (i) != a.cidx (i))
-        return false;
+      return false;
 
   for (octave_idx_type i = 0; i < nz; i++)
     if (data (i) != a.data (i) || ridx (i) != a.ridx (i))
@@ -345,16 +345,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr);
 
       for (octave_idx_type i = 0; i < nr; i++)
-        found [i] = 0;
+        found[i] = 0;
 
       for (octave_idx_type j = 0; j < nc; j++)
         for (octave_idx_type i = cidx(j); i < cidx(j+1); i++)
-          if (found [ridx (i)] == -j)
-            found [ridx (i)] = -j - 1;
-      
+          if (found[ridx (i)] == -j)
+            found[ridx (i)] = -j - 1;
+
       for (octave_idx_type i = 0; i < nr; i++)
-        if (found [i] > -nc && found [i] < 0)
-          idx_arg.elem (i) = -found [i];
+        if (found[i] > -nc && found[i] < 0)
+          idx_arg.elem (i) = -found[i];
 
       for (octave_idx_type j = 0; j < nc; j++)
         {
@@ -502,16 +502,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr);
 
       for (octave_idx_type i = 0; i < nr; i++)
-        found [i] = 0;
+        found[i] = 0;
 
       for (octave_idx_type j = 0; j < nc; j++)
         for (octave_idx_type i = cidx(j); i < cidx(j+1); i++)
-          if (found [ridx (i)] == -j)
-            found [ridx (i)] = -j - 1;
-      
+          if (found[ridx (i)] == -j)
+            found[ridx (i)] = -j - 1;
+
       for (octave_idx_type i = 0; i < nr; i++)
-        if (found [i] > -nc && found [i] < 0)
-          idx_arg.elem (i) = -found [i];
+        if (found[i] > -nc && found[i] < 0)
+          idx_arg.elem (i) = -found[i];
 
       for (octave_idx_type j = 0; j < nc; j++)
         {
@@ -563,16 +563,16 @@
 
 /*
 
-%!assert (max (max (speye (65536) * 1i)), sparse (1i)) 
-%!assert (min (min (speye (65536) * 1i)), sparse (0)) 
-%!assert (size (max (sparse (8, 0), [], 1)), [1, 0]) 
-%!assert (size (max (sparse (8, 0), [], 2)), [8, 0]) 
-%!assert (size (max (sparse (0, 8), [], 1)), [0, 8]) 
-%!assert (size (max (sparse (0, 8), [], 2)), [0, 1]) 
-%!assert (size (min (sparse (8, 0), [], 1)), [1, 0]) 
-%!assert (size (min (sparse (8, 0), [], 2)), [8, 0]) 
-%!assert (size (min (sparse (0, 8), [], 1)), [0, 8]) 
-%!assert (size (min (sparse (0, 8), [], 2)), [0, 1]) 
+%!assert (max (max (speye (65536) * 1i)), sparse (1i))
+%!assert (min (min (speye (65536) * 1i)), sparse (0))
+%!assert (size (max (sparse (8, 0), [], 1)), [1, 0])
+%!assert (size (max (sparse (8, 0), [], 2)), [8, 0])
+%!assert (size (max (sparse (0, 8), [], 1)), [0, 8])
+%!assert (size (max (sparse (0, 8), [], 2)), [0, 1])
+%!assert (size (min (sparse (8, 0), [], 1)), [1, 0])
+%!assert (size (min (sparse (8, 0), [], 2)), [8, 0])
+%!assert (size (min (sparse (0, 8), [], 1)), [0, 8])
+%!assert (size (min (sparse (0, 8), [], 2)), [0, 1])
 
 */
 
@@ -610,28 +610,32 @@
 // destructive insert/delete/reorder operations
 
 SparseComplexMatrix&
-SparseComplexMatrix::insert (const SparseMatrix& a, octave_idx_type r, octave_idx_type c)
+SparseComplexMatrix::insert (const SparseMatrix& a,
+                             octave_idx_type r, octave_idx_type c)
 {
   SparseComplexMatrix tmp (a);
   return insert (tmp /*a*/, r, c);
 }
 
 SparseComplexMatrix&
-SparseComplexMatrix::insert (const SparseComplexMatrix& a, octave_idx_type r, octave_idx_type c)
+SparseComplexMatrix::insert (const SparseComplexMatrix& a,
+                             octave_idx_type r, octave_idx_type c)
 {
   MSparse<Complex>::insert (a, r, c);
   return *this;
 }
 
 SparseComplexMatrix&
-SparseComplexMatrix::insert (const SparseMatrix& a, const Array<octave_idx_type>& indx)
+SparseComplexMatrix::insert (const SparseMatrix& a,
+                             const Array<octave_idx_type>& indx)
 {
   SparseComplexMatrix tmp (a);
   return insert (tmp /*a*/, indx);
 }
 
 SparseComplexMatrix&
-SparseComplexMatrix::insert (const SparseComplexMatrix& a, const Array<octave_idx_type>& indx)
+SparseComplexMatrix::insert (const SparseComplexMatrix& a,
+                             const Array<octave_idx_type>& indx)
 {
   MSparse<Complex>::insert (a, indx);
   return *this;
@@ -648,7 +652,8 @@
 }
 
 SparseComplexMatrix
-SparseComplexMatrix::concat (const SparseMatrix& rb, const Array<octave_idx_type>& ra_idx)
+SparseComplexMatrix::concat (const SparseMatrix& rb,
+                             const Array<octave_idx_type>& ra_idx)
 {
   SparseComplexMatrix tmp (rb);
   if (rb.rows () > 0 && rb.cols () > 0)
@@ -742,8 +747,8 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::dinverse (MatrixType &mattyp, octave_idx_type& info,
-                        double& rcond, const bool,
-                        const bool calccond) const
+                               double& rcond, const bool,
+                               const bool calccond) const
 {
   SparseComplexMatrix retval;
 
@@ -1068,7 +1073,7 @@
 
   return retval;
 
- inverse_singular:
+inverse_singular:
   return SparseComplexMatrix ();
 }
 
@@ -1103,7 +1108,8 @@
               double rcond2;
               SparseMatrix Q = fact.Q ();
               SparseComplexMatrix InvL = fact.L ().transpose ().
-                tinverse (tmp_typ, info, rcond2, true, false);
+                                         tinverse (tmp_typ, info, rcond2,
+                                                   true, false);
               ret = Q * InvL.hermitian () * InvL * Q.transpose ();
             }
           else
@@ -1126,9 +1132,11 @@
           rcond = fact.rcond ();
           double rcond2;
           SparseComplexMatrix InvL = fact.L ().transpose ().
-            tinverse (tmp_typ, info, rcond2, true, false);
+                                     tinverse (tmp_typ, info, rcond2,
+                                               true, false);
           SparseComplexMatrix InvU = fact.U ().
-            tinverse (tmp_typ, info, rcond2, true, false).transpose ();
+                                     tinverse (tmp_typ, info, rcond2,
+                                               true, false).transpose ();
           ret = fact.Pc ().transpose () * InvU * InvL * fact.Pr ();
         }
     }
@@ -1152,7 +1160,8 @@
 }
 
 ComplexDET
-SparseComplexMatrix::determinant (octave_idx_type& err, double& rcond, int) const
+SparseComplexMatrix::determinant (octave_idx_type& err, double& rcond,
+                                  int) const
 {
   ComplexDET retval;
 #ifdef HAVE_UMFPACK
@@ -1206,8 +1215,8 @@
       Matrix Info (1, UMFPACK_INFO);
       double *info = Info.fortran_vec ();
       int status = UMFPACK_ZNAME (qsymbolic)
-        (nr, nc, Ap, Ai, reinterpret_cast<const double *> (Ax), 0,
-         0, &Symbolic, control, info);
+                   (nr, nc, Ap, Ai, reinterpret_cast<const double *> (Ax), 0,
+                    0, &Symbolic, control, info);
 
       if (status < 0)
         {
@@ -1217,7 +1226,7 @@
           UMFPACK_ZNAME (report_status) (control, status);
           UMFPACK_ZNAME (report_info) (control, info);
 
-          UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+          UMFPACK_ZNAME (free_symbolic) (&Symbolic);
         }
       else
         {
@@ -1227,8 +1236,8 @@
           status
             = UMFPACK_ZNAME (numeric) (Ap, Ai,
                                        reinterpret_cast<const double *> (Ax),
-                                       0, Symbolic, &Numeric, control, info) ;
-          UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+                                       0, Symbolic, &Numeric, control, info);
+          UMFPACK_ZNAME (free_symbolic) (&Symbolic);
 
           rcond = Info (UMFPACK_RCOND);
 
@@ -1302,8 +1311,8 @@
           retval.resize (nc, b.cols (), Complex (0.,0.));
           if (typ == MatrixType::Diagonal)
             for (octave_idx_type j = 0; j < b.cols (); j++)
-                for (octave_idx_type i = 0; i < nm; i++)
-                  retval(i,j) = b(i,j) / data (i);
+              for (octave_idx_type i = 0; i < nm; i++)
+                retval(i,j) = b(i,j) / data (i);
           else
             for (octave_idx_type j = 0; j < b.cols (); j++)
               for (octave_idx_type k = 0; k < nc; k++)
@@ -3899,7 +3908,7 @@
             rcond = 1.;
         }
       else if (typ != MatrixType::Tridiagonal_Hermitian)
-               (*current_liboctave_error_handler) ("incorrect matrix type");
+        (*current_liboctave_error_handler) ("incorrect matrix type");
     }
 
   return retval;
@@ -4439,10 +4448,10 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zpbcon, ZPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -4560,12 +4569,12 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zgbcon, ZGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -4686,10 +4695,10 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zpbcon, ZPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -4755,7 +4764,7 @@
                                 {
                                   // Resize the sparse matrix
                                   octave_idx_type sz = x_nz *
-                                    (b_nc - j) / b_nc;
+                                                       (b_nc - j) / b_nc;
                                   sz = (sz > 10 ? sz : 10) + x_nz;
                                   retval.change_capacity (sz);
                                   x_nz = sz;
@@ -4822,8 +4831,8 @@
 
               if (sing_handler)
                 {
-                sing_handler (rcond);
-                mattype.mark_as_rectangular ();
+                  sing_handler (rcond);
+                  mattype.mark_as_rectangular ();
                 }
               else
                 (*current_liboctave_error_handler)
@@ -4841,12 +4850,12 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zgbcon, ZGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -5006,10 +5015,10 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zpbcon, ZPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -5125,12 +5134,12 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zgbcon, ZGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -5253,10 +5262,10 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zpbcon, ZPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -5413,12 +5422,12 @@
                   double *piz = iz.fortran_vec ();
 
                   F77_XFCN (zgbcon, ZGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -5549,8 +5558,8 @@
   Info = Matrix (1, UMFPACK_INFO);
   double *info = Info.fortran_vec ();
   int status = UMFPACK_ZNAME (qsymbolic) (nr, nc, Ap, Ai,
-                                     reinterpret_cast<const double *> (Ax),
-                                     0, 0, &Symbolic, control, info);
+                                          reinterpret_cast<const double *> (Ax),
+                                          0, 0, &Symbolic, control, info);
 
   if (status < 0)
     {
@@ -5561,16 +5570,16 @@
       UMFPACK_ZNAME (report_status) (control, status);
       UMFPACK_ZNAME (report_info) (control, info);
 
-      UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+      UMFPACK_ZNAME (free_symbolic) (&Symbolic);
     }
   else
     {
       UMFPACK_ZNAME (report_symbolic) (Symbolic, control);
 
       status = UMFPACK_ZNAME (numeric) (Ap, Ai,
-                                   reinterpret_cast<const double *> (Ax), 0,
-                                   Symbolic, &Numeric, control, info) ;
-      UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+                                        reinterpret_cast<const double *> (Ax),
+                                        0, Symbolic, &Numeric, control, info);
+      UMFPACK_ZNAME (free_symbolic) (&Symbolic);
 
       if (calc_cond)
         rcond = Info (UMFPACK_RCOND);
@@ -5594,19 +5603,19 @@
 
         }
       else if (status < 0)
-          {
-            (*current_liboctave_error_handler)
-              ("SparseComplexMatrix::solve numeric factorization failed");
-
-            UMFPACK_ZNAME (report_status) (control, status);
-            UMFPACK_ZNAME (report_info) (control, info);
-
-            err = -1;
-          }
-        else
-          {
-            UMFPACK_ZNAME (report_numeric) (Numeric, control);
-          }
+        {
+          (*current_liboctave_error_handler)
+            ("SparseComplexMatrix::solve numeric factorization failed");
+
+          UMFPACK_ZNAME (report_status) (control, status);
+          UMFPACK_ZNAME (report_info) (control, info);
+
+          err = -1;
+        }
+      else
+        {
+          UMFPACK_ZNAME (report_numeric) (Numeric, control);
+        }
     }
 
   if (err != 0)
@@ -5808,26 +5817,26 @@
                 {
 #ifdef UMFPACK_SEPARATE_SPLIT
                   status = UMFPACK_ZNAME (solve) (UMFPACK_A, Ap,
-                                             Ai,
-                                             reinterpret_cast<const double *> (Ax),
-                                             0,
-                                             reinterpret_cast<double *> (&Xx[iidx]),
-                                             0,
-                                             &Bx[iidx], Bz, Numeric,
-                                             control, info);
+                                                  Ai,
+                                                  reinterpret_cast<const double *> (Ax),
+                                                  0,
+                                                  reinterpret_cast<double *> (&Xx[iidx]),
+                                                  0,
+                                                  &Bx[iidx], Bz, Numeric,
+                                                  control, info);
 #else
                   for (octave_idx_type i = 0; i < b_nr; i++)
                     Bz[i] = b.elem (i, j);
 
                   status = UMFPACK_ZNAME (solve) (UMFPACK_A, Ap,
-                                             Ai,
-                                             reinterpret_cast<const double *> (Ax),
-                                             0,
-                                             reinterpret_cast<double *> (&Xx[iidx]),
-                                             0,
-                                             reinterpret_cast<const double *> (Bz),
-                                             0, Numeric,
-                                             control, info);
+                                                  Ai,
+                                                  reinterpret_cast<const double *> (Ax),
+                                                  0,
+                                                  reinterpret_cast<double *> (&Xx[iidx]),
+                                                  0,
+                                                  reinterpret_cast<const double *> (Bz),
+                                                  0, Numeric,
+                                                  control, info);
 #endif
 
                   if (status < 0)
@@ -6005,9 +6014,9 @@
               END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
 
               retval = SparseComplexMatrix
-                (static_cast<octave_idx_type>(X->nrow),
-                 static_cast<octave_idx_type>(X->ncol),
-                 static_cast<octave_idx_type>(X->nzmax));
+                       (static_cast<octave_idx_type>(X->nrow),
+                        static_cast<octave_idx_type>(X->ncol),
+                        static_cast<octave_idx_type>(X->nzmax));
               for (octave_idx_type j = 0;
                    j <= static_cast<octave_idx_type>(X->ncol); j++)
                 retval.xcidx (j) = static_cast<octave_idx_type *>(X->p)[j];
@@ -6079,26 +6088,26 @@
                     Bx[i] = b.elem (i, j);
 
                   status = UMFPACK_ZNAME (solve) (UMFPACK_A, Ap,
-                                             Ai,
-                                             reinterpret_cast<const double *> (Ax),
-                                             0,
-                                             reinterpret_cast<double *> (Xx),
-                                             0,
-                                             Bx, Bz, Numeric, control,
-                                             info);
+                                                  Ai,
+                                                  reinterpret_cast<const double *> (Ax),
+                                                  0,
+                                                  reinterpret_cast<double *> (Xx),
+                                                  0,
+                                                  Bx, Bz, Numeric, control,
+                                                  info);
 #else
                   for (octave_idx_type i = 0; i < b_nr; i++)
                     Bz[i] = b.elem (i, j);
 
                   status = UMFPACK_ZNAME (solve) (UMFPACK_A, Ap, Ai,
-                                             reinterpret_cast<const double *> (Ax),
-                                             0,
-                                             reinterpret_cast<double *> (Xx),
-                                             0,
-                                             reinterpret_cast<double *> (Bz),
-                                             0,
-                                             Numeric, control,
-                                             info);
+                                                  reinterpret_cast<const double *> (Ax),
+                                                  0,
+                                                  reinterpret_cast<double *> (Xx),
+                                                  0,
+                                                  reinterpret_cast<double *> (Bz),
+                                                  0,
+                                                  Numeric, control,
+                                                  info);
 #endif
                   if (status < 0)
                     {
@@ -6336,12 +6345,12 @@
                 {
                   status =
                     UMFPACK_ZNAME (solve) (UMFPACK_A, Ap, Ai,
-                                      reinterpret_cast<const double *> (Ax),
-                                      0,
-                                      reinterpret_cast<double *> (&Xx[iidx]),
-                                      0,
-                                      reinterpret_cast<const double *> (&Bx[iidx]),
-                                      0, Numeric, control, info);
+                                           reinterpret_cast<const double *> (Ax),
+                                           0,
+                                           reinterpret_cast<double *> (&Xx[iidx]),
+                                           0,
+                                           reinterpret_cast<const double *> (&Bx[iidx]),
+                                           0, Numeric, control, info);
 
                   if (status < 0)
                     {
@@ -6518,9 +6527,9 @@
               END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
 
               retval = SparseComplexMatrix
-                (static_cast<octave_idx_type>(X->nrow),
-                 static_cast<octave_idx_type>(X->ncol),
-                 static_cast<octave_idx_type>(X->nzmax));
+                       (static_cast<octave_idx_type>(X->nrow),
+                        static_cast<octave_idx_type>(X->ncol),
+                        static_cast<octave_idx_type>(X->nzmax));
               for (octave_idx_type j = 0;
                    j <= static_cast<octave_idx_type>(X->ncol); j++)
                 retval.xcidx (j) = static_cast<octave_idx_type *>(X->p)[j];
@@ -6583,13 +6592,13 @@
                     Bx[i] = b (i,j);
 
                   status = UMFPACK_ZNAME (solve) (UMFPACK_A, Ap,
-                                             Ai,
-                                             reinterpret_cast<const double *> (Ax),
-                                             0,
-                                             reinterpret_cast<double *> (Xx),
-                                             0,
-                                             reinterpret_cast<double *> (Bx),
-                                             0, Numeric, control, info);
+                                                  Ai,
+                                                  reinterpret_cast<const double *> (Ax),
+                                                  0,
+                                                  reinterpret_cast<double *> (Xx),
+                                                  0,
+                                                  reinterpret_cast<double *> (Bx),
+                                                  0, Numeric, control, info);
 
                   if (status < 0)
                     {
@@ -6720,8 +6729,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<ComplexMatrix, SparseComplexMatrix,
-        Matrix> (*this, b, err);
+      retval = dmsolve<ComplexMatrix, SparseComplexMatrix, Matrix>
+               (*this, b, err);
 #endif
     }
 
@@ -6738,7 +6747,7 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (MatrixType &mattype, const SparseMatrix& b,
-                     octave_idx_type& info) const
+                            octave_idx_type& info) const
 {
   double rcond;
   return solve (mattype, b, info, rcond, 0);
@@ -6746,7 +6755,7 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (MatrixType &mattype, const SparseMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+                            octave_idx_type& info, double& rcond) const
 {
   return solve (mattype, b, info, rcond, 0);
 }
@@ -6788,8 +6797,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<SparseComplexMatrix, SparseComplexMatrix,
-        SparseMatrix> (*this, b, err);
+      retval = dmsolve<SparseComplexMatrix, SparseComplexMatrix, SparseMatrix>
+               (*this, b, err);
 #endif
     }
 
@@ -6856,8 +6865,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<ComplexMatrix, SparseComplexMatrix,
-        ComplexMatrix> (*this, b, err);
+      retval = dmsolve<ComplexMatrix, SparseComplexMatrix, ComplexMatrix>
+               (*this, b, err);
 #endif
     }
 
@@ -6926,7 +6935,7 @@
       retval = qrsolve (*this, b, err);
 #else
       retval = dmsolve<SparseComplexMatrix, SparseComplexMatrix,
-        SparseComplexMatrix> (*this, b, err);
+                       SparseComplexMatrix> (*this, b, err);
 #endif
     }
 
@@ -6961,7 +6970,8 @@
                             solve_singularity_handler sing_handler) const
 {
   Matrix tmp (b);
-  return solve (mattype, tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (mattype, tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 ComplexColumnVector
@@ -6994,7 +7004,8 @@
                             solve_singularity_handler sing_handler) const
 {
   ComplexMatrix tmp (b);
-  return solve (mattype, tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (mattype, tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 ComplexMatrix
@@ -7014,7 +7025,7 @@
 
 ComplexMatrix
 SparseComplexMatrix::solve (const Matrix& b, octave_idx_type& info,
-                     double& rcond) const
+                            double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
@@ -7038,7 +7049,7 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseMatrix& b,
-                     octave_idx_type& info) const
+                            octave_idx_type& info) const
 {
   double rcond;
   return solve (b, info, rcond, 0);
@@ -7046,15 +7057,15 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+                            octave_idx_type& info, double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseMatrix& b,
-                     octave_idx_type& err, double& rcond,
-                     solve_singularity_handler sing_handler) const
+                            octave_idx_type& err, double& rcond,
+                            solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, err, rcond, sing_handler);
@@ -7070,15 +7081,15 @@
 
 ComplexMatrix
 SparseComplexMatrix::solve (const ComplexMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+                            octave_idx_type& info, double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
 
 ComplexMatrix
 SparseComplexMatrix::solve (const ComplexMatrix& b,
-                     octave_idx_type& err, double& rcond,
-                     solve_singularity_handler sing_handler) const
+                            octave_idx_type& err, double& rcond,
+                            solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, err, rcond, sing_handler);
@@ -7094,7 +7105,7 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseComplexMatrix& b,
-                     octave_idx_type& info) const
+                            octave_idx_type& info) const
 {
   double rcond;
   return solve (b, info, rcond, 0);
@@ -7102,15 +7113,15 @@
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseComplexMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+                            octave_idx_type& info, double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
 
 SparseComplexMatrix
 SparseComplexMatrix::solve (const SparseComplexMatrix& b,
-                     octave_idx_type& err, double& rcond,
-                     solve_singularity_handler sing_handler) const
+                            octave_idx_type& err, double& rcond,
+                            solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, err, rcond, sing_handler);
@@ -7138,11 +7149,13 @@
 }
 
 ComplexColumnVector
-SparseComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcond,
+SparseComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info,
+                            double& rcond,
                             solve_singularity_handler sing_handler) const
 {
   Matrix tmp (b);
-  return solve (tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 ComplexColumnVector
@@ -7154,7 +7167,8 @@
 }
 
 ComplexColumnVector
-SparseComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info) const
+SparseComplexMatrix::solve (const ComplexColumnVector& b,
+                            octave_idx_type& info) const
 {
   double rcond;
   return solve (b, info, rcond, 0);
@@ -7162,7 +7176,7 @@
 
 ComplexColumnVector
 SparseComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
-                     double& rcond) const
+                            double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
@@ -7173,7 +7187,8 @@
                             solve_singularity_handler sing_handler) const
 {
   ComplexMatrix tmp (b);
-  return solve (tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 // unary operations
@@ -7292,25 +7307,25 @@
 
   for (octave_idx_type i = 0; i < nel; i++)
     {
-        Complex val = data (i);
-
-        double r_val = std::real (val);
-        double i_val = std::imag (val);
-
-        if (r_val > max_val)
-          max_val = r_val;
-
-        if (i_val > max_val)
-          max_val = i_val;
-
-        if (r_val < min_val)
-          min_val = r_val;
-
-        if (i_val < min_val)
-          min_val = i_val;
-
-        if (D_NINT (r_val) != r_val || D_NINT (i_val) != i_val)
-          return false;
+      Complex val = data (i);
+
+      double r_val = std::real (val);
+      double i_val = std::imag (val);
+
+      if (r_val > max_val)
+        max_val = r_val;
+
+      if (i_val > max_val)
+        max_val = i_val;
+
+      if (r_val < min_val)
+        min_val = r_val;
+
+      if (i_val < min_val)
+        min_val = i_val;
+
+      if (D_NINT (r_val) != r_val || D_NINT (i_val) != i_val)
+        return false;
     }
 
   return true;
@@ -7322,8 +7337,7 @@
   return test_any (xtoo_large_for_float);
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 SparseBoolMatrix
 SparseComplexMatrix::all (int dim) const
@@ -7415,18 +7429,18 @@
 {
   octave_idx_type nc = a.cols ();
 
-   // add one to the printed indices to go from
-   //  zero-based to one-based arrays
-   for (octave_idx_type j = 0; j < nc; j++)
-     {
-       octave_quit ();
-       for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
-         {
-           os << a.ridx (i) + 1 << " "  << j + 1 << " ";
-           octave_write_complex (os, a.data (i));
-           os << "\n";
-         }
-     }
+  // add one to the printed indices to go from
+  //  zero-based to one-based arrays
+  for (octave_idx_type j = 0; j < nc; j++)
+    {
+      octave_quit ();
+      for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
+        {
+          os << a.ridx (i) + 1 << " "  << j + 1 << " ";
+          octave_write_complex (os, a.data (i));
+          os << "\n";
+        }
+    }
 
   return os;
 }
@@ -7627,8 +7641,7 @@
   return octinternal_do_mul_sm_pm (a, p);
 }
 
-// FIXME -- it would be nice to share code among the min/max
-// functions below.
+// FIXME: it would be nice to share code among the min/max functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
@@ -7879,11 +7892,11 @@
 }
 
 SPARSE_SMS_CMP_OPS (SparseComplexMatrix, 0.0, real, Complex,
-                   0.0, real)
+                    0.0, real)
 SPARSE_SMS_BOOL_OPS (SparseComplexMatrix, Complex, 0.0)
 
 SPARSE_SSM_CMP_OPS (Complex, 0.0, real, SparseComplexMatrix,
-                   0.0, real)
+                    0.0, real)
 SPARSE_SSM_BOOL_OPS (Complex, SparseComplexMatrix, 0.0)
 
 SPARSE_SMSM_CMP_OPS (SparseComplexMatrix, 0.0, real, SparseComplexMatrix,
--- a/liboctave/array/CSparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/CSparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -53,12 +53,14 @@
 
   SparseComplexMatrix (void) : MSparse<Complex> () { }
 
-  SparseComplexMatrix (octave_idx_type r, octave_idx_type c) : MSparse<Complex> (r, c) { }
+  SparseComplexMatrix (octave_idx_type r,
+                       octave_idx_type c) : MSparse<Complex> (r, c) { }
 
-  SparseComplexMatrix (const dim_vector& dv, octave_idx_type nz = 0) :
-    MSparse<Complex> (dv, nz) { }
+  SparseComplexMatrix (const dim_vector& dv, octave_idx_type nz = 0)
+    : MSparse<Complex> (dv, nz) { }
 
-  explicit SparseComplexMatrix (octave_idx_type r, octave_idx_type c, Complex val)
+  explicit SparseComplexMatrix (octave_idx_type r, octave_idx_type c,
+                                Complex val)
     : MSparse<Complex> (r, c, val) { }
 
   SparseComplexMatrix (octave_idx_type r, octave_idx_type c, double val)
@@ -92,14 +94,15 @@
 
   explicit SparseComplexMatrix (const ComplexDiagMatrix& a);
 
-  SparseComplexMatrix (octave_idx_type r, octave_idx_type c, octave_idx_type num_nz)
+  SparseComplexMatrix (octave_idx_type r, octave_idx_type c,
+                       octave_idx_type num_nz)
     : MSparse<Complex> (r, c, num_nz) { }
 
   SparseComplexMatrix& operator = (const SparseComplexMatrix& a)
-    {
-      MSparse<Complex>::operator = (a);
-      return *this;
-    }
+  {
+    MSparse<Complex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const SparseComplexMatrix& a) const;
   bool operator != (const SparseComplexMatrix& a) const;
@@ -111,10 +114,14 @@
   SparseComplexMatrix min (int dim = -1) const;
   SparseComplexMatrix min (Array<octave_idx_type>& index, int dim = -1) const;
 
-  SparseComplexMatrix& insert (const SparseComplexMatrix& a, octave_idx_type r, octave_idx_type c);
-  SparseComplexMatrix& insert (const SparseMatrix& a, octave_idx_type r, octave_idx_type c);
-  SparseComplexMatrix& insert (const SparseComplexMatrix& a, const Array<octave_idx_type>& indx);
-  SparseComplexMatrix& insert (const SparseMatrix& a, const Array<octave_idx_type>& indx);
+  SparseComplexMatrix& insert (const SparseComplexMatrix& a,
+                               octave_idx_type r, octave_idx_type c);
+  SparseComplexMatrix& insert (const SparseMatrix& a,
+                               octave_idx_type r, octave_idx_type c);
+  SparseComplexMatrix& insert (const SparseComplexMatrix& a,
+                               const Array<octave_idx_type>& indx);
+  SparseComplexMatrix& insert (const SparseMatrix& a,
+                               const Array<octave_idx_type>& indx);
 
   SparseComplexMatrix concat (const SparseComplexMatrix& rb,
                               const Array<octave_idx_type>& ra_idx);
@@ -125,7 +132,7 @@
 
   SparseComplexMatrix hermitian (void) const;  // complex conjugate transpose
   SparseComplexMatrix transpose (void) const
-    { return MSparse<Complex>::transpose (); }
+  { return MSparse<Complex>::transpose (); }
 
   friend SparseComplexMatrix conj (const SparseComplexMatrix& a);
 
@@ -156,134 +163,137 @@
   ComplexDET determinant (void) const;
   ComplexDET determinant (octave_idx_type& info) const;
   ComplexDET determinant (octave_idx_type& info, double& rcond,
-                                int calc_cond = 1) const;
+                          int calc_cond = 1) const;
 
 private:
   // Diagonal matrix solvers
   ComplexMatrix dsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        double& rcond, solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   ComplexMatrix dsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseComplexMatrix dsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   SparseComplexMatrix dsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   // Upper triangular matrix solvers
-  ComplexMatrix utsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+  ComplexMatrix utsolve (MatrixType &typ, const Matrix& b,
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   ComplexMatrix utsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   SparseComplexMatrix utsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   SparseComplexMatrix utsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   // Lower triangular matrix solvers
   ComplexMatrix ltsolve (MatrixType &typ, const Matrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   ComplexMatrix ltsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   SparseComplexMatrix ltsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   SparseComplexMatrix ltsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   // Tridiagonal matrix solvers
   ComplexMatrix trisolve (MatrixType &typ, const Matrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                          octave_idx_type& info, double& rcond,
+                          solve_singularity_handler sing_handler,
+                          bool calc_cond = false) const;
 
   ComplexMatrix trisolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                          octave_idx_type& info, double& rcond,
+                          solve_singularity_handler sing_handler,
+                          bool calc_cond = false) const;
 
   SparseComplexMatrix trisolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                                octave_idx_type& info, double& rcond,
+                                solve_singularity_handler sing_handler,
+                                bool calc_cond = false) const;
 
   SparseComplexMatrix trisolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                                octave_idx_type& info, double& rcond,
+                                solve_singularity_handler sing_handler,
+                                bool calc_cond = false) const;
 
   // Banded matrix solvers (umfpack/cholesky)
-  ComplexMatrix bsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+  ComplexMatrix bsolve (MatrixType &typ, const Matrix& b,
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   ComplexMatrix bsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseComplexMatrix bsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   SparseComplexMatrix bsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   // Full matrix solvers (umfpack/cholesky)
   void * factorize (octave_idx_type& err, double &rcond, Matrix &Control,
-                Matrix &Info, solve_singularity_handler sing_handler,
-                bool calc_cond) const;
+                    Matrix &Info, solve_singularity_handler sing_handler,
+                    bool calc_cond) const;
 
-  ComplexMatrix fsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+  ComplexMatrix fsolve (MatrixType &typ, const Matrix& b,
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   ComplexMatrix fsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseComplexMatrix fsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   SparseComplexMatrix fsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
 public:
   // Generic interface to solver with no probing of type
@@ -359,10 +369,12 @@
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
                        double& rcond) const;
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
-                       double& rcond, solve_singularity_handler sing_handler) const;
+                       double& rcond,
+                       solve_singularity_handler sing_handler) const;
 
   SparseComplexMatrix solve (const SparseMatrix& b) const;
-  SparseComplexMatrix solve (const SparseMatrix& b, octave_idx_type& info) const;
+  SparseComplexMatrix solve (const SparseMatrix& b,
+                             octave_idx_type& info) const;
   SparseComplexMatrix solve (const SparseMatrix& b, octave_idx_type& info,
                              double& rcond) const;
   SparseComplexMatrix solve (const SparseMatrix& b, octave_idx_type& info,
@@ -379,7 +391,8 @@
                              solve_singularity_handler sing_handler) const;
 
   ComplexColumnVector solve (const ColumnVector& b) const;
-  ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info) const;
+  ComplexColumnVector solve (const ColumnVector& b,
+                             octave_idx_type& info) const;
   ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info,
                              double& rcond) const;
   ComplexColumnVector solve (const ColumnVector& b, octave_idx_type& info,
@@ -389,10 +402,10 @@
   ComplexColumnVector solve (const ComplexColumnVector& b) const;
   ComplexColumnVector solve (const ComplexColumnVector& b,
                              octave_idx_type& info) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcond) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcond,
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcond) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcond,
                              solve_singularity_handler sing_handler) const;
 
   SparseComplexMatrix squeeze (void) const;
@@ -426,62 +439,80 @@
 
   // i/o
   friend OCTAVE_API std::ostream& operator << (std::ostream& os,
-                                    const SparseComplexMatrix& a);
+                                               const SparseComplexMatrix& a);
   friend OCTAVE_API std::istream& operator >> (std::istream& is,
-                                    SparseComplexMatrix& a);
+                                               SparseComplexMatrix& a);
 };
 
 extern OCTAVE_API SparseComplexMatrix operator * (const SparseMatrix&,
-                                       const SparseComplexMatrix&);
+                                                  const SparseComplexMatrix&);
 extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&,
-                                       const SparseMatrix&);
+                                                  const SparseMatrix&);
 extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&,
-                                       const SparseComplexMatrix&);
+                                                  const SparseComplexMatrix&);
 
 extern OCTAVE_API ComplexMatrix operator * (const Matrix&,
-                                       const SparseComplexMatrix&);
+                                            const SparseComplexMatrix&);
 extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&,
-                                       const SparseMatrix&);
+                                            const SparseMatrix&);
 extern OCTAVE_API ComplexMatrix operator * (const ComplexMatrix&,
-                                       const SparseComplexMatrix&);
+                                            const SparseComplexMatrix&);
 extern OCTAVE_API ComplexMatrix mul_trans (const ComplexMatrix&,
-                                       const SparseComplexMatrix&);
+                                           const SparseComplexMatrix&);
 extern OCTAVE_API ComplexMatrix mul_herm (const ComplexMatrix&,
-                                       const SparseComplexMatrix&);
+                                          const SparseComplexMatrix&);
 
 extern OCTAVE_API ComplexMatrix operator * (const SparseMatrix&,
-                                       const ComplexMatrix&);
+                                            const ComplexMatrix&);
 extern OCTAVE_API ComplexMatrix operator * (const SparseComplexMatrix&,
-                                       const Matrix&);
+                                            const Matrix&);
 extern OCTAVE_API ComplexMatrix operator * (const SparseComplexMatrix&,
-                                       const ComplexMatrix&);
+                                            const ComplexMatrix&);
 extern OCTAVE_API ComplexMatrix trans_mul (const SparseComplexMatrix&,
-                                       const ComplexMatrix&);
+                                           const ComplexMatrix&);
 extern OCTAVE_API ComplexMatrix herm_mul (const SparseComplexMatrix&,
-                                       const ComplexMatrix&);
+                                          const ComplexMatrix&);
+
+extern OCTAVE_API SparseComplexMatrix operator * (const DiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&,
+                                                  const DiagMatrix&);
 
-extern OCTAVE_API SparseComplexMatrix operator * (const DiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&, const DiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator * (const ComplexDiagMatrix&,
+                                                  const SparseMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator * (const SparseMatrix&,
+                                                  const ComplexDiagMatrix&);
 
-extern OCTAVE_API SparseComplexMatrix operator * (const ComplexDiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator * (const SparseMatrix&, const ComplexDiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator * (const ComplexDiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&,
+                                                  const ComplexDiagMatrix&);
 
-extern OCTAVE_API SparseComplexMatrix operator * (const ComplexDiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator * (const SparseComplexMatrix&, const ComplexDiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const ComplexDiagMatrix&,
+                                                  const SparseMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const DiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const ComplexDiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const SparseMatrix&,
+                                                  const ComplexDiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const SparseComplexMatrix&,
+                                                  const DiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator + (const SparseComplexMatrix&,
+                                                  const ComplexDiagMatrix&);
 
-extern OCTAVE_API SparseComplexMatrix operator + (const ComplexDiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator + (const DiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator + (const ComplexDiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator + (const SparseMatrix&, const ComplexDiagMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator + (const SparseComplexMatrix&, const DiagMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator + (const SparseComplexMatrix&, const ComplexDiagMatrix&);
-
-extern OCTAVE_API SparseComplexMatrix operator - (const ComplexDiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator - (const DiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator - (const ComplexDiagMatrix&, const SparseComplexMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator - (const SparseMatrix&, const ComplexDiagMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator - (const SparseComplexMatrix&, const DiagMatrix&);
-extern OCTAVE_API SparseComplexMatrix operator - (const SparseComplexMatrix&, const ComplexDiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const ComplexDiagMatrix&,
+                                                  const SparseMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const DiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const ComplexDiagMatrix&,
+                                                  const SparseComplexMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const SparseMatrix&,
+                                                  const ComplexDiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const SparseComplexMatrix&,
+                                                  const DiagMatrix&);
+extern OCTAVE_API SparseComplexMatrix operator - (const SparseComplexMatrix&,
+                                                  const ComplexDiagMatrix&);
 
 extern OCTAVE_API SparseComplexMatrix operator * (const PermMatrix&,
                                                   const SparseComplexMatrix&);
@@ -489,18 +520,18 @@
                                                   const PermMatrix&);
 
 extern OCTAVE_API SparseComplexMatrix min (const Complex& c,
-                                const SparseComplexMatrix& m);
+                                           const SparseComplexMatrix& m);
 extern OCTAVE_API SparseComplexMatrix min (const SparseComplexMatrix& m,
-                                const Complex& c);
+                                           const Complex& c);
 extern OCTAVE_API SparseComplexMatrix min (const SparseComplexMatrix& a,
-                                const SparseComplexMatrix& b);
+                                           const SparseComplexMatrix& b);
 
 extern OCTAVE_API SparseComplexMatrix max (const Complex& c,
-                                const SparseComplexMatrix& m);
+                                           const SparseComplexMatrix& m);
 extern OCTAVE_API SparseComplexMatrix max (const SparseComplexMatrix& m,
-                                const Complex& c);
+                                           const Complex& c);
 extern OCTAVE_API SparseComplexMatrix max (const SparseComplexMatrix& a,
-                                const SparseComplexMatrix& b);
+                                           const SparseComplexMatrix& b);
 
 SPARSE_SMS_CMP_OP_DECLS (SparseComplexMatrix, Complex, OCTAVE_API)
 SPARSE_SMS_BOOL_OP_DECLS (SparseComplexMatrix, Complex, OCTAVE_API)
--- a/liboctave/array/DiagArray2.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/DiagArray2.h	Tue Nov 05 12:27:42 2013 -0500
@@ -69,16 +69,16 @@
   ~DiagArray2 (void) { }
 
   DiagArray2<T>& operator = (const DiagArray2<T>& a)
-    {
-      if (this != &a)
-        {
-          Array<T>::operator = (a);
-          d1 = a.d1;
-          d2 = a.d2;
-        }
+  {
+    if (this != &a)
+      {
+        Array<T>::operator = (a);
+        d1 = a.d1;
+        d2 = a.d2;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   octave_idx_type dim1 (void) const { return d1; }
   octave_idx_type dim2 (void) const { return d2; }
@@ -108,63 +108,63 @@
   // to off-diagonal elements.
 
   T elem (octave_idx_type r, octave_idx_type c) const
-    {
-      return (r == c) ? Array<T>::elem (r) : T (0);
-    }
+  {
+    return (r == c) ? Array<T>::elem (r) : T (0);
+  }
 
   T& elem (octave_idx_type r, octave_idx_type c)
-    {
-      static T zero (0);
-      return (r == c) ? Array<T>::elem (r) : zero;
-    }
+  {
+    static T zero (0);
+    return (r == c) ? Array<T>::elem (r) : zero;
+  }
 
   T dgelem (octave_idx_type i) const
-    { return Array<T>::elem (i); }
+  { return Array<T>::elem (i); }
 
   T& dgelem (octave_idx_type i)
-    { return Array<T>::elem (i); }
+  { return Array<T>::elem (i); }
 
   T checkelem (octave_idx_type r, octave_idx_type c) const
-    {
-      return check_idx (r, c) ? elem (r, c) : T (0);
-    }
+  {
+    return check_idx (r, c) ? elem (r, c) : T (0);
+  }
 
   T operator () (octave_idx_type r, octave_idx_type c) const
-    {
+  {
 #if defined (BOUNDS_CHECKING)
-      return checkelem (r, c);
+    return checkelem (r, c);
 #else
-      return elem (r, c);
+    return elem (r, c);
 #endif
-    }
+  }
 
   T& checkelem (octave_idx_type r, octave_idx_type c)
-    {
-      static T zero (0);
-      return check_idx (r, c) ? elem (r, c) : zero;
-    }
+  {
+    static T zero (0);
+    return check_idx (r, c) ? elem (r, c) : zero;
+  }
 
   T& operator () (octave_idx_type r, octave_idx_type c)
-    {
+  {
 #if defined (BOUNDS_CHECKING)
-      return checkelem (r, c);
+    return checkelem (r, c);
 #else
-      return elem (r, c);
+    return elem (r, c);
 #endif
-    }
+  }
 
   // No checking.
 
   T xelem (octave_idx_type r, octave_idx_type c) const
-    {
-      return (r == c) ? Array<T>::xelem (r) : T (0);
-    }
+  {
+    return (r == c) ? Array<T>::xelem (r) : T (0);
+  }
 
   T& dgxelem (octave_idx_type i)
-    { return Array<T>::xelem (i); }
+  { return Array<T>::xelem (i); }
 
   T dgxelem (octave_idx_type i) const
-    { return Array<T>::xelem (i); }
+  { return Array<T>::xelem (i); }
 
   void resize (octave_idx_type n, octave_idx_type m, const T& rfv);
   void resize (octave_idx_type n, octave_idx_type m)
@@ -184,7 +184,7 @@
   T *fortran_vec (void) { return Array<T>::fortran_vec (); }
 
   void print_info (std::ostream& os, const std::string& prefix) const
-    { Array<T>::print_info (os, prefix); }
+  { Array<T>::print_info (os, prefix); }
 
 private:
 
--- a/liboctave/array/MArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -39,7 +39,7 @@
   T val;
   _idxadds_helper (T *a, T v) : array (a), val (v) { }
   void operator () (octave_idx_type i)
-    { array[i] += val; }
+  { array[i] += val; }
 };
 
 template <class T>
@@ -49,7 +49,7 @@
   const T *vals;
   _idxadda_helper (T *a, const T *v) : array (a), vals (v) { }
   void operator () (octave_idx_type i)
-    { array[i] += *vals++; }
+  { array[i] += *vals++; }
 };
 
 template <class T>
@@ -88,14 +88,15 @@
   idx.loop (len, _idxadda_helper<T> (this->fortran_vec (), vals.data ()));
 }
 
-template <class T, T op (typename ref_param<T>::type, typename ref_param<T>::type)>
+template <class T, T op (typename ref_param<T>::type,
+                         typename ref_param<T>::type)>
 struct _idxbinop_helper
 {
   T *array;
   const T *vals;
   _idxbinop_helper (T *a, const T *v) : array (a), vals (v) { }
   void operator () (octave_idx_type i)
-    { array[i] = op (array[i], *vals++); }
+  { array[i] = op (array[i], *vals++); }
 };
 
 template <class T>
@@ -113,7 +114,8 @@
   octave_quit ();
 
   octave_idx_type len = std::min (idx.length (n), vals.length ());
-  idx.loop (len, _idxbinop_helper<T, xmin> (this->fortran_vec (), vals.data ()));
+  idx.loop (len, _idxbinop_helper<T, xmin> (this->fortran_vec (),
+                                            vals.data ()));
 }
 
 template <class T>
@@ -131,13 +133,15 @@
   octave_quit ();
 
   octave_idx_type len = std::min (idx.length (n), vals.length ());
-  idx.loop (len, _idxbinop_helper<T, xmax> (this->fortran_vec (), vals.data ()));
+  idx.loop (len, _idxbinop_helper<T, xmax> (this->fortran_vec (),
+                                            vals.data ()));
 }
 
 #include <iostream>
 
 template <class T>
-void MArray<T>::idx_add_nd (const idx_vector& idx, const MArray<T>& vals, int dim)
+void MArray<T>::idx_add_nd (const idx_vector& idx, const MArray<T>& vals,
+                            int dim)
 {
   int nd = std::max (this->ndims (), vals.ndims ());
   if (dim < 0)
--- a/liboctave/array/MArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -47,7 +47,7 @@
 
 public:
 
-  MArray (void) : Array<T> () {}
+  MArray (void) : Array<T> () { }
 
   explicit MArray (octave_idx_type n) GCC_ATTR_DEPRECATED
     : Array<T> (dim_vector (n, 1)) { }
@@ -69,28 +69,28 @@
   ~MArray (void) { }
 
   MArray<T>& operator = (const MArray<T>& a)
-    {
-      Array<T>::operator = (a);
-      return *this;
-    }
+  {
+    Array<T>::operator = (a);
+    return *this;
+  }
 
   MArray<T> reshape (const dim_vector& new_dims) const
-    { return Array<T>::reshape (new_dims); }
+  { return Array<T>::reshape (new_dims); }
 
   MArray<T> permute (const Array<octave_idx_type>& vec,
-                      bool inv = false) const
-    { return Array<T>::permute (vec, inv); }
+                     bool inv = false) const
+  { return Array<T>::permute (vec, inv); }
 
   MArray<T> ipermute (const Array<octave_idx_type>& vec) const
-    { return Array<T>::ipermute (vec); }
+  { return Array<T>::ipermute (vec); }
 
   MArray squeeze (void) const { return Array<T>::squeeze (); }
 
   MArray<T> transpose (void) const
-    { return Array<T>::transpose (); }
+  { return Array<T>::transpose (); }
 
   MArray<T> hermitian (T (*fcn) (const T&) = 0) const
-    { return Array<T>::hermitian (fcn); }
+  { return Array<T>::hermitian (fcn); }
 
   // Performs indexed accumulative addition.
 
--- a/liboctave/array/MDiagArray2.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MDiagArray2.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -39,7 +39,7 @@
   if (retval)
     {
       octave_idx_type len = this->length (), i = 0;
-      for (;i < len; i++)
+      for (; i < len; i++)
         if (DiagArray2<T>::elem (i, i) != val) break;
       retval = i == len;
     }
@@ -70,7 +70,8 @@
 MDiagArray2<T>
 operator * (const T& s, const MDiagArray2<T>& a)
 {
-  return MDiagArray2<T> (do_sm_binary_op<T, T, T> (s, a, mx_inline_mul), a.d1, a.d2);
+  return MDiagArray2<T> (do_sm_binary_op<T, T, T> (s, a, mx_inline_mul),
+                                                   a.d1, a.d2);
 }
 
 // Element by element MDiagArray2 by MDiagArray2 ops.
@@ -102,5 +103,6 @@
 MDiagArray2<T>
 operator - (const MDiagArray2<T>& a)
 {
-  return MDiagArray2<T> (do_mx_unary_op<T, T> (a, mx_inline_uminus), a.d1, a.d2);
+  return MDiagArray2<T> (do_mx_unary_op<T, T> (a, mx_inline_uminus),
+                         a.d1, a.d2);
 }
--- a/liboctave/array/MDiagArray2.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MDiagArray2.h	Tue Nov 05 12:27:42 2013 -0500
@@ -46,7 +46,8 @@
 
   MDiagArray2 (octave_idx_type r, octave_idx_type c) : DiagArray2<T> (r, c) { }
 
-  MDiagArray2 (octave_idx_type r, octave_idx_type c, const T& val) : DiagArray2<T> (r, c, val) { }
+  MDiagArray2 (octave_idx_type r, octave_idx_type c, const T& val)
+    : DiagArray2<T> (r, c, val) { }
 
   MDiagArray2 (const MDiagArray2<T>& a) : DiagArray2<T> (a) { }
 
@@ -63,38 +64,39 @@
   ~MDiagArray2 (void) { }
 
   MDiagArray2<T>& operator = (const MDiagArray2<T>& a)
-    {
-      DiagArray2<T>::operator = (a);
-      return *this;
-    }
+  {
+    DiagArray2<T>::operator = (a);
+    return *this;
+  }
 
   MArray<T> array_value () const
-    {
-      return DiagArray2<T>::array_value ();
-    }
+  {
+    return DiagArray2<T>::array_value ();
+  }
 
   octave_idx_type nnz (void) const
-    {
-      octave_idx_type retval = 0;
+  {
+    octave_idx_type retval = 0;
 
-      const T *d = this->data ();
+    const T *d = this->data ();
 
-      octave_idx_type nel = this->length ();
+    octave_idx_type nel = this->length ();
 
-      for (octave_idx_type i = 0; i < nel; i++)
-        {
-          if (d[i] != T ())
-            retval++;
-        }
+    for (octave_idx_type i = 0; i < nel; i++)
+      {
+        if (d[i] != T ())
+          retval++;
+      }
 
-      return retval;
-    }
+    return retval;
+  }
 
   MArray<T> diag (octave_idx_type k = 0) const
-    { return DiagArray2<T>::extract_diag (k); }
+  { return DiagArray2<T>::extract_diag (k); }
 
   MDiagArray2<T> transpose (void) const { return DiagArray2<T>::transpose (); }
-  MDiagArray2<T> hermitian (T (*fcn) (const T&) = 0) const { return DiagArray2<T>::hermitian (fcn); }
+  MDiagArray2<T> hermitian (T (*fcn) (const T&) = 0) const
+  { return DiagArray2<T>::hermitian (fcn); }
 
   bool is_multiple_of_identity (T val) const;
 
--- a/liboctave/array/MSparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MSparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -43,73 +43,73 @@
 MSparse<T>&
 plus_or_minus (MSparse<T>& a, const MSparse<T>& b, OP op, const char* op_name)
 {
-    MSparse<T> r;
+  MSparse<T> r;
 
-    octave_idx_type a_nr = a.rows ();
-    octave_idx_type a_nc = a.cols ();
+  octave_idx_type a_nr = a.rows ();
+  octave_idx_type a_nc = a.cols ();
 
-    octave_idx_type b_nr = b.rows ();
-    octave_idx_type b_nc = b.cols ();
+  octave_idx_type b_nr = b.rows ();
+  octave_idx_type b_nc = b.cols ();
 
-    if (a_nr != b_nr || a_nc != b_nc)
-      gripe_nonconformant (op_name , a_nr, a_nc, b_nr, b_nc);
-    else
-      {
-        r = MSparse<T> (a_nr, a_nc, (a.nnz () + b.nnz ()));
+  if (a_nr != b_nr || a_nc != b_nc)
+    gripe_nonconformant (op_name , a_nr, a_nc, b_nr, b_nc);
+  else
+    {
+      r = MSparse<T> (a_nr, a_nc, (a.nnz () + b.nnz ()));
 
-        octave_idx_type jx = 0;
-        for (octave_idx_type i = 0 ; i < a_nc ; i++)
-          {
-            octave_idx_type  ja = a.cidx (i);
-            octave_idx_type  ja_max = a.cidx (i+1);
-            bool ja_lt_max= ja < ja_max;
+      octave_idx_type jx = 0;
+      for (octave_idx_type i = 0 ; i < a_nc ; i++)
+        {
+          octave_idx_type  ja = a.cidx (i);
+          octave_idx_type  ja_max = a.cidx (i+1);
+          bool ja_lt_max= ja < ja_max;
 
-            octave_idx_type  jb = b.cidx (i);
-            octave_idx_type  jb_max = b.cidx (i+1);
-            bool jb_lt_max = jb < jb_max;
+          octave_idx_type  jb = b.cidx (i);
+          octave_idx_type  jb_max = b.cidx (i+1);
+          bool jb_lt_max = jb < jb_max;
 
-            while (ja_lt_max || jb_lt_max )
-              {
-                octave_quit ();
-                if ((! jb_lt_max) ||
-                      (ja_lt_max && (a.ridx (ja) < b.ridx (jb))))
-                  {
-                    r.ridx (jx) = a.ridx (ja);
-                    r.data (jx) = op (a.data (ja), 0.);
-                    jx++;
-                    ja++;
-                    ja_lt_max= ja < ja_max;
-                  }
-                else if (( !ja_lt_max ) ||
-                     (jb_lt_max && (b.ridx (jb) < a.ridx (ja)) ) )
-                  {
-                    r.ridx (jx) = b.ridx (jb);
-                    r.data (jx) = op (0., b.data (jb));
-                    jx++;
-                    jb++;
-                    jb_lt_max= jb < jb_max;
-                  }
-                else
-                  {
-                     if (op (a.data (ja), b.data (jb)) != 0.)
-                       {
-                          r.data (jx) = op (a.data (ja), b.data (jb));
-                          r.ridx (jx) = a.ridx (ja);
-                          jx++;
-                       }
-                     ja++;
-                     ja_lt_max= ja < ja_max;
-                     jb++;
-                     jb_lt_max= jb < jb_max;
-                  }
-              }
-            r.cidx (i+1) = jx;
-          }
+          while (ja_lt_max || jb_lt_max )
+            {
+              octave_quit ();
+              if ((! jb_lt_max) ||
+                  (ja_lt_max && (a.ridx (ja) < b.ridx (jb))))
+                {
+                  r.ridx (jx) = a.ridx (ja);
+                  r.data (jx) = op (a.data (ja), 0.);
+                  jx++;
+                  ja++;
+                  ja_lt_max= ja < ja_max;
+                }
+              else if (( !ja_lt_max ) ||
+                       (jb_lt_max && (b.ridx (jb) < a.ridx (ja)) ) )
+                {
+                  r.ridx (jx) = b.ridx (jb);
+                  r.data (jx) = op (0., b.data (jb));
+                  jx++;
+                  jb++;
+                  jb_lt_max= jb < jb_max;
+                }
+              else
+                {
+                  if (op (a.data (ja), b.data (jb)) != 0.)
+                    {
+                      r.data (jx) = op (a.data (ja), b.data (jb));
+                      r.ridx (jx) = a.ridx (ja);
+                      jx++;
+                    }
+                  ja++;
+                  ja_lt_max= ja < ja_max;
+                  jb++;
+                  jb_lt_max= jb < jb_max;
+                }
+            }
+          r.cidx (i+1) = jx;
+        }
 
-        a = r.maybe_compress ();
-      }
+      a = r.maybe_compress ();
+    }
 
-    return a;
+  return a;
 }
 
 template <typename T>
--- a/liboctave/array/MSparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MSparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -46,8 +46,8 @@
 
   MSparse (octave_idx_type n, octave_idx_type m) : Sparse<T> (n, m) { }
 
-  MSparse (const dim_vector& dv, octave_idx_type nz = 0) :
-    Sparse<T> (dv, nz) { }
+  MSparse (const dim_vector& dv, octave_idx_type nz = 0)
+    : Sparse<T> (dv, nz) { }
 
   MSparse (const MSparse<T>& a) : Sparse<T> (a) { }
 
@@ -63,19 +63,21 @@
            bool sum_terms = true, octave_idx_type nzm = -1)
     : Sparse<T> (a, r, c, nr, nc, sum_terms, nzm) { }
 
-  explicit MSparse (octave_idx_type r, octave_idx_type c, T val) : Sparse<T> (r, c, val) { }
+  explicit MSparse (octave_idx_type r, octave_idx_type c, T val)
+    : Sparse<T> (r, c, val) { }
 
   explicit MSparse (const PermMatrix& a) : Sparse<T>(a) { }
 
-  MSparse (octave_idx_type r, octave_idx_type c, octave_idx_type num_nz) : Sparse<T> (r, c, num_nz) { }
+  MSparse (octave_idx_type r, octave_idx_type c, octave_idx_type num_nz)
+    : Sparse<T> (r, c, num_nz) { }
 
   ~MSparse (void) { }
 
   MSparse<T>& operator = (const MSparse<T>& a)
-    {
-      Sparse<T>::operator = (a);
-      return *this;
-    }
+  {
+    Sparse<T>::operator = (a);
+    return *this;
+  }
 
   MSparse<T>& insert (const Sparse<T>& a, octave_idx_type r, octave_idx_type c)
   {
@@ -94,14 +96,13 @@
   MSparse<T> squeeze (void) const { return Sparse<T>::squeeze (); }
 
   MSparse<T> reshape (const dim_vector& new_dims) const
-    { return Sparse<T>::reshape (new_dims); }
+  { return Sparse<T>::reshape (new_dims); }
 
   MSparse<T> permute (const Array<octave_idx_type>& vec, bool inv = false) const
-    { return Sparse<T>::permute (vec, inv); }
+  { return Sparse<T>::permute (vec, inv); }
 
   MSparse<T> ipermute (const Array<octave_idx_type>& vec) const
-    { return Sparse<T>::ipermute (vec); }
-
+  { return Sparse<T>::ipermute (vec); }
 
   MSparse<T> diag (octave_idx_type k = 0) const
   {
--- a/liboctave/array/MatrixType.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MatrixType.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,7 @@
 #include "oct-spparms.h"
 #include "oct-locbuf.h"
 
-// FIXME There is a large code duplication here
+// FIXME: There is a large code duplication here
 
 MatrixType::MatrixType (void)
   : typ (MatrixType::Unknown),
@@ -308,10 +308,10 @@
       if (!singular)
         {
           bandden = double (nnz) /
-            (double (ncols) * (double (lower_band) +
-                               double (upper_band)) -
-             0.5 * double (upper_band + 1) * double (upper_band) -
-             0.5 * double (lower_band + 1) * double (lower_band));
+                    (double (ncols) * (double (lower_band) +
+                                       double (upper_band)) -
+                     0.5 * double (upper_band + 1) * double (upper_band) -
+                     0.5 * double (lower_band + 1) * double (lower_band));
 
           if (nrows == ncols && sp_bandden != 1. && bandden > sp_bandden)
             {
@@ -343,8 +343,7 @@
           // Search for a permuted triangular matrix, and test if
           // permutation is singular
 
-          // FIXME
-          // Perhaps this should be based on a dmperm algorithm
+          // FIXME: Perhaps this should be based on a dmperm algorithm?
           bool found = false;
 
           nperm = ncols;
@@ -398,7 +397,7 @@
 
               for (octave_idx_type j = 0; j < ncols; j++)
                 for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
-                    perm[a.ridx (i)] = j;
+                  perm[a.ridx (i)] = j;
 
               found = true;
               for (octave_idx_type i = 0; i < nm; i++)
@@ -447,10 +446,9 @@
             }
         }
 
-      // FIXME
-      // Disable lower under-determined and upper over-determined problems
-      // as being detected, and force to treat as singular. As this seems
-      // to cause issues
+      // FIXME: Disable lower under-determined and upper over-determined
+      //        problems as being detected, and force to treat as singular
+      //        as this seems to cause issues.
       if (((typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
            && nrows > ncols) ||
           ((typ == MatrixType::Upper || typ == MatrixType::Permuted_Upper)
@@ -629,10 +627,10 @@
       if (!singular)
         {
           bandden = double (nnz) /
-            (double (ncols) * (double (lower_band) +
-                               double (upper_band)) -
-             0.5 * double (upper_band + 1) * double (upper_band) -
-             0.5 * double (lower_band + 1) * double (lower_band));
+                    (double (ncols) * (double (lower_band) +
+                                       double (upper_band)) -
+                     0.5 * double (upper_band + 1) * double (upper_band) -
+                     0.5 * double (lower_band + 1) * double (lower_band));
 
           if (nrows == ncols && sp_bandden != 1. && bandden > sp_bandden)
             {
@@ -664,8 +662,7 @@
           // Search for a permuted triangular matrix, and test if
           // permutation is singular
 
-          // FIXME
-          // Perhaps this should be based on a dmperm algorithm
+          // FIXME: Perhaps this should be based on a dmperm algorithm?
           bool found = false;
 
           nperm = ncols;
@@ -719,7 +716,7 @@
 
               for (octave_idx_type j = 0; j < ncols; j++)
                 for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
-                    perm[a.ridx (i)] = j;
+                  perm[a.ridx (i)] = j;
 
               found = true;
               for (octave_idx_type i = 0; i < nm; i++)
@@ -768,10 +765,9 @@
             }
         }
 
-      // FIXME
-      // Disable lower under-determined and upper over-determined problems
-      // as being detected, and force to treat as singular. As this seems
-      // to cause issues
+      // FIXME: Disable lower under-determined and upper over-determined
+      //        problems as being detected, and force to treat as singular
+      //        as this seems to cause issues.
       if (((typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
            && nrows > ncols) ||
           ((typ == MatrixType::Upper || typ == MatrixType::Permuted_Upper)
@@ -943,8 +939,8 @@
 int
 MatrixType::type (bool quiet)
 {
-  if (typ != MatrixType::Unknown && (full ||
-      sp_bandden == octave_sparse_params::get_bandden ()))
+  if (typ != MatrixType::Unknown
+      && (full || sp_bandden == octave_sparse_params::get_bandden ()))
     {
       if (!quiet &&
           octave_sparse_params::get_key ("spumoni") != 0.)
@@ -967,8 +963,8 @@
 int
 MatrixType::type (const SparseMatrix &a)
 {
-  if (typ != MatrixType::Unknown && (full ||
-      sp_bandden == octave_sparse_params::get_bandden ()))
+  if (typ != MatrixType::Unknown
+      && (full || sp_bandden == octave_sparse_params::get_bandden ()))
     {
       if (octave_sparse_params::get_key ("spumoni") != 0.)
         (*current_liboctave_warning_handler)
@@ -1000,8 +996,8 @@
 int
 MatrixType::type (const SparseComplexMatrix &a)
 {
-  if (typ != MatrixType::Unknown && (full ||
-      sp_bandden == octave_sparse_params::get_bandden ()))
+  if (typ != MatrixType::Unknown
+      && (full || sp_bandden == octave_sparse_params::get_bandden ()))
     {
       if (octave_sparse_params::get_key ("spumoni") != 0.)
         (*current_liboctave_warning_handler)
@@ -1222,7 +1218,8 @@
 }
 
 void
-MatrixType::mark_as_permuted (const octave_idx_type np, const octave_idx_type *p)
+MatrixType::mark_as_permuted (const octave_idx_type np,
+                              const octave_idx_type *p)
 {
   nperm = np;
   perm = new octave_idx_type [nperm];
--- a/liboctave/array/MatrixType.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/MatrixType.h	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,8 @@
 MatrixType
 {
 public:
-  enum matrix_type {
+  enum matrix_type
+  {
     Unknown = 0,
     Full,
     Diagonal,
@@ -104,23 +105,25 @@
   bool is_dense (void) const { return dense; }
 
   bool is_diagonal (void) const
-    { return (typ == Diagonal || typ == Permuted_Diagonal); }
+  { return (typ == Diagonal || typ == Permuted_Diagonal); }
 
   bool is_upper_triangular (void) const
-    { return (typ == Upper || typ == Permuted_Upper); }
+  { return (typ == Upper || typ == Permuted_Upper); }
 
   bool is_lower_triangular (void) const
-    { return (typ == Lower || typ == Permuted_Lower); }
+  { return (typ == Lower || typ == Permuted_Lower); }
 
-   bool is_banded (void)
-    { return (typ == Banded || typ == Banded_Hermitian); }
+  bool is_banded (void)
+  { return (typ == Banded || typ == Banded_Hermitian); }
 
   bool is_tridiagonal (void) const
-    { return (typ == Tridiagonal || typ == Tridiagonal_Hermitian); }
+  { return (typ == Tridiagonal || typ == Tridiagonal_Hermitian); }
 
   bool is_hermitian (void) const
-    { return (typ == Banded_Hermitian || typ == Tridiagonal_Hermitian ||
-              typ == Hermitian); }
+  {
+    return (typ == Banded_Hermitian || typ == Tridiagonal_Hermitian ||
+            typ == Hermitian);
+  }
 
   bool is_rectangular (void) const { return (typ == Rectangular); }
 
@@ -145,7 +148,7 @@
   void mark_as_tridiagonal (void) {typ = Tridiagonal; }
 
   void mark_as_banded (const octave_idx_type ku, const octave_idx_type kl)
-    { typ = Banded; upper_band = ku; lower_band = kl; }
+  { typ = Banded; upper_band = ku; lower_band = kl; }
 
   void mark_as_full (void) { typ = Full; }
 
--- a/liboctave/array/PermMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/PermMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -47,50 +47,50 @@
   PermMatrix (const idx_vector& idx, bool colp = false, octave_idx_type n = 0);
 
   octave_idx_type dim1 (void) const
-    { return Array<octave_idx_type>::length (); }
+  { return Array<octave_idx_type>::length (); }
   octave_idx_type dim2 (void) const
-    { return Array<octave_idx_type>::length (); }
+  { return Array<octave_idx_type>::length (); }
 
   octave_idx_type rows (void) const { return dim1 (); }
   octave_idx_type cols (void) const { return dim2 (); }
   octave_idx_type columns (void) const { return dim2 (); }
 
   octave_idx_type perm_length (void) const
-    { return Array<octave_idx_type>::length (); }
+  { return Array<octave_idx_type>::length (); }
   // FIXME: a dangerous ambiguity?
   octave_idx_type length (void) const
-    { return perm_length (); }
+  { return perm_length (); }
   octave_idx_type nelem (void) const { return dim1 () * dim2 (); }
   octave_idx_type numel (void) const { return nelem (); }
 
   size_t byte_size (void) const
-    { return Array<octave_idx_type>::byte_size (); }
+  { return Array<octave_idx_type>::byte_size (); }
 
   dim_vector dims (void) const { return dim_vector (dim1 (), dim2 ()); }
 
   Array<octave_idx_type> pvec (void) const
-    { return *this; }
+  { return *this; }
 
   octave_idx_type
   elem (octave_idx_type i, octave_idx_type j) const
-    {
-      return (_colp
-              ? ((Array<octave_idx_type>::elem (j) == i) ? 1 : 0)
+  {
+    return (_colp
+            ? ((Array<octave_idx_type>::elem (j) == i) ? 1 : 0)
               : ((Array<octave_idx_type>::elem (i) == j) ? 1 : 0));
-    }
+  }
 
   octave_idx_type
   checkelem (octave_idx_type i, octave_idx_type j) const;
 
   octave_idx_type
   operator () (octave_idx_type i, octave_idx_type j) const
-    {
+  {
 #if defined (BOUNDS_CHECKING)
-      return checkelem (i, j);
+    return checkelem (i, j);
 #else
-      return elem (i, j);
+    return elem (i, j);
 #endif
-    }
+  }
 
   // These are, in fact, super-fast.
   PermMatrix transpose (void) const;
@@ -105,19 +105,20 @@
   bool is_col_perm (void) const { return _colp; }
   bool is_row_perm (void) const { return !_colp; }
 
-  friend OCTAVE_API PermMatrix operator *(const PermMatrix& a, const PermMatrix& b);
+  friend OCTAVE_API PermMatrix operator *(const PermMatrix& a,
+                                          const PermMatrix& b);
 
   const octave_idx_type *data (void) const
-    { return Array<octave_idx_type>::data (); }
+  { return Array<octave_idx_type>::data (); }
 
   const octave_idx_type *fortran_vec (void) const
-    { return Array<octave_idx_type>::fortran_vec (); }
+  { return Array<octave_idx_type>::fortran_vec (); }
 
   octave_idx_type *fortran_vec (void)
-    { return Array<octave_idx_type>::fortran_vec (); }
+  { return Array<octave_idx_type>::fortran_vec (); }
 
   void print_info (std::ostream& os, const std::string& prefix) const
-    { Array<octave_idx_type>::print_info (os, prefix); }
+  { Array<octave_idx_type>::print_info (os, prefix); }
 
   static PermMatrix eye (octave_idx_type n);
 
--- a/liboctave/array/Range.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Range.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,7 @@
         {
           // The first element must always be *exactly* the base.
           // E.g, -0 would otherwise become +0 in the loop (-0 + 0*increment).
-          cache(0) = b; 
+          cache(0) = b;
           for (octave_idx_type i = 1; i < rng_nelem; i++)
             cache(i) = b + i * increment;
         }
@@ -88,7 +88,7 @@
 
   if (i == 0)
     return rng_base;
-  else if (i < rng_nelem - 1) 
+  else if (i < rng_nelem - 1)
     return rng_base + i * rng_inc;
   else
     {
@@ -109,7 +109,7 @@
 #else
   if (i == 0)
     return rng_base;
-  else if (i < rng_nelem - 1) 
+  else if (i < rng_nelem - 1)
     return rng_base + i * rng_inc;
   else
     {
@@ -126,27 +126,27 @@
 // Helper class used solely for idx_vector.loop () function call
 class __rangeidx_helper
 {
- public:
+public:
   __rangeidx_helper (double *a, double b, double i, double l, octave_idx_type n)
     : array (a), base (b), inc (i), limit (l), nmax (n-1) { }
 
   void operator () (octave_idx_type i)
-    {
-      if (i == 0)
-        *array++ = base;
-      else if (i < nmax) 
-        *array++ = base + i * inc;
-      else
-        {
-          double end = base + i * inc;
-          if ((inc > 0 && end >= limit) || (inc < 0 && end <= limit))
-            *array++ = limit;
-          else
-            *array++ = end;
-        }
-    }
+  {
+    if (i == 0)
+      *array++ = base;
+    else if (i < nmax)
+      *array++ = base + i * inc;
+    else
+      {
+        double end = base + i * inc;
+        if ((inc > 0 && end >= limit) || (inc < 0 && end <= limit))
+          *array++ = limit;
+        else
+          *array++ = end;
+      }
+  }
 
- private:
+private:
 
   double *array, base, inc, limit;
   octave_idx_type nmax;
@@ -514,7 +514,8 @@
 }
 
 static inline bool
-teq (double u, double v, double ct = 3.0 * std::numeric_limits<double>::epsilon ())
+teq (double u, double v,
+     double ct = 3.0 * std::numeric_limits<double>::epsilon ())
 {
   double tu = fabs (u);
   double tv = fabs (v);
@@ -539,7 +540,8 @@
 
       double tmp = tfloor ((rng_limit - rng_base + rng_inc) / rng_inc, ct);
 
-      octave_idx_type n_elt = (tmp > 0.0 ? static_cast<octave_idx_type> (tmp) : 0);
+      octave_idx_type n_elt = (tmp > 0.0 ? static_cast<octave_idx_type> (tmp)
+                                         : 0);
 
       // If the final element that we would compute for the range is
       // equal to the limit of the range, or is an adjacent floating
@@ -560,7 +562,8 @@
             n_elt++;
         }
 
-      retval = (n_elt < std::numeric_limits<octave_idx_type>::max () - 1) ? n_elt : -1;
+      retval = (n_elt < std::numeric_limits<octave_idx_type>::max () - 1)
+               ? n_elt : -1;
     }
 
   return retval;
--- a/liboctave/array/Range.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Range.h	Tue Nov 05 12:27:42 2013 -0500
@@ -32,7 +32,7 @@
 OCTAVE_API
 Range
 {
- public:
+public:
 
   Range (void)
     : rng_base (0), rng_limit (0), rng_inc (0), rng_nelem (0), cache (1, 0) { }
@@ -53,10 +53,10 @@
   Range (double b, double i, octave_idx_type n)
     : rng_base (b), rng_limit (b + (n-1) * i), rng_inc (i),
       rng_nelem (n), cache ()
-    {
-      if (! xfinite (b) || ! xfinite (i))
-        rng_nelem = -2;
-    }
+  {
+    if (! xfinite (b) || ! xfinite (i))
+      rng_nelem = -2;
+  }
 
   double base (void) const { return rng_base; }
   double limit (void) const { return rng_limit; }
@@ -117,7 +117,8 @@
       }
   }
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const Range& r);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const Range& r);
   friend OCTAVE_API std::istream& operator >> (std::istream& is, Range& r);
 
   friend OCTAVE_API Range operator - (const Range& r);
@@ -130,7 +131,7 @@
 
   void print_range (void);
 
- private:
+private:
 
   double rng_base;
   double rng_limit;
--- a/liboctave/array/Sparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Sparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -205,7 +205,7 @@
 {
   if (val != T ())
     {
-      rep = new typename Sparse<T>::SparseRep (nr, nc, nr*nc);
+      rep = new typename Sparse<T>::SparseRep (nr, nc, dimensions.safe_numel ());
 
       octave_idx_type ii = 0;
       xcidx (0) = 0;
@@ -245,9 +245,9 @@
 
   // Work in unsigned long long to avoid overflow issues with numel
   unsigned long long a_nel = static_cast<unsigned long long>(a.rows ()) *
-    static_cast<unsigned long long>(a.cols ());
+                             static_cast<unsigned long long>(a.cols ());
   unsigned long long dv_nel = static_cast<unsigned long long>(dv (0)) *
-    static_cast<unsigned long long>(dv (1));
+                              static_cast<unsigned long long>(dv (1));
 
   if (a_nel != dv_nel)
     (*current_liboctave_error_handler)
@@ -737,7 +737,8 @@
 
 template <class T>
 T
-Sparse<T>::range_error (const char *fcn, octave_idx_type i, octave_idx_type j) const
+Sparse<T>::range_error (const char *fcn, octave_idx_type i,
+                        octave_idx_type j) const
 {
   (*current_liboctave_error_handler)
     ("%s (%d, %d): range error", fcn, i, j);
@@ -756,7 +757,8 @@
 
 template <class T>
 T
-Sparse<T>::range_error (const char *fcn, const Array<octave_idx_type>& ra_idx) const
+Sparse<T>::range_error (const char *fcn,
+                        const Array<octave_idx_type>& ra_idx) const
 {
   std::ostringstream buf;
 
@@ -972,7 +974,8 @@
       rep->c = new_cidx;
 
       if (c > rep->ncols)
-        fill_or_memset (c - rep->ncols, rep->c[rep->ncols], rep->c + rep->ncols + 1);
+        fill_or_memset (c - rep->ncols, rep->c[rep->ncols],
+                        rep->c + rep->ncols + 1);
     }
 
   rep->ncols = dimensions(1) = c;
@@ -1184,7 +1187,7 @@
           for (octave_idx_type i = 0; i < nz; i++)
             {
               octave_idx_type r = tmp.ridx (i);
-              for (;j < sl && sj[j] < r; j++) ;
+              for (; j < sl && sj[j] < r; j++) ;
               if (j == sl || sj[j] > r)
                 {
                   data_new[nz_new] = tmp.data (i);
@@ -1205,13 +1208,16 @@
       if (idx.is_cont_range (nc, lb, ub))
         {
           const Sparse<T> tmp = *this;
-          octave_idx_type lbi = tmp.cidx (lb), ubi = tmp.cidx (ub), new_nz = nz - (ubi - lbi);
+          octave_idx_type lbi = tmp.cidx (lb);
+          octave_idx_type ubi = tmp.cidx (ub);
+          octave_idx_type new_nz = nz - (ubi - lbi);
           *this = Sparse<T> (1, nc - (ub - lb), new_nz);
           copy_or_memcpy (lbi, tmp.data (), data ());
           copy_or_memcpy (nz - ubi, tmp.data () + ubi, xdata () + lbi);
           fill_or_memset (new_nz, static_cast<octave_idx_type> (0), ridx ());
           copy_or_memcpy (lb, tmp.cidx () + 1, cidx () + 1);
-          mx_inline_sub (nc - ub, xcidx () + 1, tmp.cidx () + ub + 1, ubi - lbi);
+          mx_inline_sub (nc - ub, xcidx () + 1, tmp.cidx () + ub + 1,
+                         ubi - lbi);
         }
       else
         *this = index (idx.complement (nc));
@@ -1260,8 +1266,9 @@
           else
             {
               const Sparse<T> tmp = *this;
-              octave_idx_type lbi = tmp.cidx(lb), ubi = tmp.cidx(ub),
-                new_nz = nz - (ubi - lbi);
+              octave_idx_type lbi = tmp.cidx(lb);
+              octave_idx_type ubi = tmp.cidx(ub);
+              octave_idx_type new_nz = nz - (ubi - lbi);
 
               *this = Sparse<T> (nr, nc - (ub - lb), new_nz);
               copy_or_memcpy (lbi, tmp.data (), data ());
@@ -1532,7 +1539,8 @@
           octave_idx_type lbi = cidx (lb), ubi = cidx (ub), new_nz = ubi - lbi;
           retval = Sparse<T> (1, ub - lb, new_nz);
           copy_or_memcpy (new_nz, data () + lbi, retval.data ());
-          fill_or_memset (new_nz, static_cast<octave_idx_type> (0), retval.ridx ());
+          fill_or_memset (new_nz, static_cast<octave_idx_type> (0),
+                          retval.ridx ());
           mx_inline_sub (ub - lb + 1, retval.cidx (), cidx () + lb, lbi);
         }
       else
@@ -1549,11 +1557,12 @@
       else
         {
           // Indexing a non-vector sparse matrix by linear indexing.
-          // I suppose this is rare (and it may easily overflow), so let's take the easy way,
-          // and reshape first to column vector, which is already handled above.
+          // I suppose this is rare (and it may easily overflow), so let's take
+          // the easy way, and reshape first to column vector, which is already
+          // handled above.
           retval = index (idx_vector::colon).index (idx);
-          // In this case we're supposed to always inherit the shape, but column(row) doesn't do
-          // it, so we'll do it instead.
+          // In this case we're supposed to always inherit the shape, but
+          // column(row) doesn't do it, so we'll do it instead.
           if (idx_dims(0) == 1 && idx_dims(1) != 1)
             retval = retval.transpose ();
         }
@@ -1564,7 +1573,8 @@
 
 template <class T>
 Sparse<T>
-Sparse<T>::index (const idx_vector& idx_i, const idx_vector& idx_j, bool resize_ok) const
+Sparse<T>::index (const idx_vector& idx_i, const idx_vector& idx_j,
+                  bool resize_ok) const
 {
   Sparse<T> retval;
 
@@ -1596,8 +1606,8 @@
     }
   else if (nr == 1 && nc == 1)
     {
-      // Scalars stored as sparse matrices occupy more memory than 
-      // a scalar, so let's just convert the matrix to full, index, 
+      // Scalars stored as sparse matrices occupy more memory than
+      // a scalar, so let's just convert the matrix to full, index,
       // and sparsify the result.
 
       retval = Sparse<T> (array_value ().index (idx_i, idx_j));
@@ -1633,7 +1643,9 @@
           for (octave_idx_type j = 0; j < m; j++)
             {
               octave_idx_type ljj = cidx (idx_j(j));
-              octave_idx_type lj = retval.xcidx (j), nzj = retval.xcidx (j+1) - lj;
+              octave_idx_type lj = retval.xcidx (j);
+              octave_idx_type nzj = retval.xcidx (j+1) - lj;
+
               copy_or_memcpy (nzj, data () + ljj, retval.data () + lj);
               copy_or_memcpy (nzj, ridx () + ljj, retval.ridx () + lj);
             }
@@ -1656,7 +1668,10 @@
       for (octave_idx_type j = 0; j < m; j++)
         {
           octave_quit ();
-          octave_idx_type jj = idx_j(j), lj = cidx (jj), nzj = cidx (jj+1) - cidx (jj);
+          octave_idx_type jj = idx_j(j);
+          octave_idx_type lj = cidx (jj);
+          octave_idx_type nzj = cidx (jj+1) - cidx (jj);
+
           // Scalar index - just a binary lookup.
           octave_idx_type i = lblookup (ridx () + lj, nzj, ii);
           if (i < nzj && ridx (i+lj) == ii)
@@ -1689,8 +1704,11 @@
       for (octave_idx_type j = 0; j < m; j++)
         {
           octave_quit ();
-          octave_idx_type jj = idx_j(j), lj = cidx (jj), nzj = cidx (jj+1) - cidx (jj);
+          octave_idx_type jj = idx_j(j);
+          octave_idx_type lj = cidx (jj);
+          octave_idx_type nzj = cidx (jj+1) - cidx (jj);
           octave_idx_type lij, uij;
+
           // Lookup indices.
           li[j] = lij = lblookup (ridx () + lj, nzj, lb) + lj;
           ui[j] = uij = lblookup (ridx () + lj, nzj, ub) + lj;
@@ -1712,7 +1730,7 @@
     }
   else if (idx_i.is_permutation (nr))
     {
-      // The columns preserve their length, we just need to renumber and sort them.
+      // The columns preserve their length, just need to renumber and sort them.
       // Count new nonzero elements.
       retval = Sparse<T> (nr, m);
       for (octave_idx_type j = 0; j < m; j++)
@@ -1731,7 +1749,9 @@
           for (octave_idx_type j = 0; j < m; j++)
             {
               octave_quit ();
-              octave_idx_type jj = idx_j(j), lj = cidx (jj), nzj = cidx (jj+1) - cidx (jj);
+              octave_idx_type jj = idx_j(j);
+              octave_idx_type lj = cidx (jj);
+              octave_idx_type nzj = cidx (jj+1) - cidx (jj);
               octave_idx_type li = retval.xcidx (j), uj = lj + nzj - 1;
               for (octave_idx_type i = 0; i < nzj; i++)
                 {
@@ -1753,7 +1773,9 @@
           for (octave_idx_type j = 0; j < m; j++)
             {
               octave_quit ();
-              octave_idx_type jj = idx_j(j), lj = cidx (jj), nzj = cidx (jj+1) - cidx (jj);
+              octave_idx_type jj = idx_j(j);
+              octave_idx_type lj = cidx (jj);
+              octave_idx_type nzj = cidx (jj+1) - cidx (jj);
               octave_idx_type li = retval.xcidx (j);
               // Scatter the column, transform indices.
               for (octave_idx_type i = 0; i < nzj; i++)
@@ -1846,8 +1868,10 @@
                   if (new_nz > nz)
                     {
                       // Make room first.
-                      std::copy_backward (data () + ui, data () + nz, data () + nz + rnz);
-                      std::copy_backward (ridx () + ui, ridx () + nz, ridx () + nz + rnz);
+                      std::copy_backward (data () + ui, data () + nz,
+                                          data () + nz + rnz);
+                      std::copy_backward (ridx () + ui, ridx () + nz,
+                                          ridx () + nz + rnz);
                     }
 
                   // Copy data and adjust indices from rhs.
@@ -1870,8 +1894,10 @@
                   mx_inline_add (rnz, ridx () + li, rhs.ridx (), lb);
 
                   // ...tail
-                  copy_or_memcpy (nz - ui, tmp.data () + ui, data () + li + rnz);
-                  copy_or_memcpy (nz - ui, tmp.ridx () + ui, ridx () + li + rnz);
+                  copy_or_memcpy (nz - ui, tmp.data () + ui,
+                                  data () + li + rnz);
+                  copy_or_memcpy (nz - ui, tmp.ridx () + ui,
+                                  ridx () + li + rnz);
                 }
 
               cidx (1) = new_nz;
@@ -1953,7 +1979,7 @@
   octave_idx_type n = rhs.rows ();
   octave_idx_type m = rhs.columns ();
 
-  // FIXME -- this should probably be written more like the
+  // FIXME: this should probably be written more like the
   // Array<T>::assign function...
 
   bool orig_zero_by_zero = (nr == 0 && nc == 0);
@@ -2033,7 +2059,8 @@
                   // Copy data and indices from rhs.
                   copy_or_memcpy (rnz, rhs.data (), data () + li);
                   copy_or_memcpy (rnz, rhs.ridx (), ridx () + li);
-                  mx_inline_add (ub - lb, cidx () + lb + 1, rhs.cidx () + 1, li);
+                  mx_inline_add (ub - lb, cidx () + lb + 1, rhs.cidx () + 1,
+                                 li);
 
                   assert (nnz () == new_nz);
                 }
@@ -2052,12 +2079,16 @@
                   // new stuff...
                   copy_or_memcpy (rnz, rhs.data (), data () + li);
                   copy_or_memcpy (rnz, rhs.ridx (), ridx () + li);
-                  mx_inline_add (ub - lb, cidx () + lb + 1, rhs.cidx () + 1, li);
+                  mx_inline_add (ub - lb, cidx () + lb + 1, rhs.cidx () + 1,
+                                 li);
 
                   // ...tail.
-                  copy_or_memcpy (nz - ui, tmp.data () + ui, data () + li + rnz);
-                  copy_or_memcpy (nz - ui, tmp.ridx () + ui, ridx () + li + rnz);
-                  mx_inline_add (nc - ub, cidx () + ub + 1, tmp.cidx () + ub + 1, new_nz - nz);
+                  copy_or_memcpy (nz - ui, tmp.data () + ui,
+                                  data () + li + rnz);
+                  copy_or_memcpy (nz - ui, tmp.ridx () + ui,
+                                  ridx () + li + rnz);
+                  mx_inline_add (nc - ub, cidx () + ub + 1,
+                                 tmp.cidx () + ub + 1, new_nz - nz);
 
                   assert (nnz () == new_nz);
                 }
@@ -2065,7 +2096,8 @@
           else if (idx_j.is_range () && idx_j.increment () == -1)
             {
               // It's s(:,u:-1:l) = r. Reverse the assignment.
-              assign (idx_i, idx_j.sorted (), rhs.index (idx_i, idx_vector (m - 1, 0, -1)));
+              assign (idx_i, idx_j.sorted (),
+                      rhs.index (idx_i, idx_vector (m - 1, 0, -1)));
             }
           else if (idx_j.is_permutation (nc))
             {
@@ -2118,7 +2150,7 @@
         }
       else if (nc == 1 && idx_j.is_colon_equiv (nc) && idx_i.is_vector ())
         {
-          // It's actually vector indexing. The 1D assign is specialized for that.
+          // It's just vector indexing.  The 1D assign is specialized for that.
           assign (idx_i, rhs);
         }
       else if (idx_j.is_colon ())
@@ -2237,7 +2269,7 @@
     }
 
   if (dim > 0)
-      m = m.transpose ();
+    m = m.transpose ();
 
   return m;
 }
@@ -2558,8 +2590,8 @@
     {
     case 0:
       {
-        // sparse vertcat. This is not efficiently handled by assignment, so
-        // we'll do it directly.
+        // sparse vertcat.  This is not efficiently handled by assignment,
+        // so we'll do it directly.
         octave_idx_type l = 0;
         for (octave_idx_type j = 0; j < dv(1); j++)
           {
@@ -2600,7 +2632,8 @@
               continue;
 
             octave_idx_type u = l + sparse_list[i].columns ();
-            retval.assign (idx_vector::colon, idx_vector (l, u), sparse_list[i]);
+            retval.assign (idx_vector::colon, idx_vector (l, u),
+                           sparse_list[i]);
             l = u;
           }
 
--- a/liboctave/array/Sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/Sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -73,39 +73,39 @@
 
     SparseRep (void)
       : d (0), r (0), c (new octave_idx_type [1]), nzmx (0), nrows (0),
-      ncols (0), count (1)
-      {
-        c[0] = 0;
-      }
+        ncols (0), count (1)
+    {
+      c[0] = 0;
+    }
 
     SparseRep (octave_idx_type n)
       : d (0), r (0), c (new octave_idx_type [n+1]), nzmx (0), nrows (n),
-      ncols (n), count (1)
-      {
-        for (octave_idx_type i = 0; i < n + 1; i++)
-          c[i] = 0;
-      }
+        ncols (n), count (1)
+    {
+      for (octave_idx_type i = 0; i < n + 1; i++)
+        c[i] = 0;
+    }
 
     SparseRep (octave_idx_type nr, octave_idx_type nc, octave_idx_type nz = 0)
       : d (nz > 0 ? new T [nz] : 0),
-      r (nz > 0 ? new octave_idx_type [nz] : 0),
-      c (new octave_idx_type [nc+1]), nzmx (nz), nrows (nr),
-      ncols (nc), count (1)
-      {
-        for (octave_idx_type i = 0; i < nc + 1; i++)
-          c[i] = 0;
-      }
+        r (nz > 0 ? new octave_idx_type [nz] : 0),
+        c (new octave_idx_type [nc+1]), nzmx (nz), nrows (nr),
+        ncols (nc), count (1)
+    {
+      for (octave_idx_type i = 0; i < nc + 1; i++)
+        c[i] = 0;
+    }
 
     SparseRep (const SparseRep& a)
       : d (new T [a.nzmx]), r (new octave_idx_type [a.nzmx]),
-      c (new octave_idx_type [a.ncols + 1]),
-      nzmx (a.nzmx), nrows (a.nrows), ncols (a.ncols), count (1)
-      {
-        octave_idx_type nz = a.nnz ();
-        copy_or_memcpy (nz, a.d, d);
-        copy_or_memcpy (nz, a.r, r);
-        copy_or_memcpy (ncols + 1, a.c, c);
-      }
+        c (new octave_idx_type [a.ncols + 1]),
+        nzmx (a.nzmx), nrows (a.nrows), ncols (a.ncols), count (1)
+    {
+      octave_idx_type nz = a.nnz ();
+      copy_or_memcpy (nz, a.d, d);
+      copy_or_memcpy (nz, a.r, r);
+      copy_or_memcpy (ncols + 1, a.c, c);
+    }
 
     ~SparseRep (void) { delete [] d; delete [] r; delete [] c; }
 
@@ -207,8 +207,9 @@
   // Type conversion case. Preserves capacity ().
   template <class U>
   Sparse (const Sparse<U>& a)
-    : rep (new typename Sparse<T>::SparseRep (a.rep->nrows, a.rep->ncols, a.rep->nzmx)),
-      dimensions (a.dimensions)
+    : rep (new typename Sparse<T>::SparseRep (a.rep->nrows, a.rep->ncols,
+           a.rep->nzmx)),
+    dimensions (a.dimensions)
   {
     octave_idx_type nz = a.nnz ();
     std::copy (a.rep->d, a.rep->d + nz, rep->d);
@@ -321,7 +322,7 @@
   T xelem (const Array<octave_idx_type>& ra_idx) const
   { return xelem (compute_index (ra_idx)); }
 
-  // FIXME -- would be nice to fix this so that we don't
+  // FIXME: would be nice to fix this so that we don't
   // unnecessarily force a copy, but that is not so easy, and I see no
   // clean way to do it.
 
@@ -510,7 +511,7 @@
   T& xdata (octave_idx_type i) { return rep->data (i); }
 
   T data (octave_idx_type i) const { return rep->data (i); }
-  // FIXME -- shouldn't this be returning const T*?
+  // FIXME: shouldn't this be returning const T*?
   T* data (void) const { return rep->d; }
 
   octave_idx_type* ridx (void) { make_unique (); return rep->r; }
@@ -523,7 +524,7 @@
   octave_idx_type& xridx (octave_idx_type i) { return rep->ridx (i); }
 
   octave_idx_type ridx (octave_idx_type i) const { return rep->cridx (i); }
-  // FIXME -- shouldn't this be returning const octave_idx_type*?
+  // FIXME: shouldn't this be returning const octave_idx_type*?
   octave_idx_type* ridx (void) const { return rep->r; }
 
   octave_idx_type* cidx (void) { make_unique (); return rep->c; }
@@ -536,7 +537,7 @@
   octave_idx_type& xcidx (octave_idx_type i) { return rep->cidx (i); }
 
   octave_idx_type cidx (octave_idx_type i) const { return rep->ccidx (i); }
-  // FIXME -- shouldn't this be returning const octave_idx_type*?
+  // FIXME: shouldn't this be returning const octave_idx_type*?
   octave_idx_type* cidx (void) const { return rep->c; }
 
   octave_idx_type ndims (void) const { return dimensions.length (); }
@@ -631,7 +632,7 @@
           for (octave_idx_type i = cidx (j); i < cidx (j+1); i++)
             {
               octave_quit ();
-              /* Use data instead of elem for better performance.  */
+              /* Use data instead of elem for better performance. */
               result.data (ridx (i) + j * nr) = fcn (data (i));
             }
 
@@ -766,7 +767,7 @@
         a.cidx (j+1) = ii;
     }
 
- done:
+done:
 
   return is;
 }
--- a/liboctave/array/boolMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -84,8 +84,7 @@
   return Array<bool>::diag (k);
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 boolMatrix
 boolMatrix::all (int dim) const
--- a/liboctave/array/boolMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_boolMatrix_int_h)
-#define octave_boolMatrix_int_h 1
+#if !defined (octave_boolMatrix_h)
+#define octave_boolMatrix_h 1
 
 #include "Array.h"
 
@@ -52,10 +52,10 @@
   boolMatrix (const boolMatrix& a) : Array<bool> (a) { }
 
   boolMatrix& operator = (const boolMatrix& a)
-    {
-      Array<bool>::operator = (a);
-      return *this;
-    }
+  {
+    Array<bool>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const boolMatrix& a) const;
   bool operator != (const boolMatrix& a) const;
@@ -64,7 +64,8 @@
 
   // destructive insert/delete/reorder operations
 
-  boolMatrix& insert (const boolMatrix& a, octave_idx_type r, octave_idx_type c);
+  boolMatrix& insert (const boolMatrix& a,
+                      octave_idx_type r, octave_idx_type c);
 
   // unary operations
 
--- a/liboctave/array/boolNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -54,7 +54,7 @@
   return *this;
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 boolNDArray
 boolNDArray::all (int dim) const
@@ -84,7 +84,8 @@
 }
 
 boolNDArray
-boolNDArray::concat (const boolNDArray& rb, const Array<octave_idx_type>& ra_idx)
+boolNDArray::concat (const boolNDArray& rb,
+                     const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
--- a/liboctave/array/boolNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -54,10 +54,10 @@
   boolNDArray (const Array<bool>& a) : Array<bool> (a) { }
 
   boolNDArray& operator = (const boolNDArray& a)
-    {
-      Array<bool>::operator = (a);
-      return *this;
-    }
+  {
+    Array<bool>::operator = (a);
+    return *this;
+  }
 
   // unary operations
 
@@ -67,7 +67,7 @@
 
   bool any_element_is_nan (void) const { return false; }
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   boolNDArray all (int dim = -1) const;
   boolNDArray any (int dim = -1) const;
@@ -75,10 +75,13 @@
   NDArray sum (int dim = -1) const;
   NDArray cumsum (int dim = -1) const;
 
-  boolNDArray concat (const boolNDArray& rb, const Array<octave_idx_type>& ra_idx);
+  boolNDArray concat (const boolNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx);
 
-  boolNDArray& insert (const boolNDArray& a, octave_idx_type r, octave_idx_type c);
-  boolNDArray& insert (const boolNDArray& a, const Array<octave_idx_type>& ra_idx);
+  boolNDArray& insert (const boolNDArray& a, octave_idx_type r,
+                       octave_idx_type c);
+  boolNDArray& insert (const boolNDArray& a,
+                       const Array<octave_idx_type>& ra_idx);
 
   boolMatrix matrix_value (void) const;
 
@@ -89,7 +92,7 @@
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
--- a/liboctave/array/boolSparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolSparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -55,7 +55,7 @@
 
   for (octave_idx_type i = 0; i < nc + 1; i++)
     if (cidx (i) != a.cidx (i))
-        return false;
+      return false;
 
   for (octave_idx_type i = 0; i < nz; i++)
     if (data (i) != a.data (i) || ridx (i) != a.ridx (i))
@@ -71,21 +71,24 @@
 }
 
 SparseBoolMatrix&
-SparseBoolMatrix::insert (const SparseBoolMatrix& a, octave_idx_type r, octave_idx_type c)
+SparseBoolMatrix::insert (const SparseBoolMatrix& a,
+                          octave_idx_type r, octave_idx_type c)
 {
   Sparse<bool>::insert (a, r, c);
   return *this;
 }
 
 SparseBoolMatrix&
-SparseBoolMatrix::insert (const SparseBoolMatrix& a, const Array<octave_idx_type>& indx)
+SparseBoolMatrix::insert (const SparseBoolMatrix& a,
+                          const Array<octave_idx_type>& indx)
 {
   Sparse<bool>::insert (a, indx);
   return *this;
 }
 
 SparseBoolMatrix
-SparseBoolMatrix::concat (const SparseBoolMatrix& rb, const Array<octave_idx_type>& ra_idx)
+SparseBoolMatrix::concat (const SparseBoolMatrix& rb,
+                          const Array<octave_idx_type>& ra_idx)
 {
   // Don't use numel to avoid all possiblity of an overflow
   if (rb.rows () > 0 && rb.cols () > 0)
@@ -128,8 +131,7 @@
 
 // other operations
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 SparseBoolMatrix
 SparseBoolMatrix::all (int dim) const
@@ -256,14 +258,14 @@
 {
   octave_idx_type nc = a.cols ();
 
-   // add one to the printed indices to go from
-   //  zero-based to one-based arrays
-   for (octave_idx_type j = 0; j < nc; j++)
-     {
-       octave_quit ();
-       for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
-         os << a.ridx (i) + 1 << " "  << j + 1 << " " << a.data (i) << "\n";
-     }
+  // add one to the printed indices to go from
+  //  zero-based to one-based arrays
+  for (octave_idx_type j = 0; j < nc; j++)
+    {
+      octave_quit ();
+      for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
+        os << a.ridx (i) + 1 << " "  << j + 1 << " " << a.data (i) << "\n";
+    }
 
   return os;
 }
@@ -289,7 +291,8 @@
 }
 
 SparseBoolMatrix
-SparseBoolMatrix::index (const idx_vector& i, const idx_vector& j, bool resize_ok) const
+SparseBoolMatrix::index (const idx_vector& i, const idx_vector& j,
+                         bool resize_ok) const
 {
   return Sparse<bool>::index (i, j, resize_ok);
 }
--- a/liboctave/array/boolSparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/boolSparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -38,13 +38,14 @@
 
   SparseBoolMatrix (void) : Sparse<bool> () { }
 
-  SparseBoolMatrix (octave_idx_type r, octave_idx_type c) : Sparse<bool> (r, c) { }
+  SparseBoolMatrix (octave_idx_type r, octave_idx_type c)
+    : Sparse<bool> (r, c) { }
 
   explicit SparseBoolMatrix (octave_idx_type r, octave_idx_type c, bool val)
     : Sparse<bool> (r, c, val) { }
 
-  SparseBoolMatrix (const dim_vector& dv, octave_idx_type nz = 0) :
-    Sparse<bool> (dv, nz) { }
+  SparseBoolMatrix (const dim_vector& dv, octave_idx_type nz = 0)
+    : Sparse<bool> (dv, nz) { }
 
   SparseBoolMatrix (const Sparse<bool>& a) : Sparse<bool> (a) { }
 
@@ -65,25 +66,28 @@
                     octave_idx_type nzm = -1)
     : Sparse<bool> (a, r, c, nr, nc, sum_terms, nzm) { }
 
-  SparseBoolMatrix (octave_idx_type r, octave_idx_type c, octave_idx_type num_nz) : Sparse<bool> (r, c, num_nz) { }
+  SparseBoolMatrix (octave_idx_type r, octave_idx_type c,
+                    octave_idx_type num_nz) : Sparse<bool> (r, c, num_nz) { }
 
   SparseBoolMatrix& operator = (const SparseBoolMatrix& a)
-    {
-      Sparse<bool>::operator = (a);
-      return *this;
-    }
+  {
+    Sparse<bool>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const SparseBoolMatrix& a) const;
   bool operator != (const SparseBoolMatrix& a) const;
 
   SparseBoolMatrix transpose (void) const
-    { return Sparse<bool>::transpose (); }
+  { return Sparse<bool>::transpose (); }
 
   // destructive insert/delete/reorder operations
 
-  SparseBoolMatrix& insert (const SparseBoolMatrix& a, octave_idx_type r, octave_idx_type c);
+  SparseBoolMatrix& insert (const SparseBoolMatrix& a,
+                            octave_idx_type r, octave_idx_type c);
 
-  SparseBoolMatrix& insert (const SparseBoolMatrix& a, const Array<octave_idx_type>& indx);
+  SparseBoolMatrix& insert (const SparseBoolMatrix& a,
+                            const Array<octave_idx_type>& indx);
 
   SparseBoolMatrix concat (const SparseBoolMatrix& rb,
                            const Array<octave_idx_type>& ra_idx);
@@ -96,11 +100,13 @@
 
   SparseBoolMatrix index (const idx_vector& i, bool resize_ok) const;
 
-  SparseBoolMatrix index (const idx_vector& i, const idx_vector& j, bool resize_ok) const;
+  SparseBoolMatrix index (const idx_vector& i, const idx_vector& j,
+                          bool resize_ok) const;
 
   SparseBoolMatrix reshape (const dim_vector& new_dims) const;
 
-  SparseBoolMatrix permute (const Array<octave_idx_type>& vec, bool inv = false) const;
+  SparseBoolMatrix permute (const Array<octave_idx_type>& vec,
+                            bool inv = false) const;
 
   SparseBoolMatrix ipermute (const Array<octave_idx_type>& vec) const;
 
@@ -116,8 +122,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const SparseBoolMatrix& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, SparseBoolMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const SparseBoolMatrix& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               SparseBoolMatrix& a);
 };
 
 SPARSE_SMS_EQNE_OP_DECLS (SparseBoolMatrix, bool, OCTAVE_API)
--- a/liboctave/array/chMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/chMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -167,7 +167,8 @@
 }
 
 charMatrix
-charMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+charMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -190,8 +191,7 @@
   return Array<char>::diag (k);
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 boolMatrix
 charMatrix::all (int dim) const
--- a/liboctave/array/chMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/chMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_chMatrix_int_h)
-#define octave_chMatrix_int_h 1
+#if !defined (octave_chMatrix_h)
+#define octave_chMatrix_h 1
 
 #include <string>
 
@@ -36,7 +36,7 @@
 OCTAVE_API
 charMatrix : public Array<char>
 {
-friend class ComplexMatrix;
+  friend class ComplexMatrix;
 
 public:
 
@@ -65,10 +65,10 @@
   charMatrix (const string_vector& s, char fill_value = '\0');
 
   charMatrix& operator = (const charMatrix& a)
-    {
-      Array<char>::operator = (a);
-      return *this;
-    }
+  {
+    Array<char>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const charMatrix& a) const;
   bool operator != (const charMatrix& a) const;
@@ -78,13 +78,15 @@
   // destructive insert/delete/reorder operations
 
   charMatrix& insert (const char *s, octave_idx_type r, octave_idx_type c);
-  charMatrix& insert (const charMatrix& a, octave_idx_type r, octave_idx_type c);
+  charMatrix& insert (const charMatrix& a,
+                      octave_idx_type r, octave_idx_type c);
 
   std::string row_as_string (octave_idx_type, bool strip_ws = false) const;
 
   // resize is the destructive equivalent for this one
 
-  charMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  charMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                      octave_idx_type r2, octave_idx_type c2) const;
 
   void resize (octave_idx_type nr, octave_idx_type nc, char rfv = 0)
   {
--- a/liboctave/array/chNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/chNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -34,7 +34,7 @@
 
 #include "bsxfun-defs.cc"
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 boolNDArray
 charNDArray::all (int dim) const
@@ -49,7 +49,8 @@
 }
 
 charNDArray
-charNDArray::concat (const charNDArray& rb, const Array<octave_idx_type>& ra_idx)
+charNDArray::concat (const charNDArray& rb,
+                     const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
@@ -80,8 +81,7 @@
           octave_idx_type ival = NINTbig (d);
 
           if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
-            // FIXME -- is there something
-            // better we could do? Should we warn the user?
+            // FIXME: is there something better to do? Should we warn the user?
             ival = 0;
 
           tmp.elem (i) = static_cast<char>(ival);
@@ -166,43 +166,47 @@
 charNDArray
 min (char d, const charNDArray& m)
 {
-  return do_sm_binary_op<charNDArray::element_type, char, charNDArray::element_type>
-           (d, m, mx_inline_xmin);
+  return do_sm_binary_op<charNDArray::element_type, char,
+                         charNDArray::element_type> (d, m, mx_inline_xmin);
 }
 
 charNDArray
 min (const charNDArray& m, char d)
 {
-  return do_ms_binary_op<charNDArray::element_type, charNDArray::element_type, char>
-           (m, d, mx_inline_xmin);
+  return do_ms_binary_op<charNDArray::element_type, charNDArray::element_type,
+                         char> (m, d, mx_inline_xmin);
 }
 
 charNDArray
 min (const charNDArray& a, const charNDArray& b)
 {
-  return do_mm_binary_op<charNDArray::element_type, charNDArray::element_type, charNDArray::element_type>
-           (a, b, mx_inline_xmin, mx_inline_xmin, mx_inline_xmin, "min");
+  return do_mm_binary_op<charNDArray::element_type, charNDArray::element_type,
+                         charNDArray::element_type> (a, b, mx_inline_xmin,
+                                                     mx_inline_xmin,
+                                                     mx_inline_xmin, "min");
 }
 
 charNDArray
 max (char d, const charNDArray& m)
 {
-  return do_sm_binary_op<charNDArray::element_type, char, charNDArray::element_type>
-           (d, m, mx_inline_xmax);
+  return do_sm_binary_op<charNDArray::element_type, char,
+                         charNDArray::element_type> (d, m, mx_inline_xmax);
 }
 
 charNDArray
 max (const charNDArray& m, char d)
 {
-  return do_ms_binary_op<charNDArray::element_type, charNDArray::element_type, char>
-           (m, d, mx_inline_xmax);
+  return do_ms_binary_op<charNDArray::element_type, charNDArray::element_type,
+                         char> (m, d, mx_inline_xmax);
 }
 
 charNDArray
 max (const charNDArray& a, const charNDArray& b)
 {
-  return do_mm_binary_op<charNDArray::element_type, charNDArray::element_type, charNDArray::element_type>
-           (a, b, mx_inline_xmax, mx_inline_xmax, mx_inline_xmax, "max");
+  return do_mm_binary_op<charNDArray::element_type, charNDArray::element_type,
+                         charNDArray::element_type> (a, b, mx_inline_xmax,
+                                                     mx_inline_xmax,
+                                                     mx_inline_xmax, "max");
 }
 
 NDS_CMP_OPS (charNDArray, char)
--- a/liboctave/array/chNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/chNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_charNDArray_h)
-#define octave_charNDArray_h 1
+#if !defined (octave_chNDArray_h)
+#define octave_chNDArray_h 1
 
 #include "Array.h"
 #include "chMatrix.h"
@@ -59,18 +59,19 @@
   charNDArray (const Array<char>& a) : Array<char> (a) { }
 
   charNDArray& operator = (const charNDArray& a)
-    {
-      Array<char>::operator = (a);
-      return *this;
-    }
+  {
+    Array<char>::operator = (a);
+    return *this;
+  }
 
   bool any_element_is_nan (void) const { return false; }
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   boolNDArray all (int dim = -1) const;
   boolNDArray any (int dim = -1) const;
-  charNDArray concat (const charNDArray& rb, const Array<octave_idx_type>& ra_idx);
+  charNDArray concat (const charNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx);
   charNDArray concat (const NDArray& rb, const Array<octave_idx_type>& ra_idx);
 
   charNDArray max (int dim = -1) const;
@@ -78,8 +79,10 @@
   charNDArray min (int dim = -1) const;
   charNDArray min (Array<octave_idx_type>& index, int dim = -1) const;
 
-  charNDArray& insert (const charNDArray& a, octave_idx_type r, octave_idx_type c);
-  charNDArray& insert (const charNDArray& a, const Array<octave_idx_type>& ra_idx);
+  charNDArray& insert (const charNDArray& a,
+                       octave_idx_type r, octave_idx_type c);
+  charNDArray& insert (const charNDArray& a,
+                       const Array<octave_idx_type>& ra_idx);
 
   charMatrix matrix_value (void) const;
 
@@ -90,7 +93,7 @@
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
--- a/liboctave/array/dColVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dColVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_ColumnVector_h)
-#define octave_ColumnVector_h 1
+#if !defined (octave_dColVector_h)
+#define octave_dColVector_h 1
 
 #include "MArray.h"
 
@@ -51,10 +51,10 @@
   ColumnVector (const Array<double>& a) : MArray<double> (a.as_column ()) { }
 
   ColumnVector& operator = (const ColumnVector& a)
-    {
-      MArray<double>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<double>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const ColumnVector& a) const;
   bool operator != (const ColumnVector& a) const;
@@ -81,11 +81,13 @@
 
   // matrix by column vector -> column vector operations
 
-  friend OCTAVE_API ColumnVector operator * (const Matrix& a, const ColumnVector& b);
+  friend OCTAVE_API ColumnVector operator * (const Matrix& a,
+                                             const ColumnVector& b);
 
   // diagonal matrix by column vector -> column vector operations
 
-  friend OCTAVE_API ColumnVector operator * (const DiagMatrix& a, const ColumnVector& b);
+  friend OCTAVE_API ColumnVector operator * (const DiagMatrix& a,
+                                             const ColumnVector& b);
 
   // other operations
 
@@ -96,8 +98,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const ColumnVector& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, ColumnVector& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const ColumnVector& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               ColumnVector& a);
 
   void resize (octave_idx_type n, const double& rfv = 0)
   {
@@ -105,7 +109,7 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<double>::clear (n, 1); }
+  { Array<double>::clear (n, 1); }
 
 };
 
--- a/liboctave/array/dDiagMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dDiagMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -157,7 +157,8 @@
 }
 
 Matrix
-DiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+DiagMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
--- a/liboctave/array/dDiagMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dDiagMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_DiagMatrix_h)
-#define octave_DiagMatrix_h 1
+#if !defined (octave_dDiagMatrix_h)
+#define octave_dDiagMatrix_h 1
 
 #include "MDiagArray2.h"
 
@@ -35,16 +35,18 @@
 OCTAVE_API
 DiagMatrix : public MDiagArray2<double>
 {
-friend class SVD;
-friend class ComplexSVD;
+  friend class SVD;
+  friend class ComplexSVD;
 
 public:
 
   DiagMatrix (void) : MDiagArray2<double> () { }
 
-  DiagMatrix (octave_idx_type r, octave_idx_type c) : MDiagArray2<double> (r, c) { }
+  DiagMatrix (octave_idx_type r, octave_idx_type c)
+    : MDiagArray2<double> (r, c) { }
 
-  DiagMatrix (octave_idx_type r, octave_idx_type c, double val) : MDiagArray2<double> (r, c, val) { }
+  DiagMatrix (octave_idx_type r, octave_idx_type c, double val)
+    : MDiagArray2<double> (r, c, val) { }
 
   DiagMatrix (const DiagMatrix& a) : MDiagArray2<double> (a) { }
 
@@ -59,10 +61,10 @@
     : MDiagArray2<double> (a, r, c) { }
 
   DiagMatrix& operator = (const DiagMatrix& a)
-    {
-      MDiagArray2<double>::operator = (a);
-      return *this;
-    }
+  {
+    MDiagArray2<double>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const DiagMatrix& a) const;
   bool operator != (const DiagMatrix& a) const;
@@ -74,7 +76,8 @@
   DiagMatrix& fill (const ColumnVector& a, octave_idx_type beg);
   DiagMatrix& fill (const RowVector& a, octave_idx_type beg);
 
-  DiagMatrix transpose (void) const { return MDiagArray2<double>::transpose (); }
+  DiagMatrix transpose (void) const
+  { return MDiagArray2<double>::transpose (); }
   DiagMatrix abs (void) const;
 
   friend OCTAVE_API DiagMatrix real (const ComplexDiagMatrix& a);
@@ -82,7 +85,8 @@
 
   // resize is the destructive analog for this one
 
-  Matrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  Matrix extract (octave_idx_type r1, octave_idx_type c1,
+                  octave_idx_type r2, octave_idx_type c2) const;
 
   // extract row or column i.
 
@@ -99,14 +103,15 @@
   // other operations
 
   ColumnVector extract_diag (octave_idx_type k = 0) const
-    { return MDiagArray2<double>::extract_diag (k); }
+  { return MDiagArray2<double>::extract_diag (k); }
 
   DET determinant (void) const;
   double rcond (void) const;
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const DiagMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const DiagMatrix& a);
 
 };
 
--- a/liboctave/array/dMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -269,8 +269,7 @@
       elem (i, ia(i)) = 1.0;
 }
 
-// FIXME -- could we use a templated mixed-type copy function
-// here?
+// FIXME: could we use a templated mixed-type copy function here?
 
 Matrix::Matrix (const boolMatrix& a)
   : MArray<double> (a)
@@ -413,7 +412,8 @@
 }
 
 Matrix&
-Matrix::fill (double val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+Matrix::fill (double val, octave_idx_type r1, octave_idx_type c1,
+              octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -601,7 +601,8 @@
 }
 
 Matrix
-Matrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+Matrix::extract (octave_idx_type r1, octave_idx_type c1,
+                 octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -610,7 +611,8 @@
 }
 
 Matrix
-Matrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const
+Matrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr,
+                   octave_idx_type nc) const
 {
   return index (idx_vector (r1, r1 + nr), idx_vector (c1, c1 + nc));
 }
@@ -763,7 +765,8 @@
       // Calculate the norm of the matrix, for later use.
       double anorm = 0;
       if (calc_cond)
-        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                .max ();
 
       F77_XFCN (dgetrf, DGETRF, (nc, nc, tmp_data, nr, pipvt, info));
 
@@ -1464,7 +1467,7 @@
               double *tmp_data = atmp.fortran_vec ();
 
               anorm = atmp.abs().sum().
-                row(static_cast<octave_idx_type>(0)).max();
+                      row(static_cast<octave_idx_type>(0)).max();
 
               F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
                                          tmp_data, nr, info
@@ -1505,7 +1508,7 @@
 
               if (anorm < 0.)
                 anorm = atmp.abs ().sum ().
-                  row(static_cast<octave_idx_type>(0)).max ();
+                        row(static_cast<octave_idx_type>(0)).max ();
 
               Array<double> z (dim_vector (4 * nc, 1));
               double *pz = z.fortran_vec ();
@@ -1541,8 +1544,8 @@
 
 Matrix
 Matrix::utsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
-                double& rcon, solve_singularity_handler sing_handler,
-                bool calc_cond, blas_trans_type transt) const
+                 double& rcon, solve_singularity_handler sing_handler,
+                 bool calc_cond, blas_trans_type transt) const
 {
   Matrix retval;
 
@@ -1641,8 +1644,8 @@
 
 Matrix
 Matrix::ltsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
-                double& rcon, solve_singularity_handler sing_handler,
-                bool calc_cond, blas_trans_type transt) const
+                 double& rcon, solve_singularity_handler sing_handler,
+                 bool calc_cond, blas_trans_type transt) const
 {
   Matrix retval;
 
@@ -1758,7 +1761,7 @@
     {
       volatile int typ = mattype.type ();
 
-     // Calculate the norm of the matrix, for later use.
+      // Calculate the norm of the matrix, for later use.
       double anorm = -1.;
 
       if (typ == MatrixType::Hermitian)
@@ -1846,7 +1849,7 @@
           Matrix atmp = *this;
           double *tmp_data = atmp.fortran_vec ();
 
-          if(anorm < 0.)
+          if (anorm < 0.)
             anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max();
 
           Array<double> z (dim_vector (4 * nc, 1));
@@ -1963,7 +1966,8 @@
   else if (typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
     retval = ltsolve (mattype, b, info, rcon, sing_handler, false, transt);
   else if (transt == blas_trans || transt == blas_conj_trans)
-    return transpose ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    return transpose ().solve (mattype, b, info, rcon, sing_handler,
+                               singular_fallback);
   else if (typ == MatrixType::Full || typ == MatrixType::Hermitian)
     retval = fsolve (mattype, b, info, rcon, sing_handler, true);
   else if (typ != MatrixType::Rectangular)
@@ -1992,7 +1996,7 @@
 
 ComplexMatrix
 Matrix::solve (MatrixType &typ, const ComplexMatrix& b,
-  octave_idx_type& info) const
+               octave_idx_type& info) const
 {
   double rcon;
   return solve (typ, b, info, rcon, 0);
@@ -2066,7 +2070,8 @@
 
 ColumnVector
 Matrix::solve (MatrixType &typ, const ColumnVector& b, octave_idx_type& info,
-               double& rcon, solve_singularity_handler sing_handler, blas_trans_type transt) const
+               double& rcon, solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   Matrix tmp (b);
   tmp = solve (typ, tmp, info, rcon, sing_handler, true, transt);
@@ -2099,7 +2104,8 @@
 ComplexColumnVector
 Matrix::solve (MatrixType &typ, const ComplexColumnVector& b,
                octave_idx_type& info, double& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+               solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   ComplexMatrix tmp (*this);
   return tmp.solve (typ, b, info, rcon, sing_handler, transt);
@@ -2128,7 +2134,8 @@
 
 Matrix
 Matrix::solve (const Matrix& b, octave_idx_type& info,
-               double& rcon, solve_singularity_handler sing_handler, blas_trans_type transt) const
+               double& rcon, solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, true, transt);
@@ -2149,7 +2156,8 @@
 }
 
 ComplexMatrix
-Matrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon) const
+Matrix::solve (const ComplexMatrix& b, octave_idx_type& info,
+               double& rcon) const
 {
   ComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon);
@@ -2157,7 +2165,8 @@
 
 ComplexMatrix
 Matrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+               solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   ComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon, sing_handler, transt);
@@ -2185,7 +2194,8 @@
 
 ColumnVector
 Matrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+               solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, transt);
@@ -2206,15 +2216,18 @@
 }
 
 ComplexColumnVector
-Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info, double& rcon) const
+Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
+               double& rcon) const
 {
   ComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon);
 }
 
 ComplexColumnVector
-Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info, double& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
+               double& rcon,
+               solve_singularity_handler sing_handler,
+               blas_trans_type transt) const
 {
   ComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon, sing_handler, transt);
@@ -2734,8 +2747,7 @@
   return test_any (xtoo_large_for_float);
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 boolMatrix
 Matrix::all (int dim) const
@@ -3063,7 +3075,7 @@
           }
     }
 
- done:
+done:
 
   return is;
 }
@@ -3090,8 +3102,7 @@
 {
   Matrix retval;
 
-  // FIXME -- need to check that a, b, and c are all the same
-  // size.
+  // FIXME: need to check that a, b, and c are all the same size.
 
   // Compute Schur decompositions.
 
@@ -3108,8 +3119,7 @@
 
   Matrix cx = ua.transpose () * c * ub;
 
-  // Solve the sylvester equation, back-transform, and return the
-  // solution.
+  // Solve the sylvester equation, back-transform, and return the solution.
 
   octave_idx_type a_nr = a.rows ();
   octave_idx_type b_nr = b.rows ();
@@ -3129,7 +3139,7 @@
                              F77_CHAR_ARG_LEN (1)));
 
 
-  // FIXME -- check info?
+  // FIXME: check info?
 
   retval = -ua*cx*ub.transpose ();
 
@@ -3261,8 +3271,7 @@
   return xgemm (a, b);
 }
 
-// FIXME -- it would be nice to share code among the min/max
-// functions below.
+// FIXME: it would be nice to share code among the min/max functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
@@ -3412,7 +3421,8 @@
   octave_idx_type m = x1.length ();
 
   if (x2.length () != m)
-    (*current_liboctave_error_handler) ("linspace: vectors must be of equal length");
+    (*current_liboctave_error_handler)
+      ("linspace: vectors must be of equal length");
 
   NoAlias<Matrix> retval;
 
--- a/liboctave/array/dMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_Matrix_int_h)
-#define octave_Matrix_int_h 1
+#if !defined (octave_dMatrix_h)
+#define octave_dMatrix_h 1
 
 #include "MArray.h"
 #include "MDiagArray2.h"
@@ -76,10 +76,10 @@
   explicit Matrix (const charMatrix& a);
 
   Matrix& operator = (const Matrix& a)
-    {
-      MArray<double>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<double>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const Matrix& a) const;
   bool operator != (const Matrix& a) const;
@@ -94,7 +94,8 @@
   Matrix& insert (const DiagMatrix& a, octave_idx_type r, octave_idx_type c);
 
   Matrix& fill (double val);
-  Matrix& fill (double val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
+  Matrix& fill (double val, octave_idx_type r1, octave_idx_type c1,
+                octave_idx_type r2, octave_idx_type c2);
 
   Matrix append (const Matrix& a) const;
   Matrix append (const RowVector& a) const;
@@ -115,9 +116,11 @@
 
   // resize is the destructive equivalent for this one
 
-  Matrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  Matrix extract (octave_idx_type r1, octave_idx_type c1,
+                  octave_idx_type r2, octave_idx_type c2) const;
 
-  Matrix extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const;
+  Matrix extract_n (octave_idx_type r1, octave_idx_type c1,
+                    octave_idx_type nr, octave_idx_type nc) const;
 
   // extract row or column i.
 
@@ -158,7 +161,8 @@
 
   DET determinant (void) const;
   DET determinant (octave_idx_type& info) const;
-  DET determinant (octave_idx_type& info, double& rcon, int calc_cond = 1) const;
+  DET determinant (octave_idx_type& info, double& rcon,
+                   int calc_cond = 1) const;
   DET determinant (MatrixType &mattype, octave_idx_type& info,
                    double& rcon, int calc_cond = 1) const;
 
@@ -169,12 +173,14 @@
   // Upper triangular matrix solvers
   Matrix utsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
                   double& rcon, solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+                  bool calc_cond = false,
+                  blas_trans_type transt = blas_no_trans) const;
 
   // Lower triangular matrix solvers
   Matrix ltsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
                   double& rcon, solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+                  bool calc_cond = false,
+                  blas_trans_type transt = blas_no_trans) const;
 
   // Full matrix solvers (lu/cholesky)
   Matrix fsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
@@ -189,7 +195,8 @@
                 double& rcon) const;
   Matrix solve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
                 double& rcon, solve_singularity_handler sing_handler,
-                bool singular_fallback = true, blas_trans_type transt = blas_no_trans) const;
+                bool singular_fallback = true,
+                blas_trans_type transt = blas_no_trans) const;
 
   ComplexMatrix solve (MatrixType &typ, const ComplexMatrix& b) const;
   ComplexMatrix solve (MatrixType &typ, const ComplexMatrix& b,
@@ -233,24 +240,30 @@
 
   ComplexMatrix solve (const ComplexMatrix& b) const;
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info) const;
-  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon) const;
-  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon,
+  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
+                       double& rcon) const;
+  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
+                       double& rcon,
                        solve_singularity_handler sing_handler,
                        blas_trans_type transt = blas_no_trans) const;
 
   ColumnVector solve (const ColumnVector& b) const;
   ColumnVector solve (const ColumnVector& b, octave_idx_type& info) const;
-  ColumnVector solve (const ColumnVector& b, octave_idx_type& info, double& rcon) const;
-  ColumnVector solve (const ColumnVector& b, octave_idx_type& info, double& rcon,
+  ColumnVector solve (const ColumnVector& b, octave_idx_type& info,
+                      double& rcon) const;
+  ColumnVector solve (const ColumnVector& b, octave_idx_type& info,
+                      double& rcon,
                       solve_singularity_handler sing_handler,
                       blas_trans_type transt = blas_no_trans) const;
 
   ComplexColumnVector solve (const ComplexColumnVector& b) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcon) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcon, solve_singularity_handler sing_handler,
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcon) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcon,
+                             solve_singularity_handler sing_handler,
                              blas_trans_type transt = blas_no_trans) const;
 
   // Singular solvers
@@ -331,7 +344,8 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const Matrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const Matrix& a);
   friend OCTAVE_API std::istream& operator >> (std::istream& is, Matrix& a);
 };
 
@@ -342,13 +356,15 @@
 
 // column vector by row vector -> matrix operations
 
-extern OCTAVE_API Matrix operator * (const ColumnVector& a, const RowVector& b);
+extern OCTAVE_API Matrix operator * (const ColumnVector& a,
+                                     const RowVector& b);
 
 // Other functions.
 
 extern OCTAVE_API Matrix Givens (double, double);
 
-extern OCTAVE_API Matrix Sylvester (const Matrix&, const Matrix&, const Matrix&);
+extern OCTAVE_API Matrix Sylvester (const Matrix&, const Matrix&,
+                                    const Matrix&);
 
 extern OCTAVE_API Matrix xgemm (const Matrix& a, const Matrix& b,
                                 blas_trans_type transa = blas_no_trans,
--- a/liboctave/array/dNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -58,7 +58,7 @@
         for (octave_idx_type i = 0; i < a.numel (); i++)
           {
             double val = static_cast<double>
-              (pa[i] + static_cast<octave_idx_type> (1));
+                         (pa[i] + static_cast<octave_idx_type> (1));
             if (val <= 0)
               ptmp[i] = nan_val;
             else
@@ -79,7 +79,7 @@
       if (zero_based)
         for (octave_idx_type i = 0; i < a.numel (); i++)
           ptmp[i] = static_cast<double>
-            (pa[i] + static_cast<octave_idx_type> (1));
+                    (pa[i] + static_cast<octave_idx_type> (1));
       else
         for (octave_idx_type i = 0; i < a.numel (); i++)
           ptmp[i] = static_cast<double> (pa[i]);
@@ -152,7 +152,7 @@
   // Need to be careful here about the distance between fft's
   for (octave_idx_type k = 0; k < nloop; k++)
     octave_fftw::ifft (out + k * stride * n, out + k * stride * n,
-                      n, howmany, stride, dist);
+                       n, howmany, stride, dist);
 
   return retval;
 }
@@ -334,7 +334,7 @@
 
           for (octave_idx_type i = 0; i < npts; i++)
             retval((i + k*npts)*stride + j*dist) = tmp[i] /
-              static_cast<double> (npts);
+                                                   static_cast<double> (npts);
         }
     }
 
@@ -427,8 +427,8 @@
               F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<double> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<double> (npts);
             }
         }
 
@@ -522,8 +522,8 @@
               F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<double> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<double> (npts);
             }
         }
 
@@ -635,7 +635,7 @@
   return test_any (xtoo_large_for_float);
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 boolNDArray
 NDArray::all (int dim) const
@@ -777,8 +777,7 @@
           octave_idx_type ival = NINTbig (d);
 
           if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
-            // FIXME -- is there something
-            // better we could do? Should we warn the user?
+            // FIXME: is there something better to do? Should we warn the user?
             ival = 0;
 
           retval.elem (i) = static_cast<char>(ival);
@@ -848,7 +847,7 @@
   Matrix retval;
 
   if (ndims () == 2)
-      retval = Matrix (Array<double> (*this));
+    retval = Matrix (Array<double> (*this));
   else
     (*current_liboctave_error_handler)
       ("invalid conversion of NDArray to Matrix");
@@ -907,16 +906,16 @@
     {
       double tmp;
       for (octave_idx_type i = 0; i < nel; i++)
-          {
-            tmp = octave_read_value<double> (is);
-            if (is)
-              a.elem (i) = tmp;
-            else
-              goto done;
-          }
+        {
+          tmp = octave_read_value<double> (is);
+          if (is)
+            a.elem (i) = tmp;
+          else
+            goto done;
+        }
     }
 
- done:
+done:
 
   return is;
 }
--- a/liboctave/array/dNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_NDArray_h)
-#define octave_NDArray_h 1
+#if !defined (octave_dNDArray_h)
+#define octave_dNDArray_h 1
 
 #include "MArray.h"
 #include "dMatrix.h"
@@ -65,14 +65,15 @@
   NDArray (const charNDArray&);
 
   // For jit support only
-  NDArray (double *sdata, octave_idx_type slen, octave_idx_type *adims, void *arep)
+  NDArray (double *sdata, octave_idx_type slen, octave_idx_type *adims,
+           void *arep)
     : MArray<double> (sdata, slen, adims, arep) { }
 
   NDArray& operator = (const NDArray& a)
-    {
-      MArray<double>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<double>::operator = (a);
+    return *this;
+  }
 
   // unary operations
 
@@ -89,7 +90,7 @@
   bool all_integers (void) const;
   bool too_large_for_float (void) const;
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   boolNDArray all (int dim = -1) const;
   boolNDArray any (int dim = -1) const;
@@ -101,8 +102,10 @@
   NDArray xsum (int dim = -1) const;
   NDArray sumsq (int dim = -1) const;
   NDArray concat (const NDArray& rb, const Array<octave_idx_type>& ra_idx);
-  ComplexNDArray concat (const ComplexNDArray& rb, const Array<octave_idx_type>& ra_idx);
-  charNDArray concat (const charNDArray& rb, const Array<octave_idx_type>& ra_idx);
+  ComplexNDArray concat (const ComplexNDArray& rb,
+                         const Array<octave_idx_type>& ra_idx);
+  charNDArray concat (const charNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx);
 
   NDArray max (int dim = -1) const;
   NDArray max (Array<octave_idx_type>& index, int dim = -1) const;
@@ -147,11 +150,12 @@
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const NDArray& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const NDArray& a);
   friend OCTAVE_API std::istream& operator >> (std::istream& is, NDArray& a);
 
   NDArray diag (octave_idx_type k = 0) const;
@@ -159,10 +163,10 @@
   NDArray diag (octave_idx_type m, octave_idx_type n) const;
 
   NDArray& changesign (void)
-    {
-      MArray<double>::changesign ();
-      return *this;
-    }
+  {
+    MArray<double>::changesign ();
+    return *this;
+  }
 
 };
 
--- a/liboctave/array/dRowVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dRowVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_RowVector_h)
-#define octave_RowVector_h 1
+#if !defined (octave_dRowVector_h)
+#define octave_dRowVector_h 1
 
 #include "MArray.h"
 
@@ -50,10 +50,10 @@
   RowVector (const Array<double>& a) : MArray<double> (a.as_row ()) { }
 
   RowVector& operator = (const RowVector& a)
-    {
-      MArray<double>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<double>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const RowVector& a) const;
   bool operator != (const RowVector& a) const;
@@ -89,7 +89,8 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const RowVector& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const RowVector& a);
   friend OCTAVE_API std::istream& operator >> (std::istream& is, RowVector& a);
 
   void resize (octave_idx_type n, const double& rfv = 0)
@@ -98,7 +99,7 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<double>::clear (1, n); }
+  { Array<double>::clear (1, n); }
 
 };
 
@@ -106,7 +107,8 @@
 
 double OCTAVE_API operator * (const RowVector& a, const ColumnVector& b);
 
-Complex OCTAVE_API operator * (const RowVector& a, const ComplexColumnVector& b);
+Complex OCTAVE_API operator * (const RowVector& a,
+                               const ComplexColumnVector& b);
 
 // other operations
 
--- a/liboctave/array/dSparse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dSparse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -195,7 +195,7 @@
 
   for (octave_idx_type i = 0; i < nc + 1; i++)
     if (cidx (i) != a.cidx (i))
-        return false;
+      return false;
 
   for (octave_idx_type i = 0; i < nz; i++)
     if (data (i) != a.data (i) || ridx (i) != a.ridx (i))
@@ -251,7 +251,8 @@
 }
 
 SparseMatrix&
-SparseMatrix::insert (const SparseMatrix& a, octave_idx_type r, octave_idx_type c)
+SparseMatrix::insert (const SparseMatrix& a,
+                      octave_idx_type r, octave_idx_type c)
 {
   MSparse<double>::insert (a, r, c);
   return *this;
@@ -356,16 +357,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr);
 
       for (octave_idx_type i = 0; i < nr; i++)
-        found [i] = 0;
+        found[i] = 0;
 
       for (octave_idx_type j = 0; j < nc; j++)
         for (octave_idx_type i = cidx(j); i < cidx(j+1); i++)
-          if (found [ridx (i)] == -j)
-            found [ridx (i)] = -j - 1;
-      
+          if (found[ridx (i)] == -j)
+            found[ridx (i)] = -j - 1;
+
       for (octave_idx_type i = 0; i < nr; i++)
-        if (found [i] > -nc && found [i] < 0)
-          idx_arg.elem (i) = -found [i];
+        if (found[i] > -nc && found[i] < 0)
+          idx_arg.elem (i) = -found[i];
 
       for (octave_idx_type j = 0; j < nc; j++)
         {
@@ -507,16 +508,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, found, nr);
 
       for (octave_idx_type i = 0; i < nr; i++)
-        found [i] = 0;
+        found[i] = 0;
 
       for (octave_idx_type j = 0; j < nc; j++)
         for (octave_idx_type i = cidx(j); i < cidx(j+1); i++)
-          if (found [ridx (i)] == -j)
-            found [ridx (i)] = -j - 1;
-      
+          if (found[ridx (i)] == -j)
+            found[ridx (i)] = -j - 1;
+
       for (octave_idx_type i = 0; i < nr; i++)
-        if (found [i] > -nc && found [i] < 0)
-          idx_arg.elem (i) = -found [i];
+        if (found[i] > -nc && found[i] < 0)
+          idx_arg.elem (i) = -found[i];
 
       for (octave_idx_type j = 0; j < nc; j++)
         {
@@ -568,16 +569,16 @@
 
 /*
 
-%!assert (max (max (speye (65536))), sparse (1)) 
-%!assert (min (min (speye (65536))), sparse (0)) 
-%!assert (size (max (sparse (8, 0), [], 1)), [1, 0]) 
-%!assert (size (max (sparse (8, 0), [], 2)), [8, 0]) 
-%!assert (size (max (sparse (0, 8), [], 1)), [0, 8]) 
-%!assert (size (max (sparse (0, 8), [], 2)), [0, 1]) 
-%!assert (size (min (sparse (8, 0), [], 1)), [1, 0]) 
-%!assert (size (min (sparse (8, 0), [], 2)), [8, 0]) 
-%!assert (size (min (sparse (0, 8), [], 1)), [0, 8]) 
-%!assert (size (min (sparse (0, 8), [], 2)), [0, 1]) 
+%!assert (max (max (speye (65536))), sparse (1))
+%!assert (min (min (speye (65536))), sparse (0))
+%!assert (size (max (sparse (8, 0), [], 1)), [1, 0])
+%!assert (size (max (sparse (8, 0), [], 2)), [8, 0])
+%!assert (size (max (sparse (0, 8), [], 1)), [0, 8])
+%!assert (size (max (sparse (0, 8), [], 2)), [0, 1])
+%!assert (size (min (sparse (8, 0), [], 1)), [1, 0])
+%!assert (size (min (sparse (8, 0), [], 2)), [8, 0])
+%!assert (size (min (sparse (0, 8), [], 1)), [0, 8])
+%!assert (size (min (sparse (0, 8), [], 2)), [0, 1])
 
 */
 
@@ -613,7 +614,8 @@
 }
 
 SparseMatrix
-SparseMatrix::concat (const SparseMatrix& rb, const Array<octave_idx_type>& ra_idx)
+SparseMatrix::concat (const SparseMatrix& rb,
+                      const Array<octave_idx_type>& ra_idx)
 {
   // Don't use numel to avoid all possiblity of an overflow
   if (rb.rows () > 0 && rb.cols () > 0)
@@ -622,7 +624,8 @@
 }
 
 SparseComplexMatrix
-SparseMatrix::concat (const SparseComplexMatrix& rb, const Array<octave_idx_type>& ra_idx)
+SparseMatrix::concat (const SparseComplexMatrix& rb,
+                      const Array<octave_idx_type>& ra_idx)
 {
   SparseComplexMatrix retval (*this);
   if (rb.rows () > 0 && rb.cols () > 0)
@@ -674,8 +677,8 @@
 
 /*
 
-%!assert(nnz(real(sparse([1i,1]))),1)
-%!assert(nnz(real(sparse([1i,1]))),1)
+%!assert (nnz (real (sparse ([1i,1]))), 1)
+%!assert (nnz (real (sparse ([1i,1]))), 1)
 
 */
 
@@ -1169,7 +1172,7 @@
 
   return retval;
 
- inverse_singular:
+inverse_singular:
   return SparseMatrix ();
 }
 
@@ -1204,7 +1207,7 @@
               double rcond2;
               SparseMatrix Q = fact.Q ();
               SparseMatrix InvL = fact.L ().transpose ().tinverse (tmp_typ,
-                                           info, rcond2, true, false);
+                                  info, rcond2, true, false);
               ret = Q * InvL.transpose () * InvL * Q.transpose ();
             }
           else
@@ -1227,9 +1230,9 @@
           rcond = fact.rcond ();
           double rcond2;
           SparseMatrix InvL = fact.L ().transpose ().tinverse (tmp_typ,
-                                           info, rcond2, true, false);
+                              info, rcond2, true, false);
           SparseMatrix InvU = fact.U ().tinverse (tmp_typ, info, rcond2,
-                                           true, false).transpose ();
+                                                  true, false).transpose ();
           ret = fact.Pc ().transpose () * InvU * InvL * fact.Pr ();
         }
     }
@@ -1305,7 +1308,7 @@
       Matrix Info (1, UMFPACK_INFO);
       double *info = Info.fortran_vec ();
       int status = UMFPACK_DNAME (qsymbolic) (nr, nc, Ap, Ai,
-                                         Ax, 0, &Symbolic, control, info);
+                                              Ax, 0, &Symbolic, control, info);
 
       if (status < 0)
         {
@@ -1315,7 +1318,7 @@
           UMFPACK_DNAME (report_status) (control, status);
           UMFPACK_DNAME (report_info) (control, info);
 
-          UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
+          UMFPACK_DNAME (free_symbolic) (&Symbolic);
         }
       else
         {
@@ -1323,8 +1326,8 @@
 
           void *Numeric;
           status = UMFPACK_DNAME (numeric) (Ap, Ai, Ax, Symbolic,
-                                       &Numeric, control, info) ;
-          UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
+                                            &Numeric, control, info);
+          UMFPACK_DNAME (free_symbolic) (&Symbolic);
 
           rcond = Info (UMFPACK_RCOND);
 
@@ -1344,7 +1347,8 @@
 
               double c10, e10;
 
-              status = UMFPACK_DNAME (get_determinant) (&c10, &e10, Numeric, info);
+              status = UMFPACK_DNAME (get_determinant) (&c10, &e10, Numeric,
+                                                        info);
 
               if (status < 0)
                 {
@@ -1369,7 +1373,8 @@
 }
 
 Matrix
-SparseMatrix::dsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& err,
+SparseMatrix::dsolve (MatrixType &mattype, const Matrix& b,
+                      octave_idx_type& err,
                       double& rcond, solve_singularity_handler,
                       bool calc_cond) const
 {
@@ -1547,8 +1552,8 @@
           retval.resize (nc, b.cols (), 0);
           if (typ == MatrixType::Diagonal)
             for (octave_idx_type j = 0; j < b.cols (); j++)
-                for (octave_idx_type i = 0; i < nm; i++)
-                  retval(i,j) = b(i,j) / data (i);
+              for (octave_idx_type i = 0; i < nm; i++)
+                retval(i,j) = b(i,j) / data (i);
           else
             for (octave_idx_type j = 0; j < b.cols (); j++)
               for (octave_idx_type k = 0; k < nc; k++)
@@ -1580,8 +1585,8 @@
 
 SparseComplexMatrix
 SparseMatrix::dsolve (MatrixType &mattype, const SparseComplexMatrix& b,
-                     octave_idx_type& err, double& rcond,
-                     solve_singularity_handler, bool calc_cond) const
+                      octave_idx_type& err, double& rcond,
+                      solve_singularity_handler, bool calc_cond) const
 {
   SparseComplexMatrix retval;
 
@@ -4000,7 +4005,7 @@
             rcond = 1.;
         }
       else if (typ != MatrixType::Tridiagonal_Hermitian)
-               (*current_liboctave_error_handler) ("incorrect matrix type");
+        (*current_liboctave_error_handler) ("incorrect matrix type");
     }
 
   return retval;
@@ -4560,10 +4565,10 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dpbcon, DPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -4682,12 +4687,12 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dgbcon, DGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -4808,10 +4813,10 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dpbcon, DPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -4877,7 +4882,7 @@
                                 {
                                   // Resize the sparse matrix
                                   octave_idx_type sz = x_nz *
-                                    (b_nc - j) / b_nc;
+                                                       (b_nc - j) / b_nc;
                                   sz = (sz > 10 ? sz : 10) + x_nz;
                                   retval.change_capacity (sz);
                                   x_nz = sz;
@@ -4963,12 +4968,12 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dgbcon, DGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -5128,10 +5133,10 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dpbcon, DPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -5260,8 +5265,8 @@
 
               if (sing_handler)
                 {
-                sing_handler (rcond);
-                mattype.mark_as_rectangular ();
+                  sing_handler (rcond);
+                  mattype.mark_as_rectangular ();
                 }
               else
                 (*current_liboctave_error_handler)
@@ -5279,10 +5284,10 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dpbcon, DPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -5295,8 +5300,8 @@
 
                       if (sing_handler)
                         {
-                        sing_handler (rcond);
-                        mattype.mark_as_rectangular ();
+                          sing_handler (rcond);
+                          mattype.mark_as_rectangular ();
                         }
                       else
                         (*current_liboctave_error_handler)
@@ -5428,10 +5433,10 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dpbcon, DPBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nr, n_lower, tmp_data, ldm,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nr, n_lower, tmp_data, ldm,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
 
                   if (err != 0)
                     err = -2;
@@ -5609,12 +5614,12 @@
                   octave_idx_type *piz = iz.fortran_vec ();
 
                   F77_XFCN (dgbcon, DGBCON,
-                    (F77_CONST_CHAR_ARG2 (&job, 1),
-                     nc, n_lower, n_upper, tmp_data, ldm, pipvt,
-                     anorm, rcond, pz, piz, err
-                     F77_CHAR_ARG_LEN (1)));
-
-                   if (err != 0)
+                            (F77_CONST_CHAR_ARG2 (&job, 1),
+                             nc, n_lower, n_upper, tmp_data, ldm, pipvt,
+                             anorm, rcond, pz, piz, err
+                             F77_CHAR_ARG_LEN (1)));
+
+                  if (err != 0)
                     err = -2;
 
                   volatile double rcond_plus_one = rcond + 1.0;
@@ -5756,7 +5761,7 @@
   Info = Matrix (1, UMFPACK_INFO);
   double *info = Info.fortran_vec ();
   int status = UMFPACK_DNAME (qsymbolic) (nr, nc, Ap, Ai, Ax, 0,
-                                     &Symbolic, control, info);
+                                          &Symbolic, control, info);
 
   if (status < 0)
     {
@@ -5767,15 +5772,15 @@
       UMFPACK_DNAME (report_status) (control, status);
       UMFPACK_DNAME (report_info) (control, info);
 
-      UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
+      UMFPACK_DNAME (free_symbolic) (&Symbolic);
     }
   else
     {
       UMFPACK_DNAME (report_symbolic) (Symbolic, control);
 
       status = UMFPACK_DNAME (numeric) (Ap, Ai, Ax, Symbolic,
-                                   &Numeric, control, info) ;
-      UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
+                                        &Numeric, control, info);
+      UMFPACK_DNAME (free_symbolic) (&Symbolic);
 
       if (calc_cond)
         rcond = Info (UMFPACK_RCOND);
@@ -5799,19 +5804,19 @@
 
         }
       else if (status < 0)
-          {
-            (*current_liboctave_error_handler)
-              ("SparseMatrix::solve numeric factorization failed");
-
-            UMFPACK_DNAME (report_status) (control, status);
-            UMFPACK_DNAME (report_info) (control, info);
-
-            err = -1;
-          }
-        else
-          {
-            UMFPACK_DNAME (report_numeric) (Numeric, control);
-          }
+        {
+          (*current_liboctave_error_handler)
+            ("SparseMatrix::solve numeric factorization failed");
+
+          UMFPACK_DNAME (report_status) (control, status);
+          UMFPACK_DNAME (report_info) (control, info);
+
+          err = -1;
+        }
+      else
+        {
+          UMFPACK_DNAME (report_numeric) (Numeric, control);
+        }
     }
 
   if (err != 0)
@@ -6007,8 +6012,9 @@
               for (octave_idx_type j = 0, iidx = 0; j < b_nc; j++, iidx += b_nr)
                 {
                   status = UMFPACK_DNAME (solve) (UMFPACK_A, Ap,
-                                             Ai, Ax, &result[iidx], &Bx[iidx],
-                                             Numeric, control, info);
+                                                  Ai, Ax, &result[iidx],
+                                                  &Bx[iidx], Numeric, control,
+                                                  info);
                   if (status < 0)
                     {
                       (*current_liboctave_error_handler)
@@ -6248,8 +6254,8 @@
                     Bx[i] = b.elem (i, j);
 
                   status = UMFPACK_DNAME (solve) (UMFPACK_A, Ap,
-                                             Ai, Ax, Xx, Bx, Numeric, control,
-                                             info);
+                                                  Ai, Ax, Xx, Bx, Numeric,
+                                                  control, info);
                   if (status < 0)
                     {
                       (*current_liboctave_error_handler)
@@ -6496,11 +6502,11 @@
                     }
 
                   status = UMFPACK_DNAME (solve) (UMFPACK_A, Ap,
-                                             Ai, Ax, Xx, Bx, Numeric, control,
-                                             info);
+                                                  Ai, Ax, Xx, Bx, Numeric,
+                                                  control, info);
                   int status2 = UMFPACK_DNAME (solve) (UMFPACK_A,
-                                                  Ap, Ai, Ax, Xz, Bz, Numeric,
-                                                  control, info) ;
+                                                       Ap, Ai, Ax, Xz, Bz,
+                                                       Numeric, control, info);
 
                   if (status < 0 || status2 < 0)
                     {
@@ -6680,9 +6686,9 @@
               END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
 
               retval = SparseComplexMatrix
-                (static_cast<octave_idx_type>(X->nrow),
-                 static_cast<octave_idx_type>(X->ncol),
-                 static_cast<octave_idx_type>(X->nzmax));
+                       (static_cast<octave_idx_type>(X->nrow),
+                        static_cast<octave_idx_type>(X->ncol),
+                        static_cast<octave_idx_type>(X->nzmax));
               for (octave_idx_type j = 0;
                    j <= static_cast<octave_idx_type>(X->ncol); j++)
                 retval.xcidx (j) = static_cast<octave_idx_type *>(X->p)[j];
@@ -6751,11 +6757,11 @@
                     }
 
                   status = UMFPACK_DNAME (solve) (UMFPACK_A, Ap,
-                                             Ai, Ax, Xx, Bx, Numeric, control,
-                                             info);
+                                                  Ai, Ax, Xx, Bx, Numeric,
+                                                  control, info);
                   int status2 = UMFPACK_DNAME (solve) (UMFPACK_A,
-                                                  Ap, Ai, Ax, Xz, Bz, Numeric,
-                                                  control, info) ;
+                                                       Ap, Ai, Ax, Xz, Bz,
+                                                       Numeric, control, info);
 
                   if (status < 0 || status2 < 0)
                     {
@@ -6825,8 +6831,8 @@
 }
 
 Matrix
-SparseMatrix::solve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
-                     double& rcond) const
+SparseMatrix::solve (MatrixType &mattype, const Matrix& b,
+                     octave_idx_type& info, double& rcond) const
 {
   return solve (mattype, b, info, rcond, 0);
 }
@@ -6936,8 +6942,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<SparseMatrix, SparseMatrix,
-        SparseMatrix> (*this, b, err);
+      retval = dmsolve<SparseMatrix, SparseMatrix, SparseMatrix>
+               (*this, b, err);
 #endif
     }
 
@@ -6954,7 +6960,7 @@
 
 ComplexMatrix
 SparseMatrix::solve (MatrixType &mattype, const ComplexMatrix& b,
-                            octave_idx_type& info) const
+                     octave_idx_type& info) const
 {
   double rcond;
   return solve (mattype, b, info, rcond, 0);
@@ -7004,8 +7010,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<ComplexMatrix, SparseMatrix,
-        ComplexMatrix> (*this, b, err);
+      retval = dmsolve<ComplexMatrix, SparseMatrix, ComplexMatrix>
+               (*this, b, err);
 #endif
     }
 
@@ -7072,8 +7078,8 @@
 #ifdef USE_QRSOLVE
       retval = qrsolve (*this, b, err);
 #else
-      retval = dmsolve<SparseComplexMatrix, SparseMatrix,
-        SparseComplexMatrix> (*this, b, err);
+      retval = dmsolve<SparseComplexMatrix, SparseMatrix, SparseComplexMatrix>
+               (*this, b, err);
 #endif
     }
 
@@ -7088,24 +7094,28 @@
 }
 
 ColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b, octave_idx_type& info) const
+SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b,
+                     octave_idx_type& info) const
 {
   double rcond;
   return solve (mattype, b, info, rcond);
 }
 
 ColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b, octave_idx_type& info, double& rcond) const
+SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b,
+                     octave_idx_type& info, double& rcond) const
 {
   return solve (mattype, b, info, rcond, 0);
 }
 
 ColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b, octave_idx_type& info, double& rcond,
-               solve_singularity_handler sing_handler) const
+SparseMatrix::solve (MatrixType &mattype, const ColumnVector& b,
+                     octave_idx_type& info, double& rcond,
+                     solve_singularity_handler sing_handler) const
 {
   Matrix tmp (b);
-  return solve (mattype, tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (mattype, tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 ComplexColumnVector
@@ -7117,25 +7127,29 @@
 }
 
 ComplexColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b, octave_idx_type& info) const
+SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b,
+                     octave_idx_type& info) const
 {
   double rcond;
   return solve (mattype, b, info, rcond, 0);
 }
 
 ComplexColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b, octave_idx_type& info,
+SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b,
+                     octave_idx_type& info,
                      double& rcond) const
 {
   return solve (mattype, b, info, rcond, 0);
 }
 
 ComplexColumnVector
-SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b, octave_idx_type& info, double& rcond,
-               solve_singularity_handler sing_handler) const
+SparseMatrix::solve (MatrixType &mattype, const ComplexColumnVector& b,
+                     octave_idx_type& info, double& rcond,
+                     solve_singularity_handler sing_handler) const
 {
   ComplexMatrix tmp (b);
-  return solve (mattype, tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (mattype, tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 Matrix
@@ -7161,8 +7175,7 @@
 }
 
 Matrix
-SparseMatrix::solve (const Matrix& b, octave_idx_type& err,
-                     double& rcond,
+SparseMatrix::solve (const Matrix& b, octave_idx_type& err, double& rcond,
                      solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
@@ -7193,8 +7206,7 @@
 }
 
 SparseMatrix
-SparseMatrix::solve (const SparseMatrix& b,
-                     octave_idx_type& err, double& rcond,
+SparseMatrix::solve (const SparseMatrix& b, octave_idx_type& err, double& rcond,
                      solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
@@ -7202,23 +7214,22 @@
 }
 
 ComplexMatrix
-SparseMatrix::solve (const ComplexMatrix& b,
-                            octave_idx_type& info) const
+SparseMatrix::solve (const ComplexMatrix& b, octave_idx_type& info) const
 {
   double rcond;
   return solve (b, info, rcond, 0);
 }
 
 ComplexMatrix
-SparseMatrix::solve (const ComplexMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+SparseMatrix::solve (const ComplexMatrix& b, octave_idx_type& info,
+                     double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
 
 ComplexMatrix
-SparseMatrix::solve (const ComplexMatrix& b,
-                     octave_idx_type& err, double& rcond,
+SparseMatrix::solve (const ComplexMatrix& b, octave_idx_type& err,
+                     double& rcond,
                      solve_singularity_handler sing_handler) const
 {
   MatrixType mattype (*this);
@@ -7234,16 +7245,15 @@
 }
 
 SparseComplexMatrix
-SparseMatrix::solve (const SparseComplexMatrix& b,
-                     octave_idx_type& info) const
+SparseMatrix::solve (const SparseComplexMatrix& b, octave_idx_type& info) const
 {
   double rcond;
   return solve (b, info, rcond, 0);
 }
 
 SparseComplexMatrix
-SparseMatrix::solve (const SparseComplexMatrix& b,
-                     octave_idx_type& info, double& rcond) const
+SparseMatrix::solve (const SparseComplexMatrix& b, octave_idx_type& info,
+                     double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
@@ -7272,17 +7282,20 @@
 }
 
 ColumnVector
-SparseMatrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcond) const
+SparseMatrix::solve (const ColumnVector& b, octave_idx_type& info,
+                     double& rcond) const
 {
   return solve (b, info, rcond, 0);
 }
 
 ColumnVector
-SparseMatrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcond,
-               solve_singularity_handler sing_handler) const
+SparseMatrix::solve (const ColumnVector& b, octave_idx_type& info,
+                     double& rcond,
+                     solve_singularity_handler sing_handler) const
 {
   Matrix tmp (b);
-  return solve (tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
+  return solve (tmp, info, rcond,
+                sing_handler).column (static_cast<octave_idx_type> (0));
 }
 
 ComplexColumnVector
@@ -7308,8 +7321,9 @@
 }
 
 ComplexColumnVector
-SparseMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info, double& rcond,
-               solve_singularity_handler sing_handler) const
+SparseMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
+                     double& rcond,
+                     solve_singularity_handler sing_handler) const
 {
   ComplexMatrix tmp (b);
   return solve (tmp, info, rcond, sing_handler).column (static_cast<octave_idx_type> (0));
@@ -7483,8 +7497,7 @@
   return r;
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 SparseBoolMatrix
 SparseMatrix::all (int dim) const
@@ -7576,18 +7589,18 @@
 {
   octave_idx_type nc = a.cols ();
 
-   // add one to the printed indices to go from
-   //  zero-based to one-based arrays
-   for (octave_idx_type j = 0; j < nc; j++)
-     {
-       octave_quit ();
-       for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
-         {
-           os << a.ridx (i) + 1 << " "  << j + 1 << " ";
-           octave_write_double (os, a.data (i));
-           os << "\n";
-         }
-     }
+  // add one to the printed indices to go from
+  //  zero-based to one-based arrays
+  for (octave_idx_type j = 0; j < nc; j++)
+    {
+      octave_quit ();
+      for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++)
+        {
+          os << a.ridx (i) + 1 << " "  << j + 1 << " ";
+          octave_write_double (os, a.data (i));
+          os << "\n";
+        }
+    }
 
   return os;
 }
@@ -7708,8 +7721,7 @@
   return octinternal_do_mul_sm_pm (a, p);
 }
 
-// FIXME -- it would be nice to share code among the min/max
-// functions below.
+// FIXME: it would be nice to share code among the min/max functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
--- a/liboctave/array/dSparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dSparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -45,13 +45,14 @@
 OCTAVE_API
 SparseMatrix : public MSparse<double>
 {
- public:
+public:
 
   typedef void (*solve_singularity_handler) (double rcond);
 
   SparseMatrix (void) : MSparse<double> () { }
 
-  SparseMatrix (octave_idx_type r, octave_idx_type c) : MSparse<double> (r, c) { }
+  SparseMatrix (octave_idx_type r, octave_idx_type c)
+    : MSparse<double> (r, c) { }
 
   SparseMatrix (const dim_vector& dv, octave_idx_type nz = 0) :
     MSparse<double> (dv, nz) { }
@@ -84,13 +85,14 @@
 
   explicit SparseMatrix (const PermMatrix& a) : MSparse<double>(a) { }
 
-  SparseMatrix (octave_idx_type r, octave_idx_type c, octave_idx_type num_nz) : MSparse<double> (r, c, num_nz) { }
+  SparseMatrix (octave_idx_type r, octave_idx_type c,
+                octave_idx_type num_nz) : MSparse<double> (r, c, num_nz) { }
 
   SparseMatrix& operator = (const SparseMatrix& a)
-    {
-      MSparse<double>::operator = (a);
-      return *this;
-    }
+  {
+    MSparse<double>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const SparseMatrix& a) const;
   bool operator != (const SparseMatrix& a) const;
@@ -104,11 +106,14 @@
 
   // destructive insert/delete/reorder operations
 
-  SparseMatrix& insert (const SparseMatrix& a, octave_idx_type r, octave_idx_type c);
+  SparseMatrix& insert (const SparseMatrix& a, octave_idx_type r,
+                        octave_idx_type c);
 
-  SparseMatrix& insert (const SparseMatrix& a, const Array<octave_idx_type>& indx);
+  SparseMatrix& insert (const SparseMatrix& a,
+                        const Array<octave_idx_type>& indx);
 
-  SparseMatrix concat (const SparseMatrix& rb, const Array<octave_idx_type>& ra_idx);
+  SparseMatrix concat (const SparseMatrix& rb,
+                       const Array<octave_idx_type>& ra_idx);
   SparseComplexMatrix concat (const SparseComplexMatrix& rb,
                               const Array<octave_idx_type>& ra_idx);
 
@@ -117,12 +122,13 @@
 
   friend OCTAVE_API SparseMatrix atan2 (const double& x, const SparseMatrix& y);
   friend OCTAVE_API SparseMatrix atan2 (const SparseMatrix& x, const double& y);
-  friend OCTAVE_API SparseMatrix atan2 (const SparseMatrix& x, const SparseMatrix& y);
+  friend OCTAVE_API SparseMatrix atan2 (const SparseMatrix& x,
+                                        const SparseMatrix& y);
 
   SparseMatrix transpose (void) const
-    {
-      return MSparse<double>::transpose ();
-    }
+  {
+    return MSparse<double>::transpose ();
+  }
   SparseMatrix hermitian (void) const { return transpose (); }
 
   // extract row or column i.
@@ -149,108 +155,109 @@
 
   DET determinant (void) const;
   DET determinant (octave_idx_type& info) const;
-  DET determinant (octave_idx_type& info, double& rcond, int calc_cond = 1) const;
+  DET determinant (octave_idx_type& info, double& rcond,
+                   int calc_cond = 1) const;
 
 private:
   // Diagonal matrix solvers
   Matrix dsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                 double& rcond, solve_singularity_handler sing_handler,
+                 bool calc_cond = false) const;
 
   ComplexMatrix dsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseMatrix dsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                       octave_idx_type& info, double& rcond,
+                       solve_singularity_handler sing_handler,
+                       bool calc_cond = false) const;
 
   SparseComplexMatrix dsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   // Upper triangular matrix solvers
   Matrix utsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                  double& rcond, solve_singularity_handler sing_handler,
+                  bool calc_cond = false) const;
 
   ComplexMatrix utsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   SparseMatrix utsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseComplexMatrix utsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   // Lower triangular matrix solvers
   Matrix ltsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                  double& rcond, solve_singularity_handler sing_handler,
+                  bool calc_cond = false) const;
 
   ComplexMatrix ltsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   SparseMatrix ltsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseComplexMatrix ltsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                               octave_idx_type& info, double& rcond,
+                               solve_singularity_handler sing_handler,
+                               bool calc_cond = false) const;
 
   // Tridiagonal matrix solvers
   Matrix trisolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                   double& rcond, solve_singularity_handler sing_handler,
+                   bool calc_cond = false) const;
 
   ComplexMatrix trisolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                          octave_idx_type& info, double& rcond,
+                          solve_singularity_handler sing_handler,
+                          bool calc_cond = false) const;
 
   SparseMatrix trisolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                         octave_idx_type& info, double& rcond,
+                         solve_singularity_handler sing_handler,
+                         bool calc_cond = false) const;
 
   SparseComplexMatrix trisolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                                octave_idx_type& info, double& rcond,
+                                solve_singularity_handler sing_handler,
+                                bool calc_cond = false) const;
 
   // Banded matrix solvers (umfpack/cholesky)
   Matrix bsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                 double& rcond, solve_singularity_handler sing_handler,
+                 bool calc_cond = false) const;
 
   ComplexMatrix bsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseMatrix bsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                       octave_idx_type& info, double& rcond,
+                       solve_singularity_handler sing_handler,
+                       bool calc_cond = false) const;
 
   SparseComplexMatrix bsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
   // Full matrix solvers (umfpack/cholesky)
   void * factorize (octave_idx_type& err, double &rcond, Matrix &Control,
@@ -258,23 +265,23 @@
                     bool calc_cond = false) const;
 
   Matrix fsolve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
-                double& rcond, solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                 double& rcond, solve_singularity_handler sing_handler,
+                 bool calc_cond = false) const;
 
   ComplexMatrix fsolve (MatrixType &typ, const ComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                        octave_idx_type& info, double& rcond,
+                        solve_singularity_handler sing_handler,
+                        bool calc_cond = false) const;
 
   SparseMatrix fsolve (MatrixType &typ, const SparseMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                       octave_idx_type& info, double& rcond,
+                       solve_singularity_handler sing_handler,
+                       bool calc_cond = false) const;
 
   SparseComplexMatrix fsolve (MatrixType &typ, const SparseComplexMatrix& b,
-                octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler,
-                bool calc_cond = false) const;
+                              octave_idx_type& info, double& rcond,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false) const;
 
 public:
   // Generic interface to solver with no probing of type
@@ -347,36 +354,42 @@
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info) const;
   ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
                        double& rcond) const;
-  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info, double& rcond,
+  ComplexMatrix solve (const ComplexMatrix& b, octave_idx_type& info,
+                       double& rcond,
                        solve_singularity_handler sing_handler) const;
 
   SparseMatrix solve (const SparseMatrix& b) const;
   SparseMatrix solve (const SparseMatrix& b, octave_idx_type& info) const;
   SparseMatrix solve (const SparseMatrix& b, octave_idx_type& info,
                       double& rcond) const;
-  SparseMatrix solve (const SparseMatrix& b, octave_idx_type& info, double& rcond,
-                solve_singularity_handler sing_handler) const;
+  SparseMatrix solve (const SparseMatrix& b, octave_idx_type& info,
+                      double& rcond,
+                      solve_singularity_handler sing_handler) const;
 
   SparseComplexMatrix solve (const SparseComplexMatrix& b) const;
-  SparseComplexMatrix solve (const SparseComplexMatrix& b, octave_idx_type& info) const;
-  SparseComplexMatrix solve (const SparseComplexMatrix& b, octave_idx_type& info,
-                             double& rcond) const;
-  SparseComplexMatrix solve (const SparseComplexMatrix& b, octave_idx_type& info,
-                             double& rcond,
+  SparseComplexMatrix solve (const SparseComplexMatrix& b,
+                             octave_idx_type& info) const;
+  SparseComplexMatrix solve (const SparseComplexMatrix& b,
+                             octave_idx_type& info, double& rcond) const;
+  SparseComplexMatrix solve (const SparseComplexMatrix& b,
+                             octave_idx_type& info, double& rcond,
                              solve_singularity_handler sing_handler) const;
 
   ColumnVector solve (const ColumnVector& b) const;
   ColumnVector solve (const ColumnVector& b, octave_idx_type& info) const;
-  ColumnVector solve (const ColumnVector& b, octave_idx_type& info, double& rcond) const;
-  ColumnVector solve (const ColumnVector& b, octave_idx_type& info, double& rcond,
+  ColumnVector solve (const ColumnVector& b, octave_idx_type& info,
+                      double& rcond) const;
+  ColumnVector solve (const ColumnVector& b, octave_idx_type& info,
+                      double& rcond,
                       solve_singularity_handler sing_handler) const;
 
   ComplexColumnVector solve (const ComplexColumnVector& b) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcond) const;
-  ComplexColumnVector solve (const ComplexColumnVector& b, octave_idx_type& info,
-                             double& rcond,
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcond) const;
+  ComplexColumnVector solve (const ComplexColumnVector& b,
+                             octave_idx_type& info, double& rcond,
                              solve_singularity_handler sing_handler) const;
 
   // other operations
@@ -410,14 +423,17 @@
 
   SparseMatrix reshape (const dim_vector& new_dims) const;
 
-  SparseMatrix permute (const Array<octave_idx_type>& vec, bool inv = false) const;
+  SparseMatrix permute (const Array<octave_idx_type>& vec,
+                        bool inv = false) const;
 
   SparseMatrix ipermute (const Array<octave_idx_type>& vec) const;
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const SparseMatrix& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, SparseMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const SparseMatrix& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               SparseMatrix& a);
 
 };
 
@@ -429,34 +445,44 @@
 // Other operators.
 
 extern OCTAVE_API SparseMatrix operator * (const SparseMatrix& a,
-                                const SparseMatrix& b);
+                                           const SparseMatrix& b);
 extern OCTAVE_API Matrix operator * (const Matrix& a,
-                                const SparseMatrix& b);
+                                     const SparseMatrix& b);
 extern OCTAVE_API Matrix mul_trans (const Matrix& a,
-                                const SparseMatrix& b);
+                                    const SparseMatrix& b);
 extern OCTAVE_API Matrix operator * (const SparseMatrix& a,
-                                const Matrix& b);
+                                     const Matrix& b);
 extern OCTAVE_API Matrix trans_mul (const SparseMatrix& a,
-                                const Matrix& b);
+                                    const Matrix& b);
 
-extern OCTAVE_API SparseMatrix operator * (const DiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseMatrix operator * (const SparseMatrix&, const DiagMatrix&);
+extern OCTAVE_API SparseMatrix operator * (const DiagMatrix&,
+                                           const SparseMatrix&);
+extern OCTAVE_API SparseMatrix operator * (const SparseMatrix&,
+                                           const DiagMatrix&);
 
-extern OCTAVE_API SparseMatrix operator + (const DiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseMatrix operator + (const SparseMatrix&, const DiagMatrix&);
-extern OCTAVE_API SparseMatrix operator - (const DiagMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseMatrix operator - (const SparseMatrix&, const DiagMatrix&);
+extern OCTAVE_API SparseMatrix operator + (const DiagMatrix&,
+                                           const SparseMatrix&);
+extern OCTAVE_API SparseMatrix operator + (const SparseMatrix&,
+                                           const DiagMatrix&);
+extern OCTAVE_API SparseMatrix operator - (const DiagMatrix&,
+                                           const SparseMatrix&);
+extern OCTAVE_API SparseMatrix operator - (const SparseMatrix&,
+                                           const DiagMatrix&);
 
-extern OCTAVE_API SparseMatrix operator * (const PermMatrix&, const SparseMatrix&);
-extern OCTAVE_API SparseMatrix operator * (const SparseMatrix&, const PermMatrix&);
+extern OCTAVE_API SparseMatrix operator * (const PermMatrix&,
+                                           const SparseMatrix&);
+extern OCTAVE_API SparseMatrix operator * (const SparseMatrix&,
+                                           const PermMatrix&);
 
 extern OCTAVE_API SparseMatrix min (double d, const SparseMatrix& m);
 extern OCTAVE_API SparseMatrix min (const SparseMatrix& m, double d);
-extern OCTAVE_API SparseMatrix min (const SparseMatrix& a, const SparseMatrix& b);
+extern OCTAVE_API SparseMatrix min (const SparseMatrix& a,
+                                    const SparseMatrix& b);
 
 extern OCTAVE_API SparseMatrix max (double d, const SparseMatrix& m);
 extern OCTAVE_API SparseMatrix max (const SparseMatrix& m, double d);
-extern OCTAVE_API SparseMatrix max (const SparseMatrix& a, const SparseMatrix& b);
+extern OCTAVE_API SparseMatrix max (const SparseMatrix& a,
+                                    const SparseMatrix& b);
 
 SPARSE_SMS_CMP_OP_DECLS (SparseMatrix, double, OCTAVE_API)
 SPARSE_SMS_BOOL_OP_DECLS (SparseMatrix, double, OCTAVE_API)
--- a/liboctave/array/dim-vector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dim-vector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -29,10 +29,10 @@
 
 #include "dim-vector.h"
 
-// The maximum allowed value for a dimension extent. This will normally be a tiny bit
-// off the maximum value of octave_idx_type.
-// Currently 1 is subtracted to allow safe conversion of any 2D Array into Sparse,
-// but this offset may change in the future.
+// The maximum allowed value for a dimension extent. This will normally be a
+// tiny bit off the maximum value of octave_idx_type.
+// Currently 1 is subtracted to allow safe conversion of any 2D Array into
+// Sparse, but this offset may change in the future.
 octave_idx_type
 dim_vector::dim_max (void)
 {
--- a/liboctave/array/dim-vector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/dim-vector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -221,10 +221,10 @@
 private:
 
   static octave_idx_type *nil_rep (void)
-    {
-      static dim_vector zv (0, 0);
-      return zv.rep;
-    }
+  {
+    static dim_vector zv (0, 0);
+    return zv.rep;
+  }
 
 public:
 
@@ -237,8 +237,7 @@
   { OCTREFCOUNT_ATOMIC_INCREMENT (&(count())); }
 
   // FIXME: Should be private, but required by array constructor for jit
-  explicit dim_vector (octave_idx_type *r)
-    : rep (r) { }
+  explicit dim_vector (octave_idx_type *r) : rep (r) { }
 
   static dim_vector alloc (int n)
   {
@@ -393,102 +392,102 @@
   dim_vector redim (int n) const;
 
   dim_vector as_column (void) const
-    {
-      if (length () == 2 && elem (1) == 1)
-        return *this;
-      else
-        return dim_vector (numel (), 1);
-    }
+  {
+    if (length () == 2 && elem (1) == 1)
+      return *this;
+    else
+      return dim_vector (numel (), 1);
+  }
 
   dim_vector as_row (void) const
-    {
-      if (length () == 2 && elem (0) == 1)
-        return *this;
-      else
-        return dim_vector (1, numel ());
-    }
+  {
+    if (length () == 2 && elem (0) == 1)
+      return *this;
+    else
+      return dim_vector (1, numel ());
+  }
 
   bool is_vector (void) const
-    {
-      return (length () == 2 && (elem (0) == 1 || elem (1) == 1));
-    }
+  {
+    return (length () == 2 && (elem (0) == 1 || elem (1) == 1));
+  }
 
   int first_non_singleton (int def = 0) const
-    {
-      for (int i = 0; i < length (); i++)
-        {
-          if (elem (i) != 1)
-            return i;
-        }
+  {
+    for (int i = 0; i < length (); i++)
+      {
+        if (elem (i) != 1)
+          return i;
+      }
 
-      return def;
-    }
+    return def;
+  }
 
   // Compute a linear index from an index tuple.
 
   octave_idx_type compute_index (const octave_idx_type *idx) const
-    {
-      octave_idx_type k = 0;
-      for (int i = length () - 1; i >= 0; i--)
-        k = k * rep[i] + idx[i];
+  {
+    octave_idx_type k = 0;
+    for (int i = length () - 1; i >= 0; i--)
+      k = k * rep[i] + idx[i];
 
-      return k;
-    }
+    return k;
+  }
 
   // Ditto, but the tuple may be incomplete (nidx < length ()).
 
   octave_idx_type compute_index (const octave_idx_type *idx, int nidx) const
-    {
-      octave_idx_type k = 0;
-      for (int i = nidx - 1; i >= 0; i--)
-        k = k * rep[i] + idx[i];
+  {
+    octave_idx_type k = 0;
+    for (int i = nidx - 1; i >= 0; i--)
+      k = k * rep[i] + idx[i];
 
-      return k;
-    }
+    return k;
+  }
 
   // Increment a multi-dimensional index tuple, optionally starting
   // from an offset position and return the index of the last index
   // position that was changed, or length () if just cycled over.
 
   int increment_index (octave_idx_type *idx, int start = 0) const
-    {
-      int i;
-      for (i = start; i < length (); i++)
-        {
-          if (++(*idx) == rep[i])
-            *idx++ = 0;
-          else
-            break;
-        }
-      return i;
-    }
+  {
+    int i;
+    for (i = start; i < length (); i++)
+      {
+        if (++(*idx) == rep[i])
+          *idx++ = 0;
+        else
+          break;
+      }
+    return i;
+  }
 
   // Return cumulative dimensions.
 
   dim_vector cumulative (void) const
-    {
-      int nd = length ();
-      dim_vector retval = alloc (nd);
+  {
+    int nd = length ();
+    dim_vector retval = alloc (nd);
 
-      octave_idx_type k = 1;
-      for (int i = 0; i < nd; i++)
-        retval.rep[i] = k *= rep[i];
+    octave_idx_type k = 1;
+    for (int i = 0; i < nd; i++)
+      retval.rep[i] = k *= rep[i];
 
-      return retval;
-    }
+    return retval;
+  }
 
   // Compute a linear index from an index tuple.  Dimensions are
   // required to be cumulative.
 
   octave_idx_type cum_compute_index (const octave_idx_type *idx) const
-    {
-      octave_idx_type k = idx[0];
+  {
+    octave_idx_type k = idx[0];
 
-      for (int i = 1; i < length (); i++)
-        k += rep[i-1] * idx[i];
+    for (int i = 1; i < length (); i++)
+      k += rep[i-1] * idx[i];
 
-      return k;
-    }
+    return k;
+  }
 
 
   friend bool operator == (const dim_vector& a, const dim_vector& b);
--- a/liboctave/array/fCColVector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCColVector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,7 +53,7 @@
 // FloatComplex Column Vector class
 
 FloatComplexColumnVector::FloatComplexColumnVector (const FloatColumnVector& a)
-   : MArray<FloatComplex> (a)
+  : MArray<FloatComplex> (a)
 {
 }
 
@@ -97,7 +97,8 @@
 }
 
 FloatComplexColumnVector&
-FloatComplexColumnVector::insert (const FloatComplexColumnVector& a, octave_idx_type r)
+FloatComplexColumnVector::insert (const FloatComplexColumnVector& a,
+                                  octave_idx_type r)
 {
   octave_idx_type a_len = a.length ();
 
@@ -152,7 +153,8 @@
 }
 
 FloatComplexColumnVector&
-FloatComplexColumnVector::fill (float val, octave_idx_type r1, octave_idx_type r2)
+FloatComplexColumnVector::fill (float val,
+                                octave_idx_type r1, octave_idx_type r2)
 {
   octave_idx_type len = length ();
 
@@ -176,7 +178,8 @@
 }
 
 FloatComplexColumnVector&
-FloatComplexColumnVector::fill (const FloatComplex& val, octave_idx_type r1, octave_idx_type r2)
+FloatComplexColumnVector::fill (const FloatComplex& val,
+                                octave_idx_type r1, octave_idx_type r2)
 {
   octave_idx_type len = length ();
 
@@ -263,7 +266,8 @@
 }
 
 FloatComplexColumnVector
-FloatComplexColumnVector::extract_n (octave_idx_type r1, octave_idx_type n) const
+FloatComplexColumnVector::extract_n (octave_idx_type r1,
+                                     octave_idx_type n) const
 {
   FloatComplexColumnVector result (n);
 
@@ -291,7 +295,7 @@
   if (len == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_add2 (len, d, a.data ());
   return *this;
@@ -313,7 +317,7 @@
   if (len == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_sub2 (len, d, a.data ());
   return *this;
--- a/liboctave/array/fCColVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCColVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatComplexColumnVector_h)
-#define octave_FloatComplexColumnVector_h 1
+#if !defined (octave_fCColVector_h)
+#define octave_fCColVector_h 1
 
 #include "MArray.h"
 
@@ -32,13 +32,13 @@
 OCTAVE_API
 FloatComplexColumnVector : public MArray<FloatComplex>
 {
-friend class FloatComplexMatrix;
-friend class FloatComplexRowVector;
+  friend class FloatComplexMatrix;
+  friend class FloatComplexRowVector;
 
 public:
 
- FloatComplexColumnVector (void)
-   : MArray<FloatComplex> (dim_vector (0, 1)) { }
+  FloatComplexColumnVector (void)
+    : MArray<FloatComplex> (dim_vector (0, 1)) { }
 
   explicit FloatComplexColumnVector (octave_idx_type n)
     : MArray<FloatComplex> (dim_vector (n, 1)) { }
@@ -61,23 +61,27 @@
   explicit FloatComplexColumnVector (const FloatColumnVector& a);
 
   FloatComplexColumnVector& operator = (const FloatComplexColumnVector& a)
-    {
-      MArray<FloatComplex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<FloatComplex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatComplexColumnVector& a) const;
   bool operator != (const FloatComplexColumnVector& a) const;
 
   // destructive insert/delete/reorder operations
 
-  FloatComplexColumnVector& insert (const FloatColumnVector& a, octave_idx_type r);
-  FloatComplexColumnVector& insert (const FloatComplexColumnVector& a, octave_idx_type r);
+  FloatComplexColumnVector& insert (const FloatColumnVector& a,
+                                    octave_idx_type r);
+  FloatComplexColumnVector& insert (const FloatComplexColumnVector& a,
+                                    octave_idx_type r);
 
   FloatComplexColumnVector& fill (float val);
   FloatComplexColumnVector& fill (const FloatComplex& val);
-  FloatComplexColumnVector& fill (float val, octave_idx_type r1, octave_idx_type r2);
-  FloatComplexColumnVector& fill (const FloatComplex& val, octave_idx_type r1, octave_idx_type r2);
+  FloatComplexColumnVector& fill (float val,
+                                  octave_idx_type r1, octave_idx_type r2);
+  FloatComplexColumnVector& fill (const FloatComplex& val,
+                                  octave_idx_type r1, octave_idx_type r2);
 
   FloatComplexColumnVector stack (const FloatColumnVector& a) const;
   FloatComplexColumnVector stack (const FloatComplexColumnVector& a) const;
@@ -85,13 +89,16 @@
   FloatComplexRowVector hermitian (void) const;
   FloatComplexRowVector transpose (void) const;
 
-  friend OCTAVE_API FloatComplexColumnVector conj (const FloatComplexColumnVector& a);
+  friend OCTAVE_API FloatComplexColumnVector
+  conj (const FloatComplexColumnVector& a);
 
   // resize is the destructive equivalent for this one
 
-  FloatComplexColumnVector extract (octave_idx_type r1, octave_idx_type r2) const;
+  FloatComplexColumnVector extract (octave_idx_type r1,
+                                    octave_idx_type r2) const;
 
-  FloatComplexColumnVector extract_n (octave_idx_type r1, octave_idx_type n) const;
+  FloatComplexColumnVector extract_n (octave_idx_type r1,
+                                      octave_idx_type n) const;
 
   // column vector by column vector -> column vector operations
 
@@ -100,27 +107,27 @@
 
   // matrix by column vector -> column vector operations
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatComplexMatrix& a,
-                                         const FloatColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatComplexMatrix& a, const FloatColumnVector& b);
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatComplexMatrix& a,
-                                         const FloatComplexColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatComplexMatrix& a, const FloatComplexColumnVector& b);
 
   // matrix by column vector -> column vector operations
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatMatrix& a,
-                                         const FloatComplexColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatMatrix& a, const FloatComplexColumnVector& b);
 
   // diagonal matrix by column vector -> column vector operations
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatDiagMatrix& a,
-                                         const FloatComplexColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatDiagMatrix& a, const FloatComplexColumnVector& b);
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatComplexDiagMatrix& a,
-                                         const ColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatComplexDiagMatrix& a, const ColumnVector& b);
 
-  friend OCTAVE_API FloatComplexColumnVector operator * (const FloatComplexDiagMatrix& a,
-                                         const FloatComplexColumnVector& b);
+  friend OCTAVE_API FloatComplexColumnVector
+  operator * (const FloatComplexDiagMatrix& a, const FloatComplexColumnVector& b);
 
   // other operations
 
@@ -131,8 +138,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatComplexColumnVector& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatComplexColumnVector& a);
+  friend OCTAVE_API std::ostream&
+  operator << (std::ostream& os, const FloatComplexColumnVector& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatComplexColumnVector& a);
 
   void resize (octave_idx_type n, const FloatComplex& rfv = FloatComplex (0))
   {
@@ -140,7 +149,7 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<FloatComplex>::clear (n, 1); }
+  { Array<FloatComplex>::clear (n, 1); }
 
 };
 
--- a/liboctave/array/fCDiagMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCDiagMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -76,7 +76,8 @@
 }
 
 FloatComplexDiagMatrix&
-FloatComplexDiagMatrix::fill (float val, octave_idx_type beg, octave_idx_type end)
+FloatComplexDiagMatrix::fill (float val,
+                              octave_idx_type beg, octave_idx_type end)
 {
   if (beg < 0 || end >= length () || end < beg)
     {
@@ -91,7 +92,8 @@
 }
 
 FloatComplexDiagMatrix&
-FloatComplexDiagMatrix::fill (const FloatComplex& val, octave_idx_type beg, octave_idx_type end)
+FloatComplexDiagMatrix::fill (const FloatComplex& val,
+                              octave_idx_type beg, octave_idx_type end)
 {
   if (beg < 0 || end >= length () || end < beg)
     {
@@ -186,7 +188,8 @@
 }
 
 FloatComplexDiagMatrix&
-FloatComplexDiagMatrix::fill (const FloatComplexColumnVector& a, octave_idx_type beg)
+FloatComplexDiagMatrix::fill (const FloatComplexColumnVector& a,
+                              octave_idx_type beg)
 {
   octave_idx_type a_len = a.length ();
   if (beg < 0 || beg + a_len >= length ())
@@ -218,7 +221,8 @@
 }
 
 FloatComplexDiagMatrix&
-FloatComplexDiagMatrix::fill (const FloatComplexRowVector& a, octave_idx_type beg)
+FloatComplexDiagMatrix::fill (const FloatComplexRowVector& a,
+                              octave_idx_type beg)
 {
   octave_idx_type a_len = a.length ();
   if (beg < 0 || beg + a_len >= length ())
@@ -242,13 +246,15 @@
 FloatComplexDiagMatrix
 conj (const FloatComplexDiagMatrix& a)
 {
-  return FloatComplexDiagMatrix (conj (a.extract_diag ()), a.rows (), a.columns ());
+  return FloatComplexDiagMatrix (conj (a.extract_diag ()), a.rows (),
+                                 a.columns ());
 }
 
 // resize is the destructive analog for this one
 
 FloatComplexMatrix
-FloatComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+FloatComplexDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                                 octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -426,7 +432,7 @@
   if (r == 0 || c == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_add2 (length (), d, a.data ());
   return *this;
--- a/liboctave/array/fCDiagMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCDiagMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexDiagMatrix_h)
-#define octave_FloatComplexDiagMatrix_h 1
+#if !defined (octave_fCDiagMatrix_h)
+#define octave_fCDiagMatrix_h 1
 
 #include "MDiagArray2.h"
 
@@ -41,15 +41,19 @@
 
   FloatComplexDiagMatrix (void) : MDiagArray2<FloatComplex> () { }
 
-  FloatComplexDiagMatrix (octave_idx_type r, octave_idx_type c) : MDiagArray2<FloatComplex> (r, c) { }
+  FloatComplexDiagMatrix (octave_idx_type r,
+                          octave_idx_type c)
+    : MDiagArray2<FloatComplex> (r, c) { }
 
-  FloatComplexDiagMatrix (octave_idx_type r, octave_idx_type c, const FloatComplex& val)
+  FloatComplexDiagMatrix (octave_idx_type r, octave_idx_type c,
+                          const FloatComplex& val)
     : MDiagArray2<FloatComplex> (r, c, val) { }
 
   explicit FloatComplexDiagMatrix (const Array<FloatComplex>& a)
     : MDiagArray2<FloatComplex> (a) { }
 
-  FloatComplexDiagMatrix (const Array<FloatComplex>& a, octave_idx_type r, octave_idx_type c)
+  FloatComplexDiagMatrix (const Array<FloatComplex>& a, octave_idx_type r,
+                          octave_idx_type c)
     : MDiagArray2<FloatComplex> (a, r, c) { }
 
   explicit FloatComplexDiagMatrix (const Array<float>& a)
@@ -68,36 +72,45 @@
     : MDiagArray2<FloatComplex> (a) { }
 
   FloatComplexDiagMatrix& operator = (const FloatComplexDiagMatrix& a)
-    {
-      MDiagArray2<FloatComplex>::operator = (a);
-      return *this;
-    }
+  {
+    MDiagArray2<FloatComplex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatComplexDiagMatrix& a) const;
   bool operator != (const FloatComplexDiagMatrix& a) const;
 
   FloatComplexDiagMatrix& fill (float val);
   FloatComplexDiagMatrix& fill (const FloatComplex& val);
-  FloatComplexDiagMatrix& fill (float val, octave_idx_type beg, octave_idx_type end);
-  FloatComplexDiagMatrix& fill (const FloatComplex& val, octave_idx_type beg, octave_idx_type end);
+  FloatComplexDiagMatrix& fill (float val,
+                                octave_idx_type beg, octave_idx_type end);
+  FloatComplexDiagMatrix& fill (const FloatComplex& val,
+                                octave_idx_type beg, octave_idx_type end);
   FloatComplexDiagMatrix& fill (const FloatColumnVector& a);
   FloatComplexDiagMatrix& fill (const FloatComplexColumnVector& a);
   FloatComplexDiagMatrix& fill (const FloatRowVector& a);
   FloatComplexDiagMatrix& fill (const FloatComplexRowVector& a);
-  FloatComplexDiagMatrix& fill (const FloatColumnVector& a, octave_idx_type beg);
-  FloatComplexDiagMatrix& fill (const FloatComplexColumnVector& a, octave_idx_type beg);
+  FloatComplexDiagMatrix& fill (const FloatColumnVector& a,
+                                octave_idx_type beg);
+  FloatComplexDiagMatrix& fill (const FloatComplexColumnVector& a,
+                                octave_idx_type beg);
   FloatComplexDiagMatrix& fill (const FloatRowVector& a, octave_idx_type beg);
-  FloatComplexDiagMatrix& fill (const FloatComplexRowVector& a, octave_idx_type beg);
+  FloatComplexDiagMatrix& fill (const FloatComplexRowVector& a,
+                                octave_idx_type beg);
 
-  FloatComplexDiagMatrix hermitian (void) const { return MDiagArray2<FloatComplex>::hermitian (std::conj); }
-  FloatComplexDiagMatrix transpose (void) const { return MDiagArray2<FloatComplex>::transpose (); }
+  FloatComplexDiagMatrix hermitian (void) const
+  { return MDiagArray2<FloatComplex>::hermitian (std::conj); }
+  FloatComplexDiagMatrix transpose (void) const
+  { return MDiagArray2<FloatComplex>::transpose (); }
   FloatDiagMatrix abs (void) const;
 
-  friend OCTAVE_API FloatComplexDiagMatrix conj (const FloatComplexDiagMatrix& a);
+  friend OCTAVE_API FloatComplexDiagMatrix
+  conj (const FloatComplexDiagMatrix& a);
 
   // resize is the destructive analog for this one
 
-  FloatComplexMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  FloatComplexMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                              octave_idx_type r2, octave_idx_type c2) const;
 
   // extract row or column i
 
@@ -121,14 +134,15 @@
   // other operations
 
   FloatComplexColumnVector extract_diag (octave_idx_type k = 0) const
-    { return MDiagArray2<FloatComplex>::extract_diag (k); }
+  { return MDiagArray2<FloatComplex>::extract_diag (k); }
 
   FloatComplexDET determinant (void) const;
   float rcond (void) const;
 
   // i/o
 
-  friend std::ostream& operator << (std::ostream& os, const FloatComplexDiagMatrix& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const FloatComplexDiagMatrix& a);
 
 };
 
--- a/liboctave/array/fCMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -258,7 +258,8 @@
                                F77_CHAR_ARG_LEN_DECL);
 }
 
-static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN, octave_Float_NaN);
+static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN,
+                                                   octave_Float_NaN);
 
 // FloatComplex Matrix class
 
@@ -301,7 +302,7 @@
     elem (i, i) = a.elem (i, i);
 }
 
-// FIXME -- could we use a templated mixed-type copy function
+// FIXME: could we use a templated mixed-type copy function
 // here?
 
 FloatComplexMatrix::FloatComplexMatrix (const boolMatrix& a)
@@ -366,7 +367,8 @@
 // destructive insert/delete/reorder operations
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatMatrix& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -390,7 +392,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatRowVector& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatRowVector& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -412,7 +415,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatColumnVector& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatColumnVector& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -434,7 +438,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatDiagMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatDiagMatrix& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -461,14 +466,16 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatComplexMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatComplexMatrix& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   Array<FloatComplex>::insert (a, r, c);
   return *this;
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatComplexRowVector& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatComplexRowVector& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
   if (r < 0 || r >= rows () || c < 0 || c + a_len > cols ())
@@ -484,7 +491,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatComplexColumnVector& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatComplexColumnVector& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -506,7 +514,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::insert (const FloatComplexDiagMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatComplexMatrix::insert (const FloatComplexDiagMatrix& a,
+                            octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -569,7 +578,8 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::fill (float val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+FloatComplexMatrix::fill (float val, octave_idx_type r1, octave_idx_type c1,
+                          octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -597,7 +607,9 @@
 }
 
 FloatComplexMatrix&
-FloatComplexMatrix::fill (const FloatComplex& val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+FloatComplexMatrix::fill (const FloatComplex& val,
+                          octave_idx_type r1, octave_idx_type c1,
+                          octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -929,7 +941,8 @@
 // resize is the destructive equivalent for this one
 
 FloatComplexMatrix
-FloatComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+FloatComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                             octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -938,7 +951,8 @@
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const
+FloatComplexMatrix::extract_n (octave_idx_type r1, octave_idx_type c1,
+                               octave_idx_type nr, octave_idx_type nc) const
 {
   return index (idx_vector (r1, r1 + nr), idx_vector (c1, c1 + nc));
 }
@@ -976,7 +990,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::inverse (octave_idx_type& info, float& rcon, int force,
-                        int calc_cond) const
+                             int calc_cond) const
 {
   MatrixType mattype (*this);
   return inverse (mattype, info, rcon, force, calc_cond);
@@ -999,7 +1013,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::tinverse (MatrixType &mattype, octave_idx_type& info,
-                         float& rcon, int force, int calc_cond) const
+                              float& rcon, int force, int calc_cond) const
 {
   FloatComplexMatrix retval;
 
@@ -1056,7 +1070,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::finverse (MatrixType &mattype, octave_idx_type& info,
-                         float& rcon, int force, int calc_cond) const
+                              float& rcon, int force, int calc_cond) const
 {
   FloatComplexMatrix retval;
 
@@ -1091,7 +1105,8 @@
       // Calculate the norm of the matrix, for later use.
       float anorm;
       if (calc_cond)
-        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                .max ();
 
       F77_XFCN (cgetrf, CGETRF, (nc, nc, tmp_data, nr, pipvt, info));
 
@@ -1137,7 +1152,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::inverse (MatrixType &mattype, octave_idx_type& info,
-                        float& rcon, int force, int calc_cond) const
+                             float& rcon, int force, int calc_cond) const
 {
   int typ = mattype.type (false);
   FloatComplexMatrix ret;
@@ -1168,7 +1183,8 @@
         ret = finverse (mattype, info, rcon, force, calc_cond);
 
       if ((mattype.is_hermitian () || calc_cond) && rcon == 0.)
-        ret = FloatComplexMatrix (rows (), columns (), FloatComplex (octave_Float_Inf, 0.));
+        ret = FloatComplexMatrix (rows (), columns (),
+                                  FloatComplex (octave_Float_Inf, 0.));
     }
 
   return ret;
@@ -1311,10 +1327,12 @@
   F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*);
 
   F77_RET_T
-  F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*);
+  F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*,
+                           FloatComplex*);
 
   F77_RET_T
-  F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*);
+  F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*,
+                           FloatComplex*);
 }
 
 FloatComplexMatrix
@@ -1555,7 +1573,8 @@
 }
 
 FloatComplexDET
-FloatComplexMatrix::determinant (octave_idx_type& info, float& rcon, int calc_cond) const
+FloatComplexMatrix::determinant (octave_idx_type& info, float& rcon,
+                                 int calc_cond) const
 {
   MatrixType mattype (*this);
   return determinant (mattype, info, rcon, calc_cond);
@@ -1563,7 +1582,8 @@
 
 FloatComplexDET
 FloatComplexMatrix::determinant (MatrixType& mattype,
-                                 octave_idx_type& info, float& rcon, int calc_cond) const
+                                 octave_idx_type& info, float& rcon,
+                                 int calc_cond) const
 {
   FloatComplexDET retval (1.0);
 
@@ -1792,7 +1812,7 @@
               FloatComplex *tmp_data = atmp.fortran_vec ();
 
               anorm = atmp.abs().sum().
-                row(static_cast<octave_idx_type>(0)).max();
+                      row(static_cast<octave_idx_type>(0)).max();
 
               F77_XFCN (cpotrf, CPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
                                          tmp_data, nr, info
@@ -1835,7 +1855,7 @@
 
               if (anorm < 0.)
                 anorm = atmp.abs ().sum ().
-                  row(static_cast<octave_idx_type>(0)).max ();
+                        row(static_cast<octave_idx_type>(0)).max ();
 
               Array<FloatComplex> z (dim_vector (2 * nc, 1));
               FloatComplex *pz = z.fortran_vec ();
@@ -1871,9 +1891,9 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::utsolve (MatrixType &mattype, const FloatComplexMatrix& b,
-                        octave_idx_type& info, float& rcon,
-                        solve_singularity_handler sing_handler,
-                        bool calc_cond, blas_trans_type transt) const
+                             octave_idx_type& info, float& rcon,
+                             solve_singularity_handler sing_handler,
+                             bool calc_cond, blas_trans_type transt) const
 {
   FloatComplexMatrix retval;
 
@@ -1972,9 +1992,9 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::ltsolve (MatrixType &mattype, const FloatComplexMatrix& b,
-                        octave_idx_type& info, float& rcon,
-                        solve_singularity_handler sing_handler,
-                        bool calc_cond, blas_trans_type transt) const
+                             octave_idx_type& info, float& rcon,
+                             solve_singularity_handler sing_handler,
+                             bool calc_cond, blas_trans_type transt) const
 {
   FloatComplexMatrix retval;
 
@@ -2073,9 +2093,9 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::fsolve (MatrixType &mattype, const FloatComplexMatrix& b,
-                       octave_idx_type& info, float& rcon,
-                       solve_singularity_handler sing_handler,
-                       bool calc_cond) const
+                            octave_idx_type& info, float& rcon,
+                            solve_singularity_handler sing_handler,
+                            bool calc_cond) const
 {
   FloatComplexMatrix retval;
 
@@ -2092,7 +2112,7 @@
     {
       volatile int typ = mattype.type ();
 
-     // Calculate the norm of the matrix, for later use.
+      // Calculate the norm of the matrix, for later use.
       float anorm = -1.;
 
       if (typ == MatrixType::Hermitian)
@@ -2187,7 +2207,8 @@
 
           // Calculate the norm of the matrix, for later use.
           if (anorm < 0.)
-            anorm = atmp.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+            anorm = atmp.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                    .max ();
 
           F77_XFCN (cgetrf, CGETRF, (nr, nr, tmp_data, nr, pipvt, info));
 
@@ -2267,23 +2288,25 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::solve (MatrixType &typ, const FloatMatrix& b,
-                      octave_idx_type& info) const
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                      float& rcon) const
+FloatComplexMatrix::solve (MatrixType &typ, const FloatMatrix& b,
+                           octave_idx_type& info,
+                           float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                      float& rcon, solve_singularity_handler sing_handler,
-                      bool singular_fallback, blas_trans_type transt) const
+FloatComplexMatrix::solve (MatrixType &typ, const FloatMatrix& b,
+                           octave_idx_type& info,
+                           float& rcon, solve_singularity_handler sing_handler,
+                           bool singular_fallback, blas_trans_type transt) const
 {
   FloatComplexMatrix tmp (b);
   return solve (typ, tmp, info, rcon, sing_handler, singular_fallback, transt);
@@ -2299,7 +2322,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b,
-                      octave_idx_type& info) const
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon, 0);
@@ -2307,16 +2330,16 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b,
-                      octave_idx_type& info, float& rcon) const
+                           octave_idx_type& info, float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatComplexMatrix
 FloatComplexMatrix::solve (MatrixType &mattype, const FloatComplexMatrix& b,
-                      octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler,
-                      bool singular_fallback, blas_trans_type transt) const
+                           octave_idx_type& info, float& rcon,
+                           solve_singularity_handler sing_handler,
+                           bool singular_fallback, blas_trans_type transt) const
 {
   FloatComplexMatrix retval;
   int typ = mattype.type ();
@@ -2330,9 +2353,11 @@
   else if (typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
     retval = ltsolve (mattype, b, info, rcon, sing_handler, false, transt);
   else if (transt == blas_trans)
-    return transpose ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    return transpose ().solve (mattype, b, info, rcon, sing_handler,
+                               singular_fallback);
   else if (transt == blas_conj_trans)
-    retval = hermitian ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    retval = hermitian ().solve (mattype, b, info, rcon, sing_handler,
+                                 singular_fallback);
   else if (typ == MatrixType::Full || typ == MatrixType::Hermitian)
     retval = fsolve (mattype, b, info, rcon, sing_handler, true);
   else if (typ != MatrixType::Rectangular)
@@ -2361,7 +2386,7 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info) const
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, FloatComplexColumnVector (b), info, rcon, 0);
@@ -2369,21 +2394,24 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info, float& rcon) const
+                           octave_idx_type& info, float& rcon) const
 {
   return solve (typ, FloatComplexColumnVector (b), info, rcon, 0);
 }
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                           octave_idx_type& info, float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
-  return solve (typ, FloatComplexColumnVector (b), info, rcon, sing_handler, transt);
+  return solve (typ, FloatComplexColumnVector (b), info, rcon, sing_handler,
+                transt);
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b) const
+FloatComplexMatrix::solve (MatrixType &typ,
+                           const FloatComplexColumnVector& b) const
 {
   octave_idx_type info;
   float rcon;
@@ -2392,7 +2420,7 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                      octave_idx_type& info) const
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon, 0);
@@ -2400,15 +2428,16 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                      octave_idx_type& info, float& rcon) const
+                           octave_idx_type& info, float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                      octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                           octave_idx_type& info, float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
 
   FloatComplexMatrix tmp (b);
@@ -2432,14 +2461,17 @@
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (const FloatMatrix& b, octave_idx_type& info, float& rcon) const
+FloatComplexMatrix::solve (const FloatMatrix& b, octave_idx_type& info,
+                           float& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (const FloatMatrix& b, octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatComplexMatrix::solve (const FloatMatrix& b, octave_idx_type& info,
+                           float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
   FloatComplexMatrix tmp (b);
   return solve (tmp, info, rcon, sing_handler, transt);
@@ -2454,21 +2486,25 @@
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info) const
+FloatComplexMatrix::solve (const FloatComplexMatrix& b,
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon) const
+FloatComplexMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                           float& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatComplexMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                           float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, true, transt);
@@ -2483,7 +2519,8 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::solve (const FloatColumnVector& b, octave_idx_type& info) const
+FloatComplexMatrix::solve (const FloatColumnVector& b,
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (FloatComplexColumnVector (b), info, rcon, 0);
@@ -2491,15 +2528,16 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (const FloatColumnVector& b, octave_idx_type& info,
-                      float& rcon) const
+                           float& rcon) const
 {
   return solve (FloatComplexColumnVector (b), info, rcon, 0);
 }
 
 FloatComplexColumnVector
 FloatComplexMatrix::solve (const FloatColumnVector& b, octave_idx_type& info,
-                      float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+                           float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
   return solve (FloatComplexColumnVector (b), info, rcon, sing_handler, transt);
 }
@@ -2513,23 +2551,27 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info) const
+FloatComplexMatrix::solve (const FloatComplexColumnVector& b,
+                           octave_idx_type& info) const
 {
   float rcon;
   return solve (b, info, rcon, 0);
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                      float& rcon) const
+FloatComplexMatrix::solve (const FloatComplexColumnVector& b,
+                           octave_idx_type& info,
+                           float& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                      float& rcon,
-                      solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatComplexMatrix::solve (const FloatComplexColumnVector& b,
+                           octave_idx_type& info,
+                           float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, transt);
@@ -2554,7 +2596,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::lssolve (const FloatMatrix& b, octave_idx_type& info,
-                        octave_idx_type& rank) const
+                             octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (FloatComplexMatrix (b), info, rank, rcon);
@@ -2562,7 +2604,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::lssolve (const FloatMatrix& b, octave_idx_type& info,
-                        octave_idx_type& rank, float& rcon) const
+                             octave_idx_type& rank, float& rcon) const
 {
   return lssolve (FloatComplexMatrix (b), info, rank, rcon);
 }
@@ -2577,7 +2619,8 @@
 }
 
 FloatComplexMatrix
-FloatComplexMatrix::lssolve (const FloatComplexMatrix& b, octave_idx_type& info) const
+FloatComplexMatrix::lssolve (const FloatComplexMatrix& b,
+                             octave_idx_type& info) const
 {
   octave_idx_type rank;
   float rcon;
@@ -2586,7 +2629,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                        octave_idx_type& rank) const
+                             octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (b, info, rank, rcon);
@@ -2594,7 +2637,7 @@
 
 FloatComplexMatrix
 FloatComplexMatrix::lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                        octave_idx_type& rank, float& rcon) const
+                             octave_idx_type& rank, float& rcon) const
 {
   FloatComplexMatrix retval;
 
@@ -2666,8 +2709,9 @@
         nlvl = 0;
 
       octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl)
-        + 3*smlsiz*nrhs + std::max ((smlsiz+1)*(smlsiz+1),
-                                    n*(1+nrhs) + 2*nrhs);
+                               + 3*smlsiz*nrhs
+                               + std::max ((smlsiz+1)*(smlsiz+1),
+                                           n*(1+nrhs) + 2*nrhs);
       if (lrwork < 1)
         lrwork = 1;
       Array<float> rwork (dim_vector (lrwork, 1));
@@ -2742,7 +2786,8 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::lssolve (const FloatColumnVector& b, octave_idx_type& info) const
+FloatComplexMatrix::lssolve (const FloatColumnVector& b,
+                             octave_idx_type& info) const
 {
   octave_idx_type rank;
   float rcon;
@@ -2751,7 +2796,7 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank) const
+                             octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (FloatComplexColumnVector (b), info, rank, rcon);
@@ -2759,7 +2804,7 @@
 
 FloatComplexColumnVector
 FloatComplexMatrix::lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank, float& rcon) const
+                             octave_idx_type& rank, float& rcon) const
 {
   return lssolve (FloatComplexColumnVector (b), info, rank, rcon);
 }
@@ -2774,7 +2819,8 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info) const
+FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b,
+                             octave_idx_type& info) const
 {
   octave_idx_type rank;
   float rcon;
@@ -2782,8 +2828,9 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank) const
+FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b,
+                             octave_idx_type& info,
+                             octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (b, info, rank, rcon);
@@ -2791,8 +2838,9 @@
 }
 
 FloatComplexColumnVector
-FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank, float& rcon) const
+FloatComplexMatrix::lssolve (const FloatComplexColumnVector& b,
+                             octave_idx_type& info,
+                             octave_idx_type& rank, float& rcon) const
 {
   FloatComplexColumnVector retval;
 
@@ -2856,7 +2904,7 @@
         nlvl = 0;
 
       octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl)
-        + 3*smlsiz*nrhs + (smlsiz+1)*(smlsiz+1);
+                               + 3*smlsiz*nrhs + (smlsiz+1)*(smlsiz+1);
       if (lrwork < 1)
         lrwork = 1;
       Array<float> rwork (dim_vector (lrwork, 1));
@@ -3043,7 +3091,7 @@
   if (nr == 0 || nc == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_add2 (length (), d, a.data ());
   return *this;
@@ -3067,7 +3115,7 @@
   if (nr == 0 || nc == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_sub2 (length (), d, a.data ());
   return *this;
@@ -3168,7 +3216,7 @@
   return false;
 }
 
-// FIXME Do these really belong here?  Maybe they should be
+// FIXME: Do these really belong here?  Maybe they should be
 // in a base class?
 
 boolMatrix
@@ -3186,13 +3234,15 @@
 FloatComplexMatrix
 FloatComplexMatrix::cumprod (int dim) const
 {
-  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim, mx_inline_cumprod);
+  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim,
+                                                   mx_inline_cumprod);
 }
 
 FloatComplexMatrix
 FloatComplexMatrix::cumsum (int dim) const
 {
-  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim, mx_inline_cumsum);
+  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim,
+                                                   mx_inline_cumsum);
 }
 
 FloatComplexMatrix
@@ -3315,7 +3365,8 @@
 
               if (! xisnan (tmp_min))
                 {
-                  abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min);
+                  abs_min = real_only ? std::real (tmp_min)
+                                      : std::abs (tmp_min);
                   break;
                 }
             }
@@ -3389,7 +3440,8 @@
 
               if (! xisnan (tmp_max))
                 {
-                  abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max);
+                  abs_max = real_only ? std::real (tmp_max)
+                                      : std::abs (tmp_max);
                   break;
                 }
             }
@@ -3463,7 +3515,8 @@
 
               if (! xisnan (tmp_min))
                 {
-                  abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min);
+                  abs_min = real_only ? std::real (tmp_min)
+                                      : std::abs (tmp_min);
                   break;
                 }
             }
@@ -3537,7 +3590,8 @@
 
               if (! xisnan (tmp_max))
                 {
-                  abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max);
+                  abs_max = real_only ? std::real (tmp_max)
+                                      : std::abs (tmp_max);
                   break;
                 }
             }
@@ -3641,7 +3695,7 @@
 {
   FloatComplexMatrix retval;
 
-  // FIXME -- need to check that a, b, and c are all the same
+  // FIXME: need to check that a, b, and c are all the same
   // size.
 
   // Compute Schur decompositions
@@ -3679,7 +3733,7 @@
                              F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
-  // FIXME -- check info?
+  // FIXME: check info?
 
   retval = -ua * cx * ub.hermitian ();
 
@@ -3760,7 +3814,7 @@
         {
           octave_idx_type lda = a.rows ();
 
-          // FIXME -- looking at the reference BLAS, it appears that it
+          // FIXME: looking at the reference BLAS, it appears that it
           // should not be necessary to initialize the output matrix if
           // BETA is 0 in the call to CHERK, but ATLAS appears to
           // use the result matrix before zeroing the elements.
@@ -3808,13 +3862,16 @@
             {
               if (cja == cjb)
                 {
-                  F77_FUNC (xcdotu, XCDOTU) (a_nc, a.data (), 1, b.data (), 1, *c);
+                  F77_FUNC (xcdotu, XCDOTU) (a_nc, a.data (), 1, b.data (), 1,
+                                             *c);
                   if (cja) *c = std::conj (*c);
                 }
               else if (cja)
-                  F77_FUNC (xcdotc, XCDOTC) (a_nc, a.data (), 1, b.data (), 1, *c);
+                F77_FUNC (xcdotc, XCDOTC) (a_nc, a.data (), 1, b.data (), 1,
+                                           *c);
               else
-                  F77_FUNC (xcdotc, XCDOTC) (a_nc, b.data (), 1, a.data (), 1, *c);
+                F77_FUNC (xcdotc, XCDOTC) (a_nc, b.data (), 1, a.data (), 1,
+                                           *c);
             }
           else if (b_nc == 1 && ! cjb)
             {
@@ -3855,7 +3912,7 @@
   return xgemm (a, b);
 }
 
-// FIXME -- it would be nice to share code among the min/max
+// FIXME: it would be nice to share code among the min/max
 // functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
@@ -4051,7 +4108,8 @@
   octave_idx_type m = x1.length ();
 
   if (x2.length () != m)
-    (*current_liboctave_error_handler) ("linspace: vectors must be of equal length");
+    (*current_liboctave_error_handler)
+      ("linspace: vectors must be of equal length");
 
   NoAlias<FloatComplexMatrix> retval;
 
--- a/liboctave/array/fCMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexMatrix_h)
-#define octave_FloatComplexMatrix_h 1
+#if !defined (octave_fCMatrix_h)
+#define octave_fCMatrix_h 1
 
 #include "MArray.h"
 #include "MDiagArray2.h"
@@ -90,10 +90,10 @@
   FloatComplexMatrix (const FloatMatrix& re, const FloatMatrix& im);
 
   FloatComplexMatrix& operator = (const FloatComplexMatrix& a)
-    {
-      MArray<FloatComplex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<FloatComplex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatComplexMatrix& a) const;
   bool operator != (const FloatComplexMatrix& a) const;
@@ -102,20 +102,31 @@
 
   // destructive insert/delete/reorder operations
 
-  FloatComplexMatrix& insert (const FloatMatrix& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatRowVector& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatColumnVector& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatDiagMatrix& a, octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatMatrix& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatRowVector& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatColumnVector& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatDiagMatrix& a,
+                              octave_idx_type r, octave_idx_type c);
 
-  FloatComplexMatrix& insert (const FloatComplexMatrix& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatComplexRowVector& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatComplexColumnVector& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexMatrix& insert (const FloatComplexDiagMatrix& a, octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatComplexMatrix& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatComplexRowVector& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatComplexColumnVector& a,
+                              octave_idx_type r, octave_idx_type c);
+  FloatComplexMatrix& insert (const FloatComplexDiagMatrix& a,
+                              octave_idx_type r, octave_idx_type c);
 
   FloatComplexMatrix& fill (float val);
   FloatComplexMatrix& fill (const FloatComplex& val);
-  FloatComplexMatrix& fill (float val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
-  FloatComplexMatrix& fill (const FloatComplex& val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
+  FloatComplexMatrix& fill (float val, octave_idx_type r1, octave_idx_type c1,
+                            octave_idx_type r2, octave_idx_type c2);
+  FloatComplexMatrix& fill (const FloatComplex& val,
+                            octave_idx_type r1, octave_idx_type c1,
+                            octave_idx_type r2, octave_idx_type c2);
 
   FloatComplexMatrix append (const FloatMatrix& a) const;
   FloatComplexMatrix append (const FloatRowVector& a) const;
@@ -138,17 +149,19 @@
   FloatComplexMatrix stack (const FloatComplexDiagMatrix& a) const;
 
   FloatComplexMatrix hermitian (void) const
-    { return MArray<FloatComplex>::hermitian (std::conj); }
+  { return MArray<FloatComplex>::hermitian (std::conj); }
   FloatComplexMatrix transpose (void) const
-    { return MArray<FloatComplex>::transpose (); }
+  { return MArray<FloatComplex>::transpose (); }
 
   friend OCTAVE_API FloatComplexMatrix conj (const FloatComplexMatrix& a);
 
   // resize is the destructive equivalent for this one
 
-  FloatComplexMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  FloatComplexMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                              octave_idx_type r2, octave_idx_type c2) const;
 
-  FloatComplexMatrix extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const;
+  FloatComplexMatrix extract_n (octave_idx_type r1, octave_idx_type c1,
+                                octave_idx_type nr, octave_idx_type nc) const;
 
   // extract row or column i.
 
@@ -164,22 +177,22 @@
 
 private:
   FloatComplexMatrix tinverse (MatrixType &mattype, octave_idx_type& info,
-                          float& rcon, int force, int calc_cond) const;
+                               float& rcon, int force, int calc_cond) const;
 
   FloatComplexMatrix finverse (MatrixType &mattype, octave_idx_type& info,
-                          float& rcon, int force, int calc_cond) const;
+                               float& rcon, int force, int calc_cond) const;
 
 public:
   FloatComplexMatrix inverse (void) const;
   FloatComplexMatrix inverse (octave_idx_type& info) const;
-  FloatComplexMatrix inverse (octave_idx_type& info, float& rcon, int force = 0,
-                         int calc_cond = 1) const;
+  FloatComplexMatrix inverse (octave_idx_type& info, float& rcon,
+                              int force = 0, int calc_cond = 1) const;
 
   FloatComplexMatrix inverse (MatrixType &mattype) const;
   FloatComplexMatrix inverse (MatrixType &mattype, octave_idx_type& info) const;
   FloatComplexMatrix inverse (MatrixType &mattype, octave_idx_type& info,
-                         float& rcon, int force = 0,
-                         int calc_cond = 1) const;
+                              float& rcon, int force = 0,
+                              int calc_cond = 1) const;
 
   FloatComplexMatrix pseudo_inverse (float tol = 0.0) const;
 
@@ -191,7 +204,8 @@
 
   FloatComplexDET determinant (void) const;
   FloatComplexDET determinant (octave_idx_type& info) const;
-  FloatComplexDET determinant (octave_idx_type& info, float& rcon, int calc_cond = 1) const;
+  FloatComplexDET determinant (octave_idx_type& info, float& rcon,
+                               int calc_cond = 1) const;
   FloatComplexDET determinant (MatrixType &mattype, octave_idx_type& info,
                                float& rcon, int calc_cond = 1) const;
 
@@ -201,129 +215,151 @@
 private:
   // Upper triangular matrix solvers
   FloatComplexMatrix utsolve (MatrixType &typ, const FloatComplexMatrix& b,
-                  octave_idx_type& info, float& rcon,
-                  solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+                              octave_idx_type& info, float& rcon,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false,
+                              blas_trans_type transt = blas_no_trans) const;
 
   // Lower triangular matrix solvers
   FloatComplexMatrix ltsolve (MatrixType &typ, const FloatComplexMatrix& b,
-                  octave_idx_type& info, float& rcon,
-                  solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+                              octave_idx_type& info, float& rcon,
+                              solve_singularity_handler sing_handler,
+                              bool calc_cond = false,
+                              blas_trans_type transt = blas_no_trans) const;
 
   // Full matrix solvers (umfpack/cholesky)
   FloatComplexMatrix fsolve (MatrixType &typ, const FloatComplexMatrix& b,
-                 octave_idx_type& info, float& rcon,
-                 solve_singularity_handler sing_handler,
-                 bool calc_cond = false) const;
+                             octave_idx_type& info, float& rcon,
+                             solve_singularity_handler sing_handler,
+                             bool calc_cond = false) const;
 
 public:
   // Generic interface to solver with no probing of type
   FloatComplexMatrix solve (MatrixType &typ, const FloatMatrix& b) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatMatrix& b,
-                       octave_idx_type& info) const;
+                            octave_idx_type& info) const;
+  FloatComplexMatrix solve (MatrixType &typ, const FloatMatrix& b,
+                            octave_idx_type& info, float& rcon) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatMatrix& b,
-                       octave_idx_type& info, float& rcon) const;
-  FloatComplexMatrix solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                       float& rcon, solve_singularity_handler sing_handler,
-                       bool singular_fallback = true,
-                       blas_trans_type transt = blas_no_trans) const;
+                            octave_idx_type& info,
+                            float& rcon, solve_singularity_handler sing_handler,
+                            bool singular_fallback = true,
+                            blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info) const;
+                            octave_idx_type& info) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info, float& rcon) const;
+                            octave_idx_type& info, float& rcon) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info, float& rcon,
-                       solve_singularity_handler sing_handler,
-                       bool singular_fallback = true,
-                       blas_trans_type transt = blas_no_trans) const;
-
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                             octave_idx_type& info) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                             octave_idx_type& info, float& rcon) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                             octave_idx_type& info, float& rcon,
-                             solve_singularity_handler sing_handler,
-                             blas_trans_type transt = blas_no_trans) const;
+                            octave_idx_type& info, float& rcon,
+                            solve_singularity_handler sing_handler,
+                            bool singular_fallback = true,
+                            blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexColumnVector solve (MatrixType &typ,
-                             const FloatComplexColumnVector& b) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info, float& rcon) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info, float& rcon,
-                             solve_singularity_handler sing_handler,
-                             blas_trans_type transt = blas_no_trans) const;
+                                  const FloatColumnVector& b) const;
+  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
+                                  octave_idx_type& info, float& rcon) const;
+  FloatComplexColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
+                                  octave_idx_type& info, float& rcon,
+                                  solve_singularity_handler sing_handler,
+                                  blas_trans_type transt = blas_no_trans) const;
+
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info, float& rcon) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info, float& rcon,
+                                  solve_singularity_handler sing_handler,
+                                  blas_trans_type transt = blas_no_trans) const;
 
   // Generic interface to solver with probing of type
   FloatComplexMatrix solve (const FloatMatrix& b) const;
   FloatComplexMatrix solve (const FloatMatrix& b, octave_idx_type& info) const;
-  FloatComplexMatrix solve (const FloatMatrix& b, octave_idx_type& info, float& rcon) const;
-  FloatComplexMatrix solve (const FloatMatrix& b, octave_idx_type& info, float& rcon,
-                       solve_singularity_handler sing_handler,
-                       blas_trans_type transt = blas_no_trans) const;
+  FloatComplexMatrix solve (const FloatMatrix& b, octave_idx_type& info,
+                            float& rcon) const;
+  FloatComplexMatrix solve (const FloatMatrix& b, octave_idx_type& info,
+                            float& rcon,
+                            solve_singularity_handler sing_handler,
+                            blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexMatrix solve (const FloatComplexMatrix& b) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon,
-                       solve_singularity_handler sing_handler,
-                       blas_trans_type transt = blas_no_trans) const;
+  FloatComplexMatrix solve (const FloatComplexMatrix& b,
+                            octave_idx_type& info) const;
+  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                            float& rcon) const;
+  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                            float& rcon,
+                            solve_singularity_handler sing_handler,
+                            blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexColumnVector solve (const FloatColumnVector& b) const;
-  FloatComplexColumnVector solve (const FloatColumnVector& b, octave_idx_type& info) const;
-  FloatComplexColumnVector solve (const FloatColumnVector& b, octave_idx_type& info,
-                             float& rcon) const;
-  FloatComplexColumnVector solve (const FloatColumnVector& b, octave_idx_type& info, float& rcon,
-                             solve_singularity_handler sing_handler,
-                             blas_trans_type transt = blas_no_trans) const;
+  FloatComplexColumnVector solve (const FloatColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (const FloatColumnVector& b,
+                                  octave_idx_type& info,
+                                  float& rcon) const;
+  FloatComplexColumnVector solve (const FloatColumnVector& b,
+                                  octave_idx_type& info, float& rcon,
+                                  solve_singularity_handler sing_handler,
+                                  blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexColumnVector solve (const FloatComplexColumnVector& b) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                             float& rcon) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                             float& rcon,
-                             solve_singularity_handler sing_handler,
-                             blas_trans_type transt = blas_no_trans) const;
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info,
+                                  float& rcon) const;
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info,
+                                  float& rcon,
+                                  solve_singularity_handler sing_handler,
+                                  blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexMatrix lssolve (const FloatMatrix& b) const;
-  FloatComplexMatrix lssolve (const FloatMatrix& b, octave_idx_type& info) const;
+  FloatComplexMatrix lssolve (const FloatMatrix& b,
+                              octave_idx_type& info) const;
   FloatComplexMatrix lssolve (const FloatMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank) const;
+                              octave_idx_type& rank) const;
   FloatComplexMatrix lssolve (const FloatMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank, float& rcon) const;
+                              octave_idx_type& rank, float& rcon) const;
 
   FloatComplexMatrix lssolve (const FloatComplexMatrix& b) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank, float& rcon) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info, octave_idx_type& rank) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info, octave_idx_type& rank, float& rcon) const;
 
   FloatComplexColumnVector lssolve (const FloatColumnVector& b) const;
   FloatComplexColumnVector lssolve (const FloatColumnVector& b,
-                               octave_idx_type& info) const;
-  FloatComplexColumnVector lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                               octave_idx_type& rank) const;
-  FloatComplexColumnVector lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                               octave_idx_type& rank, float& rcon) const;
+                                    octave_idx_type& info) const;
+  FloatComplexColumnVector lssolve (const FloatColumnVector& b,
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank) const;
+  FloatComplexColumnVector lssolve (const FloatColumnVector& b,
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank, float& rcon) const;
 
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info) const;
+                                    octave_idx_type& info) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info,
-                               octave_idx_type& rank) const;
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info,
-                               octave_idx_type& rank, float& rcon) const;
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank, float& rcon) const;
 
   // matrix by diagonal matrix -> matrix operations
 
@@ -381,8 +417,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatComplexMatrix& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatComplexMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatComplexMatrix& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatComplexMatrix& a);
 };
 
 extern OCTAVE_API FloatComplexMatrix conj (const FloatComplexMatrix& a);
@@ -402,28 +440,39 @@
 Givens (const FloatComplex&, const FloatComplex&);
 
 extern OCTAVE_API FloatComplexMatrix
-Sylvester (const FloatComplexMatrix&, const FloatComplexMatrix&, const FloatComplexMatrix&);
+Sylvester (const FloatComplexMatrix&, const FloatComplexMatrix&,
+           const FloatComplexMatrix&);
 
 extern OCTAVE_API FloatComplexMatrix
 xgemm (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
        blas_trans_type transa = blas_no_trans,
        blas_trans_type transb = blas_no_trans);
 
-extern OCTAVE_API FloatComplexMatrix operator * (const FloatMatrix&,        const FloatComplexMatrix&);
-extern OCTAVE_API FloatComplexMatrix operator * (const FloatComplexMatrix&, const FloatMatrix&);
-extern OCTAVE_API FloatComplexMatrix operator * (const FloatComplexMatrix&, const FloatComplexMatrix&);
-
-extern OCTAVE_API FloatComplexMatrix min (const FloatComplex& c, const FloatComplexMatrix& m);
-extern OCTAVE_API FloatComplexMatrix min (const FloatComplexMatrix& m, const FloatComplex& c);
-extern OCTAVE_API FloatComplexMatrix min (const FloatComplexMatrix& a, const FloatComplexMatrix& b);
+extern OCTAVE_API FloatComplexMatrix operator * (const FloatMatrix&,
+                                                 const FloatComplexMatrix&);
+extern OCTAVE_API FloatComplexMatrix operator * (const FloatComplexMatrix&,
+                                                 const FloatMatrix&);
+extern OCTAVE_API FloatComplexMatrix operator * (const FloatComplexMatrix&,
+                                                 const FloatComplexMatrix&);
 
-extern OCTAVE_API FloatComplexMatrix max (const FloatComplex& c, const FloatComplexMatrix& m);
-extern OCTAVE_API FloatComplexMatrix max (const FloatComplexMatrix& m, const FloatComplex& c);
-extern OCTAVE_API FloatComplexMatrix max (const FloatComplexMatrix& a, const FloatComplexMatrix& b);
+extern OCTAVE_API FloatComplexMatrix min (const FloatComplex& c,
+                                          const FloatComplexMatrix& m);
+extern OCTAVE_API FloatComplexMatrix min (const FloatComplexMatrix& m,
+                                          const FloatComplex& c);
+extern OCTAVE_API FloatComplexMatrix min (const FloatComplexMatrix& a,
+                                          const FloatComplexMatrix& b);
 
-extern OCTAVE_API FloatComplexMatrix linspace (const FloatComplexColumnVector& x1,
-                                               const FloatComplexColumnVector& x2,
-                                               octave_idx_type n);
+extern OCTAVE_API FloatComplexMatrix max (const FloatComplex& c,
+                                          const FloatComplexMatrix& m);
+extern OCTAVE_API FloatComplexMatrix max (const FloatComplexMatrix& m,
+                                          const FloatComplex& c);
+extern OCTAVE_API FloatComplexMatrix max (const FloatComplexMatrix& a,
+                                          const FloatComplexMatrix& b);
+
+extern OCTAVE_API FloatComplexMatrix
+linspace (const FloatComplexColumnVector& x1,
+          const FloatComplexColumnVector& x2,
+          octave_idx_type n);
 
 MS_CMP_OP_DECLS (FloatComplexMatrix, FloatComplex, OCTAVE_API)
 MS_BOOL_OP_DECLS (FloatComplexMatrix, FloatComplex, OCTAVE_API)
--- a/liboctave/array/fCNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -111,7 +111,7 @@
   // Need to be careful here about the distance between fft's
   for (octave_idx_type k = 0; k < nloop; k++)
     octave_fftw::ifft (in + k * stride * n, out + k * stride * n,
-                      n, howmany, stride, dist);
+                       n, howmany, stride, dist);
 
   return retval;
 }
@@ -290,7 +290,7 @@
 
           for (octave_idx_type i = 0; i < npts; i++)
             retval((i + k*npts)*stride + j*dist) = tmp[i] /
-              static_cast<float> (npts);
+                                                   static_cast<float> (npts);
         }
     }
 
@@ -383,8 +383,8 @@
               F77_FUNC (cfftb, CFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<float> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<float> (npts);
             }
         }
 
@@ -478,8 +478,8 @@
               F77_FUNC (cfftb, CFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<float> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<float> (npts);
             }
         }
 
@@ -502,7 +502,7 @@
   return do_mx_unary_op<bool, FloatComplex> (*this, mx_inline_not);
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 bool
 FloatComplexNDArray::any_element_is_nan (void) const
@@ -599,13 +599,15 @@
 FloatComplexNDArray
 FloatComplexNDArray::cumprod (int dim) const
 {
-  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim, mx_inline_cumprod);
+  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim,
+                                                   mx_inline_cumprod);
 }
 
 FloatComplexNDArray
 FloatComplexNDArray::cumsum (int dim) const
 {
-  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim, mx_inline_cumsum);
+  return do_mx_cum_op<FloatComplex, FloatComplex> (*this, dim,
+                                                   mx_inline_cumsum);
 }
 
 FloatComplexNDArray
@@ -639,7 +641,8 @@
 }
 
 FloatComplexNDArray
-FloatComplexNDArray::concat (const FloatComplexNDArray& rb, const Array<octave_idx_type>& ra_idx)
+FloatComplexNDArray::concat (const FloatComplexNDArray& rb,
+                             const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
@@ -647,7 +650,8 @@
 }
 
 FloatComplexNDArray
-FloatComplexNDArray::concat (const FloatNDArray& rb, const Array<octave_idx_type>& ra_idx)
+FloatComplexNDArray::concat (const FloatNDArray& rb,
+                             const Array<octave_idx_type>& ra_idx)
 {
   FloatComplexNDArray tmp (rb);
   if (rb.numel () > 0)
@@ -656,7 +660,8 @@
 }
 
 FloatComplexNDArray
-concat (NDArray& ra, FloatComplexNDArray& rb, const Array<octave_idx_type>& ra_idx)
+concat (NDArray& ra, FloatComplexNDArray& rb,
+        const Array<octave_idx_type>& ra_idx)
 {
   FloatComplexNDArray retval (ra);
   if (rb.numel () > 0)
@@ -664,7 +669,8 @@
   return retval;
 }
 
-static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN, octave_Float_NaN);
+static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN,
+                                                   octave_Float_NaN);
 
 FloatComplexNDArray
 FloatComplexNDArray::max (int dim) const
@@ -699,7 +705,8 @@
 FloatComplexNDArray
 FloatComplexNDArray::cummax (Array<octave_idx_type>& idx_arg, int dim) const
 {
-  return do_mx_cumminmax_op<FloatComplex> (*this, idx_arg, dim, mx_inline_cummax);
+  return do_mx_cumminmax_op<FloatComplex> (*this, idx_arg, dim,
+                                           mx_inline_cummax);
 }
 
 FloatComplexNDArray
@@ -711,7 +718,8 @@
 FloatComplexNDArray
 FloatComplexNDArray::cummin (Array<octave_idx_type>& idx_arg, int dim) const
 {
-  return do_mx_cumminmax_op<FloatComplex> (*this, idx_arg, dim, mx_inline_cummin);
+  return do_mx_cumminmax_op<FloatComplex> (*this, idx_arg, dim,
+                                           mx_inline_cummin);
 }
 
 FloatNDArray
@@ -745,7 +753,8 @@
 }
 
 FloatComplexNDArray&
-FloatComplexNDArray::insert (const NDArray& a, octave_idx_type r, octave_idx_type c)
+FloatComplexNDArray::insert (const NDArray& a,
+                             octave_idx_type r, octave_idx_type c)
 {
   dim_vector a_dv = a.dims ();
 
@@ -795,14 +804,16 @@
 }
 
 FloatComplexNDArray&
-FloatComplexNDArray::insert (const FloatComplexNDArray& a, octave_idx_type r, octave_idx_type c)
+FloatComplexNDArray::insert (const FloatComplexNDArray& a,
+                             octave_idx_type r, octave_idx_type c)
 {
   Array<FloatComplex>::insert (a, r, c);
   return *this;
 }
 
 FloatComplexNDArray&
-FloatComplexNDArray::insert (const FloatComplexNDArray& a, const Array<octave_idx_type>& ra_idx)
+FloatComplexNDArray::insert (const FloatComplexNDArray& a,
+                             const Array<octave_idx_type>& ra_idx)
 {
   Array<FloatComplex>::insert (a, ra_idx);
   return *this;
@@ -814,7 +825,7 @@
   FloatComplexMatrix retval;
 
   if (ndims () == 2)
-      retval = FloatComplexMatrix (Array<FloatComplex> (*this));
+    retval = FloatComplexMatrix (Array<FloatComplex> (*this));
   else
     (*current_liboctave_error_handler)
       ("invalid conversion of FloatComplexNDArray to FloatComplexMatrix");
@@ -824,15 +835,15 @@
 
 void
 FloatComplexNDArray::increment_index (Array<octave_idx_type>& ra_idx,
-                                 const dim_vector& dimensions,
-                                 int start_dimension)
+                                      const dim_vector& dimensions,
+                                      int start_dimension)
 {
   ::increment_index (ra_idx, dimensions, start_dimension);
 }
 
 octave_idx_type
 FloatComplexNDArray::compute_index (Array<octave_idx_type>& ra_idx,
-                               const dim_vector& dimensions)
+                                    const dim_vector& dimensions)
 {
   return ::compute_index (ra_idx, dimensions);
 }
@@ -873,16 +884,16 @@
     {
       FloatComplex tmp;
       for (octave_idx_type i = 0; i < nel; i++)
-          {
-            tmp = octave_read_value<FloatComplex> (is);
-            if (is)
-              a.elem (i) = tmp;
-            else
-              goto done;
-          }
+        {
+          tmp = octave_read_value<FloatComplex> (is);
+          if (is)
+            a.elem (i) = tmp;
+          else
+            goto done;
+        }
     }
 
- done:
+done:
 
   return is;
 }
--- a/liboctave/array/fCNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexNDArray_h)
-#define octave_FloatComplexNDArray_h 1
+#if !defined (octave_fCNDArray_h)
+#define octave_fCNDArray_h 1
 
 #include "MArray.h"
 #include "fCMatrix.h"
@@ -45,9 +45,11 @@
   FloatComplexNDArray (const dim_vector& dv, const FloatComplex& val)
     : MArray<FloatComplex> (dv, val) { }
 
-  FloatComplexNDArray (const FloatComplexNDArray& a) : MArray<FloatComplex> (a) { }
+  FloatComplexNDArray (const FloatComplexNDArray& a)
+    : MArray<FloatComplex> (a) { }
 
-  FloatComplexNDArray (const FloatComplexMatrix& a) : MArray<FloatComplex> (a) { }
+  FloatComplexNDArray (const FloatComplexMatrix& a)
+    : MArray<FloatComplex> (a) { }
 
   template <class U>
   FloatComplexNDArray (const MArray<U>& a) : MArray<FloatComplex> (a) { }
@@ -58,16 +60,16 @@
   FloatComplexNDArray (const charNDArray&);
 
   FloatComplexNDArray& operator = (const FloatComplexNDArray& a)
-    {
-      MArray<FloatComplex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<FloatComplex>::operator = (a);
+    return *this;
+  }
 
   // unary operations
 
   boolNDArray operator ! (void) const;
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   bool any_element_is_nan (void) const;
   bool any_element_is_inf_or_nan (void) const;
@@ -82,10 +84,12 @@
   FloatComplexNDArray cumsum (int dim = -1) const;
   FloatComplexNDArray prod (int dim = -1) const;
   FloatComplexNDArray sum (int dim = -1) const;
-       ComplexNDArray dsum (int dim = -1) const;
+  ComplexNDArray dsum (int dim = -1) const;
   FloatComplexNDArray sumsq (int dim = -1) const;
-  FloatComplexNDArray concat (const FloatComplexNDArray& rb, const Array<octave_idx_type>& ra_idx);
-  FloatComplexNDArray concat (const FloatNDArray& rb, const Array<octave_idx_type>& ra_idx);
+  FloatComplexNDArray concat (const FloatComplexNDArray& rb,
+                              const Array<octave_idx_type>& ra_idx);
+  FloatComplexNDArray concat (const FloatNDArray& rb,
+                              const Array<octave_idx_type>& ra_idx);
 
   FloatComplexNDArray max (int dim = -1) const;
   FloatComplexNDArray max (Array<octave_idx_type>& index, int dim = -1) const;
@@ -93,15 +97,20 @@
   FloatComplexNDArray min (Array<octave_idx_type>& index, int dim = -1) const;
 
   FloatComplexNDArray cummax (int dim = -1) const;
-  FloatComplexNDArray cummax (Array<octave_idx_type>& index, int dim = -1) const;
+  FloatComplexNDArray cummax (Array<octave_idx_type>& index,
+                              int dim = -1) const;
   FloatComplexNDArray cummin (int dim = -1) const;
-  FloatComplexNDArray cummin (Array<octave_idx_type>& index, int dim = -1) const;
+  FloatComplexNDArray cummin (Array<octave_idx_type>& index,
+                              int dim = -1) const;
 
   FloatComplexNDArray diff (octave_idx_type order = 1, int dim = -1) const;
 
-  FloatComplexNDArray& insert (const NDArray& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexNDArray& insert (const FloatComplexNDArray& a, octave_idx_type r, octave_idx_type c);
-  FloatComplexNDArray& insert (const FloatComplexNDArray& a, const Array<octave_idx_type>& ra_idx);
+  FloatComplexNDArray& insert (const NDArray& a,
+                               octave_idx_type r, octave_idx_type c);
+  FloatComplexNDArray& insert (const FloatComplexNDArray& a,
+                               octave_idx_type r, octave_idx_type c);
+  FloatComplexNDArray& insert (const FloatComplexNDArray& a,
+                               const Array<octave_idx_type>& ra_idx);
 
   FloatNDArray abs (void) const;
   boolNDArray isnan (void) const;
@@ -121,19 +130,22 @@
 
   FloatComplexMatrix matrix_value (void) const;
 
-  FloatComplexNDArray squeeze (void) const { return MArray<FloatComplex>::squeeze (); }
+  FloatComplexNDArray squeeze (void) const
+  { return MArray<FloatComplex>::squeeze (); }
 
   static void increment_index (Array<octave_idx_type>& ra_idx,
                                const dim_vector& dimensions,
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatComplexNDArray& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatComplexNDArray& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatComplexNDArray& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatComplexNDArray& a);
 
   //  bool all_elements_are_real (void) const;
   //  bool all_integers (float& max_val, float& min_val) const;
@@ -143,10 +155,10 @@
   FloatComplexNDArray diag (octave_idx_type m, octave_idx_type n) const;
 
   FloatComplexNDArray& changesign (void)
-    {
-      MArray<FloatComplex>::changesign ();
-      return *this;
-    }
+  {
+    MArray<FloatComplex>::changesign ();
+    return *this;
+  }
 
 };
 
@@ -165,8 +177,10 @@
 
 MARRAY_FORWARD_DEFS (MArray, FloatComplexNDArray, FloatComplex)
 
-extern OCTAVE_API FloatComplexNDArray& operator *= (FloatComplexNDArray& a, float s);
-extern OCTAVE_API FloatComplexNDArray& operator /= (FloatComplexNDArray& a, float s);
+extern OCTAVE_API FloatComplexNDArray& operator *= (FloatComplexNDArray& a,
+                                                    float s);
+extern OCTAVE_API FloatComplexNDArray& operator /= (FloatComplexNDArray& a,
+                                                    float s);
 
 BSXFUN_STDOP_DECLS (FloatComplexNDArray, OCTAVE_API)
 BSXFUN_STDREL_DECLS (FloatComplexNDArray, OCTAVE_API)
--- a/liboctave/array/fCRowVector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCRowVector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -96,7 +96,8 @@
 }
 
 FloatComplexRowVector&
-FloatComplexRowVector::insert (const FloatComplexRowVector& a, octave_idx_type c)
+FloatComplexRowVector::insert (const FloatComplexRowVector& a,
+                               octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -174,7 +175,8 @@
 }
 
 FloatComplexRowVector&
-FloatComplexRowVector::fill (const FloatComplex& val, octave_idx_type c1, octave_idx_type c2)
+FloatComplexRowVector::fill (const FloatComplex& val,
+                             octave_idx_type c1, octave_idx_type c2)
 {
   octave_idx_type len = length ();
 
@@ -283,7 +285,7 @@
   if (len == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_add2 (len, d, a.data ());
   return *this;
@@ -305,7 +307,7 @@
   if (len == 0)
     return *this;
 
-  FloatComplex *d = fortran_vec (); // Ensures only one reference to my privates!
+  FloatComplex *d = fortran_vec (); // Ensures only 1 reference to my privates!
 
   mx_inline_sub2 (len, d, a.data ());
   return *this;
--- a/liboctave/array/fCRowVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fCRowVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexRowVector_h)
-#define octave_FloatComplexRowVector_h 1
+#if !defined (octave_fCRowVector_h)
+#define octave_fCRowVector_h 1
 
 #include "MArray.h"
 #include "fRowVector.h"
@@ -32,7 +32,7 @@
 OCTAVE_API
 FloatComplexRowVector : public MArray<FloatComplex>
 {
-friend class FloatComplexColumnVector;
+  friend class FloatComplexColumnVector;
 
 public:
 
@@ -61,10 +61,10 @@
     : MArray<FloatComplex> (a) { }
 
   FloatComplexRowVector& operator = (const FloatComplexRowVector& a)
-    {
-      MArray<FloatComplex>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<FloatComplex>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatComplexRowVector& a) const;
   bool operator != (const FloatComplexRowVector& a) const;
@@ -72,12 +72,15 @@
   // destructive insert/delete/reorder operations
 
   FloatComplexRowVector& insert (const FloatRowVector& a, octave_idx_type c);
-  FloatComplexRowVector& insert (const FloatComplexRowVector& a, octave_idx_type c);
+  FloatComplexRowVector& insert (const FloatComplexRowVector& a,
+                                 octave_idx_type c);
 
   FloatComplexRowVector& fill (float val);
   FloatComplexRowVector& fill (const FloatComplex& val);
-  FloatComplexRowVector& fill (float val, octave_idx_type c1, octave_idx_type c2);
-  FloatComplexRowVector& fill (const FloatComplex& val, octave_idx_type c1, octave_idx_type c2);
+  FloatComplexRowVector& fill (float val,
+                               octave_idx_type c1, octave_idx_type c2);
+  FloatComplexRowVector& fill (const FloatComplex& val,
+                               octave_idx_type c1, octave_idx_type c2);
 
   FloatComplexRowVector append (const FloatRowVector& a) const;
   FloatComplexRowVector append (const FloatComplexRowVector& a) const;
@@ -101,10 +104,10 @@
   // row vector by matrix -> row vector
 
   friend FloatComplexRowVector operator * (const FloatComplexRowVector& a,
-                                      const FloatComplexMatrix& b);
+      const FloatComplexMatrix& b);
 
   friend FloatComplexRowVector operator * (const FloatRowVector& a,
-                                      const FloatComplexMatrix& b);
+      const FloatComplexMatrix& b);
 
   // other operations
 
@@ -113,8 +116,10 @@
 
   // i/o
 
-  friend std::ostream& operator << (std::ostream& os, const FloatComplexRowVector& a);
-  friend std::istream& operator >> (std::istream& is, FloatComplexRowVector& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const FloatComplexRowVector& a);
+  friend std::istream& operator >> (std::istream& is,
+                                    FloatComplexRowVector& a);
 
   void resize (octave_idx_type n, const FloatComplex& rfv = FloatComplex (0))
   {
@@ -122,19 +127,22 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<FloatComplex>::clear (1, n); }
+  { Array<FloatComplex>::clear (1, n); }
 
 };
 
 // row vector by column vector -> scalar
 
-FloatComplex OCTAVE_API operator * (const FloatComplexRowVector& a, const ColumnVector& b);
+FloatComplex OCTAVE_API operator * (const FloatComplexRowVector& a,
+                                    const ColumnVector& b);
 
-FloatComplex OCTAVE_API operator * (const FloatComplexRowVector& a, const FloatComplexColumnVector& b);
+FloatComplex OCTAVE_API operator * (const FloatComplexRowVector& a,
+                                    const FloatComplexColumnVector& b);
 
 // other operations
 
-OCTAVE_API FloatComplexRowVector linspace (const FloatComplex& x1, const FloatComplex& x2, octave_idx_type n);
+OCTAVE_API FloatComplexRowVector linspace (const FloatComplex& x1,
+    const FloatComplex& x2, octave_idx_type n);
 
 MARRAY_FORWARD_DEFS (MArray, FloatComplexRowVector, FloatComplex)
 
--- a/liboctave/array/fColVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fColVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatColumnVector_h)
-#define octave_FloatColumnVector_h 1
+#if !defined (octave_fColVector_h)
+#define octave_fColVector_h 1
 
 #include "MArray.h"
 
@@ -54,10 +54,10 @@
     : MArray<float> (a.as_column ()) { }
 
   FloatColumnVector& operator = (const FloatColumnVector& a)
-    {
-      MArray<float>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<float>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatColumnVector& a) const;
   bool operator != (const FloatColumnVector& a) const;
@@ -84,11 +84,13 @@
 
   // matrix by column vector -> column vector operations
 
-  friend OCTAVE_API FloatColumnVector operator * (const FloatMatrix& a, const FloatColumnVector& b);
+  friend OCTAVE_API FloatColumnVector operator * (const FloatMatrix& a,
+                                                  const FloatColumnVector& b);
 
   // diagonal matrix by column vector -> column vector operations
 
-  friend OCTAVE_API FloatColumnVector operator * (const FloatDiagMatrix& a, const FloatColumnVector& b);
+  friend OCTAVE_API FloatColumnVector operator * (const FloatDiagMatrix& a,
+                                                  const FloatColumnVector& b);
 
   // other operations
 
@@ -99,8 +101,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatColumnVector& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatColumnVector& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatColumnVector& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatColumnVector& a);
 
   void resize (octave_idx_type n, const float& rfv = 0)
   {
@@ -108,7 +112,7 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<float>::clear (n, 1); }
+  { Array<float>::clear (n, 1); }
 
 };
 
--- a/liboctave/array/fDiagMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fDiagMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -157,7 +157,8 @@
 }
 
 FloatMatrix
-FloatDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+FloatDiagMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                          octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
--- a/liboctave/array/fDiagMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fDiagMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatDiagMatrix_h)
-#define octave_FloatDiagMatrix_h 1
+#if !defined (octave_fDiagMatrix_h)
+#define octave_fDiagMatrix_h 1
 
 #include "MDiagArray2.h"
 
@@ -35,16 +35,18 @@
 OCTAVE_API
 FloatDiagMatrix : public MDiagArray2<float>
 {
-friend class FloatSVD;
-friend class FloatComplexSVD;
+  friend class FloatSVD;
+  friend class FloatComplexSVD;
 
 public:
 
   FloatDiagMatrix (void) : MDiagArray2<float> () { }
 
-  FloatDiagMatrix (octave_idx_type r, octave_idx_type c) : MDiagArray2<float> (r, c) { }
+  FloatDiagMatrix (octave_idx_type r, octave_idx_type c)
+    : MDiagArray2<float> (r, c) { }
 
-  FloatDiagMatrix (octave_idx_type r, octave_idx_type c, float val) : MDiagArray2<float> (r, c, val) { }
+  FloatDiagMatrix (octave_idx_type r, octave_idx_type c, float val)
+    : MDiagArray2<float> (r, c, val) { }
 
   FloatDiagMatrix (const FloatDiagMatrix& a) : MDiagArray2<float> (a) { }
 
@@ -59,10 +61,10 @@
     : MDiagArray2<float> (a, r, c) { }
 
   FloatDiagMatrix& operator = (const FloatDiagMatrix& a)
-    {
-      MDiagArray2<float>::operator = (a);
-      return *this;
-    }
+  {
+    MDiagArray2<float>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatDiagMatrix& a) const;
   bool operator != (const FloatDiagMatrix& a) const;
@@ -74,7 +76,9 @@
   FloatDiagMatrix& fill (const FloatColumnVector& a, octave_idx_type beg);
   FloatDiagMatrix& fill (const FloatRowVector& a, octave_idx_type beg);
 
-  FloatDiagMatrix transpose (void) const { return MDiagArray2<float>::transpose (); }
+  FloatDiagMatrix transpose (void) const
+  { return MDiagArray2<float>::transpose (); }
+
   FloatDiagMatrix abs (void) const;
 
   friend OCTAVE_API FloatDiagMatrix real (const FloatComplexDiagMatrix& a);
@@ -82,7 +86,8 @@
 
   // resize is the destructive analog for this one
 
-  FloatMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  FloatMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                       octave_idx_type r2, octave_idx_type c2) const;
 
   // extract row or column i.
 
@@ -99,14 +104,15 @@
   // other operations
 
   FloatColumnVector extract_diag (octave_idx_type k = 0) const
-    { return MDiagArray2<float>::extract_diag (k); }
+  { return MDiagArray2<float>::extract_diag (k); }
 
   FloatDET determinant (void) const;
   float rcond (void) const;
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatDiagMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatDiagMatrix& a);
 
 };
 
@@ -115,8 +121,8 @@
 
 // diagonal matrix by diagonal matrix -> diagonal matrix operations
 
-OCTAVE_API FloatDiagMatrix
-operator * (const FloatDiagMatrix& a, const FloatDiagMatrix& b);
+OCTAVE_API FloatDiagMatrix operator * (const FloatDiagMatrix& a,
+                                       const FloatDiagMatrix& b);
 
 MDIAGARRAY2_FORWARD_DEFS (MDiagArray2, FloatDiagMatrix, float)
 
--- a/liboctave/array/fMatrix.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fMatrix.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -269,8 +269,7 @@
       elem (i, ia(i)) = 1.0;
 }
 
-// FIXME -- could we use a templated mixed-type copy function
-// here?
+// FIXME: could we use a templated mixed-type copy function here?
 
 FloatMatrix::FloatMatrix (const boolMatrix& a)
   : MArray<float> (a)
@@ -317,14 +316,16 @@
 }
 
 FloatMatrix&
-FloatMatrix::insert (const FloatMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatMatrix::insert (const FloatMatrix& a,
+                     octave_idx_type r, octave_idx_type c)
 {
   Array<float>::insert (a, r, c);
   return *this;
 }
 
 FloatMatrix&
-FloatMatrix::insert (const FloatRowVector& a, octave_idx_type r, octave_idx_type c)
+FloatMatrix::insert (const FloatRowVector& a,
+                     octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -346,7 +347,8 @@
 }
 
 FloatMatrix&
-FloatMatrix::insert (const FloatColumnVector& a, octave_idx_type r, octave_idx_type c)
+FloatMatrix::insert (const FloatColumnVector& a,
+                     octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_len = a.length ();
 
@@ -368,7 +370,8 @@
 }
 
 FloatMatrix&
-FloatMatrix::insert (const FloatDiagMatrix& a, octave_idx_type r, octave_idx_type c)
+FloatMatrix::insert (const FloatDiagMatrix& a,
+                     octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
@@ -413,7 +416,8 @@
 }
 
 FloatMatrix&
-FloatMatrix::fill (float val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2)
+FloatMatrix::fill (float val, octave_idx_type r1, octave_idx_type c1,
+                   octave_idx_type r2, octave_idx_type c2)
 {
   octave_idx_type nr = rows ();
   octave_idx_type nc = cols ();
@@ -601,7 +605,8 @@
 }
 
 FloatMatrix
-FloatMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
+FloatMatrix::extract (octave_idx_type r1, octave_idx_type c1,
+                      octave_idx_type r2, octave_idx_type c2) const
 {
   if (r1 > r2) { std::swap (r1, r2); }
   if (c1 > c2) { std::swap (c1, c2); }
@@ -610,7 +615,8 @@
 }
 
 FloatMatrix
-FloatMatrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const
+FloatMatrix::extract_n (octave_idx_type r1, octave_idx_type c1,
+                        octave_idx_type nr, octave_idx_type nc) const
 {
   return index (idx_vector (r1, r1 + nr), idx_vector (c1, c1 + nc));
 }
@@ -648,7 +654,7 @@
 
 FloatMatrix
 FloatMatrix::inverse (octave_idx_type& info, float& rcon, int force,
-                 int calc_cond) const
+                      int calc_cond) const
 {
   MatrixType mattype (*this);
   return inverse (mattype, info, rcon, force, calc_cond);
@@ -671,7 +677,7 @@
 
 FloatMatrix
 FloatMatrix::tinverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                  int force, int calc_cond) const
+                       int force, int calc_cond) const
 {
   FloatMatrix retval;
 
@@ -729,7 +735,7 @@
 
 FloatMatrix
 FloatMatrix::finverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                  int force, int calc_cond) const
+                       int force, int calc_cond) const
 {
   FloatMatrix retval;
 
@@ -763,7 +769,8 @@
       // Calculate the norm of the matrix, for later use.
       float anorm = 0;
       if (calc_cond)
-        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0)).max ();
+        anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0))
+                .max ();
 
       F77_XFCN (sgetrf, SGETRF, (nc, nc, tmp_data, nr, pipvt, info));
 
@@ -810,7 +817,7 @@
 
 FloatMatrix
 FloatMatrix::inverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                 int force, int calc_cond) const
+                      int force, int calc_cond) const
 {
   int typ = mattype.type (false);
   FloatMatrix ret;
@@ -983,10 +990,12 @@
   F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*);
 
   F77_RET_T
-  F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*);
+  F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*,
+                           FloatComplex*);
 
   F77_RET_T
-  F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*);
+  F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*,
+                           FloatComplex*);
 }
 
 FloatComplexMatrix
@@ -1227,7 +1236,8 @@
 }
 
 FloatDET
-FloatMatrix::determinant (octave_idx_type& info, float& rcon, int calc_cond) const
+FloatMatrix::determinant (octave_idx_type& info, float& rcon,
+                          int calc_cond) const
 {
   MatrixType mattype (*this);
   return determinant (mattype, info, rcon, calc_cond);
@@ -1235,7 +1245,8 @@
 
 FloatDET
 FloatMatrix::determinant (MatrixType& mattype,
-                          octave_idx_type& info, float& rcon, int calc_cond) const
+                          octave_idx_type& info, float& rcon,
+                          int calc_cond) const
 {
   FloatDET retval (1.0);
 
@@ -1464,7 +1475,7 @@
               float *tmp_data = atmp.fortran_vec ();
 
               anorm = atmp.abs().sum().
-                row(static_cast<octave_idx_type>(0)).max();
+                      row(static_cast<octave_idx_type>(0)).max();
 
               F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
                                          tmp_data, nr, info
@@ -1505,7 +1516,7 @@
 
               if (anorm < 0.)
                 anorm = atmp.abs ().sum ().
-                  row(static_cast<octave_idx_type>(0)).max ();
+                        row(static_cast<octave_idx_type>(0)).max ();
 
               Array<float> z (dim_vector (4 * nc, 1));
               float *pz = z.fortran_vec ();
@@ -1540,9 +1551,10 @@
 }
 
 FloatMatrix
-FloatMatrix::utsolve (MatrixType &mattype, const FloatMatrix& b, octave_idx_type& info,
-                float& rcon, solve_singularity_handler sing_handler,
-                bool calc_cond, blas_trans_type transt) const
+FloatMatrix::utsolve (MatrixType &mattype, const FloatMatrix& b,
+                      octave_idx_type& info,
+                      float& rcon, solve_singularity_handler sing_handler,
+                      bool calc_cond, blas_trans_type transt) const
 {
   FloatMatrix retval;
 
@@ -1640,9 +1652,10 @@
 }
 
 FloatMatrix
-FloatMatrix::ltsolve (MatrixType &mattype, const FloatMatrix& b, octave_idx_type& info,
-                float& rcon, solve_singularity_handler sing_handler,
-                bool calc_cond, blas_trans_type transt) const
+FloatMatrix::ltsolve (MatrixType &mattype, const FloatMatrix& b,
+                      octave_idx_type& info,
+                      float& rcon, solve_singularity_handler sing_handler,
+                      bool calc_cond, blas_trans_type transt) const
 {
   FloatMatrix retval;
 
@@ -1740,9 +1753,10 @@
 }
 
 FloatMatrix
-FloatMatrix::fsolve (MatrixType &mattype, const FloatMatrix& b, octave_idx_type& info,
-                float& rcon, solve_singularity_handler sing_handler,
-                bool calc_cond) const
+FloatMatrix::fsolve (MatrixType &mattype, const FloatMatrix& b,
+                     octave_idx_type& info,
+                     float& rcon, solve_singularity_handler sing_handler,
+                     bool calc_cond) const
 {
   FloatMatrix retval;
 
@@ -1758,7 +1772,7 @@
     {
       volatile int typ = mattype.type ();
 
-     // Calculate the norm of the matrix, for later use.
+      // Calculate the norm of the matrix, for later use.
       float anorm = -1.;
 
       if (typ == MatrixType::Hermitian)
@@ -1846,7 +1860,7 @@
           FloatMatrix atmp = *this;
           float *tmp_data = atmp.fortran_vec ();
 
-          if(anorm < 0.)
+          if (anorm < 0.)
             anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max();
 
           Array<float> z (dim_vector (4 * nc, 1));
@@ -1933,23 +1947,25 @@
 }
 
 FloatMatrix
-FloatMatrix::solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info) const
+FloatMatrix::solve (MatrixType &typ, const FloatMatrix& b,
+                    octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatMatrix
-FloatMatrix::solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-               float& rcon) const
+FloatMatrix::solve (MatrixType &typ, const FloatMatrix& b,
+                    octave_idx_type& info, float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatMatrix
-FloatMatrix::solve (MatrixType &mattype, const FloatMatrix& b, octave_idx_type& info,
-               float& rcon, solve_singularity_handler sing_handler,
-               bool singular_fallback, blas_trans_type transt) const
+FloatMatrix::solve (MatrixType &mattype, const FloatMatrix& b,
+                    octave_idx_type& info,
+                    float& rcon, solve_singularity_handler sing_handler,
+                    bool singular_fallback, blas_trans_type transt) const
 {
   FloatMatrix retval;
   int typ = mattype.type ();
@@ -1963,7 +1979,8 @@
   else if (typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower)
     retval = ltsolve (mattype, b, info, rcon, sing_handler, false, transt);
   else if (transt == blas_trans || transt == blas_conj_trans)
-    return transpose ().solve (mattype, b, info, rcon, sing_handler, singular_fallback);
+    return transpose ().solve (mattype, b, info, rcon, sing_handler,
+                               singular_fallback);
   else if (typ == MatrixType::Full || typ == MatrixType::Hermitian)
     retval = fsolve (mattype, b, info, rcon, sing_handler, true);
   else if (typ != MatrixType::Rectangular)
@@ -1992,15 +2009,16 @@
 
 FloatComplexMatrix
 FloatMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b,
-  octave_idx_type& info) const
+                    octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatComplexMatrix
-FloatMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b, octave_idx_type& info,
-               float& rcon) const
+FloatMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b,
+                    octave_idx_type& info,
+                    float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
@@ -2033,9 +2051,10 @@
 }
 
 FloatComplexMatrix
-FloatMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b, octave_idx_type& info,
-               float& rcon, solve_singularity_handler sing_handler,
-               bool singular_fallback, blas_trans_type transt) const
+FloatMatrix::solve (MatrixType &typ, const FloatComplexMatrix& b,
+                    octave_idx_type& info,
+                    float& rcon, solve_singularity_handler sing_handler,
+                    bool singular_fallback, blas_trans_type transt) const
 {
   FloatMatrix tmp = stack_complex_matrix (b);
   tmp = solve (typ, tmp, info, rcon, sing_handler, singular_fallback, transt);
@@ -2051,22 +2070,25 @@
 
 FloatColumnVector
 FloatMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
-               octave_idx_type& info) const
+                    octave_idx_type& info) const
 {
   float rcon;
   return solve (typ, b, info, rcon);
 }
 
 FloatColumnVector
-FloatMatrix::solve (MatrixType &typ, const FloatColumnVector& b, octave_idx_type& info,
-               float& rcon) const
+FloatMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
+                    octave_idx_type& info,
+                    float& rcon) const
 {
   return solve (typ, b, info, rcon, 0);
 }
 
 FloatColumnVector
-FloatMatrix::solve (MatrixType &typ, const FloatColumnVector& b, octave_idx_type& info,
-               float& rcon, solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatMatrix::solve (MatrixType &typ, const FloatColumnVector& b,
+                    octave_idx_type& info,
+                    float& rcon, solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   FloatMatrix tmp (b);
   tmp = solve (typ, tmp, info, rcon, sing_handler, true, transt);
@@ -2082,7 +2104,7 @@
 
 FloatComplexColumnVector
 FloatMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-               octave_idx_type& info) const
+                    octave_idx_type& info) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (typ, b, info);
@@ -2090,7 +2112,7 @@
 
 FloatComplexColumnVector
 FloatMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-               octave_idx_type& info, float& rcon) const
+                    octave_idx_type& info, float& rcon) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (typ, b, info, rcon);
@@ -2098,8 +2120,9 @@
 
 FloatComplexColumnVector
 FloatMatrix::solve (MatrixType &typ, const FloatComplexColumnVector& b,
-               octave_idx_type& info, float& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+                    octave_idx_type& info, float& rcon,
+                    solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (typ, b, info, rcon, sing_handler, transt);
@@ -2121,14 +2144,16 @@
 }
 
 FloatMatrix
-FloatMatrix::solve (const FloatMatrix& b, octave_idx_type& info, float& rcon) const
+FloatMatrix::solve (const FloatMatrix& b, octave_idx_type& info,
+                    float& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 FloatMatrix
 FloatMatrix::solve (const FloatMatrix& b, octave_idx_type& info,
-               float& rcon, solve_singularity_handler sing_handler, blas_trans_type transt) const
+                    float& rcon, solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, true, transt);
@@ -2149,15 +2174,18 @@
 }
 
 FloatComplexMatrix
-FloatMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon) const
+FloatMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                    float& rcon) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon);
 }
 
 FloatComplexMatrix
-FloatMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatMatrix::solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                    float& rcon,
+                    solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon, sing_handler, transt);
@@ -2178,14 +2206,16 @@
 }
 
 FloatColumnVector
-FloatMatrix::solve (const FloatColumnVector& b, octave_idx_type& info, float& rcon) const
+FloatMatrix::solve (const FloatColumnVector& b, octave_idx_type& info,
+                    float& rcon) const
 {
   return solve (b, info, rcon, 0);
 }
 
 FloatColumnVector
-FloatMatrix::solve (const FloatColumnVector& b, octave_idx_type& info, float& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatMatrix::solve (const FloatColumnVector& b, octave_idx_type& info,
+                    float& rcon, solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   MatrixType mattype (*this);
   return solve (mattype, b, info, rcon, sing_handler, transt);
@@ -2199,22 +2229,25 @@
 }
 
 FloatComplexColumnVector
-FloatMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info) const
+FloatMatrix::solve (const FloatComplexColumnVector& b,
+                    octave_idx_type& info) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (b, info);
 }
 
 FloatComplexColumnVector
-FloatMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info, float& rcon) const
+FloatMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info,
+                    float& rcon) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon);
 }
 
 FloatComplexColumnVector
-FloatMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info, float& rcon,
-               solve_singularity_handler sing_handler, blas_trans_type transt) const
+FloatMatrix::solve (const FloatComplexColumnVector& b, octave_idx_type& info,
+                    float& rcon, solve_singularity_handler sing_handler,
+                    blas_trans_type transt) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.solve (b, info, rcon, sing_handler, transt);
@@ -2239,7 +2272,7 @@
 
 FloatMatrix
 FloatMatrix::lssolve (const FloatMatrix& b, octave_idx_type& info,
-                 octave_idx_type& rank) const
+                      octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (b, info, rank, rcon);
@@ -2247,7 +2280,7 @@
 
 FloatMatrix
 FloatMatrix::lssolve (const FloatMatrix& b, octave_idx_type& info,
-                 octave_idx_type& rank, float &rcon) const
+                      octave_idx_type& rank, float &rcon) const
 {
   FloatMatrix retval;
 
@@ -2403,7 +2436,7 @@
 
 FloatComplexMatrix
 FloatMatrix::lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                 octave_idx_type& rank) const
+                      octave_idx_type& rank) const
 {
   FloatComplexMatrix tmp (*this);
   float rcon;
@@ -2412,7 +2445,7 @@
 
 FloatComplexMatrix
 FloatMatrix::lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                 octave_idx_type& rank, float& rcon) const
+                      octave_idx_type& rank, float& rcon) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.lssolve (b, info, rank, rcon);
@@ -2437,7 +2470,7 @@
 
 FloatColumnVector
 FloatMatrix::lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                 octave_idx_type& rank) const
+                      octave_idx_type& rank) const
 {
   float rcon;
   return lssolve (b, info, rank, rcon);
@@ -2445,7 +2478,7 @@
 
 FloatColumnVector
 FloatMatrix::lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                 octave_idx_type& rank, float &rcon) const
+                      octave_idx_type& rank, float &rcon) const
 {
   FloatColumnVector retval;
 
@@ -2550,7 +2583,8 @@
 }
 
 FloatComplexColumnVector
-FloatMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info) const
+FloatMatrix::lssolve (const FloatComplexColumnVector& b,
+                      octave_idx_type& info) const
 {
   FloatComplexMatrix tmp (*this);
   octave_idx_type rank;
@@ -2560,7 +2594,7 @@
 
 FloatComplexColumnVector
 FloatMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                 octave_idx_type& rank) const
+                      octave_idx_type& rank) const
 {
   FloatComplexMatrix tmp (*this);
   float rcon;
@@ -2569,7 +2603,7 @@
 
 FloatComplexColumnVector
 FloatMatrix::lssolve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                 octave_idx_type& rank, float &rcon) const
+                      octave_idx_type& rank, float &rcon) const
 {
   FloatComplexMatrix tmp (*this);
   return tmp.lssolve (b, info, rank, rcon);
@@ -2734,8 +2768,7 @@
   return false;
 }
 
-// FIXME Do these really belong here?  Maybe they should be
-// in a base class?
+// FIXME: Do these really belong here?  Maybe they should be in a base class?
 
 boolMatrix
 FloatMatrix::all (int dim) const
@@ -3063,7 +3096,7 @@
           }
     }
 
- done:
+done:
 
   return is;
 }
@@ -3090,8 +3123,7 @@
 {
   FloatMatrix retval;
 
-  // FIXME -- need to check that a, b, and c are all the same
-  // size.
+  // FIXME: need to check that a, b, and c are all the same size.
 
   // Compute Schur decompositions.
 
@@ -3129,7 +3161,7 @@
                              F77_CHAR_ARG_LEN (1)));
 
 
-  // FIXME -- check info?
+  // FIXME: check info?
 
   retval = -ua*cx*ub.transpose ();
 
@@ -3256,8 +3288,7 @@
   return xgemm (a, b);
 }
 
-// FIXME -- it would be nice to share code among the min/max
-// functions below.
+// FIXME: it would be nice to share code among the min/max functions below.
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
@@ -3407,7 +3438,8 @@
   octave_idx_type m = x1.length ();
 
   if (x2.length () != m)
-    (*current_liboctave_error_handler) ("linspace: vectors must be of equal length");
+    (*current_liboctave_error_handler)
+      ("linspace: vectors must be of equal length");
 
   NoAlias<FloatMatrix> retval;
 
--- a/liboctave/array/fMatrix.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fMatrix.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatMatrix_int_h)
-#define octave_FloatMatrix_int_h 1
+#if !defined (octave_fMatrix_h)
+#define octave_fMatrix_h 1
 
 #include "MArray.h"
 #include "MDiagArray2.h"
@@ -77,10 +77,10 @@
 
 
   FloatMatrix& operator = (const FloatMatrix& a)
-    {
-      MArray<float>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<float>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatMatrix& a) const;
   bool operator != (const FloatMatrix& a) const;
@@ -89,13 +89,18 @@
 
   // destructive insert/delete/reorder operations
 
-  FloatMatrix& insert (const FloatMatrix& a, octave_idx_type r, octave_idx_type c);
-  FloatMatrix& insert (const FloatRowVector& a, octave_idx_type r, octave_idx_type c);
-  FloatMatrix& insert (const FloatColumnVector& a, octave_idx_type r, octave_idx_type c);
-  FloatMatrix& insert (const FloatDiagMatrix& a, octave_idx_type r, octave_idx_type c);
+  FloatMatrix& insert (const FloatMatrix& a,
+                       octave_idx_type r, octave_idx_type c);
+  FloatMatrix& insert (const FloatRowVector& a,
+                       octave_idx_type r, octave_idx_type c);
+  FloatMatrix& insert (const FloatColumnVector& a,
+                       octave_idx_type r, octave_idx_type c);
+  FloatMatrix& insert (const FloatDiagMatrix& a,
+                       octave_idx_type r, octave_idx_type c);
 
   FloatMatrix& fill (float val);
-  FloatMatrix& fill (float val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2);
+  FloatMatrix& fill (float val, octave_idx_type r1, octave_idx_type c1,
+                     octave_idx_type r2, octave_idx_type c2);
 
   FloatMatrix append (const FloatMatrix& a) const;
   FloatMatrix append (const FloatRowVector& a) const;
@@ -116,9 +121,11 @@
 
   // resize is the destructive equivalent for this one
 
-  FloatMatrix extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const;
+  FloatMatrix extract (octave_idx_type r1, octave_idx_type c1,
+                       octave_idx_type r2, octave_idx_type c2) const;
 
-  FloatMatrix extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const;
+  FloatMatrix extract_n (octave_idx_type r1, octave_idx_type c1,
+                         octave_idx_type nr, octave_idx_type nc) const;
 
   // extract row or column i.
 
@@ -132,22 +139,22 @@
   }
 
 private:
-  FloatMatrix tinverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                   int force, int calc_cond) const;
+  FloatMatrix tinverse (MatrixType &mattype, octave_idx_type& info,
+                        float& rcon, int force, int calc_cond) const;
 
-  FloatMatrix finverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                   int force, int calc_cond) const;
+  FloatMatrix finverse (MatrixType &mattype, octave_idx_type& info,
+                        float& rcon, int force, int calc_cond) const;
 
 public:
   FloatMatrix inverse (void) const;
   FloatMatrix inverse (octave_idx_type& info) const;
   FloatMatrix inverse (octave_idx_type& info, float& rcon, int force = 0,
-                  int calc_cond = 1) const;
+                       int calc_cond = 1) const;
 
   FloatMatrix inverse (MatrixType &mattype) const;
   FloatMatrix inverse (MatrixType &mattype, octave_idx_type& info) const;
   FloatMatrix inverse (MatrixType &mattype, octave_idx_type& info, float& rcon,
-                  int force = 0, int calc_cond = 1) const;
+                       int force = 0, int calc_cond = 1) const;
 
   FloatMatrix pseudo_inverse (float tol = 0.0) const;
 
@@ -159,7 +166,8 @@
 
   FloatDET determinant (void) const;
   FloatDET determinant (octave_idx_type& info) const;
-  FloatDET determinant (octave_idx_type& info, float& rcon, int calc_cond = 1) const;
+  FloatDET determinant (octave_idx_type& info, float& rcon,
+                        int calc_cond = 1) const;
   FloatDET determinant (MatrixType &mattype, octave_idx_type& info,
                         float& rcon, int calc_cond = 1) const;
 
@@ -168,122 +176,149 @@
 
 private:
   // Upper triangular matrix solvers
-  FloatMatrix utsolve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                  float& rcon, solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+  FloatMatrix utsolve (MatrixType &typ, const FloatMatrix& b,
+                       octave_idx_type& info,
+                       float& rcon, solve_singularity_handler sing_handler,
+                       bool calc_cond = false,
+                       blas_trans_type transt = blas_no_trans) const;
 
   // Lower triangular matrix solvers
-  FloatMatrix ltsolve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                  float& rcon, solve_singularity_handler sing_handler,
-                  bool calc_cond = false, blas_trans_type transt = blas_no_trans) const;
+  FloatMatrix ltsolve (MatrixType &typ, const FloatMatrix& b,
+                       octave_idx_type& info,
+                       float& rcon, solve_singularity_handler sing_handler,
+                       bool calc_cond = false,
+                       blas_trans_type transt = blas_no_trans) const;
 
   // Full matrix solvers (lu/cholesky)
-  FloatMatrix fsolve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                 float& rcon, solve_singularity_handler sing_handler,
-                 bool calc_cond = false) const;
+  FloatMatrix fsolve (MatrixType &typ, const FloatMatrix& b,
+                      octave_idx_type& info,
+                      float& rcon, solve_singularity_handler sing_handler,
+                      bool calc_cond = false) const;
 
 public:
   // Generic interface to solver with no probing of type
   FloatMatrix solve (MatrixType &typ, const FloatMatrix& b) const;
-  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info) const;
-  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                float& rcon) const;
-  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b, octave_idx_type& info,
-                float& rcon, solve_singularity_handler sing_handler,
-                bool singular_fallback = true, blas_trans_type transt = blas_no_trans) const;
+  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b,
+                     octave_idx_type& info) const;
+  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b,
+                     octave_idx_type& info, float& rcon) const;
+  FloatMatrix solve (MatrixType &typ, const FloatMatrix& b,
+                     octave_idx_type& info, float& rcon,
+                     solve_singularity_handler sing_handler,
+                     bool singular_fallback = true,
+                     blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info) const;
+                            octave_idx_type& info) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info, float& rcon) const;
+                            octave_idx_type& info, float& rcon) const;
   FloatComplexMatrix solve (MatrixType &typ, const FloatComplexMatrix& b,
-                       octave_idx_type& info, float& rcon,
-                       solve_singularity_handler sing_handler,
-                       bool singular_fallback = true,
-                       blas_trans_type transt = blas_no_trans) const;
+                            octave_idx_type& info, float& rcon,
+                            solve_singularity_handler sing_handler,
+                            bool singular_fallback = true,
+                            blas_trans_type transt = blas_no_trans) const;
 
   FloatColumnVector solve (MatrixType &typ, const FloatColumnVector& b) const;
   FloatColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info) const;
+                           octave_idx_type& info) const;
   FloatColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info, float& rcon) const;
+                           octave_idx_type& info, float& rcon) const;
   FloatColumnVector solve (MatrixType &typ, const FloatColumnVector& b,
-                      octave_idx_type& info, float& rcon,
-                      solve_singularity_handler sing_handler,
-                      blas_trans_type transt = blas_no_trans) const;
+                           octave_idx_type& info, float& rcon,
+                           solve_singularity_handler sing_handler,
+                           blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexColumnVector solve (MatrixType &typ,
-                             const FloatComplexColumnVector& b) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info, float& rcon) const;
-  FloatComplexColumnVector solve (MatrixType &typ, const FloatComplexColumnVector& b,
-                             octave_idx_type& info, float& rcon,
-                             solve_singularity_handler sing_handler, blas_trans_type transt = blas_no_trans) const;
+                                  const FloatComplexColumnVector& b) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info, float& rcon) const;
+  FloatComplexColumnVector solve (MatrixType &typ,
+                                  const FloatComplexColumnVector& b,
+                                  octave_idx_type& info, float& rcon,
+                                  solve_singularity_handler sing_handler,
+                                  blas_trans_type transt = blas_no_trans) const;
 
   // Generic interface to solver with probing of type
   FloatMatrix solve (const FloatMatrix& b) const;
   FloatMatrix solve (const FloatMatrix& b, octave_idx_type& info) const;
-  FloatMatrix solve (const FloatMatrix& b, octave_idx_type& info, float& rcon) const;
+  FloatMatrix solve (const FloatMatrix& b, octave_idx_type& info,
+                     float& rcon) const;
   FloatMatrix solve (const FloatMatrix& b, octave_idx_type& info, float& rcon,
                      solve_singularity_handler sing_handler,
                      blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexMatrix solve (const FloatComplexMatrix& b) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon) const;
-  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info, float& rcon,
+  FloatComplexMatrix solve (const FloatComplexMatrix& b,
+                            octave_idx_type& info) const;
+  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                            float& rcon) const;
+  FloatComplexMatrix solve (const FloatComplexMatrix& b, octave_idx_type& info,
+                            float& rcon,
                             solve_singularity_handler sing_handler,
                             blas_trans_type transt = blas_no_trans) const;
 
   FloatColumnVector solve (const FloatColumnVector& b) const;
-  FloatColumnVector solve (const FloatColumnVector& b, octave_idx_type& info) const;
-  FloatColumnVector solve (const FloatColumnVector& b, octave_idx_type& info, float& rcon) const;
-  FloatColumnVector solve (const FloatColumnVector& b, octave_idx_type& info, float& rcon,
+  FloatColumnVector solve (const FloatColumnVector& b,
+                           octave_idx_type& info) const;
+  FloatColumnVector solve (const FloatColumnVector& b, octave_idx_type& info,
+                           float& rcon) const;
+  FloatColumnVector solve (const FloatColumnVector& b, octave_idx_type& info,
+                           float& rcon,
                            solve_singularity_handler sing_handler,
                            blas_trans_type transt = blas_no_trans) const;
 
   FloatComplexColumnVector solve (const FloatComplexColumnVector& b) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info,
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info) const;
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info,
                                   float& rcon) const;
-  FloatComplexColumnVector solve (const FloatComplexColumnVector& b, octave_idx_type& info,
-                                  float& rcon, solve_singularity_handler sing_handler,
+  FloatComplexColumnVector solve (const FloatComplexColumnVector& b,
+                                  octave_idx_type& info,
+                                  float& rcon,
+                                  solve_singularity_handler sing_handler,
                                   blas_trans_type transt = blas_no_trans) const;
 
   // Singular solvers
   FloatMatrix lssolve (const FloatMatrix& b) const;
   FloatMatrix lssolve (const FloatMatrix& b, octave_idx_type& info) const;
   FloatMatrix lssolve (const FloatMatrix& b, octave_idx_type& info,
-                  octave_idx_type& rank) const;
+                       octave_idx_type& rank) const;
   FloatMatrix lssolve (const FloatMatrix& b, octave_idx_type& info,
-                  octave_idx_type& rank, float& rcon) const;
+                       octave_idx_type& rank, float& rcon) const;
 
   FloatComplexMatrix lssolve (const FloatComplexMatrix& b) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank) const;
-  FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info,
-                         octave_idx_type& rank, float &rcon) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info,
+                              octave_idx_type& rank) const;
+  FloatComplexMatrix lssolve (const FloatComplexMatrix& b,
+                              octave_idx_type& info, octave_idx_type& rank,
+                              float &rcon) const;
 
   FloatColumnVector lssolve (const FloatColumnVector& b) const;
-  FloatColumnVector lssolve (const FloatColumnVector& b, octave_idx_type& info) const;
+  FloatColumnVector lssolve (const FloatColumnVector& b,
+                             octave_idx_type& info) const;
   FloatColumnVector lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank) const;
+                             octave_idx_type& rank) const;
   FloatColumnVector lssolve (const FloatColumnVector& b, octave_idx_type& info,
-                        octave_idx_type& rank, float& rcon) const;
+                             octave_idx_type& rank, float& rcon) const;
 
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info) const;
+                                    octave_idx_type& info) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info,
-                               octave_idx_type& rank) const;
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank) const;
   FloatComplexColumnVector lssolve (const FloatComplexColumnVector& b,
-                               octave_idx_type& info,
-                               octave_idx_type& rank, float& rcon) const;
+                                    octave_idx_type& info,
+                                    octave_idx_type& rank, float& rcon) const;
 
   FloatMatrix& operator += (const FloatDiagMatrix& a);
   FloatMatrix& operator -= (const FloatDiagMatrix& a);
@@ -331,8 +366,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatMatrix& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatMatrix& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatMatrix& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatMatrix& a);
 };
 
 // Publish externally used friend functions.
@@ -342,19 +379,22 @@
 
 // column vector by row vector -> matrix operations
 
-extern OCTAVE_API FloatMatrix operator * (const FloatColumnVector& a, const FloatRowVector& b);
+extern OCTAVE_API FloatMatrix operator * (const FloatColumnVector& a,
+                                          const FloatRowVector& b);
 
 // Other functions.
 
 extern OCTAVE_API FloatMatrix Givens (float, float);
 
-extern OCTAVE_API FloatMatrix Sylvester (const FloatMatrix&, const FloatMatrix&, const FloatMatrix&);
+extern OCTAVE_API FloatMatrix Sylvester (const FloatMatrix&, const FloatMatrix&,
+                                         const FloatMatrix&);
 
 extern OCTAVE_API FloatMatrix xgemm (const FloatMatrix& a, const FloatMatrix& b,
                                      blas_trans_type transa = blas_no_trans,
                                      blas_trans_type transb = blas_no_trans);
 
-extern OCTAVE_API FloatMatrix operator * (const FloatMatrix& a, const FloatMatrix& b);
+extern OCTAVE_API FloatMatrix operator * (const FloatMatrix& a,
+                                          const FloatMatrix& b);
 
 extern OCTAVE_API FloatMatrix min (float d, const FloatMatrix& m);
 extern OCTAVE_API FloatMatrix min (const FloatMatrix& m, float d);
--- a/liboctave/array/fNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -110,7 +110,7 @@
   // Need to be careful here about the distance between fft's
   for (octave_idx_type k = 0; k < nloop; k++)
     octave_fftw::ifft (out + k * stride * n, out + k * stride * n,
-                      n, howmany, stride, dist);
+                       n, howmany, stride, dist);
 
   return retval;
 }
@@ -294,7 +294,7 @@
 
           for (octave_idx_type i = 0; i < npts; i++)
             retval((i + k*npts)*stride + j*dist) = tmp[i] /
-              static_cast<float> (npts);
+                                                   static_cast<float> (npts);
         }
     }
 
@@ -387,8 +387,8 @@
               F77_FUNC (cfftb, CFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<float> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<float> (npts);
             }
         }
 
@@ -482,8 +482,8 @@
               F77_FUNC (cfftb, CFFTB) (npts, prow, pwsave);
 
               for (octave_idx_type l = 0; l < npts; l++)
-                retval((l + k*npts)*stride + j*dist) = prow[l] /
-                  static_cast<float> (npts);
+                retval((l + k*npts)*stride + j*dist) =
+                  prow[l] / static_cast<float> (npts);
             }
         }
 
@@ -595,7 +595,7 @@
   return false;
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 boolNDArray
 FloatNDArray::all (int dim) const
@@ -700,7 +700,8 @@
 }
 
 FloatNDArray
-FloatNDArray::concat (const FloatNDArray& rb, const Array<octave_idx_type>& ra_idx)
+FloatNDArray::concat (const FloatNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
@@ -708,7 +709,8 @@
 }
 
 FloatComplexNDArray
-FloatNDArray::concat (const FloatComplexNDArray& rb, const Array<octave_idx_type>& ra_idx)
+FloatNDArray::concat (const FloatComplexNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx)
 {
   FloatComplexNDArray retval (*this);
   if (rb.numel () > 0)
@@ -717,7 +719,8 @@
 }
 
 charNDArray
-FloatNDArray::concat (const charNDArray& rb, const Array<octave_idx_type>& ra_idx)
+FloatNDArray::concat (const charNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx)
 {
   charNDArray retval (dims ());
   octave_idx_type nel = numel ();
@@ -737,8 +740,7 @@
           octave_idx_type ival = NINTbig (d);
 
           if (ival < 0 || ival > std::numeric_limits<unsigned char>::max ())
-            // FIXME -- is there something
-            // better we could do? Should we warn the user?
+            // FIXME: is there something better to do?  Should we warn the user?
             ival = 0;
 
           retval.elem (i) = static_cast<char>(ival);
@@ -765,14 +767,16 @@
 }
 
 FloatNDArray&
-FloatNDArray::insert (const FloatNDArray& a, octave_idx_type r, octave_idx_type c)
+FloatNDArray::insert (const FloatNDArray& a,
+                      octave_idx_type r, octave_idx_type c)
 {
   Array<float>::insert (a, r, c);
   return *this;
 }
 
 FloatNDArray&
-FloatNDArray::insert (const FloatNDArray& a, const Array<octave_idx_type>& ra_idx)
+FloatNDArray::insert (const FloatNDArray& a,
+                      const Array<octave_idx_type>& ra_idx)
 {
   Array<float>::insert (a, ra_idx);
   return *this;
@@ -808,7 +812,7 @@
   FloatMatrix retval;
 
   if (ndims () == 2)
-      retval = FloatMatrix (Array<float> (*this));
+    retval = FloatMatrix (Array<float> (*this));
   else
     (*current_liboctave_error_handler)
       ("invalid conversion of FloatNDArray to FloatMatrix");
@@ -818,15 +822,15 @@
 
 void
 FloatNDArray::increment_index (Array<octave_idx_type>& ra_idx,
-                          const dim_vector& dimensions,
-                          int start_dimension)
+                               const dim_vector& dimensions,
+                               int start_dimension)
 {
   ::increment_index (ra_idx, dimensions, start_dimension);
 }
 
 octave_idx_type
 FloatNDArray::compute_index (Array<octave_idx_type>& ra_idx,
-                        const dim_vector& dimensions)
+                             const dim_vector& dimensions)
 {
   return ::compute_index (ra_idx, dimensions);
 }
@@ -867,16 +871,16 @@
     {
       float tmp;
       for (octave_idx_type i = 0; i < nel; i++)
-          {
-            tmp = octave_read_value<float> (is);
-            if (is)
-              a.elem (i) = tmp;
-            else
-              goto done;
-          }
+        {
+          tmp = octave_read_value<float> (is);
+          if (is)
+            a.elem (i) = tmp;
+          else
+            goto done;
+        }
     }
 
- done:
+done:
 
   return is;
 }
--- a/liboctave/array/fNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatNDArray_h)
-#define octave_FloatNDArray_h 1
+#if !defined (octave_fNDArray_h)
+#define octave_fNDArray_h 1
 
 #include "MArray.h"
 #include "fMatrix.h"
@@ -62,10 +62,10 @@
   FloatNDArray (const charNDArray&);
 
   FloatNDArray& operator = (const FloatNDArray& a)
-    {
-      MArray<float>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<float>::operator = (a);
+    return *this;
+  }
 
   // unary operations
 
@@ -82,7 +82,7 @@
   bool all_integers (void) const;
   bool too_large_for_float (void) const;
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   boolNDArray all (int dim = -1) const;
   boolNDArray any (int dim = -1) const;
@@ -91,11 +91,14 @@
   FloatNDArray cumsum (int dim = -1) const;
   FloatNDArray prod (int dim = -1) const;
   FloatNDArray sum (int dim = -1) const;
-       NDArray dsum (int dim = -1) const;
+  NDArray dsum (int dim = -1) const;
   FloatNDArray sumsq (int dim = -1) const;
-  FloatNDArray concat (const FloatNDArray& rb, const Array<octave_idx_type>& ra_idx);
-  FloatComplexNDArray concat (const FloatComplexNDArray& rb, const Array<octave_idx_type>& ra_idx);
-  charNDArray concat (const charNDArray& rb, const Array<octave_idx_type>& ra_idx);
+  FloatNDArray concat (const FloatNDArray& rb,
+                       const Array<octave_idx_type>& ra_idx);
+  FloatComplexNDArray concat (const FloatComplexNDArray& rb,
+                              const Array<octave_idx_type>& ra_idx);
+  charNDArray concat (const charNDArray& rb,
+                      const Array<octave_idx_type>& ra_idx);
 
   FloatNDArray max (int dim = -1) const;
   FloatNDArray max (Array<octave_idx_type>& index, int dim = -1) const;
@@ -109,8 +112,10 @@
 
   FloatNDArray diff (octave_idx_type order = 1, int dim = -1) const;
 
-  FloatNDArray& insert (const FloatNDArray& a, octave_idx_type r, octave_idx_type c);
-  FloatNDArray& insert (const FloatNDArray& a, const Array<octave_idx_type>& ra_idx);
+  FloatNDArray& insert (const FloatNDArray& a,
+                        octave_idx_type r, octave_idx_type c);
+  FloatNDArray& insert (const FloatNDArray& a,
+                        const Array<octave_idx_type>& ra_idx);
 
   FloatNDArray abs (void) const;
   boolNDArray isnan (void) const;
@@ -140,11 +145,12 @@
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatNDArray& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatNDArray& a);
   friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatNDArray& a);
 
   FloatNDArray diag (octave_idx_type k = 0) const;
@@ -152,10 +158,10 @@
   FloatNDArray diag (octave_idx_type m, octave_idx_type n) const;
 
   FloatNDArray& changesign (void)
-    {
-      MArray<float>::changesign ();
-      return *this;
-    }
+  {
+    MArray<float>::changesign ();
+    return *this;
+  }
 
 };
 
--- a/liboctave/array/fRowVector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/fRowVector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatRowVector_h)
-#define octave_FloatRowVector_h 1
+#if !defined (octave_fRowVector_h)
+#define octave_fRowVector_h 1
 
 #include "MArray.h"
 
@@ -51,10 +51,10 @@
   FloatRowVector (const Array<float>& a) : MArray<float> (a.as_row ()) { }
 
   FloatRowVector& operator = (const FloatRowVector& a)
-    {
-      MArray<float>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<float>::operator = (a);
+    return *this;
+  }
 
   bool operator == (const FloatRowVector& a) const;
   bool operator != (const FloatRowVector& a) const;
@@ -81,7 +81,8 @@
 
   // row vector by matrix -> row vector
 
-  friend OCTAVE_API FloatRowVector operator * (const FloatRowVector& a, const FloatMatrix& b);
+  friend OCTAVE_API FloatRowVector operator * (const FloatRowVector& a,
+                                               const FloatMatrix& b);
 
   // other operations
 
@@ -90,8 +91,10 @@
 
   // i/o
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatRowVector& a);
-  friend OCTAVE_API std::istream& operator >> (std::istream& is, FloatRowVector& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatRowVector& a);
+  friend OCTAVE_API std::istream& operator >> (std::istream& is,
+                                               FloatRowVector& a);
 
   void resize (octave_idx_type n, const float& rfv = 0)
   {
@@ -99,15 +102,17 @@
   }
 
   void clear (octave_idx_type n)
-    { Array<float>::clear (1, n); }
+  { Array<float>::clear (1, n); }
 
 };
 
 // row vector by column vector -> scalar
 
-float OCTAVE_API operator * (const FloatRowVector& a, const FloatColumnVector& b);
+float OCTAVE_API operator * (const FloatRowVector& a,
+                             const FloatColumnVector& b);
 
-Complex OCTAVE_API operator * (const FloatRowVector& a, const ComplexColumnVector& b);
+Complex OCTAVE_API operator * (const FloatRowVector& a,
+                               const ComplexColumnVector& b);
 
 // other operations
 
--- a/liboctave/array/idx-vector.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/idx-vector.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -331,10 +331,10 @@
       data = d;
 
       if (err)
-      {
-        delete [] data;
-        gripe_invalid_index ();
-      }
+        {
+          delete [] data;
+          gripe_invalid_index ();
+        }
     }
 }
 
@@ -443,7 +443,7 @@
         for (octave_idx_type i = bnda.cidx(j); i < bnda.cidx(j+1); i++)
           if (bnda.data (i))
             d[k++] = j * nr + bnda.ridx (i);
- 
+
       data = d;
 
       ext = d[k-1] + 1;
@@ -496,7 +496,8 @@
 
       if (uniq)
         {
-          octave_idx_type new_len = std::unique (new_data, new_data + len) - new_data;
+          octave_idx_type new_len = std::unique (new_data, new_data + len)
+                                    - new_data;
           new_rep->len = new_len;
           if (new_rep->orig_dims.length () == 2 && new_rep->orig_dims(0) == 1)
             new_rep->orig_dims = dim_vector (1, new_len);
@@ -1096,7 +1097,7 @@
           if (mask[i])
             data[j++] = i;
       }
-    break;
+      break;
 
     default:
       assert (false);
@@ -1152,7 +1153,7 @@
         {
           octave_idx_type k = xelem (i);
           if (left[k])
-              left[k] = false;
+            left[k] = false;
           else
             {
               retval = false;
--- a/liboctave/array/idx-vector.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/idx-vector.h	Tue Nov 05 12:27:42 2013 -0500
@@ -55,14 +55,14 @@
 public:
 
   enum idx_class_type
-    {
-      class_invalid = -1,
-      class_colon = 0,
-      class_range,
-      class_scalar,
-      class_vector,
-      class_mask
-    };
+  {
+    class_invalid = -1,
+    class_colon = 0,
+    class_range,
+    class_scalar,
+    class_vector,
+    class_mask
+  };
 
   template<class T> friend class std::auto_ptr;
 
@@ -98,7 +98,7 @@
     // Checks whether the index is colon or a range equivalent to colon.
     virtual bool is_colon_equiv (octave_idx_type) const { return false; }
 
-    // The original dimensions of this object (used when subscribing by matrices).
+    // The original dimensions of object (used when subscribing by matrices).
     virtual dim_vector orig_dimensions (void) const { return dim_vector (); }
 
     // i/o
@@ -136,7 +136,7 @@
     idx_class_type idx_class (void) const { return class_colon; }
 
     idx_base_rep *sort_uniq_clone (bool = false)
-      { count++; return this; }
+    { count++; return this; }
 
     idx_base_rep *sort_idx (Array<octave_idx_type>&);
 
@@ -174,14 +174,15 @@
     idx_range_rep (const Range&);
 
     octave_idx_type xelem (octave_idx_type i) const
-      { return start + i * step; }
+    { return start + i * step; }
 
     octave_idx_type checkelem (octave_idx_type i) const;
 
     octave_idx_type length (octave_idx_type) const { return len; }
 
     octave_idx_type extent (octave_idx_type n) const
-      { return len ? std::max (n, (start + 1 + (step < 0 ? 0 : step * (len - 1)))) : n; }
+    { return len ? std::max (n, (start + 1 + (step < 0 ? 0 : step * (len - 1))))
+                 : n; }
 
     idx_class_type idx_class (void) const { return class_range; }
 
@@ -190,10 +191,10 @@
     idx_base_rep *sort_idx (Array<octave_idx_type>&);
 
     bool is_colon_equiv (octave_idx_type n) const
-      { return start == 0 && step == 1 && len == n; }
+    { return start == 0 && step == 1 && len == n; }
 
     dim_vector orig_dimensions (void) const
-      { return dim_vector (1, len); }
+    { return dim_vector (1, len); }
 
     octave_idx_type get_start (void) const { return start; }
 
@@ -240,17 +241,17 @@
     octave_idx_type length (octave_idx_type) const { return 1; }
 
     octave_idx_type extent (octave_idx_type n) const
-      { return std::max (n, data + 1); }
+    { return std::max (n, data + 1); }
 
     idx_class_type idx_class (void) const { return class_scalar; }
 
     idx_base_rep *sort_uniq_clone (bool = false)
-      { count++; return this; }
+    { count++; return this; }
 
     idx_base_rep *sort_idx (Array<octave_idx_type>&);
 
     bool is_colon_equiv (octave_idx_type n) const
-      { return n == 1 && data == 0; }
+    { return n == 1 && data == 0; }
 
     dim_vector orig_dimensions (void) const { return dim_vector (1, 1); }
 
@@ -285,7 +286,7 @@
 
     idx_vector_rep (void)
       : data (0), len (0), ext (0), aowner (0), orig_dims ()
-      { }
+    { }
 
     // Zero-based constructor.
     idx_vector_rep (const Array<octave_idx_type>& inda);
@@ -311,7 +312,7 @@
     octave_idx_type length (octave_idx_type) const { return len; }
 
     octave_idx_type extent (octave_idx_type n) const
-      { return std::max (n, ext); }
+    { return std::max (n, ext); }
 
     idx_class_type idx_class (void) const { return class_vector; }
 
@@ -366,7 +367,7 @@
     idx_mask_rep (void)
       : data (0), len (0), ext (0), lsti (-1), lste (-1), aowner (0),
         orig_dims ()
-      { }
+    { }
 
     idx_mask_rep (bool);
 
@@ -381,19 +382,19 @@
     octave_idx_type length (octave_idx_type) const { return len; }
 
     octave_idx_type extent (octave_idx_type n) const
-      { return std::max (n, ext); }
+    { return std::max (n, ext); }
 
     idx_class_type idx_class (void) const { return class_mask; }
 
     idx_base_rep *sort_uniq_clone (bool = false)
-      { count++; return this; }
+    { count++; return this; }
 
     idx_base_rep *sort_idx (Array<octave_idx_type>&);
 
     dim_vector orig_dimensions (void) const { return orig_dims; }
 
     bool is_colon_equiv (octave_idx_type n) const
-      { return len == n && ext == n; }
+    { return len == n && ext == n; }
 
     const bool *get_data (void) const { return data; }
 
@@ -437,31 +438,31 @@
   // The shared empty vector representation (for fast default
   // constructor).
   static idx_vector_rep *nil_rep (void)
-    {
-      static idx_vector_rep ivr;
-      return &ivr;
-    }
+  {
+    static idx_vector_rep ivr;
+    return &ivr;
+  }
 
   // The shared empty vector representation with the error flag set.
   static idx_vector_rep *err_rep (void)
-    {
-      static idx_vector_rep ivr;
-      ivr.err = true;
-      return &ivr;
-    }
+  {
+    static idx_vector_rep ivr;
+    ivr.err = true;
+    return &ivr;
+  }
 
   // If there was an error in constructing the rep, replace it with
   // empty vector for safety.
   void chkerr (void)
-    {
-      if (rep->err)
-        {
-          if (--rep->count == 0)
-            delete rep;
-          rep = err_rep ();
-          rep->count++;
-        }
-    }
+  {
+    if (rep->err)
+      {
+        if (--rep->count == 0)
+          delete rep;
+        rep = err_rep ();
+        rep->count++;
+      }
+  }
 
 public:
 
@@ -470,28 +471,28 @@
 
   // Zero-based constructors (for use from C++).
   idx_vector (octave_idx_type i) : rep (new idx_scalar_rep (i))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (octave_idx_type start, octave_idx_type limit,
               octave_idx_type step = 1)
     : rep (new idx_range_rep (start, limit, step))
-    { chkerr (); }
+  { chkerr (); }
 
   static idx_vector
-    make_range (octave_idx_type start, octave_idx_type step,
-                octave_idx_type len)
-    {
-      return idx_vector (new idx_range_rep (start, len, step, DIRECT));
-    }
+  make_range (octave_idx_type start, octave_idx_type step,
+              octave_idx_type len)
+  {
+    return idx_vector (new idx_range_rep (start, len, step, DIRECT));
+  }
 
   idx_vector (const Array<octave_idx_type>& inda)
     : rep (new idx_vector_rep (inda))
-    { chkerr (); }
+  { chkerr (); }
 
   // Directly pass extent, no checking.
   idx_vector (const Array<octave_idx_type>& inda, octave_idx_type ext)
     : rep (new idx_vector_rep (inda, ext, DIRECT))
-    { }
+  { }
 
   // Colon is best constructed by simply copying (or referencing) this member.
   static const idx_vector colon;
@@ -513,105 +514,105 @@
 
   template <class T>
   idx_vector (const Array<octave_int<T> >& nda) : rep (new idx_vector_rep (nda))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (const Array<double>& nda) : rep (new idx_vector_rep (nda))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (const Array<float>& nda) : rep (new idx_vector_rep (nda))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (const Array<bool>& nda);
 
   idx_vector (const Range& r)
     : rep (new idx_range_rep (r))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (const Sparse<bool>& nda) : rep (new idx_vector_rep (nda))
-    { chkerr (); }
+  { chkerr (); }
 
   idx_vector (const idx_vector& a) : rep (a.rep) { rep->count++; }
 
   ~idx_vector (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   idx_vector& operator = (const idx_vector& a)
-    {
-      if (this != &a)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (this != &a)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
-        }
-      return *this;
-    }
+        rep = a.rep;
+        rep->count++;
+      }
+    return *this;
+  }
 
   idx_class_type idx_class (void) const { return rep->idx_class (); }
 
   octave_idx_type length (octave_idx_type n = 0) const
-    { return rep->length (n); }
+  { return rep->length (n); }
 
   octave_idx_type extent (octave_idx_type n) const
-    { return rep->extent (n); }
+  { return rep->extent (n); }
 
   octave_idx_type xelem (octave_idx_type n) const
-    { return rep->xelem (n); }
+  { return rep->xelem (n); }
 
   octave_idx_type checkelem (octave_idx_type n) const
-    { return rep->checkelem (n); }
+  { return rep->checkelem (n); }
 
   octave_idx_type operator () (octave_idx_type n) const
-    {
+  {
 #if defined (BOUNDS_CHECKING)
-      return rep->checkelem (n);
+    return rep->checkelem (n);
 #else
-      return rep->xelem (n);
+    return rep->xelem (n);
 #endif
-    }
+  }
 
   operator bool (void) const
-    { return ! rep->err; }
+  { return ! rep->err; }
 
   bool is_colon (void) const
-    { return rep->idx_class () == class_colon; }
+  { return rep->idx_class () == class_colon; }
 
   bool is_scalar (void) const
-    { return rep->idx_class () == class_scalar; }
+  { return rep->idx_class () == class_scalar; }
 
   bool is_range (void) const
-    { return rep->idx_class () == class_range; }
+  { return rep->idx_class () == class_range; }
 
   bool is_colon_equiv (octave_idx_type n) const
-    { return rep->is_colon_equiv (n); }
+  { return rep->is_colon_equiv (n); }
 
   idx_vector sorted (bool uniq = false) const
-    { return idx_vector (rep->sort_uniq_clone (uniq)); }
+  { return idx_vector (rep->sort_uniq_clone (uniq)); }
 
   idx_vector sorted (Array<octave_idx_type>& sidx) const
-    { return idx_vector (rep->sort_idx (sidx)); }
+  { return idx_vector (rep->sort_idx (sidx)); }
 
   dim_vector orig_dimensions (void) const { return rep->orig_dimensions (); }
 
   octave_idx_type orig_rows (void) const
-    { return orig_dimensions () (0); }
+  { return orig_dimensions () (0); }
 
   octave_idx_type orig_columns (void) const
-    { return orig_dimensions () (1); }
+  { return orig_dimensions () (1); }
 
   int orig_empty (void) const
-    { return (! is_colon () && orig_dimensions ().any_zero ()); }
+  { return (! is_colon () && orig_dimensions ().any_zero ()); }
 
   // i/o
 
   std::ostream& print (std::ostream& os) const { return rep->print (os); }
 
   friend std::ostream& operator << (std::ostream& os, const idx_vector& a)
-    { return a.print (os); }
+  { return a.print (os); }
 
   // Slice with specializations. No checking of bounds!
   //
@@ -624,67 +625,67 @@
   template <class T>
   octave_idx_type
   index (const T *src, octave_idx_type n, T *dest) const
-    {
-      octave_idx_type len = rep->length (n);
+  {
+    octave_idx_type len = rep->length (n);
 
-      switch (rep->idx_class ())
-        {
-        case class_colon:
-          copy_or_memcpy (len, src, dest);
-          break;
+    switch (rep->idx_class ())
+      {
+      case class_colon:
+        copy_or_memcpy (len, src, dest);
+        break;
 
-        case class_range:
-          {
-            idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
-            octave_idx_type start = r->get_start (), step = r->get_step ();
-            const T *ssrc = src + start;
-            if (step == 1)
-              copy_or_memcpy (len, ssrc, dest);
-            else if (step == -1)
-              std::reverse_copy (ssrc - len + 1, ssrc + 1, dest);
-            else if (step == 0)
-              std::fill_n (dest, len, *ssrc);
-            else
-              {
-                for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
-                  dest[i] = ssrc[j];
-              }
-          }
-          break;
+      case class_range:
+        {
+          idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
+          octave_idx_type start = r->get_start (), step = r->get_step ();
+          const T *ssrc = src + start;
+          if (step == 1)
+            copy_or_memcpy (len, ssrc, dest);
+          else if (step == -1)
+            std::reverse_copy (ssrc - len + 1, ssrc + 1, dest);
+          else if (step == 0)
+            std::fill_n (dest, len, *ssrc);
+          else
+            {
+              for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
+                dest[i] = ssrc[j];
+            }
+        }
+        break;
 
-        case class_scalar:
-          {
-            idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
-            dest[0] = src[r->get_data ()];
-          }
-          break;
+      case class_scalar:
+        {
+          idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
+          dest[0] = src[r->get_data ()];
+        }
+        break;
 
-        case class_vector:
-          {
-            idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
-            const octave_idx_type *data = r->get_data ();
-            for (octave_idx_type i = 0; i < len; i++)
-              dest[i] = src[data[i]];
-          }
-          break;
+      case class_vector:
+        {
+          idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
+          const octave_idx_type *data = r->get_data ();
+          for (octave_idx_type i = 0; i < len; i++)
+            dest[i] = src[data[i]];
+        }
+        break;
 
-        case class_mask:
-          {
-            idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
-            const bool *data = r->get_data ();
-            octave_idx_type ext = r->extent (0);
-            for (octave_idx_type i = 0; i < ext; i++)
-              if (data[i]) *dest++ = src[i];
-          }
-          break;
+      case class_mask:
+        {
+          idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
+          const bool *data = r->get_data ();
+          octave_idx_type ext = r->extent (0);
+          for (octave_idx_type i = 0; i < ext; i++)
+            if (data[i]) *dest++ = src[i];
+        }
+        break;
 
-        default:
-          assert (false);
-          break;
-        }
+      default:
+        assert (false);
+        break;
+      }
 
-      return len;
-    }
+    return len;
+  }
 
   // Slice assignment with specializations. No checking of bounds!
   //
@@ -697,65 +698,65 @@
   template <class T>
   octave_idx_type
   assign (const T *src, octave_idx_type n, T *dest) const
-    {
-      octave_idx_type len = rep->length (n);
+  {
+    octave_idx_type len = rep->length (n);
 
-      switch (rep->idx_class ())
-        {
-        case class_colon:
-          copy_or_memcpy (len, src, dest);
-          break;
+    switch (rep->idx_class ())
+      {
+      case class_colon:
+        copy_or_memcpy (len, src, dest);
+        break;
 
-        case class_range:
-          {
-            idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
-            octave_idx_type start = r->get_start (), step = r->get_step ();
-            T *sdest = dest + start;
-            if (step == 1)
-              copy_or_memcpy (len, src, sdest);
-            else if (step == -1)
-              std::reverse_copy (src, src + len, sdest - len + 1);
-            else
-              {
-                for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
-                  sdest[j] = src[i];
-              }
-          }
-          break;
+      case class_range:
+        {
+          idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
+          octave_idx_type start = r->get_start (), step = r->get_step ();
+          T *sdest = dest + start;
+          if (step == 1)
+            copy_or_memcpy (len, src, sdest);
+          else if (step == -1)
+            std::reverse_copy (src, src + len, sdest - len + 1);
+          else
+            {
+              for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
+                sdest[j] = src[i];
+            }
+        }
+        break;
 
-        case class_scalar:
-          {
-            idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
-            dest[r->get_data ()] = src[0];
-          }
-          break;
+      case class_scalar:
+        {
+          idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
+          dest[r->get_data ()] = src[0];
+        }
+        break;
 
-        case class_vector:
-          {
-            idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
-            const octave_idx_type *data = r->get_data ();
-            for (octave_idx_type i = 0; i < len; i++)
-              dest[data[i]] = src[i];
-          }
-          break;
+      case class_vector:
+        {
+          idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
+          const octave_idx_type *data = r->get_data ();
+          for (octave_idx_type i = 0; i < len; i++)
+            dest[data[i]] = src[i];
+        }
+        break;
 
-        case class_mask:
-          {
-            idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
-            const bool *data = r->get_data ();
-            octave_idx_type ext = r->extent (0);
-            for (octave_idx_type i = 0; i < ext; i++)
-              if (data[i]) dest[i] = *src++;
-          }
-          break;
+      case class_mask:
+        {
+          idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
+          const bool *data = r->get_data ();
+          octave_idx_type ext = r->extent (0);
+          for (octave_idx_type i = 0; i < ext; i++)
+            if (data[i]) dest[i] = *src++;
+        }
+        break;
 
-        default:
-          assert (false);
-          break;
-        }
+      default:
+        assert (false);
+        break;
+      }
 
-      return len;
-    }
+    return len;
+  }
 
   // Slice fill with specializations. No checking of bounds!
   //
@@ -768,65 +769,65 @@
   template <class T>
   octave_idx_type
   fill (const T& val, octave_idx_type n, T *dest) const
-    {
-      octave_idx_type len = rep->length (n);
+  {
+    octave_idx_type len = rep->length (n);
 
-      switch (rep->idx_class ())
-        {
-        case class_colon:
-          std::fill (dest, dest + len, val);
-          break;
+    switch (rep->idx_class ())
+      {
+      case class_colon:
+        std::fill (dest, dest + len, val);
+        break;
 
-        case class_range:
-          {
-            idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
-            octave_idx_type start = r->get_start (), step = r->get_step ();
-            T *sdest = dest + start;
-            if (step == 1)
-              std::fill (sdest, sdest + len, val);
-            else if (step == -1)
-              std::fill (sdest - len + 1, sdest + 1, val);
-            else
-              {
-                for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
-                  sdest[j] = val;
-              }
-          }
-          break;
+      case class_range:
+        {
+          idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
+          octave_idx_type start = r->get_start (), step = r->get_step ();
+          T *sdest = dest + start;
+          if (step == 1)
+            std::fill (sdest, sdest + len, val);
+          else if (step == -1)
+            std::fill (sdest - len + 1, sdest + 1, val);
+          else
+            {
+              for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
+                sdest[j] = val;
+            }
+        }
+        break;
 
-        case class_scalar:
-          {
-            idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
-            dest[r->get_data ()] = val;
-          }
-          break;
+      case class_scalar:
+        {
+          idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
+          dest[r->get_data ()] = val;
+        }
+        break;
 
-        case class_vector:
-          {
-            idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
-            const octave_idx_type *data = r->get_data ();
-            for (octave_idx_type i = 0; i < len; i++)
-              dest[data[i]] = val;
-          }
-          break;
+      case class_vector:
+        {
+          idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
+          const octave_idx_type *data = r->get_data ();
+          for (octave_idx_type i = 0; i < len; i++)
+            dest[data[i]] = val;
+        }
+        break;
 
-        case class_mask:
-          {
-            idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
-            const bool *data = r->get_data ();
-            octave_idx_type ext = r->extent (0);
-            for (octave_idx_type i = 0; i < ext; i++)
-              if (data[i]) dest[i] = val;
-          }
-          break;
+      case class_mask:
+        {
+          idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
+          const bool *data = r->get_data ();
+          octave_idx_type ext = r->extent (0);
+          for (octave_idx_type i = 0; i < ext; i++)
+            if (data[i]) dest[i] = val;
+        }
+        break;
 
-        default:
-          assert (false);
-          break;
-        }
+      default:
+        assert (false);
+        break;
+      }
 
-      return len;
-    }
+    return len;
+  }
 
   // Generic non-breakable indexed loop. The loop body should be
   // encapsulated in a single functor body.  This is equivalent to the
@@ -837,60 +838,60 @@
   template <class Functor>
   void
   loop (octave_idx_type n, Functor body) const
-    {
-      octave_idx_type len = rep->length (n);
+  {
+    octave_idx_type len = rep->length (n);
 
-      switch (rep->idx_class ())
-        {
-        case class_colon:
-          for (octave_idx_type i = 0; i < len; i++) body (i);
-          break;
+    switch (rep->idx_class ())
+      {
+      case class_colon:
+        for (octave_idx_type i = 0; i < len; i++) body (i);
+        break;
 
-        case class_range:
-          {
-            idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
-            octave_idx_type start = r->get_start (), step = r->get_step ();
-            octave_idx_type i, j;
-            if (step == 1)
-              for (i = start, j = start + len; i < j; i++) body (i);
-            else if (step == -1)
-              for (i = start, j = start - len; i > j; i--) body (i);
-            else
-              for (i = 0, j = start; i < len; i++, j += step) body (j);
-          }
-          break;
+      case class_range:
+        {
+          idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
+          octave_idx_type start = r->get_start (), step = r->get_step ();
+          octave_idx_type i, j;
+          if (step == 1)
+            for (i = start, j = start + len; i < j; i++) body (i);
+          else if (step == -1)
+            for (i = start, j = start - len; i > j; i--) body (i);
+          else
+            for (i = 0, j = start; i < len; i++, j += step) body (j);
+        }
+        break;
 
-        case class_scalar:
-          {
-            idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
-            body (r->get_data ());
-          }
-          break;
+      case class_scalar:
+        {
+          idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
+          body (r->get_data ());
+        }
+        break;
 
-        case class_vector:
-          {
-            idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
-            const octave_idx_type *data = r->get_data ();
-            for (octave_idx_type i = 0; i < len; i++) body (data[i]);
-          }
-          break;
+      case class_vector:
+        {
+          idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
+          const octave_idx_type *data = r->get_data ();
+          for (octave_idx_type i = 0; i < len; i++) body (data[i]);
+        }
+        break;
 
-        case class_mask:
-          {
-            idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
-            const bool *data = r->get_data ();
-            octave_idx_type ext = r->extent (0);
-            for (octave_idx_type i = 0; i < ext; i++)
-              if (data[i]) body (i);
-          }
-          break;
+      case class_mask:
+        {
+          idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
+          const bool *data = r->get_data ();
+          octave_idx_type ext = r->extent (0);
+          for (octave_idx_type i = 0; i < ext; i++)
+            if (data[i]) body (i);
+        }
+        break;
 
-        default:
-          assert (false);
-          break;
-        }
+      default:
+        assert (false);
+        break;
+      }
 
-    }
+  }
 
   // Generic breakable indexed loop. The loop body should be
   // encapsulated in a single functor body.  This is equivalent to the
@@ -904,78 +905,78 @@
   template <class Functor>
   octave_idx_type
   bloop (octave_idx_type n, Functor body) const
-    {
-      octave_idx_type len = rep->length (n), ret;
+  {
+    octave_idx_type len = rep->length (n), ret;
 
-      switch (rep->idx_class ())
+    switch (rep->idx_class ())
+      {
+      case class_colon:
         {
-        case class_colon:
-          {
-            octave_idx_type i;
-            for (i = 0; i < len && body (i); i++) ;
-            ret = i;
-          }
-          break;
+          octave_idx_type i;
+          for (i = 0; i < len && body (i); i++) ;
+          ret = i;
+        }
+        break;
 
-        case class_range:
-          {
-            idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
-            octave_idx_type start = r->get_start (), step = r->get_step ();
-            octave_idx_type i, j;
-            if (step == 1)
-              for (i = start, j = start + len; i < j && body (i); i++) ;
-            else if (step == -1)
-              for (i = start, j = start - len; i > j && body (i); i--) ;
-            else
-              for (i = 0, j = start; i < len && body (j); i++, j += step) ;
-            ret = i;
-          }
-          break;
+      case class_range:
+        {
+          idx_range_rep * r = dynamic_cast<idx_range_rep *> (rep);
+          octave_idx_type start = r->get_start (), step = r->get_step ();
+          octave_idx_type i, j;
+          if (step == 1)
+            for (i = start, j = start + len; i < j && body (i); i++) ;
+          else if (step == -1)
+            for (i = start, j = start - len; i > j && body (i); i--) ;
+          else
+            for (i = 0, j = start; i < len && body (j); i++, j += step) ;
+          ret = i;
+        }
+        break;
 
-        case class_scalar:
-          {
-            idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
-            ret = body (r->get_data ()) ? 1 : 0;
-          }
-          break;
+      case class_scalar:
+        {
+          idx_scalar_rep * r = dynamic_cast<idx_scalar_rep *> (rep);
+          ret = body (r->get_data ()) ? 1 : 0;
+        }
+        break;
 
-        case class_vector:
-          {
-            idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
-            const octave_idx_type *data = r->get_data ();
-            octave_idx_type i;
-            for (i = 0; i < len && body (data[i]); i++) ;
-            ret = i;
-          }
-          break;
+      case class_vector:
+        {
+          idx_vector_rep * r = dynamic_cast<idx_vector_rep *> (rep);
+          const octave_idx_type *data = r->get_data ();
+          octave_idx_type i;
+          for (i = 0; i < len && body (data[i]); i++) ;
+          ret = i;
+        }
+        break;
 
-        case class_mask:
-          {
-            idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
-            const bool *data = r->get_data ();
-            octave_idx_type ext = r->extent (0), j = 0;
-            for (octave_idx_type i = 0; i < ext; i++)
-              {
-                if (data[i])
-                  {
-                    if (body (i))
-                      break;
-                    else
-                      j++;
-                  }
-              }
+      case class_mask:
+        {
+          idx_mask_rep * r = dynamic_cast<idx_mask_rep *> (rep);
+          const bool *data = r->get_data ();
+          octave_idx_type ext = r->extent (0), j = 0;
+          for (octave_idx_type i = 0; i < ext; i++)
+            {
+              if (data[i])
+                {
+                  if (body (i))
+                    break;
+                  else
+                    j++;
+                }
+            }
 
-            ret = j;
-          }
-          break;
+          ret = j;
+        }
+        break;
 
-        default:
-          assert (false);
-          break;
-        }
+      default:
+        assert (false);
+        break;
+      }
 
-      return ret;
-    }
+    return ret;
+  }
 
   // Rationale:
   // This method is the key to "smart indexing". When indexing cartesian
@@ -1022,20 +1023,20 @@
 
   bool is_vector (void) const;
 
-  // FIXME -- these are here for compatibility.  They should be removed
+  // FIXME: these are here for compatibility.  They should be removed
   // when no longer in use.
 
   octave_idx_type elem (octave_idx_type n) const
-    { return (*this) (n); }
+  { return (*this) (n); }
 
   bool is_colon_equiv (octave_idx_type n, int) const
-    { return is_colon_equiv (n); }
+  { return is_colon_equiv (n); }
 
   octave_idx_type
   freeze (octave_idx_type z_len, const char *tag, bool resize_ok = false);
 
   void sort (bool uniq = false)
-    { *this = sorted (uniq); }
+  { *this = sorted (uniq); }
 
   octave_idx_type ones_count (void) const;
 
--- a/liboctave/array/intNDArray.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/intNDArray.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -76,7 +76,7 @@
   return MArray<T>::diag (m, n);
 }
 
-// FIXME -- this is not quite the right thing.
+// FIXME: this is not quite the right thing.
 
 template <class T>
 boolNDArray
@@ -95,8 +95,8 @@
 template <class T>
 void
 intNDArray<T>::increment_index (Array<octave_idx_type>& ra_idx,
-                               const dim_vector& dimensions,
-                               int start_dimension)
+                                const dim_vector& dimensions,
+                                int start_dimension)
 {
   ::increment_index (ra_idx, dimensions, start_dimension);
 }
@@ -111,7 +111,8 @@
 
 template <class T>
 intNDArray<T>
-intNDArray<T>::concat (const intNDArray<T>& rb, const Array<octave_idx_type>& ra_idx)
+intNDArray<T>::concat (const intNDArray<T>& rb,
+                       const Array<octave_idx_type>& ra_idx)
 {
   if (rb.numel () > 0)
     insert (rb, ra_idx);
@@ -120,7 +121,8 @@
 
 template <class T>
 intNDArray<T>&
-intNDArray<T>::insert (const intNDArray<T>& a, octave_idx_type r, octave_idx_type c)
+intNDArray<T>::insert (const intNDArray<T>& a, octave_idx_type r,
+                       octave_idx_type c)
 {
   Array<T>::insert (a, r, c);
   return *this;
@@ -128,7 +130,8 @@
 
 template <class T>
 intNDArray<T>&
-intNDArray<T>::insert (const intNDArray<T>& a, const Array<octave_idx_type>& ra_idx)
+intNDArray<T>::insert (const intNDArray<T>& a,
+                       const Array<octave_idx_type>& ra_idx)
 {
   Array<T>::insert (a, ra_idx);
   return *this;
@@ -169,12 +172,12 @@
         }
     }
 
- done:
+done:
 
   return is;
 }
 
-// FIXME -- should abs and signum just be mapper functions?
+// FIXME: should abs and signum just be mapper functions?
 
 template <class T>
 intNDArray<T>
--- a/liboctave/array/intNDArray.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/array/intNDArray.h	Tue Nov 05 12:27:42 2013 -0500
@@ -54,10 +54,10 @@
   intNDArray (const intNDArray<U>& a) : MArray<T> (a) { }
 
   intNDArray& operator = (const intNDArray<T>& a)
-    {
-      MArray<T>::operator = (a);
-      return *this;
-    }
+  {
+    MArray<T>::operator = (a);
+    return *this;
+  }
 
   boolNDArray operator ! (void) const;
 
@@ -69,12 +69,12 @@
   intNDArray diag (octave_idx_type m, octave_idx_type n) const;
 
   intNDArray& changesign (void)
-    {
-      MArray<T>::changesign ();
-      return *this;
-    }
+  {
+    MArray<T>::changesign ();
+    return *this;
+  }
 
-  // FIXME -- this is not quite the right thing.
+  // FIXME: this is not quite the right thing.
 
   boolNDArray all (int dim = -1) const;
   boolNDArray any (int dim = -1) const;
@@ -99,22 +99,25 @@
   intNDArray signum (void) const;
 
   intNDArray squeeze (void) const
-    { return intNDArray<T> (MArray<T>::squeeze ()); }
+  { return intNDArray<T> (MArray<T>::squeeze ()); }
 
   intNDArray transpose (void) const
-    { return intNDArray<T> (MArray<T>::transpose ()); }
+  { return intNDArray<T> (MArray<T>::transpose ()); }
+
+  intNDArray concat (const intNDArray<T>& rb,
+                     const Array<octave_idx_type>& ra_idx);
 
-  intNDArray concat (const intNDArray<T>& rb, const Array<octave_idx_type>& ra_idx);
-
-  intNDArray& insert (const intNDArray<T>& a, octave_idx_type r, octave_idx_type c);
-  intNDArray& insert (const intNDArray<T>& a, const Array<octave_idx_type>& ra_idx);
+  intNDArray& insert (const intNDArray<T>& a,
+                      octave_idx_type r, octave_idx_type c);
+  intNDArray& insert (const intNDArray<T>& a,
+                      const Array<octave_idx_type>& ra_idx);
 
   static void increment_index (Array<octave_idx_type>& ra_idx,
                                const dim_vector& dimensions,
                                int start_dimension = 0);
 
   static octave_idx_type compute_index (Array<octave_idx_type>& ra_idx,
-                            const dim_vector& dimensions);
+                                        const dim_vector& dimensions);
 };
 
 // i/o
--- a/liboctave/cruft/misc/blaswrap.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/cruft/misc/blaswrap.c	Tue Nov 05 12:27:42 2013 -0500
@@ -35,8 +35,8 @@
 libBLAS and libLAPACK to the native gfortran calling convention, so
 that the libraries can be used with software built for x86_64
 architecture.
- 
- */
+
+*/
 
 #ifdef HAVE_CONFIG_H
 #include <config.h> /* USE_BLASWRAP ? */
@@ -48,7 +48,7 @@
  * vecLib is an Apple framework (collection of libraries) containing
  * libBLAS and libLAPACK.  The fortran stubs in these libraries are
  * (mostly, but not completely) in the F2C calling convention.
- * We access the libraries via the vecLib framework to make sure we 
+ * We access the libraries via the vecLib framework to make sure we
  * get the Apple versions, rather than some other blas/lapack with the
  * same name.
  */
@@ -57,7 +57,8 @@
 #endif
 
 /*
- * Since this is a wrapper for fortran functions, we do not have prototypes for them.
+ * Since this is a wrapper for fortran functions,
+ * we do not have prototypes for them.
  */
 #pragma GCC diagnostic ignored "-Wmissing-prototypes"
 
@@ -69,22 +70,25 @@
  * Convert to normal gfortran calling convention
  */
 
-static void (*f2c_blas_func[])(void); /* forward declaration for the wrapper */
-static void (*f2c_lapack_func[])(void); /* forward declaration for the wrapper */
+static void (*f2c_blas_func[]) (void);   /* forward declaration for wrapper */
+static void (*f2c_lapack_func[]) (void); /* forward declaration for wrapper */
 
 /*
  * LAPACK Wrappers, only need to convert the return value from double to float
  */
 
-typedef double (*F2C_CALL_0)(void);
-typedef double (*F2C_CALL_1)(void *a1);
-typedef double (*F2C_CALL_2)(void *a1, void *a2);
-typedef double (*F2C_CALL_3)(void *a1, void *a2, void *a3);
-typedef double (*F2C_CALL_4)(void *a1, void *a2, void *a3, void *a4);
-typedef double (*F2C_CALL_5)(void *a1, void *a2, void *a3, void *a4, void *a5);
-typedef double (*F2C_CALL_6)(void *a1, void *a2, void *a3, void *a4, void *a5, void *a6);
-typedef double (*F2C_CALL_7)(void *a1, void *a2, void *a3, void *a4, void *a5, void *a6, void *a7);
-typedef double (*F2C_CALL_8)(void *a1, void *a2, void *a3, void *a4, void *a5, void *a6, void *a7, void *a8);
+typedef double (*F2C_CALL_0) (void);
+typedef double (*F2C_CALL_1) (void *a1);
+typedef double (*F2C_CALL_2) (void *a1, void *a2);
+typedef double (*F2C_CALL_3) (void *a1, void *a2, void *a3);
+typedef double (*F2C_CALL_4) (void *a1, void *a2, void *a3, void *a4);
+typedef double (*F2C_CALL_5) (void *a1, void *a2, void *a3, void *a4, void *a5);
+typedef double (*F2C_CALL_6) (void *a1, void *a2, void *a3, void *a4, void *a5,
+                              void *a6);
+typedef double (*F2C_CALL_7) (void *a1, void *a2, void *a3, void *a4, void *a5,
+                              void *a6, void *a7);
+typedef double (*F2C_CALL_8) (void *a1, void *a2, void *a3, void *a4, void *a5,
+                              void *a6, void *a7, void *a8);
 
 #define F2C_LAPACK_CALL_8(name) \
   float name (void *a1, void *a2, void *a3, void *a4, void *a5, void *a6, void *a7, void *a8) \
@@ -234,7 +238,8 @@
 typedef struct { float r, i; } complex;
 typedef struct { double r, i; } doublecomplex;
 
-typedef void (*F2C_BLAS_CALL_6)(void *c, void *a1, void *a2, void *a3, void *a4, void *a5);
+typedef void (*F2C_BLAS_CALL_6) (void *c, void *a1, void *a2, void *a3,
+                                 void *a4, void *a5);
 
 #define F2C_BLAS_CALL(type, name) \
 type name (void *a1, void *a2, void *a3, void *a4, void *a5) \
@@ -253,8 +258,8 @@
 /*
  * Function pointer arrays, indexed by the enums
  */
-static void (*f2c_blas_func[f2c_BLAS_COUNT])(void) = { 0 };
-static void (*f2c_lapack_func[f2c_LAPACK_COUNT])(void) = { 0 };
+static void (*f2c_blas_func[f2c_BLAS_COUNT]) (void) = { 0 };
+static void (*f2c_lapack_func[f2c_LAPACK_COUNT]) (void) = { 0 };
 
 /*
  * Initialization: This is called before main ().
@@ -272,11 +277,11 @@
 
   int i;
   for (i = 0; i < f2c_LAPACK_COUNT; i++)
-    if (0 == (f2c_lapack_func[i] = dlsym(apple_vecLib, f2c_lapack_name(i))))
-      abort ();  
+    if (0 == (f2c_lapack_func[i] = dlsym (apple_vecLib, f2c_lapack_name(i))))
+      abort ();
   for (i = 0; i < f2c_BLAS_COUNT; i++)
-    if (0 == (f2c_blas_func[i] = dlsym(apple_vecLib, f2c_blas_name(i))))
-      abort ();  
+    if (0 == (f2c_blas_func[i] = dlsym (apple_vecLib, f2c_blas_name(i))))
+      abort ();
 }
 
 __attribute__((destructor))
--- a/liboctave/cruft/misc/lo-error.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/cruft/misc/lo-error.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_error_h)
-#define octave_liboctave_error_h 1
+#if !defined (octave_lo_error_h)
+#define octave_lo_error_h 1
 
 #ifdef __cplusplus
 extern "C" {
--- a/liboctave/cruft/misc/quit.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/cruft/misc/quit.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,7 +60,7 @@
 void
 octave_throw_execution_exception (void)
 {
-  // FIXME -- would a hook function be useful here?
+  // FIXME: would a hook function be useful here?
 
   octave_exception_state = octave_exec_exception;
 
--- a/liboctave/link-deps.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/link-deps.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -25,7 +25,7 @@
   $(READLINE_LIBS) \
   $(TERM_LIBS) \
   $(LIBGLOB) \
-  $(REGEX_LIBS) \
+  $(PCRE_LIBS) \
   $(DL_LIBS) \
   $(PTHREAD_LIBS) \
   $(FLIBS) \
--- a/liboctave/numeric/CmplxAEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxAEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_ComplexAEPBALANCE_h)
-#define octave_ComplexAEPBALANCE_h 1
+#if !defined (octave_CmplxAEPBAL_h)
+#define octave_CmplxAEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
--- a/liboctave/numeric/CmplxCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -338,7 +338,8 @@
       else
         {
           info = init (chol_mat.hermitian () * chol_mat
-                       - ComplexMatrix (u) * ComplexMatrix (u).hermitian (), false);
+                       - ComplexMatrix (u) * ComplexMatrix (u).hermitian (),
+                       false);
           if (info) info = 1;
         }
     }
--- a/liboctave/numeric/CmplxCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_ComplexCHOL_h)
-#define octave_ComplexCHOL_h 1
+#if !defined (octave_CmplxCHOL_h)
+#define octave_CmplxCHOL_h 1
 
 #include <iosfwd>
 
@@ -39,30 +39,30 @@
 
   ComplexCHOL (const ComplexMatrix& a, bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      init (a, calc_cond);
-    }
+  {
+    init (a, calc_cond);
+  }
 
   ComplexCHOL (const ComplexMatrix& a, octave_idx_type& info,
                bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      info = init (a, calc_cond);
-    }
+  {
+    info = init (a, calc_cond);
+  }
 
   ComplexCHOL (const ComplexCHOL& a)
     : chol_mat (a.chol_mat), xrcond (a.xrcond) { }
 
   ComplexCHOL& operator = (const ComplexCHOL& a)
-    {
-      if (this != &a)
-        {
-          chol_mat = a.chol_mat;
-          xrcond = a.xrcond;
-        }
+  {
+    if (this != &a)
+      {
+        chol_mat = a.chol_mat;
+        xrcond = a.xrcond;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ComplexMatrix chol_matrix (void) const { return chol_mat; }
 
@@ -82,7 +82,8 @@
 
   void shift_sym (octave_idx_type i, octave_idx_type j);
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const ComplexCHOL& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const ComplexCHOL& a);
 
 private:
 
--- a/liboctave/numeric/CmplxGEPBAL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxGEPBAL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,13 +60,14 @@
 
 octave_idx_type
 ComplexGEPBALANCE::init (const ComplexMatrix& a, const ComplexMatrix& b,
-                  const std::string& balance_job)
+                         const std::string& balance_job)
 {
   octave_idx_type n = a.cols ();
 
   if (a.rows () != n)
     {
-      (*current_liboctave_error_handler) ("ComplexGEPBALANCE requires square matrix");
+      (*current_liboctave_error_handler)
+        ("ComplexGEPBALANCE requires square matrix");
       return -1;
     }
 
--- a/liboctave/numeric/CmplxGEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxGEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexGEPBALANCE_h)
-#define octave_ComplexGEPBALANCE_h 1
+#if !defined (octave_CmplxGEPBAL_h)
+#define octave_CmplxGEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
@@ -37,30 +37,30 @@
 
   ComplexGEPBALANCE (void)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    { }
+  { }
 
   ComplexGEPBALANCE (const ComplexMatrix& a, const ComplexMatrix& b,
                      const std::string& balance_job)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    {
-      init (a, b, balance_job);
-    }
+  {
+    init (a, b, balance_job);
+  }
 
   ComplexGEPBALANCE (const ComplexGEPBALANCE& a)
     : balanced_mat (a.balanced_mat), balanced_mat2 (a.balanced_mat2),
       balancing_mat (a.balancing_mat), balancing_mat2 (a.balancing_mat2) { }
 
   ComplexGEPBALANCE& operator = (const ComplexGEPBALANCE& a)
-    {
-      if (this != &a)
-        {
-          balanced_mat = a.balanced_mat;
-          balanced_mat2 = a.balanced_mat2;
-          balancing_mat = a.balancing_mat;
-          balancing_mat2 = a.balancing_mat2;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        balanced_mat = a.balanced_mat;
+        balanced_mat2 = a.balanced_mat2;
+        balancing_mat = a.balancing_mat;
+        balancing_mat2 = a.balancing_mat2;
+      }
+    return *this;
+  }
 
   ~ComplexGEPBALANCE (void) { }
 
@@ -72,7 +72,8 @@
 
   Matrix balancing_matrix2 (void) const { return balancing_mat2; }
 
-  friend std::ostream& operator << (std::ostream& os, const ComplexGEPBALANCE& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const ComplexGEPBALANCE& a);
 
 private:
 
--- a/liboctave/numeric/CmplxHESS.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxHESS.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexHESS_h)
-#define octave_ComplexHESS_h 1
+#if !defined (octave_CmplxHESS_h)
+#define octave_CmplxHESS_h 1
 
 #include <iosfwd>
 
@@ -37,37 +37,37 @@
 
   ComplexHESS (const ComplexMatrix& a)
     : hess_mat (), unitary_hess_mat ()
-    {
-      init (a);
-    }
+  {
+    init (a);
+  }
 
   ComplexHESS (const ComplexMatrix& a, octave_idx_type& info)
     : hess_mat (), unitary_hess_mat ()
-    {
-      info = init (a);
-    }
+  {
+    info = init (a);
+  }
 
   ComplexHESS (const ComplexHESS& a)
     : hess_mat (a.hess_mat), unitary_hess_mat (a.unitary_hess_mat) { }
 
   ComplexHESS& operator = (const ComplexHESS& a)
-    {
-      if (this != &a)
-        {
-          hess_mat = a.hess_mat;
-          unitary_hess_mat = a.unitary_hess_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        hess_mat = a.hess_mat;
+        unitary_hess_mat = a.unitary_hess_mat;
+      }
+    return *this;
+  }
 
   ~ComplexHESS (void) { }
 
   ComplexMatrix hess_matrix (void) const { return hess_mat; }
 
   ComplexMatrix unitary_hess_matrix (void) const
-    {
-      return unitary_hess_mat;
-    }
+  {
+    return unitary_hess_mat;
+  }
 
   friend std::ostream& operator << (std::ostream& os, const ComplexHESS& a);
 
--- a/liboctave/numeric/CmplxLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -85,7 +85,8 @@
 
 #ifdef HAVE_QRUPDATE_LUU
 
-void ComplexLU::update (const ComplexColumnVector& u, const ComplexColumnVector& v)
+void ComplexLU::update (const ComplexColumnVector& u,
+                        const ComplexColumnVector& v)
 {
   if (packed ())
     unpack ();
@@ -124,7 +125,8 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (zlu1up, ZLU1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
+          F77_XFCN (zlu1up, ZLU1UP, (m, n, l.fortran_vec (),
+                                     m, r.fortran_vec (), k,
                                      utmp.fortran_vec (), vtmp.fortran_vec ()));
         }
     }
@@ -132,7 +134,8 @@
     (*current_liboctave_error_handler) ("luupdate: dimensions mismatch");
 }
 
-void ComplexLU::update_piv (const ComplexColumnVector& u, const ComplexColumnVector& v)
+void ComplexLU::update_piv (const ComplexColumnVector& u,
+                            const ComplexColumnVector& v)
 {
   if (packed ())
     unpack ();
@@ -149,8 +152,10 @@
       ComplexColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (Complex, w, m);
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) += 1; // increment
-      F77_XFCN (zlup1up, ZLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                   ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+      F77_XFCN (zlup1up, ZLUP1UP, (m, n, l.fortran_vec (),
+                                   m, r.fortran_vec (), k,
+                                   ipvt.fortran_vec (),
+                                   utmp.data (), vtmp.data (), w));
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
   else
@@ -176,8 +181,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (zlup1up, ZLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                       ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+          F77_XFCN (zlup1up, ZLUP1UP, (m, n, l.fortran_vec (),
+                                       m, r.fortran_vec (), k,
+                                       ipvt.fortran_vec (),
+                                       utmp.data (), vtmp.data (), w));
         }
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
@@ -189,22 +196,27 @@
 
 void ComplexLU::update (const ComplexColumnVector&, const ComplexColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void ComplexLU::update (const ComplexMatrix&, const ComplexMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
-void ComplexLU::update_piv (const ComplexColumnVector&, const ComplexColumnVector&)
+void ComplexLU::update_piv (const ComplexColumnVector&,
+                            const ComplexColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void ComplexLU::update_piv (const ComplexMatrix&, const ComplexMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 #endif
--- a/liboctave/numeric/CmplxLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexLU_h)
-#define octave_ComplexLU_h 1
+#if !defined (octave_CmplxLU_h)
+#define octave_CmplxLU_h 1
 
 #include "base-lu.h"
 #include "dMatrix.h"
@@ -46,12 +46,12 @@
     : base_lu <ComplexMatrix> (l, u, p) { }
 
   ComplexLU& operator = (const ComplexLU& a)
-    {
-      if (this != &a)
-        base_lu <ComplexMatrix> :: operator = (a);
+  {
+    if (this != &a)
+      base_lu <ComplexMatrix> :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~ComplexLU (void) { }
 
--- a/liboctave/numeric/CmplxQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -120,13 +120,15 @@
     {
       // workspace query.
       Complex clwork;
-      F77_XFCN (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau, &clwork, -1, info));
+      F77_XFCN (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 &clwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = clwork.real ();
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (Complex, work, lwork);
-      F77_XFCN (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau, work, lwork, info));
+      F77_XFCN (zgeqrf, ZGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 work, lwork, info));
     }
 
   form (n, afact, tau, qr_type);
@@ -163,7 +165,7 @@
               octave_idx_type i = 0;
               for (; i <= j; i++)
                 r.xelem (i, j) = afact.xelem (i, j);
-              for (;i < k; i++)
+              for (; i < k; i++)
                 r.xelem (i, j) = 0;
             }
           afact = ComplexMatrix (); // optimize memory
@@ -214,8 +216,10 @@
       ComplexColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (Complex, w, k);
       OCTAVE_LOCAL_BUFFER (double, rw, k);
-      F77_XFCN (zqr1up, ZQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                 utmp.fortran_vec (), vtmp.fortran_vec (), w, rw));
+      F77_XFCN (zqr1up, ZQR1UP, (m, n, k, q.fortran_vec (),
+                                 m, r.fortran_vec (), k,
+                                 utmp.fortran_vec (), vtmp.fortran_vec (),
+                                 w, rw));
     }
   else
     (*current_liboctave_error_handler) ("qrupdate: dimensions mismatch");
@@ -235,8 +239,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (zqr1up, ZQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                     utmp.fortran_vec (), vtmp.fortran_vec (), w, rw));
+          F77_XFCN (zqr1up, ZQR1UP, (m, n, k, q.fortran_vec (),
+                                     m, r.fortran_vec (), k,
+                                     utmp.fortran_vec (), vtmp.fortran_vec (),
+                                     w, rw));
         }
     }
   else
@@ -373,7 +379,8 @@
           octave_idx_type ii = i;
           F77_XFCN (zqrdec, ZQRDEC, (m, n - ii, k == m ? k : k - ii,
                                      q.fortran_vec (), q.rows (),
-                                     r.fortran_vec (), r.rows (), js(ii) + 1, rw));
+                                     r.fortran_vec (), r.rows (),
+                                     js(ii) + 1, rw));
         }
       if (k < m)
         {
@@ -469,7 +476,8 @@
 
   if (u.length () == m && v.length () == n)
     {
-      init (q*r + ComplexMatrix (u) * ComplexMatrix (v).hermitian (), get_type ());
+      init (q*r + ComplexMatrix (u) * ComplexMatrix (v).hermitian (),
+            get_type ());
     }
   else
     (*current_liboctave_error_handler) ("qrupdate: dimensions mismatch");
--- a/liboctave/numeric/CmplxQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_ComplexQR_h)
-#define octave_ComplexQR_h 1
+#if !defined (octave_CmplxQR_h)
+#define octave_CmplxQR_h 1
 
 #include <iosfwd>
 
--- a/liboctave/numeric/CmplxQRP.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxQRP.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -75,15 +75,17 @@
 
       // workspace query.
       Complex clwork;
-      F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, &clwork, -1, rwork, info));
+      F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 &clwork, -1, rwork, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = clwork.real ();
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (Complex, work, lwork);
-      F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, work, lwork, rwork, info));
+      F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 work, lwork, rwork, info));
     }
   else
     for (octave_idx_type i = 0; i < n; i++) jpvt(i) = i+1;
--- a/liboctave/numeric/CmplxQRP.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxQRP.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexQRP_h)
-#define octave_ComplexQRP_h 1
+#if !defined (octave_CmplxQRP_h)
+#define octave_CmplxQRP_h 1
 
 #include <iosfwd>
 
@@ -42,14 +42,14 @@
   ComplexQRP (const ComplexQRP& a) : ComplexQR (a), p (a.p) { }
 
   ComplexQRP& operator = (const ComplexQRP& a)
-    {
-      if (this != &a)
-        {
-          ComplexQR::operator = (a);
-          p = a.p;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        ComplexQR::operator = (a);
+        p = a.p;
+      }
+    return *this;
+  }
 
   ~ComplexQRP (void) { }
 
--- a/liboctave/numeric/CmplxSCHUR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxSCHUR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexSCHUR_h)
-#define octave_ComplexSCHUR_h 1
+#if !defined (octave_CmplxSCHUR_h)
+#define octave_CmplxSCHUR_h 1
 
 #include <iosfwd>
 #include <string>
@@ -40,35 +40,35 @@
   ComplexSCHUR (const ComplexMatrix& a, const std::string& ord,
                 bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      init (a, ord, calc_unitary);
-    }
+  {
+    init (a, ord, calc_unitary);
+  }
 
   ComplexSCHUR (const ComplexMatrix& a, const std::string& ord,
                 octave_idx_type& info,
                 bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      info = init (a, ord, calc_unitary);
-    }
+  {
+    info = init (a, ord, calc_unitary);
+  }
 
   ComplexSCHUR (const ComplexSCHUR& a)
     : schur_mat (a.schur_mat), unitary_mat (a.unitary_mat), selector (0)
-    { }
+  { }
 
   ComplexSCHUR (const ComplexMatrix& s, const ComplexMatrix& u);
 
   ComplexSCHUR (const SCHUR& s);
 
   ComplexSCHUR& operator = (const ComplexSCHUR& a)
-    {
-      if (this != &a)
-        {
-          schur_mat = a.schur_mat;
-          unitary_mat = a.unitary_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        schur_mat = a.schur_mat;
+        unitary_mat = a.unitary_mat;
+      }
+    return *this;
+  }
 
   ~ComplexSCHUR (void) { }
 
@@ -87,7 +87,8 @@
 
   select_function selector;
 
-  octave_idx_type init (const ComplexMatrix& a, const std::string& ord, bool calc_unitary);
+  octave_idx_type init (const ComplexMatrix& a, const std::string& ord,
+                        bool calc_unitary);
 };
 
 #endif
--- a/liboctave/numeric/CmplxSVD.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxSVD.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -80,7 +80,8 @@
 }
 
 octave_idx_type
-ComplexSVD::init (const ComplexMatrix& a, SVD::type svd_type, SVD::driver svd_driver)
+ComplexSVD::init (const ComplexMatrix& a, SVD::type svd_type,
+                  SVD::driver svd_driver)
 {
   octave_idx_type info;
 
--- a/liboctave/numeric/CmplxSVD.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CmplxSVD.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_ComplexSVD_h)
-#define octave_ComplexSVD_h 1
+#if !defined (octave_CmplxSVD_h)
+#define octave_CmplxSVD_h 1
 
 #include <iosfwd>
 
@@ -37,39 +37,39 @@
 
   ComplexSVD (void)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    { }
+  { }
 
   ComplexSVD (const ComplexMatrix& a, SVD::type svd_type = SVD::std,
               SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      init (a, svd_type, svd_driver);
-    }
+  {
+    init (a, svd_type, svd_driver);
+  }
 
   ComplexSVD (const ComplexMatrix& a, octave_idx_type& info,
               SVD::type svd_type = SVD::std,
               SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      info = init (a, svd_type, svd_driver);
-    }
+  {
+    info = init (a, svd_type, svd_driver);
+  }
 
   ComplexSVD (const ComplexSVD& a)
     : type_computed (a.type_computed), sigma (a.sigma),
       left_sm (a.left_sm), right_sm (a.right_sm)
-    { }
+  { }
 
   ComplexSVD& operator = (const ComplexSVD& a)
-    {
-      if (this != &a)
-        {
-          type_computed = a.type_computed;
-          sigma = a.sigma;
-          left_sm = a.left_sm;
-          right_sm = a.right_sm;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        type_computed = a.type_computed;
+        sigma = a.sigma;
+        left_sm = a.left_sm;
+        right_sm = a.right_sm;
+      }
+    return *this;
+  }
 
   ~ComplexSVD (void) { }
 
--- a/liboctave/numeric/CollocWt.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/CollocWt.h	Tue Nov 05 12:27:42 2013 -0500
@@ -54,7 +54,7 @@
 
   CollocWt (octave_idx_type nc, double a, double b, octave_idx_type il,
             octave_idx_type ir,
-                      double ll, double rr)
+            double ll, double rr)
     : n (nc), inc_left (il), inc_right (ir), lb (ll), rb (rr),
       Alpha (a), Beta (b), r (), q (), A (), B (), initialized (false) { }
 
@@ -65,77 +65,77 @@
       initialized (a.initialized) { }
 
   CollocWt& operator = (const CollocWt& a)
-    {
-      if (this != &a)
-        {
-          n = a.n;
-          inc_left = a.inc_left;
-          inc_right = a.inc_right;
-          lb = a.lb;
-          rb = a.rb;
-          r = a.r;
-          q = a.q;
-          A = a.A;
-          B = a.B;
-          initialized = a.initialized;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        n = a.n;
+        inc_left = a.inc_left;
+        inc_right = a.inc_right;
+        lb = a.lb;
+        rb = a.rb;
+        r = a.r;
+        q = a.q;
+        A = a.A;
+        B = a.B;
+        initialized = a.initialized;
+      }
+    return *this;
+  }
 
   ~CollocWt (void) { }
 
   CollocWt& resize (octave_idx_type nc)
-    {
-      n = nc;
-      initialized = false;
-      return *this;
-    }
+  {
+    n = nc;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& add_left (void)
-    {
-      inc_left = 1;
-      initialized = false;
-      return *this;
-    }
+  {
+    inc_left = 1;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& delete_left (void)
-    {
-      inc_left = 0;
-      initialized = false;
-      return *this;
-    }
+  {
+    inc_left = 0;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& set_left (double val);
 
   CollocWt& add_right (void)
-    {
-      inc_right = 1;
-      initialized = false;
-      return *this;
-    }
+  {
+    inc_right = 1;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& delete_right (void)
-    {
-      inc_right = 0;
-      initialized = false;
-      return *this;
-    }
+  {
+    inc_right = 0;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& set_right (double val);
 
   CollocWt& set_alpha (double val)
-    {
-      Alpha = val;
-      initialized = false;
-      return *this;
-    }
+  {
+    Alpha = val;
+    initialized = false;
+    return *this;
+  }
 
   CollocWt& set_beta (double val)
-    {
-      Beta = val;
-      initialized = false;
-      return *this;
-    }
+  {
+    Beta = val;
+    initialized = false;
+    return *this;
+  }
 
   octave_idx_type ncol (void) const { return n; }
 
--- a/liboctave/numeric/DAE.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DAE.h	Tue Nov 05 12:27:42 2013 -0500
@@ -43,17 +43,17 @@
     : base_diff_alg_eqn (xx, xxdot, tt), DAEFunc (f) { }
 
   DAE (const DAE& a)
-    : base_diff_alg_eqn (a), DAEFunc (a){ }
+    : base_diff_alg_eqn (a), DAEFunc (a) { }
 
   DAE& operator = (const DAE& a)
-    {
-      if (this != &a)
-        {
-          base_diff_alg_eqn::operator = (a);
-          DAEFunc::operator = (a);
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        base_diff_alg_eqn::operator = (a);
+        DAEFunc::operator = (a);
+      }
+    return *this;
+  }
 
   virtual ~DAE (void) { }
 };
--- a/liboctave/numeric/DAEFunc.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DAEFunc.h	Tue Nov 05 12:27:42 2013 -0500
@@ -56,35 +56,35 @@
     : fun (a.fun), jac (a.jac), reset (a.reset) { }
 
   DAEFunc& operator = (const DAEFunc& a)
-    {
-      if (this != &a)
-        {
-          fun = a.fun;
-          jac = a.jac;
-          reset = a.reset;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        fun = a.fun;
+        jac = a.jac;
+        reset = a.reset;
+      }
+    return *this;
+  }
 
   virtual ~DAEFunc (void) { }
 
   DAERHSFunc function (void) const { return fun; }
 
   DAEFunc& set_function (DAERHSFunc f)
-    {
-      fun = f;
-      reset = true;
-      return *this;
-    }
+  {
+    fun = f;
+    reset = true;
+    return *this;
+  }
 
   DAEJacFunc jacobian_function (void) const { return jac; }
 
   DAEFunc& set_jacobian_function (DAEJacFunc j)
-    {
-      jac = j;
-      reset = true;
-      return *this;
-    }
+  {
+    jac = j;
+    reset = true;
+    return *this;
+  }
 
 protected:
 
--- a/liboctave/numeric/DAERT.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DAERT.h	Tue Nov 05 12:27:42 2013 -0500
@@ -39,30 +39,30 @@
     : base_diff_alg_eqn (xx, tt), DAERTFunc (f) { }
 
   DAERT (const ColumnVector& xx, const ColumnVector& xxdot, double tt,
-        DAERTFunc& f)
+         DAERTFunc& f)
     : base_diff_alg_eqn (xx, xxdot, tt), DAERTFunc (f) { }
 
   DAERT (const DAERT& a)
     : base_diff_alg_eqn (a), DAERTFunc (a) { }
 
   DAERT& operator = (const DAERT& a)
-    {
-      if (this != &a)
-        {
-          base_diff_alg_eqn::operator = (a);
-          DAERTFunc::operator = (a);
+  {
+    if (this != &a)
+      {
+        base_diff_alg_eqn::operator = (a);
+        DAERTFunc::operator = (a);
 
-        }
-      return *this;
-    }
+      }
+    return *this;
+  }
 
   virtual ~DAERT (void) { }
 
   void initialize (const ColumnVector& xx, const ColumnVector& xxdot,
                    double tt)
-    {
-      base_diff_alg_eqn::initialize (xx, xxdot, tt);
-    }
+  {
+    base_diff_alg_eqn::initialize (xx, xxdot, tt);
+  }
 };
 
 #endif
--- a/liboctave/numeric/DAERTFunc.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DAERTFunc.h	Tue Nov 05 12:27:42 2013 -0500
@@ -51,26 +51,26 @@
     : DAEFunc (a), constr (a.constr), reset (a.reset) { }
 
   DAERTFunc& operator = (const DAERTFunc& a)
-    {
-      if (this != &a)
-        {
-          DAEFunc::operator = (a);
-          constr = a.constr;
-          reset = a.reset;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        DAEFunc::operator = (a);
+        constr = a.constr;
+        reset = a.reset;
+      }
+    return *this;
+  }
 
   virtual ~DAERTFunc (void) { }
 
   DAERTConstrFunc constraint_function (void) const { return constr; }
 
   DAERTFunc& set_constraint_function (DAERTConstrFunc cf)
-    {
-      constr = cf;
-      reset = true;
-      return *this;
-    }
+  {
+    constr = cf;
+    reset = true;
+    return *this;
+  }
 
 protected:
 
--- a/liboctave/numeric/DASPK.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DASPK.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -130,7 +130,7 @@
 {
   BEGIN_INTERRUPT_WITH_EXCEPTIONS;
 
-  // FIXME -- would be nice to avoid copying the data.
+  // FIXME: would be nice to avoid copying the data.
 
   ColumnVector tmp_state (nn);
   ColumnVector tmp_deriv (nn);
@@ -155,7 +155,7 @@
 ColumnVector
 DASPK::do_integrate (double tout)
 {
-  // FIXME -- should handle all this option stuff just once
+  // FIXME: should handle all this option stuff just once
   // for each new problem.
 
   ColumnVector retval;
@@ -343,7 +343,7 @@
         {
           if (ccic == 1)
             {
-              // FIXME -- this code is duplicated below.
+              // FIXME: this code is duplicated below.
 
               Array<octave_idx_type> av = algebraic_variables ();
 
@@ -383,7 +383,7 @@
         {
           info(15) = 1;
 
-          // FIXME -- this code is duplicated above.
+          // FIXME: this code is duplicated above.
 
           Array<octave_idx_type> av = algebraic_variables ();
 
@@ -710,7 +710,7 @@
 
     case -1:
       retval = std::string ("a large amount of work has been expended (t =")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -2:
@@ -719,38 +719,38 @@
 
     case -3:
       retval = std::string ("error weight became zero during problem. (t = ")
-        + t_curr
-        + "; solution component i vanished, and atol or atol(i) == 0)";
+               + t_curr
+               + "; solution component i vanished, and atol or atol(i) == 0)";
       break;
 
     case -6:
       retval = std::string ("repeated error test failures on the last attempted step (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -7:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -8:
       retval = std::string ("the matrix of partial derivatives is singular (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -9:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + "; repeated test failures)";
+               + t_curr + "; repeated test failures)";
       break;
 
     case -10:
       retval = std::string ("corrector could not converge because IRES was -1 (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -11:
       retval = std::string ("return requested in user-supplied function (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -12:
@@ -759,12 +759,12 @@
 
     case -13:
       retval = std::string ("unrecoverable error encountered inside user's PSOL function (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -14:
       retval = std::string ("the Krylov linear system solver failed to converge (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -33:
--- a/liboctave/numeric/DASRT.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DASRT.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -106,7 +106,7 @@
 {
   BEGIN_INTERRUPT_WITH_EXCEPTIONS;
 
-  // FIXME -- would be nice to avoid copying the data.
+  // FIXME: would be nice to avoid copying the data.
 
   ColumnVector tmp_state (nn);
   ColumnVector tmp_deriv (nn);
@@ -591,7 +591,7 @@
 
     case -1:
       retval = std::string ("a large amount of work has been expended (t =")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -2:
@@ -600,38 +600,38 @@
 
     case -3:
       retval = std::string ("error weight became zero during problem. (t = ")
-        + t_curr
-        + "; solution component i vanished, and atol or atol(i) == 0)";
+               + t_curr
+               + "; solution component i vanished, and atol or atol(i) == 0)";
       break;
 
     case -6:
       retval = std::string ("repeated error test failures on the last attempted step (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -7:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -8:
       retval = std::string ("the matrix of partial derivatives is singular (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -9:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + "; repeated test failures)";
+               + t_curr + "; repeated test failures)";
       break;
 
     case -10:
       retval = std::string ("corrector could not converge because IRES was -1 (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -11:
       retval = std::string ("return requested in user-supplied function (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -12:
--- a/liboctave/numeric/DASRT.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DASRT.h	Tue Nov 05 12:27:42 2013 -0500
@@ -43,15 +43,15 @@
     : x (r.x), xdot (r.xdot), t (r.t) { }
 
   DASRT_result& operator = (const DASRT_result& r)
-    {
-      if (this != &r)
-        {
-          x = r.x;
-          xdot = r.xdot;
-          t = r.t;
-        }
-      return *this;
-    }
+  {
+    if (this != &r)
+      {
+        x = r.x;
+        xdot = r.xdot;
+        t = r.t;
+      }
+    return *this;
+  }
 
   ~DASRT_result (void) { }
 
@@ -76,20 +76,20 @@
     : DAERT (), DASRT_options (), initialized (false),
       liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (),
       abs_tol (), rel_tol ()
-    { }
+  { }
 
   DASRT (const ColumnVector& s, double tm, DAERTFunc& f)
     : DAERT (s, tm, f), DASRT_options (), initialized (false),
       liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (),
       abs_tol (), rel_tol ()
-    { }
+  { }
 
   DASRT (const ColumnVector& s, const ColumnVector& deriv,
          double tm, DAERTFunc& f)
     : DAERT (s, deriv, tm, f), DASRT_options (), initialized (false),
       liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (),
       abs_tol (), rel_tol ()
-    { }
+  { }
 
   ~DASRT (void) { }
 
--- a/liboctave/numeric/DASSL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DASSL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -68,7 +68,7 @@
 {
   BEGIN_INTERRUPT_WITH_EXCEPTIONS;
 
-  // FIXME -- would be nice to avoid copying the data.
+  // FIXME: would be nice to avoid copying the data.
 
   ColumnVector tmp_deriv (nn);
   ColumnVector tmp_state (nn);
@@ -104,7 +104,7 @@
 {
   BEGIN_INTERRUPT_WITH_EXCEPTIONS;
 
-  // FIXME -- would be nice to avoid copying the data.
+  // FIXME: would be nice to avoid copying the data.
 
   ColumnVector tmp_state (nn);
   ColumnVector tmp_deriv (nn);
@@ -521,7 +521,7 @@
 
     case -1:
       retval = std::string ("a large amount of work has been expended (t =")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -2:
@@ -530,38 +530,38 @@
 
     case -3:
       retval = std::string ("error weight became zero during problem. (t = ")
-        + t_curr
-        + "; solution component i vanished, and atol or atol(i) == 0)";
+               + t_curr
+               + "; solution component i vanished, and atol or atol(i) == 0)";
       break;
 
     case -6:
       retval = std::string ("repeated error test failures on the last attempted step (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -7:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -8:
       retval = std::string ("the matrix of partial derivatives is singular (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -9:
       retval = std::string ("the corrector could not converge (t = ")
-        + t_curr + "; repeated test failures)";
+               + t_curr + "; repeated test failures)";
       break;
 
     case -10:
       retval = std::string ("corrector could not converge because IRES was -1 (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -11:
       retval = std::string ("return requested in user-supplied function (t = ")
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     case -12:
--- a/liboctave/numeric/DET.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/DET.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,30 +35,30 @@
 
   base_det (T c = 1, int e = 0)
     : c2 (), e2 ()
-    {
-      c2 = xlog2 (c, e2);
-      e2 += e;
-    }
+  {
+    c2 = xlog2 (c, e2);
+    e2 += e;
+  }
 
   base_det (T c, double e, double b)
     : c2 (), e2 ()
-    {
-      e *= xlog2 (b);
-      e2 = e;
-      c *= xexp2 (e - e2);
-      int f;
-      c2 = xlog2 (c, f);
-      e2 += f;
-    }
+  {
+    e *= xlog2 (b);
+    e2 = e;
+    c *= xexp2 (e - e2);
+    int f;
+    c2 = xlog2 (c, f);
+    e2 += f;
+  }
 
   base_det (const base_det& a) : c2 (a.c2), e2 (a.e2) { }
 
   base_det& operator = (const base_det& a)
-    {
-      c2 = a.c2;
-      e2 = a.e2;
-      return *this;
-    }
+  {
+    c2 = a.c2;
+    e2 = a.e2;
+    return *this;
+  }
 
   T coef (void) const { return c2; }
   int exp (void) const { return e2; }
@@ -69,11 +69,11 @@
   base_det square () const { return base_det (c2*c2, e2+e2); }
 
   void operator *= (T t)
-    {
-      int e;
-      c2 *= xlog2 (t, e);
-      e2 += e;
-    }
+  {
+    int e;
+    c2 *= xlog2 (t, e);
+    e2 += e;
+  }
 
 private:
 
--- a/liboctave/numeric/EIG.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/EIG.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -791,7 +791,8 @@
 }
 
 octave_idx_type
-EIG::hermitian_init (const ComplexMatrix& a, const ComplexMatrix& b, bool calc_ev)
+EIG::hermitian_init (const ComplexMatrix& a, const ComplexMatrix& b,
+                     bool calc_ev)
 {
   octave_idx_type n = a.rows ();
   octave_idx_type nb = b.rows ();
--- a/liboctave/numeric/EIG.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/EIG.h	Tue Nov 05 12:27:42 2013 -0500
@@ -33,8 +33,8 @@
 OCTAVE_API
 EIG
 {
-friend class Matrix;
-friend class ComplexMatrix;
+  friend class Matrix;
+  friend class ComplexMatrix;
 
 public:
 
@@ -96,14 +96,14 @@
     : lambda (a.lambda), v (a.v) { }
 
   EIG& operator = (const EIG& a)
-    {
-      if (this != &a)
-        {
-          lambda = a.lambda;
-          v = a.v;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        lambda = a.lambda;
+        v = a.v;
+      }
+    return *this;
+  }
 
   ~EIG (void) { }
 
--- a/liboctave/numeric/LSODE.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/LSODE.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -89,7 +89,8 @@
 
 static octave_idx_type
 lsode_j (const octave_idx_type& neq, const double& time, double *,
-         const octave_idx_type&, const octave_idx_type&, double *pd, const octave_idx_type& nrowpd)
+         const octave_idx_type&, const octave_idx_type&, double *pd,
+         const octave_idx_type& nrowpd)
 {
   BEGIN_INTERRUPT_WITH_EXCEPTIONS;
 
@@ -336,7 +337,7 @@
 
     case -1:
       retval = std::string ("excess work on this call (t = ")
-        + t_curr + "; perhaps wrong integration method)";
+               + t_curr + "; perhaps wrong integration method)";
       break;
 
     case -2:
@@ -349,24 +350,24 @@
 
     case -4:
       retval = std::string ("repeated error test failures (t = ")
-        + t_curr + "; check all inputs)";
+               + t_curr + "; check all inputs)";
       break;
 
     case -5:
       retval = std::string ("repeated convergence failures (t = ")
-        + t_curr
-        + "; perhaps bad Jacobian supplied or wrong choice of integration method or tolerances)";
+               + t_curr
+               + "; perhaps bad Jacobian supplied or wrong choice of integration method or tolerances)";
       break;
 
     case -6:
       retval = std::string ("error weight became zero during problem. (t = ")
-        + t_curr
-        + "; solution component i vanished, and atol or atol(i) == 0)";
+               + t_curr
+               + "; solution component i vanished, and atol or atol(i) == 0)";
       break;
 
     case -13:
       retval = "return requested in user-supplied function (t = "
-        + t_curr + ")";
+               + t_curr + ")";
       break;
 
     default:
--- a/liboctave/numeric/ODE.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/ODE.h	Tue Nov 05 12:27:42 2013 -0500
@@ -41,14 +41,14 @@
     : base_diff_eqn (a), ODEFunc (a) { }
 
   ODE& operator = (const ODE& a)
-    {
-      if (this != &a)
-        {
-          base_diff_eqn::operator = (a);
-          ODEFunc::operator = (a);
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        base_diff_eqn::operator = (a);
+        ODEFunc::operator = (a);
+      }
+    return *this;
+  }
 
   virtual ~ODE (void) { }
 
@@ -71,44 +71,44 @@
 
   // Integrate to t from current point.
   virtual ColumnVector integrate (double tt)
-    { return do_integrate (tt); }
+  { return do_integrate (tt); }
 
   // Set new x0, t0 and integrate to t.
   virtual ColumnVector integrate (const ColumnVector& x0, double t0, double tt)
-    {
-      initialize (x0, t0);
-      return do_integrate (tt);
-    }
+  {
+    initialize (x0, t0);
+    return do_integrate (tt);
+  }
 
   // Integrate from current point and return output at all points
   // specified by t.
   virtual Matrix integrate (const ColumnVector& tt)
-    { return do_integrate (tt); }
+  { return do_integrate (tt); }
 
   // Set new x0, t0 and integrate to return output at all points
   // specified by t.
   virtual Matrix integrate (const ColumnVector& x0, double t0,
                             const ColumnVector& tt)
-    {
-      initialize (x0, t0);
-      return do_integrate (tt);
-    }
+  {
+    initialize (x0, t0);
+    return do_integrate (tt);
+  }
 
   // Integrate from current point and return output at all points
   // specified by t.
   virtual Matrix integrate (const ColumnVector& tt,
                             const ColumnVector& ttcrit)
-    { return do_integrate (tt, ttcrit); }
+  { return do_integrate (tt, ttcrit); }
 
   // Set new x0, t0 and integrate to return output at all points
   // specified by t.
   virtual Matrix integrate (const ColumnVector& x0, double t0,
                             const ColumnVector& tt,
                             const ColumnVector& ttcrit)
-    {
-      initialize (x0, t0);
-      return do_integrate (tt, ttcrit);
-    }
+  {
+    initialize (x0, t0);
+    return do_integrate (tt, ttcrit);
+  }
 };
 
 #endif
--- a/liboctave/numeric/ODEFunc.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/ODEFunc.h	Tue Nov 05 12:27:42 2013 -0500
@@ -47,35 +47,35 @@
     : fun (a.fun), jac (a.jac), reset (true) { }
 
   ODEFunc& operator = (const ODEFunc& a)
-    {
-      if (this != &a)
-        {
-          fun = a.fun;
-          jac = a.jac;
-          reset = a.reset;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        fun = a.fun;
+        jac = a.jac;
+        reset = a.reset;
+      }
+    return *this;
+  }
 
   virtual ~ODEFunc (void) { }
 
   ODERHSFunc function (void) const { return fun; }
 
   ODEFunc& set_function (ODERHSFunc f)
-    {
-      fun = f;
-      reset = true;
-      return *this;
-    }
+  {
+    fun = f;
+    reset = true;
+    return *this;
+  }
 
   ODEJacFunc jacobian_function (void) const { return jac; }
 
   ODEFunc& set_jacobian_function (ODEJacFunc j)
-    {
-      jac = j;
-      reset = true;
-      return *this;
-    }
+  {
+    jac = j;
+    reset = true;
+    return *this;
+  }
 
 protected:
 
--- a/liboctave/numeric/ODES.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/ODES.h	Tue Nov 05 12:27:42 2013 -0500
@@ -46,17 +46,17 @@
     : base_diff_eqn (a), ODESFunc (a), xdot (a.xdot), theta (a.theta) { }
 
   ODES& operator = (const ODES& a)
-    {
-      if (this != &a)
-        {
-          base_diff_eqn::operator = (a);
-          ODESFunc::operator = (a);
+  {
+    if (this != &a)
+      {
+        base_diff_eqn::operator = (a);
+        ODESFunc::operator = (a);
 
-          xdot = a.xdot;
-          theta = a.theta;
-        }
-      return *this;
-    }
+        xdot = a.xdot;
+        theta = a.theta;
+      }
+    return *this;
+  }
 
   ~ODES (void) { }
 
--- a/liboctave/numeric/ODESFunc.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/ODESFunc.h	Tue Nov 05 12:27:42 2013 -0500
@@ -31,10 +31,10 @@
 public:
 
   struct DAEJac
-    {
-      Matrix *dfdxdot;
-      Matrix *dfdx;
-    };
+  {
+    Matrix *dfdxdot;
+    Matrix *dfdx;
+  };
 
   typedef ColumnVector (*ODES_fsub) (const ColumnVector& x, double,
                                      const ColumnVector& theta);
@@ -61,41 +61,41 @@
     : fsub (a.fsub), bsub (a.bsub), jsub (a.jsub) { }
 
   ODESFunc& operator = (const ODESFunc& a)
-    {
-      if (this != &a)
-        {
-          fsub = a.fsub;
-          bsub = a.bsub;
-          jsub = a.jsub;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        fsub = a.fsub;
+        bsub = a.bsub;
+        jsub = a.jsub;
+      }
+    return *this;
+  }
 
   virtual ~ODESFunc (void) { }
 
   ODES_fsub fsub_function (void) const { return fsub; }
 
   ODESFunc& set_fsub_function (ODES_fsub f)
-    {
-      fsub = f;
-      return *this;
-    }
+  {
+    fsub = f;
+    return *this;
+  }
 
   ODES_bsub bsub_function (void) const { return bsub; }
 
   ODESFunc& set_bsub_function (ODES_bsub b)
-    {
-      bsub = b;
-      return *this;
-    }
+  {
+    bsub = b;
+    return *this;
+  }
 
   ODES_jsub jsub_function (void) const { return jsub; }
 
   ODESFunc& set_jsub_function (ODES_jsub j)
-    {
-      jsub = j;
-      return *this;
-    }
+  {
+    jsub = j;
+    return *this;
+  }
 
 protected:
 
--- a/liboctave/numeric/Quad.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/Quad.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,8 +33,7 @@
 static integrand_fcn user_fcn;
 static float_integrand_fcn float_user_fcn;
 
-// FIXME -- would be nice to not have to have this global
-// variable.
+// FIXME: would be nice to not have to have this global variable.
 // Nonzero means an error occurred in the calculation of the integrand
 // function, and the user wants us to quit.
 int quad_integration_error = 0;
@@ -124,7 +123,8 @@
 }
 
 double
-DefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr)
+DefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                       double& abserr)
 {
   octave_idx_type npts = singularities.capacity () + 2;
   double *points = singularities.fortran_vec ();
@@ -160,7 +160,8 @@
 }
 
 double
-IndefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr)
+IndefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                         double& abserr)
 {
   double result = 0.0;
 
@@ -220,7 +221,8 @@
 }
 
 float
-FloatDefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr)
+FloatDefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                            float& abserr)
 {
   octave_idx_type npts = singularities.capacity () + 2;
   float *points = singularities.fortran_vec ();
@@ -256,7 +258,8 @@
 }
 
 float
-FloatIndefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr)
+FloatIndefQuad::do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                              float& abserr)
 {
   float result = 0.0;
 
--- a/liboctave/numeric/Quad.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/Quad.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,16 +29,10 @@
 #include "fColVector.h"
 #include "lo-math.h"
 
-#if !defined (octave_Quad_typedefs)
-#define octave_Quad_typedefs 1
-
 typedef double (*integrand_fcn) (double x);
 typedef float (*float_integrand_fcn) (float x);
 
-#endif
-
-// FIXME -- would be nice to not have to have this global
-// variable.
+// FIXME: would be nice to not have to have this global variable.
 // Nonzero means an error occurred in the calculation of the integrand
 // function, and the user wants us to quit.
 extern OCTAVE_API int quad_integration_error;
@@ -49,7 +43,7 @@
 OCTAVE_API
 Quad : public Quad_options
 {
- public:
+public:
 
   Quad (integrand_fcn fcn)
     : Quad_options (), f (fcn), ff () { }
@@ -60,60 +54,64 @@
   virtual ~Quad (void) { }
 
   virtual double integrate (void)
-    {
-      octave_idx_type ier, neval;
-      double abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    octave_idx_type ier, neval;
+    double abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
   virtual float float_integrate (void)
-    {
-      octave_idx_type ier, neval;
-      float abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    octave_idx_type ier, neval;
+    float abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
   virtual double integrate (octave_idx_type& ier)
-    {
-      octave_idx_type neval;
-      double abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    octave_idx_type neval;
+    double abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
   virtual float float_integrate (octave_idx_type& ier)
-    {
-      octave_idx_type neval;
-      float abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    octave_idx_type neval;
+    float abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
   virtual double integrate (octave_idx_type& ier, octave_idx_type& neval)
-    {
-      double abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    double abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
   virtual float float_integrate (octave_idx_type& ier, octave_idx_type& neval)
-    {
-      float abserr;
-      return do_integrate (ier, neval, abserr);
-    }
+  {
+    float abserr;
+    return do_integrate (ier, neval, abserr);
+  }
 
-  virtual double integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr)
-    {
-      return do_integrate (ier, neval, abserr);
-    }
+  virtual double integrate (octave_idx_type& ier, octave_idx_type& neval,
+                            double& abserr)
+  {
+    return do_integrate (ier, neval, abserr);
+  }
 
-  virtual float float_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr)
-    {
-      return do_integrate (ier, neval, abserr);
-    }
+  virtual float float_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                                 float& abserr)
+  {
+    return do_integrate (ier, neval, abserr);
+  }
 
-  virtual double do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr) = 0;
+  virtual double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                               double& abserr) = 0;
 
-  virtual float do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr) = 0;
+  virtual float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                              float& abserr) = 0;
 
- protected:
+protected:
 
   integrand_fcn f;
   float_integrand_fcn ff;
@@ -123,7 +121,7 @@
 OCTAVE_API
 DefQuad : public Quad
 {
- public:
+public:
 
   DefQuad (integrand_fcn fcn)
     : Quad (fcn), lower_limit (0.0), upper_limit (1.0), singularities () { }
@@ -142,11 +140,13 @@
 
   ~DefQuad (void) { }
 
-  double do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr);
+  double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                       double& abserr);
 
-  float do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr);
+  float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                      float& abserr);
 
- private:
+private:
 
   double lower_limit;
   double upper_limit;
@@ -158,7 +158,7 @@
 OCTAVE_API
 IndefQuad : public Quad
 {
- public:
+public:
 
   enum IntegralType { bound_to_inf, neg_inf_to_bound, doubly_infinite };
 
@@ -170,11 +170,13 @@
 
   ~IndefQuad (void) { }
 
-  double do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr);
+  double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                       double& abserr);
 
-  float do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr);
+  float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                      float& abserr);
 
- private:
+private:
 
   double bound;
   IntegralType type;
@@ -185,7 +187,7 @@
 OCTAVE_API
 FloatDefQuad : public Quad
 {
- public:
+public:
 
   FloatDefQuad (float_integrand_fcn fcn)
     : Quad (fcn), lower_limit (0.0), upper_limit (1.0), singularities () { }
@@ -194,7 +196,7 @@
     : Quad (fcn), lower_limit (ll), upper_limit (ul), singularities () { }
 
   FloatDefQuad (float_integrand_fcn fcn, float ll, float ul,
-           const FloatColumnVector& sing)
+                const FloatColumnVector& sing)
     : Quad (fcn), lower_limit (ll), upper_limit (ul),
       singularities (sing) { }
 
@@ -204,11 +206,13 @@
 
   ~FloatDefQuad (void) { }
 
-  double do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr);
+  double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                       double& abserr);
 
-  float do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr);
+  float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                      float& abserr);
 
- private:
+private:
 
   float lower_limit;
   float upper_limit;
@@ -220,7 +224,7 @@
 OCTAVE_API
 FloatIndefQuad : public Quad
 {
- public:
+public:
 
   enum IntegralType { bound_to_inf, neg_inf_to_bound, doubly_infinite };
 
@@ -232,11 +236,13 @@
 
   ~FloatIndefQuad (void) { }
 
-  double do_integrate (octave_idx_type& ier, octave_idx_type& neval, double& abserr);
+  double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                       double& abserr);
 
-  float do_integrate (octave_idx_type& ier, octave_idx_type& neval, float& abserr);
+  float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
+                      float& abserr);
 
- private:
+private:
 
   float bound;
   IntegralType type;
--- a/liboctave/numeric/SparseCmplxCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -61,10 +61,10 @@
         }
       else
         (*current_liboctave_error_handler)
-          ("spchol2inv requires triangular matrix");
+          ("U must be a triangular matrix");
     }
   else
-    (*current_liboctave_error_handler) ("spchol2inv requires square matrix");
+    (*current_liboctave_error_handler) ("U must be a square matrix");
 
   return retval;
 }
--- a/liboctave/numeric/SparseCmplxCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_complex_CHOL_h)
-#define octave_sparse_complex_CHOL_h 1
+#if !defined (octave_SparseCmplxCHOL_h)
+#define octave_SparseCmplxCHOL_h 1
 
 #include "sparse-base-chol.h"
 #include "dSparse.h"
@@ -30,66 +30,78 @@
 
 class
 OCTAVE_API
-SparseComplexCHOL :
-  public sparse_base_chol <SparseComplexMatrix, Complex, SparseMatrix>
+SparseComplexCHOL
+  : public sparse_base_chol <SparseComplexMatrix, Complex, SparseMatrix>
 {
 public:
 
-  SparseComplexCHOL (void) :
-    sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> () { }
+  SparseComplexCHOL (void)
+    : sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> () { }
 
   SparseComplexCHOL (const SparseComplexMatrix& a, bool natural = true,
-                     bool force = false) :
-    sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> (a, natural, force) { }
+                     bool force = false)
+    : sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>
+       (a, natural, force) { }
 
   SparseComplexCHOL (const SparseComplexMatrix& a, octave_idx_type& info,
-                     bool natural = true, bool force = false) :
-    sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> (a, info, natural, force) { }
+                     bool natural = true, bool force = false)
+    : sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>
+       (a, info, natural, force) { }
 
-  SparseComplexCHOL (const SparseComplexCHOL& a) :
-    sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> (a) { }
+  SparseComplexCHOL (const SparseComplexCHOL& a)
+    : sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix> (a) { }
 
   ~SparseComplexCHOL (void) { }
 
   SparseComplexCHOL& operator = (const SparseComplexCHOL& a)
-    {
-      if (this != &a)
-        sparse_base_chol <SparseComplexMatrix, Complex, SparseMatrix> ::
-          operator = (a);
+  {
+    if (this != &a)
+      sparse_base_chol <SparseComplexMatrix, Complex, SparseMatrix> ::
+      operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   SparseComplexMatrix chol_matrix (void) const { return R (); }
 
   SparseComplexMatrix L (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: L (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>:: L ();
+  }
 
   SparseComplexMatrix R (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: R (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>:: R ();
+  }
 
   octave_idx_type P (void) const
-   { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: P (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>:: P ();
+  }
 
   ColumnVector perm (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: perm (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex,
+                            SparseMatrix>:: perm ();
+  }
 
   SparseMatrix Q (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: Q (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex, SparseMatrix>:: Q ();
+  }
 
   double rcond (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: rcond (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex,
+                            SparseMatrix>:: rcond ();
+  }
 
   // Compute the inverse of a matrix using the Cholesky factorization.
   SparseComplexMatrix inverse (void) const
-    { return sparse_base_chol<SparseComplexMatrix, Complex,
-        SparseMatrix>:: inverse (); }
+  {
+    return sparse_base_chol<SparseComplexMatrix, Complex,
+                            SparseMatrix>:: inverse ();
+  }
 };
 
 SparseComplexMatrix OCTAVE_API chol2inv (const SparseComplexMatrix& r);
--- a/liboctave/numeric/SparseCmplxLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -38,7 +38,8 @@
 #include "sparse-base-lu.h"
 #include "sparse-base-lu.cc"
 
-template class sparse_base_lu <SparseComplexMatrix, Complex, SparseMatrix, double>;
+template class sparse_base_lu <SparseComplexMatrix, Complex,
+                               SparseMatrix, double>;
 
 #include "oct-sparse.h"
 
@@ -74,7 +75,7 @@
 
       tmp = octave_sparse_params::get_key ("sym_tol");
       if (!xisnan (tmp))
-          Control (UMFPACK_SYM_PIVOT_TOLERANCE) = tmp;
+        Control (UMFPACK_SYM_PIVOT_TOLERANCE) = tmp;
     }
 
   // Set whether we are allowed to modify Q or not
@@ -109,12 +110,12 @@
   if (status < 0)
     {
       (*current_liboctave_error_handler)
-            ("SparseComplexLU::SparseComplexLU symbolic factorization failed");
+        ("SparseComplexLU::SparseComplexLU symbolic factorization failed");
 
       UMFPACK_ZNAME (report_status) (control, status);
       UMFPACK_ZNAME (report_info) (control, info);
 
-      UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+      UMFPACK_ZNAME (free_symbolic) (&Symbolic);
     }
   else
     {
@@ -125,7 +126,7 @@
                                         reinterpret_cast<const double *> (Ax),
                                         0, Symbolic, &Numeric, control,
                                         info);
-      UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+      UMFPACK_ZNAME (free_symbolic) (&Symbolic);
 
       cond = Info (UMFPACK_RCOND);
 
@@ -145,7 +146,7 @@
 
           octave_idx_type lnz, unz, ignore1, ignore2, ignore3;
           status = UMFPACK_ZNAME (get_lunz) (&lnz, &unz, &ignore1,
-                                        &ignore2, &ignore3, Numeric) ;
+                                             &ignore2, &ignore3, Numeric);
 
           if (status < 0)
             {
@@ -204,7 +205,7 @@
                                                     0, p, q, 0, 0,
                                                     &do_recip, Rx, Numeric);
 
-              UMFPACK_ZNAME (free_numeric) (&Numeric) ;
+              UMFPACK_ZNAME (free_numeric) (&Numeric);
 
               if (status < 0)
                 {
@@ -222,14 +223,14 @@
                       Rx[i] = 1.0 / Rx[i];
 
                   UMFPACK_ZNAME (report_matrix) (nr, n_inner,
-                                            Lfact.cidx (), Lfact.ridx (),
-                                            reinterpret_cast<double *> (Lfact.data ()),
-                                            0, 1, control);
+                                                 Lfact.cidx (), Lfact.ridx (),
+                                                 reinterpret_cast<double *> (Lfact.data ()),
+                                                 0, 1, control);
 
                   UMFPACK_ZNAME (report_matrix) (n_inner, nc,
-                                            Ufact.cidx (), Ufact.ridx (),
-                                            reinterpret_cast<double *> (Ufact.data ()),
-                                            0, 1, control);
+                                                 Ufact.cidx (), Ufact.ridx (),
+                                                 reinterpret_cast<double *> (Ufact.data ()),
+                                                 0, 1, control);
                   UMFPACK_ZNAME (report_perm) (nr, p, control);
                   UMFPACK_ZNAME (report_perm) (nc, q, control);
                 }
@@ -312,8 +313,8 @@
       const Complex *Ax = a.data ();
 
       UMFPACK_ZNAME (report_matrix) (nr, nc, Ap, Ai,
-                                reinterpret_cast<const double *> (Ax), 0,
-                                1, control);
+                                     reinterpret_cast<const double *> (Ax), 0,
+                                     1, control);
 
       void *Symbolic;
       Matrix Info (1, UMFPACK_INFO);
@@ -322,17 +323,19 @@
 
       // Null loop so that qinit is imediately deallocated when not
       // needed
-      do {
-        OCTAVE_LOCAL_BUFFER (octave_idx_type, qinit, nc);
+      do
+        {
+          OCTAVE_LOCAL_BUFFER (octave_idx_type, qinit, nc);
 
-        for (octave_idx_type i = 0; i < nc; i++)
-          qinit[i] = static_cast<octave_idx_type> (Qinit (i));
+          for (octave_idx_type i = 0; i < nc; i++)
+            qinit[i] = static_cast<octave_idx_type> (Qinit (i));
 
-        status = UMFPACK_ZNAME (qsymbolic) (nr, nc, Ap, Ai,
-                                       reinterpret_cast<const double *> (Ax),
-                                       0, qinit, &Symbolic, control,
-                                       info);
-      } while (0);
+          status = UMFPACK_ZNAME (qsymbolic) (nr, nc, Ap, Ai,
+                                              reinterpret_cast<const double *> (Ax),
+                                              0, qinit, &Symbolic, control,
+                                              info);
+        }
+      while (0);
 
       if (status < 0)
         {
@@ -342,7 +345,7 @@
           UMFPACK_ZNAME (report_status) (control, status);
           UMFPACK_ZNAME (report_info) (control, info);
 
-          UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+          UMFPACK_ZNAME (free_symbolic) (&Symbolic);
         }
       else
         {
@@ -350,9 +353,9 @@
 
           void *Numeric;
           status = UMFPACK_ZNAME (numeric) (Ap, Ai,
-                                       reinterpret_cast<const double *> (Ax), 0,
-                                       Symbolic, &Numeric, control, info) ;
-          UMFPACK_ZNAME (free_symbolic) (&Symbolic) ;
+                                            reinterpret_cast<const double *> (Ax), 0,
+                                            Symbolic, &Numeric, control, info);
+          UMFPACK_ZNAME (free_symbolic) (&Symbolic);
 
           cond = Info (UMFPACK_RCOND);
 
@@ -372,7 +375,8 @@
 
               octave_idx_type lnz, unz, ignore1, ignore2, ignore3;
               status = UMFPACK_ZNAME (get_lunz) (&lnz, &unz,
-                                            &ignore1, &ignore2, &ignore3, Numeric);
+                                                 &ignore1, &ignore2, &ignore3,
+                                                 Numeric);
 
               if (status < 0)
                 {
@@ -390,7 +394,7 @@
 
                   if (lnz < 1)
                     Lfact = SparseComplexMatrix (n_inner, nr,
-                       static_cast<octave_idx_type> (1));
+                                                 static_cast<octave_idx_type> (1));
                   else
                     Lfact = SparseComplexMatrix (n_inner, nr, lnz);
 
@@ -400,7 +404,7 @@
 
                   if (unz < 1)
                     Ufact = SparseComplexMatrix (n_inner, nc,
-                       static_cast<octave_idx_type> (1));
+                                                 static_cast<octave_idx_type> (1));
                   else
                     Ufact = SparseComplexMatrix  (n_inner, nc, unz);
 
@@ -426,13 +430,13 @@
                   octave_idx_type do_recip;
                   status =
                     UMFPACK_ZNAME (get_numeric) (Ltp, Ltj,
-                                            reinterpret_cast<double *> (Ltx),
-                                            0, Up, Uj,
-                                            reinterpret_cast<double *> (Ux),
-                                            0, p, q, 0, 0,
-                                            &do_recip, Rx, Numeric) ;
+                                                 reinterpret_cast<double *> (Ltx),
+                                                 0, Up, Uj,
+                                                 reinterpret_cast<double *> (Ux),
+                                                 0, p, q, 0, 0,
+                                                 &do_recip, Rx, Numeric);
 
-                  UMFPACK_ZNAME (free_numeric) (&Numeric) ;
+                  UMFPACK_ZNAME (free_numeric) (&Numeric);
 
                   if (status < 0)
                     {
@@ -450,16 +454,16 @@
                           Rx[i] = 1.0 / Rx[i];
 
                       UMFPACK_ZNAME (report_matrix) (nr, n_inner,
-                                                Lfact.cidx (),
-                                                Lfact.ridx (),
-                                                reinterpret_cast<double *> (Lfact.data ()),
-                                                0, 1, control);
+                                                     Lfact.cidx (),
+                                                     Lfact.ridx (),
+                                                     reinterpret_cast<double *> (Lfact.data ()),
+                                                     0, 1, control);
 
                       UMFPACK_ZNAME (report_matrix) (n_inner, nc,
-                                                Ufact.cidx (),
-                                                Ufact.ridx (),
-                                                reinterpret_cast<double *> (Ufact.data ()),
-                                                0, 1, control);
+                                                     Ufact.cidx (),
+                                                     Ufact.ridx (),
+                                                     reinterpret_cast<double *> (Ufact.data ()),
+                                                     0, 1, control);
                       UMFPACK_ZNAME (report_perm) (nr, p, control);
                       UMFPACK_ZNAME (report_perm) (nc, q, control);
                     }
--- a/liboctave/numeric/SparseCmplxLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_complex_LU_h)
-#define octave_sparse_complex_LU_h 1
+#if !defined (octave_SparseCmplxLU_h)
+#define octave_SparseCmplxLU_h 1
 
 #include "sparse-base-lu.h"
 #include "dSparse.h"
@@ -49,16 +49,17 @@
                    bool udiag = false);
 
   SparseComplexLU (const SparseComplexLU& a)
-    : sparse_base_lu <SparseComplexMatrix, Complex, SparseMatrix, double> (a) { }
+    : sparse_base_lu <SparseComplexMatrix, Complex, SparseMatrix, double> (a)
+  { }
 
   SparseComplexLU& operator = (const SparseComplexLU& a)
-    {
-      if (this != &a)
-        sparse_base_lu <SparseComplexMatrix, Complex, SparseMatrix, double>
-          :: operator = (a);
+  {
+    if (this != &a)
+      sparse_base_lu <SparseComplexMatrix, Complex, SparseMatrix, double>
+                     :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~SparseComplexLU (void) { }
 };
--- a/liboctave/numeric/SparseCmplxQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -66,7 +66,7 @@
   A.p = const_cast<octave_idx_type *>(a.cidx ());
   A.i = const_cast<octave_idx_type *>(a.ridx ());
   A.x = const_cast<cs_complex_t *>(reinterpret_cast<const cs_complex_t *>
-                                      (a.data ()));
+                                   (a.data ()));
   A.nz = -1;
   BEGIN_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
 #if defined (CS_VER) && (CS_VER >= 2)
@@ -311,8 +311,7 @@
       if (! q.ok ())
         return ComplexMatrix ();
       x.resize (nc, b_nc);
-      cs_complex_t *vec = reinterpret_cast<cs_complex_t *>
-        (x.fortran_vec ());
+      cs_complex_t *vec = reinterpret_cast<cs_complex_t *> (x.fortran_vec ());
       OCTAVE_C99_COMPLEX (buf, q.S ()->m2);
       OCTAVE_LOCAL_BUFFER (Complex, Xx, b_nr);
       for (volatile octave_idx_type i = 0, idx = 0; i < b_nc; i++, idx+=nc)
@@ -356,8 +355,7 @@
       if (! q.ok ())
         return ComplexMatrix ();
       x.resize (nc, b_nc);
-      cs_complex_t *vec = reinterpret_cast<cs_complex_t *>
-        (x.fortran_vec ());
+      cs_complex_t *vec = reinterpret_cast<cs_complex_t *> (x.fortran_vec ());
       volatile octave_idx_type nbuf = (nc > q.S ()->m2 ? nc : q.S ()->m2);
       OCTAVE_C99_COMPLEX (buf, nbuf);
       OCTAVE_LOCAL_BUFFER (Complex, Xx, b_nr);
@@ -418,7 +416,8 @@
 }
 
 SparseComplexMatrix
-qrsolve (const SparseComplexMatrix&a, const SparseMatrix &b, octave_idx_type &info)
+qrsolve (const SparseComplexMatrix&a, const SparseMatrix &b,
+         octave_idx_type &info)
 {
   info = -1;
 #ifdef HAVE_CXSPARSE
@@ -592,7 +591,8 @@
 }
 
 ComplexMatrix
-qrsolve (const SparseComplexMatrix&a, const ComplexMatrix &b, octave_idx_type &info)
+qrsolve (const SparseComplexMatrix&a, const ComplexMatrix &b,
+         octave_idx_type &info)
 {
   info = -1;
 #ifdef HAVE_CXSPARSE
@@ -616,7 +616,7 @@
         return ComplexMatrix ();
       x.resize (nc, b_nc);
       cs_complex_t *vec = reinterpret_cast<cs_complex_t *>
-        (x.fortran_vec ());
+                          (x.fortran_vec ());
       OCTAVE_C99_COMPLEX (buf, q.S ()->m2);
       for (volatile octave_idx_type i = 0, idx = 0, bidx = 0; i < b_nc;
            i++, idx+=nc, bidx+=b_nr)
@@ -656,8 +656,7 @@
       if (! q.ok ())
         return ComplexMatrix ();
       x.resize (nc, b_nc);
-      cs_complex_t *vec = reinterpret_cast<cs_complex_t *>
-        (x.fortran_vec ());
+      cs_complex_t *vec = reinterpret_cast<cs_complex_t *> (x.fortran_vec ());
       volatile octave_idx_type nbuf = (nc > q.S ()->m2 ? nc : q.S ()->m2);
       OCTAVE_C99_COMPLEX (buf, nbuf);
 #if defined (CS_VER) && (((CS_VER == 2) && (CS_SUBVER >= 2)) || (CS_VER > 2))
@@ -713,7 +712,8 @@
 }
 
 SparseComplexMatrix
-qrsolve (const SparseComplexMatrix&a, const SparseComplexMatrix &b, octave_idx_type &info)
+qrsolve (const SparseComplexMatrix&a, const SparseComplexMatrix &b,
+         octave_idx_type &info)
 {
   info = -1;
 #ifdef HAVE_CXSPARSE
--- a/liboctave/numeric/SparseCmplxQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseCmplxQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (sparse_cmplx_QR_h)
-#define sparse_cmplx_QR_h 1
+#if !defined (octave_SparseCmplxQR_h)
+#define octave_SparseCmplxQR_h 1
 
 #include <iosfwd>
 
@@ -95,23 +95,23 @@
   SparseComplexQR (const SparseComplexQR& a) : rep (a.rep) { rep->count++; }
 
   ~SparseComplexQR (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   SparseComplexQR& operator = (const SparseComplexQR& a)
-    {
-      if (this != &a)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (this != &a)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
-        }
-      return *this;
-    }
+        rep = a.rep;
+        rep->count++;
+      }
+    return *this;
+  }
 
   bool ok (void) const { return rep->ok (); }
 
@@ -122,7 +122,7 @@
   ColumnVector P (void) const { return rep->P (); }
 
   SparseComplexMatrix R (const bool econ = false) const
-    { return rep->R(econ); }
+  { return rep->R(econ); }
 
   ComplexMatrix C (const ComplexMatrix &b) const { return rep->C(b); }
 
--- a/liboctave/numeric/SparseQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -693,7 +693,8 @@
 }
 
 SparseComplexMatrix
-qrsolve (const SparseMatrix&a, const SparseComplexMatrix &b, octave_idx_type &info)
+qrsolve (const SparseMatrix&a, const SparseComplexMatrix &b,
+         octave_idx_type &info)
 {
   info = -1;
 #ifdef HAVE_CXSPARSE
--- a/liboctave/numeric/SparseQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparseQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (sparse_QR_h)
-#define sparse_QR_h 1
+#if !defined (octave_SparseQR_h)
+#define octave_SparseQR_h 1
 
 #include <iosfwd>
 
@@ -97,23 +97,23 @@
   SparseQR (const SparseQR& a) : rep (a.rep) { rep->count++; }
 
   ~SparseQR (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   SparseQR& operator = (const SparseQR& a)
-    {
-      if (this != &a)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (this != &a)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
-        }
-      return *this;
-    }
+        rep = a.rep;
+        rep->count++;
+      }
+    return *this;
+  }
 
   bool ok (void) const { return rep->ok (); }
 
@@ -133,7 +133,7 @@
                          octave_idx_type &info);
 
   friend SparseMatrix qrsolve (const SparseMatrix &a, const SparseMatrix &b,
-                         octave_idx_type &info);
+                               octave_idx_type &info);
 
   friend ComplexMatrix qrsolve (const SparseMatrix &a, const ComplexMatrix &b,
                                 octave_idx_type &info);
--- a/liboctave/numeric/SparsedbleCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparsedbleCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -61,10 +61,10 @@
         }
       else
         (*current_liboctave_error_handler)
-          ("spchol2inv requires triangular matrix");
+          ("U must be a triangular matrix");
     }
   else
-    (*current_liboctave_error_handler) ("spchol2inv requires square matrix");
+    (*current_liboctave_error_handler) ("U must be a square matrix");
 
   return retval;
 }
--- a/liboctave/numeric/SparsedbleCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparsedbleCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_CHOL_h)
-#define octave_sparse_CHOL_h 1
+#if !defined (octave_SparsedbleCHOL_h)
+#define octave_SparsedbleCHOL_h 1
 
 #include "sparse-base-chol.h"
 #include "dSparse.h"
@@ -33,14 +33,18 @@
 {
 public:
 
-  SparseCHOL (void) : sparse_base_chol<SparseMatrix, double, SparseMatrix> () { }
+  SparseCHOL (void) : sparse_base_chol<SparseMatrix, double, SparseMatrix> ()
+  { }
 
-  SparseCHOL (const SparseMatrix& a, bool natural = true, bool force = false) :
-    sparse_base_chol<SparseMatrix, double, SparseMatrix> (a, natural, force) { }
+  SparseCHOL (const SparseMatrix& a, bool natural = true, bool force = false)
+    : sparse_base_chol<SparseMatrix, double, SparseMatrix> (a, natural, force)
+  { }
 
   SparseCHOL (const SparseMatrix& a, octave_idx_type& info,
-              bool natural = false, bool force = false) :
-    sparse_base_chol<SparseMatrix, double, SparseMatrix> (a, info, natural, force) { }
+              bool natural = false, bool force = false)
+    : sparse_base_chol<SparseMatrix, double, SparseMatrix> (a, info, natural,
+                                                            force)
+  { }
 
   SparseCHOL (const SparseCHOL& a) :
     sparse_base_chol<SparseMatrix, double, SparseMatrix> (a) { }
@@ -48,12 +52,12 @@
   ~SparseCHOL (void) { }
 
   SparseCHOL& operator = (const SparseCHOL& a)
-    {
-      if (this != &a)
-        sparse_base_chol <SparseMatrix, double, SparseMatrix> :: operator = (a);
+  {
+    if (this != &a)
+      sparse_base_chol <SparseMatrix, double, SparseMatrix> :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   SparseMatrix chol_matrix (void) const { return R (); }
 
@@ -61,24 +65,25 @@
   { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: L (); }
 
   SparseMatrix R (void) const
-    { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: R (); }
+  { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: R (); }
 
   octave_idx_type P (void) const
-    { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: P (); }
+  { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: P (); }
 
   ColumnVector perm (void) const
-    { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: perm (); }
+  { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: perm (); }
 
   SparseMatrix Q (void) const
-    { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: Q (); }
+  { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: Q (); }
 
   double rcond (void) const
-    { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: rcond (); }
+  { return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: rcond (); }
 
   // Compute the inverse of a matrix using the Cholesky factorization.
   SparseMatrix inverse (void) const
-   { return sparse_base_chol<SparseMatrix, double, SparseMatrix>::
-       inverse (); }
+  {
+    return sparse_base_chol<SparseMatrix, double, SparseMatrix>:: inverse ();
+  }
 };
 
 SparseMatrix OCTAVE_API chol2inv (const SparseMatrix& r);
--- a/liboctave/numeric/SparsedbleLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparsedbleLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -74,7 +74,7 @@
 
       tmp = octave_sparse_params::get_key ("sym_tol");
       if (!xisnan (tmp))
-          Control (UMFPACK_SYM_PIVOT_TOLERANCE) = tmp;
+        Control (UMFPACK_SYM_PIVOT_TOLERANCE) = tmp;
     }
 
   // Set whether we are allowed to modify Q or not
@@ -99,12 +99,12 @@
   Matrix Info (1, UMFPACK_INFO);
   double *info = Info.fortran_vec ();
   int status = UMFPACK_DNAME (qsymbolic) (nr, nc, Ap, Ai, Ax, 0,
-                                     &Symbolic, control, info);
+                                          &Symbolic, control, info);
 
   if (status < 0)
     {
       (*current_liboctave_error_handler)
-            ("SparseLU::SparseLU symbolic factorization failed");
+        ("SparseLU::SparseLU symbolic factorization failed");
 
       UMFPACK_DNAME (report_status) (control, status);
       UMFPACK_DNAME (report_info) (control, info);
@@ -117,7 +117,7 @@
 
       void *Numeric;
       status = UMFPACK_DNAME (numeric) (Ap, Ai, Ax, Symbolic,
-                                   &Numeric, control, info) ;
+                                        &Numeric, control, info) ;
       UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
 
       cond = Info (UMFPACK_RCOND);
@@ -138,7 +138,7 @@
 
           octave_idx_type lnz, unz, ignore1, ignore2, ignore3;
           status = UMFPACK_DNAME (get_lunz) (&lnz, &unz, &ignore1,
-                                        &ignore2, &ignore3, Numeric) ;
+                                             &ignore2, &ignore3, Numeric) ;
 
           if (status < 0)
             {
@@ -191,9 +191,9 @@
 
               octave_idx_type do_recip;
               status = UMFPACK_DNAME (get_numeric) (Ltp, Ltj, Ltx,
-                                               Up, Uj, Ux, p, q, 0,
-                                               &do_recip, Rx,
-                                               Numeric) ;
+                                                    Up, Uj, Ux, p, q, 0,
+                                                    &do_recip, Rx,
+                                                    Numeric) ;
 
               UMFPACK_DNAME (free_numeric) (&Numeric) ;
 
@@ -213,11 +213,11 @@
                       Rx[i] = 1.0 / Rx[i];
 
                   UMFPACK_DNAME (report_matrix) (nr, n_inner,
-                                            Lfact.cidx (), Lfact.ridx (),
-                                            Lfact.data (), 1, control);
+                                                 Lfact.cidx (), Lfact.ridx (),
+                                                 Lfact.data (), 1, control);
                   UMFPACK_DNAME (report_matrix) (n_inner, nc,
-                                            Ufact.cidx (), Ufact.ridx (),
-                                            Ufact.data (), 1, control);
+                                                 Ufact.cidx (), Ufact.ridx (),
+                                                 Ufact.data (), 1, control);
                   UMFPACK_DNAME (report_perm) (nr, p, control);
                   UMFPACK_DNAME (report_perm) (nc, q, control);
                 }
@@ -299,7 +299,7 @@
       const double *Ax = a.data ();
 
       UMFPACK_DNAME (report_matrix) (nr, nc, Ap, Ai, Ax, 1,
-                                                     control);
+                                     control);
 
       void *Symbolic;
       Matrix Info (1, UMFPACK_INFO);
@@ -307,15 +307,17 @@
       int status;
 
       // Null loop so that qinit is imediately deallocated when not needed
-      do {
-        OCTAVE_LOCAL_BUFFER (octave_idx_type, qinit, nc);
+      do
+        {
+          OCTAVE_LOCAL_BUFFER (octave_idx_type, qinit, nc);
 
-        for (octave_idx_type i = 0; i < nc; i++)
-          qinit[i] = static_cast<octave_idx_type> (Qinit (i));
+          for (octave_idx_type i = 0; i < nc; i++)
+            qinit[i] = static_cast<octave_idx_type> (Qinit (i));
 
-        status = UMFPACK_DNAME (qsymbolic) (nr, nc, Ap, Ai, Ax,
-                                       qinit, &Symbolic, control, info);
-      } while (0);
+          status = UMFPACK_DNAME (qsymbolic) (nr, nc, Ap, Ai, Ax,
+                                              qinit, &Symbolic, control, info);
+        }
+      while (0);
 
       if (status < 0)
         {
@@ -333,7 +335,7 @@
 
           void *Numeric;
           status = UMFPACK_DNAME (numeric) (Ap, Ai, Ax, Symbolic,
-                                       &Numeric, control, info) ;
+                                            &Numeric, control, info) ;
           UMFPACK_DNAME (free_symbolic) (&Symbolic) ;
 
           cond = Info (UMFPACK_RCOND);
@@ -353,8 +355,9 @@
               UMFPACK_DNAME (report_numeric) (Numeric, control);
 
               octave_idx_type lnz, unz, ignore1, ignore2, ignore3;
-              status = UMFPACK_DNAME (get_lunz) (&lnz, &unz, &ignore1, &ignore2,
-                                                 &ignore3, Numeric) ;
+              status = UMFPACK_DNAME (get_lunz) (&lnz, &unz,
+                                                 &ignore1, &ignore2, &ignore3,
+                                                 Numeric) ;
 
               if (status < 0)
                 {
@@ -407,9 +410,9 @@
 
                   octave_idx_type do_recip;
                   status = UMFPACK_DNAME (get_numeric) (Ltp, Ltj,
-                                                   Ltx, Up, Uj, Ux, p, q,
-                                                   0, &do_recip,
-                                                   Rx, Numeric) ;
+                                                        Ltx, Up, Uj, Ux, p, q,
+                                                        0, &do_recip,
+                                                        Rx, Numeric) ;
 
                   UMFPACK_DNAME (free_numeric) (&Numeric) ;
 
@@ -429,15 +432,15 @@
                           Rx[i] = 1.0 / Rx[i];
 
                       UMFPACK_DNAME (report_matrix) (nr, n_inner,
-                                                Lfact.cidx (),
-                                                Lfact.ridx (),
-                                                Lfact.data (),
-                                                1, control);
+                                                     Lfact.cidx (),
+                                                     Lfact.ridx (),
+                                                     Lfact.data (),
+                                                     1, control);
                       UMFPACK_DNAME (report_matrix) (n_inner, nc,
-                                                Ufact.cidx (),
-                                                Ufact.ridx (),
-                                                Ufact.data (),
-                                                1, control);
+                                                     Ufact.cidx (),
+                                                     Ufact.ridx (),
+                                                     Ufact.data (),
+                                                     1, control);
                       UMFPACK_DNAME (report_perm) (nr, p, control);
                       UMFPACK_DNAME (report_perm) (nc, q, control);
                     }
--- a/liboctave/numeric/SparsedbleLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/SparsedbleLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_sparse_LU_h)
-#define octave_sparse_LU_h 1
+#if !defined (octave_SparsedbleLU_h)
+#define octave_SparsedbleLU_h 1
 
 #include "sparse-base-lu.h"
 #include "dSparse.h"
@@ -48,13 +48,13 @@
     : sparse_base_lu <SparseMatrix, double, SparseMatrix, double> (a) { }
 
   SparseLU& operator = (const SparseLU& a)
-    {
-      if (this != &a)
-        sparse_base_lu <SparseMatrix, double, SparseMatrix, double>
-          :: operator = (a);
+  {
+    if (this != &a)
+      sparse_base_lu <SparseMatrix, double, SparseMatrix, double>
+      :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~SparseLU (void) { }
 };
--- a/liboctave/numeric/base-aepbal.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-aepbal.h	Tue Nov 05 12:27:42 2013 -0500
@@ -43,52 +43,52 @@
   }
 
   base_aepbal& operator = (const base_aepbal& a)
-    {
-      balanced_mat = a.balanced_mat;
-      scale = a.scale;
-      ilo = a.ilo;
-      ihi = a.ihi;
-      job = a.job;
-      return *this;
-    }
+  {
+    balanced_mat = a.balanced_mat;
+    scale = a.scale;
+    ilo = a.ilo;
+    ihi = a.ihi;
+    job = a.job;
+    return *this;
+  }
 
   virtual ~base_aepbal (void) { }
 
   MatrixT balanced_matrix (void) const { return balanced_mat; }
 
   VectorT permuting_vector (void) const
-    {
-      octave_idx_type n = balanced_mat.rows ();
-      VectorT pv (n);
-      for (octave_idx_type i = 0; i < n; i++)
-        pv(i) = i+1;
-      for (octave_idx_type i = n-1; i >= ihi; i--)
-        {
-          octave_idx_type j = scale(i) - 1;
-          std::swap (pv(i), pv(j));
-        }
-      for (octave_idx_type i = 0; i < ilo-1; i++)
-        {
-          octave_idx_type j = scale(i) - 1;
-          std::swap (pv(i), pv(j));
-        }
+  {
+    octave_idx_type n = balanced_mat.rows ();
+    VectorT pv (n);
+    for (octave_idx_type i = 0; i < n; i++)
+      pv(i) = i+1;
+    for (octave_idx_type i = n-1; i >= ihi; i--)
+      {
+        octave_idx_type j = scale(i) - 1;
+        std::swap (pv(i), pv(j));
+      }
+    for (octave_idx_type i = 0; i < ilo-1; i++)
+      {
+        octave_idx_type j = scale(i) - 1;
+        std::swap (pv(i), pv(j));
+      }
 
-      return pv;
-    }
+    return pv;
+  }
 
   VectorT scaling_vector (void) const
-    {
-      octave_idx_type n = balanced_mat.rows ();
-      VectorT scv (n);
-      for (octave_idx_type i = 0; i < ilo-1; i++)
-        scv(i) = 1;
-      for (octave_idx_type i = ilo-1; i < ihi; i++)
-        scv(i) = scale(i);
-      for (octave_idx_type i = ihi; i < n; i++)
-        scv(i) = 1;
+  {
+    octave_idx_type n = balanced_mat.rows ();
+    VectorT scv (n);
+    for (octave_idx_type i = 0; i < ilo-1; i++)
+      scv(i) = 1;
+    for (octave_idx_type i = ilo-1; i < ihi; i++)
+      scv(i) = scale(i);
+    for (octave_idx_type i = ihi; i < n; i++)
+      scv(i) = 1;
 
-      return scv;
-    }
+    return scv;
+  }
 };
 
 #endif
--- a/liboctave/numeric/base-dae.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-dae.h	Tue Nov 05 12:27:42 2013 -0500
@@ -46,27 +46,27 @@
   virtual ~base_diff_alg_eqn (void) { }
 
   base_diff_alg_eqn& operator = (const base_diff_alg_eqn& a)
-    {
-      if (this != &a)
-        {
-          base_diff_eqn::operator = (a);
-          xdot = a.xdot;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        base_diff_eqn::operator = (a);
+        xdot = a.xdot;
+      }
+    return *this;
+  }
 
   void initialize (const ColumnVector& x0, double t0)
-    {
-      base_diff_eqn::initialize (x0, t0);
-      xdot = ColumnVector (x0.length (), 0.0);
-    }
+  {
+    base_diff_eqn::initialize (x0, t0);
+    xdot = ColumnVector (x0.length (), 0.0);
+  }
 
   void initialize (const ColumnVector& x0, const ColumnVector& xdot0,
                    double t0)
-    {
-      base_diff_eqn::initialize (x0, t0);
-      xdot = xdot0;
-    }
+  {
+    base_diff_eqn::initialize (x0, t0);
+    xdot = xdot0;
+  }
 
   ColumnVector state_derivative (void) { return xdot; }
 
--- a/liboctave/numeric/base-de.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-de.h	Tue Nov 05 12:27:42 2013 -0500
@@ -48,29 +48,29 @@
   virtual ~base_diff_eqn (void) { }
 
   base_diff_eqn& operator = (const base_diff_eqn& a)
-    {
-      if (this != &a)
-        {
-          x = a.x;
-          t = a.t;
-          stop_time = a.stop_time;
-          stop_time_set = a.stop_time_set;
-          restart = a.restart;
-          integration_error = a.integration_error;
-          istate = a.istate;
-        }
+  {
+    if (this != &a)
+      {
+        x = a.x;
+        t = a.t;
+        stop_time = a.stop_time;
+        stop_time_set = a.stop_time_set;
+        restart = a.restart;
+        integration_error = a.integration_error;
+        istate = a.istate;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   void initialize (const ColumnVector& x0, double t0)
-    {
-      x = x0;
-      t = t0;
-      integration_error = false;
-      istate = 0;
-      force_restart ();
-    }
+  {
+    x = x0;
+    t = t0;
+    integration_error = false;
+    istate = 0;
+    force_restart ();
+  }
 
   octave_idx_type size (void) const { return x.capacity (); }
 
@@ -79,17 +79,17 @@
   double time (void) const { return t; }
 
   void set_stop_time (double tt)
-    {
-      stop_time_set = true;
-      stop_time = tt;
-      force_restart ();
-    }
+  {
+    stop_time_set = true;
+    stop_time = tt;
+    force_restart ();
+  }
 
   void clear_stop_time (void)
-    {
-      stop_time_set = false;
-      force_restart ();
-    }
+  {
+    stop_time_set = false;
+    force_restart ();
+  }
 
   virtual void force_restart (void) { restart = true; }
 
--- a/liboctave/numeric/base-lu.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-lu.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -111,7 +111,8 @@
 base_lu <lu_type> :: Y (void) const
 {
   if (! packed ())
-    (*current_liboctave_error_handler) ("lu: Y () not implemented for unpacked form");
+    (*current_liboctave_error_handler)
+      ("lu: Y () not implemented for unpacked form");
   return a_fact;
 }
 
--- a/liboctave/numeric/base-lu.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-lu.h	Tue Nov 05 12:27:42 2013 -0500
@@ -46,15 +46,15 @@
            const PermMatrix& p);
 
   base_lu& operator = (const base_lu& a)
-    {
-      if (this != &a)
-        {
-          a_fact = a.a_fact;
-          l_fact = a.l_fact;
-          ipvt = a.ipvt;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        a_fact = a.a_fact;
+        l_fact = a.l_fact;
+        ipvt = a.ipvt;
+      }
+    return *this;
+  }
 
   virtual ~base_lu (void) { }
 
--- a/liboctave/numeric/base-min.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-min.h	Tue Nov 05 12:27:42 2013 -0500
@@ -39,12 +39,12 @@
   virtual ~base_minimizer (void) { }
 
   base_minimizer& operator = (const base_minimizer& a)
-    {
-      if (this != &a)
-        x = a.x;
+  {
+    if (this != &a)
+      x = a.x;
 
-      return *this;
-    }
+    return *this;
+  }
 
   // Derived classes must provide a function to actually do the
   // minimization.
@@ -56,63 +56,63 @@
   // get additional information.
 
   virtual ColumnVector minimize (void)
-    {
-      double objf;
-      octave_idx_type inform;
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    double objf;
+    octave_idx_type inform;
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (double& objf)
-    {
-      octave_idx_type inform;
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    octave_idx_type inform;
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (double& objf, octave_idx_type& inform)
-    {
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (double& objf, octave_idx_type& inform,
                                  ColumnVector& lambda)
-    {
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (const ColumnVector& x0)
-    {
-      x = x0;
-      double objf;
-      octave_idx_type inform;
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    x = x0;
+    double objf;
+    octave_idx_type inform;
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (const ColumnVector& x0, double& objf)
-    {
-      x = x0;
-      octave_idx_type inform;
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    x = x0;
+    octave_idx_type inform;
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (const ColumnVector& x0, double& objf,
                                  octave_idx_type& inform)
-    {
-      x = x0;
-      ColumnVector lambda;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    x = x0;
+    ColumnVector lambda;
+    return do_minimize (objf, inform, lambda);
+  }
 
   virtual ColumnVector minimize (const ColumnVector& x0, double& objf,
                                  octave_idx_type& inform, ColumnVector& lambda)
-    {
-      x = x0;
-      return do_minimize (objf, inform, lambda);
-    }
+  {
+    x = x0;
+    return do_minimize (objf, inform, lambda);
+  }
 
   octave_idx_type size (void) const { return x.capacity (); }
 
--- a/liboctave/numeric/base-qr.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/base-qr.h	Tue Nov 05 12:27:42 2013 -0500
@@ -49,14 +49,14 @@
   base_qr (const base_qr& a) : q (a.q), r (a.r) { }
 
   base_qr& operator = (const base_qr& a)
-    {
-      if (this != &a)
-        {
-          q = a.q;
-          r = a.r;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        q = a.q;
+        r = a.r;
+      }
+    return *this;
+  }
 
   virtual ~base_qr (void) { }
 
--- a/liboctave/numeric/bsxfun.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/bsxfun.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 // Author: Jordi Gutiérrez Hermoso <jordigh@octave.org>
 
-#if !defined (bsxfun_h)
-#define bsxfun_h 1
+#if !defined (octave_bsxfun_h)
+#define octave_bsxfun_h 1
 
 #include <algorithm>
 
@@ -45,7 +45,8 @@
     }
 
   (*current_liboctave_warning_with_id_handler)
-    ("Octave:broadcast", "%s: automatic broadcasting operation applied", name.c_str ());
+    ("Octave:broadcast", "%s: automatic broadcasting operation applied",
+     name.c_str ());
 
   return true;
 }
@@ -72,7 +73,8 @@
     }
 
   (*current_liboctave_warning_with_id_handler)
-    ("Octave:broadcast", "%s: automatic broadcasting operation applied", name.c_str ());
+    ("Octave:broadcast", "%s: automatic broadcasting operation applied",
+     name.c_str ());
 
   return true;
 }
--- a/liboctave/numeric/dbleAEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleAEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_AEPBALANCE_h)
-#define octave_AEPBALANCE_h 1
+#if !defined (octave_dbleAEPBAL_h)
+#define octave_dbleAEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
--- a/liboctave/numeric/dbleCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -342,7 +342,7 @@
       else
         {
           info = init (chol_mat.transpose () * chol_mat
-                - Matrix (u) * Matrix (u).transpose (), false);
+                       - Matrix (u) * Matrix (u).transpose (), false);
           if (info) info = 1;
         }
     }
--- a/liboctave/numeric/dbleCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_CHOL_h)
-#define octave_CHOL_h 1
+#if !defined (octave_dbleCHOL_h)
+#define octave_dbleCHOL_h 1
 
 #include <iosfwd>
 
@@ -39,27 +39,27 @@
 
   CHOL (const Matrix& a, bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      init (a, calc_cond);
-    }
+  {
+    init (a, calc_cond);
+  }
 
   CHOL (const Matrix& a, octave_idx_type& info, bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      info = init (a, calc_cond);
-    }
+  {
+    info = init (a, calc_cond);
+  }
 
   CHOL (const CHOL& a) : chol_mat (a.chol_mat), xrcond (a.xrcond) { }
 
   CHOL& operator = (const CHOL& a)
-    {
-      if (this != &a)
-        {
-          chol_mat = a.chol_mat;
-          xrcond = a.xrcond;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        chol_mat = a.chol_mat;
+        xrcond = a.xrcond;
+      }
+    return *this;
+  }
 
   Matrix chol_matrix (void) const { return chol_mat; }
 
--- a/liboctave/numeric/dbleGEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleGEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_GEPBALANCE_h)
-#define octave_GEPBALANCE_h 1
+#if !defined (octave_dbleGEPBAL_h)
+#define octave_dbleGEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
@@ -36,30 +36,30 @@
 
   GEPBALANCE (void)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    { }
+  { }
 
   GEPBALANCE (const Matrix& a, const Matrix& b, const std::string& balance_job)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    {
-      init (a, b, balance_job);
-    }
+  {
+    init (a, b, balance_job);
+  }
 
   GEPBALANCE (const GEPBALANCE& a)
     : balanced_mat (a.balanced_mat), balanced_mat2 (a.balanced_mat2),
       balancing_mat (a.balancing_mat), balancing_mat2 (a.balancing_mat2)
-    { }
+  { }
 
   GEPBALANCE& operator = (const GEPBALANCE& a)
-    {
-      if (this != &a)
-        {
-          balanced_mat = a.balanced_mat;
-          balanced_mat2 = a.balanced_mat2;
-          balancing_mat = a.balancing_mat;
-          balancing_mat2 = a.balancing_mat2;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        balanced_mat = a.balanced_mat;
+        balanced_mat2 = a.balanced_mat2;
+        balancing_mat = a.balancing_mat;
+        balancing_mat2 = a.balancing_mat2;
+      }
+    return *this;
+  }
 
   ~GEPBALANCE (void) { }
 
--- a/liboctave/numeric/dbleHESS.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleHESS.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_HESS_h)
-#define octave_HESS_h 1
+#if !defined (octave_dbleHESS_h)
+#define octave_dbleHESS_h 1
 
 #include <iosfwd>
 
@@ -39,22 +39,22 @@
 
   HESS (const Matrix& a, octave_idx_type& info)
     : hess_mat (), unitary_hess_mat ()
-    {
-      info = init (a);
-    }
+  {
+    info = init (a);
+  }
 
   HESS (const HESS& a)
     : hess_mat (a.hess_mat), unitary_hess_mat (a.unitary_hess_mat) { }
 
   HESS& operator = (const HESS& a)
-    {
-      if (this != &a)
-        {
-          hess_mat = a.hess_mat;
-          unitary_hess_mat = a.unitary_hess_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        hess_mat = a.hess_mat;
+        unitary_hess_mat = a.unitary_hess_mat;
+      }
+    return *this;
+  }
 
   ~HESS (void) { }
 
--- a/liboctave/numeric/dbleLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -124,7 +124,8 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (dlu1up, DLU1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
+          F77_XFCN (dlu1up, DLU1UP, (m, n, l.fortran_vec (),
+                                     m, r.fortran_vec (), k,
                                      utmp.fortran_vec (), vtmp.fortran_vec ()));
         }
     }
@@ -149,8 +150,10 @@
       ColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (double, w, m);
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) += 1; // increment
-      F77_XFCN (dlup1up, DLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                   ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+      F77_XFCN (dlup1up, DLUP1UP, (m, n, l.fortran_vec (),
+                                   m, r.fortran_vec (), k,
+                                   ipvt.fortran_vec (),
+                                   utmp.data (), vtmp.data (), w));
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
   else
@@ -176,8 +179,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (dlup1up, DLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                       ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+          F77_XFCN (dlup1up, DLUP1UP, (m, n, l.fortran_vec (),
+                                       m, r.fortran_vec (), k,
+                                       ipvt.fortran_vec (),
+                                       utmp.data (), vtmp.data (), w));
         }
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
@@ -189,22 +194,26 @@
 
 void LU::update (const ColumnVector&, const ColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void LU::update (const Matrix&, const Matrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void LU::update_piv (const ColumnVector&, const ColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void LU::update_piv (const Matrix&, const Matrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 #endif
--- a/liboctave/numeric/dbleLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_LU_h)
-#define octave_LU_h 1
+#if !defined (octave_dbleLU_h)
+#define octave_dbleLU_h 1
 
 #include "base-lu.h"
 #include "dMatrix.h"
@@ -42,12 +42,12 @@
     : base_lu <Matrix> (l, u, p) { }
 
   LU& operator = (const LU& a)
-    {
-      if (this != &a)
-        base_lu <Matrix> :: operator = (a);
+  {
+    if (this != &a)
+      base_lu <Matrix> :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~LU (void) { }
 
--- a/liboctave/numeric/dbleQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -121,13 +121,15 @@
     {
       // workspace query.
       double rlwork;
-      F77_XFCN (dgeqrf, DGEQRF, (m, n, afact.fortran_vec (), m, tau, &rlwork, -1, info));
+      F77_XFCN (dgeqrf, DGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 &rlwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = rlwork;
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (double, work, lwork);
-      F77_XFCN (dgeqrf, DGEQRF, (m, n, afact.fortran_vec (), m, tau, work, lwork, info));
+      F77_XFCN (dgeqrf, DGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 work, lwork, info));
     }
 
   form (n, afact, tau, qr_type);
@@ -164,7 +166,7 @@
               octave_idx_type i = 0;
               for (; i <= j; i++)
                 r.xelem (i, j) = afact.xelem (i, j);
-              for (;i < k; i++)
+              for (; i < k; i++)
                 r.xelem (i, j) = 0;
             }
           afact = Matrix (); // optimize memory
@@ -214,7 +216,8 @@
     {
       ColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (double, w, 2*k);
-      F77_XFCN (dqr1up, DQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
+      F77_XFCN (dqr1up, DQR1UP, (m, n, k, q.fortran_vec (),
+                                 m, r.fortran_vec (), k,
                                  utmp.fortran_vec (), vtmp.fortran_vec (), w));
     }
   else
@@ -234,8 +237,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           ColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (dqr1up, DQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                     utmp.fortran_vec (), vtmp.fortran_vec (), w));
+          F77_XFCN (dqr1up, DQR1UP, (m, n, k, q.fortran_vec (),
+                                     m, r.fortran_vec (), k,
+                                     utmp.fortran_vec (), vtmp.fortran_vec (),
+                                     w));
         }
     }
   else
@@ -372,7 +377,8 @@
           octave_idx_type ii = i;
           F77_XFCN (dqrdec, DQRDEC, (m, n - ii, k == m ? k : k - ii,
                                      q.fortran_vec (), q.rows (),
-                                     r.fortran_vec (), r.rows (), js(ii) + 1, w));
+                                     r.fortran_vec (), r.rows (),
+                                     js(ii) + 1, w));
         }
       if (k < m)
         {
@@ -490,7 +496,7 @@
 
 static
 Matrix insert_col (const Matrix& a, octave_idx_type i,
-                        const ColumnVector& x)
+                   const ColumnVector& x)
 {
   Matrix retval (a.rows (), a.columns () + 1);
   retval.assign (idx_vector::colon, idx_vector (0, i),
@@ -503,7 +509,7 @@
 
 static
 Matrix insert_row (const Matrix& a, octave_idx_type i,
-                        const RowVector& x)
+                   const RowVector& x)
 {
   Matrix retval (a.rows () + 1, a.columns ());
   retval.assign (idx_vector (0, i), idx_vector::colon,
@@ -532,7 +538,7 @@
 
 static
 Matrix shift_cols (const Matrix& a,
-                        octave_idx_type i, octave_idx_type j)
+                   octave_idx_type i, octave_idx_type j)
 {
   octave_idx_type n = a.columns ();
   Array<octave_idx_type> p (n);
--- a/liboctave/numeric/dbleQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_QR_h)
-#define octave_QR_h 1
+#if !defined (octave_dbleQR_h)
+#define octave_dbleQR_h 1
 
 #include <iosfwd>
 
--- a/liboctave/numeric/dbleQRP.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleQRP.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -72,15 +72,17 @@
     {
       // workspace query.
       double rlwork;
-      F77_XFCN (dgeqp3, DGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, &rlwork, -1, info));
+      F77_XFCN (dgeqp3, DGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 &rlwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = rlwork;
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (double, work, lwork);
-      F77_XFCN (dgeqp3, DGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, work, lwork, info));
+      F77_XFCN (dgeqp3, DGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 work, lwork, info));
     }
   else
     for (octave_idx_type i = 0; i < n; i++) jpvt(i) = i+1;
--- a/liboctave/numeric/dbleQRP.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleQRP.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_QRP_h)
-#define octave_QRP_h 1
+#if !defined (octave_dbleQRP_h)
+#define octave_dbleQRP_h 1
 
 #include <iosfwd>
 
@@ -42,15 +42,15 @@
   QRP (const QRP& a) : QR (a), p (a.p) { }
 
   QRP& operator = (const QRP& a)
-    {
-      if (this != &a)
-        {
-          QR::operator = (a);
-          p = a.p;
-        }
+  {
+    if (this != &a)
+      {
+        QR::operator = (a);
+        p = a.p;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~QRP (void) { }
 
--- a/liboctave/numeric/dbleSCHUR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleSCHUR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,7 @@
 static octave_idx_type
 select_ana (const double& a, const double&)
 {
-   return (a < 0.0);
+  return (a < 0.0);
 }
 
 static octave_idx_type
--- a/liboctave/numeric/dbleSCHUR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleSCHUR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_SCHUR_h)
-#define octave_SCHUR_h 1
+#if !defined (octave_dbleSCHUR_h)
+#define octave_dbleSCHUR_h 1
 
 #include <iosfwd>
 #include <string>
@@ -38,32 +38,32 @@
 
   SCHUR (const Matrix& a, const std::string& ord, bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      init (a, ord, calc_unitary);
-    }
+  {
+    init (a, ord, calc_unitary);
+  }
 
   SCHUR (const Matrix& a, const std::string& ord, int& info,
          bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      info = init (a, ord, calc_unitary);
-    }
+  {
+    info = init (a, ord, calc_unitary);
+  }
 
   SCHUR (const SCHUR& a)
     : schur_mat (a.schur_mat), unitary_mat (a.unitary_mat), selector (0)
-    { }
+  { }
 
   SCHUR (const Matrix& s, const Matrix& u);
 
   SCHUR& operator = (const SCHUR& a)
-    {
-      if (this != &a)
-        {
-          schur_mat = a.schur_mat;
-          unitary_mat = a.unitary_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        schur_mat = a.schur_mat;
+        unitary_mat = a.unitary_mat;
+      }
+    return *this;
+  }
 
   ~SCHUR (void) { }
 
@@ -82,7 +82,8 @@
 
   select_function selector;
 
-  octave_idx_type init (const Matrix& a, const std::string& ord, bool calc_unitary);
+  octave_idx_type init (const Matrix& a, const std::string& ord,
+                        bool calc_unitary);
 };
 
 #endif
--- a/liboctave/numeric/dbleSVD.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleSVD.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -178,16 +178,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, iwork, 8*min_mn);
 
       F77_XFCN (dgesdd, DGESDD, (F77_CONST_CHAR_ARG2 (&jobz, 1),
-                                 m, n, tmp_data, m1, s_vec, u, m1, vt,
-                                 nrow_vt1, work.fortran_vec (), lwork, iwork, info
+                                 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
+                                 work.fortran_vec (), lwork, iwork, info
                                  F77_CHAR_ARG_LEN (1)));
 
       lwork = static_cast<octave_idx_type> (work(0));
       work.resize (dim_vector (lwork, 1));
 
       F77_XFCN (dgesdd, DGESDD, (F77_CONST_CHAR_ARG2 (&jobz, 1),
-                                 m, n, tmp_data, m1, s_vec, u, m1, vt,
-                                 nrow_vt1, work.fortran_vec (), lwork, iwork, info
+                                 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
+                                 work.fortran_vec (), lwork, iwork, info
                                  F77_CHAR_ARG_LEN (1)));
 
     }
--- a/liboctave/numeric/dbleSVD.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/dbleSVD.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_SVD_h)
-#define octave_SVD_h 1
+#if !defined (octave_dbleSVD_h)
+#define octave_dbleSVD_h 1
 
 #include <iosfwd>
 
@@ -35,51 +35,51 @@
 public:
 
   enum type
-    {
-      std,
-      economy,
-      sigma_only
-    };
+  {
+    std,
+    economy,
+    sigma_only
+  };
 
   enum driver
-    {
-      GESVD,
-      GESDD
-    };
+  {
+    GESVD,
+    GESDD
+  };
 
   SVD (void) : type_computed (), sigma (), left_sm (), right_sm () { }
 
   SVD (const Matrix& a,
        type svd_type = SVD::std, driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      init (a, svd_type, svd_driver);
-    }
+  {
+    init (a, svd_type, svd_driver);
+  }
 
   SVD (const Matrix& a, octave_idx_type& info,
        type svd_type = SVD::std, driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      info = init (a, svd_type, svd_driver);
-    }
+  {
+    info = init (a, svd_type, svd_driver);
+  }
 
   SVD (const SVD& a)
     : type_computed (a.type_computed), sigma (a.sigma),
       left_sm (a.left_sm), right_sm (a.right_sm)
-    { }
+  { }
 
   SVD& operator = (const SVD& a)
-    {
-      if (this != &a)
-        {
-          type_computed = a.type_computed;
-          sigma = a.sigma;
-          left_sm = a.left_sm;
-          right_sm = a.right_sm;
-        }
+  {
+    if (this != &a)
+      {
+        type_computed = a.type_computed;
+        sigma = a.sigma;
+        left_sm = a.left_sm;
+        right_sm = a.right_sm;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~SVD (void) { }
 
--- a/liboctave/numeric/eigs-base.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/eigs-base.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -155,9 +155,11 @@
 
   F77_RET_T
   F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL,
-                           const octave_idx_type&, const octave_idx_type&, const Complex&,
-                           const Complex*, const octave_idx_type&, const Complex*,
-                           const octave_idx_type&, const Complex&, Complex*, const octave_idx_type&
+                           const octave_idx_type&, const octave_idx_type&,
+                           const Complex&, const Complex*,
+                           const octave_idx_type&, const Complex*,
+                           const octave_idx_type&, const Complex&, Complex*,
+                           const octave_idx_type&
                            F77_CHAR_ARG_LEN_DECL);
 
 }
@@ -179,7 +181,7 @@
 
 static ComplexMatrix
 ltsolve (const SparseComplexMatrix&, const ColumnVector&,
-                const ComplexMatrix&);
+         const ComplexMatrix&);
 
 static Matrix
 ltsolve (const SparseMatrix&, const ColumnVector&, const Matrix&,);
@@ -307,7 +309,7 @@
 
 static bool
 vector_product (const SparseComplexMatrix& m, const Complex* x,
-                        Complex* y)
+                Complex* y)
 {
   octave_idx_type nc = m.cols ();
 
@@ -446,11 +448,11 @@
               tmp.xcidx (n) = n;
 
               AminusSigmaB = AminusSigmaB - sigma * tmp *
-                b.transpose () * b * tmp.transpose ();
+                             b.transpose () * b * tmp.transpose ();
             }
           else
             AminusSigmaB = AminusSigmaB - sigma *
-              b.transpose () * b;
+                           b.transpose () * b;
         }
       else
         AminusSigmaB = AminusSigmaB - sigma * b;
@@ -459,18 +461,18 @@
     {
       SparseMatrix sigmat (n, n, n);
 
-          // Create sigma * speye (n,n)
-          sigmat.xcidx (0) = 0;
-          for (octave_idx_type i = 0; i < n; i++)
-            {
-              sigmat.xdata (i) = sigma;
-              sigmat.xridx (i) = i;
-              sigmat.xcidx (i+1) = i + 1;
-            }
-
-          AminusSigmaB = AminusSigmaB - sigmat;
+      // Create sigma * speye (n,n)
+      sigmat.xcidx (0) = 0;
+      for (octave_idx_type i = 0; i < n; i++)
+        {
+          sigmat.xdata (i) = sigma;
+          sigmat.xridx (i) = i;
+          sigmat.xcidx (i+1) = i + 1;
         }
 
+      AminusSigmaB = AminusSigmaB - sigmat;
+    }
+
   SparseLU fact (AminusSigmaB);
 
   L = fact.L ();
@@ -621,7 +623,7 @@
               tmp.xcidx (n) = n;
 
               AminusSigmaB = AminusSigmaB - tmp * b.hermitian () * b *
-                tmp.transpose () * sigma;
+                             tmp.transpose () * sigma;
             }
           else
             AminusSigmaB = AminusSigmaB - sigma * b.hermitian () * b;
@@ -956,8 +958,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -1140,7 +1142,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -1249,8 +1251,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -1460,7 +1462,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -1550,8 +1552,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -1870,8 +1872,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -1927,7 +1929,7 @@
   Array<octave_idx_type> s (dim_vector (p, 1));
   octave_idx_type *sel = s.fortran_vec ();
 
-  // FIXME -- initialize eig_vec2 to zero; apparently dneupd can skip
+  // FIXME: initialize eig_vec2 to zero; apparently dneupd can skip
   // the assignment to elements of Z that represent imaginary parts.
   // Found with valgrind and
   //
@@ -2114,7 +2116,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -2212,8 +2214,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -2313,7 +2315,7 @@
   Array<octave_idx_type> s (dim_vector (p, 1));
   octave_idx_type *sel = s.fortran_vec ();
 
-  // FIXME -- initialize eig_vec2 to zero; apparently dneupd can skip
+  // FIXME: initialize eig_vec2 to zero; apparently dneupd can skip
   // the assignment to elements of Z that represent imaginary parts.
   // Found with valgrind and
   //
@@ -2477,7 +2479,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -2568,8 +2570,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -2625,7 +2627,7 @@
   Array<octave_idx_type> s (dim_vector (p, 1));
   octave_idx_type *sel = s.fortran_vec ();
 
-  // FIXME -- initialize eig_vec2 to zero; apparently dneupd can skip
+  // FIXME: initialize eig_vec2 to zero; apparently dneupd can skip
   // the assignment to elements of Z that represent imaginary parts.
   // Found with valgrind and
   //
@@ -2939,8 +2941,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -3134,7 +3136,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -3233,8 +3235,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
@@ -3451,7 +3453,7 @@
     {
       (*current_liboctave_error_handler)
         ("eigs: Invalid number of eigenvalues to extract (must be 0 < k < n-1).\n"
-             "      Use 'eig (full (A))' instead");
+         "      Use 'eig (full (A))' instead");
       return -1;
     }
 
@@ -3542,8 +3544,8 @@
           if (iter++)
             {
               os << "Iteration " << iter - 1 <<
-                ": a few Ritz values of the " << p << "-by-" <<
-                p << " matrix\n";
+                 ": a few Ritz values of the " << p << "-by-" <<
+                 p << " matrix\n";
               for (int i = 0 ; i < k; i++)
                 os << "    " << workl[iptr(5)+i-1] << "\n";
             }
--- a/liboctave/numeric/fCmplxAEPBAL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxAEPBAL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,7 +53,7 @@
 
 FloatComplexAEPBALANCE::FloatComplexAEPBALANCE (const FloatComplexMatrix& a,
                                                 bool noperm, bool noscal)
- : base_aepbal<FloatComplexMatrix, FloatColumnVector> ()
+  : base_aepbal<FloatComplexMatrix, FloatColumnVector> ()
 {
   octave_idx_type n = a.cols ();
 
--- a/liboctave/numeric/fCmplxAEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxAEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatComplexAEPBALANCE_h)
-#define octave_FloatComplexAEPBALANCE_h 1
+#if !defined (octave_fCmplxAEPBAL_h)
+#define octave_fCmplxAEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
@@ -33,11 +33,13 @@
 
 class
 OCTAVE_API
-FloatComplexAEPBALANCE : public base_aepbal<FloatComplexMatrix, FloatColumnVector>
+FloatComplexAEPBALANCE
+  : public base_aepbal<FloatComplexMatrix, FloatColumnVector>
 {
 public:
 
-  FloatComplexAEPBALANCE (void) : base_aepbal<FloatComplexMatrix, FloatColumnVector> () { }
+  FloatComplexAEPBALANCE (void)
+    : base_aepbal<FloatComplexMatrix, FloatColumnVector> () { }
 
   FloatComplexAEPBALANCE (const FloatComplexMatrix& a, bool noperm = false,
                           bool noscal = false);
--- a/liboctave/numeric/fCmplxCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -236,7 +236,8 @@
 }
 
 octave_idx_type
-FloatComplexCHOL::insert_sym (const FloatComplexColumnVector& u, octave_idx_type j)
+FloatComplexCHOL::insert_sym (const FloatComplexColumnVector& u,
+                              octave_idx_type j)
 {
   octave_idx_type info = -1;
 
@@ -308,7 +309,8 @@
   if (u.length () == n)
     {
       init (chol_mat.hermitian () * chol_mat
-            + FloatComplexMatrix (u) * FloatComplexMatrix (u).hermitian (), false);
+            + FloatComplexMatrix (u) * FloatComplexMatrix (u).hermitian (),
+            false);
     }
   else
     (*current_liboctave_error_handler) ("cholupdate: dimension mismatch");
@@ -338,7 +340,9 @@
       else
         {
           info = init (chol_mat.hermitian () * chol_mat
-                       - FloatComplexMatrix (u) * FloatComplexMatrix (u).hermitian (), false);
+                       - FloatComplexMatrix (u)
+                       * FloatComplexMatrix (u).hermitian (),
+                       false);
           if (info) info = 1;
         }
     }
@@ -349,7 +353,8 @@
 }
 
 octave_idx_type
-FloatComplexCHOL::insert_sym (const FloatComplexColumnVector& u, octave_idx_type j)
+FloatComplexCHOL::insert_sym (const FloatComplexColumnVector& u,
+                              octave_idx_type j)
 {
   warn_qrupdate_once ();
 
--- a/liboctave/numeric/fCmplxCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatComplexCHOL_h)
-#define octave_FloatComplexCHOL_h 1
+#if !defined (octave_fCmplxCHOL_h)
+#define octave_fCmplxCHOL_h 1
 
 #include <iosfwd>
 
@@ -39,30 +39,30 @@
 
   FloatComplexCHOL (const FloatComplexMatrix& a, bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      init (a, calc_cond);
-    }
+  {
+    init (a, calc_cond);
+  }
 
   FloatComplexCHOL (const FloatComplexMatrix& a, octave_idx_type& info,
                     bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      info = init (a, calc_cond);
-    }
+  {
+    info = init (a, calc_cond);
+  }
 
   FloatComplexCHOL (const FloatComplexCHOL& a)
     : chol_mat (a.chol_mat), xrcond (a.xrcond) { }
 
   FloatComplexCHOL& operator = (const FloatComplexCHOL& a)
-    {
-      if (this != &a)
-        {
-          chol_mat = a.chol_mat;
-          xrcond = a.xrcond;
-        }
+  {
+    if (this != &a)
+      {
+        chol_mat = a.chol_mat;
+        xrcond = a.xrcond;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   FloatComplexMatrix chol_matrix (void) const { return chol_mat; }
 
--- a/liboctave/numeric/fCmplxGEPBAL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxGEPBAL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -58,14 +58,16 @@
 }
 
 octave_idx_type
-FloatComplexGEPBALANCE::init (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
-                  const std::string& balance_job)
+FloatComplexGEPBALANCE::init (const FloatComplexMatrix& a,
+                              const FloatComplexMatrix& b,
+                              const std::string& balance_job)
 {
   octave_idx_type n = a.cols ();
 
   if (a.rows () != n)
     {
-      (*current_liboctave_error_handler) ("FloatComplexGEPBALANCE requires square matrix");
+      (*current_liboctave_error_handler)
+        ("FloatComplexGEPBALANCE requires square matrix");
       return -1;
     }
 
--- a/liboctave/numeric/fCmplxGEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxGEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexGEPBALANCE_h)
-#define octave_FloatComplexGEPBALANCE_h 1
+#if !defined (octave_fCmplxGEPBAL_h)
+#define octave_fCmplxGEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
@@ -37,32 +37,32 @@
 
   FloatComplexGEPBALANCE (void)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    { }
+  { }
 
   FloatComplexGEPBALANCE (const FloatComplexMatrix& a,
                           const FloatComplexMatrix& b,
                           const std::string& balance_job)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    {
-      init (a, b, balance_job);
-    }
+  {
+    init (a, b, balance_job);
+  }
 
   FloatComplexGEPBALANCE (const FloatComplexGEPBALANCE& a)
     : balanced_mat (a.balanced_mat), balanced_mat2 (a.balanced_mat2),
       balancing_mat (a.balancing_mat), balancing_mat2 (a.balancing_mat2)
-    { }
+  { }
 
   FloatComplexGEPBALANCE& operator = (const FloatComplexGEPBALANCE& a)
-    {
-      if (this != &a)
-        {
-          balanced_mat = a.balanced_mat;
-          balanced_mat2 = a.balanced_mat2;
-          balancing_mat = a.balancing_mat;
-          balancing_mat2 = a.balancing_mat2;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        balanced_mat = a.balanced_mat;
+        balanced_mat2 = a.balanced_mat2;
+        balancing_mat = a.balancing_mat;
+        balancing_mat2 = a.balancing_mat2;
+      }
+    return *this;
+  }
 
   ~FloatComplexGEPBALANCE (void) { }
 
@@ -74,7 +74,8 @@
 
   FloatMatrix balancing_matrix2 (void) const { return balancing_mat2; }
 
-  friend std::ostream& operator << (std::ostream& os, const FloatComplexGEPBALANCE& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const FloatComplexGEPBALANCE& a);
 
 private:
 
@@ -83,7 +84,8 @@
   FloatMatrix balancing_mat;
   FloatMatrix balancing_mat2;
 
-  octave_idx_type init (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
+  octave_idx_type init (const FloatComplexMatrix& a,
+                        const FloatComplexMatrix& b,
                         const std::string& balance_job);
 };
 
--- a/liboctave/numeric/fCmplxHESS.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxHESS.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexHESS_h)
-#define octave_FloatComplexHESS_h 1
+#if !defined (octave_fCmplxHESS_h)
+#define octave_fCmplxHESS_h 1
 
 #include <iosfwd>
 
@@ -37,39 +37,40 @@
 
   FloatComplexHESS (const FloatComplexMatrix& a)
     : hess_mat (), unitary_hess_mat ()
-    {
-      init (a);
-    }
+  {
+    init (a);
+  }
 
   FloatComplexHESS (const FloatComplexMatrix& a, octave_idx_type& info)
     : hess_mat (), unitary_hess_mat ()
-    {
-      info = init (a);
-    }
+  {
+    info = init (a);
+  }
 
   FloatComplexHESS (const FloatComplexHESS& a)
     : hess_mat (a.hess_mat), unitary_hess_mat (a.unitary_hess_mat) { }
 
   FloatComplexHESS& operator = (const FloatComplexHESS& a)
-    {
-      if (this != &a)
-        {
-          hess_mat = a.hess_mat;
-          unitary_hess_mat = a.unitary_hess_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        hess_mat = a.hess_mat;
+        unitary_hess_mat = a.unitary_hess_mat;
+      }
+    return *this;
+  }
 
   ~FloatComplexHESS (void) { }
 
   FloatComplexMatrix hess_matrix (void) const { return hess_mat; }
 
   FloatComplexMatrix unitary_hess_matrix (void) const
-    {
-      return unitary_hess_mat;
-    }
+  {
+    return unitary_hess_mat;
+  }
 
-  friend std::ostream& operator << (std::ostream& os, const FloatComplexHESS& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const FloatComplexHESS& a);
 
 private:
 
--- a/liboctave/numeric/fCmplxLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -85,7 +85,8 @@
 
 #ifdef HAVE_QRUPDATE_LUU
 
-void FloatComplexLU::update (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v)
+void FloatComplexLU::update (const FloatComplexColumnVector& u,
+                             const FloatComplexColumnVector& v)
 {
   if (packed ())
     unpack ();
@@ -107,7 +108,8 @@
     (*current_liboctave_error_handler) ("luupdate: dimensions mismatch");
 }
 
-void FloatComplexLU::update (const FloatComplexMatrix& u, const FloatComplexMatrix& v)
+void FloatComplexLU::update (const FloatComplexMatrix& u,
+                             const FloatComplexMatrix& v)
 {
   if (packed ())
     unpack ();
@@ -124,7 +126,8 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (clu1up, CLU1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
+          F77_XFCN (clu1up, CLU1UP, (m, n, l.fortran_vec (),
+                                     m, r.fortran_vec (), k,
                                      utmp.fortran_vec (), vtmp.fortran_vec ()));
         }
     }
@@ -132,7 +135,8 @@
     (*current_liboctave_error_handler) ("luupdate: dimensions mismatch");
 }
 
-void FloatComplexLU::update_piv (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v)
+void FloatComplexLU::update_piv (const FloatComplexColumnVector& u,
+                                 const FloatComplexColumnVector& v)
 {
   if (packed ())
     unpack ();
@@ -149,15 +153,18 @@
       FloatComplexColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (FloatComplex, w, m);
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) += 1; // increment
-      F77_XFCN (clup1up, CLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                   ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+      F77_XFCN (clup1up, CLUP1UP, (m, n, l.fortran_vec (),
+                                   m, r.fortran_vec (), k,
+                                   ipvt.fortran_vec (),
+                                   utmp.data (), vtmp.data (), w));
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
   else
     (*current_liboctave_error_handler) ("luupdate: dimensions mismatch");
 }
 
-void FloatComplexLU::update_piv (const FloatComplexMatrix& u, const FloatComplexMatrix& v)
+void FloatComplexLU::update_piv (const FloatComplexMatrix& u,
+                                 const FloatComplexMatrix& v)
 {
   if (packed ())
     unpack ();
@@ -176,8 +183,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (clup1up, CLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                       ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+          F77_XFCN (clup1up, CLUP1UP, (m, n, l.fortran_vec (),
+                                       m, r.fortran_vec (), k,
+                                       ipvt.fortran_vec (),
+                                       utmp.data (), vtmp.data (), w));
         }
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
@@ -187,24 +196,32 @@
 
 #else
 
-void FloatComplexLU::update (const FloatComplexColumnVector&, const FloatComplexColumnVector&)
+void FloatComplexLU::update (const FloatComplexColumnVector&,
+                             const FloatComplexColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
-void FloatComplexLU::update (const FloatComplexMatrix&, const FloatComplexMatrix&)
+void FloatComplexLU::update (const FloatComplexMatrix&,
+                             const FloatComplexMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
-void FloatComplexLU::update_piv (const FloatComplexColumnVector&, const FloatComplexColumnVector&)
+void FloatComplexLU::update_piv (const FloatComplexColumnVector&,
+                                 const FloatComplexColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
-void FloatComplexLU::update_piv (const FloatComplexMatrix&, const FloatComplexMatrix&)
+void FloatComplexLU::update_piv (const FloatComplexMatrix&,
+                                 const FloatComplexMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 #endif
--- a/liboctave/numeric/fCmplxLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexLU_h)
-#define octave_FloatComplexLU_h 1
+#if !defined (octave_fCmplxLU_h)
+#define octave_fCmplxLU_h 1
 
 #include "base-lu.h"
 #include "dMatrix.h"
@@ -46,20 +46,22 @@
     : base_lu <FloatComplexMatrix> (l, u, p) { }
 
   FloatComplexLU& operator = (const FloatComplexLU& a)
-    {
-      if (this != &a)
-        base_lu <FloatComplexMatrix> :: operator = (a);
+  {
+    if (this != &a)
+      base_lu <FloatComplexMatrix> :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~FloatComplexLU (void) { }
 
-  void update (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v);
+  void update (const FloatComplexColumnVector& u,
+               const FloatComplexColumnVector& v);
 
   void update (const FloatComplexMatrix& u, const FloatComplexMatrix& v);
 
-  void update_piv (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v);
+  void update_piv (const FloatComplexColumnVector& u,
+                   const FloatComplexColumnVector& v);
 
   void update_piv (const FloatComplexMatrix& u, const FloatComplexMatrix& v);
 };
--- a/liboctave/numeric/fCmplxQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -123,13 +123,15 @@
     {
       // workspace query.
       FloatComplex clwork;
-      F77_XFCN (cgeqrf, CGEQRF, (m, n, afact.fortran_vec (), m, tau, &clwork, -1, info));
+      F77_XFCN (cgeqrf, CGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 &clwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = clwork.real ();
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (FloatComplex, work, lwork);
-      F77_XFCN (cgeqrf, CGEQRF, (m, n, afact.fortran_vec (), m, tau, work, lwork, info));
+      F77_XFCN (cgeqrf, CGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 work, lwork, info));
     }
 
   form (n, afact, tau, qr_type);
@@ -166,7 +168,7 @@
               octave_idx_type i = 0;
               for (; i <= j; i++)
                 r.xelem (i, j) = afact.xelem (i, j);
-              for (;i < k; i++)
+              for (; i < k; i++)
                 r.xelem (i, j) = 0;
             }
           afact = FloatComplexMatrix (); // optimize memory
@@ -206,7 +208,8 @@
 #ifdef HAVE_QRUPDATE
 
 void
-FloatComplexQR::update (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v)
+FloatComplexQR::update (const FloatComplexColumnVector& u,
+                        const FloatComplexColumnVector& v)
 {
   octave_idx_type m = q.rows ();
   octave_idx_type n = r.columns ();
@@ -217,15 +220,18 @@
       FloatComplexColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (FloatComplex, w, k);
       OCTAVE_LOCAL_BUFFER (float, rw, k);
-      F77_XFCN (cqr1up, CQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                 utmp.fortran_vec (), vtmp.fortran_vec (), w, rw));
+      F77_XFCN (cqr1up, CQR1UP, (m, n, k, q.fortran_vec (),
+                                 m, r.fortran_vec (), k,
+                                 utmp.fortran_vec (), vtmp.fortran_vec (),
+                                 w, rw));
     }
   else
     (*current_liboctave_error_handler) ("qrupdate: dimensions mismatch");
 }
 
 void
-FloatComplexQR::update (const FloatComplexMatrix& u, const FloatComplexMatrix& v)
+FloatComplexQR::update (const FloatComplexMatrix& u,
+                        const FloatComplexMatrix& v)
 {
   octave_idx_type m = q.rows ();
   octave_idx_type n = r.columns ();
@@ -238,8 +244,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatComplexColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (cqr1up, CQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                     utmp.fortran_vec (), vtmp.fortran_vec (), w, rw));
+          F77_XFCN (cqr1up, CQR1UP, (m, n, k, q.fortran_vec (),
+                                     m, r.fortran_vec (), k,
+                                     utmp.fortran_vec (), vtmp.fortran_vec (),
+                                     w, rw));
         }
     }
   else
@@ -247,7 +255,8 @@
 }
 
 void
-FloatComplexQR::insert_col (const FloatComplexColumnVector& u, octave_idx_type j)
+FloatComplexQR::insert_col (const FloatComplexColumnVector& u,
+                            octave_idx_type j)
 {
   octave_idx_type m = q.rows ();
   octave_idx_type n = r.columns ();
@@ -278,7 +287,8 @@
 }
 
 void
-FloatComplexQR::insert_col (const FloatComplexMatrix& u, const Array<octave_idx_type>& j)
+FloatComplexQR::insert_col (const FloatComplexMatrix& u,
+                            const Array<octave_idx_type>& j)
 {
   octave_idx_type m = q.rows ();
   octave_idx_type n = r.columns ();
@@ -375,7 +385,8 @@
           octave_idx_type ii = i;
           F77_XFCN (cqrdec, CQRDEC, (m, n - ii, k == m ? k : k - ii,
                                      q.fortran_vec (), q.rows (),
-                                     r.fortran_vec (), r.rows (), js(ii) + 1, rw));
+                                     r.fortran_vec (), r.rows (),
+                                     js(ii) + 1, rw));
         }
       if (k < m)
         {
@@ -462,7 +473,8 @@
 // Replacement update methods.
 
 void
-FloatComplexQR::update (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v)
+FloatComplexQR::update (const FloatComplexColumnVector& u,
+                        const FloatComplexColumnVector& v)
 {
   warn_qrupdate_once ();
 
@@ -471,14 +483,16 @@
 
   if (u.length () == m && v.length () == n)
     {
-      init (q*r + FloatComplexMatrix (u) * FloatComplexMatrix (v).hermitian (), get_type ());
+      init (q*r + FloatComplexMatrix (u) * FloatComplexMatrix (v).hermitian (),
+            get_type ());
     }
   else
     (*current_liboctave_error_handler) ("qrupdate: dimensions mismatch");
 }
 
 void
-FloatComplexQR::update (const FloatComplexMatrix& u, const FloatComplexMatrix& v)
+FloatComplexQR::update (const FloatComplexMatrix& u,
+                        const FloatComplexMatrix& v)
 {
   warn_qrupdate_once ();
 
@@ -557,7 +571,8 @@
 }
 
 void
-FloatComplexQR::insert_col (const FloatComplexColumnVector& u, octave_idx_type j)
+FloatComplexQR::insert_col (const FloatComplexColumnVector& u,
+                            octave_idx_type j)
 {
   warn_qrupdate_once ();
 
@@ -575,7 +590,8 @@
 }
 
 void
-FloatComplexQR::insert_col (const FloatComplexMatrix& u, const Array<octave_idx_type>& j)
+FloatComplexQR::insert_col (const FloatComplexMatrix& u,
+                            const Array<octave_idx_type>& j)
 {
   warn_qrupdate_once ();
 
--- a/liboctave/numeric/fCmplxQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -23,8 +23,8 @@
 
 // updating/downdating by Jaroslav Hajek 2008
 
-#if !defined (octave_FloatComplexQR_h)
-#define octave_FloatComplexQR_h 1
+#if !defined (octave_fCmplxQR_h)
+#define octave_fCmplxQR_h 1
 
 #include <iosfwd>
 
@@ -50,13 +50,15 @@
 
   void init (const FloatComplexMatrix&, qr_type_t = qr_type_std);
 
-  void update (const FloatComplexColumnVector& u, const FloatComplexColumnVector& v);
+  void update (const FloatComplexColumnVector& u,
+               const FloatComplexColumnVector& v);
 
   void update (const FloatComplexMatrix& u, const FloatComplexMatrix& v);
 
   void insert_col (const FloatComplexColumnVector& u, octave_idx_type j);
 
-  void insert_col (const FloatComplexMatrix& u, const Array<octave_idx_type>& j);
+  void insert_col (const FloatComplexMatrix& u,
+                   const Array<octave_idx_type>& j);
 
   void delete_col (octave_idx_type j);
 
--- a/liboctave/numeric/fCmplxQRP.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxQRP.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -43,7 +43,8 @@
 
 // It would be best to share some of this code with FloatComplexQR class...
 
-FloatComplexQRP::FloatComplexQRP (const FloatComplexMatrix& a, qr_type_t qr_type)
+FloatComplexQRP::FloatComplexQRP (const FloatComplexMatrix& a,
+                                  qr_type_t qr_type)
   : FloatComplexQR (), p ()
 {
   init (a, qr_type);
@@ -74,15 +75,17 @@
 
       // workspace query.
       FloatComplex clwork;
-      F77_XFCN (cgeqp3, CGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, &clwork, -1, rwork, info));
+      F77_XFCN (cgeqp3, CGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 &clwork, -1, rwork, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = clwork.real ();
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (FloatComplex, work, lwork);
-      F77_XFCN (cgeqp3, CGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, work, lwork, rwork, info));
+      F77_XFCN (cgeqp3, CGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 work, lwork, rwork, info));
     }
   else
     for (octave_idx_type i = 0; i < n; i++) jpvt(i) = i+1;
--- a/liboctave/numeric/fCmplxQRP.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxQRP.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexQRP_h)
-#define octave_FloatComplexQRP_h 1
+#if !defined (octave_fCmplxQRP_h)
+#define octave_fCmplxQRP_h 1
 
 #include <iosfwd>
 
@@ -42,14 +42,14 @@
   FloatComplexQRP (const FloatComplexQRP& a) : FloatComplexQR (a), p (a.p) { }
 
   FloatComplexQRP& operator = (const FloatComplexQRP& a)
-    {
-      if (this != &a)
-        {
-          FloatComplexQR::operator = (a);
-          p = a.p;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        FloatComplexQR::operator = (a);
+        p = a.p;
+      }
+    return *this;
+  }
 
   ~FloatComplexQRP (void) { }
 
--- a/liboctave/numeric/fCmplxSCHUR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxSCHUR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -64,7 +64,7 @@
 
 octave_idx_type
 FloatComplexSCHUR::init (const FloatComplexMatrix& a, const std::string& ord,
-                    bool calc_unitary)
+                         bool calc_unitary)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
--- a/liboctave/numeric/fCmplxSCHUR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxSCHUR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexSCHUR_h)
-#define octave_FloatComplexSCHUR_h 1
+#if !defined (octave_fCmplxSCHUR_h)
+#define octave_fCmplxSCHUR_h 1
 
 #include <iosfwd>
 #include <string>
@@ -38,36 +38,36 @@
   FloatComplexSCHUR (void) : schur_mat (), unitary_mat (), selector (0) { }
 
   FloatComplexSCHUR (const FloatComplexMatrix& a, const std::string& ord,
-                bool calc_unitary = true)
+                     bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      init (a, ord, calc_unitary);
-    }
+  {
+    init (a, ord, calc_unitary);
+  }
 
   FloatComplexSCHUR (const FloatComplexMatrix& a, const std::string& ord,
                      octave_idx_type& info, bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      info = init (a, ord, calc_unitary);
-    }
+  {
+    info = init (a, ord, calc_unitary);
+  }
 
   FloatComplexSCHUR (const FloatComplexSCHUR& a)
     : schur_mat (a.schur_mat), unitary_mat (a.unitary_mat), selector (0)
-    { }
+  { }
 
   FloatComplexSCHUR (const FloatComplexMatrix& s, const FloatComplexMatrix& u);
 
   FloatComplexSCHUR (const FloatSCHUR& s);
 
   FloatComplexSCHUR& operator = (const FloatComplexSCHUR& a)
-    {
-      if (this != &a)
-        {
-          schur_mat = a.schur_mat;
-          unitary_mat = a.unitary_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        schur_mat = a.schur_mat;
+        unitary_mat = a.unitary_mat;
+      }
+    return *this;
+  }
 
   ~FloatComplexSCHUR (void) { }
 
@@ -75,7 +75,8 @@
 
   FloatComplexMatrix unitary_matrix (void) const { return unitary_mat; }
 
-  friend std::ostream& operator << (std::ostream& os, const FloatComplexSCHUR& a);
+  friend std::ostream& operator << (std::ostream& os,
+                                    const FloatComplexSCHUR& a);
 
   typedef octave_idx_type (*select_function) (const FloatComplex&);
 
@@ -86,7 +87,8 @@
 
   select_function selector;
 
-  octave_idx_type init (const FloatComplexMatrix& a, const std::string& ord, bool calc_unitary);
+  octave_idx_type init (const FloatComplexMatrix& a, const std::string& ord,
+                        bool calc_unitary);
 };
 
 #endif
--- a/liboctave/numeric/fCmplxSVD.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fCmplxSVD.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatComplexSVD_h)
-#define octave_FloatComplexSVD_h 1
+#if !defined (octave_fCmplxSVD_h)
+#define octave_fCmplxSVD_h 1
 
 #include <iosfwd>
 
@@ -37,40 +37,40 @@
 
   FloatComplexSVD (void)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    { }
+  { }
 
   FloatComplexSVD (const FloatComplexMatrix& a,
                    SVD::type svd_type = SVD::std,
                    SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      init (a, svd_type, svd_driver);
-    }
+  {
+    init (a, svd_type, svd_driver);
+  }
 
   FloatComplexSVD (const FloatComplexMatrix& a, octave_idx_type& info,
                    SVD::type svd_type = SVD::std,
                    SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      info = init (a, svd_type, svd_driver);
-    }
+  {
+    info = init (a, svd_type, svd_driver);
+  }
 
   FloatComplexSVD (const FloatComplexSVD& a)
     : type_computed (a.type_computed), sigma (a.sigma),
       left_sm (a.left_sm), right_sm (a.right_sm)
-    { }
+  { }
 
   FloatComplexSVD& operator = (const FloatComplexSVD& a)
-    {
-      if (this != &a)
-        {
-          type_computed = a.type_computed;
-          sigma = a.sigma;
-          left_sm = a.left_sm;
-          right_sm = a.right_sm;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        type_computed = a.type_computed;
+        sigma = a.sigma;
+        left_sm = a.left_sm;
+        right_sm = a.right_sm;
+      }
+    return *this;
+  }
 
   ~FloatComplexSVD (void) { }
 
@@ -80,7 +80,8 @@
 
   FloatComplexMatrix right_singular_matrix (void) const;
 
-  friend std::ostream&  operator << (std::ostream& os, const FloatComplexSVD& a);
+  friend std::ostream&  operator << (std::ostream& os,
+                                     const FloatComplexSVD& a);
 
 private:
 
--- a/liboctave/numeric/fEIG.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fEIG.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -599,7 +599,8 @@
 }
 
 octave_idx_type
-FloatEIG::symmetric_init (const FloatMatrix& a, const FloatMatrix& b, bool calc_ev)
+FloatEIG::symmetric_init (const FloatMatrix& a, const FloatMatrix& b,
+                          bool calc_ev)
 {
   octave_idx_type n = a.rows ();
   octave_idx_type nb = b.rows ();
@@ -674,7 +675,8 @@
 }
 
 octave_idx_type
-FloatEIG::init (const FloatComplexMatrix& a, const FloatComplexMatrix& b, bool calc_ev)
+FloatEIG::init (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
+                bool calc_ev)
 {
   if (a.any_element_is_inf_or_nan () || b.any_element_is_inf_or_nan ())
     {
@@ -786,7 +788,8 @@
 }
 
 octave_idx_type
-FloatEIG::hermitian_init (const FloatComplexMatrix& a, const FloatComplexMatrix& b, bool calc_ev)
+FloatEIG::hermitian_init (const FloatComplexMatrix& a,
+                          const FloatComplexMatrix& b, bool calc_ev)
 {
   octave_idx_type n = a.rows ();
   octave_idx_type nb = b.rows ();
--- a/liboctave/numeric/fEIG.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/fEIG.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_float_EIG_h)
-#define octave_float_EIG_h 1
+#if !defined (octave_fEIG_h)
+#define octave_fEIG_h 1
 
 #include <iosfwd>
 
@@ -33,8 +33,8 @@
 OCTAVE_API
 FloatEIG
 {
-friend class FloatMatrix;
-friend class FloatComplexMatrix;
+  friend class FloatMatrix;
+  friend class FloatComplexMatrix;
 
 public:
 
@@ -98,14 +98,14 @@
   FloatEIG (const FloatEIG& a) : lambda (a.lambda), v (a.v) { }
 
   FloatEIG& operator = (const FloatEIG& a)
-    {
-      if (this != &a)
-        {
-          lambda = a.lambda;
-          v = a.v;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        lambda = a.lambda;
+        v = a.v;
+      }
+    return *this;
+  }
 
   ~FloatEIG (void) { }
 
@@ -121,14 +121,20 @@
   FloatComplexMatrix v;
 
   octave_idx_type init (const FloatMatrix& a, bool calc_eigenvectors);
-  octave_idx_type init (const FloatMatrix& a, const FloatMatrix& b, bool calc_eigenvectors);
+  octave_idx_type init (const FloatMatrix& a, const FloatMatrix& b,
+                        bool calc_eigenvectors);
   octave_idx_type init (const FloatComplexMatrix& a, bool calc_eigenvectors);
-  octave_idx_type init (const FloatComplexMatrix& a, const FloatComplexMatrix& b, bool calc_eigenvectors);
+  octave_idx_type init (const FloatComplexMatrix& a,
+                        const FloatComplexMatrix& b, bool calc_eigenvectors);
 
   octave_idx_type symmetric_init (const FloatMatrix& a, bool calc_eigenvectors);
-  octave_idx_type symmetric_init (const FloatMatrix& a, const FloatMatrix& b, bool calc_eigenvectors);
-  octave_idx_type hermitian_init (const FloatComplexMatrix& a, bool calc_eigenvectors);
-  octave_idx_type hermitian_init (const FloatComplexMatrix& a, const FloatComplexMatrix& b, bool calc_eigenvectors);
+  octave_idx_type symmetric_init (const FloatMatrix& a, const FloatMatrix& b,
+                                  bool calc_eigenvectors);
+  octave_idx_type hermitian_init (const FloatComplexMatrix& a,
+                                  bool calc_eigenvectors);
+  octave_idx_type hermitian_init (const FloatComplexMatrix& a,
+                                  const FloatComplexMatrix& b,
+                                  bool calc_eigenvectors);
 };
 
 #endif
--- a/liboctave/numeric/floatAEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatAEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatAEPBALANCE_h)
-#define octave_FloatAEPBALANCE_h 1
+#if !defined (octave_floatAEPBAL_h)
+#define octave_floatAEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
--- a/liboctave/numeric/floatCHOL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatCHOL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -342,7 +342,7 @@
       else
         {
           info = init (chol_mat.transpose () * chol_mat
-                - FloatMatrix (u) * FloatMatrix (u).transpose (), false);
+                       - FloatMatrix (u) * FloatMatrix (u).transpose (), false);
           if (info) info = 1;
         }
     }
--- a/liboctave/numeric/floatCHOL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatCHOL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatCHOL_h)
-#define octave_FloatCHOL_h 1
+#if !defined (octave_floatCHOL_h)
+#define octave_floatCHOL_h 1
 
 #include <iosfwd>
 
@@ -39,28 +39,28 @@
 
   FloatCHOL (const FloatMatrix& a, bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      init (a, calc_cond);
-    }
+  {
+    init (a, calc_cond);
+  }
 
   FloatCHOL (const FloatMatrix& a, octave_idx_type& info,
              bool calc_cond = false)
     : chol_mat (), xrcond (0)
-    {
-      info = init (a, calc_cond);
-    }
+  {
+    info = init (a, calc_cond);
+  }
 
   FloatCHOL (const FloatCHOL& a) : chol_mat (a.chol_mat), xrcond (a.xrcond) { }
 
   FloatCHOL& operator = (const FloatCHOL& a)
-    {
-      if (this != &a)
-        {
-          chol_mat = a.chol_mat;
-          xrcond = a.xrcond;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        chol_mat = a.chol_mat;
+        xrcond = a.xrcond;
+      }
+    return *this;
+  }
 
   FloatMatrix chol_matrix (void) const { return chol_mat; }
 
@@ -81,7 +81,8 @@
 
   void shift_sym (octave_idx_type i, octave_idx_type j);
 
-  friend OCTAVE_API std::ostream& operator << (std::ostream& os, const FloatCHOL& a);
+  friend OCTAVE_API std::ostream& operator << (std::ostream& os,
+                                               const FloatCHOL& a);
 
 private:
 
--- a/liboctave/numeric/floatGEPBAL.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatGEPBAL.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -60,13 +60,14 @@
 
 octave_idx_type
 FloatGEPBALANCE::init (const FloatMatrix& a, const FloatMatrix& b,
-                  const std::string& balance_job)
+                       const std::string& balance_job)
 {
   octave_idx_type n = a.cols ();
 
   if (a.rows () != n)
     {
-      (*current_liboctave_error_handler) ("FloatGEPBALANCE requires square matrix");
+      (*current_liboctave_error_handler)
+        ("FloatGEPBALANCE requires square matrix");
       return -1;
     }
 
--- a/liboctave/numeric/floatGEPBAL.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatGEPBAL.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatGEPBALANCE_h)
-#define octave_FloatGEPBALANCE_h 1
+#if !defined (octave_floatGEPBAL_h)
+#define octave_floatGEPBAL_h 1
 
 #include <iosfwd>
 #include <string>
@@ -36,29 +36,29 @@
 
   FloatGEPBALANCE (void)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    { }
+  { }
   FloatGEPBALANCE (const FloatMatrix& a, const FloatMatrix& b,
                    const std::string& balance_job)
     : balanced_mat (), balanced_mat2 (), balancing_mat (), balancing_mat2 ()
-    {
-      init (a, b, balance_job);
-    }
+  {
+    init (a, b, balance_job);
+  }
 
   FloatGEPBALANCE (const FloatGEPBALANCE& a)
     : balanced_mat (a.balanced_mat), balanced_mat2 (a.balanced_mat2),
       balancing_mat (a.balancing_mat), balancing_mat2 (a.balancing_mat2) { }
 
   FloatGEPBALANCE& operator = (const FloatGEPBALANCE& a)
-    {
-      if (this != &a)
-        {
-          balanced_mat = a.balanced_mat;
-          balanced_mat2 = a.balanced_mat2;
-          balancing_mat = a.balancing_mat;
-          balancing_mat2 = a.balancing_mat2;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        balanced_mat = a.balanced_mat;
+        balanced_mat2 = a.balanced_mat2;
+        balancing_mat = a.balancing_mat;
+        balancing_mat2 = a.balancing_mat2;
+      }
+    return *this;
+  }
 
   ~FloatGEPBALANCE (void) { }
 
--- a/liboctave/numeric/floatHESS.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatHESS.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatHESS_h)
-#define octave_FloatHESS_h 1
+#if !defined (octave_floatHESS_h)
+#define octave_floatHESS_h 1
 
 #include <iosfwd>
 
@@ -36,29 +36,29 @@
   FloatHESS (void) : hess_mat (), unitary_hess_mat () { }
 
   FloatHESS (const FloatMatrix& a)
-     : hess_mat (), unitary_hess_mat ()
-    {
-      init (a);
-    }
+    : hess_mat (), unitary_hess_mat ()
+  {
+    init (a);
+  }
 
   FloatHESS (const FloatMatrix& a, octave_idx_type& info)
     : hess_mat (), unitary_hess_mat ()
-    {
-      info = init (a);
-    }
+  {
+    info = init (a);
+  }
 
   FloatHESS (const FloatHESS& a)
     : hess_mat (a.hess_mat), unitary_hess_mat (a.unitary_hess_mat) { }
 
   FloatHESS& operator = (const FloatHESS& a)
-    {
-      if (this != &a)
-        {
-          hess_mat = a.hess_mat;
-          unitary_hess_mat = a.unitary_hess_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        hess_mat = a.hess_mat;
+        unitary_hess_mat = a.unitary_hess_mat;
+      }
+    return *this;
+  }
 
   ~FloatHESS (void) { }
 
--- a/liboctave/numeric/floatLU.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatLU.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -100,7 +100,8 @@
   if (u.length () == m && v.length () == n)
     {
       FloatColumnVector utmp = u, vtmp = v;
-      F77_XFCN (slu1up, SLU1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
+      F77_XFCN (slu1up, SLU1UP, (m, n, l.fortran_vec (),
+                                 m, r.fortran_vec (), k,
                                  utmp.fortran_vec (), vtmp.fortran_vec ()));
     }
   else
@@ -124,7 +125,8 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (slu1up, SLU1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
+          F77_XFCN (slu1up, SLU1UP, (m, n, l.fortran_vec (),
+                                     m, r.fortran_vec (), k,
                                      utmp.fortran_vec (), vtmp.fortran_vec ()));
         }
     }
@@ -132,7 +134,8 @@
     (*current_liboctave_error_handler) ("luupdate: dimensions mismatch");
 }
 
-void FloatLU::update_piv (const FloatColumnVector& u, const FloatColumnVector& v)
+void FloatLU::update_piv (const FloatColumnVector& u,
+                          const FloatColumnVector& v)
 {
   if (packed ())
     unpack ();
@@ -149,8 +152,10 @@
       FloatColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (float, w, m);
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) += 1; // increment
-      F77_XFCN (slup1up, SLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                   ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+      F77_XFCN (slup1up, SLUP1UP, (m, n, l.fortran_vec (),
+                                   m, r.fortran_vec (), k,
+                                   ipvt.fortran_vec (),
+                                   utmp.data (), vtmp.data (), w));
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
   else
@@ -176,8 +181,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (slup1up, SLUP1UP, (m, n, l.fortran_vec (), m, r.fortran_vec (), k,
-                                       ipvt.fortran_vec (), utmp.data (), vtmp.data (), w));
+          F77_XFCN (slup1up, SLUP1UP, (m, n, l.fortran_vec (),
+                                       m, r.fortran_vec (), k,
+                                       ipvt.fortran_vec (),
+                                       utmp.data (), vtmp.data (), w));
         }
       for (octave_idx_type i = 0; i < m; i++) ipvt(i) -= 1; // decrement
     }
@@ -189,22 +196,26 @@
 
 void FloatLU::update (const FloatColumnVector&, const FloatColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void FloatLU::update (const FloatMatrix&, const FloatMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void FloatLU::update_piv (const FloatColumnVector&, const FloatColumnVector&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 void FloatLU::update_piv (const FloatMatrix&, const FloatMatrix&)
 {
-  (*current_liboctave_error_handler) ("luupdate: not available in this version");
+  (*current_liboctave_error_handler)
+    ("luupdate: not available in this version");
 }
 
 #endif
--- a/liboctave/numeric/floatLU.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatLU.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatLU_h)
-#define octave_FloatLU_h 1
+#if !defined (octave_floatLU_h)
+#define octave_floatLU_h 1
 
 #include "base-lu.h"
 #include "dMatrix.h"
@@ -44,12 +44,12 @@
     : base_lu <FloatMatrix> (l, u, p) { }
 
   FloatLU& operator = (const FloatLU& a)
-    {
-      if (this != &a)
-        base_lu <FloatMatrix> :: operator = (a);
+  {
+    if (this != &a)
+      base_lu <FloatMatrix> :: operator = (a);
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~FloatLU (void) { }
 
--- a/liboctave/numeric/floatQR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatQR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -119,13 +119,15 @@
     {
       // workspace query.
       float rlwork;
-      F77_XFCN (sgeqrf, SGEQRF, (m, n, afact.fortran_vec (), m, tau, &rlwork, -1, info));
+      F77_XFCN (sgeqrf, SGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 &rlwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = rlwork;
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (float, work, lwork);
-      F77_XFCN (sgeqrf, SGEQRF, (m, n, afact.fortran_vec (), m, tau, work, lwork, info));
+      F77_XFCN (sgeqrf, SGEQRF, (m, n, afact.fortran_vec (), m, tau,
+                                 work, lwork, info));
     }
 
   form (n, afact, tau, qr_type);
@@ -162,7 +164,7 @@
               octave_idx_type i = 0;
               for (; i <= j; i++)
                 r.xelem (i, j) = afact.xelem (i, j);
-              for (;i < k; i++)
+              for (; i < k; i++)
                 r.xelem (i, j) = 0;
             }
           afact = FloatMatrix (); // optimize memory
@@ -212,7 +214,8 @@
     {
       FloatColumnVector utmp = u, vtmp = v;
       OCTAVE_LOCAL_BUFFER (float, w, 2*k);
-      F77_XFCN (sqr1up, SQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
+      F77_XFCN (sqr1up, SQR1UP, (m, n, k, q.fortran_vec (),
+                                 m, r.fortran_vec (), k,
                                  utmp.fortran_vec (), vtmp.fortran_vec (), w));
     }
   else
@@ -232,8 +235,10 @@
       for (volatile octave_idx_type i = 0; i < u.cols (); i++)
         {
           FloatColumnVector utmp = u.column (i), vtmp = v.column (i);
-          F77_XFCN (sqr1up, SQR1UP, (m, n, k, q.fortran_vec (), m, r.fortran_vec (), k,
-                                     utmp.fortran_vec (), vtmp.fortran_vec (), w));
+          F77_XFCN (sqr1up, SQR1UP, (m, n, k, q.fortran_vec (),
+                                     m, r.fortran_vec (), k,
+                                     utmp.fortran_vec (), vtmp.fortran_vec (),
+                                     w));
         }
     }
   else
@@ -370,7 +375,8 @@
           octave_idx_type ii = i;
           F77_XFCN (sqrdec, SQRDEC, (m, n - ii, k == m ? k : k - ii,
                                      q.fortran_vec (), q.rows (),
-                                     r.fortran_vec (), r.rows (), js(ii) + 1, w));
+                                     r.fortran_vec (), r.rows (),
+                                     js(ii) + 1, w));
         }
       if (k < m)
         {
--- a/liboctave/numeric/floatQR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatQR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_FloatQR_h)
-#define octave_FloatQR_h 1
+#if !defined (octave_floatQR_h)
+#define octave_floatQR_h 1
 
 #include <iosfwd>
 
--- a/liboctave/numeric/floatQRP.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatQRP.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -72,15 +72,17 @@
     {
       // workspace query.
       float rlwork;
-      F77_XFCN (sgeqp3, SGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, &rlwork, -1, info));
+      F77_XFCN (sgeqp3, SGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 &rlwork, -1, info));
 
       // allocate buffer and do the job.
       octave_idx_type lwork = rlwork;
       lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (float, work, lwork);
-      F77_XFCN (sgeqp3, SGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
-                                 tau, work, lwork, info));
+      F77_XFCN (sgeqp3, SGEQP3, (m, n, afact.fortran_vec (),
+                                 m, jpvt.fortran_vec (), tau,
+                                 work, lwork, info));
     }
   else
     for (octave_idx_type i = 0; i < n; i++) jpvt(i) = i+1;
--- a/liboctave/numeric/floatQRP.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatQRP.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatQRP_h)
-#define octave_FloatQRP_h 1
+#if !defined (octave_floatQRP_h)
+#define octave_floatQRP_h 1
 
 #include <iosfwd>
 
@@ -42,15 +42,15 @@
   FloatQRP (const FloatQRP& a) : FloatQR (a), p (a.p) { }
 
   FloatQRP& operator = (const FloatQRP& a)
-    {
-      if (this != &a)
-        {
-          FloatQR::operator = (a);
-          p = a.p;
-        }
+  {
+    if (this != &a)
+      {
+        FloatQR::operator = (a);
+        p = a.p;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~FloatQRP (void) { }
 
--- a/liboctave/numeric/floatSCHUR.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatSCHUR.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,7 @@
 static octave_idx_type
 select_ana (const float& a, const float&)
 {
-   return (a < 0.0);
+  return (a < 0.0);
 }
 
 static octave_idx_type
@@ -61,7 +61,8 @@
 }
 
 octave_idx_type
-FloatSCHUR::init (const FloatMatrix& a, const std::string& ord, bool calc_unitary)
+FloatSCHUR::init (const FloatMatrix& a, const std::string& ord,
+                  bool calc_unitary)
 {
   octave_idx_type a_nr = a.rows ();
   octave_idx_type a_nc = a.cols ();
--- a/liboctave/numeric/floatSCHUR.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatSCHUR.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatSCHUR_h)
-#define octave_FloatSCHUR_h 1
+#if !defined (octave_floatSCHUR_h)
+#define octave_floatSCHUR_h 1
 
 #include <iosfwd>
 #include <string>
@@ -39,32 +39,32 @@
   FloatSCHUR (const FloatMatrix& a, const std::string& ord,
               bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      init (a, ord, calc_unitary);
-    }
+  {
+    init (a, ord, calc_unitary);
+  }
 
   FloatSCHUR (const FloatMatrix& a, const std::string& ord, int& info,
               bool calc_unitary = true)
     : schur_mat (), unitary_mat (), selector (0)
-    {
-      info = init (a, ord, calc_unitary);
-    }
+  {
+    info = init (a, ord, calc_unitary);
+  }
 
   FloatSCHUR (const FloatSCHUR& a)
     : schur_mat (a.schur_mat), unitary_mat (a.unitary_mat), selector (0)
-    { }
+  { }
 
   FloatSCHUR (const FloatMatrix& s, const FloatMatrix& u);
 
   FloatSCHUR& operator = (const FloatSCHUR& a)
-    {
-      if (this != &a)
-        {
-          schur_mat = a.schur_mat;
-          unitary_mat = a.unitary_mat;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        schur_mat = a.schur_mat;
+        unitary_mat = a.unitary_mat;
+      }
+    return *this;
+  }
 
   ~FloatSCHUR (void) { }
 
@@ -83,7 +83,8 @@
 
   select_function selector;
 
-  octave_idx_type init (const FloatMatrix& a, const std::string& ord, bool calc_unitary);
+  octave_idx_type init (const FloatMatrix& a, const std::string& ord,
+                        bool calc_unitary);
 };
 
 #endif
--- a/liboctave/numeric/floatSVD.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatSVD.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -81,7 +81,8 @@
 }
 
 octave_idx_type
-FloatSVD::init (const FloatMatrix& a, SVD::type svd_type, SVD::driver svd_driver)
+FloatSVD::init (const FloatMatrix& a, SVD::type svd_type,
+                SVD::driver svd_driver)
 {
   octave_idx_type info;
 
@@ -178,16 +179,16 @@
       OCTAVE_LOCAL_BUFFER (octave_idx_type, iwork, 8*min_mn);
 
       F77_XFCN (sgesdd, SGESDD, (F77_CONST_CHAR_ARG2 (&jobz, 1),
-                                 m, n, tmp_data, m1, s_vec, u, m1, vt,
-                                 nrow_vt1, work.fortran_vec (), lwork, iwork, info
+                                 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
+                                 work.fortran_vec (), lwork, iwork, info
                                  F77_CHAR_ARG_LEN (1)));
 
       lwork = static_cast<octave_idx_type> (work(0));
       work.resize (dim_vector (lwork, 1));
 
       F77_XFCN (sgesdd, SGESDD, (F77_CONST_CHAR_ARG2 (&jobz, 1),
-                                 m, n, tmp_data, m1, s_vec, u, m1, vt,
-                                 nrow_vt1, work.fortran_vec (), lwork, iwork, info
+                                 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
+                                 work.fortran_vec (), lwork, iwork, info
                                  F77_CHAR_ARG_LEN (1)));
 
     }
--- a/liboctave/numeric/floatSVD.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/floatSVD.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_FloatSVD_h)
-#define octave_FloatSVD_h 1
+#if !defined (octave_floatSVD_h)
+#define octave_floatSVD_h 1
 
 #include <iosfwd>
 
@@ -40,35 +40,35 @@
   FloatSVD (const FloatMatrix& a,
             SVD::type svd_type = SVD::std, SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      init (a, svd_type, svd_driver);
-    }
+  {
+    init (a, svd_type, svd_driver);
+  }
 
   FloatSVD (const FloatMatrix& a, octave_idx_type& info,
             SVD::type svd_type = SVD::std,
             SVD::driver svd_driver = SVD::GESVD)
     : type_computed (), sigma (), left_sm (), right_sm ()
-    {
-      info = init (a, svd_type, svd_driver);
-    }
+  {
+    info = init (a, svd_type, svd_driver);
+  }
 
   FloatSVD (const FloatSVD& a)
     : type_computed (a.type_computed), sigma (a.sigma),
       left_sm (a.left_sm), right_sm (a.right_sm)
-    { }
+  { }
 
   FloatSVD& operator = (const FloatSVD& a)
-    {
-      if (this != &a)
-        {
-          type_computed = a.type_computed;
-          sigma = a.sigma;
-          left_sm = a.left_sm;
-          right_sm = a.right_sm;
-        }
+  {
+    if (this != &a)
+      {
+        type_computed = a.type_computed;
+        sigma = a.sigma;
+        left_sm = a.left_sm;
+        right_sm = a.right_sm;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~FloatSVD (void) { }
 
--- a/liboctave/numeric/lo-mappers.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/lo-mappers.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -136,7 +136,7 @@
 double
 xlog2 (double x, int& exp)
 {
-  return frexp (x, &exp);
+  return gnulib::frexp (x, &exp);
 }
 
 Complex
@@ -247,7 +247,7 @@
 
 // (complex, complex) -> complex mappers.
 
-// FIXME -- need to handle NA too?
+// FIXME: need to handle NA too?
 
 Complex
 xmin (const Complex& x, const Complex& y)
@@ -365,7 +365,7 @@
 float
 xlog2 (float x, int& exp)
 {
-  return frexpf (x, &exp);
+  return gnulib::frexpf (x, &exp);
 }
 
 FloatComplex
@@ -457,7 +457,8 @@
 FloatComplex
 atanh (const FloatComplex& x)
 {
-  return log ((static_cast<float>(1.0) + x) / (static_cast<float>(1.0) - x)) / static_cast<float>(2.0);
+  return log ((static_cast<float>(1.0) + x) / (static_cast<float>
+              (1.0) - x)) / static_cast<float>(2.0);
 }
 
 // complex -> bool mappers.
@@ -476,7 +477,7 @@
 
 // (complex, complex) -> complex mappers.
 
-// FIXME -- need to handle NA too?
+// FIXME: need to handle NA too?
 
 FloatComplex
 xmin (const FloatComplex& x, const FloatComplex& y)
@@ -535,7 +536,8 @@
 FloatComplex
 rc_atanh (float x)
 {
-  return fabsf (x) > 1.0f ? atanh (FloatComplex (x)) : FloatComplex (atanhf (x));
+  return fabsf (x) > 1.0f ? atanh (FloatComplex (x))
+                          : FloatComplex (atanhf (x));
 }
 
 Complex
@@ -577,7 +579,8 @@
 rc_log10 (float x)
 {
   const float pil10 = 1.36437635384184134748f; // = pi / log(10)
-  return x < 0.0f ? FloatComplex (log10 (-x), pil10) : FloatComplex (log10f (x));
+  return x < 0.0f ? FloatComplex (log10 (-x), pil10)
+                  : FloatComplex (log10f (x));
 }
 
 Complex
--- a/liboctave/numeric/lo-mappers.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/lo-mappers.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_liboctave_mappers_h)
-#define octave_liboctave_mappers_h 1
+#if !defined (octave_lo_mappers_h)
+#define octave_lo_mappers_h 1
 
 #include <limits>
 
@@ -178,8 +178,10 @@
 extern OCTAVE_API bool octave_is_NA (const FloatComplex& x);
 extern OCTAVE_API bool octave_is_NaN_or_NA (const FloatComplex& x);
 
-extern OCTAVE_API FloatComplex xmin (const FloatComplex& x, const FloatComplex& y);
-extern OCTAVE_API FloatComplex xmax (const FloatComplex& x, const FloatComplex& y);
+extern OCTAVE_API FloatComplex xmin (const FloatComplex& x,
+                                     const FloatComplex& y);
+extern OCTAVE_API FloatComplex xmax (const FloatComplex& x,
+                                     const FloatComplex& y);
 
 // These map reals to Complex.
 
--- a/liboctave/numeric/lo-specfun.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/lo-specfun.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -623,7 +623,7 @@
 
   if (ax < 0.2)
     {
-      // use approximation log (1+x) ~ 2*sum ((x/(2+x)).^ii ./ ii), ii = 1:2:2n+1
+      // approximation log (1+x) ~ 2*sum ((x/(2+x)).^ii ./ ii), ii = 1:2:2n+1
       double u = x / (2 + x), t = 1, s = 0;
       for (int i = 2; i < 12; i += 2)
         s += (t *= u*u) / (i+1);
@@ -682,7 +682,7 @@
 
   if (ax < 0.2)
     {
-      // use approximation log (1+x) ~ 2*sum ((x/(2+x)).^ii ./ ii), ii = 1:2:2n+1
+      // approximation log (1+x) ~ 2*sum ((x/(2+x)).^ii ./ ii), ii = 1:2:2n+1
       float u = x / (2 + x), t = 1, s = 0;
       for (int i = 2; i < 12; i += 2)
         s += (t *= u*u) / (i+1);
@@ -707,7 +707,7 @@
     {
       float u = 2*r + r*r + i*i;
       retval = FloatComplex (log1p (u / (1+sqrt (u+1))),
-                        atan2 (1 + r, i));
+                             atan2 (1 + r, i));
     }
   else
     retval = std::log (FloatComplex (1) + x);
@@ -954,7 +954,7 @@
       if (ierr == 0 || ierr == 3)
         {
           Complex tmp2 = (2.0 / M_PI) * sin (M_PI * alpha)
-            * zbesk (z, alpha, kode, ierr);
+                         * zbesk (z, alpha, kode, ierr);
 
           if (kode == 2)
             {
@@ -1212,7 +1212,7 @@
   ierr.resize (dv);
 
   for (octave_idx_type i = 0; i < nel; i++)
-      retval(i) = f (x(i), alpha, (scaled ? 2 : 1), ierr(i));
+    retval(i) = f (x(i), alpha, (scaled ? 2 : 1), ierr(i));
 
   return retval;
 }
@@ -1259,7 +1259,8 @@
 
 static inline ComplexMatrix
 do_bessel (dptr f, const char *, const RowVector& alpha,
-           const ComplexColumnVector& x, bool scaled, Array<octave_idx_type>& ierr)
+           const ComplexColumnVector& x, bool scaled,
+           Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = x.length ();
   octave_idx_type nc = alpha.length ();
@@ -1386,8 +1387,10 @@
 static inline FloatComplex
 bessel_return_value (const FloatComplex& val, octave_idx_type ierr)
 {
-  static const FloatComplex inf_val = FloatComplex (octave_Float_Inf, octave_Float_Inf);
-  static const FloatComplex nan_val = FloatComplex (octave_Float_NaN, octave_Float_NaN);
+  static const FloatComplex inf_val = FloatComplex (octave_Float_Inf,
+                                                    octave_Float_Inf);
+  static const FloatComplex nan_val = FloatComplex (octave_Float_NaN,
+                                                    octave_Float_NaN);
 
   FloatComplex retval;
 
@@ -1453,11 +1456,13 @@
     {
       alpha = -alpha;
 
-      FloatComplex tmp = cosf (static_cast<float> (M_PI) * alpha) * cbesj (z, alpha, kode, ierr);
+      FloatComplex tmp = cosf (static_cast<float> (M_PI) * alpha)
+                         * cbesj (z, alpha, kode, ierr);
 
       if (ierr == 0 || ierr == 3)
         {
-          tmp -= sinf (static_cast<float> (M_PI) * alpha) * cbesy (z, alpha, kode, ierr);
+          tmp -= sinf (static_cast<float> (M_PI) * alpha)
+                 * cbesy (z, alpha, kode, ierr);
 
           retval = bessel_return_value (tmp, ierr);
         }
@@ -1516,11 +1521,13 @@
     {
       alpha = -alpha;
 
-      FloatComplex tmp = cosf (static_cast<float> (M_PI) * alpha) * cbesy (z, alpha, kode, ierr);
+      FloatComplex tmp = cosf (static_cast<float> (M_PI) * alpha)
+                         * cbesy (z, alpha, kode, ierr);
 
       if (ierr == 0 || ierr == 3)
         {
-          tmp += sinf (static_cast<float> (M_PI) * alpha) * cbesj (z, alpha, kode, ierr);
+          tmp += sinf (static_cast<float> (M_PI) * alpha)
+                 * cbesj (z, alpha, kode, ierr);
 
           retval = bessel_return_value (tmp, ierr);
         }
@@ -1563,8 +1570,9 @@
 
       if (ierr == 0 || ierr == 3)
         {
-          FloatComplex tmp2 = static_cast<float> (2.0 / M_PI) * sinf (static_cast<float> (M_PI) * alpha)
-            * cbesk (z, alpha, kode, ierr);
+          FloatComplex tmp2 = static_cast<float> (2.0 / M_PI)
+                              * sinf (static_cast<float> (M_PI) * alpha)
+                              * cbesk (z, alpha, kode, ierr);
 
           if (kode == 2)
             {
@@ -1667,7 +1675,8 @@
 
       static const FloatComplex eye = FloatComplex (0.0, 1.0);
 
-      FloatComplex tmp = exp (static_cast<float> (M_PI) * alpha * eye) * cbesh1 (z, alpha, kode, ierr);
+      FloatComplex tmp = exp (static_cast<float> (M_PI) * alpha * eye)
+                         * cbesh1 (z, alpha, kode, ierr);
 
       retval = bessel_return_value (tmp, ierr);
     }
@@ -1709,7 +1718,8 @@
 
       static const FloatComplex eye = FloatComplex (0.0, 1.0);
 
-      FloatComplex tmp = exp (-static_cast<float> (M_PI) * alpha * eye) * cbesh2 (z, alpha, kode, ierr);
+      FloatComplex tmp = exp (-static_cast<float> (M_PI) * alpha * eye)
+                         * cbesh2 (z, alpha, kode, ierr);
 
       retval = bessel_return_value (tmp, ierr);
     }
@@ -1717,7 +1727,8 @@
   return retval;
 }
 
-typedef FloatComplex (*fptr) (const FloatComplex&, float, int, octave_idx_type&);
+typedef FloatComplex (*fptr) (const FloatComplex&, float, int,
+                              octave_idx_type&);
 
 static inline FloatComplex
 do_bessel (fptr f, const char *, float alpha, const FloatComplex& x,
@@ -1749,7 +1760,8 @@
 }
 
 static inline FloatComplexMatrix
-do_bessel (fptr f, const char *, const FloatMatrix& alpha, const FloatComplex& x,
+do_bessel (fptr f, const char *, const FloatMatrix& alpha,
+           const FloatComplex& x,
            bool scaled, Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = alpha.rows ();
@@ -1768,7 +1780,8 @@
 
 static inline FloatComplexMatrix
 do_bessel (fptr f, const char *fn, const FloatMatrix& alpha,
-           const FloatComplexMatrix& x, bool scaled, Array<octave_idx_type>& ierr)
+           const FloatComplexMatrix& x, bool scaled,
+           Array<octave_idx_type>& ierr)
 {
   FloatComplexMatrix retval;
 
@@ -1809,14 +1822,14 @@
   ierr.resize (dv);
 
   for (octave_idx_type i = 0; i < nel; i++)
-      retval(i) = f (x(i), alpha, (scaled ? 2 : 1), ierr(i));
+    retval(i) = f (x(i), alpha, (scaled ? 2 : 1), ierr(i));
 
   return retval;
 }
 
 static inline FloatComplexNDArray
-do_bessel (fptr f, const char *, const FloatNDArray& alpha, const FloatComplex& x,
-           bool scaled, Array<octave_idx_type>& ierr)
+do_bessel (fptr f, const char *, const FloatNDArray& alpha,
+           const FloatComplex& x, bool scaled, Array<octave_idx_type>& ierr)
 {
   dim_vector dv = alpha.dims ();
   octave_idx_type nel = dv.numel ();
@@ -1832,7 +1845,8 @@
 
 static inline FloatComplexNDArray
 do_bessel (fptr f, const char *fn, const FloatNDArray& alpha,
-           const FloatComplexNDArray& x, bool scaled, Array<octave_idx_type>& ierr)
+           const FloatComplexNDArray& x, bool scaled,
+           Array<octave_idx_type>& ierr)
 {
   dim_vector dv = x.dims ();
   FloatComplexNDArray retval;
@@ -1856,7 +1870,8 @@
 
 static inline FloatComplexMatrix
 do_bessel (fptr f, const char *, const FloatRowVector& alpha,
-           const FloatComplexColumnVector& x, bool scaled, Array<octave_idx_type>& ierr)
+           const FloatComplexColumnVector& x, bool scaled,
+           Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = x.length ();
   octave_idx_type nc = alpha.length ();
@@ -2029,7 +2044,8 @@
 }
 
 ComplexMatrix
-airy (const ComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+airy (const ComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = z.rows ();
   octave_idx_type nc = z.cols ();
@@ -2046,7 +2062,8 @@
 }
 
 ComplexMatrix
-biry (const ComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+biry (const ComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = z.rows ();
   octave_idx_type nc = z.cols ();
@@ -2063,7 +2080,8 @@
 }
 
 ComplexNDArray
-airy (const ComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+airy (const ComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   dim_vector dv = z.dims ();
   octave_idx_type nel = dv.numel ();
@@ -2078,7 +2096,8 @@
 }
 
 ComplexNDArray
-biry (const ComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+biry (const ComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   dim_vector dv = z.dims ();
   octave_idx_type nel = dv.numel ();
@@ -2141,7 +2160,8 @@
 
   if (! scaled)
     {
-      FloatComplex expz = exp (std::abs (real (static_cast<float> (2.0 / 3.0) * z * sqrt (z))));
+      FloatComplex expz = exp (std::abs (real (static_cast<float> (2.0 / 3.0)
+                          * z * sqrt (z))));
 
       float rexpz = real (expz);
       float iexpz = imag (expz);
@@ -2159,7 +2179,8 @@
 }
 
 FloatComplexMatrix
-airy (const FloatComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+airy (const FloatComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = z.rows ();
   octave_idx_type nc = z.cols ();
@@ -2176,7 +2197,8 @@
 }
 
 FloatComplexMatrix
-biry (const FloatComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+biry (const FloatComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   octave_idx_type nr = z.rows ();
   octave_idx_type nc = z.cols ();
@@ -2193,7 +2215,8 @@
 }
 
 FloatComplexNDArray
-airy (const FloatComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+airy (const FloatComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   dim_vector dv = z.dims ();
   octave_idx_type nel = dv.numel ();
@@ -2208,7 +2231,8 @@
 }
 
 FloatComplexNDArray
-biry (const FloatComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr)
+biry (const FloatComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr)
 {
   dim_vector dv = z.dims ();
   octave_idx_type nel = dv.numel ();
@@ -2231,8 +2255,8 @@
   std::string d3_str = d3.str ();
 
   (*current_liboctave_error_handler)
-  ("betainc: nonconformant arguments (x is %s, a is %s, b is %s)",
-   d1_str.c_str (), d2_str.c_str (), d3_str.c_str ());
+    ("betainc: nonconformant arguments (x is %s, a is %s, b is %s)",
+     d1_str.c_str (), d2_str.c_str (), d3_str.c_str ());
 }
 
 static void
@@ -2244,8 +2268,8 @@
   std::string d3_str = d3.str ();
 
   (*current_liboctave_error_handler)
-  ("betaincinv: nonconformant arguments (x is %s, a is %s, b is %s)",
-   d1_str.c_str (), d2_str.c_str (), d3_str.c_str ());
+    ("betaincinv: nonconformant arguments (x is %s, a is %s, b is %s)",
+     d1_str.c_str (), d2_str.c_str (), d3_str.c_str ());
 }
 
 double
@@ -2544,7 +2568,7 @@
   return retval;
 }
 
-// FIXME -- there is still room for improvement here...
+// FIXME: there is still room for improvement here...
 
 double
 gammainc (double x, double a, bool& err)
@@ -2588,7 +2612,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2615,7 +2639,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2654,7 +2678,7 @@
       ("gammainc: nonconformant arguments (arg 1 is %dx%d, arg 2 is %dx%d)",
        nr, nc, a_nr, a_nc);
 
- done:
+done:
 
   return retval;
 }
@@ -2680,7 +2704,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2706,7 +2730,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2746,7 +2770,7 @@
          x_str.c_str (), a_str. c_str ());
     }
 
- done:
+done:
 
   return retval;
 }
@@ -2793,7 +2817,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2820,7 +2844,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2859,7 +2883,7 @@
       ("gammainc: nonconformant arguments (arg 1 is %dx%d, arg 2 is %dx%d)",
        nr, nc, a_nr, a_nc);
 
- done:
+done:
 
   return retval;
 }
@@ -2885,7 +2909,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2911,7 +2935,7 @@
 
   retval = result;
 
- done:
+done:
 
   return retval;
 }
@@ -2951,7 +2975,7 @@
          x_str.c_str (), a_str.c_str ());
     }
 
- done:
+done:
 
   return retval;
 }
@@ -2966,7 +2990,8 @@
 FloatComplex rc_log1p (float x)
 {
   const float pi = 3.14159265358979323846f;
-  return x < -1.0f ? FloatComplex (logf (-(1.0f + x)), pi) : FloatComplex (log1pf (x));
+  return x < -1.0f ? FloatComplex (logf (-(1.0f + x)), pi)
+                   : FloatComplex (log1pf (x));
 }
 
 // This algorithm is due to P. J. Acklam.
@@ -2980,20 +3005,28 @@
 {
   // Coefficients of rational approximation.
   static const double a[] =
-    { -2.806989788730439e+01,  1.562324844726888e+02,
-      -1.951109208597547e+02,  9.783370457507161e+01,
-      -2.168328665628878e+01,  1.772453852905383e+00 };
+  {
+    -2.806989788730439e+01,  1.562324844726888e+02,
+    -1.951109208597547e+02,  9.783370457507161e+01,
+    -2.168328665628878e+01,  1.772453852905383e+00
+  };
   static const double b[] =
-    { -5.447609879822406e+01,  1.615858368580409e+02,
-      -1.556989798598866e+02,  6.680131188771972e+01,
-      -1.328068155288572e+01 };
+  {
+    -5.447609879822406e+01,  1.615858368580409e+02,
+    -1.556989798598866e+02,  6.680131188771972e+01,
+    -1.328068155288572e+01
+  };
   static const double c[] =
-    { -5.504751339936943e-03, -2.279687217114118e-01,
-      -1.697592457770869e+00, -1.802933168781950e+00,
-       3.093354679843505e+00,  2.077595676404383e+00 };
+  {
+    -5.504751339936943e-03, -2.279687217114118e-01,
+    -1.697592457770869e+00, -1.802933168781950e+00,
+    3.093354679843505e+00,  2.077595676404383e+00
+  };
   static const double d[] =
-    {  7.784695709041462e-03,  3.224671290700398e-01,
-       2.445134137142996e+00,  3.754408661907416e+00 };
+  {
+    7.784695709041462e-03,  3.224671290700398e-01,
+    2.445134137142996e+00,  3.754408661907416e+00
+  };
 
   static const double spi2 = 8.862269254527579e-01; // sqrt(pi)/2.
   static const double pbreak = 0.95150;
@@ -3049,20 +3082,28 @@
 {
   // Coefficients of rational approximation.
   static const double a[] =
-    { -2.806989788730439e+01,  1.562324844726888e+02,
-      -1.951109208597547e+02,  9.783370457507161e+01,
-      -2.168328665628878e+01,  1.772453852905383e+00 };
+  {
+    -2.806989788730439e+01,  1.562324844726888e+02,
+    -1.951109208597547e+02,  9.783370457507161e+01,
+    -2.168328665628878e+01,  1.772453852905383e+00
+  };
   static const double b[] =
-    { -5.447609879822406e+01,  1.615858368580409e+02,
-      -1.556989798598866e+02,  6.680131188771972e+01,
-      -1.328068155288572e+01 };
+  {
+    -5.447609879822406e+01,  1.615858368580409e+02,
+    -1.556989798598866e+02,  6.680131188771972e+01,
+    -1.328068155288572e+01
+  };
   static const double c[] =
-    { -5.504751339936943e-03, -2.279687217114118e-01,
-      -1.697592457770869e+00, -1.802933168781950e+00,
-       3.093354679843505e+00,  2.077595676404383e+00 };
+  {
+    -5.504751339936943e-03, -2.279687217114118e-01,
+    -1.697592457770869e+00, -1.802933168781950e+00,
+    3.093354679843505e+00,  2.077595676404383e+00
+  };
   static const double d[] =
-    {  7.784695709041462e-03,  3.224671290700398e-01,
-       2.445134137142996e+00,  3.754408661907416e+00 };
+  {
+    7.784695709041462e-03,  3.224671290700398e-01,
+    2.445134137142996e+00,  3.754408661907416e+00
+  };
 
   static const double spi2 = 8.862269254527579e-01; // sqrt(pi)/2.
   static const double pbreak_lo = 0.04850;  // 1-pbreak
@@ -3201,7 +3242,7 @@
       if (temp <= acu && temp <= acu * value)
         {
           value = value * exp (pp * log (xx)
-          + (qq - 1.0) * log (cx) - beta) / pp;
+                               + (qq - 1.0) * log (cx) - beta) / pp;
 
           if (indx)
             {
@@ -3559,7 +3600,8 @@
 }
 
 Array<double>
-betaincinv (const Array<double>& x, const Array<double>& a, const Array<double>& b)
+betaincinv (const Array<double>& x, const Array<double>& a,
+            const Array<double>& b)
 {
   Array<double> retval;
   dim_vector dv = x.dims ();
@@ -3653,7 +3695,8 @@
 }
 
 void
-ellipj (const Complex& u, double m, Complex& sn, Complex& cn, Complex& dn, double& err)
+ellipj (const Complex& u, double m, Complex& sn, Complex& cn, Complex& dn,
+        double& err)
 {
   double m1 = 1 - m, ss1, cc1, dd1;
 
--- a/liboctave/numeric/lo-specfun.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/lo-specfun.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_liboctave_specfun_h)
-#define octave_liboctave_specfun_h 1
+#if !defined (octave_lo_specfun_h)
+#define octave_lo_specfun_h 1
 
 #include "oct-cmplx.h"
 #include "Array.h"
@@ -41,75 +41,75 @@
 class FloatComplexColumnVector;
 class Range;
 
-#if !defined (HAVE_ACOSH)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double acosh (double);
 #endif
 
-#if !defined (HAVE_ASINH)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double asinh (double);
 #endif
 
-#if !defined (HAVE_ATANH)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double atanh (double);
 #endif
 
-#if !defined (HAVE_ERF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double erf (double);
 #endif
 extern OCTAVE_API Complex erf (const Complex& x);
 extern OCTAVE_API FloatComplex erf (const FloatComplex& x);
 
-#if !defined (HAVE_ERFC)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double erfc (double);
 #endif
 extern OCTAVE_API Complex erfc (const Complex& x);
 extern OCTAVE_API FloatComplex erfc (const FloatComplex& x);
 
-#if !defined (HAVE_ACOSHF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float acoshf (float);
 #endif
 
-#if !defined (HAVE_ASINHF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float asinhf (float);
 #endif
 
-#if !defined (HAVE_ATANHF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float atanhf (float);
 #endif
 
-#if !defined (HAVE_ERFF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float erff (float);
 #endif
 
-#if !defined (HAVE_ERFCF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float erfcf (float);
 #endif
 
-#if !defined (HAVE_EXPM1)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double expm1 (double x);
 #endif
 extern OCTAVE_API Complex expm1 (const Complex& x);
 
-#if !defined (HAVE_EXPM1F)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float expm1f (float x);
 #endif
 extern OCTAVE_API FloatComplex expm1 (const FloatComplex& x);
 
-#if !defined (HAVE_LOG1P)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double log1p (double x);
 #endif
 extern OCTAVE_API Complex log1p (const Complex& x);
 
-#if !defined (HAVE_LOG1PF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float log1pf (float x);
 #endif
 extern OCTAVE_API FloatComplex log1p (const FloatComplex& x);
 
-#if !defined (HAVE_CBRT)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API double cbrt (double x);
 #endif
 
-#if !defined (HAVE_CBRTF)
+#if !defined (octave_lo_specfun_h)
 extern OCTAVE_API float cbrtf (float x);
 #endif
 
@@ -308,22 +308,28 @@
           Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplex
-besselj (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+besselj (float alpha, const FloatComplex& x, bool scaled,
+         octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplex
-bessely (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+bessely (float alpha, const FloatComplex& x, bool scaled,
+         octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplex
-besseli (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+besseli (float alpha, const FloatComplex& x, bool scaled,
+         octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplex
-besselk (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+besselk (float alpha, const FloatComplex& x, bool scaled,
+         octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplex
-besselh1 (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+besselh1 (float alpha, const FloatComplex& x, bool scaled,
+          octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplex
-besselh2 (float alpha, const FloatComplex& x, bool scaled, octave_idx_type& ierr);
+besselh2 (float alpha, const FloatComplex& x, bool scaled,
+          octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
 besselj (float alpha, const FloatComplexMatrix& x, bool scaled,
@@ -470,78 +476,111 @@
           Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-besselj (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-         Array<octave_idx_type>& ierr);
+besselj (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+         bool scaled, Array<octave_idx_type>& ierr);
+
+extern OCTAVE_API FloatComplexMatrix
+bessely (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+         bool scaled, Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-bessely (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-         Array<octave_idx_type>& ierr);
+besseli (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+         bool scaled, Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-besseli (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-         Array<octave_idx_type>& ierr);
+besselk (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+         bool scaled, Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-besselk (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-         Array<octave_idx_type>& ierr);
+besselh1 (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+          bool scaled, Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-besselh1 (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-          Array<octave_idx_type>& ierr);
+besselh2 (const FloatRowVector& alpha, const FloatComplexColumnVector& x,
+          bool scaled, Array<octave_idx_type>& ierr);
 
-extern OCTAVE_API FloatComplexMatrix
-besselh2 (const FloatRowVector& alpha, const FloatComplexColumnVector& x, bool scaled,
-          Array<octave_idx_type>& ierr);
+extern OCTAVE_API Complex
+airy (const Complex& z, bool deriv, bool scaled, octave_idx_type& ierr);
 
-extern OCTAVE_API Complex airy (const Complex& z, bool deriv, bool scaled, octave_idx_type& ierr);
-extern OCTAVE_API Complex biry (const Complex& z, bool deriv, bool scaled, octave_idx_type& ierr);
+extern OCTAVE_API Complex
+biry (const Complex& z, bool deriv, bool scaled, octave_idx_type& ierr);
 
 extern OCTAVE_API ComplexMatrix
-airy (const ComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+airy (const ComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API ComplexMatrix
-biry (const ComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+biry (const ComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API ComplexNDArray
-airy (const ComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+airy (const ComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API ComplexNDArray
-biry (const ComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+biry (const ComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
-extern OCTAVE_API FloatComplex airy (const FloatComplex& z, bool deriv, bool scaled, octave_idx_type& ierr);
-extern OCTAVE_API FloatComplex biry (const FloatComplex& z, bool deriv, bool scaled, octave_idx_type& ierr);
+extern OCTAVE_API FloatComplex
+airy (const FloatComplex& z, bool deriv, bool scaled, octave_idx_type& ierr);
+
+extern OCTAVE_API FloatComplex
+biry (const FloatComplex& z, bool deriv, bool scaled, octave_idx_type& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-airy (const FloatComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+airy (const FloatComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexMatrix
-biry (const FloatComplexMatrix& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+biry (const FloatComplexMatrix& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexNDArray
-airy (const FloatComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+airy (const FloatComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
 extern OCTAVE_API FloatComplexNDArray
-biry (const FloatComplexNDArray& z, bool deriv, bool scaled, Array<octave_idx_type>& ierr);
+biry (const FloatComplexNDArray& z, bool deriv, bool scaled,
+      Array<octave_idx_type>& ierr);
 
-extern OCTAVE_API double betainc (double x, double a, double b);
-extern OCTAVE_API Array<double> betainc (double x, double a, const Array<double>& b);
-extern OCTAVE_API Array<double> betainc (double x, const Array<double>& a, double b);
-extern OCTAVE_API Array<double> betainc (double x, const Array<double>& a, const Array<double>& b);
-extern OCTAVE_API Array<double> betainc (const Array<double>& x, double a, double b);
-extern OCTAVE_API Array<double> betainc (const Array<double>& x, double a, double b);
-extern OCTAVE_API Array<double> betainc (const Array<double>& x, double a, const Array<double>& b);
-extern OCTAVE_API Array<double> betainc (const Array<double>& x, const Array<double>& a, double b);
-extern OCTAVE_API Array<double> betainc (const Array<double>& x, const Array<double>& a, const Array<double>& b);
+extern OCTAVE_API double
+betainc (double x, double a, double b);
+extern OCTAVE_API Array<double>
+betainc (double x, double a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betainc (double x, const Array<double>& a, double b);
+extern OCTAVE_API Array<double>
+betainc (double x, const Array<double>& a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betainc (const Array<double>& x, double a, double b);
+extern OCTAVE_API Array<double>
+betainc (const Array<double>& x, double a, double b);
+extern OCTAVE_API Array<double>
+betainc (const Array<double>& x, double a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betainc (const Array<double>& x, const Array<double>& a, double b);
+extern OCTAVE_API Array<double>
+betainc (const Array<double>& x, const Array<double>& a,
+         const Array<double>& b);
 
-extern OCTAVE_API float betainc (float x, float a, float b);
-extern OCTAVE_API Array<float> betainc (float x, float a, const Array<float>& b);
-extern OCTAVE_API Array<float> betainc (float x, const Array<float>& a, float b);
-extern OCTAVE_API Array<float> betainc (float x, const Array<float>& a, const Array<float>& b);
-extern OCTAVE_API Array<float> betainc (const Array<float>& x, float a, float b);
-extern OCTAVE_API Array<float> betainc (const Array<float>& x, float a, float b);
-extern OCTAVE_API Array<float> betainc (const Array<float>& x, float a, const Array<float>& b);
-extern OCTAVE_API Array<float> betainc (const Array<float>& x, const Array<float>& a, float b);
-extern OCTAVE_API Array<float> betainc (const Array<float>& x, const Array<float>& a, const Array<float>& b);
+extern OCTAVE_API float
+betainc (float x, float a, float b);
+extern OCTAVE_API Array<float>
+betainc (float x, float a, const Array<float>& b);
+extern OCTAVE_API Array<float>
+betainc (float x, const Array<float>& a, float b);
+extern OCTAVE_API Array<float>
+betainc (float x, const Array<float>& a, const Array<float>& b);
+extern OCTAVE_API Array<float>
+betainc (const Array<float>& x, float a, float b);
+extern OCTAVE_API Array<float>
+betainc (const Array<float>& x, float a, float b);
+extern OCTAVE_API Array<float>
+betainc (const Array<float>& x, float a, const Array<float>& b);
+extern OCTAVE_API Array<float>
+betainc (const Array<float>& x, const Array<float>& a, float b);
+extern OCTAVE_API Array<float>
+betainc (const Array<float>& x, const Array<float>& a, const Array<float>& b);
 
 extern OCTAVE_API double gammainc (double x, double a, bool& err);
 extern OCTAVE_API Matrix gammainc (double x, const Matrix& a);
@@ -561,11 +600,13 @@
 extern OCTAVE_API float gammainc (float x, float a, bool& err);
 extern OCTAVE_API FloatMatrix gammainc (float x, const FloatMatrix& a);
 extern OCTAVE_API FloatMatrix gammainc (const FloatMatrix& x, float a);
-extern OCTAVE_API FloatMatrix gammainc (const FloatMatrix& x, const FloatMatrix& a);
+extern OCTAVE_API FloatMatrix
+gammainc (const FloatMatrix& x, const FloatMatrix& a);
 
 extern OCTAVE_API FloatNDArray gammainc (float x, const FloatNDArray& a);
 extern OCTAVE_API FloatNDArray gammainc (const FloatNDArray& x, float a);
-extern OCTAVE_API FloatNDArray gammainc (const FloatNDArray& x, const FloatNDArray& a);
+extern OCTAVE_API FloatNDArray
+gammainc (const FloatNDArray& x, const FloatNDArray& a);
 
 inline float gammainc (float x, float a)
 {
@@ -598,16 +639,28 @@
 extern OCTAVE_API FloatComplex dawson (const FloatComplex& x);
 
 extern OCTAVE_API double betaincinv (double x, double a, double b);
-extern OCTAVE_API Array<double> betaincinv (double x, double a, const Array<double>& b);
-extern OCTAVE_API Array<double> betaincinv (double x, const Array<double>& a, double b);
-extern OCTAVE_API Array<double> betaincinv (double x, const Array<double>& a, const Array<double>& b);
-extern OCTAVE_API Array<double> betaincinv (const Array<double>& x, double a, double b);
-extern OCTAVE_API Array<double> betaincinv (const Array<double>& x, double a, double b);
-extern OCTAVE_API Array<double> betaincinv (const Array<double>& x, double a, const Array<double>& b);
-extern OCTAVE_API Array<double> betaincinv (const Array<double>& x, const Array<double>& a, double b);
-extern OCTAVE_API Array<double> betaincinv (const Array<double>& x, const Array<double>& a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betaincinv (double x, double a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betaincinv (double x, const Array<double>& a, double b);
+extern OCTAVE_API Array<double>
+betaincinv (double x, const Array<double>& a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betaincinv (const Array<double>& x, double a, double b);
+extern OCTAVE_API Array<double>
+betaincinv (const Array<double>& x, double a, double b);
+extern OCTAVE_API Array<double>
+betaincinv (const Array<double>& x, double a, const Array<double>& b);
+extern OCTAVE_API Array<double>
+betaincinv (const Array<double>& x, const Array<double>& a, double b);
+extern OCTAVE_API Array<double>
+betaincinv (const Array<double>& x, const Array<double>& a,
+            const Array<double>& b);
 
-extern OCTAVE_API void ellipj (double u, double m, double& sn, double& cn, double& dn, double& err);
-extern OCTAVE_API void ellipj (const Complex& u, double m, Complex& sn, Complex& cn, Complex& dn, double& err);
+extern OCTAVE_API void
+ellipj (double u, double m, double& sn, double& cn, double& dn, double& err);
+extern OCTAVE_API void
+ellipj (const Complex& u, double m, Complex& sn, Complex& cn, Complex& dn,
+        double& err);
 
 #endif
--- a/liboctave/numeric/oct-convn.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-convn.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -82,13 +82,17 @@
     convolve_2d<T, R> (a, ad(0), ad(1), b, bd(0), bd(1), c, inner);
   else
     {
-      octave_idx_type ma = acd(nd-2), na = ad(nd-1), mb = bcd(nd-2), nb = bd(nd-1);
+      octave_idx_type ma = acd(nd-2);
+      octave_idx_type na = ad(nd-1);
+      octave_idx_type mb = bcd(nd-2);
+      octave_idx_type nb = bd(nd-1);
       octave_idx_type ldc = ccd(nd-2);
       if (inner)
         {
           for (octave_idx_type ja = 0; ja < na - nb + 1; ja++)
             for (octave_idx_type jb = 0; jb < nb; jb++)
-              convolve_nd<T, R> (a + ma*(ja+jb), ad, acd, b + mb*(nb-jb-1), bd, bcd,
+              convolve_nd<T, R> (a + ma*(ja+jb), ad, acd,
+                                 b + mb*(nb-jb-1), bd, bcd,
                                  c + ldc*ja, ccd, nd-1, inner);
         }
       else
@@ -129,7 +133,8 @@
 
   convolve_nd<T, R> (a.fortran_vec (), adims, adims.cumulative (),
                      b.fortran_vec (), bdims, bdims.cumulative (),
-                     c.fortran_vec (), cdims.cumulative (), nd, ct == convn_valid);
+                     c.fortran_vec (), cdims.cumulative (),
+                     nd, ct == convn_valid);
 
   if (ct == convn_same)
     {
--- a/liboctave/numeric/oct-convn.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-convn.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_convn_h)
-#define octave_convn_h 1
+#if !defined (octave_oct_convn_h)
+#define octave_oct_convn_h 1
 
 #include "dMatrix.h"
 #include "fMatrix.h"
--- a/liboctave/numeric/oct-fftw.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-fftw.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -53,7 +53,7 @@
 // Note that we also use any wisdom that is available, either in a
 // FFTW3 system wide file or as supplied by the user.
 
-// FIXME -- if we can ensure 16 byte alignment in Array<T>
+// FIXME: if we can ensure 16 byte alignment in Array<T>
 // (<T> *data) the FFTW3 can use SIMD instructions for further
 // acceleration.
 
@@ -225,22 +225,24 @@
           // Create matrix with the same size and 16-byte alignment as input
           OCTAVE_LOCAL_BUFFER (Complex, itmp, nn * howmany + 32);
           itmp = reinterpret_cast<Complex *>
-            (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
-             ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
+                 (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
+                  ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
 
           *cur_plan_p =
             fftw_plan_many_dft (rank, tmp, howmany,
-              reinterpret_cast<fftw_complex *> (itmp),
-              0, stride, dist, reinterpret_cast<fftw_complex *> (out),
-              0, stride, dist, dir, plan_flags);
+                                reinterpret_cast<fftw_complex *> (itmp),
+                                0, stride, dist,
+                                reinterpret_cast<fftw_complex *> (out),
+                                0, stride, dist, dir, plan_flags);
         }
       else
         {
           *cur_plan_p =
             fftw_plan_many_dft (rank, tmp, howmany,
-              reinterpret_cast<fftw_complex *> (const_cast<Complex *> (in)),
-              0, stride, dist, reinterpret_cast<fftw_complex *> (out),
-              0, stride, dist, dir, plan_flags);
+                                reinterpret_cast<fftw_complex *> (const_cast<Complex *> (in)),
+                                0, stride, dist,
+                                reinterpret_cast<fftw_complex *> (out),
+                                0, stride, dist, dir, plan_flags);
         }
 
       if (*cur_plan_p == 0)
@@ -342,21 +344,23 @@
           // Create matrix with the same size and 16-byte alignment as input
           OCTAVE_LOCAL_BUFFER (double, itmp, nn + 32);
           itmp = reinterpret_cast<double *>
-            (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
-             ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
+                 (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
+                  ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
 
           *cur_plan_p =
             fftw_plan_many_dft_r2c (rank, tmp, howmany, itmp,
-              0, stride, dist, reinterpret_cast<fftw_complex *> (out),
-              0, stride, dist, plan_flags);
+                                    0, stride, dist,
+                                    reinterpret_cast<fftw_complex *> (out),
+                                    0, stride, dist, plan_flags);
         }
       else
         {
           *cur_plan_p =
             fftw_plan_many_dft_r2c (rank, tmp, howmany,
-              (const_cast<double *> (in)),
-              0, stride, dist, reinterpret_cast<fftw_complex *> (out),
-              0, stride, dist, plan_flags);
+                                    (const_cast<double *> (in)),
+                                    0, stride, dist,
+                                    reinterpret_cast<fftw_complex *> (out),
+                                    0, stride, dist, plan_flags);
         }
 
       if (*cur_plan_p == 0)
@@ -563,22 +567,24 @@
           // Create matrix with the same size and 16-byte alignment as input
           OCTAVE_LOCAL_BUFFER (FloatComplex, itmp, nn * howmany + 32);
           itmp = reinterpret_cast<FloatComplex *>
-            (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
-             ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
+                 (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
+                  ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
 
           *cur_plan_p =
             fftwf_plan_many_dft (rank, tmp, howmany,
-              reinterpret_cast<fftwf_complex *> (itmp),
-              0, stride, dist, reinterpret_cast<fftwf_complex *> (out),
-              0, stride, dist, dir, plan_flags);
+                                 reinterpret_cast<fftwf_complex *> (itmp),
+                                 0, stride, dist,
+                                 reinterpret_cast<fftwf_complex *> (out),
+                                 0, stride, dist, dir, plan_flags);
         }
       else
         {
           *cur_plan_p =
             fftwf_plan_many_dft (rank, tmp, howmany,
-              reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *> (in)),
-              0, stride, dist, reinterpret_cast<fftwf_complex *> (out),
-              0, stride, dist, dir, plan_flags);
+                                 reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *> (in)),
+                                 0, stride, dist,
+                                 reinterpret_cast<fftwf_complex *> (out),
+                                 0, stride, dist, dir, plan_flags);
         }
 
       if (*cur_plan_p == 0)
@@ -681,21 +687,23 @@
           // Create matrix with the same size and 16-byte alignment as input
           OCTAVE_LOCAL_BUFFER (float, itmp, nn + 32);
           itmp = reinterpret_cast<float *>
-            (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
-             ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
+                 (((reinterpret_cast<ptrdiff_t>(itmp) + 15) & ~ 0xF) +
+                  ((reinterpret_cast<ptrdiff_t> (in)) & 0xF));
 
           *cur_plan_p =
             fftwf_plan_many_dft_r2c (rank, tmp, howmany, itmp,
-              0, stride, dist, reinterpret_cast<fftwf_complex *> (out),
-              0, stride, dist, plan_flags);
+                                     0, stride, dist,
+                                     reinterpret_cast<fftwf_complex *> (out),
+                                     0, stride, dist, plan_flags);
         }
       else
         {
           *cur_plan_p =
             fftwf_plan_many_dft_r2c (rank, tmp, howmany,
-              (const_cast<float *> (in)),
-              0, stride, dist, reinterpret_cast<fftwf_complex *> (out),
-              0, stride, dist, plan_flags);
+                                     (const_cast<float *> (in)),
+                                     0, stride, dist,
+                                     reinterpret_cast<fftwf_complex *> (out),
+                                     0, stride, dist, plan_flags);
         }
 
       if (*cur_plan_p == 0)
@@ -826,7 +834,7 @@
                                                      stride, dist, in, out);
 
   fftw_execute_dft_r2c (plan, (const_cast<double *>(in)),
-                         reinterpret_cast<fftw_complex *> (out));
+                        reinterpret_cast<fftw_complex *> (out));
 
   // Need to create other half of the transform.
 
@@ -847,15 +855,16 @@
                                                      dist, in, out);
 
   fftw_execute_dft (plan,
-        reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
-        reinterpret_cast<fftw_complex *> (out));
+                    reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
+                    reinterpret_cast<fftw_complex *> (out));
 
   return 0;
 }
 
 int
 octave_fftw::ifft (const Complex *in, Complex *out, size_t npts,
-                   size_t nsamples, octave_idx_type stride, octave_idx_type dist)
+                   size_t nsamples, octave_idx_type stride,
+                   octave_idx_type dist)
 {
   dist = (dist < 0 ? npts : dist);
 
@@ -865,8 +874,8 @@
                                                      dist, in, out);
 
   fftw_execute_dft (plan,
-        reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
-        reinterpret_cast<fftw_complex *> (out));
+                    reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
+                    reinterpret_cast<fftw_complex *> (out));
 
   const Complex scale = npts;
   for (size_t j = 0; j < nsamples; j++)
@@ -914,8 +923,8 @@
                                                      dv, 1, 1, dist, in, out);
 
   fftw_execute_dft (plan,
-        reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
-        reinterpret_cast<fftw_complex *> (out));
+                    reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
+                    reinterpret_cast<fftw_complex *> (out));
 
   return 0;
 }
@@ -932,8 +941,8 @@
                                                      dv, 1, 1, dist, in, out);
 
   fftw_execute_dft (plan,
-        reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
-        reinterpret_cast<fftw_complex *> (out));
+                    reinterpret_cast<fftw_complex *> (const_cast<Complex *>(in)),
+                    reinterpret_cast<fftw_complex *> (out));
 
   const size_t npts = dv.numel ();
   const Complex scale = npts;
@@ -955,7 +964,7 @@
                                                             in, out);
 
   fftwf_execute_dft_r2c (plan, (const_cast<float *>(in)),
-                        reinterpret_cast<fftwf_complex *> (out));
+                         reinterpret_cast<fftwf_complex *> (out));
 
   // Need to create other half of the transform.
 
@@ -977,15 +986,16 @@
                                                             in, out);
 
   fftwf_execute_dft (plan,
-        reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
-        reinterpret_cast<fftwf_complex *> (out));
+                     reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
+                     reinterpret_cast<fftwf_complex *> (out));
 
   return 0;
 }
 
 int
 octave_fftw::ifft (const FloatComplex *in, FloatComplex *out, size_t npts,
-                   size_t nsamples, octave_idx_type stride, octave_idx_type dist)
+                   size_t nsamples, octave_idx_type stride,
+                   octave_idx_type dist)
 {
   dist = (dist < 0 ? npts : dist);
 
@@ -996,8 +1006,8 @@
                                                             in, out);
 
   fftwf_execute_dft (plan,
-        reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
-        reinterpret_cast<fftwf_complex *> (out));
+                     reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
+                     reinterpret_cast<fftwf_complex *> (out));
 
   const FloatComplex scale = npts;
   for (size_t j = 0; j < nsamples; j++)
@@ -1025,7 +1035,7 @@
                                                             out + offset);
 
   fftwf_execute_dft_r2c (plan, (const_cast<float *>(in)),
-                        reinterpret_cast<fftwf_complex *> (out+ offset));
+                         reinterpret_cast<fftwf_complex *> (out+ offset));
 
   // Need to create other half of the transform.
 
@@ -1047,8 +1057,8 @@
                                                             dist, in, out);
 
   fftwf_execute_dft (plan,
-        reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
-        reinterpret_cast<fftwf_complex *> (out));
+                     reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
+                     reinterpret_cast<fftwf_complex *> (out));
 
   return 0;
 }
@@ -1066,8 +1076,8 @@
                                                             dist, in, out);
 
   fftwf_execute_dft (plan,
-        reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
-        reinterpret_cast<fftwf_complex *> (out));
+                     reinterpret_cast<fftwf_complex *> (const_cast<FloatComplex *>(in)),
+                     reinterpret_cast<fftwf_complex *> (out));
 
   const size_t npts = dv.numel ();
   const FloatComplex scale = npts;
--- a/liboctave/numeric/oct-fftw.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-fftw.h	Tue Nov 05 12:27:42 2013 -0500
@@ -67,9 +67,9 @@
     static fftw_plan dummy;
 
     return instance_ok ()
-      ? instance->do_create_plan (dir, rank, dims, howmany, stride,
-                                  dist, in, out)
-      : dummy;
+           ? instance->do_create_plan (dir, rank, dims, howmany, stride,
+                                       dist, in, out)
+           : dummy;
   }
 
   static fftw_plan
@@ -80,8 +80,9 @@
     static fftw_plan dummy;
 
     return instance_ok ()
-      ? instance->do_create_plan (rank, dims, howmany, stride, dist, in, out)
-      : dummy;
+           ? instance->do_create_plan (rank, dims, howmany, stride, dist,
+                                       in, out)
+           : dummy;
   }
 
   static FftwMethod method (void)
@@ -145,7 +146,7 @@
 
   FftwMethod meth;
 
-  // FIXME -- perhaps this should be split into two classes?
+  // FIXME: perhaps this should be split into two classes?
 
   // Plan for fft and ifft of complex values
   fftw_plan plan[2];
@@ -227,9 +228,9 @@
     static fftwf_plan dummy;
 
     return instance_ok ()
-      ? instance->do_create_plan (dir, rank, dims, howmany, stride,
-                                  dist, in, out)
-      : dummy;
+           ? instance->do_create_plan (dir, rank, dims, howmany, stride,
+                                       dist, in, out)
+           : dummy;
   }
 
   static fftwf_plan
@@ -240,8 +241,9 @@
     static fftwf_plan dummy;
 
     return instance_ok ()
-      ? instance->do_create_plan (rank, dims, howmany, stride, dist, in, out)
-      : dummy;
+           ? instance->do_create_plan (rank, dims, howmany, stride, dist,
+                                       in, out)
+           : dummy;
   }
 
   static FftwMethod method (void)
@@ -305,7 +307,7 @@
 
   FftwMethod meth;
 
-  // FIXME -- perhaps this should be split into two classes?
+  // FIXME: perhaps this should be split into two classes?
 
   // Plan for fft and ifft of complex values
   fftwf_plan plan[2];
@@ -361,11 +363,14 @@
 public:
 
   static int fft (const double *in, Complex *out, size_t npts,
-                  size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                  size_t nsamples = 1, octave_idx_type stride = 1,
+                  octave_idx_type dist = -1);
   static int fft (const Complex *in, Complex *out, size_t npts,
-                  size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                  size_t nsamples = 1, octave_idx_type stride = 1,
+                  octave_idx_type dist = -1);
   static int ifft (const Complex *in, Complex *out, size_t npts,
-                   size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                   size_t nsamples = 1, octave_idx_type stride = 1,
+                   octave_idx_type dist = -1);
 
   static int fftNd (const double*, Complex*, const int, const dim_vector &);
   static int fftNd (const Complex*, Complex*, const int,
@@ -374,11 +379,14 @@
                      const dim_vector &);
 
   static int fft (const float *in, FloatComplex *out, size_t npts,
-                  size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                  size_t nsamples = 1, octave_idx_type stride = 1,
+                  octave_idx_type dist = -1);
   static int fft (const FloatComplex *in, FloatComplex *out, size_t npts,
-                  size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                  size_t nsamples = 1, octave_idx_type stride = 1,
+                  octave_idx_type dist = -1);
   static int ifft (const FloatComplex *in, FloatComplex *out, size_t npts,
-                   size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1);
+                   size_t nsamples = 1, octave_idx_type stride = 1,
+                   octave_idx_type dist = -1);
 
   static int fftNd (const float*, FloatComplex*, const int, const dim_vector &);
   static int fftNd (const FloatComplex*, FloatComplex*, const int,
--- a/liboctave/numeric/oct-norm.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-norm.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -341,9 +341,9 @@
     }
 }
 
-// Complex version. Higham's paper does not deal with complex case, so we use a simple
-// extension. First, guess the magnitudes as in real version, then try to rotate lambda
-// to improve further.
+// Complex version. Higham's paper does not deal with complex case, so we use a
+// simple extension. First, guess the magnitudes as in real version, then try
+// to rotate lambda to improve further.
 template <class ColVectorT, class R>
 static void
 higham_subp (const ColVectorT& y, const ColVectorT& col,
@@ -460,8 +460,9 @@
 
 static const char *p_less1_gripe = "xnorm: p must be at least 1";
 
-// Static constant to control the maximum number of iterations. 100 seems to be a good value.
-// Eventually, we can provide a means to change this constant from Octave.
+// Static constant to control the maximum number of iterations.  100 seems to
+// be a good value.  Eventually, we can provide a means to change this
+// constant from Octave.
 static int max_norm_iter = 100;
 
 // version with SVD for dense matrices
--- a/liboctave/numeric/oct-norm.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-norm.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 // author: Jaroslav Hajek <highegg@gmail.com>
 
-#if !defined (octave_norm_h)
-#define octave_norm_h 1
+#if !defined (octave_oct_norm_h)
+#define octave_oct_norm_h 1
 
 #include "oct-cmplx.h"
 
--- a/liboctave/numeric/oct-rand.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-rand.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -782,7 +782,7 @@
               double tmp;
               F77_FUNC (dignpoi, DIGNPOI) (a + 1, tmp);
 #define RAND_FUNC(x) F77_FUNC (dignpoi, DIGNPOI) (a, x)
-                MAKE_RAND (len);
+              MAKE_RAND (len);
 #undef RAND_FUNC
             }
         }
@@ -872,7 +872,7 @@
               double tmp;
               F77_FUNC (dignpoi, DIGNPOI) (da + 1, tmp);
 #define RAND_FUNC(x) F77_FUNC (dignpoi, DIGNPOI) (da, x)
-                MAKE_RAND (len);
+              MAKE_RAND (len);
 #undef RAND_FUNC
             }
         }
--- a/liboctave/numeric/oct-rand.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/oct-rand.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_rand_h)
-#define octave_rand_h 1
+#if !defined (octave_oct_rand_h)
+#define octave_oct_rand_h 1
 
 #include <map>
 #include <string>
@@ -144,15 +144,15 @@
 
   // Return an array of numbers from the sequence.
   static Array<double> vector (octave_idx_type n, double a = 1.0)
-   {
-     return instance_ok () ? instance->do_vector (n, a) : Array<double> ();
-   }
+  {
+    return instance_ok () ? instance->do_vector (n, a) : Array<double> ();
+  }
 
   // Return an array of numbers from the sequence.
   static Array<float> float_vector (octave_idx_type n, float a = 1.0)
-   {
-     return instance_ok () ? instance->do_float_vector (n, a) : Array<float> ();
-   }
+  {
+    return instance_ok () ? instance->do_float_vector (n, a) : Array<float> ();
+  }
 
   // Return an N-dimensional array of numbers from the sequence,
   // filled in column major order.
@@ -166,7 +166,8 @@
   // filled in column major order.
   static FloatNDArray float_nd_array (const dim_vector& dims, float a = 1.0)
   {
-    return instance_ok () ? instance->do_float_nd_array (dims, a) : FloatNDArray ();
+    return instance_ok () ? instance->do_float_nd_array (dims, a)
+                          : FloatNDArray ();
   }
 
 private:
--- a/liboctave/numeric/randgamma.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/randgamma.c	Tue Nov 05 12:27:42 2013 -0500
@@ -127,7 +127,8 @@
       r[i] = d*v;
     }
   if (a < 1)
-    { /* Use gamma(a) = gamma(1+a)*U^(1/a) */
+    {
+      /* Use gamma(a) = gamma(1+a)*U^(1/a) */
       /* Given REXP = -log(U) then U^(1/a) = exp(-REXP/a) */
       for (i = 0; i < n; i++)
         r[i] *= exp (-REXP/a);
@@ -183,7 +184,8 @@
       r[i] = d*v;
     }
   if (a < 1)
-    { /* Use gamma(a) = gamma(1+a)*U^(1/a) */
+    {
+      /* Use gamma(a) = gamma(1+a)*U^(1/a) */
       /* Given REXP = -log(U) then U^(1/a) = exp(-REXP/a) */
       for (i = 0; i < n; i++)
         r[i] *= exp (-REXP/a);
--- a/liboctave/numeric/randgamma.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/randgamma.h	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,8 @@
 extern OCTAVE_API void oct_fill_randg (double a, octave_idx_type n, double *p);
 
 extern OCTAVE_API float oct_float_randg (float a);
-extern OCTAVE_API void oct_fill_float_randg (float a, octave_idx_type n, float *p);
+extern OCTAVE_API void oct_fill_float_randg (float a, octave_idx_type n,
+                                             float *p);
 
 #ifdef  __cplusplus
 }
--- a/liboctave/numeric/randmtzig.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/randmtzig.c	Tue Nov 05 12:27:42 2013 -0500
@@ -195,18 +195,19 @@
 void
 oct_init_by_int (uint32_t s)
 {
-    int j;
-    state[0] = s & 0xffffffffUL;
-    for (j = 1; j < MT_N; j++) {
-        state[j] = (1812433253UL * (state[j-1] ^ (state[j-1] >> 30)) + j);
-        /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */
-        /* In the previous versions, MSBs of the seed affect   */
-        /* only MSBs of the array state[].                        */
-        /* 2002/01/09 modified by Makoto Matsumoto             */
-        state[j] &= 0xffffffffUL;  /* for >32 bit machines */
+  int j;
+  state[0] = s & 0xffffffffUL;
+  for (j = 1; j < MT_N; j++)
+    {
+      state[j] = (1812433253UL * (state[j-1] ^ (state[j-1] >> 30)) + j);
+      /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */
+      /* In the previous versions, MSBs of the seed affect   */
+      /* only MSBs of the array state[].                        */
+      /* 2002/01/09 modified by Makoto Matsumoto             */
+      state[j] &= 0xffffffffUL;  /* for >32 bit machines */
     }
-    left = 1;
-    initf = 1;
+  left = 1;
+  initf = 1;
 }
 
 /* initialize by an array with array-length */
@@ -223,7 +224,7 @@
   for (; k; k--)
     {
       state[i] = (state[i] ^ ((state[i-1] ^ (state[i-1] >> 30)) * 1664525UL))
-        + init_key[j] + j; /* non linear */
+                 + init_key[j] + j; /* non linear */
       state[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */
       i++;
       j++;
@@ -238,7 +239,7 @@
   for (k = MT_N - 1; k; k--)
     {
       state[i] = (state[i] ^ ((state[i-1] ^ (state[i-1] >> 30)) * 1566083941UL))
-        - i; /* non linear */
+                 - i; /* non linear */
       state[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */
       i++;
       if (i >= MT_N)
@@ -256,38 +257,38 @@
 void
 oct_init_by_entropy (void)
 {
-    uint32_t entropy[MT_N];
-    int n = 0;
+  uint32_t entropy[MT_N];
+  int n = 0;
 
-    /* Look for entropy in /dev/urandom */
-    FILE* urandom = fopen ("/dev/urandom", "rb");
-    if (urandom)
-      {
-        while (n < MT_N)
-          {
-            unsigned char word[4];
-            if (fread (word, 4, 1, urandom) != 1)
-              break;
-            entropy[n++] = word[0]+(word[1]<<8)+(word[2]<<16)+((uint32_t)word[3]<<24);
-          }
-        fclose (urandom);
-      }
+  /* Look for entropy in /dev/urandom */
+  FILE* urandom = fopen ("/dev/urandom", "rb");
+  if (urandom)
+    {
+      while (n < MT_N)
+        {
+          unsigned char word[4];
+          if (fread (word, 4, 1, urandom) != 1)
+            break;
+          entropy[n++] = word[0]+(word[1]<<8)+(word[2]<<16)+((uint32_t)word[3]<<24);
+        }
+      fclose (urandom);
+    }
 
-    /* If there isn't enough entropy, gather some from various sources */
-    if (n < MT_N)
-      entropy[n++] = time (NULL); /* Current time in seconds */
-    if (n < MT_N)
-      entropy[n++] = clock ();    /* CPU time used (usec) */
+  /* If there isn't enough entropy, gather some from various sources */
+  if (n < MT_N)
+    entropy[n++] = time (NULL); /* Current time in seconds */
+  if (n < MT_N)
+    entropy[n++] = clock ();    /* CPU time used (usec) */
 #ifdef HAVE_GETTIMEOFDAY
-    if (n < MT_N)
-      {
-        struct timeval tv;
-        if (gettimeofday (&tv, NULL) != -1)
-          entropy[n++] = tv.tv_usec;   /* Fractional part of current time */
-      }
+  if (n < MT_N)
+    {
+      struct timeval tv;
+      if (gettimeofday (&tv, NULL) != -1)
+        entropy[n++] = tv.tv_usec;   /* Fractional part of current time */
+    }
 #endif
-    /* Send all the entropy into the initial state vector */
-    oct_init_by_array (entropy,n);
+  /* Send all the entropy into the initial state vector */
+  oct_init_by_array (entropy,n);
 }
 
 void
--- a/liboctave/numeric/randpoisson.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/randpoisson.c	Tue Nov 05 12:27:42 2013 -0500
@@ -80,13 +80,14 @@
 static double
 flogfak (double k)
 {
-#define       C0      9.18938533204672742e-01
-#define       C1      8.33333333333333333e-02
-#define       C3     -2.77777777777777778e-03
-#define       C5      7.93650793650793651e-04
-#define       C7     -5.95238095238095238e-04
+#define C0  9.18938533204672742e-01
+#define C1  8.33333333333333333e-02
+#define C3 -2.77777777777777778e-03
+#define C5  7.93650793650793651e-04
+#define C7 -5.95238095238095238e-04
 
-  static double logfak[30L] = {
+  static double logfak[30L] =
+  {
     0.00000000000000000,   0.00000000000000000,   0.69314718055994531,
     1.79175946922805500,   3.17805383034794562,   4.78749174278204599,
     6.57925121201010100,   8.52516136106541430,  10.60460290274525023,
@@ -152,12 +153,12 @@
 static double
 pprsc (double my)
 {
-  static double        my_last = -1.0;
-  static double        m,  k2, k4, k1, k5;
-  static double        dl, dr, r1, r2, r4, r5, ll, lr, l_my, c_pm,
-    f1, f2, f4, f5, p1, p2, p3, p4, p5, p6;
-  double               Dk, X, Y;
-  double               Ds, U, V, W;
+  static double my_last = -1.0;
+  static double m,  k2, k4, k1, k5;
+  static double dl, dr, r1, r2, r4, r5, ll, lr, l_my, c_pm,
+                f1, f2, f4, f5, p1, p2, p3, p4, p5, p6;
+  double        Dk, X, Y;
+  double        Ds, U, V, W;
 
   if (my != my_last)
     {                               /* set-up           */
@@ -322,50 +323,53 @@
   size_t i = n;
 
   t[0] = P = exp (-lambda);
-  for (tableidx = 1; tableidx <= intlambda; tableidx++) {
-    P = P*lambda/(double)tableidx;
-    t[tableidx] = t[tableidx-1] + P;
-  }
-
-  while (i-- > 0) {
-    double u = RUNI;
-
-    /* If u > 0.458 we know we can jump to floor(lambda) before
-     * comparing (this observation is based on Stadlober's winrand
-     * code). For lambda >= 1, this will be a win.  Lambda < 1
-     * is already fast, so adding an extra comparison is not a
-     * problem. */
-    int k = (u > 0.458 ? intlambda : 0);
-
-    /* We aren't using a for loop here because when we find the
-     * right k we want to jump to the next iteration of the
-     * outer loop, and the continue statement will only work for
-     * the inner loop. */
-  nextk:
-    if ( u <= t[k] ) {
-      p[i] = (double) k;
-      continue;
-    }
-    if (++k < tableidx) goto nextk;
-
-    /* We only need high values of the table very rarely so we
-     * don't automatically compute the entire table. */
-    while (tableidx < TABLESIZE) {
+  for (tableidx = 1; tableidx <= intlambda; tableidx++)
+    {
       P = P*lambda/(double)tableidx;
       t[tableidx] = t[tableidx-1] + P;
-      /* Make sure we converge to 1.0 just in case u is uniform
-       * on [0,1] rather than [0,1). */
-      if (t[tableidx] == t[tableidx-1]) t[tableidx] = 1.0;
-      tableidx++;
-      if (u <= t[tableidx-1]) break;
     }
 
-    /* We are assuming that the table size is big enough here.
-     * This should be true even if RUNI is returning values in
-     * the range [0,1] rather than [0,1).
-     */
-    p[i] = (double)(tableidx-1);
-  }
+  while (i-- > 0)
+    {
+      double u = RUNI;
+
+      /* If u > 0.458 we know we can jump to floor(lambda) before
+       * comparing (this observation is based on Stadlober's winrand
+       * code). For lambda >= 1, this will be a win.  Lambda < 1
+       * is already fast, so adding an extra comparison is not a
+       * problem. */
+      int k = (u > 0.458 ? intlambda : 0);
+
+      /* We aren't using a for loop here because when we find the
+       * right k we want to jump to the next iteration of the
+       * outer loop, and the continue statement will only work for
+       * the inner loop. */
+    nextk:
+      if (u <= t[k])
+        {
+          p[i] = (double) k;
+          continue;
+        }
+      if (++k < tableidx) goto nextk;
+
+      /* We only need high values of the table very rarely so we
+       * don't automatically compute the entire table. */
+      while (tableidx < TABLESIZE)
+        {
+          P = P*lambda/(double)tableidx;
+          t[tableidx] = t[tableidx-1] + P;
+          /* Make sure we converge to 1.0 just in case u is uniform
+           * on [0,1] rather than [0,1). */
+          if (t[tableidx] == t[tableidx-1]) t[tableidx] = 1.0;
+          tableidx++;
+          if (u <= t[tableidx-1]) break;
+        }
+
+      /* We are assuming that the table size is big enough here.
+       * This should be true even if RUNI is returning values in
+       * the range [0,1] rather than [0,1). */
+      p[i] = (double)(tableidx-1);
+    }
 }
 
 static void
@@ -381,31 +385,35 @@
   size_t i = n;
 
   t[0] = P = exp (-lambda);
-  for (tableidx = 1; tableidx <= intlambda; tableidx++) {
-    P = P*lambda/(double)tableidx;
-    t[tableidx] = t[tableidx-1] + P;
-  }
-
-  while (i-- > 0) {
-    double u = RUNI;
-    int k = (u > 0.458 ? intlambda : 0);
-  nextk:
-    if ( u <= t[k] ) {
-      p[i] = (float) k;
-      continue;
-    }
-    if (++k < tableidx) goto nextk;
-
-    while (tableidx < TABLESIZE) {
+  for (tableidx = 1; tableidx <= intlambda; tableidx++)
+    {
       P = P*lambda/(double)tableidx;
       t[tableidx] = t[tableidx-1] + P;
-      if (t[tableidx] == t[tableidx-1]) t[tableidx] = 1.0;
-      tableidx++;
-      if (u <= t[tableidx-1]) break;
     }
 
-    p[i] = (float)(tableidx-1);
-  }
+  while (i-- > 0)
+    {
+      double u = RUNI;
+      int k = (u > 0.458 ? intlambda : 0);
+    nextk:
+      if (u <= t[k])
+        {
+          p[i] = (float) k;
+          continue;
+        }
+      if (++k < tableidx) goto nextk;
+
+      while (tableidx < TABLESIZE)
+        {
+          P = P*lambda/(double)tableidx;
+          t[tableidx] = t[tableidx-1] + P;
+          if (t[tableidx] == t[tableidx-1]) t[tableidx] = 1.0;
+          tableidx++;
+          if (u <= t[tableidx-1]) break;
+        }
+
+      p[i] = (float)(tableidx-1);
+    }
 }
 
 /* From Press, et al., Numerical Recipes */
@@ -420,14 +428,16 @@
   for (i = 0; i < n; i++)
     {
       double y, em, t;
-      do {
-        do {
-          y = tan (M_PI*RUNI);
-          em = sq * y + lambda;
-        } while (em < 0.0);
-        em = floor (em);
-        t = 0.9*(1.0+y*y)*exp (em*alxm-flogfak (em)-g);
-      } while (RUNI > t);
+      do
+        {
+          do
+            {
+              y = tan (M_PI*RUNI);
+              em = sq * y + lambda;
+            } while (em < 0.0);
+          em = floor (em);
+          t = 0.9*(1.0+y*y)*exp (em*alxm-flogfak (em)-g);
+        } while (RUNI > t);
       p[i] = em;
     }
 }
@@ -444,14 +454,16 @@
   for (i = 0; i < n; i++)
     {
       double y, em, t;
-      do {
-        do {
-          y = tan (M_PI*RUNI);
-          em = sq * y + lambda;
-        } while (em < 0.0);
-        em = floor (em);
-        t = 0.9*(1.0+y*y)*exp (em*alxm-flogfak (em)-g);
-      } while (RUNI > t);
+      do
+        {
+          do
+            {
+              y = tan (M_PI*RUNI);
+              em = sq * y + lambda;
+            } while (em < 0.0);
+          em = floor (em);
+          t = 0.9*(1.0+y*y)*exp (em*alxm-flogfak (em)-g);
+        } while (RUNI > t);
       p[i] = em;
     }
 }
@@ -503,28 +515,36 @@
 {
   double ret;
   if (L < 0.0) ret = NAN;
-  else if (L <= 12.0) {
-    /* From Press, et al. Numerical recipes */
-    double g = exp (-L);
-    int em = -1;
-    double t = 1.0;
-    do {
-      ++em;
-      t *= RUNI;
-    } while (t > g);
-    ret = em;
-  } else if (L <= 1e8) {
-    /* numerical recipes */
-    poisson_rejection (L, &ret, 1);
-  } else if (INFINITE(L)) {
-    /* FIXME R uses NaN, but the normal approx. suggests that as
-     * limit should be inf. Which is correct? */
-    ret = NAN;
-  } else {
-    /* normal approximation: from Phys. Rev. D (1994) v50 p1284 */
-    ret = floor (RNOR*sqrt (L) + L + 0.5);
-    if (ret < 0.0) ret = 0.0; /* will probably never happen */
-  }
+  else if (L <= 12.0)
+    {
+      /* From Press, et al. Numerical recipes */
+      double g = exp (-L);
+      int em = -1;
+      double t = 1.0;
+      do
+        {
+          ++em;
+          t *= RUNI;
+        } while (t > g);
+      ret = em;
+    }
+  else if (L <= 1e8)
+    {
+      /* numerical recipes */
+      poisson_rejection (L, &ret, 1);
+    }
+  else if (INFINITE(L))
+    {
+      /* FIXME R uses NaN, but the normal approx. suggests that as
+       * limit should be inf. Which is correct? */
+      ret = NAN;
+    }
+  else
+    {
+      /* normal approximation: from Phys. Rev. D (1994) v50 p1284 */
+      ret = floor (RNOR*sqrt (L) + L + 0.5);
+      if (ret < 0.0) ret = 0.0; /* will probably never happen */
+    }
   return ret;
 }
 
@@ -568,27 +588,35 @@
   double L = FL;
   float ret;
   if (L < 0.0) ret = NAN;
-  else if (L <= 12.0) {
-    /* From Press, et al. Numerical recipes */
-    double g = exp (-L);
-    int em = -1;
-    double t = 1.0;
-    do {
-      ++em;
-      t *= RUNI;
-    } while (t > g);
-    ret = em;
-  } else if (L <= 1e8) {
-    /* numerical recipes */
-    poisson_rejection_float (L, &ret, 1);
-  } else if (INFINITE(L)) {
-    /* FIXME R uses NaN, but the normal approx. suggests that as
-     * limit should be inf. Which is correct? */
-    ret = NAN;
-  } else {
-    /* normal approximation: from Phys. Rev. D (1994) v50 p1284 */
-    ret = floor (RNOR*sqrt (L) + L + 0.5);
-    if (ret < 0.0) ret = 0.0; /* will probably never happen */
-  }
+  else if (L <= 12.0)
+    {
+      /* From Press, et al. Numerical recipes */
+      double g = exp (-L);
+      int em = -1;
+      double t = 1.0;
+      do
+        {
+          ++em;
+          t *= RUNI;
+        } while (t > g);
+      ret = em;
+    }
+  else if (L <= 1e8)
+    {
+      /* numerical recipes */
+      poisson_rejection_float (L, &ret, 1);
+    }
+  else if (INFINITE(L))
+    {
+      /* FIXME R uses NaN, but the normal approx. suggests that as
+       * limit should be inf. Which is correct? */
+      ret = NAN;
+    }
+  else
+    {
+      /* normal approximation: from Phys. Rev. D (1994) v50 p1284 */
+      ret = floor (RNOR*sqrt (L) + L + 0.5);
+      if (ret < 0.0) ret = 0.0; /* will probably never happen */
+    }
   return ret;
 }
--- a/liboctave/numeric/randpoisson.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/randpoisson.h	Tue Nov 05 12:27:42 2013 -0500
@@ -33,7 +33,8 @@
 extern OCTAVE_API void oct_fill_randp (double L, octave_idx_type n, double *p);
 
 extern OCTAVE_API float oct_float_randp (float L);
-extern OCTAVE_API void oct_fill_float_randp (float L, octave_idx_type n, float *p);
+extern OCTAVE_API void oct_fill_float_randp (float L, octave_idx_type n,
+                                             float *p);
 
 #ifdef  __cplusplus
 }
--- a/liboctave/numeric/sparse-base-chol.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/sparse-base-chol.h	Tue Nov 05 12:27:42 2013 -0500
@@ -39,36 +39,36 @@
     sparse_base_chol_rep (void)
       : count (1), Lsparse (0), Common (), is_pd (false), minor_p (0),
         perms (), cond (0)
-      { }
+    { }
 
     sparse_base_chol_rep (const chol_type& a, bool natural, bool force)
       : count (1), Lsparse (0), Common (), is_pd (false), minor_p (0),
         perms (), cond (0)
-      {
-        init (a, natural, force);
-      }
+    {
+      init (a, natural, force);
+    }
 
     sparse_base_chol_rep (const chol_type& a, octave_idx_type& info,
                           bool natural, bool force)
       : count (1), Lsparse (0), Common (), is_pd (false), minor_p (0),
         perms (), cond (0)
-      {
-        info = init (a, natural, force);
-      }
+    {
+      info = init (a, natural, force);
+    }
 
     ~sparse_base_chol_rep (void)
-      {
-        if (is_pd)
-          CHOLMOD_NAME (free_sparse) (&Lsparse, &Common);
-      }
+    {
+      if (is_pd)
+        CHOLMOD_NAME (free_sparse) (&Lsparse, &Common);
+    }
 
     cholmod_sparse * L (void) const { return Lsparse; }
 
     octave_idx_type P (void) const
-      {
-        return (minor_p == static_cast<octave_idx_type>(Lsparse->ncol) ?
-                0 : minor_p + 1);
-      }
+    {
+      return (minor_p == static_cast<octave_idx_type>(Lsparse->ncol) ?
+              0 : minor_p + 1);
+    }
 
     ColumnVector perm (void) const { return perms + 1; }
 
@@ -112,16 +112,16 @@
 
     sparse_base_chol_rep (const chol_type& a, bool natural, bool force)
       : count (1), is_pd (false), minor_p (0), perms (), cond (0)
-      {
-        init (a, natural, force);
-      }
+    {
+      init (a, natural, force);
+    }
 
     sparse_base_chol_rep (const chol_type& a, octave_idx_type& info,
                           bool natural, bool force)
       : count (1), is_pd (false), minor_p (0), perms (), cond (0)
-      {
-        info = init (a, natural, force);
-      }
+    {
+      info = init (a, natural, force);
+    }
 
     ~sparse_base_chol_rep (void) { }
 
@@ -156,49 +156,53 @@
   };
 #endif
 
- private:
+private:
   sparse_base_chol_rep *rep;
 
 public:
 
   sparse_base_chol (void)
     : rep (new typename
-           sparse_base_chol<chol_type, chol_elt, p_type>::sparse_base_chol_rep ())
-    { }
+           sparse_base_chol<chol_type, chol_elt, p_type>
+           ::sparse_base_chol_rep ())
+  { }
 
   sparse_base_chol (const chol_type& a, bool natural, bool force)
     : rep (new typename
-           sparse_base_chol<chol_type, chol_elt, p_type>::sparse_base_chol_rep (a, natural, force))
-    { }
+           sparse_base_chol<chol_type, chol_elt, p_type>
+           ::sparse_base_chol_rep (a, natural, force))
+  { }
 
   sparse_base_chol (const chol_type& a, octave_idx_type& info,
                     bool natural, bool force)
-    : rep (new typename sparse_base_chol<chol_type, chol_elt, p_type>::sparse_base_chol_rep (a, info, natural, force))
-    { }
+    : rep (new typename
+           sparse_base_chol<chol_type, chol_elt, p_type>
+           ::sparse_base_chol_rep (a, info, natural, force))
+  { }
 
   sparse_base_chol (const sparse_base_chol<chol_type, chol_elt, p_type>& a)
     : rep (a.rep)
-    { rep->count++; }
+  { rep->count++; }
 
   virtual ~sparse_base_chol (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   sparse_base_chol& operator = (const sparse_base_chol& a)
-    {
-      if (this != &a)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (this != &a)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = a.rep;
-          rep->count++;
-        }
+        rep = a.rep;
+        rep->count++;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   chol_type L (void) const;
 
@@ -211,7 +215,7 @@
   p_type Q (void) const { return rep->Q (); }
 
   bool is_positive_definite (void) const
-    { return rep->is_positive_definite (); }
+  { return rep->is_positive_definite (); }
 
   double rcond (void) const { return rep->rcond (); }
 
--- a/liboctave/numeric/sparse-base-lu.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/sparse-base-lu.h	Tue Nov 05 12:27:42 2013 -0500
@@ -39,21 +39,21 @@
 
   sparse_base_lu (const sparse_base_lu& a)
     : Lfact (a.Lfact), Ufact (a.Ufact), Rfact (), cond (a.cond),
-    P (a.P), Q (a.Q)
-    { }
+      P (a.P), Q (a.Q)
+  { }
 
   sparse_base_lu& operator = (const sparse_base_lu& a)
-    {
-      if (this != &a)
-        {
-          Lfact = a.Lfact;
-          Ufact = a.Ufact;
-          cond = a.cond;
-          P = a.P;
-          Q = a.Q;
-        }
-      return *this;
-    }
+  {
+    if (this != &a)
+      {
+        Lfact = a.Lfact;
+        Ufact = a.Ufact;
+        cond = a.cond;
+        P = a.P;
+        Q = a.Q;
+      }
+    return *this;
+  }
 
   virtual ~sparse_base_lu (void) { }
 
--- a/liboctave/numeric/sparse-dmsolve.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/numeric/sparse-dmsolve.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -38,10 +38,10 @@
 template <class T>
 static MSparse<T>
 dmsolve_extract (const MSparse<T> &A, const octave_idx_type *Pinv,
-                const octave_idx_type *Q, octave_idx_type rst,
-                octave_idx_type rend, octave_idx_type cst,
-                octave_idx_type cend, octave_idx_type maxnz = -1,
-                bool lazy = false)
+                 const octave_idx_type *Q, octave_idx_type rst,
+                 octave_idx_type rend, octave_idx_type cst,
+                 octave_idx_type cend, octave_idx_type maxnz = -1,
+                 bool lazy = false)
 {
   octave_idx_type nr = rend - rst, nc = cend - cst;
   maxnz = (maxnz < 0 ? A.nnz () : maxnz);
@@ -111,17 +111,17 @@
 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
 static MSparse<double>
 dmsolve_extract (const MSparse<double> &A, const octave_idx_type *Pinv,
-                const octave_idx_type *Q, octave_idx_type rst,
-                octave_idx_type rend, octave_idx_type cst,
-                octave_idx_type cend, octave_idx_type maxnz,
-                bool lazy);
+                 const octave_idx_type *Q, octave_idx_type rst,
+                 octave_idx_type rend, octave_idx_type cst,
+                 octave_idx_type cend, octave_idx_type maxnz,
+                 bool lazy);
 
 static MSparse<Complex>
 dmsolve_extract (const MSparse<Complex> &A, const octave_idx_type *Pinv,
-                const octave_idx_type *Q, octave_idx_type rst,
-                octave_idx_type rend, octave_idx_type cst,
-                octave_idx_type cend, octave_idx_type maxnz,
-                bool lazy);
+                 const octave_idx_type *Q, octave_idx_type rst,
+                 octave_idx_type rend, octave_idx_type cst,
+                 octave_idx_type cend, octave_idx_type maxnz,
+                 bool lazy);
 #endif
 
 template <class T>
@@ -165,7 +165,7 @@
 template <class T>
 static void
 dmsolve_insert (MArray<T> &a, const MArray<T> &b, const octave_idx_type *Q,
-               octave_idx_type r, octave_idx_type c)
+                octave_idx_type r, octave_idx_type c)
 {
   T *ax = a.fortran_vec ();
   const T *bx = b.fortran_vec ();
@@ -187,17 +187,17 @@
 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
 static void
 dmsolve_insert (MArray<double> &a, const MArray<double> &b,
-               const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
+                const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
 
 static void
 dmsolve_insert (MArray<Complex> &a, const MArray<Complex> &b,
-               const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
+                const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
 #endif
 
 template <class T>
 static void
 dmsolve_insert (MSparse<T> &a, const MSparse<T> &b, const octave_idx_type *Q,
-               octave_idx_type r, octave_idx_type c)
+                octave_idx_type r, octave_idx_type c)
 {
   octave_idx_type b_rows = b.rows ();
   octave_idx_type b_cols = b.cols ();
@@ -274,11 +274,11 @@
 #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL)
 static void
 dmsolve_insert (MSparse<double> &a, const SparseMatrix &b,
-               const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
+                const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
 
 static void
 dmsolve_insert (MSparse<Complex> &a, const MSparse<Complex> &b,
-               const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
+                const octave_idx_type *Q, octave_idx_type r, octave_idx_type c);
 #endif
 
 template <class T, class RT>
--- a/liboctave/operators/Sparse-diag-op-defs.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/operators/Sparse-diag-op-defs.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_sparse_diag_op_defs_h)
-#define octave_sparse_diag_op_defs_h 1
+#if !defined (octave_Sparse_diag_op_defs_h)
+#define octave_Sparse_diag_op_defs_h 1
 
 // Matrix multiplication
 
@@ -40,30 +40,30 @@
       return RT ();
     }
   else
-   {
-     RT r (nr, a_nc, a.nnz ());
+    {
+      RT r (nr, a_nc, a.nnz ());
 
-     octave_idx_type l = 0;
+      octave_idx_type l = 0;
 
-     for (octave_idx_type j = 0; j < a_nc; j++)
-       {
-         r.xcidx (j) = l;
-         const octave_idx_type colend = a.cidx (j+1);
-         for (octave_idx_type k = a.cidx (j); k < colend; k++)
-           {
-             const octave_idx_type i = a.ridx (k);
-             if (i >= nr) break;
-             r.xdata (l) = d.dgelem (i) * a.data (k);
-             r.xridx (l) = i;
-             l++;
-           }
-       }
+      for (octave_idx_type j = 0; j < a_nc; j++)
+        {
+          r.xcidx (j) = l;
+          const octave_idx_type colend = a.cidx (j+1);
+          for (octave_idx_type k = a.cidx (j); k < colend; k++)
+            {
+              const octave_idx_type i = a.ridx (k);
+              if (i >= nr) break;
+              r.xdata (l) = d.dgelem (i) * a.data (k);
+              r.xridx (l) = i;
+              l++;
+            }
+        }
 
-     r.xcidx (a_nc) = l;
+      r.xcidx (a_nc) = l;
 
-     r.maybe_compress (true);
-     return r;
-   }
+      r.maybe_compress (true);
+      return r;
+    }
 }
 
 template <typename RT, typename SM, typename DM>
@@ -81,28 +81,28 @@
       return RT ();
     }
   else
-   {
+    {
 
-     const octave_idx_type mnc = nc < a_nc ? nc: a_nc;
-     RT r (a_nr, nc, a.cidx (mnc));
+      const octave_idx_type mnc = nc < a_nc ? nc: a_nc;
+      RT r (a_nr, nc, a.cidx (mnc));
 
-     for (octave_idx_type j = 0; j < mnc; ++j)
-       {
-         const typename DM::element_type s = d.dgelem (j);
-         const octave_idx_type colend = a.cidx (j+1);
-         r.xcidx (j) = a.cidx (j);
-         for (octave_idx_type k = a.cidx (j); k < colend; ++k)
-           {
-             r.xdata (k) = s * a.data (k);
-             r.xridx (k) = a.ridx (k);
-           }
-       }
-     for (octave_idx_type j = mnc; j <= nc; ++j)
-       r.xcidx (j) = a.cidx (mnc);
+      for (octave_idx_type j = 0; j < mnc; ++j)
+        {
+          const typename DM::element_type s = d.dgelem (j);
+          const octave_idx_type colend = a.cidx (j+1);
+          r.xcidx (j) = a.cidx (j);
+          for (octave_idx_type k = a.cidx (j); k < colend; ++k)
+            {
+              r.xdata (k) = s * a.data (k);
+              r.xridx (k) = a.ridx (k);
+            }
+        }
+      for (octave_idx_type j = mnc; j <= nc; ++j)
+        r.xcidx (j) = a.cidx (mnc);
 
-     r.maybe_compress (true);
-     return r;
-   }
+      r.maybe_compress (true);
+      return r;
+    }
 }
 
 // FIXME: functors such as this should be gathered somewhere
@@ -233,4 +233,4 @@
                                    std::negate<typename DM::element_type> ());
 }
 
-#endif // octave_sparse_diag_op_defs_h
+#endif // octave_Sparse_diag_op_defs_h
--- a/liboctave/operators/Sparse-op-defs.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/operators/Sparse-op-defs.h	Tue Nov 05 12:27:42 2013 -0500
@@ -22,8 +22,8 @@
 
 */
 
-#if !defined (octave_sparse_op_defs_h)
-#define octave_sparse_op_defs_h 1
+#if !defined (octave_Sparse_op_defs_h)
+#define octave_Sparse_op_defs_h 1
 
 #include "Array-util.h"
 #include "mx-ops.h"
@@ -667,7 +667,7 @@
     else \
       { \
  \
-        /* FIXME Kludge... Always double/Complex, so Complex () */ \
+        /* FIXME: Kludge... Always double/Complex, so Complex () */ \
         r = R (m1_nr, m1_nc, (Complex () OP Complex ())); \
         \
         for (octave_idx_type i = 0 ; i < m1_nc ; i++) \
@@ -717,8 +717,7 @@
 
 // Note that SM ./ SM needs to take into account the NaN and Inf values
 // implied by the division by zero.
-// FIXME Are the NaNs double(NaN) or Complex(NaN,Nan) in the complex
-// case?
+// FIXME: Are the NaNs double(NaN) or Complex(NaN,Nan) in the complex case?
 #define SPARSE_SMSM_BIN_OPS(R1, R2, M1, M2)  \
   SPARSE_SMSM_BIN_OP_1 (R1, operator +,  +, M1, M2) \
   SPARSE_SMSM_BIN_OP_1 (R1, operator -,  -, M1, M2) \
@@ -737,9 +736,8 @@
   SPARSE_CMP_OP_DECL (mx_el_eq, M1, M2, API); \
   SPARSE_CMP_OP_DECL (mx_el_ne, M1, M2, API);
 
-// FIXME -- this macro duplicatest the bodies of the template
-// functions defined in the SPARSE_SSM_CMP_OP and SPARSE_SMS_CMP_OP
-// macros.
+// FIXME: this macro duplicates the bodies of the template functions
+// defined in the SPARSE_SSM_CMP_OP and SPARSE_SMS_CMP_OP macros.
 
 #define SPARSE_SMSM_CMP_OP(F, OP, M1, Z1, C1, M2, Z2, C2)       \
   SparseBoolMatrix \
@@ -921,9 +919,8 @@
   SPARSE_BOOL_OP_DECL (mx_el_and, M1, M2, API); \
   SPARSE_BOOL_OP_DECL (mx_el_or,  M1, M2, API);
 
-// FIXME -- this macro duplicatest the bodies of the template
-// functions defined in the SPARSE_SSM_BOOL_OP and SPARSE_SMS_BOOL_OP
-// macros.
+// FIXME: this macro duplicates the bodies of the template functions
+// defined in the SPARSE_SSM_BOOL_OP and SPARSE_SMS_BOOL_OP macros.
 
 #define SPARSE_SMSM_BOOL_OP(F, OP, M1, M2, LHS_ZERO, RHS_ZERO) \
   SparseBoolMatrix \
@@ -1150,7 +1147,7 @@
     return r; \
   }
 
-// FIXME Pass a specific ZERO value
+// FIXME: Pass a specific ZERO value
 #define SPARSE_MSM_BIN_OPS(R1, R2, M1, M2) \
   SPARSE_MSM_BIN_OP_1 (R1, operator +,  +, M1, M2) \
   SPARSE_MSM_BIN_OP_1 (R1, operator -,  -, M1, M2) \
@@ -1810,8 +1807,7 @@
 
 
 // Don't break from this loop if the test succeeds because
-// we are looping over the rows and not the columns in the inner
-// loop.
+// we are looping over the rows and not the columns in the inner loop.
 #define SPARSE_ANY_ALL_OP_ROW_CODE(TEST_OP, TEST_TRUE_VAL) \
   if (data (i) TEST_OP 0.0) \
     tmp[ridx (i)] = TEST_TRUE_VAL; \
--- a/liboctave/operators/Sparse-perm-op-defs.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/operators/Sparse-perm-op-defs.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_sparse_perm_op_defs_h)
-#define octave_sparse_perm_op_defs_h 1
+#if !defined (octave_Sparse_perm_op_defs_h)
+#define octave_Sparse_perm_op_defs_h 1
 
 // Matrix multiplication
 
@@ -169,4 +169,4 @@
     return octinternal_do_mul_sm_colpm (a, p.pvec ().data ());
 }
 
-#endif // octave_sparse_perm_op_defs_h
+#endif // octave_Sparse_perm_op_defs_h
--- a/liboctave/operators/mx-inlines.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/operators/mx-inlines.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -1053,21 +1053,21 @@
         }
       break;
     default:
-        {
-          OCTAVE_LOCAL_BUFFER (T, buf, n-1);
+      {
+        OCTAVE_LOCAL_BUFFER (T, buf, n-1);
 
-          for (octave_idx_type i = 0; i < n-1; i++)
-            buf[i] = v[i+1] - v[i];
+        for (octave_idx_type i = 0; i < n-1; i++)
+          buf[i] = v[i+1] - v[i];
 
-          for (octave_idx_type o = 2; o <= order; o++)
-            {
-              for (octave_idx_type i = 0; i < n-o; i++)
-                buf[i] = buf[i+1] - buf[i];
-            }
+        for (octave_idx_type o = 2; o <= order; o++)
+          {
+            for (octave_idx_type i = 0; i < n-o; i++)
+              buf[i] = buf[i+1] - buf[i];
+          }
 
-          for (octave_idx_type i = 0; i < n-order; i++)
-            r[i] = buf[i];
-        }
+        for (octave_idx_type i = 0; i < n-order; i++)
+          r[i] = buf[i];
+      }
     }
 }
 
@@ -1090,24 +1090,24 @@
         }
       break;
     default:
-        {
-          OCTAVE_LOCAL_BUFFER (T, buf, n-1);
+      {
+        OCTAVE_LOCAL_BUFFER (T, buf, n-1);
 
-          for (octave_idx_type j = 0; j < m; j++)
-            {
-              for (octave_idx_type i = 0; i < n-1; i++)
-                buf[i] = v[i*m+j+m] - v[i*m+j];
+        for (octave_idx_type j = 0; j < m; j++)
+          {
+            for (octave_idx_type i = 0; i < n-1; i++)
+              buf[i] = v[i*m+j+m] - v[i*m+j];
 
-              for (octave_idx_type o = 2; o <= order; o++)
-                {
-                  for (octave_idx_type i = 0; i < n-o; i++)
-                    buf[i] = buf[i+1] - buf[i];
-                }
+            for (octave_idx_type o = 2; o <= order; o++)
+              {
+                for (octave_idx_type i = 0; i < n-o; i++)
+                  buf[i] = buf[i+1] - buf[i];
+              }
 
-              for (octave_idx_type i = 0; i < n-order; i++)
-                r[i*m+j] = buf[i];
-            }
-        }
+            for (octave_idx_type i = 0; i < n-order; i++)
+              r[i*m+j] = buf[i];
+          }
+      }
     }
 }
 
--- a/liboctave/system/dir-ops.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/dir-ops.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,26 +35,26 @@
 
   dir_entry (const std::string& n = std::string ())
     : name (n), dir (0), fail (false), errmsg ()
-    {
-      if (! name.empty ())
-        open ();
-    }
+  {
+    if (! name.empty ())
+      open ();
+  }
 
   dir_entry (const dir_entry& d)
     : name (d.name), dir (d.dir), fail (d.fail), errmsg (d.errmsg) { }
 
   dir_entry& operator = (const dir_entry& d)
-    {
-      if (this != &d)
-        {
-          name = d.name;
-          dir = d.dir;
-          fail = d.fail;
-          errmsg = d.errmsg;
-        }
+  {
+    if (this != &d)
+      {
+        name = d.name;
+        dir = d.dir;
+        fail = d.fail;
+        errmsg = d.errmsg;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   ~dir_entry (void) { close (); }
 
--- a/liboctave/system/file-ops.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/file-ops.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -356,10 +356,10 @@
 file_ops::concat (const std::string& dir, const std::string& file)
 {
   return dir.empty ()
-    ? file
-    : (is_dir_sep (dir[dir.length ()-1])
-       ? dir + file
-       : dir + dir_sep_char () + file);
+         ? file
+         : (is_dir_sep (dir[dir.length ()-1])
+            ? dir + file
+            : dir + dir_sep_char () + file);
 }
 
 
@@ -420,7 +420,7 @@
 
 int
 octave_link (const std::string& old_name,
-                const std::string& new_name, std::string& msg)
+             const std::string& new_name, std::string& msg)
 {
   msg = std::string ();
 
@@ -443,7 +443,7 @@
 
 int
 octave_symlink (const std::string& old_name,
-                   const std::string& new_name, std::string& msg)
+                const std::string& new_name, std::string& msg)
 {
   msg = std::string ();
 
@@ -466,7 +466,7 @@
 
 int
 octave_readlink (const std::string& path, std::string& result,
-                    std::string& msg)
+                 std::string& msg)
 {
   int status = -1;
 
@@ -497,7 +497,7 @@
 
 int
 octave_rename (const std::string& from, const std::string& to,
-                  std::string& msg)
+               std::string& msg)
 {
   int status = -1;
 
@@ -786,7 +786,7 @@
 
 #else
 
-  // FIXME -- provide replacement here...
+  // FIXME: provide replacement here...
   retval = name;
 
 #endif
--- a/liboctave/system/file-stat.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/file-stat.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -36,7 +36,7 @@
 #include "file-stat.h"
 #include "statdefs.h"
 
-// FIXME -- the is_* and mode_as_string functions are only valid
+// FIXME: the is_* and mode_as_string functions are only valid
 // for initialized objects.  If called for an object that is not
 // initialized, they should throw an exception.
 
@@ -198,7 +198,7 @@
       struct stat buf;
 
       int status = follow_links
-        ? stat (cname, &buf) : gnulib::lstat (cname, &buf);
+                   ? stat (cname, &buf) : gnulib::lstat (cname, &buf);
 
       if (status < 0)
         {
--- a/liboctave/system/file-stat.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/file-stat.h	Tue Nov 05 12:27:42 2013 -0500
@@ -75,8 +75,8 @@
   }
 
   // The minimum difference in file time stamp values.
-  // FIXME -- this value should come from the filesystem itself.  How
-  // can we get that info?
+  // FIXME: This value should come from the filesystem itself.
+  //        How can we get that info?
   octave_time time_resolution (void) const
   {
     static octave_time resolution (1.0);
--- a/liboctave/system/lo-sysdep.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/lo-sysdep.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -83,14 +83,16 @@
 #if defined (__WIN32__) && ! defined (__CYGWIN__)
 
 pid_t
-octave_popen2 (const std::string& cmd, const string_vector& args, bool sync_mode,
-    int *fildes, std::string& msg)
+octave_popen2 (const std::string& cmd, const string_vector& args,
+               bool sync_mode,
+               int *fildes, std::string& msg)
 {
   pid_t pid;
   PROCESS_INFORMATION pi;
   STARTUPINFO si;
   std::string command = "\"" + cmd + "\"";
-  HANDLE hProcess = GetCurrentProcess (), childRead, childWrite, parentRead, parentWrite;
+  HANDLE hProcess = GetCurrentProcess ();
+  HANDLE childRead, childWrite, parentRead, parentWrite;
   DWORD pipeMode;
 
   ZeroMemory (&pi, sizeof (pi));
@@ -98,13 +100,15 @@
   si.cb = sizeof (si);
 
   if (! CreatePipe (&childRead, &parentWrite, 0, 0) ||
-      ! DuplicateHandle (hProcess, childRead, hProcess, &childRead, 0, TRUE, DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
+      ! DuplicateHandle (hProcess, childRead, hProcess, &childRead, 0, TRUE,
+                         DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
     {
       msg = "popen2: pipe creation failed";
       return -1;
     }
   if (! CreatePipe (&parentRead, &childWrite, 0, 0) ||
-      ! DuplicateHandle (hProcess, childWrite, hProcess, &childWrite, 0, TRUE, DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
+      ! DuplicateHandle (hProcess, childWrite, hProcess, &childWrite, 0, TRUE,
+                         DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
     {
       msg = "popen2: pipe creation failed";
       return -1;
@@ -114,8 +118,10 @@
       pipeMode = PIPE_NOWAIT;
       SetNamedPipeHandleState (parentRead, &pipeMode, 0, 0);
     }
-  fildes[1] = _open_osfhandle (reinterpret_cast<intptr_t> (parentRead), _O_RDONLY | _O_BINARY);
-  fildes[0] = _open_osfhandle (reinterpret_cast<intptr_t> (parentWrite), _O_WRONLY | _O_BINARY);
+  fildes[1] = _open_osfhandle (reinterpret_cast<intptr_t> (parentRead),
+                               _O_RDONLY | _O_BINARY);
+  fildes[0] = _open_osfhandle (reinterpret_cast<intptr_t> (parentWrite),
+                               _O_WRONLY | _O_BINARY);
   si.dwFlags |= STARTF_USESTDHANDLES;
   si.hStdInput = childRead;
   si.hStdOutput = childWrite;
--- a/liboctave/system/lo-sysdep.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/lo-sysdep.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_sysdep_h)
-#define octave_liboctave_sysdep_h 1
+#if !defined (octave_lo_sysdep_h)
+#define octave_lo_sysdep_h 1
 
 #include <string>
 
@@ -34,7 +34,7 @@
 
 #if defined (__WIN32__) && ! defined (__CYGWIN__)
 extern pid_t octave_popen2 (const std::string&, const string_vector&,
-    bool, int *, std::string&);
+                            bool, int *, std::string&);
 #endif
 
 #endif
--- a/liboctave/system/mach-info.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/mach-info.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -164,21 +164,21 @@
 oct_mach_info::native_float_format (void)
 {
   return (instance_ok ())
-    ? instance->native_float_fmt : oct_mach_info::flt_fmt_unknown;
+         ? instance->native_float_fmt : oct_mach_info::flt_fmt_unknown;
 }
 
 bool
 oct_mach_info::words_big_endian (void)
 {
   return (instance_ok ())
-    ? instance->big_chief : false;
+         ? instance->big_chief : false;
 }
 
 bool
 oct_mach_info::words_little_endian (void)
 {
   return (instance_ok ())
-    ? (! instance->big_chief) : false;
+         ? (! instance->big_chief) : false;
 }
 
 oct_mach_info::float_format
--- a/liboctave/system/mach-info.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/mach-info.h	Tue Nov 05 12:27:42 2013 -0500
@@ -36,11 +36,11 @@
 public:
 
   enum float_format
-    {
-      flt_fmt_unknown,
-      flt_fmt_ieee_little_endian,
-      flt_fmt_ieee_big_endian,
-    };
+  {
+    flt_fmt_unknown,
+    flt_fmt_ieee_little_endian,
+    flt_fmt_ieee_big_endian,
+  };
 
   static bool instance_ok (void);
 
--- a/liboctave/system/oct-env.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-env.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -104,63 +104,63 @@
 octave_env::polite_directory_format (const std::string& name)
 {
   return (instance_ok ())
-    ? instance->do_polite_directory_format (name) : std::string ();
+         ? instance->do_polite_directory_format (name) : std::string ();
 }
 
 bool
 octave_env::absolute_pathname (const std::string& s)
 {
   return (instance_ok ())
-    ? instance->do_absolute_pathname (s) : false;
+         ? instance->do_absolute_pathname (s) : false;
 }
 
 bool
 octave_env::rooted_relative_pathname (const std::string& s)
 {
   return (instance_ok ())
-    ? instance->do_rooted_relative_pathname (s) : false;
+         ? instance->do_rooted_relative_pathname (s) : false;
 }
 
 std::string
 octave_env::base_pathname (const std::string& s)
 {
   return (instance_ok ())
-    ? instance->do_base_pathname (s) : std::string ();
+         ? instance->do_base_pathname (s) : std::string ();
 }
 
 std::string
 octave_env::make_absolute (const std::string& s, const std::string& dot_path)
 {
   return (instance_ok ())
-    ? instance->do_make_absolute (s, dot_path) : std::string ();
+         ? instance->do_make_absolute (s, dot_path) : std::string ();
 }
 
 std::string
 octave_env::get_current_directory ()
 {
   return (instance_ok ())
-    ? instance->do_getcwd () : std::string ();
+         ? instance->do_getcwd () : std::string ();
 }
 
 std::string
 octave_env::get_home_directory ()
 {
   return (instance_ok ())
-    ? instance->do_get_home_directory () : std::string ();
+         ? instance->do_get_home_directory () : std::string ();
 }
 
 std::string
 octave_env::get_program_name (void)
 {
   return (instance_ok ())
-    ? instance->prog_name : std::string ();
+         ? instance->prog_name : std::string ();
 }
 
 std::string
 octave_env::get_program_invocation_name (void)
 {
   return (instance_ok ())
-    ? instance->prog_invocation_name : std::string ();
+         ? instance->prog_invocation_name : std::string ();
 }
 
 void
@@ -174,17 +174,17 @@
 octave_env::get_user_name (void)
 {
   return (instance_ok ())
-    ? instance->do_get_user_name () : std::string ();
+         ? instance->do_get_user_name () : std::string ();
 }
 
 std::string
 octave_env::get_host_name (void)
 {
   return (instance_ok ())
-    ? instance->do_get_host_name () : std::string ();
+         ? instance->do_get_host_name () : std::string ();
 }
 
-// FIXME -- this leaves no way to distinguish between a
+// FIXME: this leaves no way to distinguish between a
 // variable that is not set and one that is set to the empty string.
 // Is this a problem?
 
@@ -192,7 +192,7 @@
 octave_env::getenv (const std::string& name)
 {
   return (instance_ok ())
-    ? instance->do_getenv (name) : std::string ();
+         ? instance->do_getenv (name) : std::string ();
 }
 
 void
@@ -213,7 +213,7 @@
 octave_env::chdir (const std::string& newdir)
 {
   return (instance_ok ())
-    ? instance->do_chdir (newdir) : false;
+         ? instance->do_chdir (newdir) : false;
 }
 
 void
@@ -230,7 +230,7 @@
 
   // Also keep a shortened version of the program name.
   prog_name = (pos == std::string::npos)
-    ? prog_invocation_name : prog_invocation_name.substr (pos+1);
+              ? prog_invocation_name : prog_invocation_name.substr (pos+1);
 }
 
 // Return a pretty pathname.  If the first part of the pathname is the
@@ -339,7 +339,7 @@
   if (! file_ops::is_dir_sep (current_dir[pos]))
     current_dir.append (file_ops::dir_sep_str ());
 
-  // FIXME -- this is probably not correct for all systems.
+  // FIXME: this is probably not correct for all systems.
 
   size_t i = 0;
   size_t slen = s.length ();
--- a/liboctave/system/oct-env.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-env.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_env_h)
-#define octave_env_h 1
+#if !defined (octave_oct_env_h)
+#define octave_oct_env_h 1
 
 #include <string>
 
--- a/liboctave/system/oct-group.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-group.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -188,9 +188,8 @@
 
       gr_gid = gr->gr_gid;
 
-      // FIXME -- maybe there should be a string_vector
-      // constructor that takes a NUL terminated list of C
-      // strings.
+      // FIXME: Maybe there should be a string_vector constructor
+      //        that takes a NUL terminated list of C strings?
 
       const char * const *tmp = gr->gr_mem;
 
--- a/liboctave/system/oct-group.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-group.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_group_h)
-#define octave_group_h 1
+#if !defined (octave_oct_group_h)
+#define octave_oct_group_h 1
 
 #include <string>
 
--- a/liboctave/system/oct-openmp.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-openmp.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_openmp_h)
-#define octave_openmp_h 1
+#if !defined (octave_oct_openmp_h)
+#define octave_oct_openmp_h 1
 
 /* A macro to make using OpenMP easier, and easier to disable */
 #ifdef HAVE_OPENMP
--- a/liboctave/system/oct-passwd.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-passwd.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_passwd_h)
-#define octave_passwd_h 1
+#if !defined (octave_oct_passwd_h)
+#define octave_oct_passwd_h 1
 
 #include <string>
 
--- a/liboctave/system/oct-syscalls.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-syscalls.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -299,7 +299,7 @@
 
 pid_t
 octave_syscalls::popen2 (const std::string& cmd, const string_vector& args,
-    bool sync_mode, int *fildes)
+                         bool sync_mode, int *fildes)
 {
   std::string msg;
   bool interactive = false;
@@ -308,7 +308,7 @@
 
 pid_t
 octave_syscalls::popen2 (const std::string& cmd, const string_vector& args,
-    bool sync_mode, int *fildes, std::string& msg)
+                         bool sync_mode, int *fildes, std::string& msg)
 {
   bool interactive = false;
   return popen2 (cmd, args, sync_mode, fildes, msg, interactive);
@@ -316,7 +316,8 @@
 
 pid_t
 octave_syscalls::popen2 (const std::string& cmd, const string_vector& args,
-    bool sync_mode, int *fildes, std::string& msg, bool &interactive)
+                         bool sync_mode, int *fildes, std::string& msg,
+                         bool &interactive)
 {
 #if defined (__WIN32__) && ! defined (__CYGWIN__)
   return ::octave_popen2 (cmd, args, sync_mode, fildes, msg);
@@ -367,7 +368,8 @@
               gnulib::close (child_stdout[1]);
 
 #if defined (F_SETFL) && defined (O_NONBLOCK)
-              if (! sync_mode && octave_fcntl (child_stdout[0], F_SETFL, O_NONBLOCK, msg) < 0)
+              if (! sync_mode && octave_fcntl (child_stdout[0], F_SETFL,
+                                               O_NONBLOCK, msg) < 0)
                 msg = "popen2: error setting file mode -- " + msg;
               else
 #endif
--- a/liboctave/system/oct-syscalls.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-syscalls.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_syscalls_h)
-#define octave_syscalls_h 1
+#if !defined (octave_oct_syscalls_h)
+#define octave_oct_syscalls_h 1
 
 #include <string>
 
@@ -63,8 +63,10 @@
   static int kill (pid_t, int, std::string&);
 
   static pid_t popen2 (const std::string&, const string_vector&, bool, int *);
-  static pid_t popen2 (const std::string&, const string_vector&, bool, int *, std::string&);
-  static pid_t popen2 (const std::string&, const string_vector&, bool, int *, std::string&, bool &interactive);
+  static pid_t popen2 (const std::string&, const string_vector&, bool, int *,
+                       std::string&);
+  static pid_t popen2 (const std::string&, const string_vector&, bool, int *,
+                       std::string&, bool &interactive);
 };
 
 #endif
--- a/liboctave/system/oct-time.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-time.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_time_h)
-#define octave_time_h 1
+#if !defined (octave_oct_time_h)
+#define octave_oct_time_h 1
 
 #include <ctime>
 #include <string>
@@ -236,7 +236,7 @@
   std::string strftime (const std::string& fmt) const;
 
   std::string asctime (void) const
-    { return strftime ("%a %b %d %H:%M:%S %Y\n"); }
+  { return strftime ("%a %b %d %H:%M:%S %Y\n"); }
 
 protected:
 
--- a/liboctave/system/oct-uname.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/oct-uname.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,7 +20,7 @@
 
 */
 
-#if !defined (octave_uame_h)
+#if !defined (octave_oct_uname_h)
 #define octave_uname_h 1
 
 #include <string>
--- a/liboctave/system/tempname.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/system/tempname.c	Tue Nov 05 12:27:42 2013 -0500
@@ -179,7 +179,7 @@
                letters[(*idx / ((sizeof (letters) - 1) *
                                 (sizeof (letters) - 1)))
                        % (sizeof (letters) - 1)]
-               );
+              );
 
       if (! buf || strlen (buf) != (int) len)
         return NULL;
--- a/liboctave/util/action-container.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/action-container.h	Tue Nov 05 12:27:42 2013 -0500
@@ -28,7 +28,7 @@
 // execution, either explicitly or when the container goes out of
 // scope.
 
-// FIXME -- is there a better name for this class?
+// FIXME: is there a better name for this class?
 
 class
 action_container
--- a/liboctave/util/base-list.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/base-list.h	Tue Nov 05 12:27:42 2013 -0500
@@ -82,10 +82,12 @@
   const_iterator end (void) const { return const_iterator (lst.end ()); }
 
   reverse_iterator rbegin (void) { return reverse_iterator (lst.rbegin ()); }
-  const_reverse_iterator rbegin (void) const { return const_reverse_iterator (lst.rbegin ()); }
+  const_reverse_iterator rbegin (void) const
+  { return const_reverse_iterator (lst.rbegin ()); }
 
   reverse_iterator rend (void) { return reverse_iterator (lst.rend ()); }
-  const_reverse_iterator rend (void) const { return const_reverse_iterator (lst.rend ()); }
+  const_reverse_iterator rend (void) const
+  { return const_reverse_iterator (lst.rend ()); }
 
   elt_type& front (void) { return lst.front (); }
   elt_type& back (void) { return lst.back (); }
@@ -109,13 +111,13 @@
   octave_base_list (const octave_base_list& bl) : lst (bl.lst) { }
 
   octave_base_list& operator = (const octave_base_list& bl)
-    {
-      if (this != &bl)
-        {
-          lst = bl.lst;
-        }
-      return *this;
-    }
+  {
+    if (this != &bl)
+      {
+        lst = bl.lst;
+      }
+    return *this;
+  }
 
   ~octave_base_list (void) { }
 
--- a/liboctave/util/cmd-edit.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/cmd-edit.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -224,7 +224,7 @@
     quoting_function (0), dequoting_function (0),
     char_is_quoted_function (0), user_accept_line_function (0)
 {
-  // FIXME -- need interface to rl_add_defun, rl_initialize, and
+  // FIXME: need interface to rl_add_defun, rl_initialize, and
   // a function to set rl_terminal_name
 
   std::string term = octave_env::getenv ("TERM");
@@ -1060,7 +1060,7 @@
 command_editor::get_input_stream (void)
 {
   return (instance_ok ())
-    ? instance->do_get_input_stream () : 0;
+         ? instance->do_get_input_stream () : 0;
 }
 
 void
@@ -1074,7 +1074,7 @@
 command_editor::get_output_stream (void)
 {
   return (instance_ok ())
-    ? instance->do_get_output_stream () : 0;
+         ? instance->do_get_output_stream () : 0;
 }
 
 void
@@ -1088,14 +1088,14 @@
 command_editor::terminal_rows (void)
 {
   return (instance_ok ())
-    ? instance->do_terminal_rows () : -1;
+         ? instance->do_terminal_rows () : -1;
 }
 
 int
 command_editor::terminal_cols (void)
 {
   return (instance_ok ())
-    ? instance->do_terminal_cols () : -1;
+         ? instance->do_terminal_cols () : -1;
 }
 
 void
@@ -1116,14 +1116,14 @@
 command_editor::decode_prompt_string (const std::string& s)
 {
   return (instance_ok ())
-    ? instance->do_decode_prompt_string (s) : std::string ();
+         ? instance->do_decode_prompt_string (s) : std::string ();
 }
 
 int
 command_editor::current_command_number (void)
 {
   return (instance_ok ())
-    ? instance->command_number : 0;
+         ? instance->command_number : 0;
 }
 
 void
@@ -1235,42 +1235,42 @@
 command_editor::get_completion_function (void)
 {
   return (instance_ok ())
-    ? instance->do_get_completion_function () : 0;
+         ? instance->do_get_completion_function () : 0;
 }
 
 command_editor::quoting_fcn
 command_editor::get_quoting_function (void)
 {
   return (instance_ok ())
-    ? instance->do_get_quoting_function () : 0;
+         ? instance->do_get_quoting_function () : 0;
 }
 
 command_editor::dequoting_fcn
 command_editor::get_dequoting_function (void)
 {
   return (instance_ok ())
-    ? instance->do_get_dequoting_function () : 0;
+         ? instance->do_get_dequoting_function () : 0;
 }
 
 command_editor::char_is_quoted_fcn
 command_editor::get_char_is_quoted_function (void)
 {
   return (instance_ok ())
-    ? instance->do_get_char_is_quoted_function () : 0;
+         ? instance->do_get_char_is_quoted_function () : 0;
 }
 
 command_editor::user_accept_line_fcn
 command_editor::get_user_accept_line_function (void)
 {
   return (instance_ok ())
-    ? instance->do_get_user_accept_line_function () : 0;
+         ? instance->do_get_user_accept_line_function () : 0;
 }
 
 string_vector
 command_editor::generate_filename_completions (const std::string& text)
 {
   return (instance_ok ())
-    ? instance->do_generate_filename_completions (text) : string_vector ();
+         ? instance->do_generate_filename_completions (text) : string_vector ();
 }
 
 std::string
@@ -1436,14 +1436,14 @@
 command_editor::filename_completion_desired (bool arg)
 {
   return (instance_ok ())
-    ? instance->do_filename_completion_desired (arg) : false;
+         ? instance->do_filename_completion_desired (arg) : false;
 }
 
 bool
 command_editor::filename_quoting_desired (bool arg)
 {
   return (instance_ok ())
-    ? instance->do_filename_quoting_desired (arg) : false;
+         ? instance->do_filename_quoting_desired (arg) : false;
 }
 
 bool
--- a/liboctave/util/cmd-edit.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/cmd-edit.h	Tue Nov 05 12:27:42 2013 -0500
@@ -222,11 +222,11 @@
   virtual void do_set_name (const std::string&) { }
 
   std::string do_readline (const std::string& prompt)
-    {
-      bool eof;
+  {
+    bool eof;
 
-      return do_readline (prompt, eof);
-    }
+    return do_readline (prompt, eof);
+  }
 
   virtual std::string do_readline (const std::string&, bool&) = 0;
 
@@ -284,11 +284,14 @@
 
   virtual dequoting_fcn do_get_dequoting_function (void) const { return 0; }
 
-  virtual char_is_quoted_fcn do_get_char_is_quoted_function (void) const { return 0; }
+  virtual char_is_quoted_fcn do_get_char_is_quoted_function (void) const
+  { return 0; }
 
-  virtual user_accept_line_fcn do_get_user_accept_line_function (void) const { return 0; }
+  virtual user_accept_line_fcn do_get_user_accept_line_function (void) const
+  { return 0; }
 
-  virtual string_vector do_generate_filename_completions (const std::string& text) = 0;
+  virtual string_vector
+  do_generate_filename_completions (const std::string& text) = 0;
 
   virtual std::string do_get_line_buffer (void) const = 0;
 
--- a/liboctave/util/cmd-hist.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/cmd-hist.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -156,9 +156,8 @@
 std::string
 gnu_history::do_histcontrol (void) const
 {
-  // FIXME -- instead of reconstructing this value, should we just save
-  // the string we were given when constructing the command_history
-  // object?
+  // FIXME: instead of reconstructing this value, should we just save
+  // the string we were given when constructing the command_history object?
 
   std::string retval;
 
@@ -192,7 +191,7 @@
       if (s.empty ()
           || (s.length () == 1 && (s[0] == '\r' || s[0] == '\n')))
         return false;
-     
+
       // Strip newline before adding to list
       std::string stmp = s;
       int stmp_len = stmp.length ();
@@ -289,7 +288,7 @@
 
   mark = 0;
 
-  // FIXME -- for operate_and_get_next.
+  // FIXME: for operate_and_get_next.
   command_editor::remove_startup_hook (command_history::goto_mark);
 
   return 0;
@@ -545,7 +544,7 @@
 command_history::file (void)
 {
   return (instance_ok ())
-    ? instance->do_file () : std::string ();
+         ? instance->do_file () : std::string ();
 }
 
 void
@@ -559,7 +558,7 @@
 command_history::histcontrol (void)
 {
   return (instance_ok ())
-    ? instance->do_histcontrol () : std::string ();
+         ? instance->do_histcontrol () : std::string ();
 }
 
 void
@@ -573,7 +572,7 @@
 command_history::size (void)
 {
   return (instance_ok ())
-    ? instance->do_size () : 0;
+         ? instance->do_size () : 0;
 }
 
 void
@@ -587,7 +586,7 @@
 command_history::ignoring_entries (void)
 {
   return (instance_ok ())
-    ? instance->do_ignoring_entries () : false;
+         ? instance->do_ignoring_entries () : false;
 }
 
 bool
@@ -616,35 +615,35 @@
 command_history::where (void)
 {
   return (instance_ok ())
-    ? instance->do_where () : 0;
+         ? instance->do_where () : 0;
 }
 
 int
 command_history::length (void)
 {
   return (instance_ok ())
-    ? instance->do_length () : 0;
+         ? instance->do_length () : 0;
 }
 
 int
 command_history::max_input_history (void)
 {
   return (instance_ok ())
-    ? instance->do_max_input_history () : 0;
+         ? instance->do_max_input_history () : 0;
 }
 
 int
 command_history::base (void)
 {
   return (instance_ok ())
-    ? instance->do_base () : 0;
+         ? instance->do_base () : 0;
 }
 
 int
 command_history::current_number (void)
 {
   return (instance_ok ())
-    ? instance->do_current_number () : 0;
+         ? instance->do_current_number () : 0;
 }
 
 void
@@ -658,14 +657,14 @@
 command_history::unstifle (void)
 {
   return (instance_ok ())
-    ? instance->do_unstifle () : 0;
+         ? instance->do_unstifle () : 0;
 }
 
 int
 command_history::is_stifled (void)
 {
   return (instance_ok ())
-    ? instance->do_is_stifled () : 0;
+         ? instance->do_is_stifled () : 0;
 }
 
 void
@@ -679,7 +678,7 @@
 command_history::goto_mark (void)
 {
   return (instance_ok ())
-    ? instance->do_goto_mark () : 0;
+         ? instance->do_goto_mark () : 0;
 }
 
 void
@@ -734,14 +733,14 @@
 command_history::list (int limit, bool number_lines)
 {
   return (instance_ok ())
-    ? instance->do_list (limit, number_lines) : string_vector ();
+         ? instance->do_list (limit, number_lines) : string_vector ();
 }
 
 std::string
 command_history::get_entry (int n)
 {
   return (instance_ok ())
-    ? instance->do_get_entry (n) : std::string ();
+         ? instance->do_get_entry (n) : std::string ();
 }
 
 void
--- a/liboctave/util/cmd-hist.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/cmd-hist.h	Tue Nov 05 12:27:42 2013 -0500
@@ -144,7 +144,8 @@
 
   virtual std::string do_histcontrol (void) const { return std::string (); }
 
-  virtual void do_initialize (bool, const std::string&, int, const std::string&);
+  virtual void do_initialize (bool, const std::string&, int,
+                              const std::string&);
 
   virtual bool do_is_initialized (void) const;
 
--- a/liboctave/util/data-conv.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/data-conv.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -359,10 +359,9 @@
 }
 
 void
-oct_data_conv::string_to_data_type
-  (const std::string& str, int& block_size,
-   oct_data_conv::data_type& input_type,
-   oct_data_conv::data_type& output_type)
+oct_data_conv::string_to_data_type (const std::string& str, int& block_size,
+                                    oct_data_conv::data_type& input_type,
+                                    oct_data_conv::data_type& output_type)
 {
   block_size = 1;
   input_type = dt_uchar;
@@ -440,9 +439,8 @@
 }
 
 void
-oct_data_conv::string_to_data_type
-  (const std::string& str, int& block_size,
-   oct_data_conv::data_type& output_type)
+oct_data_conv::string_to_data_type (const std::string& str, int& block_size,
+                                    oct_data_conv::data_type& output_type)
 {
   block_size = 1;
   output_type = dt_double;
@@ -632,9 +630,9 @@
 // Currently, we only handle conversions for the IEEE types.  To fix
 // that, make more of the following routines work.
 
-// FIXME -- assumes sizeof (Complex) == 8
-// FIXME -- assumes sizeof (double) == 8
-// FIXME -- assumes sizeof (float) == 4
+// FIXME: assumes sizeof (Complex) == 8
+// FIXME: assumes sizeof (double) == 8
+// FIXME: assumes sizeof (float) == 4
 
 static void
 IEEE_big_double_to_IEEE_little_double (void *d, octave_idx_type len)
--- a/liboctave/util/data-conv.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/data-conv.h	Tue Nov 05 12:27:42 2013 -0500
@@ -35,32 +35,32 @@
 public:
 
   enum data_type
-    {
-      dt_int8      =  0,
-      dt_uint8     =  1,
-      dt_int16     =  2,
-      dt_uint16    =  3,
-      dt_int32     =  4,
-      dt_uint32    =  5,
-      dt_int64     =  6,
-      dt_uint64    =  7,
-      dt_single    =  8,
-      dt_double    =  9,
-      dt_char      = 10,
-      dt_schar     = 11,
-      dt_uchar     = 12,
-      dt_logical   = 13,
-      dt_short     = 14,
-      dt_ushort    = 15,
-      dt_int       = 16,
-      dt_uint      = 17,
-      dt_long      = 18,
-      dt_ulong     = 19,
-      dt_longlong  = 20,
-      dt_ulonglong = 21,
-      dt_float     = 22,
-      dt_unknown   = 23 // Must be last, have largest value!
-    };
+  {
+    dt_int8      =  0,
+    dt_uint8     =  1,
+    dt_int16     =  2,
+    dt_uint16    =  3,
+    dt_int32     =  4,
+    dt_uint32    =  5,
+    dt_int64     =  6,
+    dt_uint64    =  7,
+    dt_single    =  8,
+    dt_double    =  9,
+    dt_char      = 10,
+    dt_schar     = 11,
+    dt_uchar     = 12,
+    dt_logical   = 13,
+    dt_short     = 14,
+    dt_ushort    = 15,
+    dt_int       = 16,
+    dt_uint      = 17,
+    dt_long      = 18,
+    dt_ulong     = 19,
+    dt_longlong  = 20,
+    dt_ulonglong = 21,
+    dt_float     = 22,
+    dt_unknown   = 23 // Must be last, have largest value!
+  };
 
   static size_t data_type_size (data_type dt);
 
@@ -81,36 +81,36 @@
 // format that were created with previous versions of Octave.
 
 enum save_type
-  {
-    LS_U_CHAR  = 0,
-    LS_U_SHORT = 1,
-    LS_U_INT   = 2,
-    LS_CHAR    = 3,
-    LS_SHORT   = 4,
-    LS_INT     = 5,
-    LS_FLOAT   = 6,
-    LS_DOUBLE  = 7,
-    LS_U_LONG  = 8,
-    LS_LONG    = 9
-  };
+{
+  LS_U_CHAR  = 0,
+  LS_U_SHORT = 1,
+  LS_U_INT   = 2,
+  LS_CHAR    = 3,
+  LS_SHORT   = 4,
+  LS_INT     = 5,
+  LS_FLOAT   = 6,
+  LS_DOUBLE  = 7,
+  LS_U_LONG  = 8,
+  LS_LONG    = 9
+};
 
 extern OCTAVE_API void
 do_double_format_conversion (void *data, octave_idx_type len,
                              oct_mach_info::float_format from_fmt,
                              oct_mach_info::float_format to_fmt
-                               = oct_mach_info::native_float_format ());
+                             = oct_mach_info::native_float_format ());
 
 extern OCTAVE_API void
 do_float_format_conversion (void *data, octave_idx_type len,
                             oct_mach_info::float_format from_fmt,
                             oct_mach_info::float_format to_fmt
-                              = oct_mach_info::native_float_format ());
+                            = oct_mach_info::native_float_format ());
 
 extern OCTAVE_API void
 do_float_format_conversion (void *data, size_t sz, octave_idx_type len,
                             oct_mach_info::float_format from_fmt,
                             oct_mach_info::float_format to_fmt
-                              = oct_mach_info::native_float_format ());
+                            = oct_mach_info::native_float_format ());
 
 extern OCTAVE_API void
 read_doubles (std::istream& is, double *data, save_type type,
--- a/liboctave/util/kpse.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/kpse.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -456,11 +456,11 @@
     : path (pi.path), b (pi.b), e (pi.e), len (pi.len) { }
 
   kpse_path_iterator operator ++ (int)
-    {
-      kpse_path_iterator retval (*this);
-      next ();
-      return retval;
-    }
+  {
+    kpse_path_iterator retval (*this);
+    next ();
+    return retval;
+  }
 
   std::string operator * (void) { return path.substr (b, e-b); }
 
@@ -474,37 +474,37 @@
   size_t len;
 
   void set_end (void)
-    {
-      e = b + 1;
-
-      if (e == len)
-        ; /* OK, we have found the last element.  */
-      else if (e > len)
-        b = e = std::string::npos;
-      else
-        {
-          /* Find the next colon not enclosed by braces (or the end of
-             the path).  */
-
-          int brace_level = 0;
-          while (e < len && ! (brace_level == 0 && kpse_is_env_sep (path[e])))
-            e++;
-        }
-    }
+  {
+    e = b + 1;
+
+    if (e == len)
+      ; /* OK, we have found the last element.  */
+    else if (e > len)
+      b = e = std::string::npos;
+    else
+      {
+        /* Find the next colon not enclosed by braces (or the end of
+           the path).  */
+
+        int brace_level = 0;
+        while (e < len && ! (brace_level == 0 && kpse_is_env_sep (path[e])))
+          e++;
+      }
+  }
 
   void next (void)
-    {
-      b = e + 1;
-
-      /* Skip any consecutive colons.  */
-      while (b < len && kpse_is_env_sep (path[b]))
-        b++;
-
-      if (b >= len)
-        b = e = std::string::npos;
-      else
-        set_end ();
-    }
+  {
+    b = e + 1;
+
+    /* Skip any consecutive colons.  */
+    while (b < len && kpse_is_env_sep (path[b]))
+      b++;
+
+    if (b >= len)
+      b = e = std::string::npos;
+    else
+      set_end ();
+  }
 
   // No assignment.
   kpse_path_iterator& operator = (const kpse_path_iterator&);
@@ -648,14 +648,14 @@
 
   int absolute = (len > 0 && IS_DIR_SEP (filename[0]))
 #ifdef DOSISH
-                     /* Novell allows non-alphanumeric drive letters. */
-    || (len > 0 && IS_DEVICE_SEP (filename[1]))
+                 /* Novell allows non-alphanumeric drive letters. */
+                 || (len > 0 && IS_DEVICE_SEP (filename[1]))
 #endif /* DOSISH */
 #ifdef WIN32
-                     /* UNC names */
-    || (len > 1 && filename[0] == '\\' && filename[1] == '\\')
+                 /* UNC names */
+                 || (len > 1 && filename[0] == '\\' && filename[1] == '\\')
 #endif
-    ;
+                 ;
 
   int explicit_relative
     = relative_ok
@@ -711,8 +711,8 @@
           /* Only record absolute filenames, for privacy.  */
           if (log_file && kpse_absolute_p (filename.c_str (), false))
             gnulib::fprintf (log_file, "%lu %s\n",
-                     static_cast<unsigned long> (time (0)),
-                     filename.c_str ());
+                             static_cast<unsigned long> (time (0)),
+                             filename.c_str ());
 
           /* And show them online, if debugging.  We've already started
              the debugging line in 'search', where this is called, so
@@ -826,8 +826,7 @@
 
       /* Try ls-R, unless we're searching for texmf.cnf.  Our caller
          (search), also tests first_search, and does the resetting.  */
-      found = first_search
-        ? string_vector () : kpse_db_search (name, elt, all);
+      found = first_search ? string_vector () : kpse_db_search (name, elt, all);
 
       /* Search the filesystem if (1) the path spec allows it, and either
          (2a) we are searching for texmf.cnf ; or
@@ -1019,8 +1018,8 @@
               /* Try ls-R, unless we're searching for texmf.cnf.  Our caller
                  (find_first_of), also tests first_search, and does the
                  resetting.  */
-              found = first_search
-                ? string_vector () : kpse_db_search (name, dir.c_str (), all);
+              found = first_search ? string_vector ()
+                                   : kpse_db_search (name, dir.c_str (), all);
 
               /* Search the filesystem if (1) the path spec allows it,
                  and either
@@ -1661,7 +1660,7 @@
                 (brace_whitespace (text[i+1]) || text[i+1] == '}'))))
             continue;
           /* If this is being compiled as part of bash, ignore the '{'
-             in a '${}' construct */
+             in a '${ }' construct */
           if ((c != '{') || i == 0 || (text[i-1] != '$'))
             break;
         }
@@ -1829,8 +1828,8 @@
       if (i == db_dir_len)
         found = true;
 
-    /* If we've reached the end of PATH_ELT, but not the end of the db
-       directory, it's no good.  */
+      /* If we've reached the end of PATH_ELT, but not the end of the db
+         directory, it's no good.  */
       else if (i == path_elt_len)
         break;
     }
@@ -1921,7 +1920,8 @@
 
 #ifdef KPSE_DEBUG
           if (KPSE_DEBUG_P (KPSE_DEBUG_SEARCH))
-            DEBUGF3 ("db:match (%s,%s) = %d\n", db_file.c_str (), path_elt.c_str (), matched);
+            DEBUGF3 ("db:match (%s,%s) = %d\n",
+                     db_file.c_str (), path_elt.c_str (), matched);
 #endif
 
           /* We got a hit in the database.  Now see if the file actually
@@ -2169,7 +2169,7 @@
       struct stat stats;
 
       ret = stat (fn.c_str (), &stats) == 0 && S_ISDIR (stats.st_mode)
-        ? stats.st_nlink : static_cast<unsigned> (-1);
+            ? stats.st_nlink : static_cast<unsigned> (-1);
 
       link_table[fn] = ret;
 
@@ -2482,7 +2482,8 @@
 
   /* If we are the first unmoved element, nothing to relink.  */
   if (unmoved != mover)
-    { /* Remember 'mover's current successor, so we can relink 'mover's
+    {
+      /* Remember 'mover's current successor, so we can relink 'mover's
          predecessor to it.  */
       str_llist_elt_type *before_mover;
       str_llist_elt_type *after_mover = STR_LLIST_NEXT (*mover);
@@ -2529,8 +2530,7 @@
 static bool
 expanding_p (const std::string& var)
 {
-  return (expansions.find (var) != expansions.end ())
-    ? expansions[var] : false;
+  return (expansions.find (var) != expansions.end ()) ? expansions[var] : false;
 }
 
 /* Append the result of value of 'var' to EXPANSION, where 'var' begins
--- a/liboctave/util/lo-array-gripes.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-array-gripes.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -137,7 +137,7 @@
 #endif
 }
 
-// FIXME -- the following is a common error message to resize,
+// FIXME: the following is a common error message to resize,
 // regardless of whether it's called from assign or elsewhere.  It
 // seems OK to me, but eventually the gripe can be specialized.
 // Anyway, propagating various error messages into procedure is, IMHO,
--- a/liboctave/util/lo-array-gripes.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-array-gripes.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_array_gripes_h)
-#define octave_liboctave_array_gripes_h 1
+#if !defined (octave_lo_array_gripes_h)
+#define octave_lo_array_gripes_h 1
 
 #include "dim-vector.h"
 
--- a/liboctave/util/lo-cieee.c	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-cieee.c	Tue Nov 05 12:27:42 2013 -0500
@@ -167,9 +167,9 @@
 int
 __lo_ieee_signbit (double x)
 {
-/* In the following definitions, only check x < 0 explicitly to avoid
-   a function call when it looks like signbit or copysign are actually
-   functions.  */
+  /* In the following definitions, only check x < 0 explicitly to avoid
+     a function call when it looks like signbit or copysign are actually
+     functions.  */
 
 #if defined (signbit)
   return signbit (x);
@@ -261,9 +261,9 @@
 int
 __lo_ieee_float_signbit (float x)
 {
-/* In the following definitions, only check x < 0 explicitly to avoid
-   a function call when it looks like signbit or copysign are actually
-   functions.  */
+  /* In the following definitions, only check x < 0 explicitly to avoid
+     a function call when it looks like signbit or copysign are actually
+     functions.  */
 
 #if defined (signbit)
   return signbit (x);
--- a/liboctave/util/lo-cutils.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-cutils.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_cutils_h)
-#define octave_liboctave_cutils_h 1
+#if !defined (octave_lo_cutils_h)
+#define octave_lo_cutils_h 1
 
 #include <sys/types.h>
 
--- a/liboctave/util/lo-ieee.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-ieee.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_ieee_h)
-#define octave_liboctave_ieee_h 1
+#if !defined (octave_lo_ieee_h)
+#define octave_lo_ieee_h 1
 
 #ifdef  __cplusplus
 extern "C" {
--- a/liboctave/util/lo-macros.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-macros.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_macros_h)
-#define octave_liboctave_macros_h 1
+#if !defined (octave_lo_macros_h)
+#define octave_lo_macros_h 1
 
 // Core macros. Iteration is supported up to count 10.
 
--- a/liboctave/util/lo-math.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-math.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_math_h)
-#define octave_liboctave_math_h 1
+#if !defined (octave_lo_math_h)
+#define octave_lo_math_h 1
 
 #if defined (__cplusplus)
 #include <cmath>
--- a/liboctave/util/lo-regexp.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-regexp.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -45,17 +45,17 @@
 #include "lo-regexp.h"
 #include "str-vec.h"
 
-// Define the maximum number of retries for a pattern that possibly
-// results in an infinite recursion.
+// Define the maximum number of retries for a pattern
+// that possibly results in an infinite recursion.
 #define PCRE_MATCHLIMIT_MAX 10
 
-// FIXME -- should this be configurable?
+// FIXME: should this be configurable?
 #define MAXLOOKBEHIND 10
 
 static bool lookbehind_warned = false;
 
-// FIXME -- don't bother collecting and composing return values the user
-// doesn't want.
+// FIXME: don't bother collecting and composing return values
+//        the user doesn't want.
 
 void
 regexp::free (void)
@@ -181,7 +181,7 @@
                       lookbehind_warned = true;
                       (*current_liboctave_warning_handler)
                         ("%s: arbitrary length lookbehind patterns are only supported up to length %d",
-                               who.c_str (), MAXLOOKBEHIND);
+                         who.c_str (), MAXLOOKBEHIND);
                     }
 
                   buf << pattern.substr (pos, new_pos - pos) << "(";
@@ -266,7 +266,7 @@
       // Index of subpattern in first two bytes MSB first of name.
       // Extract index.
       nidx[i] = (static_cast<int> (nametable[i*nameentrysize])) << 8
-        | static_cast<int> (nametable[i*nameentrysize+1]);
+                | static_cast<int> (nametable[i*nameentrysize+1]);
     }
 
   while (true)
@@ -372,13 +372,13 @@
                       if (namecount > 0)
                         {
                           // FIXME: Should probably do this with a map()
-                          // rather than a linear search.  However,
-                          // the number of captured, named expressions
-                          // is usually pretty small (< 4)
+                          //        rather than a linear search.  However,
+                          //        the number of captured, named expressions
+                          //        is usually pretty small (< 4)
                           for (int j = 0; j < namecount; j++)
                             {
                               if (nidx[j] == i)
-                                { 
+                                {
                                   named_tokens(named_idx(j)) =
                                     std::string (*(listptr+i-pos_offset));
                                   break;
@@ -402,13 +402,13 @@
           lst.push_back (new_elem);
 
           if (ovector[1] <= ovector[0])
-          {
-            // Zero length match.  Skip to next char.
-            idx = ovector[0] + 1;
-            if (idx <= buffer.length ())
-              continue;
-          }
-          else 
+            {
+              // Zero length match.  Skip to next char.
+              idx = ovector[0] + 1;
+              if (idx <= buffer.length ())
+                continue;
+            }
+          else
             idx = ovector[1];
 
           if (options.once () || idx >= buffer.length ())
@@ -444,10 +444,10 @@
 
 // Declare rep_token_t used in processing replacement string
 typedef struct
-  {
-    size_t pos;
-    int num;
-  } rep_token_t;
+{
+  size_t pos;
+  int num;
+} rep_token_t;
 
 
 std::string
--- a/liboctave/util/lo-regexp.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-regexp.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_liboctave_regexp_match_h)
-#define octave_liboctave_regexp_match_h 1
+#if !defined (octave_lo_regexp_h)
+#define octave_lo_regexp_h 1
 
 #include <list>
 #include <sstream>
--- a/liboctave/util/lo-traits.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-traits.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_traits_h)
-#define octave_liboctave_traits_h 1
+#if !defined (octave_lo_traits_h)
+#define octave_lo_traits_h 1
 
 // Ideas for these classes taken from C++ Templates, The Complete
 // Guide by David Vandevoorde and Nicolai M. Josuttis, Addison-Wesley
--- a/liboctave/util/lo-utils.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-utils.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -26,7 +26,6 @@
 #endif
 
 #include <cctype>
-#include <cerrno>
 #include <cstdlib>
 #include <cstdio>
 #include <cstring>
@@ -88,12 +87,26 @@
   return tmp;
 }
 
+// This function was adapted from xputenv from Karl Berry's kpathsearch
+// library.
+
+// FIXME -- make this do the right thing if we don't have a
+// SMART_PUTENV.
+
 void
 octave_putenv (const std::string& name, const std::string& value)
 {
-  if (gnulib::setenv (name.c_str (), value.c_str (), true) < 0)
-    (*current_liboctave_error_handler) ("putenv: %s",
-                                        gnulib::strerror (errno));
+  int new_len = name.length () + value.length () + 2;
+
+  char *new_item = static_cast<char*> (gnulib::malloc (new_len));
+
+  sprintf (new_item, "%s=%s", name.c_str (), value.c_str ());
+
+  // As far as I can see there's no way to distinguish between the
+  // various errors; putenv doesn't have errno values.
+
+  if (gnulib::putenv (new_item) < 0)
+    (*current_liboctave_error_handler) ("putenv (%s) failed", new_item);
 }
 
 std::string
@@ -248,7 +261,7 @@
 {
   T val = 0.0;
 
-  // FIXME -- resetting stream position is likely to fail unless we are
+  // FIXME: resetting stream position is likely to fail unless we are
   // reading from a file.
   std::ios::streampos pos = is.tellg ();
 
--- a/liboctave/util/lo-utils.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/lo-utils.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_liboctave_utils_h)
-#define octave_liboctave_utils_h 1
+#if !defined (octave_lo_utils_h)
+#define octave_lo_utils_h 1
 
 #include <cstdio>
 
--- a/liboctave/util/module.mk	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/module.mk	Tue Nov 05 12:27:42 2013 -0500
@@ -89,5 +89,6 @@
 util_libutil_la_SOURCES = $(UTIL_SRC)
 util_libutil_la_CPPFLAGS = \
   $(liboctave_la_CPPFLAGS) \
+  $(PCRE_CPPFLAGS) \
   $(SPARSE_XCPPFLAGS)
 
--- a/liboctave/util/oct-alloc.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-alloc.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -45,7 +45,7 @@
   return tmp;
 }
 
-// FIXME -- if we free the last item on the list, shouldn't we
+// FIXME: if we free the last item on the list, shouldn't we
 // also free the underlying character array used for storage?
 
 void
--- a/liboctave/util/oct-base64.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-base64.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -33,11 +33,11 @@
 
 bool
 octave_base64_encode (const char *inc, const size_t inlen, char **out)
-{  
+{
   bool ret = false;
 
   size_t outlen = base64_encode_alloc (inc, inlen, out);
-  
+
   if (! out)
     {
       if (outlen == 0 && inlen != 0)
--- a/liboctave/util/oct-base64.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-base64.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_base64_h)
-#define octave_base64_h 1
+#if !defined (octave_oct_base64_h)
+#define octave_oct_base64_h 1
 
 #include <string>
 
--- a/liboctave/util/oct-binmap.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-binmap.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_binmap_h)
-#define octave_binmap_h 1
+#if !defined (octave_oct_binmap_h)
+#define octave_oct_binmap_h 1
 
 #include "Array.h"
 #include "Sparse.h"
@@ -340,7 +340,8 @@
 
 template <class U, class T, class R>
 inline Array<U>
-binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (T, R), const char *name)
+binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (T, R),
+        const char *name)
 { return binmap<U, T, R, U (*) (T, R)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -355,7 +356,8 @@
 
 template <class U, class T, class R>
 inline Sparse<U>
-binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (T, R), const char *name)
+binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (T, R),
+        const char *name)
 { return binmap<U, T, R, U (*) (T, R)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -372,7 +374,8 @@
 
 template <class U, class T, class R>
 inline Array<U>
-binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (const T&, const R&), const char *name)
+binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (const T&, const R&),
+        const char *name)
 { return binmap<U, T, R, U (*) (const T&, const R&)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -387,7 +390,8 @@
 
 template <class U, class T, class R>
 inline Sparse<U>
-binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (const T&, const R&), const char *name)
+binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (const T&, const R&),
+        const char *name)
 { return binmap<U, T, R, U (*) (const T&, const R&)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -404,7 +408,8 @@
 
 template <class U, class T, class R>
 inline Array<U>
-binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (const T&, R), const char *name)
+binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (const T&, R),
+        const char *name)
 { return binmap<U, T, R, U (*) (const T&, R)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -419,7 +424,8 @@
 
 template <class U, class T, class R>
 inline Sparse<U>
-binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (const T&, R), const char *name)
+binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (const T&, R),
+        const char *name)
 { return binmap<U, T, R, U (*) (const T&, R)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -436,7 +442,8 @@
 
 template <class U, class T, class R>
 inline Array<U>
-binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (T, const R&), const char *name)
+binmap (const Array<T>& xa, const Array<R>& ya, U (*fcn) (T, const R&),
+        const char *name)
 { return binmap<U, T, R, U (*) (T, const R&)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
@@ -451,7 +458,8 @@
 
 template <class U, class T, class R>
 inline Sparse<U>
-binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (T, const R&), const char *name)
+binmap (const Sparse<T>& xa, const Sparse<R>& ya, U (*fcn) (T, const R&),
+        const char *name)
 { return binmap<U, T, R, U (*) (T, const R&)> (xa, ya, fcn, name); }
 
 template <class U, class T, class R>
--- a/liboctave/util/oct-cmplx.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-cmplx.h	Tue Nov 05 12:27:42 2013 -0500
@@ -29,12 +29,12 @@
 typedef std::complex<double> Complex;
 typedef std::complex<float> FloatComplex;
 
-// For complex-complex and complex-real comparisons, we use the following ordering:
-// compare absolute values first; if they match, compare phase angles.
+// For complex-complex and complex-real comparisons, we use the following
+// ordering: compare absolute values first; if they match, compare phase angles.
 // This is partially inconsistent with M*b, which compares complex numbers only
 // by their real parts; OTOH, it uses the same definition for max/min and sort.
-// The abs/arg comparison is definitely more useful (the other one is emulated rather
-// trivially), so let's be consistent and use that all over.
+// The abs/arg comparison is definitely more useful (the other one is emulated
+// rather trivially), so let's be consistent and use that all over.
 
 #define DEF_COMPLEXR_COMP(OP, OPS) \
 template <class T> \
--- a/liboctave/util/oct-glob.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-glob.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -81,9 +81,9 @@
 
 #if defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) \
           && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)
-              std::replace_if (xpat.begin (), xpat.end (),
-                               std::bind2nd (std::equal_to<char> (), '\\'),
-                               '/');
+          std::replace_if (xpat.begin (), xpat.end (),
+                           std::bind2nd (std::equal_to<char> (), '\\'),
+                           '/');
 #endif
 
           int err = gnulib::glob (xpat.c_str (), GLOB_NOSORT, 0, &glob_info);
@@ -94,7 +94,7 @@
 
               const char * const *matches = glob_info.gl_pathv;
 
-              // FIXME -- we shouldn't have to check to see if
+              // FIXME: we shouldn't have to check to see if
               // a single match exists, but it seems that glob() won't
               // check for us unless the pattern contains globbing
               // characters.  Hmm.
@@ -111,10 +111,10 @@
 
 #if defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) \
                       && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)
-                          std::replace_if (tmp.begin (), tmp.end (),
-                                           std::bind2nd (std::equal_to<char> (),
-                                                         '/'),
-                                           '\\');
+                      std::replace_if (tmp.begin (), tmp.end (),
+                                       std::bind2nd (std::equal_to<char> (),
+                                                     '/'),
+                                       '\\');
 #endif
 
                       retval[k++] = tmp;
--- a/liboctave/util/oct-glob.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-glob.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_glob_h)
-#define octave_glob_h 1
+#if !defined (octave_oct_glob_h)
+#define octave_oct_glob_h 1
 
 #include "str-vec.h"
 
--- a/liboctave/util/oct-inttypes.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-inttypes.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -193,7 +193,7 @@
 
   // Essentially, what we do is compute sign, multiply absolute values
   // (as above) and impose the sign.
-  // FIXME -- can we do something faster if we HAVE_FAST_INT_OPS?
+  // FIXME: can we do something faster if we HAVE_FAST_INT_OPS?
 
   uint64_t usx = octave_int_abs (x), usy = octave_int_abs (y);
   bool positive = (x < 0) == (y < 0);
@@ -349,11 +349,12 @@
 // NOTE:
 // Emulated mixed multiplications are tricky due to possible precision loss.
 // Here, after sorting out common cases for speed, we follow the strategy
-// of converting the double number into the form sign * 64-bit integer* 2**exponent,
-// multiply the 64-bit integers to get a 128-bit number, split that number into 32-bit words
-// and form 4 double-valued summands (none of which loases precision), then convert these
-// into integers and sum them. Though it is not immediately obvious, this should work
-// even w.r.t. rounding (none of the summands lose precision).
+// of converting the double number into the form sign * 64-bit integer *
+// 2**exponent, multiply the 64-bit integers to get a 128-bit number, split that
+// number into 32-bit words and form 4 double-valued summands (none of which
+// loses precision), then convert these into integers and sum them. Though it is
+// not immediately obvious, this should work even w.r.t. rounding (none of the
+// summands lose precision).
 
 // Multiplies two unsigned 64-bit ints to get a 128-bit number represented
 // as four 32-bit words.
@@ -379,12 +380,13 @@
 dblesplit (double x, bool& sign, uint64_t& mtis, int& exp)
 {
   sign = x < 0; x = fabs (x);
-  x = frexp (x, &exp);
+  x = gnulib::frexp (x, &exp);
   exp -= 52;
   mtis = static_cast<uint64_t> (ldexp (x, 52));
 }
 
-// Gets a double number from a 32-bit unsigned integer mantissa, exponent and sign.
+// Gets a double number from a
+// 32-bit unsigned integer mantissa, exponent, and sign.
 static double
 dbleget (bool sign, uint32_t mtis, int exp)
 {
@@ -392,7 +394,6 @@
   return sign ? -x : x;
 }
 
-
 INT_DOUBLE_BINOP_DECL (*, uint64)
 {
   if (y >= 0 && y < octave_uint64::max () && y == xround (y))
--- a/liboctave/util/oct-inttypes.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-inttypes.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_inttypes_h)
-#define octave_inttypes_h 1
+#if !defined (octave_oct_inttypes_h)
+#define octave_oct_inttypes_h 1
 
 #include <cstdlib>
 
@@ -35,10 +35,11 @@
 
 #ifdef OCTAVE_INT_USE_LONG_DOUBLE
 inline long double xround (long double x) { return roundl (x); }
-inline long double xisnan (long double x) { return xisnan (static_cast<double> (x)); }
+inline long double xisnan (long double x)
+{ return xisnan (static_cast<double> (x)); }
 #endif
 
-// FIXME -- we define this by our own because some compilers, such as
+// FIXME: we define this by our own because some compilers, such as
 // MSVC, do not provide std::abs (int64_t) and std::abs (uint64_t).  In
 // the future, it should go away in favor of std::abs.
 template <class T>
@@ -106,38 +107,38 @@
   // size.
   template <class T1, class T2>
   class prom
-    {
-      // Promote to int?
-      static const bool pint = (sizeof (T1) < sizeof (int)
-                                && sizeof (T2) < sizeof (int));
-      static const bool t1sig = std::numeric_limits<T1>::is_signed;
-      static const bool t2sig = std::numeric_limits<T2>::is_signed;
-      static const bool psig =
-        (pint || (sizeof (T2) > sizeof (T1) && t2sig) || t1sig);
-      static const int psize =
-        (pint ? sizeof (int) : (sizeof (T2) > sizeof (T1)
-                                ? sizeof (T2) : sizeof (T1)));
-    public:
-      typedef typename query_integer_type<psize, psig>::type type;
-    };
+  {
+    // Promote to int?
+    static const bool pint = (sizeof (T1) < sizeof (int)
+                              && sizeof (T2) < sizeof (int));
+    static const bool t1sig = std::numeric_limits<T1>::is_signed;
+    static const bool t2sig = std::numeric_limits<T2>::is_signed;
+    static const bool psig =
+      (pint || (sizeof (T2) > sizeof (T1) && t2sig) || t1sig);
+    static const int psize =
+      (pint ? sizeof (int) : (sizeof (T2) > sizeof (T1)
+                              ? sizeof (T2) : sizeof (T1)));
+  public:
+    typedef typename query_integer_type<psize, psig>::type type;
+  };
 
   // Implements comparisons between two types of equal size but
   // possibly different signedness.
   template<class xop, int size>
   class uiop
-    {
-      typedef typename query_integer_type<size, false>::type utype;
-      typedef typename query_integer_type<size, true>::type stype;
-    public:
-      static bool op (utype x, utype y)
-        { return xop::op (x, y); }
-      static bool op (stype x, stype y)
-        { return xop::op (x, y); }
-      static bool op (stype x, utype y)
-        { return (x < 0) ? xop::ltval : xop::op (static_cast<utype> (x), y); }
-      static bool op (utype x, stype y)
-        { return (y < 0) ? xop::gtval : xop::op (x, static_cast<utype> (y)); }
-    };
+  {
+    typedef typename query_integer_type<size, false>::type utype;
+    typedef typename query_integer_type<size, true>::type stype;
+  public:
+    static bool op (utype x, utype y)
+    { return xop::op (x, y); }
+    static bool op (stype x, stype y)
+    { return xop::op (x, y); }
+    static bool op (stype x, utype y)
+    { return (x < 0) ? xop::ltval : xop::op (static_cast<utype> (x), y); }
+    static bool op (utype x, stype y)
+    { return (y < 0) ? xop::gtval : xop::op (x, static_cast<utype> (y)); }
+  };
 
 public:
   REGISTER_OCTAVE_CMP_OP (lt, <);
@@ -153,12 +154,12 @@
   template<class xop, class T1, class T2>
   static bool
   op (T1 x, T2 y)
-    {
-      typedef typename prom<T1, T2>::type PT1;
-      typedef typename prom<T2, T1>::type PT2;
-      return uiop<xop, sizeof (PT1)>::op (static_cast<PT1> (x),
-                                          static_cast<PT2> (y));
-    }
+  {
+    typedef typename prom<T1, T2>::type PT1;
+    typedef typename prom<T2, T1>::type PT2;
+    return uiop<xop, sizeof (PT1)>::op (static_cast<PT1> (x),
+                                        static_cast<PT2> (y));
+  }
 
 public:
 
@@ -166,14 +167,15 @@
   template <class xop, class T>
   static bool
   mop (T x, double y)
-    { return xop::op (static_cast<double> (x), y); }
+  { return xop::op (static_cast<double> (x), y); }
 
   template <class xop, class T>
   static bool
   mop (double x, T y)
-    { return xop::op (x, static_cast<double> (y)); }
+  { return xop::op (x, static_cast<double> (y)); }
 
-  // Typecasting to doubles won't work properly for 64-bit integers - they lose precision.
+  // Typecasting to doubles won't work properly for 64-bit integers --
+  // they lose precision.
   // If we have long doubles, use them...
 #ifdef OCTAVE_INT_USE_LONG_DOUBLE
 #define DEFINE_LONG_DOUBLE_CMP_OP(T1, T2) \
@@ -224,36 +226,36 @@
   template <class S>
   static T
   truncate_int (const S& value)
-    {
-      // An exhaustive test whether the max and/or min check can be omitted.
-      static const bool t_is_signed = std::numeric_limits<T>::is_signed;
-      static const bool s_is_signed = std::numeric_limits<S>::is_signed;
-      static const int t_size = sizeof (T), s_size = sizeof (S);
-      static const bool omit_chk_min =
-        (! s_is_signed || (t_is_signed && t_size >= s_size));
-      static const bool omit_chk_max =
-        (t_size > s_size || (t_size == s_size
-         && (! t_is_signed || s_is_signed)));
-      // If the check can be omitted, substitute constant false relation.
-      typedef octave_int_cmp_op::cf cf;
-      typedef octave_int_cmp_op::lt lt;
-      typedef octave_int_cmp_op::gt gt;
-      typedef typename if_then_else<omit_chk_min, cf, lt>::result chk_min;
-      typedef typename if_then_else<omit_chk_max, cf, gt>::result chk_max;
+  {
+    // An exhaustive test whether the max and/or min check can be omitted.
+    static const bool t_is_signed = std::numeric_limits<T>::is_signed;
+    static const bool s_is_signed = std::numeric_limits<S>::is_signed;
+    static const int t_size = sizeof (T), s_size = sizeof (S);
+    static const bool omit_chk_min =
+      (! s_is_signed || (t_is_signed && t_size >= s_size));
+    static const bool omit_chk_max =
+      (t_size > s_size || (t_size == s_size
+                           && (! t_is_signed || s_is_signed)));
+    // If the check can be omitted, substitute constant false relation.
+    typedef octave_int_cmp_op::cf cf;
+    typedef octave_int_cmp_op::lt lt;
+    typedef octave_int_cmp_op::gt gt;
+    typedef typename if_then_else<omit_chk_min, cf, lt>::result chk_min;
+    typedef typename if_then_else<omit_chk_max, cf, gt>::result chk_max;
 
-      // Efficiency of the following depends on inlining and dead code
-      // elimination, but that should be a piece of cake for most compilers.
-      if (chk_min::op (value, static_cast<S> (min_val ())))
-        {
-          return min_val ();
-        }
-      else if (chk_max::op (value, static_cast<S> (max_val ())))
-        {
-          return max_val ();
-        }
-      else
-        return static_cast<T> (value);
-    }
+    // Efficiency of the following depends on inlining and dead code
+    // elimination, but that should be a piece of cake for most compilers.
+    if (chk_min::op (value, static_cast<S> (min_val ())))
+      {
+        return min_val ();
+      }
+    else if (chk_max::op (value, static_cast<S> (max_val ())))
+      {
+        return max_val ();
+      }
+    else
+      return static_cast<T> (value);
+  }
 
 private:
 
@@ -261,42 +263,44 @@
   template <class S>
   static S
   compute_threshold (S val, T orig_val)
-    {
-      val = xround (val); // Fool optimizations (maybe redundant)
-      // If val is even, but orig_val is odd, we're one unit off.
-      if (orig_val % 2 && val / 2 == xround (val / 2))
-        // FIXME -- is this always correct?
-        val *= (static_cast<S>(1) - (std::numeric_limits<S>::epsilon () / 2));
-      return val;
-    }
+  {
+    val = xround (val); // Fool optimizations (maybe redundant)
+    // If val is even, but orig_val is odd, we're one unit off.
+    if (orig_val % 2 && val / 2 == xround (val / 2))
+      // FIXME: is this always correct?
+      val *= (static_cast<S>(1) - (std::numeric_limits<S>::epsilon () / 2));
+    return val;
+  }
 
 public:
   // Convert a real number (check NaN and non-int).
   template <class S>
   static T
   convert_real (const S& value)
-    {
-      // Compute proper thresholds.
-      static const S thmin = compute_threshold (static_cast<S> (min_val ()), min_val ());
-      static const S thmax = compute_threshold (static_cast<S> (max_val ()), max_val ());
-      if (xisnan (value))
-        {
-          return static_cast<T> (0);
-        }
-      else if (value < thmin)
-        {
-          return min_val ();
-        }
-      else if (value > thmax)
-        {
-          return max_val ();
-        }
-      else
-        {
-          S rvalue = xround (value);
-          return static_cast<T> (rvalue);
-        }
-    }
+  {
+    // Compute proper thresholds.
+    static const S thmin = compute_threshold (static_cast<S> (min_val ()),
+                           min_val ());
+    static const S thmax = compute_threshold (static_cast<S> (max_val ()),
+                           max_val ());
+    if (xisnan (value))
+      {
+        return static_cast<T> (0);
+      }
+    else if (value < thmin)
+      {
+        return min_val ();
+      }
+    else if (value > thmax)
+      {
+        return max_val ();
+      }
+    else
+      {
+        S rvalue = xround (value);
+        return static_cast<T> (rvalue);
+      }
+  }
 };
 
 // Saturated (homogeneous) integer arithmetics. The signed and unsigned
@@ -330,75 +334,75 @@
 
   static T
   minus (T)
-    {
-      return static_cast<T> (0);
-    }
+  {
+    return static_cast<T> (0);
+  }
 
   // the overflow behaviour for unsigned integers is guaranteed by C/C++,
   // so the following should always work.
   static T
   add (T x, T y)
-    {
-      T u = x + y;
-      if (u < x)
-        {
-          u = octave_int_base<T>::max_val ();
-        }
-      return u;
-    }
+  {
+    T u = x + y;
+    if (u < x)
+      {
+        u = octave_int_base<T>::max_val ();
+      }
+    return u;
+  }
 
   static T
   sub (T x, T y)
-    {
-      T u = x - y;
-      if (u > x)
-        {
-          u = 0;
-        }
-      return u;
-    }
+  {
+    T u = x - y;
+    if (u > x)
+      {
+        u = 0;
+      }
+    return u;
+  }
 
   // Multiplication is done using promotion to wider integer type. If there is
   // no suitable promotion type, this operation *MUST* be specialized.
   static T
   mul (T x, T y)
-    {
-      // Promotion type for multiplication (if exists).
-      typedef typename query_integer_type<2*sizeof (T), false>::type mptype;
-      return octave_int_base<T>::truncate_int (static_cast<mptype> (x)
-                                               * static_cast<mptype> (y));
-    }
+  {
+    // Promotion type for multiplication (if exists).
+    typedef typename query_integer_type<2*sizeof (T), false>::type mptype;
+    return octave_int_base<T>::truncate_int (static_cast<mptype> (x)
+           * static_cast<mptype> (y));
+  }
 
   // Division with rounding to nearest. Note that / and % are probably
   // computed by a single instruction.
   static T
   div (T x, T y)
-    {
-      if (y != 0)
-        {
-          T z = x / y, w = x % y;
-          if (w >= y-w) z += 1;
-          return z;
-        }
-      else
-        {
-          return x ? octave_int_base<T>::max_val () : 0;
-        }
-    }
+  {
+    if (y != 0)
+      {
+        T z = x / y, w = x % y;
+        if (w >= y-w) z += 1;
+        return z;
+      }
+    else
+      {
+        return x ? octave_int_base<T>::max_val () : 0;
+      }
+  }
 
   // Remainder.
   static T
   rem (T x, T y)
-    {
-      return y != 0 ? x % y : 0;
-    }
+  {
+    return y != 0 ? x % y : 0;
+  }
 
   // Modulus. Note the weird y = 0 case for Matlab compatibility.
   static T
   mod (T x, T y)
-    {
-      return y != 0 ? x % y : x;
-    }
+  {
+    return y != 0 ? x % y : x;
+  }
 };
 
 #ifdef OCTAVE_INT_USE_LONG_DOUBLE
@@ -437,8 +441,8 @@
 //
 // The above conditions are satisfied by most modern platforms. If
 // HAVE_FAST_INT_OPS is defined, bit tricks and wraparound arithmetics are used
-// to avoid conditional jumps as much as possible, thus being friendly to modern
-// pipeline processor architectures.
+// to avoid conditional jumps as much as possible, thus being friendly to
+// modern pipeline processor architectures.
 // Otherwise, we fall back to a bullet-proof code that only uses assumptions
 // guaranteed by the standard.
 
@@ -452,53 +456,53 @@
   // Returns 1 for negative number, 0 otherwise.
   static T
   __signbit (T x)
-    {
+  {
 #ifdef HAVE_FAST_INT_OPS
-      return static_cast<UT> (x) >> std::numeric_limits<T>::digits;
+    return static_cast<UT> (x) >> std::numeric_limits<T>::digits;
 #else
-      return (x < 0) ? 1 : 0;
+    return (x < 0) ? 1 : 0;
 #endif
-    }
+  }
 
   static T
   abs (T x)
-    {
+  {
 #ifdef HAVE_FAST_INT_OPS
-      // This is close to how GCC does std::abs, but we can't just use std::abs,
-      // because its behaviour for INT_MIN is undefined and the compiler could
-      // discard the following test.
-      T m = x >> std::numeric_limits<T>::digits;
-      T y = (x ^ m) - m;
-      if (y < 0)
-        {
-          y = octave_int_base<T>::max_val ();
-        }
-      return y;
+    // This is close to how GCC does std::abs, but we can't just use std::abs,
+    // because its behaviour for INT_MIN is undefined and the compiler could
+    // discard the following test.
+    T m = x >> std::numeric_limits<T>::digits;
+    T y = (x ^ m) - m;
+    if (y < 0)
+      {
+        y = octave_int_base<T>::max_val ();
+      }
+    return y;
 #else
-      // -INT_MAX is safe because C++ actually allows only three implementations
-      // of integers: sign & magnitude, ones complement and twos complement.
-      // The first test will, with modest optimizations, evaluate at compile
-      // time, and maybe eliminate the branch completely.
-      T y;
-      if (octave_int_base<T>::min_val () < -octave_int_base<T>::max_val ()
-          && x == octave_int_base<T>::min_val ())
-        {
-          y = octave_int_base<T>::max_val ();
-        }
-      else
-        y = (x < 0) ? -x : x;
-      return y;
+    // -INT_MAX is safe because C++ actually allows only three implementations
+    // of integers: sign & magnitude, ones complement and twos complement.
+    // The first test will, with modest optimizations, evaluate at compile
+    // time, and maybe eliminate the branch completely.
+    T y;
+    if (octave_int_base<T>::min_val () < -octave_int_base<T>::max_val ()
+        && x == octave_int_base<T>::min_val ())
+      {
+        y = octave_int_base<T>::max_val ();
+      }
+    else
+      y = (x < 0) ? -x : x;
+    return y;
 #endif
-    }
+  }
 
   static T
   signum (T x)
-    {
-      // With modest optimizations, this will compile without a jump.
-      return ((x > 0) ? 1 : 0) - __signbit (x);
-    }
+  {
+    // With modest optimizations, this will compile without a jump.
+    return ((x > 0) ? 1 : 0) - __signbit (x);
+  }
 
-  // FIXME -- we do not have an authority what signed shifts should
+  // FIXME: we do not have an authority what signed shifts should
   // exactly do, so we define them the easy way. Note that Matlab does
   // not define signed shifts.
 
@@ -511,181 +515,182 @@
   // Minus has problems similar to abs.
   static T
   minus (T x)
-    {
+  {
 #ifdef HAVE_FAST_INT_OPS
-      T y = -x;
-      if (y == octave_int_base<T>::min_val ())
-        {
-          --y;
-        }
-      return y;
+    T y = -x;
+    if (y == octave_int_base<T>::min_val ())
+      {
+        --y;
+      }
+    return y;
 #else
-      T y;
-      if (octave_int_base<T>::min_val () < -octave_int_base<T>::max_val ()
-          && x == octave_int_base<T>::min_val ())
-        {
-          y = octave_int_base<T>::max_val ();
-        }
-      else
-        y = -x;
-      return y;
+    T y;
+    if (octave_int_base<T>::min_val () < -octave_int_base<T>::max_val ()
+        && x == octave_int_base<T>::min_val ())
+      {
+        y = octave_int_base<T>::max_val ();
+      }
+    else
+      y = -x;
+    return y;
 #endif
-    }
+  }
 
   static T
   add (T x, T y)
-    {
+  {
 #ifdef HAVE_FAST_INT_OPS
     // The typecasts do nothing, but they are here to prevent an optimizing
     // compiler from interfering. Also, the signed operations on small types
     // actually return int.
-      T u = static_cast<UT> (x) + static_cast<UT> (y);
-      T ux = u ^ x, uy = u ^ y;
-      if ((ux & uy) < 0)
-        {
-          u = octave_int_base<T>::max_val () + __signbit (~u);
-        }
-      return u;
+    T u = static_cast<UT> (x) + static_cast<UT> (y);
+    T ux = u ^ x, uy = u ^ y;
+    if ((ux & uy) < 0)
+      {
+        u = octave_int_base<T>::max_val () + __signbit (~u);
+      }
+    return u;
 #else
-      // We shall carefully avoid anything that may overflow.
-      T u;
-      if (y < 0)
-        {
-          if (x < octave_int_base<T>::min_val () - y)
-            {
-              u = octave_int_base<T>::min_val ();
-            }
-          else
-            u = x + y;
-        }
-      else
-        {
-          if (x > octave_int_base<T>::max_val () - y)
-            {
-              u = octave_int_base<T>::max_val ();
-            }
-          else
-            u = x + y;
-        }
+    // We shall carefully avoid anything that may overflow.
+    T u;
+    if (y < 0)
+      {
+        if (x < octave_int_base<T>::min_val () - y)
+          {
+            u = octave_int_base<T>::min_val ();
+          }
+        else
+          u = x + y;
+      }
+    else
+      {
+        if (x > octave_int_base<T>::max_val () - y)
+          {
+            u = octave_int_base<T>::max_val ();
+          }
+        else
+          u = x + y;
+      }
 
-      return u;
+    return u;
 #endif
-    }
+  }
 
   // This is very similar to addition.
   static T
   sub (T x, T y)
-    {
+  {
 #ifdef HAVE_FAST_INT_OPS
     // The typecasts do nothing, but they are here to prevent an optimizing
     // compiler from interfering. Also, the signed operations on small types
     // actually return int.
-      T u = static_cast<UT> (x) - static_cast<UT> (y);
-      T ux = u ^ x, uy = u ^ ~y;
-      if ((ux & uy) < 0)
-        {
-          u = octave_int_base<T>::max_val () + __signbit (~u);
-        }
-      return u;
+    T u = static_cast<UT> (x) - static_cast<UT> (y);
+    T ux = u ^ x, uy = u ^ ~y;
+    if ((ux & uy) < 0)
+      {
+        u = octave_int_base<T>::max_val () + __signbit (~u);
+      }
+    return u;
 #else
-      // We shall carefully avoid anything that may overflow.
-      T u;
-      if (y < 0)
-        {
-          if (x > octave_int_base<T>::max_val () + y)
-            {
-              u = octave_int_base<T>::max_val ();
-            }
-          else
-            u = x - y;
-        }
-      else
-        {
-          if (x < octave_int_base<T>::min_val () + y)
-            {
-              u = octave_int_base<T>::min_val ();
-            }
-          else
-            u = x - y;
-        }
+    // We shall carefully avoid anything that may overflow.
+    T u;
+    if (y < 0)
+      {
+        if (x > octave_int_base<T>::max_val () + y)
+          {
+            u = octave_int_base<T>::max_val ();
+          }
+        else
+          u = x - y;
+      }
+    else
+      {
+        if (x < octave_int_base<T>::min_val () + y)
+          {
+            u = octave_int_base<T>::min_val ();
+          }
+        else
+          u = x - y;
+      }
 
-      return u;
+    return u;
 #endif
-    }
+  }
 
   // Multiplication is done using promotion to wider integer type. If there is
   // no suitable promotion type, this operation *MUST* be specialized.
   static T
   mul (T x, T y)
-    {
-      // Promotion type for multiplication (if exists).
-      typedef typename query_integer_type<2*sizeof (T), true>::type mptype;
-      return octave_int_base<T>::truncate_int (static_cast<mptype> (x)
-                                               * static_cast<mptype> (y));
-    }
+  {
+    // Promotion type for multiplication (if exists).
+    typedef typename query_integer_type<2*sizeof (T), true>::type mptype;
+    return octave_int_base<T>::truncate_int (static_cast<mptype> (x)
+           * static_cast<mptype> (y));
+  }
 
   // Division.
   static T
   div (T x, T y)
-    {
-      T z;
-      if (y == 0)
-        {
-          if (x < 0)
-            z = octave_int_base<T>::min_val ();
-          else if (x != 0)
+  {
+    T z;
+    if (y == 0)
+      {
+        if (x < 0)
+          z = octave_int_base<T>::min_val ();
+        else if (x != 0)
+          z = octave_int_base<T>::max_val ();
+        else
+          z = 0;
+      }
+    else if (y < 0)
+      {
+        // This is a special case that overflows as well.
+        if (y == -1 && x == octave_int_base<T>::min_val ())
+          {
             z = octave_int_base<T>::max_val ();
-          else
-            z = 0;
-        }
-      else if (y < 0)
-        {
-          // This is a special case that overflows as well.
-          if (y == -1 && x == octave_int_base<T>::min_val ())
-            {
-              z = octave_int_base<T>::max_val ();
-            }
-          else
-            {
-              z = x / y;
-              T w = -octave_int_abs (x % y); // Can't overflow, but std::abs (x) can!
-              if (w <= y - w)
-                z -= 1 - (__signbit (x) << 1);
-            }
-        }
-      else
-        {
-          z = x / y;
-          // FIXME -- this is a workaround due to MSVC's absence of
-          // std::abs (int64_t).  The call to octave_int_abs can't
-          // overflow, but std::abs (x) can!
-          T w = octave_int_abs (x % y);
+          }
+        else
+          {
+            z = x / y;
+            // Can't overflow, but std::abs (x) can!
+            T w = -octave_int_abs (x % y);
+            if (w <= y - w)
+              z -= 1 - (__signbit (x) << 1);
+          }
+      }
+    else
+      {
+        z = x / y;
+        // FIXME: this is a workaround due to MSVC's absence of
+        // std::abs (int64_t).  The call to octave_int_abs can't
+        // overflow, but std::abs (x) can!
+        T w = octave_int_abs (x % y);
 
-          if (w >= y - w)
-            z += 1 - (__signbit (x) << 1);
-        }
-      return z;
-    }
+        if (w >= y - w)
+          z += 1 - (__signbit (x) << 1);
+      }
+    return z;
+  }
 
   // Remainder.
   static T
   rem (T x, T y)
-    {
-      return y != 0 ? x % y : 0;
-    }
+  {
+    return y != 0 ? x % y : 0;
+  }
 
   // Modulus. Note the weird y = 0 case for Matlab compatibility.
   static T
   mod (T x, T y)
-    {
-      if (y != 0)
-        {
-          T r = x % y;
-          return ((r < 0) != (y < 0)) ? r + y : r;
-        }
-      else
-        return x;
-    }
+  {
+    if (y != 0)
+      {
+        T r = x % y;
+        return ((r < 0) != (y < 0)) ? r + y : r;
+      }
+    else
+      return x;
+  }
 };
 
 #ifdef OCTAVE_INT_USE_LONG_DOUBLE
@@ -695,9 +700,9 @@
 octave_int_arith_base<int64_t, true>:: mul (int64_t x, int64_t y)
 {
   long double p = static_cast<long double> (x) * static_cast<long double> (y);
-  // NOTE: We could maybe do it with a single branch if HAVE_FAST_INT_OPS, but it
-  // would require one more runtime conversion, so the question is whether it would
-  // really be faster.
+  // NOTE: We could maybe do it with a single branch if HAVE_FAST_INT_OPS,
+  // but it would require one more runtime conversion, so the question is
+  // whether it would really be faster.
   if (p > static_cast<long double> (octave_int_base<int64_t>::max_val ()))
     {
       return octave_int_base<int64_t>::max_val ();
@@ -720,7 +725,7 @@
 template<class T>
 class octave_int_arith
  : public octave_int_arith_base<T, std::numeric_limits<T>::is_signed>
-{};
+{ };
 
 template <class T>
 class
@@ -783,7 +788,7 @@
 
   octave_int<T>
   operator + () const
-    { return *this; }
+  { return *this; }
 
   // unary operators & mappers
 #define OCTAVE_INT_UN_OP(OPNAME,NAME) \
@@ -857,7 +862,7 @@
 xisnan (const octave_int<T>&)
 { return false; }
 
-// FIXME -- can/should any of these be inline?
+// FIXME: can/should any of these be inline?
 
 template <class T>
 extern OCTAVE_API octave_int<T>
--- a/liboctave/util/oct-locbuf.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-locbuf.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -29,7 +29,7 @@
 #include "lo-error.h"
 #include "oct-locbuf.h"
 
-// FIXME -- Maybe we should querying for available physical memory?
+// FIXME: Maybe we should querying for available physical memory?
 
 #ifndef OCTAVE_LOCBUF_CHUNKSIZE_MB
 #define OCTAVE_LOCBUF_CHUNKSIZE_MB 32
@@ -112,8 +112,8 @@
           chunk = cnk;
           top = dat;
 
-          // FIXME -- the following calcuation of remaining data will
-          // only work if each chunk has the same chunk_size.
+          // FIXME: the following calcuation of remaining data will
+          //        only work if each chunk has the same chunk_size.
 
           left = chunk_size - (dat - cnk);
         }
--- a/liboctave/util/oct-locbuf.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-locbuf.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_local_buffer_h)
-#define octave_local_buffer_h 1
+#if !defined (octave_oct_locbuf_h)
+#define octave_oct_locbuf_h 1
 
 #include <cstddef>
 #include "oct-cmplx.h"
@@ -36,10 +36,10 @@
 public:
   octave_local_buffer (size_t size)
     : data (0)
-    {
-      if (size)
-        data = new T [size];
-    }
+  {
+    if (size)
+      data = new T [size];
+  }
   ~octave_local_buffer (void) { delete [] data; }
   operator T *() const { return data; }
 
@@ -143,7 +143,7 @@
 public:
   octave_local_buffer (size_t size)
     : octave_chunk_buffer (size * sizeof (T *))
-    { }
+  { }
 
   operator T **() const { return reinterpret_cast<T **> (this->data ()); }
 };
@@ -154,7 +154,7 @@
 public:
   octave_local_buffer (size_t size)
     : octave_chunk_buffer (size * sizeof (const T *))
-    { }
+  { }
 
   operator const T **() const
   {
--- a/liboctave/util/oct-mem.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-mem.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_memory_h)
-#define octave_memory_h 1
+#if !defined (octave_oct_mem_h)
+#define octave_oct_mem_h 1
 
 #include <cstddef>
 #include <cstring>
@@ -43,7 +43,8 @@
   return n * size;
 }
 
-// Unaliased copy. This boils down to memcpy, even for octave_int and complex types.
+// Unaliased copy. This boils down to memcpy, even for octave_int and
+// complex types.
 
 template <class T>
 inline void copy_or_memcpy (size_t n, const T *src, T *dest)
@@ -79,7 +80,8 @@
 template <class T>
 inline bool helper_is_zero_mem (const T& value)
 {
-  typedef typename query_integer_type<sizeof (T), false>::type IT; // get integer type of the same size.
+  // get integer type of the same size.
+  typedef typename query_integer_type<sizeof (T), false>::type IT;
   return *(reinterpret_cast<const IT *>(&value)) == 0;
 }
 
@@ -120,13 +122,14 @@
 template <class T>
 DEFINE_POD_FILL (octave_int<T>)
 
-// Uninitialized allocation. Will not initialize memory for complex and octave_int.
+// Uninitialized allocation.
+// Will not initialize memory for complex and octave_int.
 // Memory allocated by octave_new should be freed by octave_delete.
 template <class T>
 inline T *no_ctor_new (size_t n)
 {
-  // Some systems let us allocate > 2GB memory even though size_t, which is either
-  // buggy or completely cuckoo, so let's check here to stay safe.
+  // Some systems let us allocate > 2GB memory even though size_t, which is
+  // either buggy or completely cuckoo, so let's check here to stay safe.
   safe_size_comp (n, sizeof (T));
   return new T [n];
 }
@@ -154,4 +157,4 @@
 DEFINE_POD_NEW_DELETE (octave_uint32)
 DEFINE_POD_NEW_DELETE (octave_uint64)
 
-#endif /* octave_memory_h */
+#endif /* octave_oct_mem_h */
--- a/liboctave/util/oct-mutex.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-mutex.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -89,7 +89,7 @@
   CRITICAL_SECTION cs;
 };
 
-static DWORD octave_thread_id = 0; 
+static DWORD octave_thread_id = 0;
 
 void
 octave_thread::init (void)
--- a/liboctave/util/oct-mutex.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-mutex.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_octave_mutex_h)
-#define octave_octave_mutex_h 1
+#if !defined (octave_oct_mutex_h)
+#define octave_oct_mutex_h 1
 
 #include "oct-refcount.h"
 
--- a/liboctave/util/oct-refcount.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-refcount.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_refcount_h)
-#define octave_refcount_h 1
+#if !defined (octave_oct_refcount_h)
+#define octave_oct_refcount_h 1
 
 #ifndef OCTAVE_CONFIG_INCLUDED
 # error "The file <octave/config.h> must be included before oct-refcount.h."
@@ -54,38 +54,38 @@
 public:
   typedef T count_type;
 
-  octave_refcount(count_type initial_count) : count(initial_count) {}
+  octave_refcount(count_type initial_count) : count(initial_count) { }
 
   // Increment/Decrement. int is postfix.
   count_type operator++(void)
-    {
-      return OCTREFCOUNT_ATOMIC_INCREMENT (&count);
-    }
+  {
+    return OCTREFCOUNT_ATOMIC_INCREMENT (&count);
+  }
 
   count_type operator++(int)
-    {
-      return OCTREFCOUNT_ATOMIC_INCREMENT_POST (&count);
-    }
+  {
+    return OCTREFCOUNT_ATOMIC_INCREMENT_POST (&count);
+  }
 
   count_type operator--(void)
-    {
-      return OCTREFCOUNT_ATOMIC_DECREMENT (&count);
-    }
+  {
+    return OCTREFCOUNT_ATOMIC_DECREMENT (&count);
+  }
 
   count_type operator--(int)
-    {
-      return OCTREFCOUNT_ATOMIC_DECREMENT_POST (&count);
-    }
+  {
+    return OCTREFCOUNT_ATOMIC_DECREMENT_POST (&count);
+  }
 
   operator count_type (void) const
-    {
-      return static_cast<count_type const volatile&> (count);
-    }
+  {
+    return static_cast<count_type const volatile&> (count);
+  }
 
   count_type *get (void)
-    {
-      return &count;
-    }
+  {
+    return &count;
+  }
 
 private:
   count_type count;
--- a/liboctave/util/oct-rl-edit.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-rl-edit.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_rl_edit_h)
-#define octave_rl_edit_h 1
+#if !defined (octave_oct_rl_edit_h)
+#define octave_oct_rl_edit_h 1
 
 typedef int (*rl_startup_hook_fcn_ptr) (void);
 
--- a/liboctave/util/oct-rl-hist.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-rl-hist.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (octave_rl_hist_h)
-#define octave_rl_hist_h 1
+#if !defined (octave_oct_rl_hist_h)
+#define octave_oct_rl_hist_h 1
 
 #ifdef __cplusplus
 extern "C"
--- a/liboctave/util/oct-shlib.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-shlib.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -161,7 +161,8 @@
 
   ~octave_dlopen_shlib (void);
 
-  void *search (const std::string& name, octave_shlib::name_mangler mangler = 0);
+  void *search (const std::string& name,
+                octave_shlib::name_mangler mangler = 0);
 
   // FIXME: this is possibly redundant because failure to open a library will
   // normally throw an exception, avoiding the construction of an invalid
@@ -247,7 +248,8 @@
 
   ~octave_shl_load_shlib (void);
 
-  void *search (const std::string& name, octave_shlib::name_mangler mangler = 0);
+  void *search (const std::string& name,
+                octave_shlib::name_mangler mangler = 0);
 
   bool is_open (void) const { return (library != 0); }
 
@@ -316,7 +318,8 @@
 
   ~octave_w32_shlib (void);
 
-  void *search (const std::string& name, octave_shlib::name_mangler mangler = 0);
+  void *search (const std::string& name,
+                octave_shlib::name_mangler mangler = 0);
 
   bool is_open (void) const { return (handle != 0); }
 
@@ -410,7 +413,8 @@
 
   void open (const std::string& f);
 
-  void *search (const std::string& name, octave_shlib::name_mangler mangler = 0);
+  void *search (const std::string& name,
+                octave_shlib::name_mangler mangler = 0);
 
   void close (octave_shlib::close_hook cl_hook = 0);
 
@@ -459,7 +463,7 @@
       (*current_liboctave_error_handler)
         ("got NSObjectFileImageReturnCode %d", returnCode);
 
-      // FIXME -- should use NSLinkEditError () to get
+      // FIXME: should use NSLinkEditError () to get
       // more info on what went wrong.
     }
 }
--- a/liboctave/util/oct-shlib.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-shlib.h	Tue Nov 05 12:27:42 2013 -0500
@@ -21,8 +21,8 @@
 
 */
 
-#if !defined (octave_shlib_h)
-#define octave_shlib_h 1
+#if !defined (octave_oct_shlib_h)
+#define octave_oct_shlib_h 1
 
 #include <string>
 #include <map>
@@ -53,15 +53,15 @@
   public:
 
     virtual ~shlib_rep (void)
-      {
-        instances.erase (file);
-      }
+    {
+      instances.erase (file);
+    }
 
     virtual bool is_open (void) const
-      { return false; }
+    { return false; }
 
     virtual void *search (const std::string&, name_mangler = 0)
-      { return 0; }
+    { return 0; }
 
     bool is_out_of_date (void) const;
 
@@ -71,10 +71,10 @@
     static shlib_rep *get_instance (const std::string& f, bool fake);
 
     octave_time time_loaded (void) const
-      { return tm_loaded; }
+    { return tm_loaded; }
 
     std::string file_name (void) const
-      { return file; }
+    { return file; }
 
     size_t num_fcn_names (void) const { return fcn_names.size (); }
 
@@ -116,73 +116,73 @@
     : rep (shlib_rep::get_instance (f, fake)) { }
 
   ~octave_shlib (void)
-    {
-      if (--rep->count == 0)
-        delete rep;
-    }
+  {
+    if (--rep->count == 0)
+      delete rep;
+  }
 
   octave_shlib (const octave_shlib& sl)
     : rep (sl.rep)
-    {
-      rep->count++;
-    }
+  {
+    rep->count++;
+  }
 
   octave_shlib& operator = (const octave_shlib& sl)
-    {
-      if (rep != sl.rep)
-        {
-          if (--rep->count == 0)
-            delete rep;
+  {
+    if (rep != sl.rep)
+      {
+        if (--rep->count == 0)
+          delete rep;
 
-          rep = sl.rep;
-          rep->count++;
-        }
+        rep = sl.rep;
+        rep->count++;
+      }
 
-      return *this;
-    }
+    return *this;
+  }
 
   bool operator == (const octave_shlib& sl) const
-    { return (rep == sl.rep); }
+  { return (rep == sl.rep); }
 
   operator bool () const { return rep->is_open (); }
 
   void open (const std::string& f)
-    { *this = octave_shlib (f); }
+  { *this = octave_shlib (f); }
 
   void close (close_hook cl_hook = 0)
-    {
-      if (cl_hook)
-        rep->do_close_hook (cl_hook);
+  {
+    if (cl_hook)
+      rep->do_close_hook (cl_hook);
 
-      *this = octave_shlib ();
-    }
+    *this = octave_shlib ();
+  }
 
   void *search (const std::string& nm, name_mangler mangler = 0) const
-    {
-      void *f = rep->search (nm, mangler);
-      if (f)
-        rep->add_fcn_name (nm);
+  {
+    void *f = rep->search (nm, mangler);
+    if (f)
+      rep->add_fcn_name (nm);
 
-      return f;
-    }
+    return f;
+  }
 
   void add (const std::string& name)
-    { rep->add_fcn_name (name); }
+  { rep->add_fcn_name (name); }
 
   bool remove (const std::string& name)
-    { return rep->remove_fcn_name (name); }
+  { return rep->remove_fcn_name (name); }
 
   size_t number_of_functions_loaded (void) const
-    { return rep->num_fcn_names (); }
+  { return rep->num_fcn_names (); }
 
   bool is_out_of_date (void) const
-    { return rep->is_out_of_date (); }
+  { return rep->is_out_of_date (); }
 
   std::string file_name (void) const
-    { return rep->file_name (); }
+  { return rep->file_name (); }
 
   octave_time time_loaded (void) const
-    { return rep->time_loaded (); }
+  { return rep->time_loaded (); }
 
 private:
 
--- a/liboctave/util/oct-sort.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-sort.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -259,7 +259,8 @@
 template <class T>
 template <class Comp>
 octave_idx_type
-octave_sort<T>::count_run (T *lo, octave_idx_type nel, bool& descending, Comp comp)
+octave_sort<T>::count_run (T *lo, octave_idx_type nel, bool& descending,
+                           Comp comp)
 {
   octave_idx_type n;
   T *hi = lo + nel;
@@ -318,7 +319,8 @@
 template <class T>
 template <class Comp>
 octave_idx_type
-octave_sort<T>::gallop_left (T key, T *a, octave_idx_type n, octave_idx_type hint,
+octave_sort<T>::gallop_left (T key, T *a, octave_idx_type n,
+                             octave_idx_type hint,
                              Comp comp)
 {
   octave_idx_type ofs;
@@ -412,7 +414,8 @@
 template <class T>
 template <class Comp>
 octave_idx_type
-octave_sort<T>::gallop_right (T key, T *a, octave_idx_type n, octave_idx_type hint,
+octave_sort<T>::gallop_right (T key, T *a, octave_idx_type n,
+                              octave_idx_type hint,
                               Comp comp)
 {
   octave_idx_type ofs;
@@ -691,15 +694,15 @@
       ms->min_gallop = min_gallop;
     }
 
- Succeed:
+Succeed:
   result = 0;
 
- Fail:
+Fail:
   if (na)
     std::copy (pa, pa + na, dest);
   return result;
 
- CopyB:
+CopyB:
   /* The last element of pa belongs at the end of the merge. */
   std::copy (pb, pb + nb, dest);
   dest[nb] = *pa;
@@ -827,10 +830,10 @@
       ms->min_gallop = min_gallop;
     }
 
- Succeed:
+Succeed:
   result = 0;
 
- Fail:
+Fail:
   if (na)
     {
       std::copy (pa, pa + na, dest);
@@ -838,7 +841,7 @@
     }
   return result;
 
- CopyB:
+CopyB:
   /* The last element of pa belongs at the end of the merge. */
   std::copy (pb, pb + nb, dest);
   std::copy (ipb, ipb + nb, idest);
@@ -1416,7 +1419,8 @@
           /* If short, extend to min (minrun, nremaining). */
           if (n < minrun)
             {
-              const octave_idx_type force = nremaining <= minrun ? nremaining : minrun;
+              const octave_idx_type force = nremaining <= minrun ? nremaining
+                                                                 : minrun;
               binarysort (data + lo, force, n, comp);
               n = force;
             }
@@ -1478,7 +1482,8 @@
           /* If short, extend to min (minrun, nremaining). */
           if (n < minrun)
             {
-              const octave_idx_type force = nremaining <= minrun ? nremaining : minrun;
+              const octave_idx_type force = nremaining <= minrun ? nremaining
+                                                                 : minrun;
               binarysort (data + lo, idx + lo, force, n, comp);
               n = force;
             }
@@ -1514,10 +1519,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       sort (data, nel, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      sort (data, nel, compare);
+      if (compare)
+        sort (data, nel, compare);
 }
 
 template <class T>
@@ -1532,10 +1537,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       sort (data, idx, nel, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      sort (data, idx, nel, compare);
+      if (compare)
+        sort (data, idx, nel, compare);
 }
 
 template <class T> template <class Comp>
@@ -1571,10 +1576,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       retval = is_sorted (data, nel, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      retval = is_sorted (data, nel, compare);
+      if (compare)
+        retval = is_sorted (data, nel, compare);
 
   return retval;
 }
@@ -1659,10 +1664,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       sort_rows (data, idx, rows, cols, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      sort_rows (data, idx, rows, cols, compare);
+      if (compare)
+        sort_rows (data, idx, rows, cols, compare);
 }
 
 template <class T> template <class Comp>
@@ -1695,7 +1700,7 @@
               if (comp (*lst, *lo))
                 {
                   if (lo > lst + 1)
-                      runs.push (run_t (lst + rows, lo - lst));
+                    runs.push (run_t (lst + rows, lo - lst));
                   lst = lo;
                 }
               else if (comp (*lo, *lst))
@@ -1736,10 +1741,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       retval = is_sorted_rows (data, rows, cols, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      retval = is_sorted_rows (data, rows, cols, compare);
+      if (compare)
+        retval = is_sorted_rows (data, rows, cols, compare);
 
   return retval;
 }
@@ -1780,10 +1785,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       retval = lookup (data, nel, value, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      retval = lookup (data, nel, value, std::ptr_fun (compare));
+      if (compare)
+        retval = lookup (data, nel, value, std::ptr_fun (compare));
 
   return retval;
 }
@@ -1815,10 +1820,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       lookup (data, nel, values, nvalues, idx, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      lookup (data, nel, values, nvalues, idx, std::ptr_fun (compare));
+      if (compare)
+        lookup (data, nel, values, nvalues, idx, std::ptr_fun (compare));
 }
 
 template <class T> template <class Comp>
@@ -1887,10 +1892,11 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       lookup_sorted (data, nel, values, nvalues, idx, rev, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      lookup_sorted (data, nel, values, nvalues, idx, rev, std::ptr_fun (compare));
+      if (compare)
+        lookup_sorted (data, nel, values, nvalues, idx, rev,
+                       std::ptr_fun (compare));
 }
 
 template <class T> template <class Comp>
@@ -1934,10 +1940,10 @@
 #ifdef INLINE_DESCENDING_SORT
     if (compare == descending_compare)
       nth_element (data, nel, lo, up, std::greater<T> ());
-  else
+    else
 #endif
-    if (compare)
-      nth_element (data, nel, lo, up, std::ptr_fun (compare));
+      if (compare)
+        nth_element (data, nel, lo, up, std::ptr_fun (compare));
 }
 
 template <class T>
--- a/liboctave/util/oct-sort.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-sort.h	Tue Nov 05 12:27:42 2013 -0500
@@ -80,8 +80,8 @@
   Agreement.
 */
 
-#if !defined (octave_sort_h)
-#define octave_sort_h 1
+#if !defined (octave_oct_sort_h)
+#define octave_oct_sort_h 1
 
 #include "lo-traits.h"
 
@@ -184,13 +184,13 @@
   {
     MergeState (void)
       : min_gallop (), a (0), ia (0), alloced (0), n (0)
-      { reset (); }
+    { reset (); }
 
     ~MergeState (void)
-      { delete [] a; delete [] ia; }
+    { delete [] a; delete [] ia; }
 
     void reset (void)
-      { min_gallop = MIN_GALLOP; n = 0; }
+    { min_gallop = MIN_GALLOP; n = 0; }
 
     void getmem (octave_idx_type need);
 
@@ -233,22 +233,23 @@
 
   template <class Comp>
   void binarysort (T *data, octave_idx_type nel,
-              octave_idx_type start, Comp comp);
+                   octave_idx_type start, Comp comp);
 
   template <class Comp>
   void binarysort (T *data, octave_idx_type *idx, octave_idx_type nel,
-              octave_idx_type start, Comp comp);
+                   octave_idx_type start, Comp comp);
 
   template <class Comp>
-  octave_idx_type count_run (T *lo, octave_idx_type n, bool& descending, Comp comp);
+  octave_idx_type count_run (T *lo, octave_idx_type n, bool& descending,
+                             Comp comp);
 
   template <class Comp>
-  octave_idx_type gallop_left (T key, T *a, octave_idx_type n, octave_idx_type hint,
-                               Comp comp);
+  octave_idx_type gallop_left (T key, T *a, octave_idx_type n,
+                               octave_idx_type hint, Comp comp);
 
   template <class Comp>
-  octave_idx_type gallop_right (T key, T *a, octave_idx_type n, octave_idx_type hint,
-                                Comp comp);
+  octave_idx_type gallop_right (T key, T *a, octave_idx_type n,
+                                octave_idx_type hint, Comp comp);
 
   template <class Comp>
   int merge_lo (T *pa, octave_idx_type na,
@@ -271,12 +272,10 @@
                 Comp comp);
 
   template <class Comp>
-  int merge_at (octave_idx_type i, T *data,
-                Comp comp);
+  int merge_at (octave_idx_type i, T *data, Comp comp);
 
   template <class Comp>
-  int merge_at (octave_idx_type i, T *data, octave_idx_type *idx,
-                Comp comp);
+  int merge_at (octave_idx_type i, T *data, octave_idx_type *idx, Comp comp);
 
   template <class Comp>
   int merge_collapse (T *data, Comp comp);
--- a/liboctave/util/oct-sparse.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/oct-sparse.h	Tue Nov 05 12:27:42 2013 -0500
@@ -20,8 +20,8 @@
 
 */
 
-#if !defined (oct_sparse_h)
-#define oct_sparse_h 1
+#if !defined (octave_oct_sparse_h)
+#define octave_oct_sparse_h 1
 
 #if defined (HAVE_SUITESPARSE_AMD_H)
 #include <suitesparse/amd.h>
--- a/liboctave/util/pathsearch.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/pathsearch.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -132,14 +132,14 @@
 dir_path::find_first_of (const string_vector& names)
 {
   return initialized
-    ? kpse_path_find_first_of (p, names, true) : std::string ();
+         ? kpse_path_find_first_of (p, names, true) : std::string ();
 }
 
 string_vector
 dir_path::find_all_first_of (const string_vector& names)
 {
   return initialized
-    ? kpse_all_path_find_first_of (p, names) : string_vector ();
+         ? kpse_all_path_find_first_of (p, names) : string_vector ();
 }
 
 void
--- a/liboctave/util/pathsearch.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/pathsearch.h	Tue Nov 05 12:27:42 2013 -0500
@@ -36,10 +36,10 @@
   dir_path (const std::string& s = std::string (),
             const std::string& d = std::string ())
     : p_orig (s), p_default (d), initialized (false), p (), pv ()
-    {
-      if (! p_orig.empty ())
-        init ();
-    }
+  {
+    if (! p_orig.empty ())
+      init ();
+  }
 
   dir_path (const dir_path& dp)
     : p_orig (dp.p_orig), p_default (dp.p_default),
@@ -47,23 +47,23 @@
   { }
 
   dir_path& operator = (const dir_path& dp)
-    {
-      p_orig = dp.p_orig;
-      p_default = dp.p_default;
-      initialized = dp.initialized;
-      p = dp.p;
-      pv = dp.pv;
-      return *this;
-    }
+  {
+    p_orig = dp.p_orig;
+    p_default = dp.p_default;
+    initialized = dp.initialized;
+    p = dp.p;
+    pv = dp.pv;
+    return *this;
+  }
 
   ~dir_path (void) { }
 
   void set (const std::string& s)
-    {
-      initialized = false;
-      p_orig = s;
-      init ();
-    }
+  {
+    initialized = false;
+    p_orig = s;
+    init ();
+  }
 
   string_vector elements (void);
   string_vector all_directories (void);
@@ -77,10 +77,10 @@
   string_vector find_all_first_of (const string_vector& names);
 
   void rehash (void)
-    {
-      initialized = false;
-      init ();
-    }
+  {
+    initialized = false;
+    init ();
+  }
 
   static char path_sep_char (void)
   {
--- a/liboctave/util/sparse-util.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/sparse-util.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -97,7 +97,8 @@
           if (c[j] > nnz)
             {
               (*current_liboctave_error_handler)
-                ("invalid sparse matrix: cidx[%d] = %d exceeds number of nonzero elements", j, c[j]+1);
+                ("invalid sparse matrix: cidx[%d] = %d exceeds number of nonzero elements",
+                 j, c[j]+1);
               return false;
             }
 
--- a/liboctave/util/str-vec.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/str-vec.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -39,7 +39,7 @@
 #include "lo-utils.h"
 #include "str-vec.h"
 
-// FIXME -- isn't there some STL trick that could be used to make this
+// FIXME: isn't there some STL trick that could be used to make this
 // work for all STL containers of std::string objects?
 
 string_vector::string_vector (const std::list<std::string>& lst)
--- a/liboctave/util/str-vec.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/str-vec.h	Tue Nov 05 12:27:42 2013 -0500
@@ -93,9 +93,11 @@
     Array<std::string>::resize (dim_vector (n, 1), rfv);
   }
 
-  std::string& operator[] (octave_idx_type i) { return Array<std::string>::elem (i); }
+  std::string& operator[] (octave_idx_type i)
+  { return Array<std::string>::elem (i); }
 
-  std::string operator[] (octave_idx_type i) const { return Array<std::string>::elem (i); }
+  std::string operator[] (octave_idx_type i) const
+  { return Array<std::string>::elem (i); }
 
   string_vector& sort (bool make_uniq = false);
 
--- a/liboctave/util/unwind-prot.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/unwind-prot.h	Tue Nov 05 12:27:42 2013 -0500
@@ -119,19 +119,19 @@
   unwind_protect_safe (void) : unwind_protect () { }
 
   ~unwind_protect_safe (void)
-    {
-      while (! empty ())
-        {
-          try
-            {
-              run_first ();
-            }
-          catch (...) // Yes, the black hole. Remember we're in a dtor.
-            {
-              gripe_exception ();
-            }
-        }
-    }
+  {
+    while (! empty ())
+      {
+        try
+          {
+            run_first ();
+          }
+        catch (...) // Yes, the black hole. Remember we're in a dtor.
+          {
+            gripe_exception ();
+          }
+      }
+  }
 
 private:
 
--- a/liboctave/util/url-transfer.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/url-transfer.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -67,7 +67,7 @@
         {
           ok = false;
           errmsg = "__ftp_mget__: can not create directory '"
-            + target + sep + directory + "': " + msg;
+                   + target + sep + directory + "': " + msg;
           return;
         }
     }
@@ -167,7 +167,7 @@
                 {
                   ok = false;
                   errmsg = "__ftp__mput: file '" + realfile
-                    + "' does not exist";
+                           + "' does not exist";
                   break;
                 }
 
@@ -188,7 +188,7 @@
                     {
                       ok = false;
                       errmsg = "__ftp_mput__: unable to open file '"
-                        + realfile + "'";
+                               + realfile + "'";
                       break;
                     }
 
@@ -207,7 +207,7 @@
         {
           ok = false;
           errmsg = "__ftp_mput__: can not read the directory '"
-            + realdir + "'";
+                   + realdir + "'";
         }
     }
 
--- a/liboctave/util/url-transfer.h	Wed Oct 23 22:48:29 2013 -0400
+++ b/liboctave/util/url-transfer.h	Tue Nov 05 12:27:42 2013 -0500
@@ -93,7 +93,7 @@
 
   bool is_binary (void) const { return !ascii_mode; }
 
-  virtual void cwd (const std::string& /* path */) { } 
+  virtual void cwd (const std::string& /* path */) { }
 
   virtual void del (const std::string& /* file */) { }
 
--- a/run-octave.in	Wed Oct 23 22:48:29 2013 -0400
+++ b/run-octave.in	Tue Nov 05 12:27:42 2013 -0500
@@ -78,6 +78,7 @@
   fi
 fi
 
+OCTAVE_BINDIR="$builddir/src" \
 OCTAVE_SITE_INITFILE="$top_srcdir/scripts/startup/main-rcfile" \
 OCTAVE_DEFAULT_QT_SETTINGS="$builddir/libgui/default-qt-settings" \
 OCTAVE_LOCALE_DIR="$builddir/libgui/languages" \
--- a/scripts/image/imshow.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/image/imshow.m	Tue Nov 05 12:27:42 2013 -0500
@@ -46,13 +46,13 @@
 ## @item @qcode{"displayrange"}
 ## @var{value1} is the display range as described above.
 ## 
-## @item "xdata"
+## @item @qcode{"xdata"}
 ## If @var{value1} is a two element vector, it must contain horizontal axis
 ## limits in the form [xmin xmax]; Otherwise @var{value1} must be a
 ## vector and only the first and last elements will be used for xmin and
 ## xmax respectively.
 ## 
-## @item "ydata"
+## @item @qcode{"ydata"}
 ## If @var{value1} is a two element vector, it must contain vertical axis
 ## limits in the form [ymin ymax]; Otherwise @var{value1} must be a
 ## vector and only the first and last elements will be used for ymin and
--- a/scripts/image/imwrite.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/image/imwrite.m	Tue Nov 05 12:27:42 2013 -0500
@@ -47,6 +47,28 @@
 ## dimension must be a singleton.  By default, image will be completely
 ## opaque.
 ##
+## @item DelayTime
+## For formats that accept animations (such as GIF), controls for how long a
+## frame is displayed until it moves to the next one. The value must be scalar
+## (which will applied to all frames in @var{img}), or a vector of length
+## equal to the number of frames in @var{im}.  The value is in seconds, must
+## be between 0 and 655.35, and defaults to 0.5.
+##
+## @item DisposalMethod
+## For formats that accept animations (such as GIF), controls what happens
+## to a frame before drawing the next one.  Its value can be one of the
+## following strings: "doNotSpecify" (default); "leaveInPlace"; "restoreBG";
+## and "restorePrevious", or a cell array of those string with length equal
+## to the number of frames in @var{img}.
+##
+## @item LoopCount
+## For formats that accept animations (such as GIF), controls how many times
+## the sequence is repeated.  A value of Inf means an infinite loop (default),
+## a value of 0 or 1 that the sequence is played only once (loops zero times),
+## while a value of 2 or above loops that number of times (looping twice means
+## it plays the complete sequence 3 times).  This option is ignored when there
+## is only a single image at the end of writing the file.
+##
 ## @item Quality
 ## Set the quality of the compression.  The value should be an
 ## integer between 0 and 100, with larger values indicating higher visual
--- a/scripts/image/private/__imwrite__.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/image/private/__imwrite__.m	Tue Nov 05 12:27:42 2013 -0500
@@ -42,7 +42,10 @@
 
   ## set default for options
   options = struct ("writemode", "overwrite",
+                    "disposalmethod", {repmat({"doNotSpecify"}, 1, size (img, 4))},
                     "quality",   75,
+                    "delaytime", ones (1, size (img, 4)) *500, # 0.5 seconds
+                    "loopcount", 0, ## this is actually Inf
                     "alpha",     cast ([], class (img)));
 
   for idx = 1:2:numel (param_list)
@@ -64,14 +67,71 @@
                  param_list{idx});
         endif
 
-      case "writemode",
-        options.writemode = param_list{idx+1};
-        if (! ischar (options.writemode)
-            || ! any (strcmpi (options.writemode, {"append", "overwrite"})))
-          error ('imwrite: value for %s option must be "append" or "overwrite"',
+      case "delaytime"
+        options.delaytime = param_list{idx+1};
+        if (! isnumeric (options.delaytime))
+          error ("imwrite: value for %s option must be numeric",
+                 param_list{idx});
+        endif
+        options.delaytime *= 100; # convert to 1/100ths of second
+        if (isscalar (options.delaytime))
+          options.delaytime(1:size (img, 4)) = options.delaytime;
+        elseif (size (img, 4) != numel (options.delaytime))
+          error ("imwrite: value for %s must either be a scalar or the number of frames",
+                 param_list{idx});
+        endif
+        if (any (options.delaytime(:) < 0) || any (options.delaytime(:) > 65535))
+          error ("imwrite: value for %s must be between 0 and 655.35 seconds",
                  param_list{idx});
         endif
-        options.writemode = tolower (options.writemode);
+
+      case "disposalmethod"
+        options.disposalmethod = param_list{idx+1};
+        if (! ischar (options.disposalmethod) &&
+            ! iscellstr (options.disposalmethod))
+          error ("imwrite: value for %s must be a string or cell array of strings",
+                 param_list{idx});
+        elseif (! iscell (options.disposalmethod))
+          options.disposalmethod = {options.disposalmethod};
+        endif
+        options.disposalmethod = tolower (options.disposalmethod);
+        matches = ismember (options.disposalmethod,
+                            {"donotspecify", "leaveinplace", "restorebg", "restoreprevious"});
+        if (any (! matches))
+          error ("imwrite: unknow method %s for option %s",
+                 options.disposalmethod{find (! matches, 1)},
+                 param_list{idx});
+        endif
+        if (isscalar (options.disposalmethod))
+          options.disposalmethod = repmat (options.disposalmethod, 1, size (img, 4));
+        elseif (numel (options.disposalmethod) != size (img, 4))
+          error ("imwrite: if value %s is a cell array must have same length as number of frames",
+                 param_list{idx});
+        endif
+
+      case "loopcount"
+        options.loopcount = param_list{idx+1};
+        if (! isscalar (options.loopcount) || ! isnumeric (options.loopcount)
+            || (! isinf (options.loopcount) && (options.loopcount < 0 ||
+                                                options.loopcount > 65535)))
+          error ("imwrite: value for %s must be Inf or between 0 and 65535",
+                 param_list{idx});
+        endif
+        ## Graphics Magick is a bit weird here. A value of 0 will be an
+        ## infinite loop, a value of 1, will really be no loop, while a
+        ## value of 2 or more will be that number of loops (checked
+        ## with GNOME image viewer). This means that there is no way
+        ## to make it loop only once. See
+        ## https://sourceforge.net/p/graphicsmagick/bugs/249/
+        ## There is also the problem of setting this when there is only
+        ## a single frame. See
+        ## https://sourceforge.net/p/graphicsmagick/bugs/248/
+        if (isinf (options.loopcount))
+          options.loopcount = 0;
+        elseif (options.loopcount == 0 || options.loopcount == 1)
+          options.loopcount++;
+        endif
+        options.loopcount = floor (options.loopcount);
 
       case "quality",
         options.quality = param_list{idx+1};
@@ -82,8 +142,17 @@
         endif
         options.quality = round (options.quality);
 
+      case "writemode",
+        options.writemode = param_list{idx+1};
+        if (! ischar (options.writemode)
+            || ! any (strcmpi (options.writemode, {"append", "overwrite"})))
+          error ('imwrite: value for %s option must be "append" or "overwrite"',
+                 param_list{idx});
+        endif
+        options.writemode = tolower (options.writemode);
+
       otherwise
-        error ("imwrite: invalid PARAMETER `%s'", varargin{idx});
+        error ("imwrite: invalid PARAMETER `%s'", param_list{idx});
 
     endswitch
   endfor
@@ -94,6 +163,19 @@
     elseif (ndims (img) != 2 && ndims (img) != 4)
       error ("imwrite: indexed image must have 2 or 4 dimensions (found %i)", ndims (img));
     endif
+
+    ## Fill in the colormap as required with rgb (0, 0, 0) (bug #33615)
+    nColors = rows (map);
+    if (any (strcmp (class (img), {"uint8", "uint16", "logical"})))
+      required_colors = max (img(:)) +1;
+    else
+      required_colors = max (img(:));
+    endif
+    if (nColors < required_colors)
+      warning ("imwrite: MAP has not enough colors. Filling with black");
+      map(nColors+1:required_colors,:) = 0;
+    endif
+
     ## If the image is floating point, then we convert it to integer (makes
     ## it easier in __magick_write__ since it only handles integers. Also,
     ## if it's floating point, it has an offset of 1
--- a/scripts/image/private/imwrite_filename.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/image/private/imwrite_filename.m	Tue Nov 05 12:27:42 2013 -0500
@@ -51,7 +51,6 @@
       rem (length (varargin) - filename_idx, 2) != 0 &&
       ischar (varargin{filename_idx + 1}))
     ext = varargin{filename_idx + 1};
-    filename = [filename "." ext];
     options_idx++;
   else
     [~, ~, ext] = fileparts (filename);
--- a/scripts/linear-algebra/linsolve.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/linear-algebra/linsolve.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,17 +1,19 @@
 ## Copyright (C) 2013 Nir Krakauer
 ##
-## This program is free software; you can redistribute it and/or modify
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
 ## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
 ##
 ## You should have received a copy of the GNU General Public License
-## along with this program; If not, see <http://www.gnu.org/licenses/>.
+## along with Octave; If not, see <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
 ## @deftypefn  {Function File} {@var{x} =} linsolve (@var{A}, @var{b})
--- a/scripts/miscellaneous/edit.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/miscellaneous/edit.m	Tue Nov 05 12:27:42 2013 -0500
@@ -44,14 +44,14 @@
 ## @item
 ## If @code{@var{name}.cc} is specified, then it will search for
 ## @code{@var{name}.cc} in the path and try to modify it, otherwise it will
-## create a new @file{.cc} file in the current directory. If @var{name} happens
+## create a new @file{.cc} file in the current directory.  If @var{name} happens
 ## to be an m-file or interpreter defined function, then the text of that
 ## function will be inserted into the .cc file as a comment.
 ##
 ## @item
 ## If @file{@var{name}.ext} is on your path then it will be edited, otherwise
 ## the editor will be started with @file{@var{name}.ext} in the current
-## directory as the filename. If @file{@var{name}.ext} is not modifiable,
+## directory as the filename.  If @file{@var{name}.ext} is not modifiable,
 ## it will be copied to @env{HOME} before editing.
 ##
 ## @strong{Warning:} You may need to clear @var{name} before the new definition
--- a/scripts/miscellaneous/getappdata.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/miscellaneous/getappdata.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2010-2013 Ben Abbott
 ##
-## This program is free software; you can redistribute it and/or modify
-## it under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/miscellaneous/isappdata.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/miscellaneous/isappdata.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2010-2013 Ben Abbott
 ##
-## This program is free software; you can redistribute it and/or modify
-## it under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/miscellaneous/rmappdata.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/miscellaneous/rmappdata.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2010-2013 Ben Abbott
 ##
-## This program is free software; you can redistribute it and/or modify
-## it under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/miscellaneous/setappdata.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/miscellaneous/setappdata.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2010-2013 Ben Abbott
 ##
-## This program is free software; you can redistribute it and/or modify
-## it under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/plot/util/copyobj.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/plot/util/copyobj.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2012-2013 pdiribarne
 ##
+## This file is part of Octave.
+##
 ## 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 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/plot/util/figure.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/plot/util/figure.m	Tue Nov 05 12:27:42 2013 -0500
@@ -53,12 +53,12 @@
     if (ischar (arg))
       arg = str2double (arg);
     endif
-    if (isfigure (arg))
+    if (isscalar (arg) && isfigure (arg))
       f = arg;
       init_new_figure = false;
       varargin(1) = [];
       nargs--;
-    elseif (isnumeric (arg) && isscalar (arg) && arg > 0 && arg == fix (arg))
+    elseif (isscalar (arg) && isnumeric (arg) && arg > 0 && arg == fix (arg))
       f = arg;
       init_new_figure = true;
       varargin(1) = [];
--- a/scripts/plot/util/hdl2struct.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/plot/util/hdl2struct.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2012-2013 pdiribarne
 ##
-## This program is free software; you can redistribute it and/or modify
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
 ## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/plot/util/print.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/plot/util/print.m	Tue Nov 05 12:27:42 2013 -0500
@@ -425,7 +425,13 @@
   unwind_protect_cleanup
     ## restore modified properties
     if (isstruct (props))
-      for n = 1:numel (props)
+      ## Restore figure position and units first
+      for n = 2:-1:1
+        if (ishandle (props(n).h))
+          set (props(n).h, props(n).name, props(n).value{1});
+        endif
+      endfor
+      for n = numel (props):-1:3
         if (ishandle (props(n).h))
           set (props(n).h, props(n).name, props(n).value{1});
         endif
--- a/scripts/plot/util/struct2hdl.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/plot/util/struct2hdl.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,11 +1,13 @@
 ## Copyright (C) 2012-2013 pdiribarne
 ##
-## This program is free software; you can redistribute it and/or modify
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
 ## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/polynomial/ppder.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/polynomial/ppder.m	Tue Nov 05 12:27:42 2013 -0500
@@ -13,7 +13,7 @@
 ## GNU General Public License for more details.
 ##
 ## You should have received a copy of the GNU General Public License
-## along with this software; see the file COPYING.  If not, see
+## along with Octave; see the file COPYING.  If not, see
 ## <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
--- a/scripts/polynomial/ppint.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/polynomial/ppint.m	Tue Nov 05 12:27:42 2013 -0500
@@ -7,13 +7,13 @@
 ## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
 ##
 ## You should have received a copy of the GNU General Public License
-## along with this software; see the file COPYING.  If not, see
+## along with Octave; see the file COPYING.  If not, see
 ## <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
--- a/scripts/polynomial/ppjumps.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/polynomial/ppjumps.m	Tue Nov 05 12:27:42 2013 -0500
@@ -7,13 +7,13 @@
 ## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
 ##
 ## You should have received a copy of the GNU General Public License
-## along with this software; see the file COPYING.  If not, see
+## along with Octave; see the file COPYING.  If not, see
 ## <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
--- a/scripts/signal/fftfilt.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/signal/fftfilt.m	Tue Nov 05 12:27:42 2013 -0500
@@ -25,7 +25,7 @@
 ##
 ## Given the optional third argument, @var{n}, @code{fftfilt} uses the
 ## overlap-add method to filter @var{x} with @var{b} using an N-point
-## FFT.  The FFT size must be an even power of 2 and must be greater than
+## FFT@.  The FFT size must be an even power of 2 and must be greater than
 ## or equal to the length of @var{b}.  If the specified @var{n} does not
 ## meet these criteria, it is automatically adjusted to the nearest value
 ## that does.
--- a/scripts/signal/stft.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/signal/stft.m	Tue Nov 05 12:27:42 2013 -0500
@@ -43,7 +43,7 @@
 ##
 ## The window names can be passed as strings or by the @var{win_type} number.
 ##
-## The following defaults are used for unspecifed arguments:
+## The following defaults are used for unspecified arguments:
 ## @var{win_size} = 80, @var{inc} = 24, @var{num_coef} = 64, and
 ## @var{win_type} = 1.
 ##
--- a/scripts/sparse/bicg.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/sparse/bicg.m	Tue Nov 05 12:27:42 2013 -0500
@@ -1,18 +1,20 @@
 ## Copyright (C) 2006 Sylvain Pelissier
 ## Copyright (C) 2012-2013 Carlo de Falco
 ##
-## This program is free software; you can redistribute it and/or modify
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or
+## the Free Software Foundation; either version 3 of the License, or
 ## (at your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
 ##
 ## You should have received a copy of the GNU General Public License
-## along with this program; If not, see <http://www.gnu.org/licenses/>.
+## along with Octave; If not, see <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
 ## @deftypefn  {Function File} {@var{x} =} bicg (@var{A}, @var{b}, @var{rtol}, @var{maxit}, @var{M1}, @var{M2}, @var{x0})
--- a/scripts/sparse/eigs.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/sparse/eigs.m	Tue Nov 05 12:27:42 2013 -0500
@@ -282,54 +282,57 @@
         if (real_valued && symmetric)
           [~, idx] = sort (real (d), "descend");
         else
-          error ("sigma = \"la\" requires real symmetric problem");
+          error ('sigma = "la" requires real symmetric problem');
         endif
 
       case "sa"
         if (real_valued && symmetric)
           [~, idx] = sort (real (d), "ascend");
         else
-          error ("sigma = \"sa\" requires real symmetric problem");
+          error ('sigma = "sa" requires real symmetric problem');
         endif
 
       case "be"
         if (real_valued && symmetric)
           [~, idx] = sort (real (d), "ascend");
         else
-          error ("sigma = \"be\" requires real symmetric problem");
+          error ('sigma = "be" requires real symmetric problem');
         endif
 
       case "lr"
         if (! (real_valued || symmetric))
           [~, idx] = sort (real (d), "descend");
         else
-          error ("sigma = \"lr\" requires complex or unsymmetric problem");
+          error ('sigma = "lr" requires complex or unsymmetric problem');
         endif
 
       case "sr"
         if (! (real_valued || symmetric))
           [~, idx] = sort (real (d), "ascend");
         else
-          error ("sigma = \"sr\" requires complex or unsymmetric problem");
+          error ('sigma = "sr" requires complex or unsymmetric problem');
         endif
 
       case "li"
         if (! (real_valued || symmetric))
           [~, idx] = sort (imag (d), "descend");
         else
-          error ("sigma = \"li\" requires complex or unsymmetric problem");
+          error ('sigma = "li" requires complex or unsymmetric problem');
         endif
 
       case "si"
         if (! (real_valued || symmetric))
           [~, idx] = sort (imag (d), "ascend");
         else
-          error ("sigma = \"si\" requires complex or unsymmetric problem");
+          error ('sigma = "si" requires complex or unsymmetric problem');
         endif
 
       otherwise
         error ("unrecognized value for sigma: %s", sigma);
     endswitch
+  else
+    ## numeric sigma, find k closest values
+    [~, idx] = sort (abs (d - sigma));
   endif
 
   d = d(idx);
@@ -338,7 +341,7 @@
 
   k = min (k, n);
 
-  if (strcmp (sigma, 'be'))
+  if (strcmp (sigma, "be"))
     tmp = k / 2;
     n1 = floor (tmp);
     n2 = n - ceil (tmp) + 1;
@@ -1104,7 +1107,15 @@
 %!   assert (max (abs ((A - d1(i)*eye (n))*v1(:,i))), 0, 1e-11);
 %! endfor
 
+%!test
+%! A = 2 * diag (ones (10, 1)) - diag (ones (9, 1), 1) - diag (ones (9, 1), -1);
+%! B = diag (ones (10, 1));
+%! reseig = eig (A, B);
+%! [~, idx] = sort (abs (reseig), "ascend");
+%! assert (eigs (A, B, 10, 0), reseig (idx))
+
 %!assert (eigs (diag (1:5), 5, "sa"), [1;2;3;4;5]);
 %!assert (eigs (diag (1:5), 5, "la"), [5;4;3;2;1]);
 %!assert (eigs (diag (1:5), 3, "be"), [1;4;5]);
 
+
--- a/scripts/statistics/tests/manova.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/statistics/tests/manova.m	Tue Nov 05 12:27:42 2013 -0500
@@ -32,9 +32,10 @@
 ## computed and displayed.
 ## @end deftypefn
 
-## Three test statistics (Wilks, Hotelling-Lawley, and Pillai-Bartlett)
-## and corresponding approximate p-values are calculated and displayed.
-## (Currently NOT because the fcdf respectively betai code is too bad.)
+## The Hotelling-Lawley and Pillai-Bartlett test statistics are coded.
+## However, they are currently disabled until they can be verified by someone
+## with sufficient understanding of the algorithms.  Please feel free to
+## improve this.
 
 ## Author: TF <Thomas.Fuereder@ci.tuwien.ac.at>
 ## Adapted-By: KH <Kurt.Hornik@wu-wien.ac.at>
@@ -47,13 +48,13 @@
   endif
 
   if (isvector (x))
-    error ("manova: Y must not be a vector");
+    error ("manova: X must not be a vector");
   endif
 
   [n, p] = size (x);
 
   if (!isvector (g) || (length (g) != n))
-    error ("manova: G must be a vector of length rows (Y)");
+    error ("manova: G must be a vector of length rows (X)");
   endif
 
   s = sort (g);
--- a/scripts/strings/untabify.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/strings/untabify.m	Tue Nov 05 12:27:42 2013 -0500
@@ -4,10 +4,10 @@
 ##
 ## Octave is free software; you can redistribute it and/or modify it
 ## under the terms of the GNU General Public License as published by
-## the Free Software Foundation; either version 2 of the License, or (at
+## the Free Software Foundation; either version 3 of the License, or (at
 ## your option) any later version.
 ##
-## This program is distributed in the hope that it will be useful,
+## Octave is distributed in the hope that it will be useful,
 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ## GNU General Public License for more details.
--- a/scripts/time/datestr.m	Wed Oct 23 22:48:29 2013 -0400
+++ b/scripts/time/datestr.m	Tue Nov 05 12:27:42 2013 -0500
@@ -309,9 +309,15 @@
 %!assert (datestr (testtime,11), "05")
 %!assert (datestr (testtime,12), "Dec05")
 %!assert (datestr (testtime,13), "02:33:17")
-%!assert (datestr (testtime,14), " 2:33:17 AM")
+## Mac OS X interprets %p parameter to strftime as lower case am/pm indicator.
+## Accomodate this, although no other UNIX-based OS does this.
+%!test
+%! obs = toupper (datestr (testtime,14));
+%! assert (obs, " 2:33:17 AM");
 %!assert (datestr (testtime,15), "02:33")
-%!assert (datestr (testtime,16), " 2:33 AM")
+%!test
+%! obs = toupper (datestr (testtime,16));
+%! assert (obs, " 2:33 AM");
 %!assert (datestr (testtime,17), "Q4-05")
 %!assert (datestr (testtime,18), "Q4")
 %!assert (datestr (testtime,19), "18/12")
--- a/src/Makefile.am	Wed Oct 23 22:48:29 2013 -0400
+++ b/src/Makefile.am	Tue Nov 05 12:27:42 2013 -0500
@@ -36,23 +36,47 @@
 AM_CXXFLAGS += $(WARN_CXXFLAGS)
 
 EXTRA_DIST = \
+  main.in.cc \
   mkoctfile.in.cc \
   mkoctfile.in.sh \
   octave-config.in.cc \
   octave-config.in.sh
 
-DISTCLEANFILES =
+DISTCLEANFILES = \
+  main.cc
 
 OCTAVE_BINARIES = \
   octave \
   octave-cli
 
+if AMCOND_BUILD_GUI
+  OCTAVE_BINARIES += octave-gui
+endif
+
 OCTAVE_CORE_LIBS = \
   $(top_builddir)/libinterp/liboctinterp.la \
   $(top_builddir)/liboctave/liboctave.la
 
 include ../libgui/link-deps.mk
 
+nodist_octave_SOURCES = main.cc
+
+octave_LDADD = \
+  $(top_builddir)/libgnu/libgnu.la \
+  $(GNULIB_LINK_DEPS)
+
+octave_LDFLAGS = \
+  $(NO_UNDEFINED_LDFLAG) \
+  $(OCTAVE_LINK_OPTS)
+
+if AMCOND_BUILD_GUI
+  OCTAVE_CPPFLAGS = -DHAVE_OCTAVE_GUI
+endif
+
+octave_CPPFLAGS = \
+  $(AM_CPPFLAGS) \
+  $(OCTAVE_CPPFLAGS)
+
 octave_cli_SOURCES = main-cli.cc
 
 octave_cli_LDADD = \
@@ -64,25 +88,21 @@
   $(OCTAVE_LINK_OPTS)
 
 if AMCOND_BUILD_GUI
-  octave_SOURCES = main.cc
+  octave_gui_SOURCES = main-gui.cc
   OCTAVE_GUI_LIBS = $(top_builddir)/libgui/liboctgui.la
   OCTAVE_GUI_CPPFLAGS = -I$(top_srcdir)/libgui/src
-else
-  octave_SOURCES = main-cli.cc
-  OCTAVE_GUI_LIBS =
-  OCTAVE_GUI_CPPFLAGS =
 endif
 
-octave_CPPFLAGS = \
+octave_gui_CPPFLAGS = \
   $(AM_CPPFLAGS) \
   $(OCTAVE_GUI_CPPFLAGS)
 
-octave_LDADD = \
+octave_gui_LDADD = \
   $(OCTAVE_GUI_LIBS) \
   $(OCTAVE_CORE_LIBS) \
   $(OCTAVE_GUI_LINK_DEPS)
 
-octave_LDFLAGS = \
+octave_gui_LDFLAGS = \
   $(NO_UNDEFINED_LDFLAG) \
   $(OCTAVE_GUI_LINK_OPTS)
 
@@ -131,6 +151,12 @@
 	chmod a+rx $@
 endif
 
+## main.cc must depend on Makefile.  Calling configure may change
+## default/config values.  However, calling configure will also 
+## regenerate the Makefiles from Makefile.am and trigger the rules below.
+main.cc: main.in.cc Makefile
+	@$(do_subst_default_vals)
+
 install-exec-hook: make-version-links
 
 uninstall-local: remove-version-links
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/main-gui.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -0,0 +1,44 @@
+/*
+
+Copyright (C) 2012-2013 John W. Eaton
+
+This file is part of Octave.
+
+Octave is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 3 of the License, or (at your
+option) any later version.
+
+Octave is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with Octave; see the file COPYING.  If not, see
+<http://www.gnu.org/licenses/>.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "defaults.h"
+#include "octave.h"
+#include "octave-gui.h"
+#include "sysdep.h"
+
+int
+main (int argc, char **argv)
+{
+  octave_process_command_line (argc, argv);
+
+  sysdep_init ();
+
+  install_defaults ();
+
+  bool start_gui = octave_starting_gui ();
+
+  return octave_start_gui (argc, argv, start_gui);
+}
--- a/src/main.cc	Wed Oct 23 22:48:29 2013 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,72 +0,0 @@
-/*
-
-Copyright (C) 2012-2013 John W. Eaton
-
-This file is part of Octave.
-
-Octave is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 3 of the License, or (at your
-option) any later version.
-
-Octave is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-for more details.
-
-You should have received a copy of the GNU General Public License
-along with Octave; see the file COPYING.  If not, see
-<http://www.gnu.org/licenses/>.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#include "defaults.h"
-#include "octave.h"
-#include "octave-gui.h"
-#include "sysdep.h"
-
-int
-main (int argc, char **argv)
-{
-  int retval = 0;
-
-  octave_process_command_line (argc, argv);
-
-  sysdep_init ();
-
-  install_defaults ();
-
-  if (octave_starting_gui ())
-    retval = octave_start_gui (argc, argv, octave_fork_gui ());
-  else
-    {
-      octave_initialize_interpreter (argc, argv, 0);
-
-      retval = octave_execute_interpreter ();
-    }
-
-  return retval;
-}
-
-
-/*!
-@mainpage Source code documentation for GNU Octave
-
-GNU Octave is a high-level language, primarily intended for numerical
-computations.  It provides a convenient interactive command line
-interface for solving linear and nonlinear problems numerically, and
-for performing other numerical experiments.  It may also be used as a
-batch-oriented language for data processing.
-
-GNU Octave is free software. You may redistribute it and/or modify it
-under the terms of the <a href="http://www.gnu.org/licenses/">GNU
-General Public License</a> as published by the Free Software Foundation.
-
-This is the developer documentation for Octave's own source code. It is
-intended to help for hacking Octave. It may also be useful for
-understanding the Octave API when writing your own .oct files.
-*/
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/main.in.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -0,0 +1,527 @@
+// %NO_EDIT_WARNING%
+/*
+
+Copyright (C) 2012-2013 John W. Eaton
+
+This file is part of Octave.
+
+Octave is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 3 of the License, or (at your
+option) any later version.
+
+Octave is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with Octave; see the file COPYING.  If not, see
+<http://www.gnu.org/licenses/>.
+
+*/
+
+// NOTE: This program is supposed to be a small wrapper that exists
+// primarily to give up the controlling TTY and then exec Octave with
+// its GUI.  It may also execute Octave without the GUI or the command
+// line version of Octave that is not linked with GUI libraries.  So
+// that it remains small, it should NOT depend on or be linked with
+// liboctave or libinterp.
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <cstdlib>
+#include <cstring>
+
+#include <algorithm>
+#include <iostream>
+#include <string>
+
+#include <sys/types.h>
+#include <unistd.h>
+
+#if defined (__WIN32__) && ! defined (_POSIX_VERSION)
+
+#define WIN32_LEAN_AND_MEAN
+#include <tlhelp32.h>
+
+static std::string
+w32_get_octave_home (void)
+{
+  std::string retval;
+
+  std::string bin_dir;
+
+  HANDLE h = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE
+#ifdef TH32CS_SNAPMODULE32
+                                       | TH32CS_SNAPMODULE32
+#endif
+                                       , 0);
+
+  if (h != INVALID_HANDLE_VALUE)
+    {
+      MODULEENTRY32 mod_info;
+
+      ZeroMemory (&mod_info, sizeof (mod_info));
+      mod_info.dwSize = sizeof (mod_info);
+
+      if (Module32First (h, &mod_info))
+        {
+          do
+            {
+              std::string mod_name (mod_info.szModule);
+
+              if (mod_name.find ("octave") != std::string::npos)
+                {
+                  bin_dir = mod_info.szExePath;
+
+                  if (bin_dir[bin_dir.length () - 1] != '\\')
+                    bin_dir.append (1, '\\');
+
+                  break;
+                }
+            }
+          while (Module32Next (h, &mod_info));
+        }
+
+      CloseHandle (h);
+    }
+
+  if (! bin_dir.empty ())
+    {
+      size_t pos = bin_dir.rfind ("\\bin\\");
+
+      if (pos != std::string::npos)
+        retval = bin_dir.substr (0, pos);
+    }
+
+  return retval;
+}
+
+#endif
+
+#if (defined (HAVE_OCTAVE_GUI) \
+     && ! defined (__WIN32__) || defined (__CYGWIN__))
+
+#include <signal.h>
+#include <fcntl.h>
+
+// This is a liboctave header, but it doesn't include any other Octave
+// headers or declare any functions that are defined in liboctave.
+#include "syswait.h"
+
+typedef void sig_handler (int);
+
+// Forward signals to the GUI process.
+
+static pid_t gui_pid = 0;
+
+static void
+gui_driver_sig_handler (int sig)
+{
+  if (gui_pid > 0)
+    kill (gui_pid, sig);
+}
+
+static sig_handler *
+octave_set_signal_handler (int sig, sig_handler *handler)
+{
+  struct sigaction act, oact;
+
+  act.sa_handler = handler;
+  act.sa_flags = 0;
+
+  gnulib::sigemptyset (&act.sa_mask);
+  gnulib::sigemptyset (&oact.sa_mask);
+
+  gnulib::sigaction (sig, &act, &oact);
+
+  return oact.sa_handler;
+}
+
+static void
+install_signal_handlers (void)
+{
+
+#ifdef SIGINT
+  octave_set_signal_handler (SIGINT, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGBREAK
+  octave_set_signal_handler (SIGBREAK, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGABRT
+  octave_set_signal_handler (SIGABRT, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGALRM
+  octave_set_signal_handler (SIGALRM, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGBUS
+  octave_set_signal_handler (SIGBUS, gui_driver_sig_handler);
+#endif
+
+  // SIGCHLD
+  // SIGCLD
+  // SIGCONT
+
+#ifdef SIGEMT
+  octave_set_signal_handler (SIGEMT, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGFPE
+  octave_set_signal_handler (SIGFPE, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGHUP
+  octave_set_signal_handler (SIGHUP, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGILL
+  octave_set_signal_handler (SIGILL, gui_driver_sig_handler);
+#endif
+
+  // SIGINFO
+  // SIGINT
+
+#ifdef SIGIOT
+  octave_set_signal_handler (SIGIOT, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGLOST
+  octave_set_signal_handler (SIGLOST, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGPIPE
+  octave_set_signal_handler (SIGPIPE, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGPOLL
+  octave_set_signal_handler (SIGPOLL, gui_driver_sig_handler);
+#endif
+
+  // SIGPROF
+  // SIGPWR
+
+#ifdef SIGQUIT
+  octave_set_signal_handler (SIGQUIT, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGSEGV
+  octave_set_signal_handler (SIGSEGV, gui_driver_sig_handler);
+#endif
+
+  // SIGSTOP
+
+#ifdef SIGSYS
+  octave_set_signal_handler (SIGSYS, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGTERM
+  octave_set_signal_handler (SIGTERM, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGTRAP
+  octave_set_signal_handler (SIGTRAP, gui_driver_sig_handler);
+#endif
+
+  // SIGTSTP
+  // SIGTTIN
+  // SIGTTOU
+  // SIGURG
+
+#ifdef SIGUSR1
+  octave_set_signal_handler (SIGUSR1, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGUSR2
+  octave_set_signal_handler (SIGUSR2, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGVTALRM
+  octave_set_signal_handler (SIGVTALRM, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGIO
+  octave_set_signal_handler (SIGIO, gui_driver_sig_handler);
+#endif
+
+  // SIGWINCH
+
+#ifdef SIGXCPU
+  octave_set_signal_handler (SIGXCPU, gui_driver_sig_handler);
+#endif
+
+#ifdef SIGXFSZ
+  octave_set_signal_handler (SIGXFSZ, gui_driver_sig_handler);
+#endif
+
+}
+
+static bool
+have_controlling_terminal (void)
+{
+  int retval = false;
+
+#if defined (HAVE_CTERMID)
+  const char *ctty = ctermid (0);
+#else
+  const char *ctty = "/dev/tty";
+#endif
+
+  int fd = gnulib::open (ctty, O_RDWR, 0);
+
+  if (fd >= 0)
+    {
+      gnulib::close (fd);
+
+      retval = true;
+    }
+
+  return retval;
+}
+
+#endif
+
+#ifndef OCTAVE_BINDIR
+#define OCTAVE_BINDIR %OCTAVE_BINDIR%
+#endif
+
+#ifndef OCTAVE_PREFIX
+#define OCTAVE_PREFIX %OCTAVE_PREFIX%
+#endif
+
+// Find the directory where the octave binary is supposed to be
+// installed.
+
+#if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) \
+     && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM))
+static const char dir_sep_char = '\\';
+#else
+static const char dir_sep_char = '/';
+#endif
+
+static std::string
+octave_getenv (const std::string& name)
+{
+  char *value = ::getenv (name.c_str ());
+
+  return value ? value : "";
+}
+
+static std::string
+get_octave_home (void)
+{
+  std::string oh = octave_getenv ("OCTAVE_HOME");
+
+#if defined (__WIN32__) && ! defined (_POSIX_VERSION)
+  if (oh.empty ())
+    oh = w32_get_octave_home ();
+#endif
+
+  return oh.empty () ? std::string (OCTAVE_PREFIX) : oh;
+}
+
+static std::string
+subst_octave_home (const std::string& s)
+{
+  std::string retval;
+
+  std::string octave_home = get_octave_home ();
+
+  std::string prefix = OCTAVE_PREFIX;
+
+  retval = s;
+
+  if (octave_home != prefix)
+    {
+      octave_idx_type len = prefix.length ();
+
+      if (s.substr (0, len) == prefix)
+        retval.replace (0, len, octave_home);
+    }
+
+  if (dir_sep_char != '/')
+    std::replace (retval.begin (), retval.end (), '/', dir_sep_char);
+
+  return retval;
+}
+
+static std::string
+get_octave_bindir (void)
+{
+  // Accept value from the environment literally, but substitute
+  // OCTAVE_HOME in the configuration value OCTAVE_BINDIR in case Octave
+  // has been relocated to some installation directory other than the
+  // one originally configured.
+
+  std::string obd = octave_getenv ("OCTAVE_BINDIR");
+
+  return obd.empty () ? subst_octave_home (std::string (OCTAVE_BINDIR)) : obd;
+}
+
+static int
+octave_exec (const std::string& file, char **argv)
+{
+  execv (file.c_str (), argv);
+
+  std::cerr << "octave: failed to exec '" << file << "'" << std::endl;
+
+  return 1;
+}
+
+static char *
+strsave (const char *s)
+{
+  if (! s)
+    return 0;
+
+  int len = strlen (s);
+  char *tmp = new char [len+1];
+  tmp = strcpy (tmp, s);
+  return tmp;
+}
+
+int
+main (int argc, char **argv)
+{
+  int retval = 0;
+
+#if (defined (HAVE_OCTAVE_GUI) \
+     && (! defined (__WIN32__) || defined (__CYGWIN__)))
+  bool start_gui = true;
+  bool gui_libs = true;
+#endif
+
+  std::string octave_bindir = get_octave_bindir ();
+
+  std::string file = octave_bindir + dir_sep_char;
+
+#if defined (HAVE_OCTAVE_GUI)
+  file += "octave-gui";
+#else
+  file += "octave-cli";
+#endif
+
+  char **new_argv = new char * [argc + 1];
+
+  int k = 0;
+  new_argv[k++] = strsave ("octave");
+
+  for (int i = 1; i < argc; i++)
+    {
+      if (! strcmp (argv[i], "--no-gui-libs"))
+        {
+          // Run the version of Octave that is not linked with any GUI
+          // libraries.  It may not be possible to do plotting or any
+          // ui* calls, but it will be a little faster to start and
+          // require less memory.  Don't pass the --no-gui-libs option
+          // on as that option is not recognized by Octave.
+
+#if (defined (HAVE_OCTAVE_GUI) \
+     && ! defined (__WIN32__) || defined (__CYGWIN__))
+          gui_libs = false;
+#endif
+          file = octave_bindir + dir_sep_char + "octave-cli";
+        }
+      else if (! strcmp (argv[i], "--no-gui"))
+        {
+          // If we see this option, then we can just exec octave; we
+          // don't have to create a child process and wait for it to
+          // exit.  But do exec "octave", not "octave-cli", because even
+          // if the --no-gui option is given, we may be asked to do some
+          // plotting or ui* calls.
+
+#if (defined (HAVE_OCTAVE_GUI) \
+     && ! defined (__WIN32__) || defined (__CYGWIN__))
+          start_gui = false;
+#endif
+          new_argv[k++] = argv[i];
+        }
+      else
+        new_argv[k++] = argv[i];
+    }
+
+  new_argv[k] = 0;
+
+#if (defined (HAVE_OCTAVE_GUI) \
+     && ! defined (__WIN32__) || defined (__CYGWIN__))
+
+  if (gui_libs && start_gui && have_controlling_terminal ())
+    {
+      install_signal_handlers ();
+
+      gui_pid = fork ();
+
+      if (gui_pid < 0)
+        {
+          std::cerr << "octave: fork failed!" << std::endl;
+
+          retval = 1;
+        }
+      else if (gui_pid == 0)
+        {
+          // Child.
+
+          if (setsid () < 0)
+            {
+              std::cerr << "octave: error calling setsid!" << std::endl;
+
+              retval = 1;
+            }
+
+          retval = octave_exec (file, new_argv);
+        }
+      else
+        {
+          // Parent.  Forward signals to the child while waiting for it
+          // to exit.
+
+          int status;
+
+          while (1)
+            {
+              WAITPID (gui_pid, &status, 0);
+
+              if (WIFEXITED (status))
+                {
+                  retval = WIFEXITED (status) ? WEXITSTATUS (status) : 127;
+
+                  break;
+                }
+            }
+        }
+    }
+  else
+    retval = octave_exec (file, new_argv);
+
+#else
+
+  retval = octave_exec (file, new_argv);
+
+#endif
+
+  return retval;
+}
+
+/*!
+@mainpage Source code documentation for GNU Octave
+
+GNU Octave is a high-level language, primarily intended for numerical
+computations.  It provides a convenient interactive command line
+interface for solving linear and nonlinear problems numerically, and
+for performing other numerical experiments.  It may also be used as a
+batch-oriented language for data processing.
+
+GNU Octave is free software. You may redistribute it and/or modify it
+under the terms of the <a href="http://www.gnu.org/licenses/">GNU
+General Public License</a> as published by the Free Software Foundation.
+
+This is the developer documentation for Octave's own source code. It is
+intended to help for hacking Octave. It may also be useful for
+understanding the Octave API when writing your own .oct files.
+*/
--- a/src/mkoctfile.in.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/src/mkoctfile.in.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -187,11 +187,11 @@
 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
   string DEFAULT_INCFLAGS
     = "-I" + quote_path (vars["OCTINCLUDEDIR"] + "\\..")
-    + " -I" + quote_path (vars["OCTINCLUDEDIR"]);
+      + " -I" + quote_path (vars["OCTINCLUDEDIR"]);
 #else
   string DEFAULT_INCFLAGS
     = "-I" + quote_path (vars["OCTINCLUDEDIR"] + "/..")
-    + " -I" + quote_path (vars["OCTINCLUDEDIR"]);
+      + " -I" + quote_path (vars["OCTINCLUDEDIR"]);
 #endif
   if (vars["INCLUDEDIR"] != "/usr/include")
     DEFAULT_INCFLAGS += " -I" + quote_path (vars["INCLUDEDIR"]);
@@ -212,55 +212,65 @@
   vars["CXXFLAGS"] = get_variable ("CXXFLAGS", %OCTAVE_CONF_CXXFLAGS%);
   vars["CXXPICFLAG"] = get_variable ("CXXPICFLAG", %OCTAVE_CONF_CXXPICFLAG%);
   vars["XTRA_CFLAGS"] = get_variable ("XTRA_CFLAGS", %OCTAVE_CONF_XTRA_CFLAGS%);
-  vars["XTRA_CXXFLAGS"] = get_variable ("XTRA_CXXFLAGS", %OCTAVE_CONF_XTRA_CXXFLAGS%);
+  vars["XTRA_CXXFLAGS"] = get_variable ("XTRA_CXXFLAGS",
+                                        %OCTAVE_CONF_XTRA_CXXFLAGS%);
 
   vars["AR"] = get_variable ("AR", %OCTAVE_CONF_MKOCTFILE_AR%);
   vars["RANLIB"] = get_variable ("RANLIB", %OCTAVE_CONF_MKOCTFILE_RANLIB%);
 
-  vars["DEPEND_FLAGS"] = get_variable ("DEPEND_FLAGS", %OCTAVE_CONF_DEPEND_FLAGS%);
-  vars["DEPEND_EXTRA_SED_PATTERN"] = get_variable ("DEPEND_EXTRA_SED_PATTERN", %OCTAVE_CONF_DEPEND_EXTRA_SED_PATTERN%);
+  vars["DEPEND_FLAGS"] = get_variable ("DEPEND_FLAGS",
+                                       %OCTAVE_CONF_DEPEND_FLAGS%);
+  vars["DEPEND_EXTRA_SED_PATTERN"] = get_variable ("DEPEND_EXTRA_SED_PATTERN",
+                                       %OCTAVE_CONF_DEPEND_EXTRA_SED_PATTERN%);
 
   vars["DL_LD"] = get_variable ("DL_LD", %OCTAVE_CONF_MKOCTFILE_DL_LD%);
-  vars["DL_LDFLAGS"] = get_variable ("DL_LDFLAGS", %OCTAVE_CONF_MKOCTFILE_DL_LDFLAGS%);
+  vars["DL_LDFLAGS"] = get_variable ("DL_LDFLAGS",
+                                     %OCTAVE_CONF_MKOCTFILE_DL_LDFLAGS%);
 
-  vars["RDYNAMIC_FLAG"] = get_variable ("RDYNAMIC_FLAG", %OCTAVE_CONF_RDYNAMIC_FLAG%);
+  vars["RDYNAMIC_FLAG"] = get_variable ("RDYNAMIC_FLAG",
+                                        %OCTAVE_CONF_RDYNAMIC_FLAG%);
   vars["LIBOCTAVE"] = "-loctave";
   vars["LIBOCTINTERP"] = "-loctinterp";
   vars["READLINE_LIBS"] = "-lreadline";
   vars["LAPACK_LIBS"] = get_variable ("LAPACK_LIBS", %OCTAVE_CONF_LAPACK_LIBS%);
   vars["BLAS_LIBS"] = get_variable ("BLAS_LIBS", %OCTAVE_CONF_BLAS_LIBS%);
-  vars["FFTW3_LDFLAGS"] = get_variable ("FFTW3_LDFLAGS", %OCTAVE_CONF_FFTW3_LDFLAGS%);
+  vars["FFTW3_LDFLAGS"] = get_variable ("FFTW3_LDFLAGS",
+                                        %OCTAVE_CONF_FFTW3_LDFLAGS%);
   vars["FFTW3_LIBS"] = get_variable ("FFTW3_LIBS", %OCTAVE_CONF_FFTW3_LIBS%);
-  vars["FFTW3F_LDFLAGS"] = get_variable ("FFTW3F_LDFLAGS", %OCTAVE_CONF_FFTW3F_LDFLAGS%);
+  vars["FFTW3F_LDFLAGS"] = get_variable ("FFTW3F_LDFLAGS",
+                                         %OCTAVE_CONF_FFTW3F_LDFLAGS%);
   vars["FFTW3F_LIBS"] = get_variable ("FFTW3F_LIBS", %OCTAVE_CONF_FFTW3F_LIBS%);
   vars["LIBS"] = get_variable ("LIBS", %OCTAVE_CONF_LIBS%);
   vars["FLIBS"] = get_variable ("FLIBS", %OCTAVE_CONF_FLIBS%);
-  vars["OCTAVE_LINK_DEPS"] = get_variable ("FLIBS", %OCTAVE_CONF_OCTAVE_LINK_DEPS%);
+  vars["OCTAVE_LINK_DEPS"] = get_variable ("FLIBS",
+                                           %OCTAVE_CONF_OCTAVE_LINK_DEPS%);
   vars["OCT_LINK_DEPS"] = get_variable ("FLIBS", %OCTAVE_CONF_OCT_LINK_DEPS%);
   vars["FLIBS"] = get_variable ("FLIBS", %OCTAVE_CONF_FLIBS%);
 
   vars["LD_CXX"] = get_variable ("LD_CXX", %OCTAVE_CONF_MKOCTFILE_LD_CXX%);
   vars["LDFLAGS"] = get_variable ("LDFLAGS", %OCTAVE_CONF_LDFLAGS%);
-  vars["LD_STATIC_FLAG"] = get_variable ("LD_STATIC_FLAG", %OCTAVE_CONF_LD_STATIC_FLAG%);
+  vars["LD_STATIC_FLAG"] = get_variable ("LD_STATIC_FLAG",
+                                         %OCTAVE_CONF_LD_STATIC_FLAG%);
   vars["LFLAGS"] = get_variable ("LFLAGS", DEFAULT_LFLAGS);
-  vars["F77_INTEGER8_FLAG"] = get_variable ("F77_INTEGER8_FLAG", %OCTAVE_CONF_F77_INTEGER_8_FLAG%);
+  vars["F77_INTEGER8_FLAG"] = get_variable ("F77_INTEGER8_FLAG",
+                                            %OCTAVE_CONF_F77_INTEGER_8_FLAG%);
 
   vars["ALL_FFLAGS"] = vars["FFLAGS"] + " " + vars["F77_INTEGER8_FLAG"];
 
-  vars["ALL_CFLAGS"] = vars["INCFLAGS"] + " " + vars["XTRA_CFLAGS"]
-    + " " + vars["CFLAGS"];
+  vars["ALL_CFLAGS"] = vars["INCFLAGS"] + " " + vars["XTRA_CFLAGS"] + " "
+                       + vars["CFLAGS"];
 
-  vars["ALL_CXXFLAGS"] = vars["INCFLAGS"] + " " + vars["XTRA_CXXFLAGS"]
-    + " " + vars["CXXFLAGS"];
+  vars["ALL_CXXFLAGS"] = vars["INCFLAGS"] + " " + vars["XTRA_CXXFLAGS"] + " "
+                         + vars["CXXFLAGS"];
 
-  vars["ALL_LDFLAGS"] = vars["LD_STATIC_FLAG"] + " " + vars["CPICFLAG"]
-    + " " + vars["LDFLAGS"];
+  vars["ALL_LDFLAGS"] = vars["LD_STATIC_FLAG"] + " " + vars["CPICFLAG"] + " "
+                        + vars["LDFLAGS"];
 
-  vars["OCTAVE_LIBS"] = vars["LIBOCTINTERP"] + " " + vars["LIBOCTAVE"]
-    + " " + vars["SPECIAL_MATH_LIB"];
+  vars["OCTAVE_LIBS"] = vars["LIBOCTINTERP"] + " " + vars["LIBOCTAVE"] + " "
+                        + vars["SPECIAL_MATH_LIB"];
 
-  vars["FFTW_LIBS"] = vars["FFTW3_LDFLAGS"] + " " + vars["FFTW3_LIBS"]
-    + " " + vars["FFTW3F_LDFLAGS"] + " " + vars["FFTW3F_LIBS"];
+  vars["FFTW_LIBS"] = vars["FFTW3_LDFLAGS"] + " " + vars["FFTW3_LIBS"] + " "
+                      + vars["FFTW3F_LDFLAGS"] + " " + vars["FFTW3F_LIBS"];
 }
 
 static string usage_msg = "usage: mkoctfile [options] file ...";
@@ -611,8 +621,8 @@
 
           unlink (dfile.c_str ());
           string cmd = vars["CC"] + " " + vars["DEPEND_FLAGS"] + " "
-            + vars["CPPFLAGS"] + " " + vars["ALL_CFLAGS"] + " "
-            + incflags  + " " + defs + " " + quote_path (f);
+                       + vars["CPPFLAGS"] + " " + vars["ALL_CFLAGS"] + " "
+                       + incflags  + " " + defs + " " + quote_path (f);
 
           FILE *fd = popen (cmd.c_str (), "r");
           ofstream fo (dfile.c_str ());
@@ -623,8 +633,11 @@
               if ((pos = line.rfind (".o:")) != string::npos)
                 {
                   size_t spos = line.rfind ('/', pos);
-                  string ofile = (spos == string::npos ? line.substr (0, pos+2) : line.substr (spos+1, pos-spos+1));
-                  fo << "pic/" << ofile << " " << ofile << " " << dfile << line.substr (pos) << endl;
+                  string ofile =
+                    (spos == string::npos ? line.substr (0, pos+2)
+                                          : line.substr (spos+1, pos-spos+1));
+                  fo << "pic/" << ofile << " " << ofile << " "
+                     << dfile << line.substr (pos) << endl;
                 }
               else
                 fo << line << endl;
@@ -639,8 +652,8 @@
 
           unlink (dfile.c_str ());
           string cmd = vars["CC"] + " " + vars["DEPEND_FLAGS"] + " "
-            + vars["CPPFLAGS"] + " " + vars["ALL_CXXFLAGS"] + " "
-            + incflags  + " " + defs + " " + quote_path (f);
+                       + vars["CPPFLAGS"] + " " + vars["ALL_CXXFLAGS"] + " "
+                       + incflags  + " " + defs + " " + quote_path (f);
 
           FILE *fd = popen (cmd.c_str (), "r");
           ofstream fo (dfile.c_str ());
@@ -651,8 +664,11 @@
               if ((pos = line.rfind (".o:")) != string::npos)
                 {
                   size_t spos = line.rfind ('/', pos);
-                  string ofile = (spos == string::npos ? line.substr (0, pos+2) : line.substr (spos+1, pos-spos+1));
-                  fo << "pic/" << ofile << " " << ofile << " " << dfile << line.substr (pos+2) << endl;
+                  string ofile =
+                    (spos == string::npos ? line.substr (0, pos+2)
+                                          : line.substr (spos+1, pos-spos+1));
+                  fo << "pic/" << ofile << " " << ofile << " "
+                     << dfile << line.substr (pos+2) << endl;
                 }
               else
                 fo << line << endl;
@@ -681,8 +697,8 @@
             o = b + ".o";
           objfiles += (" " + o);
           string cmd = vars["F77"] + " -c " + vars["FPICFLAG"] + " "
-            + vars["ALL_FFLAGS"] + " " + incflags + " " + defs + " "
-            + pass_on_options + " " + f + " -o " + o;
+                       + vars["ALL_FFLAGS"] + " " + incflags + " " + defs + " "
+                       + pass_on_options + " " + f + " -o " + o;
           result = run_command (cmd);
         }
       else
@@ -709,9 +725,9 @@
             o = b + ".o";
           objfiles += (" " + o);
           string cmd = vars["CC"] + " -c " + vars["CPPFLAGS"] + " "
-            + vars["CPICFLAG"] + " " + vars["ALL_CFLAGS"] + " "
-            + pass_on_options + " " + incflags + " " + defs + " "
-            + quote_path (f) + " -o " + quote_path (o);
+                       + vars["CPICFLAG"] + " " + vars["ALL_CFLAGS"] + " "
+                       + pass_on_options + " " + incflags + " " + defs + " "
+                       + quote_path (f) + " -o " + quote_path (o);
           result = run_command (cmd);
         }
       else
@@ -738,9 +754,9 @@
             o = b + ".o";
           objfiles += (" " + o);
           string cmd = vars["CXX"] + " -c " + vars["CPPFLAGS"] + " "
-            + vars["CXXPICFLAG"] + " " + vars["ALL_CXXFLAGS"] + " "
-            + pass_on_options + " " + incflags + " " + defs + " "
-            + quote_path (f) + " -o " + quote_path (o);
+                       + vars["CXXPICFLAG"] + " " + vars["ALL_CXXFLAGS"] + " "
+                       + pass_on_options + " " + incflags + " " + defs + " "
+                       + quote_path (f) + " -o " + quote_path (o);
           result = run_command (cmd);
         }
       else
@@ -757,13 +773,14 @@
           if (!vars["LD_CXX"].empty ())
             {
               string cmd = vars["LD_CXX"] + " " + vars["CPPFLAGS"] + " "
-                + vars["ALL_CXXFLAGS"] + " " + vars["RDYNAMIC_FLAG"]
-                + " " + vars["ALL_LDFLAGS"] + " " +  pass_on_options
-                + " " + output_option + " " + objfiles + " " + libfiles
-                + " " + ldflags + " " + vars["LFLAGS"]
-                + " -loctinterp -loctave "
-                + " " + vars["OCT_LINK_OPTS"]
-                + " " + vars["OCTAVE_LINK_DEPS"];
+                           + vars["ALL_CXXFLAGS"] + " " + vars["RDYNAMIC_FLAG"]
+                           + " " + vars["ALL_LDFLAGS"] + " "
+                           + pass_on_options + " " + output_option + " "
+                           + objfiles + " " + libfiles + " "
+                           + ldflags + " " + vars["LFLAGS"]
+                           + " -loctinterp -loctave "
+                           + " " + vars["OCT_LINK_OPTS"]
+                           + " " + vars["OCTAVE_LINK_DEPS"];
               result = run_command (cmd);
             }
           else
@@ -776,10 +793,11 @@
       else
         {
           string cmd = vars["DL_LD"] + " " + vars["DL_LDFLAGS"] + " "
-            + pass_on_options + " -o " + octfile + " " + objfiles + " "
-            + libfiles + " " + ldflags + " " + vars["LFLAGS"]
-            + " -loctinterp -loctave "
-            + vars["OCT_LINK_OPTS"] + " " + vars["OCT_LINK_DEPS"];
+                       + pass_on_options + " -o " + octfile + " "
+                       + objfiles + " " + libfiles + " "
+                       + ldflags + " " + vars["LFLAGS"]
+                       + " -loctinterp -loctave "
+                       + vars["OCT_LINK_OPTS"] + " " + vars["OCT_LINK_DEPS"];
           result = run_command (cmd);
         }
 
--- a/src/octave-config.in.cc	Wed Oct 23 22:48:29 2013 -0400
+++ b/src/octave-config.in.cc	Tue Nov 05 12:27:42 2013 -0500
@@ -76,7 +76,7 @@
 
 static std::string
 substitute_prefix (const std::string& s, const std::string& prefix,
-		   const std::string new_prefix)
+                   const std::string new_prefix)
 {
   std::string retval = s;
 
@@ -84,7 +84,7 @@
     {
       int len = prefix.length ();
       if (retval.find (prefix) == 0)
-	retval.replace (0, len, new_prefix);
+        retval.replace (0, len, new_prefix);
     }
 
 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
@@ -116,15 +116,15 @@
       int status = GetModuleFileName (0, &bin_dir[0], n);
 
       if (status < n)
-	{
-	  bin_dir.resize (status);
-	  break;
-	}
+        {
+          bin_dir.resize (status);
+          break;
+        }
       else
-	{
-	  n *= 2;
-	  bin_dir.resize (n);
-	}
+        {
+          n *= 2;
+          bin_dir.resize (n);
+        }
     }
 
   if (! bin_dir.empty ())
@@ -132,43 +132,63 @@
       size_t pos = bin_dir.rfind ("\\bin\\");
 
       if (pos != std::string::npos)
-	OCTAVE_HOME = bin_dir.substr (0, pos);
+        OCTAVE_HOME = bin_dir.substr (0, pos);
     }
 #endif
 
   vars["API_VERSION"] = %OCTAVE_API_VERSION%;
   vars["CANONICAL_HOST_TYPE"] = %OCTAVE_CANONICAL_HOST_TYPE%;
   vars["DEFAULT_PAGER"] = %OCTAVE_DEFAULT_PAGER%;
-  vars["ARCHLIBDIR"] = substitute_prefix (%OCTAVE_ARCHLIBDIR%, PREFIX, OCTAVE_HOME);
+  vars["ARCHLIBDIR"] = substitute_prefix (%OCTAVE_ARCHLIBDIR%,
+                                          PREFIX, OCTAVE_HOME);
   vars["BINDIR"] = substitute_prefix (%OCTAVE_BINDIR%, PREFIX, OCTAVE_HOME);
-  vars["DATADIR"] =substitute_prefix (%OCTAVE_DATADIR%, PREFIX, OCTAVE_HOME);
-  vars["DATAROOTDIR"] =substitute_prefix (%OCTAVE_DATAROOTDIR%, PREFIX, OCTAVE_HOME);
-  vars["EXEC_PREFIX"] =substitute_prefix (%OCTAVE_EXEC_PREFIX%, PREFIX, OCTAVE_HOME);
-  vars["FCNFILEDIR"] =substitute_prefix (%OCTAVE_FCNFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["IMAGEDIR"] =substitute_prefix (%OCTAVE_IMAGEDIR%, PREFIX, OCTAVE_HOME);
-  vars["INCLUDEDIR"] =substitute_prefix (%OCTAVE_INCLUDEDIR%, PREFIX, OCTAVE_HOME);
-  vars["INFODIR"] =substitute_prefix (%OCTAVE_INFODIR%, PREFIX, OCTAVE_HOME);
-  vars["INFOFILE"] =substitute_prefix (%OCTAVE_INFOFILE%, PREFIX, OCTAVE_HOME);
-  vars["LIBDIR"] =substitute_prefix (%OCTAVE_LIBDIR%, PREFIX, OCTAVE_HOME);
-  vars["LIBEXECDIR"] =substitute_prefix (%OCTAVE_LIBEXECDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALAPIARCHLIBDIR"] =substitute_prefix (%OCTAVE_LOCALAPIARCHLIBDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALAPIFCNFILEDIR"] =substitute_prefix (%OCTAVE_LOCALAPIFCNFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALAPIOCTFILEDIR"] =substitute_prefix (%OCTAVE_LOCALAPIOCTFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALARCHLIBDIR"] =substitute_prefix (%OCTAVE_LOCALARCHLIBDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALFCNFILEDIR"] =substitute_prefix (%OCTAVE_LOCALFCNFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALOCTFILEDIR"] =substitute_prefix (%OCTAVE_LOCALOCTFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALSTARTUPFILEDIR"] =substitute_prefix (%OCTAVE_LOCALSTARTUPFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALVERARCHLIBDIR"] =substitute_prefix (%OCTAVE_LOCALVERARCHLIBDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALVERFCNFILEDIR"] =substitute_prefix (%OCTAVE_LOCALVERFCNFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["LOCALVEROCTFILEDIR"] =substitute_prefix (%OCTAVE_LOCALVEROCTFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["MAN1DIR"] =substitute_prefix (%OCTAVE_MAN1DIR%, PREFIX, OCTAVE_HOME);
+  vars["DATADIR"] = substitute_prefix (%OCTAVE_DATADIR%, PREFIX, OCTAVE_HOME);
+  vars["DATAROOTDIR"] = substitute_prefix (%OCTAVE_DATAROOTDIR%,
+                                           PREFIX, OCTAVE_HOME);
+  vars["EXEC_PREFIX"] = substitute_prefix (%OCTAVE_EXEC_PREFIX%,
+                                           PREFIX, OCTAVE_HOME);
+  vars["FCNFILEDIR"] = substitute_prefix (%OCTAVE_FCNFILEDIR%,
+                                          PREFIX, OCTAVE_HOME);
+  vars["IMAGEDIR"] = substitute_prefix (%OCTAVE_IMAGEDIR%, PREFIX, OCTAVE_HOME);
+  vars["INCLUDEDIR"] = substitute_prefix (%OCTAVE_INCLUDEDIR%,
+                                          PREFIX, OCTAVE_HOME);
+  vars["INFODIR"] = substitute_prefix (%OCTAVE_INFODIR%, PREFIX, OCTAVE_HOME);
+  vars["INFOFILE"] = substitute_prefix (%OCTAVE_INFOFILE%, PREFIX, OCTAVE_HOME);
+  vars["LIBDIR"] = substitute_prefix (%OCTAVE_LIBDIR%, PREFIX, OCTAVE_HOME);
+  vars["LIBEXECDIR"] = substitute_prefix (%OCTAVE_LIBEXECDIR%,
+                                          PREFIX, OCTAVE_HOME);
+  vars["LOCALAPIARCHLIBDIR"] = substitute_prefix (%OCTAVE_LOCALAPIARCHLIBDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["LOCALAPIFCNFILEDIR"] = substitute_prefix (%OCTAVE_LOCALAPIFCNFILEDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["LOCALAPIOCTFILEDIR"] = substitute_prefix (%OCTAVE_LOCALAPIOCTFILEDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["LOCALARCHLIBDIR"] = substitute_prefix (%OCTAVE_LOCALARCHLIBDIR%,
+                                               PREFIX, OCTAVE_HOME);
+  vars["LOCALFCNFILEDIR"] = substitute_prefix (%OCTAVE_LOCALFCNFILEDIR%,
+                                               PREFIX, OCTAVE_HOME);
+  vars["LOCALOCTFILEDIR"] = substitute_prefix (%OCTAVE_LOCALOCTFILEDIR%,
+                                               PREFIX, OCTAVE_HOME);
+  vars["LOCALSTARTUPFILEDIR"] = substitute_prefix (%OCTAVE_LOCALSTARTUPFILEDIR%,
+                                                   PREFIX, OCTAVE_HOME);
+  vars["LOCALVERARCHLIBDIR"] = substitute_prefix (%OCTAVE_LOCALVERARCHLIBDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["LOCALVERFCNFILEDIR"] = substitute_prefix (%OCTAVE_LOCALVERFCNFILEDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["LOCALVEROCTFILEDIR"] = substitute_prefix (%OCTAVE_LOCALVEROCTFILEDIR%,
+                                                  PREFIX, OCTAVE_HOME);
+  vars["MAN1DIR"] = substitute_prefix (%OCTAVE_MAN1DIR%, PREFIX, OCTAVE_HOME);
   vars["MAN1EXT"] = %OCTAVE_MAN1EXT%;
-  vars["MANDIR"] =substitute_prefix (%OCTAVE_MANDIR%, PREFIX, OCTAVE_HOME);
-  vars["OCTFILEDIR"] =substitute_prefix (%OCTAVE_OCTFILEDIR%, PREFIX, OCTAVE_HOME);
-  vars["OCTINCLUDEDIR"] =substitute_prefix (%OCTAVE_OCTINCLUDEDIR%, PREFIX, OCTAVE_HOME);
-  vars["OCTLIBDIR"] =substitute_prefix (%OCTAVE_OCTLIBDIR%, PREFIX, OCTAVE_HOME);
+  vars["MANDIR"] = substitute_prefix (%OCTAVE_MANDIR%, PREFIX, OCTAVE_HOME);
+  vars["OCTFILEDIR"] = substitute_prefix (%OCTAVE_OCTFILEDIR%,
+                                          PREFIX, OCTAVE_HOME);
+  vars["OCTINCLUDEDIR"] = substitute_prefix (%OCTAVE_OCTINCLUDEDIR%,
+                                             PREFIX, OCTAVE_HOME);
+  vars["OCTLIBDIR"] = substitute_prefix (%OCTAVE_OCTLIBDIR%,
+                                         PREFIX, OCTAVE_HOME);
   vars["PREFIX"] = (OCTAVE_HOME.empty () ? PREFIX : OCTAVE_HOME);
-  vars["STARTUPFILEDIR"] =substitute_prefix (%OCTAVE_STARTUPFILEDIR%, PREFIX, OCTAVE_HOME);
+  vars["STARTUPFILEDIR"] = substitute_prefix (%OCTAVE_STARTUPFILEDIR%,
+                                              PREFIX, OCTAVE_HOME);
   vars["VERSION"] = %OCTAVE_VERSION%;
 }
 
@@ -188,36 +208,37 @@
       std::string arg (argv[i]);
 
       if (arg == "-h" || arg == "-?" || arg == "--help")
-	{
-	  std::cout << usage_msg << std::endl;
-	  std::cout << help_msg;
-	  return 0;
-	}
+        {
+          std::cout << usage_msg << std::endl;
+          std::cout << help_msg;
+          return 0;
+        }
       else if (arg == "--m-site-dir")
-	std::cout << vars["LOCALVERFCNFILEDIR"] << std::endl;
+        std::cout << vars["LOCALVERFCNFILEDIR"] << std::endl;
       else if (arg == "--oct-site-dir")
-	std::cout << vars["LOCALVEROCTFILEDIR"] << std::endl;
+        std::cout << vars["LOCALVEROCTFILEDIR"] << std::endl;
       else if (arg == "-v" || arg == "--version")
-	std::cout << vars["VERSION"] << std::endl;
+        std::cout << vars["VERSION"] << std::endl;
       else if (arg == "-p" || arg == "--print")
-	{
-	  if (i < argc-1)
-	    {
-	      arg = argv[++i];
-	      std::cout << vars[arg] << std::endl;
-	    }
-	  else
-	    {
-	      std::cerr << "octave-config: " << arg
-			<< " options requires argument" << std::endl;
-	      return 1;
-	    }
-	}
+        {
+          if (i < argc-1)
+            {
+              arg = argv[++i];
+              std::cout << vars[arg] << std::endl;
+            }
+          else
+            {
+              std::cerr << "octave-config: " << arg
+                        << " options requires argument" << std::endl;
+              return 1;
+            }
+        }
       else
-	{
-	  std::cerr << "octave-config: unrecognized argument " << arg << std::endl;
-	  return 1;
-	}
+        {
+          std::cerr << "octave-config: unrecognized argument " << arg
+                    << std::endl;
+          return 1;
+        }
     }
 
   return 0;
--- a/test/bug-38691/bug-38691.tst	Wed Oct 23 22:48:29 2013 -0400
+++ b/test/bug-38691/bug-38691.tst	Tue Nov 05 12:27:42 2013 -0500
@@ -1,13 +1,18 @@
 %!test
-%! addpath dir1
-%! [d1_r, d1_f1, d1_f2, d1_f3] = func1 (0);
-%! addpath dir2
-%! [d2_r, d2_f1, d2_f2, d2_f3] = func1 (0);
-%! assert (d1_r, 0);
-%! assert (d2_r, 1);
-%! assert (d1_f1, "dir1/func1");
-%! assert (d1_f2, "dir1/func2");
-%! assert (d1_f3, "dir1/func3");
-%! assert (d2_f1, "dir2/func1");
-%! assert (d2_f2, "dir2/func2");
-%! assert (d2_f3, "dir2/func3");
+%! unwind_protect
+%!   addpath dir1;
+%!   [d1_r, d1_f1, d1_f2, d1_f3] = func1 (0);
+%!   addpath dir2;
+%!   [d2_r, d2_f1, d2_f2, d2_f3] = func1 (0);
+%!   assert (d1_r, 0);
+%!   assert (d2_r, 1);
+%!   assert (d1_f1, "dir1/func1");
+%!   assert (d1_f2, "dir1/func2");
+%!   assert (d1_f3, "dir1/func3");
+%!   assert (d2_f1, "dir2/func1");
+%!   assert (d2_f2, "dir2/func2");
+%!   assert (d2_f3, "dir2/func3");
+%! unwind_protect_cleanup
+%!   rmpath dir1;
+%!   rmpath dir2;
+%! end_unwind_protect