1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
// This is mul/mbl/mbl_read_double.cxx
#ifdef VCL_NEEDS_PRAGMA_INTERFACE
#pragma implementation
#endif
//:
// \file
// \brief Asks question and waits for an answer
// \author tim
// hand crafted into vxl by gvw
//
// - Function Name: mbl_read_double
// - Synopsis: double mbl_read_double(char* q_str, double default_d)
// - Inputs: q_str: A question
// default_d: Default answer
// min_d: Min allowed value (optional)
// max_d: Max allowed value (optional)
// - Outputs: -
// - Returns: The answer or a default
// - Description: Asks question and waits for an answer.
// If the answer is a double, returns it.
// If the answer is an empty vcl_string (return)
// then returns default.
// Otherwise waits for another input.
// - References: -
// - Example:
// \code
// double new_scale = mbl_read_double("Scale?",1.00);
// double new_scale = mbl_read_double("Scale?",1.00,min_scale,max_scale);
// \endcode
#include "mbl_read_double.h"
#include <vcl_cstdio.h> // for fgets()
#include <vcl_iostream.h>
const int MAX_LEN = 40;
// If min_d != 0 or max_d != 0 then prints range but doesn't check that reply is in range
double RD_ReadDouble1(const char *q_str, double default_d,
double min_d, double max_d)
{
char reply[MAX_LEN];
while (true)
{
if (min_d==0 && max_d==0)
vcl_cout<<q_str<<" ("<<default_d<<") :";
else
vcl_cout<<q_str<<" ["<<min_d<<".."<<max_d<<"] ("<<default_d<<") :";
vcl_cout.flush();
if (vcl_fgets(reply,MAX_LEN,stdin)!=NULL)
{
double r = default_d;
if (reply[0]=='\n' || vcl_sscanf(reply,"%lf",&r)>0)
return r;
}
}
}
double mbl_read_double(const char *q_str, double default_d)
{
return RD_ReadDouble1(q_str,default_d,0,0);
}
double mbl_read_double( const char *q_str, double default_d,
double min_d, double max_d)
{
while (true)
{
double R = RD_ReadDouble1(q_str,default_d,min_d,max_d);
if (R<min_d)
vcl_cout<<R<<": must be at least "<<min_d<<"\n";
else if (R>max_d)
vcl_cout<<R<<": must be no more than "<<max_d<<"\n";
else
return R; // acceptable
}
}
|
