home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / installhd < prev    next >
Text File  |  1994-06-10  |  23KB  |  997 lines
  1. ; $VER: PasTeX 1.1 (20.5.94)
  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 a 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-600
  165. (cat "What set of 600x600dpi fonts do you want to install:"
  166. ))
  167.  
  168. (set #ask-600-help @askchoice-help
  169. )
  170.  
  171. (set #ask-pkfax
  172. (cat "What set of 204x196dpi fax-fonts do you want to install:"
  173. ))
  174.  
  175. (set #ask-pkfax-help @askchoice-help
  176. )
  177.  
  178. (set #ask-callmf
  179. (cat "How would you like to have the automatical font generation:"
  180. ))
  181.  
  182. (set #ask-callmf-help 
  183. (cat "The PasTeX DVI-drivers supports a possibility to automatical call Metafont for"
  184.      "missing fonts. The ENV: variable CALLMF decide how Metafont will be called.\n\n"
  185.      "If there is no ENV:CALLMF, no fontcreation will be done.\n\n"
  186.      "If CALLMF points to MF:rexx/MakeBatch.rexx, a script will be created with an"
  187.      "entry for each missing font. If you call the script, all fonts which are missed"
  188.      "will be created.\n\n"
  189.      "If CALLMF points to MF:rexx/MakeTeXFont.rexx, each missing font will be created"
  190.      "immediatly. But this can take some time."
  191. ))
  192.  
  193. (set #startup-prompt
  194. (cat "I have to add some commands to your S:User-Startup."
  195. ))
  196.  
  197. (set #startup-help
  198. (cat "I have to add some commands to your S:User-Startup.\n\n"
  199.      "PasTeX needs some assigns to work:\n"
  200.      "TeX:   root directory of the TeX installation.\n"
  201.      "MF:    root directory of Metafont.\n"
  202.      "PKVol: assignment to the pk-font directories of the\n"
  203.      "       CD-ROM. Needed for font-caching\n\n"
  204.      "Two path components are added too:\n"
  205.      "TeX:bin for the normal TeX programs/utilities\n"
  206.      "MF:bin  for the Metafont programs."
  207. ))
  208.  
  209. ;--------------------------------------------------------
  210.  
  211. ;
  212. ; copyfonts procedure
  213. ;
  214.  
  215. (procedure copyfonts
  216.   (makedir pkdestdir)
  217.   (set fntlst "(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5|cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10)")
  218.  
  219.   (if (= pkcopyopt 1)
  220.    ( ; then
  221.      ; small subset
  222.      (set fntpat (cat fntlst ".#?"))
  223.    )
  224.    ( ; else
  225.      ; all fonts (or no fonts at all!)
  226.      (set fntpat "#?")
  227.    )
  228.   )
  229.      
  230.   (if (<> pkcopyopt 0)
  231.    ( ; then 
  232.      ; there are fonts to copy
  233.      (foreach pksourcedir pkpat 
  234.        (if (= @each-type 2)
  235.         ( ; then directory
  236.           (copyfiles (source  (tackon pksourcedir @each-name))
  237.                      (dest    (tackon pkdestdir @each-name))
  238.                      (pattern fntpat))
  239.         )
  240.        )
  241.      )
  242.    )
  243.   )
  244. )
  245.  
  246.  
  247.  
  248.  
  249. ;--------------------------------------------------------
  250. ;--------------------------------------------------------
  251. ;--------------------------------------------------------
  252.  
  253.  
  254.  
  255. (set sourcedir (pathonly @icon))
  256.  
  257. (set target (askdir (prompt #ask-installdir)
  258.             (help   #ask-installdir-help)
  259.             (default "Work:")
  260.         )
  261. )
  262.  
  263. (set @default-dest (tackon target "TeX"))
  264. (set texbindir  (tackon @default-dest "bin"))
  265. (set formatdir  (tackon @default-dest "formats"))
  266. (set macdir     (tackon @default-dest "macros"))
  267. (set pkdir      (tackon @default-dest "pk"))
  268. (set mfdir      (tackon @default-dest "mf"))
  269. (set mfbindir   (tackon mfdir         "bin"))
  270.  
  271. (makedir @default-dest (infos))
  272.  
  273.  
  274. ;
  275. ; ---------------------------------------------------------------------------
  276. ;
  277. ; Welche Pakete sollen installiert werden?
  278. ;
  279. ; ---------------------------------------------------------------------------
  280. ;
  281.  
  282. (if (>= @user-level 1)
  283.  (set instmask (askoptions (choices "PasTeX programs"
  284.                     "TeX utilities"
  285.                     "TeX format files"
  286.                     "TeX macros"
  287.                     "pk-fonts"
  288.                     "Metafont programs"
  289.                     "Metafont font sources"
  290.                )
  291.                (prompt #ask-instmask)
  292.                (help   #ask-instmask-help)
  293.                (default 31)
  294.            )
  295.  )
  296.  (set instmask 31)
  297. )
  298.  
  299.  
  300.  
  301. ;
  302. ; ---------------------------------------------------------------------------
  303. ;
  304. ; Nun fuer alle zu installierenden Pakete diverse Fragen stellen
  305. ;
  306. ; ---------------------------------------------------------------------------
  307. ;
  308.  
  309.  
  310.  
  311. ;------PasTeX prg install----------
  312.  
  313. (if (IN instmask 0)
  314.  ( ; then 
  315.    (if (>= @user-level 1)
  316.     ((set texprgmask (askoptions (choices "initex/virtex"
  317.                              "initex/virtex big-version"
  318.                             "initex/virtex 020-version"
  319.                             "initex/virtex big-020-version"
  320.                             )
  321.                            (prompt #ask-texprgmask)
  322.                            (help   #ask-texprgmask-help)
  323.                            (default 1)
  324.                )
  325.     ))
  326.     ((set texprgmask 1)
  327.    ))
  328.  )
  329.  ( ; else
  330.    (set texprgmask 0)
  331.  )
  332. )
  333.   
  334.  
  335.  
  336. ;------Utilities-------------------
  337. (if (IN instmask 1)
  338.  ( ; then
  339.    (user 2)
  340.    (set texutilmask (askoptions (prompt #ask-texutil)
  341.                         (help #ask-texutil-help)
  342.                         (choices     "bibtex"
  343.                              "bm2font"
  344.                              "c++2latex"
  345.                              "dvi2tty"
  346.                              "dvidvi"
  347.                              "dviLJ2p"
  348.                         "dvips"
  349.                         "dvips (68020 version)"
  350.                         "dvitype"
  351.                         "lacheck (LaTeX check)"
  352.                         "fig / fig2dev / TransFig"
  353.                         "makeindex"
  354.                         "pbmtopk / pktopbm"
  355.                         )
  356.                         (default 0)
  357.