ada-toml is a pure Ada library for parsing and creating TOML documents. It conforms to the
version 1.0.0 of the format standard.
With an Ada 2012 compiler and GPRbuild, building and installing the library is as simple as running:
$ make
$ sudo make installIf you don't want to install in /usr, you can replace the last command
with:
$ sudo make install prefix=/where/to/installNote that the Makefile is just a wrapper around gprbuild and
gprinstall to make it easy for users and packagers. You can also run them
manually:
gprbuild -Pada_toml.gpr -pThis will build in debug mode and produce a static library. In order to build
in production mode, add -XBUILD_MODE=prod, and to build a dynamic library,
add -XLIBRARY_TYPE=static.
Installation to $PREFIX is simply done using GPRinstall:
gprinstall -Pada_toml.gpr --prefix=$PREFIXSee TESTING.rst to run the testsuite.
All basic types and subprograms are in the TOML package. All "nodes" in a
TOML documents are materialized using the TOML.TOML_Value type. Since TOML
values make up a tree, this type has reference semantics. This means that
modifying a TOML node does not modify the corresponding TOML_Value value
itself, but rather the TOML value that is referenced.
Parsing a TOML file is as easy as using the TOML.File_IO.Load_File function:
declare
Result : constant TOML.Read_Result :=
TOML.File_IO.Load_File ("config.toml");
begin
if Result.Success then
Ada.Text_IO.Put_Line ("config.toml loaded with success!");
else
Ada.Text_IO.Put_Line ("error while loading config.toml:");
Ada.Text_IO.Put_Line
(Ada.Strings.Unbounded.To_String (Result.Message));
end if;
end;Each TOML value has kind, defining which data it contains (a boolean, an integer, a string, a table, ...). To each kind, one or several primitives are associated to let one process the underlying data:
case Result.Kind is
when TOML.TOML_Boolean =>
Ada.Text_IO.Put_Line ("Boolean: " & Result.As_Boolean'Image);
when TOML.TOML_Integer =>
Ada.Text_IO.Put_Line ("Boolean: " & Result.As_Integer'Image);
when TOML.TOML_String =>
Ada.Text_IO.Put_Line ("Boolean: " & Result.As_String);
when TOML.TOML_Array =>
Ada.Text_IO.Put_Line ("Array of " & Result.Length & " elements");
when others =>
null;
end case;There are also primitives to build TOML values:
declare
Bool : constant TOML.TOML_Value := TOML.Create_Boolean (False);
Int : constant TOML.TOML_Value := TOML.Create_Integer (10);
Str : constant TOML.TOML_Value := TOML.Create_String ("Hello, world");
Table : constant TOML.TOML_Value := TOML.Create_Table;
begin
Table.Set ("bool_field", Bool);
Table.Set ("int_field", Int);
Table.Set ("str_field", Str);
end;And finally one can turn a tree of TOML nodes back in text form:
Ada.Text_IO.Put_Line ("TOML document:");
Ada.Text_IO.Put_Line (Table.Dump_As_String);The development of ada-toml happens on GitHub. Everyone is welcome to contribute
to this project: please read our contribution rules if you
consider doing so.