home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / pastex / installhd < prev    next >
Text File  |  1994-06-07  |  20KB  |  882 lines
  1. ; $VER: PasTeX 1.0 (18.9.93)
  2. ; Script to install PasTeX from CD-ROM
  3.  
  4. (complete 0)
  5. (set old_level @user-level)
  6.  
  7.  
  8.  
  9. ;
  10. ; strings
  11. ;
  12.  
  13. (set #ask-installdir
  14. (cat "Please choose a directory, where PasTeX should be installed."
  15.      "(Note: I will create in directory TeX in your directory.)"
  16. ))
  17.  
  18. (set #ask-installdir-help
  19. (cat "You have to choose a directory, where the software will be copied."
  20.      "This directory must exist, please create one, if necessary. "
  21.      "E.g. if you choose Work: I will install TeX into Work:TeX"
  22. ))
  23.  
  24.  
  25. (set #ask-instmask
  26. (cat "Which parts of the CD TeX installation should be installed"
  27.      "on your harddisk?"
  28. ))
  29.  
  30. (set #ask-instmask-help
  31. (cat "Choose which parts of the TeX installation you need.\n\n"
  32.      "PasTeX programs:\n  Main TeX programs (initex, virtex, ShowDVI, DVIprint, SpecialHost, flib)\n\n"
  33.      "TeX utilities:\n  Various usefull programs\n\n"
  34.      "TeX format files:\n  plain.fmt, lplain.fmt ...\n\n"
  35.      "TeX macros:\n  LaTeX, style files, ...\n\n"
  36.      "pk fonts:\n  Fonts for different resolutions/printer\n\n"
  37.      "Metafont programs:\n  programs to generate pk-fonts\n\n"
  38.      "Metafont font sources:\n  sources of the pk-files"
  39. ))
  40.  
  41. (set #copy-pt-progs
  42. (cat "Copy the core programs of PasTeX:"
  43. ))
  44.  
  45. (set #copy-tfm
  46. (cat "Copy TFM-font files:"
  47. ))
  48.  
  49. (set #copy-rexx
  50. (cat "Copy ARexx scripts:"
  51. ))
  52.  
  53. (set #copy-rexx-namestruc
  54. (cat "Copy ARexx script 'namestruc' to REXX:"
  55. ))
  56.  
  57. (set #copy-config
  58. (cat "Copy config-files:"
  59. ))
  60.  
  61. (set #ask-texprgmask
  62. (cat "Which version of IniTeX/VirTeX would you like to install?"
  63. ))
  64.  
  65. (set #ask-texprgmask-help @askchoice-help
  66. )
  67.  
  68. (set #copy-req-lib
  69. (cat "Copy req.library:"
  70. ))
  71.  
  72. (set #copy-iff-lib
  73. (cat "Copy iff.library:"
  74. ))
  75.  
  76. (set #help-req-lib
  77. (cat "ShowDVI needs the req.library for the file and color requester."
  78. ))
  79.  
  80. (set #help-iff-lib
  81. (cat "This library is needed for reading and writing IFF files."
  82. ))
  83.  
  84.  
  85. (set #copy-tex-pool
  86. (cat "Copy TeX.pool file:"
  87. ))
  88.  
  89. (set #copy-tex-norm-progs
  90. (cat "Copy IniTeX/Virtex (small/68000):"
  91. ))
  92.  
  93. (set #copy-tex-big-progs
  94. (cat "Copy IniTeX/Virtex (big/68000):\n"
  95.      "(You have to rename the programs)"
  96. ))
  97.  
  98. (set #copy-tex-20-progs
  99. (cat "Copy IniTeX/Virtex (small/68020):\n"
  100.      "(You have to rename the programs)"
  101. ))
  102.  
  103. (set #copy-tex-big-20-progs
  104. (cat "Copy IniTeX/Virtex (big/68020):\n"
  105.      "(You have to rename the programs)"
  106. ))
  107.  
  108. (set #ask-texutil
  109. (cat "Which TeX utilities do you want to install:"
  110. ))
  111.  
  112. (set #ask-texutil-help @askoptions-help
  113. )
  114.  
  115. (set #ask-formats
  116. (cat "Which TeX format files do you want to install:"
  117. ))
  118.  
  119. (set #ask-formats-help @askoptions-help
  120. )
  121.  
  122. (set #ask-macros
  123. (cat "Which TeX macros (additional to plainTeX and LaTeX) do you want to install:"
  124. ))
  125.  
  126. (set #ask-macros-help @askoptions-help
  127. )
  128.  
  129. (set #ask-resolutions
  130. (cat "Which TeX pk-fonts do you want to install:"
  131. ))
  132.  
  133. (set #ask-resolutions-help @askoptions-help
  134. )
  135.  
  136. (set #ask-preview
  137. (cat "What set of preview-fonts do you want to install:"
  138. ))
  139.  
  140. (set #ask-preview-help @askchoice-help
  141. )
  142.  
  143. (set #ask-180
  144. (cat "What set of 180x180dpi fonts do you want to install:"
  145. ))
  146.  
  147. (set #ask-180-help @askchoice-help
  148. )
  149.  
  150. (set #ask-300
  151. (cat "What set of 300x300dpi fonts do you want to install:"
  152. ))
  153.  
  154. (set #ask-300-help @askchoice-help
  155. )
  156.  
  157. (set #ask-360
  158. (cat "What set of 360x360dpi fonts do you want to install:"
  159. ))
  160.  
  161. (set #ask-360-help @askchoice-help
  162. )
  163.  
  164. (set #ask-callmf
  165. (cat "How would you like to have the automatical font generation:"
  166. ))
  167.  
  168. (set #ask-callmf-help 
  169. (cat "The PasTeX DVI-drivers supports a possibility to automatical call Metafont for"
  170.      "missing fonts. The ENV: variable CALLMF decide how Metafont will be called.\n\n"
  171.      "If there is no ENV:CALLMF, no fontcreation will be done.\n\n"
  172.      "If CALLMF points to MF:rexx/MakeBatch.rexx, a script will be created with an"
  173.      "entry for each missing font. If you call the script, all fonts which are missed"
  174.      "will be created.\n\n"
  175.      "If CALLMF points to MF:rexx/MakeTeXFont.rexx, each missing font will be created"
  176.      "immediatly. But this can take some time."
  177. ))
  178.  
  179. (set #startup-prompt
  180. (cat "I have to add some commands to your S:User-Startup."
  181. ))
  182.  
  183. (set #startup-help
  184. (cat "I have to add some commands to your S:User-Startup.\n\n"
  185.      "PasTeX needs some assigns to work:\n"
  186.      "TeX:   root directory of the TeX installation.\n"
  187.      "MF:    root directory of Metafont.\n"
  188.      "PKVol: assignment to the pk-font directories of the\n"
  189.      "       CD-ROM. Needed for font-caching\n\n"
  190.      "Two path components are added too:\n"
  191.      "TeX:bin for the normal TeX programs/utilities\n"
  192.      "MF:bin  for the Metafont programs."
  193. ))
  194.  
  195. ;--------------------------------------------------------
  196.  
  197. ;
  198. ; copyfonts procedure
  199. ;
  200.  
  201. (procedure copyfonts
  202.   (makedir pkdestdir)
  203.   (set fntlst "(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5|cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10)")
  204.  
  205.   (if (= pkcopyopt 1)
  206.    ( ; then
  207.      ; small subset
  208.      (set fntpat (cat fntlst ".#?"))
  209.    )
  210.    ( ; else
  211.      ; all fonts (or no fonts at all!)
  212.      (set fntpat "#?")
  213.    )
  214.   )
  215.      
  216.   (if (<> pkcopyopt 0)
  217.    ( ; then 
  218.      ; there are fonts to copy
  219.      (foreach pksourcedir pkpat 
  220.        (if (= @each-type 2)
  221.         ( ; then directory
  222.           (copyfiles (source  (tackon pksourcedir @each-name))
  223.                      (dest    (tackon pkdestdir @each-name))
  224.                      (pattern fntpat))
  225.         )
  226.        )
  227.      )
  228.    )
  229.   )
  230. )
  231.  
  232.  
  233.  
  234.  
  235. ;--------------------------------------------------------
  236. ;--------------------------------------------------------
  237. ;--------------------------------------------------------
  238.  
  239.  
  240.  
  241. (set sourcedir (pathonly @icon))
  242.  
  243. (set target (askdir (prompt #ask-installdir)
  244.             (help   #ask-installdir-help)
  245.             (default "Work:")
  246.         )
  247. )
  248.  
  249. (set @default-dest (tackon target "TeX"))
  250. (set texbindir  (tackon @default-dest "bin"))
  251. (set formatdir  (tackon @default-dest "formats"))
  252. (set macdir     (tackon @default-dest "macros"))
  253. (set pkdir      (tackon @default-dest "pk"))
  254. (set mfdir      (tackon @default-dest "mf"))
  255. (set mfbindir   (tackon mfdir         "bin"))
  256.  
  257. (makedir @default-dest (infos))
  258.  
  259.  
  260. ;
  261. ; ---------------------------------------------------------------------------
  262. ;
  263. ; Welche Pakete sollen installiert werden?
  264. ;
  265. ; ---------------------------------------------------------------------------
  266. ;
  267.  
  268. (if (>= @user-level 1)
  269.  (set instmask (askoptions (choices "PasTeX programs"
  270.                     "TeX utilities"
  271.                     "TeX format files"
  272.                     "TeX macros"
  273.                     "pk-fonts"
  274.                     "Metafont programs"
  275.                     "Metafont font sources"
  276.                )
  277.                (prompt #ask-instmask)
  278.                (help   #ask-instmask-help)
  279.                (default 31)
  280.            )
  281.  )
  282.  (set instmask 31)
  283. )
  284.  
  285.  
  286.  
  287. ;
  288. ; ---------------------------------------------------------------------------
  289. ;
  290. ; Nun fuer alle zu installierenden Pakete diverse Fragen stellen
  291. ;
  292. ; ---------------------------------------------------------------------------
  293. ;
  294.  
  295.  
  296.  
  297. ;------PasTeX prg install----------
  298.  
  299. (if (IN instmask 0)
  300.  ( ; then 
  301.    (if (>= @user-level 1)
  302.     ((set texprgmask (askoptions (choices "initex/virtex"
  303.                              "initex/virtex big-version"
  304.                             "initex/virtex 020-version"
  305.                             "initex/virtex big-020-version"
  306.                             )
  307.                            (prompt #ask-texprgmask)
  308.                            (help   #ask-texprgmask-help)
  309.                            (default 1)
  310.                )
  311.     ))
  312.     ((set texprgmask 1)
  313.    ))
  314.  )
  315.  ( ; else
  316.    (set texprgmask 0)
  317.  )
  318. )
  319.   
  320.  
  321.  
  322. ;------Utilities-------------------
  323. (if (IN instmask 1)
  324.  ( ; then
  325.    (user 2)
  326.    (set texutilmask (askoptions (prompt #ask-texutil)
  327.                         (help #ask-texutil-help)
  328.                         (choices     "bibtex"
  329.                              "bm2font"
  330.                              "c++2latex"
  331.                              "dvi2tty"
  332.                              "dvidvi"
  333.                              "dviLJ2p"
  334.                         "dvips"
  335.                         "dvips (68020 version)"
  336.                         "dvitype"
  337.                         "lacheck (LaTeX check)"
  338.                         "fig / fig2dev / TransFig"
  339.                         "makeindex"
  340.                         "pbmtopk / pktopbm"
  341.                         )
  342.                         (default 0)
  343.                 )
  344.    )
  345.    (user old_level)
  346.  )
  347.  ( ; else
  348.    (set texutilmask 0)
  349.  )
  350. )
  351.  
  352.  
  353. ;------TeX formats------------------
  354. (if (IN instmask 2)
  355.  ( ; then
  356.    (user 2)
  357.    (set formatmask (askoptions  (prompt #ask-formats)
  358.                         (help   #ask-formats-help)
  359.                         (choices "plain"
  360.                           "gplain  (german)"
  361.                           "lplain  (LaTeX)"
  362.                           "glplain (LaTeX german)"
  363.                         )
  364.                         (default 5)
  365.            )
  366.    )
  367.    (user old_level)
  368.  )
  369.  ( ; else
  370.    (set formatmask 0)
  371.  )
  372. )
  373.  
  374.  
  375. ;------TeX macros------------------
  376. (if (IN instmask 3)
  377.  ( ; then
  378.    (user 2)
  379.    (set macros (askoptions  (prompt #ask-macros)
  380.                     (help   #ask-macros-help)
  381.                     (choices     "a4"
  382.                          "dinbrief"
  383.                          "epic"
  384.                     "eepic"
  385.                          "script"
  386.                          "subeqn"
  387.                          "supertab"
  388.                          "array"
  389.                          "docstrip"
  390.                          "ftnright"
  391.                          "multicol"
  392.                     "nfss2"
  393.                     "theorem"
  394.                     "verbatim"
  395.                    )
  396.                    (default 0)
  397.            )
  398.    )
  399.    (user old_level)
  400.  )
  401.  ( ; else
  402.    (set macros 0)
  403.  )
  404. )
  405.  
  406. ;------pk-fonts--------------------
  407. (if (IN instmask 4)
  408.  (
  409.    (user 2)
  410.    (set resomask (askoptions (prompt #ask-resolutions)
  411.                      (help   #ask-resolutions-help)
  412.                      (choices     "preview"
  413.                          "180x180 dpi (e.g. NEC P6 draft)"
  414.                          "300x300 dpi (e.g. HP DeskJet)"
  415.                     "360x360 dpi (e.g. NEC P6 high quality)"
  416.                      )
  417.                      (default 1)
  418.              )
  419.    )
  420.    (user old_level)
  421.  
  422.    ; preview fonts
  423.    (if (IN resomask 0)
  424.     ( ; then
  425.       (set pkprev     (askchoice (prompt #ask-preview)
  426.                          (help   #ask-preview-help)
  427.                          (choices "none (use font caching)"
  428.                             "only a small subset (use font caching)"
  429.                            "all fonts (of this CD)"
  430.                          )
  431.                          (default 0)
  432.                   )
  433.       )
  434.     )
  435.    )
  436.    
  437.    ; 180x180
  438.    (if (IN resomask 1)
  439.     ( ; then
  440.       (set pk180    (askchoice (prompt #ask-180)
  441.                        (help   #ask-180-help)
  442.                         (choices "none (use font caching)"
  443.                             "only a small subset (use font caching)"
  444.                           "all fonts (of this CD)"
  445.                         )
  446.                         (default 0)
  447.                  )
  448.       )
  449.     )
  450.    )
  451.    
  452.    ; 300x300
  453.    (if (IN resomask 2)
  454.     ( ; then
  455.       (set pk300     (askchoice (prompt #ask-300)
  456.                         (help   #ask-300-help)
  457.                         (choices "none (use font caching)"
  458.                           "only a small subset (use font caching)"
  459.                           "all fonts (of this CD)"
  460.                         )
  461.                         (default 0)
  462.                  )
  463.       )
  464.     )
  465.    )
  466.    
  467.    ; 360x360
  468.    (if (IN resomask 3)
  469.     ( ; then
  470.       (set pk360     (askchoice (prompt #ask-360)
  471.                         (help   #ask-360-help)
  472.                         (choices "none (use font caching)"
  473.                           "only a small subset (use font caching)"
  474.                           "all fonts (of this CD)"
  475.                         )
  476.                         (default 0)
  477.                  )
  478.       )
  479.     )
  480.    )
  481.  )
  482. )
  483.  
  484. ;------mf progs--------------------
  485. (if (IN instmask 5)
  486.  ( ; then
  487.    (set callmf (askchoice (prompt  #ask-callmf)
  488.                           (help    #ask-callmf-help)
  489.                           (choices "no automatical font creation"
  490.                                    "create a batchfile for font creation"
  491.                                    "create missing fonts immediately"
  492.                           )
  493.                           (default 2)
  494.                )
  495.    )
  496.  )
  497. )
  498.  
  499. ;------mf fnt source---------------
  500.  
  501. ; hier gibt's nichts zu fragen
  502.  
  503.  
  504.  
  505. ;
  506. ; ---------------------------------------------------------------------------
  507. ;
  508. ; Nun die Pakete wirklich installieren.
  509. ; Hier nun keine User-Aktionen!
  510. ;
  511. ; ---------------------------------------------------------------------------
  512. ;
  513.  
  514.  
  515. ;------PasTeX prg install----------
  516. (if (IN instmask 0)
  517.  (
  518.   (set texbindir (tackon @default-dest "bin"))
  519.   (copyfiles (prompt #copy-pt-progs)
  520.              (source (tackon sourcedir "bin"))
  521.              (choices "ShowDVI" "DVIprint" "Flib" "SpecialHost" "PToFront")
  522.              (dest   texbindir)
  523.              (infos)
  524.   )
  525.   
  526.   (copyfiles (prompt #copy-tfm)
  527.              (source (tackon sourcedir "fonts"))
  528.              (dest   (tackon @default-dest "fonts"))
  529.              (all)
  530.   )
  531.   
  532.   (copyfiles (prompt #copy-rexx)
  533.              (source (tackon sourcedir "rexx"))
  534.              (dest   (tackon @default-dest "rexx"))
  535.              (all)
  536.   )
  537.   
  538.   (copyfiles (prompt  #copy-rexx-namestruc)
  539.              (source  (tackon sourcedir "rexx"))
  540.              (dest    "rexx:")
  541.              (choices "namestruc")
  542.   )
  543.   
  544.   (copyfiles (prompt #copy-config)
  545.              (source (tackon sourcedir "config"))
  546.              (dest   (tackon @default-dest "config"))
  547.              (all)
  548.   )
  549.   
  550.   (copylib (prompt #copy-req-lib)
  551.            (help   #help-req-lib)
  552.            (source (tackon (tackon sourcedir "libs") "req.library"))
  553.            (dest   "libs:")
  554.            (optional "nofail")
  555.            (confirm)
  556.   )
  557.   
  558.   (copylib (prompt #copy-iff-lib)
  559.            (help   #help-req-lib)
  560.            (source (tackon (tackon sourcedir "libs") "iff.library"))
  561.            (dest   "libs:")
  562.            (optional "nofail")
  563.            (confirm)
  564.   )
  565.   
  566.   (if (<> texprgmask 0)
  567.    (
  568.     (copyfiles (prompt  #copy-tex-pool)
  569.                (source  sourcedir)
  570.                (dest    @default-dest)
  571.                (choices "TeX.pool")
  572.     )
  573.    )
  574.   )
  575.  
  576.   (if (IN texprgmask 0)
  577.    (
  578.     (copyfiles (prompt #copy-tex-norm-progs)
  579.                (source (tackon sourcedir "bin"))
  580.                (choices "IniTeX" "VirTeX")
  581.                (dest   texbindir)
  582.                (infos)
  583.     )
  584.   ))
  585.    
  586.   (if (IN texprgmask 1)
  587.    (
  588.     (copyfiles (prompt #copy-tex-big-progs)
  589.                (source (tackon sourcedir "bin"))
  590.                (choices "BigIniTeX" "BigVirTeX")
  591.                (dest   texbindir)
  592.                (infos)
  593.                (optional)
  594.     )
  595.   ))
  596.    
  597.   (if (IN texprgmask 2)
  598.    (
  599.     (copyfiles (prompt #copy-tex-20-progs)
  600.                (source (tackon sourcedir "bin"))
  601.                (choices "IniTeX20" "VirTeX20")
  602.                (dest   texbindir)
  603.                (infos)
  604.                (optional)
  605.     )
  606.   ))
  607.    
  608.   (if (IN texprgmask 3)
  609.    (
  610.     (copyfiles (prompt #copy-tex-big-20-progs)
  611.                (source (tackon sourcedir "bin"))
  612.                (choices "BigIniTeX20" "BigVirTeX20")
  613.                (dest   texbindir)
  614.                (infos)
  615.                (optional)
  616.     )
  617.   ))
  618.    
  619.  )
  620. )
  621.  
  622.  
  623. (complete 4)
  624.  
  625. ;------Utilities-------------------
  626.  
  627. (set n 0)
  628. (set texutilpat "(%")
  629. (while (set texutil (select n "bibtex"
  630.                   "bm2font"
  631.                   "c++2latex"
  632.                   "dvitty"
  633.                   "dvidvi"
  634.                   "dviLJ2p"
  635.                   "dvips"
  636.                   "dvips20"
  637.                   "dvitype"
  638.                   "lacheck"
  639.                   "fig|fig2dev|transfig"
  640.                   "makeindex"
  641.                   "pbmtopk|pktopbm"
  642.                   ""
  643.              )
  644.        )
  645. (
  646.     (if (IN texutilmask n)
  647.     (
  648.     (set texutilpat (cat texutilpat "|" texutil))
  649.     ))
  650.     (set n (+ n 1))
  651. ))
  652.  
  653. (copyfiles (source (tackon sourcedir "bin"))
  654.        (dest texbindir)
  655.        (pattern (cat texutilpat ")")))
  656.  
  657. (if (OR (IN texutilmask 6) (IN texutilmask 7))
  658.  (
  659.   (copyfiles (source (tackon sourcedir "ps"))
  660.          (dest   (tackon @default-dest "ps"))
  661.          (all))
  662.  )
  663. )
  664.  
  665.   
  666.  
  667. (complete 7)
  668.  
  669.  
  670. ;------TeX formats------------------
  671. (if (<> formatmask 0) 
  672.  ( ; then
  673.    (set n 0)
  674.    (set formatpat "(%")
  675.    (while (set format  (select n "plain.fmt|plain.log"
  676.                      "gplain.fmt|gplain.log"
  677.                      "lplain.fmt|lplain.log"
  678.                      "glplain.fmt|glplain.log"
  679.                      ""
  680.                )
  681.           )
  682.    (
  683.       (if (IN formatmask n)
  684.       (
  685.      (set formatpat (cat formatpat "|" format))
  686.       ))
  687.       (set n (+ n 1))
  688.    ))
  689.  
  690.    (makedir formatdir)
  691.  
  692.    (copyfiles (source  (tackon sourcedir "formats"))
  693.           (dest    formatdir)
  694.           (pattern (cat formatpat ")")))
  695.  )
  696. )
  697.  
  698.  
  699. (complete 10)
  700.  
  701.  
  702.  
  703. ;------TeX macros------------------
  704. (if (IN instmask 3)
  705.  (
  706.   (set lamacdir (tackon macdir "latex"))
  707.   
  708.   (makedir macdir (infos))
  709.   (makedir lamacdir (infos))
  710.   
  711.   ; erstmal die normalen Macros kopieren, die immer kopiert werden
  712.   (copyfiles (source   (tackon sourcedir "macros"))
  713.              (dest     macdir)
  714.              (pattern  "#?.(tex|sty|bst|one|two)"))
  715.              
  716.   (copyfiles (source   (tackon (tackon sourcedir "macros") "hyphenation"))
  717.              (dest     (tackon macdir "hyphenation"))
  718.              (all))
  719.              
  720.   (copyfiles (source   (tackon (tackon (tackon sourcedir "macros") "latex") "general"))
  721.              (dest     (tackon lamacdir "general"))
  722.              (all))
  723.              
  724.   (copyfiles (source   (tackon (tackon (tackon sourcedir "macros") "latex") "sty"))
  725.              (dest     (tackon lamacdir "sty"))
  726.              (all))
  727.              
  728.  
  729.   (set n 0)
  730.   (while (set macrodir (select n "a4"
  731.                        "dinbrief"
  732.                        "epic"
  733.                      "eepic"
  734.                        "script"
  735.                        "subeqn"
  736.                        "supertab"
  737.                        "latex/array"
  738.                        "latex/doc"
  739.                        "latex/ftnright"
  740.                        "latex/multicol"
  741.                        "latex/nfss2"
  742.                        "latex/theorem"
  743.                        "latex/verbatim"
  744.                        ""
  745.                )
  746.          )
  747.   (
  748.       (if (IN macros n)
  749.        (
  750.          (copyfiles (source (tackon (tackon sourcedir "macros") macrodir))
  751.                   (dest   (tackon macdir macrodir)
  752.                     (all))
  753.          )
  754.        )
  755.       )
  756.       (set n (+ n 1))
  757.   ))
  758.  
  759.  
  760.  )
  761. )
  762.  
  763. (complete 30)
  764.  
  765.  
  766. ;------pk-fonts--------------------
  767. (if (IN instmask 4)
  768.  ( ; then
  769.    (set pkdir (tackon @default-dest "pk"))
  770.    (makedir pkdir)
  771.    
  772.    ; preview fonts
  773.    (if (IN resomask 0)
  774.     ( ; then
  775.       (set pkdestdir   pkdir)
  776.       (set pksourcedir (tackon sourcedir "pk"))
  777.       (set pkcopyopt   pkprev)
  778.       (set pkpat       "#[0-9]")
  779.       (copyfonts)
  780.     )
  781.    )
  782.    ; 180 fonts
  783.    (if (IN resomask 1)
  784.     ( ; then
  785.       (set pkdestdir (tackon pkdir "180x180"))
  786.       (set pksourcedir (tackon sourcedir "pk/180x180"))
  787.       (set pkcopyopt   pk180)
  788.       (set pkpat       "#[0-9]")
  789.       (copyfonts)
  790.     )
  791.    )
  792.    ; 300 fonts
  793.    (if (IN resomask 2)
  794.     ( ; then
  795.       (set pkdestdir (tackon pkdir "300x300"))
  796.       (set pksourcedir (tackon sourcedir "pk/300x300"))
  797.       (set pkcopyopt   pk300)
  798.       (set pkpat       "#[0-9]")
  799.       (copyfonts)
  800.     )
  801.    )
  802.    ; 360 fonts
  803.    (if (IN resomask 3)
  804.     ( ; then
  805.       (set pkdestdir (tackon pkdir "360x360"))
  806.       (set pksourcedir (tackon sourcedir "pk/360x360"))
  807.       (set pkcopyopt   pk360)
  808.       (set pkpat       "#[0-9]")
  809.       (copyfonts)
  810.     )
  811.    )
  812.  )
  813. )
  814.  
  815. (complete 80)
  816.  
  817.  
  818. ;------mf progs--------------------
  819. (if (IN instmask 5)
  820.  ( ; then
  821.    (makedir mfdir (infos))
  822.    (copyfiles (source (tackon sourcedir "mf"))
  823.               (dest   mfdir)
  824.               (pattern "(bases|bin|config|doc|rexx|s)"))
  825.    (if (= callmf 1)
  826.     ( ; then batch
  827.       (copyfiles (source (tackon sourcedir "mf/ENV"))
  828.                  (dest   "ENV:")
  829.                  (choices "CALLMF-batch")
  830.                  (newname "CALLMF"))
  831.       (copyfiles (source (tackon sourcedir "mf/ENV"))
  832.                  (dest   "ENVARC:")
  833.                  (choices "CALLMF-batch")
  834.                  (newname "CALLMF"))
  835.     )
  836.    )
  837.    (if (= callmf 2)
  838.     ( ; then immediately
  839.       (copyfiles (source (tackon sourcedir "mf/ENV"))
  840.                  (dest   "ENV:")
  841.                  (choices "CALLMF"))
  842.       (copyfiles (source (tackon sourcedir "mf/ENV"))
  843.                  (dest   "ENVARC:")
  844.                  (choices "CALLMF"))
  845.    )
  846.   )
  847.  )
  848. )
  849.  
  850. (complete 85)
  851.  
  852.  
  853. ;------mf fnt source---------------
  854. (if (IN instmask 6)
  855.  ( ; then
  856.    (makedir mfdir (infos))
  857.    (copyfiles (source (tackon sourcedir "mf/inputs"))
  858.               (dest   (tackon mfdir "inputs"))
  859.               (all))
  860.  )
  861. )
  862.  
  863.  
  864. (complete 99)
  865.  
  866. (startup @app-name (prompt  #startup-prompt)
  867.                    (help    #startup-help)
  868.                    (command (cat "assign TeX:   " @default-dest "\n"))
  869.                    (command (cat "assign MF:    " mfdir "\n"))
  870.                    (command (cat "assign PKVol: " (tackon sourcedir "pk") " " 
  871.                                                   (tackon sourcedir "pk/180x180") " "
  872.                                                   (tackon sourcedir "pk/300x300") " "
  873.                                                   (tackon sourcedir "pk/360x360") "\n"))
  874.                    (command "path TeX:bin MF:bin add")
  875. )
  876.  
  877. (complete 100)
  878.  
  879.  
  880. (exit)
  881.  
  882.