Fix the serialization of blob shapes for the XML protocol (#1470)

Author: stof

src/CodeGenerator/src/Generator/RequestSerializer/RestXmlSerializer.php

@@ -140,6 +140,7 @@ private function dumpXmlShape(Member $member, Shape $shape, string $output, stri
 
         switch ($shape->getType()) {
             case 'blob':
+                return $this->dumpXmlShapeBlob($member, $output, $input);
             case 'string':
                 return $this->dumpXmlShapeString($member, $shape, $output, $input);
             case 'integer':
@@ -203,6 +204,23 @@ private function dumpXmlShapeList(Member $member, ListShape $shape, string $outp
         ]);
     }
 
+    private function dumpXmlShapeBlob(Member $member, string $output, string $input): string
+    {
+        if ($member instanceof StructureMember && $member->isXmlAttribute()) {
+            $body = 'OUTPUT->setAttribute(NODE_NAME, base64_encode(INPUT));';
+        } else {
+            $body = 'OUTPUT->appendChild($document->createElement(NODE_NAME, base64_encode(INPUT)));';
+        }
+
+        $replacements = [
+            'INPUT' => $input,
+            'OUTPUT' => $output,
+            'NODE_NAME' => var_export($member->getLocationName() ?? ($member instanceof StructureMember ? $member->getName() : 'member'), true),
+        ];
+
+        return strtr($body, $replacements);
+    }
+
     private function dumpXmlShapeString(Member $member, Shape $shape, string $output, string $input): string
     {
         if ($member instanceof StructureMember && $member->isXmlAttribute()) {