Laboratoire ICAR » Plateforme TXM

set installdir=%~dp0

set DEBUG=0

set VERSION=0.8.0

set USERHOME=%USERPROFILE%\

IF NOT EXIST ROAMINGINSTALL GOTO ROAMINGINSTALLDONE

echo "The 'roaming' install option is set."

set USERHOME=%HOMEDRIVE%%HOMEPATH%\

echo "USERHOME set to %USERHOME%"

:ROAMINGINSTALLDONE

IF NOT EXIST ASKUSERDIRECTORY GOTO ASKUSERDIRECTORYDONE

echo "The 'ask user directory' install option is set."

for /f "tokens=*" %%a in ('TXM\jre\bin\java -jar StartDialog.jar') do set USERHOME=%%a\

echo "USERHOME set to %USERHOME%"

:ASKUSERDIRECTORYDONE

IF EXIST "%USERHOME%" GOTO USERHOMEOK

echo "%USERHOME% does not exist. Aborting"

msg * "TXM could not start using the USERHOME='%USERHOME%' directory."

GOTO:EOF

:USERHOMEOK

set TXMHOME=%USERHOME%TXM_%VERSION%\

set DOTTXM=%TXMHOME%.txm\

mkdir "%TXMHOME%" 

mkdir "%DOTTXM%" 

(

echo "TXM: getting install date from %installdir%STAMP and %DOTTXM%STAMP files" 

Fc "%installdir%STAMP" "%DOTTXM%STAMP" 

) >"%TXMHOME%TXMOutputLogs.txt" 2>"%TXMHOME%TXMErrorLogs.txt" 

IF errorlevel 1 (goto :install) else (goto :run)

:install

(

echo "New TXM install: it's the first launch after the installation." 

del "%temp%\org.txm.rcpapplication.prefs" 

copy "%DOTTXM%configuration\.settings\org.txm.rcpapplication.prefs" "%temp%\org.txm.rcpapplication.prefs" 

copy "%DOTTXM%.metadata\.plugins\org.eclipse.core.runtime\.settings\org.txm.rcpapplication.prefs" "%temp%\org.txm.rcpapplication.prefs" 

copy "%DOTTXM%data\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.txm.rcpapplication.prefs" "%temp%\org.txm.rcpapplication.prefs" 

rmdir "%DOTTXM%" /s /q

IF errorlevel 1 (echo "TXM: failed to delete %DOTTXM% directory.")

mkdir "%DOTTXM%" 

IF errorlevel 1 (echo "TXM: failed to create %DOTTXM% directory.")

copy "%installdir%TXM.ini" "%DOTTXM%TXM.ini" 

IF errorlevel 1 (echo "TXM: failed to copy %DOTTXM%TXM.ini file")

copy "%temp%\org.txm.rcpapplication.prefs" "%DOTTXM%org.txm.rcpapplication.prefs" 

mkdir "%DOTTXM%user" 

IF errorlevel 1 (echo "TXM: failed to create %DOTTXM%user directory.")

mkdir "%DOTTXM%data" 

IF errorlevel 1 (echo "TXM: failed to create %DOTTXM%data directory.")

copy "%installdir%STAMP" "%DOTTXM%STAMP" 

IF errorlevel 1 (echo "TXM: failed to copy %DOTTXM%STAMP file")

) >"%TXMHOME%TXMOutputLogs.txt" 2>"%TXMHOME%TXMErrorLogs.txt" 

:run

(

set _JAVA_OPTIONS=-Duser.home="%USERHOME%"

echo running "%installdir%TXM.exe" -run --launcher.ini "%DOTTXM%TXM.ini" -data "%DOTTXM%data" -user "%DOTTXM%user" -install "%installdir%" 

"%installdir%\TXM.exe" -run --launcher.ini "%DOTTXM%TXM.ini" -data "%DOTTXM%data" -user "%DOTTXM%user" -install "%installdir%" 

) >"%TXMHOME%TXMOutputLogs.txt" 2>"%TXMHOME%TXMErrorLogs.txt" 

@start explorer "%appdata%"

!include MUI2.nsh
+!include MUI2.nsh

!include nsDialogs.nsh
+!include nsDialogs.nsh

!include LogicLib.nsh
+!include LogicLib.nsh

+;general

;general
+Name "TXM 0.8.0"

Name "TXM 0.8.0"
+OutFile "TXM_0.8.0_Win64_installer.exe"

