Mercurial > hg > octave-lyh
diff liboctave/RowVector.cc @ 377:1d3dbdfd0d19
[project @ 1994-03-03 20:13:03 by jwe]
author | jwe |
---|---|
date | Thu, 03 Mar 1994 20:14:00 +0000 |
parents | 3c23b8ea9099 |
children |
line wrap: on
line diff
--- a/liboctave/RowVector.cc +++ b/liboctave/RowVector.cc @@ -491,6 +491,27 @@ return os; } +istream& +operator >> (istream& is, RowVector& a) +{ + int len = a.length(); + + if (len < 1) + is.clear (ios::badbit); + else + { + double tmp; + for (int i = 0; i < len; i++) + { + is >> tmp; + if (is) + a.elem (i) = tmp; + else + break; + } + } +} + /* * Complex Row Vector class */ @@ -1094,6 +1115,27 @@ return os; } +istream& +operator >> (istream& is, ComplexRowVector& a) +{ + int len = a.length(); + + if (len < 1) + is.clear (ios::badbit); + else + { + Complex tmp; + for (int i = 0; i < len; i++) + { + is >> tmp; + if (is) + a.elem (i) = tmp; + else + break; + } + } +} + /* ;;; Local Variables: *** ;;; mode: C++ ***