/// Читает json строку
Class json.reader Extends %RegisteredObject {

/// Разбираемая строка
Property json As %String [ Private ];

/// Длина разбираемой строки
Property len As %String [ Private ];

/// Указатель на текущую позицию
Property pos As %Integer [ InitialExpression =  0 , Private ];

/// Тактовый генератор :)
Method Next() As %Boolean {
	s ..pos=..pos+ 1  q:..pos>..len  0 
	Q  1 
}

/// Запускаем чтение. Упс, ограничения строки 32к
Method Read(json As %String) As %Status {
	s ..json=json,..len=$l(json),..pos= 0 
	s obj=""
	while ..Next(){
		s char=$e(..json,..pos)
		if char="{" s obj=..rObject()
	}
	d ..jsonReaded()
	;w !,"read: ",obj
}

/// читаем объект
Method rObject() As %String {
	s obj="{",(prop,value)=""
	d ..objReading()
	while ..Next() {
		s char=$e(..json,..pos) Q:char="}" 
		if char=$C( 34 ) s prop=..rString() 
		if char=":"  s value=..rValue()
		if char="," {
			 d ..propReaded(prop,value)
			 s obj=obj_prop_":"_value_","
			 s (prop,value)=""
		}
 	}
 	d ..propReaded(prop,value)
 	s obj=obj_prop_":"_value_"}"
 	;w !,obj
 	d ..objReaded()
 	Q obj
}

/// читаем массив
Method rArray() As %String {
	s arr=""
	d ..arrReading()
	while ..Next(){
		s char=$e(..json,..pos) Q:char="]"
		if char=$C( 34 ) s arr=arr_..rString()
		if char="{" s arr=arr_..rObject()
		if char="[" s arr=arr_..rArray()
		if char="," s arr=arr_","_..rValue()
	}
	d ..arrReaded()
	Q "["_arr_"]"
}

/// читаем строку
Method rString() As %String {
	s str="",char="",prev=""
	d ..strReading()
	while ..Next(){
		s char=$e(..json,..pos) if prev'="\",char=$C( 34 ) Q
		s str=str_char
		s prev=char
	}
	d ..strReaded()
	Q str
}

/// читаем значение
Method rValue() As %String{
	s value=""
	d ..valReading()
	while ..Next(){
		s char=$e(..json,..pos)
		if char=$C( 34 ) s value=..rString() Q
		if char="{" s value=..rObject() Q
		if char="[" s value=..rArray() Q
	}
	d ..valReaded()
	Q value
}

///Переопределить 
Method jsonReaded(){}
Method objReading(){}
Method objReaded(){}
Method propReaded(prop As %String, value As %String){}
Method arrReading(){}
Method arrReaded(){}
Method valReading(){}
Method valReaded(){}
Method strReading(){}
Method strReaded(){}