Skip to content

Исправления и добавления в СписокЗначений #1710

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Mr-Rm wants to merge 10 commits into
base: develop
Choose a base branch
from
Open

Исправления и добавления в СписокЗначений #1710

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
6e7b032
недостающие проверки индекса +тесты
Mr-Rm Jul 14, 2026
01db884
вынесены исключения
Mr-Rm Jul 14, 2026
c150b55
добавлено свойство ТипЗначения
Mr-Rm Jul 14, 2026
02c147d
добавлено свойство ДоступныеЗначения
Mr-Rm Jul 15, 2026
63c558b
исправлен поиск допустимых значений + тесты
Mr-Rm Jul 15, 2026
b5275e7
преобразование в строку с учетом пустых элементов; тесты
Mr-Rm Jul 16, 2026
6bd24f1
забытый NULL
Mr-Rm Jul 16, 2026
a98bb3f
сортировка по значению с учетом типов +тесты
Mr-Rm Jul 16, 2026
6e8c9d8
добавлен метод ПолучитьИдентификатор +тест; описания для ЭлементСписк…
Mr-Rm Jul 16, 2026
3e9c00e
мелкий рефакторинг
Mr-Rm Jul 16, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
176 changes: 104 additions & 72 deletions src/OneScript.StandardLibrary/Collections/ValueList/ValueListImpl.cs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,7 @@ This Source Code Form is subject to the terms of the
using OneScript.Execution;
using OneScript.Types;
using OneScript.Values;
using OneScript.StandardLibrary.TypeDescriptions;
using ScriptEngine.Machine;
using ScriptEngine.Machine.Contexts;

Expand All @@ -25,43 +26,74 @@ namespace OneScript.StandardLibrary.Collections.ValueList
public class ValueListImpl : AutoCollectionContext<ValueListImpl, ValueListItem>
{
readonly List<ValueListItem> _items;
ulong _maxId;

public ValueListImpl()
{
_items = new List<ValueListItem>();
}

public override bool IsIndexed
{
get
{
return true;
}
}
public override bool IsIndexed => true;

public override IValue GetIndexedValue(IValue index)
{
if (index.SystemType == BasicTypes.Number)
{
return GetValue(index);
}
else
{
return base.GetIndexedValue(index);
}
return index is BslNumericValue ? GetValue(index) : base.GetIndexedValue(index);
}

public override void SetIndexedValue(IValue index, IValue val)
{
if (index.SystemType == BasicTypes.Number)
throw IndexedIsReadonlyException();

base.SetIndexedValue(index, val);
}

/// <summary>
/// Определяет тип для значений, которые могут храниться в элементах данного списка значений
/// </summary>
/// <value>ОписаниеТипов</value>
[ContextProperty("ТипЗначения", "ValueType")]
public TypeDescription ListValueType { get; set; } = new();

ValueListImpl _availableValues;

/// <summary>
/// Ограничивает допустимые значения для элементов данного списка значений.
/// Возможные значения: Неопределено - ограничения отсутствуют,
/// СписокЗначений - список допустимых значений
/// </summary>
/// <remarks>
/// Проверка допустимости добавляемых значений производится после приведения к указанным в ТипЗначения (если есть)
/// </remarks>
/// <value>СписокЗначений или Неопределено</value>
[ContextProperty("ДоступныеЗначения", "AvailableValues")]
public IValue AvailableValues
{
get
{
throw new RuntimeException("Индексированное значение доступно только для чтения");
}
else
{
base.SetIndexedValue(index, val);
if (_availableValues != null)
return _availableValues;

return BslUndefinedValue.Instance;
}
}

set
{
switch (value)
{
case BslUndefinedValue:
_availableValues = null;
break;

case ValueListImpl vl:
_availableValues = vl;
break;

default: throw RuntimeException.InvalidArgumentType();
}
}
}

/// <summary>
/// Получить элемент по индексу
/// </summary>
Expand All @@ -71,6 +103,9 @@ public override void SetIndexedValue(IValue index, IValue val)
public ValueListItem GetValue(IValue index)
{
int numericIndex = (int)index.AsNumber();
if (numericIndex < 0 || numericIndex >= _items.Count)
throw RuntimeException.IndexOutOfRange();

return _items[numericIndex];
}

