; $VER: Install 1.0 (26.03.00)
; Installation-Script for the text.datatype

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

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

(if (= @language "deutsch")
(
 (set #overwrite-request
 (cat "Soll der vorhandene text.datatype (Version %ld.%ld) "
      "wirklich ersetzt werden?"))

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

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

(
 (set #overwrite-request
 (cat "Should the installed text.datatype (version %ld.%ld) really be"
      "replaced?"))
 (set #datatype-prompt "Copy text.datatype?")

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

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

(complete 0)

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

  (if(or (<> ver 44) (> rev 8))
  (
    (set #overwrite (askbool (prompt (#overwrite-request ver rev))
                             (help @askbool-help)
                             (default 1)))

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


  ))
))

(set @default-dest "SYS:")

(complete 50)

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

(complete 100)