Ответ

moko 14.02.2017 14:33 / 14.02.2017 14:33

@main[]

$source[
    $.Command[TestCmd]
    $.UseDev(false)
    $.Strings[^Array::create[
        $.1[
            $.OutStr[
                $.Text[Custom 1]
                $.Field(6)
            ]
        ]
        $.2[
            $.OutStr[
                $.Text[Custom 2]
                $.Field(3)
            ]
        ]
    ]]
]

^json:string[$source; $.Array[$Array:json] ]

@CLASS
Array

@create[hash]
^if($hash is hash){
        ^reflection:copy[$hash;$self]
}

@json[key;value;options][h]
$h[^hash::create[$value]]
[^h.foreach[;v]{^json:string[$v;$options]}[,^#0A]]