TAO/TAO_IDL/be/be_visitor_operation/operation_sh.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    operation_sh.cpp
   5  *
   6  *  Visitor generating code for Operation in the server header
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "operation.h"
  13
  14 be_visitor_operation_sh::be_visitor_operation_sh (be_visitor_context *ctx)
  15   : be_visitor_operation (ctx)
  16 {
  17 }
  18
  19 be_visitor_operation_sh::~be_visitor_operation_sh ()
  20 {
  21 }
  22
  23 int
  24 be_visitor_operation_sh::visit_operation (be_operation *node)
  25 {
  26   /// No server-side code generation for these implied IDL nodes.
  27   if (node->is_sendc_ami ())
  28     {
  29       return 0;
  30     }
  31
  32   TAO_OutStream *os = this->ctx_->stream ();
  33   this->ctx_->node (node);
  34
  35   TAO_INSERT_COMMENT (os);
  36
  37   *os << "virtual ";
  38
  39   // STEP I: generate the return type.
  40   be_type *bt = dynamic_cast<be_type*> (node->return_type ());
  41
  42   if (!bt)
  43     {
  44       ACE_ERROR_RETURN ((LM_ERROR,
  45                          "(%N:%l) be_visitor_operation_sh::"
  46                          "visit_operation - "
  47                          "Bad return type\n"),
  48                         -1);
  49     }
  50
  51   be_visitor_context ctx (*this->ctx_);
  52   be_visitor_operation_rettype oro_visitor (&ctx);
  53
  54   if (bt->accept (&oro_visitor) == -1)
  55     {
  56       ACE_ERROR_RETURN ((LM_ERROR,
  57                          "(%N:%l) be_visitor_operation_sh::"
  58                          "visit_operation - "
  59                          "codegen for return type failed\n"),
  60                         -1);
  61     }
  62
  63   // STEP 2: generate the operation name
  64   *os << " " << node->local_name ();
  65
  66   // STEP 3: generate the argument list with the appropriate mapping. For these
  67   // we grab a visitor that generates the parameter listing
  68   ctx = *this->ctx_;
  69   ctx.state (TAO_CodeGen::TAO_OPERATION_ARGLIST_SH);
  70   be_visitor_operation_arglist oa_visitor (&ctx);
  71
  72   if (node->accept (&oa_visitor) == -1)
  73     {
  74       ACE_ERROR_RETURN ((LM_ERROR,
  75                          "(%N:%l) be_visitor_operation_sh::"
  76                          "visit_operation - "
  77                          "codegen for argument list failed\n"),
  78                         -1);
  79     }
  80
  81   // Generate the corresponding static skeleton method for this operation only
  82   // if there was no "native" type.
  83   if (!node->has_native ())
  84     {
  85       *os << be_nl_2
  86           << "static void ";
  87
  88       // Check if we are an attribute node in disguise.
  89       if (this->ctx_->attribute ())
  90         {
  91           // Now check if we are a "get" or "set" operation
  92           if (node->nmembers () == 1)
  93             {
  94               *os << "_set_";
  95             }
  96           else
  97             {
  98               *os << "_get_";
  99             }
 100         }
 101
 102       *os << node->local_name ()
 103           << "_skel (" << be_idt << be_idt_nl
 104           << "TAO_ServerRequest &server_request," << be_nl
 105           << "TAO::Portable_Server::Servant_Upcall *servant_upcall," << be_nl
 106           << "TAO_ServantBase *servant);" << be_uidt
 107           << be_uidt;
 108     }
 109
 110   return 0;
 111 }