mirror/eworm-de-routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2024-05-11 05:55:19 +00:00
Code Releases Activity

global-functions: $ScriptLock: allow to wait for lock

Browse Source
This commit is contained in:
Christian Hesse
2021-06-30 21:27:39 +02:00
parent 5d30886e59
commit 7de3457f44
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
global-functions
View File

@@ -906,6 +906,7 @@
:set ScriptLock do={
:local Script [ :tostr $1 ];
:local DoReturn $2;
:local DoWait $3;
:global GetRandomNumber;
:global IfThenElse;
@@ -949,6 +950,11 @@
:local MyTicket [ $GetRandomNumber ];
:set ($ScriptLockOrder->$Script) [ $AddTicket ($ScriptLockOrder->$Script) $MyTicket ];
:while ($DoWait = true && (($ScriptLockOrder->$Script->0) != $MyTicket || [ :len ($ScriptLockOrder->$Script) ] < $JobCount)) do={
:delay 100ms;
:set JobCount [ :len [ / system script job find where script=$Script ] ];
}
:if ([ :len ($ScriptLockOrder->$Script) ] = $JobCount && ($ScriptLockOrder->$Script->0) = $MyTicket) do={
:set ($ScriptLockOrder->$Script) [ $RemoveTicket ($ScriptLockOrder->$Script) $MyTicket ];
:return false;