dep/ACE_wrappers/ace/Capabilities.cpp

   1 #include "ace/Capabilities.h"
   2 #include "ace/OS_NS_ctype.h"
   3 #include "ace/OS_Memory.h"
   4 #include "ace/OS_NS_string.h"
   5
   6 #if !defined (__ACE_INLINE__)
   7 #include "ace/Capabilities.inl"
   8 #endif /* !__ACE_INLINE__ */
   9
  10 #include "ace/OS_NS_stdio.h"
  11
  12 ACE_RCSID (ace,
  13            Capabilities,
  14            "$Id: Capabilities.cpp 80826 2008-03-04 14:51:23Z wotte $")
  15
  16
  17 #define ACE_ESC ((ACE_TCHAR)0x1b)
  18
  19 ACE_BEGIN_VERSIONED_NAMESPACE_DECL
  20
  21 ACE_CapEntry::~ACE_CapEntry (void)
  22 {
  23 }
  24
  25 ACE_Capabilities::ACE_Capabilities (void)
  26   : caps_ ()
  27 {
  28 }
  29
  30 ACE_Capabilities::~ACE_Capabilities (void)
  31 {
  32   this->resetcaps ();
  33 }
  34
  35 const ACE_TCHAR *
  36 ACE_Capabilities::parse (const ACE_TCHAR *buf, ACE_TString &cap)
  37 {
  38   while (*buf != ACE_TEXT ('\0') && *buf != ACE_TEXT (','))
  39     {
  40       if (*buf == ACE_TEXT ('\\'))
  41         {
  42           ++buf;
  43           if (*buf == ACE_TEXT ('E') || *buf == ACE_TEXT ('e'))
  44             {
  45               cap += ACE_ESC;
  46               ++buf;
  47               continue;
  48             }
  49           else if (*buf == ACE_TEXT ('r'))
  50             {
  51               cap += ACE_TEXT ('\r');
  52               ++buf;
  53               continue;
  54             }
  55           else if (*buf == ACE_TEXT ('n'))
  56             {
  57               cap += ACE_TEXT ('\n');
  58               ++buf;
  59               continue;
  60             }
  61           else if (*buf == ACE_TEXT ('t'))
  62             {
  63               cap += ACE_TEXT ('\t');
  64               ++buf;
  65               continue;
  66             }
  67           else if (*buf == ACE_TEXT ('\\'))
  68             {
  69               cap += *buf++;
  70               continue;
  71             }
  72           if (ACE_OS::ace_isdigit(*buf))
  73             {
  74               // @@ UNICODE Does this work with unicode?
  75               int oc = 0;
  76               for (int i = 0;
  77                    i < 3 && *buf && ACE_OS::ace_isdigit (*buf);
  78                    i++)
  79                 oc = oc * 8 + (*buf++ - ACE_TEXT ('0'));
  80
  81               cap += (ACE_TCHAR) oc;
  82               continue;
  83             }
  84         }
  85       cap += *buf++;
  86     }
  87   return buf;
  88 }
  89
  90 const ACE_TCHAR *
  91 ACE_Capabilities::parse (const ACE_TCHAR *buf, int &cap)
  92 {
  93   int n = 0;
  94
  95   while (*buf && ACE_OS::ace_isdigit (*buf))
  96     n = n * 10 + (*buf++ - ACE_TEXT ('0'));
  97
  98   cap = n;
  99
 100   return buf;
 101 }
 102
 103 void
 104 ACE_Capabilities::resetcaps (void)
 105 {
 106   for (CAPABILITIES_MAP::ITERATOR iter (this->caps_);
 107        !iter.done ();
 108        iter.advance ())
 109     {
 110       CAPABILITIES_MAP::ENTRY *entry = 0;
 111       iter.next (entry);
 112       delete entry->int_id_;
 113     }
 114
 115   this->caps_.close ();
 116   this->caps_.open ();
 117 }
 118
 119 int
 120 ACE_Capabilities::fillent (const ACE_TCHAR *buf)
 121 {
 122   this->resetcaps ();
 123   while (*buf)
 124     {
 125       ACE_TString s;
 126       int n;
 127       ACE_TString name;
 128       ACE_CapEntry *ce;
 129
 130       // Skip blanks
 131       while (*buf && ACE_OS::ace_isspace(*buf)) buf++;
 132       // If we get end of line return
 133
 134       if (*buf == ACE_TEXT ('\0'))
 135         break;
 136
 137       if (*buf == ACE_TEXT ('#'))
 138         {
 139           while (*buf && *buf != ACE_TEXT ('\n'))
 140             buf++;
 141           if (*buf == ACE_TEXT ('\n'))
 142             buf++;
 143           continue;
 144         }
 145       while(*buf && *buf != ACE_TEXT ('=')
 146             && *buf!= ACE_TEXT ('#')
 147             && *buf != ACE_TEXT (','))
 148         name += *buf++;
 149
 150       // If name is null.
 151       switch (*buf)
 152         {
 153         case ACE_TEXT ('='):
 154           // String property
 155           buf = this->parse (buf + 1, s);
 156           ACE_NEW_RETURN (ce,
 157                           ACE_StringCapEntry (s),
 158                           -1);
 159           if (this->caps_.bind (name, ce) == -1)
 160             {
 161               delete ce;
 162               return -1;
 163             }
 164           break;
 165         case ACE_TEXT ('#'):
 166           // Integer property
 167           buf = this->parse (buf + 1, n);
 168           ACE_NEW_RETURN (ce,
 169                           ACE_IntCapEntry (n),
 170                           -1);
 171           if (this->caps_.bind (name, ce) == -1)
 172             {
 173               delete ce;
 174               return -1;
 175             }
 176           break;
 177         case ACE_TEXT (','):
 178           // Boolean
 179           ACE_NEW_RETURN (ce,
 180                           ACE_BoolCapEntry (1),
 181                           -1);
 182           if (this->caps_.bind (name, ce) == -1)
 183             {
 184               delete ce;
 185               return -1;
 186             }
 187           break;
 188         default:
 189           return 0;
 190         }
 191
 192       if (*buf++ != ACE_TEXT (','))
 193         return -1;
 194     }
 195
 196   return 0;
 197 }
 198
 199 int
 200 ACE_Capabilities::is_entry (const ACE_TCHAR *name, const ACE_TCHAR *line)
 201 {
 202   for (;;)
 203     {
 204       // Skip blanks or irrelevant characters
 205       while (*line && ACE_OS::ace_isspace(*line))
 206         ++line;
 207
 208       // End of line reached
 209       if (*line == ACE_TEXT ('\0'))
 210         break;
 211
 212       // Build the entry name
 213       ACE_TString nextname;
 214       while (*line && *line != ACE_TEXT ('|') && *line != ACE_TEXT (','))
 215         nextname += *line++;
 216
 217       // We have found the required entry?
 218       if (ACE_OS::strcmp (nextname.c_str (), name) == 0)
 219         return 1;
 220
 221       // Skip puntuaction char if neccesary.
 222       if (*line == ACE_TEXT ('|') || *line == ACE_TEXT (','))
 223         ++line;
 224       else
 225         {
 226           ACE_DEBUG ((LM_DEBUG,
 227                       ACE_TEXT ("Invalid entry\n")));
 228           break;
 229         }
 230     }
 231   return 0;
 232 }
 233
 234 int
 235 ACE_Capabilities::getline (FILE *fp, ACE_TString &line)
 236 {
 237   int ch;
 238
 239   line.set (0, 0);
 240
 241   while ((ch = ACE_OS::fgetc (fp)) != EOF && ch != ACE_TEXT ('\n'))
 242     line += (ACE_TCHAR) ch;
 243
 244   if (ch == EOF && line.length () == 0)
 245     return -1;
 246   else
 247     return 0;
 248 }
 249
 250 int
 251 ACE_Capabilities::getval (const ACE_TCHAR *keyname, ACE_TString &val)
 252 {
 253   ACE_CapEntry* cap = 0;
 254   if (this->caps_.find (keyname, cap) == -1)
 255     return -1;
 256
 257   ACE_StringCapEntry *scap =
 258     dynamic_cast<ACE_StringCapEntry *> (cap);
 259   if (scap == 0)
 260     return -1;
 261
 262   val = scap->getval ();
 263   return 0;
 264 }
 265
 266 int
 267 ACE_Capabilities::getval (const ACE_TCHAR *keyname, int &val)
 268 {
 269   ACE_CapEntry *cap = 0;
 270   if (this->caps_.find (keyname, cap) == -1)
 271     return -1;
 272
 273   ACE_IntCapEntry *icap =
 274     dynamic_cast<ACE_IntCapEntry *> (cap);
 275   if (icap != 0)
 276     {
 277       val = icap->getval ();
 278       return 0;
 279     }
 280
 281   ACE_BoolCapEntry *bcap =
 282     dynamic_cast<ACE_BoolCapEntry *> (cap);
 283
 284   if (bcap == 0)
 285     return -1;
 286
 287   val = bcap->getval ();
 288   return 0;
 289 }
 290
 291 #if !defined (ACE_IS_SPLITTING)
 292 static int
 293 is_empty (const ACE_TCHAR *line)
 294 {
 295   while (*line && ACE_OS::ace_isspace (*line))
 296     ++line;
 297
 298   return *line == ACE_TEXT ('\0') || *line == ACE_TEXT ('#');
 299 }
 300
 301 static int
 302 is_line (const ACE_TCHAR *line)
 303 {
 304   while (*line && ACE_OS::ace_isspace (*line))
 305     ++line;
 306
 307   return *line != ACE_TEXT ('\0');
 308 }
 309 #endif /* !ACE_IS_SPLITTING */
 310
 311 int
 312 ACE_Capabilities::getent (const ACE_TCHAR *fname, const ACE_TCHAR *name)
 313 {
 314   FILE *fp = ACE_OS::fopen (fname, ACE_TEXT ("r"));
 315
 316   if (fp == 0)
 317     ACE_ERROR_RETURN ((LM_ERROR,
 318                        ACE_TEXT ("Can't open %s file\n"),
 319                        fname),
 320                       -1);
 321
 322   int done;
 323   ACE_TString line;
 324
 325   while (0 == (done = (this->getline (fp, line) == -1))
 326          && is_empty (line.c_str ()))
 327     continue;
 328
 329   while (!done)
 330     {
 331       ACE_TString newline;
 332       ACE_TString description;
 333
 334       while (0 == (done = (this->getline (fp, newline) == -1)))
 335         if (is_line (newline.c_str ()))
 336           description += newline;
 337         else
 338           break;
 339
 340       if (this->is_entry (name, line.c_str()))
 341         {
 342           ACE_OS::fclose (fp);
 343           return this->fillent (description.c_str ());
 344         }
 345
 346       line = newline;
 347       while (!done && is_empty (line.c_str ()))
 348         done = this->getline (fp, line) == -1;
 349     }
 350
 351   ACE_OS::fclose (fp);
 352   return -1;
 353 }
 354
 355 ACE_END_VERSIONED_NAMESPACE_DECL