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 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 Uses
m_Input_Windows; m_Input_CRT;
Type Type
TInput = Class(TInputWindows); TInput = Class(TInputCRT);
{$ELSE}
{$IFDEF WINDOWS}
Uses m_Input_Windows;
Type TInput = Class(TInputWindows);
{$ENDIF} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
Uses m_Input_Linux; Uses m_Input_Linux;
Type TInput = Class(TInputLinux);
Type
TInput = Class(TInputLinux);
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN} {$IFDEF DARWIN}
Uses m_Input_Darwin; Uses m_Input_Darwin;
Type TInput = Class(TInputDarwin);
Type {$ENDIF}
TInput = Class(TInputDarwin);
{$ENDIF} {$ENDIF}
Const Const

27
mdl/m_output.pas
View File

@ -4,26 +4,31 @@ Unit m_Output;
Interface Interface
{$IFDEF WINDOWS} {.$DEFINE USE_CRT_OUTPUT}
Uses
m_Output_Windows;
Type {$IFDEF OS2}
TOutput = Class(TOutputWindows); {$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} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
Uses m_Output_Linux; Uses m_Output_Linux;
Type TOutput = Class(TOutputLinux);
Type
TOutput = Class(TOutputLinux);
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN} {$IFDEF DARWIN}
Uses m_Output_Darwin; Uses m_Output_Darwin;
Type TOutput = Class(TOutputDarwin);
Type {$ENDIF}
TOutput = Class(TOutputDarwin);
{$ENDIF} {$ENDIF}
Implementation Implementation