OutFile "TXM_0.8.0_Win64_installer.exe"
+InstallDir "$PROGRAMFILES64\TXM"

InstallDir "$PROGRAMFILES64\TXM"
+RequestExecutionLevel admin

RequestExecutionLevel admin
+;compression

+SetCompressor /FINAL /SOLID lzma

;compression
+SetCompressorDictSize 64

SetCompressor /FINAL /SOLID lzma
 

SetCompressorDictSize 64
+;interface configuration

+!define MUI_HEADERIMAGE

;interface configuration
+!define MUI_HEADERIMAGE_RIGHT

!define MUI_HEADERIMAGE
+!define MUI_HEADERIMAGE_BITMAP "header.bmp"

!define MUI_HEADERIMAGE_RIGHT
+!define MUI_HEADERIMAGE_UNBITMAP "header.bmp"

!define MUI_HEADERIMAGE_BITMAP "header.bmp"
+!define MUI_ICON "install.ico"

!define MUI_HEADERIMAGE_UNBITMAP "header.bmp"
+!define MUI_UNICON "uninstall.ico"

!define MUI_ICON "install.ico"
+!define MUI_WELCOMEFINISHPAGE_BITMAP "welcome.bmp" ; optional

!define MUI_UNICON "uninstall.ico"
 

!define MUI_WELCOMEFINISHPAGE_BITMAP "welcome.bmp" ; optional
+;Welcome conf

+;!define MUI_WELCOMEFINISHPAGE_BITMAP "welcome.bmp" ; optional

;Welcome conf
+!define MUI_WELCOMEPAGE_TITLE $(WelcomeTitleMessage)

;!define MUI_WELCOMEFINISHPAGE_BITMAP "welcome.bmp" ; optional
+!define MUI_WELCOMEPAGE_TEXT $(WelcomeTextMessage)

!define MUI_WELCOMEPAGE_TITLE $(WelcomeTitleMessage)
 

!define MUI_WELCOMEPAGE_TEXT $(WelcomeTextMessage)
+;Finish conf

+!define MUI_FINISHPAGE_TITLE $(FinishTitleMessage)

;Finish conf
+!define MUI_FINISHPAGE_TEXT $(FinishTextMessage)

!define MUI_FINISHPAGE_TITLE $(FinishTitleMessage)
 

!define MUI_FINISHPAGE_TEXT $(FinishTextMessage)
+;pages

;pages
+!insertmacro MUI_PAGE_WELCOME

-

!insertmacro MUI_PAGE_WELCOME
-

LangString AdvancedOptionsTitle ${LANG_FRENCH} "Options avanc�es"

LangString AdvancedOptionsSubTitle ${LANG_FRENCH} "Ne cocher ces options que pour des configurations Windows particuli�res"

LangString LocalInstallMessage ${LANG_FRENCH} "Ne pas utiliser le r�pertoire utilisateur local (cocher cette option si vous souhaitez utiliser un r�pertoire de connexion de compte itin�rant)."
+LangString AdvancedOptionsTitle ${LANG_FRENCH} "Options avanc?es"

LangString AskUserDirMessage ${LANG_FRENCH} "Ne pas utiliser le r�pertoire utilisateur comme r�pertoire de travail de TXM (cocher cette option pour stocker les corpus sur une cl� USB ou sur un disque distant. Dans ce cas, le chemin du r�pertoire de travail sera demand� � chaque lancement de TXM)."
+LangString AskUserDirMessage ${LANG_FRENCH} "Ne pas utiliser le r?pertoire utilisateur comme r?pertoire de travail de TXM (cocher cette option pour stocker les corpus sur une cl? USB ou sur un disque distant. Dans ce cas, le chemin du r?pertoire de travail sera demand? chaque lancement de TXM)."
 

LangString InfosTextMessage ${LANG_FRENCH} "Si TXM est d�j� install� sur cette machine, cet installeur le supprimera pour commencer (les corpus existants ne seront pas supprim�s). Pour annuler l'installation, vous pouvez fermer cette fen�tre.$\n$\nConfiguration minimum: Windows Vista 64bit"
+LangString InfosTextMessage ${LANG_FRENCH} "Si TXM est d?j? install? sur cette machine, cet installeur le supprimera pour commencer (les corpus existants ne seront pas supprim?s). Pour annuler l'installation, vous pouvez fermer cette fen?tre.$\n$\nConfiguration minimum: Windows Vista 64bit"
 

