Move sources to src/ subdirectory.

1 files changed, 0 insertions, 455 deletions

diff --git a/translate/mcode/windows/ghdl.nsi b/translate/mcode/windows/ghdl.nsi
deleted file mode 100644
index aa4d559..0000000
--- a/translate/mcode/windows/ghdl.nsi
+++ /dev/null
@@ -1,455 +0,0 @@
-; ghdl.nsi

-;

-; This script is based on example2.nsi.

-;  remember the directory, 

-;  Check if administrator

-;  uninstall support

-; TODO:

-;  * allow multiple version

-;  * command line installation

-;  * Allow user install

-

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

-!include version.nsi

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

-

-; The name of the installer

-Name "Ghdl"

-

-; The file to write

-OutFile "ghdl-installer-${VERSION}.exe"

-

-SetDateSave on

-

-; The default installation directory

-InstallDir $PROGRAMFILES\Ghdl

-

-; Registry key to check for directory (so if you install again, it will 

-; overwrite the old one automatically)

-InstallDirRegKey HKLM "Software\Ghdl" "Install_Dir"

-

-LicenseData ..\..\..\COPYING

-; LicenseForceSelection

-

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

-

-; Pages

-

-Page license

-Page components

-Page directory

-Page instfiles

-

-UninstPage uninstConfirm

-UninstPage instfiles

-

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

-Function .onInit

-  Call IsNT

-  pop $R0

-  StrCmp $R0 1 nt_ok

-  MessageBox MB_OK|MB_ICONEXCLAMATION "You must use Windows NT (XP/2000/Me...)"

-  Quit

-

-nt_ok:

-  Call IsUserAdmin

-  Pop $R0

-  StrCmp $R0 "true" Admin

-  MessageBox MB_OK|MB_ICONEXCLAMATION "You must have Admin rights"

-  Quit

-

-Admin:

-

-  ;;;  Check if already installed.

-  ReadRegStr $0 HKLM "Software\Ghdl" "Install_Dir"

-  IfErrors not_installed

-  ReadRegStr $0 HKLM "Software\Ghdl" "Version"

-  IfErrors unknown_prev_version

-  Goto known_version

-unknown_prev_version:

-  StrCpy $0 "(unknown)"

-known_version:

-  MessageBox MB_OKCANCEL|MB_ICONEXCLAMATION "You already have GHDL version $0 installed.  Deinstall ?" IDCANCEL install_abort IDOK deinstall

-install_abort:

-  Abort "Installation aborted"

-deinstall:

-  ReadRegStr $0 HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "UninstallString"

-  IfErrors deinstall_failed

-

-  ; First version of the GHDL installer adds quotes

-  StrCpy $1 $0 1

-  StrCmp $1 '"' 0 str_ok

-  StrCpy $1 $0 "" 1

-  StrCpy $0 $1 -1

-str_ok:

-

-  ; Read install dir

-  ReadRegStr $1 HKLM "Software\Ghdl" "Install_Dir"

-  IfErrors deinstall_failed

-

-;  MessageBox MB_OK 'copy $0 to $TEMP'

-

-  ClearErrors

-;  MessageBox MB_OK 'copy $0 to $TEMP'

-  CopyFiles $0 $TEMP

-  IfErrors deinstall_failed

-  ExecWait '"$TEMP\uninst-ghdl.exe" /S _?=$1'

-  IfErrors deinstall_failed

-  Delete "$TEMP\uninst-ghdl.exe"

-  Return

-deinstall_failed:

-  Delete $TEMP\uninst-ghdl.exe

-  MessageBox MB_YESNO|MB_ICONSTOP "Can't deinstall GHDL: de-installer not found or failed.  Continue installation ?" IDNO install_abort

-not_installed:

-  Return

-FunctionEnd

-

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

-

-; The stuff to install

-Section "Ghdl Compiler (required)"

-

-  SectionIn RO

-  

-  ; Set output path to the installation directory.

-  SetOutPath $INSTDIR\bin

-  File /oname=ghdl.exe ..\build\ghdl.exe

-  

-  SetOutPath $INSTDIR

-  File /oname=COPYING.txt ..\..\..\COPYING

-

-  ; Write the installation path into the registry

-  WriteRegStr HKLM "Software\Ghdl" "Install_Dir" $INSTDIR

-  ; Write te version

-  WriteRegStr HKLM "Software\Ghdl" "Version" ${VERSION}

-  

-  ; Write the uninstall keys for Windows

-  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "DisplayName" "Ghdl"

-  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "UninstallString" $INSTDIR\uninst-ghdl.exe

-  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoModify" 1

-  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoRepair" 1

-  WriteUninstaller $INSTDIR\uninst-ghdl.exe"

-  

-SectionEnd

-

-Section "VHDL standard and ieee libraries"

-  SectionIn RO

-  SetOutPath $INSTDIR\lib\v87

-  File /r ..\lib\v87\std ..\lib\v87\ieee

-  SetOutPath $INSTDIR\lib\v93

