| 1234567891011121314151617181920212223 |
- Confirm "This will install Free Pascal for MPW.¶n¶nDo you want to proceed ?"
- Set installerdir `Directory`
- Set destdir `GetFileName -wd -m 'Select where I should install the FreePascal folder' "{Boot}"`FreePascal:
- # Write startup script
- Echo "Set -e FPCDIR ¶'{destdir}¶'" > "{MPW}Startup Items:FPC Startup"
- Echo 'Set -e Commands "{Commands},{FPCDIR}bin:"' >> "{MPW}Startup Items:FPC Startup"
- # Copy files
- Set Exit 0
- Delete -y "{destdir}" ³ Dev:Null
- Set Exit 1
- NewFolder "{destdir}"
- Duplicate -y "{installerdir}Freepascal":Å "{destdir}"
- # Write configuration file
- Echo "# Configuration file for Free Pascal for MPW" > "{destdir}bin:fpc.cfg"
- Echo "-Fu¶'{destdir}units:rtl:¶'" >> "{destdir}bin:fpc.cfg"
- Echo "-l" >> "{destdir}bin:fpc.cfg"
- Echo "-vi" >> "{destdir}bin:fpc.cfg"
- Alert "The installation was successful. Please restart MPW.¶n¶nLicense information is located in the docs folder."
|