Expand Down Expand Up @@ -103,33 +138,39 @@ public ValueListItem Add(IValue value = null, string presentation = null, bool c
[ContextMethod("Вставить", "Insert")]
public ValueListItem Insert(int index, IValue value = null, string presentation = null, bool check = false, IValue picture = null)
{
if (index < 0 || index > _items.Count)
throw RuntimeException.IndexOutOfRange();

var newItem = CreateNewListItem(value, presentation, check, picture);
_items.Insert(index, newItem);

return newItem;
}

private static ValueListItem CreateNewListItem(IValue value, string presentation, bool check, IValue picture)
private ValueListItem CreateNewListItem(IValue value, string presentation, bool check, IValue picture)
{
var newItem = new ValueListItem
var newValue = ListValueType.AdjustValue(value);
if (_availableValues is not null)
{
var foundItem = _availableValues.FindByValue(newValue);
newValue = foundItem is ValueListItem li ? li.Value : ListValueType.AdjustValue();
}

return new ValueListItem(_maxId++)
{
Value = value ?? BslUndefinedValue.Instance,
Value = newValue,
Presentation = presentation,
Check = check,
Picture = picture
};
return newItem;
}
Comment thread
coderabbitai[bot] marked this conversation as resolved.

/// <summary>
/// Выгружает значения в новый массив
/// </summary>
/// <returns>Массив</returns>
[ContextMethod("ВыгрузитьЗначения", "UnloadValues")]
public ArrayImpl UnloadValues()
{
return new ArrayImpl(_items.Select(x=>x.Value));
}
public ArrayImpl UnloadValues() => new ArrayImpl(_items.Select(x => x.Value));

/// <summary>
/// Загружает значения из массива
Expand All @@ -139,17 +180,14 @@ public ArrayImpl UnloadValues()
public void LoadValues(ArrayImpl source)
{
Clear();
_items.AddRange(source.Select(x => new ValueListItem() { Value = x }));
_items.AddRange(source.Select(x => new ValueListItem(_maxId++) { Value = x }));
}

/// <summary>
/// Удаляет все элементы из списка.
/// </summary>
[ContextMethod("Очистить", "Clear")]
public void Clear()
{
_items.Clear();
}
public void Clear() => _items.Clear();

/// <summary>
/// Устанавливает значение пометки у всех элементов списка значений
Expand All @@ -170,10 +208,7 @@ public void FillChecks(bool check)
/// <param name="item">ЭлементСпискаЗначений - Элемент списка значений, для которого необходимо определить индекс</param>
/// <returns>Число - Индекс в списке, если не найдено возвращает -1</returns>
[ContextMethod("Индекс", "IndexOf")]
public int IndexOf(ValueListItem item)
{
return _items.IndexOf(item);
}
public int IndexOf(ValueListItem item) => _items.IndexOf(item);

/// <summary>
/// Осуществляет поиск значения в списке
Expand All @@ -194,11 +229,11 @@ private int IndexByValue(BslValue item)
{
int index;

if (item is ValueListItem)
if (item is ValueListItem listItem)
{
index = IndexOf(item as ValueListItem);
index = IndexOf(listItem);
if (index == -1)
throw new RuntimeException("Элемент не принадлежит списку значений");
throw ElementDoesntBelongException();
}
else
{
Expand All @@ -211,7 +246,7 @@ private int IndexByValue(BslValue item)
throw RuntimeException.InvalidArgumentType();
}

if (index < 0 || index >= _items.Count())
if (index < 0 || index >= _items.Count)
throw RuntimeException.IndexOutOfRange();
}

Expand All @@ -230,10 +265,9 @@ private int IndexByValue(BslValue item)
public void Move(BslValue item, int offset)
{
int index_source = IndexByValue(item);

int index_dest = index_source + offset;

if (index_dest < 0 || index_dest >= _items.Count())
if (index_dest < 0 || index_dest >= _items.Count)
throw RuntimeException.InvalidNthArgumentValue(2);

ValueListItem itemObject = _items[index_source];
Expand Down Expand Up @@ -273,26 +307,23 @@ public ValueListImpl Copy()
[ContextMethod("СортироватьПоЗначению", "SortByValue")]
public void SortByValue(IBslProcess process, SortDirectionEnum? direction = null)
{
if (direction == null || direction == SortDirectionEnum.Asc)
{
_items.Sort((x, y) => SafeCompare(process, x.Value, y.Value));
}
else
{
_items.Sort((x, y) => SafeCompare(process, y.Value, x.Value));
}
_items.Sort( new ItemComparator(process, direction == null || direction == SortDirectionEnum.Asc) );
}

private int SafeCompare(IBslProcess p, IValue x, IValue y)
private class ItemComparator : IComparer<ValueListItem>
{
try
readonly GenericIValueComparer _comparer;
readonly int _direction;

public ItemComparator(IBslProcess process, bool ascending = true)
{
return x.CompareTo(y);
_comparer = new GenericIValueComparer(process);
_direction = ascending ? 1 : -1;
}
catch(RuntimeException)

public int Compare(ValueListItem x, ValueListItem y)
{
// Сравнение типов не поддерживается
return string.Compare(x?.AsString(p), y?.AsString(p), StringComparison.Ordinal);
return _comparer.Compare(x.Value, y.Value) * _direction;
}
}

Expand Down Expand Up @@ -321,33 +352,34 @@ public void SortByPresentation(SortDirectionEnum? direction = null)
/// Число - Индекс удаляемого элемента
/// </param>
[ContextMethod("Удалить", "Delete")]
public void Delete(BslValue item)
{
int indexSource = IndexByValue(item);

_items.RemoveAt(indexSource);
}
public void Delete(BslValue item) => _items.RemoveAt(IndexByValue(item));

#region Collection Context

[ContextMethod("Количество", "Count")]
public override int Count()
{
return _items.Count;
}
public override int Count() => _items.Count;

public override IEnumerator<ValueListItem> GetEnumerator()
{
return _items.GetEnumerator();
}
public override IEnumerator<ValueListItem> GetEnumerator() => _items.GetEnumerator();

#endregion

public override string ToString() => string.Join("; ", _items);

[ScriptConstructor]
public static ValueListImpl Constructor()
{
return new ValueListImpl();
}

public static RuntimeException IndexedIsReadonlyException()
{
return new("Индексированное значение доступно только для чтения", "Indexed value is read-only");
}

public static RuntimeException ElementDoesntBelongException()
{
return new("Элемент не принадлежит списку значений", "Element does not belong to values list");
}

}
}
42 changes: 35 additions & 7 deletions src/OneScript.StandardLibrary/Collections/ValueList/ValueListItem.cs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,8 @@ This Source Code Form is subject to the terms of the

