upstream: https://github.com/mirage/ocaml-mbr
regenerate EverParse C files with wire 0.9.0
Wire_3d now generates ExternalTypedefs.h, ExternalAPI.h, Wrapper,
and Fields files for schemas using WireCtx. Bitfield padding is
fixed so .3d structs match the OCaml codec wire_size. Test.c passes
NULL for the WIRECTX parameter and links per-schema Field stubs.
Affected: ax25, cfdp, fsr, ltp, mbr, pid1, pus, rpmsg, sdls,
spacefibre, squashfs, tcpcl, udpcl, spacewire, and others via @gen.
+1063
-12
+243
c/EverParse.h
+243
c/EverParse.h
···
1
+
/*++
2
+
3
+
Copyright (c) Microsoft Corporation
4
+
5
+
Module Name:
6
+
7
+
EverParse.h
8
+
9
+
Abstract:
10
+
11
+
This is an EverParse-generated file that contains common auxiliary
12
+
functions for EverParse-generated verified data validators.
13
+
14
+
This file was generated by EverParse v2026.02.25
15
+
16
+
Authors:
17
+
18
+
nswamy, protz, taramana 5-Feb-2020
19
+
20
+
--*/
21
+
22
+
23
+
#ifndef EverParse_H
24
+
#define EverParse_H
25
+
26
+
#if defined(__cplusplus)
27
+
extern "C" {
28
+
#endif
29
+
30
+
#include "EverParseEndianness.h"
31
+
32
+
static inline uint8_t EverParseGetBitfield8(uint8_t Value, uint32_t BitsFrom, uint32_t BitsTo)
33
+
{
34
+
uint8_t op1 = (uint32_t)Value << (8U - BitsTo);
35
+
return (uint32_t)op1 >> (8U - BitsTo + BitsFrom);
36
+
}
37
+
38
+
static inline uint16_t
39
+
EverParseGetBitfield16(uint16_t Value, uint32_t BitsFrom, uint32_t BitsTo)
40
+
{
41
+
uint16_t bf = (uint32_t)Value << (16U - BitsTo);
42
+
return (uint32_t)bf >> (16U - BitsTo + BitsFrom);
43
+
}
44
+
45
+
static inline uint32_t
46
+
EverParseGetBitfield32(uint32_t Value, uint32_t BitsFrom, uint32_t BitsTo)
47
+
{
48
+
return Value << (32U - BitsTo) >> (32U - BitsTo + BitsFrom);
49
+
}
50
+
51
+
static inline uint64_t
52
+
EverParseGetBitfield64(uint64_t Value, uint32_t BitsFrom, uint32_t BitsTo)
53
+
{
54
+
return Value << (64U - BitsTo) >> (64U - BitsTo + BitsFrom);
55
+
}
56
+
57
+
static inline uint8_t
58
+
EverParseGetBitfield8MsbFirst(uint8_t Value, uint32_t BitsFrom, uint32_t BitsTo)
59
+
{
60
+
return EverParseGetBitfield8(Value, 8U - BitsTo, 8U - BitsFrom);
61
+
}
62
+
63
+
static inline uint16_t
64
+
EverParseGetBitfield16MsbFirst(uint16_t Value, uint32_t BitsFrom, uint32_t BitsTo)
65
+
{
66
+
return EverParseGetBitfield16(Value, 16U - BitsTo, 16U - BitsFrom);
67
+
}
68
+
69
+
static inline uint32_t
70
+
EverParseGetBitfield32MsbFirst(uint32_t Value, uint32_t BitsFrom, uint32_t BitsTo)
71
+
{
72
+
return EverParseGetBitfield32(Value, 32U - BitsTo, 32U - BitsFrom);
73
+
}
74
+
75
+
static inline uint64_t
76
+
EverParseGetBitfield64MsbFirst(uint64_t Value, uint32_t BitsFrom, uint32_t BitsTo)
77
+
{
78
+
return EverParseGetBitfield64(Value, 64U - BitsTo, 64U - BitsFrom);
79
+
}
80
+
81
+
#define EVERPARSE_VALIDATOR_MAX_LENGTH (1152921504606846975ULL)
82
+
83
+
static inline BOOLEAN EverParseIsError(uint64_t PositionOrError)
84
+
{
85
+
return PositionOrError > EVERPARSE_VALIDATOR_MAX_LENGTH;
86
+
}
87
+
88
+
static inline BOOLEAN EverParseIsSuccess(uint64_t PositionOrError)
89
+
{
90
+
return PositionOrError <= EVERPARSE_VALIDATOR_MAX_LENGTH;
91
+
}
92
+
93
+
static inline uint64_t EverParseSetValidatorErrorPos(uint64_t Error, uint64_t Position)
94
+
{
95
+
return (Error & 17293822569102704640ULL) | Position << 0U;
96
+
}
97
+
98
+
static inline uint64_t EverParseGetValidatorErrorPos(uint64_t X)
99
+
{
100
+
return (X & 1152921504606846975ULL) >> 0U;
101
+
}
102
+
103
+
static inline uint64_t EverParseSetValidatorErrorKind(uint64_t Error, uint64_t Code)
104
+
{
105
+
return (Error & 1152921504606846975ULL) | Code << 60U;
106
+
}
107
+
108
+
static inline uint64_t EverParseGetValidatorErrorKind(uint64_t Error)
109
+
{
110
+
return (Error & 17293822569102704640ULL) >> 60U;
111
+
}
112
+
113
+
#define EVERPARSE_VALIDATOR_ERROR_GENERIC (1152921504606846976ULL)
114
+
115
+
#define EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA (2305843009213693952ULL)
116
+
117
+
#define EVERPARSE_VALIDATOR_ERROR_IMPOSSIBLE (3458764513820540928ULL)
118
+
119
+
#define EVERPARSE_VALIDATOR_ERROR_LIST_SIZE_NOT_MULTIPLE (4611686018427387904ULL)
120
+
121
+
#define EVERPARSE_VALIDATOR_ERROR_ACTION_FAILED (5764607523034234880ULL)
122
+
123
+
#define EVERPARSE_VALIDATOR_ERROR_CONSTRAINT_FAILED (6917529027641081856ULL)
124
+
125
+
#define EVERPARSE_VALIDATOR_ERROR_UNEXPECTED_PADDING (8070450532247928832ULL)
126
+
127
+
#define EVERPARSE_VALIDATOR_ERROR_PROBE_FAILED (9223372036854775808ULL)
128
+
129
+
static inline PRIMS_STRING EverParseErrorReasonOfResult(uint64_t Code)
130
+
{
131
+
switch (EverParseGetValidatorErrorKind(Code))
132
+
{
133
+
case 1ULL:
134
+
{
135
+
return "generic error";
136
+
}
137
+
case 2ULL:
138
+
{
139
+
return "not enough data";
140
+
}
141
+
case 3ULL:
142
+
{
143
+
return "impossible";
144
+
}
145
+
case 4ULL:
146
+
{
147
+
return "list size not multiple of element size";
148
+
}
149
+
case 5ULL:
150
+
{
151
+
return "action failed";
152
+
}
153
+
case 6ULL:
154
+
{
155
+
return "constraint failed";
156
+
}
157
+
case 7ULL:
158
+
{
159
+
return "unexpected padding";
160
+
}
161
+
case 8ULL:
162
+
{
163
+
return "probe failed";
164
+
}
165
+
default:
166
+
{
167
+
return "unspecified";
168
+
}
169
+
}
170
+
}
171
+
172
+
static inline uint64_t EverParseCheckConstraintOk(BOOLEAN Ok, uint64_t Position)
173
+
{
174
+
if (Ok)
175
+
{
176
+
return Position;
177
+
}
178
+
return EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_CONSTRAINT_FAILED, Position);
179
+
}
180
+
181
+
static inline BOOLEAN EverParseIsRangeOkay(uint32_t Size, uint32_t Offset, uint32_t AccessSize)
182
+
{
183
+
return Size >= AccessSize && (Size - AccessSize) >= Offset;
184
+
}
185
+
186
+
typedef struct EVERPARSE_ERROR_FRAME_s
187
+
{
188
+
BOOLEAN filled;
189
+
uint64_t start_pos;
190
+
PRIMS_STRING typename_s;
191
+
PRIMS_STRING fieldname;
192
+
PRIMS_STRING reason;
193
+
uint64_t error_code;
194
+
}
195
+
EVERPARSE_ERROR_FRAME;
196
+
197
+
typedef uint8_t *EVERPARSE_INPUT_BUFFER;
198
+
199
+
typedef void *EVERPARSE__LIVE;
200
+
201
+
static inline void
202
+
EverParseDefaultErrorHandler(
203
+
PRIMS_STRING TypenameS,
204
+
PRIMS_STRING Fieldname,
205
+
PRIMS_STRING Reason,
206
+
uint64_t ErrorCode,
207
+
EVERPARSE_ERROR_FRAME *Context,
208
+
uint8_t *Input,
209
+
uint64_t StartPos
210
+
)
211
+
{
212
+
KRML_MAYBE_UNUSED_VAR(Input);
213
+
if (!(*Context).filled)
214
+
{
215
+
*Context =
216
+
(
217
+
(EVERPARSE_ERROR_FRAME){
218
+
.filled = TRUE,
219
+
.start_pos = StartPos,
220
+
.typename_s = TypenameS,
221
+
.fieldname = Fieldname,
222
+
.reason = Reason,
223
+
.error_code = ErrorCode
224
+
}
225
+
);
226
+
return;
227
+
}
228
+
}
229
+
230
+
extern uint8_t *EverParseStreamOf(EVERPARSE_COPY_BUFFER_T uu___);
231
+
232
+
extern uint64_t EverParseStreamLen(EVERPARSE_COPY_BUFFER_T c);
233
+
234
+
typedef void *EVERPARSE_INV;
235
+
236
+
typedef void *EVERPARSE_LIVENESS_PRESERVED;
237
+
238
+
#if defined(__cplusplus)
239
+
}
240
+
#endif
241
+
242
+
#define EverParse_H_DEFINED
243
+
#endif /* EverParse_H */
+205
c/EverParseEndianness.h
+205
c/EverParseEndianness.h
···
1
+
/*++
2
+
3
+
Copyright (c) Microsoft Corporation
4
+
5
+
Module Name:
6
+
7
+
EverParseEndianness.h
8
+
9
+
Abstract:
10
+
11
+
This is an EverParse-related file to read integer values from raw
12
+
bytes.
13
+
14
+
Authors:
15
+
16
+
nswamy, protz, taramana 5-Feb-2020
17
+
18
+
--*/
19
+
/* This is a hand-written header that selectively includes relevant bits from
20
+
* krmllib.h -- it has to be updated manually to track upstream changes. */
21
+
22
+
#ifndef __EverParseEndianness_H
23
+
#define __EverParseEndianness_H
24
+
25
+
#if defined(__cplusplus)
26
+
extern "C" {
27
+
#endif
28
+
29
+
/*****************************************************************************
30
+
********* Implementation of LowStar.Endianness (selected bits) **************
31
+
*****************************************************************************/
32
+
33
+
#if defined(_MSC_VER)
34
+
# include <windows.h>
35
+
#endif
36
+
37
+
#include <string.h>
38
+
#include <stdint.h>
39
+
40
+
typedef const char * EVERPARSE_STRING;
41
+
typedef EVERPARSE_STRING PRIMS_STRING;
42
+
typedef void* EVERPARSE_COPY_BUFFER_T;
43
+
44
+
#ifndef KRML_MAYBE_UNUSED_VAR
45
+
# define KRML_MAYBE_UNUSED_VAR(x) (void)(x)
46
+
#endif
47
+
48
+
#ifndef KRML_HOST_IGNORE
49
+
# define KRML_HOST_IGNORE(x) (void)(x)
50
+
#endif
51
+
52
+
#ifndef KRML_HOST_PRINTF
53
+
# include <stdio.h>
54
+
# define KRML_HOST_PRINTF printf
55
+
#endif
56
+
57
+
#ifndef KRML_HOST_EXIT
58
+
# include <stdlib.h>
59
+
# define KRML_HOST_EXIT exit
60
+
#endif
61
+
62
+
#define KRML_CHECK_SIZE(size_elt, sz) \
63
+
do { \
64
+
if (((size_t)(sz)) > ((size_t)(SIZE_MAX / (size_elt)))) { \
65
+
KRML_HOST_PRINTF( \
66
+
"Maximum allocatable size exceeded, aborting before overflow at " \
67
+
"%s:%d\n", \
68
+
__FILE__, __LINE__); \
69
+
KRML_HOST_EXIT(253); \
70
+
} \
71
+
} while (0)
72
+
73
+
/* ... for Windows (MSVC)... not targeting XBOX 360! */
74
+
#if defined(_MSC_VER)
75
+
76
+
# include <stdlib.h>
77
+
78
+
# define htobe16(x) _byteswap_ushort(x)
79
+
# define htole16(x) (x)
80
+
# define be16toh(x) _byteswap_ushort(x)
81
+
# define le16toh(x) (x)
82
+
83
+
# define htobe32(x) _byteswap_ulong(x)
84
+
# define htole32(x) (x)
85
+
# define be32toh(x) _byteswap_ulong(x)
86
+
# define le32toh(x) (x)
87
+
88
+
# define htobe64(x) _byteswap_uint64(x)
89
+
# define htole64(x) (x)
90
+
# define be64toh(x) _byteswap_uint64(x)
91
+
# define le64toh(x) (x)
92
+
93
+
#else
94
+
95
+
typedef uint8_t BOOLEAN;
96
+
#define FALSE 0
97
+
#define TRUE 1
98
+
99
+
/* ... for Linux */
100
+
#if defined(__linux__) || defined(__CYGWIN__) || defined (__USE_SYSTEM_ENDIAN_H__)
101
+
# include <endian.h>
102
+
103
+
104
+
/* ... for OSX */
105
+
#elif defined(__APPLE__)
106
+
# include <libkern/OSByteOrder.h>
107
+
# define htole64(x) OSSwapHostToLittleInt64(x)
108
+
# define le64toh(x) OSSwapLittleToHostInt64(x)
109
+
# define htobe64(x) OSSwapHostToBigInt64(x)
110
+
# define be64toh(x) OSSwapBigToHostInt64(x)
111
+
112
+
# define htole16(x) OSSwapHostToLittleInt16(x)
113
+
# define le16toh(x) OSSwapLittleToHostInt16(x)
114
+
# define htobe16(x) OSSwapHostToBigInt16(x)
115
+
# define be16toh(x) OSSwapBigToHostInt16(x)
116
+
117
+
# define htole32(x) OSSwapHostToLittleInt32(x)
118
+
# define le32toh(x) OSSwapLittleToHostInt32(x)
119
+
# define htobe32(x) OSSwapHostToBigInt32(x)
120
+
# define be32toh(x) OSSwapBigToHostInt32(x)
121
+
122
+
/* ... for other BSDs */
123
+
#elif defined(__FreeBSD__) || defined(__NetBSD__) || defined(__DragonFly__)
124
+
# include <sys/endian.h>
125
+
#elif defined(__OpenBSD__)
126
+
# include <endian.h>
127
+
128
+
/* ... for Windows (GCC-like, e.g. mingw or clang) */
129
+
#elif (defined(_WIN32) || defined(_WIN64)) && \
130
+
(defined(__GNUC__) || defined(__clang__))
131
+
132
+
# define htobe16(x) __builtin_bswap16(x)
133
+
# define htole16(x) (x)
134
+
# define be16toh(x) __builtin_bswap16(x)
135
+
# define le16toh(x) (x)
136
+
137
+
# define htobe32(x) __builtin_bswap32(x)
138
+
# define htole32(x) (x)
139
+
# define be32toh(x) __builtin_bswap32(x)
140
+
# define le32toh(x) (x)
141
+
142
+
# define htobe64(x) __builtin_bswap64(x)
143
+
# define htole64(x) (x)
144
+
# define be64toh(x) __builtin_bswap64(x)
145
+
# define le64toh(x) (x)
146
+
147
+
#else
148
+
149
+
#error "Unsupported platform"
150
+
151
+
#endif
152
+
153
+
#endif
154
+
155
+
inline static uint16_t Load16(uint8_t *b) {
156
+
uint16_t x;
157
+
memcpy(&x, b, 2);
158
+
return x;
159
+
}
160
+
161
+
inline static uint32_t Load32(uint8_t *b) {
162
+
uint32_t x;
163
+
memcpy(&x, b, 4);
164
+
return x;
165
+
}
166
+
167
+
inline static uint64_t Load64(uint8_t *b) {
168
+
uint64_t x;
169
+
memcpy(&x, b, 8);
170
+
return x;
171
+
}
172
+
173
+
inline static void Store16(uint8_t *b, uint16_t i) {
174
+
memcpy(b, &i, 2);
175
+
}
176
+
177
+
inline static void Store32(uint8_t *b, uint32_t i) {
178
+
memcpy(b, &i, 4);
179
+
}
180
+
181
+
inline static void Store64(uint8_t *b, uint64_t i) {
182
+
memcpy(b, &i, 8);
183
+
}
184
+
185
+
#define Load16Le(b) (le16toh(Load16(b)))
186
+
#define Store16Le(b, i) (Store16(b, htole16(i)))
187
+
#define Load16Be(b) (be16toh(Load16(b)))
188
+
#define Store16Be(b, i) (Store16(b, htobe16(i)))
189
+
190
+
#define Load32Le(b) (le32toh(Load32(b)))
191
+
#define Store32Le(b, i) (Store32(b, htole32(i)))
192
+
#define Load32Be(b) (be32toh(Load32(b)))
193
+
#define Store32Be(b, i) (Store32(b, htobe32(i)))
194
+
195
+
#define Load64Le(b) (le64toh(Load64(b)))
196
+
#define Store64Le(b, i) (Store64(b, htole64(i)))
197
+
#define Load64Be(b) (be64toh(Load64(b)))
198
+
#define Store64Be(b, i) (Store64(b, htobe64(i)))
199
+
200
+
201
+
#if defined(__cplusplus)
202
+
}
203
+
#endif
204
+
205
+
#endif
+9
-9
c/MbrPartition.3d
+9
-9
c/MbrPartition.3d
···
1
1
extern typedef struct _WireCtx WireCtx
2
2
3
-
extern unit WireSetU8(mutable WireCtx *ctx, UINT32 idx, UINT8 v)
3
+
extern unit MbrPartitionSetU8(mutable WireCtx *ctx, UINT32 idx, UINT8 v)
4
4
5
-
extern unit WireSetBytes(mutable WireCtx *ctx, UINT32 idx, UINT32 v)
5
+
extern unit MbrPartitionSetBytes(mutable WireCtx *ctx, UINT32 idx, UINT32 v)
6
6
7
-
extern unit WireSetU32(mutable WireCtx *ctx, UINT32 idx, UINT32 v)
7
+
extern unit MbrPartitionSetU32(mutable WireCtx *ctx, UINT32 idx, UINT32 v)
8
8
9
9
entrypoint
10
10
typedef struct _MbrPartition(mutable WireCtx *ctx)
11
11
{
12
-
UINT8 status {:on-success WireSetU8(ctx, (UINT32) 0, status); return true; };
13
-
UINT8 first_chs[:byte-size 3] {:on-success WireSetBytes(ctx, (UINT32) 1, (UINT32) 1); return true; };
14
-
UINT8 type_ {:on-success WireSetU8(ctx, (UINT32) 2, type_); return true; };
15
-
UINT8 last_chs[:byte-size 3] {:on-success WireSetBytes(ctx, (UINT32) 3, (UINT32) 5); return true; };
16
-
UINT32 lba_start {:on-success WireSetU32(ctx, (UINT32) 4, lba_start); return true; };
17
-
UINT32 sectors {:on-success WireSetU32(ctx, (UINT32) 5, sectors); return true; };
12
+
UINT8 status {:on-success MbrPartitionSetU8(ctx, (UINT32) 0, status); return true; };
13
+
UINT8 first_chs[:byte-size 3] {:on-success MbrPartitionSetBytes(ctx, (UINT32) 1, (UINT32) 1); return true; };
14
+
UINT8 type_ {:on-success MbrPartitionSetU8(ctx, (UINT32) 2, type_); return true; };
15
+
UINT8 last_chs[:byte-size 3] {:on-success MbrPartitionSetBytes(ctx, (UINT32) 3, (UINT32) 5); return true; };
16
+
UINT32 lba_start {:on-success MbrPartitionSetU32(ctx, (UINT32) 4, lba_start); return true; };
17
+
UINT32 sectors {:on-success MbrPartitionSetU32(ctx, (UINT32) 5, sectors); return true; };
18
18
} MbrPartition;
19
19
20
20
+331
c/MbrPartition.c
+331
c/MbrPartition.c
···
1
+
2
+
3
+
#include "MbrPartition.h"
4
+
5
+
#include "MbrPartition_ExternalAPI.h"
6
+
7
+
uint64_t
8
+
MbrPartitionValidateMbrPartition(
9
+
WIRECTX *Ctx,
10
+
uint8_t *Ctxt,
11
+
void
12
+
(*ErrorHandlerFn)(
13
+
EVERPARSE_STRING x0,
14
+
EVERPARSE_STRING x1,
15
+
EVERPARSE_STRING x2,
16
+
uint64_t x3,
17
+
uint8_t *x4,
18
+
uint8_t *x5,
19
+
uint64_t x6
20
+
),
21
+
uint8_t *Input,
22
+
uint64_t InputLength,
23
+
uint64_t StartPosition
24
+
)
25
+
{
26
+
/* Validating field status */
27
+
/* Checking that we have enough space for a UINT8, i.e., 1 byte */
28
+
BOOLEAN hasBytes0 = 1ULL <= (InputLength - StartPosition);
29
+
uint64_t positionAfterstatus0;
30
+
if (hasBytes0)
31
+
{
32
+
positionAfterstatus0 = StartPosition + 1ULL;
33
+
}
34
+
else
35
+
{
36
+
positionAfterstatus0 =
37
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
38
+
StartPosition);
39
+
}
40
+
uint64_t positionAfterMbrPartition;
41
+
if (EverParseIsError(positionAfterstatus0))
42
+
{
43
+
positionAfterMbrPartition = positionAfterstatus0;
44
+
}
45
+
else
46
+
{
47
+
uint8_t status = Input[(uint32_t)StartPosition];
48
+
MbrPartitionSetU8(Ctx, (uint32_t)0U, status);
49
+
BOOLEAN actionResult = TRUE;
50
+
KRML_MAYBE_UNUSED_VAR(actionResult);
51
+
positionAfterMbrPartition = positionAfterstatus0;
52
+
}
53
+
uint64_t positionAfterstatus;
54
+
if (EverParseIsSuccess(positionAfterMbrPartition))
55
+
{
56
+
positionAfterstatus = positionAfterMbrPartition;
57
+
}
58
+
else
59
+
{
60
+
ErrorHandlerFn("_MbrPartition",
61
+
"status",
62
+
EverParseErrorReasonOfResult(positionAfterMbrPartition),
63
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition),
64
+
Ctxt,
65
+
Input,
66
+
StartPosition);
67
+
positionAfterstatus = positionAfterMbrPartition;
68
+
}
69
+
if (EverParseIsError(positionAfterstatus))
70
+
{
71
+
return positionAfterstatus;
72
+
}
73
+
/* Validating field first_chs */
74
+
BOOLEAN hasBytes1 = (uint64_t)3U <= (InputLength - positionAfterstatus);
75
+
uint64_t res0;
76
+
if (hasBytes1)
77
+
{
78
+
res0 = positionAfterstatus + (uint64_t)3U;
79
+
}
80
+
else
81
+
{
82
+
res0 =
83
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
84
+
positionAfterstatus);
85
+
}
86
+
uint64_t positionAfterMbrPartition0 = res0;
87
+
uint64_t positionAfterfirstChs;
88
+
if (EverParseIsSuccess(positionAfterMbrPartition0))
89
+
{
90
+
positionAfterfirstChs = positionAfterMbrPartition0;
91
+
}
92
+
else
93
+
{
94
+
ErrorHandlerFn("_MbrPartition",
95
+
"first_chs.base",
96
+
EverParseErrorReasonOfResult(positionAfterMbrPartition0),
97
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition0),
98
+
Ctxt,
99
+
Input,
100
+
positionAfterstatus);
101
+
positionAfterfirstChs = positionAfterMbrPartition0;
102
+
}
103
+
uint64_t positionAfterMbrPartition1;
104
+
if (EverParseIsSuccess(positionAfterfirstChs))
105
+
{
106
+
MbrPartitionSetBytes(Ctx, (uint32_t)1U, (uint32_t)1U);
107
+
BOOLEAN actionSuccessFirstChs = TRUE;
108
+
KRML_MAYBE_UNUSED_VAR(actionSuccessFirstChs);
109
+
positionAfterMbrPartition1 = positionAfterfirstChs;
110
+
}
111
+
else
112
+
{
113
+
positionAfterMbrPartition1 = positionAfterfirstChs;
114
+
}
115
+
uint64_t positionAfterfirstChs0;
116
+
if (EverParseIsSuccess(positionAfterMbrPartition1))
117
+
{
118
+
positionAfterfirstChs0 = positionAfterMbrPartition1;
119
+
}
120
+
else
121
+
{
122
+
ErrorHandlerFn("_MbrPartition",
123
+
"first_chs",
124
+
EverParseErrorReasonOfResult(positionAfterMbrPartition1),
125
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition1),
126
+
Ctxt,
127
+
Input,
128
+
positionAfterstatus);
129
+
positionAfterfirstChs0 = positionAfterMbrPartition1;
130
+
}
131
+
if (EverParseIsError(positionAfterfirstChs0))
132
+
{
133
+
return positionAfterfirstChs0;
134
+
}
135
+
/* Validating field type_ */
136
+
/* Checking that we have enough space for a UINT8, i.e., 1 byte */
137
+
BOOLEAN hasBytes2 = 1ULL <= (InputLength - positionAfterfirstChs0);
138
+
uint64_t positionAftertype;
139
+
if (hasBytes2)
140
+
{
141
+
positionAftertype = positionAfterfirstChs0 + 1ULL;
142
+
}
143
+
else
144
+
{
145
+
positionAftertype =
146
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
147
+
positionAfterfirstChs0);
148
+
}
149
+
uint64_t positionAfterMbrPartition2;
150
+
if (EverParseIsError(positionAftertype))
151
+
{
152
+
positionAfterMbrPartition2 = positionAftertype;
153
+
}
154
+
else
155
+
{
156
+
uint8_t type = Input[(uint32_t)positionAfterfirstChs0];
157
+
MbrPartitionSetU8(Ctx, (uint32_t)2U, type);
158
+
BOOLEAN actionResult = TRUE;
159
+
KRML_MAYBE_UNUSED_VAR(actionResult);
160
+
positionAfterMbrPartition2 = positionAftertype;
161
+
}
162
+
uint64_t positionAftertype0;
163
+
if (EverParseIsSuccess(positionAfterMbrPartition2))
164
+
{
165
+
positionAftertype0 = positionAfterMbrPartition2;
166
+
}
167
+
else
168
+
{
169
+
ErrorHandlerFn("_MbrPartition",
170
+
"type_",
171
+
EverParseErrorReasonOfResult(positionAfterMbrPartition2),
172
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition2),
173
+
Ctxt,
174
+
Input,
175
+
positionAfterfirstChs0);
176
+
positionAftertype0 = positionAfterMbrPartition2;
177
+
}
178
+
if (EverParseIsError(positionAftertype0))
179
+
{
180
+
return positionAftertype0;
181
+
}
182
+
/* Validating field last_chs */
183
+
BOOLEAN hasBytes3 = (uint64_t)3U <= (InputLength - positionAftertype0);
184
+
uint64_t res;
185
+
if (hasBytes3)
186
+
{
187
+
res = positionAftertype0 + (uint64_t)3U;
188
+
}
189
+
else
190
+
{
191
+
res =
192
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
193
+
positionAftertype0);
194
+
}
195
+
uint64_t positionAfterMbrPartition3 = res;
196
+
uint64_t positionAfterlastChs;
197
+
if (EverParseIsSuccess(positionAfterMbrPartition3))
198
+
{
199
+
positionAfterlastChs = positionAfterMbrPartition3;
200
+
}
201
+
else
202
+
{
203
+
ErrorHandlerFn("_MbrPartition",
204
+
"last_chs.base",
205
+
EverParseErrorReasonOfResult(positionAfterMbrPartition3),
206
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition3),
207
+
Ctxt,
208
+
Input,
209
+
positionAftertype0);
210
+
positionAfterlastChs = positionAfterMbrPartition3;
211
+
}
212
+
uint64_t positionAfterMbrPartition4;
213
+
if (EverParseIsSuccess(positionAfterlastChs))
214
+
{
215
+
MbrPartitionSetBytes(Ctx, (uint32_t)3U, (uint32_t)5U);
216
+
BOOLEAN actionSuccessLastChs = TRUE;
217
+
KRML_MAYBE_UNUSED_VAR(actionSuccessLastChs);
218
+
positionAfterMbrPartition4 = positionAfterlastChs;
219
+
}
220
+
else
221
+
{
222
+
positionAfterMbrPartition4 = positionAfterlastChs;
223
+
}
224
+
uint64_t positionAfterlastChs0;
225
+
if (EverParseIsSuccess(positionAfterMbrPartition4))
226
+
{
227
+
positionAfterlastChs0 = positionAfterMbrPartition4;
228
+
}
229
+
else
230
+
{
231
+
ErrorHandlerFn("_MbrPartition",
232
+
"last_chs",
233
+
EverParseErrorReasonOfResult(positionAfterMbrPartition4),
234
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition4),
235
+
Ctxt,
236
+
Input,
237
+
positionAftertype0);
238
+
positionAfterlastChs0 = positionAfterMbrPartition4;
239
+
}
240
+
if (EverParseIsError(positionAfterlastChs0))
241
+
{
242
+
return positionAfterlastChs0;
243
+
}
244
+
/* Validating field lba_start */
245
+
/* Checking that we have enough space for a UINT32, i.e., 4 bytes */
246
+
BOOLEAN hasBytes4 = 4ULL <= (InputLength - positionAfterlastChs0);
247
+
uint64_t positionAfterlbaStart;
248
+
if (hasBytes4)
249
+
{
250
+
positionAfterlbaStart = positionAfterlastChs0 + 4ULL;
251
+
}
252
+
else
253
+
{
254
+
positionAfterlbaStart =
255
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
256
+
positionAfterlastChs0);
257
+
}
258
+
uint64_t positionAfterMbrPartition5;
259
+
if (EverParseIsError(positionAfterlbaStart))
260
+
{
261
+
positionAfterMbrPartition5 = positionAfterlbaStart;
262
+
}
263
+
else
264
+
{
265
+
uint32_t lbaStart = Load32Le(Input + (uint32_t)positionAfterlastChs0);
266
+
MbrPartitionSetU32(Ctx, (uint32_t)4U, lbaStart);
267
+
BOOLEAN actionResult = TRUE;
268
+
KRML_MAYBE_UNUSED_VAR(actionResult);
269
+
positionAfterMbrPartition5 = positionAfterlbaStart;
270
+
}
271
+
uint64_t positionAfterlbaStart0;
272
+
if (EverParseIsSuccess(positionAfterMbrPartition5))
273
+
{
274
+
positionAfterlbaStart0 = positionAfterMbrPartition5;
275
+
}
276
+
else
277
+
{
278
+
ErrorHandlerFn("_MbrPartition",
279
+
"lba_start",
280
+
EverParseErrorReasonOfResult(positionAfterMbrPartition5),
281
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition5),
282
+
Ctxt,
283
+
Input,
284
+
positionAfterlastChs0);
285
+
positionAfterlbaStart0 = positionAfterMbrPartition5;
286
+
}
287
+
if (EverParseIsError(positionAfterlbaStart0))
288
+
{
289
+
return positionAfterlbaStart0;
290
+
}
291
+
/* Validating field sectors */
292
+
/* Checking that we have enough space for a UINT32, i.e., 4 bytes */
293
+
BOOLEAN hasBytes = 4ULL <= (InputLength - positionAfterlbaStart0);
294
+
uint64_t positionAftersectors;
295
+
if (hasBytes)
296
+
{
297
+
positionAftersectors = positionAfterlbaStart0 + 4ULL;
298
+
}
299
+
else
300
+
{
301
+
positionAftersectors =
302
+
EverParseSetValidatorErrorPos(EVERPARSE_VALIDATOR_ERROR_NOT_ENOUGH_DATA,
303
+
positionAfterlbaStart0);
304
+
}
305
+
uint64_t positionAfterMbrPartition6;
306
+
if (EverParseIsError(positionAftersectors))
307
+
{
308
+
positionAfterMbrPartition6 = positionAftersectors;
309
+
}
310
+
else
311
+
{
312
+
uint32_t sectors = Load32Le(Input + (uint32_t)positionAfterlbaStart0);
313
+
MbrPartitionSetU32(Ctx, (uint32_t)5U, sectors);
314
+
BOOLEAN actionResult = TRUE;
315
+
KRML_MAYBE_UNUSED_VAR(actionResult);
316
+
positionAfterMbrPartition6 = positionAftersectors;
317
+
}
318
+
if (EverParseIsSuccess(positionAfterMbrPartition6))
319
+
{
320
+
return positionAfterMbrPartition6;
321
+
}
322
+
ErrorHandlerFn("_MbrPartition",
323
+
"sectors",
324
+
EverParseErrorReasonOfResult(positionAfterMbrPartition6),
325
+
EverParseGetValidatorErrorKind(positionAfterMbrPartition6),
326
+
Ctxt,
327
+
Input,
328
+
positionAfterlbaStart0);
329
+
return positionAfterMbrPartition6;
330
+
}
331
+
+37
c/MbrPartition.h
+37
c/MbrPartition.h
···
1
+
2
+
3
+
#ifndef MbrPartition_H
4
+
#define MbrPartition_H
5
+
6
+
#if defined(__cplusplus)
7
+
extern "C" {
8
+
#endif
9
+
10
+
#include "EverParse.h"
11
+
#include "MbrPartition_ExternalTypedefs.h"
12
+
13
+
uint64_t
14
+
MbrPartitionValidateMbrPartition(
15
+
WIRECTX *Ctx,
16
+
uint8_t *Ctxt,
17
+
void
18
+
(*ErrorHandlerFn)(
19
+
EVERPARSE_STRING x0,
20
+
EVERPARSE_STRING x1,
21
+
EVERPARSE_STRING x2,
22
+
uint64_t x3,
23
+
uint8_t *x4,
24
+
uint8_t *x5,
25
+
uint64_t x6
26
+
),
27
+
uint8_t *Input,
28
+
uint64_t InputLength,
29
+
uint64_t StartPosition
30
+
);
31
+
32
+
#if defined(__cplusplus)
33
+
}
34
+
#endif
35
+
36
+
#define MbrPartition_H_DEFINED
37
+
#endif /* MbrPartition_H */
+41
c/MbrPartitionWrapper.c
+41
c/MbrPartitionWrapper.c
···
1
+
#include "MbrPartitionWrapper.h"
2
+
#include "EverParse.h"
3
+
#include "MbrPartition.h"
4
+
void MbrPartitionEverParseError(const char *StructName, const char *FieldName, const char *Reason);
5
+
6
+
static
7
+
void DefaultErrorHandler(
8
+
const char *typename_s,
9
+
const char *fieldname,
10
+
const char *reason,
11
+
uint64_t error_code,
12
+
uint8_t *context,
13
+
EVERPARSE_INPUT_BUFFER input,
14
+
uint64_t start_pos)
15
+
{
16
+
EVERPARSE_ERROR_FRAME *frame = (EVERPARSE_ERROR_FRAME*)context;
17
+
EverParseDefaultErrorHandler(
18
+
typename_s,
19
+
fieldname,
20
+
reason,
21
+
error_code,
22
+
frame,
23
+
input,
24
+
start_pos
25
+
);
26
+
}
27
+
28
+
BOOLEAN MbrPartitionCheckMbrPartition(WIRECTX* ctx, uint8_t *base, uint32_t len) {
29
+
EVERPARSE_ERROR_FRAME frame;
30
+
frame.filled = FALSE;
31
+
uint64_t result = MbrPartitionValidateMbrPartition(ctx, (uint8_t*)&frame, &DefaultErrorHandler, base, len, 0);
32
+
if (EverParseIsError(result))
33
+
{
34
+
if (frame.filled)
35
+
{
36
+
MbrPartitionEverParseError(frame.typename_s, frame.fieldname, frame.reason);
37
+
}
38
+
return FALSE;
39
+
}
40
+
return TRUE;
41
+
}
+26
c/MbrPartitionWrapper.h
+26
c/MbrPartitionWrapper.h
···
1
+
#include "EverParseEndianness.h"
2
+
#define EVERPARSE_SUCCESS 0ul
3
+
#define EVERPARSE_ERROR_GENERIC 1uL
4
+
#define EVERPARSE_ERROR_NOT_ENOUGH_DATA 2uL
5
+
#define EVERPARSE_ERROR_IMPOSSIBLE 3uL
6
+
#define EVERPARSE_ERROR_LIST_SIZE_NOT_MULTIPLE 4uL
7
+
#define EVERPARSE_ERROR_ACTION_FAILED 5uL
8
+
#define EVERPARSE_ERROR_CONSTRAINT_FAILED 6uL
9
+
#define EVERPARSE_ERROR_UNEXPECTED_PADDING 7uL
10
+
// Probe wrapper error codes
11
+
#define EVERPARSE_PROBE_FAILURE_INCORRECT_SIZE 256uL
12
+
#define EVERPARSE_PROBE_FAILURE_INIT 257uL
13
+
#define EVERPARSE_PROBE_FAILURE_PROBE 258uL
14
+
#define EVERPARSE_PROBE_FAILURE_VALIDATION 259uL
15
+
16
+
17
+
#include "MbrPartition_ExternalTypedefs.h"
18
+
19
+
20
+
#ifdef __cplusplus
21
+
extern "C" {
22
+
#endif
23
+
BOOLEAN MbrPartitionCheckMbrPartition(WIRECTX* ctx, uint8_t *base, uint32_t len);
24
+
#ifdef __cplusplus
25
+
}
26
+
#endif
+24
c/MbrPartition_ExternalAPI.h
+24
c/MbrPartition_ExternalAPI.h
···
1
+
2
+
3
+
#ifndef MbrPartition_ExternalAPI_H
4
+
#define MbrPartition_ExternalAPI_H
5
+
6
+
#if defined(__cplusplus)
7
+
extern "C" {
8
+
#endif
9
+
10
+
#include "EverParse.h"
11
+
#include "MbrPartition_ExternalTypedefs.h"
12
+
13
+
extern void MbrPartitionSetU8(WIRECTX *ctx, uint32_t idx, uint8_t v);
14
+
15
+
extern void MbrPartitionSetBytes(WIRECTX *ctx, uint32_t idx, uint32_t v);
16
+
17
+
extern void MbrPartitionSetU32(WIRECTX *ctx, uint32_t idx, uint32_t v);
18
+
19
+
#if defined(__cplusplus)
20
+
}
21
+
#endif
22
+
23
+
#define MbrPartition_ExternalAPI_H_DEFINED
24
+
#endif /* MbrPartition_ExternalAPI_H */
+4
c/MbrPartition_ExternalTypedefs.h
+4
c/MbrPartition_ExternalTypedefs.h
+32
c/MbrPartition_Fields.c
+32
c/MbrPartition_Fields.c
···
1
+
#include <stdint.h>
2
+
#include "MbrPartition_Fields.h"
3
+
#include "MbrPartition_ExternalTypedefs.h"
4
+
#include "MbrPartition_ExternalAPI.h"
5
+
6
+
void MbrPartitionSetU8(WIRECTX *ctx, uint32_t idx, uint8_t v) {
7
+
MbrPartitionFields *f = (MbrPartitionFields *) ctx;
8
+
switch (idx) {
9
+
case 0: f->status = (uint8_t) v; break;
10
+
case 2: f->type = (uint8_t) v; break;
11
+
default: (void) f; (void) v; break;
12
+
}
13
+
}
14
+
15
+
void MbrPartitionSetBytes(WIRECTX *ctx, uint32_t idx, uint32_t v) {
16
+
MbrPartitionFields *f = (MbrPartitionFields *) ctx;
17
+
switch (idx) {
18
+
case 1: f->first_chs = (uint32_t) v; break;
19
+
case 3: f->last_chs = (uint32_t) v; break;
20
+
default: (void) f; (void) v; break;
21
+
}
22
+
}
23
+
24
+
void MbrPartitionSetU32(WIRECTX *ctx, uint32_t idx, uint32_t v) {
25
+
MbrPartitionFields *f = (MbrPartitionFields *) ctx;
26
+
switch (idx) {
27
+
case 4: f->lba_start = (uint32_t) v; break;
28
+
case 5: f->sectors = (uint32_t) v; break;
29
+
default: (void) f; (void) v; break;
30
+
}
31
+
}
32
+
+24
c/MbrPartition_Fields.h
+24
c/MbrPartition_Fields.h
···
1
+
#ifndef MBRPARTITION_FIELDS_H
2
+
#define MBRPARTITION_FIELDS_H
3
+
#include <stdint.h>
4
+
5
+
/* Field indices -- use with the schema's WireSet* callbacks in a
6
+
custom [WIRECTX] if you only want to capture a subset. */
7
+
#define MBRPARTITION_IDX_STATUS 0
8
+
#define MBRPARTITION_IDX_FIRST_CHS 1
9
+
#define MBRPARTITION_IDX_TYPE 2
10
+
#define MBRPARTITION_IDX_LAST_CHS 3
11
+
#define MBRPARTITION_IDX_LBA_START 4
12
+
#define MBRPARTITION_IDX_SECTORS 5
13
+
14
+
/* Default plug: one typed member per named field. Pass a pointer to
15
+
[MbrPartitionFields] as [WIRECTX *] when you want every field populated. */
16
+
typedef struct MbrPartitionFields {
17
+
uint8_t status;
18
+
uint32_t first_chs;
19
+
uint8_t type;
20
+
uint32_t last_chs;
21
+
uint32_t lba_start;
22
+
uint32_t sectors;
23
+
} MbrPartitionFields;
24
+
#endif
+9
-3
c/dune.inc
+9
-3
c/dune.inc
···
9
9
(rule
10
10
(alias gen)
11
11
(mode fallback)
12
-
(targets EverParse.h EverParseEndianness.h MbrPartition.h MbrPartition.c test.c)
12
+
(targets EverParse.h EverParseEndianness.h MbrPartition.h MbrPartition.c MbrPartition_ExternalTypedefs.h MbrPartition_ExternalAPI.h MbrPartitionWrapper.c MbrPartitionWrapper.h MbrPartition_Fields.h MbrPartition_Fields.c test.c)
13
13
(deps gen.exe MbrPartition.3d)
14
14
(action
15
15
(run ./gen.exe c)))
16
16
17
17
(rule
18
18
(alias runtest)
19
-
(deps test.c EverParse.h EverParseEndianness.h MbrPartition.h MbrPartition.c)
19
+
(deps test.c EverParse.h EverParseEndianness.h MbrPartition.h MbrPartition.c MbrPartition_ExternalTypedefs.h MbrPartition_ExternalAPI.h MbrPartitionWrapper.c MbrPartitionWrapper.h MbrPartition_Fields.h MbrPartition_Fields.c)
20
20
(action
21
21
(system
22
-
"cc -std=c11 -Wall -Wextra -Werror -o test_mbr test.c MbrPartition.c && ./test_mbr")))
22
+
"cc -std=c99 -Wall -Wextra -Werror -Wpedantic -Wstrict-prototypes -Wmissing-prototypes -Wshadow -Wcast-qual -o test_mbr test.c MbrPartition.c MbrPartition_Fields.c && ./test_mbr")))
23
23
24
24
(install
25
25
(package mbr)
···
28
28
(MbrPartition.3d as c/MbrPartition.3d)
29
29
(MbrPartition.h as c/MbrPartition.h)
30
30
(MbrPartition.c as c/MbrPartition.c)
31
+
(MbrPartition_ExternalTypedefs.h as c/MbrPartition_ExternalTypedefs.h)
32
+
(MbrPartition_ExternalAPI.h as c/MbrPartition_ExternalAPI.h)
33
+
(MbrPartitionWrapper.c as c/MbrPartitionWrapper.c)
34
+
(MbrPartitionWrapper.h as c/MbrPartitionWrapper.h)
35
+
(MbrPartition_Fields.h as c/MbrPartition_Fields.h)
36
+
(MbrPartition_Fields.c as c/MbrPartition_Fields.c)
31
37
(EverParse.h as c/EverParse.h)
32
38
(EverParseEndianness.h as c/EverParseEndianness.h)))
+78
c/test.c
+78
c/test.c
···
1
+
#include <stdio.h>
2
+
#include <stdlib.h>
3
+
#include <stdint.h>
4
+
#include <string.h>
5
+
#include "EverParse.h"
6
+
#include "MbrPartition.h"
7
+
#include "MbrPartition_Fields.h"
8
+
9
+
static int error_count;
10
+
11
+
static void counting_error_handler(
12
+
EVERPARSE_STRING t, EVERPARSE_STRING f, EVERPARSE_STRING r,
13
+
uint64_t c, uint8_t *ctx, uint8_t *i, uint64_t p) {
14
+
(void)t; (void)f; (void)r; (void)c; (void)ctx; (void)i; (void)p;
15
+
error_count++;
16
+
}
17
+
18
+
#define CHECK(msg, cond) do { \
19
+
if (cond) { pass++; } \
20
+
else { fail++; fprintf(stderr, " FAIL: %s\n", msg); } \
21
+
} while(0)
22
+
23
+
int main(void) {
24
+
int failures = 0;
25
+
26
+
/* MbrPartition (16 bytes) */
27
+
{
28
+
int pass = 0, fail = 0;
29
+
uint8_t buf[16];
30
+
uint64_t r;
31
+
MbrPartitionFields ctx = {0};
32
+
33
+
memset(buf, 0, 16);
34
+
r = MbrPartitionValidateMbrPartition((WIRECTX *) &ctx, NULL, counting_error_handler, buf, 16, 0);
35
+
if (!EverParseIsSuccess(r) || r != 16) {
36
+
fprintf(stderr,
37
+
"FATAL: MbrPartition wire_size mismatch -- codec declared 16 bytes, "
38
+
"EverParse validator returned %llu. Fix the OCaml codec's "
39
+
"wire_size or the .3d projection.\n",
40
+
(unsigned long long) r);
41
+
return 2;
42
+
}
43
+
CHECK("zero buffer validates", EverParseIsSuccess(r));
44
+
CHECK("position advanced to 16", r == 16);
45
+
46
+
r = MbrPartitionValidateMbrPartition((WIRECTX *) &ctx, NULL, counting_error_handler, buf, 32, 0);
47
+
CHECK("larger buffer validates", EverParseIsSuccess(r));
48
+
CHECK("position is 16 not 32", r == 16);
49
+
50
+
for (uint64_t len = 0; len < 16; len++) {
51
+
error_count = 0;
52
+
r = MbrPartitionValidateMbrPartition((WIRECTX *) &ctx, NULL, counting_error_handler, buf, len, 0);
53
+
CHECK("truncated to len fails", EverParseIsError(r));
54
+
}
55
+
56
+
r = MbrPartitionValidateMbrPartition((WIRECTX *) &ctx, NULL, counting_error_handler, buf, 0, 0);
57
+
CHECK("empty input fails", EverParseIsError(r));
58
+
59
+
srand(42);
60
+
for (int i = 0; i < 1000; i++) {
61
+
for (int j = 0; j < 16; j++)
62
+
buf[j] = (uint8_t)(rand() & 0xff);
63
+
r = MbrPartitionValidateMbrPartition((WIRECTX *) &ctx, NULL, counting_error_handler, buf, 16, 0);
64
+
CHECK("random buffer validates", EverParseIsSuccess(r));
65
+
CHECK("random position correct", r == 16);
66
+
}
67
+
68
+
(void) ctx;
69
+
printf("mbrpartition: %d passed, %d failed\n", pass, fail);
70
+
failures += fail;
71
+
}
72
+
73
+
if (failures == 0)
74
+
printf("All tests passed.\n");
75
+
else
76
+
printf("%d test(s) failed.\n", failures);
77
+
return failures ? 1 : 0;
78
+
}