Re: [Gm2] Exporting and Importing amongst inner modules

[Gaius Mulley]

Hi John,

further variant's on your inner modules theme.  This works:

MODULE InnerModules2;

   (*-------------------------*)
   MODULE FirstInner;

   EXPORT One;

   PROCEDURE One() :CARDINAL;
   BEGIN
     RETURN 1;
   END One;

   END FirstInner;

   MODULE SecondInner;

   IMPORT FirstInner;

   EXPORT Two;

   PROCEDURE Two() :CARDINAL;
   BEGIN
     RETURN FirstInner.One() + FirstInner.One()
   END Two;

   END SecondInner;

VAR
   n :CARDINAL;
BEGIN
   n := Two()
END InnerModules2.


but this is not allowed:

MODULE InnerModules3;

   (*-------------------------*)
   MODULE FirstInner;

   EXPORT QUALIFIED One;

   PROCEDURE One() :CARDINAL;
   BEGIN
     RETURN 1;
   END One;

   END FirstInner;

   MODULE SecondInner;

   IMPORT FirstInner;

   EXPORT Two;

   PROCEDURE Two() :CARDINAL;
   BEGIN
     RETURN FirstInner.One() + FirstInner.One()
   END Two;

   END SecondInner;

VAR
   n :CARDINAL;
BEGIN
   n := Two()
END InnerModules3.


this last one may be a bug - the pim4 chapter on Inner Modules
seems to suggest that QUALIFIED can be used in an inner module.

regards,
Gaius