mirror of
https://github.com/php/php-src.git
synced 2024-10-06 01:06:14 +00:00
32 lines
920 B
C
32 lines
920 B
C
/* Copyright Abandoned 1996 TCX DataKonsult AB & Monty Program KB & Detron HB
|
|
This file is public domain and comes with NO WARRANTY of any kind */
|
|
|
|
/* Returnerar en pekare till filnamnets extension. */
|
|
|
|
#include "mysys_priv.h"
|
|
#include <m_string.h>
|
|
|
|
/* Returnera en pekare till ett filnamns extension.
|
|
Pekaren pekar p} extensions-karakt{ren. Om ingen extension hittas
|
|
returneras en pekare till NULL-tecknet i filnamnet */
|
|
/* Denna funktion r|r inte p} utg}ngsnamnet */
|
|
|
|
my_string fn_ext(const char *name)
|
|
{
|
|
register my_string pos,gpos;
|
|
DBUG_ENTER("fn_ext");
|
|
DBUG_PRINT("mfunkt",("name: '%s'",name));
|
|
|
|
#if defined(FN_DEVCHAR) || defined(FN_C_AFTER_DIR)
|
|
{
|
|
char buff[FN_REFLEN];
|
|
gpos=(my_string) name+dirname_part(buff,(char*) name);
|
|
}
|
|
#else
|
|
if (!(gpos=strrchr(name,FNLIBCHAR)))
|
|
gpos=name;
|
|
#endif
|
|
pos=strrchr(gpos,FN_EXTCHAR);
|
|
DBUG_RETURN (pos ? pos : strend(gpos));
|
|
} /* fn_ext */
|