Import Upstream version 5e4upstream/5e4

1 files changed, 477 insertions, 0 deletions

diff --git a/scm.nsi b/scm.nsi
new file mode 100644
index 0000000..0c06fc6
--- /dev/null
+++ b/scm.nsi
@@ -0,0 +1,477 @@
+; Install SCM on Windows for current user

+; Basic script generated by the HM NIS Edit Script Wizard.

+; Augmented by Jerry van Dijk, february 2007

+; placed in the public domain

+

+; *** version numbers ***

+!define PRODUCT_VERSION "5e4-1"

+!define REQ_SLIB_VERSION "3a5-1"

+

+; ----------------[ NO CHANGES BELOW ]----------------

+

+; *** unless files are added or removed ***

+; *** remember to edit both 'file' and 'delete' sections!

+

+; *** registry settings ***

+!define KEY_VERSION "version"

+!define SCM_KEY "Software\Voluntocracy\scm"

+!define SLIB_KEY "Software\Voluntocracy\slib"

+

+; HM NIS Edit Wizard helper defines

+!define PRODUCT_NAME "SCM"

+!define PRODUCT_COMPANY "Voluntocracy"

+!define PRODUCT_PUBLISHER "Aubrey Jaffer"

+!define PRODUCT_WEB_SITE "http://swissnet.ai.mit.edu/~jaffer/SCM.html"

+!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\scm-${PRODUCT_VERSION}.exe"

+!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"

+!define PRODUCT_UNINST_ROOT_KEY "HKLM"

+!define PRODUCT_STARTMENU_REGVAL "NSIS:StartMenuDir"

+

+; MUI 1.67 compatible ------

+!include "MUI.nsh"

+

+; MUI Settings

+!define MUI_ABORTWARNING

+!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"

+!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico"

+

+; Welcome page

+!insertmacro MUI_PAGE_WELCOME

+

+; License page

+!insertmacro MUI_PAGE_LICENSE "COPYING"

+

+; Directory page

+!insertmacro MUI_PAGE_DIRECTORY

+

+; Start menu page

+var ICONS_GROUP

+!define MUI_STARTMENUPAGE_NODISABLE

+!define MUI_STARTMENUPAGE_DEFAULTFOLDER "scm"

+!define MUI_STARTMENUPAGE_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}"

+!define MUI_STARTMENUPAGE_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"

+!define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "${PRODUCT_STARTMENU_REGVAL}"

+!insertmacro MUI_PAGE_STARTMENU Application $ICONS_GROUP

+

+; Instfiles page

+!insertmacro MUI_PAGE_INSTFILES

+

+; Finish page

+!insertmacro MUI_PAGE_FINISH

+

+; Uninstaller pages

+!insertmacro MUI_UNPAGE_INSTFILES

+

+; Language files

+!insertmacro MUI_LANGUAGE "English"

+

+; MUI end ------

+

+Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"

+OutFile "SCM-${PRODUCT_VERSION}.exe"

+InstallDir "$PROGRAMFILES\scm"

+InstallDirRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_DIR_REGKEY}" ""

+ShowInstDetails show

+ShowUnInstDetails show

+

+; Check that the correct slib is installed, and no other scm version is present

+Function .onInit

+; Check that slib is installed

+  ClearErrors

+  ReadRegStr $0 ${PRODUCT_UNINST_ROOT_KEY} "${SLIB_KEY}" "${KEY_VERSION}"

+  IfErrors 0 +3

+  MessageBox MB_OK|MB_ICONSTOP "No SLIB found. Please install SLIB before installing SCM."

+  Abort

+

+; Check that the correct slib is installed

+  StrCmp $0 ${REQ_SLIB_VERSION} +3 0

+  MessageBox MB_OK|MB_ICONSTOP "Found SLIB version $0. SCM ${PRODUCT_VERSION} requires SLIB ${REQ_SLIB_VERSION}. Please install this SLIB version first."

+  Abort

+

+; Check for older scm installed

+  ReadRegStr $0 ${PRODUCT_UNINST_ROOT_KEY} "${SCM_KEY}" "${KEY_VERSION}"

+  StrCmp $0 '' +4 0

+  StrCmp $0 ${PRODUCT_VERSION} +3 0

