From octave-sources-request at bevo dot che dot wisc dot edu Fri May 11 23:30:06 2001 Subject: Retain type of boolean matrix when assigned boolean From: "Jianming" To: "octave-sources" Date: Sat, 12 May 2001 12:26:21 +0800 This is a multi-part message in MIME format. ------=_NextPart_000_0015_01C0DADE.C05D2AA0 Content-Type: multipart/alternative; boundary="----=_NextPart_001_0016_01C0DADE.C05D2AA0" ------=_NextPart_001_0016_01C0DADE.C05D2AA0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, The attach patch will allow the following: =20 > x=3D[1 2 3 4 5]>3; > x(1)=3Dtrue; > typeinfo(x) bool-matrix Previously, typeinfo(x) gives matrix. Regards, Jianming ------=_NextPart_001_0016_01C0DADE.C05D2AA0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable

Hi,

The attach patch = will allow the=20 following:

> x=3D[1 2 3 4=20 5]>3;

> = x(1)=3Dtrue;

> = typeinfo(x)

= bool-matrix

Previously, = typeinfo(x) gives=20 matrix.

Regards,

Jianming

------=_NextPart_001_0016_01C0DADE.C05D2AA0-- ------=_NextPart_000_0015_01C0DADE.C05D2AA0 Content-Type: application/octet-stream; name="fix-bm-b.patch" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="fix-bm-b.patch" diff -cp --exclude-from=3Dexclude.files --new-file = octave-2.1.34.old/src/OPERATORS/op-bm-b.cc = octave-2.1.34/src/OPERATORS/op-bm-b.cc=0A= *** octave-2.1.34.old/src/OPERATORS/op-bm-b.cc Thu Jan 1 07:30:00 1970=0A= --- octave-2.1.34/src/OPERATORS/op-bm-b.cc Sun May 6 08:45:53 2001=0A= ***************=0A= *** 0 ****=0A= --- 1,24 ----=0A= + #if defined (__GNUG__)=0A= + #pragma implementation=0A= + #endif=0A= + =0A= + #ifdef HAVE_CONFIG_H=0A= + #include =0A= + #endif=0A= + =0A= + #include "gripes.h"=0A= + #include "ov.h"=0A= + #include "ov-bool.h"=0A= + #include "ov-bool-mat.h"=0A= + #include "ov-typeinfo.h"=0A= + #include "ops.h"=0A= + #include "xdiv.h"=0A= + #include "xpow.h"=0A= + =0A= + DEFASSIGNOP_FN (assign, bool_matrix, bool, assign)=0A= + =0A= + void=0A= + install_bm_b_ops(void)=0A= + {=0A= + INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_bool, = assign);=0A= + }=0A= diff -cp --exclude-from=3Dexclude.files --new-file = octave-2.1.34.old/src/Makefile.in octave-2.1.34/src/Makefile.in=0A= *** octave-2.1.34.old/src/Makefile.in Sat Apr 21 08:51:23 2001=0A= --- octave-2.1.34/src/Makefile.in Sun May 6 08:59:03 2001=0A= *************** OP_XSRC :=3D op-b-b.cc op-bm-bm.cc op-chm.=0A= *** 102,108 ****=0A= op-fil-m.cc op-fil-s.cc op-fil-lis.cc op-fil-rec.cc \=0A= op-fil-str.cc op-list.cc op-m-cm.cc op-m-cs.cc op-m-m.cc \=0A= op-m-s.cc op-range.cc op-s-cm.cc op-s-cs.cc op-s-m.cc \=0A= ! op-s-s.cc op-str-str.cc=0A= =0A= OP_SRC :=3D $(addprefix OPERATORS/, $(OP_XSRC))=0A= =0A= --- 102,108 ----=0A= op-fil-m.cc op-fil-s.cc op-fil-lis.cc op-fil-rec.cc \=0A= op-fil-str.cc op-list.cc op-m-cm.cc op-m-cs.cc op-m-m.cc \=0A= op-m-s.cc op-range.cc op-s-cm.cc op-s-cs.cc op-s-m.cc \=0A= ! op-s-s.cc op-str-str.cc op-bm-b.cc=0A= =0A= OP_SRC :=3D $(addprefix OPERATORS/, $(OP_XSRC))=0A= =0A= ------=_NextPart_000_0015_01C0DADE.C05D2AA0-- _________________________________________________________ Do You Yahoo!? Get your free at yahoo dot com address at http://mail.yahoo.com ------------------------------------------------------------- Octave is freely available under the terms of the GNU GPL. Octave's home on the web: http://www.octave.org How to fund new projects: http://www.octave.org/funding.html Subscription information: http://www.octave.org/archive.html -------------------------------------------------------------