LangString WelcomeTextMessage ${LANG_FRENCH} "TXM vous est fourni gracieusement. En contre-partie, dans l'esprit du logiciel libre, vous �tes invit� � participer � son am�lioration. Pour cela, vous n'�tes pas oblig� d'�tre d�veloppeur informatique, vous pouvez :$\n * transmettre vos publications ou supports de cours ;$\n * proposer des corrections ou am�liorations ;$\n *  traduire l'interface ou la documentation ;$\n * monter un projet pour adapter TXM � vos besoins ;$\n * etc.$\n$\n Voir la rubrique 'Contribuer' du wiki des utilisateurs de TXM : https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n N'h�sitez pas � nous contacter pour de plus amples informations : 'textometrie AT groupes.renater DOT fr'."
+LangString WelcomeTextMessage ${LANG_FRENCH} "TXM vous est fourni gracieusement. En contre-partie, dans l'esprit du logiciel libre, vous ?tes invit? ? participer ? son am?lioration. Pour cela, vous n'?tes pas oblig? d'?tre d?veloppeur informatique, vous pouvez :$\n * transmettre vos publications ou supports de cours ;$\n * proposer des corrections ou am?liorations ;$\n *  traduire l'interface ou la documentation ;$\n * monter un projet pour adapter TXM ? vos besoins ;$\n * etc.$\n$\n Voir la rubrique 'Contribuer' du wiki des utilisateurs de TXM : https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n N'h?sitez pas ? nous contacter pour de plus amples informations : 'textometrie AT groupes.renater DOT fr'."
 

LangString FinishTitleMessage ${LANG_FRENCH} "Installation termin�e."
+LangString FinishTitleMessage ${LANG_FRENCH} "Installation termin?e."
 

LangString FinishTextMessage ${LANG_FRENCH} "L'installation s'est correctement termin�e. Une entr�e 'TXM' a �t� ajout�e au menu D�marrer.$\n$\nSi vous souhaitez �tiqueter et lemmatiser automatiquement vos corpus avec le logiciel TreeTagger lors de l'import, vous devez suivre les instructions d'installation suppl�mentaires fournies dans le menu 'Aide > Installer TreeTagger'."
+LangString FinishTextMessage ${LANG_FRENCH} "L'installation s'est correctement termin?e. Une entr?e 'TXM' a ?t? ajout?e au menu D?marrer.$\n$\nSi vous souhaitez ?tiqueter et lemmatiser automatiquement vos corpus avec le logiciel TreeTagger lors de l'import, vous devez suivre les instructions d'installation suppl?mentaires fournies dans le menu 'Aide > Installer TreeTagger'."
 

LangString ErrorArch32Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst�me 32 bits, or votre syst�me semble �tre 64 bits. Il faudrait t�l�charger et installer la version 64 bits de TXM. Voulez-vous malgr� tout continuer cette installation ?"
+LangString ErrorArch32Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst?me 32 bits, or votre syst?me semble ?tre 64 bits. Il faudrait t?l?charger et installer la version 64 bits de TXM. Voulez-vous malgr? tout continuer cette installation ?"
 

LangString ErrorArch64Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst�me 64 bits, or votre syst�me semble �tre 32 bits. Il faudrait t�l�charger et installer la version 32 bits de TXM. Voulez-vous malgr� tout continuer cette installation ?"
+LangString ErrorArch64Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst?me 64 bits, or votre syst?me semble ?tre 32 bits. Il faudrait t?l?charger et installer la version 32 bits de TXM. Voulez-vous malgr? tout continuer cette installation ?"
 

LangString UninstallWindowsMessage ${LANG_FRENCH} "TXM est d�j� install� sur cette machine. Veuillez cliquer sur 'OK' pour d�sinstaller cette version au pr�alable (les corpus seront conserv�s). Ou cliquez sur 'Annuler' pour interrompre l'installation. Merci de vous assurer que TXM n'est pas en cours d'ex�cution pendant l'installation."
+LangString UninstallWindowsMessage ${LANG_FRENCH} "TXM est d?j? install? sur cette machine. Veuillez cliquer sur 'OK' pour d?sinstaller cette version au pr?alable (les corpus seront conserv?s). Ou cliquez sur 'Annuler' pour interrompre l'installation. Merci de vous assurer que TXM n'est pas en cours d'ex?cution pendant l'installation."
 

