Amiga Format 109/af109sub.adf/ModePro4_39a.LZX/ModePro/InstallModePro

Text File | 1998-02-07 | 7.2 KB | 224 lines

; Install script for ModePro


( set ModePro "ModePro")
( set ModeProPrefs "ModeProPrefs" )

;-------------------------------------------------------------
( set Yes "Yes")
( set No  "No")

;-------------------------------------------------------------
( set Def_DaemonPath_WB      ( expandpath "Sys:WBStartup/" ) )
( set Def_DaemonPath_COM     ( expandpath "Sys:Tools/Commodities/" ) )
( set Def_PrefsPath          ( expandpath "Sys:Prefs/" ) )

;-------------------------------------------------------------
( set AskAutoRunMP     (cat @language "Automatically run ModePro when the computer boots?"))
( set AskAutoRunMPHelp  "HHHEEELLLPPPP!!!!" )


;-------------------------------------------------------------
( set AskStartHow               "How would you like ModePro started?\nPress 'Help' for more info.")
( set OptStartWBStartup         "Put ModePro in the WBStartup drawer")
( set OptStartUserStartup       "Start ModePro in the Startup-Sequence")
( set AskStartHowHelp           "ModePro can be started automatically on bootup two ways.  The simplest method is by placing ModePro in the WBStartup drawer.  The second way is to run ModePro from the s:User-Startup file, doing so allows ModePro to promote the Workbench screen." )

;-------------------------------------------------------------
( set AskPrefsPath      "ModeProPrefs allows you to edit ModePro's promotion options.  Where would you like to put the preferences editor?" )
( set AskPrefsPathHelp  ("Generally this should be in the %s drawer." Def_PrefsPath) )
( set AskDaemonPath     "This is the suggested path for ModePro.  Change it if you wish." )

;-------------------------------------------------------------
( set ToolTypeOptions  "Various options" )

( set AskCxPopKey    "Enter the hotkey that pops up the preferences interface." )
( set AskCxPri       "Enter the value of ModePro's commodity priority." )
( set AskCxPopup     "Would you like ModePro to popup the interface each time it is started.")

( set AskDeleteOld   "There appears to be another copy ModePro installed, delete it?")

;-----------------------------------------------------------------------
( set IM        "Installing ModePro...")

( set AskLang   "ModePro features a localized interface.  Which languages would you like to install  A few catalogs are not complete.")
( set OptLangDeutsch   "Deutsch" )
( set OptLangEspanol   "Español" )
( set OptLangFrancais  "Français" )
( set OptLangIslenska  "Íslenska" )
( set OptLangItaliano  "Italiano" )
( set OptLangNorsk     "Norsk"    )
( set OptLangPolski    "Polski"   )
( set OptLangRussian   "Russian"  )
( set OptLangSvenska   "Svenska"  )
( set OptLangTurkish   "türkçe"  )

( set SrcCatPath "catalogs/%s" )
( set DestCatPath "locale:catalogs/%s" )

;-----------------------------------------------------------------------

( set AskModifyUS     "The options you have chosen require the s:user-startup file to be modified." )
( set AskModifyUSHelp "The options you have chosen require the s:user-startup file to be modified." )


;-------- BEGIN ----------

( set AutoRun ( askbool (prompt  AskAutoRunMP )
                        (help    AskAutoRunMPHelp )
                        (default 0)
              )
)

( if AutoRun
    (
        ( set AutoHow ( askchoice (prompt   AskStartHow)
                                  (help     AskStartHowHelp)
                                  (choices  OptStartWBStartup OptStartUserStartup)
                                  (default  1)
                       )
        )
        ( if AutoHow
            (
                (set daemonpath Def_DaemonPath_COM)
                (set deldaemonpath Def_DaemonPath_WB)
            )
            (
                (set daemonpath Def_DaemonPath_WB)
                (set deldaemonpath Def_DaemonPath_COM)
            )
        )
    )
    (
        (set daemonpath Def_DaemonPath_COM)
        (set deldaemonpath Def_DaemonPath_WB)
    )
)



(set daemonpath ( askdir (prompt AskDaemonPath)
                          (help "Cow")
                          (default daemonpath)
) )

(set prefspath ( askdir (prompt  AskPrefsPath)
                               (help    AskPrefsPathHelp)
                               (default Def_PrefsPath)
                      )
)

( set ModeProPrefsCommand ( tackon ( prefspath)
                                   ( "ModeProPrefs")
                          )
)

( set cxpopkey ( askstring  (prompt AskCxPopKey)
                            (help "None")
                            (default "lamiga p")
               )
)

( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
                               (help "None")
                               (default 5)
                   )
            )
)

( set cxpopup (askchoice (prompt AskCxPopup)
                         (help "Sorry!")
                         (default 0)
                         (choices "No" "Yes")
              )
)

;-Set the tooltypes----------------------------------------------------

(tooltype (dest ModePro)
          (settooltype "CX_POPKEY" cxpopkey)
          (settooltype "CX_POPUP" (select cxpopup No Yes) )
          (settooltype "CX_PRIORITY" cxpri )
          (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
)

;--------------------------------------------------------------


(set oldmp ( tackon (deldaemonpath)
                    ("ModePro")
           )
)

(if (exists oldmp)
  (
    (if (askchoice (prompt AskDeleteOld ) (help "Ha ha") (default 1) (choices "No" "Yes") )
      (
        (delete oldmp (prompt "Deleting"))
        (delete (cat (oldmp) (".info") ) (prompt "Deleting") )
      )
    )
  )
)


(copyfiles (prompt IM)
           (help "Why did you do that?")
           (source ModePro)
           (infos)
           (dest daemonpath)
)

(set @default-dest daemonpath)

(copyfiles (prompt IM)
           (help "Hey, what are you doing?")
           (source ModeProPrefs)
           (infos)
           (dest prefspath)
)

(if (AND AutoRun AutoHow)
    (
        (startup "ModePro"
                 (prompt  AskModifyUS )
                 (help    AskModifyUSHelp )
                 (command (cat "Run <>NIL: ModePro" ) )
        )
    )
    (
       (startup "ModePro"
                 (prompt  AskModifyUS )
                 (help    AskModifyUSHelp )
                 (command ";Don't run ModePro from User-Startup")

        )
    )
)

(set WhichLang (askoptions (prompt AskLang)
                           (help AskLang)
                           (choices OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish)
                           (default 0)
)              )

(set optnumber 0)

( while ( < optnumber 10 )
  (set flag (BITAND (shiftright WhichLang optnumber) 1) )
  (debug optnumber flag)
  (if flag
    (
      (set lang     ( select optnumber OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish) )
      (debug lang)
      (set srcpath ( SrcCatPath  lang ) )
      (debug srcpath)
      (set dstpath ( DestCatPath lang ) )
      (debug dstpath)
      (makedir dstpath)
      (copyfiles  (prompt IM) (help "Why did you do that?") (source srcpath) (dest dstpath) (all) )
    )
  )
  (set optnumber (+ optnumber 1) )
)