+$! TAE V1 Logical assignments for TAE user.$!$! CHANGE LOG:=$! 10-dec-85 Changed made due to VAX C version 2.1 compiler4$! changes. Deleted TAE$VAXCRTL_OLB logical as now2$! link via OPTIONS file (see VAXCRTL.BLD)...dab:$! 21-feb-86 Define new logical name TAE$APP_INPUT...lia/$! 01-jun-86 Add /NOLOG to all assigns...palmG$! 01-jun-86 Avoid use of (unassigned) TAE$OLB for TERM$TABLOC...palm$!8$! The logical name "TAE" is assigned system-wide to the8$! device/directory of a TAE software tree. TAE$LIB and9$! TAE$MENU are assigned into subdirectories of the tree.$!5$! If an argument is present, it will be used for the?$! assignment of TAE$MENU; this allows personalized menu trees.$!3$TREE:= 'F$LOGICAL("TAE")' !Translate logical name<$LTREE = 'F$LENGTH(TREE)' - 1 !Length of spec minus the "]"9$TREE:= 'F$EXTRACT(0, LTREE, TREE)' !Spec without the "]"J$ASSIGN/NOLOG 'TREE'.SYSLIB] TAE$LIB !System 'library' for PDF, EXE, ...7$ASSIGN/NOLOG 'TREE'.HELP] TAE$HELP !TAE help files7$ASSIGN/NOLOG 'TREE'.UTIL] TAE$UTIL !TAE utilities ;$ASSIGN/NOLOG 'TREE'.DEMO] TAE$DEMO !TAE demonstrationsN$IF P1.NES."" THEN ASSIGN/NOLOG 'P1' TAE$MENU !If provided, use user menu tree$!H$! The SCRFT and COTS assignments must have a device spec because of VMSG$! defaulting problems. We force a device spec if none present in TAE.$!1$DEVICE = "" !assume no device addition neededF$IF F$LOCATE(":", TREE) .EQ. F$LENGTH(TREE) THEN DEVICE = "SYS$DISK:"N$ASSIGN/NOLOG 'DEVICE''TREE'.OLB]SCRFT.EXE SCRFT !foreign terminal supportG$ASSIGN/NOLOG 'DEVICE''TREE'.OLB]COTS.EXE COTS !Old shared C libraryC$FILE = F$SEARCH("SYS$SHARE:VAXCRTL.EXE") !Locate shared C library%$IF FILE.EQS."" THEN GOTO USE_NEWLIBJ$ASSIGN/NOLOG SYS$LIBRARY:VAXCRTL.EXE VAXCRTL ! Use system VAX C library$GOTO TERM_ASSIGN $USE_NEWLIB:Q$ASSIGN/NOLOG 'DEVICE''TREE'.OLB]VAXCRTL.EXE VAXCRTL ! Use TAE-created VAX C lib $TERM_ASSIGN:$!?$! The TERMTABLE which has arrow keys defined is in TAE$OLB and:$! to use this table we must have TERM$TABLOC point to it./$!but this bugged Rick Curry, so he removed it.:$! ASSIGN/NOLOG 'TREE'.OLB] TERM$TABLOC !point to TAE$OLB$!?$! The logical name TAE$APP_INPUT defines the input source for <$! the application procs activated in batch or async. It is;$! initialized to the null device and may be reassigned to !$! 'input.dat' or other filename.$!$ASSIGN/NOLOG NL: TAE$APP_INPUT