-  File /r ..\lib\v93\std ..\lib\v93\ieee

-SectionEnd

-

-Section "Synopsys libraries (Recommended)"

-  SetOutPath $INSTDIR\lib\v87

-  File /r ..\lib\v87\synopsys

-  SetOutPath $INSTDIR\lib\v93

-  File /r ..\lib\v93\synopsys

-SectionEnd

-

-Section "Documentation (Recommended)"

-  SetOutPath $INSTDIR

-  File /oname=ghdl.htm ..\..\..\doc\ghdl.html

-SectionEnd

-

-Section "Add in PATH (Recommended)"

-  WriteRegDWORD HKLM "Software\Ghdl" "PathSet" 1

-  Push $INSTDIR\Bin

-  Call AddToPath

-SectionEnd

-

-; Optional section (can be disabled by the user)

-;Section "Start Menu Shortcuts"

-;

-;  CreateDirectory "$SMPROGRAMS\Ghdl"

-;  CreateShortCut "$SMPROGRAMS\Ghdl\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0

-;  CreateShortCut "$SMPROGRAMS\Ghdl\Ghdl.lnk" "$INSTDIR\example2.nsi" "" "$INSTDIR\example2.nsi" 0

-;  

-;SectionEnd

-;

-

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

-

-; Uninstaller

-

-Section "Uninstall"

-

-  ReadRegDWORD $0 HKLM "Software\Ghdl" "PathSet"

-  StrCmp $0 "1" "" path_not_set

-  Push $INSTDIR\Bin

-  Call un.RemoveFromPath

-

-path_not_set:

-

-  ; Remove registry keys

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

-  DeleteRegKey HKLM Software\Ghdl

-

-  ; Remove files and uninstaller

-  Delete $INSTDIR\bin\ghdl.exe

-  Delete $INSTDIR\uninst-ghdl.exe

-  Delete $INSTDIR\COPYING.txt

-  RMDir $INSTDIR\bin

-  RMDir /r $INSTDIR\lib

-

-

-  ; Remove shortcuts, if any

-  ; Delete "$SMPROGRAMS\Ghdl\*.*"

-

-  ; Remove directories used

-  ; RMDir "$SMPROGRAMS\Ghdl"

-  RMDir "$INSTDIR"

-

-SectionEnd

-

-;;;;;;;; Misc functions

-

-; Author: Lilla (lilla@earthlink.net) 2003-06-13

-; function IsUserAdmin uses plugin \NSIS\PlusgIns\UserInfo.dll

-; This function is based upon code in \NSIS\Contrib\UserInfo\UserInfo.nsi

-; This function was tested under NSIS 2 beta 4 (latest CVS as of this writing).

-;

-; Usage:

-;   Call IsUserAdmin

-;   Pop $R0   ; at this point $R0 is "true" or "false"

-;

-Function IsUserAdmin

-Push $R0

-Push $R1

-Push $R2

- 

-ClearErrors

-UserInfo::GetName

-IfErrors Win9x

-Pop $R1

-UserInfo::GetAccountType

-Pop $R2

- 

-StrCmp $R2 "Admin" 0 Continue

-; Observation: I get here when running Win98SE. (Lilla)

-; The functions UserInfo.dll looks for are there on Win98 too, 

-; but just don't work. So UserInfo.dll, knowing that admin isn't required

-; on Win98, returns admin anyway. (per kichik)

-; MessageBox MB_OK 'User "$R1" is in the Administrators group'

-StrCpy $R0 "true"

-Goto Done

- 

-Continue:

-; You should still check for an empty string because the functions

-; UserInfo.dll looks for may not be present on Windows 95. (per kichik)

-StrCmp $R2 "" Win9x

-StrCpy $R0 "false"

-;MessageBox MB_OK 'User "$R1" is in the "$R2" group'

-Goto Done

- 

-Win9x:

-; comment/message below is by UserInfo.nsi author:

-; This one means you don't need to care about admin or

-; not admin because Windows 9x doesn't either

-;MessageBox MB_OK "Error! This DLL can't run under Windows 9x!"

-StrCpy $R0 "true"

- 

-Done:

-;MessageBox MB_OK 'User= "$R1"  AccountType= "$R2"  IsUserAdmin= "$R0"'

- 

-Pop $R2

-Pop $R1

-Exch $R0

-FunctionEnd

-

-

-!define ALL_USERS

- 

-!ifndef WriteEnvStr_RegKey

-  !ifdef ALL_USERS

-    !define WriteEnvStr_RegKey \

-       'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'

-  !else

-    !define WriteEnvStr_RegKey 'HKCU "Environment"'

-  !endif

-!endif

-

-!verbose 3

-!include "WinMessages.NSH"

-!verbose 4

-

-; AddToPath - Adds the given dir to the search path.

-;        Input - head of the stack

-;        Note - Win9x systems requires reboot

- 

-Function AddToPath

-  Exch $0

-  Push $1

-  Push $2

-  Push $3

- 

