; $VER: Install 1.0 (20.07.99)
; Installation-Script for the html.datatype

; ----- German string section -----

(set #language (getenv("language")))
(if( <> (strlen #language) 0)
(
  (set @language #language)
))

(if (= @language "deutsch")
(
 (set #overwrite-request
 (cat "Es wurde ein andere html.datatype gefunden (Version %ld.%ld).\n"
      "Soll er wirklich ersetzt werden?"))

 (set #datatype-prompt "html.datatype kopieren?")
)

; ----- English string section -----

(
 (set #overwrite-request
 (cat "It seems that you have another html.datatype (Version %ld.%ld) installed.\n"
      "Should it be replaced?"))
 (set #datatype-prompt "Copy html.datatype?")

))
; ----------------------------------

;(set @default-dest "RAM:")

(complete 0)

(if (= (exists "SYS:Classes/DataTypes/html.datatype") 1)
(
  (set vernum (getversion "SYS:Classes/DataTypes/html.datatype"))
  (set ver (/ vernum 65536))
  (set rev (- vernum (* ver 65536) ) )

  (if( > ver 38)
  (
    (set #overwrite (askbool (prompt (#overwrite-request ver rev))
                             (help @askbool-help)
                             (default 1)))

    (if( = #overwrite 0)
    (
      (exit)
    ))


  ))
))

(set @default-dest "SYS:")

(complete 25)

(copylib (prompt #datatype-prompt)
         (confirm)
         (source "html.datatype")
         (dest "SYS:Classes/DataTypes")
         (help @copylib-help))

(complete 50)

(copyfiles
           (source "HTML")
           (dest "DEVS:DataTypes")
           (infos)
           (noposition))

(complete 75)

(execute ("C:AddDataTypes REFRESH"))

(complete 100)
