liyujie
2025-08-28 786ff4f4ca2374bdd9177f2e24b503d43e7a3b93
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
/*
 * Copyright 1996 by Jutta Degener and Carsten Bormann, Technische
 * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
 * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
 */
 
/*$Header*/
 
/* Generate code to pack a bit array from a name:#bits description,
 * WAV #49 style.
 */
 
#include    <stdio.h>
#include    "taste.h"
#include    "proto.h"
#include    <limits.h>
 
/* This module goes back to one Jeff Chilton used for his implementation
 * of the #49 WAV GSM format.  (In his original patch 8, it replaced
 * bitter.c.)
 *
 * In Microsoft's WAV #49 version of the GSM format, two 32 1/2
 * byte GSM frames are packed together to make one WAV frame, and
 * the GSM parameters are packed into bytes right-to-left rather
 * than left-to-right.
 *
 * That is, where toast's GSM format writes
 *
 *     aaaaaabb bbbbcccc cdddddee ...
 *    ___1____ ___2____ ___3____
 *
 *  for parameters a (6 bits), b (6 bits), c (5 bits), d (5 bits), e ..
 *  the WAV format has
 *
 *     bbaaaaaa ccccbbbb eedddddc ...
 *    ___1____ ___2____ ___3____
 *
 *  (This format looks a lot prettier if one pictures octets coming
 *  in through a fifo queue from the left, rather than waiting in the
 *  right-hand remainder of a C array.)
 */
 
#define WORD_BITS    16    /* sizeof(uword) * CHAR_BIT on the
                * target architecture---if this isn't 16,
                * you're in trouble with this library anyway.
                */
 
#define BYTE_BITS     8    /* CHAR_BIT on the target architecture---
                * if this isn't 8, you're in *deep* trouble.
                */
 
void write_code P2((s_spex, n_spex), struct spex * s_spex, int n_spex)
{
   struct spex    * sp = s_spex;
   int          n_in = 0;
 
   printf("uword sr = 0;\n");
 
   for (; n_spex > 0; n_spex--, sp++) {
 
       /*    insert       old
        *    new var         value     unused
        *    here
        *
        *    [____________xxxxxx**********]
        *
        *    <----- n_in ------>
        */
       printf("sr = sr >> %d | %s << %d;\n",
           sp->varsize,
           sp->var,
           WORD_BITS - sp->varsize);
 
       n_in += sp->varsize;
 
       while (n_in >= BYTE_BITS) {
           printf("*c++ = sr >> %d;\n",
               WORD_BITS - n_in);
           n_in -= BYTE_BITS;
       }
   }
 
   while (n_in >= BYTE_BITS) {
       printf("*c++ = sr >> %d;\n", WORD_BITS - n_in);
       n_in -= BYTE_BITS;
   }
 
   if (n_in > 0) {
       fprintf(stderr, "warning: %d bits left over\n", n_in);
   }
}