home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 9
/
FreshFishVol9-CD2.bin
/
bbs
/
util
/
mayflower.lha
/
MayFlower
/
CapsLock
/
create
< prev
next >
Wrap
AmigaDOS Script File
|
1994-03-17
|
2KB
|
97 lines
.key program,opts
IF "<program>" EQ ""
echo "Usage> Create filename [opts]"
QUIT
ENDIF
echo
echo "Execute Create <program> <opts> --) Start"
avail >nil: flush ; remove unused libraries and devices
assign work<$$>: "" ; logical directory of our CLI work
; step 1: look for the mother of all GST files, this shortens compile time
; NOTE- GST files do not come with SAS_C V6.0, you must create them
IF EXISTS RAD:total.gst ; ALL Amiga headers inside this GST
set SASGST RAD:total.gst
SKIP step2
ENDIF
IF EXISTS SAS_C:total.gst
set SASGST SAS_C:total.gst
SKIP step2
ENDIF
; see if program's GST file exist
IF EXISTS work<$$>:<program>.gst
cmpdate -o work<$$>:<program>.gst work<$$>:h/
IF WARN
echo "<program>.GST older than h files, must re-create <program>.GST"
sc MAXERR=1 MAXWRN=1 MGST=work<$$>:<program>.gst NoObjName work<$$>:h/main.h
ENDIF
set SASGST work<$$>:<program>.gst
SKIP step2
ENDIF
IF NOT EXISTS $SASGST
echo "*e[32;43m "
echo " Unable to find a GST file "
echo " *e[0m"
ask "Compile without a GST ? Y/N (Y = default)"
IF WARN
SKIP endscript
ENDIF
ENDIF
LAB step2
IF NOT EXISTS work<$$>:<program>
echo "<program> does not exist"
SKIP zapofiles
ENDIF
cmpdate -o work<$$>:<program> work<$$>:h/
IF WARN
echo "<program> older than H files"
SKIP zapofiles
ENDIF
cmpdate -o work<$$>:<program> work<$$>:cf/
IF WARN
echo "<program> older than C files"
SKIP makefiles
ENDIF
IF NOT EXISTS work<$$>:of
echo "Object File's directory does not exist, making *"of*" directory"
makedir work<$$>:of
SKIP makefiles
ENDIF
cmpdate -o work<$$>:<program> work<$$>:of/
IF WARN
echo "<program> older than Object files"
SKIP slinkfiles
ENDIF
echo "All files appear to be updated, no action taken."
SKIP endscript
LAB zapofiles
echo "Deleting contents of *"of*" directory"
delete >nil: work<$$>:of/#?.o
LAB makefiles
echo "Compiling C files"
IF EXISTS $SASGST
sc <opts> MAXWRN=1 MAXERR=1 GST=$SASGST MOD ObjName=work<$$>:of/ work<$$>:cf/#?.c
ELSE
sc <opts> MAXWRN=1 MAXERR=1 MOD ObjName=work<$$>:of/ work<$$>:cf/#?.c
ENDIF
LAB slinkfiles
echo "Slinking <program>"
slink with work<$$>:<program>.lnk
LAB endscript ; cleanup
unset SASGST
assign work<$$>:
echo "Execute Create <program> <opts> --) End"
echo