rom/dos/filepart.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Returns a pointer to the first char of the filename in the give file part.
   6 */
   7 #ifndef TEST
   8 #    include "dos_intern.h"
   9 #else
  10 #    define AROS_LH1(t,fn,a1,bt,bn,o,lib)     t fn (a1)
  11 #    define AROS_LHA(t,n,r)                   t n
  12 #    define AROS_LIBFUNC_INIT
  13 #    define AROS_LIBFUNC_EXIT
  14 #    include <exec/types.h>
  15 #    define CLIB_DOS_PROTOS_H
  16 #endif
  17 #include <string.h>
  18
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/dos.h>
  24
  25         AROS_LH1(STRPTR, FilePart,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(CONST_STRPTR, path, D1),
  29
  30 /*  LOCATION */
  31         struct DosLibrary *, DOSBase, 145, Dos)
  32
  33 /*  FUNCTION
  34         Get a pointer to the last component of a path, which is normally the
  35         filename.
  36
  37     INPUTS
  38         path - pointer AmigaDOS path string
  39             May be relative to the current directory or the current disk.
  40
  41     RESULT
  42         A pointer to the first char of the filename!
  43
  44     NOTES
  45
  46     EXAMPLE
  47         FilePart("xxx:yyy/zzz/qqq") returns a pointer to the first 'q'.
  48         FilePart("xxx:yyy")         returns a pointer to the first 'y'.
  49         FilePart("yyy")             returns a pointer to the first 'y'.
  50
  51     BUGS
  52         None known.
  53
  54     SEE ALSO
  55         PathPart(), AddPart()
  56
  57     INTERNALS
  58         Goes from the last char of the pathname back until it finds a ':',
  59         a '/' or until the first char reached.
  60
  61 *****************************************************************************/
  62 {
  63     AROS_LIBFUNC_INIT
  64
  65     if(path)
  66     {
  67         CONST_STRPTR i;
  68
  69         /* set i to last char of path */
  70
  71         if (!*path) /* path == "" ? */
  72           return (STRPTR)path;
  73
  74         i = path + strlen (path) -1;   /* set i to the \0-byte */
  75
  76         /* decrease pointer as long as there is no ':', no '/' or till
  77           the first char anyway. hope this works in all situations */
  78         while ((*i != ':') && (*i != '/') && (i != path))
  79             i--;
  80
  81         if ((*i == ':')) i++;
  82         if ((*i == '/')) i++;
  83
  84         return (STRPTR)i;
  85     } /* path */
  86
  87     return NULL;  /* if no path is given, return NULL pointer (shouldn't happen) */
  88
  89     AROS_LIBFUNC_EXIT
  90 } /* FilePart */
  91
  92 #ifdef TEST
  93
  94 #    include <stdio.h>
  95
  96 int main (int argc, char ** argv)
  97 {
  98     UWORD i;
  99     CONST_STRPTR s, fileptr;
 100
 101     while (--argc)
 102     {
 103         s = *++argv;
 104         fileptr = FilePart(s);
 105
 106         printf("Pfad:  %s\nDatei: %s\n", s, fileptr);
 107     }
 108 }
 109
 110 #endif /* TEST */