]> git.llucax.com Git - z.facultad/75.06/jacu.git/blob - src/zerogrouping/zg.c
Cambio sugerido por nico.
[z.facultad/75.06/jacu.git] / src / zerogrouping / zg.c
1 /* vim: set noexpandtab tabstop=4 shiftwidth=4 wrap:
2  *----------------------------------------------------------------------------
3  *                                  jacu
4  *----------------------------------------------------------------------------
5  * This file is part of jacu.
6  *
7  * jacu is free software; you can redistribute it and/or modify it under the
8  * terms of the GNU General Public License as published by the Free Software
9  * Foundation; either version 2 of the License, or (at your option) any later
10  * version.
11  *
12  * jacu is distributed in the hope that it will be useful, but WITHOUT ANY
13  * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14  * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
15  * details.
16  *
17  * You should have received a copy of the GNU General Public License along
18  * with jacu; if not, write to the Free Software Foundation, Inc., 59 Temple
19  * Place, Suite 330, Boston, MA  02111-1307  USA
20  *----------------------------------------------------------------------------
21  * Creado:  lun jun 21 13:55:48 ART 2004
22  * Autores: Leandro Lucarella <llucare@fi.uba.ar>
23  *----------------------------------------------------------------------------
24  *
25  * $Id$
26  *
27  */
28
29 #include "zerogrouping.h"
30 #include <stdlib.h>
31 #include <stdio.h>
32
33 /** \file
34  *
35  * Prueba de agrupador de ceros.
36  *
37  */
38
39 int main()
40 {
41         size_t len;
42         char buff[2];
43         int c;
44         ZG zg;
45         zg_init(&zg);
46         while ((c = getchar()) != EOF)
47         {
48                 if ((len = zg_group(&zg, buff, c))) fwrite(buff, 1, len, stdout);
49         }
50         return 0;
51 }
52