octave-lyh: src/octave.cc comparison

[project @ 1995-10-19 04:31:30 by jwe]

comparison

equal deleted inserted replaced

-:6ddabf91bc4e
+:0d9e10d10bd7
 #include "error.h"
 #include "file-io.h"
 #include "help.h"
 #include "input.h"
 #include "lex.h"
-#include "oct-str.h"
 #include "octave-hist.h"
 #include "octave.h"
 #include "pager.h"
 #include "parse.h"
 #include "pathsearch.h"
 // Nonzero means input is coming from startup file.
 int input_from_startup_file = 0;
 // The command-line options.
-Octave_str_obj octave_argv;
+charMatrix octave_argv;
 // Nonzero means that input is coming from a file that was named on
 // the command line.
 int input_from_command_line_file = 1;
 static void
 intern_argv (int argc, char **argv)
 {
 if (argc > 1)
 {
-octave_argv.resize (argc-1);
+int max_len = 0;
 for (int i = 1; i < argc; i++)
-	octave_argv.elem (i-1) = argv[i];
+	{
+	  int tmp_len = strlen (argv[i]);
+	  if (tmp_len > max_len)
+	    max_len = tmp_len;
+	}
+octave_argv.resize (argc-1, max_len, 0);
+for (int i = 1; i < argc; i++)
+	octave_argv.insert (argv[i], i-1, 0);
 bind_builtin_variable ("argv", octave_argv, 1, 1, 0);
 }
 }

Mercurial > hg > octave-lyh