+  MessageBox MB_OK|MB_ICONSTOP "You already have SCM version $0 installed. Please uninstall this SCM first."

+  Abort

+

+FunctionEnd

+

+Section "MainSection" SEC01

+  SetOutPath "$INSTDIR"

+  SetOverwrite try

+  File "SCM.lnk"

+  File "scm.exe"

+  File "scm.html"

+  File "Init5e4.scm"

+  File "Transcen.scm"

+  File "mkimpcat.scm"

+  File "hobbit.scm"

+  File "scmhob.scm"

+  File "hobbit.html"

+  File "wbtab.scm"

+  File "rwb-isam.scm"

+  File "r4rstest.scm"

+  File "pi.scm"

+

+; Shortcuts

+  !insertmacro MUI_STARTMENU_WRITE_BEGIN Application

+  CreateShortCut "$DESKTOP\SCM.lnk" "$INSTDIR\scm.lnk"

+  CreateDirectory "$SMPROGRAMS\$ICONS_GROUP"

+  CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\SCM Manual.lnk" "$INSTDIR\scm.html"

+  CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\SCM.lnk" "$INSTDIR\SCM.lnk"

+  CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Hobbit Manual.lnk" "$INSTDIR\hobbit.html"

+  !insertmacro MUI_STARTMENU_WRITE_END

+

+; Jaffer scm registry settings

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${SCM_KEY}" "${KEY_VERSION}" "${PRODUCT_VERSION}"

+

+; Jaffer scm path settings

+  Push "$INSTDIR\"

+  Call AddToPath

+

+SectionEnd

+

+Section -AdditionalIcons

+  !insertmacro MUI_STARTMENU_WRITE_BEGIN Application

+  WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"

+  CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"

+  CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk" "$INSTDIR\uninst.exe"

+  !insertmacro MUI_STARTMENU_WRITE_END

+SectionEnd

+

+Section -Post

+  WriteUninstaller "$INSTDIR\uninst.exe"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\scm-${PRODUCT_VERSION}.exe"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\scm-${PRODUCT_VERSION}.exe"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"

+  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"

+SectionEnd

+

+Function .onInstSuccess

+  IfRebootFlag 0 noreboot

+    MessageBox MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON1 "A reboot is required to finish the installation. Do you wish to reboot now?" IDNO noreboot

+      Reboot

+  noreboot:

+FunctionEnd

+

+Function un.onUninstSuccess

+  HideWindow

+  MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) was successfully removed from your computer."

+FunctionEnd

+

+Function un.onInit

+  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to completely remove $(^Name) and all of its components?" IDYES +2

+  Abort

+FunctionEnd

+

+Section Uninstall

+  !insertmacro MUI_STARTMENU_GETFOLDER "Application" $ICONS_GROUP

+  Delete "$INSTDIR\${PRODUCT_NAME}.url"

+  Delete "$INSTDIR\uninst.exe"

+  Delete "$INSTDIR\pi.scm"

+  Delete "$INSTDIR\r4rstest.scm"

+  Delete "$INSTDIR\rwb-isam.scm"

+  Delete "$INSTDIR\wbtab.scm"

+  Delete "$INSTDIR\hobbit.html"

+  Delete "$INSTDIR\scmhob.scm"

+  Delete "$INSTDIR\hobbit.scm"

+  Delete "$INSTDIR\mkimpcat.scm"

+  Delete "$INSTDIR\Transcen.scm"

+  Delete "$INSTDIR\Init5e4.scm"

+  Delete "$INSTDIR\scm.html"

+  Delete "$INSTDIR\scm.exe"

+  Delete "$INSTDIR\SCM.lnk"

+

+  Delete "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk"

+  Delete "$SMPROGRAMS\$ICONS_GROUP\Website.lnk"

+  Delete "$SMPROGRAMS\$ICONS_GROUP\SCM.lnk"

+  Delete "$SMPROGRAMS\$ICONS_GROUP\SCM Manual.lnk"

+  Delete "$SMPROGRAMS\$ICONS_GROUP\Hobbit Manual.lnk"

+  Delete "$DESKTOP\SCM.lnk"

+

+  RMDir "$SMPROGRAMS\$ICONS_GROUP"

+  RMDir "$INSTDIR"

+

+  # remove from the path

+  Push "$INSTDIR\"

+  Call un.RemoveFromPath

