git.zerfleddert.de Git - micropolis/blob - src/tcl/tclget.c

   1 /*
   2  * tclGet.c --
   3  *
   4  *      This file contains procedures to convert strings into
   5  *      other forms, like integers or floating-point numbers or
   6  *      booleans, doing syntax checking along the way.
   7  *
   8  * Copyright 1990-1991 Regents of the University of California
   9  * Permission to use, copy, modify, and distribute this
  10  * software and its documentation for any purpose and without
  11  * fee is hereby granted, provided that the above copyright
  12  * notice appear in all copies.  The University of California
  13  * makes no representations about the suitability of this
  14  * software for any purpose.  It is provided "as is" without
  15  * express or implied warranty.
  16  */
  17
  18 #ifndef lint
  19 static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/tclGet.c,v 1.11 92/02/29 16:13:14 ouster Exp $ SPRITE (Berkeley)";
  20 #endif /* not lint */
  21
  22 #include "tclint.h"
  23 \f
  24 /*
  25  *----------------------------------------------------------------------
  26  *
  27  * Tcl_GetInt --
  28  *
  29  *      Given a string, produce the corresponding integer value.
  30  *
  31  * Results:
  32  *      The return value is normally TCL_OK;  in this case *intPtr
  33  *      will be set to the integer value equivalent to string.  If
  34  *      string is improperly formed then TCL_ERROR is returned and
  35  *      an error message will be left in interp->result.
  36  *
  37  * Side effects:
  38  *      None.
  39  *
  40  *----------------------------------------------------------------------
  41  */
  42
  43 int
  44 Tcl_GetInt(interp, string, intPtr)
  45     Tcl_Interp *interp;         /* Interpreter to use for error reporting. */
  46     char *string;               /* String containing a (possibly signed)
  47                                  * integer in a form acceptable to strtol. */
  48     int *intPtr;                /* Place to store converted result. */
  49 {
  50     char *end;
  51     int i;
  52
  53     i = strtol(string, &end, 0);
  54     while ((*end != '\0') && isspace(*end)) {
  55         end++;
  56     }
  57     if ((end == string) || (*end != 0)) {
  58         Tcl_AppendResult(interp, "expected integer but got \"", string,
  59                 "\"", (char *) NULL);
  60         return TCL_ERROR;
  61     }
  62     *intPtr = i;
  63     return TCL_OK;
  64 }
  65 \f
  66 /*
  67  *----------------------------------------------------------------------
  68  *
  69  * Tcl_GetDouble --
  70  *
  71  *      Given a string, produce the corresponding double-precision
  72  *      floating-point value.
  73  *
  74  * Results:
  75  *      The return value is normally TCL_OK;  in this case *doublePtr
  76  *      will be set to the double-precision value equivalent to string.
  77  *      If string is improperly formed then TCL_ERROR is returned and
  78  *      an error message will be left in interp->result.
  79  *
  80  * Side effects:
  81  *      None.
  82  *
  83  *----------------------------------------------------------------------
  84  */
  85
  86 int
  87 Tcl_GetDouble(interp, string, doublePtr)
  88     Tcl_Interp *interp;         /* Interpreter to use for error reporting. */
  89     char *string;               /* String containing a floating-point number
  90                                  * in a form acceptable to strtod. */
  91     double *doublePtr;          /* Place to store converted result. */
  92 {
  93     char *end;
  94     double d;
  95
  96     d = strtod(string, &end);
  97     while ((*end != '\0') && isspace(*end)) {
  98         end++;
  99     }
 100     if ((end == string) || (*end != 0)) {
 101         Tcl_AppendResult(interp, "expected floating-point number but got \"",
 102                 string, "\"", (char *) NULL);
 103         return TCL_ERROR;
 104     }
 105     *doublePtr = d;
 106     return TCL_OK;
 107 }
 108 \f
 109 /*
 110  *----------------------------------------------------------------------
 111  *
 112  * Tcl_GetBoolean --
 113  *
 114  *      Given a string, return a 0/1 boolean value corresponding
 115  *      to the string.
 116  *
 117  * Results:
 118  *      The return value is normally TCL_OK;  in this case *boolPtr
 119  *      will be set to the 0/1 value equivalent to string.  If
 120  *      string is improperly formed then TCL_ERROR is returned and
 121  *      an error message will be left in interp->result.
 122  *
 123  * Side effects:
 124  *      None.
 125  *
 126  *----------------------------------------------------------------------
 127  */
 128
 129 int
 130 Tcl_GetBoolean(interp, string, boolPtr)
 131     Tcl_Interp *interp;         /* Interpreter to use for error reporting. */
 132     char *string;               /* String containing a boolean number
 133                                  * specified either as 1/0 or true/false or
 134                                  * yes/no. */
 135     int *boolPtr;               /* Place to store converted result, which
 136                                  * will be 0 or 1. */
 137 {
 138     char c;
 139     char lowerCase[10];
 140     int i, length;
 141
 142     /*
 143      * Convert the input string to all lower-case.
 144      */
 145
 146     for (i = 0; i < 9; i++) {
 147         c = string[i];
 148         if (c == 0) {
 149             break;
 150         }
 151         if ((c >= 'A') && (c <= 'Z')) {
 152             c += 'a' - 'A';
 153         }
 154         lowerCase[i] = c;
 155     }
 156     lowerCase[i] = 0;
 157
 158     length = strlen(lowerCase);
 159     c = lowerCase[0];
 160     if ((c == '0') && (lowerCase[1] == '\0')) {
 161         *boolPtr = 0;
 162     } else if ((c == '1') && (lowerCase[1] == '\0')) {
 163         *boolPtr = 1;
 164     } else if ((c == 'y') && (strncmp(lowerCase, "yes", length) == 0)) {
 165         *boolPtr = 1;
 166     } else if ((c == 'n') && (strncmp(lowerCase, "no", length) == 0)) {
 167         *boolPtr = 0;
 168     } else if ((c == 't') && (strncmp(lowerCase, "true", length) == 0)) {
 169         *boolPtr = 1;
 170     } else if ((c == 'f') && (strncmp(lowerCase, "false", length) == 0)) {
 171         *boolPtr = 0;
 172     } else if ((c == 'o') && (length >= 2)) {
 173         if (strncmp(lowerCase, "on", length) == 0) {
 174             *boolPtr = 1;
 175         } else if (strncmp(lowerCase, "off", length) == 0) {
 176             *boolPtr = 0;
 177         }
 178     } else {
 179         Tcl_AppendResult(interp, "expected boolean value but got \"",
 180                 string, "\"", (char *) NULL);
 181         return TCL_ERROR;
 182     }
 183     return TCL_OK;
 184 }