58 int     bl_fasta_read(FILE *fasta_stream, bl_fasta_t *record)  in bl_fasta_read()  argument
77 	ch = dsv_read_field_malloc(fasta_stream, &record->desc,  in bl_fasta_read()
78 			    &record->desc_array_size, "", &record->desc_len);  in bl_fasta_read()
79 	if ( record->desc == NULL )  in bl_fasta_read()
90 		    record->desc);  in bl_fasta_read()
98 	if ( record->seq_array_size == 0 )  in bl_fasta_read()
101 	    record->seq_array_size = 128 * 1024 * 1024;  in bl_fasta_read()
103 	    record->seq = xt_malloc(record->seq_array_size, sizeof(*record->seq));  in bl_fasta_read()
104 	    if ( record->seq == NULL )  in bl_fasta_read()
115 		record->seq[len++] = ch;  in bl_fasta_read()
116 	    if ( len == record->seq_array_size - 1 )  in bl_fasta_read()
118 		record->seq_array_size *= 2;  in bl_fasta_read()
119 		record->seq = xt_realloc(record->seq, record->seq_array_size,  in bl_fasta_read()
120 		    sizeof(*record->seq));  in bl_fasta_read()
121 		if ( record->seq == NULL )  in bl_fasta_read()
129 	record->seq[len] = '\0';  in bl_fasta_read()
130 	record->seq_len = len;  in bl_fasta_read()
134 		    record->seq);  in bl_fasta_read()
137 	if ( record->seq_array_size != record->seq_len + 1 )  in bl_fasta_read()
139 	    record->seq_array_size = record->seq_len + 1;  in bl_fasta_read()
140 	    record->seq = xt_realloc(record->seq, record->seq_array_size,  in bl_fasta_read()
141 		sizeof(*record->desc));  in bl_fasta_read()
186 int     bl_fasta_write(FILE *fasta_stream, bl_fasta_t *record,  in bl_fasta_write()  argument
193     if ( fprintf(fasta_stream, "%s\n", record->desc) < 0 )  in bl_fasta_write()
196     for (c = 0; c < record->seq_len; c += max_line_len)  in bl_fasta_write()
199 	if ( record->seq_len - c > max_line_len )  in bl_fasta_write()
201 	    save_ch = record->seq[c + max_line_len];  in bl_fasta_write()
202 	    record->seq[c + max_line_len] = '\0';  in bl_fasta_write()
206 	if ( fprintf(fasta_stream, "%s\n", record->seq + c) < 0 )  in bl_fasta_write()
210 	if ( record->seq_len - c > max_line_len )  in bl_fasta_write()
211 	    record->seq[c + max_line_len] = save_ch;  in bl_fasta_write()
244 void    bl_fasta_free(bl_fasta_t *record)  in bl_fasta_free()  argument
247     free(record->seq);  in bl_fasta_free()
248     free(record->desc);  in bl_fasta_free()
249     record->desc = record->seq = NULL;  in bl_fasta_free()
250     record->desc_array_size = record->seq_array_size = 0;  in bl_fasta_free()
251     record->desc_len = record->seq_len = 0;  in bl_fasta_free()
282 void    bl_fasta_init(bl_fasta_t *record)  in bl_fasta_init()  argument
285     record->desc = record->seq = NULL;  in bl_fasta_init()
286     record->desc_array_size = record->seq_array_size = 0;  in bl_fasta_init()
287     record->desc_len = record->seq_len = 0;  in bl_fasta_init()