TAO/tests/IDL_Test/repo_id_mod.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    repo_id_mod.idl
   5  *
   6  *  This file contains examples of IDL code that has
   7  *  caused problems in the past for the TAO IDL
   8  *  compiler. This test is to make sure the problems
   9  *  stay fixed.
  10  *
  11  *
  12  *  @author Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
  13  */
  14 //=============================================================================
  15
  16
  17 module gleep
  18 {
  19   local interface schmooze {};
  20 };
  21
  22 module gleep
  23 {
  24   local interface schmeer {};
  25 };
  26
  27 module gleep
  28 {
  29   local interface schlemiel {};
  30
  31   // This should propagate to all previous and subsequent
  32   // openings of this module.
  33   typeprefix gleep "gleep_prefix";
  34 };
  35
  36 module gleep
  37 {
  38   local interface spilkis {};
  39
  40   module floop
  41   {
  42     local interface schmuck {};
  43     local interface schmendrick;
  44
  45 // Tests the handling of extra whitespace as well as the version setting.
  46 #    pragma version     gleep::floop::schmendrick    524.23
  47
  48     local interface schmendrick {};
  49
  50     module verklempt
  51     {
  52       local interface schlemazel {};
  53
  54     // This will override the prefix directive for module floop at the end
  55     // of the file.
  56       typeprefix floop::verklempt "verklempt_prefix";
  57     };
  58   };
  59
  60   local interface schmegegging {};
  61 };
  62
  63 // This should override any existing prefix and disable any subsequent
  64 // attempts to set it, such as in the directive below.
  65 typeid gleep::floop::schmuck "ABRA:cadabra/hocus/pocus:1.23";
  66
  67 // This will affect everything in floop's scope recursively, except items
  68 // which have a prefix that was applied to a narrower scope.
  69 typeprefix ::gleep::floop "floop_prefix";
  70