FR>#ifndef _DLL_H_
FR>#define _DLL_H_

FR>#if BUILDING_DLL
FR># define DLLIMPORT __attribute__((dllexport))
FR>#else /* Not BUILDING_DLL */
FR># define DLLIMPORT __attribute__((dllimport))
FR>#endif /* Not BUILDING_DLL */


FR>class DLLIMPORT DllClass
FR>{
FR>  public:
FR>    DllClass();
FR>    virtual ~DllClass(void);

FR>    int Method();
FR>    virtual int VirtualMethod();

FR>  private:

FR>};


FR>#endif /* _DLL_H_ */
FR>

FR>LIBRARY     LIB.DLL

FR>EXPORTS
FR>    _ZN8DllClass13VirtualMethodEv  @8   
FR>    _ZN8DllClass6MethodEv          @1   
FR>    _ZN8DllClassC1Ev               @2   
FR>    _ZN8DllClassC2Ev               @3   
FR>    _ZN8DllClassD0Ev               @4   
FR>    _ZN8DllClassD1Ev               @5   
FR>    _ZN8DllClassD2Ev               @6   
FR>    _ZTV8DllClass                  @7   
FR>

DllClass* pClass = new DllClass();

class MyDllClass : public DllClass
{
  ...
};

class MyClass {
   void   *pImpl_; // указатель на структуру данных этого класса
public:
   void foo();
   void zoo();
   void bar();
};

#if BUILDING_DLL
# define DLLIMPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLIMPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */

EXPORTS
    _ZN8DllClass6MethodEv @ 1 ; DllClass::Method()
    _ZN8DllClassC1Ev @ 2 ; DllClass::DllClass()
    _ZN8DllClassC2Ev @ 3 ; DllClass::DllClass()
    _ZN8DllClassD0Ev @ 4 ; DllClass::~DllClass()
    _ZN8DllClassD1Ev @ 5 ; DllClass::~DllClass()
    _ZN8DllClassD2Ev @ 6 ; DllClass::~DllClass()
    _ZTV8DllClass @ 7 DATA ; vtable for DllClass
    _ZN8DllClass13VirtualMethodEv @ 8 ; DllClass::VirtualMethod()

K_O>DllClass* pClass = new DllClass();

K_O>class MyDllClass : public DllClass
K_O>{
K_O>  ...
K_O>};
K_O>

IF msg_code = 6 THEN 
  сделать_одно_действие
ELSIF msg_code = 234 THEN 
  сделать_другое_действие
ELSIF msg_code = 902 THEN 
  сделать_третье_действие
END;

CASE msg_code OF
  6  : сделать_одно_действие   |
  234: сделать_другое_действие |
  902: сделать_третье_действие
ELSE
  (* данная сообщение не опознано *)
END;

TYPE
  Message = EXTENSIBLE RECORD 
    (* ... *)
  END;

  SomeMsg = RECORD (Message)
    (* ... *)
  END;

  AnotherMsg = RECORD (Message)
    (* ... *)
  END;

  ThirdMsg = RECORD (Message)
    (* ... *)
  END;

PROCEDURE (v: View) HandleMsg (VAR msg: Message);
BEGIN
  WITH 
    msg: SomeMsg    DO сделать_одно_действие   |
    msg: AnotherMsg DO сделать_другое_действие |
    msg: ThirdMsg   DO сделать_третье_действие
  ELSE 
    (* данная сообщение не опознано *)
  END;
END HandleMsg;

IF b1 THEN s1 ELSIF b2 THEN s2 ELSIF b3 THEN s3 ELSE sDefault END

int foo(int i)
{
    if(i == 1)    return 2;
    if(i == 2)    return 5;
    if(i == 3)    return 3;
    if(i == 4)    return 38;
    if(i == 5)    return 20;
    if(i == 6)    return 50;
    if(i == 7)    return 30;
    if(i == 8)    return 380;
    return 255;
}

WH>int foo(int i)
WH>{
WH>    if(i == 1)    return 2;
WH>    if(i == 2)    return 5;
WH>    if(i == 3)    return 3;
WH>    if(i == 4)    return 38;
WH>    if(i == 5)    return 20;
WH>    if(i == 6)    return 50;
WH>    if(i == 7)    return 30;
WH>    if(i == 8)    return 380;
WH>    return 255;
WH>}
WH>

if ( A *a = dynamic_cast<A*>(p)) return ...;
if ( B *b = dynamic_cast<B*>(p)) return ...;