X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftoken.c;h=316c734384843e16e275face12f3c9c81cf382ad;hp=95eaf7a6f765db9793198c5226be8233f66364af;hb=2559f07a178b681dc240e20153ff5abdff54cb34;hpb=2fa436074ca9a5e87f39b696de832fa2188fcfc6

diff --git a/src/token.c b/src/token.c
index 95eaf7a..316c734 100644
--- a/src/token.c
+++ b/src/token.c
@@ -32,9 +32,9 @@
 #include "token.h"
 #include "parser.h"
 
-size_t psi_token_alloc_size(size_t token_len, size_t fname_len) {
-	return sizeof(struct psi_token) + token_len + fname_len + 2;
-}
+#ifndef PSI_DEBUG_TOKEN_ALLOC
+#	define PSI_DEBUG_TOKEN_ALLOC 0
+#endif
 
 struct psi_token *psi_token_init(token_t token_typ, const char *token_txt,
 		size_t token_len, unsigned col, unsigned line, zend_string *file)
@@ -46,15 +46,19 @@ struct psi_token *psi_token_init(token_t token_typ, const char *token_txt,
 	T->col = col;
 	T->line = line;
 	T->file = zend_string_copy(file);
-	T->text = zend_string_init(token_txt, token_len, 1);
-
+	T->text = zend_string_init_interned(token_txt, token_len, 1);
+#if PSI_DEBUG_TOKEN_ALLOC
+	fprintf(stderr, "PSI: token_init %p\n", T);
+#endif
 	return T;
 }
 
 void psi_token_free(struct psi_token **token_ptr) {
 	if (*token_ptr) {
 		struct psi_token *token = *token_ptr;
-
+#if PSI_DEBUG_TOKEN_ALLOC
+		fprintf(stderr, "PSI: token_free %p\n", token);
+#endif
 		*token_ptr = NULL;
 		zend_string_release(token->text);
 		zend_string_release(token->file);
@@ -66,7 +70,9 @@ struct psi_token *psi_token_copy(struct psi_token *src) {
 	struct psi_token *ptr = malloc(sizeof(*ptr));
 
 	*ptr = *src;
-
+#if PSI_DEBUG_TOKEN_ALLOC
+	fprintf(stderr, "PSI: token_copy %p <= %p\n", ptr, src);
+#endif
 	ptr->text = zend_string_copy(ptr->text);
 	ptr->file = zend_string_copy(ptr->file);
 
@@ -91,19 +97,21 @@ struct psi_token *psi_token_cat(const char *sep, unsigned argc, ...) {
 	T->type = PSI_T_NAME;
 	T->file = zend_string_copy(T->file);
 
-	for (i = 0; i < argc; ++i) {
-		struct psi_token *arg = va_arg(argv, struct psi_token *);
+	smart_str_append_ex(&text, T->text, 1);
 
-		if (sep_len && text.a) {
-			smart_str_appendl_ex(&text, sep, sep_len, 1);
-		}
+	for (i = 1; i < argc; ++i) {
+		struct psi_token *arg = va_arg(argv, struct psi_token *);
 
+		smart_str_appendl_ex(&text, sep, sep_len, 1);
 		smart_str_append_ex(&text, arg->text, 1);
 	}
 	va_end(argv);
 
 	T->text = smart_str_extract(&text);
 
+#if PSI_DEBUG_TOKEN_ALLOC
+	fprintf(stderr, "PSI: token_cat  %p\n", T);
+#endif
 	return T;
 }
 
@@ -173,7 +181,7 @@ static inline uint64_t psi_hash(char *digest_buf, ...)
 uint64_t psi_token_hash(struct psi_token *t, char *digest_buf) {
 	char loc_buf[48];
 
-	sprintf(digest_buf, "%u%u", t->line, t->col);
+	sprintf(loc_buf, "%u%u", t->line, t->col);
 	return psi_hash(digest_buf, t->file->val, loc_buf, (char *) NULL);
 }