Wiki pages with [Critcl] examples (incomplete list):
* [Accessing C library functions using Critcl]
* [Critcl example with the Mancala game]
* [Critcl NAG]
* [CRIMP] raster image processing package without the need for Tk, page has no code, refers to the source repository.
* [fast alpha blending (transparency)] (involves [Tk])
* [loadf]
* [LuaJIT]
* [odyce] (actually a "competitor" providing Critcl emulation)
* [PAM]
* [Passing arrays of data]
* [photo image equality in Critcl] (involves [Tk])
* [proj4tcl] simple use of critcl::class
* [Standalone bgexec] (rather long) * [svgconvert] - using the [Cairo] library
* [tclAppleHelp]
* [tclAuthorization]
* [tclCarbonHICommand]
* [tclCarbonNotification] (very structured -- worth a look as a template for your own packages)
* [tclCarbonProcesses]
* [ULID]
* [userid]
* [ci - a tiny C interpreter]
* [aes with critcl]
* [TCP and recv]
* [xxHash]
* [Zstandard]
----
[LV]: Has anyone investigated making use of Critcl to create an HTML rendering widget, perhaps based on [BrowseX]?
[JCW]: Yep, Tkhtml can be built with Critcl, though it's tricky.
See [http://www.equi4.com/critlib/rhtml.README], now in critlib.
----
Has someone looked at http://root.cern.ch/root/Cint.html
as a possible way to integrate C with Tcl without having to compile C...
[RFox] I have a project to look at other bits and pieces of Root...a slow project, however not CInt specifically though it could be addeed to that project.
[SWT]:
I have built a working cint shared lib for tcl.
It works great!
Now to "run" c code the cint library is only
needed for each platform that support is required for.
----
[Brian Theado] 17Dec2004 - Examples with Tcl_Obj* return type
The presence of Tcl_IncrRefCount is crucial here and nothing gets returned without it. I guess Critcl automatically decrements the reference count on this return type. Could someone provide a counter example where the automatic reference count decrement is useful?
======
package require critcl
critcl::cproc abc {} Tcl_Obj* {
char test[4] = "abc";
Tcl_Obj * rv = Tcl_NewStringObj ("abc", 3);
Tcl_IncrRefCount (rv);
return rv;
}
critcl::cproc 123 {} Tcl_Obj* {
char test[3] = {1, 2, 3};
Tcl_Obj * obj = Tcl_NewByteArrayObj (test, 3);
Tcl_IncrRefCount (obj);
return obj;
}
puts [abc]
binary scan [123] H* result
puts $result
======
Output:
======none
abc
010203
======
----
''2005-09-02 [Sarnold]''
See also [Critcl example with the Mancala game] and [foriter - a loop command].
----
''2006-11-21 [dzach]'' Could someone post a basic critcl snipet on how to access the [snack] sound library? Play a sound or record a sound, for instance?
----
[Lars H], 2007-10-09:
Saw [http://tclmentor.kocjan.org/2007/10/recently-ive-been-facing-relatively.html], which compares performance of a native [Perl] operation (binary xor of two strings, now how screwy is that?!) with implementations in [Java] and [Tcl]. Thinking that the natural way for a Tcler to implement that, if performance really matters, is to code it in C, I did a Critcl implementation:
======
package require critcl
critcl::ccommand xor {cd interp objc objv} {
char* sP;
char* kP;
int slen, klen;
Tcl_Obj* resObj;
if (objc != 3) { /* This can be improved. */
return TCL_ERROR;
}
sP = Tcl_GetByteArrayFromObj(objv[1],&slen);
resObj = Tcl_NewByteArrayObj(sP,slen);
sP = Tcl_GetByteArrayFromObj(resObj,(int*)NULL);
kP = Tcl_GetByteArrayFromObj(objv[2],&klen);
for (; slen>0 && klen>0 ; slen--, klen--) {
*sP++ ^= *kP++;
}
Tcl_SetObjResult(interp,resObj);
return TCL_OK;
}
puts [xor "A!" "bB"]
======
Prints "`#c`".
<<categories>> Critcl | Example