# HG changeset patch
# User jwe
# Date 770861695 0
# Node ID 393e95f46b5123b95d683a1c75713d321602fc73
# Parent  565206294f5a949144cb36807dd09c19f65c1e14
[project @ 1994-06-06 00:05:20 by jwe]

diff --git a/liboctave/idx-vector.cc b/liboctave/idx-vector.cc
--- a/liboctave/idx-vector.cc
+++ b/liboctave/idx-vector.cc
@@ -25,10 +25,14 @@
 #include "config.h"
 #endif
 
+#if defined (__GNUG__)
+#pragma implementation
+#endif
+
 #include <iostream.h>
 #include <stdlib.h>
 
-#include "Matrix.h"
+#include "dMatrix.h"
 #include "Range.h"
 #include "idx-vector.h"
 #include "user-prefs.h"
diff --git a/liboctave/idx-vector.h b/liboctave/idx-vector.h
--- a/liboctave/idx-vector.h
+++ b/liboctave/idx-vector.h
@@ -24,11 +24,16 @@
 #if !defined (octave_idx_vector_h)
 #define octave_idx_vector_h 1
 
+#if defined (__GNUG__)
+#pragma interface
+#endif
+
 class ostream;
 class Matrix;
 class Range;
 
-class idx_vector
+class
+idx_vector
 {
 public:
   idx_vector (void);
diff --git a/src/balance.cc b/src/balance.cc
--- a/src/balance.cc
+++ b/src/balance.cc
@@ -1,7 +1,7 @@
 // tc-balance.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -27,7 +27,13 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
+#include "dbleAEPBAL.h"
+#include "CmplxAEPBAL.h"
+#include "dbleAEPBAL.h"
+#include "CmplxAEPBAL.h"
+#include "dbleGEPBAL.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/chol.cc b/src/chol.cc
--- a/src/chol.cc
+++ b/src/chol.cc
@@ -1,7 +1,7 @@
 // f-chol.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleCHOL.h"
+#include "CmplxCHOL.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/det.cc b/src/det.cc
--- a/src/det.cc
+++ b/src/det.cc
@@ -1,7 +1,7 @@
 // f-det.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleDET.h"
+#include "CmplxDET.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/expm.cc b/src/expm.cc
--- a/src/expm.cc
+++ b/src/expm.cc
@@ -1,7 +1,7 @@
 // tc-expm.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -29,7 +29,11 @@
 
 #include <math.h>
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
+#include "CColVector.h"
+#include "dbleAEPBAL.h"
+#include "CmplxAEPBAL.h"
 #include "f77-uscore.h"
 
 #include "tree-const.h"
diff --git a/src/fft.cc b/src/fft.cc
--- a/src/fft.cc
+++ b/src/fft.cc
@@ -1,7 +1,7 @@
 // f-fft.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/fsqp.cc b/src/fsqp.cc
--- a/src/fsqp.cc
+++ b/src/fsqp.cc
@@ -1,7 +1,7 @@
 // f-fsqp.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -34,8 +34,8 @@
 #include "f-fsqp.h"
 
 // Global pointers for user defined functions required by fsqp.
-static tree *fsqp_objective;
-static tree *fsqp_constraints;
+// static tree *fsqp_objective;
+// static tree *fsqp_constraints;
 
 #ifdef WITH_DLD
 tree_constant *
diff --git a/src/givens.cc b/src/givens.cc
--- a/src/givens.cc
+++ b/src/givens.cc
@@ -1,7 +1,7 @@
 // tc-givens.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -27,7 +27,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
 #include "f77-uscore.h"
 
 #include "tree-const.h"
diff --git a/src/hess.cc b/src/hess.cc
--- a/src/hess.cc
+++ b/src/hess.cc
@@ -1,7 +1,7 @@
 // f-hess.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleHESS.h"
+#include "CmplxHESS.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/ifft.cc b/src/ifft.cc
--- a/src/ifft.cc
+++ b/src/ifft.cc
@@ -1,7 +1,7 @@
 // f-ifft.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
@@ -93,7 +94,6 @@
   return retval;
 }
 
-
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***
diff --git a/src/inv.cc b/src/inv.cc
--- a/src/inv.cc
+++ b/src/inv.cc
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/lu.cc b/src/lu.cc
--- a/src/lu.cc
+++ b/src/lu.cc
@@ -1,7 +1,7 @@
 // f-lu.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleLU.h"
+#include "CmplxLU.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/pr-output.cc b/src/pr-output.cc
--- a/src/pr-output.cc
+++ b/src/pr-output.cc
@@ -33,8 +33,9 @@
 #include <float.h>
 #include <Complex.h>
 
+#include "dMatrix.h"
+#include "CMatrix.h"
 #include "Range.h"
