title: Use generic package
body: <p>my question is very simple. I have 2 generic package. I use each package 2 times (once for integers and strings for once). I have a "main" file that use the package selected by the user.
  - package1 with integer
  - or package1 with string
  - or package2 with integer
  - or package2 with string</p>
  
  <pre><code>procedure main is
       package aB is new package1(integer, false, afficheInteger, true);
      --package aB is new package1(Unbounded_String, true, afficheUnbounded, true);
      --package aB is new package2(1,integer, false, afficheInteger, true);
      --package aB is new package2(1, Unbounded_String, true, afficheUnbounded, true);
  </code></pre>
  
  <p>begin
          aB.init();
          .....</p>
  
  <p>The goal is to use the same code (main) for the 4 packages.</p>
  
  <p>Unfortunately I can't find how to do this properly. For the moment I put the list of packages and I comment the packages i don't use. Is it possible to make pseudo if in the begin or init the package in the begin ? Maybe with a package parameter in the main function ?</p>
  
  <p>Thanks a lot and sorry for my english !</p>
  
  <p>Update : </p>
  
  <p>Is it possible to pass a package parameter in a function ? Like this :</p>
  
  <pre><code>procedure init_paquetage1_int is
      package aB is new packA(integer, false, afficheInteger, true);
  begin
      main(aB);
  end init_paquetage1_int; 
  
  procedure main(aB : packA) is
  begin
      aB.init();
      ....
  end main;
  </code></pre>
  
  <p>It's not working.</p>