-  # don't add if the path doesn't exist

-  IfFileExists "$0\*.*" "" AddToPath_done

- 

-  ReadEnvStr $1 PATH

-  Push "$1;"

-  Push "$0;"

-  Call StrStr

-  Pop $2

-  StrCmp $2 "" "" AddToPath_done

-  Push "$1;"

-  Push "$0\;"

-  Call StrStr

-  Pop $2

-  StrCmp $2 "" "" AddToPath_done

-  GetFullPathName /SHORT $3 $0

-  Push "$1;"

-  Push "$3;"

-  Call StrStr

-  Pop $2

-  StrCmp $2 "" "" AddToPath_done

-  Push "$1;"

-  Push "$3\;"

-  Call StrStr

-  Pop $2

-  StrCmp $2 "" "" AddToPath_done

- 

-  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"

-  StrCpy $2 $1 1 -1 # copy last char

-  StrCmp $2 ";" 0 +2 # if last char == ;

-    StrCpy $1 $1 -1 # remove last char

-  StrCmp $1 "" AddToPath_NTdoIt

-    StrCpy $0 "$1;$0"

- AddToPath_NTdoIt:

-   WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $0

-   SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

- 

-  AddToPath_done:

-    Pop $3

-    Pop $2

-    Pop $1

-    Pop $0

-FunctionEnd

- 

-; RemoveFromPath - Remove a given dir from the path

-;     Input: head of the stack

- 

-Function un.RemoveFromPath

-  Exch $0

-  Push $1

-  Push $2

-  Push $3

-  Push $4

-  Push $5

-  Push $6

- 

-  IntFmt $6 "%c" 26 # DOS EOF

- 

-  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"

-  StrCpy $5 $1 1 -1 # copy last char

-  StrCmp $5 ";" +2 # if last char != ;

-    StrCpy $1 "$1;" # append ;

-  Push $1

-  Push "$0;"

-  Call un.StrStr ; Find `$0;` in $1

-  Pop $2 ; pos of our dir

-  StrCmp $2 "" unRemoveFromPath_done

-    ; else, it is in path

-    # $0 - path to add

-    # $1 - path var

-    StrLen $3 "$0;"

-    StrLen $4 $2

-    StrCpy $5 $1 -$4 # $5 is now the part before the path to remove

-    StrCpy $6 $2 "" $3 # $6 is now the part after the path to remove

-    StrCpy $3 $5$6

- 

-    StrCpy $5 $3 1 -1 # copy last char

-    StrCmp $5 ";" 0 +2 # if last char == ;

-      StrCpy $3 $3 -1 # remove last char

- 

-    WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $3

-    SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

- 

-  unRemoveFromPath_done:

-    Pop $6

-    Pop $5

-    Pop $4

-    Pop $3

-    Pop $2

-    Pop $1

-    Pop $0

-FunctionEnd

-

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

-#            Utility Functions            #

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

- 

-; IsNT

-; no input

-; output, top of the stack = 1 if NT or 0 if not

-;

-; Usage:

-;   Call IsNT

-;   Pop $R0

-;  ($R0 at this point is 1 or 0)

- 

-!macro IsNT un

-Function ${un}IsNT

-  Push $0

-  ReadRegStr $0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion

-  StrCmp $0 "" 0 IsNT_yes

-  ; we are not NT.

-  Pop $0

-  Push 0

-  Return

- 

-  IsNT_yes:

-    ; NT!!!

-    Pop $0

-    Push 1

-FunctionEnd

-!macroend

-!insertmacro IsNT ""

-;!insertmacro IsNT "un."

- 

-; StrStr

-; input, top of stack = string to search for

-;        top of stack-1 = string to search in

-; output, top of stack (replaces with the portion of the string remaining)

-; modifies no other variables.

-;

-; Usage:

-;   Push "this is a long ass string"

-;   Push "ass"

-;   Call StrStr

-;   Pop $R0

-;  ($R0 at this point is "ass string")

- 

-!macro StrStr un

-Function ${un}StrStr

-Exch $R1 ; st=haystack,old$R1, $R1=needle

-  Exch    ; st=old$R1,haystack

-  Exch $R2 ; st=old$R1,old$R2, $R2=haystack

-  Push $R3

-  Push $R4

-  Push $R5

-  StrLen $R3 $R1

-  StrCpy $R4 0

-  ; $R1=needle

-  ; $R2=haystack

-  ; $R3=len(needle)

-  ; $R4=cnt

-  ; $R5=tmp

-  loop:

-    StrCpy $R5 $R2 $R3 $R4

-    StrCmp $R5 $R1 done

-    StrCmp $R5 "" done

-    IntOp $R4 $R4 + 1

-    Goto loop

-done:

-  StrCpy $R1 $R2 "" $R4

-  Pop $R5

-  Pop $R4

-  Pop $R3

-  Pop $R2

-  Exch $R1

-FunctionEnd

-!macroend

-!insertmacro StrStr ""

-!insertmacro StrStr "un."

-