/**
* Converts the value! It must be a native PHP type (bool, int, float, double, string) to a other native PHP type.
*
* @param mixed $sourceValue The value to convert
* @param string $newType Native PHP type as target type. (See \Beluga\Type::PHP_* constants)
* @return mixed
* @throws \Beluga\ArgumentError
*/
public static function ConvertNative($sourceValue, string $newType)
{
if (\is_null($sourceValue)) {
return $sourceValue;
}
if (false === ($sourceType = static::GetNativeType($sourceValue))) {
throw new ArgumentError('sourceValue', $sourceValue, 'Core TypeTool::ConvertNative', 'Can not convert a value of a type that is not a native PHP type! (bool, int, double, float, string)');
}
if ($sourceType == $newType) {
return $sourceValue;
}
switch ($sourceType) {
case Type::PHP_BOOLEAN:
case 'boolean':
switch ($newType) {
case Type::PHP_DOUBLE:
return (double) ($sourceValue ? 1 : 0);
case Type::PHP_FLOAT:
return (double) ($sourceValue ? 1 : 0);
case Type::PHP_INTEGER:
return $sourceValue ? 1 : 0;
case Type::PHP_STRING:
return $sourceValue ? '1' : '0';
}
break;
case Type::PHP_DOUBLE:
switch ($newType) {
case Type::PHP_FLOAT:
return \doubleval($sourceValue);
case Type::PHP_INTEGER:
return \intval($sourceValue);
case Type::PHP_STRING:
return '' . $sourceValue;
case Type::PHP_BOOLEAN:
case 'boolean':
return $sourceValue > 0;
}
break;
case Type::PHP_FLOAT:
switch ($newType) {
case Type::PHP_DOUBLE:
return \floatval($sourceValue);
case Type::PHP_INTEGER:
return \intval($sourceValue);
case Type::PHP_STRING:
return '' . $sourceValue;
case Type::PHP_BOOLEAN:
case 'boolean':
return $sourceValue > 0;
}
break;
case Type::PHP_INTEGER:
switch ($newType) {
case Type::PHP_DOUBLE:
return \intval($sourceValue);
case Type::PHP_FLOAT:
return \intval($sourceValue);
case Type::PHP_STRING:
return '' . $sourceValue;
case Type::PHP_BOOLEAN:
case 'boolean':
return $sourceValue > 0;
}
break;
case Type::PHP_STRING:
switch ($newType) {
case Type::PHP_INTEGER:
case Type::PHP_BOOLEAN:
case 'boolean':
case Type::PHP_FLOAT:
case Type::PHP_DOUBLE:
return TypeTool::StrToType($sourceValue, $newType);
}
break;
}
throw new ArgumentError('newType', $newType, 'Can not convert a value of a type that isnt a native PHP type! (bool, int, double, float, string)');
}
/**
* Init's a new instance.
*
* @param mixed $value The base value.
* @throws \Beluga\BelugaError If $value is of type {@see Type}
*/
public function __construct($value)
{
$this->value = $value;
$this->isStringConvertible = TypeTool::IsStringConvertible($value, $this->stringValue);
if (!$this->isStringConvertible) {
$this->stringValue = null;
}
if (\is_null($value)) {
$this->typeName = Type::PHP_NULL;
} else {
if (\is_string($value)) {
$this->typeName = Type::PHP_STRING;
} else {
if (\is_array($value)) {
$this->typeName = Type::PHP_ARRAY;
} else {
if (\is_object($value)) {
if ($value instanceof Type) {
throw new BelugaError('Core', 'Could not create \\Beluga\\Type-Instance of a \\Beluga\\Type-Value!');
}
$this->typeName = \get_class($value);
} else {
if (\is_int($value)) {
$this->typeName = Type::PHP_INTEGER;
} else {
if (\is_double($value)) {
$this->typeName = Type::PHP_DOUBLE;
} else {
if (\is_float($value)) {
$this->typeName = Type::PHP_FLOAT;
} else {
if (\is_bool($value)) {
$this->typeName = Type::PHP_BOOLEAN;
} else {
if (\is_resource($value)) {
$this->typeName = Type::PHP_RESOURCE;
} else {
$this->typeName = Type::PHP_UNKNOWN;
}
}
}
}
}
}
}
}
}
}
/**
* Extracts a {@see \Beluga\GIS\Coordinate} instance from defined string value and returns it by reference with the
* $output parameter. The Method returns TRUE on success, FALSE otherwise.
*
* @param string $str The string to parse
* @param \Beluga\GIS\Coordinate|null &$output Returns the resulting Coordinate reference, if the method returns TRUE
* @return boolean
*/
public static function TryParseString(string $str, &$output) : bool
{
if (empty($str)) {
return false;
}
if (false !== ($res = Converter::ParseUtm2LL(Ellipsoid::TYPE_WGS_84, $str))) {
# UTM: 10T E 549142 N 5280803
try {
$output = new Coordinate($res['Latitude'], $res['Longitude']);
} catch (\Throwable $ex) {
return false;
}
return true;
}
$laStr = null;
$loStr = null;
$tmp = \explode(', ', $str);
if (\count($tmp) == 2) {
$tmp[0] = \trim($tmp[0]);
$tmp[1] = \trim($tmp[1]);
if (\preg_match('~^([NS].+|.+[NS])$~', $tmp[0])) {
try {
$output = new Coordinate($tmp[0], \trim($tmp[1]));
} catch (\Throwable $ex) {
return false;
}
return true;
}
if (\preg_match('~^([EW].+|.+[EW])$~', $tmp[0])) {
try {
$output = new Coordinate(\trim($tmp[1]), $tmp[0]);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
} else {
$loStr = \trim($tmp[1]);
if (TypeTool::IsDecimal($loStr)) {
# 40.446195, -79.948862
try {
$output = new Coordinate(\trim(\rtrim($tmp[0], ' ,')), $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
}
}
$tmp = \explode(' ', $str);
if (\count($tmp) == 2) {
if (\preg_match('~^([NS].+|.+[NS])$~', $tmp[0])) {
try {
$output = new Coordinate($tmp[0], \trim($tmp[1]));
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
if (\preg_match('~^([EW].+|.+[EW])$~', $tmp[0])) {
try {
$output = new Coordinate(\trim($tmp[1]), $tmp[0]);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
} else {
$loStr = \trim($tmp[1]);
if (TypeTool::IsDecimal($loStr)) {
# 40.446195, -79.948862
try {
$output = new Coordinate(\trim(\rtrim($tmp[0], ' ,')), $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
}
return false;
}
$tmp[0] = \strtoupper($tmp[0]);
$tc = \count($tmp);
$max = $tc - 1;
if (\preg_match('~^[NSEW]$~', $tmp[0])) {
switch ($tmp[0]) {
case 'N':
case 'S':
self::normalizeForNS($laStr, $loStr, $tc, $max, $tmp);
try {
$output = new Coordinate($laStr, $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
default:
$loStr = $tmp[0];
$i = 1;
$nc = \trim($tmp[$i]);
while ($i < $tc && !\preg_match('~^[NS]$~', $nc)) {
$loStr .= " {$nc}";
++$i;
$nc = \trim($tmp[$i]);
}
++$i;
if ($i >= $max) {
return false;
}
$laStr = $nc;
$laStr .= ' ' . \join(' ', \array_slice($tmp, $i));
try {
$output = new Coordinate($laStr, $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
}
if (\preg_match('~^[NSEW]$~', $tmp[$max])) {
switch ($tmp[$max]) {
case 'N':
case 'S':
$laStr = $tmp[$max];
$i = $max - 1;
$nc = \trim($tmp[$i]);
while ($i >= 0 && !\preg_match('~^[EW]$~', $nc)) {
$laStr .= "{$nc} {$laStr}";
--$i;
$nc = \trim($tmp[$i]);
}
--$i;
if ($i <= 0) {
return false;
}
$loStr = $nc;
$loStr = \join(' ', \array_slice($tmp, 0, $i + 1)) . ' ' . $loStr;
try {
$output = new Coordinate($laStr, $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
default:
$loStr = $tmp[$max];
$i = $max - 1;
$nc = \trim($tmp[$i]);
while ($i >= 0 && !\preg_match('~^[NS]$~', $nc)) {
$loStr .= "{$nc} {$loStr}";
--$i;
$nc = \trim($tmp[$i]);
}
--$i;
if ($i <= 0) {
return false;
}
$laStr = $nc;
$laStr = \join(' ', \array_slice($tmp, 0, $i + 1)) . ' ' . $laStr;
try {
$output = new Coordinate($laStr, $loStr);
} catch (\Throwable $ex) {
return false;
}
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
}
if ($tc != 4) {
return false;
}
$tmp[0] = \preg_replace('~[^\\d-]~', '', $tmp[0]);
$tmp[1] = \preg_replace('~[^\\d.]~', '', $tmp[1]);
$tmp[2] = \preg_replace('~[^\\d-]~', '', $tmp[2]);
$tmp[3] = \preg_replace('~[^\\d.]~', '', $tmp[3]);
# 40° 26.7717, -79° 56.93172
$direction = null;
if ($tmp[0][0] == '-') {
$direction = 'S';
$tmp[0] = \substr($tmp[0], 1);
} else {
$direction = 'N';
}
$latElement = null;
try {
$latElement = new Latitude($direction, \intval($tmp[0]), \doubleval($tmp[1]));
} catch (\Throwable $ex) {
return false;
}
if ($tmp[2][0] == '-') {
$direction = 'W';
$tmp[2] = \substr($tmp[2], 1);
} else {
$direction = 'E';
}
$lonElement = null;
try {
$lonElement = new Longitude($direction, \intval($tmp[2]), \doubleval($tmp[3]));
} catch (\Throwable $ex) {
return false;
}
$output = new Coordinate($latElement, $lonElement);
if (!$output->isValid()) {
$output = null;
return false;
}
return true;
}
/**
* Extracts a {@see \Beluga\GIS\Longitude} instance from defined string value and returns it by reference with the
* $output parameter. The Method returns TRUE on success, FALSE otherwise.
*
* @param string $str The string that should be parsed.
* @param \Beluga\GIS\Longitude|null &$output Returns the resulting Longitude reference, if the method returns TRUE
* @return boolean
*/
public static function TryParseString(string $str, &$output) : bool
{
if (!\is_string($str)) {
return false;
}
if (TypeTool::IsDecimal($str, true)) {
# 40.446195 oder -79.948862
$data = AbstractElement::_DecToDDMS(\doubleval(\str_replace(',', '.', $str)), true);
try {
$output = new Longitude($data['DIR'], $data['DEG'], $data['MIN'], $data['SEC']);
} catch (\Throwable $ex) {
return false;
}
return true;
}
$str = \preg_replace('~(\\s+deg)~i', '°', $str);
$dir = null;
$deg = null;
$min = null;
$sec = null;
if (\preg_match('~^([NS])(.+)$~i', $str, $m)) {
$dir = $m[1];
$str = \trim($m[2]);
} else {
if (\preg_match('~^(.+)([NS])$~i', $str, $m)) {
$dir = $m[2];
$str = \trim($m[1]);
} else {
if (\preg_match('~^(-?)\\d+°~', $str, $m)) {
if (isset($m[1]) && $m[1] == '-') {
$dir = 'S';
$str = \substr($str, 1);
} else {
$dir = 'N';
}
} else {
return false;
}
}
}
if (\preg_match('~^(\\d{1,3})[°d:]\\s*(\\d{1,2})[:\'](.+)$~', \trim($str), $m)) {
try {
$output = new Longitude($dir, \trim($m[1]), \trim($m[2]), \rtrim(\trim($m[3]), '"'));
} catch (\Throwable $ex) {
return false;
}
return true;
}
if (TypeTool::IsDecimal($str, true)) {
$data = AbstractElement::_DecToDDMS(\doubleval(\str_replace(',', '.', $str)), true);
try {
$output = new Longitude($data['DIR'], $data['DEG'], $data['MIN'], $data['SEC']);
} catch (\Throwable $ex) {
return false;
}
return true;
}
if (\preg_match('~^(\\d{1,3})°\\s+([\\d.]+)\'?$~', \trim($str), $m)) {
try {
$output = new Longitude($dir, \trim($m[1]), \doubleval(\str_replace(',', '.', \trim($m[2]))));
} catch (\Throwable $ex) {
return false;
}
return true;
}
if (\preg_match('~^(\\d{1,3})°\\s+([\\d.]+)"\\s+([\\d.]+)\'?$~', \trim($str), $m)) {
try {
$output = new Longitude($dir, \trim($m[1]), \doubleval(\str_replace(',', '.', \trim($m[2]))), \doubleval(\str_replace(',', '.', \trim($m[3]))));
} catch (\Throwable $ex) {
return false;
}
return true;
}
return false;
}
/**
* Extracts some associative array data from a HTML attribute format string. (e.g.: a="20" b=foo)
*
* Entities are auto converted to unicode UTF-8 characters!
*
* yes|no|on|off|true|false will be converted automatically to a boolean value.
*
* @param string $attributeStr The HTML attribute string to parse.
* @param boolean $lowerKeys Convert all keys (attribute names) to lower case? (defaults to FALSE)
* @param boolean $autoBoolean Auto convert the values yes|no|on|off|true|false to boolean? (defaults to FALSE)
* @return array
*/
public static function ParseHtmlAttributes(string $attributeStr, bool $lowerKeys = false, bool $autoBoolean = false) : array
{
// This init the resulting attribute array
$attributes = array();
$dc = new \DOMDocument();
try {
if (!$dc->loadHTML('<html><body><p ' . $attributeStr . '></p></body></html>')) {
return $attributes;
}
} catch (\Throwable $ex) {
return $attributes;
}
$element = $dc->getElementsByTagName('p')->item(0);
if (!$element->hasAttributes()) {
return $attributes;
}
foreach ($element->attributes as $attr) {
$key = $lowerKeys ? \strtolower($attr->nodeName) : (string) $attr->nodeName;
$attributes[$key] = (string) $attr->nodeValue;
// Convert the value to boolean if required and if it makes sense
if ($autoBoolean) {
if (\preg_match('~^(yes|no|on|off|true|false)$~i', $attributes[$key])) {
$attributes[$key] = TypeTool::StrToType($attributes[$key], Type::PHP_BOOLEAN);
} else {
if (\preg_match('~^(multiple|selected|disabled|readonly|checked)$~i', $key)) {
$attributes[$key] = \strtolower($key) === \strtolower($attributes[$key]);
}
}
}
}
return $attributes;
}