Ticket #46971: login.cl

# LOGIN.CL -- User login file for the IRAF command language.

# Identify login.cl version (checked in images.cl).
if (defpar ("logver"))
    logver = "IRAF V2.14EXPORT November 2007"

set     home            = "/iraf/iraf/unix/hlib/"
set     imdir           = "/tmp/mario/"
set     uparm           = "home$uparm/"
set     userid          = "mario"
set     tfred           = "/iraf/iraf/TFRED2/"
set     lacos           = "/iraf/iraf/"
#set    mscred          = "/iraf/iraf/extern/mscred/"
set     ctio            = "/iraf/iraf/extern/ctio/"

# Set the terminal type.  We assume the user has defined this correctly 
# when issuing the MKIRAF and no longer key off the unix TERM to set a
# default.
if (access (".hushiraf") == no)
    print "setting terminal type to xterm..."
stty xgterm


# Uncomment and edit to change the defaults.
#set    editor          = vi
#set    printer         = lp
#set    pspage          = "letter"
#set    stdimage        = imt800
#set    stdimcur        = stdimage
#set    stdplot         = lw
#set    clobber         = no
#set    filewait        = yes
#set    cmbuflen        = 512000
#set    min_lenuserarea = 64000
set     imtype          = fits
#set    imtype          = "imh"
#set    imextn          = "oif:imh fxf:fits,fit plf:pl qpf:qp stf:hhh,??h"


# 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 $*)")
task    tfred.pkg = tfred$tfred.cl
task    lacos_im = lacos$lacos_im.cl
#task   mscred.pkg = mscred$mscred.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

set stdimage=imt4096 #imt4096
keep