! Explanation at end of file
$	LOG__QUIET = %x10000000
$	LOG__SUCCESS = LOG__QUIET + %x0001
$	on control_y then exit LOG__QUIET + %x0004
$	on warning then exit $STATUS .or. LOG__QUIET
$	if f$type(LOG__QUIET) .eqs. "" then exit %x10000000
!
!-------	Branch using node name
!
$	def	:=	define/nolog
!
$	LIST =	"CASS01,CASSX1,CRLWAK,LINMPI,LINAX1,"	+ -
		"RUURC1,RUURC2,RUURC3,RUURC4,"		+ -
		"SMMDAC,NEWMAX,SAG,FLARE2"
$       @$COM:LIBSUB LOOKUP_KEY LIB__ANS 'LIB__NODE 'LIST
$	if LIB__ANS .eqs. "" then goto NO_NODE
$	goto 'LIB__NODE
!
!-------	This part of the login contains all system-dependent 
!		assignments of logicals and symbols (e.g. names for hard 
!		drives, tape drives, etc.)
!
$ CASSX1:
$	def/job		SYS$SCRATCH	'f$trnlnm("SYS$LOGIN")
!
!-------	Setup DEV utility
!
$	def	OD0	DUA2
$	LIB__OD_DRIVES	   :==	OD0			! List of optical drives
$	LIB__DISKS	   :==	UD1			! List of hard disks
!
!-------	IDL related logicals (used to set IDL_PATH)
!
$	@UD2:[IDL.BIN]IDL_SETUP		! Defines global symbols IDL and WIDL
$	def	USERLIB		IDL_DIR:[LIB]USERLIB.TLB
$	def	STATLIB		IDL_DIR:[LIB]STATLIB.TLB
$	def	ASTRTLB		$LIB:PROAST.TLB
$	def	MAPTLB		$LIB:PROMAP.TLB
$!	def	HXISTLB		$LIB:PROHXIS.TLB
$!	def	XRPTLB		$LIB:PROXRP.TLB
$	def	CMETLB		$LIB:PROCME.TLB
$!
$	def	SYS$PRINT	TXA7
!
!-------	Setup for SPRINT utility (LASER.EXE)
!		HP Laserjet printer
!
$	ESC[0,8]	 =	27
$	LIB__LS_START	 ==	ESC+"(8U"+ESC+"&l0o5C"+ESC+"(s0p14h0s0b4101T"
$	LIB__LS_LAND	 ==	ESC+"(8U"+ESC+"&l1o5C"+ESC+"(s0p14h0s0b4101T"
$	LIB__LS_STOP	 ==	" "+ESC+"E"
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete
$	LIB__LS_PAGEL	 ==	95
$	LIB__LS_LANDL	 ==	70
!
!-------	Old upstairs LS printer
!
$!	LIB__LS_START	 ==	ESC+"[11h"+ESC+"[7 I"+  -
!		ESC+"[15m"+ESC+"[28;20 G"+ESC+"[150;2400s"
$!	LIB__LS_STOP	 ==	" "+ESC+"[!p"
$!	LIB__LS_PRNT	:==	print/nofeed/noflag/delete/device=TXA2:
$!	LIB__LS_PAGEL	 ==	106
!
!-------	Setup for INFO facility
!
$	LIB__TARGET	 ==	-
		"@FORGEN.TLB,@FORPLT.ARC,@FORHOS.TLB," + -
		"@PROCME.TLB," + -
		"$COM,$PRO,$FOR"
!
!-------	Setup for MKD utility
!
$	LIB__NUNIT	 ==	19
$	LIB__SUBLENGTH	 ==	27
$	LIB__OLB	 ==	-
		"$LIB:FORPLT/lib," + -
		"$LIB:FORGEN/lib," + -
		"$LIB:FORVAX/lib," + -
		"$LIB:FORSTR/lib," + -
		"$LIB:FORBYTES/lib," + -
		"$LIB:XLIB/opt"
!
!-------	Setup for the PROC utility
!
$	LIB__CP_USERS	 ==	LIB__CP_ME + "," + -	! Used by LIBCOM PROC
				"PLHCME      ," + -	! Add 12 char strings
				"BVJCME      ," + -
				"HELIOS      "
