mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-18 09:39:47 +00:00
057a18573a
Implements the new `module` header syntax as described in "module and package changes" [1]: ``` module [Request, Response, req] ``` The old syntax should still work fine, and is automatically upgraded to the new one when running `roc format`. [1] https://docs.google.com/document/d/1E_77fO-44BtoBtXoVeWyGh1xN2KRTWTu8q6i25RNNx0/edit
116 lines
3.5 KiB
Text
116 lines
3.5 KiB
Text
module [
|
|
Encoder,
|
|
Encoding,
|
|
toEncoder,
|
|
EncoderFormatting,
|
|
u8,
|
|
u16,
|
|
u32,
|
|
u64,
|
|
u128,
|
|
i8,
|
|
i16,
|
|
i32,
|
|
i64,
|
|
i128,
|
|
f32,
|
|
f64,
|
|
dec,
|
|
bool,
|
|
string,
|
|
list,
|
|
record,
|
|
tag,
|
|
tuple,
|
|
custom,
|
|
appendWith,
|
|
append,
|
|
toBytes,
|
|
]
|
|
|
|
import Num exposing [
|
|
U8,
|
|
U16,
|
|
U32,
|
|
U64,
|
|
U128,
|
|
I8,
|
|
I16,
|
|
I32,
|
|
I64,
|
|
I128,
|
|
F32,
|
|
F64,
|
|
Dec,
|
|
]
|
|
import Bool exposing [Bool]
|
|
|
|
Encoder fmt := List U8, fmt -> List U8 where fmt implements EncoderFormatting
|
|
|
|
Encoding implements
|
|
toEncoder : val -> Encoder fmt where val implements Encoding, fmt implements EncoderFormatting
|
|
|
|
EncoderFormatting implements
|
|
u8 : U8 -> Encoder fmt where fmt implements EncoderFormatting
|
|
u16 : U16 -> Encoder fmt where fmt implements EncoderFormatting
|
|
u32 : U32 -> Encoder fmt where fmt implements EncoderFormatting
|
|
u64 : U64 -> Encoder fmt where fmt implements EncoderFormatting
|
|
u128 : U128 -> Encoder fmt where fmt implements EncoderFormatting
|
|
i8 : I8 -> Encoder fmt where fmt implements EncoderFormatting
|
|
i16 : I16 -> Encoder fmt where fmt implements EncoderFormatting
|
|
i32 : I32 -> Encoder fmt where fmt implements EncoderFormatting
|
|
i64 : I64 -> Encoder fmt where fmt implements EncoderFormatting
|
|
i128 : I128 -> Encoder fmt where fmt implements EncoderFormatting
|
|
f32 : F32 -> Encoder fmt where fmt implements EncoderFormatting
|
|
f64 : F64 -> Encoder fmt where fmt implements EncoderFormatting
|
|
dec : Dec -> Encoder fmt where fmt implements EncoderFormatting
|
|
bool : Bool -> Encoder fmt where fmt implements EncoderFormatting
|
|
string : Str -> Encoder fmt where fmt implements EncoderFormatting
|
|
list : List elem, (elem -> Encoder fmt) -> Encoder fmt where fmt implements EncoderFormatting
|
|
record : List { key : Str, value : Encoder fmt } -> Encoder fmt where fmt implements EncoderFormatting
|
|
tuple : List (Encoder fmt) -> Encoder fmt where fmt implements EncoderFormatting
|
|
tag : Str, List (Encoder fmt) -> Encoder fmt where fmt implements EncoderFormatting
|
|
|
|
## Creates a custom encoder from a given function.
|
|
##
|
|
## ```roc
|
|
## expect
|
|
## # Appends the byte 42
|
|
## customEncoder = Encode.custom (\bytes, _fmt -> List.append bytes 42)
|
|
##
|
|
## actual = Encode.appendWith [] customEncoder Core.json
|
|
## expected = [42] # Expected result is a list with a single byte, 42
|
|
##
|
|
## actual == expected
|
|
## ```
|
|
custom : (List U8, fmt -> List U8) -> Encoder fmt where fmt implements EncoderFormatting
|
|
custom = \encoder -> @Encoder encoder
|
|
|
|
appendWith : List U8, Encoder fmt, fmt -> List U8 where fmt implements EncoderFormatting
|
|
appendWith = \lst, @Encoder doEncoding, fmt -> doEncoding lst fmt
|
|
|
|
## Appends the encoded representation of a value to an existing list of bytes.
|
|
##
|
|
## ```roc
|
|
## expect
|
|
## actual = Encode.append [] { foo: 43 } Core.json
|
|
## expected = Str.toUtf8 """{"foo":43}"""
|
|
##
|
|
## actual == expected
|
|
## ```
|
|
append : List U8, val, fmt -> List U8 where val implements Encoding, fmt implements EncoderFormatting
|
|
append = \lst, val, fmt -> appendWith lst (toEncoder val) fmt
|
|
|
|
## Encodes a value to a list of bytes (`List U8`) according to the specified format.
|
|
##
|
|
## ```roc
|
|
## expect
|
|
## fooRec = { foo: 42 }
|
|
##
|
|
## actual = Encode.toBytes fooRec Core.json
|
|
## expected = Str.toUtf8 """{"foo":42}"""
|
|
##
|
|
## actual == expected
|
|
## ```
|
|
toBytes : val, fmt -> List U8 where val implements Encoding, fmt implements EncoderFormatting
|
|
toBytes = \val, fmt -> appendWith [] (toEncoder val) fmt
|