Subversion Repositories or1k_old

#include <tk.h>

#include <tix.h>

int

My_AddTwoCmd(clientData, interp, argc, argv)

    ClientData clientData;

    Tcl_Interp *interp;         /* Current interpreter. */

    int argc;                   /* Number of arguments. */

    char **argv;                /* Argument strings. */

{

    int num;

    char buf[30];

    if (argc != 2) {

        return Tix_ArgcError(interp, 1, argv, 1, "integer");

    }

    if (Tcl_GetInt(interp, argv[1], &num) != TCL_OK) {

        return TCL_ERROR;

    }

    sprintf(buf, "%d", num+2);

    Tcl_AppendResult(interp, buf, NULL);

    return TCL_OK;

}

int

My_SubTwoCmd(clientData, interp, argc, argv)

    ClientData clientData;

    Tcl_Interp *interp;         /* Current interpreter. */

    int argc;                   /* Number of arguments. */

    char **argv;                /* Argument strings. */

{

    int num;

    char buf[30];

    if (argc != 2) {

        return Tix_ArgcError(interp, 1, argv, 1, "integer");

    }

    if (Tcl_GetInt(interp, argv[1], &num) != TCL_OK) {

        return TCL_ERROR;

    }

    sprintf(buf, "%d", num-2);

    Tcl_AppendResult(interp, buf, NULL);

    return TCL_OK;

}