# HG changeset patch
# User jwe
# Date 910126138 0
# Node ID fbb332b96e4f5db3bd705e3349c40a50a2a71f07
# Parent  e8a7163701be7d7aa7b9357559822753663d7dde
[project @ 1998-11-03 20:48:54 by jwe]

diff -r e8a7163701be -r fbb332b96e4f install-octave.in
--- a/install-octave.in	Tue Nov 03 05:12:48 1998 +0000
+++ b/install-octave.in	Tue Nov 03 20:48:58 1998 +0000
@@ -234,7 +234,7 @@
   for f in `cat LIBRARIES`
   do
     file=`basename $f`
-    cp $f $octlibdir/$file.$SHLEXT_VER
+    cp $f.$SHLEXT_VER $octlibdir/$file.$SHLEXT_VER
     chmod 644 $octlibdir/$file.$SHLEXT_VER
     ( cd $octlibdir
       ln -s $file.$SHLEXT_VER $file.$SHLEXT )
diff -r e8a7163701be -r fbb332b96e4f libcruft/Makefile.in
--- a/libcruft/Makefile.in	Tue Nov 03 05:12:48 1998 +0000
+++ b/libcruft/Makefile.in	Tue Nov 03 20:48:58 1998 +0000
@@ -32,8 +32,8 @@
 DISTFILES = Makefile.in ChangeLog Makerules.in $(SOURCES) STOP.patch
 
 ifeq ($(SHARED_LIBS), true)
+  BINDISTLIBS = libcruft/libcruft
   BINDISTFILES = libcruft.$(SHLEXT_VER)
-  BINDISTLIBS = libcruft/libcruft.$(SHLEXT_VER)
 endif
 
 all: $(SUBDIRS) shared-lib
diff -r e8a7163701be -r fbb332b96e4f liboctave/Makefile.in
--- a/liboctave/Makefile.in	Tue Nov 03 05:12:48 1998 +0000
+++ b/liboctave/Makefile.in	Tue Nov 03 20:48:58 1998 +0000
@@ -96,7 +96,7 @@
 
 ifeq ($(SHARED_LIBS), true)
   BINDISTLIBS = liboctave/liboctave
-  BINDISTFILES = $(addsuffix $(BINDISTLIBS), $(SHLEXT_VER))
+  BINDISTFILES = liboctave.$(SHLEXT_VER)
 endif
 
 MAKEDEPS_1 := $(patsubst %.cc, %.d, $(SOURCES))
diff -r e8a7163701be -r fbb332b96e4f src/ChangeLog
--- a/src/ChangeLog	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/ChangeLog	Tue Nov 03 20:48:58 1998 +0000
@@ -1,3 +1,13 @@
+Tue Nov  3 09:40:24 1998  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* data.cc (Fis_bool): New function.
+	Also add alias for islogical.
+
+	* ov.h (octave_value::is_bool_type): New function.
+	* ov-base.h (octave_base_value::is_bool_type): Likewise.
+	* ov-bool.h (octave_bool::is_bool_type): Likewise.
+	* ov-bool-mat.h (octave_bool_matrix::is_bool_type): Likewise.
+
 Mon Nov  2 13:36:04 1998  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* lex.l (handle_close_brace): Also handle case of ']' followed by
diff -r e8a7163701be -r fbb332b96e4f src/Makefile.in
--- a/src/Makefile.in	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/Makefile.in	Tue Nov 03 20:48:58 1998 +0000
@@ -182,7 +182,7 @@
 
 ifeq ($(SHARED_LIBS), true)
   BINDISTLIBS = src/liboctinterp
-  BINDISTFILES = $(addsuffix $(BINDISTLIBS), $(SHLEXT_VER))
+  BINDISTFILES = octave $(OCT_FILES) liboctinterp.$(SHLEXT_VER)
 else
   BINDISTFILES = octave $(OCT_FILES)
 endif
@@ -394,7 +394,7 @@
 	    $(addprefix $(srcdir)/, $(DLD_SRC)) \
 	    > ../`cat ../.fname`/src/links-to-make; \
 	fi
-	if [ -n "$(BINDISTLIBNS)" ]; then \
+	if [ -n "$(BINDISTLIBS)" ]; then \
 	  echo $(BINDISTLIBS) >> ../`cat ../.fname`/LIBRARIES; \
 	fi
 .PHONY: bin-dist
diff -r e8a7163701be -r fbb332b96e4f src/data.cc
--- a/src/data.cc	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/data.cc	Tue Nov 03 20:48:58 1998 +0000
@@ -753,6 +753,21 @@
   return retval;
 }
 
+DEFUN (is_bool, args, ,
+  "is_bool (x): return nonzero if x is a boolean object")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    retval = args(0).is_bool_type () ? 1.0 : 0.0;
+  else
+    print_usage ("is_bool");
+
+  return retval;
+}
+
+DEFALIAS (islogical, is_bool);
+
 DEFUN (is_complex, args, ,
   "is_complex (x): return nonzero if x is a complex numeric object")
 {
diff -r e8a7163701be -r fbb332b96e4f src/ov-base.h
--- a/src/ov-base.h	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/ov-base.h	Tue Nov 03 20:48:58 1998 +0000
@@ -119,6 +119,8 @@
 
   octave_value any (void) const { return 0.0; }
 
+  bool is_bool_type (void) const { return false; }
+
   bool is_real_type (void) const { return false; }
 
   bool is_complex_type (void) const { return false; }
diff -r e8a7163701be -r fbb332b96e4f src/ov-bool-mat.h
--- a/src/ov-bool-mat.h	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/ov-bool-mat.h	Tue Nov 03 20:48:58 1998 +0000
@@ -101,6 +101,8 @@
   octave_value all (void) const { return matrix.all (); }
   octave_value any (void) const { return matrix.any (); }
 
+  bool is_bool_type (void) const { return true; }
+
   bool is_real_type (void) const { return true; }
 
   bool is_matrix_type (void) const { return true; }
diff -r e8a7163701be -r fbb332b96e4f src/ov-bool.h
--- a/src/ov-bool.h	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/ov-bool.h	Tue Nov 03 20:48:58 1998 +0000
@@ -92,8 +92,12 @@
   octave_value all (void) const { return scalar; }
   octave_value any (void) const { return scalar; }
 
+  bool is_bool_type (void) const { return true; }
+
   bool is_real_type (void) const { return true; }
+
   bool is_scalar_type (void) const { return true; }
+
   bool is_numeric_type (void) const { return true; }
 
   bool valid_as_scalar_index (void) const { return scalar; }
diff -r e8a7163701be -r fbb332b96e4f src/ov.h
--- a/src/ov.h	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/ov.h	Tue Nov 03 20:48:58 1998 +0000
@@ -336,6 +336,9 @@
 
   // Other type stuff.
 
+  virtual bool is_bool_type (void) const
+    { return rep->is_bool_type (); }
+
   virtual bool is_real_type (void) const
     { return rep->is_real_type (); }
 
diff -r e8a7163701be -r fbb332b96e4f src/version.h
--- a/src/version.h	Tue Nov 03 05:12:48 1998 +0000
+++ b/src/version.h	Tue Nov 03 20:48:58 1998 +0000
@@ -23,7 +23,7 @@
 #if !defined (octave_version_h)
 #define octave_version_h 1
 
-#define OCTAVE_VERSION "2.1.8"
+#define OCTAVE_VERSION "2.1.9"
 
 #define OCTAVE_COPYRIGHT \
   "Copyright (C) 1996, 1997, 1998 John W. Eaton."