parser.leg: move concat_str_list implementation into mk_str_from_list

This commit is contained in:
Michael Teichgräber 2012-04-21 23:06:04 +02:00
parent ef0f35c8b2
commit 4c6a2bc6b5

View File

@ -864,17 +864,6 @@ func reverse(list *element) (new *element) {
return return
} }
/* concat_string_list - concatenates string contents of list of STR elements.
*/
func concat_string_list(list *element) string {
s := ""
for list != nil {
s += list.contents.str
list = list.next
}
return s
}
/* /*
* Auxiliary functions for parsing actions. * Auxiliary functions for parsing actions.
@ -912,7 +901,11 @@ func mk_str(s string) (result *element) {
* reversed list of strings, adding optional extra newline * reversed list of strings, adding optional extra newline
*/ */
func mk_str_from_list(list *element, extra_newline bool) (result *element) { func mk_str_from_list(list *element, extra_newline bool) (result *element) {
s := concat_string_list(reverse(list)) s := ""
for list = reverse(list); list != nil; list = list.next {
s += list.contents.str
}
if extra_newline { if extra_newline {
s += "\n" s += "\n"
} }