You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

146 lines
3.2 KiB

3 years ago
/*
* Copyright (c) Facebook, Inc. and its affiliates.
*
* This source code is licensed under the MIT license found in the
* LICENSE file in the root directory of this source tree.
*/
#include "../ATDWriter.h"
typedef ATDWriter::BiniouWriter<std::ostream> BiniouWriter;
typedef BiniouWriter::ObjectScope ObjectScope;
typedef BiniouWriter::ArrayScope ArrayScope;
typedef BiniouWriter::VariantScope VariantScope;
typedef BiniouWriter::TupleScope TupleScope;
int main(int argc, char **argv) {
{
BiniouWriter OF(std::cout);
OF.emitInteger(-100000);
}
{
BiniouWriter OF(std::cout);
int64_t min_ocaml = -4611686018427387904;
OF.emitInteger(min_ocaml);
}
{
BiniouWriter OF(std::cout);
int64_t max_ocaml = 4611686018427387903;
OF.emitInteger(max_ocaml);
}
{
BiniouWriter OF(std::cout);
OF.emitString("Hello");
}
{
BiniouWriter OF(std::cout);
OF.emitBoolean(true);
}
{
BiniouWriter OF(std::cout);
ArrayScope Scope(OF, 0);
}
{
BiniouWriter OF(std::cout);
ArrayScope Scope(OF, 3);
OF.emitString("Hello, how are you?");
OF.emitString("I'm well, thank you; and you, how are you?");
OF.emitString("I'm fine, thank you.");
}
{
BiniouWriter OF(std::cout);
ArrayScope Scope(OF, 3);
{
ArrayScope Scope(OF, 1);
{
ArrayScope Scope(OF, 1);
OF.emitInteger(1);
}
}
{
ArrayScope Scope(OF, 2);
{ ArrayScope Scope(OF, 0); }
{
ArrayScope Scope(OF, 2);
OF.emitInteger(2);
OF.emitInteger(3);
}
}
{ ArrayScope Scope(OF, 0); }
}
{
BiniouWriter OF(std::cout);
ObjectScope Scope(OF, 12); // 12 is larger than the actual size on purpose
OF.emitTag("string");
OF.emitString("Hello");
OF.emitTag("boolean");
OF.emitBoolean(true);
OF.emitTag("integer");
OF.emitInteger(100000);
}
{
BiniouWriter OF(std::cout);
ObjectScope Scope(OF, 2);
OF.emitTag("integer");
OF.emitInteger(100000);
OF.emitTag("array");
{
ArrayScope Scope(OF, 2);
OF.emitInteger(1);
OF.emitInteger(2);
}
}
{
BiniouWriter OF(std::cout);
ObjectScope Scope(OF, 2);
OF.emitTag("string");
OF.emitString("multiply");
OF.emitTag("array");
{
ArrayScope Scope(OF, 2);
{
ObjectScope Scope(OF, 1);
OF.emitTag("integer");
OF.emitInteger(32);
}
{
ObjectScope Scope(OF, 2);
OF.emitTag("integer");
OF.emitInteger(52);
}
}
}
{
BiniouWriter OF(std::cout);
TupleScope Scope(OF, 2);
OF.emitSimpleVariant("zero");
{
VariantScope Scope(OF, "succ");
{
VariantScope Scope(OF, "pred");
OF.emitSimpleVariant("zero");
}
}
}
{
BiniouWriter OF(std::cout);
TupleScope Scope(OF, 2);
OF.emitSimpleVariant("zero");
{
VariantScope Scope(OF, "succ");
{
VariantScope Scope(OF, "pred");
{
VariantScope Scope(OF, "eval");
{
TupleScope Scope(OF, 2);
OF.emitString("f");
OF.emitString("\"3\t4\n\"");
}
}
}
}
}
return 0;
}