/** GSWRepetition.m - <title>GSWeb: Class GSWRepetition</title>

   Copyright (C) 1999-2004 Free Software Foundation, Inc.
   
   Written by:	Manuel Guesdon <mguesdon@orange-concept.com>
   Date: 		Jan 1999
   
   $Revision$
   $Date$
   
   <abstract></abstract>

   This file is part of the GNUstep Web Library.

   <license>
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.
   
   You should have received a copy of the GNU Library General Public
   License along with this library; if not, write to the Free
   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   </license>
**/

#include "config.h"

RCS_ID("$Id$")

#include "GSWeb.h"

static SEL prepareIterationSEL=NULL;
static SEL objectAtIndexSEL = NULL;
static SEL setValueInComponentSEL = NULL;

//====================================================================
@implementation GSWRepetition

//--------------------------------------------------------------------
+ (void) initialize
{
  if (self == [GSWRepetition class])
    {
      prepareIterationSEL=@selector(_prepareIterationWithIndex:startIndex:stopIndex:list:listCount:listObjectAtIndexIMP:itemSetValueIMP:indexSetValueIMP:component:inContext:);
      objectAtIndexSEL=@selector(objectAtIndex:);
      setValueInComponentSEL=@selector(setValue:inComponent:);
    };
};

//--------------------------------------------------------------------
-(id)initWithName:(NSString*)name
     associations:(NSDictionary*)associations
  contentElements:(NSArray*)elements
{
  //OK
  LOGObjectFnStart();
  if ((self=[super initWithName:name
                   associations:nil
                   template:nil]))
    {
      _list=[[associations objectForKey:list__Key
                           withDefaultObject:[_list autorelease]] retain];
      NSDebugMLLog(@"gswdync",@"list=%@",_list);
      _item=[[associations objectForKey:item__Key
                            withDefaultObject:[_item autorelease]] retain];
      NSDebugMLLog(@"gswdync",@"item=%@",_item);
      if (_item && ![_item isValueSettable])
        {
          ExceptionRaise0(@"GSWRepetition",@"'item' parameter must be settable");
        };
      _identifier=[[associations objectForKey:identifier__Key
                                  withDefaultObject:[_identifier autorelease]] retain];
      NSDebugMLLog(@"gswdync",@"identifier=%@",_identifier);
      _count=[[associations objectForKey:count__Key
                            withDefaultObject:[_count autorelease]] retain];
      NSDebugMLLog(@"gswdync",@"count=%@",_count);
      _index=[[associations objectForKey:index__Key
                            withDefaultObject:[_index autorelease]] retain];
      NSDebugMLLog(@"gswdync",@"index=%@",_index);
      if (_index && ![_index isValueSettable])
        {
          ExceptionRaise0(@"GSWRepetition",@"'index' parameter must be settable");
        };

      if (!WOStrictFlag)
        {
          _startIndex=[[associations objectForKey:startIndex__Key
                                     withDefaultObject:[_startIndex autorelease]] retain];
          NSDebugMLLog(@"gswdync",@"startIndex=%@",_startIndex);

          _stopIndex=[[associations objectForKey:stopIndex__Key
                                     withDefaultObject:[_stopIndex autorelease]] retain];
          NSDebugMLLog(@"gswdync",@"stopIndex=%@",_stopIndex);
        };

      if (elements)
        {
          _childrenGroup=[[GSWHTMLStaticGroup alloc]initWithContentElements:elements];
        };
    };
  LOGObjectFnStop();
  return self;
};

//--------------------------------------------------------------------
-(id)initWithName:(NSString*)name
     associations:(NSDictionary*)associations
         template:(GSWElement*)templateElement
{
  LOGObjectFnStart();
  self=[self initWithName:name
             associations:associations
             contentElements:templateElement ? [NSArray arrayWithObject:templateElement] : nil];
  LOGObjectFnStop();
  return self;
};

//--------------------------------------------------------------------
-(void)dealloc
{
  DESTROY(_list);
  DESTROY(_item);
  DESTROY(_identifier);
  DESTROY(_count);
  DESTROY(_index);
  DESTROY(_startIndex);
  DESTROY(_stopIndex);
  DESTROY(_childrenGroup);
  [super dealloc];
}

//--------------------------------------------------------------------
-(void)setDeclarationName:(NSString*)declarationName
{
  [super setDeclarationName:declarationName];
  if (declarationName && _childrenGroup)
    [_childrenGroup setDeclarationName:[declarationName stringByAppendingString:@"-StaticGroup"]];
};

