| 1 |
@ECHO OFF |
| 2 |
|
| 3 |
:: |
| 4 |
:: Initial check. |
| 5 |
:: Verify if the SDK is correctly configurated, |
| 6 |
:: |
| 7 |
IF "%OSDK%"=="" GOTO ErCfg |
| 8 |
|
| 9 |
:: |
| 10 |
:: Then we create the correct Euphoric command line call |
| 11 |
:: depending of parameters we have: |
| 12 |
:: - Rom choice |
| 13 |
:: - Machine choice |
| 14 |
:: |
| 15 |
SET OSDKEUPHORIC=euphoric.exe |
| 16 |
|
| 17 |
:: - Tape or Disk based |
| 18 |
IF "%OSDKDISK%"=="" SET OSDKEUPHORIC=%OSDKEUPHORIC% OSDK.TAP |
| 19 |
IF NOT "%OSDKDISK%"=="" SET OSDKEUPHORIC=%OSDKEUPHORIC% -d OSDK.DSK |
| 20 |
|
| 21 |
|
| 22 |
:: |
| 23 |
:: Check if the program was compiled |
| 24 |
:: Then copy the compiled program into Euphoric folder |
| 25 |
:: |
| 26 |
IF EXIST build\%OSDKNAME%.TAP GOTO OkFile |
| 27 |
IF EXIST build\%OSDKNAME%.DSK GOTO OkFile |
| 28 |
IF EXIST %OSDKDISK% GOTO OkFile |
| 29 |
GOTO ErBld |
| 30 |
|
| 31 |
:OkFile |
| 32 |
COPY build\%OSDKNAME%.TAP %OSDK%\Euphoric\OSDK.TAP >NUL |
| 33 |
COPY build\%OSDKNAME%.DSK %OSDK%\Euphoric\OSDK.DSK >NUL |
| 34 |
COPY build\symbols %OSDK%\Euphoric\symbols >NUL |
| 35 |
|
| 36 |
|
| 37 |
:: |
| 38 |
:: Special detection to see if we should run Euphoric |
| 39 |
:: directly, or using an alternate system (like DOSBox) |
| 40 |
:: |
| 41 |
IF "%OSDKDOSBOX%"=="" GOTO RunDefault |
| 42 |
|
| 43 |
:: |
| 44 |
:: Execute the emulator (DosBOX Version) |
| 45 |
:: |
| 46 |
:RunDosBox |
| 47 |
TYPE %OSDK%\BIN\dosbox.conf > %OSDK%\Euphoric\dosbox.conf |
| 48 |
ECHO mount c %osdk%\Euphoric >> %OSDK%\Euphoric\dosbox.conf |
| 49 |
ECHO c: >> %OSDK%\Euphoric\dosbox.conf |
| 50 |
ECHO SET ORIC=c:\ >> %OSDK%\Euphoric\dosbox.conf |
| 51 |
ECHO %OSDKEUPHORIC% >> %OSDK%\Euphoric\dosbox.conf |
| 52 |
CD %OSDK%\Euphoric |
| 53 |
"%OSDKDOSBOX%" |
| 54 |
GOTO End |
| 55 |
|
| 56 |
|
| 57 |
|
| 58 |
:: |
| 59 |
:: Execute the emulator in fullscreen default mode |
| 60 |
:: |
| 61 |
:RunDefault |
| 62 |
SET ORIC=%OSDK%\Euphoric\ |
| 63 |
CD %OSDK%\Euphoric |
| 64 |
CALL %OSDKEUPHORIC% |
| 65 |
GOTO End |
| 66 |
|
| 67 |
|
| 68 |
|
| 69 |
:: |
| 70 |
:: Outputs an error message about configuration |
| 71 |
:: |
| 72 |
:ErCfg |
| 73 |
ECHO == ERROR == |
| 74 |
ECHO The Oric SDK was not configured properly |
| 75 |
ECHO You should have a OSDK environment variable setted to the location of the SDK |
| 76 |
ECHO =========== |
| 77 |
IF "%OSDKBRIEF%"=="" PAUSE |
| 78 |
GOTO End |
| 79 |
|
| 80 |
:: |
| 81 |
:: Outputs an error message about compilation |
| 82 |
:: |
| 83 |
:ErBld |
| 84 |
ECHO == ERROR == |
| 85 |
ECHO Before executing this program, you need to build it. |
| 86 |
ECHO Please run OSDK_BUILD.BAT before. |
| 87 |
ECHO =========== |
| 88 |
IF "%OSDKBRIEF%"=="" PAUSE |
| 89 |
GOTO End |
| 90 |
|
| 91 |
:End |
Parent Directory
| 
Revision Log