encode_accessors.c 6.83 KB
Newer Older
1 2 3 4
/**
 * @file encode_accessors.c
 *
 * @section LICENSE
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
5
 * Copyright 2012 - 2019
6
 *
7 8 9 10
 * Mathis Rosenhauer, Moritz Hanke, Joerg Behrens
 * Deutsches Klimarechenzentrum GmbH
 * Bundesstr. 45a
 * 20146 Hamburg Germany
11
 *
12 13 14 15 16
 * Luis Kornblueh
 * Max-Planck-Institut fuer Meteorologie
 * Bundesstr. 53
 * 20146 Hamburg
 * Germany
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
 *
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above
 *    copyright notice, this list of conditions and the following
 *    disclaimer in the documentation and/or other materials provided
 *    with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * @section DESCRIPTION
 *
 * Read various data types from input stream
 *
 */

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
50 51 52 53
#include "config.h"
#include "encode_accessors.h"
#include "encode.h"
#include "libaec.h"
54
#include <stdint.h>
55 56
#include <string.h>

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
57
uint32_t aec_get_8(struct aec_stream *strm)
58 59 60 61 62
{
    strm->avail_in--;
    return *strm->next_in++;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
63
uint32_t aec_get_lsb_16(struct aec_stream *strm)
64
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
65
    uint32_t data = ((uint32_t)strm->next_in[1] << 8)
66 67 68 69 70 71 72
        | (uint32_t)strm->next_in[0];

    strm->next_in += 2;
    strm->avail_in -= 2;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
73
uint32_t aec_get_msb_16(struct aec_stream *strm)
74
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
75
    uint32_t data = ((uint32_t)strm->next_in[0] << 8)
76 77 78 79 80 81 82
        | (uint32_t)strm->next_in[1];

    strm->next_in += 2;
    strm->avail_in -= 2;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
83
uint32_t aec_get_lsb_24(struct aec_stream *strm)
84
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
85
    uint32_t data = ((uint32_t)strm->next_in[2] << 16)
86 87 88 89 90 91 92 93
        | ((uint32_t)strm->next_in[1] << 8)
        | (uint32_t)strm->next_in[0];

    strm->next_in += 3;
    strm->avail_in -= 3;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
94
uint32_t aec_get_msb_24(struct aec_stream *strm)
95
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
96
    uint32_t data = ((uint32_t)strm->next_in[0] << 16)
97 98 99 100 101 102 103 104
        | ((uint32_t)strm->next_in[1] << 8)
        | (uint32_t)strm->next_in[2];

    strm->next_in += 3;
    strm->avail_in -= 3;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
105
uint32_t aec_get_lsb_32(struct aec_stream *strm)
106
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
107
    uint32_t data = ((uint32_t)strm->next_in[3] << 24)
108 109 110 111 112 113 114 115 116
        | ((uint32_t)strm->next_in[2] << 16)
        | ((uint32_t)strm->next_in[1] << 8)
        | (uint32_t)strm->next_in[0];

    strm->next_in += 4;
    strm->avail_in -= 4;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
117
uint32_t aec_get_msb_32(struct aec_stream *strm)
118
{
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
119
    uint32_t data = ((uint32_t)strm->next_in[0] << 24)
120 121 122 123 124 125 126 127 128
        | ((uint32_t)strm->next_in[1] << 16)
        | ((uint32_t)strm->next_in[2] << 8)
        | (uint32_t)strm->next_in[3];

    strm->next_in += 4;
    strm->avail_in -= 4;
    return data;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
129
void aec_get_rsi_8(struct aec_stream *strm)
130
{
131 132
    uint32_t *restrict out = strm->state->data_raw;
    unsigned const char *restrict in = strm->next_in;
133 134
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
135
    for (int i = 0; i < rsi; i++)
136 137
        out[i] = (uint32_t)in[i];

138 139 140
    strm->next_in += rsi;
    strm->avail_in -= rsi;
}
141

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
142
void aec_get_rsi_lsb_16(struct aec_stream *strm)
143
{
144 145
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
146 147
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
148
    for (int i = 0; i < rsi; i++)
149 150
        out[i] = (uint32_t)in[2 * i] | ((uint32_t)in[2 * i + 1] << 8);

151 152 153 154
    strm->next_in += 2 * rsi;
    strm->avail_in -= 2 * rsi;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
155
void aec_get_rsi_msb_16(struct aec_stream *strm)
156
{
157 158
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
159 160
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
161
    for (int i = 0; i < rsi; i++)
162 163
        out[i] = ((uint32_t)in[2 * i] << 8) | (uint32_t)in[2 * i + 1];

164 165 166 167
    strm->next_in += 2 * rsi;
    strm->avail_in -= 2 * rsi;
}

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
168
void aec_get_rsi_lsb_24(struct aec_stream *strm)
169
{
170 171
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
172 173
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
174
    for (int i = 0; i < rsi; i++)
175 176 177 178
        out[i] = (uint32_t)in[3 * i]
            | ((uint32_t)in[3 * i + 1] << 8)
            | ((uint32_t)in[3 * i + 2] << 16);

179 180 181
    strm->next_in += 3 * rsi;
    strm->avail_in -= 3 * rsi;
}
182

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
183
void aec_get_rsi_msb_24(struct aec_stream *strm)
184
{
185 186
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
187 188
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
189
    for (int i = 0; i < rsi; i++)
190 191 192 193
        out[i] = ((uint32_t)in[3 * i] << 16)
            | ((uint32_t)in[3 * i + 1] << 8)
            | (uint32_t)in[3 * i + 2];

194 195 196
    strm->next_in += 3 * rsi;
    strm->avail_in -= 3 * rsi;
}
197

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
198 199
#define AEC_GET_RSI_NATIVE_32(BO)                       \
    void aec_get_rsi_##BO##_32(struct aec_stream *strm) \
200 201
    {                                               \
        int rsi = strm->rsi * strm->block_size;     \
202
        memcpy(strm->state->data_raw,               \
203 204 205
               strm->next_in, 4 * rsi);             \
        strm->next_in += 4 * rsi;                   \
        strm->avail_in -= 4 * rsi;                  \
206 207
    }

208
#ifdef WORDS_BIGENDIAN
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
209
void aec_get_rsi_lsb_32(struct aec_stream *strm)
210
{
211 212
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
213 214
    int rsi = strm->rsi * strm->block_size;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
215
    for (int i = 0; i < rsi; i++)
216 217 218 219 220
        out[i] = (uint32_t)in[4 * i]
            | ((uint32_t)in[4 * i + 1] << 8)
            | ((uint32_t)in[4 * i + 2] << 16)
            | ((uint32_t)in[4 * i + 3] << 24);

221 222 223
    strm->next_in += 4 * rsi;
    strm->avail_in -= 4 * rsi;
}
224

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
225
AEC_GET_RSI_NATIVE_32(msb);
226

227
#else /* !WORDS_BIGENDIAN */
Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
228
void aec_get_rsi_msb_32(struct aec_stream *strm)
229
{
230 231
    uint32_t *restrict out = strm->state->data_raw;
    const unsigned char *restrict in = strm->next_in;
232 233 234 235 236
    int rsi = strm->rsi * strm->block_size;

    strm->next_in += 4 * rsi;
    strm->avail_in -= 4 * rsi;

Mathis Rosenhauer's avatar
Mathis Rosenhauer committed
237
    for (int i = 0; i < rsi; i++)
238 239 240 241
        out[i] = ((uint32_t)in[4 * i] << 24)
            | ((uint32_t)in[4 * i + 1] << 16)
            | ((uint32_t)in[4 * i + 2] << 8)
            | (uint32_t)in[4 * i + 3];
242
}
243

244
AEC_GET_RSI_NATIVE_32(lsb)
245

246
#endif /* !WORDS_BIGENDIAN */