mysticbbs/mdl/m_pipe.pas

25 lines
325 B
ObjectPascal
Raw Normal View History

2012-09-06 01:34:01 -07:00
Unit m_Pipe;
{$I M_OPS.PAS}
Interface
{$IFDEF UNIX}
2012-09-22 15:54:14 -07:00
Uses m_Pipe_Unix;
Type TPipe = Class(TPipeUnix);
2012-09-06 01:34:01 -07:00
{$ENDIF}
{$IFDEF WINDOWS}
2012-09-22 14:39:15 -07:00
Uses m_Pipe_Windows;
Type TPipe = Class(TPipeWindows);
2012-09-06 01:34:01 -07:00
{$ENDIF}
{$IFDEF OS2}
Uses m_Pipe_Disk;
Type TPipe = Class(TPipeDisk);
{$ENDIF}
Implementation
2012-09-20 10:54:12 -07:00
End.