-#include "Matrix.h"
 
 #include "tree-const.h"
 #include "variables.h"
diff --git a/src/procstream.cc b/src/procstream.cc
--- a/src/procstream.cc
+++ b/src/procstream.cc
@@ -1,7 +1,7 @@
 // procstream.cc                                          -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993 John W. Eaton
+Copyright (C) 1992, 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,6 +25,10 @@
 #include "config.h"
 #endif
 
+#if defined (__GNUG__)
+#pragma implementation
+#endif
+
 #include "procstream.h"
 
 procstreambase::procstreambase (void)
diff --git a/src/procstream.h b/src/procstream.h
--- a/src/procstream.h
+++ b/src/procstream.h
@@ -24,6 +24,10 @@
 #if !defined (octave_procstream_h)
 #define octave_procstream_h 1
 
+#if defined (__GNUG__)
+#pragma interface
+#endif
+
 #include <iostream.h>
 #include <procbuf.h>
 
diff --git a/src/qr.cc b/src/qr.cc
--- a/src/qr.cc
+++ b/src/qr.cc
@@ -1,7 +1,7 @@
 // f-qr.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleQR.h"
+#include "CmplxQR.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/qzval.cc b/src/qzval.cc
--- a/src/qzval.cc
+++ b/src/qzval.cc
@@ -1,7 +1,7 @@
 // tc-qzval.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -29,7 +29,9 @@
 
 #include <float.h>
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "dColVector.h"
+#include "CColVector.h"
 #include "f77-uscore.h"
 
 #include "tree-const.h"
diff --git a/src/schur.cc b/src/schur.cc
--- a/src/schur.cc
+++ b/src/schur.cc
@@ -1,7 +1,7 @@
 // f-schur.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleSCHUR.h"
+#include "CmplxSCHUR.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/svd.cc b/src/svd.cc
--- a/src/svd.cc
+++ b/src/svd.cc
@@ -1,7 +1,7 @@
 // f-svd.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,7 +25,8 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dbleSVD.h"
+#include "CmplxSVD.h"
 
 #include "tree-const.h"
 #include "user-prefs.h"
diff --git a/src/syl.cc b/src/syl.cc
--- a/src/syl.cc
+++ b/src/syl.cc
@@ -1,7 +1,7 @@
 // tc-syl.cc                                           -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -27,7 +27,10 @@
 #include "config.h"
 #endif
 
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
+#include "dbleSCHUR.h"
+#include "CmplxSCHUR.h"
 #include "f77-uscore.h"
 
 #include "tree-const.h"
diff --git a/src/symtab.cc b/src/symtab.cc
--- a/src/symtab.cc
+++ b/src/symtab.cc
@@ -27,6 +27,10 @@
 #include "config.h"
 #endif
 
+#if defined (__GNUG__)
+#pragma implementation
+#endif
+
 #include "symtab.h"
 #include "error.h"
 #include "variables.h"
diff --git a/src/symtab.h b/src/symtab.h
--- a/src/symtab.h
+++ b/src/symtab.h
@@ -24,6 +24,10 @@
 #if !defined (octave_symtab_h)
 #define octave_symtab_h 1
 
+#if defined (__GNUG__)
+#pragma interface
+#endif
+
 #include <stdlib.h>
 #include <string.h>
 #include <iostream.h>
diff --git a/src/token.cc b/src/token.cc
--- a/src/token.cc
+++ b/src/token.cc
@@ -1,7 +1,7 @@
 // token.cc                                              -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993 John W. Eaton
+Copyright (C) 1992, 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,6 +25,10 @@
 #include "config.h"
 #endif
 
+#if defined (__GNUG__)
+#pragma implementation
+#endif
+
 #include <assert.h>
 
 #include "token.h"
diff --git a/src/token.h b/src/token.h
--- a/src/token.h
+++ b/src/token.h
@@ -24,9 +24,14 @@
 #if !defined (octave_token_h)
 #define octave_token_h 1
 
+#if defined (__GNUG__)
+#pragma interface
+#endif
+
 class symbol_record;
 
