xev/Src/JSon/Mod/ObxNoModel.cp

MODULE JSonObxNoModel;

(**

	project	= "YSon"

	organization	= ""

	contributors	= ""

	version	= "System/Rsrc/About"

	copyright	= "Kushnir Piotr Michailovich"

	license	= "Docu/BB-License"

	purpose	= "демонстрация работы форматтера  без использования динамических моделей данных"

	changes	= "

	- 20130527, pk, автогенерация заголовка, документирование

	- 20150204, pk, порт для fw

"

	issues	= ""

**)





	IMPORT 

		Gen:=JSonGenerator, F:=JSonFormatter,

		Out;

	

	TYPE

		Wr = POINTER TO RECORD (Gen.Writer) END; (* дефолтный вывод - в лог *)

		

	PROCEDURE (w: Wr) Char (c: CHAR);

	BEGIN

		Out.Char(c);

	END Char;

	

	PROCEDURE (w: Wr) Whitespace (s: ARRAY OF CHAR);

	BEGIN

		CASE s[0] OF

		09X: Out.Tab;

		|0DX, 0AX: Out.Ln;

		|' ': Out.Char(' ');

		ELSE Out.String(s$) END

	END Whitespace;



	(* формирование структуры JSON непосредственно при выполнении комманд форматтера *)

	PROCEDURE Do*;

		TYPE Base = POINTER TO RECORD END;

		VAR b: Base; wr: Wr; f: F.Formatter; res: INTEGER;

	BEGIN

		Out.Ln;

		NEW(wr); 

		NEW(b);

		wr.SetBase(b);

		f:=F.dir.New(wr);

(* демонстрация пошагового результата *)

		f.WriteSym(F.arrBegin, res);	(* [ *)

		f.WriteSym(F.objBegin, res);		(* { *)

		f.WriteName('obj', res);			(* "obj" *)

		f.WriteSym(F.objBegin, res);			(* { *)

		f.WriteSym(F.objEnd, res);			(* } *)

		f.WriteName('arr', res);			(* "arr" *)

		f.WriteSym(F.arrBegin, res);				(* [ *)

		f.WriteValue(F.atomVal, 'true', res);					(* true *)

		f.WriteValue(F.atomVal, 'true', res);					(* true *)

		f.WriteValue(F.atomVal, 'true', res);					(* true *)

		f.WriteSym(F.objBegin, res);					(* { *)

		f.WriteSym(F.objEnd, res);					(* } *)

		f.WriteSym(F.arrBegin, res);					(* [ *)

		f.WriteSym(F.arrEnd, res);					(* ] *)

		f.WriteSym(F.arrEnd, res);				(* ] *)

		f.WriteName('sss', res);			(* "sss" *)

		f.WriteValue(F.atomVal, 'true', res);			(* true *)

		f.WriteName('sss1', res);			(* "sss1" *)

		f.WriteValue(F.stringVal, 'hello, world!', res);			(* "hello, world!" *)

		f.WriteSym(F.objEnd, res);		(* } *)

		f.WriteSym(F.arrEnd, res);	(* ] *)

	END Do;

	

BEGIN



END JSonObxNoModel.



(*JediPlain*gvFEZXZDb21tYW5kZXJzLlN0ZFZpZXdEZXNjAPFEZXZDb21tYW5kZXJzLlZpZXdEZXNjAPFWaWV3cy5WaWV3RGVzYwDwU3RvcmVzLlN0b3JlRGVzYwAAAAAAAAAAAAAAAAAGAAAAAAAAFQAA*)YSonObxNoModel.Do