Mercurial > hg > octave-thorsten

comparison src/octave.cc @ 5658:7b45fda21557

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-03-10 03:57:23 by jwe]
author jwe
date Fri, 10 Mar 2006 03:57:23 +0000
parents 6aae52010e3b
children ace8d8d26933
comparison
equal deleted inserted replaced
5657:fb1de6e6343b 5658:7b45fda21557
210 + Vlibexec_dir + file_ops::dir_sep_str + "octave"; 210 + Vlibexec_dir + file_ops::dir_sep_str + "octave";
211 } 211 }
212 212
213 DEFUN (__version_info__, args, , 213 DEFUN (__version_info__, args, ,
214 "-*- texinfo -*-\n\ 214 "-*- texinfo -*-\n\
215 @deftypefn {Function File} {retval =} __version_info__ (@var{name}, @var{version}, @var{date})\n\ 215 @deftypefn {Function File} {retval =} __version_info__ (@var{name}, @var{version}, @var{release}, @var{date})\n\
216 @end deftypefn") 216 @end deftypefn")
217 { 217 {
218 octave_value retval; 218 octave_value retval;
219 219
220 static Octave_map vinfo; 220 static Octave_map vinfo;
221 221
222 int nargin = args.length (); 222 int nargin = args.length ();
223 223
224 if (nargin == 3) 224 if (nargin == 4)
225 { 225 {
226 octave_value idx (vinfo.numel () + 1); 226 octave_value idx (vinfo.numel () + 1);
227 227
228 vinfo.assign (idx, "Name", Cell (octave_value (args (0)))); 228 vinfo.assign (idx, "Name", Cell (octave_value (args (0))));
229 vinfo.assign (idx, "Version", Cell (octave_value (args (1)))); 229 vinfo.assign (idx, "Version", Cell (octave_value (args (1))));
230 vinfo.assign (idx, "Release", Cell (octave_value (args (1)))); 230 vinfo.assign (idx, "Release", Cell (octave_value (args (2))));
231 vinfo.assign (idx, "Date", Cell (octave_value (args (2)))); 231 vinfo.assign (idx, "Date", Cell (octave_value (args (3))));
232 } 232 }
233 else if (nargin == 0) 233 else if (nargin == 0)
234 retval = vinfo; 234 retval = vinfo;
235 else 235 else
236 print_usage ("__version_info__"); 236 print_usage ("__version_info__");
241 static void 241 static void
242 initialize_version_info (void) 242 initialize_version_info (void)
243 { 243 {
244 octave_value_list args; 244 octave_value_list args;
245 245
246 args(2) = OCTAVE_RELEASE_DATE; 246 args(3) = OCTAVE_RELEASE_DATE;
247 args(2) = OCTAVE_RELEASE;
247 args(1) = OCTAVE_VERSION; 248 args(1) = OCTAVE_VERSION;
248 args(0) = "GNU Octave"; 249 args(0) = "GNU Octave";
249 250
250 F__version_info__ (args, 0); 251 F__version_info__ (args, 0);
251 } 252 }