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
|
#include "default.h"
/*******************************************************************
*
* STRINGPTR_CAT:
* holds string and count of last alloc'd size. Conveniently
* manages static and dynamic strings, allowing auto-resize
* without worrying about memory management.
*
* This function adds any string to the string ptr. It even
* insulates against possibility that S2 is a substring of S1
* by pre-copying it.
*
******************************************************************/
char *stringptr_cat_pos(stringptr *s1,const char s2[],int *pos) /* ~~g --- */
{
int s2_len,total_len;
char *stringptr_cat_temp_p=NULL,*s2_temp=NULL;
if (s2 == NULL) /* it might be better to make this a debug cope */
return s1->p;
if (0 == s1->last_alloc) /* SAVE STATIC STRING */
stringptr_cat_temp_p = s1->p; /* SAVE OLD */
total_len=s2_len=strlen(s2)+1;
CALLOC(s2_temp,s2_len,char); /* ALLOCATE TEMP STORAGE */
memcpy(s2_temp,s2,s2_len); /* COPY THE STRING */
if (s1->p) { /* CALCULATE ADDITIONAL SPACE NEEDED FOR ORIGINAL STRING */
if (pos) /* USE THE CALLER-SUPPLIED STRING LENGTH */
total_len += *pos;
else /* OTHERWISE MEASURE IT */
total_len += strlen(s1->p);
}
GETMEM(s1->p,total_len,
s1->last_alloc,STRINGPTR_BUFFER_CHUNK,char);
if (stringptr_cat_temp_p) /* PUT OLD STATIC STRING BACK IN */
strcpy(s1->p,stringptr_cat_temp_p);
if (pos) { /* ATTACH NEW STRING AT CALLER-SUPPLIED END-POSITION */
strcpy(s1->p + *pos,s2_temp);
*pos = total_len-1; /* EXCLUDE TERMINATOR */
}
else /* OTHERWISE strcat AS USUAL */
strcat(s1->p,s2_temp);
FREE(s2_temp); /* FREE THE TEMP STORAGE */
return s1->p;
}
char *stringptr_cat(stringptr *s1,const char s2[]) /* ~~g --- */
{
return stringptr_cat_pos(s1,s2,NULL);
}
char *stringptr_cpy(stringptr *s1,const char s2[]) /* ~~g --- */
{
GETMEM(s1->p,strlen(s2)+1,s1->last_alloc,STRINGPTR_BUFFER_CHUNK,char);
strcpy(s1->p,s2);
return s1->p;
}
/**stringptr_free*************************************************
*
* stringptr_free:
* AUTHOR: tal
* Wed Jul 27 03:04:41 PDT 1994
*
* Frees stringptr type.
*
***************************************************************/
int stringptr_free(stringptr *s) /* ~~g --- */
{
FREE(s->p);
s->last_alloc=0;
return 0;
}
|
