b2-storage-api. ( json -- )

Vocabulary

backblaze

Inputs

json

an object

Outputs

None

Definition

USING: assocs combinators formatting io sequences sorting ;

IN: backblaze

: b2-storage-api. ( json -- )
    {
        [ "infoType" of "infoType: %s" sprintf 2bl print ]
        [ "apiUrl" of "apiUrl: %s" sprintf 2bl print ]
        [ "bucketId" of "bucketId: %s" sprintf 2bl print ]
        [ "bucketName" of "bucketName: %s" sprintf 2bl print ]
        [ "namePrefix" of "namePrefix: %s" sprintf 2bl print ]
        [ "downloadUrl" of "downloadUrl: %s" sprintf 2bl print ]
        [ "s3ApiUrl" of "s3ApiUrl: %s" sprintf 2bl print ]
        [
            "absoluteMinimumPartSize" of
            "absoluteMinimumPartSize: %d" sprintf 2bl print
        ]
        [
            "recommendedPartSize" of
            "recommendedPartSize: %d" sprintf 2bl print
        ]
        [
            "capabilities" of "capabilities:" 2bl print sort
            [ 2bl 2bl print ] each
        ]
    } cleave ;