# Coloco em vermelho as mudancas relativos ao login.cl padrão
# Claudia
#
# LOGIN.CL -- User login file for the IRAF command language.

# Identify login.cl version (checked in images.cl).
if (defpar ("logver"))
    logver = "IRAF V2.12.2 January 2004"

set	home		= "/home1/claudiavr/iraf/"
set	imdir		= "HDR$"
set	uparm		= "home$uparm/"
set	userid		= "claudiavr"
# abaixo adicionamos variaveis que apontam para diretorios especificos
# para facilitar a mudanca de diretorios
set	silvia		= "/kappa2/efem/silvia/"	
set	gemini2		= "/gemini2/efem/claudiavr/"
set	aquila		= "/aquila/efem/claudiavr/"
set	alta		= "/altaenergia/efem/claudiavr/"
set	la		= "/altaenergia/efem/claudiavr/hh135/pol_hh/"

# Set the terminal type.
if (envget("TERM") == "xterm") {
    if (!access (".hushiraf"))
	print "setting terminal type to xgterm..."
    stty xgterm
} else {
    if (!access (".hushiraf"))
	print "setting terminal type to xgterm..."
    stty xgterm
}

# Uncomment and edit to change the defaults.
#set	editor		= vi
#set	printer		= lp
#set	pspage		= "letter"
# linha abaixo modifica o device usado para o display das
#imagens e permite a visualizacao de cada pixel em imagens
#de ate 1024x1024
set	stdimage	= imt1024
#set	stdimcur	= stdimage
#set	stdplot		= lw
#set	clobber		= yes
#set	filewait	= yes
#set	cmbuflen	= 512000
#set	min_lenuserarea	= 64000
# configura o IRAF para ter como default imagens
# fits - mudanca indispensavel
set	imtype		= "fits"
#set	imextn		= "oif:imh fxf:fits,fit plf:pl qpf:qp stf:hhh,??h"

# clobber permite escrever em cima de imagens existentes
# XIMTOOL/DISPLAY stuff.  Set node to the name of your workstation to
# enable remote image display.  The trailing "!" is required.
#set	node		= "my_workstation!"

# CL parameters you mighth want to change.
#ehinit   = "nostandout eol noverify"
#epinit   = "standout showall"
showtype = yes


# Load the default CL package.  Doing so here allows us to override package
# paths and load personalized packages from our loginuser.cl. 
clpackage


# Default USER package; extend or modify as you wish.  Note that this can
# be used to call FORTRAN programs from IRAF.

package user

task	$adb $bc $cal $cat $comm $cp $csh $date $dbx $df $diff	= "$foreign"
task	$du $find $finger $ftp $grep $lpq $lprm $ls $mail $make	= "$foreign"
task	$man $mon $mv $nm $od $ps $rcp $rlogin $rsh $ruptime	= "$foreign"
task	$rwho $sh $spell $sps $strings $su $telnet $tip $top	= "$foreign"
task	$vi $emacs $w $wc $less $rusers $sync $pwd $gdb		= "$foreign"

task	$xc $mkpkg $generic $rtar $wtar $buglog			= "$foreign"
#task	$fc = "$xc -h $* -limfort -lsys -lvops -los"
task	$fc = ("$" // envget("iraf") // "unix/hlib/fc.csh" //
	    " -h $* -limfort -lsys -lvops -los")
