Mercurial > octave-nkf

comparison libinterp/corefcn/gammainc.cc @ 20616:fd0efcdb3718

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use new string_value method to handle value extraction errors * dirfns.cc, file-io.cc, gammainc.cc, help.cc, load-path.cc, octave-link.cc, qz.cc, regexp.cc, strfns.cc, syscalls.cc, time.cc, variables.cc: Use new string_value method.
author John W. Eaton <jwe@octave.org>
date Thu, 08 Oct 2015 19:00:51 -0400
parents b10432a40432
children
comparison
equal deleted inserted replaced
20615:729a85dafba8 20616:fd0efcdb3718
83 83
84 int nargin = args.length (); 84 int nargin = args.length ();
85 85
86 if (nargin == 3) 86 if (nargin == 3)
87 { 87 {
88 if (args(2).is_string ()) 88 std::string s = args(2).string_value ("gammainc: third argument must be \"lower\" or \"upper\"");
89 { 89
90 std::string s = args(2).string_value (); 90 std::transform (s.begin (), s.end (), s.begin (), tolower);
91 std::transform (s.begin (), s.end (), s.begin (), tolower); 91
92 if (s == "upper") 92 if (s == "upper")
93 lower = false; 93 lower = false;
94 else if (s != "lower") 94 else if (s != "lower")
95 error ("gammainc: third argument must be \"lower\" or \"upper\"");
96 }
97 else
98 error ("gammainc: third argument must be \"lower\" or \"upper\""); 95 error ("gammainc: third argument must be \"lower\" or \"upper\"");
99
100 } 96 }
101 97
102 if (nargin < 2 || nargin > 3) 98 if (nargin < 2 || nargin > 3)
103 print_usage (); 99 print_usage ();
104 100