mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
8630a90f08
Allow partition location to be specified as a relative directory and resolved at run time relative to the location of the starter. This allows the starter and partition binaries to be moved around. RA26-001
17 lines
373 B
Ada
17 lines
373 B
Ada
with Ada.Text_IO; use Ada.Text_IO;
|
|
with GNATCOLL.JSON; use GNATCOLL.JSON;
|
|
with Normal_JSON; use Normal_JSON;
|
|
|
|
with RCI;
|
|
|
|
procedure Cli is
|
|
J1 : JSON_Value := Create_Object;
|
|
J2 : JSON_Value;
|
|
begin
|
|
J1.Set_Field ("data", Create (Integer'(123)));
|
|
Put_Line ("J1 = " & Write (J1));
|
|
|
|
J2 := Unwrap (RCI.Frob (Wrap (J1)));
|
|
Put_Line ("J2 = " & Write (J2));
|
|
end Cli;
|