Update of "Documentation"
Overview

Artifact ID: 82079e5d71154f43f132e47ec8736e91697f4666
Page Name:Documentation
Date: 2014-06-17 16:40:42
Original User: rkeene
Mimetype:text/x-markdown
Parent: 75ea53a7c199dcb325993054472d455010743be6 (diff)
Next 4587d632ddad00761c6f9fe54913b7cee5ce8836
Content

Manual Page

package require tcc4tcl

tcc4tcl::cproc

Creates a Tcl procedure that calls C code.

Synopsis:

  1. tcc4tcl::cproc <procName> <argList> <returnType> <code>
    1. <procName> is the name of the Tcl procedure to create
    2. <argList> is a list of arguments and their types for the C function;
      1. The list is in the format of: type1 name1 type2 name2 ... typeN nameN
      2. The supported types are:
        1. Tcl_Interp*: Must be first argument, will be the interpreter and the user will not need to pass this parameter
        2. int
        3. long
        4. float
        5. double
        6. char*
        7. Tcl_Obj*: Passes the Tcl object in unchanged
        8. void*
    3. <returnType> is the return type for the C function
      1. The supported types are:
        1. void: No return value
        2. ok: Return TCL_OK or TCL_ERROR
        3. int
        4. long
        5. float
        6. double
        7. char*: TCL_STATIC string (immutable from C)
        8. string, dstring: TCL_DYNAMIC string (mutable from C)
        9. vstring: TCL_VOLATILE string (mutable from C)
        10. default: Tcl_Obj*, a Tcl Object
    4. <code> is the C code that comprises the function

Examples:

  1. Create a Tcl procedure called "add" which accepts 2 integers (a, b) and returns a long:
    1. tcc4tcl::cproc add {int a int b} long { return(a+b); }
  2. Create a Tcl procedure called "mkdir" which accepts a Tcl_Obj* and returns a return code:
    1. tcc4tcl::cproc mkdir {Tcl_Interp* interp char* dir} ok { int mkdir_ret; mkdir_ret = mkdir(dir); if (mkdir_ret != 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj("failed", -1)); return(TCL_ERROR); }; return(TCL_OK); }

tcc4tcl::ccode

tcc4tcl::cdata