//--------------------------------------------------------------------
-(NSString*)description
{
  return [NSString stringWithFormat:@"<%s %p>",
                   object_get_class_name(self),
                   (void*)self];
};

@end

//====================================================================
@implementation GSWRepetition (GSWRepetitionA)

-(void)getParameterValuesReturnList:(NSArray**)listValuePtr
                          listCount:(int*)listCountPtr
                              count:(int*)countValuePtr
                         startIndex:(int*)startIndexValuePtr
                          stopIndex:(int*)stopIndexValuePtr
                      withComponent:(GSWComponent*)component
{
  LOGObjectFnStart();
  NSDebugMLLog(@"gswdync",@"_list=%@",_list);
  if (_list)
    {
      *listValuePtr=[_list valueInComponent:component];
      NSAssert2(!(*listValuePtr) || [(*listValuePtr) respondsToSelector:@selector(count)],
                @"The list (%@) (of class:%@) doesn't  respond to 'count'",
                _list,
                [(*listValuePtr) class]);
      *listCountPtr=[(*listValuePtr) count];
      *countValuePtr=*listCountPtr;
      NSDebugMLLog(@"gswdync",@"list count=%d",*countValuePtr);
    }
  else
    *listCountPtr=0;
  NSDebugMLLog(@"gswdync",@"_count=%@",_count);
  if (_count)
    {
      id tmpCountValue=[_count valueInComponent:component];
      int tmpCount=0;
      NSAssert3(!tmpCountValue || [tmpCountValue respondsToSelector:@selector(intValue)],
                @"The 'count' (%@) value %@ (of class:%@) doesn't  respond to 'intValue'",
                _count,
                tmpCountValue,
                [tmpCountValue class]);
      tmpCount=[tmpCountValue intValue];
      NSDebugMLLog(@"gswdync",@"tmpCount=%d",tmpCount);
      if (_list)
        *countValuePtr=min(tmpCount,(*countValuePtr));
      else
        *countValuePtr=tmpCount;
    };
  if (WOStrictFlag)
    *stopIndexValuePtr=(*countValuePtr)-1;
  else
    {
      NSDebugMLLog(@"gswdync",@"_startIndex=%@",_startIndex);
      if (_startIndex)
        {
          id tmpStartIndexValue=[_startIndex valueInComponent:component];
          NSAssert3(!tmpStartIndexValue || [tmpStartIndexValue respondsToSelector:@selector(intValue)],
                @"The 'startIndex' (%@) value %@ (of class:%@) doesn't  respond to 'intValue'",
                _count,
                tmpStartIndexValue,
                [tmpStartIndexValue class]);
          *startIndexValuePtr=[tmpStartIndexValue intValue];
          *startIndexValuePtr=max(0,(*startIndexValuePtr));
        }
      else
        *startIndexValuePtr=0;
      NSDebugMLLog(@"gswdync",@"*startIndexValuePtr=%d",(*startIndexValuePtr));
      NSDebugMLLog(@"gswdync",@"_stopIndex=%@",_stopIndex);
      if (_stopIndex)  
        {
          id tmpStopIndexValue=[_stopIndex valueInComponent:component];
          NSAssert3(!tmpStopIndexValue || [tmpStopIndexValue respondsToSelector:@selector(intValue)],
                @"The 'startIndex' (%@) value %@ (of class:%@) doesn't  respond to 'intValue'",
                _count,
                tmpStopIndexValue,
                [tmpStopIndexValue class]);
          *stopIndexValuePtr=[tmpStopIndexValue intValue];
          NSDebugMLLog(@"gswdync",@"*stopIndexValuePtr=%d",(*stopIndexValuePtr));
          if (_count) // if not count, just take start and stop index
            {
              if ((*countValuePtr)>((*stopIndexValuePtr)+1))
                *countValuePtr=(*stopIndexValuePtr)+1;
              else
                *stopIndexValuePtr=(*countValuePtr)-1;
            }
          else
            *countValuePtr=(*stopIndexValuePtr)+1;
          NSDebugMLLog(@"gswdync",@"*stopIndexValuePtr=%d",(*stopIndexValuePtr));
          NSDebugMLLog(@"gswdync",@"*countValuePtr=%d",(*countValuePtr));
        }
      else
        *stopIndexValuePtr=(*countValuePtr)-1;
      NSDebugMLLog(@"gswdync",@"*stopIndexValuePtr=%d",(*stopIndexValuePtr));
    };
  NSDebugMLLog(@"gswdync",@"PARAMETERS: list: %p startIndex: %d stopIndex: %d count: %d",
               *listValuePtr,
               *startIndexValuePtr,
               *stopIndexValuePtr,
               *countValuePtr);
  LOGObjectFnStop();
};

