2025-03-15 18:28:57 +01:00
|
|
|
|
```
|
2025-03-15 19:19:20 +01:00
|
|
|
|
#include <stdio.h>
|
2025-03-15 18:28:57 +01:00
|
|
|
|
#include <array/length-prefix.h>
|
|
|
|
|
```
|
|
|
|
|
|
2025-05-16 13:53:19 +02:00
|
|
|
|
morph_array_as_static_to_lenpfx (Len: ℤ, T: Type)
|
|
|
|
|
<Seq~<StaticLength Len> T>
|
|
|
|
|
--> <Seq~<LengthPrefix native.UInt64> T>
|
2025-02-16 17:08:55 +01:00
|
|
|
|
```
|
2025-05-16 13:53:19 +02:00
|
|
|
|
PRESCAN_LENGTH_PREFIX_CALL(nativeUInt64, T, clear)( dst );
|
|
|
|
|
for( nativeUInt64 i = 0; i < Len; ++i )
|
|
|
|
|
PRESCAN_LENGTH_PREFIX_CALL(nativeUInt64, T, push)( dst, src->items[i] );
|
2025-02-16 17:08:55 +01:00
|
|
|
|
```
|
|
|
|
|
|
2025-05-16 13:53:19 +02:00
|
|
|
|
morph_array_as_lenpfx_to_static (Len: ℤ, T: Type)
|
|
|
|
|
<Seq~<LengthPrefix native.UInt64> T>
|
|
|
|
|
--> <Seq~<StaticLength Len> T>
|
|
|
|
|
```
|
|
|
|
|
nativeUInt64 i;
|
|
|
|
|
for( i = 0; i < Len && i < src->len; ++i )
|
|
|
|
|
dst->items[i] = src->items[i];
|
|
|
|
|
|
|
|
|
|
if( i < Len )
|
|
|
|
|
memset( &dst[i], 0, (Len-i) * sizeof(T) );
|
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
morph_array_as_valterm_to_lenpfx (T: Type, Terminator:T)
|
|
|
|
|
<Seq~<ValueTerminated Terminator> T>
|
|
|
|
|
--> <Seq~<LengthPrefix native.UInt64> T>
|
|
|
|
|
```
|
|
|
|
|
PRESCAN_LENGTH_PREFIX_CALL(nativeUInt64, T, push)( dst );
|
|
|
|
|
while( *src != Terminator )
|
|
|
|
|
PRESCAN_LENGTH_PREFIX_CALL(nativeUInt64, T, push)( dst, *src++ );
|
|
|
|
|
```
|
2025-02-20 05:22:28 +01:00
|
|
|
|
|
2025-05-16 13:51:45 +02:00
|
|
|
|
morph_array_as_lenpfx_to_valterm (T: Type, Terminator: T)
|
|
|
|
|
<Seq~<LengthPrefix native.UInt64> T>
|
|
|
|
|
--> <Seq~<ValueTerminated Terminator> T>
|
2025-02-20 05:22:28 +01:00
|
|
|
|
```
|
|
|
|
|
for( uint64_t i = 0; i < src->len; ++i )
|
|
|
|
|
*dst++ = src->items[i];
|
|
|
|
|
|
|
|
|
|
*dst = Terminator;
|
|
|
|
|
```
|
|
|
|
|
|
2025-03-20 19:49:03 +01:00
|
|
|
|
morph_array_as_lenpfx_to_continuation_bit (T:Type)
|
|
|
|
|
<Seq~<LengthPrefix native.UInt64> T>
|
|
|
|
|
--> <Seq~MsbCont T>
|
2025-02-20 05:22:28 +01:00
|
|
|
|
```
|
|
|
|
|
for( uint64_t i = 0; i < src->len; ++i ) {
|
2025-03-20 19:49:03 +01:00
|
|
|
|
const size_t n_bits = 8*sizeof(T);
|
2025-05-10 17:53:31 +02:00
|
|
|
|
if( src->items[i] & ((uint64_t)1<<(n_bits-1)) ) {
|
|
|
|
|
fprintf(stderr, "error: value has MSB set, while being used in MsbContinuation sequence!\n");
|
2025-02-20 05:22:28 +01:00
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
dst[i] = src->items[i];
|
|
|
|
|
if( i+1 < src->len )
|
2025-05-10 17:53:31 +02:00
|
|
|
|
dst[i] |= ((uint64_t)1<<(n_bits-1));
|
2025-02-16 17:08:55 +01:00
|
|
|
|
}
|
|
|
|
|
```
|