FunctionEnd
+FunctionEnd

-

Section "Copy files" SecFiles
-

	#we install txm in INSTDIR
-

	SetOutPath $INSTDIR
-

	file /r plugins
-	file /r features
-	file /r configuration
-	file /r jre
-	file /r p2
-

	file /r cwb
-

	file /r doc
-

	file /r schema
-

	file /r scripts
-

	file /r samples
-

	file /r xsl
-

	file /r css
-

	file TXM.ico
-

	file TXM.bat
-

	file TXM.vbs
+Section "Copy files" SecFiles

	file StartDialog.jar
+	#we install txm in INSTDIR

	file OpenStartUpLogsDirectory.bat
-

	file IEShims.dll
-

	file libcharset-1.dll
-

	file libglib-2.0-0.dll
-

	file libgnurx-0.dll
-

	file libiconv-2.dll
-

	file libintl-8.dll
-

	file libpcre-1.dll
-

	file pcre3.dll
-

	# hide TXM.exe
-

	SetFileAttributes "$INSTDIR/TXM.exe" HIDDEN
-

	
-

	# the users right on install dir to enable updates
-

	AccessControl::GrantOnFile "$INSTDIR\TXM" "(S-1-5-32-545)" "FullAccess"
-

	#we create the uninstaller
-

	WriteUninstaller "$INSTDIR\uninstall.exe"
-
-

	#we set the shortcuts
-

	SetShellVarContext all
-

	CreateDirectory "$SMPROGRAMS\TXM"
-

	CreateShortCut "$SMPROGRAMS\TXM\TXM.lnk" "$INSTDIR\TXM.bat" "$INSTDIR\TXM.ico"
-

	CreateShortCut "$SMPROGRAMS\TXM\uninstall.lnk" "$INSTDIR\uninstall.exe"
-

	#CreateShortCut "$SMPROGRAMS\TXM\Manuel utilisateur FR.pdf.lnk" "$INSTDIR\doc\Manuel de TXM 0.7 FR.pdf"
-

	#CreateShortCut "$SMPROGRAMS\TXM\User Manual EN.pdf.lnk" "$INSTDIR\doc\TXM 0.7 Manual EN.pdf"
-

-

	; Store installation folder
-

	WriteRegStr HKCU "Software\TXM" "" $INSTDIR
-

	
-

	#register the TXM uninstall to windows programs
-

	WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\TXM" "UninstallString" "$\"$INSTDIR\uninstall.exe$\""
-

	WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\TXM" "QuietUninstallString" "$\"$INSTDIR\uninstall.exe$\" /S"
+	WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\TXM" "QuietUninstallString" "$\"$INSTDIR\uninstall.exe$\" /S"

SectionEnd
+Function WriteToFile

+	Exch $0 ;file to write to

Function WriteToFile
 

	Exch $0 ;file to write to
+### TimeStamp

	Exch
+!ifndef TimeStamp

	Exch $1 ;text to write
+    !define TimeStamp "!insertmacro _TimeStamp"

	FileOpen $0 $0 a #open file
 

	FileSeek $0 0 END #go to end
+Function ${UN}__TimeStamp

	FileWrite $0 $1 #write to file
+    ClearErrors

	FileClose $0
+!macroend

	Pop $1
+!insertmacro __TimeStamp ""

	Pop $0
+!insertmacro __TimeStamp "un."

FunctionEnd
+!endif

+###########

### TimeStamp
 

!ifndef TimeStamp
+Section "WriteInstallStamp" secStamp

    !define TimeStamp "!insertmacro _TimeStamp"
+	${TimeStamp} $0

    !macro _TimeStamp FormatedString
 

        !ifdef __UNINSTALL__
+Section "WriteInstallPrefs" secPrefs

            Call un.__TimeStamp
+	#we set the default preferences

        !else
+	FileOpen $4 "$INSTDIR\install.prefs" a

            Call __TimeStamp
 

        !endif
-

        Pop ${FormatedString}
-

    !macroend
-

 
-

!macro __TimeStamp UN
-

-

Function ${UN}__TimeStamp
-

    ClearErrors
-

    ## Store the needed Registers on the stack
-

        Push $0 ; Stack $0
-

        Push $1 ; Stack $1 $0
-

        Push $2 ; Stack $2 $1 $0
