aaronp-zomg 1.0.2.20080827232412

data/test/assets/struct/struct4.idl

@@ -0,0 +1,57 @@
+struct bar {
+    long    b1;
+    long    b2;
+    string<20> b3;
+};
+
+struct bar2 {
+    long    b3;
+    bar b4;
+};
+
+struct bar3 {
+    long b1;
+    long b2;
+    long b3;
+};
+
+struct bar4 {
+    long b1;
+    bar2 b2;
+    long b3;
+    bar3 b4;
+    long b5;
+};
+
+
+interface foo {
+    long    op(in bar a, out bar2 b);
+};
+interface foo2 : foo {
+    bar op2(in bar2 a);
+    long op3(in long a, out char b);
+};
+
+
+typedef     unsigned short  Coord;
+
+struct CellPos1 {
+    Coord   row;
+    Coord   col;
+};
+
+struct CellPos2 {
+    unsigned short  row;
+    unsigned short  col;
+};
+
+struct CellPos3 {
+    Coord   row;
+    Coord   col;
+    unsigned short col2;
+};
+
+interface Cells : foo2 {
+    bar4 op4(in bar4 a, inout bar4 b, out bar4 c);
+    Coord op5(in CellPos1 a, inout CellPos2 b, out CellPos3 c);
+};

data/test/assets/struct/struct5.idl

@@ -0,0 +1,71 @@
+
+
+struct Avocado{
+  float and;
+  double and_eq;
+  unsigned long auto;
+  short bitand;
+  unsigned short bitor;
+  char bool;
+  boolean break;
+  octet catch;
+  float class;
+  double compl;
+  long const_cast;
+  unsigned long continue;
+  short delete;
+  unsigned short do;
+  char dynamic_cast;
+  boolean else;
+  octet explicit;
+  float extern;
+  long for;
+  unsigned long friend;
+  short goto;
+  unsigned short if;
+  octet int;
+  boolean mutable;
+  float namespace;
+  double new;
+  long not;
+  unsigned long not_eq;
+  short operator;
+  unsigned short or;
+  char or_eq;
+  boolean protected;
+  double register;
+  long reinterpret_cast;
+  unsigned long return;
+  short signed;
+  unsigned short sizeof;
+  char static;
+  octet static_cast;
+  boolean template;
+  float this;
+  double throw;
+  short typeid;
+  unsigned short typename;
+  char using;
+  octet virtual;
+  boolean volatile;
+  float wchar_t;
+  double while;
+  long xor;
+  unsigned long xor_eq;
+};
+
+interface idlServer {
+
+  exception AvocadoExcpt{
+    ::Avocado ex1;
+  };
+
+  attribute ::Avocado AvocadoAttr;
+
+  ::Avocado AvocadoOp(
+    in    ::Avocado p1,
+    out   ::Avocado p2,
+    inout ::Avocado p3
+  ) raises (AvocadoExcpt);
+};
+

data/test/assets/typecode/pseudo.idl

@@ -0,0 +1,25 @@
+/**
+ * TypeCode and Any as in, inout, out and return
+ */
+#include <orb.idl>
+
+struct S1 {
+  long x;
+  char c;
+};
+
+struct S2 {
+  string str;
+};
+
+struct S3 {
+  char c;
+  any  a;
+  CORBA::TypeCode tc;
+};
+
+interface foo {
+  any bar( in any a1, out any a2, inout any a3 );
+  CORBA::TypeCode bar1( in CORBA::TypeCode tc1, out CORBA::TypeCode tc2, inout CORBA::TypeCode tc3 );
+};
+

data/test/assets/typedef/shorthand_typedef_struct_insideIF.idl

