source4/script/build_smb_interfaces.pl

   1 #!/usr/bin/perl
   2 #
   3 # Create ejs interfaces for structures in a C header file
   4 #
   5
   6 use File::Basename;
   7 my $file = shift;
   8 my $basename = basename($file, ".h");
   9
  10 require smb_interfaces;
  11 my $parser = new smb_interfaces;
  12 $header = $parser->parse($file);
  13
  14 use Data::Dumper;
  15 #print Dumper($header);
  16
  17 # Create header
  18
  19 open(FILE, ">ejs_${basename}.h");
  20
  21 print FILE "/* header auto-generated by build_smb_interfaces.pl */\n\n";
  22
  23 print FILE "#ifndef _ejs_${basename}_h\n";
  24 print FILE "#define _ejs_${basename}_h\n\n";
  25
  26 sub struct_name($)
  27 {
  28   my $obj = shift;
  29   return defined($obj->{STRUCT_NAME}) ? $obj->{STRUCT_NAME} : $obj->{UNION_NAME};
  30 }
  31
  32 sub prototypes_for($)
  33 {
  34   my $obj = shift;
  35   my $name = struct_name($obj);
  36
  37   print FILE "NTSTATUS ejs_push_$name(struct ejs_rpc *, struct MprVar *, const char *, const uint32_t *);\n";
  38   print FILE "NTSTATUS ejs_pull_$name(struct ejs_rpc *, struct MprVar *, const char *, const uint32_t *);\n";
  39 }
  40
  41 sub pushpull_for($)
  42 {
  43   my $obj = shift;
  44   my $name = struct_name($obj);
  45
  46   print FILE "NTSTATUS ejs_push_$name(struct ejs_rpc *ejs, struct MprVar *v, const char *name, const uint32_t *r)\n";
  47   print FILE "{\n";
  48
  49   print FILE "\tNDR_CHECK(ejs_push_struct_start(ejs, &v, \"output\"));\n";
  50
  51   print FILE "\n\treturn NT_STATUS_OK;\n";
  52   print FILE "}\n\n";
  53
  54   print FILE "NTSTATUS ejs_pull_$name(struct ejs_rpc *ejs, struct MprVar *v, const char *name, const uint32_t *r)\n";
  55   print FILE "{\n";
  56
  57   print FILE "\tNDR_CHECK(ejs_pull_struct_start(ejs, &v, \"input\"));\n";
  58
  59   print FILE "\treturn NT_STATUS_OK;\n";
  60   print FILE "}\n\n";
  61 }
  62
  63 foreach my $x (@{$header}) {
  64
  65   # Prototypes for top level structures and unions
  66
  67   prototypes_for($x);
  68
  69   # Prototypes for non-anonymous nested structures and unions
  70
  71   foreach my $e1 (@{$x->{DATA}}) {
  72     foreach my $e2 (@{$e1->{DATA}}) {
  73       if (defined($e2->{STRUCT_NAME}) or defined($e2->{UNION_NAME})) {
  74         prototypes_for($e2);
  75       }
  76     }
  77   }
  78 }
  79
  80 print FILE "#endif\n";
  81
  82 close(FILE);
  83
  84 # Create file
  85
  86 open(FILE, ">ejs_${basename}.c");
  87
  88 print FILE "/* EJS wrapper functions auto-generated by build_smb_interfaces.pl */\n\n";
  89
  90 # Top level functions
  91
  92 foreach my $x (@{$header}) {
  93   next, if $x->{STRUCT_NAME} eq "";
  94   print FILE "static int ejs_$x->{STRUCT_NAME}(int eid, int argc, struct MprVar **argv)\n";
  95   print FILE "{\n";
  96   print FILE "\tejsSetErrorMsg(eid, \"Not implemented\");\n";
  97   print FILE "\treturn -1;\n";
  98   print FILE "}\n\n";
  99 }
 100
 101 # Module initialisation
 102
 103 print FILE "static int ejs_${basename}_init(int eid, int argc, struct MprVar **argv)\n";
 104 print FILE "{\n";
 105 print FILE "\tstruct MprVar *obj = mprInitObject(eid, \"${basename}\", argc, argtv);\n\n";
 106
 107 foreach my $x (@{$header}) {
 108   next, if $x->{STRUCT_NAME} eq "";
 109   print FILE "\tmprSetCFunction(obj, \"$x->{STRUCT_NAME}\", ejs_$x->{STRUCT_NAME});\n";
 110 }
 111
 112 print FILE "}\n\n";
 113
 114 print FILE "NTSTATUS ejs_init_${basename}(void)\n";
 115 print FILE "{\n";
 116 print FILE "\treturn smbcalls_register_ejs(\"${basename}_init\", ejs_${basename}_init);\n";
 117 print FILE "}\n";
 118
 119 close(FILE);