diff options
author | Tim Potter <tpot@samba.org> | 2005-08-13 02:40:02 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:33:21 -0500 |
commit | c1f165d6e9a894bde0a73dae6b47fc01126bf00a (patch) | |
tree | 7d2f8122af3c72cc48f1b4544ab0f9826b5d23fb /source4/script/build_smb_interfaces.pl | |
parent | a1ca0889010d5e8093ce788de6001baa7a368ba1 (diff) | |
download | samba-c1f165d6e9a894bde0a73dae6b47fc01126bf00a.tar.gz samba-c1f165d6e9a894bde0a73dae6b47fc01126bf00a.tar.bz2 samba-c1f165d6e9a894bde0a73dae6b47fc01126bf00a.zip |
r9295: Tridge had some good suggestions for simplifying the smb_interfaces ejs
code. I will try and get just the push/pull functions working rather than
getting in a mess with trying to do everything at once.
(This used to be commit a7504ebf9557796bd50907620115f8367ea586f0)
Diffstat (limited to 'source4/script/build_smb_interfaces.pl')
-rwxr-xr-x | source4/script/build_smb_interfaces.pl | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/source4/script/build_smb_interfaces.pl b/source4/script/build_smb_interfaces.pl index e27e3876c6..7a3b6aab49 100755 --- a/source4/script/build_smb_interfaces.pl +++ b/source4/script/build_smb_interfaces.pl @@ -99,52 +99,6 @@ sub transfer_struct($$) { } } -# Should a structure definition require a memory context to return -# data? - -sub struct_need_mem_ctx($) { - my $s = shift; - - for my $f (@{$s->{FIELDS}}) { - if ($f->{NAME} eq "out") { - - # Look for pointers - - for my $e (@{$f->{FIELDS}}) { - if (defined($e->{POINTERS})) { - return 1; - } - } - return 0; - } - } - - # No 'out' structure found so we can't return anything - - return 0; -} - -# Does the top-level structure definition require a memory context to -# return data? - -sub need_mem_ctx($) { - my $s = shift; - - # Check for presence of an 'out' nested structure that contains a - # pointer. - - if ($s->{TYPE} eq "struct") { - return struct_need_mem_ctx($s); - } else { - foreach my $ss (@{$s->{FIELDS}}) { - return 1 if struct_need_mem_ctx($ss); - } - return 0; - } - - return 1; -} - # Top level call functions foreach my $s (@newheader) { @@ -163,62 +117,6 @@ foreach my $s (@newheader) { print FILE "\treturn NT_STATUS_OK;\n"; print FILE "}\n\n"; - # Top level ejs function - - print FILE "static int ejs_$s->{TYPE_DEFINED}(int eid, int argc, struct MprVar **argv)\n"; - print FILE "{\n"; - print FILE "\tstruct MprVar *io;\n"; - print FILE "\tstruct ejs_rpc *ejs;\n"; - print FILE "\tstruct $s->{TYPE_DEFINED} params;\n"; - print FILE "\tstruct smbcli_tree *tree;\n"; - print FILE "\tNTSTATUS status;\n"; - print FILE "\tvoid *ptr;\n\n"; - - print FILE "\tif (argc != 1 || argv[0]->type != MPR_TYPE_OBJECT) {\n"; - print FILE "\t\tejsSetErrorMsg(eid, \"invalid arguments\");\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tio = argv[0];\n\n"; - - print FILE "\tejs = talloc(mprMemCtx(), struct ejs_rpc);\n"; - print FILE "\tif (ejs == NULL) {\n"; - print FILE "\t\tstatus = NT_STATUS_NO_MEMORY;\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tptr = talloc_zero_size(ejs, sizeof(struct $s->{TYPE_DEFINED}));\n"; - print FILE "\tif (ptr == NULL) {\n"; - print FILE "\t\tstatus = NT_STATUS_NO_MEMORY;\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tejs->eid = eid;\n\n"; - - print FILE "\tstatus = ejs_pull_$s->{TYPE_DEFINED}(ejs, io, ptr);\n"; - print FILE "\tif (!NT_STATUS_IS_OK(status)) {\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - my $fn = $s->{TYPE_DEFINED}; - $fn =~ s/^smb_/smb_raw_/; - - if (need_mem_ctx($s)) { - print FILE "\tstatus = $fn(tree, mprMemCtx(), ¶ms);\n\n"; - } else { - print FILE "\tstatus = $fn(tree, ¶ms);\n\n"; - } - - print FILE "\tstatus = ejs_push_$s->{TYPE_DEFINED}(ejs, io, ptr);\n\n"; - - print FILE "\tmpr_Return(eid, mprNTSTATUS(status));\n\n"; - print FILE "\tif (NT_STATUS_EQUAL(status, NT_STATUS_INTERNAL_ERROR)) {\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - print FILE "\treturn 0;\n"; - - print FILE "}\n\n"; - } else { # Top level union @@ -237,86 +135,8 @@ foreach my $s (@newheader) { print FILE "\treturn NT_STATUS_OK;\n"; print FILE "}\n\n"; - print FILE "static int ejs_$s->{TYPE_DEFINED}_$arm->{NAME}(int eid, int argc, struct MprVar **argv)\n"; - print FILE "{\n"; - print FILE "\tstruct MprVar *io;\n"; - print FILE "\tstruct ejs_rpc *ejs;\n"; - print FILE "\tunion $s->{TYPE_DEFINED} params;\n"; - print FILE "\tstruct smbcli_tree *tree;\n"; - print FILE "\tNTSTATUS status;\n"; - print FILE "\tvoid *ptr;\n\n"; - - print FILE "\tif (argc != 1 || argv[0]->type != MPR_TYPE_OBJECT) {\n"; - print FILE "\t\tejsSetErrorMsg(eid, \"invalid arguments\");\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tio = argv[0];\n\n"; - - print FILE "\tejs = talloc(mprMemCtx(), struct ejs_rpc);\n"; - print FILE "\tif (ejs == NULL) {\n"; - print FILE "\t\tstatus = NT_STATUS_NO_MEMORY;\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tptr = talloc_zero_size(ejs, sizeof(union $s->{TYPE_DEFINED}));\n"; - print FILE "\tif (ptr == NULL) {\n"; - print FILE "\t\tstatus = NT_STATUS_NO_MEMORY;\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - print FILE "\tejs->eid = eid;\n\n"; - - print FILE "\tstatus = ejs_pull_$s->{TYPE_DEFINED}_$arm->{NAME}(ejs, io, ptr);\n"; - print FILE "\tif (!NT_STATUS_IS_OK(status)) {\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - - my $fn = $s->{TYPE_DEFINED}; - $fn =~ s/^smb_/smb_raw_/; - - if (need_mem_ctx($s)) { - print FILE "\tstatus = $fn(tree, mprMemCtx(), ¶ms);\n\n"; - } else { - print FILE "\tstatus = $fn(tree, ¶ms);\n\n"; - } - - print FILE "\tstatus = ejs_push_$s->{TYPE_DEFINED}_$arm->{NAME}(ejs, io, ptr);\n\n"; - - print FILE "\tmpr_Return(eid, mprNTSTATUS(status));\n\n"; - print FILE "\tif (NT_STATUS_EQUAL(status, NT_STATUS_INTERNAL_ERROR)) {\n"; - print FILE "\t\treturn -1;\n"; - print FILE "\t}\n\n"; - print FILE "\treturn 0;\n"; - - print FILE "}\n\n"; - } - } -} - -# Module initialisation - -print FILE "static int ejs_${basename}_init(int eid, int argc, struct MprVar **argv)\n"; -print FILE "{\n"; -print FILE "\tstruct MprVar *obj = mprInitObject(eid, \"${basename}\", argc, argv);\n\n"; - -foreach my $s (@newheader) { - if ($s->{TYPE} eq "struct") { - print FILE "\tmprSetCFunction(obj, \"$s->{TYPE_DEFINED}\", ejs_$s->{TYPE_DEFINED});\n"; - } else { - foreach my $arm (@{$s->{FIELDS}}) { - print FILE "\tmprSetCFunction(obj, \"$s->{TYPE_DEFINED}_$arm->{NAME}\", ejs_$s->{TYPE_DEFINED});\n"; } } } -print FILE "}\n\n"; - -print FILE "NTSTATUS ejs_init_${basename}(void)\n"; -print FILE "{\n"; -print FILE "\treturn smbcalls_register_ejs(\"${basename}_init\", ejs_${basename}_init);\n"; -print FILE "}\n"; - close(FILE); - -exit; |