cde/programs/nsgmls/Options.C

   1 /*
   2  * CDE - Common Desktop Environment
   3  *
   4  * Copyright (c) 1993-2012, The Open Group. All rights reserved.
   5  *
   6  * These libraries and programs are free software; you can
   7  * redistribute them and/or modify them under the terms of the GNU
   8  * Lesser General Public License as published by the Free Software
   9  * Foundation; either version 2 of the License, or (at your option)
  10  * any later version.
  11  *
  12  * These libraries and programs are distributed in the hope that
  13  * they will be useful, but WITHOUT ANY WARRANTY; without even the
  14  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  15  * PURPOSE. See the GNU Lesser General Public License for more
  16  * details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with these librararies and programs; if not, write
  20  * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
  21  * Floor, Boston, MA 02110-1301 USA
  22  */
  23 /* $XConsortium: Options.C /main/1 1996/07/29 16:59:26 cde-hp $ */
  24 // Derived from comp.sources.unix/volume3/att_getopt.
  25
  26 #ifndef Options_DEF_INCLUDED
  27 #define Options_DEF_INCLUDED 1
  28
  29 #ifndef OPTION_CHAR
  30 #define OPTION_CHAR T('-')
  31 #endif
  32
  33 #ifdef SP_NAMESPACE
  34 namespace SP_NAMESPACE {
  35 #endif
  36
  37 template<class T>
  38 Options<T>::Options(int argc, T *const *argv, const T *opts)
  39 : argc_(argc), argv_(argv), opts_(opts), ind_(1), sp_(1)
  40 {
  41 }
  42
  43 template<class T>
  44 const T *Options<T>::search(T c) const
  45 {
  46   for (const T *s = opts_; *s; s++)
  47     if (*s == c)
  48       return s;
  49   return 0;
  50 }
  51
  52 template<class T>
  53 bool Options<T>::get(T &c)
  54 {
  55   const T *cp;
  56   if (sp_ == 1) {
  57     if (ind_ >= argc_)
  58       return false;
  59     if ((
  60 #ifdef OTHER_OPTION_CHAR
  61          argv_[ind_][0] != OTHER_OPTION_CHAR &&
  62 #endif
  63          argv_[ind_][0] != OPTION_CHAR) || argv_[ind_][1] == 0) {
  64 #ifdef REORDER_ARGS
  65       int i;
  66       for (i = ind_; i < argc_; i++)
  67         if ((
  68 #ifdef OTHER_OPTION_CHAR
  69              argv_[i][0] == OTHER_OPTION_CHAR ||
  70 #endif
  71              argv_[i][0] == OPTION_CHAR) && argv_[i][1] != 0)
  72           break;
  73       if (i < argc_) {
  74         c = argv_[i][1];
  75         if (c != T(':') && c != OPTION_CHAR
  76             && (cp = search(c)) != 0
  77             && cp[1] == T(':') && argv_[i][2] == 0 && i < argc_ - 1) {
  78           int j;
  79           T *temp1 = argv_[i];
  80           T *temp2 = argv_[i + 1];
  81           for (j = i - 1; j >= ind_; j--)
  82             argv_[j+2] = argv_[j];
  83           argv_[ind_] = temp1;
  84           argv_[ind_ + 1] = temp2;
  85         }
  86         else {
  87           int j;
  88           T *temp = argv_[i];
  89           for (j = i - 1; j >= ind_; j--)
  90             argv_[j+1] = argv_[j];
  91           argv_[ind_] = temp;
  92         }
  93       }
  94       else
  95 #endif
  96         return false;
  97     }
  98     if ((argv_[ind_][0] == OPTION_CHAR && argv_[ind_][1] == OPTION_CHAR
  99          && argv_[ind_][2] == 0)
 100 #ifdef OTHER_OPTION_CHAR
 101         || (argv_[ind_][0] == OTHER_OPTION_CHAR
 102             && argv_[ind_][1] == OTHER_OPTION_CHAR
 103             && argv_[ind_][2] == 0)
 104 #endif
 105         ) {
 106       ind_++;
 107       return false;
 108     }
 109   }
 110   opt_ = c = argv_[ind_][sp_];
 111   if (c == T(':') || (cp = search(c)) == 0) {
 112     if (argv_[ind_][++sp_] == 0) {
 113       ind_++;
 114       sp_ = 1;
 115     }
 116     c = T('?');
 117     return true;
 118   }
 119   if (*++cp == T(':')) {
 120     if (argv_[ind_][sp_ + 1] != 0)
 121       arg_ = &argv_[ind_++][sp_ + 1];
 122     else if (++ind_ >= argc_) {
 123       sp_ = 1;
 124       c = (*opts_ == T(':') ? T(':') : T('?'));
 125       return true;
 126     }
 127     else
 128       arg_ = argv_[ind_++];
 129     sp_ = 1;
 130   }
 131   else {
 132     if (argv_[ind_][++sp_] == 0) {
 133       sp_ = 1;
 134       ind_++;
 135     }
 136     arg_ = 0;
 137   }
 138   return true;
 139 }
 140
 141 #ifdef SP_NAMESPACE
 142 }
 143 #endif
 144
 145 #endif /* not Options_DEF_INCLUDED */