Mercurial > hg > octave-thorsten

comparison src/sysdep.cc @ 4233:ccfdb55c8156

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-20 22:43:54 by jwe]
author jwe
date Fri, 20 Dec 2002 22:43:55 +0000
parents e96f52432059
children 75ed329c117b
comparison
equal deleted inserted replaced
4232:b032ebd54586 4233:ccfdb55c8156
385 \n\ 385 \n\
386 @noindent\n\ 386 @noindent\n\
387 returns a string containing the value of your path.\n\ 387 returns a string containing the value of your path.\n\
388 @end deftypefn") 388 @end deftypefn")
389 { 389 {
390 octave_value_list retval; 390 octave_value retval;
391 391
392 int nargin = args.length (); 392 int nargin = args.length ();
393 393
394 if (nargin == 1) 394 if (nargin == 1)
395 { 395 {
459 @noindent\n\ 459 @noindent\n\
460 identical to the above example, but don't wait for a keypress,\n\ 460 identical to the above example, but don't wait for a keypress,\n\
461 returning the empty string if no key is available.\n\ 461 returning the empty string if no key is available.\n\
462 @end deftypefn") 462 @end deftypefn")
463 { 463 {
464 octave_value_list retval; 464 octave_value retval;
465 465
466 // XXX FIXME XXX -- add timeout and default value args? 466 // XXX FIXME XXX -- add timeout and default value args?
467 467
468 if (interactive || forced_interactive) 468 if (interactive || forced_interactive)
469 { 469 {
606 @end deftypefn") 606 @end deftypefn")
607 { 607 {
608 oct_mach_info::float_format flt_fmt = 608 oct_mach_info::float_format flt_fmt =
609 oct_mach_info::native_float_format (); 609 oct_mach_info::native_float_format ();
610 610
611 return static_cast<double> (flt_fmt == oct_mach_info::ieee_little_endian 611 return octave_value (flt_fmt == oct_mach_info::ieee_little_endian
612 || flt_fmt == oct_mach_info::ieee_big_endian); 612 || flt_fmt == oct_mach_info::ieee_big_endian);
613 } 613 }
614 614
615 DEFUN (tilde_expand, args, , 615 DEFUN (tilde_expand, args, ,
616 "-*- texinfo -*-\n\ 616 "-*- texinfo -*-\n\
617 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\ 617 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\
631 @result{} \"/home/jwe/bin\"\n\ 631 @result{} \"/home/jwe/bin\"\n\
632 @end group\n\ 632 @end group\n\
633 @end example\n\ 633 @end example\n\
634 @end deftypefn") 634 @end deftypefn")
635 { 635 {
636 octave_value_list retval; 636 octave_value retval;
637 637
638 int nargin = args.length (); 638 int nargin = args.length ();
639 639
640 if (nargin == 1) 640 if (nargin == 1)
641 retval = file_ops::tilde_expand (args(0).all_strings ()); 641 retval = file_ops::tilde_expand (args(0).all_strings ());