1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/* PRO12499 OPTIMISATION & DEBUG GG_100398
// Utiliser plutot une variable statique que allouer de
la memoire.
*/
#define IMP010200 /* GG
Add protection when NO extension is defined
and the path contains a '.'
*/
#include <Xw_Extension.h>
#include <string.h>
/* ifdef then trace on */
#ifdef TRACE
#define TRACE_GET_FILENAME
#endif
/*
char* Xw_get_filename (filename,extension):
char *filename Filename to translate
char *extension File extension
Translate Filename depending of environment and extension
Returns Updated Filename depending of environment and extension
or Returns NULL is translating can't be done
NOTE: Filename can be given under the forms :
1) xxxxxx.ext
2) xxxxxx (.extension is added)
3) /usr/..../xxxxxx.ext
4) $XXXXX/yyyyyy.ext ($XXXXX symbol is get and insert
*/
#define MAXSTRING 512
static char string1[MAXSTRING];
static char string2[MAXSTRING];
#ifdef XW_PROTOTYPE
char* Xw_get_filename (char* filename,const char* extension)
#else
char* Xw_get_filename (filename,extension)
char *filename ;
const char *extension ;
#endif /*XW_PROTOTYPE*/
{
char *pname,*pext,*pslash;
if( !filename || strlen(filename) > MAXSTRING ) {
printf (" *TOO BIG PATH*Xw_get_filename('%s','%s')\n",
filename,extension) ;
return (NULL) ;
}
pname = strcpy(string1,filename) ;
if( *pname == '$' ) {
pname = (char*) strchr(string1,'/') ;
if( pname ) { /* Filename is $XXXX/yyyyy */
XW_STATUS status;
*pname = '\0' ;
status = Xw_get_env(&string1[1],string2,MAXSTRING) ;
*pname = '/' ;
if( status ) {
if( (strlen(string2) + strlen(pname) + 1) < MAXSTRING ) {
pname = strcat(string2,pname) ;
} else {
printf (" *TOO BIG SYMBOL PATH*Xw_get_filename('%s','%s')\n",
filename,extension) ;
return NULL;
}
}
}
}
pext = strrchr(pname,'.') ;
#ifdef IMP010200
pslash = strrchr(pname,'/') ;
if( pext && (pslash > pext) ) pext = NULL;
#endif
if( !pext ) { /* Add file extension ".extension" */
if( (strlen(pname) + strlen(extension) + 2) < MAXSTRING ) {
strcat(pname,".") ;
strcat(pname,extension) ;
} else {
printf (" *TOO BIG EXTENSION*Xw_get_filename('%s','%s')\n",
filename,extension) ;
return NULL;
}
}
#ifdef TRACE_GET_FILENAME
if( Xw_get_trace() > 1 ) {
printf (" '%s'= Xw_get_filename('%s','%s')\n",pname,filename,extension) ;
}
#endif
return (pname);
}
|