$	LIB__CME	 ==	"HRF,BVJ,PLH"
$!
$	goto EXIT_NODE
$!
$ CASS01:
$	def/job		SYS$SCRATCH	'f$trnlnm("SYS$LOGIN")
$	if P1 .eqs. "ME" then def/job	SYS$SCRATCH	UD1:[PHICK.TEMP]
!
!-------	Setup DEV utility
!
$	def	OD0	DKB500
$	def	OD1	DKB200
$	LIB__OD_DRIVES	   :==	OD0,OD1			! List of optical drives
$	LIB__DISKS	   :==	UD1			! List of hard disks
!
!-------	IDL related logicals (used to set IDL_PATH)
!
$	@UD2:[IDL.BIN]IDL_SETUP		! Defines global symbols IDL and WIDL
$	delete/symbol/global	ENVI	! Not available
!
!-------	Setup for SPRINT utility (LASER.EXE)
!		HP Laserjet printer
!
$	def	SYS$PRINT	BJ1
$	ESC[0,8]	 =	27
$	LIB__LS_START	 ==	ESC+"(8U"+ESC+"&l0o5C"+ESC+"(s0p14h0s0b4101T"
$	LIB__LS_LAND	 ==	ESC+"(8U"+ESC+"&l1o5C"+ESC+"(s0p14h0s0b4101T"
$	LIB__LS_STOP	 ==	ESC+"E"		!" "+ESC+"E"
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete
$	LIB__LS_PAGEL	 ==	96		! 95
$	LIB__LS_FF	:==	NO		! YES
$	LIB__LS_LANDL	 ==	70
!
!-------	Setup for INFO facility
!
$	LIB__TARGET	 ==	-
		"@FORGEN.TLB,@FORPLT.ARC,@FORHOS.TLB," + -
		"@PROCME.TLB," + -
		"$COM,$PRO,$FOR"
!
!-------	Setup for MKD utility
!
$	LIB__NUNIT	 ==	19
$	LIB__SUBLENGTH	 ==	27
$	LIB__OLB	 ==	-
		"$LIB:FORPLTG/lib," + -
		"$LIB:FORPLT/lib," + -
		"$LIB:FORGEN/lib," + -
		"$LIB:FORMATH/lib," + -
		"$LIB:FORSTR2/lib," + -
		"$LIB:FORVAX/lib," + -
		"$LIB:FORSTR/lib," + -
		"$LIB:FORBYTES/lib," + -
		"$LIB:XLIB/opt"
!
!-------	Setup for the PROC utility
!							! Usernames
$	LIB__CP_USERS	 ==	LIB__CP_ME    +","+ -	! Used by LIBCOM PROC
				"PHICK       "+","+ - 	! Add 12 char strings
				"BJACKSON    "
$	LIB__CME	 ==	"PHICK,BJACKSON"	! Top directories
$!
$	goto EXIT_NODE
!
$ LINMPI:
$	def/job		SYS$SCRATCH	$TAPE1:['LIB__CP_ME']
$	if P1 .eqs. "ME" then def/job	SYS$SCRATCH	$TAPE1:[HICK]
$!
$	LIB__MF_TAPEDRIVES :==	MAG1,MAG2,MAG3		! List of tape units
$	LIB__MF_EXADRIVES   ==	""			! List of Exabyte drives
$	def	OD0	$1$DUB0
$	def	OD1	$1$DUB1
$	LIB__OD_DRIVES	   :==	OD0,OD1
$	LIB__DISKS	   :==	$DISK2,$DISK1,$DISK3	! List of disks
$!
$	ESC[0,8]	 =	27
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete/form=p15/que=$A1NW
$	LIB__LS_PAGEL	 ==	85
$	LIB__TARGET	 ==	-
		"@FORHOS.TLB,@FORGEN.TLB,@FORPLT.ARC," + -
		"@PROHXISTLB," + -
		"$COM,$PRO,$FOR"
$	LIB__OLB	 ==	-
		"$LIB:PLASMA/lib,"  + -
		"$LIB:TOOL/lib," + -
		"$LIB:FORHOS/lib," + -
		"$LIB:FORGEN/lib," + -
		"$DISK1:[GKSLIN]TVAXLB/lib"
!
$	LIB__CP_USERS	 ==	LIB__CP_ME + "," + -	! Add 12 char strings
				"SCHWENN     "
