home *** CD-ROM | disk | FTP | other *** search
- ;*******************************************
- ;*
- ;* Project compile script
- ;* by Giovanni Lambiase (C) 1995
- ;*
- ;* This script make a build of your project.
- ;* It needs PRJ handler mounted.
- ;*
- ;*******************************************
-
- .key all
- .bra {
- .ket }
-
- FailAt 30
-
- ; Run SCMSG
- SYS:REXXC/RX ProgED:SASC_Support/RunSCMSG.script
-
- ; Put project directory in $PROJDIR
- ProgED:SASC_Support/GetProjectDir
-
- ; Empty project ?
- IF WARN
- ECHO "Empty project!"
- ELSE
- ; CD in $PROJDIR
- CD "$PROJDIR"
-
- ; If PROGRAMNAME missing then ERROR!
- ProgED:SASC_Support/GetSASCOption PROGRAMNAME
- IF WARN
- ECHO "PROGRAMNAME option missing! Please specify!"
- ELSE
- ; If user wants only link delete executable file
- IF "{all}" EQ "-L"
- Delete <>NIL: $Option
- ENDIF
-
- ; If SMakeFile exists then user smake
- IF EXISTS "SMakeFile"
- ; If user wants build all specify -a option
- IF "{all}" EQ "-A"
- SC:C/SMake -a
- ELSE
- SC:C/SMake
- ENDIF
- ; Else use a standard command to compile
- ELSE
- ; If user wants build delete all object files
- IF "{all}" EQ "-A"
- C:Delete <>NIL: #?.o
- ENDIF
-
- SC:C/SC LINK ERRREXX MOD OBJNAME "$PROJDIR" PRJ:#?.c PRJ:#?.a
- ENDIF
- ENDIF
- ENDIF
-
- ; Wait CR
- ECHO ""
- ECHO "Press return to continue..."
- ProgED:SASC_Support/ReturnWait
-
- ; Goto on first error
- SYS:REXXC/RX ProgED:SASC_Support/FirstError.script
-