//

//  BLIPMessage.m

//  MYNetwork

//

//  Created by Jens Alfke on 5/10/08.

//  Copyright 2008 Jens Alfke. All rights reserved.

//

#import "BLIPMessage.h"

#import "BLIP_Internal.h"

#import "BLIPReader.h"

#import "BLIPWriter.h"

#import "Logging.h"

#import "Test.h"

#import "ExceptionUtils.h"

#import "Target.h"

// From Google Toolbox For Mac <http://code.google.com/p/google-toolbox-for-mac/>

#import "GTMNSData+zlib.h"

@implementation BLIPMessage

- (id) _initWithConnection: (BLIPConnection*)connection

                    isMine: (BOOL)isMine

                     flags: (BLIPMessageFlags)flags

                    number: (UInt32)msgNo

                      body: (NSData*)body

{

    self = [super init];

    if (self != nil) {

        _connection = [connection retain];

        _isMine = isMine;

        _flags = flags;

        _number = msgNo;

        if( isMine ) {

            _body = body.copy;

            _properties = [[BLIPMutableProperties alloc] init];

            _propertiesAvailable = YES;

        } else {

            _encodedBody = body.mutableCopy;

        }

        LogTo(BLIPVerbose,@"INIT %@",self);

    }

    return self;

}

- (void) dealloc

{

    LogTo(BLIPVerbose,@"DEALLOC %@",self);

    [_properties release];

    [_encodedBody release];

    [_mutableBody release];

    [_body release];

    [_connection release];

    [super dealloc];

}

- (NSString*) description

{

    NSUInteger length = (_body.length ?: _mutableBody.length) ?: _encodedBody.length;

    NSMutableString *desc = [NSMutableString stringWithFormat: @"%@[#%u, %u bytes",

                             self.class,_number, length];

    if( _flags & kBLIP_Compressed ) {

        if( _encodedBody && _encodedBody.length != length )

            [desc appendFormat: @" (%u gzipped)", _encodedBody.length];

        else

            [desc appendString: @", gzipped"];

    }

    if( _flags & kBLIP_Urgent )

        [desc appendString: @", urgent"];

    if( _flags & kBLIP_NoReply )

        [desc appendString: @", noreply"];

    if( _flags & kBLIP_Meta )

        [desc appendString: @", META"];

    [desc appendString: @"]"];

    return desc;

}

- (NSString*) descriptionWithProperties

{

    NSMutableString *desc = (NSMutableString*)self.description;

    [desc appendFormat: @" %@", self.properties.allProperties];

    return desc;

}

#pragma mark -

#pragma mark PROPERTIES & METADATA:

@synthesize connection=_connection, number=_number, isMine=_isMine, isMutable=_isMutable,

            _bytesWritten, sent=_sent, propertiesAvailable=_propertiesAvailable, complete=_complete;

- (void) _setFlag: (BLIPMessageFlags)flag value: (BOOL)value

{

    Assert(_isMine && _isMutable);

    if( value )

        _flags |= flag;

    else

        _flags &= ~flag;

}

- (BLIPMessageFlags) _flags                 {return _flags;}

- (BOOL) compressed                         {return (_flags & kBLIP_Compressed) != 0;}

- (BOOL) urgent                             {return (_flags & kBLIP_Urgent) != 0;}

- (void) setCompressed: (BOOL)compressed    {[self _setFlag: kBLIP_Compressed value: compressed];}

- (void) setUrgent: (BOOL)high              {[self _setFlag: kBLIP_Urgent value: high];}

- (NSData*) body

{

    if( ! _body && _isMine )

        return [[_mutableBody copy] autorelease];

    else

        return _body;

}

- (void) setBody: (NSData*)body

{

    Assert(_isMine && _isMutable);

    if( _mutableBody )

        [_mutableBody setData: body];

    else

        _mutableBody = [body mutableCopy];

}

- (void) _addToBody: (NSData*)data

{

    if( data.length ) {

        if( _mutableBody )

            [_mutableBody appendData: data];

        else

            _mutableBody = [data mutableCopy];

        setObj(&_body,nil);

    }

}

- (void) addToBody: (NSData*)data

{

    Assert(_isMine && _isMutable);

    [self _addToBody: data];

}

- (NSString*) bodyString

{

    NSData *body = self.body;

    if( body )

        return [[[NSString alloc] initWithData: body encoding: NSUTF8StringEncoding] autorelease];

    else

        return nil;

}

- (void) setBodyString: (NSString*)string

{

    self.body = [string dataUsingEncoding: NSUTF8StringEncoding];

    self.contentType = @"text/plain; charset=UTF-8";

}

- (BLIPProperties*) properties

{

    return _properties;

}

- (BLIPMutableProperties*) mutableProperties

{

    Assert(_isMine && _isMutable);

    return (BLIPMutableProperties*)_properties;

}

- (NSString*) valueOfProperty: (NSString*)property

{

    return [_properties valueOfProperty: property];

}

- (void) setValue: (NSString*)value ofProperty: (NSString*)property

{

    [self.mutableProperties setValue: value ofProperty: property];

}

- (NSString*) contentType               {return [_properties valueOfProperty: @"Content-Type"];}

- (void) setContentType: (NSString*)t   {[self setValue: t ofProperty: @"Content-Type"];}

- (NSString*) profile                   {return [_properties valueOfProperty: @"Profile"];}

- (void) setProfile: (NSString*)p       {[self setValue: p ofProperty: @"Profile"];}

