mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 20:49:23 +02:00
* fix for COMMAND.COM, order, etc.
This commit is contained in:
parent
a76f6dc812
commit
733b361891
@ -63,7 +63,7 @@ if .%FPCERRLOG% == . exit
|
||||
|
||||
echo *"Makefile" for OS/2: > %FPCERRLOG%
|
||||
|
||||
echo *Setting up environment ... >> %FPCERRLOG%
|
||||
echo *Setting up environment (possible "Invalid path" messages are OK here) ... >> %FPCERRLOG%
|
||||
|
||||
rem Check whether FPCDIR exists
|
||||
if .%FPCDIR% == . goto ErrorDir
|
||||
@ -91,75 +91,100 @@ set FPCSRC=%FPCDIR%\SOURCE
|
||||
:SnapDir
|
||||
set FPCSNAP=%FPCSNAPPATH%
|
||||
if .%FPCSNAP% == . set FPCSNAP=%FPCSRC%\SNAPSHOT
|
||||
if exist %FPCSNAP% goto SnapExists
|
||||
echo X > %FPCSNAP%\TEST.TMP
|
||||
if exist %FPCSNAP%\TEST.TMP goto SnapExists
|
||||
echo *Creating directories for the snapshot ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAP% >> %FPCERRLOG%
|
||||
if exist %FPCSNAP% goto SnapExists
|
||||
echo X > %FPCSNAP%\TEST.TMP
|
||||
if exist %FPCSNAP%\TEST.TMP goto SnapExists
|
||||
echo *Error: Cannot create the directory %FPCSNAP%!!
|
||||
goto End
|
||||
|
||||
:SnapExists
|
||||
if exist %FPCSNAP%\BIN goto BinExists
|
||||
del %FPCSNAP%\TEST.TMP > nul
|
||||
echo X > %FPCSNAP%\BIN\TEST.TMP
|
||||
if exist %FPCSNAP%\BIN\TEST.TMP goto BinExists
|
||||
echo *Creating directories for the snapshot (binaries) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAP%\BIN >> %FPCERRLOG%
|
||||
if exist %FPCSNAP%\BIN goto BinExists
|
||||
echo X > %FPCSNAP%\BIN\TEST.TMP
|
||||
if exist %FPCSNAP%\BIN\TEST.TMP goto BinExists
|
||||
echo *Error: Cannot create the directory %FPCSNAP%\BIN!!
|
||||
goto End
|
||||
|
||||
:BinExists
|
||||
del %FPCSNAP%\BIN\TEST.TMP > nul
|
||||
set FPCSNAPBIN=%FPCSNAP%\BIN\OS2
|
||||
if exist %FPCSNAPBIN% goto BinOS2Exists
|
||||
echo X > %FPCSNAPBIN%\TEST.TMP
|
||||
if exist %FPCSNAPBIN%\TEST.TMP goto BinOS2Exists
|
||||
echo *Creating directories for the snapshot (binaries for OS/2) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAPBIN% >> %FPCERRLOG%
|
||||
if exist %FPCSNAPBIN% goto BinOS2Exists
|
||||
echo X > %FPCSNAPBIN%\TEST.TMP
|
||||
if exist %FPCSNAPBIN%\TEST.TMP goto BinOS2Exists
|
||||
echo *Error: Cannot create the directory %FPCSNAPBIN%!!
|
||||
goto End
|
||||
|
||||
:BinOS2Exists
|
||||
del %FPCSNAPBIN%\TEST.TMP > nul
|
||||
set FPCSNAPMSG=%FPCSNAP%\MSG
|
||||
if exist %FPCSNAPMSG% goto MsgExists
|
||||
echo X > %FPCSNAPMSG%\TEST.TMP
|
||||
if exist %FPCSNAPMSG%\TEST.TMP goto MsgExists
|
||||
echo *Creating directories for the snapshot (messages) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAPMSG% >> %FPCERRLOG%
|
||||
if exist %FPCSNAPMSG% goto MsgExists
|
||||
echo X > %FPCSNAPMSG%\TEST.TMP
|
||||
if exist %FPCSNAPMSG%\TEST.TMP goto MsgExists
|
||||
echo *Error: Cannot create the directory %FPCSNAPMSG%!!
|
||||
goto End
|
||||
|
||||
:MsgExists
|
||||
if exist %FPCSNAP%\UNITS goto UnitsExists
|
||||
del %FPCSNAPMSG%\TEST.TMP > nul
|
||||
echo X > %FPCSNAP%\UNITS\TEST.TMP
|
||||
if exist %FPCSNAP%\UNITS\TEST.TMP goto UnitsExists
|
||||
echo *Creating directories for the snapshot (units) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAP%\UNITS >> %FPCERRLOG%
|
||||
if exist %FPCSNAP%\UNITS goto UnitsExists
|
||||
echo X > %FPCSNAP%\UNITS\TEST.TMP
|
||||
if exist %FPCSNAP%\UNITS\TEST.TMP goto UnitsExists
|
||||
echo *Error: Cannot create the directory %FPCSNAP%\UNITS!!
|
||||
goto End
|
||||
|
||||
:UnitsExists
|
||||
if exist %FPCSNAP%\UNITS\OS2 goto UnitsOS2Exists
|
||||
del %FPCSNAP%\UNITS\TEST.TMP > nul
|
||||
echo X > %FPCSNAP%\UNITS\OS2\TEST.TMP
|
||||
if exist %FPCSNAP%\UNITS\OS2\TEST.TMP goto UnitsOS2Exists
|
||||
echo *Creating directories for the snapshot (units for OS/2) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAP%\UNITS\OS2 >> %FPCERRLOG%
|
||||
if exist %FPCSNAP%\UNITS\OS2 goto UnitsOS2Exists
|
||||
echo X > %FPCSNAP%\UNITS\OS2\TEST.TMP
|
||||
if exist %FPCSNAP%\UNITS\OS2\TEST.TMP goto UnitsOS2Exists
|
||||
echo *Error: Cannot create the directory %FPCSNAP%\UNITS\OS2!!
|
||||
goto End
|
||||
|
||||
:UnitsOS2Exists
|
||||
del %FPCSNAP%\UNITS\OS2\TEST.TMP > nul
|
||||
set FPCSNAPRTL=%FPCSNAP%\UNITS\OS2\RTL
|
||||
if exist %FPCSNAPRTL% goto OS2RTLExists
|
||||
echo X > %FPCSNAPRTL%\TEST.TMP
|
||||
if exist %FPCSNAPRTL%\TEST.TMP goto OS2RTLExists
|
||||
echo *Creating directories for the snapshot (units for OS/2 RTL) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAPRTL% >> %FPCERRLOG%
|
||||
if exist %FPCSNAPRTL% goto OS2RTLExists
|
||||
echo X > %FPCSNAPRTL%\TEST.TMP
|
||||
if exist %FPCSNAPRTL%\TEST.TMP goto OS2RTLExists
|
||||
echo *Error: Cannot create the directory %FPCSNAPRTL%!!
|
||||
goto End
|
||||
|
||||
:OS2RTLExists
|
||||
del %FPCSNAPRTL%\TEST.TMP > nul
|
||||
set FPCSNAPDOC=%FPCSNAP%\DOC
|
||||
if exist %FPCSNAPDOC% goto SetOpts
|
||||
echo X > %FPCSNAPDOC%\TEST.TMP
|
||||
if exist %FPCSNAPDOC%\TEST.TMP goto SetOpts
|
||||
echo *Creating directories for the snapshot (documentation) ... >> %FPCERRLOG%
|
||||
mkdir %FPCSNAPDOC% >> %FPCERRLOG%
|
||||
if exist %FPCSNAPDOC% goto SetOpts
|
||||
echo X > %FPCSNAPDOC%\TEST.TMP
|
||||
if exist %FPCSNAPDOC%\TEST.TMP goto SetOpts
|
||||
echo *Error: Cannot create the directory %FPCSNAPDOC%!!
|
||||
goto End
|
||||
|
||||
:SetOpts
|
||||
|
||||
del %FPCSNAPDOC%\TEST.TMP > nul
|
||||
|
||||
rem Path to file with options
|
||||
set OS2OPTF=%FPCSRC%\OS2SNAP.OPT
|
||||
rem Path for the OS/2 RTL
|
||||
@ -216,7 +241,7 @@ set OS2INCP=-Fi%OS2RTL%;%OS2RTLC%;%OS2RTLO%;%OS2RTLP%
|
||||
rem PPAS step disabled by default
|
||||
set FORCEPPAS=
|
||||
rem Name of the PPAS script
|
||||
set PPASNAME=PPAS.CMD
|
||||
set PPASNAME=PPAS.BAT
|
||||
rem Default compiler for the first compilation
|
||||
set CYCLE=0
|
||||
if not .%CYCLE% == .0 goto EnvErr
|
||||
@ -661,7 +686,10 @@ goto End
|
||||
|
||||
|
||||
$Log$
|
||||
Revision 1.12 2000-03-12 18:29:40 hajny
|
||||
Revision 1.13 2000-03-16 19:43:36 hajny
|
||||
* fix for COMMAND.COM, order, etc.
|
||||
|
||||
Revision 1.12 2000/03/12 18:29:40 hajny
|
||||
* wrong order corrected
|
||||
|
||||
Revision 1.11 2000/03/12 13:37:24 hajny
|
||||
|
@ -650,7 +650,10 @@ goto End
|
||||
|
||||
|
||||
$Log$
|
||||
Revision 1.12 2000-03-12 18:29:40 hajny
|
||||
Revision 1.13 2000-03-16 19:43:36 hajny
|
||||
* fix for COMMAND.COM, order, etc.
|
||||
|
||||
Revision 1.12 2000/03/12 18:29:40 hajny
|
||||
* wrong order corrected
|
||||
|
||||
Revision 1.11 2000/03/12 13:42:00 hajny
|
||||
|
Loading…
Reference in New Issue
Block a user