libs-gdl2/Tools/EOModel+GSDoc.m

/** 
   EOModel+GSDoc.m <title></title>

   Copyright (C) 2000-2002,2003,2004,2005 Free Software Foundation, Inc.

   Author: Manuel Guesdon <mguesdon@orange-concept.com>
   Date: August 2000

   $Revision$
   $Date$

   <abstract></abstract>

   This file is part of the GNUstep Database 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 3 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; see the file COPYING.LIB.
   If not, write to the Free Software Foundation,
   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
   </license>
**/
#include "config.h"

RCS_ID("$Id$")

#ifdef GNUSTEP
#include <Foundation/NSAutoreleasePool.h>
#include <Foundation/NSDebug.h>
#else
#include <Foundation/Foundation.h>
#endif


#ifndef GNUSTEP
#include <GNUstepBase/GNUstep.h>
#endif

#include <EOAccess/EOAccess.h>
#include <EOAccess/EOModel.h>
#include <EOAccess/EOEntity.h>

#include "NSArray+GSDoc.h"
#include "NSDictionary+GSDoc.h"
#include "EOEntity+GSDoc.h"
#include "EOModel+GSDoc.h"


@implementation EOModel (GSDoc)

- (NSString *)gsdocContentWithIdPtr: (int *)xmlIdPtr
{
  return [self gsdocContentSplittedByEntities: NULL
               idPtr: xmlIdPtr];
}

- (NSString *)gsdocContentSplittedByEntities: (NSDictionary **)entitiesPtr
				       idPtr: (int *)xmlIdPtr
{
  NSAutoreleasePool *arp = [NSAutoreleasePool new];
  NSString *content = [NSString string];
  NSArray *entities = [self entities];
  int i, count = [entities count];

  NSString *chapter = [self name] 
    ? [NSString stringWithFormat: @" id=\"%@\"", [self name]]
    : @"";
  NSString *model = [self name] ? [self name] : @"";
  NSString *debugId = xmlIdPtr
    ? [NSString stringWithFormat: @" debugId=\"%d\"", (*xmlIdPtr)++]
    : @"";
  NSString *name = ([self name]
		   ? [NSString stringWithFormat: @" name=\"%@\"", [self name]]
		   : @"");
  NSString *adaptorName = [self adaptorName]
    ? [NSString stringWithFormat: @" adaptorName=\"%@\"", [self adaptorName]]
    : @"";
  NSString *adaptorClassName = [self adaptorClassName]
    ? [NSString stringWithFormat: @" adaptorClassName=\"%@\"", 
		[self adaptorClassName]]
    : @" adaptorClassName=\"\"";

  NSLog(@"Start: %@", [self class]);

  content = [content stringByAppendingFormat:
		       @"<chapter%@>\n<heading>EOModel %@</heading>\n<EOModel %@%@%@%@>\n",
		     chapter, model,
		     debugId, name, adaptorName, adaptorClassName];

  if ([self connectionDictionary])
    content = [content stringByAppendingString:
			 [[self connectionDictionary] 
			   gsdocContentWithTagName: @"EOConnectionDictionary"
			   idPtr: xmlIdPtr]];

  if (entitiesPtr)
    {
      *entitiesPtr = [NSMutableDictionary dictionary];
      content = [content stringByAppendingString: @"[[entities]]"];
    }

  for (i = 0; i < count; i++)
    {
      EOEntity *entity = [entities objectAtIndex: i];
      NSString *entityContent = [entity gsdocContentWithIdPtr: xmlIdPtr];

      NSAssert(entityContent, @"No entity gsdoc content");

      if (entitiesPtr)
        {
          entityContent = [NSString stringWithFormat:
				      @"<chapter id=\"%@\">\n<heading>EOEntity %@</heading>\n%@\n</chapter>\n",
				    [entity name],
				    [entity name],
				    entityContent];
          [(NSMutableDictionary*)*entitiesPtr setObject: entityContent
                                 forKey: [entity name]];
        }
      else
        content = [content stringByAppendingString: entityContent];
    }

  if ([[self userInfo] count])
    content = [content stringByAppendingString:
			 [[self userInfo] 
			   gsdocContentWithTagName: @"EOUserDictionary"
			   idPtr: xmlIdPtr]];

  if ([self docComment])
    content = [content stringByAppendingFormat: @"<desc>%@</desc>\n",
		       [self docComment]];

  content = [content stringByAppendingString: @"</EOModel>\n</chapter>\n"];

  NSLog(@"Stop: %@", [self class]);

  RETAIN(content);

  if (entitiesPtr)
    RETAIN(*entitiesPtr);

  DESTROY(arp);

  if (entitiesPtr)
    AUTORELEASE(*entitiesPtr);

  return AUTORELEASE(content);
}

@end