74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#ifndef k_static
char* compose(pstr* lst,size_t ct, size_t* strsz) k_impl ({
size_t len = pstrsum(lst,ct)
if (strsz != NULL) *strsz = len;
if (len == 0) return NULL;
char* str = malloc(len + 1);
char* ptr = pstrcoll(lst, ct, ptr);
*ptr = 0;
return str;
});
#endif
char* impose(pstr* lst,size_t ct, size_t* strsz, char* buf) k_impl({
size_t len = pstrsum(lst,ct);
|
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#ifndef k_static
char* compose(pstr* lst,size_t ct, size_t* strsz) k_impl ({
size_t len = pstrsum(lst,ct)
if (strsz != NULL) *strsz = len;
if (len == 0) return NULL;
char* str = malloc(len + 1);
char* ptr = pstrcoll(lst, ct, str);
*ptr = 0;
return str;
});
#endif
char* impose(pstr* lst,size_t ct, size_t* strsz, char* buf) k_impl({
size_t len = pstrsum(lst,ct);
|