FM / tcl

/usr/share/swig/3.0.12/tcl/

/usr/share/swig/3.0.12/tcl

Name	Size	Mode	Actions
attribute.i	34	0644	edit dl rm
carrays.i	35	0644	edit dl rm
cdata.i	30	0644	edit dl rm
cmalloc.i	32	0644	edit dl rm
cni.i	42	0644	edit dl rm
cpointer.i	33	0644	edit dl rm
cstring.i	32	0644	edit dl rm
cwstring.i	60	0644	edit dl rm
exception.i	145	0644	edit dl rm
factory.i	32	0644	edit dl rm
jstring.i	1000	0644	edit dl rm
std_common.i	467	0644	edit dl rm
std_deque.i	28	0644	edit dl rm
std_except.i	35	0644	edit dl rm
std_map.i	2197	0644	edit dl rm
std_pair.i	707	0644	edit dl rm
std_string.i	36	0644	edit dl rm
std_vector.i	15628	0644	edit dl rm
std_wstring.i	63	0644	edit dl rm
stl.i	357	0644	edit dl rm
tcl8.swg	1500	0644	edit dl rm
tclapi.swg	3100	0644	edit dl rm
tclerrors.swg	1695	0644	edit dl rm
tclfragments.swg	555	0644	edit dl rm
tclinit.swg	4067	0644	edit dl rm
tclinterp.i	617	0644	edit dl rm
tclkw.swg	247	0644	edit dl rm
tclmacros.swg	38	0644	edit dl rm
tclopers.swg	1512	0644	edit dl rm
tclprimtypes.swg	5818	0644	edit dl rm
tclresult.i	684	0644	edit dl rm
tclrun.swg	22204	0644	edit dl rm
tclruntime.swg	484	0644	edit dl rm
tclsh.i	1871	0644	edit dl rm
tclstrings.swg	793	0644	edit dl rm
tcltypemaps.swg	2847	0644	edit dl rm
tcluserdir.swg	195	0644	edit dl rm
tclwstrings.swg	1836	0644	edit dl rm
typemaps.i	16058	0644	edit dl rm
wish.i	3436	0644	edit dl rm

Edit: /usr/share/swig/3.0.12/tcl/tclwstrings.swg (1836B)

%{
#include <wchar.h>
%}

%fragment("SWIG_AsWCharPtrAndSize","header") {
SWIGINTERN int
SWIG_AsWCharPtrAndSize(Tcl_Obj *obj, wchar_t** cptr, size_t* psize, int *alloc)
{ 
  int len = 0;
  Tcl_UniChar *ustr = Tcl_GetUnicodeFromObj(obj, &len);
  if (ustr) {
    if (cptr)  {
      Tcl_Encoding encoding = NULL;
      char *src = (char *) ustr;
      int srcLen = (len)*sizeof(Tcl_UniChar);
      int dstLen = sizeof(wchar_t)*(len + 1);
      char *dst = %new_array(dstLen, char);
      int flags = 0;
      Tcl_EncodingState *statePtr = 0;
      int srcRead = 0;
      int dstWrote = 0;
      int dstChars = 0;
      Tcl_UtfToExternal(0, encoding, src, srcLen, flags, statePtr, dst,
			dstLen, &srcRead, &dstWrote, &dstChars);
      
      if (alloc) *alloc = SWIG_NEWOBJ;
    }
    if (psize) *psize = len + 1;
    return SWIG_OK;
  }
  return SWIG_TypeError;
}
}

%fragment("SWIG_FromWCharPtrAndSize","header") {
SWIGINTERNINLINE Tcl_Obj *
SWIG_FromWCharPtrAndSize(const wchar_t* carray, size_t size)
{
  Tcl_Obj *res = NULL;
  if (size < INT_MAX) {
    Tcl_Encoding encoding = NULL;
    char *src = (char *) carray;
    int srcLen = (int)(size*sizeof(wchar_t));
    int dstLen = (int)(size*sizeof(Tcl_UniChar));
    char *dst = %new_array(dstLen, char);
    int flags = 0;
    Tcl_EncodingState *statePtr = 0;
    int srcRead = 0;
    int dstWrote = 0;
    int dstChars = 0;
    
    Tcl_ExternalToUtf(0, encoding, src, srcLen, flags, statePtr, dst,
		      dstLen, &srcRead, &dstWrote, &dstChars);
    
    res = Tcl_NewUnicodeObj((Tcl_UniChar*)dst, (int)size);
    %delete_array(dst);
  }
  return res;
}
}

/* ----------------------------------------------------------------------------- * tclwstrings.wg * * Utility methods for wchar strings * ----------------------------------------------------------------------------- */ %{ #include %} %fragment("SWIG_AsWCharPtrAndSize","header") { SWIGINTERN int SWIG_AsWCharPtrAndSize(Tcl_Obj *obj, wchar_t** cptr, size_t* psize, int *alloc) { int len = 0; Tcl_UniChar *ustr = Tcl_GetUnicodeFromObj(obj, &len); if (ustr) { if (cptr) { Tcl_Encoding encoding = NULL; char *src = (char *) ustr; int srcLen = (len)*sizeof(Tcl_UniChar); int dstLen = sizeof(wchar_t)*(len + 1); char *dst = %new_array(dstLen, char); int flags = 0; Tcl_EncodingState *statePtr = 0; int srcRead = 0; int dstWrote = 0; int dstChars = 0; Tcl_UtfToExternal(0, encoding, src, srcLen, flags, statePtr, dst, dstLen, &srcRead, &dstWrote, &dstChars); if (alloc) *alloc = SWIG_NEWOBJ; } if (psize) *psize = len + 1; return SWIG_OK; } return SWIG_TypeError; } } %fragment("SWIG_FromWCharPtrAndSize","header") { SWIGINTERNINLINE Tcl_Obj * SWIG_FromWCharPtrAndSize(const wchar_t* carray, size_t size) { Tcl_Obj *res = NULL; if (size < INT_MAX) { Tcl_Encoding encoding = NULL; char *src = (char *) carray; int srcLen = (int)(size*sizeof(wchar_t)); int dstLen = (int)(size*sizeof(Tcl_UniChar)); char *dst = %new_array(dstLen, char); int flags = 0; Tcl_EncodingState *statePtr = 0; int srcRead = 0; int dstWrote = 0; int dstChars = 0; Tcl_ExternalToUtf(0, encoding, src, srcLen, flags, statePtr, dst, dstLen, &srcRead, &dstWrote, &dstChars); res = Tcl_NewUnicodeObj((Tcl_UniChar*)dst, (int)size); %delete_array(dst); } return res; } }