OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [freertos-6.1.1/] [Demo/] [ColdFire_MCF52259_CodeWarrior/] [stdlib.c] - Blame information for rev 578

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 jeremybenn
/* FILENAME: stdlib.c
2
 *
3
 * Functions normally found in a standard C lib.
4
 *
5
 * 12/28/2005 - added memcmp and memmove
6
 *
7
 * Notes: These functions support ASCII only!!!
8
 */
9
 
10
#include "common.h"
11
#include "stdlib.h"
12
 
13
/****************************************************************/
14
int
15
isspace (int ch)
16
{
17
        if ((ch == ' ') || (ch == '\t'))        /* \n ??? */
18
                return TRUE;
19
        else
20
                return FALSE;
21
}
22
 
23
/****************************************************************/
24
int
25
isalnum (int ch)
26
{
27
        /* ASCII only */
28
        if (((ch >= '0') && (ch <= '9')) ||
29
                ((ch >= 'A') && (ch <= 'Z')) ||
30
                ((ch >= 'a') && (ch <= 'z')))
31
                return TRUE;
32
        else
33
                return FALSE;
34
}
35
 
36
/****************************************************************/
37
int
38
isdigit (int ch)
39
{
40
        /* ASCII only */
41
        if ((ch >= '0') && (ch <= '9'))
42
                return TRUE;
43
        else
44
                return FALSE;
45
}
46
 
47
/****************************************************************/
48
int
49
isupper (int ch)
50
{
51
        /* ASCII only */
52
        if ((ch >= 'A') && (ch <= 'Z'))
53
                return TRUE;
54
        else
55
                return FALSE;
56
}
57
 
58
/****************************************************************/
59
int
60
strcasecmp (const char *s1, const char *s2)
61
{
62
        char    c1, c2;
63
        int             result = 0;
64
 
65
        while (result == 0)
66
        {
67
                c1 = *s1++;
68
                c2 = *s2++;
69
                if ((c1 >= 'a') && (c1 <= 'z'))
70
                        c1 = (char)(c1 - ' ');
71
                if ((c2 >= 'a') && (c2 <= 'z'))
72
                        c2 = (char)(c2 - ' ');
73
                if ((result = (c1 - c2)) != 0)
74
                        break;
75
                if ((c1 == 0) || (c2 == 0))
76
                        break;
77
        }
78
        return result;
79
}
80
 
81
 
82
/****************************************************************/
83
int
84
stricmp (const char *s1, const char *s2)
85
{
86
   return (strcasecmp(s1, s2));
87
}
88
 
89
/****************************************************************/
90
int
91
strncasecmp (const char *s1, const char *s2, int n)
92
{
93
        char    c1, c2;
94
        int             k = 0;
95
        int             result = 0;
96
 
97
        while ( k++ < n )
98
        {
99
                c1 = *s1++;
100
                c2 = *s2++;
101
                if ((c1 >= 'a') && (c1 <= 'z'))
102
                        c1 = (char)(c1 - ' ');
103
                if ((c2 >= 'a') && (c2 <= 'z'))
104
                        c2 = (char)(c2 - ' ');
105
                if ((result = (c1 - c2)) != 0)
106
                        break;
107
                if ((c1 == 0) || (c2 == 0))
108
                        break;
109
        }
110
        return result;
111
}
112
 
113
/****************************************************************/
114
int
115
strnicmp (const char *s1, const char *s2, int n)
116
{
117
   return (strncasecmp(s1, s2, n));
118
}
119
 
