rom/dos/pathpart.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Return a pointer to after the directories in a path.
   6     Lang: English
   7 */
   8 #ifndef TEST
   9 #    include "dos_intern.h"
  10 #else
  11 #    define AROS_LH1(t,fn,a1,bt,bn,o,lib)     t fn (a1)
  12 #    define AROS_LHA(t,n,r)                   t n
  13 #    define AROS_LIBFUNC_INIT
  14 #    define AROS_LIBBASE_EXT_DECL(bt,bn)
  15 #    define AROS_LIBFUNC_EXIT
  16 #    define CLIB_DOS_PROTOS_H
  17 #    include <exec/types.h>
  18 #endif
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/dos.h>
  24
  25         AROS_LH1(STRPTR, PathPart,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(CONST_STRPTR, path, D1),
  29
  30 /*  LOCATION */
  31         struct DosLibrary *, DOSBase, 146, Dos)
  32
  33 /*  FUNCTION
  34         Returns a pointer to the character after the last
  35         directory in path (see examples).
  36
  37     INPUTS
  38         path - Search this path.
  39
  40     RESULT
  41         A pointer to a character in path.
  42
  43     NOTES
  44
  45     EXAMPLE
  46         PathPart("xxx:yyy/zzz/qqq") would return a pointer to the last '/'.
  47         PathPart("xxx:yyy") would return a pointer to the first 'y').
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  59
  60     const char *ptr;
  61
  62     /* '/' at the begining of the string really is part of the path */
  63     while (*path == '/')
  64     {
  65         ++path;
  66     }
  67
  68     ptr = path;
  69
  70     while (*ptr)
  71     {
  72         if (*ptr == '/')
  73         {
  74             path = ptr;
  75         }
  76         else if (*ptr == ':')
  77         {
  78             path = ptr + 1;
  79         }
  80
  81         ptr++;
  82     }
  83
  84     return path;
  85     AROS_LIBFUNC_EXIT
  86 } /* PathPart */
  87
  88 #ifdef TEST
  89
  90 #    include <stdio.h>
  91
  92 int main (int argc, char ** argv)
  93 {
  94     UWORD i;
  95     STRPTR s,fileptr;
  96
  97     while (--argc)
  98     {
  99         s = *++argv;
 100         fileptr = PathPart(s);
 101
 102         printf("Pfad:  %s\nErg.: %s\n", s, fileptr);
 103     }
 104 }
 105
 106 #endif /* TEST */
 107