eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

OS2 forces usage

This commit is contained in:
mysticbbs 2012-03-01 18:19:04 -05:00
parent 8178a13f71
commit 51a64dd309
2 changed files with 44 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
mdl/m_input.pas
View File

@ -4,26 +4,35 @@ Unit m_Input;
Interface
{$IFDEF WINDOWS}
{.$DEFINE USE_CRT_INPUT}
{$IFDEF OS2}
{$DEFINE USE_CRT_INPUT}
{$ENDIF}
{$IFDEF USE_CRT_INPUT}
{$WARNING ***** GENERIC CRT INPUT IS ENABLED *****}
Uses
m_Input_Windows;
m_Input_CRT;
Type
TInput = Class(TInputWindows);
TInput = Class(TInputCRT);
{$ELSE}
{$IFDEF WINDOWS}
Uses m_Input_Windows;
Type TInput = Class(TInputWindows);
{$ENDIF}
{$IFDEF LINUX}
Uses m_Input_Linux;
Type
TInput = Class(TInputLinux);
Type TInput = Class(TInputLinux);
{$ENDIF}
{$IFDEF DARWIN}
Uses m_Input_Darwin;
Type
TInput = Class(TInputDarwin);
Type TInput = Class(TInputDarwin);
{$ENDIF}
{$ENDIF}
Const

27
mdl/m_output.pas
View File

@ -4,26 +4,31 @@ Unit m_Output;
Interface
{$IFDEF WINDOWS}
Uses
m_Output_Windows;
{.$DEFINE USE_CRT_OUTPUT}
Type
TOutput = Class(TOutputWindows);
{$IFDEF OS2}
{$DEFINE USE_CRT_INPUT}
{$ENDIF}
{$IFDEF USE_CRT_OUTPUT}
{$WARNING ***** GENERIC CRT OUTPUT IS ENABLED *****}
Uses m_Output_CRT;
Type TOutput = Class(TOutputCRT);
{$ELSE}
{$IFDEF WINDOWS}
Uses m_Output_Windows;
Type TOutput = Class(TOutputWindows);
{$ENDIF}
{$IFDEF LINUX}
Uses m_Output_Linux;
Type
TOutput = Class(TOutputLinux);
Type TOutput = Class(TOutputLinux);
{$ENDIF}
{$IFDEF DARWIN}
Uses m_Output_Darwin;
Type
TOutput = Class(TOutputDarwin);
Type TOutput = Class(TOutputDarwin);
{$ENDIF}
{$ENDIF}
Implementation