Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
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 /
swig4.0 /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
Makefile.pl
688
B
-rw-r--r--
attribute.i
34
B
-rw-r--r--
carrays.i
33
B
-rw-r--r--
cdata.i
30
B
-rw-r--r--
cmalloc.i
32
B
-rw-r--r--
cpointer.i
33
B
-rw-r--r--
cstring.i
32
B
-rw-r--r--
director.swg
7.09
KB
-rw-r--r--
exception.i
138
B
-rw-r--r--
factory.i
32
B
-rw-r--r--
noembed.h
1.57
KB
-rw-r--r--
perl5.swg
1.44
KB
-rw-r--r--
perlerrors.swg
871
B
-rw-r--r--
perlfragments.swg
556
B
-rw-r--r--
perlhead.swg
2.55
KB
-rw-r--r--
perlinit.swg
1.99
KB
-rw-r--r--
perlkw.swg
3.78
KB
-rw-r--r--
perlmacros.swg
36
B
-rw-r--r--
perlmain.i
1.94
KB
-rw-r--r--
perlopers.swg
1.83
KB
-rw-r--r--
perlprimtypes.swg
8.15
KB
-rw-r--r--
perlrun.swg
14.69
KB
-rw-r--r--
perlruntime.swg
326
B
-rw-r--r--
perlstrings.swg
1.39
KB
-rw-r--r--
perltypemaps.swg
2.99
KB
-rw-r--r--
perluserdir.swg
36
B
-rw-r--r--
reference.i
7.08
KB
-rw-r--r--
std_common.i
654
B
-rw-r--r--
std_deque.i
28
B
-rw-r--r--
std_except.i
35
B
-rw-r--r--
std_list.i
14.23
KB
-rw-r--r--
std_map.i
2.55
KB
-rw-r--r--
std_pair.i
773
B
-rw-r--r--
std_string.i
62
B
-rw-r--r--
std_vector.i
22.81
KB
-rw-r--r--
stl.i
291
B
-rw-r--r--
typemaps.i
12.52
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : perltypemaps.swg
/* ------------------------------------------------------------ * Typemap specializations for Perl * ------------------------------------------------------------ */ /* ------------------------------------------------------------ * Fragment section * ------------------------------------------------------------ */ /* in Perl we need to pass the CPerlObj value, sometimes, so, we define the decl/call macros as needed. */ #define SWIG_AS_DECL_ARGS SWIG_PERL_DECL_ARGS_2 #define SWIG_AS_CALL_ARGS SWIG_PERL_CALL_ARGS_2 #define SWIG_FROM_DECL_ARGS SWIG_PERL_DECL_ARGS_1 #define SWIG_FROM_CALL_ARGS SWIG_PERL_CALL_ARGS_1 /* Include fundamental fragment definitions */ %include <typemaps/fragments.swg> /* Look for user fragments file. */ %include <perlfragments.swg> /* Perl fragments for primitive types */ %include <perlprimtypes.swg> /* Perl fragments for char* strings */ %include <perlstrings.swg> /* ------------------------------------------------------------ * Unified typemap section * ------------------------------------------------------------ */ /* director support in Perl is experimental */ #ifndef SWIG_DIRECTOR_TYPEMAPS #define SWIG_DIRECTOR_TYPEMAPS #endif /* Perl types */ #define SWIG_Object SV * #define VOID_Object &PL_sv_undef /* Perl $shadow flag */ #define %newpointer_flags $shadow #define %newinstance_flags $shadow /* Complete overload of the output/constant/exception macros */ /* output */ %define %set_output(obj) $result = obj; argvi++ %enddef /* append output */ %define %append_output(obj) if (argvi >= items) EXTEND(sp, argvi+1); %set_output(obj) %enddef /* variable output */ %define %set_varoutput(obj) sv_setsv($result,obj) %enddef /* constant */ %define %set_constant(name, obj) %begin_block SV *sv = get_sv((char*) SWIG_prefix name, TRUE | 0x2 | GV_ADDMULTI); sv_setsv(sv, obj); SvREADONLY_on(sv); %end_block %enddef /* raise exception */ %define %raise(obj, type, desc) sv_setsv(get_sv("@", GV_ADD), obj); SWIG_fail %enddef /* For directors to raise/throw the original exception */ %typemap(throws) Swig::DirectorException %{ sv_setsv(ERRSV, $1.getNative()); SWIG_fail; %} /* Include the unified typemap library */ %include <typemaps/swigtypemaps.swg> /* ------------------------------------------------------------ * Perl extra typemaps / typemap overrides * ------------------------------------------------------------ */ %typemap(varout,type="$1_descriptor") SWIGTYPE *, SWIGTYPE [] "sv_setiv(SvRV($result),PTR2IV($1));"; %typemap(varout,type="$1_descriptor") SWIGTYPE & "sv_setiv(SvRV($result),PTR2IV(&$1));"; %typemap(varout,type="$1_descriptor") SWIGTYPE && "sv_setiv(SvRV($result),PTR2IV(&$1));"; %typemap(varout,type="$&1_descriptor") SWIGTYPE "sv_setiv(SvRV($result), PTR2IV(&$1));"; %typemap(varout,type="$1_descriptor") SWIGTYPE (CLASS::*) { SWIG_MakePackedObj($result, (void *) &$1, sizeof($1_type), $1_descriptor); } %typemap(varout) SWIGTYPE *const = SWIGTYPE *;
Close
