@NEWMASTER@ C.unix/com/mktvi aledm Thu Jun 11 19:41:46 GMT 1987
51d
21c
lib tvi;
.
@NEWMASTER@ johnw Wed Jan 24 17:55:51 GMT 1990
9c
# make a saved image for VED with LIB TVI using $popsys/pop11 and store it in
# poplocalbin

cd $usepop/pop      # no init.p vedinit.p etc
poplib=""
export poplib

$popsys/pop11 << \\\\

false ->> popgctrace -> popsyscall;

vedsetup();
lib tvi
vedinit();

identfn -> vedinit;
identfn -> tvi;                     ;;; save space
if syssave('$poplocalbin/tvi.psv') then
    pr(popheader); pr(newline);
    false -> popheader;
    erase(trycompile('$poplib/init.p') or trycompile('init.p'));
    erase(trycompile('$poplib/vedinit.p') or trycompile('vedinit.p'));

    vedinit();

    unless poparglist = [] then
        if member(hd(poparglist), ['ref' 'help' 'teach' 'doc'])
        and length(poparglist) > 1
        then    popval(consword(hd(poparglist)):: (tl(poparglist) ))
        else popval([ved ^^poparglist ])
        endif
    endunless;
endif;

sysexit();

\\

rm -f $poplocalbin/tvi.psv-
echo "tvi.psv done"

# --- Revision History ---------------------------------------------------
# --- Aled Morris, Jun 11 1987 removed semicolon after "lib tvi"
# --- Aaron Sloman, Aug 15 1986 fixed environment
.
7c
# Related Files:   VMS version
.
2,5c
# --- Copyright University of Sussex 1986.  All rights reserved. ---------
# File:            $usepop/master/C.unix/com/mktvi
# Purpose:         make a saved image for VED with LIB TVI using $popsys/pop11
# Author:          Mark Rubinstein, Mar 25 1986 (see revisions)
.
@NEWMASTER@ robd Mon May 20 15:43:40 BST 1991
9,12c
$popsys/pop11 mkvedimage $poplocalbin/tvi.psv vedtvi
.
7c
# Related Files:    LIB * MKVEDIMAGE
.
5c
# Author:           John Williams, Jan 24 1990
.
2c
# --- Copyright University of Sussex 1990. All rights reserved. ----------
.
@NEWMASTER@ johng Fri May 24 23:56:08 BST 1991
9c
$popsys/pop11 mkimage -ved $poplocalbin/tvi.psv vedtvi
.
@NEWMASTER@ johng Fri May 24 23:56:14 BST 1991
12d
@NEWMASTER@ robd Wed May 29 12:39:51 BST 1991
13d
10d
