$!
$ set noon
$! This command procedure is a framework for building individual
$! login command procedures
$!
$! Commands you want executed no matter mode of login
$!
$!
$!  make == "mms/ignore=warning/descrip=makefile.vms/macro=(""ALPHA=1"",""WXDIR=[pd_utils.wxw161"")"
make :== mms/descrip=makefile.vms/ignore/macro=(ALPHA=1,WXDIR=lib$disk:[pd_utils.wxw164)
$  IF F$MODE() .NES. "INTERACTIVE" THEN GOTO ENDINTER
$! Commands you want executed only in interactive mode
$!           enable use of CTRL+T
$                                SET CONTROL=T
$!
$  set terminal/inq
$  set protection=(w,g)/default
$  wso :== write sys$output
$  IF F$CVTIME(F$TIME(),"ABSOLUTE","HOUR") .GES. "12"
$   THEN  WRITE SYS$OUTPUT "Good Afternoon"
$   ELSE  WRITE SYS$OUTPUT "Good Morning"
$  ENDIF
$!
$!                                 check for new mail when coming in via PC
$!
$   IF f$extract(1,2,f$trnlm("TT")) .EQS. "FT" THEN $MAIL
$!   E*DIT :== EDIT/EDT/COMMAND=SYS$LOGIN:EDTINI.EDT
$!   E*DIT :== EDIT/TPU
$   EACL :== EDIT/ACL
$   DIRT :== @SYS$PUBLIC:DIRT.COM
$! creates a section file eveinit.tpu$section
$   DEFINE/NOLOG TPU$SECTION SYS$LOGIN:EVEINIT
$   D*IR :== DIRECTORY/DATE/SIZE
$!   VIEW :== EDIT/TPU/READ_ONLY
$   MORE :== TYPE/PAGE
$   LS :== DIRECTORY/DATE/SIZE
$   UP :== SET DEFAULT [-]
$   DEFINE/NOLOG HOME USER$DISK:[FAA.]
$   DEFINE/NOLOG COMS USER$DISK:[FAA.COMS]
$!   DEFINE/NOLOG GENIEINIT USER$DISK:[FAA]GENIEINIT.COM
$   DMAIL :== SPAWN/NOWAIT/INPUT=NL: @VUE$LIBRARY:VUE$MAIL
$   GENIE :== GENIE/DEVICE=MOTIF/SCALE=0.7
$   CD :== @COMS:CD
$   BACK :== @COMS:BACK
$   AUTH :== @COMS:AUTH
$   KILLNFS :== @COMS:NFS_KILL
$   DECPLAN :==  run sys$system:dpl$client
$!
$   define/key/nolog PF1 "@COMS:PRIV"/set_state=priv/lock_state/terminate/noecho
$   define/key/nolog PF1 /if_state=priv "@COMS:NOPRIV" /set_state=default/lock_state/terminate/noecho
$!
$  if f$search("LIB$DISK:[GENIE_V3]CMSLIB.DIR") .nes. "" then -
          CMS SET LIBRARY/NOLOG LIB$DISK:[GENIE_V3.CMSLIB]
$   define/nolog genie_refcopy lib$disk:[genie_v3.cms_refcopy]
$!                                 now some DCL command abbreviations
$   DEL :== DELETE/CONFIRM
$!
$!                                     set up directory tree command
$!   DIRT :== @SYS$PUBLIC:DIRT.COM
$!
$!
$!  WRITE SYS$OUTPUT "Setting up TeX"     
$!                              assign logical names for running TEX
$!  @SYS$PUBLIC:TeXsetup INSTALL QUIET
$!
$!                                       set prompt dependent on NODE
$   SET PROMPT = "''F$EXTRACT(0,7,F$GETSYI("NODENAME"))'> "
$!                            set terminal insert by default
$   SET terminal/INSERT
$   bg :== spawn/nowait/input=nl:
$   ice :== set default axplib$disk:[ice2.faa]
$  
$!   DEFINE/NOLOG  LNK$LIBRARY  SYS$LIBRARY:VAXCRTL
$!   mygenie :== posix posix$bin:sh. """/posix/faa/run_genie.sh"""
$!
$! define/nolog cxx$user_include axplib$disk:[ice2.work]
$  if f$search("lib$disk:[pd_utils.file]file_cld.cld") .nes. "" 
$  then
$	set command lib$disk:[pd_utils.file]file_cld.cld
$  	file :== $lib$disk:[pd_utils.file]file.exe
$ endif
$  define/nolog ice_src1 axplib$disk:[ice2.faa],axplib$disk:[ice2.work]
$  define/nolog ice_src2 axplib$disk:[ice2.faa],axplib$disk:[ice2.work],axplib$disk:[ice2.faa.kfg],user$disk:[kfg.dae]
$  define/nolog g3_ref lib$disk:[genie_v3.cms_refcopy]
$  wso "Defining DCE commands ..."
$  @coms:dce$setup
$!  daecp :== $axplib$disk:[ice2.faa]daecp.exe
$  mosaic :== $lib$disk:[pd_utils.mosaic]mosaic
$  xv :== $lib$disk:[pd_utils.xv]xv
$  vmstar :== $lib$disk:[pd_utils.vmstar]vmstar
$  LYNX :== @LIB$DISK:[PD_UTILS.LYNX]LYNX
$  print :== print/priority=255
$!  netscape == "spawn/nowait/input=nl: rsh isolde ""/usr/local/bin/netscape -display engin:0.0"""
$  isolde == "spawn/nowait/input=nl: rsh isolde ""/usr/bin/X11/dxterm -ls -display engin:0.0"""
$  sutekh == "spawn/nowait/input=nl: rsh sutekh ""/usr/bin/X11/dxterm -ls -display engin:0.0"""
$  myprint :== print/queue=ansi$lsr0/param=(sides=tumble,number=2)/header
$  display :== set display/create/node=130.246.49.60/tran=tcpip
$  define/nolog ice axplib$disk:[ice2.faa]client_link.opt
$  define/nolog all_includes decc$library_include,posix$include,decw$include
$  if f$getsyi("NODENAME") .eqs. "FBLACK"
$  then
$      define/nolog posix$scratch fblack$disk0:[scratch.faa]
$  else
$    if f$getdvi("dev$disk","EXISTS")
$    then define/nolog posix$scratch dev$disk:[faa.scratch]
$    else define/nolog posix$scratch scratch$disk:[faa.posix]
$    endif
$  endif
$!  define/nolog onceaday_dir disk$isise_sys:[sys2.onceaday]
$  ident :== @sys$update:decw$get_image_version
$  timemon :== spawn/nowait/input=nl:/proc="TimeMon" run user$disk:[faa.develop.timemon]timemon
$  @decw$utils:decw$define_utils.com
$  mxalias :== $mx_exe:mxalias.exe
$  mxqueue :== $mx_exe:mailqueue.exe
$  wso "Redefining POSIX$INCLUDE ..."
$!  define/job/log posix$include sys$scratch,axplib$disk:[hdf.include]
$  define/job posix$include sys$scratch,axplib$disk:[4_1r3_alphavms6_2.include]
$!  define/job/log decc$system_include - 
$ defing/nolog junk -
             SYS$COMMON:[DECC$LIB.reference.DECC$RTLDEF], -
             SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$DEF_HXX], -
             SYS$COMMON:[CXX$LIB.reference.DECC$RTLDEF_HXX], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$DEF_H], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$ANSI_DEF]
