X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Fparser_def.h;h=f7d7d06560ba6c50d2828056aa0dbd5048997eb3;hp=e286bcda857a6a6f0cd08ee88ca25aaf4002183c;hb=5359ad5c181e5772f350fe1cba060cbed3a05b91;hpb=04a60b34fc18ea3a2638893eaf24514177692eeb

diff --git a/src/parser_def.h b/src/parser_def.h
index e286bcd..f7d7d06 100644
--- a/src/parser_def.h
+++ b/src/parser_def.h
@@ -20,13 +20,13 @@
 #define DEF(dn, dv)
 #define LET(nt, rule)
 #define PARSE(nt, rule) \
-	static void COUNTED(nt) (PSI_Parser *P rule)
+	static void COUNTED(nt) (struct psi_parser *P rule)
 #define PARSE_NAMED(nt, nt_name, rule) \
-	static void COUNTED(nt) (PSI_Parser *P NAMED(nt, nt_name) rule)
+	static void COUNTED(nt) (struct psi_parser *P NAMED(nt, nt_name) rule)
 #define PARSE_TYPED(nt, nt_name, rule) \
-	static void COUNTED(nt) (PSI_Parser *P TYPED(nt, nt_name) rule)
+	static void COUNTED(nt) (struct psi_parser *P TYPED(nt, nt_name) rule)
 #define TOKEN(t)
-#define NAMED(t, name) , PSI_Token *name
+#define NAMED(t, name) , struct psi_token *name
 #define TYPED(t, name) , TOKEN_TYPE_NAME(t) name
 #define TOKEN_TYPE_NAME(token) _##token##_type
 #define TOKEN_TYPE(token, type) typedef type TOKEN_TYPE_NAME(token);
@@ -37,12 +37,12 @@ DEF(%include, {
 void psi_error(int, const char *, int, const char *, ...);
 })
 
-DEF(%name, PSI_ParserProc)
+DEF(%name, psi_parser_proc_)
 DEF(%token_prefix, PSI_T_)
-DEF(%token_type, {PSI_Token *})
+DEF(%token_type, {struct psi_token *})
 DEF(%token_destructor, {free($$);})
 DEF(%default_destructor, {(void)P;})
-DEF(%extra_argument, {PSI_Parser *P})
+DEF(%extra_argument, {struct psi_parser *P})
 
 /* TOKEN is defined inside syntax_error */
 DEF(%syntax_error, {
@@ -253,8 +253,8 @@ PARSE_NAMED(enum_name, n,
 	} else {
 		char digest[17];
 
-		PSI_TokenHash(E, digest);
-		n = PSI_TokenTranslit(PSI_TokenAppend(E, 1, digest), " ", "@");
+		psi_token_hash(E, digest);
+		n = psi_token_translit(psi_token_append(E, 1, digest), " ", "@");
 	}
 }
 
@@ -300,8 +300,8 @@ PARSE_NAMED(union_name, n,
 	} else {
 		char digest[17];
 
-		PSI_TokenHash(U, digest);
-		n = PSI_TokenTranslit(PSI_TokenAppend(U, 1, digest), " ", "@");
+		psi_token_hash(U, digest);
+		n = psi_token_translit(psi_token_append(U, 1, digest), " ", "@");
 	}
 }
 
@@ -314,8 +314,8 @@ PARSE_NAMED(struct_name, n,
 	} else {
 		char digest[17];
 
-		PSI_TokenHash(S, digest);
-		n = PSI_TokenTranslit(PSI_TokenAppend(S, 1, digest), " ", "@");
+		psi_token_hash(S, digest);
+		n = psi_token_translit(psi_token_append(S, 1, digest), " ", "@");
 	}
 }
 
