TAO/tao/FILE_Parser.cpp

   1 #include "tao/FILE_Parser.h"
   2
   3 #if (TAO_HAS_FILE_PARSER == 1)
   4
   5 #include "tao/ORB.h"
   6 #include "tao/Object.h"
   7
   8 #include "ace/Read_Buffer.h"
   9 #include "ace/Malloc_Base.h"
  10 #include "ace/Log_Msg.h"
  11 #include "ace/OS_NS_stdio.h"
  12 #include "ace/OS_NS_string.h"
  13
  14 static const char file_prefix[] = "file:";
  15
  16 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  17
  18 bool
  19 TAO_FILE_Parser::match_prefix (const char *ior_string) const
  20 {
  21   return (ACE_OS::strncmp (ior_string,
  22                            ::file_prefix,
  23                            sizeof (::file_prefix) - 1) == 0);
  24 }
  25
  26 CORBA::Object_ptr
  27 TAO_FILE_Parser::parse_string (const char *ior, CORBA::ORB_ptr orb)
  28 {
  29   // Skip the prefix, we know it is there because this method in only
  30   // called if <match_prefix> returns 1.
  31   const char *filename =
  32     ior + sizeof (::file_prefix)+1;
  33
  34   FILE* file = ACE_OS::fopen (ACE_TEXT_CHAR_TO_TCHAR (filename),
  35                               ACE_TEXT("r"));
  36
  37   if (file == nullptr)
  38     return CORBA::Object::_nil ();
  39
  40   ACE_Read_Buffer reader (file, true);
  41
  42   char* string = reader.read ();
  43
  44   if (string == nullptr)
  45     return CORBA::Object::_nil ();
  46
  47   CORBA::Object_ptr object = CORBA::Object::_nil ();
  48   try
  49     {
  50       object = orb->string_to_object (string);
  51
  52       reader.alloc ()->free (string);
  53     }
  54   catch (const ::CORBA::Exception&)
  55     {
  56       reader.alloc ()->free (string);
  57       throw;
  58     }
  59
  60   return object;
  61 }
  62
  63
  64 ACE_STATIC_SVC_DEFINE (TAO_FILE_Parser,
  65                        ACE_TEXT ("FILE_Parser"),
  66                        ACE_SVC_OBJ_T,
  67                        &ACE_SVC_NAME (TAO_FILE_Parser),
  68                        ACE_Service_Type::DELETE_THIS |
  69                                   ACE_Service_Type::DELETE_OBJ,
  70                        0)
  71
  72 ACE_FACTORY_DEFINE (TAO, TAO_FILE_Parser)
  73
  74 TAO_END_VERSIONED_NAMESPACE_DECL
  75
  76 #endif /* TAO_HAS_FILE_PARSER == 1 */
  77