testprogs/win32/midltests/valid/midltests_union_align_09.idl

   1 #ifndef MIDLTESTS_C_CODE
   2
   3 /*
   4  * For midltests_tcp.exe you may want to
   5  * redirect the traffic via rinetd
   6  * with a /etc/rinetd.conf like this:
   7  *
   8  * 172.31.9.1 5032 172.31.9.8 5032
   9  * 172.31.9.1 5064 172.31.9.8 5064
  10  *
  11  * This is useful to watch the traffic with
  12  * a network sniffer.
  13  */
  14 /*
  15 cpp_quote("#define LISTEN_IP \"0.0.0.0\"")
  16 cpp_quote("#define FORWARD_IP \"127.0.0.1\"")
  17 cpp_quote("#define CONNECT_IP \"172.31.9.1\"")
  18 */
  19
  20 /*
  21  * With midltests_tcp.exe NDR64 is enforced by default.
  22  * For testing it might be needed to allow downgrades
  23  * to NDR32. This is needed when you use 'pipe'.
  24  */
  25 //cpp_quote("#define DONOT_FORCE_NDR64 1")
  26
  27 [
  28   uuid("225b9fcb-eb3d-497b-8b0b-591f049a2507"),
  29   ms_union,
  30   pointer_default(unique)
  31 ]
  32 interface midltests
  33 {
  34         [switch_type(char)] union u {
  35                 [case(0)];
  36                 [case(1)] char c;
  37                 [case(2)] short s;
  38                 [case(4)] long l;
  39                 [case(8)] hyper h;
  40         };
  41
  42         long midltests_fn(
  43                 [in] char level,
  44                 [in,switch_is(level)] union u u
  45         );
  46 }
  47
  48 #elif MIDLTESTS_C_CODE
  49
  50 static void midltests(void)
  51 {
  52         union u u;
  53         u.h = 0xFFFFFFFFFFFFFFFFLL;
  54
  55         cli_midltests_fn(0, u);
  56         cli_midltests_fn(1, u);
  57         cli_midltests_fn(2, u);
  58         cli_midltests_fn(4, u);
  59         cli_midltests_fn(8, u);
  60 }
  61
  62 long srv_midltests_fn(char level, union u u)
  63 {
  64         printf("srv_midltests_fn: Start\n");
  65         printf("srv_midltests_fn: End\n");
  66         return 0x65757254;
  67 }
  68
  69 #endif