File: normal_json.adb

package info (click to toggle)
polyorb 2.11~20140418-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 30,012 kB
  • ctags: 465
  • sloc: ada: 273,015; sh: 4,507; makefile: 4,265; python: 1,332; cpp: 1,213; java: 507; ansic: 274; xml: 30; perl: 23; exp: 6
file content (13 lines) | stat: -rw-r--r-- 400 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
package body Normal_JSON is
   function Wrap (J : GNATCOLL.JSON.JSON_Value) return RT_JSON.JSON_Wrapper is
   begin
      return RT_JSON.JSON_Wrapper'
        (H => new JSON_Holder'(RT_JSON.JSON_Holder with Value => J));
   end Wrap;

   function Unwrap (W : RT_JSON.JSON_Wrapper) return GNATCOLL.JSON.JSON_Value is
   begin
      return JSON_Holder (W.H.all).Value;
   end Unwrap;

end Normal_JSON;