summaryrefslogtreecommitdiff
path: root/support/dktools/dk4path8.ctr
blob: d02ca90d65629528e8c189e6a9a2055388076196 (plain)
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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
%%	options

copyright owner	=	Dirk Krause
copyright year	=	2015-xxxx
license		=	bsd


%%	header

/**	@file
	String operations for path names
	(8 bit characters).
*/

#ifndef DK4CONF_H_INCLUDED
#include "dk4conf.h"
#endif

#ifndef DK4TYPES_H_INCLUDED
#include "dk4types.h"
#endif

#ifndef DK4ERROR_H_INCLUDED
#include "dk4error.h"
#endif


#ifdef __cplusplus
extern "C" {
#endif

/**	Check whether a file name is an absolute path.
	CRT on Windows: Not used.
	@param	path	Path name to check.
	@return	1 for absolute path, 0 for other path.
*/
int
dk4path8_is_absolute(const char *path);

/**	Check whether a file name is a relative path.
	CRT on Windows: Not used.
	@param	path	Path name to check.
	@return	1 for absolute path, 0 for other path.
*/
int
dk4path8_is_relative(const char *path);

/**	Append path filename to path name already stored in buffer.
	CRT on Windows: Optional, disabling CRT degrades performance.
	@param	buffer		Buffer already containing a path.
	@param	sz		Buffer size.
	@param	filename	Relative file name to append to buffer.
	@param	erp		Error report, may be NULL.
	@return	1 on success, 0 on error.
	
	Error codes:
	- DK4_E_INVALID_ARGUMENTS<br>
	  if buffer or filename is NULL or sz is 0,
	- DK4_E_MATH_OVERFLOW<br>
	  if filename is too long,
	- DK4_E_MEMORY<br>
	  if allocation of a filename copy fails,
	- DK4_E_SYNTAX<br>
	  if too many .. in filename,
	- DK4_E_BUFFER_TOO_SMALL<br>
	  if buffer size is too small.
*/
int
dk4path8_append(char *buffer, size_t sz, const char *filename, dk4_er_t *erp);

/**	Find pointer to suffix.
	CRT on Windows: Not used.
	@param	filename	File name to find suffix for.
	@param	erp		Error report, may be NULL.
	@return	Pointer to suffix dot if found, NULL otherwise.
	
	Error codes:
	- DK4_E_INVALID_ARGUMENTS<br>
	  if filename is NULL,
	- DK4_E_NOT_FOUND<br>
	  if the file name does not contain a suffix.
*/
char *
dk4path8_get_suffix(const char *filename, dk4_er_t *erp);

/**	Correct file name separators from slash to backslash on Windows,
	vice versa on other systems.
	CRT on Windows: Not used.
	@param	filename	File name to correct.
*/
void
dk4path8_correct_sep(char *filename);

/**	Check whether file name needs expansion on Windows.
	CRT on Windows: Not used.
	@param	filename	File name to check.
	@return	1 if expansion is necessary, 0 otherwise.
*/
int
dk4path8_must_expand(const char *filename);

#ifdef __cplusplus
}
#endif



%%	module


#include "dk4path8.h"
#include "dk4mem.h"
#include "dk4str8.h"

#if DK4_HAVE_STRING_H
#ifndef STRING_H_INCLUDED
#include <string.h>
#define	STRING_H_INCLUDED 1
#endif
#endif

/**	Constant keywords used by the dk4path8 module.
*/
static const char * const dk4path8_kw[] = {
#if DK4_HAVE_BACKSLASH_AS_SEP
/* 0 */	"\\",
/* 1 */ "/",
#else
/* 0 */ "/",
/* 1 */ "\\",
#endif
/* 2 */ ".",
/* 3 */ "..",
/* 4 */ ":"
};



/**	Get last character from a string.

	CRT on Windows: Not used.
	@param	str	String to test.
	@return	Last character from string.
*/
static
char
dk4path8_lastchar(const char *str)
{
  char	back	=	'\0';
  if (str) { while ('\0' != *str) { back = *(str++); } }
  return back;
}



int
dk4path8_is_absolute(const char *path)
{
  int		back	=	0;
#if DK4_ON_WINDOWS
  char		c;
#endif
  if (NULL != path) {
#if DK4_ON_WINDOWS
    c = *path;
    if ( *(dk4path8_kw[0]) == c ) {
      back = 1;
    } else {
      if ((('a' <= c) && ('z' >= c)) || (('A' <= c) && ('Z' >= c))) {
        if ( *(dk4path8_kw[4]) == path[1] ) {
	  c = path[2];
	  if ( ( *(dk4path8_kw[0]) == c ) || ( '\0' == c ) ) {
	    back = 1;
	  }
	}
      }
    }
#else
    if ( *(dk4path8_kw[0]) == *path ) {
      back = 1;
    }
#endif
  }
  return back;
}



