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

   1 /*
   2   Copyright (C) 2000-2005 SKYRIX Software AG
   3
   4   This file is part of SOPE.
   5
   6   SOPE 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   SOPE 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 SOPE; 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
  22 #include "XmlRpcCoder.h"
  23 #include "common.h"
  24
  25 @interface XmlRpcEncoder(PrivateMethodes)
  26 - (void)_encodeObject:(id)_object;
  27 - (void)_reset;
  28 @end
  29
  30 @implementation XmlRpcResponseEncoder
  31
  32 - (void)encodeRootObject:(id)_object {
  33   static Class ExceptionClass = Nil;
  34
  35   if (ExceptionClass == Nil)
  36     ExceptionClass = [NSException class];
  37
  38   [self _reset];
  39
  40   [self->string appendString:@"<?xml version='1.0'?>\n"];
  41   [self->string appendString:@"<methodResponse>\n"];
  42
  43   if ([_object isKindOfClass:ExceptionClass]) {
  44     [self->string appendString:@"<fault>\n"];
  45     [self->string appendString:@"<value>\n"];
  46
  47     [self _encodeObject:_object];
  48
  49     [self->string appendString:@"</value>\n"];
  50     [self->string appendString:@"</fault>\n"];
  51   }
  52   else {
  53     [self->string appendString:@"<params>\n"];
  54     [self->string appendString:@"<param>\n"];
  55     [self->string appendString:@"<value>\n"];
  56
  57     [self _encodeObject:_object];
  58
  59     [self->string appendString:@"</value>\n"];
  60     [self->string appendString:@"</param>\n"];
  61     [self->string appendString:@"</params>\n"];
  62   }
  63
  64   [self->string appendString:@"</methodResponse>\n"];
  65 }
  66
  67 @end /* XmlRpcResponseEncoder */