Ignore:
Timestamp:
Dec 13, 2014 1:10:09 PM (7 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/r9/lang/tcl/src/RpEncodeTclInterface.cc

    r3177 r4867  
    1515#include "RpEncode.h"
    1616extern "C" {
    17 #include "Switch.h"
     17#include "RpSwitch.h"
    1818extern Tcl_AppInitProc RpEncoding_Init;
    1919}
     
    179179          Tcl_Obj *const *objv)
    180180{
     181    EncodeSwitches switches;
     182    const char* string;
     183    int last;
     184    int n;
     185    int nBytes;
     186
    181187    if (objc < 1) {
    182188        Tcl_AppendResult(interp, "wrong # args: should be \"",
     
    185191        return TCL_ERROR;
    186192    }
    187     EncodeSwitches switches;
    188193    switches.flags = 0;
    189     int n;
    190     n = Rp_ParseSwitches(interp, encodeSwitches, objc - 1, objv + 1, &switches,
     194    n = RpParseSwitches(interp, encodeSwitches, objc - 1, objv + 1, &switches,
    191195                         SWITCH_OBJV_PARTIAL);
    192196    if (n < 0) {
    193197        return TCL_ERROR;
    194198    }
    195     int last;
    196199    last = n + 1;
    197200    if ((objc - last) != 1) {
     
    201204        return TCL_ERROR;
    202205    }
    203     int nBytes;
    204     const char* string;
    205206    string = (const char*)Tcl_GetByteArrayFromObj(objv[last], &nBytes);
    206207    if (nBytes <= 0) {
     
    251252          Tcl_Obj *const *objv)
    252253{
     254    DecodeSwitches switches;
     255    int n;
     256    int numBytes;
     257    const char *string;
     258    int last;
     259
    253260    if (objc < 1) {
    254261        Tcl_AppendResult(interp, "wrong # args: should be \"",
     
    258265    }
    259266
    260     DecodeSwitches switches;
    261267    switches.flags = 0;
    262     int n;
    263     n = Rp_ParseSwitches(interp, decodeSwitches, objc - 1, objv + 1, &switches,
     268    n = RpParseSwitches(interp, decodeSwitches, objc - 1, objv + 1, &switches,
    264269        SWITCH_OBJV_PARTIAL);
    265270    if (n < 0) {
    266271        return TCL_ERROR;
    267272    }
    268     int last;
    269273    last = n + 1;
    270274    if ((objc - last) != 1) {
     
    274278        return TCL_ERROR;
    275279    }
    276     int numBytes;
    277     const char *string;
    278280
    279281    string = Tcl_GetStringFromObj(objv[last], &numBytes);
Note: See TracChangeset for help on using the changeset viewer.