-

        Push $3 ; Stack $3 $2 $1 $0
-

        Push $4 ; Stack $4 $3 $2 $1 $0
-

        Push $5 ; Stack $5 $4 $3 $2 $1 $0
-

        Push $6 ; Stack $6 $5 $4 $3 $2 $1 $0
-

        Push $7 ; Stack $7 $6 $5 $4 $3 $2 $1 $0
-

        ;Push $8 ; Stack $8 $7 $6 $5 $4 $3 $2 $1 $0
-

 
-

    ## Call System API to get the current system Time
-

        System::Alloc 16
-

        Pop $0
-

        System::Call 'kernel32::GetLocalTime(i) i(r0)'
-

        System::Call '*$0(&i2, &i2, &i2, &i2, &i2, &i2, &i2, &i2)i (.r1, .r2, n, .r3, .r4, .r5, .r6, .r7)'
-

        System::Free $0
-

 
-

        IntFmt $2 "%02i" $2
-

        IntFmt $3 "%02i" $3
-

        IntFmt $4 "%02i" $4
-

        IntFmt $5 "%02i" $5
-

        IntFmt $6 "%02i" $6
-

 
-

    ## Generate Timestamp
-

        ;StrCpy $0 "YEAR=$1$\nMONTH=$2$\nDAY=$3$\nHOUR=$4$\nMINUITES=$5$\nSECONDS=$6$\nMS$7"
-

        StrCpy $0 "$1$2$3$4$5$6.$7"
-

 
-

    ## Restore the Registers and add Timestamp to the Stack
-

        ;Pop $8  ; Stack $7 $6 $5 $4 $3 $2 $1 $0
-

        Pop $7  ; Stack $6 $5 $4 $3 $2 $1 $0
-

        Pop $6  ; Stack $5 $4 $3 $2 $1 $0
-

        Pop $5  ; Stack $4 $3 $2 $1 $0
-

        Pop $4  ; Stack $3 $2 $1 $0
-

        Pop $3  ; Stack $2 $1 $0
-

        Pop $2  ; Stack $1 $0
-

        Pop $1  ; Stack $0
-

        Exch $0 ; Stack ${TimeStamp}
-

 
-

FunctionEnd
-

!macroend
-

!insertmacro __TimeStamp ""
-

!insertmacro __TimeStamp "un."
-

!endif
-

###########
-

-

Section "WriteInstallStamp" secStamp
-

	${TimeStamp} $0
-

	Push "$0"
-

	Push "$INSTDIR\STAMP" ;file to write to 
-

	Call WriteToFile
-

SectionEnd
-

-

Section "WriteInstallPrefs" secPrefs
-

	#we set the default preferences
-

	!define pathToCqp "$INSTDIR\cwb\bin\win32\cqpserver.exe"
-

	!define pathToCqpLib "$INSTDIR\cwb\bin\"
-

	!define pathToInit "$INSTDIR\cwb\cqpserver.init"
-

	!define pathToR "$INSTDIR\R\bin\x64\Rterm.exe"
-

	!define pathToTT "$PROGRAMFILES\treetagger"
-

	!define pathToTTMod "$PROGRAMFILES\treetagger\models"
-

-

	FileOpen $4 "$INSTDIR\install.prefs" a
-

	FileSeek $4 0 END
-

	FileWrite $4 "$\r$\ncqi_server_path_to_cqplib=${pathToCqpLib}"
-

	FileWrite $4 "$\r$\ncqi_server_path_to_executable=${pathToCqp}"
-

	FileWrite $4 "$\r$\ncqi_server_path_to_init_file=${pathToInit}"
-

	FileWrite $4 "$\r$\nr_path_to_executable=${pathToR}"
-

	FileWrite $4 "$\r$\ntreetagger_install_path=${pathToTT}"
-

	FileWrite $4 "$\r$\ntreetagger_models_path=${pathToTTMod}"
-

	FileClose $4 ; and close the file
-

SectionEnd
-

-

Section "Uninstall"
+Section "Uninstall"

	# Delete installation key
+	# Delete installation key

	DeleteRegKey /ifempty HKCU "Software\TXM"
-

	# Delete uninstaller key
-

	DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\TXM"
-

	# we remove the software
-

	RMDir /r $INSTDIR
-

	# second, remove the link from the start menu
-

	RMDir /r "$SMPROGRAMS\TXM\"
-

SectionEnd