err.no Git - sope/blob - sope-xml/XmlRpc/XmlRpcResponseEncoder.m

   1 /*
   2   Copyright (C) 2000-2003 SKYRIX Software AG
   3
   4   This file is part of OGo
   5
   6   OGo is free software; you can redistribute it and/or modify it under
   7   the terms of the GNU Lesser General Public License as published by the
   8   Free Software Foundation; either version 2, or (at your option) any
   9   later version.
  10
  11   OGo is distributed in the hope that it will be useful, but WITHOUT ANY
  12   WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  14   License for more details.
  15
  16   You should have received a copy of the GNU Lesser General Public
  17   License along with OGo; see the file COPYING.  If not, write to the
  18   Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  19   02111-1307, USA.
  20 */
  21 // $Id$
  22
  23 #include "XmlRpcCoder.h"
  24 #include "common.h"
  25
  26 @interface XmlRpcEncoder(PrivateMethodes)
  27 - (void)_encodeObject:(id)_object;
  28 - (void)_reset;
  29 @end
  30
  31 @implementation XmlRpcResponseEncoder
  32
  33 - (void)encodeRootObject:(id)_object {
  34   static Class ExceptionClass = Nil;
  35
  36   if (ExceptionClass == Nil)
  37     ExceptionClass = [NSException class];
  38
  39   [self _reset];
  40
  41   [self->string appendString:@"<?xml version='1.0'?>\n"];
  42   [self->string appendString:@"<methodResponse>\n"];
  43
  44   if ([_object isKindOfClass:ExceptionClass]) {
  45     [self->string appendString:@"<fault>\n"];
  46     [self->string appendString:@"<value>\n"];
  47
  48     [self _encodeObject:_object];
  49
  50     [self->string appendString:@"</value>\n"];
  51     [self->string appendString:@"</fault>\n"];
  52   }
  53   else {
  54     [self->string appendString:@"<params>\n"];
  55     [self->string appendString:@"<param>\n"];
  56     [self->string appendString:@"<value>\n"];
  57
  58     [self _encodeObject:_object];
  59
  60     [self->string appendString:@"</value>\n"];
  61     [self->string appendString:@"</param>\n"];
  62     [self->string appendString:@"</params>\n"];
  63   }
  64
  65   [self->string appendString:@"</methodResponse>\n"];
  66 }
  67
  68 @end /* XmlRpcResponseEncoder */