(delopts "oknodelete" "force" "askuser")

(onerror

    (exit (quiet))
)

(if (= @installer-version 0)

    (set #html_esc "")
    (set #html_esc "")
)

(set app-name "HTML Syntax Parser")

(if (= @language "deutsch")

    (
        (set #html_found      "Diese Erweiterung wurde schon einmal installiert.\n\nWählen Sie INSTALLIEREN, um die Installation zu wiederholen oder ENTFERNEN, um zum originalen GoldED-Syntax-Parser zurückzukehren.")
        (set #html_welcome    "Mit diesem Programm wird der erweiterte HTML Syntax Parser für GoldED Studio auf Ihrem Computer installiert.")
        (set #html_badversion "Diese Software benötigt GoldED Studio 6 Service Pack 18 !")
        (set #html_components "Wählen Sie die Komponenten, die installiert werden sollen:")
        (set #html_install    "Installieren")
        (set #html_uninstall  "Entfernen")
        (set #html_golded     "Bitte installieren Sie GoldED, bevor Sie diese Installation ausführen !")
        (set #html_webworld   "Bitte installieren Sie Webworld von der GoldED-CD, bevor Sie diese Installation ausführen !")
    )

    ; English strings

    (
        (set #html_found      "Diese add-on has already been installed.\n\nChoose INSTALL to repeat installation or UNINSTALL to revert back to the original GoldED syntax parser.")
        (set #html_welcome    "This program installs the extended HTML syntax parser for GoldED Studio on your computer.")
        (set #html_badversion "This software requires GoldED Studio 6 Service Pack 18 !")
        (set #html_components "Select components to install:")
        (set #html_install    "Install")
        (set #html_uninstall  "Uninstall")
        (set #html_golded     "Please install GoldED before you install this add-on !")
        (set #html_webworld   "Please install Webworld from the GoldED CD bevor you install this add-on !")
    )
)

(if (exists "golded:" (NOREQ))

    (
        (set vernum (getversion "golded:golded"))

        (set ver (/ vernum 65536))
        (set rev (- vernum (* ver 65536)))

        (set version (+ (* 1000 ver) rev))

        (if (< version 6018)

            (
                (message #makeguide_badversion)
            )
        )

        ; already installed ?

        (if (exists "golded:add-ons/webworld/syntax/warpHTML.bak")

            (set @installmode

                (askbool

                    (prompt #html_found)

                    (choices

                        #html_install
                        #html_uninstall
                    )

                    (default 0)

                    (help #html_found_help)
                )
            )

            ; else

            (set @installmode 1)
        )

        ; installation

        (if (= @installmode 1)

            (
                (if (exists "golded:add-ons/webworld")

                    (
                        (set @options

                            (askoptions

                                (prompt #html_components)

                                (help @askoptions-help)

                                (default 1)

                                (choices

                                    (cat #html_esc "HTML Syntax Parser")
                                )
                            )
                        )

                        ; install syntax parser

                        (if (IN @options 0)

                            (
                                ; backup original parser

                                (if (not (exists "golded:add-ons/webworld/syntax/warpHTML.bak"))

                                    (copyfiles

                                        (source "golded:add-ons/webworld/syntax/warpHTML.parser")

                                        (dest "golded:add-ons/webworld/syntax")

                                        (newname "warpHTML.bak")
                                    )
                                )

                                ; install new parser

                                (copyfiles

                                    (source "syntax/warpHTML.parser")

                                    (dest "golded:add-ons/webworld/syntax")
                                )
                            )
                        )
                    )

                    ; else

                    (
                        (message #html_webworld)

                        (exit (quiet))
                    )
                )
            )
        )

        ; deinstallation

        (if (= @installmode 0)

            (
                ; restore original

                (copyfiles

                    (source "golded:add-ons/webworld/syntax/warpHTML.bak")

                    (dest "golded:add-ons/webworld/syntax")

                    (newname "warpHTML.parser")
                )

                ; remove backup

                (delete "golded:add-ons/webworld/syntax/warpHTML.bak")

                (exit (quiet))
            )
        )

        (exit)
    )

    ; else

    (
        (message #html_golded)

        (exit (quiet))
    )
)

(exit)

(welcome)