File: atleast.cc

package info (click to toggle)
simrisc 16.06.00-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,568 kB
  • sloc: cpp: 6,889; fortran: 669; makefile: 112; ansic: 112; sh: 107
file content (17 lines) | stat: -rw-r--r-- 297 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
//#define XERR
#include "parser.ih"

// static
bool Parser::atLeast(double minimum, StringVect const &base, double &dest)
{
    if (extract(one(base), dest))
    {
        if (minimum <= dest)
            return true;

        Err::atLeast(minimum);
    }

    dest = minimum;
    return false;
}