Posted to tcl by dram at Sun Oct 22 11:55:06 GMT 2017view raw
- #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
- ??
- `}