Posted to tcl by dram at Sun Oct 22 11:55:06 GMT 2017view pretty
#include <tcl.h> int main() { Tcl_Interp *tcl = Tcl_CreateInterp(); Tcl_Channel channel = Tcl_GetStdChannel(TCL_STDOUT); Tcl_WriteChars(channel, "hello\n", -1); Tcl_WriteChars(channel, "`}\n", -1); Tcl_WriteRaw(channel, "`}\n", -1); Tcl_Close(tcl, channel); Tcl_DeleteInterp(tcl); return 0; } Output: hello ?? `}