diff AudioProcessorTypes.bsv @ 16:7e1510b47336 pygar svn.17

[svn r17] added rest of items for core
author punk
date Tue, 27 Apr 2010 22:54:50 -0400
parents
children
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/AudioProcessorTypes.bsv	Tue Apr 27 22:54:50 2010 -0400
     1.3 @@ -0,0 +1,52 @@
     1.4 +
     1.5 +// The MIT License
     1.6 +
     1.7 +// Copyright (c) 2009 Massachusetts Institute of Technology
     1.8 +
     1.9 +// Permission is hereby granted, free of charge, to any person obtaining a copy
    1.10 +// of this software and associated documentation files (the "Software"), to deal
    1.11 +// in the Software without restriction, including without limitation the rights
    1.12 +// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
    1.13 +// copies of the Software, and to permit persons to whom the Software is
    1.14 +// furnished to do so, subject to the following conditions:
    1.15 +
    1.16 +// The above copyright notice and this permission notice shall be included in
    1.17 +// all copies or substantial portions of the Software.
    1.18 +
    1.19 +// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    1.20 +// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    1.21 +// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
    1.22 +// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    1.23 +// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    1.24 +// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
    1.25 +// THE SOFTWARE.
    1.26 +
    1.27 +// Author: Kermin Fleming kfleming@mit.edu
    1.28 +
    1.29 +import Connectable::*;
    1.30 +import GetPut::*;
    1.31 +import ClientServer::*;
    1.32 +
    1.33 +typedef Int#(16) Sample;
    1.34 +
    1.35 +typedef enum {
    1.36 +  EndOfFile = 0,
    1.37 +  Data = 1
    1.38 +} AudioProcessorControl deriving (Bits,Eq);
    1.39 +
    1.40 +
    1.41 +typedef struct { 
    1.42 +  Sample left;
    1.43 +  Sample right;
    1.44 +} StereoSample deriving (Bits,Eq);
    1.45 +
    1.46 +typedef union tagged{
    1.47 + Sample Sample;
    1.48 + void EndOfFile;
    1.49 +} AudioProcessorUnit deriving (Bits,Eq);
    1.50 +
    1.51 +interface AudioPipeline;
    1.52 +  interface Put#(AudioProcessorUnit) sampleInput;
    1.53 +  interface Get#(AudioProcessorUnit) sampleOutput;
    1.54 +endinterface
    1.55 +