1. PmError Pm_OpenOutput( PortMidiStream** stream,
2.                 PmDeviceID outputDevice,
3.                 void *outputDriverInfo,
4.                 long bufferSize,
5.                 PmTimeProcPtr time_proc,
6.                 void *time_info,
7.                 long latency );

#define Pm_Message(status, data1, data2) \
         ((((data2) << 16) & 0xFF0000) | \
          (((data1) << 8) & 0xFF00) | \
          ((status) & 0xFF))

#include <portmidi.h>
#include <stdio.h>
 
int main (void) {
  printf("%i", Pm_Message(0x90, 60, 100));
}

function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      loop
 
         Rest := (Number rem 16);
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((Rest))));
         number := Number - rest;
 
         Last := Last - 1;
         exit when (Number rem 16) = 0;
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number/16)));
      return Image(Last..Image'length);
   end Hex_Image;
 
 
 
   type String_Access is access String;
 
 
   File : Text_Io.File_Type;
   Filename : constant String := "Harmonie.tmp";
   Last : Natural;
   function Pm_Message(Message : T_Message) return Interfaces.C.Long is
 
      Result : Interfaces.C.Long := 0;
 
      Hexa_String : String_Access := new String '
        ( Hex_Image(Message.Data2) &
         Hex_Image(Message.Data1) &
          Hex_Image(Message.Status));
   begin
      Text_Io.Put_Line("Status : " & Hex_Image(Message.Status));
      Text_Io.Put_Line("Data1 : " & Hex_Image(Message.Data1));
      Text_Io.Put_Line("Data2 : " & Hex_Image(Message.Data2));
      Text_Io.Create(File, Out_File, Filename);
      Text_Io.Put(File, "16#" & Hexa_String.all & '#');
      Text_Io.Close(File);
      Text_Io.Open(File, In_File, Filename);
      Long_io.Get(File, Result);
      return Result;
   end Pm_Message;

with Porttime;
with System;
with Interfaces.C;
with System.Address_To_Access_Conversions;
package Portmidi is
 
 
 
 
 
 
   type PmError is (pmNoErro,
                    PmHostError,
                    pmInvalidDeviceId,
                    pmInsufficientMemory,
                    pmBufferTooSmall,
                    pmBufferOverflow,
                    pmBadPtr,
                    pmBadData,
                    pmInternalError,
                    PmBufferMaxSize);
 
   type T_PortMidiStream is
     record
        null;
     end record;
 
 
 
 
 
   package Pm_Stream_Conversion is new System.Address_To_Access_Conversions(T_PortMidiStream);
   use Pm_Stream_Conversion;
 
 
   type T_ErrorText is new Interfaces.C.Char_Array(0..10);
 
   function Pm_GetErrorText( Errnum : PmError  ) return T_ErrorText;
   Pragma Import (C, Pm_GetErrorText, "Pm_GetErrorText" );
 
   type DeviceInfo is
      record
         StructVersion : Integer;
         Interf : System.address;
         Name : System.Address;
         Input : Integer;
         Output : Integer;
         Opened : integer;
      end record;
 
 
   package DeviceInfo_Conversion is new System.Address_To_Access_Conversions(DeviceInfo);
   use DeviceInfo_Conversion;
 
 
   function Pm_HasHostError( PortMidiStream : System.address) return Interfaces.C.Int;
   pragma Import (C, Pm_HasHostError, "Pm_HasHostError" );

Pm_Error : PmError;
 
   PortMidiStream_Ptr : Pm_Stream_Conversion.Object_Pointer :=
     new T_PortMidiStream;
 
   OutputDriverInfo_Ptr,
   Time_Info_Ptr : System.Address := Null_Address;
 
 
   Current_DeviceInfo : DeviceInfo;
 
   Device : Natural;
 
   Pt_Error : PtError;
   Resolution : Integer := 1;
   PtCallback,
   UserData : System.Address := Null_Address;
 
   Pm_Event : PmEvent;
 
   Content : T_Message := (16#90#, 60, 100);
 
   Char : Character;
 
   package Long_Io is new Ada.Text_Io.Integer_Io(Interfaces.C.Long);
 
begin
   Pt_Error := Pt_Start(Resolution, PtCallback, UserData);
   Pm_Error := Pm_Initialize;
   New_Line;
   for I in 0..Pm_CountDevices-1 loop
      Current_DeviceInfo := DeviceInfo_Conversion.To_Pointer(Pm_GetDeviceInfo(I)).all;
      if Current_DeviceInfo.Output /= 0 then
         Put(I);
         Put_Line(" : " & To_Ada(To_Pointer(Current_DeviceInfo.Name).all));
      end if;
   end loop;
   New_Line;
 
   Put("Choose device : " );
   Get(Device);
   Pm_Error := Pm_OpenOutput(PortMidiStream => Pm_Stream_Conversion.To_Address(PortMidiStream_Ptr),
 
                             OutputDevice => device,
                             outputDriverInfo => OutputDriverInfo_ptr,
                             BufferSize => 0,
                             Time_Proc => Pt_Time'access,
                             Time_Info => Time_Info_Ptr,
                             latency => 50);
 
   Put_line("Pm_OpenOutput... Ok !" );
   --Put_Line("Address_Image : " & System.Address_Image(Pm_Stream_Conversion.To_Address(PortMidiStream_Ptr)));
   if Pm_HasHostError(Pm_Stream_Conversion.To_Address(PortMidiStream_Ptr)) /= 0 then
 
      Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
   else
 
      Put_line("PortMidiStream... Ok !" );
   end if;