riscv
/
alliance
mirror of https://gitlab.lip6.fr/vlsi-eda/alliance.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Petite modif de autbasename

This commit is contained in:
Ludovic Jacomme 2002-07-30 10:06:14 +00:00
parent e96402cefc
commit e6b6914dd6
3 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
alliance/src/aut/src/aut.h
View File

@ -113,7 +113,7 @@ extern "C" {
# define autbegin() do { \ # define autbegin() do { \
\ \
if ( AUT_DEBUG_ON ) addautdebug(__LINE__,basename(__FILE__)); } while (0) if ( AUT_DEBUG_ON ) addautdebug(__LINE__,autbasename(__FILE__,NULL)); } while (0)
# define autend() do { \ # define autend() do { \
\ \

16
alliance/src/aut/src/autenv.c
View File

@ -119,16 +119,20 @@ char *autbasename( Name, Extension )
int Index; int Index;
char *NewName; char *NewName;
NewName = mbkstrdup( Name ); NewName = basename( mbkstrdup( Name ) );
Index = strlen( NewName ) - (strlen( Extension ) + 1);
if ( Index >= 0 ) if ( Extension != (char *)0 )
{ {
if ( ! strcmp( NewName + Index + 1, Extension ) ) Index = strlen( NewName ) - (strlen( Extension ) + 1);
if ( Index >= 0 )
{ {
if ( NewName[ Index ] == '.' ) if ( ! strcmp( NewName + Index + 1, Extension ) )
{ {
NewName[ Index ] = '\0'; if ( NewName[ Index ] == '.' )
{
NewName[ Index ] = '\0';
}
} }
} }
} }

4
alliance/src/aut/src/auterror.h
View File

@ -82,9 +82,9 @@
\------------------------------------------------------------*/ \------------------------------------------------------------*/
# define auterror( E, V ) \ # define auterror( E, V ) \
(aut_error( (int)(E), (char *)(V), basename(__FILE__), __LINE__ )) (aut_error( (int)(E), (char *)(V), autbasename(__FILE__,NULL), __LINE__ ))
# define autwarning( W, V ) \ # define autwarning( W, V ) \
(aut_warning( (int)(W), (char *)(V), basename(__FILE__), __LINE__ )) (aut_warning( (int)(W), (char *)(V), autbasename(__FILE__,NULL), __LINE__ ))
/*------------------------------------------------------------\ /*------------------------------------------------------------\
| | | |