1 2 3 4 5 6 7 8 9 10 11 12 13 | with HAL; with System.Storage_Elements; package MIDI.Encoder is function Encode (Msg : Message) return HAL.UInt8_Array; -- Return the encoded MIDI message in an array function Encode (Msg : Message) return System.Storage_Elements.Storage_Array; -- Return the encoded MIDI message in an array end MIDI.Encoder; |