//
//  MulleScionObjectModel+Parsing.m
//  MulleScion
//
//  Created by Nat! on 01.03.13.
//
//  Copyright (c) 2013 Nat! - Mulle kybernetiK
//  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 Mulle kybernetiK 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 THE COPYRIGHT HOLDER OR CONTRIBUTORS 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.
//

#import "MulleScionObjectModel+Parsing.h"


@implementation MulleScionObject (Parsing)

- (MulleScionObject *) behead
{
   MulleScionObject   *obj;
   
   obj = self->next_;
   self->next_ = nil;
   return( obj);
}


- (MulleScionObject *) tail
{
   MulleScionObject   *obj;
   
   for( obj = self; obj->next_; obj = obj->next_);
   return( obj);
}


- (NSUInteger) count;
{
   MulleScionObject  *obj;
   NSUInteger        n;
   
   n = 1;
   for( obj = self; obj->next_; obj = obj->next_)
      ++n;
   return( n);
}


- (void) appendRetainedObject:(MulleScionObject *) NS_CONSUMED  p
{
   NSParameterAssert( [p isKindOfClass:[MulleScionObject class]]);
   NSParameterAssert( ! self->next_);
   // NSParameterAssert( ! p->next_ || [p isBlock] || [p isKindOfClass:[MulleScionTemplate class]]);
   
   self->next_ = p;
}


- (BOOL) snarfsScion
{
   return( NO);
}

@end


@implementation MulleScionTemplate (Parsing)

- (BOOL) snarfsScion
{
   return( YES);
}

@end


@implementation MulleScionRequires(Parsing)

- (BOOL) snarfsScion
{
   return( NO);
}

@end