Mercurial > octave

comparison src/octave.cc @ 3259:fa345875edea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-07-22 04:30:18 by jwe]
author jwe
date Thu, 22 Jul 1999 04:30:25 +0000
parents 041ea33fbbf4
children 2efa28a91e7a
comparison
equal deleted inserted replaced
3258:4964d5391acc 3259:fa345875edea
152 // Store the command-line options for later use. 152 // Store the command-line options for later use.
153 153
154 static void 154 static void
155 intern_argv (int argc, char **argv) 155 intern_argv (int argc, char **argv)
156 { 156 {
157 bind_builtin_variable ("nargin", static_cast<double> (argc-1), 1, 1, 0); 157 bind_builtin_variable ("nargin", static_cast<double> (argc-1),
158 true, true, 0);
158 159
159 octave_value_list octave_argv; 160 octave_value_list octave_argv;
160 161
161 if (argc > 1) 162 if (argc > 1)
162 { 163 {
164 while (--argc > 0) 165 while (--argc > 0)
165 octave_argv(argc-1) = octave_value (*(argv+argc)); 166 octave_argv(argc-1) = octave_value (*(argv+argc));
166 167
167 } 168 }
168 169
169 bind_builtin_variable ("argv", octave_argv, 1, 1, 0); 170 bind_builtin_constant ("argv", octave_argv, true, true);
170 bind_builtin_variable ("__argv__", octave_argv, 1, 1, 0); 171 bind_builtin_constant ("__argv__", octave_argv, true, true);
171 } 172 }
172 173
173 static void 174 static void
174 initialize_pathsearch (void) 175 initialize_pathsearch (void)
175 { 176 {