patchlevel 2
[gnupg.git] / g10 / textfilter.c
1 /* textfilter.c
2  *      Copyright (c) 1997 by Werner Koch (dd9jn)
3  *
4  * This file is part of G10.
5  *
6  * G10 is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * G10 is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <errno.h>
26 #include <assert.h>
27
28 #include "errors.h"
29 #include "iobuf.h"
30 #include "memory.h"
31 #include "util.h"
32 #include "filter.h"
33
34
35 /****************
36  * The filter is used to make canonical text: Lines are terminated by
37  * CR, LF, trailing white spaces are removed.
38  */
39 int
40 text_filter( void *opaque, int control,
41              IOBUF a, byte *buf, size_t *ret_len)
42 {
43     size_t size = *ret_len;
44     text_filter_context_t *tfx = opaque;
45     int i, c, rc=0;
46     byte *p;
47
48     if( control == IOBUFCTRL_UNDERFLOW ) {
49         for(i=0; i < size; i++ ) {
50             if( !tfx->linelen && !tfx->eof ) { /* read a complete line */
51                 for(;;) {
52                     if( (c = iobuf_get(a)) == -1 ) {
53                         tfx->eof=1;
54                         break;
55                     }
56                     if( c == '\n' )
57                         break;
58                     if( tfx->linelen >= tfx->linesize ) {
59                         tfx->linesize += 500;
60                         tfx->line = m_realloc( tfx->line, tfx->linesize );
61                     }
62                     tfx->line[tfx->linelen++] = c;
63                 }
64                 /* remove trailing white spaces */
65                 p = tfx->line + tfx->linelen - 1;
66                 for( ; p >= tfx->line; p--, tfx->linelen-- ) {
67                     if( *p != ' ' && *p == '\t' && *p != '\r' )
68                         break;
69                 }
70                 if( tfx->linelen+2 >= tfx->linesize ) {
71                     tfx->linesize += 10;
72                     tfx->line = m_realloc( tfx->line, tfx->linesize );
73                 }
74                 tfx->line[tfx->linelen++] = '\r';
75                 tfx->line[tfx->linelen++] = '\n';
76                 tfx->pos=0;
77             }
78             if( tfx->pos < tfx->linelen )
79                 buf[i] = tfx->line[tfx->pos++];
80             else if( tfx->eof )
81                 break;
82             else
83                 tfx->linelen = 0;
84         }
85         if( !i )
86             rc = -1;
87         *ret_len = i;
88     }
89     else if( control == IOBUFCTRL_INIT ) {
90         tfx->linesize = 500;
91         tfx->line = m_alloc(tfx->linesize);
92         tfx->linelen = 0;
93         tfx->pos = 0;
94         tfx->eof = 0;
95     }
96     else if( control == IOBUFCTRL_FREE ) {
97         m_free( tfx->line );
98         tfx->line = NULL;
99     }
100     else if( control == IOBUFCTRL_DESC )
101         *(char**)buf = "text_filter";
102     return rc;
103 }
104
105
106