home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
useful
/
text
/
tex
/
pastex
/
installhd
< prev
next >
Wrap
Text File
|
1994-06-10
|
23KB
|
997 lines
; $VER: PasTeX 1.1 (20.5.94)
; Script to install PasTeX from CD-ROM
(complete 0)
(set old_level @user-level)
;
; strings
;
(set #ask-installdir
(cat "Please choose a directory, where PasTeX should be installed."
"(Note: I will create a directory 'TeX' in your directory.)"
))
(set #ask-installdir-help
(cat "You have to choose a directory, where the software will be copied."
"This directory must exist, please create one, if necessary. "
"E.g. if you choose Work: I will install TeX into Work:TeX"
))
(set #ask-instmask
(cat "Which parts of the CD TeX installation should be installed"
"on your harddisk?"
))
(set #ask-instmask-help
(cat "Choose which parts of the TeX installation you need.\n\n"
"PasTeX programs:\n Main TeX programs (initex, virtex, ShowDVI, DVIprint, SpecialHost, flib)\n\n"
"TeX utilities:\n Various usefull programs\n\n"
"TeX format files:\n plain.fmt, lplain.fmt ...\n\n"
"TeX macros:\n LaTeX, style files, ...\n\n"
"pk fonts:\n Fonts for different resolutions/printer\n\n"
"Metafont programs:\n programs to generate pk-fonts\n\n"
"Metafont font sources:\n sources of the pk-files"
))
(set #copy-pt-progs
(cat "Copy the core programs of PasTeX:"
))
(set #copy-tfm
(cat "Copy TFM-font files:"
))
(set #copy-rexx
(cat "Copy ARexx scripts:"
))
(set #copy-rexx-namestruc
(cat "Copy ARexx script 'namestruc' to REXX:"
))
(set #copy-config
(cat "Copy config-files:"
))
(set #ask-texprgmask
(cat "Which version of IniTeX/VirTeX would you like to install?"
))
(set #ask-texprgmask-help @askchoice-help
)
(set #copy-req-lib
(cat "Copy req.library:"
))
(set #copy-iff-lib
(cat "Copy iff.library:"
))
(set #help-req-lib
(cat "ShowDVI needs the req.library for the file and color requester."
))
(set #help-iff-lib
(cat "This library is needed for reading and writing IFF files."
))
(set #copy-tex-pool
(cat "Copy TeX.pool file:"
))
(set #copy-tex-norm-progs
(cat "Copy IniTeX/Virtex (small/68000):"
))
(set #copy-tex-big-progs
(cat "Copy IniTeX/Virtex (big/68000):\n"
"(You have to rename the programs)"
))
(set #copy-tex-20-progs
(cat "Copy IniTeX/Virtex (small/68020):\n"
"(You have to rename the programs)"
))
(set #copy-tex-big-20-progs
(cat "Copy IniTeX/Virtex (big/68020):\n"
"(You have to rename the programs)"
))
(set #ask-texutil
(cat "Which TeX utilities do you want to install:"
))
(set #ask-texutil-help @askoptions-help
)
(set #ask-formats
(cat "Which TeX format files do you want to install:"
))
(set #ask-formats-help @askoptions-help
)
(set #ask-macros
(cat "Which TeX macros (additional to plainTeX and LaTeX) do you want to install:"
))
(set #ask-macros-help @askoptions-help
)
(set #ask-resolutions
(cat "Which TeX pk-fonts do you want to install:"
))
(set #ask-resolutions-help @askoptions-help
)
(set #ask-preview
(cat "What set of preview-fonts do you want to install:"
))
(set #ask-preview-help @askchoice-help
)
(set #ask-180
(cat "What set of 180x180dpi fonts do you want to install:"
))
(set #ask-180-help @askchoice-help
)
(set #ask-300
(cat "What set of 300x300dpi fonts do you want to install:"
))
(set #ask-300-help @askchoice-help
)
(set #ask-360
(cat "What set of 360x360dpi fonts do you want to install:"
))
(set #ask-360-help @askchoice-help
)
(set #ask-600
(cat "What set of 600x600dpi fonts do you want to install:"
))
(set #ask-600-help @askchoice-help
)
(set #ask-pkfax
(cat "What set of 204x196dpi fax-fonts do you want to install:"
))
(set #ask-pkfax-help @askchoice-help
)
(set #ask-callmf
(cat "How would you like to have the automatical font generation:"
))
(set #ask-callmf-help
(cat "The PasTeX DVI-drivers supports a possibility to automatical call Metafont for"
"missing fonts. The ENV: variable CALLMF decide how Metafont will be called.\n\n"
"If there is no ENV:CALLMF, no fontcreation will be done.\n\n"
"If CALLMF points to MF:rexx/MakeBatch.rexx, a script will be created with an"
"entry for each missing font. If you call the script, all fonts which are missed"
"will be created.\n\n"
"If CALLMF points to MF:rexx/MakeTeXFont.rexx, each missing font will be created"
"immediatly. But this can take some time."
))
(set #startup-prompt
(cat "I have to add some commands to your S:User-Startup."
))
(set #startup-help
(cat "I have to add some commands to your S:User-Startup.\n\n"
"PasTeX needs some assigns to work:\n"
"TeX: root directory of the TeX installation.\n"
"MF: root directory of Metafont.\n"
"PKVol: assignment to the pk-font directories of the\n"
" CD-ROM. Needed for font-caching\n\n"
"Two path components are added too:\n"
"TeX:bin for the normal TeX programs/utilities\n"
"MF:bin for the Metafont programs."
))
;--------------------------------------------------------
;
; copyfonts procedure
;
(procedure copyfonts
(makedir pkdestdir)
(set fntlst "(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5|cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10)")
(if (= pkcopyopt 1)
( ; then
; small subset
(set fntpat (cat fntlst ".#?"))
)
( ; else
; all fonts (or no fonts at all!)
(set fntpat "#?")
)
)
(if (<> pkcopyopt 0)
( ; then
; there are fonts to copy
(foreach pksourcedir pkpat
(if (= @each-type 2)
( ; then directory
(copyfiles (source (tackon pksourcedir @each-name))
(dest (tackon pkdestdir @each-name))
(pattern fntpat))
)
)
)
)
)
)
;--------------------------------------------------------
;--------------------------------------------------------
;--------------------------------------------------------
(set sourcedir (pathonly @icon))
(set target (askdir (prompt #ask-installdir)
(help #ask-installdir-help)
(default "Work:")
)
)
(set @default-dest (tackon target "TeX"))
(set texbindir (tackon @default-dest "bin"))
(set formatdir (tackon @default-dest "formats"))
(set macdir (tackon @default-dest "macros"))
(set pkdir (tackon @default-dest "pk"))
(set mfdir (tackon @default-dest "mf"))
(set mfbindir (tackon mfdir "bin"))
(makedir @default-dest (infos))
;
; ---------------------------------------------------------------------------
;
; Welche Pakete sollen installiert werden?
;
; ---------------------------------------------------------------------------
;
(if (>= @user-level 1)
(set instmask (askoptions (choices "PasTeX programs"
"TeX utilities"
"TeX format files"
"TeX macros"
"pk-fonts"
"Metafont programs"
"Metafont font sources"
)
(prompt #ask-instmask)
(help #ask-instmask-help)
(default 31)
)
)
(set instmask 31)
)
;
; ---------------------------------------------------------------------------
;
; Nun fuer alle zu installierenden Pakete diverse Fragen stellen
;
; ---------------------------------------------------------------------------
;
;------PasTeX prg install----------
(if (IN instmask 0)
( ; then
(if (>= @user-level 1)
((set texprgmask (askoptions (choices "initex/virtex"
"initex/virtex big-version"
"initex/virtex 020-version"
"initex/virtex big-020-version"
)
(prompt #ask-texprgmask)
(help #ask-texprgmask-help)
(default 1)
)
))
((set texprgmask 1)
))
)
( ; else
(set texprgmask 0)
)
)
;------Utilities-------------------
(if (IN instmask 1)
( ; then
(user 2)
(set texutilmask (askoptions (prompt #ask-texutil)
(help #ask-texutil-help)
(choices "bibtex"
"bm2font"
"c++2latex"
"dvi2tty"
"dvidvi"
"dviLJ2p"
"dvips"
"dvips (68020 version)"
"dvitype"
"lacheck (LaTeX check)"
"fig / fig2dev / TransFig"
"makeindex"
"pbmtopk / pktopbm"
)
(default 0)