Changeset 3717 for trunk/lang


Ignore:
Timestamp:
Jun 27, 2013 1:26:46 PM (9 years ago)
Author:
gah
Message:

fixes for R build, can now make clean, make

Location:
trunk/lang
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/lang/R/Makefile.in

    r2709 r3717  
    4040
    4141clean:
    42         $(RM) -rf Rappture Rappture_1.0.tar.gz ${PWD}/build
     42        $(RM) -rf Rappture ${PWD}/build
    4343
    4444distclean: clean
  • trunk/lang/tcl/src/RpUnitsTclInterface.cc

    r3511 r3717  
    162162                        return TCL_ERROR;
    163163                    }
    164                 }
    165                 else {
     164                } else {
    166165                    // if user does not specify wishes for this option,
    167166                    // set fromUnitsName to an empty string.
    168167                    fromUnitsName = "";
    169168                }
    170             }
    171             else if ( option == "-to" ) {
     169            } else if ( option == "-to" ) {
    172170                nextarg++;
    173171                if (argv[nextarg] != NULL) {
     
    183181                        return TCL_ERROR;
    184182                    }
    185                 }
    186                 else {
     183                } else {
    187184                    // if user does not specify wishes for this option,
    188185                    // set toUnitsName to an empty string.
    189186                    toUnitsName = "";
    190187                }
    191             }
    192             else if ( option == "-units" ) {
     188            } else if ( option == "-units" ) {
    193189                nextarg++;
    194190                if (argv[nextarg] != NULL) {
     
    201197                        return TCL_ERROR;
    202198                    }
    203                 }
    204                 else {
     199                } else {
    205200                    // if user does not specify wishes for this option,
    206201                    // return error.
     
    210205                    return TCL_ERROR;
    211206                }
    212             }
    213             else {
     207            } else {
    214208                // unrecognized option
    215209                Tcl_AppendResult(interp, "bad option \"", argv[nextarg],
     
    220214
    221215            nextarg++;
    222         }
    223         else {
     216        } else {
    224217            // unrecognized input
    225218            Tcl_AppendResult(interp, "bad option \"", argv[nextarg], "\": ",
     
    240233    trim(inValue);
    241234
    242     double value;
    243     value = strtod(inValue.c_str(), &endptr);
     235    strtod(inValue.c_str(), &endptr);
    244236    if (endptr == inValue.c_str()) {
    245237        // there was no numeric value that could be pulled from inValue
     
    256248                inValue.c_str(), mesg.c_str(), (char*)NULL);
    257249        return TCL_ERROR;
    258     }
    259     else if ( ((unsigned)(endptr - inValue.c_str())) == inValue.length() ) {
     250    } else if ( ((unsigned)(endptr - inValue.c_str())) == inValue.length() ) {
    260251        // add 1 because we are subtracting indicies
    261252        // there were no units at the end of the inValue string
     
    265256        if (!fromUnitsName.empty()) {
    266257            val = inValue + fromUnitsName;
    267         }
    268         else {
     258        } else {
    269259            Tcl_AppendResult(interp, "value: \"", inValue.c_str(),
    270260                    "\" has unrecognized units", (char*)NULL);
    271261            return TCL_ERROR;
    272262        }
    273     }
    274     else {
     263    } else {
    275264        // there seemed to be units at the end of the inValue string
    276265        // we will ignore the -context flag and use the units in inValue
     
    285274        Tcl_AppendResult(interp, convertedVal.c_str(), (char*)NULL);
    286275        retVal = TCL_OK;
    287     }
    288     else {
     276    } else {
    289277        // error while converting
    290278        Tcl_AppendResult(interp,
Note: See TracChangeset for help on using the changeset viewer.