boolean.c revision 290001 
1
2/**
3 * \file boolean.c
4 *
5 * Handle options with true/false values for arguments.
6 *
7 * @addtogroup autoopts
8 * @{
9 */
10/*
11 *  This routine will run run-on options through a pager so the
12 *  user may examine, print or edit them at their leisure.
13 *
14 *  This file is part of AutoOpts, a companion to AutoGen.
15 *  AutoOpts is free software.
16 *  AutoOpts is Copyright (C) 1992-2015 by Bruce Korb - all rights reserved
17 *
18 *  AutoOpts is available under any one of two licenses.  The license
19 *  in use must be one of these two and the choice is under the control
20 *  of the user of the license.
21 *
22 *   The GNU Lesser General Public License, version 3 or later
23 *      See the files "COPYING.lgplv3" and "COPYING.gplv3"
24 *
25 *   The Modified Berkeley Software Distribution License
26 *      See the file "COPYING.mbsd"
27 *
28 *  These files have the following sha256 sums:
29 *
30 *  8584710e9b04216a394078dc156b781d0b47e1729104d666658aecef8ee32e95  COPYING.gplv3
31 *  4379e7444a0e2ce2b12dd6f5a52a27a4d02d39d247901d3285c88cf0d37f477b  COPYING.lgplv3
32 *  13aa749a5b0a454917a944ed8fffc530b784f5ead522b1aacaf4ec8aa55a6239  COPYING.mbsd
33 */
34
35/*=export_func  optionBooleanVal
36 * private:
37 *
38 * what:  Decipher a boolean value
39 * arg:   + tOptions * + opts + program options descriptor +
40 * arg:   + tOptDesc * + od  + the descriptor for this arg +
41 *
42 * doc:
43 *  Decipher a true or false value for a boolean valued option argument.
44 *  The value is true, unless it starts with 'n' or 'f' or "#f" or
45 *  it is an empty string or it is a number that evaluates to zero.
46=*/
47void
48optionBooleanVal(tOptions * opts, tOptDesc * od)
49{
50    char * pz;
51    bool   res = true;
52
53    if (INQUERY_CALL(opts, od))
54        return;
55
56    if (od->optArg.argString == NULL) {
57        od->optArg.argBool = false;
58        return;
59    }
60
61    switch (*(od->optArg.argString)) {
62    case '0':
63    {
64        long  val = strtol(od->optArg.argString, &pz, 0);
65        if ((val != 0) || (*pz != NUL))
66            break;
67        /* FALLTHROUGH */
68    }
69    case 'N':
70    case 'n':
71    case 'F':
72    case 'f':
73    case NUL:
74        res = false;
75        break;
76    case '#':
77        if (od->optArg.argString[1] != 'f')
78            break;
79        res = false;
80    }
81
82    if (od->fOptState & OPTST_ALLOC_ARG) {
83        AGFREE(od->optArg.argString);
84        od->fOptState &= ~OPTST_ALLOC_ARG;
85    }
86    od->optArg.argBool = res;
87}
88/** @}
89 *
90 * Local Variables:
91 * mode: C
92 * c-file-style: "stroustrup"
93 * indent-tabs-mode: nil
94 * End:
95 * end of autoopts/boolean.c */
96