Latest code fragment(s):
Index: src/sbncloader/sbncloader.cpp
===================================================================
--- src/sbncloader/sbncloader.cpp (revision 1072)
+++ src/sbncloader/sbncloader.cpp (revision 1073)
@@ -306,6 +306,10 @@
Daemonize = false;
}
+#ifdef _WIN32
+ Daemonize = false;
+#endif
+
if (Daemonize) {
fprintf(stderr, "Daemonizing... ");
Index: bnctcl/tickleProcs_wrap.c
===================================================================
--- bnctcl/tickleProcs_wrap.c (revision 1072)
+++ bnctcl/tickleProcs_wrap.c (revision 1073)
@@ -1897,6 +1897,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2133,6 +2139,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2152,6 +2164,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2206,6 +2224,12 @@
if (ds_use_3)
Tcl_DStringFree(&ds_3);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2461,6 +2485,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2484,6 +2514,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2503,6 +2539,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2586,6 +2628,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2733,6 +2781,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2760,6 +2814,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2779,6 +2839,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -2910,6 +2976,12 @@
if (ds_use_3)
Tcl_DStringFree(&ds_3);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -2980,6 +3052,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -3031,6 +3109,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -3505,6 +3589,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -3667,11 +3757,12 @@
SWIG_exception(SWIG_RuntimeError, const_cast<char *>(Description));
}
}
+ Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
{
- Tcl_DString ds_result;
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
- Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_result),-1));
- Tcl_DStringFree(&ds_result);
+ Tcl_DStringFree(&ds_ret);
}
return TCL_OK;
fail:
@@ -3758,6 +3849,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -3777,6 +3874,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -3796,6 +3899,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -3848,6 +3957,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -3900,6 +4015,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -4379,6 +4500,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -4414,6 +4541,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -4494,6 +4627,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -4517,6 +4656,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -4536,6 +4681,12 @@
}
}
Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
return TCL_ERROR;
@@ -4568,6 +4719,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -4926,6 +5083,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -4960,6 +5123,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -5028,6 +5197,12 @@
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -5228,6 +5403,12 @@
if (ds_use_2)
Tcl_DStringFree(&ds_2);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
@@ -5636,16 +5817,17 @@
SWIG_exception(SWIG_RuntimeError, const_cast<char *>(Description));
}
}
+ Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result));
{
- Tcl_DString ds_result;
-
- Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_result),-1));
- Tcl_DStringFree(&ds_result);
- }
- {
if (ds_use_1)
Tcl_DStringFree(&ds_1);
}
+ {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, result, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
+ }
return TCL_OK;
fail:
{
Index: bnctcl/tickleProcs.h
===================================================================
--- bnctcl/tickleProcs.h (revision 1072)
+++ bnctcl/tickleProcs.h (revision 1073)
@@ -44,15 +44,15 @@
Tcl_DStringFree(&ds_$argnum);
}
-%typemap(out) char * {
- Tcl_DString ds_result;
+%typemap(in) const char * = char *;
- Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, $1, -1, &ds_result),-1));
- Tcl_DStringFree(&ds_result);
+%typemap(ret) char * {
+ Tcl_DString ds_ret;
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_ExternalToUtfDString(g_Encoding, $1, -1, &ds_ret),-1));
+
+ Tcl_DStringFree(&ds_ret);
}
-%typemap(in) const char * = char *;
-
%typemap(freearg) const char * = char *;
%header %{
Back to News