ae44a1db28493cdca1c2324561b63140c34ee46a
[openafs.git] / src / util / casestrcpy.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include <afsconfig.h>
11 #include <afs/param.h>
12
13 RCSID("$Header$");
14
15 #ifdef HAVE_STRING_H
16 #include <string.h>
17 #else
18 #ifdef HAVE_STRINGS_H
19 #include <strings.h>
20 #endif
21 #endif
22 #include <ctype.h>
23 #include <stddef.h>
24 #include <stdarg.h>
25
26 /* Just like strncpy but shift-case in transit and forces null termination */
27 char *lcstring (char *d, char *s, int n)
28 {   char *original_d = d;
29     char  c;
30
31     if ((s == 0) || (d == 0)) return 0; /* just to be safe */
32     while (n) {
33         c = *s++;
34         if (isupper(c)) c = tolower(c);
35         *d++ = c;
36         if (c == 0) break;              /* quit after transferring null */
37         if (--n == 0) *(d-1) = 0;       /* make sure null terminated */
38     }
39     return original_d;
40 }
41
42 char *ucstring (char *d, char *s, int n)
43 {   char *original_d = d;
44     char  c;
45
46     if ((s == 0) || (d == 0)) return 0;
47     while (n) {
48         c = *s++;
49         if (islower(c)) c = toupper(c);
50         *d++ = c;
51         if (c == 0) break;
52         if (--n == 0) *(d-1) = 0;       /* make sure null terminated */
53     }
54     return original_d;
55 }
56
57 /* strcompose - concatenate strings passed to it.
58  * Input: 
59  *   buf: storage for the composed string. Any data in it will be lost.
60  *   len: length of the buffer.
61  *   ...: variable number of string arguments. The last argument must be
62  *        NULL. 
63  * Returns buf or NULL if the buffer was not sufficiently large.
64  */             
65 char *strcompose(char *buf, size_t len, ...)
66 {
67   va_list ap;
68   size_t spaceleft = len - 1;
69   char *str;
70   size_t slen; 
71
72   if (buf == NULL || len <= 0)
73     return NULL;
74
75   *buf = '\0';
76   va_start(ap, len);
77   str = va_arg(ap, char *);
78   while(str) { 
79     slen = strlen(str);
80     if (spaceleft < slen) /* not enough space left */
81       return NULL;
82     
83     strcat(buf, str);
84     spaceleft -= slen;
85     
86     str = va_arg(ap, char *);
87   }
88   va_end(ap);
89
90   return buf;
91 }
92