1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Confirm "This will install Free Pascal for MPW.nnDo 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.nnLicense information is located in the docs folder."
|
