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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/* igy.y - IG sequence parser */
%{
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <stdlib.h>
#include "sequence.h"
#include "sequence/parse.h"
#include "sequence/igy.h"
void igset_in(FILE *);
int iglex(YYSTYPE *);
int iglex_destroy(void);
static void yyerror(sequence_t *, const char *);
int igy_check(FILE *);
sequence_t *igy_parse(FILE *);
%}
%expect 0
%pure-parser
%parse-param { sequence_t *seq }
%union { char *str; }
%destructor { free($$); } <str>
%token EOL ERR NUL SEM
%token <str> TXT
%token <str> NAM
%token <str> BAS
%token TYP
%token END
%%
ig : header sequence end { return 0; /*NOTREACHED*/ }
| NUL { return -1; /*NOTREACHED*/ }
;
header : headcom headnam ;
headcom : headcom comline | comline ;
comline : SEM comtxt EOL ;
comtxt : comtxt TXT { parse_dscadd2(seq, $2); }
| /* Empty */
;
headnam : namtxt EOL ;
namtxt : NAM { parse_namadd(seq, $1); }
| /* Empty */
;
sequence : seqlist seqtype ;
seqlist : seqlist BAS { parse_stradd(seq, $2); }
| BAS { parse_stradd(seq, $1); }
;
seqtype : TYP | ;
end : END ;
%%
/* Checks IG sequence */
int igy_check(FILE *f) {
int i;
igset_in(f);
i = yyparse(NULL);
if (i == 0) { return i; }
iglex_destroy();
return i; }
/* Parse IG sequence */
sequence_t *igy_parse(FILE *f) {
int i;
sequence_t *seq;
seq = sequence_new();
if (seq == NULL) { return seq; }
igset_in(f);
i = yyparse((void *)seq);
if (i == 0) {
return seq; }
iglex_destroy();
sequence_free(seq);
return NULL; }
/* Helpers ... */
/*ARGSUSED*/
static void yyerror(sequence_t *seq, const char *s) { return; }
|
