]> git.decadent.org.uk Git - dak.git/blobdiff - tools/dsync-0.0/libdsync/contrib/cmndline.cc
Added another tool used in dak (and placed nowhere else), dsync
[dak.git] / tools / dsync-0.0 / libdsync / contrib / cmndline.cc
diff --git a/tools/dsync-0.0/libdsync/contrib/cmndline.cc b/tools/dsync-0.0/libdsync/contrib/cmndline.cc
new file mode 100644 (file)
index 0000000..8dcdfa9
--- /dev/null
@@ -0,0 +1,347 @@
+// -*- mode: cpp; mode: fold -*-
+// Description                                                         /*{{{*/
+// $Id: cmndline.cc,v 1.6 1999/11/17 05:59:29 jgg Exp $
+/* ######################################################################
+
+   Command Line Class - Sophisticated command line parser
+   
+   ##################################################################### */
+                                                                       /*}}}*/
+// Include files                                                       /*{{{*/
+#ifdef __GNUG__
+#pragma implementation "dsync/cmndline.h"
+#endif
+#include <dsync/cmndline.h>
+#include <dsync/error.h>
+#include <dsync/strutl.h>
+                                                                       /*}}}*/
+
+// CommandLine::CommandLine - Constructor                              /*{{{*/
+// ---------------------------------------------------------------------
+/* */
+CommandLine::CommandLine(Args *AList,Configuration *Conf) : ArgList(AList), 
+                                 Conf(Conf), FileList(0)
+{
+}
+                                                                       /*}}}*/
+// CommandLine::~CommandLine - Destructor                              /*{{{*/
+// ---------------------------------------------------------------------
+/* */
+CommandLine::~CommandLine()
+{
+   delete [] FileList;
+}
+                                                                       /*}}}*/
+// CommandLine::Parse - Main action member                             /*{{{*/
+// ---------------------------------------------------------------------
+/* */
+bool CommandLine::Parse(int argc,const char **argv)
+{
+   delete [] FileList;
+   FileList = new const char *[argc];
+   const char **Files = FileList;
+   int I;
+   for (I = 1; I != argc; I++)
+   {
+      const char *Opt = argv[I];
+      
+      // It is not an option
+      if (*Opt != '-')
+      {
+        *Files++ = Opt;
+        continue;
+      }
+      
+      Opt++;
+      
+      // Double dash signifies the end of option processing
+      if (*Opt == '-' && Opt[1] == 0)
+        break;
+      
+      // Single dash is a short option
+      if (*Opt != '-')
+      {
+        // Iterate over each letter
+        while (*Opt != 0)
+        {          
+           // Search for the option
+           Args *A;
+           for (A = ArgList; A->end() == false && A->ShortOpt != *Opt; A++);
+           if (A->end() == true)
+              return _error->Error("Command line option '%c' [from %s] is not known.",*Opt,argv[I]);
+
+           if (HandleOpt(I,argc,argv,Opt,A) == false)
+              return false;
+           if (*Opt != 0)
+              Opt++;          
+        }
+        continue;
+      }
+      
+      Opt++;
+
+      // Match up to a = against the list
+      const char *OptEnd = Opt;
+      Args *A;
+      for (; *OptEnd != 0 && *OptEnd != '='; OptEnd++);
+      for (A = ArgList; A->end() == false && 
+          stringcasecmp(Opt,OptEnd,A->LongOpt) != 0; A++);
+      
+      // Failed, look for a word after the first - (no-foo)
+      bool PreceedMatch = false;
+      if (A->end() == true)
+      {
+        for (; Opt != OptEnd && *Opt != '-'; Opt++);
+
+        if (Opt == OptEnd)
+           return _error->Error("Command line option %s is not understood",argv[I]);
+        Opt++;
+        
+        for (A = ArgList; A->end() == false &&
+             stringcasecmp(Opt,OptEnd,A->LongOpt) != 0; A++);
+
+        // Failed again..
+        if (A->end() == true && OptEnd - Opt != 1)
+           return _error->Error("Command line option %s is not understood",argv[I]);
+
+        // The option could be a single letter option prefixed by a no-..
+        if (A->end() == true)
+        {
+           for (A = ArgList; A->end() == false && A->ShortOpt != *Opt; A++);
+           
+           if (A->end() == true)
+              return _error->Error("Command line option %s is not understood",argv[I]);
+        }
+        
+        // The option is not boolean
+        if (A->IsBoolean() == false)
+           return _error->Error("Command line option %s is not boolean",argv[I]);
+        PreceedMatch = true;
+      }
+      
+      // Deal with it.
+      OptEnd--;
+      if (HandleOpt(I,argc,argv,OptEnd,A,PreceedMatch) == false)
+        return false;
+   }
+   
+   // Copy any remaining file names over
+   for (; I != argc; I++)
+      *Files++ = argv[I];
+   *Files = 0;
+   
+   return true;
+}
+                                                                       /*}}}*/
+// CommandLine::HandleOpt - Handle a single option including all flags /*{{{*/
+// ---------------------------------------------------------------------
+/* This is a helper function for parser, it looks at a given argument
+   and looks for specific patterns in the string, it gets tokanized
+   -ruffly- like -*[yes|true|enable]-(o|longopt)[=][ ][argument] */
+bool CommandLine::HandleOpt(int &I,int argc,const char *argv[],
+                           const char *&Opt,Args *A,bool PreceedMatch)
+{
+   const char *Argument = 0;
+   bool CertainArg = false;
+   int IncI = 0;
+
+   /* Determine the possible location of an option or 0 if their is
+      no option */
+   if (Opt[1] == 0 || (Opt[1] == '=' && Opt[2] == 0))
+   {
+      if (I + 1 < argc && argv[I+1][0] != '-')
+        Argument = argv[I+1];
+      
+      // Equals was specified but we fell off the end!
+      if (Opt[1] == '=' && Argument == 0)
+        return _error->Error("Option %s requires an argument.",argv[I]);
+      if (Opt[1] == '=')
+        CertainArg = true;
+        
+      IncI = 1;
+   }
+   else
+   {
+      if (Opt[1] == '=')
+      {
+        CertainArg = true;
+        Argument = Opt + 2;
+      }      
+      else
+        Argument = Opt + 1;
+   }
+   
+   // Option is an argument set
+   if ((A->Flags & HasArg) == HasArg)
+   {
+      if (Argument == 0)
+        return _error->Error("Option %s requires an argument.",argv[I]);
+      Opt += strlen(Opt);
+      I += IncI;
+      
+      // Parse a configuration file
+      if ((A->Flags & ConfigFile) == ConfigFile)
+        return ReadConfigFile(*Conf,Argument);
+
+      // Arbitary item specification
+      if ((A->Flags & ArbItem) == ArbItem)
+      {
+        const char *J;
+        for (J = Argument; *J != 0 && *J != '='; J++);
+        if (*J == 0)
+           return _error->Error("Option %s: Configuration item sepecification must have an =<val>.",argv[I]);
+
+        // = is trailing
+        if (J[1] == 0)
+        {
+           if (I+1 >= argc)
+              return _error->Error("Option %s: Configuration item sepecification must have an =<val>.",argv[I]);
+           Conf->Set(string(Argument,J-Argument),string(argv[I++ +1]));
+        }
+        else
+           Conf->Set(string(Argument,J-Argument),string(J+1));
+        
+        return true;
+      }
+      
+      const char *I = A->ConfName;
+      for (; *I != 0 && *I != ' '; I++);
+      if (*I == ' ')
+        Conf->Set(string(A->ConfName,0,I-A->ConfName),string(I+1) + Argument);
+      else
+        Conf->Set(A->ConfName,string(I) + Argument);
+        
+      return true;
+   }
+   
+   // Option is an integer level
+   if ((A->Flags & IntLevel) == IntLevel)
+   {
+      // There might be an argument
+      if (Argument != 0)
+      {
+        char *EndPtr;
+        unsigned long Value = strtol(Argument,&EndPtr,10);
+        
+        // Conversion failed and the argument was specified with an =s
+        if (EndPtr == Argument && CertainArg == true)
+           return _error->Error("Option %s requires an integer argument, not '%s'",argv[I],Argument);
+
+        // Conversion was ok, set the value and return
+        if (EndPtr != 0 && EndPtr != Argument && *EndPtr == 0)
+        {
+           Conf->Set(A->ConfName,Value);
+           Opt += strlen(Opt);
+           I += IncI;
+           return true;
+        }       
+      }      
+      
+      // Increase the level
+      Conf->Set(A->ConfName,Conf->FindI(A->ConfName)+1);
+      return true;
+   }
+  
+   // Option is a boolean
+   int Sense = -1;  // -1 is unspecified, 0 is yes 1 is no
+
+   // Look for an argument.
+   while (1)
+   {
+      // Look at preceeding text
+      char Buffer[300];
+      if (Argument == 0)
+      {
+        if (PreceedMatch == false)
+           break;
+        
+        if (strlen(argv[I]) >= sizeof(Buffer))
+           return _error->Error("Option '%s' is too long",argv[I]);
+
+        // Skip the leading dash
+        const char *J = argv[I];
+        for (; *J != 0 && *J == '-'; J++);
+        
+        const char *JEnd = J;
+        for (; *JEnd != 0 && *JEnd != '-'; JEnd++);
+        if (*JEnd != 0)
+        {
+           strncpy(Buffer,J,JEnd - J);
+           Buffer[JEnd - J] = 0;
+           Argument = Buffer;
+           CertainArg = true;
+        }       
+        else
+           break;
+      }
+
+      // Check for boolean
+      Sense = StringToBool(Argument);
+      if (Sense >= 0)
+      {
+        // Eat the argument     
+        if (Argument != Buffer)
+        {
+           Opt += strlen(Opt);
+           I += IncI;
+        }       
+        break;
+      }
+
+      if (CertainArg == true)
+        return _error->Error("Sense %s is not understood, try true or false.",Argument);
+      
+      Argument = 0;
+   }
+      
+   // Indeterminate sense depends on the flag
+   if (Sense == -1)
+   {
+      if ((A->Flags & InvBoolean) == InvBoolean)
+        Sense = 0;
+      else
+        Sense = 1;
+   }
+   
+   Conf->Set(A->ConfName,Sense);
+   return true;
+}
+                                                                       /*}}}*/
+// CommandLine::FileSize - Count the number of filenames               /*{{{*/
+// ---------------------------------------------------------------------
+/* */
+unsigned int CommandLine::FileSize() const
+{
+   unsigned int Count = 0;
+   for (const char **I = FileList; I != 0 && *I != 0; I++)
+      Count++;
+   return Count;
+}
+                                                                       /*}}}*/
+// CommandLine::DispatchArg - Do something with the first arg          /*{{{*/
+// ---------------------------------------------------------------------
+/* */
+bool CommandLine::DispatchArg(Dispatch *Map,bool NoMatch)
+{
+   int I;
+   for (I = 0; Map[I].Match != 0; I++)
+   {
+      if (strcmp(FileList[0],Map[I].Match) == 0)
+      {
+        bool Res = Map[I].Handler(*this);
+        if (Res == false && _error->PendingError() == false)
+           _error->Error("Handler silently failed");
+        return Res;
+      }
+   }
+   
+   // No matching name
+   if (Map[I].Match == 0)
+   {
+      if (NoMatch == true)
+        _error->Error("Invalid operation %s",FileList[0]);
+   }
+   
+   return false;
+}
+                                                                       /*}}}*/