login  home  contents  what's new  discussion  bug reports     help  links  subscribe  changes  refresh  edit

Edit detail for AxiomWindowsInstallerScript revision 1 of 2

1 2
Editor: page
Time: 2007/12/12 16:50:38 GMT-8
Note: new

changed:
-
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\textbf{Axiom Windows Installer Script}}
\author{Jose Alfredo Perez}
\maketitle

%%%%%%%%%%%%%%%%
\begin{abstract}

This paper contains the source code of the script to create
an Axiom installer for the Windows operating system. This
script is based on the {\em Nullsoft Scriptable Install System} 
(NSIS)\cite{1}. NSIS is a professional open source system to create Windows 
installers.

\end{abstract}
%%%%%%%%%%%%%%
\eject

\tableofcontents
\eject

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Introduction}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

This script is based on the NSIS program. This one can be downloaded
from: http://nsis.sourceforge.net/Download. There is extensive documentation
about its use and the commands to create and modify these installation 
scripts. Many examples are provided with the intallation files of NSIS.\\

\noindent To extract the NSIS script from this document, type:

\begin{verbatim}
notangle winstaller.pamphlet >axiom.nsis
\end{verbatim}

\noindent where [[axiom.nsis]] is the script to be compiled with NSIS. 
To extract the latex documentation type:

\begin{verbatim}
noweave -delay winstaller.pamphlet >winstaller.tex
latex winstaller.tex
\end{verbatim}

<<Header>>=
#Axiom NSIS Install Script
#Written By: Dan Martens dan_martens@lycos.com
#Updated By: Bill Page  bill.page1@sympatico.ca
#Updated By: Alfredo Portes alfredo.portes@gmail.com

@

%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Header Files}
%%%%%%%%%%%%%%%%%%%%%%%%%

A few header files are needed to provide some functionalities
to the script.

\begin{itemize}

\item MUI.nsh provides the Graphical Interface for the script.
It stands for Modern User Interface.

\item StrFunc.nsh

\item WinMessages.nsh

\end{itemize}

<<Header Files>>=
  !include "MUI.nsh"
  !include "StrFunc.nsh"
  !include "WinMessages.nsh"

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Variable Declarations}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

<<Variable Declarations>>=
  Var AXIOM_TEMP
  Var STARTMENU_FOLDER
  Var AXIOMVAR
  ${StrRep}

  !verbose 3
  !ifdef ALL_USERS
    !define WriteEnvStr_RegKey \
     'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'
  !else
    !define WriteEnvStr_RegKey 'HKCU "Environment"'
  !endif
  !verbose 4

@

\begin{itemize}

\item [[APPNAME]]: Consist of the name we want to give to 
the application.

\item [[BUILD_VERSION]]: This is an identifier variable. It
can consist of a version name we would like to append to the
name of the application. Eg. axiom-1.0.

\item [[APPNAMEANDVERSION]]: It is just a concatenation of
the previous two variables and it will be the final name
for the installer.

\end{itemize}

<<Variable Declarations>>=
  ; Define your application name
  !define APPNAME "Axiom"
  !define BUILD_VERSION "wh-sandbox"
  !define APPNAMEANDVERSION "${APPNAME}-${BUILD_VERSION}"

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Main Script Section}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

This section contains the code and documentation of the
core of the installation script. This code uses most
of the functions described in the previous section.\\

\noindent When installing, we define the type of installation this will be.
In this case this is more of a fancy display more than any practical
use, given "Typical" can be also customized.

<<Main Script>>=
  InstType "Typical"

@

\noindent The [[Name]] command creates a name for the application from 
the [[APPNAMEANDVERSION]] variable. The [[OutFile]] command
creates the name of the executable file for the installer.

<<Main Script>>=
  Name "${APPNAMEANDVERSION}"
  OutFile "axiom-${BUILD_VERSION}.exe"

@

\noindent The [[InstallDir]] command defines where the files
will be installed. [[$PROGRAMFILES]] is a NSIS glbal
variable that points to the program files directory 
in Windows. Together with the variable [[APPNAME]] this
defines the final location of the application files.

<<Main Script>>=
  ;Default installation folder
  InstallDir "$PROGRAMFILES\${APPNAME}"
@

