Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CLIPQMAC.ZIP
Filename : CLP.BAT

ECHO OFF
REM ----------------------------------------------------
REM CLP.BAT
REM author Charles Burfoot 7425 La Vista Dr. #128 DALLAS, TX 75214
REM created 08-08-1989
REM modified Sat 08-12-1989
REM purpose Interface to Qedit for calling CLIPPER Compiler AND Linking
REM -----------------------------------------------------
REM TEST FOR INPUT AND BRACH
IF %1.==. GOTO MESG
if %2.==-D. GOTO DEBUG
IF %3.==-D. GOTO DEBUG1
IF %4.==-D. GOTO DEBUG2
CLIPPER %1 %2 %3 >ERRORS.LST
IF NOT ERRORLEVEL 1 LINK /SE:1024 %1.OBJ, , Nul, D:\CLIP\CLIPPER D:\CLIP\TOOLKIT D:\CLIP\EXTEND; >LINKR.LST
GOTO FINISH
:DEBUG
CLIPPER %1 >ERRORS.LST
GOTO LINKIT
:DEBUG1
CLIPPER %1 %2 >ERROR1.OP
GOTO LINKIT
:DEBUG2
CLIPPER %1 %2 %3 >ERRORS.LST
:LINKIT
IF NOT ERRORLEVEL 1 LINK /SE:1024 %1.OBJ D:\CLIP\DEBUG.OBJ, , Nul, D:\CLIP\CLIPPER D:\CLIP\TOOLKIT D:\CLIP\EXTEND; >LINKR.LST
GOTO FINISH
:MESG
ECHO ÿ
ECHO ÿ
ECHO SOMETHING IS NOT RIGHT. NO FILENAME WAS PASSED!!
ECHO ÿ
pause
GOTO THEEND
:FINISH
COPY ERRORS.LST + LINKR.LST >NUL
DEL LINKR.LST
:THEEND