home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / callmon / src / example_collection_.ada < prev    next >
Text File  |  1996-08-06  |  1KB  |  43 lines
  1. --  CALLMON Examples
  2. --
  3. --  File:     EXAMPLE_COLLECTION_.ADA
  4. --  Author:   Thierry Lelegard
  5. --  Version:  1.0
  6. --  Date:     24-JUL-1996
  7. --
  8. --  Abstract: Example package which traces the usage of Ada collections.
  9. --
  10.  
  11.  
  12. package Example_Collection is
  13.  
  14.     --  This function returns a string which uniformely identifies
  15.     --  the current task in the application.
  16.  
  17.     function Task_Name return String;
  18.  
  19.     --  This generic routine returns the "image" of an integer value,
  20.     --  in an hexadecimal string.
  21.  
  22.     generic
  23.         type Element is range <>;
  24.         Default_Width : in Positive;
  25.     function Integer_Hexa_Image (
  26.         Item  : in Element;
  27.         Width : in Positive := Default_Width)
  28.         return String;
  29.  
  30.     --  This generic routine returns the "image" of an access value,
  31.     --  in an hexadecimal string.
  32.  
  33.     generic
  34.         type Element is limited private;
  35.         type Access_Element is access Element;
  36.         Default_Width : in Positive;
  37.     function Access_Hexa_Image (
  38.         Item  : in Access_Element;
  39.         Width : in Positive := Default_Width)
  40.         return String;
  41.  
  42. end Example_Collection;
  43.