\noindent The name of the application needs to be saved in the
Windows registry.

<<Main Script>>=
  ;Get installation folder from registry if available
  InstallDirRegKey HKLM "Software\${APPNAME}" ""
@

\noindent The next command is apparently a fix for Windows Vista.

<<Main Script>>=
  ;Vista redirects $SMPROGRAMS to all users without this
  RequestExecutionLevel admin

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{GUI Modifiable Screens}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

This section describes the creation and how to modify
the various screens presented to the user during installation.
Some of these screens are kept with the default values. However 
these can be changed to provide a more customized look and feel.

<<GUI Screens>>= 
  ;!define AXIOM_ABORTWARNING
  !define MUI_ABORTWARNING
@

\noindent When the installation is complete, present the user the 
option to run Axiom immediately. To do this, we need to provide 
what is going to be the final location of the [[AXIOMsys]] file.
 
<<GUI Screens>>=
  !define MUI_FINISHPAGE_RUN "$INSTDIR\bin\AXIOMsys.exe"
@

\noindent Add a little reminder and link for the user in the last page 
of the installer to donate to the Axiom Foundation.

<<GUI Screens>>=
  !define MUI_FINISHPAGE_LINK "Please donate to the Axiom Foundation"
  !define MUI_FINISHPAGE_LINK_LOCATION "http://axiom-developer.org/public/donate.html"
@

\noindent Generate a generic "Welcome" window. This window will 
have a basic greeting, providing the name of the application.

<<GUI Screens>>=
  !insertmacro MUI_PAGE_WELCOME
@

\noindent Provide the License for Axiom as a window showing a License agreement 
to the user. We need to provide a location to the file. 

<<GUI Screens>>=
  !insertmacro MUI_PAGE_LICENSE "axiom\License.txt"
@

<<GUI Screens>>=
  !insertmacro MUI_PAGE_COMPONENTS
  !insertmacro MUI_PAGE_DIRECTORY
  
  ;Start Menu Folder Page Configuration
  !define MUI_STARTMENUPAGE_REGISTRY_ROOT "HKCU" 
  !define MUI_STARTMENUPAGE_REGISTRY_KEY "Software\${APPNAME}"
  !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "Start Menu Folder"
  
  !insertmacro MUI_PAGE_STARTMENU Application $STARTMENU_FOLDER
  
  !insertmacro MUI_PAGE_INSTFILES
  !insertmacro MUI_PAGE_FINISH

@

<<GUI Screens>>= 
  !insertmacro MUI_UNPAGE_WELCOME
  !insertmacro MUI_UNPAGE_CONFIRM
  !insertmacro MUI_UNPAGE_INSTFILES
  !insertmacro MUI_UNPAGE_FINISH

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Language Declaration}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Various possible languages are provided for the installer. 
If more languages support is needed, they should be add
here. The first language, in this case English, will be
the default language.

<<Language Declarations>>=
!insertmacro MUI_LANGUAGE "English"
!insertmacro MUI_LANGUAGE "French"
!insertmacro MUI_LANGUAGE "German"
!insertmacro MUI_LANGUAGE "Russian"
!insertmacro MUI_LANGUAGE "Spanish"
!insertmacro MUI_LANGUAGE "TradChinese"
!insertmacro MUI_RESERVEFILE_LANGDLL

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Axiom Core Installation}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

This section describes the copying of the Axiom
files to the destination directory. The files to
be copied need to be placed in a directory called
{\em axiom}. This can be changed by modifying the 
line:

\begin{verbatim}
File /r axiom\*
\end{verbatim}

\noindent The installer will copy all the files contained here
recursevely to the location specified in the [[$INSTDIR]]
variable.

<<Axiom Core Section>>=
Section "!Axiom Core" Section1

  SectionIn 1 2 RO
	
  ; Set Section properties
  SetOverwrite on

  SetOutPath "$INSTDIR"
  
  File /r axiom\*

  ReadEnvStr $0 "USERPROFILE" ;

  ;Store installation folder
  WriteRegStr HKCU "Software\Axiom" "" $INSTDIR
  
  ;Create uninstaller
  WriteUninstaller "$INSTDIR\Uninstall.exe"

@

