struct

(**

Descripton

Cette fonction sert à détecter quel périphérique MIDI envoie effectivement des données. Il faut actionner les commandes du clavier MIDI pour que des données soient effectivement perçues.

Copyright Stéphane Grognet
IREM des Pays de la Loire - Université de Nantes
Laboratoire de mathématiques Jean Leray UMR 6629 CNRS
version 0.7
@version 0.7 @author Stéphane Grognet @since 2014 *)



let cherche_midi = function (adresse:string) ->
 let ic = open_in_gen [Open_binary ; Open_rdonly] 0o400 adresse in
  ignore ( input_byte ic ) ;
  print_string adresse ;
  print_newline () ;
  close_in_noerr ic ;
  Sys.command "killall CHERCHE_MIDI" ;;

cherche_midi Sys.argv.(1) ;;


end