home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / midi / misc / M2Midi / MidiL.def < prev    next >
Text File  |  1991-11-20  |  5KB  |  205 lines
  1. (***************************************************************************
  2.   :Program.       MidiL.def
  3.   :Author.        Jürgen Zimmermann
  4.   :Address.       Ringstraße 6, W-6719 Altleiningen, Germany
  5.   :Phone.         06356/1456
  6.   :ShortCut.      [JnZ]
  7.   :Support.       -
  8.   :Version.       1.03
  9.   :Date.          30. Oct 1991
  10.   :Copyright.     PD
  11.   :Language.      MODULA-II
  12.   :Translator.    M2Amiga 4.0d
  13.   :Contents.      Modula-2-interface-module for Bill Barton's
  14.   :Contents.      "midi.library" of Fish 227, c-functions in "MidiSupport"!
  15.   :Imports.       "midi.library" V2.0 in the LIBS:-directory
  16.   :Remark.        I want to get into contact with other users of the
  17.   :Remark.        "midi.library" or MIDI-programmers.
  18.   :Remark.        (If you have a new version of the library, please send
  19.   :Remark.        it to me!)
  20.   :Usage.         described in the documents of "midi.library"
  21. ****************************************************************************)
  22. DEFINITION MODULE MidiL{"midi.library",7};
  23.  
  24. (*  Definitions pertaining to MIDI are derived from MIDI 1.0 Detailed
  25.     Specification v4.0 (published by the Internation MIDI Association)
  26.     and is current as of June, 1988.
  27.  
  28.     v2.0 - 23-Oct-88 *)
  29.  
  30. FROM SYSTEM     IMPORT ADDRESS;
  31. FROM IntuitionD IMPORT ImagePtr;
  32. IMPORT m:MidiD;
  33.  
  34.  
  35. VAR midiVersion: INTEGER;
  36.     midiBase   : m.MidiBasePtr;
  37.  
  38.  
  39. CONST midiName       = "midi.library";
  40.       midiMinVersion = 7;
  41.  
  42.  
  43. (* midi.library routine declarations *)
  44. (*
  45.          FUNCDEF LockMidiBase        -30
  46.          FUNCDEF UnlockMidiBase        -36
  47.          FUNCDEF CreateMSource         -42
  48.          FUNCDEF DeleteMSource         -48
  49.          FUNCDEF FindMSource         -54
  50.          FUNCDEF CreateMDest         -60
  51.          FUNCDEF DeleteMDest         -66
  52.          FUNCDEF FindMDest         -72
  53.          FUNCDEF CreateMRoute         -78
  54.          FUNCDEF ModifyMRout         -84
  55.          FUNCDEF DeleteMRoute         -90
  56.          FUNCDEF MRouteSource         -96
  57.          FUNCDEF MRouteDest         -102
  58.          FUNCDEF MRoutePublic         -108
  59.          FUNCDEF GetMidiMsg         -114
  60.          FUNCDEF PutMidiMsg         -120
  61.          FUNCDEF FreeMidiMsg         -126
  62.          FUNCDEF MidiMsgType         -132
  63.          FUNCDEF MidiMsgLength         -138
  64.          FUNCDEF PutMidiStream         -144
  65.          ab V2.0:
  66.          FUNCDEF LockMRoutes         -150
  67.          FUNCDEF UnlockMRoutes         -156
  68.          FUNCDEF FlushMDest         -162
  69.          FUNCDEF GetMidiPacket         -168
  70.          FUNCDEF FreeMidiPacket     -174
  71.          FUNCDEF SetDefaultMRouteInfo     -180
  72.          FUNCDEF CreateMListSignal     -186
  73.          FUNCDEF DeleteMListSignal     -192
  74. *)
  75.  
  76. PROCEDURE CreateMDest(name{8} : ADDRESS;
  77.                       image{9}: ImagePtr): m.MDestPtr;
  78.    CODE -60;
  79.  
  80.  
  81. PROCEDURE CreateMListSignal(flags{0}: LONGCARD): m.MListSignalPtr;
  82.    CODE -186;
  83.  
  84.  
  85. PROCEDURE CreateMRoute(source{8}    : m.MSourcePtr;
  86.                        dest{9}      : m.MDestPtr;
  87.                        routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
  88.    CODE -78;
  89.  
  90.  
  91. PROCEDURE CreateMSource(name{8} : ADDRESS;
  92.                         image{9}: ImagePtr): m.MSourcePtr;
  93.    CODE -42;
  94.  
  95.  
  96. PROCEDURE DeleteMDest(dest{8}: m.MDestPtr);
  97.    CODE -66;
  98.  
  99.  
  100. PROCEDURE DeleteMListSignal(signal{8}: m.MListSignalPtr);
  101.    CODE -192;
  102.  
  103.  
  104. PROCEDURE DeleteMRoute(route{8}: m.MRoutePtr);
  105.    CODE -90;
  106.  
  107.  
  108. PROCEDURE DeleteMSource(source{8}: m.MSourcePtr);
  109.    CODE -48;
  110.  
  111.  
  112. PROCEDURE FindMDest(name{8}: ADDRESS): m.MDestPtr;
  113.    CODE -72;
  114.  
  115.  
  116. PROCEDURE FindMSource(name{8}: ADDRESS): m.MSourcePtr;
  117.    CODE -54;
  118.  
  119.  
  120. PROCEDURE FlushMDest(dest{8}: m.MDestPtr);
  121.    CODE -162;
  122.  
  123.  
  124. PROCEDURE FreeMidiMsg(msg{8}: ADDRESS);
  125.    CODE -126;
  126.  
  127.  
  128. PROCEDURE FreeMidiPacket(packet{8}: m.MidiPacketPtr);
  129.    CODE -174;
  130.  
  131.  
  132. PROCEDURE GetMidiMsg(dest{8}: m.MDestPtr): ADDRESS;
  133.    CODE -114;
  134.  
  135.  
  136. PROCEDURE GetMidiPacket(dest{8}: m.MDestPtr): m.MidiPacketPtr;
  137.    CODE -168;
  138.  
  139.  
  140. PROCEDURE LockMidiBase;
  141.    CODE -30;
  142.  
  143.  
  144. PROCEDURE LockMRoutes;
  145.    CODE -150;
  146.  
  147.  
  148. PROCEDURE MidiMsgLength(msg{8}: ADDRESS): LONGCARD;
  149.    CODE -138;
  150.  
  151.  
  152. PROCEDURE MidiMsgType(msg{8}: ADDRESS): LONGCARD;
  153.    CODE -132;
  154.  
  155.  
  156. PROCEDURE ModifyMRoute(route{8}       : m.MRoutePtr;
  157.                        newrouteinfo{9}: m.MRouteInfoPtr);
  158.    CODE -84;
  159.  
  160.  
  161. PROCEDURE MRouteDest(sourcename{8}: ADDRESS;
  162.                      dest{9}      : m.MDestPtr;
  163.                      routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
  164.    CODE -102;
  165.  
  166.  
  167. PROCEDURE MRoutePublic(sourcename{8}: ADDRESS;
  168.                        destname{9}  : ADDRESS;
  169.                        routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
  170.    CODE -108;
  171.  
  172.  
  173. PROCEDURE MRouteSource(source{8}    : m.MSourcePtr;
  174.                        destname{9}  : ADDRESS;
  175.                        routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
  176.    CODE -96;
  177.  
  178.  
  179. PROCEDURE PutMidiMsg(source{8}: m.MSourcePtr;
  180.                      msg   {9}: ADDRESS): BOOLEAN;
  181.    CODE -120;
  182.  
  183.  
  184. PROCEDURE PutMidiStream(source{8}    : m.MSourcePtr;
  185.                         fillbuffer{9}: ADDRESS;
  186.                         buf{10}      : ADDRESS;
  187.                         bufsize{0}   : LONGCARD;
  188.                         cursize{1}   : LONGCARD);
  189.    CODE -144;
  190.  
  191.  
  192. PROCEDURE SetDefaultMRouteInfo(dest     {8}: m.MDestPtr;
  193.                                routeinfo{9}: m.MRouteInfoPtr);
  194.    CODE -180;
  195.  
  196.  
  197. PROCEDURE UnlockMidiBase;
  198.    CODE -36;
  199.  
  200.  
  201. PROCEDURE UnlockMRoutes;
  202.    CODE -156;
  203.  
  204. END MidiL.
  205.