task	$nbugs = ("$(setenv EDITOR 'buglog -e';" //
	    "less -Cqm +G " // envget ("iraf") // "local/bugs.*)")
task	$cls = "$clear;ls"
task	$clw = "$clear;w"
task	$pg = ("$(less -Cqm $*)")


#
# PCCDPACK
#
reset	pccdpack	= "/home/claudiavr/iraf/pccdpack/"
#	A linha acima funcionará em hidra. Pode nao funcionar em outras máquinas.
task    $pccdpack.pkg   = "pccdpack$pccdpack.cl"
#
#
reset   helpdb          = (envget ("helpdb")// ",/home1/claudiavr/iraf/pccdpack/helpdb.mip")
#
#  TASKS da Claudia
#
set	tasks		= "/home1/claudiavr/iraf/tasks/"
task	acha_zero	= "tasks$acha_zero.cl"
task	coord_poly	= "tasks$coord_poly.cl"
task	cor_for		= "tasks$cor_for.cl"
task	cria_16pos	= "tasks$cria_16pos.cl"
task	cria_dat	= "tasks$cria_dat.cl"
task	cria_outv	= "tasks$cria_outv.cl"
task	cria_bvri	= "tasks$cria_bvri.cl"
task    desl_medio     	= "tasks$desl_medio.cl"
task    diagfase        = "tasks$diagfase.cl"
task	diagfasepol     = "tasks$diagfasepol.cl"
task	disp_var	= "tasks$disp_var.cl"
task	grafv		= "tasks$grafv.cl"
task	ilum_center	= "tasks$ilum_center.cl"
task	macrol_lista	= "tasks$macrol_lista.cl"
task	macrol_p	= "tasks$macrol_p.cl"
task	macrol_v	= "tasks$macrol_v.cl"
task	macrol_v_sub	= "tasks$macrol_v_sub.cl"
task	magcat 		= "tasks$magcat.cl"
task	mag_pol 	= "tasks$mag_pol.cl"
task	$mag_pol_e	= "$~claudiavr/iraf/tasks/mag_pol_e.e $(*)"
task	$mediana	= "$~claudiavr/iraf/tasks/mediana.e $(*)"
task	moda		= "tasks$moda.cl"
task	orbfase 	= "tasks$orbfase.cl"
task	ordem2	 	= "tasks$ordem2.cl"
task	$ordem_e	= "$~claudiavr/iraf/tasks/ordem_e.e $(*)"
task	pccd_ang 	= "tasks$pccd_ang.cl"
task	pccd_var	= "tasks$pccd_var.cl"
task	phot_pol 	= "tasks$phot_pol.cl"
task	$phot_pol_e	= "$~claudiavr/iraf/tasks/phot_pol_e.e $(*)"
task	pi_create 	= "tasks$pi_create.cl"
task	plota_pl	= "tasks$plota_pl.cl"
task	plota_pol	= "tasks$plota_pol.cl"
task	plota_luz	= "tasks$plota_luz.cl"
task	polimage		= "tasks$polimage.cl"
task	reduce		= "tasks$reduce.cl"
task	selecao		= "tasks$selecao.cl"
task	setmassar 	= "tasks$setmassar.cl"
task	setst		= "tasks$setst.cl"
task	subfor		= "tasks$subfor.cl"
task	refer_new	= "home$pccdpack/refer_new.cl"
#task	teste		= "/home1/claudiavr/iraf_old/pccdpack/teste.cl"
task	teste		= "/home1/claudiavr/iraf/pccdpack/teste.cl"
#
# Tasks do Chico
#
task	myrfits		= "/home/chico/iraf/meus/myrfits.cl"
#task    diagfase        = "/home/chico/iraf/meus/diagfase.cl"
#
# Tasks adicionais do Antonio Pereyra
#
task	taufind		= "home$pccdpack/taufind.cl"
task	zerofind	= "home$pccdpack/zerofind.cl"
#
#


if (access ("home$loginuser.cl"))
    cl < "home$loginuser.cl"
;

keep


prcache directory
cache   directory page type help

# Print the message of the day.
if (access (".hushiraf"))
    menus = no
else {
    clear; type hlib$motd
}

# Delete any old MTIO lock (magtape position) files.
if (deftask ("mtclean"))
    mtclean
else
    delete uparm$mt?.lok,uparm$*.wcs verify-

# List any packages you want loaded at login time, ONE PER LINE.
images          # general image operators
plot            # graphics tasks
dataio          # data conversions, import export
lists           # list processing

# The if(deftask...) is needed for V2.9 compatibility.
if (deftask ("proto"))
    proto       # prototype or ad hoc tasks

tv              # image display
utilities       # miscellaneous utilities
noao            # optical astronomy packages
imred
ccdred
digiphot
apphot
pccdpack

keep