#pragma mark -

#pragma mark I/O:

- (void) _encode

{

    Assert(_isMine && _isMutable);

    _isMutable = NO;

    BLIPProperties *oldProps = _properties;

    _properties = [oldProps copy];

    [oldProps release];

    _encodedBody = [_properties.encodedData mutableCopy];

    Assert(_encodedBody.length>=2);

    NSData *body = _body ?: _mutableBody;

    NSUInteger length = body.length;

    if( length > 0 ) {

        if( self.compressed ) {

            body = [NSData gtm_dataByGzippingData: body compressionLevel: 5];

            LogTo(BLIPVerbose,@"Compressed %@ to %u bytes (%.0f%%)", self,body.length,

                  body.length*100.0/length);

        }

        [_encodedBody appendData: body];

    }

}

- (void) _assignedNumber: (UInt32)number

{

    Assert(_number==0,@"%@ has already been sent",self);

    _number = number;

    _isMutable = NO;

}

- (BOOL) _writeFrameTo: (BLIPWriter*)writer maxSize: (UInt16)maxSize

{

    Assert(_number!=0);

    Assert(_isMine);

    Assert(_encodedBody);

    if( _bytesWritten==0 )

        LogTo(BLIP,@"Now sending %@",self);

    ssize_t lengthToWrite = _encodedBody.length - _bytesWritten;

    if( lengthToWrite <= 0 && _bytesWritten > 0 )

        return NO; // done

    Assert(maxSize > sizeof(BLIPFrameHeader));

    maxSize -= sizeof(BLIPFrameHeader);

    UInt16 flags = _flags;

    if( lengthToWrite > maxSize ) {

        lengthToWrite = maxSize;

        flags |= kBLIP_MoreComing;

        LogTo(BLIPVerbose,@"%@ pushing frame, bytes %u-%u", self, _bytesWritten, _bytesWritten+lengthToWrite);

    } else {

        flags &= ~kBLIP_MoreComing;

        LogTo(BLIPVerbose,@"%@ pushing frame, bytes %u-%u (finished)", self, _bytesWritten, _bytesWritten+lengthToWrite);

    }

    // First write the frame header:

    BLIPFrameHeader header = {  NSSwapHostIntToBig(kBLIPFrameHeaderMagicNumber),

                                NSSwapHostIntToBig(_number),

                                NSSwapHostShortToBig(flags),

                                NSSwapHostShortToBig(sizeof(BLIPFrameHeader) + lengthToWrite) };

    [writer writeData: [NSData dataWithBytes: &header length: sizeof(header)]];

    // Then write the body:

    if( lengthToWrite > 0 ) {

        [writer writeData: [NSData dataWithBytes: (UInt8*)_encodedBody.bytes + _bytesWritten

                                          length: lengthToWrite]];

        _bytesWritten += lengthToWrite;

    }

    return (flags & kBLIP_MoreComing) != 0;

}

- (BOOL) _receivedFrameWithHeader: (const BLIPFrameHeader*)header body: (NSData*)body

{

    Assert(!_isMine);

    AssertEq(header->number,_number);

    Assert(_flags & kBLIP_MoreComing);

    BLIPMessageType frameType = (header->flags & kBLIP_TypeMask), curType = (_flags & kBLIP_TypeMask);

    if( frameType != curType ) {

        Assert(curType==kBLIP_RPY && frameType==kBLIP_ERR && _mutableBody.length==0,

               @"Incoming frame's type %i doesn't match %@",frameType,self);

        _flags = (_flags & ~kBLIP_TypeMask) | frameType;

    }

    if( _encodedBody )

        [_encodedBody appendData: body];

    else

        _encodedBody = [body mutableCopy];

    LogTo(BLIPVerbose,@"%@ rcvd bytes %u-%u", self, _encodedBody.length-body.length, _encodedBody.length);

    if( ! _properties ) {

        // Try to extract the properties:

        ssize_t usedLength;

        setObj(&_properties, [BLIPProperties propertiesWithEncodedData: _encodedBody usedLength: &usedLength]);

        if( _properties ) {

            [_encodedBody replaceBytesInRange: NSMakeRange(0,usedLength)

                                    withBytes: NULL length: 0];

        } else if( usedLength < 0 )

            return NO;

        self.propertiesAvailable = YES;

    }

    if( ! (header->flags & kBLIP_MoreComing) ) {

        // After last frame, decode the data:

        _flags &= ~kBLIP_MoreComing;

        if( ! _properties )

            return NO;

        unsigned encodedLength = _encodedBody.length;

        if( self.compressed && encodedLength>0 ) {

            _body = [[NSData gtm_dataByInflatingData: _encodedBody] copy];

            if( ! _body )

                return NO;

            LogTo(BLIPVerbose,@"Uncompressed %@ from %u bytes (%.1fx)", self, encodedLength,

                  _body.length/(float)encodedLength);

        } else {

            _body = [_encodedBody copy];

        }

        setObj(&_encodedBody,nil);

        self.propertiesAvailable = self.complete = YES;

    }

    return YES;

}

- (void) _connectionClosed

{

    if( _isMine ) {

        _bytesWritten = 0;

        _flags |= kBLIP_MoreComing;

    }

}

@end

/*

 Copyright (c) 2008, Jens Alfke <jens@mooseyard.com>. 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.

 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 THE COPYRIGHT OWNER OR CONTRI-

 BUTORS 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.

 */