[31m-----------------------------------------------------[m
[31m-- porttime is Ada binding to C library "porttime".[m
[31m-----------------------------------------------------[m
[31m--  Copyright (C) 2010 Manuel De Girardi.[m

[31m--  This program is free software: you can redistribute it and/or modify[m
[31m--  it under the terms of the GNU General Public License as published by[m
[31m--  the Free Software Foundation, either version 3 of the License, or[m
[31m--  (at your option) any later version.[m

[31m--  This program is distributed in the hope that it will be useful,[m
[31m--  but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--  GNU General Public License for more details.[m

[31m--  You should have received a copy of the GNU General Public License[m
[31m--  along with this program.  If not, see <http://www.gnu.org/licenses/>.[m

[31m-- French translation --[m

[31m-----------------------------------------------------[m
[31m-- porttime is Ada binding to C library "porttime".[m
[31m-----------------------------------------------------[m
[31m--  Copyright (C) 2010 Manuel De Girardi.[m

[31m--  Ce programme est un logiciel libre ; vous pouvez le redistribuer ou le[m
[31m--  modifier suivant les termes de la ?GNU General Public License? telle que[m
[31m--  publiée par la Free Software Foundation : soit la version 3 de cette[m
[31m--  licence, soit (à votre gré) toute version ultérieure.[m

[31m--  Ce programme est distribué dans l?espoir qu?il vous sera utile, mais SANS[m
[31m--  AUCUNE GARANTIE : sans même la garantie implicite de COMMERCIALISABILITÉ[m
[31m--  ni d?ADÉQUATION À UN OBJECTIF PARTICULIER. Consultez la Licence Générale[m
[31m--  Publique GNU pour plus de détails.[m

[31m--  Vous devriez avoir reçu une copie de la Licence Générale Publique GNU avec[m
[31m--  ce programme ; si ce n?est pas le cas, consultez :[m
[31m--  <http://www.gnu.org/licenses/>.[m

[31m-----------------------------------------------------[m
[31m-- Author      : Manuel De Girardi[m
[31m-- Date        : 2012/07/14[m
[31m-- Version     : 0.0.2[m
[31m-- unit type   : specification[m
[31m-- Description : Ada binding to C library "porttime".[m
[31m-----------------------------------------------------[m
[01;34mwith[m Interfaces[31m.[mC[31m;[m
[01;34mwith[m System[31m;[m

[01;34mpackage[m Libsens[31m.[mMIDI[31m.[mPorttime [01;34mis[m

   [01;34mtype[m PtError [01;34mis[m[31m([mPtNoError[31m,[m
                   PtHostError[31m,[m
                   ptAlreadyStarted[31m,[m
                   ptAlreadyStopped[31m,[m
                   PtInsufficientMemory[31m);[m


   [01;34mfunction[m [01;30mPt_Start[m[31m([mResolution [31m:[m [32mInteger[m[31m;[m
                     PtCallback [31m:[m System[31m.[mAddress[31m;[m
                     UserData [31m:[m System[31m.[maddress[31m)[m [01;34mreturn[m PtError[31m;[m
   [01;34mpragma[m [01;30mImport[m [31m([mC[31m,[m Pt_Start[31m,[m [31m"Pt_Start"[m[31m);[m

   [01;34mfunction[m Pt_Time [01;34mreturn[m Interfaces[31m.[mC[31m.[mLong[31m;[m
   [01;34mpragma[m [01;30mImport[m [31m([mC[31m,[m Pt_Time[31m,[m [31m"Pt_Time"[m[31m);[m

   [01;34mtype[m Time_Access [01;34mis[m [01;34maccess[m [01;34mfunction[m [01;34mreturn[m Interfaces[31m.[mC[31m.[mLong[31m;[m
   [01;34mpragma[m [01;30mConvention[m[31m([mC[31m,[m Time_Access[31m);[m
[01;34mend[m Libsens[31m.[mMIDI[31m.[mPorttime[31m;[m
