37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
function Image (T : Enum) return Atom;
-- Convert an enumeration value into an atom
function Value (Data : Atom) return Enum;
-- Convert an atom into an enumeration value
function Value (Data : Atom; Default : Enum) return Enum;
-- Convert an atom into an enumeration value,
-- with a default value on invalid atom images
end Typed_IO;
end Natools.S_Expressions.Enumeration_IO;
|
|
|
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
function Image (T : Enum) return Atom;
-- Convert an enumeration value into an atom
function Value (Data : Atom) return Enum;
-- Convert an atom into an enumeration value
function Value (Data : Atom; Fallback : Enum) return Enum;
-- Convert an atom into an enumeration value,
-- with a fallback value on invalid atom images
end Typed_IO;
end Natools.S_Expressions.Enumeration_IO;
|