| Geant4 Cross Reference |
1 /*
2 # <<BEGIN-copyright>>
3 # <<END-copyright>>
4 */
5
6 #include <stdlib.h>
7 #include <string.h>
8 #include <ctype.h>
9 #ifdef WIN32
10 #include <direct.h>
11 #else
12 #include <unistd.h>
13 #endif
14
15 #include "xDataTOM_private.h"
16
17 #if defined __cplusplus
18 namespace GIDI {
19 using namespace GIDI;
20 #endif
21
22 #define nameValueLength 1024
23
24 static xDataTOM_element *xDataTOM_getLinksElement2( statusMessageReporting *smr, xDataTOM_element *element, char const *link, char const *fullLink );
25 static int xDataTOM_getLinksElement3( statusMessageReporting *smr, char const *nameValue, char *name, char *value, char const *fullLink );
26 /*
27 ************************************************************
28 */
29 char *xDataTOMMisc_getAbsPath( statusMessageReporting *smr, const char *fileName ) {
30 /*
31 * User must free returned string.
32 */
33 int n = (int) strlen( fileName ) + 1, nCwd = 0;
34 char *absPath, cwd[4 * 1024] = "", *p, *needle;
35
36 if( fileName[0] != '/' ) {
37 //if( getcwd( cwd, sizeof( cwd ) + 1 ) == NULL ) {
38 //TK modified above line for compiler(gcc.4.8) warning message
39 if( getcwd( cwd, sizeof( cwd ) ) == NULL ) {
40 smr_setReportError2p( smr, xDataTOM_smrLibraryID, -1, "hardwired cwd too small" );
41 return( NULL );
42 }
43 nCwd = (int) strlen( cwd );
44 n += nCwd + 1; /* cwd + '/'. */
45 }
46 if( ( absPath = (char *) smr_malloc2( smr, n, 0, "absPath" ) ) == NULL ) return( NULL );
47 if( fileName[0] != '/' ) {
48 strcpy( absPath, cwd );
49 strcat( absPath, "/" );
50 strcat( absPath, fileName ); }
51 else {
52 strcpy( absPath, fileName );
53 }
54
55 while( 1 ) { /* Remove all ./ from path. */
56 if( ( needle = strstr( absPath, "/./" ) ) == NULL ) break;
57 p = needle;
58 for( needle += 2; *needle; p++, needle++ ) *p = *needle;
59 *p = 0;
60 } // Loop checking, 11.06.2015, T. Koi
61
62 while( 1 ) { /* Remove all ../ from path. */
63 if( ( needle = strstr( absPath, "/../" ) ) == NULL ) break;
64 p = needle - 1;
65 while( ( p > absPath ) && ( *p != '/' ) ) p--; // Loop checking, 11.06.2015, T. Koi
66 if( *p != '/' ) break; /* This should not happen if path is legit, I think, and I do not know what to do so will leave it. */
67 if( p == absPath ) break; /* Ditto. */
68 for( needle += 3; *needle; p++, needle++ ) *p = *needle;
69 *p = 0;
70 } // Loop checking, 11.06.2015, T. Koi
71 return( absPath );
72 }
73 /*
74 ************************************************************
75 */
76 int xDataTOM_setMessageError_ReturnInt( int value, statusMessageReporting *smr, void *userInterface, const char *packageName, int lineNumber, int code,
77 const char *fmt, ... ) {
78
79 va_list args;
80
81 va_start( args, fmt );
82 smr_setReportError( smr, userInterface, packageName, lineNumber, __func__, xDataTOM_smrLibraryID, code, fmt, args );
83 va_end( args );
84 return( value );
85 }
86 /*
87 ************************************************************
88 */
89 xDataTOM_element *xDataTOM_getLinksElement( statusMessageReporting *smr, xDataTOM_element *element, char const *link ) {
90
91 xDataTOM_element *linkedElement = NULL;
92
93 if( link[0] == '/' ) {
94 for( linkedElement = element; linkedElement->parent != NULL; ) linkedElement = linkedElement->parent;
95 linkedElement = xDataTOM_getLinksElement2( smr, linkedElement, &(link[1]), link ); }
96 else {
97 smr_setReportError2( smr, smr_unknownID, 1, "Only absolute link currently supported: requested link = '%s'", link );
98 }
99 return( linkedElement );
100 }
101 /*
102 ************************************************************
103 */
104 static xDataTOM_element *xDataTOM_getLinksElement2( statusMessageReporting *smr, xDataTOM_element *element, char const *link, char const *fullLink ) {
105
106 int n = (int) strlen( link );
107 char const *slash = strchr( link, '/' ), *bracket = strchr( link, '[' ), *attributesValue;
108 char name[nameValueLength], value[nameValueLength];
109 xDataTOM_element *child;
110
111 if( bracket != NULL ) n = (int) ( bracket - link );
112 if( slash != NULL ) {
113 if( (int) ( slash - link ) < n ) {
114 n = (int) ( slash - link );
115 bracket = NULL;
116 }
117 }
118 for( child = element->children; child != NULL; child = child->next ) {
119 if( strncmp( link, child->name, n ) == 0 ) {
120 if( bracket != NULL ) {
121 if( bracket[1] != '@' ) {
122 smr_setReportError2( smr, smr_unknownID, 1, "bad link info at '%s' of '%s'", bracket, fullLink );
123 return( NULL );
124 }
125 if( xDataTOM_getLinksElement3( smr, &(bracket[2]), name, value, fullLink ) ) return( NULL );
126 if( ( attributesValue = xDataTOM_getAttributesValueInElement( child, name ) ) == NULL ) continue;
127 if( strcmp( value, attributesValue ) ) continue;
128 }
129 if( slash == NULL ) return( child );
130 return( xDataTOM_getLinksElement2( smr, child, &(slash[1]), fullLink ) );
131 }
132 }
133 return( NULL );
134 }
135 /*
136 ************************************************************
137 */
138 static int xDataTOM_getLinksElement3( statusMessageReporting *smr, char const *nameValue, char *name, char *value, char const *fullLink ) {
139
140 int n;
141 char const *equal = strchr( nameValue, '=' ), *p;
142 char quote = '\'';
143
144 if( equal == NULL ) {
145 smr_setReportError2( smr, smr_unknownID, 1, "link qualifier missing '=' character at '%s' of '%s'", nameValue, fullLink );
146 return( 1 );
147 }
148 n = (int) ( equal - nameValue );
149 if( n >= ( nameValueLength - 1 ) ) {
150 smr_setReportError2( smr, smr_unknownID, 1, "link's name qualifier too long at '%s' of '%s'", nameValue, fullLink );
151 return( 1 );
152 }
153 strncpy( name, nameValue, n );
154 name[n] = 0;
155
156 equal++;
157 if( *equal != quote ) quote = '"';
158 if( *equal != quote ) {
159 smr_setReportError2( smr, smr_unknownID, 1, "link's name qualifier missing quote at '%s' of '%s'", nameValue, fullLink );
160 return( 1 );
161 }
162
163 equal++;
164 p = strchr( equal, quote );
165 if( p == NULL ) {
166 smr_setReportError2( smr, smr_unknownID, 1, "link's name qualifier missing end quote at '%s' of '%s'", nameValue, fullLink );
167 return( 1 );
168 }
169
170 n = (int) ( p - equal );
171 if( n >= ( nameValueLength - 1 ) ) {
172 smr_setReportError2( smr, smr_unknownID, 1, "link's value qualifier too long at '%s' of '%s'", nameValue, fullLink );
173 return( 1 );
174 }
175 strncpy( value, equal, n );
176 value[n] = 0;
177
178 return( 0 );
179 }
180
181 #if defined __cplusplus
182 }
183 #endif
184