Add -lncurses to LDD flags
[lcr.git] / libgsmfr / tls / bitter.c
1 /*
2  * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
3  * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
4  * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
5  */
6
7 /*$Header: /tmp_amd/presto/export/kbs/jutta/src/gsm/RCS/bitter.c,v 1.1 1992/10/28 00:28:39 jutta Exp $*/
8
9 /* Generate code to pack a bit array from a name:#bits description */
10
11 #include        <stdio.h>
12 #include        "taste.h"
13 #include        "proto.h"
14
15 void write_code P2((s_spex, n_spex), struct spex * s_spex, int n_spex)
16 {
17         struct spex     * sp = s_spex;
18         int             bits = 8;
19         int             vars;
20
21         if (!n_spex) return;
22
23         vars = sp->varsize;
24
25         while (n_spex) {
26
27                 if (bits == 8) printf("\t*c++ =   ");
28                 else printf("\t       | ");
29
30                 if (vars == bits) {
31         
32                         printf( (bits==8? "%s & 0x%lX;\n" : "(%s & 0x%lX);\n"),
33                                 sp->var, 
34                                 ~(0xfffffffe << (bits - 1)));
35                         if (!-- n_spex) break;
36                         sp++;
37
38                         vars = sp->varsize;
39                         bits = 8;
40
41                 } else if (vars < bits) {
42
43                         printf( "((%s & 0x%lX) << %d)",
44                                 sp->var,
45                                 ~(0xfffffffe << (vars - 1)),
46                                 bits - vars);
47                         bits -= vars;
48                         if (!--n_spex) {
49                                 puts(";");
50                                 break;
51                         }
52                         else putchar('\n');
53                         sp++;
54                         vars = sp->varsize;
55
56                 } else {
57                         printf("((%s >> %d) & 0x%X);\n",
58                                 sp->var, 
59                                 vars - bits,
60                                 ~(0xfffffffe << (bits - 1)));
61                         
62                         vars -= bits;
63                         bits = 8;
64                 }
65         }
66 }