PageRenderTime 42ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/octave/director_nested_runme.m

#
MATLAB | 39 lines | 30 code | 9 blank | 0 comment | 4 complexity | f64cbd8069264c3661947c899afc7b7c MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. director_nested
    2. 

  2. 

  3. A=@() subclass(FooBar_int(),
    4. 

  4. 	       'do_step',@(self) "A::do_step;",
    5. 

  5. 	       'get_value',@(self) "A::get_value");
    6. 

  6. 

  7. a = A();
    8. 

  8. if (!strcmp(a.step(),"Bar::step;Foo::advance;Bar::do_advance;A::do_step;"))
    9. 

  9.   error("Bad A virtual resolution")
    10. 

  10. endif
    11. 

  11. 

  12. B=@() subclass(FooBar_int(),
    13. 

  13. 	       'do_advance',@(self) strcat("B::do_advance;",self.do_step()),
    14. 

  14. 	       'do_step',@(self) "B::do_step;",
    15. 

  15. 	       'get_value',@(self) 1);
    16. 

  16. 

  17. b = B();
    18. 

  18. 

  19. if (!strcmp(b.step(),"Bar::step;Foo::advance;B::do_advance;B::do_step;"))
    20. 

  20.   error("Bad B virtual resolution")
    21. 

  21. endif
    22. 

  22. 

  23. C=@() subclass(FooBar_int(),
    24. 

  24. 	       'do_advance',@(self) strcat("C::do_advance;",self.FooBar_int.do_advance()),
    25. 

  25. 	       'do_step',@(self) "C::do_step;",
    26. 

  26. 	       'get_value',@(self) 2,
    27. 

  27. 	       'get_name',@(self) strcat(self.FooBar_int.get_name()," hello"));
    28. 

  28. 

  29. cc = C();
    30. 

  30. c = FooBar_int_get_self(cc);
    31. 

  31. c.advance();
    32. 

  32. 

  33. if (!strcmp(c.get_name(),"FooBar::get_name hello"))
    34. 

  34.   error
    35. 

  35. endif
    36. 

  36. 

  37. if (!strcmp(c.name(),"FooBar::get_name hello"))
    38. 

  38.   error
    39. 

  39. endif
    40. 

  40.