$!
$! RTL object library
$!
$! if f$search("sys$library:decc$crtl.exe") .nes. ""
$! then
$!     wso "Setting LNK$LIBRARY and DECC$CRTLMAP ..."
$!     define/job/log decc$crtlmap sys$library:decc$crtl.exe
$!     define/job/log lnk$library sys$library:decc$crtl.olb
$! endif
$!
$ if f$trnlnm("DCE") .eqs. "" then define/job dce sys$common:[dce$library]
$! need to do this on VAX to build genie
$  noposix :== define/job/exec sys$library -
             SYS$COMMON:[DECC$LIB.reference.DECC$RTLDEF], -
             SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C], -
             SYS$COMMON:[DECC$LIB.reference.DECC$RTLDEF], -
             SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$DEF_HXX], -
             SYS$COMMON:[CXX$LIB.reference.DECC$RTLDEF_HXX], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$DEF_H], -
             SYS$COMMON:[CXX$LIB.reference.CXXL$ANSI_DEF], -
             SYS$SYSROOT:[SYSLIB]
$  clearposix :== delete/log scratch$disk:[faa.posix]_*.*;*
$  mygenie :== @scratch$disk:[faa.opengenie]genie_setup
$  grep :== search sys$input
$  univ == "search isis$manager:accounts.univ/match=or "" and "","
$ set command AXPLIB$DISK:[ARCHIVE_LIBRARY.ADS.VTP.SYSREQ]SYSREQ.CLD
$ set command AXPLIB$DISK:[ARCHIVE_LIBRARY.ADS.VTP.tape]tape.CLD
$ adsls :== sysreq flfsys query owner=isisvms sh<. name numpages cdate wdate
$ define dcl$path  SYS$COMMON:[SYSEXE],PD_UTILS:[FOREIGN],DECW$UTILS,user$disk:[faa.dcl$path]
$ define CVSROOT ":pserver:faa59@cvs-internal.isis.rl.ac.uk:/isis/cvs/repository"
$ errors :== @coms:find_errors
$ readlist :== @isis$tools:[archive]readlist.com
$ gnv :== @APPS$DISK:[GNV_INSTALL.GNV]SETUP.COM
$ENDINTER:
$   IF F$MODE() .NES. "BATCH" THEN GOTO ENDBATCH
$! Commands you want executed only in batch mode
$ENDBATCH:
$  @sys$login:mx_logicals
$!
$! set proc/parse=ext
$! define/job decc$efs_case_preserve enable
$!