\noindent We specify the different shortcuts we want in the 
start menu and in the desktop, like the AXIOMsys executable
and other shorcuts.

<<Axiom Core Section>>=
  !insertmacro MUI_STARTMENU_WRITE_BEGIN Application
    
    CreateDirectory "$SMPROGRAMS\$STARTMENU_FOLDER"
    
    CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\${APPNAME}.lnk" "$INSTDIR\bin\AXIOMsys.exe" "" "$INSTDIR\axiom.ico"
    CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Uninstall.lnk" "$INSTDIR\Uninstall.exe"
    CreateShortCut "$DESKTOP\Axiom.lnk" "$INSTDIR\bin\AXIOMsys.exe" "" "$INSTDIR\axiom.ico"
    CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Axiom Website.lnk" "http://www.axiom-developer.org" "" "$INSTDIR\axiom.ico"
    CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Axiom Bug Reports.lnk" "http://page.axiom-developer.org/zope/mathaction/FrontPage/issuetracker" "" "$INSTDIR\axiom.ico"
    CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Donate to Axiom Foundation.lnk" "http://www.axiom-developer.org/donate.html" "" "$INSTDIR\axiom.ico"

  !insertmacro MUI_STARTMENU_WRITE_END

SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Documentation Installation}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Like the previous section was about copying the
core Axiom files, this section describes the
copying of the documentation files in the 
installation directory. The documentation files
need to be place in a directory called {\em doc}:

\begin{verbatim}
File /r doc
\end{verbatim}

\noindent Here, we also add two shorcuts to the Axiom book and
the Axiom tutorial pdf files. These two files need
to be locate also in the {\em doc} directory.

<<Documentation Section>>=
Section /o "Documentation" Section2
	
  SetOverwrite on
  SetOutPath "$INSTDIR"
  
  File /r doc

  ;Shortcuts
  CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Axiom Tutorial.lnk" "$INSTDIR\doc\tutorial.pdf"
  CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Axiom Book.lnk" "$INSTDIR\doc\axiom-book2.pdf"

SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Source Code Installation}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The Axiom source code is palce in a directory
called {\em src} and it will be copied to the
installation directory.

<<Source Code Section>>=
Section /o "Source Code" Section3

  ; Set Section properties
  SetOverwrite on

  ; Set Section Files and Shortcuts
  SetOutPath "$INSTDIR"
  
  File /r src

SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Finish Core Installation}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

<<Finish Section>>=
Section -FinishSection

  ${StrRep} $AXIOMVAR "$INSTDIR" "\" "/"
  Push "AXIOM"
  Push "$AXIOMVAR"
  Call WriteEnvStr

  ; in case of Start AXIOM from installer set AXIOM variable now
  System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("AXIOM", "$AXIOMVAR").r0'
  ReadEnvStr $0 "USERPROFILE" ;
  SetOutPath "$0\My Documents" # sets the 'START IN' parameter
  WriteRegStr HKLM "Software\${APPNAME}" "" "$INSTDIR"
  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "DisplayName" "${APPNAME}"
  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "UninstallString" "$INSTDIR\uninstall.exe"
  WriteUninstaller "$INSTDIR\uninstall.exe"

SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Modern install component descriptions}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Probably this section should be moved somewhere else.
This descriptions appear when the user is selecting
what is going to be installed (Core, Documentation, Source).
These are no more than tool-tips to describe these options.

<<Finish Section>>=
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
  !insertmacro MUI_DESCRIPTION_TEXT ${Section1} "The main program files."
  !insertmacro MUI_DESCRIPTION_TEXT ${Section2} "Program Documentation"
  !insertmacro MUI_DESCRIPTION_TEXT ${Section3} "Source code"
!insertmacro MUI_FUNCTION_DESCRIPTION_END

@

<<Finish Section>>=
Section -AddtoPath
  Push "$INSTDIR\bin"
  Call AddToPath
SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Uninstaller Section}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The purpose of the [[Uninstall]] section is to reverse
everything done in the previous intallation sections.
This means to delete the files and shortcuts created
by the installation process. This section needs to
be handle carefully because other shortcuts and files
for other applications can be deleted.\\

\noindent First, delete the uninstall file and then 
recursevely the directory in which Axiom is installed 
with all its contents.

