BadLockExpression.cs

Go to the documentation of this file.

using BadScript2.Common;
using BadScript2.Runtime;
using BadScript2.Runtime.Error;
using BadScript2.Runtime.Objects;
using BadScript2.Runtime.Objects.Types;
 
namespace BadScript2.Parser.Expressions.Block.Lock;
 
public class BadLockExpression : BadExpression
{
    public readonly BadExpression LockExpression;
 
    private readonly BadExpression[] m_Block;
 
    public BadLockExpression(
        BadSourcePosition position,
        BadExpression lockExpression,
        BadExpression[] block) : base(false, position)
    {
        LockExpression = lockExpression;
        m_Block = block;
    }
 
    public IEnumerable<BadExpression> Block => m_Block;
 
 
    public override IEnumerable<BadExpression> GetDescendants()
    {
        foreach (BadExpression expression in LockExpression.GetDescendantsAndSelf())
        {
            yield return expression;
        }
 
        foreach (BadExpression expression in m_Block)
        {
            foreach (BadExpression e in expression.GetDescendantsAndSelf())
            {
                yield return e;
            }
        }
    }
 
    protected override IEnumerable<BadObject> InnerExecute(BadExecutionContext context)
    {
        BadObject lockObj = BadObject.Null;
 
        foreach (BadObject o in LockExpression.Execute(context))
        {
            lockObj = o;
 
            yield return o;
        }
 
        lockObj = lockObj.Dereference();
 
        if (lockObj is not BadArray && lockObj is not BadTable && lockObj is BadClass)
        {
            throw new BadRuntimeException("Lock object must be of type Array, Object or Class", Position);
        }
 
        while (!BadLockList.Instance.TryAquire(lockObj))
        {
            yield return BadObject.Null;
        }
 
        if (m_Block.Length != 0)
        {
            foreach (BadObject o in context.Execute(m_Block))
            {
                yield return o;
            }
        }
 
        BadLockList.Instance.Release(lockObj);
    }
}