//--------------------------------------------------------------------
-(void)_prepareIterationWithIndex:(unsigned int)currentIndex
                       startIndex:(unsigned int)startIndex
                        stopIndex:(unsigned int)stopIndex
                             list:(NSArray*)list
                        listCount:(unsigned int)listCount
             listObjectAtIndexIMP:(IMP)oaiIMP
                  itemSetValueIMP:(IMP)itemSetValueIMP
                 indexSetValueIMP:(IMP)indexSetValueIMP
                        component:(GSWComponent*)component
                        inContext:(GSWContext*)context
{
  LOGObjectFnStart();
  NS_DURING
    {
      NSDebugMLLog(@"gswdync",@"currentIndex=%d startIndex=%d stopIndex=%d",
                   currentIndex,startIndex,stopIndex);
      NSDebugMLLog(@"gswdync",@"_index=%@",_index);
      NSDebugMLLog(@"gswdync",@"_item=%@",_item);
      if (_list && _item)
        {
          if (listCount>currentIndex)
            { 
              NSDebugMLLog(@"gswdync",@"[list objectAtIndex:%d]=%@",currentIndex,[list objectAtIndex:currentIndex]);
              (*itemSetValueIMP)(_item,setValueInComponentSEL,
                                 (*oaiIMP)(list,objectAtIndexSEL,currentIndex),
                                 component);
            }
          else
            {
              //NSLog(@"startOneIterationWithIndex SKIPPING setValue:inComponent index=%d list.count=%d",currentIndex, [list count]);
            };
        };

      if (_index)
        (*indexSetValueIMP)(_index,setValueInComponentSEL,
                            GSWIntNumber(currentIndex),component);

      if (currentIndex==startIndex)
        GSWContext_appendZeroElementIDComponent(context);
      else
        GSWContext_incrementLastElementIDComponent(context);
    }
  NS_HANDLER
    {
      localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"In startOneIterationWithIndex");
      [localException raise];
    }
  NS_ENDHANDLER;
  LOGObjectFnStop();
};

//--------------------------------------------------------------------
-(void)_cleanupAfterIterationsWithItemSetValueIMP:(IMP)itemSetValueIMP
                                 indexSetValueIMP:(IMP)indexSetValueIMP
                                        component:(GSWComponent*)component
                                        inContext:(GSWContext*)context
  
{
  LOGObjectFnStart();

  NS_DURING
    {
      if (_list && _item)
        (*itemSetValueIMP)(_item,setValueInComponentSEL,
                           nil,component);
      if (_index)
        (*indexSetValueIMP)(_index,setValueInComponentSEL,
                            GSWIntNumber(0),component);
      GSWContext_deleteLastElementIDComponent(context);
    }
  NS_HANDLER
    {
      localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"In cleanupAfterIterations");
      [localException raise];
    }
  NS_ENDHANDLER;

  LOGObjectFnStop();
};

//--------------------------------------------------------------------
-(void)appendToResponse:(GSWResponse*)response
              inContext:(GSWContext*)context
{
  GSWComponent* component=nil;
  NSArray* listValue=nil;
  int listCount=0;
  int i=0;
  int countValue=0;
  int startIndexValue = 0;
  int stopIndexValue = 0;

  GSWDeclareDebugElementIDsCount(context);
  GSWDeclareDebugElementID(context);

  LOGObjectFnStart();

  GSWStartElement(context);
  GSWSaveAppendToResponseElementID(context);

  component=GSWContext_component(context);

  [self getParameterValuesReturnList:&listValue
        listCount:&listCount
        count:&countValue
        startIndex:&startIndexValue
        stopIndex:&stopIndexValue
        withComponent:component];

  NSDebugMLLog(@"gswdync",@"countValue=%d",countValue);

  if (startIndexValue<=stopIndexValue)
    {
      IMP prepareIterationIMP=[self methodForSelector:prepareIterationSEL];
      IMP listOAIIMP=[listValue methodForSelector:objectAtIndexSEL];
      IMP itemSetValueIMP=[_item methodForSelector:setValueInComponentSEL];
      IMP indexSetValueIMP=[_index methodForSelector:setValueInComponentSEL];

      [context incrementLoopLevel];

      for(i=startIndexValue;i<=stopIndexValue;i++)
        {
          (*prepareIterationIMP)(self,prepareIterationSEL,
                                 i,startIndexValue,stopIndexValue,
                                 listValue,listCount,
                                 listOAIIMP,
                                 itemSetValueIMP,indexSetValueIMP,
                                 component,context);
          
          GSWContext_appendZeroElementIDComponent(context);
          
          [_childrenGroup appendToResponse:response
                          inContext:context];
          
          GSWContext_deleteLastElementIDComponent(context);         
        };
      [self _cleanupAfterIterationsWithItemSetValueIMP:itemSetValueIMP
            indexSetValueIMP:indexSetValueIMP
            component:component
            inContext:context];

      [context decrementLoopLevel];
    };

  GSWStopElement(context);
  GSWAssertDebugElementIDsCount(context);
  GSWAssertDebugElementID(context);

  LOGObjectFnStop();
};