120
/****************************************************************/
121
uint32
122
strtoul (char *str, char **ptr, int base)
123
{
124
   unsigned long rvalue = 0;
125
   int neg = 0;
126
   int c;
127
 
128
   /* Validate parameters */
129
   if ((str != NULL) && (base >= 0) && (base <= 36))
130
   {
131
      /* Skip leading white spaces */
132
      while (isspace(*str))
133
      {
134
         ++str;
135
        }
136
 
137
        /* Check for notations */
138
       switch (str[0])
139
        {
140
                case '0':
141
          if (base == 0)
142
          {
143
             if ((str[1] == 'x') || (str[1] == 'X'))
144
                                {
145
                                        base = 16;
146
                str += 2;
147
             }
148
             else
149
             {
150
                base = 8;
151
                str++;
152
                                }
153
                        }
154
                        break;
155
 
156
                case '-':
157
                        neg = 1;
158
          str++;
159
          break;
160
 
161
       case '+':
162
          str++;
163
                        break;
164
 
165
                default:
166
                        break;
167
        }
168
 
169
        if (base == 0)
170
                base = 10;
171
 
172
      /* Valid "digits" are 0..9, A..Z, a..z */
173
      while (isalnum(c = *str))
174
      {
175
                /* Convert char to num in 0..36 */
176
         if ((c -= ('a' - 10)) < 10)         /* 'a'..'z' */
177
         {
178
            if ((c += ('a' - 'A')) < 10)     /* 'A'..'Z' */
179
            {
180
               c += ('A' - '0' - 10);        /* '0'..'9' */
181
                        }
182
                }
183
 
184
                /* check c against base */
185
                if (c >= base)
186
                {
187
                        break;
188
                }
189
 
190
                if (neg)
191
                {
192
                        rvalue = (rvalue * base) - c;
193
                }
194
                else
195
                {
196
                        rvalue = (rvalue * base) + c;
197
         }
198
 
199
         ++str;
200
                }
201
        }
202
 
203
   /* Upon exit, 'str' points to the character at which valid info */
204
   /* STOPS.  No chars including and beyond 'str' are used.        */
205
 
206
        if (ptr != NULL)
207
                        *ptr = str;
208
 
209
                return rvalue;
210
        }
211
 
212
/****************************************************************/
213
int
214
atoi (const char *str)
215
{
216
   char *s = (char *)str;
217
 
218
   return ((int)strtoul(s, NULL, 10));
219
}
220
 
221
/****************************************************************/
222
int
223
strlen (const char *str)
224
{
225
        char *s = (char *)str;
226
        int len = 0;
227
 
228
        if (s == NULL)
229
                return 0;
230
 
231
        while (*s++ != '\0')
232
                ++len;
233
 
234
        return len;
235
}
236
 
237
/****************************************************************/
238
char *
239
strcat (char *dest, const char *src)
240
{
241
        char *dp;
242
        char *sp = (char *)src;
243
 
244
        if ((dest != NULL) && (src != NULL))
245
        {
246
                dp = &dest[strlen(dest)];
247
 
248
                while (*sp != '\0')
249
                {
250
                        *dp++ = *sp++;
251
                }
252
                *dp = '\0';
253
        }
254
        return dest;
255
}
256
 
257
/****************************************************************/
258
char *
259
strncat (char *dest, const char *src, int n)
260
{
261
        char *dp;
262
        char *sp = (char *)src;
263
 
264
        if ((dest != NULL) && (src != NULL) && (n > 0))
265
        {
266
                dp = &dest[strlen(dest)];
267
 
268
                while ((*sp != '\0') && (n-- > 0))
269
                {
270
                        *dp++ = *sp++;
271
                }
272
                *dp = '\0';
273
        }
274
        return dest;
275
}
276
 
277
/****************************************************************/
278
char *
279
strcpy (char *dest, const char *src)
280
{
281
        char *dp = (char *)dest;
282
        char *sp = (char *)src;
283
 
284
        if ((dest != NULL) && (src != NULL))
285
        {
286
                while (*sp != '\0')
287
                {
288
                        *dp++ = *sp++;
289
                }
290
                *dp = '\0';
291
        }
292
        return dest;
293
}
294
 
295
/****************************************************************/
296
char *
297
strncpy (char *dest, const char *src, int n)
298
{
299
        char *dp = (char *)dest;
300
        char *sp = (char *)src;
301
 
302
        if ((dest != NULL) && (src != NULL) && (n > 0))
303
        {
304
                while ((*sp != '\0') && (n-- > 0))
305
                {
306
                        *dp++ = *sp++;
307
                }
308
                *dp = '\0';
309
        }
310
        return dest;
311
}
312
 
