Re: User define attributes

[Marius Amado Alves <alves@systran.lu>]

On Wed, 18 Apr 2001, Samuel T. Harris wrote:
> 
>     generic
> 	type Index_Type is (<>);
> 	type Component_Type is private;
>       ...
>     package Array_Attribute_Functions is
> 	function Width (Item : Array_Type) return Natural;
> 	function Image (Item : Array_Type) return String;
> 	function Value (Item : String) return Array_Type;
>     end Array_Attribute_Functions;
>
> ...

My package Bundles is along those lines.

generic

  type Names is (<>);

package Bundles is

  type Bundle_Type is array(Names) of Unbounded_String;

  function Bundle(
    S: String;
    Indicator: String := "=>";
    Separator: String := ",")
    return Bundle_Type;
      -- Parses a bundle representation S into a Bundle_Type.
      -- White space between tokens is ignored.
      -- Unnamed items are assigned Null_Unbounded_String.
      -- B = Bundle(Image(B)) holds.

  function Image(
    ...

It has served me long and well.

It is now in Adlib (lexis.di.fct.unl.pt/ADaLIB), category Miscelany.

--
Marius Amado Alves
 alves@systran.lu
Project Tradaut-Pt
Systran Luxembourg
12, Rue de Vianden
L-2680  LUXEMBOURG
Tel 352 + 45 46 53
Fax 352 + 45 74 75
Mob 351 +939354002