/source/library/Interlace/Erlang/TermProtocol.cs

#region Using Directives and Copyright Notice



// Copyright (c) 2007-2010, Computer Consultancy Pty Ltd

// All rights reserved.

// 

// Redistribution and use in source and binary forms, with or without

// modification, are permitted provided that the following conditions are met:

//     * Redistributions of source code must retain the above copyright

//       notice, this list of conditions and the following disclaimer.

//     * Redistributions in binary form must reproduce the above copyright

//       notice, this list of conditions and the following disclaimer in the

//       documentation and/or other materials provided with the distribution.

//     * Neither the name of the Computer Consultancy Pty Ltd nor the

//       names of its contributors may be used to endorse or promote products

//       derived from this software without specific prior written permission.

// 

// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 

// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 

// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 

// ARE DISCLAIMED. IN NO EVENT SHALL COMPUTER CONSULTANCY PTY LTD BE LIABLE 

// FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 

// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 

// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 

// CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 

// LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 

// OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH

// DAMAGE.



#endregion



// Portions of this code were originally developed for Bit Plantation BitLibrary.

// (Portions Copyright © 2006 Bit Plantation)



using System;

using System.Collections.Generic;

using System.Text;

using System.Net;

using System.Net.Sockets;

using System.IO;



using Interlace.ReactorCore;

using Interlace.ReactorService;

using Interlace.ReactorUtilities;



namespace Interlace.Erlang

{

    public class TermProtocol : FrameProtocol

    {

        public TermProtocol()

        {

        }



        protected override void HandleReceivedFrame(byte[] data)

        {

            MemoryStream stream = new MemoryStream(data, 0, data.Length, false);



            object obj;



            using (TermReader reader = new TermReader(stream))

            {

                obj = reader.ReadTerm();



                TermReceived(obj);

            }

        }



        protected virtual void TermReceived(object term)

        {

        }



        public void SendTerm(object term)

        {

            using (MemoryStream stream = PrepareSendFrame())

            {

                using (TermWriter writer = new TermWriter(stream))

                {

                    writer.WriteTerm(term);



                    CompleteSendFrame(stream);

                }

            }

        }

    }

}