Mercurial > hg > octave-lyh

comparison src/pt-const.cc @ 2275:38fea6d34daf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-24 04:06:52 by jwe]
author jwe
date Fri, 24 May 1996 04:08:52 +0000
parents 517a43164a60
children 5a3f1d00a474
comparison
equal deleted inserted replaced
2274:9750746d7da5 2275:38fea6d34daf
2947 case char_matrix_constant: 2947 case char_matrix_constant:
2948 retval = charMatrix (char_matrix->value ()); 2948 retval = charMatrix (char_matrix->value ());
2949 break; 2949 break;
2950 2950
2951 case char_matrix_constant_str: 2951 case char_matrix_constant_str:
2952 retval = octave_value (charMatrix (char_matrix->value ()), 1); 2952 {
2953 // Kluge to prevent s([]) from turning into a string
2954 // with no rows...
2955 charMatrix tmp (char_matrix->value ());
2956
2957 if (tmp.rows () == 0 && tmp.columns () == 0)
2958 tmp.resize (1, 0);
2959
2960 retval = octave_value (tmp, 1);
2961 }
2953 break; 2962 break;
2954 2963
2955 default: 2964 default:
2956 error ("can't index %s variables", type_as_string ()); 2965 error ("can't index %s variables", type_as_string ());
2957 break; 2966 break;