<<Uninstaller Section>>=
Section "Uninstall"

  Delete "$INSTDIR\Uninstall.exe"
  RMDir /r $INSTDIR
@

<<Uninstaller Section>>=  
  !insertmacro MUI_STARTMENU_GETFOLDER Application $AXIOM_TEMP
    
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Uninstall.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\${APPNAME}.lnk"
  Delete "$DESKTOP\${APPNAME}.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Axiom Website.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Axiom Bug Reports.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Donate to Axiom Foundation.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Axiom Tutorial.lnk"
  Delete "$SMPROGRAMS\$AXIOM_TEMP\Axiom Book.lnk"
  
  ;Delete empty start menu parent diretories
  StrCpy $AXIOM_TEMP "$SMPROGRAMS\$AXIOM_TEMP"
 
  startMenuDeleteLoop:
	ClearErrors
    RMDir $AXIOM_TEMP
    GetFullPathName $AXIOM_TEMP "$AXIOM_TEMP\.."
    
    IfErrors startMenuDeleteLoopDone
  
    StrCmp $AXIOM_TEMP $SMPROGRAMS startMenuDeleteLoopDone startMenuDeleteLoop
  startMenuDeleteLoopDone:

  DeleteRegKey /ifempty HKCU "Software\${APPNAME}"
  Push "$INSTDIR\bin"
	
  Call un.RemoveFromPath
  # remove the variable
  Push "AXIOM"
  Call un.DeleteEnvStr

SectionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Function Declarations}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The functions declared in this section are used to provide
auxiliary functionality to this script. Things like adding/removing
the Axiom executable to/from the system PATH and adding the [[AXIOM]]
environmental variable are done by different functions described
in this section. The vast majority of this function cannot be currently
cannot be properly documented. This is because they were taken from
undocumented examples in the web to achieve certain functionalty. Hopefully,
people reading this document can contribute to their documentation.

\subsection{Function to add Axiom executable to the PATH}

The [[AddToPath]] function adds the given value in [[dir]] to the search path.
Its input is the head of the stack and the value of the [[dir]] 
varaible is added at the beginning of the system path. Win9x 
systems may require to reboot. 

<<Function Add To Path>>=
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=$3;%PATH%$\r$\n"
    FileClose $1
    SetRebootFlag true
    Goto AddToPath_done

  AddToPath_NT:
    ReadRegStr $1 HKCU "Environment" "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 "$0;$1"
    AddToPath_NTdoIt:
      WriteRegExpandStr HKCU "Environment" "PATH" $0
      SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

  AddToPath_done:
    Pop $3
    Pop $2
    Pop $1
    Pop $0
FunctionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Function to remove the [[Axiom]] executable from PATH}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The function [[RemoveFromPath]] removes the reference to of the 
[[AXIOM]] executable from the path. Its input is the head of the stack.

<<Function Remove From Path>>=
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 HKCU "Environment" "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 HKCU "Environment" "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

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Function to write [[AXIOM]] environmental variable}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The function [[WriteEnvStr]] writes the [[AXIOM]] enviromental
variable to the user system variables. Win9x systems may 
require to reboot after creating new enviromental variables.
The following is an example of how this function it is used.

\begin{verbatim}
Push "HOMEDIR"           # name
Push "C:\New Home Dir\"  # value
Call WriteEnvStr
\end{verbatim}

<<Function WriteEnvStr>>=
Function WriteEnvStr
  Exch $1 ; $1 has environment variable value
  Exch
  Exch $0 ; $0 has environment variable name
  Push $2
  
  Call IsNT
  Pop $2
  StrCmp $2 1 WriteEnvStr_NT
    ; Not on NT
    StrCpy $2 $WINDIR 2 ; Copy drive of windows (c:)
    FileOpen $2 "$2\autoexec.bat" a
    FileSeek $2 0 END
    FileWrite $2 "$\r$\nSET $0=$1$\r$\n"
    FileClose $2
    SetRebootFlag true
    Goto WriteEnvStr_done

  WriteEnvStr_NT:
      WriteRegExpandStr ${WriteEnvStr_RegKey} $0 $1
      SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} \
        0 "STR:Environment" /TIMEOUT=5000
  
  WriteEnvStr_done:
    Pop $2
    Pop $1
    Pop $0
FunctionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection{Function to delete the [[AXIOM]] environmental variable}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The [[DeleteEnvStr]] function removes the [[AXIOM]] environmental 
variable into the system. Win9x systems may require to reboot.

\begin{verbatim}
Push "HOMEDIR"
Call un.DeleteEnvStr
\end{verbatim}

<<Function DeleteEnvStr>>=
Function un.DeleteEnvStr
  Exch $0 ; $0 now has the name of the variable
  Push $1
  Push $2
  Push $3
  Push $4
  Push $5
  
  Call un.IsNT
  Pop $1
  StrCmp $1 1 DeleteEnvStr_NT
    ; Not on NT
    StrCpy $1 $WINDIR 2
    FileOpen $1 "$1\autoexec.bat" r
    GetTempFileName $4
    FileOpen $2 $4 w
    StrCpy $0 "SET $0="
    SetRebootFlag true
    
    DeleteEnvStr_dosLoop:
      FileRead $1 $3
      StrLen $5 $0
      StrCpy $5 $3 $5
      StrCmp $5 $0 DeleteEnvStr_dosLoop
      StrCmp $5 "" DeleteEnvStr_dosLoopEnd
      FileWrite $2 $3
      Goto DeleteEnvStr_dosLoop
    
    DeleteEnvStr_dosLoopEnd:
      FileClose $2
      FileClose $1
      StrCpy $1 $WINDIR 2
      Delete "$1\autoexec.bat"
      CopyFiles /SILENT $4 "$1\autoexec.bat"
      Delete $4
      Goto DeleteEnvStr_done

  DeleteEnvStr_NT:
    DeleteRegValue ${WriteEnvStr_RegKey} $0
    SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} \
      0 "STR:Environment" /TIMEOUT=5000
  
  DeleteEnvStr_done:
    Pop $5
    Pop $4
    Pop $3
    Pop $2
    Pop $1
    Pop $0
FunctionEnd

@

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Utility Functions}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\subsection{Function IsNT}
The [[IsNT]] do no take any input. Its output
can be obtained from the top of the stack = 1 
if NT or 0 if not. The following is an example 
of how to use the function:

\begin{verbatim}
Call IsNT
Pop $R0
\end{verbatim}

\noindent \$R0 at this point is 1 or 0.

<<Utility Functions>>=
!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

@

<<Utility Functions>>=
!macroend
!insertmacro IsNT ""
!insertmacro IsNT "un."

@

\subsection{Function StrStr}

The [[StrStr]] function takes as input the top of stack,
which contains the string to search for. The top of stack-1 
is the string to search in. The output result is place at the 
top of stack (replaces with the portion of the string remaining)
and it does not modify any other variables. The following is an 
example on how to use this function:

\begin{verbatim}
Push "this is a long ass string"
Push "ass"
Call StrStr
Pop $R0
\end{verbatim}

\noindent The value of [[$R0]] at this point is "ass string".

<<Utility Functions>>=
!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."

@

\section{File Structure}
<<*>>=
<<Header>>
<<Header Files>>
<<Variable Declarations>>
<<Function Add To Path>>
<<Function Remove From Path>>
<<Function WriteEnvStr>>
<<Function DeleteEnvStr>>
<<Utility Functions>>
<<Main Script>>
<<GUI Screens>>
<<Language Declarations>>
<<Axiom Core Section>>
<<Documentation Section>>
<<Source Code Section>>
<<Finish Section>>
<<Uninstaller Section>>
@

\eject
\begin{thebibliography}{99}
\bibitem{1} {\em Nullsoft Scriptable Install System Homepage}. http://nsis.sourceforge.net/. Accessed
on August 24, 2007.
\end{thebibliography}
\end{document}


Download: pdf dvi ps src tex log


Some or all of this page may not have rendered properly, because of the following error:
dvips: cd '/var/zope2/var/LatexWiki/'; /usr/bin/dvips -z -o 'Axiom Windows Installer Script.ps' 'Axiom Windows Installer Script.dvi'
This is dvips(k) 5.95a Copyright 2005 Radical Eye Software (www.radicaleye.com)
/usr/bin/dvips: ! DVI file can't be opened.