# $Source: /u/maple/research/lib/DEtools/diffop/src/RCS/readlibs,v $
# $Notify: hoeij@sci.kun.nl $

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

	DFactor=`DEtools/diffop/DFactor`,
	GCRD=`DEtools/diffop/GCRD`,
	LCLM=`DEtools/diffop/LCLM`,
	SolveMat=`DEtools/diffop/SolveMat`,
	adjoint=`DEtools/diffop/adjoint`,
	compute_modp=`DEtools/diffop/compute_modp`,
	cyclic_vector=`DEtools/diffop/cyclic_vector`,
	eigenring=`DEtools/diffop/eigenring`,
	endomorphism_charpoly=`DEtools/diffop/endomorphism_charpoly`,
	eval_laurent=`DEtools/diffop/eval_laurent`,
	expsols=`DEtools/diffop/expsols`,
	factor_op=`DEtools/diffop/factor_op`,
	formal_sol=`DEtools/diffop/formal_sol`,
	g_ext=`DEtools/diffop/g_ext`,
	gen_exp=`DEtools/diffop/gen_exp`,
	integrate_sols=`DEtools/diffop/integrate_sols`,
	l_p=`DEtools/diffop/l_p`,
	leftdivision=`DEtools/diffop/leftdivision`,
	make_rightfactor=`DEtools/diffop/make_rightfactor`,
	mult=`DEtools/diffop/mult`,
	pade2=`DEtools/diffop/pade2`,
	ratbeke=`DEtools/diffop/ratbeke`,
	rational_solutions=`DEtools/diffop/rational_solutions`,
	rightdivision=`DEtools/diffop/rightdivision`,
	solve_mateqn=`DEtools/diffop/solve_mateqn`,
	solve_matrat=`DEtools/diffop/solve_matrat`,
	subs_local=`DEtools/diffop/subs_local`,
	substitute=`DEtools/diffop/substitute`
):

# Purpose of this procedure: to be able to readlib a file plus all
# files that are used by that file by one short command.

`DEtools/diffop/readlibs`:=proc(F)
options remember, 
    `Copyright (c) 1997 Waterloo Maple Inc. All rights reserved.`;
if nargs>1 then
	procname(F);
	procname(args[2..nargs])
else
	if F=g_ext then
		readlib(`algcurves/g_expand`):
	elif member(F,{factor_op,l_p}) then
		procname(eval_laurent)
	elif F=DFactor then
		# procname(pade2,compute_modp,ratbeke)
		procname(ratbeke)
	elif member(F,{eigenring,gen_exp,formal_sol,ratbeke}) then
		procname(factor_op,l_p)
	else
		procname(g_ext)
	fi;
	readlib(F)
fi;
	NULL
end:

#savelib('`DEtools/diffop/readlibs`','`DEtools/diffop/readlibs.m`'):