@@ -0,0 +1,17 @@
+// Description     : Test typedefs of structs
+// Comments        : Shorthand struct is inside an interface and module
+//****************************************************************************
+
+module MA
+{
+    interface IA
+    {
+        typedef struct SA
+        {
+            unsigned short USA;
+            string SSA;
+        } mySA;
+
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/typedef/shorthand_typedef_struct_insideIF_noMO.idl

@@ -0,0 +1,16 @@
+// Description     : Test typedefs of structs
+// Comments        : Shorthand struct is inside an interface with no module
+//****************************************************************************
+
+//Tests the idl2repo tool's ability to generate AESchema when a struct
+//is embedded in a interface
+interface IA
+{
+    typedef struct SA
+    {
+        unsigned short USA;
+        string SSA;
+    } mySA;
+
+    SA MethodMAIA(in long LA, out mySA objSA);
+};

data/test/assets/typedef/shorthand_typedef_struct_insideMO.idl

@@ -0,0 +1,17 @@
+// Description     : Test typedefs of structs
+// Comments        : Shorthand struct is inside a module & outside an interface
+//****************************************************************************
+
+module MA
+{
+    typedef struct SA
+    {
+        unsigned short USA;
+        string SSA;
+    } mySA;
+
+    interface IA
+    {
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/typedef/shorthand_typedef_struct_outsideMO.idl

@@ -0,0 +1,17 @@
+// Description     : Test typedefs of structs
+// Comments        : Shorthand struct is outside a module
+//****************************************************************************
+
+typedef struct SA
+{
+    unsigned short USA;
+    string SSA;
+} mySA;
+
+module MA
+{
+    interface IA
+    {
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/typedef/typedef1.idl

@@ -0,0 +1,8 @@
+typedef short a;
+typedef char c;
+typedef string<256> d;
+typedef sequence<short> e;
+typedef float f;
+typedef short g[5];
+typedef sequence<short, 5> h;
+

data/test/assets/typedef/typedef2.idl

@@ -0,0 +1,22 @@
+/**
+ * typedef string, struct - long form, in parameters
+ */
+
+typedef string S1;
+
+typedef struct SS_ {
+          octet a, b;
+        } SS;
+
+interface foo {
+  typedef long L;
+  struct S {
+    long a;
+    char b;
+  };
+
+  void bar1( in string s );
+  void bar2( in L l_obj );
+  void bar3( in S s_obj );
+};
+

data/test/assets/typedef/typedef_struct_insideIF.idl

@@ -0,0 +1,18 @@
+// Description     : Test typedefs of structs
+// Comments        : Struct is inside an module and interface
+//****************************************************************************
+
+module MA
+{
+    interface IA
+    {
+        struct SA
+        {
+            unsigned short USA;
+            string SSA;
+        };
+        typedef SA mySA;
+
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/typedef/typedef_struct_insideMO.idl

@@ -0,0 +1,18 @@
+// Description     : Test typedefs of structs
+// Comments        : Struct is declared inside a module
+//****************************************************************************
+
+module MA
+{
+    struct SA
+    {
+        unsigned short USA;
+        string SSA;
+    };
+    typedef SA mySA;
+
+    interface IA
+    {
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/typedef/typedef_struct_outsideMO.idl

@@ -0,0 +1,18 @@
+// Description     : Test typedefs of structs
+// Comments        : Struct is declared outside a module
+//****************************************************************************
+
+struct SA
+{
+    unsigned short USA;
+    string SSA;
+};
+typedef SA mySA;
+
+module MA
+{
+    interface IA
+    {
+        SA MethodMAIA(in long LA, out mySA objSA);
+    };
+};

data/test/assets/union/union1.idl

@@ -0,0 +1,31 @@
+union Foo switch (long) {
+case 1: long x;
+case 2: short y;
+default: char z;
+};
+
+union Foo2 switch (char) {
+ case 'a': long x;
+ case 'b': short y;
+ case 'c': char z;
+};
+
+union Foo3 switch (short) {
+ case -1: short a;
+ case 50: long b;
+ default: char c;
+};
+
+union Foo4 switch (long) {
+ case 1: string a;
+ case 2: sequence<long,10>b;
+ default: long c;
+};
+
+interface un {
+    Foo one(in Foo a, inout Foo b, out Foo c);
+    Foo2 two(in Foo2 a, inout Foo2 b, out Foo2 c);
+    Foo3 three(in Foo3 a, inout Foo3 b, out Foo3 c);
+    Foo4 four(in Foo4 a, inout Foo4 b, out Foo4 c);
+};
+

data/test/assets/union/union2.idl

@@ -0,0 +1,22 @@
+enum FooDisc {
+    FOO1,
+    FOO2,
+    FOO3
+};
+union Foo switch (FooDisc) {
+case FOO1: long x;
+case FOO2: string y;
+default: char z;
+};
+
+
+struct Bar {
+    enum BarDisc {
+    BAR1,
+    BAR2
+    } kind;
+    union Foo switch (BarDisc) {
+      case BAR1: long x;
+      case BAR2: long y;
+    } addr;
+};

data/test/assets/union/union3.idl

@@ -0,0 +1,26 @@
+struct Bar {
+    long    b1;
+    char    b2;
+};
+
+union Foo switch (long) {
+case 1: long x;
+case 2: Bar y;
+default: char z;
+};
+
+
+union Foo2 switch (char) {
+  case 'a': long x;
+  case 'b': Foo y;
+};
+
+interface a {
+    struct astruct {
+        Foo2    a1;
+        Foo a2;
+        Bar a3;
+    };
+    Foo2    opA(in astruct b, inout astruct c, out astruct d);
+};
+

data/test/conversions/test_attribute.rb

@@ -0,0 +1,46 @@
+require 'helper'
+
+module ZOMG
+  module Conversions
+    class AttributeTest < ZOMG::Test
+      def setup
+        @tree = ZOMG::IDL.parse(<<-eoidl)
+          interface Foo {
+            attribute long awesome;
+          };
+        eoidl
+      end
+
+      def test_to_ruby_sexp
+        sexp = nil
+        assert_nothing_raised {
+          sexp = @tree.to_ruby_sexp
+        }
+        assert sexp
+        ruby_sexp =
+          [:block,
+           [:module,
+            :Foo,
+            [:scope,
+             [:block,
+              [:defn,
+               :getAwesome,
+               [:scope,
+                [:block,
+                 [:args],
+                 [:fcall,
+                  :raise,
+                  [:array, [:call, [:const, :NotImplementedError], :new]]]]]],
+              [:defn,
+               :setAwesome,
+               [:scope,
+                [:block,
+                 [:args, :_],
+                 [:fcall,
+                  :raise,
+                  [:array, [:call, [:const, :NotImplementedError], :new]]]]]]]]]]
+        assert_equal(ruby_sexp, sexp)
+      end
+    end
+  end
+end