source: trunk/testcase/570main.cpp@ 599

typedef struct some_struct_pointer * PTYPE;

/*
 * Function and method declarations.
 * Checks mangling.
 */

/* No underscore, No mangling. */
extern "C" void   _System   ExternCVoid(int a, int b, int c, int d);
extern "C" void * _System   ExternCPVoid(int a, int b, int c, int d);
extern "C" int    _System   ExternCInt(int a, int b, int c, int d);
extern "C" PTYPE  _System   ExternCPType(int a, int b, int c, int d);

/* No underscore, No mangling. */
void    _System             Void(int a, int b, int c, int d);
void *  _System             PVoid(int a, int b, int c, int d);
int     _System             Int(int a, int b, int c, int d);
PTYPE   _System             PType(int a, int b, int c, int d);


/* Members are mangled. */
class foo
{
public:
static void    _System      StaticMemberVoid(int a, int b, int c, int d);
static void *  _System      StaticMemberPVoid(int a, int b, int c, int d);
static int     _System      StaticMemberInt(int a, int b, int c, int d);
static PTYPE   _System      StaticMemberPType(int a, int b, int c, int d);

/* VAC365 allows this too, and actually mangles the
 * calling convention into the name.
 *      _System: MemberVoid__3fooF__l2_v
 *      default: MemberVoid__3fooFv
 * We don't need to support this, it's just a curiosity.
 */
void           _System      MemberVoid(int a, int b, int c, int d);
void *         _System      MemberPVoid(int a, int b, int c, int d);
int            _System      MemberInt(int a, int b, int c, int d);
PTYPE          _System      MemberPType(int a, int b, int c, int d);
};


/*
 * Typedefs.
 * Checks that there is not warnings on these.
 */
typedef void    _System     Typedef1Void(int a, int b, int c, int d);
typedef void *  _System     Typedef1PVoid(int a, int b, int c, int d);
typedef int     _System     Typedef1Int(int a, int b, int c, int d);
typedef PTYPE   _System     Typedef1PType(int a, int b, int c, int d);

typedef void    (_System    Typedef2Void)(int a, int b, int c, int d);
typedef void *  (_System    Typedef2PVoid)(int a, int b, int c, int d);
typedef int     (_System    Typedef2Int)(int a, int b, int c, int d);
typedef PTYPE   (_System    Typedef2PType)(int a, int b, int c, int d);

typedef void    (* _System  PTypedef1Void)(int a, int b, int c, int d);
typedef void *  (* _System  PTypedef1PVoid)(int a, int b, int c, int d);
typedef int     (* _System  PTypedef1Int)(int a, int b, int c, int d);
typedef PTYPE   (* _System  PTypedef1PType)(int a, int b, int c, int d);

/* Alternate writing which should have the same effect I think... */
typedef void    (_System *  PTypedef2Void)(int a, int b, int c, int d);
typedef void *  (_System *  PTypedef2PVoid)(int a, int b, int c, int d);
typedef int     (_System *  PTypedef2Int)(int a, int b, int c, int d);
typedef PTYPE   (_System *  PTypedef2PType)(int a, int b, int c, int d);


/*
 * Structures.
 * Should not cause warnings.
 */
typedef struct VFT
{
    void    (* _System  PStructMemberVoid)(int a, int b, int c, int d);
    void *  (* _System  PStructMemberPVoid)(int a, int b, int c, int d);
    int     (* _System  PStructMemberInt)(int a, int b, int c, int d);
    PTYPE   (* _System  PStructMemberPType)(int a, int b, int c, int d);

    /* Alternate writing which should have the same effect I think... */
    void    ( _System * PStructMember2Void)(int a, int b, int c, int d);
    void *  ( _System * PStructMember2PVoid)(int a, int b, int c, int d);
    int     ( _System * PStructMember2Int)(int a, int b, int c, int d);
    PTYPE   ( _System * PStructMember2PType)(int a, int b, int c, int d);

} VFT, *PVFT;


extern "C" int DoC(void);
int main(void)
{
    VFT vft = {Void, PVoid, Int, PType,
               Void, PVoid, Int, PType};

    Typedef1Void       * pfnTypedef1Void   = Void;
    Typedef1PVoid      * pfnTypedef1PVoid  = PVoid;
    Typedef1Int        * pfnTypedef1Int    = Int;
    Typedef1PType      * pfnTypedef1PType  = PType;

    Typedef2Void       * pfnTypedef2Void   = Void;
    Typedef2PVoid      * pfnTypedef2PVoid  = PVoid;
    Typedef2Int        * pfnTypedef2Int    = Int;
    Typedef2PType      * pfnTypedef2PType  = PType;

    PTypedef1Void        pfnPTypedef1Void  = Void;
    PTypedef1PVoid       pfnPTypedef1PVoid = PVoid;
    PTypedef1Int         pfnPTypedef1Int   = Int;
    PTypedef1PType       pfnPTypedef1PType = PType;

    PTypedef2Void        pfnPTypedef2Void  = Void;
    PTypedef2PVoid       pfnPTypedef2PVoid = PVoid;
    PTypedef2Int         pfnPTypedef2Int   = Int;
    PTypedef2PType       pfnPTypedef2PType = PType;

    /* extern functions */
    ExternCVoid(1,2,3,4);
    ExternCPVoid(1,2,3,4);
    ExternCInt(1,2,3,4);
    ExternCPType(1,2,3,4);

    Void(1,2,3,4);
    PVoid(1,2,3,4);
    Int(1,2,3,4);
    PType(1,2,3,4);

    /* class */
    foo::StaticMemberVoid(1,2,3,4);
    foo::StaticMemberPVoid(1,2,3,4);
    foo::StaticMemberInt(1,2,3,4);
    foo::StaticMemberPType(1,2,3,4);

    foo obj;
    obj.MemberVoid(1,2,3,4);
    obj.MemberPVoid(1,2,3,4);
    obj.MemberInt(1,2,3,4);
    obj.MemberPType(1,2,3,4);

    /* typedefs */
    pfnTypedef1Void(1,2,3,4);
    pfnTypedef1PVoid(1,2,3,4);
    pfnTypedef1Int(1,2,3,4);
    pfnTypedef1PType(1,2,3,4);

    pfnTypedef2Void(1,2,3,4);
    pfnTypedef2PVoid(1,2,3,4);
    pfnTypedef2Int(1,2,3,4);
    pfnTypedef2PType(1,2,3,4);

    pfnPTypedef1Void(1,2,3,4);
    pfnPTypedef1PVoid(1,2,3,4);
    pfnPTypedef1Int(1,2,3,4);
    pfnPTypedef1PType(1,2,3,4);

    pfnPTypedef2Void(1,2,3,4);
    pfnPTypedef2PVoid(1,2,3,4);
    pfnPTypedef2Int(1,2,3,4);
    pfnPTypedef2PType(1,2,3,4);


    /* structs */
    vft.PStructMemberVoid(1,2,3,4);
    vft.PStructMemberPVoid(1,2,3,4);
    vft.PStructMemberInt(1,2,3,4);
    vft.PStructMemberPType(1,2,3,4);

    vft.PStructMember2Void(1,2,3,4);
    vft.PStructMember2PVoid(1,2,3,4);
    vft.PStructMember2Int(1,2,3,4);
    vft.PStructMember2PType(1,2,3,4);

    /* test C stuff */
    DoC();

    /** @todo test typedefs and structure field. */

    return 0;
}