using System;
using OneScript.Contexts;
using OneScript.Localization;
using OneScript.Values;
using ScriptEngine.Machine;
using ScriptEngine.Machine.Contexts;

Expand All @@ -18,36 +20,62 @@ namespace OneScript.StandardLibrary.Collections.ValueList
[ContextClass("ЭлементСпискаЗначений", "ValueListItem")]
public class ValueListItem : AutoContext<ValueListItem>
{
static readonly BilingualString EMPTY_VALUE_STRING = new("<Пустое значение>", "<Empty value>");

private string _presentationHolder;
private IValue _pictureHolder;
private readonly ulong _id;

public ValueListItem()
internal ValueListItem(ulong id)
{
_id = id;
_pictureHolder = ValueFactory.Create();
_presentationHolder = String.Empty;
}

}

/// <summary>
/// Хранимое элементом списка значение произвольного типа
/// </summary>
[ContextProperty("Значение", "Value")]
public IValue Value { get; set; }

/// <summary>
/// Строковое представление элемента списка значений.
/// Если не задано или указана пустая строка, то соответствует представлению значения.
/// </summary>
[ContextProperty("Представление", "Presentation")]
public string Presentation
{
get => _presentationHolder;
set => _presentationHolder = value ?? String.Empty;
}

/// <summary>
/// Связанное с элементом списка значение пометки. Тип: Булево
/// </summary>
[ContextProperty("Пометка", "Check")]
public bool Check { get; set; }

public bool Check { get; set; }

/// <summary>
/// Картинка, связанная с элементом списка значений.
/// </summary>
/// <remarks>Сейчас может содержать произвольное значение, не используется</remarks>
[ContextProperty("Картинка", "Picture")]
public IValue Picture
{
get => _pictureHolder;
set => _pictureHolder = value ?? ValueFactory.Create();
}
}

/// <summary>
/// Получает идентификатор для элемента списка значений, не привязанный к позиции элемента в списке
/// </summary>
[ContextMethod("ПолучитьИдентификатор", "GetID")]
public ulong GetID() => _id;

public override string ToString()
=> !String.IsNullOrEmpty(_presentationHolder) ? _presentationHolder : Value.ToString();
=> !String.IsNullOrEmpty(_presentationHolder) ? _presentationHolder
: Value is BslUndefinedValue or BslNullValue? EMPTY_VALUE_STRING
: Value.ToString();
}
}
Loading