Laboratoire ICAR » Plateforme TXM

; primes.nsi

;

; This is an example of the possibities of the NSIS Script language.

; It calculates prime numbers.

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

Name "primes"

AllowRootDirInstall true

OutFile "primes.exe"

Caption "Prime number generator"

ShowInstDetails show

AllowRootDirInstall true

InstallDir "$EXEDIR"

RequestExecutionLevel user

DirText "Select a directory to write primes.txt. $_CLICK"

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

;Pages

Page directory

Page instfiles

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

Section ""

  SetOutPath $INSTDIR

  Call DoPrimes 

SectionEnd

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

Function DoPrimes

; we put this in here so it doesn't update the progress bar (faster)

!define PPOS $0 ; position in prime searching

!define PDIV $1 ; divisor

!define PMOD $2 ; the result of the modulus

!define PCNT $3 ; count of how many we've printed

  FileOpen $9 $INSTDIR\primes.txt w

  DetailPrint "2 is prime!"

  FileWrite $9 "2 is prime!$\r$\n"

  DetailPrint "3 is prime!"

  FileWrite $9 "3 is prime!$\r$\n"

  Strcpy ${PPOS} 3

  Strcpy ${PCNT} 2

outerloop:

   StrCpy ${PDIV} 3

   innerloop:

     IntOp ${PMOD} ${PPOS} % ${PDIV}

     IntCmp ${PMOD} 0 notprime

     IntOp ${PDIV} ${PDIV} + 2

     IntCmp ${PDIV} ${PPOS} 0 innerloop 0

       DetailPrint "${PPOS} is prime!"

       FileWrite $9 "${PPOS} is prime!$\r$\n"

       IntOp ${PCNT} ${PCNT} + 1

       IntCmp ${PCNT} 100 0 innerloop

       StrCpy ${PCNT} 0

       MessageBox MB_YESNO "Process more?" IDNO stop

     notprime:

       IntOp ${PPOS} ${PPOS} + 2

     Goto outerloop

   stop:

  FileClose $9

FunctionEnd