@@ -406,7 +406,7 @@ PARSE_TYPED(decl_typedef_body_ex, def,
 		TYPED(decl_struct_args_block, args)
 		TYPED(decl_var, var)) {
 	def = init_decl_arg(init_decl_type(PSI_T_STRUCT, N->text), var);
-	def->type->token = PSI_TokenCopy(N);
+	def->type->token = psi_token_copy(N);
 	def->type->real.strct = init_decl_struct(N->text, args);
 	def->type->real.strct->token = N;
 	def->type->real.strct->align = as.pos;
@@ -418,7 +418,7 @@ PARSE_TYPED(decl_typedef_body_ex, def,
 		TYPED(decl_struct_args_block, args)
 		TYPED(decl_var, var)) {
 	def = init_decl_arg(init_decl_type(PSI_T_UNION, N->text), var);
-	def->type->token = PSI_TokenCopy(N);
+	def->type->token = psi_token_copy(N);
 	def->type->real.unn = init_decl_union(N->text, args);
 	def->type->real.unn->token = N;
 	def->type->real.unn->align = as.pos;
@@ -429,7 +429,7 @@ PARSE_TYPED(decl_typedef_body_ex, def,
 		NAMED(NAME, ALIAS)) {
 	def = init_decl_arg(init_decl_type(PSI_T_ENUM, e->name), init_decl_var(ALIAS->text, 0, 0));
 	def->var->token = ALIAS;
-	def->type->token = PSI_TokenCopy(e->token);
+	def->type->token = psi_token_copy(e->token);
 	def->type->real.enm = e;
 }
 
@@ -448,7 +448,7 @@ PARSE_TYPED(decl_typedef_body, def,
 		TYPED(decl_func, func_)
 		TYPED(decl_typedef_body_fn_args, args)) {
 	def = init_decl_arg(init_decl_type(PSI_T_FUNCTION, func_->var->name), copy_decl_var(func_->var));
-	def->type->token = PSI_TokenCopy(func_->token);
+	def->type->token = psi_token_copy(func_->token);
 	def->type->real.func = init_decl(init_decl_abi("default"), func_, args);
 }
 PARSE_TYPED(decl_typedef_body, def,
@@ -503,7 +503,7 @@ PARSE_TYPED(decl_typedef_body, def,
 		copy_decl_var(func_->var)
 	);
 	def->var->pointer_level = type_i;
-	def->type->token = PSI_TokenCopy(func_->token);
+	def->type->token = psi_token_copy(func_->token);
 	def->type->real.func = init_decl(init_decl_abi("default"), func_, args);
 }
 PARSE_TYPED(decl_typedef_body, def,
@@ -528,7 +528,7 @@ PARSE_TYPED(decl_typedef_body, def,
 		copy_decl_var(func_->var)
 	);
 	def->var->pointer_level = type_i;
-	def->type->token = PSI_TokenCopy(func_->token);
+	def->type->token = psi_token_copy(func_->token);
 	def->type->real.func = init_decl(init_decl_abi("default"), func_, args);
 }
 
@@ -591,7 +591,7 @@ PARSE_TYPED(decl_typedef_body, def,
 		copy_decl_var(func_->var)
 	);
 	def->var->pointer_level = type_i;
-	def->type->token = PSI_TokenCopy(func_->token);
+	def->type->token = psi_token_copy(func_->token);
 	def->type->real.func = init_decl(init_decl_abi("default"), func_, args);
 }
 
@@ -707,7 +707,7 @@ PARSE_NAMED(decl_scalar_type, type_,
 		NAMED(SHORT, S)
 		NAMED(decl_scalar_type_short, s)) {
 	if (s) {
-		type_ = PSI_TokenCat(2, S, s);
+		type_ = psi_token_cat(2, S, s);
 		free(S);
 		free(s);
 	} else {
@@ -730,7 +730,7 @@ PARSE_NAMED(decl_scalar_type, type_,
 		NAMED(LONG, L)
 		NAMED(decl_scalar_type_long, l)) {
 	if (l) {
-		type_ = PSI_TokenCat(2, L, l);
+		type_ = psi_token_cat(2, L, l);
 		free(L);
 		free(l);
 	} else {
@@ -748,7 +748,7 @@ PARSE_NAMED(decl_scalar_type_long, l,
 		NAMED(LONG, L)
 		NAMED(decl_scalar_type_long_long, ll)) {
 	if (ll) {
-		l = PSI_TokenCat(2, L, ll);
+		l = psi_token_cat(2, L, ll);
 		free(L);
 		free(ll);
 	} else {
@@ -765,7 +765,7 @@ PARSE_NAMED(decl_scalar_type_long_long, ll,
 PARSE_TYPED(decl_type, type_,
 		NAMED(UNSIGNED, U)
 		NAMED(decl_scalar_type, N)) {
-	PSI_Token *T = PSI_TokenCat(2, U, N);
+	struct psi_token *T = psi_token_cat(2, U, N);
 	type_ = init_decl_type(T->type, T->text);
 	type_->token = T;
 	free(U);
@@ -774,7 +774,7 @@ PARSE_TYPED(decl_type, type_,
 PARSE_TYPED(decl_type, type_,
 		NAMED(SIGNED, S)
 		NAMED(decl_scalar_type, N)) {
-	PSI_Token *T = PSI_TokenCat(2, S, N);
+	struct psi_token *T = psi_token_cat(2, S, N);
 	type_ = init_decl_type(T->type, T->text);
 	type_->token = T;
 	free(S);
@@ -955,7 +955,7 @@ PARSE_TYPED(num_exp, exp,
 PARSE_TYPED(num_exp, exp,
 		TYPED(decl_var, var)) {
 	exp = init_num_exp(PSI_T_NAME, var);
-	exp->token = PSI_TokenCopy(var->token);
+	exp->token = psi_token_copy(var->token);
 }
 PARSE_TYPED(num_exp, exp,
 		TYPED(num_exp, exp_)