24 lines
317 B
ObjectPascal
24 lines
317 B
ObjectPascal
Unit m_Pipe;
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
Interface
|
|
|
|
{$IFDEF UNIX}
|
|
Uses m_Pipe_Unix;
|
|
Type TPipe = Class(TPipeUnix);
|
|
{$ENDIF}
|
|
|
|
{$IFDEF WINDOWS}
|
|
Uses m_Pipe_Disk;
|
|
Type TPipe = Class(TPipeDisk);
|
|
{$ENDIF}
|
|
|
|
{$IFDEF OS2}
|
|
Uses m_Pipe_Disk;
|
|
Type TPipe = Class(TPipeDisk);
|
|
{$ENDIF}
|
|
|
|
Implementation
|
|
|
|
End. |