/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba3/ |
H A D | ServerNDR.pm | 29 sub pidl($) { my ($txt) = @_; $res .= $txt?$tabs.(shift)."\n":"\n"; } subroutine 31 sub fn_declare($) { my ($n) = @_; pidl $n; pidl_hdr "$n;"; } 77 pidl "#error No size known for array `$e->{NAME}'"; 80 pidl "$name = talloc_zero_array($mem_ctx, " . DeclLevel($e, 1) . ", $size);"; 83 pidl "$name = talloc_zero($mem_ctx, " . DeclLevel($e, 1) . ");"; 86 pidl "if ($name == NULL) {"; 88 pidl "}"; 89 pidl ""; 101 pidl "ZERO_STRUCT(r->out);" if ($hasout); 108 pidl " [all...] |
H A D | ClientNDR.pm | 25 sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= $txt ? "$self->{tabs}$txt\n" : "\n"; } subroutine 27 sub fn_declare($$) { my ($self,$n) = @_; $self->pidl($n); $self->pidl_hdr("$n;"); } 79 $self->pidl("return NT_STATUS_INVALID_NETWORK_RESPONSE;"); 81 $self->pidl("tevent_req_nterror(req, NT_STATUS_INVALID_NETWORK_RESPONSE);"); 82 $self->pidl("return;"); 97 $self->pidl("return NT_STATUS_NOT_SUPPORTED;"); 105 $self->pidl("if ($o$e->{NAME} && ${r}out.$e->{NAME}) {"); 119 $self->pidl('#error No size known for [out] array `$e->{NAME}'); 129 $self->pidl("if (($out_size_is) > ($in_size_is)) {"); 133 $self->pidl("}"); [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba3/ |
H A D | ServerNDR.pm | 29 sub pidl($) { my ($txt) = @_; $res .= $txt?$tabs.(shift)."\n":"\n"; } subroutine 31 sub fn_declare($) { my ($n) = @_; pidl $n; pidl_hdr "$n;"; } 77 pidl "#error No size known for array `$e->{NAME}'"; 80 pidl "$name = talloc_zero_array($mem_ctx, " . DeclLevel($e, 1) . ", $size);"; 83 pidl "$name = talloc_zero($mem_ctx, " . DeclLevel($e, 1) . ");"; 86 pidl "if ($name == NULL) {"; 88 pidl "}"; 89 pidl ""; 101 pidl "ZERO_STRUCT(r->out);" if ($hasout); 108 pidl " [all...] |
H A D | ClientNDR.pm | 25 sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= $txt ? "$self->{tabs}$txt\n" : "\n"; } subroutine 27 sub fn_declare($$) { my ($self,$n) = @_; $self->pidl($n); $self->pidl_hdr("$n;"); } 79 $self->pidl("return NT_STATUS_INVALID_NETWORK_RESPONSE;"); 81 $self->pidl("tevent_req_nterror(req, NT_STATUS_INVALID_NETWORK_RESPONSE);"); 82 $self->pidl("return;"); 97 $self->pidl("return NT_STATUS_NOT_SUPPORTED;"); 105 $self->pidl("if ($o$e->{NAME} && ${r}out.$e->{NAME}) {"); 119 $self->pidl('#error No size known for [out] array `$e->{NAME}'); 129 $self->pidl("if (($out_size_is) > ($in_size_is)) {"); 133 $self->pidl("}"); [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba3/ |
H A D | ServerNDR.pm | 29 sub pidl($) { my ($txt) = @_; $res .= $txt?$tabs.(shift)."\n":"\n"; } subroutine 31 sub fn_declare($) { my ($n) = @_; pidl $n; pidl_hdr "$n;"; } 77 pidl "#error No size known for array `$e->{NAME}'"; 80 pidl "$name = talloc_zero_array($mem_ctx, " . DeclLevel($e, 1) . ", $size);"; 83 pidl "$name = talloc_zero($mem_ctx, " . DeclLevel($e, 1) . ");"; 86 pidl "if ($name == NULL) {"; 88 pidl "}"; 89 pidl ""; 101 pidl "ZERO_STRUCT(r->out);" if ($hasout); 108 pidl " [all...] |
H A D | ClientNDR.pm | 25 sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= $txt ? "$self->{tabs}$txt\n" : "\n"; } subroutine 27 sub fn_declare($$) { my ($self,$n) = @_; $self->pidl($n); $self->pidl_hdr("$n;"); } 79 $self->pidl("return NT_STATUS_INVALID_NETWORK_RESPONSE;"); 81 $self->pidl("tevent_req_nterror(req, NT_STATUS_INVALID_NETWORK_RESPONSE);"); 82 $self->pidl("return;"); 97 $self->pidl("return NT_STATUS_NOT_SUPPORTED;"); 105 $self->pidl("if ($o$e->{NAME} && ${r}out.$e->{NAME}) {"); 119 $self->pidl('#error No size known for [out] array `$e->{NAME}'); 129 $self->pidl("if (($out_size_is) > ($in_size_is)) {"); 133 $self->pidl("}"); [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/ |
H A D | TDR.pm | 29 sub pidl($$) { my $self = shift; $self->{ret} .= $self->{tabs}.(shift)."\n"; } subroutine 42 $self->pidl($d); $self->pidl_hdr("$d;"); 44 $self->pidl("static $d"); 77 $self->pidl("{"); 79 $self->pidl("uint32_t saved_flags = tdr->flags;"); 80 $self->pidl("tdr->flags |= $e->{PROPERTIES}->{flag};"); 89 $self->pidl("TDR_CHECK(tdr_$t\_charset(tdr$name, &v->$e->{NAME}, $len, sizeof($e->{TYPE}_t), CH_$e->{PROPERTIES}->{charset}));"); 101 $self->pidl("TDR_ALLOC(mem_ctx, v->$e->{NAME}, $len);"); 105 $self->pidl("for (i = 0; i < $len; i++) {"); 115 $self->pidl(" [all...] |
H A D | Header.pm | 26 sub pidl($) { $res .= shift; } subroutine 52 pidl "/* [" . substr($ret, 0, -1) . "] */"; 62 pidl tabs(); 64 pidl mapTypeName($element->{PROPERTIES}->{represent_as})." "; 71 pidl " ".ElementStars($element); 73 pidl $element->{NAME}; 74 pidl ArrayBrackets($element); 76 pidl ";"; 80 pidl "\n"; 88 pidl "struc [all...] |
H A D | Python.pm | 38 sub pidl($$) subroutine 114 $self->pidl("PyObject *ret;"); 115 $self->pidl(""); 117 $self->pidl("switch ($switch) {"); 121 $self->pidl("$e->{CASE}:"); 128 $self->pidl("ret = Py_None;"); 131 $self->pidl("return ret;"); 132 $self->pidl(""); 138 $self->pidl("}"); 140 $self->pidl("PyErr_SetStrin [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/ |
H A D | TDR.pm | 29 sub pidl($$) { my $self = shift; $self->{ret} .= $self->{tabs}.(shift)."\n"; } subroutine 42 $self->pidl($d); $self->pidl_hdr("$d;"); 44 $self->pidl("static $d"); 77 $self->pidl("{"); 79 $self->pidl("uint32_t saved_flags = tdr->flags;"); 80 $self->pidl("tdr->flags |= $e->{PROPERTIES}->{flag};"); 89 $self->pidl("TDR_CHECK(tdr_$t\_charset(tdr$name, &v->$e->{NAME}, $len, sizeof($e->{TYPE}_t), CH_$e->{PROPERTIES}->{charset}));"); 101 $self->pidl("TDR_ALLOC(mem_ctx, v->$e->{NAME}, $len);"); 105 $self->pidl("for (i = 0; i < $len; i++) {"); 115 $self->pidl(" [all...] |
H A D | Header.pm | 26 sub pidl($) { $res .= shift; } subroutine 52 pidl "/* [" . substr($ret, 0, -1) . "] */"; 62 pidl tabs(); 64 pidl mapTypeName($element->{PROPERTIES}->{represent_as})." "; 71 pidl " ".ElementStars($element); 73 pidl $element->{NAME}; 74 pidl ArrayBrackets($element); 76 pidl ";"; 80 pidl "\n"; 88 pidl "struc [all...] |
H A D | Python.pm | 38 sub pidl($$) subroutine 114 $self->pidl("PyObject *ret;"); 115 $self->pidl(""); 117 $self->pidl("switch ($switch) {"); 121 $self->pidl("$e->{CASE}:"); 128 $self->pidl("ret = Py_None;"); 131 $self->pidl("return ret;"); 132 $self->pidl(""); 138 $self->pidl("}"); 140 $self->pidl("PyErr_SetStrin [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/ |
H A D | TDR.pm | 29 sub pidl($$) { my $self = shift; $self->{ret} .= $self->{tabs}.(shift)."\n"; } subroutine 42 $self->pidl($d); $self->pidl_hdr("$d;"); 44 $self->pidl("static $d"); 77 $self->pidl("{"); 79 $self->pidl("uint32_t saved_flags = tdr->flags;"); 80 $self->pidl("tdr->flags |= $e->{PROPERTIES}->{flag};"); 89 $self->pidl("TDR_CHECK(tdr_$t\_charset(tdr$name, &v->$e->{NAME}, $len, sizeof($e->{TYPE}_t), CH_$e->{PROPERTIES}->{charset}));"); 101 $self->pidl("TDR_ALLOC(mem_ctx, v->$e->{NAME}, $len);"); 105 $self->pidl("for (i = 0; i < $len; i++) {"); 115 $self->pidl(" [all...] |
H A D | Header.pm | 26 sub pidl($) { $res .= shift; } subroutine 52 pidl "/* [" . substr($ret, 0, -1) . "] */"; 62 pidl tabs(); 64 pidl mapTypeName($element->{PROPERTIES}->{represent_as})." "; 71 pidl " ".ElementStars($element); 73 pidl $element->{NAME}; 74 pidl ArrayBrackets($element); 76 pidl ";"; 80 pidl "\n"; 88 pidl "struc [all...] |
H A D | Python.pm | 38 sub pidl($$) subroutine 114 $self->pidl("PyObject *ret;"); 115 $self->pidl(""); 117 $self->pidl("switch ($switch) {"); 121 $self->pidl("$e->{CASE}:"); 128 $self->pidl("ret = Py_None;"); 131 $self->pidl("return ret;"); 132 $self->pidl(""); 138 $self->pidl("}"); 140 $self->pidl("PyErr_SetStrin [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/NDR/ |
H A D | Parser.pm | 85 # pidl() is our basic output routine 86 sub pidl($$) subroutine 99 # defer() is like pidl(), but adds to 121 $self->pidl($_) foreach (@{$self->{deferred}}); 151 $self->pidl("_PUBLIC_ $decl"); 153 $self->pidl("static $decl"); 166 $self->pidl("{"); 168 $self->pidl("uint32_t _flags_save_$e->{TYPE} = $ndr->flags;"); 169 $self->pidl("ndr_set_flags(&$ndr->flags, $flags);"); 180 $self->pidl(" [all...] |
H A D | Server.pm | 17 sub pidl($) subroutine 32 pidl "\tcase $fn->{OPNUM}: {\n"; 33 pidl "\t\tstruct $fn->{NAME} *r2 = (struct $fn->{NAME} *)r;\n"; 34 pidl "\t\tif (DEBUGLEVEL >= 10) {\n"; 35 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($fn->{NAME}, NDR_IN, r2);\n"; 36 pidl "\t\t}\n"; 38 pidl "\t\tr2->out.result = dcesrv_$fn->{NAME}(dce_call, mem_ctx, r2);\n"; 40 pidl "\t\tdcesrv_$fn->{NAME}(dce_call, mem_ctx, r2);\n"; 42 pidl "\t\tif (dce_call->state_flags & DCESRV_CALL_STATE_FLAG_ASYNC) {\n"; 43 pidl "\ [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/NDR/ |
H A D | Parser.pm | 85 # pidl() is our basic output routine 86 sub pidl($$) subroutine 99 # defer() is like pidl(), but adds to 121 $self->pidl($_) foreach (@{$self->{deferred}}); 151 $self->pidl("_PUBLIC_ $decl"); 153 $self->pidl("static $decl"); 166 $self->pidl("{"); 168 $self->pidl("uint32_t _flags_save_$e->{TYPE} = $ndr->flags;"); 169 $self->pidl("ndr_set_flags(&$ndr->flags, $flags);"); 180 $self->pidl(" [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/NDR/ |
H A D | Parser.pm | 85 # pidl() is our basic output routine 86 sub pidl($$) subroutine 99 # defer() is like pidl(), but adds to 121 $self->pidl($_) foreach (@{$self->{deferred}}); 151 $self->pidl("_PUBLIC_ $decl"); 153 $self->pidl("static $decl"); 166 $self->pidl("{"); 168 $self->pidl("uint32_t _flags_save_$e->{TYPE} = $ndr->flags;"); 169 $self->pidl("ndr_set_flags(&$ndr->flags, $flags);"); 180 $self->pidl(" [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt/router/samba-3.5.8/pidl/tests/ |
H A D | ndr_compat.pl | 16 my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile"); 17 Parse::Pidl::NDR::Parse($pidl);
|
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/pidl/tests/ |
H A D | ndr_compat.pl | 16 my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile"); 17 Parse::Pidl::NDR::Parse($pidl);
|
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/pidl/tests/ |
H A D | ndr_compat.pl | 16 my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile"); 17 Parse::Pidl::NDR::Parse($pidl);
|
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/COM/ |
H A D | Stub.pm | 18 sub pidl($) subroutine 33 pidl "\tcase $count: {\n"; 35 pidl "\t\tNTSTATUS result;\n"; 37 pidl "\t\tstruct $d->{NAME} *r2 = r;\n"; 38 pidl "\t\tif (DEBUGLEVEL > 10) {\n"; 39 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($d->{NAME}, NDR_IN, r2);\n"; 40 pidl "\t\t}\n"; 42 pidl "\t\tresult = vtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 44 pidl "\t\tvtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 46 pidl "\ [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/COM/ |
H A D | Stub.pm | 18 sub pidl($) subroutine 33 pidl "\tcase $count: {\n"; 35 pidl "\t\tNTSTATUS result;\n"; 37 pidl "\t\tstruct $d->{NAME} *r2 = r;\n"; 38 pidl "\t\tif (DEBUGLEVEL > 10) {\n"; 39 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($d->{NAME}, NDR_IN, r2);\n"; 40 pidl "\t\t}\n"; 42 pidl "\t\tresult = vtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 44 pidl "\t\tvtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 46 pidl "\ [all...] |
/asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/pidl/lib/Parse/Pidl/Samba4/COM/ |
H A D | Stub.pm | 18 sub pidl($) subroutine 33 pidl "\tcase $count: {\n"; 35 pidl "\t\tNTSTATUS result;\n"; 37 pidl "\t\tstruct $d->{NAME} *r2 = r;\n"; 38 pidl "\t\tif (DEBUGLEVEL > 10) {\n"; 39 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($d->{NAME}, NDR_IN, r2);\n"; 40 pidl "\t\t}\n"; 42 pidl "\t\tresult = vtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 44 pidl "\t\tvtable->$d->{NAME}(iface, mem_ctx, r2);\n"; 46 pidl "\ [all...] |