int
dk4path8_is_relative(const char *path)
{
  int		back	=	0;
  if (NULL != path) {
    if (NULL != dk4str8_chr(path, *(dk4path8_kw[0]))) {
      if (0 == dk4path8_is_absolute(path)) {
        back = 1;
      }
    }
  }
  return back;
}



int
dk4path8_append(char *buffer, size_t sz, const char *filename, dk4_er_t *erp)
{
  char		*pc;			/* Current path part to append */
  char		*pn;			/* Next part to append */
  char		*pd;			/* Part to delete */
  char		*mycp	=	NULL;	/* Private copy */
#if DK4_ON_WINDOWS
  int		 ischr;
#endif
  int		 back	=	0;	/* Function result */
  int		 failed	=	0;	/* Definitely failed */
  char		 lch;			/* Last character from string */

  if ((NULL != buffer) && (NULL != filename) && (0 < sz)) {
    mycp = dk4str8_dup(filename, erp);
    if (NULL != mycp) {
      pc = mycp;
      while ((NULL != pc) && (0 == failed)) {
        pn = dk4str8_chr(pc, *(dk4path8_kw[0]));
	if (NULL != pn) { *(pn++) = '\0'; }
	if (0 != dk4str8_cmp(pc, dk4path8_kw[2])) {
	  if (0 == dk4str8_cmp(pc, dk4path8_kw[3])) {	/* Remove from buffer */
	    pd = dk4str8_rchr(buffer, *(dk4path8_kw[0]));
	    if (NULL != pd) {
	      *pd = '\0';
	      if (0 < dk4str8_len(&(pd[1]))) {
#if DK4_ON_WINDOWS
	        if (2 == dk4str8_len(buffer)) {
	          ischr = 0;
	          if (('A' <= buffer[0]) && ('Z' >= buffer[0])) {
		    ischr = 1;
		  }
		  if (('a' <= buffer[0]) && ('z' >= buffer[0])) {
		    ischr = 1;
		  }
		  if (1 == ischr) {
		    if (':' == buffer[1]) {
		      buffer[2] = *(dk4path8_kw[0]);
		      buffer[3] = '\0';
		    }
		  }
	        }
#else
	        if (0 == dk4str8_len(buffer)) {
	          *pd = *(dk4path8_kw[0]);
		  pd++;
		  *pd = '\0';
	        }
#endif
	      } else {
	        failed = 1;
		dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
	      }
	    } else {
	      failed = 1;
	      dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
	    }
	  } else {					/* Add to buffer */
	    lch = dk4path8_lastchar(buffer);
	    if (lch != *(dk4path8_kw[0])) {
	      if (0 != dk4str8_cat_s(buffer, sz, dk4path8_kw[0], erp)) {
	        if (0 == dk4str8_cat_s(buffer, sz, pc, erp)) {
	          failed = 1;
	        }
	      } else {
	        failed = 1;
	      }
	    } else {
	      if (0 == dk4str8_cat_s(buffer, sz, pc, erp)) {
	        failed = 1;
	      }
	    }
	  }
	}
	pc = pn;
      }
      if (0 == failed) {
        back = 1;
      }
      dk4mem_release(mycp);
    }
  } else {
    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
  }
  return back;
}



char *
dk4path8_get_suffix(const char *filename, dk4_er_t *erp)
{
  const char		*back	= NULL;
  if (NULL != filename) {
    while ('\0' != *filename) {
      if (('\\' == *filename) || ('/' == *filename)) {
        back = NULL;
      } else {
        if ('.' == *filename) {
	  back = filename;
	}
      }
      filename++;
    }
    if (NULL == back) {
      dk4error_set_simple_error_code(erp, DK4_E_NOT_FOUND);
    }
  } else {
    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
  }
  return ((char *)back);
}



void
dk4path8_correct_sep(char *filename)
{
  if (NULL != filename) {
    while ('\0' != *filename) {
#if DK4_HAVE_BACKSLASH_AS_SEP
      if ('/' == *filename) { *filename = '\\'; }
#else
      if ('\\' == *filename) { *filename = '/'; }
#endif
      filename++;
    }
  }
}



int
dk4path8_must_expand(const char *filename)
{
#if DK4_ON_WINDOWS
  int back = 0;
  if (NULL != filename) {
    while(('\0' != *filename) && (0 == back)) {
      switch (*filename) {
        case '*': case '?': {
	  back = 1;
	} break;
	default: {
	  filename++;
	} break;
      }
    }
  }
  return back;
#else
  return 0;
#endif
}