$	goto EXIT_NODE
!
$ LINAX1:
$	def/job		SYS$SCRATCH	$TMP2:['LIB__CP_ME']
$	if P1 .eqs. "ME" then def/job	SYS$SCRATCH	$TMP2:[HICK]
$!
$	def	$UNI		'f$trnlnm("SYS$SCRATCH")
$!
$! Programs using the Helios plasma data structures should be compiled with
$! the alignment for common blocks and structures set to 'packed' 
$! (the structures on the optical disks are not aligned !!).
$!
$	for	:==	fort/ext/check=all/align=(comm=packed,reco=packed)/nowarn=align
$!
$	LIB__MF_TAPEDRIVES :==	EXA1,EXA2		! List of tape units
$	LIB__MF_EXADRIVES  :==	EXA1,EXA2		! List of Exabyte drives
$	LIB__OD_DRIVES	   :==	OPT1,OPT2,OPT3,OPT4
$	LIB__DISKS	   :==	$USR4,$TMP1,$TMP2,$TMP3	! List of disks
$!
!
!-------	IDL related logicals (used to set IDL_PATH)
!
$	def	USERLIB		IDL_DIR:[LIB]USERLIB.TLB
$	def	STATLIB		IDL_DIR:[LIB]STATLIB.TLB
$	def	CMETLB		$LIB:PROCME.TLB
$	def	HXISTLB		$LIB:PROHXIS.TLB
$!
$	ESC[0,8]	 =	27
$	LIB__LS_DUPLEX	 ==	0
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete/form=p15/que=SYS$WRITE
$	if f$getjpi("","USERNAME") .eqs. "SCHWENN     " then -
		LIB__LS_PRNT	 ==	LIB__LS_PRNT-"SYS$WRITE"+"$A1NW"
$!	LIB__LS_PRNTDUP	:==	print/nofeed/noflag/delete
$	LIB__LS_PAGEL	 ==	85
$	LIB__LS_PAGEL	 ==	LIB__LS_PAGEL-3
$	LIB__TARGET	 ==	-
		"@$LIB:FORHOS.TLB,@$LIB:FORGEN.TLB,@$LIB:FORORB.ARC," + -
		"$COM,$PRO,$FOR"
!
!-------	Setup for MKD utility
!
$	LIB__SUBLENGTH	 ==	27
$	LIB__OLB	 ==	-
		"$LIB:FORPLA/lib,"  + -
		"$LIB:FORHOS/lib,"  + -
		"$LIB:FORGEN/lib"
!
$	LIB__CP_USERS	 ==	LIB__CP_ME + "," + -		! Add 12 char strings
				"SCHWENN     "
$	define/nolog	S	$TMP1:[HICK],$TMP2:[HICK],$TMP3:[HICK]
$	goto EXIT_NODE
!
$ RUURC1:
$ RUURC2:
$ RUURC3:
$ RUURC4:
$	def/job		SYS$SCRATCH	'f$trnlnm("SYS$LOGIN")
!
$	delete/symbol/global delete
$	def	MT1	MSA0
$	def	MT2	MUB0
$	LIB__MF_TAPEDRIVES :==	MT1,MT2			! List of tape units
$	LIB__MF_EXADRIVES  :==	MT2			! List of Exabyte drive
$	LIB__DISKS	   :==	$1$DIA1,$1$DUA0,$1$DUB0	! List of disks
!
!-------	IDL related logicals (used to set IDL_PATH)
!
$	def	HIMSELLIB	$AUX:HIMSEL.LIB
$	def	USERLIB		IDL_DIR:[000000]USERLIB.TLB
$	def	ASTRTLB		$LIB:ASTRON.TLB
$	def	HXISTLB		$LIB:HXIS.TLB
$	def	XRPTLB		$LIB:XRP.TLB
!
$	LIB__LS_PRNT	:==	print/form=lpport/delete
$	LIB__LS_PAGEL	 ==	80
!
$	LIB__CP_USERS	 ==	LIB__CP_ME + "," + -	! Add 12 char strings
				"PAULH       ," + -
				"ZDENEK      "
