syntaxAlchemist/ldmc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

morphism base: remove syntax sugar for Seq for now

Browse source
This commit is contained in:
Michael Sippel 2025-02-03 17:52:36 +01:00
parent 8e0ac3cbbc
commit e544b82a4c
Signed by: senvas
GPG key ID: F96CF119C34B64A6
2 changed files with 10 additions and 10 deletions

8
morphisms/morphism-base/length_prefix.morphism-base
View file

@ -1,9 +1,9 @@
morph_string_as_nullterm_to_length_prefix ()
[~<ValueDelim '\0'> Char ~ Ascii]
--> [~<LengthPrefix x86.UInt64> Char ~ Ascii]
<Seq~<ValueDelim '\0'> Char ~ Ascii ~ Byte>
--> <Seq~<LengthPrefix x86.UInt64> Char ~ Ascii ~ Byte>
@lib/libmorph_length-prefix.so:src/length_prefix.c
morph_string_as_length_prefix_to_nullterm ()
[~<LengthPrefix x86.UInt64> Char ~ Ascii]
--> [~<ValueDelim '\0'> Char ~ Ascii]
<Seq~<LengthPrefix x86.UInt64> Char ~ Ascii ~ Byte>
--> <Seq~<ValueDelim '\0'> Char ~ Ascii ~ Byte>
@lib/libmorph_length-prefix.so:src/length_prefix.c

12
morphisms/morphism-base/posint.morphism-base
View file

@ -11,26 +11,26 @@ morph_digit_as_uint8_to_char (Radix:ℤ_16)
morph_posint_radix (SrcRadix:ℤ, DstRadix:ℤ)
ℕ
~ <PosInt SrcRadix LittleEndian>
~ [~<LengthPrefix x86.UInt64> <Digit SrcRadix>~x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit SrcRadix>~x86.UInt64>
--> ℕ
~ <PosInt DstRadix LittleEndian>
~ [~<LengthPrefix x86.UInt64> <Digit DstRadix>~x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit DstRadix>~x86.UInt64>
@lib/libmorph-posint.so:src/posint.c
morph_posint_endianness (Radix:ℤ)
ℕ
~ <PosInt Radix LittleEndian>
~ [~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64>
--> ℕ
~ <PosInt Radix BigEndian>
~ [~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64>
@lib/libmorph-posint.so:src/posint.c
morph_posint_endianness (Radix:ℤ)
ℕ
~ <PosInt Radix BigEndian>
~ [~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64>
--> ℕ
~ <PosInt Radix LittleEndian>
~ [~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64]
~ <Seq~<LengthPrefix x86.UInt64> <Digit Radix> ~ x86.UInt64>
@lib/libmorph-posint.so:src/posint.c