+

+  ; remove Jaffer registry entries

+  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${SCM_KEY}"

+

+  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"

+  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_DIR_REGKEY}"

+  SetAutoClose true

+

+SectionEnd

+

+; ----------------[ ENVIRONMENT MANIPULATION ]----------------

+

+!ifndef WriteEnvStr_RegKey

+  !ifdef ALL_USERS

+    !define WriteEnvStr_RegKey \

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

+  !else

+    !define WriteEnvStr_RegKey 'HKCU "Environment"'

+  !endif

+!endif

+

+

+; ----------------[ EXECUTABLE PATH MANIPULATION ]----------------

+

+; 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

+

+  Call IsNT

+  Pop $1

+  StrCmp $1 1 AddToPath_NT

+    ; Not on NT

+    StrCpy $1 $WINDIR 2

+    FileOpen $1 "$1\autoexec.bat" a

+    FileSeek $1 -1 END

+    FileReadByte $1 $2

+    IntCmp $2 26 0 +2 +2 # DOS EOF

+      FileSeek $1 -1 END # write over EOF

+    FileWrite $1 "$\r$\nSET PATH=%PATH%;$3$\r$\n"

+    FileClose $1

+    SetRebootFlag true

+    Goto AddToPath_done

+

+  AddToPath_NT:

+    ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"

+    StrCmp $1 "" AddToPath_NTdoIt

+      Push $1

+      Call Trim

+      Pop $1

+      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

+

+  Call un.IsNT

+  Pop $1

+  StrCmp $1 1 unRemoveFromPath_NT

+    ; Not on NT

+    StrCpy $1 $WINDIR 2

+    FileOpen $1 "$1\autoexec.bat" r

+    GetTempFileName $4

+    FileOpen $2 $4 w

+    GetFullPathName /SHORT $0 $0

+    StrCpy $0 "SET PATH=%PATH%;$0"

+    Goto unRemoveFromPath_dosLoop

+

+    unRemoveFromPath_dosLoop:

+      FileRead $1 $3

+      StrCpy $5 $3 1 -1 # read last char

+      StrCmp $5 $6 0 +2 # if DOS EOF

+        StrCpy $3 $3 -1 # remove DOS EOF so we can compare

+      StrCmp $3 "$0$\r$\n" unRemoveFromPath_dosLoopRemoveLine

+      StrCmp $3 "$0$\n" unRemoveFromPath_dosLoopRemoveLine

+      StrCmp $3 "$0" unRemoveFromPath_dosLoopRemoveLine

+      StrCmp $3 "" unRemoveFromPath_dosLoopEnd

+      FileWrite $2 $3

+      Goto unRemoveFromPath_dosLoop

+      unRemoveFromPath_dosLoopRemoveLine:

+        SetRebootFlag true

+        Goto unRemoveFromPath_dosLoop

+

+    unRemoveFromPath_dosLoopEnd:

+      FileClose $2

+      FileClose $1

+      StrCpy $1 $WINDIR 2

+      Delete "$1\autoexec.bat"

+      CopyFiles /SILENT $4 "$1\autoexec.bat"

+      Delete $4

+      Goto unRemoveFromPath_done

+

+  unRemoveFromPath_NT:

+    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

+

+; ----------------[ OS TYPE DETERMINATION ]----------------

+

+#

+# [un.]IsNT - Pushes 1 if running on NT, 0 if not

+#

+# Example:

+#   Call IsNT

+#   Pop $0

+#   StrCmp $0 1 +3

+#     MessageBox MB_OK "Not running on NT!"

+#     Goto +2

+#     MessageBox MB_OK "Running on NT!"

+#

+!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."

+

+; ----------------[ STRING MANIPULATION ]----------------

+

+; 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."

+

+Function Trim ; Added by Pelaca

+	Exch $R1

+	Push $R2

+Loop:

+	StrCpy $R2 "$R1" 1 -1

+	StrCmp "$R2" " " RTrim

+	StrCmp "$R2" "$\n" RTrim

+	StrCmp "$R2" "$\r" RTrim

+	StrCmp "$R2" ";" RTrim

+	GoTo Done

+RTrim:

+	StrCpy $R1 "$R1" -1

+	Goto Loop

+Done:

+	Pop $R2

+	Exch $R1

+FunctionEnd