$	vpur SYS$LOGIN:DECW$SM.LOG
$	goto EXIT_NODE
!
$ SOLMAX:
$ NEWMAX:
$	def/job		SYS$SCRATCH	$1$DIA1:[XRP]
$	if P1 .eqs. "ME" then def/job	SYS$SCRATCH	$1$DIA1:[HXIS]
!
$	LIB__MF_TAPEDRIVES :==	MT0,MT1,MT2,MT3,MT4	! List of tape units
$	LIB__MF_EXADRIVES  :==	MT1,MT2			! List of Exabyte drive
$	LIB__DISKS	   :==	$1$DIA0,$1$DIA1,$1$DIA2	! List of disks
$	def	HIMSELLIB	$AUX:HIMSEL.LIB
$	def	USERLIB		IDL_DIR:[LIB]USERLIB.TLB
$	def	ASTRTLB		SYS$USER:[XRP.SOFT.IDL]ASTRON.TLB
$	def	HXISTLB		$LIB:HXIS.TLB
$	def	XRPTLB		SYS$USER:[XRP.SOFT.IDL]XRPIDL.TLB
$	def/job IDL_STARTUP	SYS$USER:[XRP.SOFT.IDL]IDL_STARTUP.PRO
!
$	LIB__LS_DUPLEX	 ==	1
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete/setup=(port,lgtre815)
$	LIB__LS_PRNTDUP	:==	print/nofeed/noflag/delete/setup=(port,lgtre815,duplex)
$	LIB__LS_PAGEL	 ==	76
!
$	LIB__CP_USERS	 ==	LIB__CP_ME + "," + -	! Add 12 char strings
				"HXIS        "
$	goto EXIT_NODE
!
$ SMMDAC:
$	def/job		SYS$SCRATCH	'f$trnlnm("SYS$LOGIN")
!
$	LIB__DISKS	   :==	DKA300			! List of disks
$!	def	USERLIB		IDL_DIR:[LIB]USERLIB.TLB
$	def	ASTRTLB		SYS$USER:[XRP.SOFT.IDL]ASTRON.TLB
$	def	HXISTLB		$LIB:HXIS.TLB
$	def	XRPTLB		SYS$USER:[XRP.SOFT.IDL]XRPIDL.TLB
!
$	LIB__LS_DUPLEX	 ==	1
$	LIB__LS_PRNT	:==	print/nofeed/noflag/delete/setup=(port,lgtre815)
$	LIB__LS_PRNTDUP	:==	print/nofeed/noflag/delete/setup=(port,lgtre815,duplex)
$	LIB__LS_PAGEL	 ==	76
!
$	LIB__CP_USERS	 ==	LIB__CP_ME		! Add 12 char strings
$	goto EXIT_NODE
!
$ SAG:
$ FLARE2:
$	def/job		SYS$SCRATCH	FLARES$DUB12:[HXIS]
!
$	def	MT0	SAG$MUA0
$	def	MT1	SAG$MUA1
$	LIB__MF_TAPEDRIVES :==	MT0,MT1			! List of tape units
$	LIB__MF_EXADRIVES  :==	MT0,MT1			! List of Exabyte drive
$	LIB__DISKS	   :==	DSK1,FLARES$DUB12	! List of disks
$	def	USERLIB		IDL_DIR:[LIB]USERLIB.TLB
$	def	ASTRTLB		$LIB:ASTRON.TLB
$	def	HXISTLB		$LIB:HXIS.TLB
$	def	XRPTLB		$LIB:XRP.TLB
!
$	LIB__LS_PRNT	:==	pslaser
$	LIB__LS_PAGEL	 ==	76
!
$	LIB__CP_USERS	 ==	LIB__CP_ME		! Add 12 char strings
$	goto EXIT_NODE
!
! 
$ NO_NODE:
$	write SYS$OUTPUT " ... Foreign login on unclassified node"
$	def/job		SYS$SCRATCH	'f$trnlnm("SYS$LOGIN")
!
$	LIB__CP_USERS	 ==	LIB__CP_ME		! Add 12 char strings
$	LIB__OLB	 ==	-
		"$LIB:FORPLT/lib," + -
		"$LIB:FORGEN/lib"
!
$ EXIT_NODE:						! Regular VAX assumed
$	exit LOG__SUCCESS
!+
NAME:
	LIBLOGIN
PURPOSE:
	Set up machine dependent part of DCL enviroment
INPUTS:
	P1	if not "ME" the "foreign" login is used
PROCEDURE:
	Suggested directory tree:
	SYS$LOGIN --- SOFT ---- AUX
			|------ SAM
			|------ COM   ------ PLAY
			|------ EXE   ------ FOR
				 |---------- PAS
			|------ PRO   ------ CAT
			|------ LIB
	This file together with the other LIB*.COM are supposed to define a
	suitable login environment.
	If transported to another system this file is the only one that needs
	major modifications (I hope).
MODIFICATION HISTORY:
	AUG-1991, Paul Hick (ARC)