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 |