with Text_Io;
use Text_Io;
package body Data_Pkg is

    package Quote_Io is new Enumeration_Io (Act_Phase_Char_Set);
    use Quote_Io;

    function Convert (Char : Character) return Act_Phase_Char_Set is
        Astring : String (1 .. 3) := "' '";
        Quote_Char : Act_Phase_Char_Set := ' ';
        Dumb : Integer := 1;  -- returns the number of the last char read
    begin
        Astring (2) := Char;
        -- read astring and return the enumeration value in quote_char
        Get (Astring, Quote_Char, Dumb);
        return Quote_Char;
    end Convert;

    function Convert (Quote_Char : Act_Phase_Char_Set) return Character is
        Astring : String (1 .. 3) := "' '";
        Char : Character := ' ';
    begin
        -- output the value of quote_char to astring
        Put (Astring, Quote_Char);
        Char := Astring (2);
        return Char;
    end Convert;

end Data_Pkg;