parser3/tests/253.html - diff

Return to 253.html CVS log

Up to [parser3project] / parser3 / tests

version 1.1, 2010/08/31 21:51:56	version 1.3, 2010/09/24 22:56:35
Line 1	Line 1
@main[]	@main[]

$f[^file::load[text;253_json.txt]]	$f[^file::load[text;253_json.txt; $.charset[windows-1251]]]
	$s[^taint[as-is][$f.text]]

$o[^json:parse[^taint[as-is][$f.text]][ $.double(false) ]]	^try_catch{$o[^json:parse[$s]]}

	$o[^json:parse[$s][ $.distinct[first] ]]
^print[$o]	^print[$o]

$o[^json:parse[^taint[as-is][$f.text]][ $.object[$hook] ]]	$o[^json:parse[$s][ $.double(false) $.distinct[last] ]]
^print[$o]	^print[$o]

@print[hash]	$o[^json:parse[$s][ $.object[$hook] $.distinct[all] ]]
^hash.foreach[k;v]{	^print[$o]
$k = ^if($v is 'hash'){{^print[$v]
}}{	@try_catch[code]
$v.CLASS_NAME ^if($v is 'bool'){ ^if($v){true}{false} }($v is 'class1' \|\| $v is 'class2'){^v.print[]}{$v}	^try{
}	$code
	}{
	$exception.handled(true)
	$exception.source
	$exception.comment
}	}

	@print[hash]
	^json:string[$hash; $.indent(1)]

@hook[key;value]	@hook[key;value]
$result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]	$result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]

Line 23 $result[^if(def $value.type){^reflection	Line 33 $result[^if(def $value.type){^reflection
class1	class1

@create[h]	@create[h]
$value[$h.value]	$value[class1 $h.value]

@print[]
value "$value"

@CLASS	@CLASS
class2	class2

@create[h]	@create[h]
$value[$h.value]	$value[class2 $h.value]

@print[]
value "$value"

E-mail: