From 51a64dd309fbb03ab6cf7ccc84807ae9da151ac1 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 1 Mar 2012 18:19:04 -0500
Subject: [PATCH] OS2 forces usage

---
 mdl/m_input.pas  | 39 ++++++++++++++++++++++++---------------
 mdl/m_output.pas | 35 ++++++++++++++++++++---------------
 2 files changed, 44 insertions(+), 30 deletions(-)

diff --git a/mdl/m_input.pas b/mdl/m_input.pas
index b003bf7..bd75e53 100644
--- a/mdl/m_input.pas
+++ b/mdl/m_input.pas
@@ -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);
-{$ENDIF}
+    TInput = Class(TInputCRT);
+{$ELSE}
+  {$IFDEF WINDOWS}
+    Uses m_Input_Windows;
+    Type TInput = Class(TInputWindows);
+  {$ENDIF}
 
-{$IFDEF LINUX}
-  Uses m_Input_Linux;
+  {$IFDEF LINUX}
+    Uses m_Input_Linux;
+    Type TInput = Class(TInputLinux);
+  {$ENDIF}
 
-  Type
-    TInput = Class(TInputLinux);
-{$ENDIF}
-
-{$IFDEF DARWIN}
-  Uses m_Input_Darwin;
-
-  Type
-    TInput = Class(TInputDarwin);
+  {$IFDEF DARWIN}
+    Uses m_Input_Darwin;
+    Type TInput = Class(TInputDarwin);
+  {$ENDIF}
 {$ENDIF}
 
 Const
diff --git a/mdl/m_output.pas b/mdl/m_output.pas
index b36fa66..1d29e99 100644
--- a/mdl/m_output.pas
+++ b/mdl/m_output.pas
@@ -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 LINUX}
-  Uses m_Output_Linux;
+{$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}
 
-  Type
-    TOutput = Class(TOutputLinux);
-{$ENDIF}
+  {$IFDEF LINUX}
+    Uses m_Output_Linux;
+    Type TOutput = Class(TOutputLinux);
+  {$ENDIF}
 
-{$IFDEF DARWIN}
-  Uses m_Output_Darwin;
-
-  Type
-    TOutput = Class(TOutputDarwin);
+  {$IFDEF DARWIN}
+    Uses m_Output_Darwin;
+    Type TOutput = Class(TOutputDarwin);
+  {$ENDIF}
 {$ENDIF}
 
 Implementation