# $Source: /u/maple/research/lib/DEtools/src/RCS/integrate_sols,v $
# $Notify: mvanhoei@daisy.uwaterloo.ca $


# The purpose of this file is to do the type checking and conversions
# for the file DEtools/diffop/integrate_sols

macro(
	x=`DEtools/diffop/x`,
	DF=`DEtools/diffop/DF`,

	to_diffop=`DEtools/diffop/to_diffop`,
	to_eqn=`DEtools/diffop/to_eqn`,

	integrate_sols=`DEtools/diffop/integrate_sols`
):

# Both for operator and equation syntax.
`DEtools/integrate_sols`:=proc(f,domain)
local v;
	option `Copyright (c) 1997 Waterloo Maple Inc. All rights reserved. Author: M. van Hoeij`;
	v:=traperror(to_diffop(f,args[2..nargs]));
	if v=lasterror then
		error v
	fi;
	to_eqn(integrate_sols(v),args[2..nargs])
end:

#savelib('`DEtools/integrate_sols`'):