json.Assign

// json.Assign ( _json )
// Purpose:		Assigns JSON keys to local variables with given values.
// Parameters:		_json:	The JSON to parse
// Version:		1.0 - Charles Ross - 17-05-11
// Example:		Let (
//				  _ = json.assign ( JSONSetElement ( "" ; "foo" ; "bar" ; JSONString ) ) ;
//				  $foo = "bar"
//				)

Case (
  ValueCount ( JSONListKeys ( _json ; "" )  ) = 0 ;
  "" ;

  Let (
    [
      _keys = JSONListKeys ( _json ; "" ) ;
      _key = GetValue ( _keys ; 1 ) ;
      _value = JSONGetElement ( _json ; _key ) ;
      _json = JSONDeleteElement ( _json ; _key ) ;

      _calc = "Let ( $" & _key & " = " & Quote ( _value ) & " ; \"\" )" ;
      _ = Evaluate ( _calc )
    ] ;

    json.Assign ( _json )
  )
)