-class token
+class
+token
 {
 public:
   enum token_type
diff --git a/src/unwind-prot.cc b/src/unwind-prot.cc
--- a/src/unwind-prot.cc
+++ b/src/unwind-prot.cc
@@ -1,7 +1,7 @@
 // unwind-prot.cc                                              -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993 John W. Eaton
+Copyright (C) 1992, 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -25,11 +25,15 @@
 #include "config.h"
 #endif
 
+#if defined (__GNUG__)
+#pragma implementation
+#endif
+
 #include <stddef.h>
 
 #include "SLStack.h"
 
-#include "Matrix.h"
+#include "CMatrix.h"
 
 #include "unwind-prot.h"
 #include "error.h"
@@ -37,43 +41,43 @@
 
 unwind_elem::unwind_elem (void)
 {
-  _tag = (char *) NULL;
-  _fptr = (cleanup_func) NULL;
-  _ptr = (void *) NULL;
+  unwind_elem_tag = (char *) NULL;
+  unwind_elem_fptr = (cleanup_func) NULL;
+  unwind_elem_ptr = (void *) NULL;
 }
 
 unwind_elem::unwind_elem (char *t)
 {
-  _tag = strsave (t);
-  _fptr = (cleanup_func) NULL;
-  _ptr = (void *) NULL;
+  unwind_elem_tag = strsave (t);
+  unwind_elem_fptr = (cleanup_func) NULL;
+  unwind_elem_ptr = (void *) NULL;
 }
 
 unwind_elem::unwind_elem (cleanup_func f, void *p)
 {
-  _tag = (char *) NULL;
-  _fptr = f;
-  _ptr = p;
+  unwind_elem_tag = (char *) NULL;
+  unwind_elem_fptr = f;
+  unwind_elem_ptr = p;
 }
 
 unwind_elem::unwind_elem (const unwind_elem& el)
 {
-  _tag = strsave (el._tag);
-  _fptr = el._fptr;
-  _ptr = el._ptr;
+  unwind_elem_tag = strsave (el.unwind_elem_tag);
+  unwind_elem_fptr = el.unwind_elem_fptr;
+  unwind_elem_ptr = el.unwind_elem_ptr;
 }
 
 unwind_elem::~unwind_elem (void)
 {
-  delete [] _tag;
+  delete [] unwind_elem_tag;
 }
 
 unwind_elem&
 unwind_elem::operator = (const unwind_elem& el)
 {
-  _tag = strsave (el._tag);
-  _fptr = el._fptr;
-  _ptr = el._ptr;
+  unwind_elem_tag = strsave (el.unwind_elem_tag);
+  unwind_elem_fptr = el.unwind_elem_fptr;
+  unwind_elem_ptr = el.unwind_elem_ptr;
 
   return *this;
 }
@@ -81,19 +85,19 @@
 char *
 unwind_elem::tag (void)
 {
-  return _tag;
+  return unwind_elem_tag;
 }
 
 cleanup_func
 unwind_elem::fptr (void)
 {
-  return _fptr;
+  return unwind_elem_fptr;
 }
 
 void *
 unwind_elem::ptr (void)
 {
-  return _ptr;
+  return unwind_elem_ptr;
 }
 
 static SLStack <unwind_elem> unwind_protect_list;
diff --git a/src/unwind-prot.h b/src/unwind-prot.h
--- a/src/unwind-prot.h
+++ b/src/unwind-prot.h
@@ -24,6 +24,10 @@
 #if !defined (octave_unwind_prot_h)
 #define octave_unwind_prot_h 1
 
+#if defined (__GNUG__)
+#pragma interface
+#endif
+
 typedef void (*cleanup_func)(void *ptr);
 
 void add_unwind_protect (cleanup_func fptr, void *ptr);
@@ -51,7 +55,8 @@
 #define unwind_protect_var(i) \
   unwind_protect_var_internal ((void *) &(i), (void *) &(i), sizeof (int))
 
-class unwind_elem
+class
+unwind_elem
 {
  public:
   unwind_elem (void);
@@ -67,9 +72,9 @@
   void *ptr (void);
 
  private:
-  char *_tag;
-  cleanup_func _fptr;
-  void *_ptr;
+  char *unwind_elem_tag;
+  cleanup_func unwind_elem_fptr;
+  void *unwind_elem_ptr;
 };
 
 #endif
diff --git a/src/xdiv.cc b/src/xdiv.cc
--- a/src/xdiv.cc
+++ b/src/xdiv.cc
@@ -1,7 +1,7 @@
 // xdiv.cc                                               -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993 John W. Eaton
+Copyright (C) 1992, 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -29,7 +29,8 @@
 #include <Complex.h>
 
 #include "xdiv.h"
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
 #include "tree-const.h"
 #include "error.h"
 
diff --git a/src/xpow.cc b/src/xpow.cc
--- a/src/xpow.cc
+++ b/src/xpow.cc
@@ -1,7 +1,7 @@
 // xpow.cc                                               -*- C++ -*-
 /*
 
-Copyright (C) 1992, 1993 John W. Eaton
+Copyright (C) 1992, 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -29,7 +29,12 @@
 #include <Complex.h>
 
 #include "xpow.h"
-#include "Matrix.h"
+#include "dMatrix.h"
+#include "CMatrix.h"
+#include "dDiagMatrix.h"
+#include "CDiagMatrix.h"
+#include "CColVector.h"
+#include "EIG.h"
 #include "tree-const.h"
 #include "error.h"