#!/usr/bin/env julia
#
# @license Apache-2.0
#
# Copyright (c) 2018 The Stdlib Authors.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

import JSON

"""
    gen( x, name )

Generate fixture data and write to file.

# Arguments

* `x`: domain
* `name::AbstractString`: output filename

# Examples

``` julia
julia> x = linspace( -1000, 1000, 2001 );
julia> gen( x, \"data.json\" );
```
"""
function gen( x, name )
	y = Array( Float64, length( x ) );
	for i in eachindex(x)
		y[i] = cbrt( x[i] );
	end

	# Store data to be written to file as a collection:
	data = Dict([
		("x", x),
		("expected", y)
	]);

	# Based on the script directory, create an output filepath:
	filepath = joinpath( dir, name );

	# Write the data to the output filepath as JSON:
	outfile = open( filepath, "w" );
	write( outfile, JSON.json(data) );
	close( outfile );
end

# Get the filename:
file = @__FILE__;

# Extract the directory in which this file resides:
dir = dirname( file );

# Subnormal values:
x = linspace( 1e-309, 1e-324, 503 );
gen( x, "subnormal.json" );

# Negative tiny values:
x = linspace( -1e-300, -1e-308, 503 );
gen( x, "tiny_negative.json" );

# Positive tiny values:
x = linspace( 1e-300, 1e-308, 503 );
gen( x, "tiny_positive.json" );

# Small(er) values:
x = linspace( -0.8, 0.8, 503 );
gen( x, "smaller.json" );

# Negative small values:
x = linspace( -0.8, -3.0, 503 );
gen( x, "small_negative.json" );

# Positive small values:
x = linspace( 0.8, 3.0, 503 );
gen( x, "small_positive.json" );

# Negative medium values:
x = linspace( -3.0, -20.0, 503 );
gen( x, "medium_negative.json" );

# Positive medium values:
x = linspace( 3.0, 20.0, 503 );
gen( x, "medium_positive.json" );

# Large negative values:
x = linspace( -50, -20, 503 );
gen( x, "large_negative.json" );

# Large positive values:
x = linspace( 20, 50, 503 );
gen( x, "large_positive.json" );

# Very large negative values:
x = linspace( -50, -500, 503 );
gen( x, "very_large_negative.json" );

# Very large positive values:
x = linspace( 50, 500, 503 );
gen( x, "very_large_positive.json" );

# Huge negative values:
x = linspace( -1e200, -1e208, 503 );
gen( x, "huge_negative.json" );

# Huge positive values:
x = linspace( 1e300, 1e308, 503 );
gen( x, "huge_positive.json" );
