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
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;
|
||
|
}
|