Parse HTTP binding information

veewee · veewee · commit 21fa98a2c01d · 2025-01-20T11:30:43.000+01:00
diff --git a/src/Formatter/MetaTableFormatter.php b/src/Formatter/MetaTableFormatter.php
@@ -3,6 +3,7 @@
 
 namespace Soap\WsdlReader\Formatter;
 
+use Psl\Option\Option;
 use ReflectionClass;
 use ReflectionProperty;
 use Symfony\Component\Console\Helper\Table;
@@ -58,6 +59,7 @@ private function tryStringifyValue(mixed $value): ?string
                 is_array($value) => json_encode($value, JSON_PRETTY_PRINT),
                 is_bool($value) => $value ? 'true' : 'false',
                 is_scalar($value) => (string)$value,
+                $value instanceof Option => $value->map($this->tryStringifyValue(...))->unwrapOr(null),
                 default => null,
             };
         } catch (Throwable) {
diff --git a/src/Metadata/Converter/Methods/Configurator/Binding/BindingConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Binding/BindingConfigurator.php
@@ -0,0 +1,19 @@
+<?php
+declare(strict_types=1);
+
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Binding;
+
+use Soap\Engine\Metadata\Model\Method;
+use Soap\WsdlReader\Model\Definitions\Binding;
+use function Psl\Fun\pipe;
+
+final class BindingConfigurator
+{
+    public function __invoke(Method $method, Binding $binding): Method
+    {
+        return pipe(
+            static fn (Method $method) => (new HttpBindingConfigurator())($method, $binding),
+            static fn (Method $method) => (new SoapBindingConfigurator())($method, $binding),
+        )($method);
+    }
+}
diff --git a/src/Metadata/Converter/Methods/Configurator/Binding/HttpBindingConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Binding/HttpBindingConfigurator.php
@@ -0,0 +1,25 @@
+<?php
+declare(strict_types=1);
+
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Binding;
+
+use Soap\Engine\Metadata\Model\Method;
+use Soap\Engine\Metadata\Model\MethodMeta;
+use Soap\WsdlReader\Model\Definitions\Binding;
+use Soap\WsdlReader\Model\Definitions\Implementation\Binding\HttpBinding;
+
+final class HttpBindingConfigurator
+{
+    public function __invoke(Method $method, Binding $binding): Method
+    {
+        $implementation = $binding->implementation;
+        if (!$implementation instanceof HttpBinding) {
+            return $method;
+        }
+
+        return $method->withMeta(
+            static fn (MethodMeta $meta): MethodMeta => $meta
+                ->withTransport($implementation->transport->value)
+        );
+    }
+}
diff --git a/src/Metadata/Converter/Methods/Configurator/Binding/SoapBindingConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Binding/SoapBindingConfigurator.php
@@ -1,14 +1,14 @@
 <?php
 declare(strict_types=1);
 
-namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator;
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Binding;
 
 use Soap\Engine\Metadata\Model\Method;
 use Soap\Engine\Metadata\Model\MethodMeta;
 use Soap\WsdlReader\Model\Definitions\Binding;
 use Soap\WsdlReader\Model\Definitions\Implementation\Binding\SoapBinding;
 
-final class BindingConfigurator
+final class SoapBindingConfigurator
 {
     public function __invoke(Method $method, Binding $binding): Method
     {
@@ -19,7 +19,7 @@ public function __invoke(Method $method, Binding $binding): Method
 
         return $method->withMeta(
             static fn (MethodMeta $meta): MethodMeta => $meta
-            ->withTransport($implementation->transport->value)
+                ->withTransport($implementation->transport->value)
         );
     }
 }
diff --git a/src/Metadata/Converter/Methods/Configurator/Operation/HttpBindingOperationConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Operation/HttpBindingOperationConfigurator.php
@@ -0,0 +1,73 @@
+<?php
+declare(strict_types=1);
+
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Operation;
+
+use Soap\Engine\Metadata\Model\Method;
+use Soap\Engine\Metadata\Model\MethodMeta;
+use Soap\WsdlReader\Model\Definitions\BindingOperation;
+use Soap\WsdlReader\Model\Definitions\BindingStyle;
+use Soap\WsdlReader\Model\Definitions\BindingUse;
+use Soap\WsdlReader\Model\Definitions\EncodingStyle;
+use Soap\WsdlReader\Model\Definitions\Implementation\Message\HttpMessage;
+use Soap\WsdlReader\Model\Definitions\Implementation\Operation\HttpOperation;
+use Soap\WsdlReader\Model\Definitions\SoapVersion;
+
+final class HttpBindingOperationConfigurator
+{
+    public function __invoke(Method $method, BindingOperation $operation): Method
+    {
+        $implementation = $operation->implementation;
+        if (!$implementation instanceof HttpOperation) {
+            return $method;
+        }
+
+        if (!$this->messageIsConsideredSoap($operation)) {
+            return $method;
+        }
+
+        $guessedSoapVersion = $implementation->transport->guessSoapVersion();
+        $guessedBindingUse = $this->guessBindingUse($guessedSoapVersion);
+        $guessedEncodingStyle = $this->guessEncodingStyle($guessedSoapVersion);
+
+        return $method->withMeta(
+            static fn (MethodMeta $meta): MethodMeta => $meta
+                ->withSoapVersion($guessedSoapVersion?->value)
+                ->withAction('') // Soap Action is considered empty for HTTP binding.
+                ->withOperationName($operation->name)
+                ->withBindingStyle(BindingStyle::RPC->value)
+                ->withInputBindingUsage($guessedBindingUse?->value)
+                ->withInputEncodingStyle($guessedEncodingStyle?->value)
+                ->withOutputBindingUsage($guessedBindingUse?->value)
+                ->withOutputEncodingStyle($guessedEncodingStyle?->value)
+        );
+    }
+
+    private function messageIsConsideredSoap(BindingOperation $operation): bool
+    {
+        $input = $operation->input?->implementation;
+        if (!$input instanceof HttpMessage) {
+            return false;
+        }
+
+        return $input->isConsideredSoapContentType();
+    }
+
+    private function guessEncodingStyle(?SoapVersion $soapVersion): ?EncodingStyle
+    {
+        return match ($soapVersion) {
+            SoapVersion::SOAP_11 => EncodingStyle::SOAP_11,
+            SoapVersion::SOAP_12 => EncodingStyle::SOAP_12_2003_05,
+            default => null,
+        };
+    }
+
+    private function guessBindingUse(?SoapVersion $soapVersion): ?BindingUse
+    {
+        return match ($soapVersion) {
+            SoapVersion::SOAP_11 => BindingUse::ENCODED,
+            SoapVersion::SOAP_12 => BindingUse::LITERAL,
+            default => null,
+        };
+    }
+}
diff --git a/src/Metadata/Converter/Methods/Configurator/Operation/OperationConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Operation/OperationConfigurator.php
@@ -0,0 +1,18 @@
+<?php declare(strict_types=1);
+
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Operation;
+
+use Soap\Engine\Metadata\Model\Method;
+use Soap\WsdlReader\Model\Definitions\BindingOperation;
+use function Psl\Fun\pipe;
+
+final readonly class OperationConfigurator
+{
+    public function __invoke(Method $method, BindingOperation $operation): Method
+    {
+        return pipe(
+            static fn (Method $method) => (new HttpBindingOperationConfigurator())($method, $operation),
+            static fn (Method $method) => (new SoapBindingOperationConfigurator())($method, $operation),
+        )($method);
+    }
+}
diff --git a/src/Metadata/Converter/Methods/Configurator/Operation/SoapBindingOperationConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Operation/SoapBindingOperationConfigurator.php
@@ -1,7 +1,7 @@
 <?php
 declare(strict_types=1);
 
-namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator;
+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Operation;
 
 use Soap\Engine\Metadata\Model\Method;
 use Soap\Engine\Metadata\Model\MethodMeta;
@@ -10,7 +10,7 @@
 use Soap\WsdlReader\Model\Definitions\Implementation\Message\SoapMessage;
 use Soap\WsdlReader\Model\Definitions\Implementation\Operation\SoapOperation;
 
-final class BindingOperationConfigurator
+final class SoapBindingOperationConfigurator
 {
     public function __invoke(Method $method, BindingOperation $operation): Method
     {
diff --git a/src/Metadata/Converter/Methods/Configurator/Wsdl1Configurator.php b/src/Metadata/Converter/Methods/Configurator/Wsdl1Configurator.php
@@ -11,9 +11,13 @@ final class Wsdl1Configurator
 {
     public function __invoke(Method $method, Wsdl1 $wsdl): Method
     {
+        $targetNamespace = $wsdl->targetNamespace?->value();
+
         return $method->withMeta(
             static fn (MethodMeta $meta): MethodMeta => $meta
-                ->withTargetNamespace($wsdl->targetNamespace?->value())
+                ->withTargetNamespace($targetNamespace)
+                ->withInputNamespace($targetNamespace)
+                ->withOutputNamespace($targetNamespace)
         );
     }
 }
diff --git a/src/Metadata/Converter/Methods/Configurator/Wsdl1SelectedServiceConfigurator.php b/src/Metadata/Converter/Methods/Configurator/Wsdl1SelectedServiceConfigurator.php
@@ -4,6 +4,7 @@
 namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator;
 
 use Soap\Engine\Metadata\Model\Method;
+use Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Binding\BindingConfigurator;
 use Soap\WsdlReader\Model\Service\Wsdl1SelectedService;
 use function Psl\Fun\pipe;
 
diff --git a/src/Metadata/Converter/Wsdl1ToMethodsConverter.php b/src/Metadata/Converter/Wsdl1ToMethodsConverter.php
@@ -9,7 +9,7 @@
 use Soap\Engine\Metadata\Model\Parameter;
 use Soap\Engine\Metadata\Model\XsdType;
 use Soap\WsdlReader\Locator\Wsdl1SelectedServiceLocator;
-use Soap\WsdlReader\Metadata\Converter\Methods\Configurator\BindingOperationConfigurator;
+use Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Operation\OperationConfigurator;
 use Soap\WsdlReader\Metadata\Converter\Methods\Configurator\PortTypeOperationConfigurator;
 use Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Wsdl1SelectedServiceConfigurator;
 use Soap\WsdlReader\Metadata\Converter\Methods\Converter\MessageToMetadataTypesConverter;
@@ -66,7 +66,7 @@ private function parseMethod(Wsdl1SelectedService $service, BindingOperation $bi
 
         $configure = pipe(
             static fn (Method $method) => (new Wsdl1SelectedServiceConfigurator())($method, $service),
-            static fn (Method $method) => (new BindingOperationConfigurator())($method, $bindingOperation),
+            static fn (Method $method) => (new OperationConfigurator())($method, $bindingOperation),
             static fn (Method $method) => (new PortTypeOperationConfigurator())($method, $portTypeOperation),
         );
 
diff --git a/src/Model/Definitions/AddressBindingType.php b/src/Model/Definitions/AddressBindingType.php
@@ -9,7 +9,7 @@ enum AddressBindingType : string
     case SOAP_12 = 'http://schemas.xmlsoap.org/wsdl/soap12/';
     case RPC = 'http://www.w3.org/2003/05/soap-rpc"';
     case HTTP_11 = 'http://schemas.xmlsoap.org/wsdl/http/';
-    case HTTP_12 = 'http://www.w3.org/2003/05/soap/bindings/HTTP/"';
+    case HTTP_12 = 'http://www.w3.org/2003/05/soap/bindings/HTTP/';
 
     public function isSoap(): bool
     {
diff --git a/src/Model/Definitions/Implementation/Binding/HttpBinding.php b/src/Model/Definitions/Implementation/Binding/HttpBinding.php
@@ -3,10 +3,13 @@
 
 namespace Soap\WsdlReader\Model\Definitions\Implementation\Binding;
 
+use Soap\WsdlReader\Model\Definitions\TransportType;
+
 final class HttpBinding implements BindingImplementation
 {
     public function __construct(
         public readonly string $verb,
+        public readonly TransportType $transport,
     ) {
     }
 }
diff --git a/src/Model/Definitions/Implementation/Message/HttpMessage.php b/src/Model/Definitions/Implementation/Message/HttpMessage.php
@@ -5,20 +5,20 @@
 
 final class HttpMessage implements MessageImplementation
 {
-    // TODO ...
-    /*
-     * <wsdl:input>
-                <mime:content type="application/x-www-form-urlencoded"/>
-            </wsdl:input>
-            <wsdl:output>
-                <mime:mimeXml part="getServiceTicketResponsePart"/>
-            </wsdl:output>
+    public function __construct(
+        public readonly string $contentType,
+        public readonly ?string $part,
+    ) {
+    }
 
-                <wsdl:input>
-                <http:urlEncoded/>
-            </wsdl:input>
-            <wsdl:output>
-                <mime:content part="ticket" type="text/plain"/>
-            </wsdl:output>
-     */
+    public function isConsideredSoapContentType(): bool
+    {
+        return match(mb_strtolower($this->contentType)) {
+            'application/xml' => true,
+            'application/text' => true,
+            'application/soap+xml' => true,
+            'multipart/related' => true,
+            default => false,
+        };
+    }
 }
diff --git a/src/Model/Definitions/Implementation/Operation/HttpOperation.php b/src/Model/Definitions/Implementation/Operation/HttpOperation.php
@@ -3,10 +3,13 @@
 
 namespace Soap\WsdlReader\Model\Definitions\Implementation\Operation;
 
+use Soap\WsdlReader\Model\Definitions\TransportType;
+
 final class HttpOperation implements OperationImplementation
 {
     public function __construct(
         public readonly string $location,
+        public readonly TransportType $transport,
     ) {
     }
 }
diff --git a/src/Model/Definitions/TransportType.php b/src/Model/Definitions/TransportType.php
@@ -13,4 +13,13 @@ public function isHttp(): bool
     {
         return $this === self::HTTP || $this === self::W3_HTTP;
     }
+
+    public function guessSoapVersion(): ?SoapVersion
+    {
+        return match ($this) {
+            self::HTTP, self::SMTP => SoapVersion::SOAP_11,
+            self::W3_HTTP => SoapVersion::SOAP_12,
+            default => null,
+        };
+    }
 }
diff --git a/src/Parser/Strategy/HttpStrategy.php b/src/Parser/Strategy/HttpStrategy.php
@@ -10,26 +10,58 @@
 use Soap\WsdlReader\Model\Definitions\Implementation\Message\MessageImplementation;
 use Soap\WsdlReader\Model\Definitions\Implementation\Operation\HttpOperation;
 use Soap\WsdlReader\Model\Definitions\Implementation\Operation\OperationImplementation;
+use Soap\WsdlReader\Model\Definitions\TransportType;
 use VeeWee\Xml\Dom\Document;
+use function VeeWee\Xml\Dom\Locator\Element\children;
 
 final class HttpStrategy implements StrategyInterface
 {
+    private const HTTP_NAMESPACE = 'http://schemas.xmlsoap.org/wsdl/http/';
+    private const MIME_NAMESPACE = 'http://schemas.xmlsoap.org/wsdl/mime/';
+
     public function parseBindingImplementation(Document $wsdl, DOMElement $binding): BindingImplementation
     {
         return new HttpBinding(
-            verb: $binding->getAttribute('verb')
+            verb: $binding->getAttribute('verb'),
+            transport: TransportType::tryFrom((string) $binding->namespaceURI) ?? TransportType::HTTP,
         );
     }
 
     public function parseOperationImplementation(Document $wsdl, DOMElement $operation): OperationImplementation
     {
         return new HttpOperation(
-            location: $operation->getAttribute('location')
+            location: $operation->getAttribute('location'),
+            transport: TransportType::tryFrom((string) $operation->namespaceURI) ?? TransportType::HTTP,
         );
     }
 
     public function parseMessageImplementation(Document $wsdl, DOMElement $message): MessageImplementation
     {
-        return new HttpMessage();
+        $info = children($message)->first();
+        $fallbackImplementation = new HttpMessage(
+            contentType: 'application/xml',
+            part: null
+        );
+
+        if (!$info) {
+            return $fallbackImplementation;
+        }
+
+        return match ($info->namespaceURI) {
+            self::HTTP_NAMESPACE => new HttpMessage(
+                contentType: 'text/plain',
+                part: null
+            ),
+            self::MIME_NAMESPACE => new HttpMessage(
+                contentType: match($info->localName) {
+                    'content' => $info->hasAttribute('type') ? $info->getAttribute('type'): 'application/xml',
+                    'mimeXml' => 'application/xml',
+                    'multipartRelated' => 'Multipart/Related',
+                    default => 'application/xml'
+                },
+                part: $info->hasAttribute('part') ? $info->getAttribute('part') : null,
+            ),
+            default => $fallbackImplementation,
+        };
     }
 }
diff --git a/tests/Unit/Paser/Strategy/HttpStrategyTest.php b/tests/Unit/Paser/Strategy/HttpStrategyTest.php

Original file line number	Diff line number	Diff line change
`@@ -1,14 +1,14 @@`
`1`	`1`	`<?php`
`2`	`2`	`declare(strict_types=1);`
`3`	`3`
`4`		`-namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator;`
	`4`	`+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Binding;`
`5`	`5`
`6`	`6`	`use Soap\Engine\Metadata\Model\Method;`
`7`	`7`	`use Soap\Engine\Metadata\Model\MethodMeta;`
`8`	`8`	`use Soap\WsdlReader\Model\Definitions\Binding;`
`9`	`9`	`use Soap\WsdlReader\Model\Definitions\Implementation\Binding\SoapBinding;`
`10`	`10`
`11`		`-final class BindingConfigurator`
	`11`	`+final class SoapBindingConfigurator`
`12`	`12`	`{`
`13`	`13`	`public function __invoke(Method $method, Binding $binding): Method`
`14`	`14`	`{`
`@@ -19,7 +19,7 @@ public function __invoke(Method $method, Binding $binding): Method`
`19`	`19`
`20`	`20`	`return $method->withMeta(`
`21`	`21`	`static fn (MethodMeta $meta): MethodMeta => $meta`
`22`		`- ->withTransport($implementation->transport->value)`
	`22`	`+ ->withTransport($implementation->transport->value)`
`23`	`23`	`);`
`24`	`24`	`}`
`25`	`25`	`}`
Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`<?php`
`2`	`2`	`declare(strict_types=1);`
`3`	`3`
`4`		`-namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator;`
	`4`	`+namespace Soap\WsdlReader\Metadata\Converter\Methods\Configurator\Operation;`
`5`	`5`
`6`	`6`	`use Soap\Engine\Metadata\Model\Method;`
`7`	`7`	`use Soap\Engine\Metadata\Model\MethodMeta;`
`@@ -10,7 +10,7 @@`
`10`	`10`	`use Soap\WsdlReader\Model\Definitions\Implementation\Message\SoapMessage;`
`11`	`11`	`use Soap\WsdlReader\Model\Definitions\Implementation\Operation\SoapOperation;`
`12`	`12`
`13`		`-final class BindingOperationConfigurator`
	`13`	`+final class SoapBindingOperationConfigurator`
`14`	`14`	`{`
`15`	`15`	`public function __invoke(Method $method, BindingOperation $operation): Method`
`16`	`16`	`{`
Original file line number	Diff line number	Diff line change
`@@ -11,9 +11,13 @@ final class Wsdl1Configurator`
`11`	`11`	`{`
`12`	`12`	`public function __invoke(Method $method, Wsdl1 $wsdl): Method`
`13`	`13`	`{`
	`14`	`+ $targetNamespace = $wsdl->targetNamespace?->value();`
	`15`	`+`
`14`	`16`	`return $method->withMeta(`
`15`	`17`	`static fn (MethodMeta $meta): MethodMeta => $meta`
`16`		`- ->withTargetNamespace($wsdl->targetNamespace?->value())`
	`18`	`+ ->withTargetNamespace($targetNamespace)`
	`19`	`+ ->withInputNamespace($targetNamespace)`
	`20`	`+ ->withOutputNamespace($targetNamespace)`
`17`	`21`	`);`
`18`	`22`	`}`
`19`	`23`	`}`