rom/dos/pathpart.c

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