procedure rjtools ()

string	version	= "RJTOOLS_2.16"	{prompt="RJTOOLS/IRAF version"}
bool	ok	= no			{prompt="RJTOOLS tasks defined?"}

# @(#) task  rjtools                    Author: R.A. Jansen -- Jul 23 2018
# @(#)
# @(#) task to individually define each task in my original external pack-
# @(#) age 'rjtools'(v2.12)'.  How packages are defined and loaded in IRAF
# @(#) versions >= 2.14 is completely incomprehensible to me.  There is no
# @(#) legacy support, it appears. This task provides an ugly work-around,
# @(#) minus the 'apropos' help database.

begin
	string	rjdir

	# make sure we only run only once per IRAF login session...
	if (deftask("chkimg")) {
	   ok = yes
	   return
	}
	ok  = no

	# define package root directory...
	rjdir = "/home/raj/iraf/tasks/rjtools_2.12/"

	printf("Loading 'rjtools' tasks... ")
	# Load generic tasks...
	task chkimg	= rjdir//"generic/chkimg.cl"
	task cpadd	= rjdir//"generic/cpadd.cl"
	task cparse	= rjdir//"generic/cparse.cl"
	task creverse	= rjdir//"generic/creverse.cl"
	task gdate	= rjdir//"generic/gdate.cl"
	task icnt	= rjdir//"generic/icnt.cl"
	task iwc	= rjdir//"generic/iwc.cl"
	task rdlist	= rjdir//"generic/rdlist.cl"
	task rpbuild	= rjdir//"generic/rpbuild.cl"
	task rpparse	= rjdir//"generic/rpparse.cl"
	task sysinfo	= rjdir//"generic/sysinfo.cl"
	task vstor	= rjdir//"generic/vstor.cl"

	# Load (non-interactive) imgtools tasks...
	task borderstat = rjdir//"imgtools/borderstat.cl"
	task getsky	= rjdir//"imgtools/getsky.cl"
	task imgstat	= rjdir//"imgtools/imgstat.cl"
	task mkimg	= rjdir//"imgtools/mkimg.cl"
	task mkmosaic	= rjdir//"imgtools/mkmosaic.cl"

	# Load (interactive) display tools...
	task ctrcoo     = rjdir//"tvtools/ctrcoo.cl"
	task getregion	= rjdir//"tvtools/getregion.cl"
	task imregister	= rjdir//"tvtools/imregister.cl"
	task markall	= rjdir//"tvtools/markall.cl"
	task markstds	= rjdir//"tvtools/markstds.cl"
	task tvellips	= rjdir//"tvtools/tvellips.cl"
	task tvmarkall	= rjdir//"tvtools/tvmarkall.cl"
	task xdisplay	= rjdir//"tvtools/xdisplay.cl"

	# Load ESO Hierarchical Header tasks...
	task eso2fits   = rjdir//"esohdrs/eso2fits.cl"

	# Load ASCII table tasks...
	task tcolarit   = rjdir//"asciitab/tcolarit.cl"
	task tcolstat	= rjdir//"asciitab/tcolstat.cl"
	task wstat	= rjdir//"asciitab/wstat.cl"

	# Load obsolete tasks (still used by ascii tables tasks, some others)
	task ocparse	= rjdir//"obsolete/ocparse.cl"

	ok = yes
	keep
	print (" done.")
end