Commit 542acbc380dff73e3704b71489a19e6446d33e86
2023-08-21T18:13:29
remove unused code
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
diff --git a/libc3/buf_parse.c b/libc3/buf_parse.c
index 0afae0b..025948f 100644
--- a/libc3/buf_parse.c
+++ b/libc3/buf_parse.c
@@ -23,7 +23,6 @@ sw buf_parse_array_data_rec (s_buf *buf, s_array *dest,
sw buf_parse_array_dimensions_rec (s_buf *buf, s_array *dest,
uw dimension, uw *address,
f_buf_parse parse, void *data);
-sw buf_parse_cfn_arg_types (s_buf *buf, s_list **dest);
sw buf_peek_array_dimension_count (s_buf *buf, s_array *dest);
sw buf_parse_array (s_buf *buf, s_array *dest)
@@ -777,54 +776,6 @@ sw buf_parse_cfn (s_buf *buf, s_cfn *dest)
return r;
}
-sw buf_parse_cfn_arg_types (s_buf *buf, s_list **dest)
-{
- sw r;
- sw result = 0;
- s_buf_save save;
- s_list **tail;
- s_list *tmp;
- assert(buf);
- assert(dest);
- buf_save_init(buf, &save);
- if ((r = buf_read_1(buf, "(")) <= 0)
- goto clean;
- result += r;
- if ((r = buf_ignore_spaces(buf)) < 0)
- goto restore;
- result += r;
- tail = &tmp;
- while (1) {
- *tail = list_new(NULL, NULL);
- if ((r = buf_parse_tag_sym(buf, &(*tail)->tag)) <= 0)
- goto restore;
- result += r;
- tail = &(*tail)->next.data.list;
- if ((r = buf_ignore_spaces(buf)) < 0)
- goto restore;
- result += r;
- if ((r = buf_read_1(buf, ",")) < 0)
- goto restore;
- if (! r)
- break;
- result += r;
- if ((r = buf_ignore_spaces(buf)) < 0)
- goto restore;
- result += r;
- }
- if ((r = buf_read_1(buf, ")")) <= 0)
- goto restore;
- result += r;
- *dest = tmp;
- r = result;
- goto clean;
- restore:
- buf_save_restore_rpos(buf, &save);
- clean:
- buf_save_clean(buf, &save);
- return r;
-}
-
sw buf_parse_character (s_buf *buf, character *dest)
{
character c;