313
/****************************************************************/
314
int
315
strcmp (const char *s1, const char *s2)
316
{
317
        /* No checks for NULL */
318
        char *s1p = (char *)s1;
319
        char *s2p = (char *)s2;
320
 
321
        while (*s2p != '\0')
322
        {
323
                if (*s1p != *s2p)
324
                        break;
325
 
326
                ++s1p;
327
                ++s2p;
328
        }
329
        return (*s1p - *s2p);
330
}
331
 
332
/****************************************************************/
333
int
334
strncmp (const char *s1, const char *s2, int n)
335
{
336
        /* No checks for NULL */
337
        char *s1p = (char *)s1;
338
        char *s2p = (char *)s2;
339
 
340
        if (n <= 0)
341
                return 0;
342
 
343
        while (*s2p != '\0')
344
        {
345
                if (*s1p != *s2p)
346
                        break;
347
 
348
                if (--n == 0)
349
                        break;
350
 
351
                ++s1p;
352
                ++s2p;
353
        }
354
        return (*s1p - *s2p);
355
}
356
 
357
/****************************************************************/
358
char *
359
strstr(const char *s1, const char *s2)
360
{
361
   char *sp = (char *)s1;
362
   int  len1 = strlen(s1);
363
   int  len2 = strlen(s2);
364
 
365
   while (len1 >= len2)
366
   {
367
      if (strncmp(sp, s2, len2) == 0)
368
      {
369
         return (sp);
370
      }
371
      ++sp;
372
      --len1;
373
   }
374
 
375
   return (NULL);
376
}
377
 
378
/****************************************************************/
379
char *
380
strchr(const char *str, int c)
381
{
382
   char *sp = (char *)str;
383
   char  ch = (char)(c & 0xff);
384
 
385
   while (*sp != '\0')
386
   {
387
      if (*sp == ch)
388
      {
389
         return (sp);
390
      }
391
      ++sp;
392
   }
393
 
394
   return (NULL);
395
}
396
 
397
/****************************************************************/
398
void *
399
memcpy (void *dest, const void *src, unsigned n)
400
{
401
        unsigned char *dbp = (unsigned char *)dest;
402
        unsigned char *sbp = (unsigned char *)src;
403
 
404
        if ((dest != NULL) && (src != NULL) && (n > 0))
405
        {
406
      while (n--)
407
                        *dbp++ = *sbp++;
408
        }
409
        return dest;
410
}
411
 
412
/****************************************************************/
413
void *
414
memset (void *s, int c, unsigned n)
415
{
416
        /* Not optimized, but very portable */
417
        unsigned char *sp = (unsigned char *)s;
418
 
419
        if ((s != NULL) && (n > 0))
420
        {
421
                while (n--)
422
                {
423
                        *sp++ = (unsigned char)c;
424
                }
425
        }
426
        return s;
427
}
428
 
429
/****************************************************************/
430
int
431
memcmp (const void *s1, const void *s2, unsigned n)
432
{
433
   unsigned char *s1p, *s2p;
434
 
435
   if (s1 && s2 && (n > 0))
436
   {
437
      s1p = (unsigned char *)s1;
438
      s2p = (unsigned char *)s2;
439
 
440
      while ((--n >= 0) && (*s1p == *s2p))
441
      {
442
         if (*s1p != *s2p)
443
            return (*s1p - *s2p);
444
         ++s1p;
445
         ++s2p;
446
      }
447
   }
448
 
449
   return (0);
450
}
451
 
452
/****************************************************************/
453
void *
454
memmove (void *dest, const void *src, unsigned n)
455
{
456
   unsigned char *dbp = (unsigned char *)dest;
457
   unsigned char *sbp = (unsigned char *)src;
458
   unsigned char *dend = dbp + n;
459
   unsigned char *send = sbp + n;
460
 
461
   if ((dest != NULL) && (src != NULL) && (n > 0))
462
   {
463
      /* see if a memcpy would overwrite source buffer */
464
      if ((sbp < dbp) && (dbp < send))
465
      {
466
         while (n--)
467
            *(--dend) = *(--send);
468
      }
469
      else
470
      {
471
         while (n--)
472
            *dbp++ = *sbp++;
473
      }
474
   }
475
 
476
   return dest;
477
}
478
 
479
/****************************************************************/

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.