mirror.MikroTik/eworm.routeros-scripts
1
0
Fork 0
mirror of https://git.eworm.de/cgit/routeros-scripts synced 2025-07-14 12:04:29 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

mod/inspectvar: introduce $InspectVarReturn

Browse source
This commit is contained in:
Christian Hesse 2021-12-09 16:13:00 +01:00
parent cdcab4599a
commit b872615e89
1 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

28
mod/inspectvar
View file

@ -4,15 +4,24 @@
# https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md # https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md
:global InspectVar; :global InspectVar;
:global InspectVarReturn;
# inspect variable # inspect variable and print on terminal
:set InspectVar do={ :set InspectVar do={
:global CharacterReplace;
:global InspectVarReturn;
:put [ $CharacterReplace [ $InspectVarReturn $1 ] ("\n") ("\n\r") ];
}
# inspect variable and return formatted string
:set InspectVarReturn do={
:local Input $1; :local Input $1;
:local Level (0 + [ :tonum $2 ]); :local Level (0 + [ :tonum $2 ]);
:global InspectVar; :global InspectVarReturn;
:local PutIndent do={ :local IndentReturn do={
:local Prefix [ :tostr $1 ]; :local Prefix [ :tostr $1 ];
:local Value [ :tostr $2 ]; :local Value [ :tostr $2 ];
:local Level [ :tonum $3 ]; :local Level [ :tonum $3 ];
@ -21,20 +30,23 @@
:for I from=1 to=$Level step=1 do={ :for I from=1 to=$Level step=1 do={
:set Indent ($Indent . " "); :set Indent ($Indent . " ");
} }
:put ($Indent . "-" . $Prefix . "-> " . $Value); :return ($Indent . "-" . $Prefix . "-> " . $Value);
} }
:local TypeOf [ :typeof $Input ]; :local TypeOf [ :typeof $Input ];
$PutIndent "type" $TypeOf $Level; :local Return [ $IndentReturn "type" $TypeOf $Level ];
:if ($TypeOf = "array") do={ :if ($TypeOf = "array") do={
:foreach Key,Value in=$Input do={ :foreach Key,Value in=$Input do={
$PutIndent "key" $Key ($Level + 1); :set $Return ($Return . "\n" . \
$InspectVar $Value ($Level + 2); [ $IndentReturn "key" $Key ($Level + 1) ] . "\n" . \
[ $InspectVarReturn $Value ($Level + 2) ]);
} }
} else={ } else={
:if ($TypeOf != "nothing") do={ :if ($TypeOf != "nothing") do={
$PutIndent "value" $Input $Level; :set $Return ($Return . "\n" . \
[ $IndentReturn "value" $Input $Level ]);
} }
} }
:return $Return;
} }