Linux server2.hpierson.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64
Apache
: 162.0.216.123 | : 216.73.216.152
28 Domain
?7.4.33
yvffpqmy
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
swig /
2.0.10 /
tcl /
[ HOME SHELL ]
Name
Size
Permission
Action
attribute.i
34
B
-rw-r--r--
carrays.i
35
B
-rw-r--r--
cdata.i
30
B
-rw-r--r--
cmalloc.i
32
B
-rw-r--r--
cni.i
42
B
-rw-r--r--
cpointer.i
33
B
-rw-r--r--
cstring.i
32
B
-rw-r--r--
cwstring.i
60
B
-rw-r--r--
exception.i
145
B
-rw-r--r--
factory.i
32
B
-rw-r--r--
jstring.i
1000
B
-rw-r--r--
std_common.i
467
B
-rw-r--r--
std_deque.i
28
B
-rw-r--r--
std_except.i
35
B
-rw-r--r--
std_map.i
2.17
KB
-rw-r--r--
std_pair.i
707
B
-rw-r--r--
std_string.i
36
B
-rw-r--r--
std_vector.i
15.25
KB
-rw-r--r--
std_wstring.i
63
B
-rw-r--r--
stl.i
357
B
-rw-r--r--
tcl8.swg
1.46
KB
-rw-r--r--
tclapi.swg
3.03
KB
-rw-r--r--
tclerrors.swg
1.66
KB
-rw-r--r--
tclfragments.swg
555
B
-rw-r--r--
tclinit.swg
3.97
KB
-rw-r--r--
tclinterp.i
617
B
-rw-r--r--
tclkw.swg
247
B
-rw-r--r--
tclmacros.swg
38
B
-rw-r--r--
tclopers.swg
1.48
KB
-rw-r--r--
tclprimtypes.swg
5.47
KB
-rw-r--r--
tclresult.i
684
B
-rw-r--r--
tclrun.swg
21.53
KB
-rw-r--r--
tclruntime.swg
484
B
-rw-r--r--
tclsh.i
1.83
KB
-rw-r--r--
tclstrings.swg
793
B
-rw-r--r--
tcltypemaps.swg
2.71
KB
-rw-r--r--
tcluserdir.swg
195
B
-rw-r--r--
tclwstrings.swg
1.79
KB
-rw-r--r--
typemaps.i
15.68
KB
-rw-r--r--
wish.i
3.36
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tclwstrings.swg
/* ----------------------------------------------------------------------------- * tclwstrings.wg * * Utility methods for wchar strings * ----------------------------------------------------------------------------- */ %{ #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; } }
Close
