Mercurial > octave-nkf
diff src/variables.cc @ 1728:42b4f904f1af
[project @ 1996-01-09 11:36:01 by jwe]
author | jwe |
---|---|
date | Tue, 09 Jan 1996 11:41:43 +0000 |
parents | 63f6b1b57aae |
children | a02f140ed897 |
line wrap: on
line diff
--- a/src/variables.cc Tue Jan 09 09:18:59 1996 +0000 +++ b/src/variables.cc Tue Jan 09 11:41:43 1996 +0000 @@ -29,6 +29,8 @@ #include <cstdio> #include <cstring> +#include <string> + #include <strstream.h> #ifdef HAVE_UNISTD_H @@ -129,8 +131,13 @@ const char *fcn_name = 0; + string tstr; + if (arg.is_string ()) - fcn_name = arg.string_value (); + { + tstr = arg.string_value (); + fcn_name = tstr.c_str (); + } if (! fcn_name || error_state) { @@ -171,7 +178,8 @@ return retval; } - const char *name = args(0).string_value (); + string tstr = args(0).string_value (); + const char *name = tstr.c_str (); if (error_state) { @@ -207,7 +215,8 @@ return retval; } - char *name = strsave (args(0).string_value ()); + string tstr = args(0).string_value (); + char *name = strsave (tstr.c_str ()); if (error_state) { @@ -928,7 +937,8 @@ if (! error_state && val.is_string ()) { - const char *s = val.string_value (); + string tstr = val.string_value (); + const char *s = tstr.c_str (); if (s) retval = strsave (s);