Changeset 1850 for trunk/lang


Ignore:
Timestamp:
Jul 30, 2010, 8:34:57 AM (14 years ago)
Author:
dkearney
Message:

adding perl wrapper example to configure and make scripts

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/lang/tcl/src/RpEncodeTclInterface.cc

    r1409 r1850  
    8181        string = (Rappture::encoding::isBinary(buf, bufLen)) ? "yes" : "no";
    8282    } else if (('e' == *type) && (strcmp(type,"encoded") == 0)) {
    83         bool isEncoded;
     83        bool isEncoded;
    8484
    8585        isEncoded = (Rappture::encoding::headerFlags(buf, bufLen) != 0);
    86         string = (isEncoded) ? "yes" : "no" ;
     86        string = (isEncoded) ? "yes" : "no" ;
    8787    } else {
    88         Tcl_AppendResult(interp, "bad option \"", type,
    89                 "\": should be binary or encoded", (char*)NULL);
    90         return TCL_ERROR;
     88        Tcl_AppendResult(interp, "bad option \"", type,
     89                "\": should be binary or encoded", (char*)NULL);
     90        return TCL_ERROR;
    9191    }
    9292    Tcl_SetResult(interp, (char *)string, TCL_STATIC);
    … …  
    114114 * AsSwitch --
    115115 *
    116  *      Convert a string represent a node number into its integer
    117  *      value.
     116 *        Convert a string represent a node number into its integer
     117 *        value.
    118118 *
    119119 * Results:
    120  *      The return value is a standard Tcl result.
     120 *        The return value is a standard Tcl result.
    121121 *
    122122 *---------------------------------------------------------------------------
    … …  
    125125static int
    126126AsSwitch(
    127     ClientData clientData,      /* Not used. */
    128     Tcl_Interp *interp,         /* Interpreter to send results back to */
    129     const char *switchName,     /* Not used. */
    130     Tcl_Obj *objPtr,            /* String representation */
    131     char *record,               /* Structure record */
    132     int offset,                 /* Offset to field in structure */
    133     int flags)                  /* Not used. */
     127    ClientData clientData,        /* Not used. */
     128    Tcl_Interp *interp,                /* Interpreter to send results back to */
     129    const char *switchName,        /* Not used. */
     130    Tcl_Obj *objPtr,                /* String representation */
     131    char *record,                /* Structure record */
     132    int offset,                        /* Offset to field in structure */
     133    int flags)                        /* Not used. */
    134134{
    135135    int *flagsPtr = (int *)(record + offset);
    … …  
    140140    c = string[0];
    141141    if ((c == 'b') && (strcmp(string, "b64") == 0)) {
    142         *flagsPtr = RPENC_B64;
     142        *flagsPtr = RPENC_B64;
    143143    } else if ((c == 'z') && (strcmp(string, "zb64") == 0)) {
    144         *flagsPtr = RPENC_Z  | RPENC_B64;
     144        *flagsPtr = RPENC_Z  | RPENC_B64;
    145145    } else if ((c == 'z') && (strcmp(string, "z") == 0)) {
    146         *flagsPtr = RPENC_Z;
     146        *flagsPtr = RPENC_Z;
    147147    } else {
    148         Tcl_AppendResult(interp, "bad value \"", string,
    149                 "\": should be b64, zb64, or z", (char *)NULL);
    150         return TCL_ERROR;
     148        Tcl_AppendResult(interp, "bad value \"", string,
     149                "\": should be b64, zb64, or z", (char *)NULL);
     150        return TCL_ERROR;
    151151    }
    152152    return TCL_OK;
    … …  
    165165{
    166166    {SWITCH_CUSTOM, "-as", "z|b64|zb64",
    167         offsetof(EncodeSwitches, flags), 0, 0, &asSwitch},
     167        offsetof(EncodeSwitches, flags), 0, 0, &asSwitch},
    168168    {SWITCH_BITMASK, "-noheader", "",
    169         offsetof(EncodeSwitches, flags), 0, RPENC_RAW},
     169        offsetof(EncodeSwitches, flags), 0, RPENC_RAW},
    170170    {SWITCH_END}
    171171};
    … …  
    173173static int
    174174EncodeCmd(ClientData clientData, Tcl_Interp *interp, int objc,
    175           Tcl_Obj *const *objv)
     175          Tcl_Obj *const *objv)
    176176{
    177177    if (objc < 1) {
    178178        Tcl_AppendResult(interp, "wrong # args: should be \"",
    179                 Tcl_GetString(objv[0]),
    180                 " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
     179                Tcl_GetString(objv[0]),
     180                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
    181181        return TCL_ERROR;
    182182    }
    … …  
    185185    int n;
    186186    n = Rp_ParseSwitches(interp, encodeSwitches, objc - 1, objv + 1, &switches,
    187                         SWITCH_OBJV_PARTIAL);
     187                        SWITCH_OBJV_PARTIAL);
    188188    if (n < 0) {
    189         return TCL_ERROR;
     189        return TCL_ERROR;
    190190    }
    191191    int last;
    … …  
    193193    if ((objc - last) != 1) {
    194194        Tcl_AppendResult(interp, "wrong # args: should be \"",
    195                 Tcl_GetString(objv[0]),
    196                 " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
     195                Tcl_GetString(objv[0]),
     196                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
    197197        return TCL_ERROR;
    198198    }
    … …  
    201201    string = (const char*)Tcl_GetByteArrayFromObj(objv[last], &nBytes);
    202202    if (nBytes <= 0) {
    203         return TCL_OK;          // Nothing to encode.
     203        return TCL_OK;                // Nothing to encode.
    204204    }
    205205    Rappture::Buffer buf(string, nBytes);
    … …  
    207207    if (!Rappture::encoding::encode(status, buf, switches.flags)) {
    208208        Tcl_AppendResult(interp, status.remark(), "\n", status.context(), NULL);
    209         return TCL_ERROR;
     209        return TCL_ERROR;
    210210    }
    211211    Tcl_SetByteArrayObj(Tcl_GetObjResult(interp),
    212                 (const unsigned char*)buf.bytes(), buf.size());
     212                (const unsigned char*)buf.bytes(), buf.size());
    213213    return TCL_OK;
    214214}
    … …  
    225225 * ::Rappture::encoding::decode ?-as z|b64|zb64? <string>
    226226 *
    227  *      I'd rather the interface be
    228  *     
    229  *              decode -b64 -z string
     227 *        I'd rather the interface be
     228 *       
     229 *                decode -b64 -z string
    230230 */
    231231
    … …  
    237237{
    238238    {SWITCH_CUSTOM, "-as", "z|b64|zb64",
    239         offsetof(DecodeSwitches, flags), 0, 0, &asSwitch},
     239        offsetof(DecodeSwitches, flags), 0, 0, &asSwitch},
    240240    {SWITCH_BITMASK, "-noheader", "",
    241         offsetof(DecodeSwitches, flags), 0, RPENC_RAW},
     241        offsetof(DecodeSwitches, flags), 0, RPENC_RAW},
    242242    {SWITCH_END}
    243243};
    … …  
    245245static int
    246246DecodeCmd(ClientData clientData, Tcl_Interp *interp, int objc,
    247           Tcl_Obj *const *objv)
     247          Tcl_Obj *const *objv)
    248248{
    249249    if (objc < 1) {
    250250        Tcl_AppendResult(interp, "wrong # args: should be \"",
    251                 Tcl_GetString(objv[0]),
     251                Tcl_GetString(objv[0]),
    252252                " ?-as z|b64|zb64? ?--? <string>\"", (char*)NULL);
    253253        return TCL_ERROR;
    … …  
    258258    int n;
    259259    n = Rp_ParseSwitches(interp, decodeSwitches, objc - 1, objv + 1, &switches,
    260                         SWITCH_OBJV_PARTIAL);
     260                        SWITCH_OBJV_PARTIAL);
    261261    if (n < 0) {
    262         return TCL_ERROR;
     262        return TCL_ERROR;
    263263    }
    264264    int last;
    … …  
    266266    if ((objc - last) != 1) {
    267267        Tcl_AppendResult(interp, "wrong # args: should be \"",
    268                 Tcl_GetString(objv[0]),
    269                 " ?-as z|b64|zb64? ?--? string\"", (char*)NULL);
     268                Tcl_GetString(objv[0]),
     269                " ?-as z|b64|zb64? ?--? string\"", (char*)NULL);
    270270        return TCL_ERROR;
    271271    }
    … …  
    274274    string = (const char*)Tcl_GetByteArrayFromObj(objv[last], &nBytes);
    275275    if (nBytes <= 0) {
    276         return TCL_OK;          // Nothing to decode.
     276        return TCL_OK;                // Nothing to decode.
    277277    }
    278278    Rappture::Buffer buf(string, nBytes);
    … …  
    280280    if (!Rappture::encoding::decode(status, buf, switches.flags)) {
    281281        Tcl_AppendResult(interp, status.remark(), "\n", status.context(), NULL);
    282         return TCL_ERROR;
     282        return TCL_ERROR;
    283283    }
    284284    Tcl_SetByteArrayObj(Tcl_GetObjResult(interp),
    285                 (const unsigned char*)buf.bytes(), buf.size());
    286     return TCL_OK;
    287 }
     285                (const unsigned char*)buf.bytes(), buf.size());
     286    return TCL_OK;
     287}
Note: See TracChangeset for help on using the changeset viewer.