sikuda/php1c2: 1C on PHP

src/php1C_common.php
368 строк11 KB
sikudamobile
add File types and functions
05 июл 2024, 16:53
05 июл 2024, 16:530ae265b
<?php

/**
* Общий модуль работы с 1С
* 
* Модуль для работы 1С
* 
* @author  sikuda@yandex.ru
*/
namespace php1C;
use Exception;

require_once('php1C_settings.php');
if (Language1C === 'en') {
 	require_once('lang/en.php');
}
else{
	require_once('lang/ru.php');
}

require_once('php1C_number.php');
require_once('php1C_string.php');
require_once('php1C_date.php');
require_once('php1C_collections.php');
require_once('php1C_file.php');

/**
* Массив функций PHP для общей работы с 1С. Соответствует элементам в языковых файлах.
*/   
const php1C_functionsPHP_Com = array('Message(','Find(','ValueIsFilled(','Type(','TypeOf(','toString1C(','toNumber1C(');

class undefined1C
{
    function __toString(){
        return php1C_Undefined;
    }
}

/**
* Выводит данные в представлении 1С (на установленном языке)
* @param $arg
* @return string Возвращаем значение как в 1С ('Да', 'Нет', Дату в формате 1С dd.mm.yyyy, 'Неопределенно' и другое
*/  
function toString1C($arg): string
{
	//if(!isset($arg)) return php1C_Undefined;
    if(!isset($arg) || $arg  instanceof undefined1C) return "";
	if(is_bool($arg)){
		if($arg === true ) return php1C_Bool[0]; //"Да";
		else return php1C_Bool[1]; //"Нет";
	}
	$val = strval($arg);
	//делаем пробелы между тысячными, миллионам и тд.
	if(Regional_grouping && is_numeric($arg)){
		$pos_point = strpos($val, '.');
        $val_int = $val;
        $val_fraction = "";
		if($pos_point !== false){
            $val_int = substr($val, 0, $pos_point);
            $val_fraction = substr($val, -$pos_point);
        }
		$val = implode(" ", str_split($val_int,3)).$val_fraction;
	} 
    return $val;
}

/**
 * Сложение двух переменных в 1С
 * @param $arg1
 * @param $arg2
 * @return numeric|string|Number1C|Date1C - Результат сложение в зависимости от типа переменных
 * @throws Exception
 */
function add1C($arg1, $arg2) {

    if (is_string($arg1)) return $arg1 . $arg2;
    elseif($arg1 instanceof Date1C) {
        return $arg1->add($arg2);
    }
    if(is_bool($arg1)) $arg1 = tran_bool($arg1);
    if(is_bool($arg2)) $arg2 = tran_bool($arg2);

    if (is_numeric($arg1)) {
        if (is_numeric($arg2)) return $arg1 + $arg2;
        elseif ($arg2 instanceof Number1C) return $arg2->add($arg1);
    }
    elseif ($arg1 instanceof Number1C){
        if( $arg2 instanceof Number1C || is_numeric($arg2) )
            return $arg1->add($arg2);
    }
	throw new Exception(php1C_error_ConvertToNumberBad);
}

/**
 * Вычитание двух переменных в 1С
 * @param $arg1
 * @param $arg2
 * @return mixed - Date1C Результат вычитания в зависимости от типа переменных (float, Date1C, исключение)
 * @throws Exception
 */
function sub1C($arg1, $arg2){

    if(is_bool($arg1)) $arg1 = tran_bool($arg1);
    if(is_bool($arg2)) $arg2 = tran_bool($arg2);

    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 - $arg2;
	elseif($arg1 instanceof Number1C){
        if( $arg2 instanceof Number1C || is_numeric($arg2) )
            return $arg1->sub($arg2);
	}
    elseif($arg1 instanceof Date1C) return $arg1->sub($arg2);
	throw new Exception(php1C_error_ConvertToNumberBad );
}

/**
 * Умножение двух переменных в 1С
 * @param $arg1
 * @param $arg2
 * @return float|int|string - Результат сложение в зависимости от типа переменных (float или исключение)
 * @throws Exception
 */
function mul1C($arg1, $arg2)
{
    if(is_bool($arg1)) $arg1 = tran_bool($arg1);
    if(is_bool($arg2)) $arg2 = tran_bool($arg2);

    if(is_numeric($arg1) && is_numeric($arg2)) return $arg1 * $arg2;
    if( $arg1 instanceof Number1C && ($arg2 instanceof Number1C || is_numeric($arg2)) )
        return $arg1->mul($arg2);
	throw new Exception(php1C_error_ConvertToNumberBad );
}

/**
 * Деление двух переменных в 1С
 * @param $arg1
 * @param $arg2
 * @return float|int|string Результат сложение в зависимости от типа переменных (float или исключение)
 * @throws Exception
 */
function div1C($arg1, $arg2){
    if(is_bool($arg1)) $arg1 = tran_bool($arg1);
    if(is_bool($arg2)) $arg2 = tran_bool($arg2);

    if(is_numeric($arg1) && is_numeric($arg2))
        if ($arg2 == 0) throw new Exception(php1C_error_DivideByZero);
        else {
            $val = $arg1 / $arg2;
            if (is_int($val)) return $val;
            else return Number1C($arg1)->div($arg2);
        }
    elseif( $arg1 instanceof Number1C && $arg2 instanceof Number1C )
        return $arg1->div($arg2);
    throw new Exception(php1C_error_ConvertToNumberBad );
}

/**
 * Операция преобразования bool в 0 или 1
 * @param $arg
 * @return int преобразование bool в 0 или 1
 * @throws Exception
 */
function tran_bool($arg): int {
	if($arg === true) return 1;
	else return 0;
}