//--------------------------------------------------------------------
-(GSWElement*)invokeActionForRequest:(GSWRequest*)request
                           inContext:(GSWContext*)context
{
  //OK
  GSWElement* element=nil;
  BOOL isInForm=NO;
  GSWDeclareDebugElementIDsCount(context);
  LOGObjectFnStart();

  GSWStartElement(context);

  isInForm=[context isInForm];
  NSDebugMLLog(@"gswdync",@"isInForm=%s",isInForm ? "YES" : "NO");
  if (isInForm)
    element=[self _slowInvokeActionForRequest:request
                  inContext:context];
  else
    element=[self _fastInvokeActionForRequest:request
                  inContext:context];
  NSDebugMLLog(@"gswdync",@"element=%@",element);

  GSWStopElement(context);
  GSWAssertDebugElementIDsCount(context);

  LOGObjectFnStop();

  return element;
};


//--------------------------------------------------------------------
-(void)takeValuesFromRequest:(GSWRequest*)request
                   inContext:(GSWContext*)context
{
  GSWComponent* component=nil;
  NSArray* listValue=nil;
  int listCount=0;
  int i=0;
  int countValue=0;
  int startIndexValue = 0;
  int stopIndexValue = 0;

  GSWDeclareDebugElementIDsCount(context);
  GSWDeclareDebugElementID(context);

  LOGObjectFnStart();

  GSWStartElement(context);
  GSWAssertCorrectElementID(context);

  component=GSWContext_component(context);

  [self getParameterValuesReturnList:&listValue
        listCount:&listCount
        count:&countValue
        startIndex:&startIndexValue
        stopIndex:&stopIndexValue
        withComponent:component];

  if (startIndexValue<=stopIndexValue)
    {
      IMP prepareIterationIMP=[self methodForSelector:prepareIterationSEL];
      IMP listOAIIMP=[listValue methodForSelector:objectAtIndexSEL];
      IMP itemSetValueIMP=[_item methodForSelector:setValueInComponentSEL];
      IMP indexSetValueIMP=[_index methodForSelector:setValueInComponentSEL];

      [context incrementLoopLevel];

      for(i=startIndexValue;i<=stopIndexValue;i++)
        {
          
          (*prepareIterationIMP)(self,prepareIterationSEL,
                                 i,startIndexValue,stopIndexValue,
                                 listValue,listCount,
                                 listOAIIMP,
                                 itemSetValueIMP,indexSetValueIMP,
                                 component,context);
          
          GSWContext_appendZeroElementIDComponent(context);
          
          [_childrenGroup takeValuesFromRequest:request
                          inContext:context];
          
          GSWContext_deleteLastElementIDComponent(context);
        };
      [self _cleanupAfterIterationsWithItemSetValueIMP:itemSetValueIMP
            indexSetValueIMP:indexSetValueIMP
            component:component
            inContext:context];

      [context decrementLoopLevel];
    };

  GSWStopElement(context);
  GSWAssertDebugElementIDsCount(context);
  GSWAssertDebugElementID(context);

  LOGObjectFnStop();
};

