note
	description: "Objects that ..."
	author: "Colin LeMahieu"
	date: "$Date: 2011-11-11 18:13:16 +0100 (ven., 11 nov. 2011) $"
	revision: "$Revision: 87787 $"
	quote: "The urge to save humanity is almost always a false front for the urge to rule. - H.L. Mencken"

deferred class
	EC_DOMAIN_PARAMETERS

inherit
	EC_CONSTANTS
	DEBUG_OUTPUT

feature
	curve: EC_CURVE
	g: EC_POINT
	n: INTEGER_X
	h: INTEGER_X

	make_curve_g_n (curve_new: like curve g_new: like g n_new: INTEGER_X)
			-- Construct this domain with no seed and h= 1
		do
			curve := curve_new
			g := g_new
			n := n_new
			h := ONE
		end

	make_curve_g_n_h (curve_new: like curve g_new: like g n_new: INTEGER_X h_new: INTEGER_X)
			-- construct this domain with no seed
		do
			curve := curve_new
			g := g_new
			n := n_new
			h := h_new
		end

feature {DEBUG_OUTPUT} -- {DEBUG_OUTPUT}
	debug_output: STRING
		do
			result := "Curve: " + curve.debug_output + "%Ng: " + g.debug_output + "%Nn: " + n.out_hex + "%Nh: " + h.out_hex
		end
end
