]> eyrie.org Git - kerberos/krb5-strength.git/blob - src/stringlib.c
Import the current krb5-strength code.
[kerberos/krb5-strength.git] / src / stringlib.c
1 /*
2  * This program is copyright Alec Muffett 1993. The author disclaims all 
3  * responsibility or liability with respect to it's usage or its effect 
4  * upon hardware or computer systems, and maintains copyright as set out 
5  * in the "LICENCE" document which accompanies distributions of Crack v4.0 
6  * and upwards.
7  */
8
9 #include "packer.h"
10
11 static char vers_id[] = "stringlib.c : v2.3p2 Alec Muffett 18 May 1993";
12
13 char
14 Chop(string)
15     register char *string;
16 {
17     register char c;
18     register char *ptr;
19     c = '\0';
20
21     for (ptr = string; *ptr; ptr++);
22     if (ptr != string)
23     {
24         c = *(--ptr);
25         *ptr = '\0';
26     }
27     return (c);
28 }
29
30 char *
31 Trim(string)
32     register char *string;
33 {
34     register char *ptr;
35     for (ptr = string; *ptr; ptr++);
36
37     while ((--ptr >= string) && isspace(*ptr));
38
39     *(++ptr) = '\0';
40
41     return (ptr);
42 }
43
44 char *
45 Clone(string)
46     char *string;
47 {
48     register char *retval;
49     retval = (char *) malloc(strlen(string) + 1);
50     if (retval)
51     {
52         strcpy(retval, string);
53     }
54     return (retval);
55 }