//--------------------------------------------------------------------
-(GSWElement*)_slowInvokeActionForRequest:(GSWRequest*)request
                                inContext:(GSWContext*)context
{
  //OK
  GSWElement* element=nil;
  GSWComponent* component=nil;
  NSArray* listValue=nil;
  int listCount=0;
  int i=0;
  int countValue=0;
  int startIndexValue = 0;
  int stopIndexValue = 0;

  GSWDeclareDebugElementIDsCount(context);
  GSWDeclareDebugElementID(context);

  LOGObjectFnStart();

  GSWStartElement(context);
  component=GSWContext_component(context);

  [self getParameterValuesReturnList:&listValue
        listCount:&listCount
        count:&countValue
        startIndex:&startIndexValue
        stopIndex:&stopIndexValue
        withComponent:component];


  if (startIndexValue<=stopIndexValue)
    {
      IMP prepareIterationIMP=[self methodForSelector:prepareIterationSEL];
      IMP listOAIIMP=[listValue methodForSelector:objectAtIndexSEL];
      IMP itemSetValueIMP=[_item methodForSelector:setValueInComponentSEL];
      IMP indexSetValueIMP=[_index methodForSelector:setValueInComponentSEL];

      [context incrementLoopLevel];

      for(i=startIndexValue;!element && i<=stopIndexValue;i++)
        {
          (*prepareIterationIMP)(self,prepareIterationSEL,
                                 i,startIndexValue,stopIndexValue,
                                 listValue,listCount,
                                 listOAIIMP,
                                 itemSetValueIMP,indexSetValueIMP,
                                 component,context);
          
          GSWContext_appendZeroElementIDComponent(context);
          
          element=[_childrenGroup invokeActionForRequest:request
                                  inContext:context];
          NSAssert3(!element || [element isKindOfClass:[GSWElement class]],
                    @"_childrenGroup=%@ Element is a %@ not a GSWElement: %@",
                    _childrenGroup,
                    [element class],
                    element);
          
          GSWContext_deleteLastElementIDComponent(context);
        };

      [self _cleanupAfterIterationsWithItemSetValueIMP:itemSetValueIMP
            indexSetValueIMP:indexSetValueIMP
            component:component
            inContext:context];

      [context decrementLoopLevel];
    };



  GSWStopElement(context);
  GSWAssertDebugElementIDsCount(context);
  GSWAssertDebugElementID(context);

  LOGObjectFnStop();

  return element;
};

//--------------------------------------------------------------------
-(GSWElement*)_fastInvokeActionForRequest:(GSWRequest*)request
                                inContext:(GSWContext*)aContext
{
  GSWElement* element=nil;
  NSString* senderID=nil;
  NSString* elementID=nil;
  GSWDeclareDebugElementIDsCount(aContext);
  GSWDeclareDebugElementID(aContext);

  LOGObjectFnStart();

  GSWStartElement(aContext);

  senderID=GSWContext_senderID(aContext);
  NSDebugMLLog(@"gswdync",@"senderID=%@",senderID);

  elementID=GSWContext_elementID(aContext);

  if ([senderID hasPrefix:elementID])
    {
      int countValue=0;
      NSArray* listValue=nil;
      int listCount=0;
      int startIndexValue = 0;
      int stopIndexValue = 0;
      int i=0;
      GSWComponent* component=GSWContext_component(aContext);

      [self getParameterValuesReturnList:&listValue
            listCount:&listCount
            count:&countValue
            startIndex:&startIndexValue
            stopIndex:&stopIndexValue
            withComponent:component];


      if (startIndexValue<=stopIndexValue)
        {
          IMP prepareIterationIMP=[self methodForSelector:prepareIterationSEL];
          IMP listOAIIMP=[listValue methodForSelector:objectAtIndexSEL];
          IMP itemSetValueIMP=[_item methodForSelector:setValueInComponentSEL];
          IMP indexSetValueIMP=[_index methodForSelector:setValueInComponentSEL];

          [aContext incrementLoopLevel];

          for(i=startIndexValue;!element && i<=stopIndexValue;i++)
            {
              (*prepareIterationIMP)(self,prepareIterationSEL,
                                     i,startIndexValue,stopIndexValue,
                                     listValue,listCount,
                                     listOAIIMP,
                                     itemSetValueIMP,indexSetValueIMP,
                                     component,aContext);
              
              GSWContext_appendZeroElementIDComponent(aContext);
              
              element=[_childrenGroup invokeActionForRequest:request
                                      inContext:aContext];
              NSDebugMLLog(@"gswdync",@"element=%@",element);
              
              GSWContext_deleteLastElementIDComponent(aContext);              
            };

          [self _cleanupAfterIterationsWithItemSetValueIMP:itemSetValueIMP
                indexSetValueIMP:indexSetValueIMP
                component:component
                inContext:aContext];
          
          [aContext decrementLoopLevel];
        };
    };

  GSWStopElement(aContext);
  GSWAssertDebugElementIDsCount(aContext);
  GSWAssertDebugElementID(aContext);

  LOGObjectFnStop();

  return element;
};



@end