ldmc/morphisms/length_prefix.morphism-base

```
#include <stdio.h>
#include <array/length-prefix.h>
```

morph_array_as_valterm_to_lenpfx (Terminator:native.UInt8)
    <Seq~<ValueTerminated Terminator> native.UInt8>
--> <Seq~<LengthPrefix native.UInt64> native.UInt8>
```
    length_prefix_uint64_t_array_uint8_t_clear(dst);
    while( *src != Terminator )
        length_prefix_uint64_t_array_uint8_t_push(dst, *src++);

    return 0;
```


morph_array_as_lenpfx_to_valterm (Terminator:native.UInt8)
    <Seq~<LengthPrefix native.UInt64> native.UInt8>
--> <Seq~<ValueTerminated Terminator> native.UInt8>
```
    for( uint64_t i = 0; i < src->len; ++i )
        *dst++ = src->items[i];

    *dst = Terminator;

    return 0;
```

morph_array_as_lenpfx_to_continuation_bit (T:Type)
    <Seq~<LengthPrefix native.UInt64> T>
--> <Seq~MsbCont T>
```
    for( uint64_t i = 0; i < src->len; ++i ) {
        const size_t n_bits = 8*sizeof(T);
        if( src->items[i] & (1<<(n_bits-1)) ) {
            fprintf(stderr, "error: value to high for MsbContinuation\n");
            return -1;
        }

        dst[i] = src->items[i];
        if( i+1 < src->len )
            dst[i] |= (1<<(n_bits-1));
    }

    return 0;
```