VSS.JSON.Content_Handlers

Entities

Interface Types

Access Types

Subprograms

Description

This package declares interface type to be used as abstract interface to process JSON streams in callback style API.

Boolean_Value

procedure Boolean_Value
  (Self  : in out JSON_Content_Handler'Class;
   Value : Boolean)
Parameters
Self
Value

Boolean_Value

procedure Boolean_Value
  (Self    : in out JSON_Content_Handler;
   Value   : Boolean;
   Success : in out Boolean)
Parameters
Self
Value
Success

End_Array

procedure End_Array (Self : in out JSON_Content_Handler'Class)
Parameters
Self

End_Array

procedure End_Array
  (Self : in out JSON_Content_Handler; Success : in out Boolean)
Parameters
Self
Success

End_Document

procedure End_Document (Self : in out JSON_Content_Handler'Class)
Parameters
Self

End_Document

procedure End_Document
  (Self : in out JSON_Content_Handler; Success : in out Boolean)

Called when processing of JSON document has need finished with any reason (document processed completely, document is invalid, processing is terminated by application). No other subprograms will be called before new call of Start_Document.

Parameters
Self
Success

End_Object

procedure End_Object (Self : in out JSON_Content_Handler'Class)
Parameters
Self

End_Object

procedure End_Object
  (Self : in out JSON_Content_Handler; Success : in out Boolean)
Parameters
Self
Success

Error_Message

function Error_Message
  (Self : JSON_Content_Handler) return VSS.Strings.Virtual_String

Return diagnosis message for error detected by handler. Usually called by the reader to get diagnosis and provide it for higher level component.

Parameters
Self
Return Value

Float_Value

procedure Float_Value
  (Self  : in out JSON_Content_Handler'Class;
   Value : Interfaces.IEEE_Float_64)
Parameters
Self
Value

Float_Value

procedure Float_Value
  (Self    : in out JSON_Content_Handler'Class;
   Value   : Interfaces.IEEE_Float_64;
   Success : in out Boolean)
Parameters
Self
Value
Success

Integer_Value

procedure Integer_Value
  (Self  : in out JSON_Content_Handler'Class;
   Value : Interfaces.Integer_64)
Parameters
Self
Value

Integer_Value

procedure Integer_Value
  (Self    : in out JSON_Content_Handler'Class;
   Value   : Interfaces.Integer_64;
   Success : in out Boolean)
Parameters
Self
Value
Success

JSON_Content_Handler

type JSON_Content_Handler is limited interface;

JSON_Content_Handler_Access

type JSON_Content_Handler_Access is access all JSON_Content_Handler'Class;

Key_Name

procedure Key_Name
  (Self : in out JSON_Content_Handler'Class;
   Name : VSS.Strings.Virtual_String'Class)
Parameters
Self
Name

Key_Name

procedure Key_Name
  (Self    : in out JSON_Content_Handler;
   Name    : VSS.Strings.Virtual_String'Class;
   Success : in out Boolean)
Parameters
Self
Name
Success

Null_Value

procedure Null_Value (Self : in out JSON_Content_Handler'Class)
Parameters
Self

Null_Value

procedure Null_Value
  (Self : in out JSON_Content_Handler; Success : in out Boolean)
Parameters
Self
Success

Number_Value

procedure Number_Value
  (Self  : in out JSON_Content_Handler'Class;
   Value : VSS.JSON.JSON_Number)
Parameters
Self
Value

Number_Value

procedure Number_Value
  (Self    : in out JSON_Content_Handler;
   Value   : VSS.JSON.JSON_Number;
   Success : in out Boolean)
Parameters
Self
Value
Success

Start_Array

procedure Start_Array (Self : in out JSON_Content_Handler'Class)
Parameters
Self

Start_Array

procedure Start_Array
  (Self : in out JSON_Content_Handler; Success : in out Boolean)
Parameters
Self
Success

Start_Document

procedure Start_Document (Self : in out JSON_Content_Handler'Class)
Parameters
Self

Start_Document

procedure Start_Document
  (Self : in out JSON_Content_Handler; Success : in out Boolean)

Called when processing of JSON document has been started

Parameters
Self
Success

Start_Object

procedure Start_Object (Self : in out JSON_Content_Handler'Class)
Parameters
Self

Start_Object

procedure Start_Object
  (Self : in out JSON_Content_Handler; Success : in out Boolean)
Parameters
Self
Success

String_Value

procedure String_Value
  (Self  : in out JSON_Content_Handler'Class;
   Value : VSS.Strings.Virtual_String'Class)
Parameters
Self
Value

String_Value

procedure String_Value
  (Self    : in out JSON_Content_Handler;
   Value   : VSS.Strings.Virtual_String'Class;
   Success : in out Boolean)
Parameters
Self
Value
Success