/**
 * Операция ИЛИ в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции ИЛИ
 * @throws Exception
 */
function or1C($arg1, $arg2): bool
{
	if(is_bool($arg1)) $arg1 = tran_bool($arg1);
	if(is_bool($arg2)) $arg2 = tran_bool($arg2);
    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 || $arg2;
	if($arg1 instanceof Number1C && $arg2 instanceof Number1C) return $arg1->or($arg2);
	throw new Exception(php1C_error_ConvertToNumberBad );
}

/**
 * Операция И в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции И
 * @throws Exception
 */
function and1C($arg1, $arg2): bool
{
	if(is_bool($arg1)) $arg1 = tran_bool($arg1);
	if(is_bool($arg2)) $arg2 = tran_bool($arg2);
    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 && $arg2;
    if($arg1 instanceof Number1C && $arg2 instanceof Number1C) return $arg1->and($arg2);
	throw new Exception(php1C_error_ConvertToNumberBad );
}

/**
 * Операция Меньше в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции Меньше
 * @throws Exception
 */
function less1C($arg1, $arg2): bool
{
	if(is_bool($arg1)) $arg1 = tran_bool($arg1);
	if(is_bool($arg2)) $arg2 = tran_bool($arg2);
    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 < $arg2;
    if($arg1 instanceof Date1C && $arg2 instanceof Date1C) return $arg1 < $arg2;
    if($arg1 instanceof Number1C && $arg2 instanceof Number1C) return $arg1->less($arg2);
	throw new Exception(php1C_error_BadOperTypeEqual);
}

/**
 * Операция Больше в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции Больше
 * @throws Exception
 */
function more1C($arg1, $arg2): bool
{
	if(is_bool($arg1)) $arg1 = tran_bool($arg1);
	if(is_bool($arg2)) $arg2 = tran_bool($arg2);
    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 > $arg2;
    if($arg1 instanceof Number1C && $arg2 instanceof Number1C) return $arg1->more($arg2);
    if($arg1 instanceof Date1C && $arg2 instanceof Date1C) return $arg1 > $arg2;
	throw new Exception(php1C_error_BadOperTypeEqual);
}

/**
 * Операция Равно в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции Равно
 * @throws Exception
 */
function equal1C($arg1, $arg2): bool
{
    if(is_null($arg1) || is_null($arg2)) return false;
	if(is_bool($arg1)) $arg1 = tran_bool($arg1);
	if(is_bool($arg2)) $arg2 = tran_bool($arg2);
    if (is_numeric($arg1) && is_numeric($arg2)) return $arg1 == $arg2;
    elseif($arg1 instanceof Number1C && $arg2 instanceof Number1C) return $arg1->equal($arg2);
    elseif($arg1 instanceof Date1C && $arg2 instanceof Date1C) return $arg1 === $arg2;
    elseif(is_string($arg1) && is_string($arg2)) return strcmp($arg1, $arg2) === 0;
	throw new Exception(php1C_error_BadOperTypeEqual);
}

/**
 * Операция НЕ Равно в 1С
 * @param $arg1
 * @param $arg2
 * @return bool Результат операции Равно
 * @throws Exception
 */
function not_equal1C($arg1, $arg2): bool
{
    return !equal1C($arg1, $arg2);
}

/**
 * @throws Exception
 */
function more_equal1C($arg1, $arg2): bool
{
    return  more1C($arg1, $arg2) || equal1C($arg1,$arg2);
}

/**
 * @throws Exception
 */
function less_equal1C($arg1, $arg2): bool
{
    return less1C($arg1, $arg2) || equal1C($arg1, $arg2);
}

// ---------------------- Общие функции -----------------------------

/**
 * Выводит сообщение через echo
 *
 * @param string $mess
 */
function Message(string $mess=''){
	echo toString1C($mess);
}

/**
* Находит строку в строке
* Хотя 1С считает эту функцию устаревшей, мы ее сделаем
*
* @param string $str строка в которой ищут
* @param string $substr строка поиска(которую ищут)
* @return int позицию найденной строки начиная с 1. Если ничего не найдено возвратит 0
*/
function Find(string $str='', string $substr=''): int
{
	$res = mb_strpos($str, $substr);
	if($res === false) return 0;
	else return $res+1;
}

/**
 * Проверяет заполненность параметра по 1C
 *
 * @param $val
 * @return bool если значение заполнено иначе ложь
 */
function ValueIsFilled($val): bool
{
	if(is_object($val)){
		switch (get_class($val)) {
            case 'php1C\Number1C': return !$val->equal(Number1C(0));
		 	case 'php1C\Date1C': return $val != "01.01.0001 00:00:00";
		 	case 'php1C\Array1C':
		 	case 'php1C\ValueTable':
		 	case 'php1C\ValueTableColumnCollection': return ($val->Count()>0);	
		 	default:
		 		break;
		 } 
	}
	return isset($val);	
}

/*
* Класс для работы с типами 1С
*/
class Type1C{
	private string $val;

    function __construct($str = '') {
		$this->val = $str;
	}	

	function __toString(){
		return $this->val;
	}
}

/**
* ТипЗнч - Возвращает тип значения 1C
*
* @param  $val - объект для получения типа
* @return Type1C
*/
function TypeOf($val): Type1C
{
	$str = php1C_Undefined;
	if(is_bool($val)) $str = php1C_strBool;
	elseif(is_string($val)) $str = php1C_String;
	elseif($val instanceof Date1C) $str = php1C_Date;
    elseif ($val instanceof Number1C) $str = php1C_Number;
    return new Type1C($str);
}

/**
* Тип - Возвращает тип 1С по его описанию в строке
*
* @param string $str строка описание типа
* @return Type1C
*/
function Type(string $str): Type1C
{
	return new Type1C($str);
}