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