JSON parsing and composing library

VAR
END_VAR
IsGet
CASE _ValueType OF
JSONVALUETYPE.json_null:
	AsString:= 'null';
JSONVALUETYPE.json_boolean:
	IF THIS^.Boolean THEN
		AsString:= 'true';
	ELSE
		AsString:= 'false';
	END_IF
JSONVALUETYPE.json_number:
	AsString:= REAL_TO_STRING_X(THIS^.Number);
JSONVALUETYPE.json_integer:
	AsString:= DINT_TO_STRING(THIS^.Integer);
JSONVALUETYPE.json_string:
	AsString:= THIS^.CharString;
END_CASE