rom/dos/findarg.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/utility.h>
   9 #include "dos_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/dos.h>
  15
  16         AROS_LH2(LONG, FindArg,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(CONST_STRPTR, template, D1),
  20         AROS_LHA(CONST_STRPTR, keyword,  D2),
  21
  22 /*  LOCATION */
  23         struct DosLibrary *, DOSBase, 134, Dos)
  24
  25 /*  FUNCTION
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41 *****************************************************************************/
  42 {
  43     AROS_LIBFUNC_INIT
  44
  45     LONG count=0;
  46     CONST_STRPTR key;
  47
  48     /* Loop over template */
  49     for(;;)
  50     {
  51         /* Compare key to template */
  52         key=keyword;
  53         for(;;)
  54         {
  55             UBYTE lkey;
  56
  57             /* If the keyword has ended check the template */
  58             if(!*key)
  59             {
  60                 if(!*template||*template=='='||*template=='/'||*template==',')
  61                     /* The template has ended, too. Return count. */
  62                     return count;
  63                 /* The template isn't finished. Stop comparison. */
  64                 break;
  65             }
  66             /* If the two differ stop comparison. */
  67             lkey=ToLower(*key);
  68             if(lkey!=ToLower(*template))
  69                 break;
  70             /* Go to next character */
  71             key++;
  72             template++;
  73         }
  74         /* Find next keyword in template */
  75         for(;;)
  76         {
  77             if(!*template)
  78                 return -1;
  79             if(*template=='=')
  80             {
  81                 /* Alias found */
  82                 template++;
  83                 break;
  84             }
  85             if(*template==',')
  86             {
  87                 /* Next item found */
  88                 template++;
  89                 count++;
  90                 break;
  91             }
  92             template++;
  93         }
  94     }
  95     AROS_LIBFUNC_EXIT
  96 } /* FindArg */