Mercurial > hg > octave-nkf
comparison src/ov-re-mat.cc @ 9813:8fa32b527d9a
improve & partially revert previous change
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Fri, 13 Nov 2009 11:45:39 +0100 |
parents | f80c566bc751 |
children | 9b62f2d8de6d |
comparison
equal
deleted
inserted
replaced
9812:f80c566bc751 | 9813:8fa32b527d9a |
---|---|
766 ARRAY_MAPPER (tan, double, ::tan); | 766 ARRAY_MAPPER (tan, double, ::tan); |
767 ARRAY_MAPPER (tanh, double, ::tanh); | 767 ARRAY_MAPPER (tanh, double, ::tanh); |
768 ARRAY_MAPPER (isna, bool, octave_is_NA); | 768 ARRAY_MAPPER (isna, bool, octave_is_NA); |
769 | 769 |
770 default: | 770 default: |
771 return octave_base_value::map (umap); | 771 if (umap >= umap_xisalnum && umap <= umap_xtoupper) |
772 { | |
773 octave_value str_conv = convert_to_str (true, true); | |
774 return error_state ? octave_value () : str_conv.map (umap); | |
775 } | |
776 else | |
777 return octave_base_value::map (umap); | |
772 } | 778 } |
773 } | 779 } |
774 | 780 |
775 DEFUN (double, args, , | 781 DEFUN (double, args, , |
776 "-*- texinfo -*-\n\ | 782 "-*- texinfo -*-\n\ |