home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / text / dvi_3.62 / install_dvi < prev    next >
Text File  |  1994-11-17  |  11KB  |  396 lines
  1. ; $VER: Install DVI & DVILW 3.62 (29.01.94)
  2. ;
  3. ;       Installer Script fⁿr DVI & DVILW 3.62
  4. ;       Version:  1.01
  5. ;       Autor:    Markus Zahn
  6. ;
  7.  
  8. ( complete 0 )
  9. ( set @default-dest "TeX:" )
  10. ( set lha_prog "LhA" )
  11.  
  12. ( if ( exists "ENV:TEXCONFIG" )
  13.   ( set config_dest ( getenv "TEXCONFIG" ) )
  14.   ( set config_dest "TeX:config" )
  15. )
  16.  
  17. ( welcome )
  18.  
  19. ( if ( set TeX ( getassign "TeX" "a" ) )
  20.   ( message
  21.       "\nIhre TeX Installation scheint sich im Verzeichnis\n" TeX "\n"
  22.       "zu befinden. Die Treiber werden standardmΣ▀ig in das Verzeichnis "
  23.       "TeX:bin kopiert. Die zugeh÷rigen Konfigurationsdatein werden im Ordner "
  24.       "TeX:config abgelegt."
  25.   )
  26.   (
  27.     ( message
  28.         "\nVerzeichnis TeX: nicht gefunden!\n"
  29.         "Vielleicht haben Sie TeX nocht nicht auf Ihrem System installiert? "
  30.         "In diesem Fall installieren Sie bitte zuerst Ihre TeX Version. "
  31.         "Ansonsten sollten Sie das logische Laufwerk TeX: einrichten."
  32.     )
  33.     ( set TeX
  34.       ( tackon
  35.         ( askdir
  36.           ( prompt
  37.               "Welches Verzeichnis wollen Sie dem logischen Laufwerk "
  38.               "TeX: zuordnen?"
  39.           )
  40.           ( help @askdir-help )
  41.           ( default "Work:" )
  42.         )
  43.         ""
  44.       )
  45.     )
  46.     ( makeassign "TeX" TeX )
  47.   )
  48. )
  49.  
  50. ( set TeX "TeX:" )
  51.  
  52. ;
  53. ; Copy executables and support files.
  54. ;
  55.  
  56. ( set bin_dest
  57.   ( tackon
  58.     ( askdir
  59.       ( prompt
  60.           "In welches Verzeichnis sollen die beiden Treiber DVI "
  61.           "und DVILW kopiert werden?"
  62.       )
  63.       ( help
  64.           "Das vorgeschlagene Verzeichnis ist \"TeX:bin\". Der gewΣhlte "
  65.           "Ordner sollte sich auf jeden Fall im Suchpfad Ihres Systems befinden, "
  66.           "es sei denn Sie verwenden DVI und DVILW ausschlie▀lich von der "
  67.           "Workbench aus. Auf Wunsch k÷nnen die entsprechenden Anweisungen spΣter "
  68.           "in der Datei S:User-Startup eingetragen werden.\n\n"
  69.           @askdir-help
  70.       )
  71.       ( default ( tackon TeX "bin" ) )
  72.     )
  73.     ""
  74.   )
  75. )
  76.  
  77. ( copyfiles
  78.   ( prompt "Die Treiber werden kopiert..." )
  79.   ( help @copyfiles-help )
  80.   ( all )
  81.   ( source "Bin" )
  82.   ( dest bin_dest )
  83.   ( infos )
  84. )
  85.  
  86. ( complete 5 )
  87.  
  88. ( set config_dest
  89.   ( tackon
  90.     ( askdir
  91.       ( prompt
  92.           "In welches Verzeichnis sollen die Konfigurationsdateien "
  93.           "kopiert werden?"
  94.       )
  95.       ( help
  96.           "Der vorgeschlagene Ordner fⁿr die Konfigurationsdateien ist "
  97.           "entweder das in der Environmentvariablen \"TEXCONFIG\" gespeicherte "
  98.           "Verzeichnis, oder der Ordner TeX:config.\n\n"
  99.           @askdir-help
  100.       )
  101.       ( default config_dest )
  102.     )
  103.     ""
  104.   )
  105. )
  106.  
  107. ( copyfiles
  108.   ( prompt "Die Konfigurationsdateien werden kopiert..." )
  109.   ( help @copyfiles-help )
  110.   ( choices "dvilw.map" "dvilw.ps" )
  111.   ( source "Config" )
  112.   ( dest config_dest )
  113. )
  114.  
  115. ( complete 10 )
  116.  
  117. ( set rexx_dest
  118.   ( tackon
  119.     ( askdir
  120.       ( prompt
  121.           "In welchen Ordner soll das mitgelieferte ARexx Skript "
  122.           "kopiert werden?"
  123.       )
  124.       ( help
  125.           "Der vorgeschlagene Ordner fⁿr ARexx Dateien ist \"Rexx:\". "
  126.           "Sollten Sie ein anderes Verzeichnis audwΣhlen, so sollte der "
  127.           "entsprechende Pfad in den Konfigurationsdateien \"dvi.opt\" sowie "
  128.           "\"dvilw.opt\" eingetragen werden. Diese Eintragungen werden spΣter "
  129.           "fⁿr Sie vorgenommen. Beachten Sie, da▀ der Pfad des ARexx-Skripts "
  130.           "unter keinen UmstΣnden Leerzeichen enthalten darf, da es sonst zu "
  131.           "Fehlern bei der automatischen Zeichensatzerzeugung kommt.\n\n"
  132.           @askdir-help
  133.       )
  134.       ( default "Rexx:" )
  135.     )
  136.     ""
  137.   )
  138. )
  139.  
  140. ( copyfiles
  141.   ( prompt "Das ARexx Skript wird kopiert..." )
  142.   ( help @copyfiles-help )
  143.   ( all )
  144.   ( source "Rexx" )
  145.   ( dest rexx_dest )
  146. )
  147.  
  148. ( complete 11 )
  149.  
  150. ;
  151. ; Copy manual
  152. ;
  153.  
  154. ( if
  155.     ( askbool
  156.       ( prompt
  157.           "\nWollen Sie die Dokumentation zu DVI und DVILW installieren?\n"
  158.           "Die Dokumentation besteht aus der DVI Datei \"Driver.dvi\" sowie den "
  159.           "(gepackten) TeX Quelldateien \"dviman.lha\". Auf Wunsch kann das Archiv "
  160.           "spΣter fⁿr Sie entpackt werden."
  161.       )
  162.       ( help @askbool-help )
  163.       ( default 1 )
  164.     )
  165.   (
  166.     ( set doc_dest
  167.       ( tackon
  168.         ( askdir
  169.           ( prompt "In welches Verzeichnis soll die Anleitung kopiert werden?" )
  170.           ( help @askdir-help )
  171.           ( default ( tackon TeX "manual" ) )
  172.         )
  173.         ""
  174.       )
  175.     )
  176.     ( copyfiles
  177.       ( prompt "Die Anleitung wird kopiert..." )
  178.       ( help @copyfiles-help )
  179.       ( all )
  180.       ( source "Manual" )
  181.       ( dest doc_dest )
  182.     )
  183.  
  184.     ( complete 20 )
  185.  
  186.     ( if
  187.         ( askbool
  188.           ( prompt
  189.               "\nWollen Sie die TeX Quelldateien der Anleitung extrahieren?\n"
  190.               "Diese Operation setzt die Existenz des Programms \"LhA\" voraus. "
  191.               "Ohne dieses Programm k÷nnen die Dateien nicht entpackt werden."
  192.           )
  193.           ( help
  194.               "Das Programm \"LhA\" existiert in einer Amiga Implementation "
  195.               "von Stefan Boberg. LhA ist Shareware, existiert aber ebenfalls "
  196.               "in einer \"Evaluation\" Version, die zum Kennenlernen z.B. ⁿber "
  197.               "das Aminet frei verfⁿgbar ist.\n\n"
  198.               @askbool-help )
  199.           ( default 1 )
  200.         )
  201.       (
  202.         ( set arc_file ( tackon doc_dest "dviman.lha" ) )
  203.         ( set lha_prog
  204.           ( askfile
  205.             ( prompt
  206.                 "Geben Sie bitte Pfad und Namen Ihres LhA kompatiblen "
  207.                 "Programms an."
  208.             )
  209.             ( help @askfile-help )
  210.             ( default lha_prog )
  211.           )
  212.         )
  213.         ( working "Die Dokumentation wird entpackt..." )
  214.         ( makeassign "dvi_uniaug_doc" doc_dest )
  215.         ( set ret_val
  216.           ( run
  217.             ( cat lha_prog " e \"" arc_file "\" dvi_uniaug_doc:" )
  218.           )
  219.         )
  220.         ( if ( <> ret_val 0 )
  221.           ( message
  222.               "\nDie TeX Quelldateien konnten nicht erfolgreich enpackt "
  223.               "werden... :-(\n"
  224.               "Vielleicht konnte Ihr LhA kompatibles Programm nicht gefunden "
  225.               "werden. Sie k÷nnen die TeX Quelldateien aber jederzeit von Hand "
  226.               "nachinstallieren."
  227.           )
  228.         )
  229.         ( makeassign "dvi_uniaug_doc" )
  230.       )
  231.     )
  232.   )
  233. )
  234.  
  235. ( complete 50 )
  236.  
  237. ;
  238. ; Copy source
  239. ;
  240.  
  241. ( if
  242.     ( askbool
  243.       ( prompt
  244.           "\nWollen Sie die C Quelltexte zu DVI und DVILW installieren?\n"
  245.           "Die (gepackten) C Quelldateien sind im Archiv \"dvisrc.lha\" "
  246.           "enthalten. Auf Wunsch kann das Archiv spΣter fⁿr Sie entpackt werden."
  247.       )
  248.       ( help @askbool-help )
  249.       ( default 1 )
  250.     )
  251.   (
  252.     ( set src_dest
  253.       ( tackon
  254.         ( askdir
  255.           ( prompt "In welches Verzeichnis sollen die Quelldateien kopiert werden?" )
  256.           ( help @askdir-help )
  257.           ( default ( tackon TeX "source" ) )
  258.         )
  259.         ""
  260.       )
  261.     )
  262.     ( copyfiles
  263.       ( prompt "Das Archiv mit den Quelldateien wird kopiert..." )
  264.       ( help @copyfiles-help )
  265.       ( all )
  266.       ( source "Source" )
  267.       ( dest src_dest )
  268.     )
  269.  
  270.     ( complete 60 )
  271.  
  272.     ( if
  273.         ( askbool
  274.           ( prompt
  275.               "\nWollen Sie die C Quelltexte von DVI und DVILW extrahieren?\n"
  276.               "Diese Operation setzt die Existenz des Programms \"LhA\" voraus. "
  277.               "Ohne dieses Programm k÷nnen die Dateien nicht entpackt werden."
  278.           )
  279.           ( help
  280.               "Das Programm \"LhA\" existiert in einer Amiga Implementation "
  281.               "von Stefan Boberg. LhA ist Shareware, existiert aber ebenfalls "
  282.               "in einer \"Evaluation\" Version, die zum Kennenlernen z.B. ⁿber "
  283.               "das Aminet frei verfⁿgbar ist.\n\n"
  284.               @askbool-help )
  285.           ( default 1 )
  286.         )
  287.       (
  288.         ( set arc_file ( tackon src_dest "dvisrc.lha" ) )
  289.         ( set lha_prog
  290.           ( askfile
  291.             ( prompt
  292.                 "Geben Sie bitte Pfad und Namen Ihres LhA kompatiblen "
  293.                 "Programms an."
  294.             )
  295.             ( help @askfile-help )
  296.             ( default lha_prog )
  297.           )
  298.         )
  299.         ( working "Die C Quelltexte werden entpackt..." )
  300.         ( makeassign "dvi_uniaug_src" src_dest )
  301.         ( set ret_val
  302.           ( run
  303.             ( cat lha_prog " e \"" arc_file "\" dvi_uniaug_src:" )
  304.           )
  305.         )
  306.         ( if ( <> ret_val 0 )
  307.           ( message
  308.               "\nDie C Quelltexte konnten nicht erfolgreich enpackt "
  309.               "werden... :-(\n"
  310.               "Vielleicht konnte Ihr LhA kompatibles Programm nicht gefunden "
  311.               "werden. Sie k÷nnen die TeX Quelldateien aber jederzeit von Hand "
  312.               "nachinstallieren."
  313.           )
  314.         )
  315.         ( makeassign "dvi_uniaug_src" )
  316.       )
  317.     )
  318.   )
  319. )
  320.  
  321. ( complete 90 )
  322.  
  323. ;
  324. ; Optionsdateien anpassen...
  325. ;
  326.  
  327. ( set drucker ( askchoice
  328.     ( prompt "Welchen Drucker m÷chten Sie verwenden?" )
  329.     ( choices
  330.         "Keinen"
  331.         "HP PCL Kompatibler; 300x300 dpi"
  332.         "HP PCL kompatibler; 100x100 dpi"
  333.         "NEC P6 Kompatibler; 360x360 dpi"
  334.         "NEC P6 Kompatibler; 360x180 dpi"
  335.         "NEC P6 Kompatibler; 180x180 dpi"
  336.         "Epson FX-80 oder Kompatibler; 240x216 dpi"
  337.         "Canon BJ-300 oder Kompatibler; 300x300 dpi"
  338.     )
  339.     ( default 0 )
  340.     ( help
  341.       "Bitte geben Sie den Drucker an, auf den DVI konfiguriert werden soll. "
  342.       "Sollten Sie keinen Drucker an Ihren Amiga angeschlossen haben, oder "
  343.       "sollten Sie ausschlie▀lich Ausgaben auf PostScriptfΣhigen Druckern "
  344.       "erzeugen, k÷nnen Sie hier \"Keinen\" selektieren. In allen anderen "
  345.       "FΣllen wΣhlen Sie:\n\n"
  346.       "\"HP PCL ...\" fⁿr Drucker die zum HP Laserjet kompatibel sind, wie z.B. "
  347.       "HP Deskjet, Olivetti JP-350, OKI OL400e etc.\n\n"
  348.       "\"NEC P6 ...\" fⁿr Drucker mit NEC P6 kompatiblem Befehlssatz.\n\n"
  349.       "\"Epson FX-80 ...\" fⁿr Drucker, die zum Epson FX-80 kompatibel sind, wie "
  350.       "z.B. der Star LC-10\n\n"
  351.       "\"Canon BJ-300 ...\" fⁿr Drucker mit Canon BJ-300 kompatiblem "
  352.       "Befehlssatz.\n\n"
  353.       @askchoice-help
  354.     )
  355.   )
  356. )
  357.  
  358. ( if ( = drucker 0 ) ( set output "NONE" ) )
  359. ( if ( = drucker 1 ) ( set output "HPHIGH" ) )
  360. ( if ( = drucker 2 ) ( set output "HPLOW" ) )
  361. ( if ( = drucker 3 ) ( set output "P6HIGH" ) )
  362. ( if ( = drucker 4 ) ( set output "P6MID" ) )
  363. ( if ( = drucker 5 ) ( set output "P6LOW" ) )
  364. ( if ( = drucker 6 ) ( set output "FX80" ) )
  365. ( if ( = drucker 7 ) ( set output "BJ300" ) )
  366.  
  367. ( textfile
  368.   ( dest ( tackon config_dest "dvi.opt" ) )
  369.   ( append
  370.       "HRESOLUTION=100\n"
  371.       "VRESOLUTION=100\n\n"
  372.       "CALLMF=" ( tackon rexx_dest "MakePKFont.rexx" ) "\n"
  373.       "PKPATH=TeX:pk/%hx%v/%s.%dpk\n"
  374.       "TFMPATH=TeX:fonts\n"
  375.       "VFPATH=TeX:vfps\n\n"
  376.       "OUTPUT=" output "\n"
  377.   )
  378.   ( help @textfile-help )
  379. )
  380.  
  381. ( message
  382.     "Die Konfigurationsdatei \"dvi.opt\" im Verzeichnis \"" config_dest "\" "
  383.     "wurde entsprechend Ihren Angaben modifiziert. Sie k÷nnen diese Einstellungen "
  384.     "jederzeit entweder ⁿber DVI (Save Options) oder mit einem beliebigen Editor "
  385.     "an Ihre Bedⁿrfnisse anpassen. Beachten Sie, da▀ der Pfad und der Name "
  386.     "externer ARexx-Skripte NIEMALS Leerzeichen enthalten darf, da es sonst zu "
  387.     "Fehlern bei der ausfⁿhrung kommt."
  388. )
  389.  
  390. ;
  391. ; Completed...
  392. ;
  393.  
  394. ( set @default-dest bin_dest )
  395. ( complete 100 )
  396.