Armadillo 12.6.7

Author: eddelbuettel

inst/include/armadillo_bits/Mat_meat.hpp

@@ -7830,7 +7830,7 @@ Mat<eT>::save(const csv_name& spec, const file_type type) const
 
     if(spec.header_ro.n_elem != save_n_cols)
       {
-      arma_debug_warn_level(1, "Mat::save(): size mistmach between header and matrix");
+      arma_debug_warn_level(1, "Mat::save(): size mismatch between header and matrix");
       return false;
       }
     }
@@ -8114,7 +8114,7 @@ Mat<eT>::load(const csv_name& spec, const file_type type)
 
     if(with_header && (spec.header_rw.n_elem != load_n_cols))
       {
-      arma_debug_warn_level(3, "Mat::load(): size mistmach between header and matrix");
+      arma_debug_warn_level(3, "Mat::load(): size mismatch between header and matrix");
       }
     }
 

inst/include/armadillo_bits/SpMat_meat.hpp

@@ -4609,7 +4609,7 @@ SpMat<eT>::save(const csv_name& spec, const file_type type) const
 
     if(spec.header_ro.n_elem != save_n_cols)
       {
-      arma_debug_warn_level(1, "SpMat::save(): size mistmach between header and matrix");
+      arma_debug_warn_level(1, "SpMat::save(): size mismatch between header and matrix");
       return false;
       }
     }
@@ -4808,7 +4808,7 @@ SpMat<eT>::load(const csv_name& spec, const file_type type)
 
     if(with_header && (spec.header_rw.n_elem != load_n_cols))
       {
-      arma_debug_warn_level(3, "SpMat::load(): size mistmach between header and matrix");
+      arma_debug_warn_level(3, "SpMat::load(): size mismatch between header and matrix");
       }
     }
 

inst/include/armadillo_bits/arma_version.hpp

@@ -23,7 +23,7 @@
 
 #define ARMA_VERSION_MAJOR 12
 #define ARMA_VERSION_MINOR 6
-#define ARMA_VERSION_PATCH 6
+#define ARMA_VERSION_PATCH 7
 #define ARMA_VERSION_NAME  "Cortisol Retox"
 
 

inst/include/armadillo_bits/diskio_meat.hpp

@@ -445,10 +445,10 @@ diskio::convert_token(eT& val, const std::string& token)
   {
   const size_t N = size_t(token.length());
 
-  if(N == 0)  { val = eT(0); return true; }
-  
   const char* str = token.c_str();
 
+  if( (N == 0) || ((N == 1) && (str[0] == '0')) )  { val = eT(0); return true; }
+  
   if( (N == 3) || (N == 4) )
     {
     const bool neg = (str[0] == '-');
@@ -1075,7 +1075,7 @@ diskio::save_coord_ascii(const Mat< std::complex<T> >& x, std::ostream& f)
   for(uword col=0; col < x.n_cols; ++col)
   for(uword row=0; row < x.n_rows; ++row)
     {
-    const eT val = x.at(row,col);
+    const eT& val = x.at(row,col);
 
     if(val != eT_zero)
       {
@@ -1182,11 +1182,6 @@ diskio::save_pgm_binary(const Mat<eT>& x, const std::string& final_name)
 
 
 
-//
-// TODO:
-// add functionality to save the image in a normalised format,
-// ie. scaled so that every value falls in the [0,255] range.
-
 //! Save a matrix as a PGM greyscale image
 template<typename eT>
 inline
@@ -2221,10 +2216,7 @@ diskio::load_coord_ascii(Mat<eT>& x, std::istream& f, std::string& err_msg)
 
       line_stream >> token;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val, token );
-        }
+      if(line_stream.fail() == false)  { diskio::convert_token( val, token ); }
 
       if(val != eT(0))  { tmp(line_row,line_col) = val; }
       }
@@ -2325,18 +2317,11 @@ diskio::load_coord_ascii(Mat< std::complex<T> >& x, std::istream& f, std::string
 
       line_stream >> token_real;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val_real, token_real );
-        }
-      
+      if(line_stream.fail() == false)  { diskio::convert_token( val_real, token_real ); }
 
       line_stream >> token_imag;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val_imag, token_imag );
-        }
+      if(line_stream.fail() == false)  { diskio::convert_token( val_imag, token_imag ); }
 
       if( (val_real != T(0)) || (val_imag != T(0)) )
         {
@@ -2919,13 +2904,22 @@ diskio::save_csv_ascii(const SpMat<eT>& x, std::ostream& f, const char separator
   uword x_n_rows = x.n_rows;
   uword x_n_cols = x.n_cols;
 
+  const eT eT_zero = eT(0);
+  
   for(uword row=0; row < x_n_rows; ++row)
     {
     for(uword col=0; col < x_n_cols; ++col)
       {
       const eT val = x.at(row,col);
 
-      if(val != eT(0))  { arma_ostream::raw_print_elem(f, val); }
+      if(val == eT_zero)
+        {
+        f.put('0');
+        }
+      else
+        {
+        arma_ostream::raw_print_elem(f, val);
+        }
 
       if( col < (x_n_cols-1) )  { f.put(separator); }
       }
@@ -3426,10 +3420,7 @@ diskio::load_coord_ascii(SpMat<eT>& x, std::istream& f, std::string& err_msg)
 
       line_stream >> token;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val, token );
-        }
+      if(line_stream.fail() == false)  { diskio::convert_token( val, token ); }
 
       if(val != eT(0))  { tmp(line_row,line_col) = val; }
       }
@@ -3530,18 +3521,11 @@ diskio::load_coord_ascii(SpMat< std::complex<T> >& x, std::istream& f, std::stri
 
       line_stream >> token_real;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val_real, token_real );
-        }
-      
+      if(line_stream.fail() == false)  { diskio::convert_token( val_real, token_real ); }
 
       line_stream >> token_imag;
 
-      if(line_stream.fail() == false)
-        {
-        diskio::convert_token( val_imag, token_imag );
-        }
+      if(line_stream.fail() == false)  { diskio::convert_token( val_imag, token_imag ); }
 
       if( (val_real != T(0)) || (val_imag != T(0)) )
         {