allow vendord

vendor/moneyphp/money/src/Parser/DecimalMoneyParser.php

@@ -0,0 +1,85 @@
+<?php
+
+declare(strict_types=1);
+
+namespace Money\Parser;
+
+use Money\Currencies;
+use Money\Currency;
+use Money\Exception\ParserException;
+use Money\Money;
+use Money\MoneyParser;
+use Money\Number;
+
+use function ltrim;
+use function preg_match;
+use function sprintf;
+use function str_pad;
+use function strlen;
+use function substr;
+use function trim;
+
+/**
+ * Parses a decimal string into a Money object.
+ */
+final class DecimalMoneyParser implements MoneyParser
+{
+    public const DECIMAL_PATTERN = '/^(?P<sign>-)?(?P<digits>\d+)?\.?(?P<fraction>\d+)?$/';
+
+    public function __construct(private readonly Currencies $currencies)
+    {
+    }
+
+    public function parse(string $money, Currency|null $fallbackCurrency = null): Money
+    {
+        if ($fallbackCurrency === null) {
+            throw new ParserException('DecimalMoneyParser cannot parse currency symbols. Use fallbackCurrency argument');
+        }
+
+        $decimal = trim($money);
+
+        if ($decimal === '') {
+            return new Money(0, $fallbackCurrency);
+        }
+
+        if (! preg_match(self::DECIMAL_PATTERN, $decimal, $matches) || ! isset($matches['digits'])) {
+            throw new ParserException(sprintf('Cannot parse "%s" to Money.', $decimal));
+        }
+
+        $negative = isset($matches['sign']) && $matches['sign'] === '-';
+
+        $decimal = $matches['digits'];
+
+        if ($negative) {
+            $decimal = '-' . $decimal;
+        }
+
+        $subunit = $this->currencies->subunitFor($fallbackCurrency);
+
+        if (isset($matches['fraction'])) {
+            $fractionDigits = strlen($matches['fraction']);
+            $decimal       .= $matches['fraction'];
+            $decimal        = Number::roundMoneyValue($decimal, $subunit, $fractionDigits);
+
+            if ($fractionDigits > $subunit) {
+                $decimal = substr($decimal, 0, $subunit - $fractionDigits);
+            } elseif ($fractionDigits < $subunit) {
+                $decimal .= str_pad('', $subunit - $fractionDigits, '0');
+            }
+        } else {
+            $decimal .= str_pad('', $subunit, '0');
+        }
+
+        if ($negative) {
+            $decimal = '-' . ltrim(substr($decimal, 1), '0');
+        } else {
+            $decimal = ltrim($decimal, '0');
+        }
+
+        if ($decimal === '' || $decimal === '-') {
+            $decimal = '0';
+        }
+
+        return new Money($decimal, $fallbackCurrency);
+    }
+}